#!/usr/bin/perl -s
use LWP::UserAgent;
use strict;
use warnings;
use diagnostics;
my @uas = (
 "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4",
 "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.4) Gecko/20070309 Firefox/2.0.0.5",
 "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.2) Gecko/20070309 Firefox/2.0.0.3"
);
$| = 1;
my($logfile,$ua,$page,$url,$response,$con,$results,$dorksfile,@dorks);

$ua = LWP::UserAgent->new;
$ua->timeout(30);

sub usage{
 exit print qq(Usage:
 $0 <dorks file> <logs file> [number of results](optional, defaul=100)
 $0 dorks.txt results.log\n\n);
}

$dorksfile = shift || usage();
$logfile = shift || usage();
$results = shift || 100;

open my $DF, '<', $dorksfile or die "Cant open dorks file $dorksfile: $!\n";
open my $LOG,'>>', $logfile or die "Cant open: $!\n";
foreach(<$DF>)
{
    $_ =~ s/\s+$//go;
    $_ =~ s/\s+|\t+/+/go;
    $_ =~ s/\n|\r//go;
    print "[Searching dork: $_]\n";
    $ua->agent($uas[rand $#uas]);
    dorkie($_);
}
close $DF;

sub dorkie
{
	my $dork = shift;
	$response = $ua->get("http://www.google.com.au/search?hl=en&num=".$results."&q=".$dork."&start=0") or die "Cant get Google's contents: $!\n";
	print $LOG "[Dork: $dork]\n";
	if($response->is_success)
	{
	    $con = $response->content;
	    while ($con =~ m/<h2 class=(.*?)><a href=\"(.*?)\" class=(.*?)>/goi)
	    {
		my $url = $2;
		$url = "http://".$1 if($url =~ m/http:\/\/(.*)\"(.*)/goi);
		print $LOG "$url\n";
		
	    }
	} else 
	{
	    if($response->status_line =~ m/403/)
	    {
		print $LOG "[-] Forbidden\n";
		return 0;
	    } else
	    {
		print $LOG "[-] Cannot connect\n";
		return 0;
	    }
	}
	print $LOG "[End of dork: $dork]\n\n"
}
close($LOG)