HMAC MD5 to Match RFC 2022 Test Vectors

Download Chilkat Crypt ActiveX

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

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
    ShowMessage('Crypt component unlock failed');

  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','us-ascii');
mac := crypt.HmacStringENC('what do ya want for nothing?');
Memo1.Lines.Add(mac);
end;