复制代码 代码如下:

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

本地下载