vb和java base64_（4）VB版 - base64解码编码详解

标签：编码(176)解码(57)

(4)VB版

注：其中DigestStrToHexStr为可在程序外部调用加密函数

Option Explicit

’B as e64Encoding/DecodingAlgorithm

‘By:DavidMidkif f(mznull@earthlink.net)

‘Thisalgorithmsencodes and decodesdatain to B as e64

’for mat.Thisfor matisextremelymoreefficientthan

‘Hexadecimalencoding.

Private m_bytIndex(0 To 63) As Byte

Private m_bytReverseIndex(0 To 255) As Byte

Private Const k_bytEqualSign As Byte = 61

Private Const k_bytmask1 As Byte = 3

Private Const k_bytmask2 As Byte = 15

Private Const k_bytmask3 As Byte = 63

Private Const k_bytmask4 As Byte = 192

Private Const k_bytmask5 As Byte = 240

Private Const k_bytmask6 As Byte = 252

Private Const k_bytShift2 As Byte = 4

Private Const k_bytShift4 As Byte = 16

Private Const k_bytShift6 As Byte = 64

Private Const k_lMaxBytesPerLine As Long = 152

Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (ByVal Destination As Long， ByVal Source As Long， ByVal Length As Long)

Public Function Decode64(sInput As String) As String

If sInput = “” Then Exit Function

Decode64 = StrConv(DecodeArray64(sInput)， vbUnicode)

End Function

Private Function DecodeArray64(sInput As String) As Byte()

Dim bytInput() As Byte

Dim bytWorkspace() As Byte

Dim bytResult() As Byte

Dim lInputCounter As Long

Dim lWorkspaceCounter As Long

bytInput = Replace(Replace(sInput， vbCrLf， “”)， “=”， “”)

ReDim bytWorkspace(LBound(bytInput) To (UBound(bytInput) * 2)) As Byte

lWorkspaceCounter = LBound(bytWorkspace)

For lInputCounter = LBound(bytInput) To UBound(bytInput)

bytInput(lInputCounter) = m_bytReverseIndex(bytInput(lInputCounter))

Next lInputCounter

For lInputCounter = LBound(bytInput) To (UBound(bytInput) - ((UBound(bytInput) Mod 8) + 8)) Step 8

bytWorkspace(lWorkspaceCounter) = (bytInput(lInputCounter) * k_bytShift2) + (bytInput(lInputCounter + 2) \ k_bytShift4)

bytWorkspace(lWorkspaceCounter + 1) = ((bytInput(lInputCounter + 2) And k_bytmask2) * k_bytShift4) + (bytInput(lInputCounter + 4) \ k_bytShift2)

bytWorkspace(lWorkspaceCounter + 2) = ((bytInput(lInputCounter + 4) And k_bytmask1) * k_bytShift6) + bytInput(lInputCounter + 6)

lWorkspaceCounter = lWorkspaceCounter + 3

Next lInputCounter

Select Case (UBound(bytInput) Mod 8)：

Case 3：

bytWorkspace(lWorkspaceCounter) = (bytInput(lInputCounter) * k_bytShift2) + (bytInput(lInputCounter + 2) \ k_bytShift4)

Case 5：

bytWorkspace(lWorkspaceCounter) = (bytInput(lInputCounter) * k_bytShift2) + (bytInput(lInputCounter + 2) \ k_bytShift4)

bytWorkspace(lWorkspaceCounter + 1) = ((bytInput(lInputCounter + 2) And k_bytmask2) * k_bytShift4) + (bytInput(lInputCounter + 4) \ k_bytShift2)

lWorkspaceCounter = lWorkspaceCounter + 1

Case 7：

bytWorkspace(lWorkspaceCounter) = (bytInput(lInputCounter) * k_bytShift2) + (bytInput(lInputCounter + 2) \ k_bytShift4)

bytWorkspace(lWorkspaceCounter + 1) = ((bytInput(lInputCounter + 2) And k_bytmask2) * k_bytShift4) + (bytInput(lInputCounter + 4) \ k_bytShift2)

bytWorkspace(lWorkspaceCounter + 2) = ((bytInput(lInputCounter + 4) And k_bytmask1) * k_bytShift6) + bytInput(lInputCounter + 6)

lWorkspaceCounter = lWorkspaceCounter + 2

End Select

ReDim bytResult(LBound(bytWorkspace) To lWorkspaceCounter) As Byte

If LBound(bytWorkspace) = 0 Then lWorkspaceCounter = lWorkspaceCounter + 1

CopyMemoryVarPtr (bytResult(LBound(bytResult)))， VarPtr(bytWorkspace(LBound(bytWorkspace)))， lWorkspaceCounter

DecodeArray64 = bytResult

End Function

Public Function Encode64(ByRefsInput As String) As String

If sInput = “” Then Exit Function

Dim bytTemp() As Byte

bytTemp = StrConv(sInput， vbFromUnicode)

Encode64 = EncodeArray64(bytTemp)

End Function

Private Function EncodeArray64(ByRefbytInput() As Byte) As String

On Error GoTo ErrorHandler

