Example: Aes128.Decrypt  Aes128.Encrypt  (4)

[VB6 equivalent: AES128_Hex]

Dim nRet As Integer
Dim strOutput As String
Dim strInput As String
Dim strHexKey As String
Dim sPlain As String
Dim sCipher As String

'FIPS-197
'C.1 AES-128 (Nk=4, Nr=10)
'PLAINTEXT: 00112233445566778899aabbccddeeff
'KEY: 000102030405060708090a0b0c0d0e0f
strHexKey = "000102030405060708090a0b0c0d0e0f"
sPlain = "00112233445566778899aabbccddeeff"
sCipher = "69c4e0d86a7b0430d8cdb78070b4c55a"

strInput = sPlain
' Set strOutput to be same length as strInput

Console.WriteLine("KY=" & " " & strHexKey)
Console.WriteLine("PT=" & " " & strInput)
' Encrypt in one-off process
strOutput = Aes128.Encrypt(strInput, strHexKey, Mode.ECB, Nothing)
Console.WriteLine("CT=" & " " & strOutput & " " & nRet)
Console.WriteLine("OK=" & " " & sCipher)
Debug.Assert(strOutput.ToLower = sCipher.ToLower)

' Now decrypt back to plain text
strInput = strOutput
strOutput = Aes128.Decrypt(strInput, strHexKey, Mode.ECB, Nothing)
Console.WriteLine("P'=" & " " & strOutput & " " & nRet)
Debug.Assert(strOutput.ToLower = sPlain.ToLower)

See Also:
Aes128.Decrypt Method (String, String, Mode, String)
Aes128.Encrypt Method (String, String, Mode, String)

[Contents] [Index]