Pascal (Lazarus/Delphi)

AES-CMAC

See more Encryption Examples

Demonstrates using the AES-CMAC algorithm, which is a keyed hash function similar to HMAC and Poly1305.

Note: Chilkat added AES-CMAC in version 9.5.0.95.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.BinData,
  Chilkat.Crypt2;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  crypt: TCrypt2;
  keyHex: string;
  messageBytes: string;
  bd: TBinData;
  cmac: string;
  plainText: string;
  encTag: string;

begin
  success := False;

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

  crypt := TCrypt2.Create;

  //  Set the MAC algorithm to AES-CMAC
  crypt.MacAlgorithm := 'aes-cmac';

  //  AES-CMAC always uses a 16-byte (128-bit) MAC key.
  keyHex := '2b7e151628aed2a6abf7158809cf4f3c';
  success := crypt.SetMacKeyEncoded(keyHex,'hex');

  //  Let's compute the AES-CMAC for the test vector at https://www.rfc-editor.org/rfc/rfc4493#appendix-A
  //  Here we have 64 bytes in hex representation.
  messageBytes := '6bc1bee22e409f96e93d7e117393172aae2d8a571e03ac9c9eb76fac45af8e5130c81c46a35ce411e5fbc1191a0a52eff69f2445df4f9b17ad2b417be66c3710';

  bd := TBinData.Create;
  bd.AppendEncoded(messageBytes,'hex');

  //  Compute the AES-CMAC for the bytes contained in bd and return the AES-CMAC in hex representation.
  crypt.EncodingMode := 'hex_lower';
  cmac := crypt.MacBdENC(bd);
  WriteLn(cmac);
  //  Output should be: 51f0bebf7e3b9d92fc49741779363cfe

  //  Now do the same for a string:
  plainText := '''Twas brillig, and the slithy toves' + #10 + 'Did gyre and gimble in the wabe:' + #10 + 'All mimsy were the borogoves,' + #10 + 'And the mome raths outgrabe.';
  encTag := crypt.MacStringENC(plainText);
  WriteLn(encTag);

  //  Output should be: 4fca1fcbd265048d247f99ab57fa3ceb


  crypt.Free;
  bd.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.