(Delphi DLL) Encrypt / Decrypt Secure Strings

Demonstrates how to use the EncryptSecureENC and DecryptSecureENC methods to encrypt/decrypt secure strings. These methods were added in Chilkat v9.5.0.71 (released January 2018).

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
secStr1: HCkSecureString;
success: Boolean;
crypt: HCkCrypt2;
encryptedStr: PWideChar;
secStr2: HCkSecureString;

begin
//  This example requires the Chilkat Crypt API to have been previously unlocked.
//  See Unlock Chilkat Crypt for sample code.

//  Load the secure string with some text.
secStr1 := CkSecureString_Create();
success := CkSecureString_LoadFile(secStr1,'qa_data/txt/helloWorld.txt','utf-8');
if (success <> True) then
  begin
    Memo1.Lines.Add('Failed to load helloWorld.txt');
    Exit;
  end;

crypt := CkCrypt2_Create();

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

//  Return the base64 encoded encrypted contents of secStr1.
encryptedStr := CkCrypt2__encryptSecureENC(crypt,secStr1);
Memo1.Lines.Add('Encrypted string: ' + encryptedStr);

//  Output:
//  Encrypted string: qiq+IFhcjTkEIkZyf31V/g==

//  Decrypt to secStr2:
secStr2 := CkSecureString_Create();
CkCrypt2_DecryptSecureENC(crypt,encryptedStr,secStr2);

//  Access the contents of secStr2
Memo1.Lines.Add('Decrypted string: ' + CkSecureString__access(secStr2));

//  Output:
//  Decrypted string: Hello World!

CkSecureString_Dispose(secStr1);
CkCrypt2_Dispose(crypt);
CkSecureString_Dispose(secStr2);

end;