Descobrir operadora de celular

Publicado por rafaelmspc (última atualização em 05/06/2013)

[ Hits: 11.920 ]

Homepage: http://rafaelmspc.cc

Download qualoperadora.pl




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.

  



Esconder código-fonte

#!/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";}
}

Scripts recomendados

PDF completo com todas as páginas do Diário Oficial do Estado de Goiás

Synner Novo Sys(TCP) Flooder em Perl

WordPress Plugin check

Script para fazer buscas no arquivo de logs do squid

Obtendo o IP público (Internet) usando o Perl


  

Comentários
[1] Comentário enviado por removido em 06/06/2013 - 08:45h

parabens cara, ótimo trabalho

[2] Comentário enviado por Rafaelmspc em 19/06/2013 - 07:54h


[1] Comentário enviado por undr3ad em 06/06/2013 - 08:45h:

parabens cara, ótimo trabalho


Obrigado undr3.


[3] Comentário enviado por fabio em 15/09/2013 - 23:29h

Ótimo script! Parabéns.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts