#Home
|
#Search
|
#IRC(
WEB
/
Client
)
|
#MD5 Cracker
|
#Categories
|
#Links
|
#About
Mail Crawler
#!/usr/bin/perl # emailzz.pl by TheLeader # Searches google and gathers e-mail adresses from search results # Credit to Sro for the idea and the inspiration.. keep it up dude ^^ # http://forums.hacking.org.il/viewtopic.php?p=49414#49414 # When patterns are broken, new worlds emerge ~Tuli Kupferberg # DISCALIMER: # Using this script may violate Google's Terms of Service. # I take no responsibility of the damage that may be caused from the usage of this script. # Use at your own risk. $|++; use LWP::UserAgent; print "\n\n [*] AnOtHer FiNE ReLeaSe bY TheLeader.. gotta love myself =D\n" . " [*] emailzz.pl initialized\n"; my @dorks = ("\@gmail.com", "\@hotmail.com", "\@mail.ru", "\@walla.com", "\@live.com", "\@windowslive.com", "\@yahoo.com", "\@yahoomail.com", "\@ymail.com"); my $sleep_time = 3; my $res; my $line; my %emails; print " [*] Checking for previous results.txt.. "; if (-e "results.txt") { print "Found!\n". " [*] Loading addresses from file.. "; open FILE, "<results.txt"; while ($line = <FILE>) { chomp ($line); $emails{$line} = 1; } close FILE; print "Completed\n"; } else { print "Not found\n"; } print " [*] Initializing agent.. "; my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 6.1; he; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)"); print "OK\n"; foreach $dork(@dorks) { print " [*] dork: $dork\n"; $res = ""; for ($i = 0; $i <= 900; $i += 100) { print " [*] Retrieving results - " . (($i + 100) / 10) . "%\n"; sleep($sleep_time); $res = $ua->get("http://www.google.co.il/search?q=$dork&start=$i&num=100&sa=N&filter=0")->content; $res =~ s/<em>//g; while ($res =~ m/[a-zA-Z0-9\-\.]+@[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,4}/g) { $emails{$&} = 1; } } } print " [*] Total emails: " . (scalar keys %emails) . "\n" . " [*] Writing results to results.txt\n"; open FILE, ">results.txt"; print FILE join("\n", keys %emails); close FILE;
Back
Send all submissions to nullbyte.israel[at]gmail.com
Copyright © 2009 - 2010 | Queries: 4