Descobrir operadora de celular
Publicado por rafaelmspc (última atualização em 05/06/2013)
[ Hits: 11.951 ]
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";} }
Automatizando o envio de arquivo p/ o FTP !
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Atualizar Debian Online de uma Versão para outra
Instalando Discord no Debian 13
Instalar driver Nvidia no Debian 13
Redimensionando, espelhando, convertendo e rotacionando imagens com script
Software livre - será que eu estou tão errado assim? (10)
Boot do PosRog so funciona em notebook (1)