当前位置： 移动技术网 > IT编程>开发语言>Asp > ASPWebPack 代码 提供下载

ASPWebPack 代码 提供下载

2017年12月12日  | 移动技术网IT编程  | 我要评论
复制代码 代码如下:

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


您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网