base64編碼、解碼函數(shù)

發(fā)布時(shí)間：2008-07-09 閱讀數(shù)：次來(lái)源：網(wǎng)樂(lè)原科技

這是我看完幾個(gè)base64編碼、解碼函數(shù)后自己改寫的。
因?yàn)?，在中文操作系統(tǒng)的VBscript中，使用的是unicode字符集，所以
很多base64編碼、解碼函數(shù)在理論上是正確的，但實(shí)際不能運(yùn)行！

我加寫了幾個(gè)Unicode與Ansi編碼轉(zhuǎn)換的函數(shù)，現(xiàn)貼出來(lái)，請(qǐng)大家執(zhí)教！

文件名稱base64test.asp

sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS)

Function strUnicodeLen(asContents)
'計(jì)算unicode字符串的Ansi編碼的長(zhǎng)度
asContents1="a"&asContents
len1=len(asContents1)
k=0
for i=1 to len1
asc1=asc(mid(asContents1,i,1))
if asc1<0 then asc1=65536+asc1
if asc1>255 then
k=k+2
else
k=k+1
end if
next
strUnicodeLen=k-1
End Function

Function strUnicode2Ansi(asContents)
'將Unicode編碼的字符串，轉(zhuǎn)換成Ansi編碼的字符串
strUnicode2Ansi=""
len1=len(asContents)
for i=1 to len1
varchar=mid(asContents,i,1)
varasc=asc(varchar)
if varasc<0 then varasc=varasc+65536
if varasc>255 then
varHex=Hex(varasc)
varlow=left(varHex,2)
varhigh=right(varHex,2)
strUnicode2Ansi=strUnicode2Ansi & chrb("&H" & varlow ) & chrb("&H" & varhigh )
else
strUnicode2Ansi=strUnicode2Ansi & chrb(varasc)
end if
next
End function

Function strAnsi2Unicode(asContents)
'將Ansi編碼的字符串，轉(zhuǎn)換成Unicode編碼的字符串
strAnsi2Unicode = ""
len1=lenb(asContents)
if len1=0 then exit function
for i=1 to len1
varchar=midb(asContents,i,1)
varasc=ascb(varchar)
if varasc > 127 then
strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar))
i=i+1
else
strAnsi2Unicode = strAnsi2Unicode & chr(varasc)
end if
next
End function

Function Base64encode(asContents)
'將Ansi編碼的字符串進(jìn)行Base64編碼
'asContents應(yīng)當(dāng)是ANSI編碼的字符串（二進(jìn)制的字符串也可以）
Dim lnPosition
Dim lsResult
Dim Char1
Dim Char2
Dim Char3
Dim Char4
Dim Byte1
Dim Byte2
Dim Byte3
Dim SaveBits1
Dim SaveBits2
Dim lsGroupBinary
Dim lsGroup64
Dim m4,len1,len2

len1=Lenb(asContents)
if len1<1 then
Base64encode=""
exit Function
end if

m3=Len1 Mod 3
If M3 > 0 Then asContents = asContents & String(3-M3, chrb(0))
'補(bǔ)足位數(shù)是為了便于計(jì)算

IF m3 > 0 THEN
len1=len1+(3-m3)
len2=len1-3
else
len2=len1
end if

lsResult = ""

For lnPosition = 1 To len2 Step 3
lsGroup64 = ""
lsGroupBinary = Midb(asContents, lnPosition, 3)

Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))

Char1 = Midb(sBASE_64_CHARACTERS, ((Byte1 And 252) \ 4) + 1, 1)
Char2 = Midb(sBASE_64_CHARACTERS, (((Byte2 And 240) \ 16) Or (SaveBits1 * 16) And &HFF) + 1, 1)
Char3 = Midb(sBASE_64_CHARACTERS, (((Byte3 And 192) \ 64) Or (SaveBits2 * 4) And &HFF) + 1, 1)
Char4 = Midb(sBASE_64_CHARACTERS, (Byte3 And 63) + 1, 1)
lsGroup64 = Char1 & Char2 & Char3 & Char4

