復制代碼 代碼如下:
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入門必知必會
