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