AES256_BytesMode

Encrypts or decrypts an array of Bytes using a specified mode.

VB6/VBA

Debug.Print "Testing AES256_BytesMode ..."
Dim nRet As Long
Dim strOutput As String
Dim strInput As String
Dim sCorrect As String
Dim abKey()  As Byte
Dim abInitV() As Byte
Dim abResult() As Byte
Dim abData() As Byte
Dim nDataLen As Long
' Set up input in byte arrays
strInput = "Now is the time for all good men"
sCorrect = "36161E5B4B62401A5B57996F7D6839D34E181930DEBBAEBE84AE01139E9581A6"
abKey = _
  cnvBytesFromHexStr("000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f")
abInitV = cnvBytesFromHexStr("FEDCBA9876543210FEDCBA9876543210")
abData = StrConv(strInput, vbFromUnicode)
nDataLen = UBound(abData) - LBound(abData) + 1

' Pre-dimension output array
ReDim abResult(nDataLen - 1)

Debug.Print "KY=", cnvHexStrFromBytes(abKey)
Debug.Print "IV=", cnvHexStrFromBytes(abInitV)
Debug.Print "PT=", cnvHexStrFromBytes(abData)
' Encrypt in one-off process
nRet = AES256_BytesMode(abResult(0), abData(0), nDataLen, abKey(0), _
    ENCRYPT, "CBC", abInitV(0))
Debug.Print "CT=", cnvHexStrFromBytes(abResult)
Debug.Print "OK=", sCorrect
Debug.Assert (sCorrect = cnvHexStrFromBytes(abResult))
' Now decrypt back
nRet = AES256_BytesMode(abData(0), abResult(0), nDataLen, abKey(0), _
    DECRYPT, "CBC", abInitV(0))
strOutput = StrConv(abData(), vbUnicode)
Debug.Print "P'=", strOutput

' Check
Debug.Assert (strOutput = strInput)

Output

Testing AES256_BytesMode ...
KY=   000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F
IV=   FEDCBA9876543210FEDCBA9876543210
PT=   4E6F77206973207468652074696D6520666F7220616C6C20676F6F64206D656E
CT=   36161E5B4B62401A5B57996F7D6839D34E181930DEBBAEBE84AE01139E9581A6
OK=   36161E5B4B62401A5B57996F7D6839D34E181930DEBBAEBE84AE01139E9581A6
P'=   Now is the time for all good men

VB.NET

Console.WriteLine("Testing AES256_BytesMode ...")
''Dim nRet As Integer
Dim strOutput As String
Dim strInput As String
Dim sCorrect As String
Dim abKey() As Byte
Dim abInitV() As Byte
Dim abResult() As Byte
Dim abData() As Byte
''Dim nDataLen As Integer
' Set up input in byte arrays
strInput = "Now is the time for all good men"
sCorrect = "36161E5B4B62401A5B57996F7D6839D34E181930DEBBAEBE84AE01139E9581A6"
abKey = _
  Cnv.FromHex("000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f")
abInitV = Cnv.FromHex("FEDCBA9876543210FEDCBA9876543210")
abData = System.Text.Encoding.Default.GetBytes(strInput)
''nDataLen = UBound(abData) - LBound(abData) + 1
' Pre-dimension output array
''ReDim abResult(nDataLen - 1)
Console.WriteLine("KY=" & " " & Cnv.ToHex(abKey))
Console.WriteLine("IV=" & " " & Cnv.ToHex(abInitV))
Console.WriteLine("PT=" & " " & Cnv.ToHex(abData))
' Encrypt in one-off process
abResult = Aes256.Encrypt(abData, abKey, Mode.CBC, abInitV)
Console.WriteLine("CT=" & " " & Cnv.ToHex(abResult))
Console.WriteLine("OK=" & " " & sCorrect)
Debug.Assert(sCorrect = Cnv.ToHex(abResult))
' Now decrypt back
abResult = Aes256.Decrypt(abData, abKey, Mode.CBC, abInitV)
strOutput = System.Text.Encoding.Default.GetString(abData)
Console.WriteLine("P'=" & " " & strOutput)
' Check
Debug.Assert(strOutput.ToLower = strInput.ToLower)

[Contents]