HMAC MD5 to Match RFC 2022 Test Vectors

Demonstrates using Chilkat in Delphi to computer HMAC MD5 message authentication codes to match the test vectors given by RFC 2202.

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;
mac: String;

begin
crypt := TChilkatCrypt2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := crypt.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(crypt.LastErrorText);
    Exit;
  end;

//  The output will be Hex, so set the EncodingMode:
crypt.EncodingMode := 'hex';

//  Set the hash algorithm:
//  Choices are: md5, sha-1, sha256, sha384, sha512, md2, haval
crypt.HashAlgorithm := 'md5';

//  Set the HMAC key:
crypt.SetHmacKeyEncoded('0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b','hex');
mac := crypt.HmacStringENC('Hi There');
Memo1.Lines.Add(mac);

crypt.SetHmacKeyEncoded('Jefe','ansi');
mac := crypt.HmacStringENC('what do ya want for nothing?');
Memo1.Lines.Add(mac);
end;