Die Codekopie lautet wie folgt:
Dimpwd
pwd = inputBox ("Bitte ein neues Passwort eingeben:", "Passwort ändern", "yulv.net").
ifpwd <> "" dann
PWD = PWDConv (PWD)
inputbox "Ihre neue Kennwortcodierung lautet:" & VBCRLF & "Bitte ersetzen Sie die neue Encodierung durch das Kennwortelement im Programm!", "Kennwortcodierung", PWD
anders
MSGBox "Sie haben kein neues Passwort eingegeben, das System kann Ihnen nicht helfen, sich umzuwandeln!"
Endif
functionPWDConv (Byvalspwd)
Dimi, Ref, Value, LTMP
ltmp = 0
fei = 1tolenb (SPWD)
value = ASCB (Midb (SPWD, I, 1))
value = (value*i) +255
if (ltmp+value)> (& hff*lenb (spwd)) dann
Ref = Ref & Hex (LTMP)
ltmp = 0
Endif
LTMP = LTMP+Wert+Len (CSTR (LTMP))
nächste
IFLTMP> 0ThenRef = Ref & Hex (LTMP)
IFMID (Ref, 1,1) = "0" thenRef = hex (len (ref)) & ref
Pwdconv = ref
Endfunktion
Lokaler Download