send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

MD5 Cracker Ataque por Wordlist

  • 0 Respuestas
  • 1003 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado @ed33x

  • *
  • Underc0der
  • Mensajes: 107
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Enero 27, 2011, 08:46:39 pm »
Código: Perl
  1. #!/usr/bin/perl
  2.  
  3.  
  4.  
  5. use strict;
  6.  
  7. use warnings;
  8.  
  9. use Digest::MD5 You are not allowed to view links. Register or Login(md5_hex);
  10.  
  11.  
  12.  
  13. sub usage(){
  14.  
  15.  
  16.  
  17. You are not allowed to view links. Register or Login "nt******** Splash Md5 cracker! *********nn";
  18.  
  19. You are not allowed to view links. Register or Login "t  Usage: $0 <hash-file> <wordlist>nn";
  20.  
  21. You are not allowed to view links. Register or Login "t**************************************nn";
  22.  
  23.  
  24.  
  25. }
  26.  
  27.  
  28.  
  29. my $hashplace=You are not allowed to view links. Register or Login;
  30.  
  31. my $wlistplace=You are not allowed to view links. Register or Login;
  32.  
  33.  
  34.  
  35. if(!$wlistplace){
  36.  
  37.     usage();
  38.  
  39.     You are not allowed to view links. Register or Login;
  40.  
  41. }
  42.  
  43.     You are not allowed to view links. Register or Login(HASH,$hashplace) || You are not allowed to view links. Register or Login "Could not open hash: $!n";
  44.  
  45.         You are not allowed to view links. Register or Login(my $hash=<HASH>);
  46.  
  47.     You are not allowed to view links. Register or Login(HASH);
  48.  
  49.  
  50.  
  51. if(You are not allowed to view links. Register or Login($hash)!=32){
  52.  
  53.     You are not allowed to view links. Register or Login "t$hash is not a valid md5-hash!n";
  54.  
  55. }
  56.  
  57. if($hash !~ /d|[a-f]{32}/g){
  58.  
  59.     You are not allowed to view links. Register or Login "t$hash is not a valid md5-hash!n";
  60.  
  61. }
  62.  
  63.     You are not allowed to view links. Register or Login(WLIST,$wlistplace) || You are not allowed to view links. Register or Login "Could not open wordlist: $!n";
  64.  
  65.  
  66.  
  67. while(<WLIST>){
  68.  
  69.     You are not allowed to view links. Register or Login($_);
  70.  
  71.     You are not allowed to view links. Register or Login(my $md5=md5_hex($_));
  72.  
  73.     You are not allowed to view links. Register or Login "$md5 != $hashn";
  74.  
  75.     if($md5 eq $hash){
  76.  
  77.         You are not allowed to view links. Register or Login "tHash successfully cracked!nnt$hash == $_nn";
  78.  
  79.     }
  80.  
  81. }
  82.  
  83. You are not allowed to view links. Register or Login(WLIST);
  84.  
  85.  
  86.  
  87. You are not allowed to view links. Register or Login "Hash not found in wordlistn";
« Última modificación: Marzo 14, 2015, 09:51:50 am por Expermicid »
Me cambie de messenger ahora es: edeex@live.comYou are not allowed to view links. Register or Login

 

¿Te gustó el post? COMPARTILO!



[Perl] Pass Cracker By DOddy H

Iniciado por BigBear

Respuestas: 0
Vistas: 796
Último mensaje Julio 03, 2011, 09:48:52 pm
por BigBear
[Perl] Mysql Cracker

Iniciado por BigBear

Respuestas: 0
Vistas: 858
Último mensaje Julio 03, 2011, 10:03:43 pm
por BigBear