./c0de/perl/googsearch.txt

0.
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.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
#!/usr/bin/perl
#Google Search  Tool .
#sh0utz: oTo + #slotin + #bhf @ irc.bluehell.org  - we 0wn your f4ce! ;p
#Written by dni
#much thanks to TuXeD & Syn4ps3 for their help ;)
 
use LWP::UserAgent;
 
@google = ("www.google.com","www.google.ae","www.google.at","www.google.be","www.google.ca","www.google.ch","www.google.cl","www.google.co.cr","www.google.co.hu","www.google.co.il","www.google.co.jp","www.google.co.kr","www.google.co.nz","www.google.co.th","www.google.co.uk","www.google.co.ve","www.google.com.ar","www.google.com.au","www.google.com.br","www.google.com.gr","www.google.com.hk","www.google.com.mx","www.google.com.ni","www.google.com.pa","www.google.com.pe","www.google.com.pr","www.google.com.py","www.google.com.ru","www.google.com.sg","www.google.com.tj","www.google.com.tr","www.google.com.tw","www.google.com.ua","www.google.com.uy","www.google.de","www.google.dk","www.google.es","www.google.fi","www.google.fr","www.google.gl","www.google.ie","www.google.it","www.google.kz","www.google.lv","www.google.nl","www.google.pl","www.google.uz");
 
@google2 = ("(U.S)","(Emiratos Arabes)","(Austria)","(Belgica)","(Canada)","(Suiza)","(Chile)","(Costa Rica)","(Hungria)","(Israel)","(Japon)","(Corea)","(Nueva Zelanda)","(Tailandia)","(Reino Unido)","(Venezuela)","(Argentina)","(Australia)","(Brasil)","(Grecia)","(Hong Kong)","(Mexico)","(Nicaragua)","(Panama)","(Peru)","(Puerto Rico)","(Paraguay)","(Rusia)","(Singapur)","(Tajikistan)","(Turquia)","(Taiwan)","(Ucrania)","(Uruguay)","(Alemania)","(Dinamarca)","(Espana)","(Finlandia)","(Francia)","(Groelandia)","(Irlanda)","(Italia)","(Kazajistan)","(Letonia)","(Holanda)","(Polonia)","(Uzbekistan)");
 
 
if(!$ARGV[0])
{
        print "Usage: perl d0rk.pl <query> <google-search> \n";
        print "perl $0 \"Powered by your mom\" www.google.nl\n";
        print "Now you must enter your query: ";
        $param0=<STDIN>;
}
if(!$ARGV[1]) {
        print "perl $0 <query> <google-host>\n";
        print "perl $0 \"Powered by your mom\" www.google.nl\n";
        print "Stand by for a list of google engines:..\n";
        $i=0;
        while ($i < scalar(@google))
        {
                printf "$i. %-15s %-15s   ", $google[$i],  $google2[$i];
                $m = ($i+1) % 3;
                if ($m == 0 && $i != 0) { print "\n";}
                $i++;               
        }
 
print "\nJust press the number of the Search Engine you are going to use and then press ENTER: ";
$aux=<STDIN>;
$param1 = $google[$aux];
}
else
{
     $param1 = $ARGV[1];
}
 
if ($ARGV[0]) { $param0 = $ARGV[0];}
$query = $param0;
print "Searching $param1 for: $query\n";
sleep 2;
$counter = 0;
$ua = new LWP::UserAgent;
$ua->timeout(30);
$ua->agent(" Mozilla/5.0 (0wn3d; U; PPC Sik OS XXX Mach-O; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0");
$a=0;
 
while($results !~ /results/) {
$url = "http://$param1/search?q=\"$query\"&hl=id&lr=&start=$a&sa=N";
$response = $ua->get($url);
$counter=$counter+10;
if(!($response->is_success)) {
        print ($response->status_line. "     Error! \n"); }
else {
        @results = $response->as_string;
        $results= "@results";
 
while($results =~ m/<a class=l href=\"(.*?)\">.*?<\/a>/g)
{
 
        $results1 =~ s/<a class=l href=\"(.*?)\"> .*?<\/a>/$1/;
        $host =$1;
        print "$host\n";
        open (OUT, ">>scan_results.txt");
        print OUT "$host\n";
        close(OUT);
}
 
$a = $a + 10;
     }
 
}
 
print "Results saved to scan_results.txt\n";

Back