ASPWebPack 代碼 提供下載

複製代碼 代碼如下: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

本地下載