Visual FoxPro

Example: Crypt2.DecryptStringENC method

Demonstrates how to call the DecryptStringENC method. Visual FoxPro

LOCAL loCrypt
LOCAL lcEncodedEncrypted
LOCAL lcOriginalText

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

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 bytes
lcEncodedEncrypted = loCrypt.EncryptStringENC("Hello World!")
? "Encrypted: " + lcEncodedEncrypted

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

* Decrypt
lcOriginalText = loCrypt.DecryptStringENC(lcEncodedEncrypted)

? "Decrypted: " + lcOriginalText

* Output:
* Decrypted: Hello World!

RELEASE loCrypt