Delphi-PRAXiS - HMAC / md5

Zitat:

Zitat von Tubo

Hallo,

weiß jemand wie ich in Delphi (7) den HMAC eines md5-Hashes erstellen kann?
Ich bin mir nicht sicher, ob das DEC von Hagen nun schon beides zur Verfügung stellt.
Wenn ja, wie muss ich die Funktionen aufrufen.

Danke

http://home.netsurf.de/wolfgang.ehrh...rchash_de.html

http://home.netsurf.de/wolfgang.ehrh...2007-03-07.zip

HMAC-Berechnung läuft wie Hashberechnung, nur daß beim Init-Aufruf ein Schlüssel übergeben wird. Folgende Funktionen stehen zur Verfügung

Delphi-Quellcode:

			procedure hmac_MD5_init(var ctx: THMAC_Context; key: pointer; klen: word);

  {-initialize HMAC context with key}

procedure hmac_MD5_inits(var ctx: THMAC_Context; skey: THMAC_String);

  {-initialize HMAC context with skey}

procedure hmac_MD5_update(var ctx: THMAC_Context; data: pointer; dlen: word);

  {-HMAC data input, may be called more than once}

procedure hmac_MD5_updateXL(var ctx: THMAC_Context; data: pointer; dlen: longint);

  {-HMAC data input, may be called more than once}

procedure hmac_MD5_final(var ctx: THMAC_Context; var mac: TMD5Digest);

  {-end data input, calculate HMAC digest}

Gruß Gammatester