/
Google dorkizzler.pl
58 lines (53 loc) · 2.71 KB
/
Google dorkizzler.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
#!/usr/bin/perl
require LWP::UserAgent;
use strict;
my($resultfile,$ua,$quote,$goo,$dork,$page,$url,$pagestart,$response,$con);
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4");
$ua->timeout(30);
sub usage{
print "\n\n########## Usage ##########\n";
print "[!] GoogleDorker.pl <dork> <result dump>\n";
print "[!] GoogleDorker.pl "\powered by phpbb 2.0.12\" results.txt\n\n";
exit;
}
if(@ARGV<2){
&usage;
}
$dork = $ARGV[0];
$resultfile = $ARGV[1];
#Google stuff
$dork =~ s/ /+/g;
$goo = "http://www.google.com.au/search?hl=en&q=";
$pagestart = "&start=";
$url = $goo . $dork . $pagestart;
print "[+] Dork:\t$dork\n[+] Result file:\t$resultfile\n";
request("0");
sub request{
$page = $_[0];
$response = $ua->get($url . $page);
if($response->is_success){
$con = $response->content;
while ($con =~ m/<h2 class=(.*?)><a href=\"(.*?)\" class=(.*?)>/g){
print "[+] Found link $2\n";
open(LOG,">>$resultfile\n");
print LOG "$2\n";
close(LOG);
}
if ($con =~ m/<td nowrap class=b><a href=(.*?)&hl=en&start=(.*?)&sa=N\">/){
#Recursing
print "[+] Another page: $2\n";
request($2)
}
}
else{
if($response->status_line =~ m/403/){
print "[e] Forbidden request\n";
exit;
}
else{
print "[e] Connection error\n";
exit;
}
}
}