Dim bytWorkspace() As Byte， bytResult() As Byte

Dim bytCrLf(0 To 3) As Byte， lCounter As Long

Dim lWorkspaceCounter As Long， lLineCounter As Long

Dim lCompleteLines As Long， lBytesRemaining As Long

Dim lpWorkSpace As Long， lpResult As Long

Dim lpCrLf As Long

If UBound(bytInput) 《 1024 Then

ReDim bytWorkspace(LBound(bytInput) To (LBound(bytInput) + 4096)) As Byte

Else

ReDim bytWorkspace(LBound(bytInput) To (UBound(bytInput) * 4)) As Byte

End If

lWorkspaceCounter = LBound(bytWorkspace)

For lCounter = LBound(bytInput) To (UBound(bytInput) - ((UBound(bytInput) Mod 3) + 3)) Step 3

bytWorkspace(lWorkspaceCounter) = m_bytIndex((bytInput(lCounter) \ k_bytShift2))

bytWorkspace(lWorkspaceCounter + 2) = m_bytIndex(((bytInput(lCounter) And k_bytmask1) * k_bytShift4) + ((bytInput(lCounter + 1)) \ k_bytShift4))

bytWorkspace(lWorkspaceCounter + 4) = m_bytIndex(((bytInput(lCounter + 1) And k_bytmask2) * k_bytShift2) + (bytInput(lCounter + 2) \ k_bytShift6))

bytWorkspace(lWorkspaceCounter + 6) = m_bytIndex(bytInput(lCounter + 2) And k_bytmask3)

lWorkspaceCounter = lWorkspaceCounter + 8

Next lCounter

Select Case (UBound(bytInput) Mod 3)：

Case 0：

bytWorkspace(lWorkspaceCounter) = m_bytIndex((bytInput(lCounter) \ k_bytShift2))

bytWorkspace(lWorkspaceCounter + 2) = m_bytIndex((bytInput(lCounter) And k_bytmask1) * k_bytShift4)

bytWorkspace(lWorkspaceCounter + 4) = k_bytEqualSign

bytWorkspace(lWorkspaceCounter + 6) = k_bytEqualSign

Case 1：

bytWorkspace(lWorkspaceCounter) = m_bytIndex((bytInput(lCounter) \ k_bytShift2))

bytWorkspace(lWorkspaceCounter + 2) = m_bytIndex(((bytInput(lCounter) And k_bytmask1) * k_bytShift4) + ((bytInput(lCounter + 1)) \ k_bytShift4))

bytWorkspace(lWorkspaceCounter + 4) = m_bytIndex((bytInput(lCounter + 1) And k_bytmask2) * k_bytShift2)

bytWorkspace(lWorkspaceCounter + 6) = k_bytEqualSign

Case 2：

bytWorkspace(lWorkspaceCounter) = m_bytIndex((bytInput(lCounter) \ k_bytShift2))

bytWorkspace(lWorkspaceCounter + 2) = m_bytIndex(((bytInput(lCounter) And k_bytmask1) * k_bytShift4) + ((bytInput(lCounter + 1)) \ k_bytShift4))

bytWorkspace(lWorkspaceCounter + 4) = m_bytIndex(((bytInput(lCounter + 1) And k_bytmask2) * k_bytShift2) + ((bytInput(lCounter + 2)) \ k_bytShift6))

bytWorkspace(lWorkspaceCounter + 6) = m_bytIndex(bytInput(lCounter + 2) And k_bytmask3)

End Select

lWorkspaceCounter = lWorkspaceCounter + 8

If lWorkspaceCounter 《= k_lMaxBytesPerLine Then

EncodeArray64 = Left$(bytWorkspace， InStr(1， bytWorkspace， Chr$(0)) - 1)

Else

bytCrLf(0) = 13

bytCrLf(1) = 0

bytCrLf(2) = 10

bytCrLf(3) = 0

ReDim bytResult(LBound(bytWorkspace) To UBound(bytWorkspace))

lpWorkSpace = VarPtr(bytWorkspace(LBound(bytWorkspace)))

lpResult = VarPtr(bytResult(LBound(bytResult)))

lpCrLf = VarPtr(bytCrLf(LBound(bytCrLf)))

lCompleteLines = Fix(lWorkspaceCounter / k_lMaxBytesPerLine)

For lLineCounter = 0 To lCompleteLines

CopyMemorylpResult ， lpWorkSpace， k_lMaxBytesPerLine

lpWorkSpace = lpWorkSpace + k_lMaxBytesPerLine

lpResult = lpResult + k_lMaxBytesPerLine

CopyMemorylpResult ， lpCrLf， 4&

lpResult = lpResult + 4&

Next lLineCounter

lBytesRemaining = lWorkspaceCounter - (lCompleteLines * k_lMaxBytesPerLine)

If lBytesRemaining 》 0 Then CopyMemorylpResult ， lpWorkSpace， lBytesRemaining

EncodeArray64 = Left$(bytResult， InStr(1， bytResult， Chr$(0)) - 1)

End If

Exit Function

ErrorHandler：

Er As ebytResult

EncodeArray64 = bytResult

End Function