Lianja

Encrypt / Decrypt Secure Strings

See more Encryption Examples

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). Lianja

llSuccess = .F.

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

// Load the secure string with some text.
loSecStr1 = createobject("CkSecureString")
llSuccess = loSecStr1.LoadFile("qa_data/txt/helloWorld.txt","utf-8")
if (llSuccess <> .T.) then
    ? "Failed to load helloWorld.txt"
    release loSecStr1
    return
endif

loCrypt = createobject("CkCrypt2")

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

// Return the base64 encoded encrypted contents of secStr1.
lcEncryptedStr = loCrypt.EncryptSecureENC(loSecStr1)
? "Encrypted string: " + lcEncryptedStr

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

// Decrypt to secStr2:
loSecStr2 = createobject("CkSecureString")
loCrypt.DecryptSecureENC(lcEncryptedStr,loSecStr2)

// Access the contents of secStr2
? "Decrypted string: " + loSecStr2.Access()

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


release loSecStr1
release loCrypt
release loSecStr2