Bienvenido: Codigo De Fuerza Bruta Para El Crackme 7 De RogerFm.Net

Hola amigos como están, espero que bien....aquí les dejare el código que realice para resolver el crackme 7 de la pagina http://rogerfm.net/challenge/sp/index.htm

lo dejo por si alguien lo quiere probar, solo abran el bloc de notas, peguen el código y lo aguardan con la extensión .hta

......::::::Codigo::::::......


<head><title>Brute Force</title>
</head>
<body>
<br><br><br>
<center>
Solo Letras de (e) Hasta (t)<br><br>
<input type="text" id="clave"  value="" maxlength="8" style="width:150;height:40;font-size:25;text-align:center;"><br><br>
<input type="button" value="Calcular" onclick="calcular()">
<br><br>
<div id="eti1" style="background:#FA0404;width:500;">Valor a encontrar es 4684666 ----></div><br>
<div id="eti2" style="background:#FA0404;width:500;"></div><br>
<div id="eti3" style="background:#FA0404;width:500;"></div><br>
<div id="eti4" style="background:#FA0404;width:500;"></div><br>
<div id="eti5" style="background:#FA0404;width:500;"></div><br>
<div id="eti6" style="background:#FA0404;width:500;"></div><br>
<div id="eti7" style="background:#FA0404;width:500;"></div><br>
<div id="eti8" style="background:#FA0404;width:500;"></div><br>
</center>
<script language="vbscript">
sub calcular()
   dim pass,x,d1,d2,s

   pass=document.getElementById("clave").value
   
   if len(pass)=8 then
      suma=0
      for x=8 to 1 step -1
         sum = (sum + asc(Mid(pass,x,1))) * x
      Next
      
      document.getElementById("eti1").innerHTML="Valor a encontrar es 4684666 ----> " & sum
        if sum=4684666 then   
           document.getElementById("eti1").style.background="#2FF807" 'verde  
      else
         document.getElementById("eti1").style.background="#FA0404" 'rojo
        end if
      
      d1 = mid(pass,5,1)
      d2 = mid(pass,4,1)
      s  = asc(d1) - asc(d2) - 1
      document.getElementById("eti2").innerHTML= "digitos 5 y 4_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 1 = " & s & "  igual a cero"   
        if s = 0 then
         document.getElementById("eti2").style.background="#2FF807"  
      else
         document.getElementById("eti2").style.background="#FA0404"
      end if
      
    d1 = mid(pass,4,1)
      d2 = mid(pass,2,1)
      s  = asc(d1) - asc(d2) - 1
      document.getElementById("eti3").innerHTML= "digitos 4 y 2_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 1 = " & s & "  igual a cero"  
        if s = 0 then
         document.getElementById("eti3").style.background="#2FF807"  
      else
         document.getElementById("eti3").style.background="#FA0404"
      end if
      
      
      
    d1 = mid(pass,2,1)
      d2 = mid(pass,1,1)
      s  = asc(d1) - asc(d2) - 2
      document.getElementById("eti4").innerHTML= "digitos 2 y 1_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 2 = " & s & "  igual a cero"  
        if s = 0 then
         document.getElementById("eti4").style.background="#2FF807"  
      else
         document.getElementById("eti4").style.background="#FA0404"
      end if
      
      
     d1 = mid(pass,1,1)
      d2 = mid(pass,6,1)
      s  = asc(d1) - asc(d2) - 7
      document.getElementById("eti5").innerHTML= "digitos 1 y 6_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 7 = " & s & "  igual a cero" 
      if  s = 0 then
         document.getElementById("eti5").style.background="#2FF807"  
      else
         document.getElementById("eti5").style.background="#FA0404"
      end if
      
      
      d1 = mid(pass,6,1)
      d2 = mid(pass,7,1)
      s  = asc(d1) - asc(d2) - 2
      document.getElementById("eti6").innerHTML= "digitos 6 y 7_____" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 2 = " & s & "  igual a cero"  
      if  s = 0 then
         document.getElementById("eti6").style.background="#2FF807"  
      else
         document.getElementById("eti6").style.background="#FA0404"
      end if
      
      
      d1 = mid(pass,7,1)
      d2 = mid(pass,8,1)
      s  = asc(d1) - asc(d2) - 2
      document.getElementById("eti7").innerHTML= "digitos 7 y 8________" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " - 2 = " & s & "  igual a cero"  
      if s = 0 then
         document.getElementById("eti7").style.background="#2FF807"  
      else
         document.getElementById("eti7").style.background="#FA0404"
      end if
      
      
      d1 = mid(pass,8,1)
      d2 = mid(pass,3,1)
      s  = asc(d1) - asc(d2)
      document.getElementById("eti8").innerHTML= "digitos 8 y 3________" & d1 & " - " & d2 & "_____" & asc(d1) & " - " & asc(d2) & " = " & s & "  igual a cero"  
      if  s = 0 then
         document.getElementById("eti8").style.background="#2FF807"  
      else
         document.getElementById("eti8").style.background="#FA0404"
      end if
   end if
end sub
</script>
</body>
</html>

Link del vídeo donde explico como resolverlo: https://www.youtube.com/watch?v=RHOyAilOIoo

Bueno creo que eso es todo saludos Flamer y Feliz año nuevo 2020

bienbenidos

Codigo De Fuerza Bruta Para El Crackme 7 De RogerFm.Net