Visual Basic 6.0

Example: Crypt2.DecryptStringENC method

Demonstrates how to call the DecryptStringENC method. Visual Basic 6.0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim crypt As New ChilkatCrypt2

crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "cbc"
crypt.KeyLength = 128
crypt.SetEncodedKey "000102030405060708090A0B0C0D0E0F","hex"
crypt.SetEncodedIV "000102030405060708090A0B0C0D0E0F","hex"
crypt.EncodingMode = "base64"

' Return the base64 encoded encrypted bytes
Dim encodedEncrypted As String
encodedEncrypted = crypt.EncryptStringENC("Hello World!")
Debug.Print "Encrypted: " & encodedEncrypted

' Output:
' Encrypted: qiq+IFhcjTkEIkZyf31V/g==

' Decrypt
Dim originalText As String
originalText = crypt.DecryptStringENC(encodedEncrypted)

Debug.Print "Decrypted: " & originalText

' Output:
' Decrypted: Hello World!