Example: Tdea.Decrypt  Tdea.Encrypt  (3)

[VB6 equivalent: TDEA_BytesMode]

Dim strOutput As String
Dim strInput As String
Dim strKey As String
Dim strHexIV As String
Dim sCorrect As String
Dim abKey() As Byte
Dim abOutput() As Byte
Dim abData() As Byte
Dim abInitV() As Byte

strKey = "0123456789abcdeffedcba987654321089abcdef01234567"
strHexIV = "1234567890abcdef"
strInput = "Now is the time for all "
sCorrect = "204011f986e35647199e47af391620c5bb9a5bcfc86db0bb"

' Convert to byte arrays and compute lengths
abKey = Cnv.FromHex(strKey)
abInitV = Cnv.FromHex(strHexIV)
abData = System.Text.Encoding.Default.GetBytes(strInput)

' Dimension array for output

Console.WriteLine("KY=" & Cnv.ToHex(abKey))
Console.WriteLine("IV=" & Cnv.ToHex(abInitV))
Console.WriteLine("PT=" & Cnv.ToHex(abData))

' Encrypt in one-off process
abOutput = Tdea.Encrypt(abData, abKey, Mode.CBC, abInitV)
Console.WriteLine("CT=" & Cnv.ToHex(abOutput))
Console.WriteLine("OK=" & sCorrect)
Debug.Assert(sCorrect.ToUpper = Cnv.ToHex(abOutput))

' Now decrypt back
abOutput = Tdea.Decrypt(abData, abKey, Mode.CBC, abInitV)
strOutput = System.Text.Encoding.Default.GetString(abData)
Console.WriteLine("P'=" & "[" & strOutput & "]")
Debug.Assert(strOutput.ToLower = strInput.ToLower)

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

[Contents] [Index]