AES String Encryption

AES string encryption in Visual FoxPro.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcPassword
LOCAL lcHexKey
LOCAL lcText
LOCAL lcEncText
LOCAL lcDecryptedText

loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Crypt component unlock failed")
    QUIT
ENDIF

lcPassword = "secretPassPhrase"

loCrypt.CryptAlgorithm = "aes"
loCrypt.CipherMode = "cbc"
loCrypt.KeyLength = 128

*  Generate a binary secret key from a password string
*  of any length.  For 128-bit encryption, GenEncodedSecretKey
*  generates the MD5 hash of the password and returns it
*  in the encoded form requested.  The 2nd param can be
*  "hex", "base64", "url", "quoted-printable", etc.

lcHexKey = loCrypt.GenEncodedSecretKey(lcPassword,"hex")
loCrypt.SetEncodedKey(lcHexKey,"hex")

loCrypt.EncodingMode = "base64"

lcText = "The quick brown fox jumped over the lazy dog."

*  Encrypt a string and return the binary encrypted data
*  in a base-64 encoded string.

lcEncText = loCrypt.EncryptStringENC(lcText)

? lcEncText

*  Decrypt and show the original string:

lcDecryptedText = loCrypt.DecryptStringENC(lcEncText)

? lcDecryptedText