Visual FoxPro

Encrypt / Decrypt a File and Verify it has not Changed

See more Encryption Examples

Demonstrates how to encrypt and decrypt a file, and verify it has not changed. Visual FoxPro

LOCAL lnSuccess
LOCAL loCrypt
LOCAL lcIvHex
LOCAL lcKeyHex
LOCAL lcDataFile
LOCAL lcOutFile
LOCAL lcOutFile2
LOCAL loFac
LOCAL lnBEqual

lnSuccess = 0

* This 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.PaddingScheme = 0

lcIvHex = "000102030405060708090A0B0C0D0E0F"
loCrypt.SetEncodedIV(lcIvHex,"hex")

lcKeyHex = "00010203040506071011121314151617"
loCrypt.SetEncodedKey(lcKeyHex,"hex")

lcDataFile = "qa_data/zips/HBIQ040615300005.ZIP"
lcOutFile = "qa_output/HBIQ040615300005.enc"
lcOutFile2 = "qa_output/HBIQ040615300005.ZIP"

lnSuccess = loCrypt.CkEncryptFile(lcDataFile,lcOutFile)
lnSuccess = loCrypt.CkDecryptFile(lcOutFile,lcOutFile2)

loFac = CreateObject('Chilkat.FileAccess')
lnBEqual = loFac.FileContentsEqual(lcDataFile,lcOutFile2)
IF (lnBEqual <> 1) THEN
    ? "Decrypted file not equal to the original."
ELSE
    ? "Success."
ENDIF

RELEASE loCrypt
RELEASE loFac