La copia del código es la siguiente:
dimpwd
pwd = inputBox ("Ingrese la contraseña nueva:", "Cambiar contraseña", "Yulv.net")
ifpwd <> "" entonces
pwd = pwdconv (pwd)
InputBox "Su nueva codificación de contraseña es:" & VBCRLF y "Reemplace la nueva codificación con el elemento de contraseña en el programa!", "Codificación de contraseña", PWD
demás
msgbox "No ingresó una nueva contraseña, ¡el sistema no puede ayudarlo a convertirlo!"
endif
functionPwdConv (byvalspwd)
dimi, ref, valor, LTMP
LTMP = 0
Fori = 1TolenB (SPWD)
valor = ASCB (MIDB (SPWD, I, 1))
valor = (valor*i) +255
if (ltmp+valor)> (& hff*lenb (spwd)) entonces
Ref = Ref & Hex (LTMP)
LTMP = 0
endif
LTMP = LTMP+VALOR+LEN (CSTR (LTMP))
próximo
ifltmp> 0thenRef = ref & hex (LTMP)
Ifmid (ref, 1,1) = "0" thenref = hex (len (ref)) y ref Reaño
Pwdconv = ref
Función final
Descarga local