Hola amigos como estaba aburrido me puse a programar un crackme en visual basic script, el objetivo es crear el keygen ya que este puede ser visualizado fácilmente y no lo quise hacer en un lenguaje compilado ya que muchos no saben usar el ollydbg así que aquí esta:
option explicit
Randomize
dim shell,pin,cn,un,x,z,a,b,c,pass,y,r,contra
Set shell=createobject("wscript.shell")
pin = cstr(cint((9999-1000+1)*rnd+1000))
msgbox "Su Numero PIN Es: " & pin,,"PIN"
cn = Shell.ExpandEnvironmentStrings("%ComputerName%")
un = Shell.ExpandEnvironmentStrings("%UserName%")
if len(cn)>len(un) then
z=len(cn)
for x=z to len(un)
un=un & chr(x)
next
end if
if len(cn)<len(un) then
z=len(un)
for x=z to len(cn)
cn=cn & chr(x)
next
else
z=len(un)
end if
for x=1 to z
a = asc(mid(cn,x,1))
b = asc(mid(un,x,1))
c = c & "-" & (a xor b)
next
contra=inputbox("Ingresa La Contraseña","Password")
y=1
pass=split(contra,"-")
for x=0 to ubound(pass)
a = pass(x)
b = asc(mid(pin,y,1))
if y=len(pin) then
y=1
else
y=y+1
end if
r = r & "-" & (a xor b)
next
if r=c then
msgbox ":::EN HORA BUENA::: Felisidades Contraseña Correcta, Espero Que Te Halla Gustado El Reto...",,"Reto Superado Saludos Flamer"
else
msgbox "Si no sabes crackear esta porqueria de crackme, no presumas que eres un hacker mas bien eres un lamberucho...esto es para hackers principiantes QUE QUIEREN APRENDER",,"Medas lastima :("
end if
saludos Flamer y espero les guste