The code copy is as follows:
dimpwd
pwd=inputbox("Please enter new password:","Change password","yulv.net")
ifpwd<>""then
pwd=PwdConv(pwd)
inputbox "Your new password encoding is:"&vbcrlf&"Please replace the new encoding with the password item in the program!","Password encoding",pwd
else
msgbox "You did not enter a new password, the system cannot help you convert!"
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
Local download