Salinan kode adalah sebagai berikut:
DIMPWD
pwd = inputbox ("Silakan masukkan kata sandi baru:", "ubah kata sandi", "yulv.net")
ifpwd <> "" lalu
PWD = PWDCONV (PWD)
inputbox "Pengkodean kata sandi baru Anda adalah:" & vbcrlf & "Harap ganti pengkodean baru dengan item kata sandi dalam program!", "Pengkodean Kata Sandi", PWD
kalau tidak
msgbox "Anda tidak memasukkan kata sandi baru, sistem tidak dapat membantu Anda mengonversi!"
endif
functionpwdconv (byvalspwd)
Dimi, Ref, Nilai, Ltmp
LTMP = 0
fori = 1TolenB (SPWD)
nilai = ASCB (midb (spwd, i, 1))
nilai = (nilai*i) +255
if (ltmp+value)> (& hff*lenb (spwd)) lalu
Ref = Ref & Hex (LTMP)
LTMP = 0
endif
LTMP = LTMP+Nilai+Len (CSTR (LTMP))
Berikutnya
ifltmp> 0thenref = ref & hex (ltmp)
IFMID (REF, 1,1) = "0" ThenRef = Hex (Len (Ref)) & Ref
PWDCONV = Ref
fungsi endfungsi
Unduh Lokal