复制代码代码如下:
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
本地下载