Bienvenido: Codigo Del Keygen Del Crackme 5 De Rogerfm.net

Hola amigos he dicho anterior mente que de aquí en adelante are los keygen en hta y vbscript para que no halla desconfianza de ejecutar ejecutables o sea archivos Exe, donde no seles puede ver el código fuente con claridad, así que se los are en hta para que puedan visualizar bien el código.

Así que en esta ocasión les dejare el código del keygen del crackme 5 de la pagina Rogerfm.net el cual es muy sencillo, solo copean y pegan en el bloc de notas y aguardan como archivo .hta

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

<html>
<head>
<title>Keygen Crackme 5 De Rogerfm.net   ...:::By Flamer:::...</title>
</head>
<body>
<center>
<font color="WHITE"><marquee direction="left" style="background:black;font-size:15pt;">Keygen Crackme 5 De Rogerfm.net   ...:::By Flamer:::...</marquee></font><br><br>
Nombre:&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp <input type="text" id="100" size='50' style="text-align:center;">&nbsp&nbsp<input type="button" value="Copy" onclick="copiar(100)"><br><br>
Serial:&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp <input type="text" id="101" size='50' style="text-align:center;">&nbsp&nbsp<input type="button" value="Copy" onclick="copiar(101)"><br><br>
<input type="button"  id="102" value="Automatico" onclick="Generar()">
<input type="button"  id="103" value="Manual" onclick="Generar2()">
<input type="button"   value="Detener" onclick="Detener()">
<input type="button"  value="Limpiar" onclick="limpia()">
</center>
<script language="vbscript">
option explicit
dim tim
function limpia
   document.getElementById("100").value=""
   document.getElementById("101").value=""
end function

function copiar(id)
   dim c
   c = document.getElementById(id).value
   window.clipboardData.setData "text",c
end function

function ciclo
   randomize
   dim nom,serial,x,eax,ebx,edi,l
   
   l=Int((24 - 4 + 1) * Rnd + 4)
   
   for x=1 to l
      nom = nom & chr(Int((122 - 33 + 1) * Rnd + 33))
   next
   
   ebx=1
   
   for x=1 to l
      eax = asc(mid(nom,x,1)) * ebx
      edi = edi + eax
      ebx = ebx + 6
   next
   
   serial = edi * 256
   document.getElementById("100").value = nom   
   document.getElementById("101").value = serial
   
   if document.getElementById("102").disabled then
      tim=window.setTimeout("ciclo()",10)
   else
      tim=window.clearInterval(ciclo())
   end if
end function

function Generar
   document.getElementById("102").disabled = true
   ciclo()
end function

function Generar2
   dim nom,serial,x,eax,ebx,edi,l
   
   nom = document.getElementById("100").value
   if len(nom)>3 and len(nom)< 25 then
      l=len(nom)
      ebx=1
   
      for x=1 to l
         eax = asc(mid(nom,x,1)) * ebx
         edi = edi + eax
         ebx = ebx + 6
      next
       
      serial = edi * 256
      document.getElementById("101").value = serial
   else
      msgbox "El Nombre Tiene Que Ser Mayor De 3 Digitos"   
   end if
end function


function Detener()
   document.getElementById("102").disabled = false
end function
</script>
</body>
</html>

Link Del vídeo:

Link Del Crackme: http://rogerfm.net/challenge/sp/

Saludos Flamer

bienbenidos

Codigo Del Keygen Del Crackme 5 De Rogerfm.net