freepascal.ru

Код: Выделить всё

program project1;

uses
  SysUtils,
  DECUtil,
  DECCipher;

const
  STATIC_KEY: array[0..15] of Byte = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15);
var
  IV: array[0..15] of Byte;
  Plaintext: Binary;
  Ciphertext: TBytes;
begin
  RandomSeed;
  Plaintext := 'abcdefghijklmnopqrstuvwxyz';
  with TCipher_Rijndael.Create do
    try
      Mode := cmCBCx;
      RandomBuffer(IV, 16);
      Init(STATIC_KEY, 16, IV, 16);
      SetLength(Ciphertext, Length(Plaintext));
      Encode(Plaintext[1], Ciphertext[0], Length(Plaintext));
      Done; // only needed when same object will be used for further operations
      FillChar(Plaintext[1], Length(Plaintext), 0);
      Decode(Ciphertext[0], Plaintext[1], Length(Ciphertext));
      Assert(Plaintext = 'abcdefghijklmnopqrstuvwxyz');
    finally
      Free;
    end;
end.