Bienvenido: Codigo Del Keygen Del Crackme1 Alfa Reformado

Hola amigos he decidido hacer los keygenes en html para mayor seguridad y para que no halla desconfianza de dejarles un ejecutable y me ahorro el trabajo de hacer un Exe.

bueno este sera mi primer keygen en html y es para el crackme 1 de alfa, para probarlo solo hay que copiar el siguiente código y guardarlo como archivo .hta

Codigo

<html>
<head>
<title>Keygen Crackme 1 De alfa   ...:::By Flamer:::...</title>
</head>
<body>
<center>
<h1>Keygen Crackme 1 De alfa   ...:::By Flamer:::...</h1>
Nombre:&nbsp&nbsp&nbsp <input type="text" id="100" size='50' style="text-align:center;"><input type="button" value="Copy" onclick="copiar1()"><br><br>
Serial:&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp <input type="text" id="101" size='50' style="text-align:center;"><input type="button" value="Copy" onclick="copiar2()"><br><br>
<input type="button" id="102" value="Manual" onclick="manual()">
<input type="button" id="103" value="Automatico" onclick="auto()">
<input type="button" id="104" value="Limpiar" onclick="limpia()">
</center>
<script language="vbscript">
option explicit
dim nom,tim

function limpia
   document.getElementById("100").value=""
   document.getElementById("101").value=""
end function

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

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

function genera
  dim x,suma,res1,res2
 
   res1=len(nom)

   for x=1 to res1
      suma = suma + asc(mid(nom,x,1))
   next

   res1 = res1 * 5
   res2 = res1 * 5

   res2 = cstr(res1) & cstr(res2)

   res1 = res2 * 5
   res2 = cstr(res2) & cstr(res1)

   res2 = res2 - suma
   document.getElementById("100").value=nom 
   document.getElementById("101").value=res2

end function

function manual
  if document.getElementById("103").disabled then
  document.getElementById("103").disabled = false
     document.getElementById("102").value = "Manual"
  else
     nom=document.getElementById("100").value
     genera()
  end if  
  
end function

function auto
   document.getElementById("103").disabled=true
   document.getElementById("102").value="Stop"
   ciclo()
end function

function ciclo
  randomize
  dim largo,x,cadena,l,y
    
  cadena="abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ0123456789"
  l=len(cadena)
  
  largo=cint((25 - 1 + 1) * rnd + 1)
  nom="" 
  
  for x=1 to largo
 y = cint((l - 1 + 1)* rnd + 1)
    nom = nom & mid(cadena,y,1)     
  next
     
  genera()
  if document.getElementById("103").disabled then
     tim=window.setTimeout("ciclo()",10)
  else
  tim=window.clearInterval(ciclo())
  end if  
   
end function
</script>
</body>
</html>

si quieren descargar el crackme para practicar: Descargar Aqui

Saludos Flamer

bienbenidos

Codigo Del Keygen Del Crackme1 Alfa Reformado