ASPWebPack 代码 提供下载

代码如下:

dim pwd 
pwd=inputbox("请输入新密码:","更改密码","yulv.net") 
if pwd<>"" then 
    pwd=PwdConv(pwd) 
    inputbox "您的新密码编码是:" & vbcrlf & "请将新的编码替换到程序中的密码项！","密码编码",pwd 
else 
    msgbox "您没有输入新密码,系统无法帮您转换!" 
end if 
function PwdConv(byval spwd) 
    dim i,ref,value,ltmp 
    ltmp=0 
    for i = 1 to lenb(spwd) 
        value=ascb(midb(spwd,i,1)) 
        value=(value*i) + 255 
        if (ltmp+value)>(&HFF*lenb(spwd)) then 
            ref=ref & hex(ltmp) 
            ltmp=0 
        end if 
        ltmp=ltmp + value + Len(Cstr(lTmp)) 
    next 
    if ltmp>0 then ref=ref & hex(ltmp) 
    If Mid(ref,1,1)="0" Then ref=Hex(Len(ref)) & ref 
    PwdConv= ref 
end function