Example: Aes128.Decrypt  Aes128.Encrypt  (3)

[VB6 equivalent: AES128_BytesMode]

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

' Set up input in byte arrays
strInput = "Now is the time for all good men"
sCorrect = "C3153108A8DD340C0BCB1DFE8D25D2320EE0E66BD2BB4A313FB75C5638E9E177"
abKey = Cnv.FromHex("0123456789ABCDEFF0E1D2C3B4A59687")
abInitV = Cnv.FromHex("FEDCBA9876543210FEDCBA9876543210")
abData = System.Text.Encoding.Default.GetBytes(strInput)

' Pre-dimension output array

Console.WriteLine("KY=" & Cnv.ToHex(abKey))
Console.WriteLine("IV=" & Cnv.ToHex(abInitV))
Console.WriteLine("PT=" & Cnv.ToHex(abData))
' Encrypt in one-off process
abResult = Aes128.Encrypt(abData, abKey, Mode.CBC, abInitV)
Console.WriteLine("CT=" & Cnv.ToHex(abResult))
Console.WriteLine("OK=" & sCorrect)

' Now decrypt back
abData = Aes128.Decrypt(abResult, abKey, Mode.CBC, abInitV)
strOutput = System.Text.Encoding.Default.GetString(abData)
Console.WriteLine("P'=" & strOutput)

' Check
Debug.Assert(strOutput = strInput)

See Also:
Aes128.Decrypt Method (Byte[], Byte[], Mode, Byte[])
Aes128.Encrypt Method (Byte[], Byte[], Mode, Byte[])

[Contents] [Index]