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] Pass Cracker By DOddy H

  • 0 Respuestas
  • 906 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, 09:48:52 pm »
Hola , aca les dejo un simple programa para buscar la decodificacion de un hash md5

Código: Perl
  1. #!usr/bin/perl
  2. #Pass Cracker 1.0
  3. #(C) Doddy Hackman 2011
  4.  
  5. use LWP::UserAgent;
  6.  
  7. my $nave = LWP::UserAgent->new;
  8. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  9. $nave->timeout(5);
  10.  
  11. head();
  12. unless($ARGV[0]) {
  13. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] sintax : $0 <hash>\n\n";
  14. } else {
  15. crackit($ARGV[0]);
  16. }
  17. copyright();
  18.  
  19. sub crackit {
  20.  
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Cracking $_[0]\n\n";
  22.  
  23. my %hash = (
  24.    
  25. 'http://passcracking.com/' => {
  26. 'tipo'  => 'post',
  27. 'variables'=>'{"datafromuser" => $_[0], "submit" => "DoIT"}',
  28. 'regex'=>'<\/td><td>md5 Database<\/td><td>$_[0]<\/td><td bgcolor=#FF0000>(.*)<\/td><td>',
  29. },  
  30. 'http://md5.hashcracking.com/search.php?md5=' =>  {
  31. 'tipo' => 'get',
  32. 'regex' => 'Cleartext of $_[0] is (.*)',
  33. },
  34. 'http://www.bigtrapeze.com/md5/' =>  {
  35. 'tipo' => 'post',
  36. 'variables'=>'{"query" => $_[0], "submit" => " Crack "}',
  37. 'regex' => 'The hash <strong>$_[0]<\/strong> has been deciphered to: <strong>(.+)<\/strong>',
  38. },
  39. 'http://opencrack.hashkiller.com/' =>  {
  40. 'tipo' => 'post',
  41. 'variables'=>'{"oc_check_md5" => $_[0], "submit" => "Search MD5"}',
  42. 'regex' => No tienes permisos para ver links. Registrate o Entra con tu cuenta(<\/div><div class="result">$_[0]:(.+)<br\/>),
  43. },
  44. 'http://www.hashchecker.com/index.php?_sls=search_hash' =>  {
  45. 'tipo' => 'post',
  46. 'variables'=>'{"search_field" => $_[0], "Submit" => "search"}',
  47. 'regex' => '<td><li>Your md5 hash is :<br><li>$_[0] is <b>(.*)<\/b> used charl',
  48. },
  49. 'http://victorov.su/md5/?md5e=&md5d=' =>  {
  50. 'tipo' => 'get',
  51. 'regex' => No tienes permisos para ver links. Registrate o Entra con tu cuenta(MD5 ðàñøèôðîâàí: <b>(.*)<\/b><br><form action=\"\">),
  52. }
  53. );
  54.  
  55. for my $data(keys %hash) {
  56.  
  57. if ($hash{$data}{tipo} eq "get") {
  58. $code = toma($data.$_[0]);
  59. if ($code=~/$hash{$data}{regex}/ig) {
  60. print "\n[+] Decoded : ".$1."\n\n";
  61. }
  62. } else {
  63. $code = tomar($data,$hash{$data}{variables});
  64. if ($code=~/$hash{$data}{regex}/ig) {
  65. print "\n[+] Decoded : ".$1."\n\n";
  66. }
  67. }
  68. }
  69. print "\n[+] Finish\n";
  70. }
  71.  
  72. sub head {
  73. print "\n\n-- == Pass Cracker == --\n\n";
  74. }
  75.  
  76. sub copyright {
  77. print "\n\n(C) Doddy Hackman 2011\n\n";
  78. exit(1);
  79. }
  80.  
  81. sub toma {
  82. return $nave->get($_[0])->content;
  83. }
  84.  
  85. sub tomar {
  86. my ($web,$var) = @_;
  87. return $nave->post($web,[%{$var}])->content;
  88. }
  89.  
  90. #Thanks to explorer (PerlEnEspañol)
  91. # ¿ The End ?
  92.  

Ejemplo de uso

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
perl crack.pl <hash>
« Última modificación: Julio 17, 2011, 03:45:40 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3238
Ú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: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1399
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

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