Example: Tdea.Decrypt  Tdea.Encrypt 

[VB6 equivalent: TDEA_B64Mode]

Dim strOutput As String
Dim strInput As String
Dim strKey As String
Dim strIV As String
Dim sCorrect As String

' Key is 0x737C791F25EAD0E04629254352F7DC6291E5CB26917ADA32
strKey = "c3x5HyXq0OBGKSVDUvfcYpHlyyaRetoy"
' IV is 0xB36B6BFB6231084E
strIV = "s2tr+2IxCE4="
' 0x5468697320736F6D652073616D706520636F6E74656E742E0808080808080808
'  "T h i s _ s o m e _ s a m p e _ c o n t e n t ." (padding 8 x 08)
strInput = "VGhpcyBzb21lIHNhbXBlIGNvbnRlbnQuCAgICAgICAg="
sCorrect = "12/RF4+9AvhCMfXB0qL3SkFZSClk9nUkglQiPa+a+OQ="

' Set strOutput to be same length as strInput

Console.WriteLine("KY=" & " " & strKey)
Console.WriteLine("IV=" & " " & strIV)
Console.WriteLine("PT=" & " " & strInput)
strOutput = Tdea.Encrypt(strInput, strKey, Mode.CBC, strIV, EncodingBase.Base64)
Console.WriteLine("CT=" & " " & strOutput)
Console.WriteLine("OK=" & " " & sCorrect)

strInput = strOutput
strOutput = Tdea.Decrypt(strInput, strKey, Mode.CBC, strIV, EncodingBase.Base64)
Console.WriteLine("P'=" & " " & strOutput)

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

[Contents] [Index]