All:
I'm attempting to use Blowfish encryption with VBA. I've found some brilliant code written into a VB class that looks like it takes care of my needs, but I cannot seem to get it to work (and I can't seem to find a README for it...). The code is below:
From what I understand, this is actually written as a VB class, but I was able to import it as clsBlowfish into an Excel VBA project with no problems. I'm trying to start simply, just encrypting a single, hard-coded string with a passkey. Here's the code I'm attempting:
This returns a "Run-time error '13': Type mismatch".
Any thoughts? All help would be greatly appreciated.
I'm attempting to use Blowfish encryption with VBA. I've found some brilliant code written into a VB class that looks like it takes care of my needs, but I cannot seem to get it to work (and I can't seem to find a README for it...). The code is below:
Code:
Option Explicit
' Visual Basic Blowfish Implementation
' Algorithm Author: Bruce Schneier
' VB Implementation: David Midkiff (mznull@earthlink.net)
'
' Standard Blowfish implementation with file support, Base64 conversion,
' and overall optimisations for Visual Basic. Blowfish is considered one
' of the strongest encryption algorithms on the market and is much faster
' than the IDEA cipher. It supports variable length keys up to 448-bits. I
' would recommend this cipher for high security risk related solutions since
' it is unpatented and free for use.
'
' Information on the Blowfish algorithm can be found at:
' http://www.counterpane.com/blowfish.html
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Event Progress(Percent As Long)
Private Const Rounds = 16
Private m_pBox(0 To Rounds + 1) As Long
Private m_sBox(0 To 3, 0 To 255) As Long
Private m_KeyValue As String
Private m_RunningCompiled As Boolean
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)
Private Sub Initialize64()
m_bytIndex(0) = 65 'Asc("A")
m_bytIndex(1) = 66 'Asc("B")
m_bytIndex(2) = 67 'Asc("C")
m_bytIndex(3) = 68 'Asc("D")
m_bytIndex(4) = 69 'Asc("E")
m_bytIndex(5) = 70 'Asc("F")
m_bytIndex(6) = 71 'Asc("G")
m_bytIndex(7) = 72 'Asc("H")
m_bytIndex(8) = 73 'Asc("I")
m_bytIndex(9) = 74 'Asc("J")
m_bytIndex(10) = 75 'Asc("K")
m_bytIndex(11) = 76 'Asc("L")
m_bytIndex(12) = 77 'Asc("M")
m_bytIndex(13) = 78 'Asc("N")
m_bytIndex(14) = 79 'Asc("O")
m_bytIndex(15) = 80 'Asc("P")
m_bytIndex(16) = 81 'Asc("Q")
m_bytIndex(17) = 82 'Asc("R")
m_bytIndex(18) = 83 'Asc("S")
m_bytIndex(19) = 84 'Asc("T")
m_bytIndex(20) = 85 'Asc("U")
m_bytIndex(21) = 86 'Asc("V")
m_bytIndex(22) = 87 'Asc("W")
m_bytIndex(23) = 88 'Asc("X")
m_bytIndex(24) = 89 'Asc("Y")
m_bytIndex(25) = 90 'Asc("Z")
m_bytIndex(26) = 97 'Asc("a")
m_bytIndex(27) = 98 'Asc("b")
m_bytIndex(28) = 99 'Asc("c")
m_bytIndex(29) = 100 'Asc("d")
m_bytIndex(30) = 101 'Asc("e")
m_bytIndex(31) = 102 'Asc("f")
m_bytIndex(32) = 103 'Asc("g")
m_bytIndex(33) = 104 'Asc("h")
m_bytIndex(34) = 105 'Asc("i")
m_bytIndex(35) = 106 'Asc("j")
m_bytIndex(36) = 107 'Asc("k")
m_bytIndex(37) = 108 'Asc("l")
m_bytIndex(38) = 109 'Asc("m")
m_bytIndex(39) = 110 'Asc("n")
m_bytIndex(40) = 111 'Asc("o")
m_bytIndex(41) = 112 'Asc("p")
m_bytIndex(42) = 113 'Asc("q")
m_bytIndex(43) = 114 'Asc("r")
m_bytIndex(44) = 115 'Asc("s")
m_bytIndex(45) = 116 'Asc("t")
m_bytIndex(46) = 117 'Asc("u")
m_bytIndex(47) = 118 'Asc("v")
m_bytIndex(48) = 119 'Asc("w")
m_bytIndex(49) = 120 'Asc("x")
m_bytIndex(50) = 121 'Asc("y")
m_bytIndex(51) = 122 'Asc("z")
m_bytIndex(52) = 48 'Asc("0")
m_bytIndex(53) = 49 'Asc("1")
m_bytIndex(54) = 50 'Asc("2")
m_bytIndex(55) = 51 'Asc("3")
m_bytIndex(56) = 52 'Asc("4")
m_bytIndex(57) = 53 'Asc("5")
m_bytIndex(58) = 54 'Asc("6")
m_bytIndex(59) = 55 'Asc("7")
m_bytIndex(60) = 56 'Asc("8")
m_bytIndex(61) = 57 'Asc("9")
m_bytIndex(62) = 43 'Asc("+")
m_bytIndex(63) = 47 'Asc("/")
m_bytReverseIndex(65) = 0 'Asc("A")
m_bytReverseIndex(66) = 1 'Asc("B")
m_bytReverseIndex(67) = 2 'Asc("C")
m_bytReverseIndex(68) = 3 'Asc("D")
m_bytReverseIndex(69) = 4 'Asc("E")
m_bytReverseIndex(70) = 5 'Asc("F")
m_bytReverseIndex(71) = 6 'Asc("G")
m_bytReverseIndex(72) = 7 'Asc("H")
m_bytReverseIndex(73) = 8 'Asc("I")
m_bytReverseIndex(74) = 9 'Asc("J")
m_bytReverseIndex(75) = 10 'Asc("K")
m_bytReverseIndex(76) = 11 'Asc("L")
m_bytReverseIndex(77) = 12 'Asc("M")
m_bytReverseIndex(78) = 13 'Asc("N")
m_bytReverseIndex(79) = 14 'Asc("O")
m_bytReverseIndex(80) = 15 'Asc("P")
m_bytReverseIndex(81) = 16 'Asc("Q")
m_bytReverseIndex(82) = 17 'Asc("R")
m_bytReverseIndex(83) = 18 'Asc("S")
m_bytReverseIndex(84) = 19 'Asc("T")
m_bytReverseIndex(85) = 20 'Asc("U")
m_bytReverseIndex(86) = 21 'Asc("V")
m_bytReverseIndex(87) = 22 'Asc("W")
m_bytReverseIndex(88) = 23 'Asc("X")
m_bytReverseIndex(89) = 24 'Asc("Y")
m_bytReverseIndex(90) = 25 'Asc("Z")
m_bytReverseIndex(97) = 26 'Asc("a")
m_bytReverseIndex(98) = 27 'Asc("b")
m_bytReverseIndex(99) = 28 'Asc("c")
m_bytReverseIndex(100) = 29 'Asc("d")
m_bytReverseIndex(101) = 30 'Asc("e")
m_bytReverseIndex(102) = 31 'Asc("f")
m_bytReverseIndex(103) = 32 'Asc("g")
m_bytReverseIndex(104) = 33 'Asc("h")
m_bytReverseIndex(105) = 34 'Asc("i")
m_bytReverseIndex(106) = 35 'Asc("j")
m_bytReverseIndex(107) = 36 'Asc("k")
m_bytReverseIndex(108) = 37 'Asc("l")
m_bytReverseIndex(109) = 38 'Asc("m")
m_bytReverseIndex(110) = 39 'Asc("n")
m_bytReverseIndex(111) = 40 'Asc("o")
m_bytReverseIndex(112) = 41 'Asc("p")
m_bytReverseIndex(113) = 42 'Asc("q")
m_bytReverseIndex(114) = 43 'Asc("r")
m_bytReverseIndex(115) = 44 'Asc("s")
m_bytReverseIndex(116) = 45 'Asc("t")
m_bytReverseIndex(117) = 46 'Asc("u")
m_bytReverseIndex(118) = 47 'Asc("v")
m_bytReverseIndex(119) = 48 'Asc("w")
m_bytReverseIndex(120) = 49 'Asc("x")
m_bytReverseIndex(121) = 50 'Asc("y")
m_bytReverseIndex(122) = 51 'Asc("z")
m_bytReverseIndex(48) = 52 'Asc("0")
m_bytReverseIndex(49) = 53 'Asc("1")
m_bytReverseIndex(50) = 54 'Asc("2")
m_bytReverseIndex(51) = 55 'Asc("3")
m_bytReverseIndex(52) = 56 'Asc("4")
m_bytReverseIndex(53) = 57 'Asc("5")
m_bytReverseIndex(54) = 58 'Asc("6")
m_bytReverseIndex(55) = 59 'Asc("7")
m_bytReverseIndex(56) = 60 'Asc("8")
m_bytReverseIndex(57) = 61 'Asc("9")
m_bytReverseIndex(43) = 62 'Asc("+")
m_bytReverseIndex(47) = 63 'Asc("/")
End Sub
Public Function Decode64(sInput As String) As String
If sInput = "" Then Exit Function
Decode64 = StrConv(DecodeArray64(sInput), vbUnicode)
End Function
Public Function DecodeArray64(sInput As String) As Byte()
If m_bytReverseIndex(47) <> 63 Then Initialize64
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
CopyMemory VarPtr(bytResult(LBound(bytResult))), VarPtr(bytWorkspace(LBound(bytWorkspace))), lWorkspaceCounter
DecodeArray64 = bytResult
End Function
Public Function Encode64(ByRef sInput As String) As String
If sInput = "" Then Exit Function
Dim bytTemp() As Byte
bytTemp = StrConv(sInput, vbFromUnicode)
Encode64 = EncodeArray64(bytTemp)
End Function
Public Function EncodeArray64(ByRef bytInput() As Byte) As String
On Error GoTo ErrorHandler
If m_bytReverseIndex(47) <> 63 Then Initialize64
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
CopyMemory lpResult, lpWorkSpace, k_lMaxBytesPerLine
lpWorkSpace = lpWorkSpace + k_lMaxBytesPerLine
lpResult = lpResult + k_lMaxBytesPerLine
CopyMemory lpResult, lpCrLf, 4&
lpResult = lpResult + 4&
Next lLineCounter
lBytesRemaining = lWorkspaceCounter - (lCompleteLines * k_lMaxBytesPerLine)
If lBytesRemaining > 0 Then CopyMemory lpResult, lpWorkSpace, lBytesRemaining
EncodeArray64 = Left$(bytResult, InStr(1, bytResult, Chr$(0)) - 1)
End If
Exit Function
ErrorHandler:
Erase bytResult
EncodeArray64 = bytResult
End Function
Private Static Sub DecryptBlock(Xl As Long, Xr As Long)
Dim i As Long, j As Long, K As Long
K = Xr
Xr = Xl Xor m_pBox(Rounds + 1)
Xl = K Xor m_pBox(Rounds)
j = Rounds - 2
For i = 0 To (Rounds \ 2 - 1)
Xl = Xl Xor f(Xr)
Xr = Xr Xor m_pBox(j + 1)
Xr = Xr Xor f(Xl)
Xl = Xl Xor m_pBox(j)
j = j - 2
Next
End Sub
Private Static Sub EncryptBlock(Xl As Long, Xr As Long)
Dim i As Long, j As Long, Temp As Long
j = 0
For i = 0 To (Rounds \ 2 - 1)
Xl = Xl Xor m_pBox(j)
Xr = Xr Xor f(Xl)
Xr = Xr Xor m_pBox(j + 1)
Xl = Xl Xor f(Xr)
j = j + 2
Next
Temp = Xr
Xr = Xl Xor m_pBox(Rounds)
Xl = Temp Xor m_pBox(Rounds + 1)
End Sub
Public Sub EncryptByte(byteArray() As Byte, Optional Key As String)
Dim Offset As Long, OrigLen As Long, LeftWord As Long, RightWord As Long, CipherLen As Long, CipherLeft As Long, CipherRight As Long, CurrPercent As Long, NextPercent As Long
If (Len(Key) > 0) Then Me.Key = Key
OrigLen = UBound(byteArray) + 1
CipherLen = OrigLen + 12
If (CipherLen Mod 8 <> 0) Then CipherLen = CipherLen + 8 - (CipherLen Mod 8)
ReDim Preserve byteArray(CipherLen - 1)
Call CopyMem(byteArray(12), byteArray(0), OrigLen)
Call CopyMem(byteArray(8), OrigLen, 4)
Call Randomize
Call CopyMem(byteArray(0), CLng(2147483647 * Rnd), 4)
Call CopyMem(byteArray(4), CLng(2147483647 * Rnd), 4)
For Offset = 0 To (CipherLen - 1) Step 8
Call GetWord(LeftWord, byteArray(), Offset)
Call GetWord(RightWord, byteArray(), Offset + 4)
LeftWord = LeftWord Xor CipherLeft
RightWord = RightWord Xor CipherRight
Call EncryptBlock(LeftWord, RightWord)
Call PutWord(LeftWord, byteArray(), Offset)
Call PutWord(RightWord, byteArray(), Offset + 4)
CipherLeft = LeftWord
CipherRight = RightWord
If (Offset >= NextPercent) Then
CurrPercent = Int((Offset / CipherLen) * 100)
NextPercent = (CipherLen * ((CurrPercent + 1) / 100)) + 1
RaiseEvent Progress(CurrPercent)
End If
Next
If (CurrPercent <> 100) Then RaiseEvent Progress(100)
End Sub
Public Function EncryptString(Text As String, Optional Key As String, Optional OutputIn64 As Boolean) As String
Dim byteArray() As Byte
byteArray() = StrConv(Text, vbFromUnicode)
Call EncryptByte(byteArray(), Key)
EncryptString = StrConv(byteArray(), vbUnicode)
If OutputIn64 = True Then EncryptString = Encode64(EncryptString)
Erase byteArray(): Key = "": Text = ""
End Function
Public Function DecryptString(Text As String, Optional Key As String, Optional IsTextIn64 As Boolean) As String
Dim byteArray() As Byte
If IsTextIn64 = True Then Text = Decode64(Text)
byteArray() = StrConv(Text, vbFromUnicode)
Call DecryptByte(byteArray(), Key)
DecryptString = StrConv(byteArray(), vbUnicode)
Erase byteArray(): Key = "": Text = ""
End Function
Public Sub DecryptByte(byteArray() As Byte, Optional Key As String)
On Error GoTo ErrorHandler
Dim Offset As Long, OrigLen As Long, LeftWord As Long, RightWord As Long, CipherLen As Long, CipherLeft As Long, CipherRight As Long, CurrPercent As Long, NextPercent As Long
If (Len(Key) > 0) Then Me.Key = Key
CipherLen = UBound(byteArray) + 1
For Offset = 0 To (CipherLen - 1) Step 8
Call GetWord(LeftWord, byteArray(), Offset)
Call GetWord(RightWord, byteArray(), Offset + 4)
Call DecryptBlock(LeftWord, RightWord)
LeftWord = LeftWord Xor CipherLeft
RightWord = RightWord Xor CipherRight
Call GetWord(CipherLeft, byteArray(), Offset)
Call GetWord(CipherRight, byteArray(), Offset + 4)
Call PutWord(LeftWord, byteArray(), Offset)
Call PutWord(RightWord, byteArray(), Offset + 4)
If Offset >= NextPercent Then
CurrPercent = Int((Offset / CipherLen) * 100)
NextPercent = (CipherLen * ((CurrPercent + 1) / 100)) + 1
RaiseEvent Progress(CurrPercent)
End If
Next
Call CopyMem(OrigLen, byteArray(8), 4)
If (CipherLen - OrigLen > 19) Or (CipherLen - OrigLen < 12) Then Call Err.Raise(vbObjectError, , "Incorrect size descriptor in Blowfish decryption")
Call CopyMem(byteArray(0), byteArray(12), OrigLen)
ReDim Preserve byteArray(OrigLen - 1)
If CurrPercent <> 100 Then RaiseEvent Progress(100)
ErrorHandler:
End Sub
Private Static Function f(ByVal x As Long) As Long
Dim xb(0 To 3) As Byte
Call CopyMem(xb(0), x, 4)
If (m_RunningCompiled) Then f = (((m_sBox(0, xb(3)) + m_sBox(1, xb(2))) Xor m_sBox(2, xb(1))) + m_sBox(3, xb(0))) Else f = UnsignedAdd((UnsignedAdd(m_sBox(0, xb(3)), m_sBox(1, xb(2))) Xor m_sBox(2, xb(1))), m_sBox(3, xb(0)))
End Function
Private Static Sub GetWord(LongValue As Long, CryptBuffer() As Byte, Offset As Long)
Dim bb(0 To 3) As Byte
bb(3) = CryptBuffer(Offset)
bb(2) = CryptBuffer(Offset + 1)
bb(1) = CryptBuffer(Offset + 2)
bb(0) = CryptBuffer(Offset + 3)
Call CopyMem(LongValue, bb(0), 4)
End Sub
Private Static Sub PutWord(LongValue As Long, CryptBuffer() As Byte, Offset As Long)
Dim bb(0 To 3) As Byte
Call CopyMem(bb(0), LongValue, 4)
CryptBuffer(Offset) = bb(3)
CryptBuffer(Offset + 1) = bb(2)
CryptBuffer(Offset + 2) = bb(1)
CryptBuffer(Offset + 3) = bb(0)
End Sub
Private Static Function UnsignedAdd(ByVal Data1 As Long, Data2 As Long) As Long
Dim x1(0 To 3) As Byte, x2(0 To 3) As Byte, xx(0 To 3) As Byte, Rest As Long, Value As Long, a As Long
Call CopyMem(x1(0), Data1, 4)
Call CopyMem(x2(0), Data2, 4)
Rest = 0
For a = 0 To 3
Value = CLng(x1(a)) + CLng(x2(a)) + Rest
xx(a) = Value And 255
Rest = Value \ 256
Next
Call CopyMem(UnsignedAdd, xx(0), 4)
End Function
Private Function UnsignedDel(Data1 As Long, Data2 As Long) As Long
Dim x1(0 To 3) As Byte, x2(0 To 3) As Byte, xx(0 To 3) As Byte, Rest As Long, Value As Long, a As Long
Call CopyMem(x1(0), Data1, 4)
Call CopyMem(x2(0), Data2, 4)
Call CopyMem(xx(0), UnsignedDel, 4)
For a = 0 To 3
Value = CLng(x1(a)) - CLng(x2(a)) - Rest
If (Value < 0) Then
Value = Value + 256
Rest = 1
Else
Rest = 0
End If
xx(a) = Value
Next
Call CopyMem(UnsignedDel, xx(0), 4)
End Function
Public Property Let Key(New_Value As String)
Dim i As Long, j As Long, K As Long, dataX As Long, datal As Long, datar As Long, Key() As Byte, KeyLength As Long
Class_Initialize
If (m_KeyValue = New_Value) Then Exit Property
m_KeyValue = New_Value
KeyLength = Len(New_Value)
Key() = StrConv(New_Value, vbFromUnicode)
j = 0
For i = 0 To (Rounds + 1)
dataX = 0
For K = 0 To 3
Call CopyMem(ByVal VarPtr(dataX) + 1, dataX, 3)
dataX = (dataX Or Key(j))
j = j + 1
If (j >= KeyLength) Then j = 0
Next
m_pBox(i) = m_pBox(i) Xor dataX
Next
datal = 0: datar = 0
For i = 0 To (Rounds + 1) Step 2
Call EncryptBlock(datal, datar)
m_pBox(i) = datal
m_pBox(i + 1) = datar
Next
For i = 0 To 3
For j = 0 To 255 Step 2
Call EncryptBlock(datal, datar)
m_sBox(i, j) = datal
m_sBox(i, j + 1) = datar
Next
Next
End Property
Private Sub Class_Initialize()
On Local Error Resume Next
m_RunningCompiled = ((2147483647 + 1) < 0)
m_pBox(0) = &H243F6A88
m_pBox(1) = &H85A308D3
m_pBox(2) = &H13198A2E
m_pBox(3) = &H3707344
m_pBox(4) = &HA4093822
m_pBox(5) = &H299F31D0
m_pBox(6) = &H82EFA98
m_pBox(7) = &HEC4E6C89
m_pBox(8) = &H452821E6
m_pBox(9) = &H38D01377
m_pBox(10) = &HBE5466CF
m_pBox(11) = &H34E90C6C
m_pBox(12) = &HC0AC29B7
m_pBox(13) = &HC97C50DD
m_pBox(14) = &H3F84D5B5
m_pBox(15) = &HB5470917
m_pBox(16) = &H9216D5D9
m_pBox(17) = &H8979FB1B
m_sBox(0, 0) = &HD1310BA6
m_sBox(1, 0) = &H98DFB5AC
m_sBox(2, 0) = &H2FFD72DB
m_sBox(3, 0) = &HD01ADFB7
m_sBox(0, 1) = &HB8E1AFED
m_sBox(1, 1) = &H6A267E96
m_sBox(2, 1) = &HBA7C9045
m_sBox(3, 1) = &HF12C7F99
m_sBox(0, 2) = &H24A19947
m_sBox(1, 2) = &HB3916CF7
m_sBox(2, 2) = &H801F2E2
m_sBox(3, 2) = &H858EFC16
m_sBox(0, 3) = &H636920D8
m_sBox(1, 3) = &H71574E69
m_sBox(2, 3) = &HA458FEA3
m_sBox(3, 3) = &HF4933D7E
m_sBox(0, 4) = &HD95748F
m_sBox(1, 4) = &H728EB658
m_sBox(2, 4) = &H718BCD58
m_sBox(3, 4) = &H82154AEE
m_sBox(0, 5) = &H7B54A41D
m_sBox(1, 5) = &HC25A59B5
m_sBox(2, 5) = &H9C30D539
m_sBox(3, 5) = &H2AF26013
m_sBox(0, 6) = &HC5D1B023
m_sBox(1, 6) = &H286085F0
m_sBox(2, 6) = &HCA417918
m_sBox(3, 6) = &HB8DB38EF
m_sBox(0, 7) = &H8E79DCB0
m_sBox(1, 7) = &H603A180E
m_sBox(2, 7) = &H6C9E0E8B
m_sBox(3, 7) = &HB01E8A3E
m_sBox(0, 8) = &HD71577C1
m_sBox(1, 8) = &HBD314B27
m_sBox(2, 8) = &H78AF2FDA
m_sBox(3, 8) = &H55605C60
m_sBox(0, 9) = &HE65525F3
m_sBox(1, 9) = &HAA55AB94
m_sBox(2, 9) = &H57489862
m_sBox(3, 9) = &H63E81440
m_sBox(0, 10) = &H55CA396A
m_sBox(1, 10) = &H2AAB10B6
m_sBox(2, 10) = &HB4CC5C34
m_sBox(3, 10) = &H1141E8CE
m_sBox(0, 11) = &HA15486AF
m_sBox(1, 11) = &H7C72E993
m_sBox(2, 11) = &HB3EE1411
m_sBox(3, 11) = &H636FBC2A
m_sBox(0, 12) = &H2BA9C55D
m_sBox(1, 12) = &H741831F6
m_sBox(2, 12) = &HCE5C3E16
m_sBox(3, 12) = &H9B87931E
m_sBox(0, 13) = &HAFD6BA33
m_sBox(1, 13) = &H6C24CF5C
m_sBox(2, 13) = &H7A325381
m_sBox(3, 13) = &H28958677
m_sBox(0, 14) = &H3B8F4898
m_sBox(1, 14) = &H6B4BB9AF
m_sBox(2, 14) = &HC4BFE81B
m_sBox(3, 14) = &H66282193
m_sBox(0, 15) = &H61D809CC
m_sBox(1, 15) = &HFB21A991
m_sBox(2, 15) = &H487CAC60
m_sBox(3, 15) = &H5DEC8032
m_sBox(0, 16) = &HEF845D5D
m_sBox(1, 16) = &HE98575B1
m_sBox(2, 16) = &HDC262302
m_sBox(3, 16) = &HEB651B88
m_sBox(0, 17) = &H23893E81
m_sBox(1, 17) = &HD396ACC5
m_sBox(2, 17) = &HF6D6FF3
m_sBox(3, 17) = &H83F44239
m_sBox(0, 18) = &H2E0B4482
m_sBox(1, 18) = &HA4842004
m_sBox(2, 18) = &H69C8F04A
m_sBox(3, 18) = &H9E1F9B5E
m_sBox(0, 19) = &H21C66842
m_sBox(1, 19) = &HF6E96C9A
m_sBox(2, 19) = &H670C9C61
m_sBox(3, 19) = &HABD388F0
m_sBox(0, 20) = &H6A51A0D2
m_sBox(1, 20) = &HD8542F68
m_sBox(2, 20) = &H960FA728
m_sBox(3, 20) = &HAB5133A3
m_sBox(0, 21) = &H6EEF0B6C
m_sBox(1, 21) = &H137A3BE4
m_sBox(2, 21) = &HBA3BF050
m_sBox(3, 21) = &H7EFB2A98
m_sBox(0, 22) = &HA1F1651D
m_sBox(1, 22) = &H39AF0176
m_sBox(2, 22) = &H66CA593E
m_sBox(3, 22) = &H82430E88
m_sBox(0, 23) = &H8CEE8619
m_sBox(1, 23) = &H456F9FB4
m_sBox(2, 23) = &H7D84A5C3
m_sBox(3, 23) = &H3B8B5EBE
m_sBox(0, 24) = &HE06F75D8
m_sBox(1, 24) = &H85C12073
m_sBox(2, 24) = &H401A449F
m_sBox(3, 24) = &H56C16AA6
m_sBox(0, 25) = &H4ED3AA62
m_sBox(1, 25) = &H363F7706
m_sBox(2, 25) = &H1BFEDF72
m_sBox(3, 25) = &H429B023D
m_sBox(0, 26) = &H37D0D724
m_sBox(1, 26) = &HD00A1248
m_sBox(2, 26) = &HDB0FEAD3
m_sBox(3, 26) = &H49F1C09B
m_sBox(0, 27) = &H75372C9
m_sBox(1, 27) = &H80991B7B
m_sBox(2, 27) = &H25D479D8
m_sBox(3, 27) = &HF6E8DEF7
m_sBox(0, 28) = &HE3FE501A
m_sBox(1, 28) = &HB6794C3B
m_sBox(2, 28) = &H976CE0BD
m_sBox(3, 28) = &H4C006BA
m_sBox(0, 29) = &HC1A94FB6
m_sBox(1, 29) = &H409F60C4
m_sBox(2, 29) = &H5E5C9EC2
m_sBox(3, 29) = &H196A2463
m_sBox(0, 30) = &H68FB6FAF
m_sBox(1, 30) = &H3E6C53B5
m_sBox(2, 30) = &H1339B2EB
m_sBox(3, 30) = &H3B52EC6F
m_sBox(0, 31) = &H6DFC511F
m_sBox(1, 31) = &H9B30952C
m_sBox(2, 31) = &HCC814544
m_sBox(3, 31) = &HAF5EBD09
m_sBox(0, 32) = &HBEE3D004
m_sBox(1, 32) = &HDE334AFD
m_sBox(2, 32) = &H660F2807
m_sBox(3, 32) = &H192E4BB3
m_sBox(0, 33) = &HC0CBA857
m_sBox(1, 33) = &H45C8740F
m_sBox(2, 33) = &HD20B5F39
m_sBox(3, 33) = &HB9D3FBDB
m_sBox(0, 34) = &H5579C0BD
m_sBox(1, 34) = &H1A60320A
m_sBox(2, 34) = &HD6A100C6
m_sBox(3, 34) = &H402C7279
m_sBox(0, 35) = &H679F25FE
m_sBox(1, 35) = &HFB1FA3CC
m_sBox(2, 35) = &H8EA5E9F8
m_sBox(3, 35) = &HDB3222F8
m_sBox(0, 36) = &H3C7516DF
m_sBox(1, 36) = &HFD616B15
m_sBox(2, 36) = &H2F501EC8
m_sBox(3, 36) = &HAD0552AB
m_sBox(0, 37) = &H323DB5FA
m_sBox(1, 37) = &HFD238760
m_sBox(2, 37) = &H53317B48
m_sBox(3, 37) = &H3E00DF82
m_sBox(0, 38) = &H9E5C57BB
m_sBox(1, 38) = &HCA6F8CA0
m_sBox(2, 38) = &H1A87562E
m_sBox(3, 38) = &HDF1769DB
m_sBox(0, 39) = &HD542A8F6
m_sBox(1, 39) = &H287EFFC3
m_sBox(2, 39) = &HAC6732C6
m_sBox(3, 39) = &H8C4F5573
m_sBox(0, 40) = &H695B27B0
m_sBox(1, 40) = &HBBCA58C8
m_sBox(2, 40) = &HE1FFA35D
m_sBox(3, 40) = &HB8F011A0
m_sBox(0, 41) = &H10FA3D98
m_sBox(1, 41) = &HFD2183B8
m_sBox(2, 41) = &H4AFCB56C
m_sBox(3, 41) = &H2DD1D35B
m_sBox(0, 42) = &H9A53E479
m_sBox(1, 42) = &HB6F84565
m_sBox(2, 42) = &HD28E49BC
m_sBox(3, 42) = &H4BFB9790
m_sBox(0, 43) = &HE1DDF2DA
m_sBox(1, 43) = &HA4CB7E33
m_sBox(2, 43) = &H62FB1341
m_sBox(3, 43) = &HCEE4C6E8
m_sBox(0, 44) = &HEF20CADA
m_sBox(1, 44) = &H36774C01
m_sBox(2, 44) = &HD07E9EFE
m_sBox(3, 44) = &H2BF11FB4
m_sBox(0, 45) = &H95DBDA4D
m_sBox(1, 45) = &HAE909198
m_sBox(2, 45) = &HEAAD8E71
m_sBox(3, 45) = &H6B93D5A0
m_sBox(0, 46) = &HD08ED1D0
m_sBox(1, 46) = &HAFC725E0
m_sBox(2, 46) = &H8E3C5B2F
m_sBox(3, 46) = &H8E7594B7
m_sBox(0, 47) = &H8FF6E2FB
m_sBox(1, 47) = &HF2122B64
m_sBox(2, 47) = &H8888B812
m_sBox(3, 47) = &H900DF01C
m_sBox(0, 48) = &H4FAD5EA0
m_sBox(1, 48) = &H688FC31C
m_sBox(2, 48) = &HD1CFF191
m_sBox(3, 48) = &HB3A8C1AD
m_sBox(0, 49) = &H2F2F2218
m_sBox(1, 49) = &HBE0E1777
m_sBox(2, 49) = &HEA752DFE
m_sBox(3, 49) = &H8B021FA1
m_sBox(0, 50) = &HE5A0CC0F
m_sBox(1, 50) = &HB56F74E8
m_sBox(2, 50) = &H18ACF3D6
m_sBox(3, 50) = &HCE89E299
m_sBox(0, 51) = &HB4A84FE0
m_sBox(1, 51) = &HFD13E0B7
m_sBox(2, 51) = &H7CC43B81
m_sBox(3, 51) = &HD2ADA8D9
m_sBox(0, 52) = &H165FA266
m_sBox(1, 52) = &H80957705
m_sBox(2, 52) = &H93CC7314
m_sBox(3, 52) = &H211A1477
m_sBox(0, 53) = &HE6AD2065
m_sBox(1, 53) = &H77B5FA86
m_sBox(2, 53) = &HC75442F5
m_sBox(3, 53) = &HFB9D35CF
m_sBox(0, 54) = &HEBCDAF0C
m_sBox(1, 54) = &H7B3E89A0
m_sBox(2, 54) = &HD6411BD3
m_sBox(3, 54) = &HAE1E7E49
m_sBox(0, 55) = &H250E2D
m_sBox(1, 55) = &H2071B35E
m_sBox(2, 55) = &H226800BB
m_sBox(3, 55) = &H57B8E0AF
m_sBox(0, 56) = &H2464369B
m_sBox(1, 56) = &HF009B91E
m_sBox(2, 56) = &H5563911D
m_sBox(3, 56) = &H59DFA6AA
m_sBox(0, 57) = &H78C14389
m_sBox(1, 57) = &HD95A537F
m_sBox(2, 57) = &H207D5BA2
m_sBox(3, 57) = &H2E5B9C5
m_sBox(0, 58) = &H83260376
m_sBox(1, 58) = &H6295CFA9
m_sBox(2, 58) = &H11C81968
m_sBox(3, 58) = &H4E734A41
m_sBox(0, 59) = &HB3472DCA
m_sBox(1, 59) = &H7B14A94A
m_sBox(2, 59) = &H1B510052
m_sBox(3, 59) = &H9A532915
m_sBox(0, 60) = &HD60F573F
m_sBox(1, 60) = &HBC9BC6E4
m_sBox(2, 60) = &H2B60A476
m_sBox(3, 60) = &H81E67400
m_sBox(0, 61) = &H8BA6FB5
m_sBox(1, 61) = &H571BE91F
m_sBox(2, 61) = &HF296EC6B
m_sBox(3, 61) = &H2A0DD915
m_sBox(0, 62) = &HB6636521
m_sBox(1, 62) = &HE7B9F9B6
m_sBox(2, 62) = &HFF34052E
m_sBox(3, 62) = &HC5855664
m_sBox(0, 63) = &H53B02D5D
m_sBox(1, 63) = &HA99F8FA1
m_sBox(2, 63) = &H8BA4799
m_sBox(3, 63) = &H6E85076A
m_sBox(0, 64) = &H4B7A70E9
m_sBox(1, 64) = &HB5B32944
m_sBox(2, 64) = &HDB75092E
m_sBox(3, 64) = &HC4192623
m_sBox(0, 65) = &HAD6EA6B0
m_sBox(1, 65) = &H49A7DF7D
m_sBox(2, 65) = &H9CEE60B8
m_sBox(3, 65) = &H8FEDB266
m_sBox(0, 66) = &HECAA8C71
m_sBox(1, 66) = &H699A17FF
m_sBox(2, 66) = &H5664526C
m_sBox(3, 66) = &HC2B19EE1
m_sBox(0, 67) = &H193602A5
m_sBox(1, 67) = &H75094C29
m_sBox(2, 67) = &HA0591340
m_sBox(3, 67) = &HE4183A3E
m_sBox(0, 68) = &H3F54989A
m_sBox(1, 68) = &H5B429D65
m_sBox(2, 68) = &H6B8FE4D6
m_sBox(3, 68) = &H99F73FD6
m_sBox(0, 69) = &HA1D29C07
m_sBox(1, 69) = &HEFE830F5
m_sBox(2, 69) = &H4D2D38E6
m_sBox(3, 69) = &HF0255DC1
m_sBox(0, 70) = &H4CDD2086
m_sBox(1, 70) = &H8470EB26
m_sBox(2, 70) = &H6382E9C6
m_sBox(3, 70) = &H21ECC5E
m_sBox(0, 71) = &H9686B3F
m_sBox(1, 71) = &H3EBAEFC9
m_sBox(2, 71) = &H3C971814
m_sBox(3, 71) = &H6B6A70A1
m_sBox(0, 72) = &H687F3584
m_sBox(1, 72) = &H52A0E286
m_sBox(2, 72) = &HB79C5305
m_sBox(3, 72) = &HAA500737
m_sBox(0, 73) = &H3E07841C
m_sBox(1, 73) = &H7FDEAE5C
m_sBox(2, 73) = &H8E7D44EC
m_sBox(3, 73) = &H5716F2B8
m_sBox(0, 74) = &HB03ADA37
m_sBox(1, 74) = &HF0500C0D
m_sBox(2, 74) = &HF01C1F04
m_sBox(3, 74) = &H200B3FF
m_sBox(0, 75) = &HAE0CF51A
m_sBox(1, 75) = &H3CB574B2
m_sBox(2, 75) = &H25837A58
m_sBox(3, 75) = &HDC0921BD
m_sBox(0, 76) = &HD19113F9
m_sBox(1, 76) = &H7CA92FF6
m_sBox(2, 76) = &H94324773
m_sBox(3, 76) = &H22F54701
m_sBox(0, 77) = &H3AE5E581
m_sBox(1, 77) = &H37C2DADC
m_sBox(2, 77) = &HC8B57634
m_sBox(3, 77) = &H9AF3DDA7
m_sBox(0, 78) = &HA9446146
m_sBox(1, 78) = &HFD0030E
m_sBox(2, 78) = &HECC8C73E
m_sBox(3, 78) = &HA4751E41
m_sBox(0, 79) = &HE238CD99
m_sBox(1, 79) = &H3BEA0E2F
m_sBox(2, 79) = &H3280BBA1
m_sBox(3, 79) = &H183EB331
m_sBox(0, 80) = &H4E548B38
m_sBox(1, 80) = &H4F6DB908
m_sBox(2, 80) = &H6F420D03
m_sBox(3, 80) = &HF60A04BF
m_sBox(0, 81) = &H2CB81290
m_sBox(1, 81) = &H24977C79
m_sBox(2, 81) = &H5679B072
m_sBox(3, 81) = &HBCAF89AF
m_sBox(0, 82) = &HDE9A771F
m_sBox(1, 82) = &HD9930810
m_sBox(2, 82) = &HB38BAE12
m_sBox(3, 82) = &HDCCF3F2E
m_sBox(0, 83) = &H5512721F
m_sBox(1, 83) = &H2E6B7124
m_sBox(2, 83) = &H501ADDE6
m_sBox(3, 83) = &H9F84CD87
m_sBox(0, 84) = &H7A584718
m_sBox(1, 84) = &H7408DA17
m_sBox(2, 84) = &HBC9F9ABC
m_sBox(3, 84) = &HE94B7D8C
m_sBox(0, 85) = &HEC7AEC3A
m_sBox(1, 85) = &HDB851DFA
m_sBox(2, 85) = &H63094366
m_sBox(3, 85) = &HC464C3D2
m_sBox(0, 86) = &HEF1C1847
m_sBox(1, 86) = &H3215D908
m_sBox(2, 86) = &HDD433B37
m_sBox(3, 86) = &H24C2BA16
m_sBox(0, 87) = &H12A14D43
m_sBox(1, 87) = &H2A65C451
m_sBox(2, 87) = &H50940002
m_sBox(3, 87) = &H133AE4DD
m_sBox(0, 88) = &H71DFF89E
m_sBox(1, 88) = &H10314E55
m_sBox(2, 88) = &H81AC77D6
m_sBox(3, 88) = &H5F11199B
m_sBox(0, 89) = &H43556F1
m_sBox(1, 89) = &HD7A3C76B
m_sBox(2, 89) = &H3C11183B
m_sBox(3, 89) = &H5924A509
m_sBox(0, 90) = &HF28FE6ED
m_sBox(1, 90) = &H97F1FBFA
m_sBox(2, 90) = &H9EBABF2C
m_sBox(3, 90) = &H1E153C6E
m_sBox(0, 91) = &H86E34570
m_sBox(1, 91) = &HEAE96FB1
m_sBox(2, 91) = &H860E5E0A
m_sBox(3, 91) = &H5A3E2AB3
m_sBox(0, 92) = &H771FE71C
m_sBox(1, 92) = &H4E3D06FA
m_sBox(2, 92) = &H2965DCB9
m_sBox(3, 92) = &H99E71D0F
m_sBox(0, 93) = &H803E89D6
m_sBox(1, 93) = &H5266C825
m_sBox(2, 93) = &H2E4CC978
m_sBox(3, 93) = &H9C10B36A
m_sBox(0, 94) = &HC6150EBA
m_sBox(1, 94) = &H94E2EA78
m_sBox(2, 94) = &HA5FC3C53
m_sBox(3, 94) = &H1E0A2DF4
m_sBox(0, 95) = &HF2F74EA7
m_sBox(1, 95) = &H361D2B3D
m_sBox(2, 95) = &H1939260F
m_sBox(3, 95) = &H19C27960
m_sBox(0, 96) = &H5223A708
m_sBox(1, 96) = &HF71312B6
m_sBox(2, 96) = &HEBADFE6E
m_sBox(3, 96) = &HEAC31F66
m_sBox(0, 97) = &HE3BC4595
m_sBox(1, 97) = &HA67BC883
m_sBox(2, 97) = &HB17F37D1
m_sBox(3, 97) = &H18CFF28
m_sBox(0, 98) = &HC332DDEF
m_sBox(1, 98) = &HBE6C5AA5
m_sBox(2, 98) = &H65582185
m_sBox(3, 98) = &H68AB9802
m_sBox(0, 99) = &HEECEA50F
m_sBox(1, 99) = &HDB2F953B
m_sBox(2, 99) = &H2AEF7DAD
m_sBox(3, 99) = &H5B6E2F84
m_sBox(0, 100) = &H1521B628
m_sBox(1, 100) = &H29076170
m_sBox(2, 100) = &HECDD4775
m_sBox(3, 100) = &H619F1510
m_sBox(0, 101) = &H13CCA830
m_sBox(1, 101) = &HEB61BD96
m_sBox(2, 101) = &H334FE1E
m_sBox(3, 101) = &HAA0363CF
m_sBox(0, 102) = &HB5735C90
m_sBox(1, 102) = &H4C70A239
m_sBox(2, 102) = &HD59E9E0B
m_sBox(3, 102) = &HCBAADE14
m_sBox(0, 103) = &HEECC86BC
m_sBox(1, 103) = &H60622CA7
m_sBox(2, 103) = &H9CAB5CAB
m_sBox(3, 103) = &HB2F3846E
m_sBox(0, 104) = &H648B1EAF
m_sBox(1, 104) = &H19BDF0CA
m_sBox(2, 104) = &HA02369B9
m_sBox(3, 104) = &H655ABB50
m_sBox(0, 105) = &H40685A32
m_sBox(1, 105) = &H3C2AB4B3
m_sBox(2, 105) = &H319EE9D5
m_sBox(3, 105) = &HC021B8F7
m_sBox(0, 106) = &H9B540B19
m_sBox(1, 106) = &H875FA099
m_sBox(2, 106) = &H95F7997E
m_sBox(3, 106) = &H623D7DA8
m_sBox(0, 107) = &HF837889A
m_sBox(1, 107) = &H97E32D77
m_sBox(2, 107) = &H11ED935F
m_sBox(3, 107) = &H16681281
m_sBox(0, 108) = &HE358829
m_sBox(1, 108) = &HC7E61FD6
m_sBox(2, 108) = &H96DEDFA1
m_sBox(3, 108) = &H7858BA99
m_sBox(0, 109) = &H57F584A5
m_sBox(1, 109) = &H1B227263
m_sBox(2, 109) = &H9B83C3FF
m_sBox(3, 109) = &H1AC24696
m_sBox(0, 110) = &HCDB30AEB
m_sBox(1, 110) = &H532E3054
m_sBox(2, 110) = &H8FD948E4
m_sBox(3, 110) = &H6DBC3128
m_sBox(0, 111) = &H58EBF2EF
m_sBox(1, 111) = &H34C6FFEA
m_sBox(2, 111) = &HFE28ED61
m_sBox(3, 111) = &HEE7C3C73
m_sBox(0, 112) = &H5D4A14D9
m_sBox(1, 112) = &HE864B7E3
m_sBox(2, 112) = &H42105D14
m_sBox(3, 112) = &H203E13E0
m_sBox(0, 113) = &H45EEE2B6
m_sBox(1, 113) = &HA3AAABEA
m_sBox(2, 113) = &HDB6C4F15
m_sBox(3, 113) = &HFACB4FD0
m_sBox(0, 114) = &HC742F442
m_sBox(1, 114) = &HEF6ABBB5
m_sBox(2, 114) = &H654F3B1D
m_sBox(3, 114) = &H41CD2105
m_sBox(0, 115) = &HD81E799E
m_sBox(1, 115) = &H86854DC7
m_sBox(2, 115) = &HE44B476A
m_sBox(3, 115) = &H3D816250
m_sBox(0, 116) = &HCF62A1F2
m_sBox(1, 116) = &H5B8D2646
m_sBox(2, 116) = &HFC8883A0
m_sBox(3, 116) = &HC1C7B6A3
m_sBox(0, 117) = &H7F1524C3
m_sBox(1, 117) = &H69CB7492
m_sBox(2, 117) = &H47848A0B
m_sBox(3, 117) = &H5692B285
m_sBox(0, 118) = &H95BBF00
m_sBox(1, 118) = &HAD19489D
m_sBox(2, 118) = &H1462B174
m_sBox(3, 118) = &H23820E00
m_sBox(0, 119) = &H58428D2A
m_sBox(1, 119) = &HC55F5EA
m_sBox(2, 119) = &H1DADF43E
m_sBox(3, 119) = &H233F7061
m_sBox(0, 120) = &H3372F092
m_sBox(1, 120) = &H8D937E41
m_sBox(2, 120) = &HD65FECF1
m_sBox(3, 120) = &H6C223BDB
m_sBox(0, 121) = &H7CDE3759
m_sBox(1, 121) = &HCBEE7460
m_sBox(2, 121) = &H4085F2A7
m_sBox(3, 121) = &HCE77326E
m_sBox(0, 122) = &HA6078084
m_sBox(1, 122) = &H19F8509E
m_sBox(2, 122) = &HE8EFD855
m_sBox(3, 122) = &H61D99735
m_sBox(0, 123) = &HA969A7AA
m_sBox(1, 123) = &HC50C06C2
m_sBox(2, 123) = &H5A04ABFC
m_sBox(3, 123) = &H800BCADC
m_sBox(0, 124) = &H9E447A2E
m_sBox(1, 124) = &HC3453484
m_sBox(2, 124) = &HFDD56705
m_sBox(3, 124) = &HE1E9EC9
m_sBox(0, 125) = &HDB73DBD3
m_sBox(1, 125) = &H105588CD
m_sBox(2, 125) = &H675FDA79
m_sBox(3, 125) = &HE3674340
m_sBox(0, 126) = &HC5C43465
m_sBox(1, 126) = &H713E38D8
m_sBox(2, 126) = &H3D28F89E
m_sBox(3, 126) = &HF16DFF20
m_sBox(0, 127) = &H153E21E7
m_sBox(1, 127) = &H8FB03D4A
m_sBox(2, 127) = &HE6E39F2B
m_sBox(3, 127) = &HDB83ADF7
m_sBox(0, 128) = &HE93D5A68
m_sBox(1, 128) = &H948140F7
m_sBox(2, 128) = &HF64C261C
m_sBox(3, 128) = &H94692934
m_sBox(0, 129) = &H411520F7
m_sBox(1, 129) = &H7602D4F7
m_sBox(2, 129) = &HBCF46B2E
m_sBox(3, 129) = &HD4A20068
m_sBox(0, 130) = &HD4082471
m_sBox(1, 130) = &H3320F46A
m_sBox(2, 130) = &H43B7D4B7
m_sBox(3, 130) = &H500061AF
m_sBox(0, 131) = &H1E39F62E
m_sBox(1, 131) = &H97244546
m_sBox(2, 131) = &H14214F74
m_sBox(3, 131) = &HBF8B8840
m_sBox(0, 132) = &H4D95FC1D
m_sBox(1, 132) = &H96B591AF
m_sBox(2, 132) = &H70F4DDD3
m_sBox(3, 132) = &H66A02F45
m_sBox(0, 133) = &HBFBC09EC
m_sBox(1, 133) = &H3BD9785
m_sBox(2, 133) = &H7FAC6DD0
m_sBox(3, 133) = &H31CB8504
m_sBox(0, 134) = &H96EB27B3
m_sBox(1, 134) = &H55FD3941
m_sBox(2, 134) = &HDA2547E6
m_sBox(3, 134) = &HABCA0A9A
m_sBox(0, 135) = &H28507825
m_sBox(1, 135) = &H530429F4
m_sBox(2, 135) = &HA2C86DA
m_sBox(3, 135) = &HE9B66DFB
m_sBox(0, 136) = &H68DC1462
m_sBox(1, 136) = &HD7486900
m_sBox(2, 136) = &H680EC0A4
m_sBox(3, 136) = &H27A18DEE
m_sBox(0, 137) = &H4F3FFEA2
m_sBox(1, 137) = &HE887AD8C
m_sBox(2, 137) = &HB58CE006
m_sBox(3, 137) = &H7AF4D6B6
m_sBox(0, 138) = &HAACE1E7C
m_sBox(1, 138) = &HD3375FEC
m_sBox(2, 138) = &HCE78A399
m_sBox(3, 138) = &H406B2A42
m_sBox(0, 139) = &H20FE9E35
m_sBox(1, 139) = &HD9F385B9
m_sBox(2, 139) = &HEE39D7AB
m_sBox(3, 139) = &H3B124E8B
m_sBox(0, 140) = &H1DC9FAF7
m_sBox(1, 140) = &H4B6D1856
m_sBox(2, 140) = &H26A36631
m_sBox(3, 140) = &HEAE397B2
m_sBox(0, 141) = &H3A6EFA74
m_sBox(1, 141) = &HDD5B4332
m_sBox(2, 141) = &H6841E7F7
m_sBox(3, 141) = &HCA7820FB
m_sBox(0, 142) = &HFB0AF54E
m_sBox(1, 142) = &HD8FEB397
m_sBox(2, 142) = &H454056AC
m_sBox(3, 142) = &HBA489527
m_sBox(0, 143) = &H55533A3A
m_sBox(1, 143) = &H20838D87
m_sBox(2, 143) = &HFE6BA9B7
m_sBox(3, 143) = &HD096954B
m_sBox(0, 144) = &H55A867BC
m_sBox(1, 144) = &HA1159A58
m_sBox(2, 144) = &HCCA92963
m_sBox(3, 144) = &H99E1DB33
m_sBox(0, 145) = &HA62A4A56
m_sBox(1, 145) = &H3F3125F9
m_sBox(2, 145) = &H5EF47E1C
m_sBox(3, 145) = &H9029317C
m_sBox(0, 146) = &HFDF8E802
m_sBox(1, 146) = &H4272F70
m_sBox(2, 146) = &H80BB155C
m_sBox(3, 146) = &H5282CE3
m_sBox(0, 147) = &H95C11548
m_sBox(1, 147) = &HE4C66D22
m_sBox(2, 147) = &H48C1133F
m_sBox(3, 147) = &HC70F86DC
m_sBox(0, 148) = &H7F9C9EE
m_sBox(1, 148) = &H41041F0F
m_sBox(2, 148) = &H404779A4
m_sBox(3, 148) = &H5D886E17
m_sBox(0, 149) = &H325F51EB
m_sBox(1, 149) = &HD59BC0D1
m_sBox(2, 149) = &HF2BCC18F
m_sBox(3, 149) = &H41113564
m_sBox(0, 150) = &H257B7834
m_sBox(1, 150) = &H602A9C60
m_sBox(2, 150) = &HDFF8E8A3
m_sBox(3, 150) = &H1F636C1B
m_sBox(0, 151) = &HE12B4C2
m_sBox(1, 151) = &H2E1329E
m_sBox(2, 151) = &HAF664FD1
m_sBox(3, 151) = &HCAD18115
m_sBox(0, 152) = &H6B2395E0
m_sBox(1, 152) = &H333E92E1
m_sBox(2, 152) = &H3B240B62
m_sBox(3, 152) = &HEEBEB922
m_sBox(0, 153) = &H85B2A20E
m_sBox(1, 153) = &HE6BA0D99
m_sBox(2, 153) = &HDE720C8C
m_sBox(3, 153) = &H2DA2F728
m_sBox(0, 154) = &HD0127845
m_sBox(1, 154) = &H95B794FD
m_sBox(2, 154) = &H647D0862
m_sBox(3, 154) = &HE7CCF5F0
m_sBox(0, 155) = &H5449A36F
m_sBox(1, 155) = &H877D48FA
m_sBox(2, 155) = &HC39DFD27
m_sBox(3, 155) = &HF33E8D1E
m_sBox(0, 156) = &HA476341
m_sBox(1, 156) = &H992EFF74
m_sBox(2, 156) = &H3A6F6EAB
m_sBox(3, 156) = &HF4F8FD37
m_sBox(0, 157) = &HA812DC60
m_sBox(1, 157) = &HA1EBDDF8
m_sBox(2, 157) = &H991BE14C
m_sBox(3, 157) = &HDB6E6B0D
m_sBox(0, 158) = &HC67B5510
m_sBox(1, 158) = &H6D672C37
m_sBox(2, 158) = &H2765D43B
m_sBox(3, 158) = &HDCD0E804
m_sBox(0, 159) = &HF1290DC7
m_sBox(1, 159) = &HCC00FFA3
m_sBox(2, 159) = &HB5390F92
m_sBox(3, 159) = &H690FED0B
m_sBox(0, 160) = &H667B9FFB
m_sBox(1, 160) = &HCEDB7D9C
m_sBox(2, 160) = &HA091CF0B
m_sBox(3, 160) = &HD9155EA3
m_sBox(0, 161) = &HBB132F88
m_sBox(1, 161) = &H515BAD24
m_sBox(2, 161) = &H7B9479BF
m_sBox(3, 161) = &H763BD6EB
m_sBox(0, 162) = &H37392EB3
m_sBox(1, 162) = &HCC115979
m_sBox(2, 162) = &H8026E297
m_sBox(3, 162) = &HF42E312D
m_sBox(0, 163) = &H6842ADA7
m_sBox(1, 163) = &HC66A2B3B
m_sBox(2, 163) = &H12754CCC
m_sBox(3, 163) = &H782EF11C
m_sBox(0, 164) = &H6A124237
m_sBox(1, 164) = &HB79251E7
m_sBox(2, 164) = &H6A1BBE6
m_sBox(3, 164) = &H4BFB6350
m_sBox(0, 165) = &H1A6B1018
m_sBox(1, 165) = &H11CAEDFA
m_sBox(2, 165) = &H3D25BDD8
m_sBox(3, 165) = &HE2E1C3C9
m_sBox(0, 166) = &H44421659
m_sBox(1, 166) = &HA121386
m_sBox(2, 166) = &HD90CEC6E
m_sBox(3, 166) = &HD5ABEA2A
m_sBox(0, 167) = &H64AF674E
m_sBox(1, 167) = &HDA86A85F
m_sBox(2, 167) = &HBEBFE988
m_sBox(3, 167) = &H64E4C3FE
m_sBox(0, 168) = &H9DBC8057
m_sBox(1, 168) = &HF0F7C086
m_sBox(2, 168) = &H60787BF8
m_sBox(3, 168) = &H6003604D
m_sBox(0, 169) = &HD1FD8346
m_sBox(1, 169) = &HF6381FB0
m_sBox(2, 169) = &H7745AE04
m_sBox(3, 169) = &HD736FCCC
m_sBox(0, 170) = &H83426B33
m_sBox(1, 170) = &HF01EAB71
m_sBox(2, 170) = &HB0804187
m_sBox(3, 170) = &H3C005E5F
m_sBox(0, 171) = &H77A057BE
m_sBox(1, 171) = &HBDE8AE24
m_sBox(2, 171) = &H55464299
m_sBox(3, 171) = &HBF582E61
m_sBox(0, 172) = &H4E58F48F
m_sBox(1, 172) = &HF2DDFDA2
m_sBox(2, 172) = &HF474EF38
m_sBox(3, 172) = &H8789BDC2
m_sBox(0, 173) = &H5366F9C3
m_sBox(1, 173) = &HC8B38E74
m_sBox(2, 173) = &HB475F255
m_sBox(3, 173) = &H46FCD9B9
m_sBox(0, 174) = &H7AEB2661
m_sBox(1, 174) = &H8B1DDF84
m_sBox(2, 174) = &H846A0E79
m_sBox(3, 174) = &H915F95E2
m_sBox(0, 175) = &H466E598E
m_sBox(1, 175) = &H20B45770
m_sBox(2, 175) = &H8CD55591
m_sBox(3, 175) = &HC902DE4C
m_sBox(0, 176) = &HB90BACE1
m_sBox(1, 176) = &HBB8205D0
m_sBox(2, 176) = &H11A86248
m_sBox(3, 176) = &H7574A99E
m_sBox(0, 177) = &HB77F19B6
m_sBox(1, 177) = &HE0A9DC09
m_sBox(2, 177) = &H662D09A1
m_sBox(3, 177) = &HC4324633
m_sBox(0, 178) = &HE85A1F02
m_sBox(1, 178) = &H9F0BE8C
m_sBox(2, 178) = &H4A99A025
m_sBox(3, 178) = &H1D6EFE10
m_sBox(0, 179) = &H1AB93D1D
m_sBox(1, 179) = &HBA5A4DF
m_sBox(2, 179) = &HA186F20F
m_sBox(3, 179) = &H2868F169
m_sBox(0, 180) = &HDCB7DA83
m_sBox(1, 180) = &H573906FE
m_sBox(2, 180) = &HA1E2CE9B
m_sBox(3, 180) = &H4FCD7F52
m_sBox(0, 181) = &H50115E01
m_sBox(1, 181) = &HA70683FA
m_sBox(2, 181) = &HA002B5C4
m_sBox(3, 181) = &HDE6D027
m_sBox(0, 182) = &H9AF88C27
m_sBox(1, 182) = &H773F8641
m_sBox(2, 182) = &HC3604C06
m_sBox(3, 182) = &H61A806B5
m_sBox(0, 183) = &HF0177A28
m_sBox(1, 183) = &HC0F586E0
m_sBox(2, 183) = &H6058AA
m_sBox(3, 183) = &H30DC7D62
m_sBox(0, 184) = &H11E69ED7
m_sBox(1, 184) = &H2338EA63
m_sBox(2, 184) = &H53C2DD94
m_sBox(3, 184) = &HC2C21634
m_sBox(0, 185) = &HBBCBEE56
m_sBox(1, 185) = &H90BCB6DE
m_sBox(2, 185) = &HEBFC7DA1
m_sBox(3, 185) = &HCE591D76
m_sBox(0, 186) = &H6F05E409
m_sBox(1, 186) = &H4B7C0188
m_sBox(2, 186) = &H39720A3D
m_sBox(3, 186) = &H7C927C24
m_sBox(0, 187) = &H86E3725F
m_sBox(1, 187) = &H724D9DB9
m_sBox(2, 187) = &H1AC15BB4
m_sBox(3, 187) = &HD39EB8FC
m_sBox(0, 188) = &HED545578
m_sBox(1, 188) = &H8FCA5B5
m_sBox(2, 188) = &HD83D7CD3
m_sBox(3, 188) = &H4DAD0FC4
m_sBox(0, 189) = &H1E50EF5E
m_sBox(1, 189) = &HB161E6F8
m_sBox(2, 189) = &HA28514D9
m_sBox(3, 189) = &H6C51133C
m_sBox(0, 190) = &H6FD5C7E7
m_sBox(1, 190) = &H56E14EC4
m_sBox(2, 190) = &H362ABFCE
m_sBox(3, 190) = &HDDC6C837
m_sBox(0, 191) = &HD79A3234
m_sBox(1, 191) = &H92638212
m_sBox(2, 191) = &H670EFA8E
m_sBox(3, 191) = &H406000E0
m_sBox(0, 192) = &H3A39CE37
m_sBox(1, 192) = &HD3FAF5CF
m_sBox(2, 192) = &HABC27737
m_sBox(3, 192) = &H5AC52D1B
m_sBox(0, 193) = &H5CB0679E
m_sBox(1, 193) = &H4FA33742
m_sBox(2, 193) = &HD3822740
m_sBox(3, 193) = &H99BC9BBE
m_sBox(0, 194) = &HD5118E9D
m_sBox(1, 194) = &HBF0F7315
m_sBox(2, 194) = &HD62D1C7E
m_sBox(3, 194) = &HC700C47B
m_sBox(0, 195) = &HB78C1B6B
m_sBox(1, 195) = &H21A19045
m_sBox(2, 195) = &HB26EB1BE
m_sBox(3, 195) = &H6A366EB4
m_sBox(0, 196) = &H5748AB2F
m_sBox(1, 196) = &HBC946E79
m_sBox(2, 196) = &HC6A376D2
m_sBox(3, 196) = &H6549C2C8
m_sBox(0, 197) = &H530FF8EE
m_sBox(1, 197) = &H468DDE7D
m_sBox(2, 197) = &HD5730A1D
m_sBox(3, 197) = &H4CD04DC6
m_sBox(0, 198) = &H2939BBDB
m_sBox(1, 198) = &HA9BA4650
m_sBox(2, 198) = &HAC9526E8
m_sBox(3, 198) = &HBE5EE304
m_sBox(0, 199) = &HA1FAD5F0
m_sBox(1, 199) = &H6A2D519A
m_sBox(2, 199) = &H63EF8CE2
m_sBox(3, 199) = &H9A86EE22
m_sBox(0, 200) = &HC089C2B8
m_sBox(1, 200) = &H43242EF6
m_sBox(2, 200) = &HA51E03AA
m_sBox(3, 200) = &H9CF2D0A4
m_sBox(0, 201) = &H83C061BA
m_sBox(1, 201) = &H9BE96A4D
m_sBox(2, 201) = &H8FE51550
m_sBox(3, 201) = &HBA645BD6
m_sBox(0, 202) = &H2826A2F9
m_sBox(1, 202) = &HA73A3AE1
m_sBox(2, 202) = &H4BA99586
m_sBox(3, 202) = &HEF5562E9
m_sBox(0, 203) = &HC72FEFD3
m_sBox(1, 203) = &HF752F7DA
m_sBox(2, 203) = &H3F046F69
m_sBox(3, 203) = &H77FA0A59
m_sBox(0, 204) = &H80E4A915
m_sBox(1, 204) = &H87B08601
m_sBox(2, 204) = &H9B09E6AD
m_sBox(3, 204) = &H3B3EE593
m_sBox(0, 205) = &HE990FD5A
m_sBox(1, 205) = &H9E34D797
m_sBox(2, 205) = &H2CF0B7D9
m_sBox(3, 205) = &H22B8B51
m_sBox(0, 206) = &H96D5AC3A
m_sBox(1, 206) = &H17DA67D
m_sBox(2, 206) = &HD1CF3ED6
m_sBox(3, 206) = &H7C7D2D28
m_sBox(0, 207) = &H1F9F25CF
m_sBox(1, 207) = &HADF2B89B
m_sBox(2, 207) = &H5AD6B472
m_sBox(3, 207) = &H5A88F54C
m_sBox(0, 208) = &HE029AC71
m_sBox(1, 208) = &HE019A5E6
m_sBox(2, 208) = &H47B0ACFD
m_sBox(3, 208) = &HED93FA9B
m_sBox(0, 209) = &HE8D3C48D
m_sBox(1, 209) = &H283B57CC
m_sBox(2, 209) = &HF8D56629
m_sBox(3, 209) = &H79132E28
m_sBox(0, 210) = &H785F0191
m_sBox(1, 210) = &HED756055
m_sBox(2, 210) = &HF7960E44
m_sBox(3, 210) = &HE3D35E8C
m_sBox(0, 211) = &H15056DD4
m_sBox(1, 211) = &H88F46DBA
m_sBox(2, 211) = &H3A16125
m_sBox(3, 211) = &H564F0BD
m_sBox(0, 212) = &HC3EB9E15
m_sBox(1, 212) = &H3C9057A2
m_sBox(2, 212) = &H97271AEC
m_sBox(3, 212) = &HA93A072A
m_sBox(0, 213) = &H1B3F6D9B
m_sBox(1, 213) = &H1E6321F5
m_sBox(2, 213) = &HF59C66FB
m_sBox(3, 213) = &H26DCF319
m_sBox(0, 214) = &H7533D928
m_sBox(1, 214) = &HB155FDF5
m_sBox(2, 214) = &H3563482
m_sBox(3, 214) = &H8ABA3CBB
m_sBox(0, 215) = &H28517711
m_sBox(1, 215) = &HC20AD9F8
m_sBox(2, 215) = &HABCC5167
m_sBox(3, 215) = &HCCAD925F
m_sBox(0, 216) = &H4DE81751
m_sBox(1, 216) = &H3830DC8E
m_sBox(2, 216) = &H379D5862
m_sBox(3, 216) = &H9320F991
m_sBox(0, 217) = &HEA7A90C2
m_sBox(1, 217) = &HFB3E7BCE
m_sBox(2, 217) = &H5121CE64
m_sBox(3, 217) = &H774FBE32
m_sBox(0, 218) = &HA8B6E37E
m_sBox(1, 218) = &HC3293D46
m_sBox(2, 218) = &H48DE5369
m_sBox(3, 218) = &H6413E680
m_sBox(0, 219) = &HA2AE0810
m_sBox(1, 219) = &HDD6DB224
m_sBox(2, 219) = &H69852DFD
m_sBox(3, 219) = &H9072166
m_sBox(0, 220) = &HB39A460A
m_sBox(1, 220) = &H6445C0DD
m_sBox(2, 220) = &H586CDECF
m_sBox(3, 220) = &H1C20C8AE
m_sBox(0, 221) = &H5BBEF7DD
m_sBox(1, 221) = &H1B588D40
m_sBox(2, 221) = &HCCD2017F
m_sBox(3, 221) = &H6BB4E3BB
m_sBox(0, 222) = &HDDA26A7E
m_sBox(1, 222) = &H3A59FF45
m_sBox(2, 222) = &H3E350A44
m_sBox(3, 222) = &HBCB4CDD5
m_sBox(0, 223) = &H72EACEA8
m_sBox(1, 223) = &HFA6484BB
m_sBox(2, 223) = &H8D6612AE
m_sBox(3, 223) = &HBF3C6F47
m_sBox(0, 224) = &HD29BE463
m_sBox(1, 224) = &H542F5D9E
m_sBox(2, 224) = &HAEC2771B
m_sBox(3, 224) = &HF64E6370
m_sBox(0, 225) = &H740E0D8D
m_sBox(1, 225) = &HE75B1357
m_sBox(2, 225) = &HF8721671
m_sBox(3, 225) = &HAF537D5D
m_sBox(0, 226) = &H4040CB08
m_sBox(1, 226) = &H4EB4E2CC
m_sBox(2, 226) = &H34D2466A
m_sBox(3, 226) = &H115AF84
m_sBox(0, 227) = &HE1B00428
m_sBox(1, 227) = &H95983A1D
m_sBox(2, 227) = &H6B89FB4
m_sBox(3, 227) = &HCE6EA048
m_sBox(0, 228) = &H6F3F3B82
m_sBox(1, 228) = &H3520AB82
m_sBox(2, 228) = &H11A1D4B
m_sBox(3, 228) = &H277227F8
m_sBox(0, 229) = &H611560B1
m_sBox(1, 229) = &HE7933FDC
m_sBox(2, 229) = &HBB3A792B
m_sBox(3, 229) = &H344525BD
m_sBox(0, 230) = &HA08839E1
m_sBox(1, 230) = &H51CE794B
m_sBox(2, 230) = &H2F32C9B7
m_sBox(3, 230) = &HA01FBAC9
m_sBox(0, 231) = &HE01CC87E
m_sBox(1, 231) = &HBCC7D1F6
m_sBox(2, 231) = &HCF0111C3
m_sBox(3, 231) = &HA1E8AAC7
m_sBox(0, 232) = &H1A908749
m_sBox(1, 232) = &HD44FBD9A
m_sBox(2, 232) = &HD0DADECB
m_sBox(3, 232) = &HD50ADA38
m_sBox(0, 233) = &H339C32A
m_sBox(1, 233) = &HC6913667
m_sBox(2, 233) = &H8DF9317C
m_sBox(3, 233) = &HE0B12B4F
m_sBox(0, 234) = &HF79E59B7
m_sBox(1, 234) = &H43F5BB3A
m_sBox(2, 234) = &HF2D519FF
m_sBox(3, 234) = &H27D9459C
m_sBox(0, 235) = &HBF97222C
m_sBox(1, 235) = &H15E6FC2A
m_sBox(2, 235) = &HF91FC71
m_sBox(3, 235) = &H9B941525
m_sBox(0, 236) = &HFAE59361
m_sBox(1, 236) = &HCEB69CEB
m_sBox(2, 236) = &HC2A86459
m_sBox(3, 236) = &H12BAA8D1
m_sBox(0, 237) = &HB6C1075E
m_sBox(1, 237) = &HE3056A0C
m_sBox(2, 237) = &H10D25065
m_sBox(3, 237) = &HCB03A442
m_sBox(0, 238) = &HE0EC6E0E
m_sBox(1, 238) = &H1698DB3B
m_sBox(2, 238) = &H4C98A0BE
m_sBox(3, 238) = &H3278E964
m_sBox(0, 239) = &H9F1F9532
m_sBox(1, 239) = &HE0D392DF
m_sBox(2, 239) = &HD3A0342B
m_sBox(3, 239) = &H8971F21E
m_sBox(0, 240) = &H1B0A7441
m_sBox(1, 240) = &H4BA3348C
m_sBox(2, 240) = &HC5BE7120
m_sBox(3, 240) = &HC37632D8
m_sBox(0, 241) = &HDF359F8D
m_sBox(1, 241) = &H9B992F2E
m_sBox(2, 241) = &HE60B6F47
m_sBox(3, 241) = &HFE3F11D
m_sBox(0, 242) = &HE54CDA54
m_sBox(1, 242) = &H1EDAD891
m_sBox(2, 242) = &HCE6279CF
m_sBox(3, 242) = &HCD3E7E6F
m_sBox(0, 243) = &H1618B166
m_sBox(1, 243) = &HFD2C1D05
m_sBox(2, 243) = &H848FD2C5
m_sBox(3, 243) = &HF6FB2299
m_sBox(0, 244) = &HF523F357
m_sBox(1, 244) = &HA6327623
m_sBox(2, 244) = &H93A83531
m_sBox(3, 244) = &H56CCCD02
m_sBox(0, 245) = &HACF08162
m_sBox(1, 245) = &H5A75EBB5
m_sBox(2, 245) = &H6E163697
m_sBox(3, 245) = &H88D273CC
m_sBox(0, 246) = &HDE966292
m_sBox(1, 246) = &H81B949D0
m_sBox(2, 246) = &H4C50901B
m_sBox(3, 246) = &H71C65614
m_sBox(0, 247) = &HE6C6C7BD
m_sBox(1, 247) = &H327A140A
m_sBox(2, 247) = &H45E1D006
m_sBox(3, 247) = &HC3F27B9A
m_sBox(0, 248) = &HC9AA53FD
m_sBox(1, 248) = &H62A80F00
m_sBox(2, 248) = &HBB25BFE2
m_sBox(3, 248) = &H35BDD2F6
m_sBox(0, 249) = &H71126905
m_sBox(1, 249) = &HB2040222
m_sBox(2, 249) = &HB6CBCF7C
m_sBox(3, 249) = &HCD769C2B
m_sBox(0, 250) = &H53113EC0
m_sBox(1, 250) = &H1640E3D3
m_sBox(2, 250) = &H38ABBD60
m_sBox(3, 250) = &H2547ADF0
m_sBox(0, 251) = &HBA38209C
m_sBox(1, 251) = &HF746CE76
m_sBox(2, 251) = &H77AFA1C5
m_sBox(3, 251) = &H20756060
m_sBox(0, 252) = &H85CBFE4E
m_sBox(1, 252) = &H8AE88DD8
m_sBox(2, 252) = &H7AAAF9B0
m_sBox(3, 252) = &H4CF9AA7E
m_sBox(0, 253) = &H1948C25C
m_sBox(1, 253) = &H2FB8A8C
m_sBox(2, 253) = &H1C36AE4
m_sBox(3, 253) = &HD6EBE1F9
m_sBox(0, 254) = &H90D4F869
m_sBox(1, 254) = &HA65CDEA0
m_sBox(2, 254) = &H3F09252D
m_sBox(3, 254) = &HC208E69F
m_sBox(0, 255) = &HB74E6132
m_sBox(1, 255) = &HCE77E25B
m_sBox(2, 255) = &H578FDFE3
m_sBox(3, 255) = &H3AC372E6
End Sub
Public Function EncryptFile(InFile As String, OutFile As String, Overwrite As Boolean, Optional Key As String, Optional OutputIn64 As Boolean) As Boolean
Class_Initialize
If FileExist(InFile) = False Then
EncryptFile = False
Exit Function
End If
If FileExist(OutFile) = True And Overwrite = False Then
EncryptFile = False
Exit Function
End If
Dim Buffer() As Byte, FileO As Integer
FileO = FreeFile
Open InFile For Binary As #FileO
ReDim Buffer(0 To LOF(FileO) - 1)
Get #FileO, , Buffer()
Close #FileO
Call EncryptByte(Buffer(), Key)
If FileExist(OutFile) = True Then Kill OutFile
FileO = FreeFile
Open OutFile For Binary As #FileO
If OutputIn64 = True Then
Put #FileO, , EncodeArray64(Buffer())
Else
Put #FileO, , Buffer()
End If
Close #FileO
EncryptFile = True
Erase Buffer(): Key = "": InFile = "": OutFile = ""
Exit Function
ErrorHandler:
Erase Buffer(): Key = "": InFile = "": OutFile = ""
EncryptFile = False
End Function
Public Function DecryptFile(InFile As String, OutFile As String, Overwrite As Boolean, Optional Key As String, Optional IsFileIn64 As Boolean) As Boolean
On Error GoTo ErrorHandler
If FileExist(InFile) = False Then
DecryptFile = False
Exit Function
End If
If FileExist(OutFile) = True And Overwrite = False Then
DecryptFile = False
Exit Function
End If
Dim Buffer() As Byte, FileO As Integer
FileO = FreeFile
Open InFile For Binary As #FileO
ReDim Buffer(0 To LOF(FileO) - 1)
Get #FileO, , Buffer()
Close #FileO
If IsFileIn64 = True Then Buffer() = DecodeArray64(StrConv(Buffer(), vbUnicode))
Call DecryptByte(Buffer(), Key)
If FileExist(OutFile) = True Then Kill OutFile
Open OutFile For Binary As #FileO
Put #FileO, , Buffer()
Close #FileO
DecryptFile = True
Erase Buffer(): Key = "": InFile = "": OutFile = ""
Exit Function
ErrorHandler:
Erase Buffer(): Key = "": InFile = "": OutFile = ""
DecryptFile = False
End Function
Private Function FileExist(FilePath As String) As Boolean
On Error GoTo ErrorHandler
Call FileLen(FilePath)
FileExist = True
Exit Function
ErrorHandler:
FileExist = False
End FunctionFrom what I understand, this is actually written as a VB class, but I was able to import it as clsBlowfish into an Excel VBA project with no problems. I'm trying to start simply, just encrypting a single, hard-coded string with a passkey. Here's the code I'm attempting:
Code:
Sub TestEncrypt()
Dim x
Dim strText, strPassword As String
Set x = New clsBlowfish
strText = "This is the text I would like to encrypt"
strPassword = "passkey"
MsgBox x.EncryptString(strText, strPassword)
End SubThis returns a "Run-time error '13': Type mismatch".
Any thoughts? All help would be greatly appreciated.
