ASPWebPack 代码提供下载

201 阅读 0 评论 133 点赞

我是靠谱客的博主真实彩虹，这篇文章主要介绍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 