lsResult = lsResult & lsGroup64
Next

'處理最后剩余的幾個(gè)字符
if M3 > 0 then
lsGroup64 = ""
lsGroupBinary = Midb(asContents, len2+1, 3)

Byte1 = Ascb(Midb(lsGroupBinary, 1, 1)): SaveBits1 = Byte1 And 3
Byte2 = Ascb(Midb(lsGroupBinary, 2, 1)): SaveBits2 = Byte2 And 15
Byte3 = Ascb(Midb(lsGroupBinary, 3, 1))

if M3=1 then
lsGroup64 = Char1 & Char2 & ChrB(61) & ChrB(61) '用=號(hào)補(bǔ)足位數(shù)
else
lsGroup64 = Char1 & Char2 & Char3 & ChrB(61) '用=號(hào)補(bǔ)足位數(shù)
end if

lsResult = lsResult & lsGroup64
end if

Base64encode = lsResult

End Function

Function Base64decode(asContents)
'將Base64編碼字符串轉(zhuǎn)換成Ansi編碼的字符串
'asContents應(yīng)當(dāng)也是ANSI編碼的字符串（二進(jìn)制的字符串也可以）
Dim lsResult
Dim lnPosition
Dim lsGroup64, lsGroupBinary
Dim Char1, Char2, Char3, Char4
Dim Byte1, Byte2, Byte3
Dim M4,len1,len2

len1= Lenb(asContents)
M4 = len1 Mod 4

if len1 < 1 or M4 > 0 then
'字符串長(zhǎng)度應(yīng)當(dāng)是4的倍數(shù)
Base64decode = ""
exit Function
end if

'判斷最后一位是不是 = 號(hào)
'判斷倒數(shù)第二位是不是 = 號(hào)
'這里m4表示最后剩余的需要單獨(dú)處理的字符個(gè)數(shù)
if midb(asContents, len1, 1) = chrb(61) then m4=3
if midb(asContents, len1-1, 1) = chrb(61) then m4=2

if m4 = 0 then
len2=len1
else
len2=len1-4
end if

For lnPosition = 1 To Len2 Step 4
lsGroupBinary = ""
lsGroup64 = Midb(asContents, lnPosition, 4)
Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF)
Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF)
Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))
lsGroupBinary = Byte1 & Byte2 & Byte3

lsResult = lsResult & lsGroupBinary
Next

'處理最后剩余的幾個(gè)字符
if M4 > 0 then
lsGroupBinary = ""
lsGroup64 = Midb(asContents, len2+1, m4) & chrB(65) 'chr(65)=A，轉(zhuǎn)換成值為0
if M4=2 then '補(bǔ)足4位，是為了便于計(jì)算
lsGroup64 = lsGroup64 & chrB(65)
end if
Char1 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 1, 1)) - 1
Char2 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 2, 1)) - 1
Char3 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 3, 1)) - 1
Char4 = InStrb(sBASE_64_CHARACTERS, Midb(lsGroup64, 4, 1)) - 1
Byte1 = Chrb(((Char2 And 48) \ 16) Or (Char1 * 4) And &HFF)
Byte2 = lsGroupBinary & Chrb(((Char3 And 60) \ 4) Or (Char2 * 16) And &HFF)
Byte3 = Chrb((((Char3 And 3) * 64) And &HFF) Or (Char4 And 63))

if M4=2 then
lsGroupBinary = Byte1
elseif M4=3 then
lsGroupBinary = Byte1 & Byte2
end if

lsResult = lsResult & lsGroupBinary
end if

Base64decode = lsResult

End Function

