Tcl

Workaround for the deprecated EncryptString and DecryptString methods

Shows how to replace the deprecated EncryptString and DecryptString methods. (Chilkat is moving away from the use of CkByteData.) Tcl

load ./chilkat.dll

set success 0

set crypt [new_CkCrypt2]

CkCrypt2_put_CryptAlgorithm $crypt "aes"
CkCrypt2_put_CipherMode $crypt "cbc"
CkCrypt2_put_KeyLength $crypt 128
CkCrypt2_put_PaddingScheme $crypt 0
CkCrypt2_SetEncodedKey $crypt "000102030405060708090A0B0C0D0E0F" "hex"
CkCrypt2_SetEncodedIV $crypt "000102030405060708090A0B0C0D0E0F" "hex"

set success 0

CkCrypt2_put_Charset $crypt "utf-8"
set plainText "text to be encrypted"

# ------------------------------------------------------------------------
# The EncryptString and DecryptString methods are deprecated:

set encryptedBytes [new_CkByteData]

set success [CkCrypt2_EncryptString $crypt $plainText $encryptedBytes]

set decryptedStr [CkCrypt2_decryptString $crypt $encryptedBytes]
puts "Decrypted: $decryptedStr"

# ------------------------------------------------------------------------
# Replace the above CkByteData usage with the following code:
# (Chilkat is moving away from using CkByteData)

set bd [new_CkBinData]

CkBinData_AppendString $bd $plainText "utf-8"

# in-place encrypt
CkCrypt2_EncryptBd $crypt $bd

# in-place decrypt
CkCrypt2_DecryptBd $crypt $bd
set decryptedStr [CkBinData_getString $bd "utf-8"]
puts "Decrypted: $decryptedStr"

delete_CkCrypt2 $crypt
delete_CkByteData $encryptedBytes
delete_CkBinData $bd