Delphi DLL

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.) Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, BinData, CkByteData, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
crypt: HCkCrypt2;
plainText: PWideChar;
encryptedBytes: HCkByteData;
decryptedStr: PWideChar;
bd: HCkBinData;

begin
success := False;

crypt := CkCrypt2_Create();

CkCrypt2_putCryptAlgorithm(crypt,'aes');
CkCrypt2_putCipherMode(crypt,'cbc');
CkCrypt2_putKeyLength(crypt,128);
CkCrypt2_putPaddingScheme(crypt,0);
CkCrypt2_SetEncodedKey(crypt,'000102030405060708090A0B0C0D0E0F','hex');
CkCrypt2_SetEncodedIV(crypt,'000102030405060708090A0B0C0D0E0F','hex');

success := False;

CkCrypt2_putCharset(crypt,'utf-8');
plainText := 'text to be encrypted';

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

encryptedBytes := CkByteData_Create();
success := CkCrypt2_EncryptString(crypt,plainText,encryptedBytes);

decryptedStr := CkCrypt2__decryptString(crypt,encryptedBytes);
Memo1.Lines.Add('Decrypted: ' + decryptedStr);

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

bd := CkBinData_Create();
CkBinData_AppendString(bd,plainText,'utf-8');

// in-place encrypt
CkCrypt2_EncryptBd(crypt,bd);

// in-place decrypt
CkCrypt2_DecryptBd(crypt,bd);
decryptedStr := CkBinData__getString(bd,'utf-8');
Memo1.Lines.Add('Decrypted: ' + decryptedStr);

CkCrypt2_Dispose(crypt);
CkByteData_Dispose(encryptedBytes);
CkBinData_Dispose(bd);

end;