Simple tool to grab results from Google and stick them in a file. Has a feature to restrict by domain.
57dc189500c14bbce4e8eeb05b395c90b095135b46b473dd691271aa63115529
#!/usr/bin/perl
#For a search string enter everyting you want just dont enter "site:domain"
#With a little modification this could be made a web application worm
use IO::Socket;
use Tk;
@domain = ("ar","au","aw","ax","az","bg","ba","bb","bd","be","bf","bh","bi","bj","bm","bn","bo","br","bs","bt","bv","bw","by","bz","ca","cc","cd","cf","cg","ch","ci","ck" , "cl", "cm","cn","co","cr","com","cs","cu", "cv","cx","cy","cz","de","dj","dk","dm","do","dz", "ec","ee","eg","eh","er","es","et","fi","fj","fk","fm", "fo","fr","ga","gb","gd","ge","gf","gg","info","biz","gh","gi","gl", "gm","gn","gov","gp","gq","gr","gs","gt","gu","gw","gy","hk", "hm","hn","hr","ht","hu","id","ie","il","im","in","io","iq", "ir","is","it","je","jm","jo","jp","ke","kg","kh","ki","km", "kn","kp","kr","kw","ky","kz","la","lb","lc","li","lk","lr","ls", "lt","lu","lv","ly","ma","mc","md","mil","mg","mh","mk","ml","mm", "mn","mo","mp","mq","mr","ms","mt","mu","mv","mw","mx","my", "mz","na","nc","ne","net","nf","ng","ni","nl","no","np","org","nr","nu","nz","om", "pa","pe","pf","pg","ph","pk","pl","pm","pn","pr","ps","pt","pw","py", "qa","re","ro","ru","rw","sa","sb","sc","sd","ka","se","sg","sh","si","sj","sk","sl", "sm","sn","so","sr","st","sv","sy","sz","tc","td","tf","tg","th","tj","tk","tl","tm", "tn","to","tp","tr","tt","tv","tw","tz","ua","ug","uk","um","us","uy","uz","va","vc","ve","vg","vi","vn", "vu","wf","ws","ye","yt","yu","za","zm","zw");
foreach $domain (@domain){
chomp($domain);
}
$|=1;
my $main = MainWindow->new();
$main->title("g00gle Advanced");
$main->geometry("270x100");
$main->Label(-text => "\nSearch:") -> pack ;
$search = $main->Entry(-width,23)->pack();
my $text = 'By matrix_killer and JohnnyButterkeks';
my $button = $main->Button(-text => 'Start', -command => \&google)->pack(-side => 'top');
my $label = $main->Label(-textvariable => \$text)->pack(-side => 'bottom');
MainLoop();
sub google {
$search = $search ->get() ;
for ($n=0; $n < 900; $n++){
$sock = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "www.google.com", PeerPort => "80") || sleep(0);
print $sock "GET /ie?q=$search+site:$domain&hl=bg&lr=&start=$n&sa=N HTTP/1.0\nHost: www.google.com\nConnection: close\n\n";
while ($foo = <$sock>) {
if ($foo =~ /href=(http:\/\/\S+)/gi) {
$save = $1;
$save =~ s/(http:\/\/toolbar.google.com)//eg;
$save =~ s/>\S+//g;
print "\n$save";
open (foo, ">>links.txt");
print foo "\n$save";
}}}}