การคัดลอกรหัสมีดังนี้:
สลัว
pwd = inputbox ("โปรดป้อนรหัสผ่านใหม่:", "เปลี่ยนรหัสผ่าน", "yulv.net")
ifpwd <> "" แล้ว
PWD = PWDCONV (PWD)
InputBox "การเข้ารหัสรหัสผ่านใหม่ของคุณคือ:" & vbcrlf & "โปรดแทนที่การเข้ารหัสใหม่ด้วยรายการรหัสผ่านในโปรแกรม!", "การเข้ารหัสรหัสผ่าน", PWD
อื่น
msgbox "คุณไม่ได้ป้อนรหัสผ่านใหม่ระบบไม่สามารถช่วยคุณแปลง!"
endif
functionpwdconv (byvalspwd)
dimi, ref, value, ltmp
ltmp = 0
fori = 1tolenb (SPWD)
value = ASCB (MIDB (SPWD, I, 1))
value = (value*i) +255
if (ltmp+value)> (& hff*lenb (spwd)) แล้ว
ref = ref & hex (LTMP)
ltmp = 0
endif
ltmp = ltmp+value+len (cstr (ltmp))
ต่อไป
ifltmp> 0thenref = ref & hex (LTMP)
IFMID (REF, 1,1) = "0" ThenRef = Hex (Len (Ref)) & Ref
pwdconv = อ้างอิง
endfunction
ดาวน์โหลดท้องถิ่น