ASPWebPack 代码 提供下载

编程学习 2021-07-05 10:58www.dzhlxh.cn编程入门
代码如下:

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


Copyright © 2016-2025 www.dzhlxh.cn 金源码 版权所有 Power by

网站模板下载|网络推广|微博营销|seo优化|视频营销|网络营销|微信营销|网站建设|织梦模板|小程序模板