AutoIt

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

Local $bSuccess = False

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

$oCrypt = ObjCreate("Chilkat.Crypt2")

$oCrypt.CryptAlgorithm = "aes"
$oCrypt.CipherMode = "cbc"
$oCrypt.KeyLength = 128
$oCrypt.PaddingScheme = 0

Local $sIvHex = "000102030405060708090A0B0C0D0E0F"
$oCrypt.SetEncodedIV $sIvHex,"hex"

Local $sKeyHex = "00010203040506071011121314151617"
$oCrypt.SetEncodedKey $sKeyHex,"hex"

Local $sDataFile = "qa_data/zips/HBIQ040615300005.ZIP"
Local $sOutFile = "qa_output/HBIQ040615300005.enc"
Local $sOutFile2 = "qa_output/HBIQ040615300005.ZIP"

$bSuccess = $oCrypt.CkEncryptFile($sDataFile,$sOutFile)
$bSuccess = $oCrypt.CkDecryptFile($sOutFile,$sOutFile2)

$oFac = ObjCreate("Chilkat.FileAccess")
Local $bEqual = $oFac.FileContentsEqual($sDataFile,$sOutFile2)
If ($bEqual <> True) Then
    ConsoleWrite("Decrypted file not equal to the original." & @CRLF)
Else
    ConsoleWrite("Success." & @CRLF)
EndIf