HAT Googler
Publicado por Felipe 03/11/2008
[ Hits: 54.230 ]
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
Scripts recomendados
Upload de múltiplos arquivos para Imageshack.us
Gmail::SendMail - Enviando emails usando gmail
Iniciando desenvolvimento web ágil com Perl (Mojolicious)
Avisar por e-mail se o IP da conexão ADSL mudar
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".
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".
Patrocínio
Site hospedado pelo provedor RedeHost.
Destaques
Artigos
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
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
Dicas
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tópicos
Queria saber se existe alguma forma de desistalar programa no ubuntu s... (2)
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (1)
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)
Top 10 do mês
-
Xerxes
1° lugar - 70.400 pts -
Fábio Berbert de Paula
2° lugar - 51.706 pts -
Renato Michnik de Carvalho
3° lugar - 27.319 pts -
Buckminster
4° lugar - 17.338 pts -
Mauricio Ferrari
5° lugar - 15.658 pts -
Alberto Federman Neto.
6° lugar - 14.537 pts -
Daniel Lara Souza
7° lugar - 14.444 pts -
Diego Mendes Rodrigues
8° lugar - 13.962 pts -
edps
9° lugar - 12.127 pts -
Andre (pinduvoz)
10° lugar - 11.602 pts
Scripts
A maior comunidade GNU/Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda.
Site hospedado por:
