creo que no me queda otro remedio que escuchar una por una
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
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