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

Upload de múltiplos arquivos para Imageshack.us

Sarg Diario

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

Script para fazer buscas no arquivo de logs do squid

Pesquisar palavras no Diário Oficial da União