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