Example: Cipher.Bytes  Cipher.Decrypt  Cipher.Encrypt 

[VB6 equivalent: CIPHER_Bytes]

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 abCheck() 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)

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

' Now decrypt back (abCheck <-- abResult)
abCheck = Cipher.Decrypt(abResult, abKey, abInitV, CipherAlgorithm.Tdea, Mode.CBC)
' And decode back from a byte array into a string
Console.WriteLine("P'=" & Cnv.ToHex(abCheck))
strOutput = System.Text.Encoding.Default.GetString(abCheck)
Console.WriteLine("P'=" & strOutput)

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

[Contents] [Index]