Googler em Perl que simula um FreeBSD, tem proxy e 30 funções...

• Download hat.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
###############
#Geotic C0d3rs                        
#(C)0d3r by: Dr4k3                      
#Dr4k3 - Sh0rtkiller - Metalisco - Twi John                            
#http://geotic.forum.st/  
#Brazilian Crew   
#www.dr4k3.co.cc
#Botecounix.com.br            
#Greetz:
#C00L3r
#Mental_Way
#Texxxugo
#HAT Googler
#versao 1.0
#public

use LWP::UserAgent;
use IO::Socket::INET; 

print q{
----------------------------------------------------------------
                       >\.HAT Googler
----------------------------------------------------------------
------------------------Coded-by-Dr4k3--------------------------
                     Geotic C0d3rs Crew
                   http://geotic.forum.st/  
----------------------------------------------------------------
                           >\.MENU:
01- Insert String         11- Proxy List        21- c99Shell
02- Insert String List    12- pass FP           22- r57 shell
03- MP3                   13- VNC Vul           23- SQL Vul
04- eBooks                14- Backup            24- PHP Vul
05- Arquivos              15- Registry          25- World List
06- RapidShare            16- login and pass    26- Serial
07- in Sites              17- site adm          27- Cracks
08- info. staff           18- sites pass        28- Members List
09- FTP Pass              19- forum pass        29- Sources
10- PRIV8 Files           20- Black List        00- Exit
----------------------------------------------------------------
};




print '>Search:';
print "\n>";
$se = <STDIN>; chomp $se;

