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.

[Perl] MD5 Crack 0.2

  • 4 Respuestas
  • 2011 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Junio 16, 2012, 03:23:40 pm »
Simple script para crackear un hash MD5 mediante un diccionario.


Código: Perl
  1. #!usr/bin/perl
  2. #MD5 Crack 0.2
  3. #Coded By Doddy H
  4. #Test with
  5. #098f6bcd4621d373cade4e832627b4f6 : test
  6. #cc03e747a6afbbcbf8be7668acfebee5 : test.123
  7. #1943b8b39ca8df2919faff021e0aca98 : testar
  8. #177dac170d586383bcc889602b2bb788 : testar.123
  9.  
  10. use Digest::MD5 You are not allowed to view links. Register or Login(md5_hex);
  11.  
  12. head();
  13. while (1) {
  14.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  15.  
  16. [++] Options
  17.  
  18. [+] 1 : Crack hash
  19. [+] 2 : Crack hashes
  20.  
  21. );
  22.     You are not allowed to view links. Register or Login "\n[+] Option : ";
  23.     You are not allowed to view links. Register or Login( my $op = <stdin> );
  24.  
  25.     if ( $op eq "1" ) {
  26.         You are not allowed to view links. Register or Login "\n[+] MD5 : ";
  27.         You are not allowed to view links. Register or Login( my $md5 = <stdin> );
  28.         You are not allowed to view links. Register or Login "\n[+] Salt : ";
  29.         You are not allowed to view links. Register or Login( my $salt = <stdin> );
  30.         You are not allowed to view links. Register or Login "\n[+] Wordlist : ";
  31.         You are not allowed to view links. Register or Login( my $wordlist = <stdin> );
  32.         crackhash( $md5, $salt, $wordlist );
  33.     }
  34.     elsif ( $op eq "2" ) {
  35.         You are not allowed to view links. Register or Login "\n[+] File : ";
  36.         You are not allowed to view links. Register or Login( my $md5 = <stdin> );
  37.         You are not allowed to view links. Register or Login "\n[+] Salt : ";
  38.         You are not allowed to view links. Register or Login( my $salt = <stdin> );
  39.         You are not allowed to view links. Register or Login "\n[+] Wordlist : ";
  40.         You are not allowed to view links. Register or Login( my $wordlist = <stdin> );
  41.         crackhashes( $md5, $salt, $wordlist );
  42.     }
  43.     else {
  44.         You are not allowed to view links. Register or Login "\n\n[-] Bad option\n";
  45.     }
  46.  
  47. }
  48. copyright();
  49.  
  50. sub crackhashes {
  51.  
  52.     my ( $file, $salt, $wordlist ) = @_;
  53.     my @hashes = openwordlist($file);
  54.  
  55.     my $formar;
  56.  
  57.     for my $md5 (@hashes) {
  58.         You are not allowed to view links. Register or Login $md5;
  59.         my $formar = $md5;
  60.  
  61.         if ( ver_length($md5) ) {
  62.  
  63.             my @words = openwordlist($wordlist);
  64.  
  65.             You are not allowed to view links. Register or Login "[+] Cracking ....\n\n";
  66.  
  67.             for my $word (@words) {
  68.                 You are not allowed to view links. Register or Login $word;
  69.  
  70.                 my $formardos;
  71.  
  72.                 if ( $salt eq "" ) {
  73.                     $formardos = md5_hex($word);
  74.                 }
  75.                 else {
  76.                     $formardos = md5_hex( $word . $salt );
  77.  
  78.                 }
  79.  
  80.                 if ( $formar eq $formardos ) {
  81.                     You are not allowed to view links. Register or Login "\n\a[+] Cracked : " . $formar . ":" . $word . "\n";
  82.                     savefile( "md5-found.txt", $formar . ":" . $word );
  83.                     last;
  84.                 }
  85.                 else {
  86.                     You are not allowed to view links. Register or Login $formar. " =! " . $formardos . "\n";
  87.                 }
  88.             }
  89.         }
  90.         else {
  91.             You are not allowed to view links. Register or Login "\n[-] Hash invalid";
  92.             last;
  93.         }
  94.     }
  95. }
  96.  
  97. sub crackhash {
  98.  
  99.     my ( $md5, $salt, $wordlist ) = @_;
  100.     my $formar = $md5;
  101.  
  102.     if ( ver_length($md5) ) {
  103.  
  104.         my @words = openwordlist($wordlist);
  105.  
  106.         You are not allowed to view links. Register or Login "[+] Cracking ....\n\n";
  107.  
  108.         for my $word (@words) {
  109.             You are not allowed to view links. Register or Login $word;
  110.  
  111.             my $formardos;
  112.  
  113.             if ( $salt eq "" ) {
  114.                 $formardos = md5_hex($word);
  115.             }
  116.             else {
  117.                 $formardos = md5_hex( $word . $salt );
  118.             }
  119.  
  120.             if ( $formar eq $formardos ) {
  121.                 You are not allowed to view links. Register or Login "\n\a[+] Cracked : " . $formar . ":" . $word . "\n";
  122.                 savefile( "md5-found.txt", $formar . ":" . $word );
  123.                 copyright();
  124.             }
  125.             else {
  126.                 You are not allowed to view links. Register or Login $formar. " =! " . $formardos . "\n";
  127.             }
  128.         }
  129.  
  130.     }
  131.     else {
  132.         You are not allowed to view links. Register or Login "\n[-] Hash invalid";
  133.     }
  134.  
  135. }
  136.  
  137. sub ver_length {
  138.     You are not allowed to view links. Register or Login true if You are not allowed to view links. Register or Login( $_[0] ) == 32;
  139. }
  140.  
  141. sub openwordlist {
  142.  
  143.     my ( $file, $tipo ) = @_;
  144.  
  145.     You are not allowed to view links. Register or Login "\n[+] Opening file\n\n";
  146.  
  147.     unless ( -f $file ) {
  148.         You are not allowed to view links. Register or Login "\n[-] File not found\n";
  149.         copyright();
  150.     }
  151.  
  152.     You are not allowed to view links. Register or Login( FILE, $file );
  153.     my @words = <FILE>;
  154.     You are not allowed to view links. Register or Login FILE;
  155.  
  156.     You are not allowed to view links. Register or Login "[+] Words Found : " . You are not allowed to view links. Register or Login(@words) . "\n\n";
  157.  
  158.     You are not allowed to view links. Register or Login @words;
  159.  
  160. }
  161.  
  162. sub repes {
  163.     my @limpio;
  164.     foreach $test (@_) {
  165.         You are not allowed to view links. Register or Login @limpio, $test unless $repe{$test}++;
  166.     }
  167.     You are not allowed to view links. Register or Login @limpio;
  168. }
  169.  
  170. sub savefile {
  171.     You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  172.     You are not allowed to view links. Register or Login SAVE $_[1] . "\n";
  173.     You are not allowed to view links. Register or Login SAVE;
  174. }
  175.  
  176. sub head {
  177.     You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  178.  
  179.  
  180.  @     @  @@@@    @@@@@     @@@@  @@@@@     @     @@@@  @   @
  181.  @     @  @   @   @        @    @ @    @    @    @    @ @  @  
  182.  @@   @@  @    @  @        @      @    @   @ @   @      @ @  
  183.  @@   @@  @    @  @@@@     @      @    @   @ @   @      @@    
  184.  @ @ @ @  @    @  @   @    @      @@@@@   @   @  @      @@    
  185.  @ @ @ @  @    @      @    @      @    @  @   @  @      @ @  
  186.  @  @  @  @    @      @    @      @    @  @@@@@  @      @  @  
  187.  @  @  @  @   @   @   @    @    @ @    @ @     @ @    @ @   @
  188.  @     @  @@@@     @@@      @@@@  @    @ @     @  @@@@  @    @
  189.  
  190.  
  191.  
  192. );
  193. }
  194.  
  195. sub copyright {
  196.     You are not allowed to view links. Register or Login "\n\n-- == (C) Doddy Hackman 2012\n\n";
  197.     <stdin>;
  198.     You are not allowed to view links. Register or Login(1);
  199. }
  200.  
  201. #The End ?
  202.  
« Última modificación: Junio 16, 2012, 03:46:09 pm por ANTRAX »

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5267
  • Actividad:
    48.33%
  • Reputación 26
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Junio 16, 2012, 03:30:54 pm »
Que bien man! Genial aporte!
El archivo con las passwords debe llamarse wordlist?


Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #2 en: Junio 16, 2012, 03:39:15 pm »
el wordlist puede llamarse con cualquier nombre.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5267
  • Actividad:
    48.33%
  • Reputación 26
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #3 en: Junio 16, 2012, 03:43:28 pm »
Pero segun tu script, debe llamarse wordlist?


Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #4 en: Junio 16, 2012, 03:53:38 pm »
no , $wordlist es el nombre de una variable.

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2854
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1013
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1266
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1181
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear