Un Simple Crackme en VBScript

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