Delphi ActiveX

UN/EDIFACT Syntax Level A Encoding/Decoding

See more Encryption Examples

Demonstrates the new "eda" encoding that can be used throughout Chilkat starting in v9.5.0.65. Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
sb: TChilkatStringBuilder;
crypt: TChilkatCrypt2;
ivHex: WideString;
keyHex: WideString;
encStr: WideString;
decStr: WideString;

begin
// Note: Requires Chilkat v9.5.0.65 or greater.

sb := TChilkatStringBuilder.Create(Self);
sb.Append('The 5 men of 223rd St');
Memo1.Lines.Add(sb.GetAsString());

// Encode the utf-8 byte representation of the string in the 
// UN/EDIFACT syntax level A character set.
sb.Encode('eda','utf-8');
Memo1.Lines.Add(sb.GetAsString());

// EDA Output should be: BTME027FCF6CFARFI94JT6.)F(14KJ2U

// Decode back to the original string.
sb.Decode('eda','utf-8');
Memo1.Lines.Add(sb.GetAsString());
Memo1.Lines.Add('----');

// The following requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// The "eda" encoding can be used anywhere within Chilkat.
// For example, with the Crypt2 API
crypt := TChilkatCrypt2.Create(Self);
crypt.CryptAlgorithm := 'aes';
crypt.CipherMode := 'cbc';
crypt.KeyLength := 256;
crypt.EncodingMode := 'eda';

ivHex := '000102030405060708090A0B0C0D0E0F';
crypt.SetEncodedIV(ivHex,'hex');
keyHex := '000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F';
crypt.SetEncodedKey(keyHex,'hex');

encStr := crypt.EncryptStringENC('The quick brown fox jumps over the lazy dog.');
// The output is UN/EDIFACT syntax level A 
Memo1.Lines.Add(encStr);

// Now decrypt:
decStr := crypt.DecryptStringENC(encStr);
Memo1.Lines.Add(decStr);
end;