base64编码与解码(双字节,asp)

最新推荐文章于 2024-06-26 14:57:34 发布

feng2112

最新推荐文章于 2024-06-26 14:57:34 发布

阅读量1.5k

点赞数

分类专栏： Asp学习文章标签： asp function string 加密

本文链接：https://blog.youkuaiyun.com/feng2112/article/details/2124626

版权

Asp学习专栏收录该内容

15 篇文章

订阅专栏

该博客展示了如何使用ASP（Active Server Pages）来实现Base64编码和解码功能。通过定义bin2dec和dec2bin函数进行二进制与十进制的转换，然后使用enCode_base64和deCode_base64函数实现Base64编码和解码过程。文章以字符串'123456789'为例，演示了编码和解码的完整流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%
function bin2dec(binStr)
    towPow=1
    numLen=len(binStr)
    bin2Dec=0
    decPos=numLen
    do while decPos>0
        cChar=mid(binStr,decPos,1)
        nChar=Cint(cChar)
        bin2Dec=bin2Dec+nChar*towPow
        towPow=towPow*2
        decPos=decPos-1
    Loop
end function

function dec2bin(octNumber)
    vara=octNumber
    do
        dec2bin=cstr(vara mod 2) & dec2bin
        vara=vara / 2
    loop until vara=0
end function

Bstr_base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="

function enCode_base64(strBin)
    bins=""
    for i=1 to lenB(strBin)
        varTm=AscB(midB(strBin,i,1))
        bins=bins & right("00000000" & dec2bin(varTm),8)
        if i mod 3=0 then
            for w=0 to 3
                sixBin=mid(bins,w*6+1,6)
                nChar=bin2Dec(sixBin)+1
                enCode_base64=enCode_base64 & mid(Bstr_base64,nChar,1)
            next
            bins=""
        end if
    next

    if bins<>"" then
        pads=3-len(bins) / 8
        exitLoop=false
        do while not exitLoop
            nChar=left(bins,6)
            if len(nChar)<6 then
                nChar=left(nChar & "000000",6)
                exitLoop=true
            end if

            nNum=bin2dec(nChar)+1
            enCode_base64=enCode_base64 & mid(Bstr_base64,nNum,1)
            bins=mid(bins,7)
        Loop
        enCode_base64=enCode_base64 & String(pads,"=")
    end if

end function

function deCode_base64(baseStr)
    if len(baseStr) mod 4 <>0 then
        exit function
    end if

    bins=""
    for i=1 to Len(baseStr)
        nChar=mid(baseStr,i,1)
        if nChar="=" then
            exit for
        end if

        oldValue=inStr(Bstr_base64,nChar)-1
        binValue=right("000000" & dec2bin(oldValue),6)
        bins=bins & binValue

        if len(bins)>=8 then
            deChar=left(bins,8)
            bins=mid(bins,9)
        deCode_base64=deCode_base64 & chrB(bin2Dec(deChar))
        end if
    next
end function
%>
<%
dim nn:nn="123456789"
response.write "加密:"&enCode_base64(nn)&"<br>"
response.write "还原:"&deCode_base64(enCode_base64(nn))
%>