(Delphi DLL) PBES2 Password-Based Encryption (PBE)

Demonstrates how to implement password-based encryption according to the PKCS #5 v2.0: Password-Based Cryptography Standard (published by RSA Laboratories). This example uses PBES2, which ise based on the PBKDF2 function and an underlying block cipher such as RC2, DES, etc.

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;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: HCkCrypt2;
plainText: PWideChar;
encryptedText: PWideChar;
decryptedText: PWideChar;

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

crypt := CkCrypt2_Create();

// Set properties for PBES2 encryption:

CkCrypt2_putCryptAlgorithm(crypt,'pbes2');
CkCrypt2_putPbesPassword(crypt,'mySecretPassword');

// Set the underlying PBE algorithm (and key length):
CkCrypt2_putPbesAlgorithm(crypt,'rc2');
CkCrypt2_putKeyLength(crypt,128);
// Only required for the RC2 algorithm:
CkCrypt2_putRc2EffectiveKeyLength(crypt,128);

// By definition, the block encryption algorithm (RC2 or whichever
// was selected) will run in CBC mode.  Therefore, we need
// an IV.  The IV is equal in length to the block size of the
// algorithm.  RC2 has a block size of 8 bytes (regardless of
// key length), so set the IV to some value that is 8 bytes 
// in length:
CkCrypt2_SetEncodedIV(crypt,'0000000000000000','hex');

// Give it some salt:
CkCrypt2_SetEncodedSalt(crypt,'0102030405060708','hex');

// A higher iteration count makes the algorithm more
// computationally expensive and therefore exhaustive
// searches (for breaking the encryption) is more difficult:
CkCrypt2_putIterationCount(crypt,1024);

// A hash algorithm needs to be set for PBES2:
CkCrypt2_putHashAlgorithm(crypt,'sha1');

// Indicate that the encrypted bytes should be returned
// as a hex string:
CkCrypt2_putEncodingMode(crypt,'hex');

plainText := 'To be encrypted.';

encryptedText := CkCrypt2__encryptStringENC(crypt,plainText);

Memo1.Lines.Add(encryptedText);

// Now decrypt:
decryptedText := CkCrypt2__decryptStringENC(crypt,encryptedText);

Memo1.Lines.Add(decryptedText);

CkCrypt2_Dispose(crypt);

end;