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] Search MD5

  • 0 Respuestas
  • 876 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 09:50:07 pm »
Hola a todos

HOy acabo de hacer un crackeador de hash md5 con salto o sin el
En esta version es con ventanas usandos tk

Código: Perl
  1. #Search MD5
  2. #Version : Tk
  3. #Author : Doddy Hackman
  4.  
  5.  
  6. use Tk;
  7. use Digest::MD5;
  8. use Tk::FileSelect;
  9. use Tk::ROText;
  10.  
  11. if ($^O eq 'MSWin32') {
  12. use Win32::Console;
  13. Win32::Console::Free();
  14. }
  15.  
  16. my $w = MainWindow->new(-background=>"black");
  17. $w->title("Search MD5");
  18. $w->geometry("500x200+20+20");
  19. $w->resizable(0,0);
  20. $w->Label(-text=>"Search MD5",-background=>"black",-foreground=>"cyan",-font=>"Impact")->You are not allowed to view links. Register or Login();
  21. $w->Label(-text=>"Hash",-background=>"black",-foreground=>"green")->place(-x =>40, -You are not allowed to view links. Register or Login => 55);
  22. my $hash = $w->Entry(-text=>"30d554c3665c8f204622b2003c77d994",-background=>"black",-foreground=>"green")->place(-x =>90, -You are not allowed to view links. Register or Login => 55);
  23. $w->Label(-text=>"Salt",-background=>"black",-foreground=>"green")->place(-x =>260, -You are not allowed to view links. Register or Login => 55);
  24. my $salt = $w->Entry(-text=>"X",-background=>"black",-foreground=>"green")->place(-x =>290, -You are not allowed to view links. Register or Login => 55);
  25. $w->Label(-text=>"Wordlist",-background=>"black",-foreground=>"green")->place(-x =>40, -You are not allowed to view links. Register or Login => 100);
  26. my $o = $w->Entry(-textvariable=>\$file,-background=>"black",-foreground=>"green")->place(-x =>90, -You are not allowed to view links. Register or Login => 100);
  27. $w->Button(-text=>"Browse",-background=>"black",-foreground=>"red",-activebackground=>"red",-command=>\&oper)->place(-x =>230, -You are not allowed to view links. Register or Login => 100);
  28. $w->Button(-text=>"Crack!",-foreground=>"green",-background=>"black",-command=>\&crack,-activebackground=>"green")->place(-x =>180, -You are not allowed to view links. Register or Login => 160);
  29. $w->Button(-text=>"About",-foreground=>"green",-background=>"black",-command=>\&about,-activebackground=>"green")->place(-x =>240, -You are not allowed to view links. Register or Login => 160);
  30. $w->Button(-text=>"Exit",-foreground=>"green",-background=>"black",-command=>[$w =>'destroy'],-activebackground=>"green")->place(-x =>300, -You are not allowed to view links. Register or Login => 160);
  31.  
  32. sub oper{
  33. $w->update;
  34. $browse = $w->FileSelect(-directory => "/");
  35. my $file = $browse->Show;
  36. $o->configure (-text =>$file);
  37. }
  38.  
  39. sub about {
  40. my $venta = MainWindow->new(-background=>"black");
  41. $venta->geometry("300x180+20+20");
  42. $venta->title("About");
  43. $venta->resizable(0,0);
  44. $venta->Label(-text=>"\nSearch MD5\n\n\nProgrammer : Doddy Hackman\n\nContact : lepuke[at]hotmail[com]\n\n",-background=>"black",-foreground=>"yellow")->You are not allowed to view links. Register or Login();
  45. $venta->Button(-text=>"Exit",-foreground=>"yellow",-background=>"black",-command => [$venta => 'destroy'],-activebackground=>'yellow')->You are not allowed to view links. Register or Login()
  46. }
  47.  
  48. sub crack {
  49. my $hash = $hash->get;
  50. my $salt = $salt->get;
  51. my $wordlist = $o->get;
  52.  
  53. my $console = MainWindow->new(-background=>"black");
  54. $console->title("Status");
  55. $console->resizable(0,0);
  56. $console->geometry("400x320+20+20");
  57. $console->Label(-text=>"Status",-background=>"black",-foreground=>"green",-font=>"Impact")->You are not allowed to view links. Register or Login();
  58. my $box = $console->ROText(-background=>"black",-foreground=>"green",-width=> 45,-height=> 15)->place(-x =>40,-You are not allowed to view links. Register or Login=>50);
  59. $console->Button(-text=>"Exit",-background=>"black",-foreground=>"green",-activebackground=>"green",-command=> [$console => 'destroy'],-width=>"20")->place(-x =>130, -You are not allowed to view links. Register or Login => 280);
  60. if ($salt eq "X") { $salt = "";}
  61. unless (-f $wordlist) { $box->insert('end',"\n\n[-] Wordlist dont exist!\n\n");next;}
  62. if(You are not allowed to view links. Register or Login($hash)==32) {
  63. $box->insert('end',"[Hash] : $hash\n[Salt] : $salt\n[Wordlist] : $wordlist\n\n");
  64. You are not allowed to view links. Register or Login word,$wordlist;
  65. @words = <word>;
  66. You are not allowed to view links. Register or Login word;
  67. for my $pass(@words) {
  68. You are not allowed to view links. Register or Login $pass;
  69. $console->update;
  70. $box->insert('end',"[+] Trying with $pass\n");
  71. $digest = Digest::MD5->md5_hex($pass.$salt);You are not allowed to view links. Register or Login $digest;
  72. if ($digest == $hash) {You are not allowed to view links. Register or Login "\a\a";$box->insert('end',"\n[Hash encoded] : $hash\n[Hash decoded] : $pass\n\n");$ok="1";last;}
  73. }} else { $box->insert('end',"\n\n[-] The hash is incorrect\n\n");next;}
  74. unless ($ok eq "1") {$box->insert('end',"\n\n[-] Sorry , hash not cracked\n\n");next;}}
  75.  
  76. MainLoop;
  77.  
  78.  
  79.  

Si lo quieren descargar desde sourceforge

Código: You are not allowed to view links. Register or Login
https://sourceforge.net/projects/searchmd5x/

« Última modificación: Julio 17, 2011, 03:45:05 am por Sthefano02 »

 

¿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] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 969
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1181
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1473
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d