蝙蝠岛资源网 Design By www.hbtsch.com
复制代码 代码如下:
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


本地下载
标签:
ASPWebPack,代码,提供下载

蝙蝠岛资源网 Design By www.hbtsch.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com

评论“ASPWebPack 代码 提供下载”

暂无ASPWebPack 代码 提供下载的评论...

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?