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.

• Download qualoperadora.pl
• Enviar nova versão

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";}
}

Web crawler simples em Perl

Tweetin - Poste tweets pelo terminal

fb-brute

Postando mensagem no Facebook com Perl

Avisar por e-mail se o IP da conexão ADSL mudar