VBÀïÁíÒ»ÖÖ¸ü¸ßЧµÄBase64±àÂëÓë½âÂëËã·¨

Option Explicit
'Ãû³Æ: Base64±àÂë/½âÂëÄ£¿é
'Name: Base64 Encode & Decode Module
'×÷Õß: KiteGirl [Öйú]
'programmer: KiteGirl [China]
Private priBitMoveTable() As Byte 'ÒÆλ»º³å±í
Private priBitMoveTable_CellReady() As Boolean 'ÒÆλ»º³å±í±êÖ¾±í
Private priBitMoveTable_Create As Boolean 'ÒÆλ»º³å±í´´½¨±êÖ¾
Private priEncodeTable() As Byte '±àÂë±í£¨ËØÂëתBase64£©
Private priEncodeTable_Create As Boolean
Private priDecodeTable() As Byte '½âÂë±í£¨Base64תËØÂ룩
Private priDecodeTable_Create As Boolean
Private Declare Sub Base64_CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef pDestination As Any, ByRef pSource As Any, ByVal pLength As Long)
Private Const conBase64_CodeTableStrng As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Private Const conBase64_PatchCode As Byte = 61
Private Type tpBase64_Dollop2438 '24Bit(8Bit*3Byte)Êý¾Ý¿é
btBytes(0 To 2) As Byte
End Type
Private Type tpBase64_Dollop2446 '24Bit(6Bit*4Byte)Êý¾Ý¿é
btBytes(0 To 3) As Byte
End Type
'½âÂë
Public Sub Base64_Decode(ByRef tOutBytes() As Byte, ByRef pBytes() As Byte, Optional ByVal pPatchCode As Byte = conBase64_PatchCode)
'Base64Decodeº¯Êý
'Óï·¨£º[tOutBytes()] = Base64Decode(pBytes(), [pPatchCode])
'¹¦ÄÜ£º½«ByteÊý×é±íʾµÄBase64±àÂëAscii×Ö½ÚÊý×é½âÂëΪByte×Ö½ÚÊý×飬²¢·µ»Ø¡£
'²ÎÊý£ºbyte pBytes() '±ØÒª²ÎÊý¡£ByteÊý×é±íʾµÄBase64±àÂëÊý¾Ý¡£
' byte pPatchCode '¿ÉÑ¡²ÎÊý¡£ÈßÓà×Ö½Ú×·¼ÓÂ롣ĬÈÏΪ61£¨"="µÄAsciiÂ룩
'·µ»Ø£ºbyte tOutBytes() 'ByteÊý×é¡£
'ʾÀý£º
' Dim tSurString As String
' Dim tSurBytes() As Byte
' tSurString = "S2l0ZUdpcmzKx7j2usO6otfT"
' tSurBytes() = StrConv(tSurString, vbfromUnicode)
' Dim tDesString As String
' Dim tDesBytes() As Byte
' tDesBytes() = Base64Decode(tSurBy