ASPWebPack 代码 提供下载
程序员文章站
2022-04-14 20:26:11
复制代码 代码如下:dim pwd pwd=inputbox("请输入新密码:","更改密码","yulv.net") if pwd<>""...
复制代码 代码如下:
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
本地下载
上一篇: Python——day2
下一篇: 用asp实现的截取指定格式字符串的代码
推荐阅读
-
解析获取优酷视频真实下载地址的PHP源代码_PHP教程
-
php readfile函数下载文件并判断权限的代码示例
-
WebGame《逆转裁判》完整版 代码下载(1月24日更新)_javascript技巧
-
Discuz! 5.0.0论坛程序中加入一段js代码,让会员点击下载附件前自动弹出提示窗口_PHP教程
-
使用PHP实现密保卡功能实现代码<打包下载直接运行>_PHP
-
Python实现多线程下载文件的代码实例
-
回复脱衣服代码提供下载(PHP实现)
-
MySQL提供与Linux绑定的数据库下载_MySQL
-
qq旋风怎么离线下载 PHP迅雷、快车、旋风下载专用链转换代码
-
关于php支持分块与断点续传文件下载功能代码_PHP教程