複製代碼代碼如下:
dimpwd
pwd=inputbox("請輸入新密碼:","更改密碼","yulv.net")
ifpwd<>""then
pwd=PwdConv(pwd)
inputbox"您的新密碼編碼是:"&vbcrlf&"請將新的編碼替換到程序中的密碼項！","密碼編碼",pwd
else
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))then
ref=ref&hex(ltmp)
ltmp=0
endif
ltmp=ltmp+value+Len(Cstr(lTmp))
next
ifltmp>0thenref=ref&hex(ltmp)
IfMid(ref,1,1)="0"Thenref=Hex(Len(ref))&ref
PwdConv=ref
endfunction
本地下載