AutoIt

Example for both AES-128 and ChaCha20 to Encrypt Binary Data

See more Encryption Examples

Demonstrates the use of the new EncryptBd and DecryptBd methods introduced in Chilkat v9.5.0.67 to encrypt/decrypt binary bytes.

Note: This example requires Chilkat v9.5.0.67 or greater.

AutoIt

Local $bSuccess = False

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

; Load a small JPG file to be encrypted/decrypted.
$oJpgBytes = ObjCreate("Chilkat.BinData")
$bSuccess = $oJpgBytes.LoadFile("qa_data/jpg/starfish.jpg")
If ($bSuccess <> True) Then
    ConsoleWrite("Failed to load JPG file." & @CRLF)
    Exit
EndIf

; Show the unencrypted JPG bytes in Base64 format.
; (The "base64_mime" encoding was added in Chilkat v9.5.0.67.
; The "base64" encoding emits a single line of base64, whereas
; "base64_mime" will emit multi-line base64 as it would appear
; in MIME.)
ConsoleWrite($oJpgBytes.GetEncoded("base64_mime") & @CRLF)

; Sample base64_mime JPG data:

; 	/9j/4AAQSkZJRgABAgEASABIAAD/7Q18UGhvdG9zaG9wIDMuMAA4QklNA+0AAAAAABAASAAAAAEA
; 	AQBIAAAAAQABOEJJTQPzAAAAAAAIAAAAAAAAAAE4QklNBAoAAAAAAAEAADhCSU0nEAAAAAAACgAB
; 	AAAAAAAAAAI4QklNA/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEAL2ZmAAEAoZmaAAYAAAAAAAEA
; 	MgAAAAEAWgAAAAYAAAAAAAEANQAAAAEALQAAAAYAAAAAAAE4QklNBBQAAAAAAAQAAAABOEJJTQQM
; 	...

$oCrypt = ObjCreate("Chilkat.Crypt2")

; Specify the encryption to be used.
; First we'll do AES-128 CBC
$oCrypt.CryptAlgorithm = "aes"
$oCrypt.CipherMode = "cbc"
$oCrypt.KeyLength = 128

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

Local $sKeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
$oCrypt.SetEncodedKey $sKeyHex,"hex"

; Do the in-place 128-bit AES CBC encryption.
; The contents of jpgBytes are replaced with the encrypted bytes.
$bSuccess = $oCrypt.EncryptBd($oJpgBytes)
If ($bSuccess <> True) Then
    ConsoleWrite($oCrypt.LastErrorText & @CRLF)
    Exit
EndIf

; Examine the JPG bytes again.  The bytes should be different because they are encrypted:
ConsoleWrite($oJpgBytes.GetEncoded("base64_mime") & @CRLF)

; Sample base64_mime encrypted JPG data:

; 	sbz0babt1WCkQf5xKMdg/baZAcUBO5GVUUDF2BjVqmd+HrqKN+t6hAcqakL/bdo0q9hYmow0Tp1e
; 	AQ9V9DOiifQUZqWVkR+kL/c45bq8JGFDvgNl0djPt+yYhV789IB/fPH0upx+/ad++WNOlv1IxGMr
; 	Y1x1oERU/IsiEzafUJdI4kZ6FQo2IPGMF/Rm1h79I7hP1yYUFxvJyz+PzaySAUH1nLsNHyDVY5VY
; 	O90aH3steRSYbz8C8UF9wQ3qqEIXQNnnixvoNDnmHyY39VoVBI5F6rnPwYDfAk2t8tmuryFqvwAu
; 	...

; Decrypt to restore back to the original:
$bSuccess = $oCrypt.DecryptBd($oJpgBytes)
If ($bSuccess <> True) Then
    ConsoleWrite($oCrypt.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($oJpgBytes.GetEncoded("base64_mime") & @CRLF)

; 	/9j/4AAQSkZJRgABAgEASABIAAD/7Q18UGhvdG9zaG9wIDMuMAA4QklNA+0AAAAAABAASAAAAAEA
; 	AQBIAAAAAQABOEJJTQPzAAAAAAAIAAAAAAAAAAE4QklNBAoAAAAAAAEAADhCSU0nEAAAAAAACgAB
; 	AAAAAAAAAAI4QklNA/UAAAAAAEgAL2ZmAAEAbGZmAAYAAAAAAAEAL2ZmAAEAoZmaAAYAAAAAAAEA
; 	MgAAAAEAWgAAAAYAAAAAAAEANQAAAAEALQAAAAYAAAAAAAE4QklNBBQAAAAAAAQAAAABOEJJTQQM
; 	...

; ----------------------------------------------------------------------------------
; To do chacha20 encryption, just change the settings:

$oCrypt.CryptAlgorithm = "chacha20"
$oCrypt.KeyLength = 256
; The initial count is the initial block counter for the chacha20 algorithm.
; It can be any integer, but must be set to the same when decrypting.
$oCrypt.InitialCount = 22

$bSuccess = $oCrypt.EncryptBd($oJpgBytes)
; jpgBytes now contains chacha20 encrypted bytes.

$bSuccess = $oCrypt.DecryptBd($oJpgBytes)
; jpgBytes is now restored back to the original unencrypted by bytes.

; Save the bytes to a file..
$bSuccess = $oJpgBytes.WriteFile("qa_output/starfish.jpg")

ConsoleWrite("Success." & @CRLF)