hola amigos aquí les traigo un crackme hecho en vbscript ya que muchos usuarios no saben usar el ollydbg pues se me ocurrió hacerlo en vbscript
aqui el codigo
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 haya 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
Reglas
1- Solo para novatos ya que es muy simple
2- Solo vale el keygen ya que no esta en un lenguaje compilado
3-No vale parchar modificando un if
4-Solo keygen por privado para que el reto dure y pondre lista::::::LISTA DE GANADORES:::::::::
1-********
2-********
3-********
Saludos Flamer y codigo modificado ahora si llase puede crackear