Lianja

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

llSuccess = .F.

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

loCrypt = createobject("CkCrypt2")

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"

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

loFac = createobject("CkFileAccess")
llBEqual = loFac.FileContentsEqual(lcDataFile,lcOutFile2)
if (llBEqual <> .T.) then
    ? "Decrypted file not equal to the original."
else
    ? "Success."
endif



release loCrypt
release loFac