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.

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

  • 0 Respuestas
  • 1380 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){ You are not allowed to view links. Register or Login "Set dbgtmr to a value >=1 !\n";};
  12. use Digest::MD5 You are not allowed to view links. Register or Login(md5_hex);
  13. use Time::HiRes You are not allowed to view links. Register or Login(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 (You are not allowed to view links. Register or Login($ARGV[3]) != 32) { You are not allowed to view links. Register or Login "Désolé, mais il Semble que le MD5 est pas valide!\n";};
  26.  
  27. You are not allowed to view links. Register or Login "Selected charset for attack: '$alpha\'\n";
  28. You are not allowed to view links. Register or Login "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. You are not allowed to view links. Register or Login "\n\nMD5 Hash Bruteforce Kit v_$ver\n";
  36. You are not allowed to view links. Register or Login "by unix_chro alias backtrack (311733@yahoo.com)\n";
  37. You are not allowed to view links. Register or Login "Member in staff leader:elite-members,ubuntu-hackers\n\n";
  38. You are not allowed to view links. Register or Login "USAGE\n";
  39. You are not allowed to view links. Register or Login "./md5crack <charset> <mincount> <maxcount> <yourMD5>\n";
  40. You are not allowed to view links. Register or Login " Charset can be: [aAdx]\n";
  41. You are not allowed to view links. Register or Login " a = {'a','b','c',...}\n";
  42. You are not allowed to view links. Register or Login " A = {'A','B','C',...}\n";
  43. You are not allowed to view links. Register or Login " d = {'1','2','3',...}\n";
  44. You are not allowed to view links. Register or Login " x = {'!','\"',' ',...}\n";
  45. You are not allowed to view links. Register or Login "EXAMPLE FOR CRACKING A MD5 HASH\n";
  46. You are not allowed to view links. Register or Login "./md5crack.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
  47. You are not allowed to view links. Register or Login " This example tries to crack the given MD5 with all lowercase Alphas and all digits.\n";
  48. You are not allowed to view links. Register or Login " MD5 Kit only tries combinations with a length from 1 and 3 characters.\n-------\n";
  49. You are not allowed to view links. Register or Login "./md5crack.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
  50. You are not allowed to view links. Register or Login " This example tries to crack the given MD5 with all lowercase Alphas and all uppercase Alphas.\n";
  51. You are not allowed to view links. Register or Login " MD5 Kit only tries passwords which length is exactly 3 characters.\n-------\n";
  52. You are not allowed to view links. Register or Login "./md5crack.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
  53. You are not allowed to view links. Register or Login " This example tries to crack the given MD5 with nearly every character.\n";
  54. You are not allowed to view links. Register or Login " MD5 Kit only tries combinations with a length from 1 to 10 characters.\n";
  55. You are not allowed to view links. Register or Login "Quitting...\n";
  56. }
  57.  
  58. sub crack{
  59. $CharSet = You are not allowed to view links. Register or Login;
  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] > You are not allowed to view links. Register or Login($alpha)-1){
  66. if ($i==$CharSet-1){
  67. You are not allowed to view links. Register or Login "Bruteforcing done with $CharSet Chars. No Results.\n";
  68. $cnt=0;
  69. You are not allowed to view links. Register or Login 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 . You are not allowed to view links. Register or Login($alpha,$RawString[$i],1);}
  78. $hash = md5_hex($ret);
  79. $cnt++;
  80. $Stop = gettimeofday();
  81. if ($Stop-$Start>$dbgtmr){
  82. $cnt = You are not allowed to view links. Register or Login($cnt/$dbgtmr);
  83. You are not allowed to view links. Register or Login "$cnt hashes\\second.\tLast Pass '$ret\'\n";
  84. $cnt=0;
  85. $Start = gettimeofday();
  86. }
  87. You are not allowed to view links. Register or Login "$ARGV[3] != $hash ($ret)\n";
  88. if ($ARGV[3] eq $hash){
  89. You are not allowed to view links. Register or Login "\n**** Password Cracked! => $ret\n";
  90. }
  91. ################################################## #
  92. #checkhash($CharSet)."\n";
  93.  
  94. $RawString[0]++;
  95. }while($RawString[$CharSet-1]<You are not allowed to view links. Register or Login($alpha));
  96. }
  97.  
  98. sub checkhash{
  99. $CharSet = You are not allowed to view links. Register or Login;
  100. $ret = "";
  101. for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . You are not allowed to view links. Register or Login($alpha,$RawString[$i],1);}
  102. $hash = md5_hex($ret);
  103. $cnt++;
  104. $Stop = gettimeofday();
  105. if ($Stop-$Start>$dbgtmr){
  106. $cnt = You are not allowed to view links. Register or Login($cnt/$dbgtmr);
  107. You are not allowed to view links. Register or Login "$cnt hashes\\second.\tLast Pass '$ret\'\n";
  108. $cnt=0;
  109. $Start = gettimeofday();
  110. }
  111.  
  112. if ($ARGV[3] eq $hash){
  113. You are not allowed to view links. Register or Login "\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: 2854
Ú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: 1473
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1181
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1079
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear