3DES Test Vector

Example for 3-key 3DES encryption (192-bit) to match a test vector produced by both (non-Chilkat) PHP code and C# code using the .NET Framework.

PHP code to produce identical output: PHP 3DES Test Vector

C# code to produce identical output: C# 3DES Test Vector

Download Chilkat Crypt ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
keyAscii: String;
encStr: String;
decStr: String;

begin
crypt := TChilkatCrypt2.Create(Self);

success := crypt.UnlockComponent('Anything for 30-day trial.');
if (success <> 1) then
  begin
    ShowMessage('Crypt component unlock failed');
    Exit;
  end;

//  Specify 3DES for the encryption algorithm:
crypt.CryptAlgorithm := '3des';

crypt.CipherMode := 'ecb';

//  KeyLength must be 192.  3DES is technically 168-bits;
//  the most-significant bit of each key byte is a parity bit,
//  so we must indicate a KeyLength of 192, which includes
//  the parity bits.
crypt.KeyLength := 192;

//  Pad with zeros
crypt.PaddingScheme := 3;

//  EncodingMode specifies the encoding of the output for
//  encryption, and the input for decryption.
//  It may be "hex", "url", "base64", or "quoted-printable".
crypt.EncodingMode := 'hex';

//  The secret key must equal the size of the key.  For
//  3DES, the key must be 24 bytes (i.e. 192-bits).
keyAscii := '1234567890123456ABCDEFGH';
crypt.SetEncodedKey(keyAscii,'ascii');

//  Encrypt.
//  The result should be:
//  13d4d3549493d2870f93c3e0812a06de467e1f9c0bfb16c070ede5cabbd3ca62f217a7ae8d47f2c7bf62eb309323b58b
encStr := crypt.EncryptStringENC('The quick brown fox jumped over the lazy dog');
ShowMessage(encStr);

//  Now decrypt:
decStr := crypt.DecryptStringENC(encStr);
ShowMessage(decStr);

end;