comment
IRC Chat
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 Tk] MD5 Crack T00l

  • 0 Respuestas
  • 1063 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 10:01:44 pm »
Un programita para crackear una o varias hashes md5

Imagenes









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 LWP::UserAgent;
  7. use Win32;
  8.  
  9. if ($^O eq 'MSWin32') {
  10. use Win32::Console;
  11. Win32::Console::Free();
  12. }
  13.  
  14. my $nave = LWP::UserAgent->new;
  15. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  16. $nave->timeout(5);
  17.  
  18. my $logo = MainWindow->new();
  19. $logo->title("MD5 Crack T00l");
  20. $logo->geometry("300x100+20+20");
  21. $logo->resizable(0,0);
  22. $logo->Label(-text=>"Options",-font=>"Impact1")->place(-x=>110,-You are not allowed to view links. Register or Login=>10);
  23. $logo->Button(-text=>"Crack HAsh",-width=>20,-command=>\&single)->place(-You are not allowed to view links. Register or Login=>50,-x=>10);
  24. $logo->Button(-text=>"Crack Wordlist",-width=>20,-command=>\&word)->place(-You are not allowed to view links. Register or Login=>50,-x=>150);
  25.  
  26. MainLoop;
  27.  
  28.  
  29. sub single {
  30.  
  31. my $sin = MainWindow->new();
  32. $sin->title("MD5 Crack T00l (C) Doddy Hackman 2011");
  33. $sin->geometry("650x80+20+20");
  34. $sin->resizable(0,0);
  35.  
  36. $sin->Label(-text=>"MD5 : ",-font=>"Impact1")->place(-x=>30,-You are not allowed to view links. Register or Login=>20);
  37. my $hash = $sin->Entry(-width=>32)->place(-You are not allowed to view links. Register or Login=>24,-x=>82);
  38. $sin->Label(-text=>"Result : ",-font=>"Impact1")->place(-x=>290,-You are not allowed to view links. Register or Login=>20);
  39. my $result = $sin->Entry(-width=>32)->place(-You are not allowed to view links. Register or Login=>24,-x=>350);
  40. $sin->Button(-text=>"Crack",-command=>\&cracksingle,-width=>12)->place(-You are not allowed to view links. Register or Login=>22,-x=>555);
  41.  
  42. sub cracksingle {
  43. my $target = $hash->get();
  44. You are not allowed to view links. Register or Login $target;
  45.  
  46. if (ver_length($target)) {
  47.  
  48. $re = crackit($target);
  49.  
  50. if ($re ne "false01") {
  51. $result->configure (-text =>$re);
  52. } else {
  53. $result->configure (-text =>"Not Found");
  54. }
  55. } else {
  56. Win32::MsgBox("Eso no es un hash",0,"MD5 Crack T00l");
  57. }
  58. }
  59. }
  60.  
  61. sub word {
  62.  
  63. my $more = MainWindow->new();
  64. $more->title("MD5 Crack T00l (C) Doddy Hackman 2011");
  65. $more->geometry("450x280+50+50");
  66. $more->resizable(0,0);
  67.  
  68. $more->Label(-text=>"File : ",-font=>"Impact1")->place(-You are not allowed to view links. Register or Login=>10,-x=>10);
  69. my $filex = $more->Entry(-width=>40)->place(-You are not allowed to view links. Register or Login=>13,-x=>50);
  70. $more->Button(-text=>"Crack",-width=>10,-command=>\&crackmulti)->place(-You are not allowed to view links. Register or Login=>12,-x=>300);
  71. $more->Button(-text=>"Browse",-width=>10,-command=>\&bro)->place(-x=>370,-You are not allowed to view links. Register or Login=>12);
  72.  
  73. $more->Label(-text=>"MD5")->place(-You are not allowed to view links. Register or Login=>70,-x=>65);
  74. my $hashes = $more->Listbox(-width=>32)->place(-You are not allowed to view links. Register or Login=>100,-x=>20);
  75.  
  76. $more->Label(-text=>"Result")->place(-You are not allowed to view links. Register or Login=>70,-x=>300);
  77. my $resultados = $more->Listbox(-width=>32)->place(-You are not allowed to view links. Register or Login=>100,-x=>230);
  78.  
  79.  
  80. sub bro {
  81. $more->update;
  82. $browse = $more->FileSelect(-directory => "/");
  83. my $file = $browse->Show;
  84. $filex->configure (-text =>$file);
  85. }
  86.  
  87. sub crackmulti {
  88.  
  89. $hashes->You are not allowed to view links. Register or Login(0.0,"end");
  90. $resultados->You are not allowed to view links. Register or Login(0.0,"end");
  91.  
  92. my $archivo = $filex->get();
  93.  
  94. You are not allowed to view links. Register or Login(FILE,$archivo);
  95. @leer = <FILE>;
  96. You are not allowed to view links. Register or Login FILE;
  97.  
  98. You are not allowed to view links. Register or Login @leer;
  99.  
  100. my @leera = repes(@leer);
  101.  
  102. for my $poco(@leera) {
  103. You are not allowed to view links. Register or Login $poco;
  104. if (ver_length($poco)) {
  105. $hashes->insert("end",$poco);
  106. $re = crackit($poco);
  107. if ($re ne "false01") {
  108. $resultados->insert("end",$re);
  109. } else {
  110. $resultados->insert("end","Not Found");
  111. }
  112. }
  113. }
  114. sub repes {
  115. foreach $test(@_) {
  116. You are not allowed to view links. Register or Login @limpio,$test unless $repe{$test}++;
  117. }
  118. You are not allowed to view links. Register or Login @limpio;
  119. }
  120. }
  121. }
  122.  
  123. sub crackit {
  124.  
  125. my %hash = (
  126.    
  127. 'http://passcracking.com/' => {
  128. 'tipo'  => 'post',
  129. 'variables'=>'{"datafromuser" => $_[0], "submit" => "DoIT"}',
  130. 'regex'=>'<\/td><td>md5 Database<\/td><td>$_[0]<\/td><td bgcolor=#FF0000>(.*)<\/td><td>',
  131. },  
  132. 'http://md5.hashcracking.com/search.php?md5=' =>  {
  133. 'tipo' => 'get',
  134. 'regex' => 'Cleartext of $_[0] is (.*)',
  135. },
  136. 'http://www.bigtrapeze.com/md5/' =>  {
  137. 'tipo' => 'post',
  138. 'variables'=>'{"query" => $_[0], "submit" => " Crack "}',
  139. 'regex' => 'The hash <strong>$_[0]<\/strong> has been deciphered to: <strong>(.+)<\/strong>',
  140. },
  141. 'http://opencrack.hashkiller.com/' =>  {
  142. 'tipo' => 'post',
  143. 'variables'=>'{"oc_check_md5" => $_[0], "submit" => "Search MD5"}',
  144. 'regex' => You are not allowed to view links. Register or Login(<\/div><div class="result">$_[0]:(.+)<br\/>),
  145. },
  146. 'http://www.hashchecker.com/index.php?_sls=search_hash' =>  {
  147. 'tipo' => 'post',
  148. 'variables'=>'{"search_field" => $_[0], "Submit" => "search"}',
  149. 'regex' => '<td><li>Your md5 hash is :<br><li>$_[0] is <b>(.*)<\/b> used charl',
  150. },
  151. 'http://victorov.su/md5/?md5e=&md5d=' =>  {
  152. 'tipo' => 'get',
  153. 'regex' => You are not allowed to view links. Register or Login(MD5 ðàñøèôðîâàí: <b>(.*)<\/b><br><form action=\"\">),
  154. }
  155. );
  156.  
  157. for my $data(keys %hash) {
  158. $logo->update; #
  159. if ($hash{$data}{tipo} eq "get") {
  160. $code = toma($data.$_[0]);
  161. if ($code=~/$hash{$data}{regex}/ig) {
  162. savefile("hashes-found.txt",$_[0].":".$1);
  163. return $1;
  164. }
  165. } else {
  166. $code = tomar($data,$hash{$data}{variables});
  167. if ($code=~/$hash{$data}{regex}/ig) {
  168. savefile("hashes-found.txt",$_[0].":".$1);
  169. return $1;
  170. }
  171. }
  172. }
  173. return "false01";
  174. }
  175.  
  176. sub ver_length {
  177. return true if length($_[0]) == 32;
  178. }
  179.  
  180. sub toma {
  181. return $nave->get($_[0])->content;
  182. }
  183.  
  184. sub savefile {
  185. open (SAVE,">>logs/".$_[0]);
  186. print SAVE $_[1]."\n";
  187. close SAVE;
  188. }
  189.  
  190. sub tomar {
  191. my ($web,$var) = @_;
  192. return $nave->post($web,[%{$var}])->content;
  193. }
  194.  
  195. # ¿ The End ?
  196.  
« Última modificación: Julio 17, 2011, 03:42:54 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3007
Ú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: 1411
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1551
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1100
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear