复制代码 代码如下:
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
本地下载
您可能感兴趣的文章:- webpack常用配置项配置文件介绍
- 基于vuejs+webpack的日期选择插件
- jQuery 移动端拖拽（模块化开发，触摸事件，webpack）
- webpack+vue.js实现组件化详解
- webpack+vue.js快速入门教程
- webpack中引用jquery的简单实现
- Webpack 实现 AngularJS 的延迟加载
- Webpack 实现 Node.js 代码热替换
- webpack入门必知必会
