(Xojo Plugin) Encrypt / Decrypt Secure Strings

Demonstrates how to use the EncryptSecureENC and DecryptSecureENC methods to encrypt/decrypt secure strings. These methods were added in Chilkat v9.5.0.71 (released January 2018).

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

//  This example requires the Chilkat Crypt API to have been previously unlocked.
//  See Unlock Chilkat Crypt for sample code.

//  Load the secure string with some text.
Dim secStr1 As New Chilkat.SecureString
Dim success As Boolean
success = secStr1.LoadFile("qa_data/txt/helloWorld.txt","utf-8")
If (success <> True) Then
    System.DebugLog("Failed to load helloWorld.txt")
    Return
End If

Dim crypt As New Chilkat.Crypt2

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 contents of secStr1.
Dim encryptedStr As String
encryptedStr = crypt.EncryptSecureENC(secStr1)
System.DebugLog("Encrypted string: " + encryptedStr)

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

//  Decrypt to secStr2:
Dim secStr2 As New Chilkat.SecureString
success = crypt.DecryptSecureENC(encryptedStr,secStr2)

//  Access the contents of secStr2
System.DebugLog("Decrypted string: " + secStr2.Access())

//  Output:
//  Decrypted string: Hello World!