check this code
#!/usr/bin/perl -w
#####################################################################################################################
#[+] Usage: GoogleDork.pl <dork> [+] #
# #
#Coded By ccfresh.info #
#Yogyacarder.link #
#Ready Stock: #
#CC Fresh | cPanel | Shell | Mailer | RDP | SSH root | SSH Tuneling | FTP | WebMail | SMTP | Email Leads | ScamPages#
#Contact YM: ccfresh.info Email: ccfresh.info@yahoo.com #
#####################################################################################################################
use WWW::Mechanize;
use WWW::Mechanize::TreeBuilder;
use URI::Escape;
if(@ARGV!= 1){&usage;}
else{
print "\n";
print "----------------------------------\n";
print "- GoogleDork.pl -\n";
print "- by ccfresh.info -\n";
print "----------------------------------\n";
print "\n";
print "Please Wait...\n";
print "\n";
open(LOG,">>results.txt") || die "Can't open file\n";
print LOG "-------------------------------\n";
print LOG "Dork: ".$ARGV[0]."\n";
print LOG "-------------------------------\n";
close(LOG);
my $google = "http://www.google.com/search?q=";
my $dork = $ARGV[0];
my $mech = WWW::Mechanize->new;
WWW::Mechanize::TreeBuilder->meta->apply($mech);
for (my $i=0; $i<=1000; $i+=100){
$mech->get($google.$dork."&num=100&start=".$i);
my @links = $mech->links();
for my $link ( @links ) {
my $res = $link->url;
while ($res =~ m/\/url\?q=(.*?)&sa=U&ei=/g) {
my $link = $1;
if ($link !~ /google/){
my $ss = uri_unescape($1);
print $ss."\n";
open(LOG,">>results.txt") || die "Can't open file\n";
print LOG $ss, "\n";
close(LOG);
}
}
}
}
print "Done!!\n";
}
sub usage{
print "[-] GoogleDork.pl <dork>\n";
print "[-] example : GoogleDork.pl index.php?id\n";
die("[!] Usage incorrect !!\n");
}
Download File
How to use :
perl GoogleDork.pl <dork> example : perl GoogleDork.pl index.php?id
No comments :
Post a Comment