'---------------------------------------------------------------------------------
response.write strUnicode2Ansi("abc我們d我們") & "<hr>"
response.write strAnsi2Unicode(Base64encode(strUnicode2Ansi("abc我們d我們"))) & "<hr>"
response.write strAnsi2Unicode(Base64encode(strUnicode2Ansi("abc我們d我們a"))) & "<hr>"
response.write strAnsi2Unicode(Base64encode(strUnicode2Ansi("abc我們d我們ab"))) & "<hr>"
response.write strAnsi2Unicode(Base64encode(strUnicode2Ansi("abc我們d我們abc"))) & "<hr>"

response.write strAnsi2Unicode(Base64decode(Base64encode(strUnicode2Ansi("abc我們d我們")))) & "<hr>"
response.write strAnsi2Unicode(Base64decode(Base64encode(strUnicode2Ansi("abc我們d我們a")))) & "<hr>"
response.write strAnsi2Unicode(Base64decode(Base64encode(strUnicode2Ansi("abc我們d我們ab")))) & "<hr>"
response.write strAnsi2Unicode(Base64decode(Base64encode(strUnicode2Ansi("abc我們d我們abc")))) & "<hr>"

sdecode="Sm1haWy1xNb30qqyzsr9wdCx7Q0K1/fV36O6dG9ueTEzMiAgMjAwMC0wNS0yNNXixqq45bz+sbvU"
sdecode=sdecode & "xLbBPT0xNTK0zg0KIA0KDQqhoaGh1/fV3yBb0ru/y10gDQqhoaGhIA0KoaGhoQ0KoaGhocu1w/ej"
sdecode=sdecode & "urj8tuC1xNDFz6LH67LOv7xKbWFpbMu1w/ejrM7Sz+vV4tLRvq3X47m708O1xMHLoaMNCqGhoaEN"
sdecode=sdecode & "CqGhoaHT9rW9zsrM4sfrsrvSqs7KztKjrNLyzqq3/s7xxvfUrdLyo6zO0r32vfbKudPDQ0RPTlRT"
sdecode=sdecode & "t6LQxaOsU29ycnkuLi4NCqGhoaENCqGhoaGjqDGjqUJvZHmjqNDFvP7V/c7Eo6kgOiDX1rf7tK4N"
sdecode=sdecode & "CqGhoaENCqGhoaHI56O6Sk1haWwuQm9keSA9ICLV4sDvv8nS1MrH08O7p8zu0LS1xLHttaXE2sjd"
sdecode=sdecode & "o6y/ydLUyKHX1EZyb22hoyINCqGhoaENCqGhoaENCqGhoaGjqDKjqUNoYXJzZXSjqNfWt/u8r6Os"
sdecode=sdecode & "yLHKoc6qIlVTLUFTQ0lJIqOpIDog19a3+7SuDQqhoaGhDQqhoaGhyOejukpNYWlsLkNoYXJzZXQg"
sdecode=sdecode & "PSAiVVMtQVNDSUkiIA0KoaGhoQ0KoaGhoaOoM6OpQ29udGVudFRyYW5zZmVyRW5jb2RpbmcgOiDX"
sdecode=sdecode & "1rf7tK4NCqGhoaENCqGhoaHWuLaoxNrI3bSry83KsbXEseDC67e9yr2jrMixyqHKxyJRdW90ZWQt"
sdecode=sdecode & "UHJpbnRhYmxlIiANCqGhoaHI56O6Sk1haWwuQ29udGVudFRyYW5zZmVyRW5jb2RpbmcgPSAiYmFz"
sdecode=sdecode & "ZTY0Ig0KoaGhoQ0KoaGhoaOoNKOpQ29udGVudFR5cGWjqNDFvP61xGNvbnRlbnR5cGUuIMixyqHK"
sdecode=sdecode & "xyJ0ZXh0L3BsYWluIqOpIDog19a3+7SuDQqhoaGhDQqhoaGhyOe5+8Tj0tRIVE1MuPHKvbeiy83T"
sdecode=sdecode & "yrz+LCC4xM6qInRleHQvaHRtbCK8tL/JoaMgDQqhoaGhyOejukpNYWlsLkNvbnRlbnRUeXBlID0g"
sdecode=sdecode & "InRleHQvaHRtbCINCqGhoaENCqGhoaENCqGhoaGjqDWjqUVuY29kaW5nIDog19a3+7SuDQqhoaGh"
sdecode=sdecode & "DQqhoaGhyejWw7i9vP6x4MLrt73KvaOoyLHKocrHImJhc2U2NKOpoaMgv8nS1NGh1PHKudPDtcTK"
sdecode=sdecode & "xyJiYXNlNjQiLCAidXVlbmNvZGUiIG9yICJxdW90ZWQtcHJpbnRhYmxlIiANCqGhoaHI56O6Sk1h"
sdecode=sdecode & "aWwuRW5jb2RpbmcgPSAiYmFzZTY0Ig0KoaGhoQ0KoaGhoQ0KoaGhoaOoNqOpTG9no6hKbWFpbLS0"
sdecode=sdecode & "vai1xMjV1r6jrMewzOFsb2dpbmfK9NDUyejWw86qdHJ1ZaOsvPvPwsPmo6kgOiDX1rf7tK4NCqGh"
sdecode=sdecode & "oaENCqGhoaHI56O6yrnTw1Jlc3BvbnNlLldyaXRlKCBKTWFpbC5Mb2cgKdPvvuTB0LP2yNXWvtDF"
sdecode=sdecode & "z6Khow0KoaGhoQ0KoaGhoQ0KoaGhoaOoN6OpTG9nZ2luZ6Ooyse38cq508PI1da+o6kgOiCyvLb7"
sdecode=sdecode & "0M0NCqGhoaENCqGhoaHI56O6Sk1haWwuTG9nZ2luZyA9IHRydWUNCqGhoaENCqGhoaENCqGhoaGj"
sdecode=sdecode & "qDijqVJlY2lwaWVudHMgOiDX1rf7tK4NCqGhoaENCqGhoaHWu7bByvTQ1KOst7W72Mv509DK1bz+"
sdecode=sdecode & "yMsNCqGhoaHI56O6UmVzcG9uc2UuV3JpdGUoICIiICsgSk1haWwuUmVjaXBpZW50cyArICIiICk7"
sdecode=sdecode & "DQqhoaGhDQqhoaGhDQqhoaGho6g5o6lSZXBseVRvo6jWuLaosfC1xLvY0MW12Na3o6kgOiDX1rf7"
sdecode=sdecode & "tK4NCqGhoaENCqGhoaHI56O6Sk1haWwuUmVwbHlUbyA9ICJhbnlvdGhlckBtYWlsaG9zdC5jb20i"
sdecode=sdecode & "DQqhoaGhDQqhoaGhDQqhoaGho6gxMKOpU2VuZGVyo6ggt6K8/sjLtcTTyrz+tdjWt6OpIDog19a3"
sdecode=sdecode & "+7SuDQqhoaGhDQqhoaGhyOejukpNYWlsLlNlbmRlciA9ICJzZW5kZXJAbWFpbGhvc3QuY29tIg0K"
sdecode=sdecode & "oaGhoQ0KoaGhoQ0KoaGhoaOoMTGjqVNlbmRlck5hbWWjqLeivP7Iy7XE0NXD+6OpIDog19a3+7Su"
sdecode=sdecode & "DQqhoaGhDQqhoaGhyOejukpNYWlsLlNlbmRlck5hbWUgPSAi0ru/yyINCqGhoaENCqGhoaENCqGh"
sdecode=sdecode & "oaGjqDEyo6lTZXJ2ZXJBZGRyZXNzo6jTyrz+t/7O8cb3tcS12Na3o6kgOiDX1rf7tK4NCqGhoaEN"