Delphi DLL

Blowfish CFB Mode Encryption

See more Encryption Examples

Demonstrates how to encrypt using Blowfish CFB (Cipher Feedback) mode. Delphi 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;
ivHex: PWideChar;
keyHex: PWideChar;
encStr: PWideChar;
decrypt: HCkCrypt2;
decStr: PWideChar;

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

crypt := CkCrypt2_Create();

// Use "blowfish2" to produce correct results that match published blowfish test vectors.
CkCrypt2_putCryptAlgorithm(crypt,'blowfish2');
CkCrypt2_putCipherMode(crypt,'cfb');
CkCrypt2_putKeyLength(crypt,256);

// EncodingMode specifies the encoding of the output for
// encryption, and the input for decryption.
// It may be "hex", "url", "base64", "quoted-printable", or many other choices.
CkCrypt2_putEncodingMode(crypt,'hex');

// The block size of the blowfish algoirthm is 8 bytes, therefore the IV is 8 bytes.
ivHex := '0001020304050607';
CkCrypt2_SetEncodedIV(crypt,ivHex,'hex');

// The secret key must equal the size of the key.  For
// 256-bit encryption, the binary secret key is 32 bytes.
keyHex := '603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4';
CkCrypt2_SetEncodedKey(crypt,keyHex,'hex');

// Encrypt a string...
encStr := CkCrypt2__encryptStringENC(crypt,'In all intellectual debates, both sides tend to be correct in what they affirm, and wrong in what they deny. -- John Stuart Mill');
Memo1.Lines.Add(encStr);

decrypt := CkCrypt2_Create();

CkCrypt2_putCryptAlgorithm(decrypt,'blowfish2');
CkCrypt2_putCipherMode(decrypt,'cfb');
CkCrypt2_putKeyLength(decrypt,256);
CkCrypt2_putEncodingMode(decrypt,'hex');
CkCrypt2_SetEncodedIV(decrypt,ivHex,'hex');
CkCrypt2_SetEncodedKey(decrypt,keyHex,'hex');

// Now decrypt:
decStr := CkCrypt2__decryptStringENC(decrypt,encStr);
Memo1.Lines.Add(decStr);

CkCrypt2_Dispose(crypt);
CkCrypt2_Dispose(decrypt);

end;