Descobrir operadora de celular
Publicado por rafaelmspc (última atualização em 05/06/2013)
[ Hits: 12.005 ]
Homepage: http://rafaelmspc.cc
Esse programa recebe de entrada o número de um celular e retorna a qual operadora ele pertence usando a API do http://www.telein.com.br. A telein fornece de graça um total de seis consultas IP/dia, esse programa faz uso dos três servidores deles, fazendo subir o número de consultas para dezoito consultas/dia.
#!/usr/bin/perl #--------------------------info------------------------------ #Programa que usa a API do telein para fazer uma - #consulta usando um numero de celular e obtendo - #como resposta a operadora. - #cada servidor possibilita apenas seis consultas ip/dia - #esse programa usa os três servidores da telein,aumentando - #a quantidade de consultas para dezoito/dia. - #contato@rafaelmspc.cc - #http://www.rafaelmspc.cc - #------------------------------------------------------------ use LWP::UserAgent; use v5.10; use warnings; use strict; my ($num,$ua,$resp,$cont,$cdgvl,$cod,%tcod); printf " +-+-+- Qual Operadora -+-+- ::,,,,,,,,,,,,,,,,,,,,,,,,: :,,,,,:ND8OOOOOOOO8D+,,,,,: :,,,,8OOOO:,,,,,:OOOOO,,,,: :,,,NOOO=,D8,,,D8,:OOO8,,,: :,,,N8888,8888888:D8888,,,: :,,,,,,,,D8NDNDND8:,,,,,,,: :,,,,,,,DDDNDNDNDDD:,,,,,,: :,,,,,,NDDDNDNNNNDDD:,,,,,: ~:,,,,MNNNNNNNNNNNNNN,,,,:~ ~:::::MNNNNNNNNNNNNNN:::::~ =~:::::::::::::::::::::::~= +=~~~~~~~~~~~~~~~~~~~~~~~=+ +=Rafael - rafaelmspc.cc +- +-contato\@rafaelmspc.cc +-\n"; printf "-"x30; printf "\nQual o nº do telefone com DDD Ex: 8199881010\n"; $num = <STDIN> ; chomp($num); printf "-"x30; printf "\n"; %tcod = ( 12 => "Operadora:CTBC.", 14 => "Operadora:Brasil Telecom.", 20 => "Operadora:Vivo.", 21 => "Operadora:Claro.", 31 => "Operadora:Oi.", 24 => "Operadora:Amazonia.", 37 => "Operadora:Unicel.", 41 => "Operadora:TIM.", 77 => "Operadora:Nextel.", 43 => "Operadora:SerComercio.", 81 => "Operadora:Datora.", 98 => "Telefone Fixo.", 99 => "Nº nao encontrado.", 999 => "Chave invalida!", 995 => "IP excedeu 6 consultas/hora nas ultimas 24 horas", 990 => "IP na lista negra." ); for (1..3){ $ua = LWP::UserAgent->new(); $ua-> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4"); $ua->timeout( 15 ); $resp = $ua->get("http://consultanumero$_.telein.com.br/sistema/consulta_numero.php?chave=senhasite&numero=$num"); $cod = substr($resp->decoded_content, 0,2); if ($cod =~ m/\d/){ printf "[+] Numero:$num\t$tcod{$cod}\n"; exit }else {$cod = substr($resp->decoded_content, 21,23); $_++; printf "[!] $tcod{$cod}\n[!] Tentando servidor n $_\n";} }
Obtendo o IP público (Internet) usando o Perl
PDF completo com todas as páginas do Diário Oficial do Estado de Goiás
Avisar por e-mail se o IP da conexão ADSL mudar
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (1)
Como listar os arquivos em "bloquin... (0)
Como vencer a procrastinação? (8)
Adicional de convivdado em linux somente linha de comando (3)