ASPWebPack 代码 供给下载

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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!