PowerBuilder

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.

PowerBuilder

integer li_rc
long li_Success
oleobject loo_JpgBytes
oleobject loo_Crypt
string ls_IvHex
string ls_KeyHex

li_Success = 0

//  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.
loo_JpgBytes = create oleobject
li_rc = loo_JpgBytes.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_JpgBytes
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_JpgBytes.LoadFile("qa_data/jpg/starfish.jpg")
if li_Success <> 1 then
    Write-Debug "Failed to load JPG file."
    destroy loo_JpgBytes
    return
end if

//  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.)
Write-Debug loo_JpgBytes.GetEncoded("base64_mime")

//  Sample base64_mime JPG data:

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

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

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

ls_IvHex = "000102030405060708090A0B0C0D0E0F"
loo_Crypt.SetEncodedIV(ls_IvHex,"hex")

ls_KeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
loo_Crypt.SetEncodedKey(ls_KeyHex,"hex")

//  Do the in-place 128-bit AES CBC encryption.
//  The contents of jpgBytes are replaced with the encrypted bytes.
li_Success = loo_Crypt.EncryptBd(loo_JpgBytes)
if li_Success <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_JpgBytes
    destroy loo_Crypt
    return
end if

//  Examine the JPG bytes again.  The bytes should be different because they are encrypted:
Write-Debug loo_JpgBytes.GetEncoded("base64_mime")

//  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:
li_Success = loo_Crypt.DecryptBd(loo_JpgBytes)
if li_Success <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_JpgBytes
    destroy loo_Crypt
    return
end if

Write-Debug loo_JpgBytes.GetEncoded("base64_mime")

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

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

loo_Crypt.CryptAlgorithm = "chacha20"
loo_Crypt.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.
loo_Crypt.InitialCount = 22

li_Success = loo_Crypt.EncryptBd(loo_JpgBytes)
//  jpgBytes now contains chacha20 encrypted bytes.

li_Success = loo_Crypt.DecryptBd(loo_JpgBytes)
//  jpgBytes is now restored back to the original unencrypted by bytes.

//  Save the bytes to a file..
li_Success = loo_JpgBytes.WriteFile("qa_output/starfish.jpg")

Write-Debug "Success."


destroy loo_JpgBytes
destroy loo_Crypt