HAT Googler
Publicado por Felipe 03/11/2008
[ Hits: 54.191 ]
Homepage: www.dr4k3.co.cc
Googler em Perl que simula um FreeBSD, tem proxy e 30 funções...
#!/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
Gmail::SendMail - Enviando emails usando gmail
Avisar por e-mail se o IP da conexão ADSL mudar
SMTP Mass Mail - Enviando e-mails em massa para vários endereços a partir de um servidor SMTP
Synner Novo Sys(TCP) Flooder em Perl
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Wifi não funciona no Aspire ES 15 com o Debian (11)
Teclado não funciona no Debian (1)
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta