HAT Googler [Perl]

HAT Googler

Publicado por Felipe 03/11/2008

[ Hits: 54.630 ]

Homepage: www.dr4k3.co.cc

Download hat.pl

0 0

Denuncie Favoritos Indicar
Googler em Perl que simula um FreeBSD, tem proxy e 30 funções...
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
Scripts recomendados
Tradutor Babelfish
Tweetin - Poste tweets pelo terminal
API do Bing para traduzir textos
Servidor BBS
VimeoTheSapo -Baixe videos do Vimeo e do sapo
Comentários
[1] Comentário enviado por HelioCampos em 03/11/2008 - 18:47h

Legal senhor...
Uma dica:
Perl é uma linguagem de script que não preza muito pela visualização do código.
Então seria um boa você utilizar mais funções para que algum blocos que se repetem várias vezes, fiquem todos em apenas um lugar.
Só isso já tornaria o código muito mais enxuto e legivel. Procure sempre "refatorar".
0 0