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.

MD5CKRACKER script [perl] par *..::Key-m0rt::..*

  • 0 Respuestas
  • 1552 Vistas

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

Desconectado ..::key-m0rt::..

  • *
  • Underc0der
  • Mensajes: 35
  • Actividad:
    0%
  • Reputación 0
  • MaEsTRO DeL arTE dE hAblARmE cOn Lo quE DesCRIBO
    • Ver Perfil
« en: Marzo 24, 2010, 09:43:14 am »
Hola, bueno el titulo mismo del post lo dice un script en perl para un brute force ...
espero que les guste , comenten sus opiñones o como se podria mejorar .

                        **********************************************
                        *           MD5CKRACKER script [perl] par *..::Key-m0rt::..*  *
                        **********************************************

GODIGO :

Código: Perl
  1. #!/usr/bin/perl
  2. #   md5crack.pl
  3. #  Usage:
  4. #  ./md5crack <charset> <mincount> <maxcount> <yourMD5>
  5. #  nUm/b0
  6. #  Ècrit par *..::Key-M0rt::..* tam I.S.W
  7.  
  8. $ver = "01";
  9. $dbgtmr = "1"; #Intervall of showing the current speed + lastpassword in seconds.
  10.  
  11. if ($dbgtmr<=0){ No tienes permisos para ver links. Registrate o Entra con tu cuenta "Set dbgtmr to a value >=1 !\n";};
  12. use Digest::MD5 No tienes permisos para ver links. Registrate o Entra con tu cuenta(md5_hex);
  13. use Time::HiRes No tienes permisos para ver links. Registrate o Entra con tu cuenta(gettimeofday);
  14.  
  15. if ($ARGV[0]=~"a") {
  16. $alpha = "abcdefghijklmnopqrstuvwxyz";}
  17. if ($ARGV[0]=~"A") {
  18. $alpha = $alpha. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
  19. if ($ARGV[0]=~"d") {
  20. $alpha = $alpha."1234567890";}
  21. if ($ARGV[0]=~"x") {
  22. $alpha = $alpha. "!\"\$%&/()=?-.:\\*'-_:.;,";}
  23.  
  24. if ($alpha eq "" or $ARGV[3] eq "") {usage();};
  25. if (No tienes permisos para ver links. Registrate o Entra con tu cuenta($ARGV[3]) != 32) { No tienes permisos para ver links. Registrate o Entra con tu cuenta "Désolé, mais il Semble que le MD5 est pas valide!\n";};
  26.  
  27. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Selected charset for attack: '$alpha\'\n";
  28. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Going to Crack '$ARGV[3]'...\n";
  29.  
  30. for (my $t=$ARGV[1];$t<=$ARGV[2];$t++){
  31. crack ($t);
  32. }
  33.  
  34. sub usage{
  35. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\nMD5 Hash Bruteforce Kit v_$ver\n";
  36. No tienes permisos para ver links. Registrate o Entra con tu cuenta "by unix_chro alias backtrack (311733@yahoo.com)\n";
  37. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Member in staff leader:elite-members,ubuntu-hackers\n\n";
  38. No tienes permisos para ver links. Registrate o Entra con tu cuenta "USAGE\n";
  39. No tienes permisos para ver links. Registrate o Entra con tu cuenta "./md5crack <charset> <mincount> <maxcount> <yourMD5>\n";
  40. No tienes permisos para ver links. Registrate o Entra con tu cuenta " Charset can be: [aAdx]\n";
  41. No tienes permisos para ver links. Registrate o Entra con tu cuenta " a = {'a','b','c',...}\n";
  42. No tienes permisos para ver links. Registrate o Entra con tu cuenta " A = {'A','B','C',...}\n";
  43. No tienes permisos para ver links. Registrate o Entra con tu cuenta " d = {'1','2','3',...}\n";
  44. No tienes permisos para ver links. Registrate o Entra con tu cuenta " x = {'!','\"',' ',...}\n";
  45. No tienes permisos para ver links. Registrate o Entra con tu cuenta "EXAMPLE FOR CRACKING A MD5 HASH\n";
  46. No tienes permisos para ver links. Registrate o Entra con tu cuenta "./md5crack.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
  47. No tienes permisos para ver links. Registrate o Entra con tu cuenta " This example tries to crack the given MD5 with all lowercase Alphas and all digits.\n";
  48. No tienes permisos para ver links. Registrate o Entra con tu cuenta " MD5 Kit only tries combinations with a length from 1 and 3 characters.\n-------\n";
  49. No tienes permisos para ver links. Registrate o Entra con tu cuenta "./md5crack.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
  50. No tienes permisos para ver links. Registrate o Entra con tu cuenta " This example tries to crack the given MD5 with all lowercase Alphas and all uppercase Alphas.\n";
  51. No tienes permisos para ver links. Registrate o Entra con tu cuenta " MD5 Kit only tries passwords which length is exactly 3 characters.\n-------\n";
  52. No tienes permisos para ver links. Registrate o Entra con tu cuenta "./md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
  53. No tienes permisos para ver links. Registrate o Entra con tu cuenta " This example tries to crack the given MD5 with nearly every character.\n";
  54. No tienes permisos para ver links. Registrate o Entra con tu cuenta " MD5 Kit only tries combinations with a length from 1 to 10 characters.\n";
  55. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Quitting...\n";
  56. }
  57.  
  58. sub crack{
  59. $CharSet = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  60. @RawString = ();
  61. for (my $i =0;$i<$CharSet;$i++){ $RawString = 0;}
  62. $Start = gettimeofday();
  63. do{
  64. for (my $i =0;$i<$CharSet;$i++){
  65. if ($RawString[$i] > No tienes permisos para ver links. Registrate o Entra con tu cuenta($alpha)-1){
  66. if ($i==$CharSet-1){
  67. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Bruteforcing done with $CharSet Chars. No Results.\n";
  68. $cnt=0;
  69. No tienes permisos para ver links. Registrate o Entra con tu cuenta false;
  70. }
  71. $RawString[$i+1]++;
  72. $RawString[$i]=0;
  73. }
  74. }
  75. ################################################## #
  76. $ret = "";
  77. for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . No tienes permisos para ver links. Registrate o Entra con tu cuenta($alpha,$RawString[$i],1);}
  78. $hash = md5_hex($ret);
  79. $cnt++;
  80. $Stop = gettimeofday();
  81. if ($Stop-$Start>$dbgtmr){
  82. $cnt = No tienes permisos para ver links. Registrate o Entra con tu cuenta($cnt/$dbgtmr);
  83. No tienes permisos para ver links. Registrate o Entra con tu cuenta "$cnt hashes\\second.\tLast Pass '$ret\'\n";
  84. $cnt=0;
  85. $Start = gettimeofday();
  86. }
  87. No tienes permisos para ver links. Registrate o Entra con tu cuenta "$ARGV[3] != $hash ($ret)\n";
  88. if ($ARGV[3] eq $hash){
  89. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n**** Password Cracked! => $ret\n";
  90. }
  91. ################################################## #
  92. #checkhash($CharSet)."\n";
  93.  
  94. $RawString[0]++;
  95. }while($RawString[$CharSet-1]<No tienes permisos para ver links. Registrate o Entra con tu cuenta($alpha));
  96. }
  97.  
  98. sub checkhash{
  99. $CharSet = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  100. $ret = "";
  101. for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . No tienes permisos para ver links. Registrate o Entra con tu cuenta($alpha,$RawString[$i],1);}
  102. $hash = md5_hex($ret);
  103. $cnt++;
  104. $Stop = gettimeofday();
  105. if ($Stop-$Start>$dbgtmr){
  106. $cnt = No tienes permisos para ver links. Registrate o Entra con tu cuenta($cnt/$dbgtmr);
  107. No tienes permisos para ver links. Registrate o Entra con tu cuenta "$cnt hashes\\second.\tLast Pass '$ret\'\n";
  108. $cnt=0;
  109. $Start = gettimeofday();
  110. }
  111.  
  112. if ($ARGV[3] eq $hash){
  113. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n**** Password Cracked! => $ret\n";
  114. }
  115.  
  116. }
« Última modificación: Marzo 14, 2015, 09:49:03 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3237
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[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
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1308
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[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