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.

P.S. Welches ist überhaupt die aktuelle Version vom DEC
http://www.torry.net/authorsmore.php?id=1881 oder
http://www.michael-puff.de/Developer...agen_Reddmann/

Danke

Die von Luckie

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

zusammenfalten · markieren

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

Danke.