HAT Googler
Publicado por Felipe 03/11/2008
[ Hits: 54.192 ]
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
Baixar o Diário Oficial da União e salvar como um único PDF completo
Pesquisar palavras no Diário Oficial da União
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
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
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
Tópicos
estou com chromebook legalzinho. (2)
Estou com sede em aprender sobre o nosso querido Linux. (1)
big linux sem audio como resolver (2)
Como faz para dar um update-grub por shell script [RESOLVIDO] (3)
Top 10 do mês
-
Xerxes
1° lugar - 63.964 pts -
Fábio Berbert de Paula
2° lugar - 48.387 pts -
Buckminster
3° lugar - 17.500 pts -
Mauricio Ferrari
4° lugar - 14.958 pts -
Alberto Federman Neto.
5° lugar - 13.637 pts -
Daniel Lara Souza
6° lugar - 12.897 pts -
Diego Mendes Rodrigues
7° lugar - 12.465 pts -
Alessandro de Oliveira Faria (A.K.A. CABELO)
8° lugar - 12.077 pts -
Andre (pinduvoz)
9° lugar - 10.921 pts -
edps
10° lugar - 10.344 pts
Scripts
[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
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:
