3. [Perl Tk] MD5 Crack Tool
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl Tk] MD5 Crack Tool

  • 0 Respuestas
  • 1200 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl Tk] MD5 Crack Tool

« en: Agosto 19, 2011, 11:28:03 pm »
Este es un simple crackeador de hashes MD5 en su nueva version grafica

Una imagen





El codigo es

Código: Perl
  1. #!usr/bin/perl
  2. #MD5 Crack T00l (C) Doddy Hackman 2011
  3.  
  4. use Tk;
  5. use Tk::FileSelect;
  6. use Tk::PNG;
  7. use LWP::UserAgent;
  8.  
  9.  
  10. if ($^O eq 'MSWin32') {
  11. use Win32::Console;
  12. Win32::Console::Free();
  13. }
  14.  
  15. my $nave = LWP::UserAgent->new;
  16. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  17. $nave->timeout(5);
  18.  
  19. my $logo = MainWindow->new(-background=>"black",-foreground=>"cyan");
  20. $logo->title("MD5 Crack T00l");
  21. $logo->geometry("700x300+20+20");
  22. $logo->resizable(0,0);
  23.  
  24. my $in = $logo->Photo(-file=>"total.png",-format=>"PNG");
  25. $logo->Label(-image=>$in,-borderwidth=>0)->pack();
  26.  
  27.  
  28. $logo->Label(-text=>"Options",-font=>"Impact1",-background=>"black",-foreground=>"cyan")->place(-x=>320,-y=>200);
  29. $logo->Button(-text=>"Crack HAsh",-width=>20,-command=>\&single,-background=>"black",-foreground=>"cyan",-activebackground=>"cyan")->place(-y=>250,-x=>70);
  30. $logo->Button(-text=>"Crack Wordlist",-width=>20,-command=>\&word,-background=>"black",-foreground=>"cyan",-activebackground=>"cyan")->place(-y=>250,-x=>210);
  31. $logo->Button(-text=>"About",-width=>20,-command=>\&abot,-background=>"black",-foreground=>"cyan",-activebackground=>"cyan")->place(-y=>250,-x=>350);
  32. $logo->Button(-text=>"Exit",-width=>20,-command=>\&chali,-background=>"black",-foreground=>"cyan",-activebackground=>"cyan")->place(-y=>250,-x=>490);
  33.  
  34.  
  35. MainLoop;
  36.  
  37.  
  38. sub abot {
  39. msg("About","Coded By Doddy H");
  40. }
  41.  
  42. sub chali {exit(1);}
  43.  
  44. sub single {
  45.  
  46. my $sin = MainWindow->new(-background=>"black");
  47. $sin->title("MD5 Crack T00l (C) Doddy Hackman 2011");
  48. $sin->geometry("650x80+20+20");
  49. $sin->resizable(0,0);
  50.  
  51. $sin->Label(-text=>"MD5 : ",-font=>"Impact1",-background=>"black",-foreground=>"cyan")->place(-x=>30,-y=>20);
  52. my $hash = $sin->Entry(-width=>32,-background=>"black",-foreground=>"cyan")->place(-y=>24,-x=>82);
  53. $sin->Label(-text=>"Result : ",-font=>"Impact1",-background=>"black",-foreground=>"cyan")->place(-x=>290,-y=>20);
  54. my $result = $sin->Entry(-width=>32,-background=>"black",-foreground=>"cyan")->place(-y=>24,-x=>350);
  55. $sin->Button(-text=>"Crack",-command=>\&cracksingle,-width=>12,-background=>"black",-foreground=>"cyan",-activebackground=>"cyan")->place(-y=>22,-x=>555);
  56.  
  57. sub cracksingle {
  58. my $target = $hash->get();
  59. chomp $target;
  60.  
  61. if (ver_length($target)) {
  62.  
  63. $re = crackit($target);
  64.  
  65. if ($re ne "false01") {
  66. $result->configure (-text =>$re);
  67. } else {
  68. $result->configure (-text =>"Not Found");
  69. }
  70. } else {
  71. msg("MD5 Crack T00l","Hash incorrect");
  72. }
  73. }
  74. }
  75.  
  76. sub word {
  77.  
  78. my $more = MainWindow->new(-background=>"black",-foreground=>"cyan");
  79. $more->title("MD5 Crack T00l (C) Doddy Hackman 2011");
  80. $more->geometry("450x280+50+50");
  81. $more->resizable(0,0);
  82.  
  83. $more->Label(-text=>"File : ",-font=>"Impact1",-background=>"black",-foreground=>"cyan")->place(-y=>10,-x=>10);
  84. my $filex = $more->Entry(-width=>40,-background=>"black",-foreground=>"cyan")->place(-y=>13,-x=>50);
  85. $more->Button(-text=>"Crack",-width=>10,-command=>\&crackmulti,-background=>"black",-foreground=>"cyan",-activebackground=>"cyan")->place(-y=>12,-x=>300);
  86. $more->Button(-text=>"Browse",-width=>10,-command=>\&bro,-background=>"black",-foreground=>"cyan",-activebackground=>"cyan")->place(-x=>370,-y=>12);
  87.  
  88. $more->Label(-text=>"MD5",-background=>"black",-foreground=>"cyan")->place(-y=>70,-x=>65);
  89. my $hashes = $more->Listbox(-width=>32,-background=>"black",-foreground=>"cyan")->place(-y=>100,-x=>20);
  90.  
  91. $more->Label(-text=>"Result",-background=>"black",-foreground=>"cyan")->place(-y=>70,-x=>300);
  92. my $resultados = $more->Listbox(-width=>32,-background=>"black",-foreground=>"cyan")->place(-y=>100,-x=>230);
  93.  
  94.  
  95. sub bro {
  96. $more->update;
  97. $browse = $more->FileSelect(-directory => "/");
  98. my $file = $browse->Show;
  99. $filex->configure (-text =>$file);
  100. }
  101.  
  102. sub crackmulti {
  103.  
  104. $hashes->delete(0.0,"end");
  105. $resultados->delete(0.0,"end");
  106.  
  107. my $archivo = $filex->get();
  108.  
  109. open(FILE,$archivo);
  110. @leer = <FILE>;
  111. close FILE;
  112.  
  113. chomp @leer;
  114.  
  115. my @leera = repes(@leer);
  116.  
  117. for my $poco(@leera) {
  118. chomp $poco;
  119. if (ver_length($poco)) {
  120. $hashes->insert("end",$poco);
  121. $re = crackit($poco);
  122. if ($re ne "false01") {
  123. $resultados->insert("end",$re);
  124. } else {
  125. $resultados->insert("end","Not Found");
  126. }
  127. }
  128. }
  129. sub repes {
  130. foreach $test(@_) {
  131. push @limpio,$test unless $repe{$test}++;
  132. }
  133. return @limpio;
  134. }
  135. }
  136. }
  137.  
  138. sub crackit {
  139.  
  140. my %hash = (
  141.    
  142. 'http://passcracking.com/' => {
  143. 'tipo'  => 'post',
  144. 'variables'=>'{"datafromuser" => $_[0], "submit" => "DoIT"}',
  145. 'regex'=>'<\/td><td>md5 Database<\/td><td>$_[0]<\/td><td bgcolor=#FF0000>(.*)<\/td><td>',
  146. },  
  147. 'http://md5.hashcracking.com/search.php?md5=' =>  {
  148. 'tipo' => 'get',
  149. 'regex' => 'Cleartext of $_[0] is (.*)',
  150. },
  151. 'http://www.bigtrapeze.com/md5/' =>  {
  152. 'tipo' => 'post',
  153. 'variables'=>'{"query" => $_[0], "submit" => " Crack "}',
  154. 'regex' => 'The hash <strong>$_[0]<\/strong> has been deciphered to: <strong>(.+)<\/strong>',
  155. },
  156. 'http://opencrack.hashkiller.com/' =>  {
  157. 'tipo' => 'post',
  158. 'variables'=>'{"oc_check_md5" => $_[0], "submit" => "Search MD5"}',
  159. 'regex' => qq(<\/div><div class="result">$_[0]:(.+)<br\/>),
  160. },
  161. 'http://www.hashchecker.com/index.php?_sls=search_hash' =>  {
  162. 'tipo' => 'post',
  163. 'variables'=>'{"search_field" => $_[0], "Submit" => "search"}',
  164. 'regex' => '<td><li>Your md5 hash is :<br><li>$_[0] is <b>(.*)<\/b> used charl',
  165. },
  166. 'http://victorov.su/md5/?md5e=&md5d=' =>  {
  167. 'tipo' => 'get',
  168. 'regex' => qq(MD5 ðàñøèôðîâàí: <b>(.*)<\/b><br><form action=\"\">),
  169. }
  170. );
  171.  
  172. for my $data(keys %hash) {
  173. $logo->update; #
  174. if ($hash{$data}{tipo} eq "get") {
  175. $code = toma($data.$_[0]);
  176. if ($code=~/$hash{$data}{regex}/ig) {
  177. savefile("hashes-found.txt",$_[0].":".$1);
  178. return $1;
  179. }
  180. } else {
  181. $code = tomar($data,$hash{$data}{variables});
  182. if ($code=~/$hash{$data}{regex}/ig) {
  183. savefile("hashes-found.txt",$_[0].":".$1);
  184. return $1;
  185. }
  186. }
  187. }
  188. return "false01";
  189. }
  190.  
  191.  
  192.  
  193. sub msg {
  194. my $color_fondo = "black"; #white
  195. my $color_letra = "cyan"; #black
  196. my ($titulo,$contenido) = @_;
  197. my $mensaje = MainWindow->new(-background=>$color_fondo,-foreground=>$color_letra);$mensaje->title($titulo);
  198. $mensaje->geometry("200x50+20+20");
  199. $mensaje->resizable(0,0);
  200. $mensaje->Label(-text=>$contenido,-font=>"Impact1",-background=>$color_fondo,-foreground=>$color_letra)->place(-y=>15,-x=>20);
  201. }
  202.  
  203. sub ver_length {
  204. return true if length($_[0]) == 32;
  205. }
  206.  
  207. sub toma {
  208. return $nave->get($_[0])->content;
  209. }
  210.  
  211. sub savefile {
  212. open (SAVE,">>logs/".$_[0]);
  213. print SAVE $_[1]."\n";
  214. close SAVE;
  215. }
  216.  
  217. sub tomar {
  218. my ($web,$var) = @_;
  219. return $nave->post($web,[%{$var}])->content;
  220. }
  221.  
  222. # ¿ The End ?
  223.  

Para bajar el script con el logo lo pueden hacer de aca

Código: [Seleccionar]
http://doddyhackman.webcindario.com/descargas/findpass.rar
« Última modificación: Marzo 14, 2015, 10:15:07 am por Expermicid »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 3562 		Ú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: 1765 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

 Respuestas: 0
Vistas: 1317 		Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

 Respuestas: 0
Vistas: 1395 		Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

 Respuestas: 0
Vistas: 1598 		Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX