Descobrir operadora de celular
Publicado por rafaelmspc (última atualização em 05/06/2013)
[ Hits: 11.913 ]
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";} }
Tweetin - Poste tweets pelo terminal
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Descubra se seu e-mail ou conta foi "pwned"
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Jogos baixados na Central de Aplicativos mas que não abrem (1)
debian com wayland, configuracao de teclado. Mudou Tudo! [RESOLVIDO] (1)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (3)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)