A cópia do código é a seguinte:
DIMPWD
PWD = InputBox ("Por favor, digite nova senha:", "Alterar senha", "yulv.net")
ifpwd <> "" então
PWD = PWDCONV (PWD)
Inputbox "Sua nova codificação de senha é:" & vbcrlf & "Por favor, substitua a nova codificação pelo item de senha no programa!", "Codificação de senha", PWD
outro
MsgBox "Você não entrou em uma nova senha, o sistema não pode ajudá -lo a converter!"
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)) então
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)) e ref
PwdConv = ref
Função final
Download local