Descobrir operadora de celular
Publicado por rafaelmspc (última atualização em 05/06/2013)
[ Hits: 11.694 ]
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";} }
Pesquisar palavras no Diário Oficial da União
Synner Novo Sys(TCP) Flooder em Perl
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
A area de trabalho ficou preta (14)
Falta pacotes de suporte ao sistema de arquivos (Gerenciador de discos... (4)
xubuntu sem sons de eventos (4)