(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loSecStr1
LOCAL lnSuccess
LOCAL loCrypt
LOCAL lcEncryptedStr
LOCAL loSecStr2

* 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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SecureString')
loSecStr1 = CreateObject('Chilkat.SecureString')
lnSuccess = loSecStr1.LoadFile("qa_data/txt/helloWorld.txt","utf-8")
IF (lnSuccess <> 1) THEN
    ? "Failed to load helloWorld.txt"
    RELEASE loSecStr1
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

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:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SecureString')
loSecStr2 = CreateObject('Chilkat.SecureString')
loCrypt.DecryptSecureENC(lcEncryptedStr,loSecStr2)

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

* Output:
* Decrypted string: Hello World!

RELEASE loSecStr1
RELEASE loCrypt
RELEASE loSecStr2