亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

ASPWebPack 代碼 提供下載

 更新時(shí)間：2007年09月22日 11:02:49   作者：  
復(fù)制代碼 代碼如下:

dim pwd
pwd=inputbox("請(qǐng)輸入新密碼:","更改密碼","yulv.net")
if pwd<>"" then
    pwd=PwdConv(pwd)
    inputbox "您的新密碼編碼是:" & vbcrlf & "請(qǐng)將新的編碼替換到程序中的密碼項(xiàng)！","密碼編碼",pwd
else
    msgbox "您沒(méi)有輸入新密碼,系統(tǒng)無(wú)法幫您轉(zhuǎn)換!"
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


本地下載

相關(guān)文章

最新評(píng)論