if($se == "1"){

print "\n\n>Search for:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}



if($se == "2"){

print "\n\n\n>Upload list of Strings:\n";
print ">";
$ARGV[0] = <STDIN>; 

chomp ($ARGV[0]);
open (sites, $ARGV[0]) or die "Error opening list."; 
@sites = <sites>;
close(sites) ;

print "\n>Enter the name of the file where the results will be saved:\n";
print ">";
$resultados = <STDIN>; 

open(arq,">>$resultados");

print arq"HAT Googler v1.0";
print arq"Results:";
close(arq);


foreach $procura(@sites)
{
chomp($procura);
$a=0;


if($procura=~ / /){$procura =~ s/ /+/g;}


print "\n\n>Searching for: $procura\n\n";
$resul2="";
while($resul2 !~ /resultados omitidos/) 

{

if($resul2=~ m/<TITLE>403 Forbidden<\/TITLE>/) 
{
print "\n\n Error attempting to make request to Google.";
print '>';
<STDIN>;
exit;
}


if($resul2=~ m/<title>404 Not Found<\/title>/)
{
print "\n\n Error attempting to make request to Google. Try again later.";
print '>';<STDIN>;
exit;
}
}
   
if($a<100) 
   {
    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next; 
    print $sock "GET /search?num=100&hl=pt-BR&q=$procura HTTP/1.0\r\n"; 
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n"; 
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }

   else
   {
  

    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next;
    print $sock "GET /search?q=$procura&num=100&hl=pt-BR&start=$a&sa=N HTTP/1.0\r\n";
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br/ \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n";
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }


   FILTRO;
   while($resul2=~ m/<h2 class=r><a href=".*?" class=l>.*?<\/a>/) 
  {
   $resul2=~ s/<h2 class=r><a href="(.*?)" class=l>.*?<\/a>/$1/; 
   $ref = $1;
   $prox = $ref;
   print "$prox\n";
   open(arq,">>$resultados"); 
   print arq "$prox\n"; 
   close(arq); 

  }
$a +=100; 
}
print "\n\n>Look at the list on file: $resultados\n";
<STDIN>;
}

if($se == "3"){

print "\n\n>Artist Name:\n";
my $art = <STDIN>; chomp $art;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=?intitle:index.of? mp3 $art&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "4"){

print "\n\n>eBook Name:\n";
my $book = <STDIN>; chomp $book;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=allinurl: +(rar|chm|zip|pdf|tgz) $book&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "5"){

print "\n\n>File Name:\n";
my $name = <STDIN>; chomp $name;

print "\n\n>File Extension:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=$name+filetype:$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "6"){

print "\n\n>File Extension:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=site:rapidshare.com+AND+filetype:$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "7"){

print "\n\n>Search for:\n";
my $form = <STDIN>; chomp $form;

print "\n\n>Search in Site:\n";
my $site = <STDIN>; chomp $site;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=$form site:$site&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "8"){

print "\n>the program is configured to look for: telephone, email and address\n";

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q="phone * * *" "address *" "e-mail" intitle:"curriculum vitae"&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "9"){


print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=filetype:ini ws_ftp pwd&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "10"){

print "\n\n>File Extension:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=intext:PRIV8 AND filetype:$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "11"){

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=+":8080" +":3128" +":80" filetype:txt&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "12"){


print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=filetype:ini ws_ftp pwd&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "13"){

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q="VNC Desktop" inurl:5800 Arrow&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "14"){

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q="Index of /backup"&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "15"){

print "\n\n>User Name:\n";
my $user = <STDIN>; chomp $user;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=filetype:reg reg HKEY_CURRENT_USER $user&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "16"){

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=filetype:log inurl:"password.log"&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "17"){

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=inurl:admin.php "Admin-ID" -System&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "18"){


print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=allinurl:auth_user_file.txt&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "19"){

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q="Index of /wwwboard" + passwd&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}


if($se == "20"){

@sites = ("Index of /admin",
"Index of /password", 
"Index of /mail", 
"Index of /" +passwd",
"Index of /" +password.txt", 
"Index of /" +.htaccess", 
"index of ftp +.mdb allinurl:/cgi-bin/ +mailto",
"administrators.pwd.index",
"authors.pwd.index", 
"service.pwd.index", 
"filetype:config web", 
"gobal.asax index", 
"allintitle: "index of/admin", 
"allintitle: "index of/root", 
"allintitle: sensitive filetype:doc", 
"allintitle: restricted filetype :mail", 
"allintitle: restricted filetype:doc site:gov", 
"inurl: passwd filetype:txt", 
"inurl: admin filetype:db", 
"inurl: iisadmin",
"inurl: "auth_user_file.txt",
"inurl: "wwwroot/*.", 
"top secret site:mil", 
"confidential site:mil", 
"allinurl: winnt/system32/ (get cmd.exe)", 
"allinurl:/bash_history", 
"intitle:"Index of" .sh_history", 
"intitle:"Index of" .bash_history", 
"intitle:"index of" passwd", 
"intitle:"index of" people.lst",
"intitle:"index of" pwd.db", 
"intitle:"index of" etc/shadow", 
"intitle:"index of" spwd",
"intitle:"index of" master.passwd", 
"intitle:"index of" htpasswd", 
"intitle:"index of" members OR accounts",
"intitle:"index of" user_carts OR user_cart;",);


print "\n>Enter the name of the file where the results will be saved:\n";
print ">";
$resultados = <STDIN>; 

open(arq,">>$resultados");

print arq"HAT Googler v1.0";
print arq"Results:";
close(arq);


foreach $procura(@sites)
{
chomp($procura);
$a=0;


if($procura=~ / /){$procura =~ s/ /+/g;}


print "\n\n>Searching for: $procura\n\n";
$resul2="";
while($resul2 !~ /resultados omitidos/) 

{

if($resul2=~ m/<TITLE>403 Forbidden<\/TITLE>/) 
{
print "\n\n Error attempting to make request to Google.";
print '>';
<STDIN>;
exit;
}


if($resul2=~ m/<title>404 Not Found<\/title>/)
{
print "\n\n Error attempting to make request to Google. Try again later.";
print '>';<STDIN>;
exit;
}
}
   
if($a<100) 
   {
    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next; 
    print $sock "GET /search?num=100&hl=pt-BR&q=$procura HTTP/1.0\r\n"; 
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n"; 
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }

   else
   {
  

    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next;
    print $sock "GET /search?q=$procura&num=100&hl=pt-BR&start=$a&sa=N HTTP/1.0\r\n";
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br/ \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n";
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }


   FILTRO;
   while($resul2=~ m/<h2 class=r><a href=".*?" class=l>.*?<\/a>/) 
  {
   $resul2=~ s/<h2 class=r><a href="(.*?)" class=l>.*?<\/a>/$1/; 
   $ref = $1;
   $prox = $ref;
   print "$prox\n";
   open(arq,">>$resultados"); 
   print arq "$prox\n"; 
   close(arq); 

  }
$a +=100; 
}
print "\n\n>Look at the list on file: $resultados\n";
<STDIN>;
}

if($se == "21"){


print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=intitle:c99Shell AND filetype:php&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "22"){

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=intitle:r57Shell AND filetype:php&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "23"){

@sites = ("allinurl:admin/index.asp",
"allinurl:admin/default.asp",
"allinurl:admin/admin.asp",
"allinurl:admin/login.asp",
"allinurl:/admin/entrar.asp",
"allinurl:/admin/default.asp",
"allinurl:/admin/index.asp",
"allinurl:/admin/login.asp",
"allinurl:/admin/password.asp");


print "\n>Enter the name of the file where the results will be saved:\n";
print ">";
$resultados = <STDIN>; 

open(arq,">>$resultados");

print arq"HAT Googler v1.0";
print arq"Results:";
close(arq);


foreach $procura(@sites)
{
chomp($procura);
$a=0;


if($procura=~ / /){$procura =~ s/ /+/g;}


print "\n\n>Searching for: $procura\n\n";
$resul2="";
while($resul2 !~ /resultados omitidos/) 

{

if($resul2=~ m/<TITLE>403 Forbidden<\/TITLE>/) 
{
print "\n\n Error attempting to make request to Google.";
print '>';
<STDIN>;
exit;
}


if($resul2=~ m/<title>404 Not Found<\/title>/)
{
print "\n\n Error attempting to make request to Google. Try again later.";
print '>';<STDIN>;
exit;
}
}
   
if($a<100) 
   {
    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next; 
    print $sock "GET /search?num=100&hl=pt-BR&q=$procura HTTP/1.0\r\n"; 
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n"; 
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }

   else
   {
  

    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next;
    print $sock "GET /search?q=$procura&num=100&hl=pt-BR&start=$a&sa=N HTTP/1.0\r\n";
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br/ \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n";
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }


   FILTRO;
   while($resul2=~ m/<h2 class=r><a href=".*?" class=l>.*?<\/a>/) 
  {
   $resul2=~ s/<h2 class=r><a href="(.*?)" class=l>.*?<\/a>/$1/; 
   $ref = $1;
   $prox = $ref;
   print "$prox\n";
   open(arq,">>$resultados"); 
   print arq "$prox\n"; 
   close(arq); 

  }
$a +=100; 
}
print "\n\n>Look at the list on file: $resultados\n";
<STDIN>;
}


if($se == "24"){

@sites = ("nota.php?header=",
"start.php?get=",
"standard.php?pagina=",
"view.php?second=",
"main.php?open=",
"sub*.php?home=",
"sitio.php?secao=",
"index3.php?numero=",
"head.php?include=");

print "\n>Enter the name of the file where the results will be saved:\n";
print ">";
$resultados = <STDIN>; 

open(arq,">>$resultados");

print arq"HAT Googler v1.0";
print arq"Results:";
close(arq);


foreach $procura(@sites)
{
chomp($procura);
$a=0;


if($procura=~ / /){$procura =~ s/ /+/g;}


print "\n\n>Searching for: $procura\n\n";
$resul2="";
while($resul2 !~ /resultados omitidos/) 

{

if($resul2=~ m/<TITLE>403 Forbidden<\/TITLE>/) 
{
print "\n\n Error attempting to make request to Google.";
print '>';
<STDIN>;
exit;
}


if($resul2=~ m/<title>404 Not Found<\/title>/)
{
print "\n\n Error attempting to make request to Google. Try again later.";
print '>';<STDIN>;
exit;
}
}
   
if($a<100) 
   {
    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next; 
    print $sock "GET /search?num=100&hl=pt-BR&q=$procura HTTP/1.0\r\n"; 
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n"; 
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }

   else
   {
  

    $sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort => 80, Proto => "tcp")or next;
    print $sock "GET /search?q=$procura&num=100&hl=pt-BR&start=$a&sa=N HTTP/1.0\r\n";
    print $sock "Content-type: text/html\n\n";
    print $sock "Host: www.google.com.br/ \r\n\r\n";
    print $sock "Referer: http://www.google.com.br/search?hl=pt-BR&q=$procura\n";
    @resul=<$sock>;
    $resul2="@resul";
    close($sock);
   }


   FILTRO;
   while($resul2=~ m/<h2 class=r><a href=".*?" class=l>.*?<\/a>/) 
  {
   $resul2=~ s/<h2 class=r><a href="(.*?)" class=l>.*?<\/a>/$1/; 
   $ref = $1;
   $prox = $ref;
   print "$prox\n";
   open(arq,">>$resultados"); 
   print arq "$prox\n"; 
   close(arq); 

  }
$a +=100; 
}
print "\n\n>Look at the list on file: $resultados\n";
<STDIN>;
}

if($se == "25"){


print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=intext:worldlist AND filetype:txt&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "26"){

print "\n\n>Search for:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "27"){

print "\n\n>Search for:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "28"){

print "\n\n>Search for:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "29"){

print "\n\n>Search for:\n";
my $form = <STDIN>; chomp $form;

print "\n>What proxy: example 200.1.2.0:8080 \n";
print ">If you do not want proxy to put: 0 \n"; 

my $proxy = <STDIN>; chomp $proxy; 
my $cont=0; 
my $cont2=0; 
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (X11; U; FreeBSD i386; en-US; rv:1.8.1.12) Gecko/20080301 Firefox/2.0.0.12');
if($proxy!=0) {$ua->env_proxy(); 
$ua->proxy("http", "http://$proxy/"); } 

print "\n>Starting Search in Google...\n";

for(my $i=10;$i<200;$i+=2) {
my $pedido1 = new HTTP::Request GET =>"http://www.google.pl/search?hl=&q=$form&start=$i";
my $resposta1 = $ua->request($pedido1) or die ">Error site scanner\n"; 
my $res1 = $resposta1->content;

open (OUT, ">>hit.txt"); 
print OUT "$res1\n"; 
close(OUT); 

$cont=$cont+1;

while($res1 =~ m/<a href=\"?http:\/\/([^>\"]*)\//g){
if ($1 !~ /64\..*\|\.google.*|\.orkut|.*\.google.*|\.youtube.*/){
my $links=$1; print "$links\n" ; open (OUT, ">>links.txt"); 
filetxt();
print OUT "$links\n"; 

close(OUT); $cont2=$cont2+1; }} }
print "It was picked up $cont2 links and $cont pages by the HAT Googler are in links.txt\n"; exit;
}

if($se == "00"){
print "\n\n\n>Press enter to exit...\n";
print '>';
<STDIN>;
}

#dr4k3.co.cc
#forum.geotic.st
#botecounix.com.br

Sarg Diario

Index Location

Gmail::SendMail - Enviando emails usando gmail

Perl Check Port - Entenda melhor os sockets

Google Tradutor