TIdHMACSHA256 - Zugriffsverletzung beim Hashen

[Neutral General]

Hallo,

Ich versuche momentan die Klasse TIdHMACSHA256 zu nutzen um einen HMAC-SHA256 Wert aus einem String zu berechnen.

Delphi-Quellcode:

uses
  IdHMACSHA1;

var
  sha: TIdHMACSHA256;
  Hash: TIdBytes;
begin
  sha := TIdHMACSHA256.Create;
  try
    sha.Key := ToBytes('Geheimer Key');
    bytes := sha.HashValue(ToBytes('Test123'));  // <--
  finally
    sha.Free;
  end;
end;

Die markierte Zeile verursacht eine Zugriffsverletzung.
Ich hab keine Ahnung wieso.

Verwende ich den gleichen Code, nur statt der Klasse TIdHMACSHA256 die Klasse TIdHMACSHA1, dann funktioniert es

Hat da jemand ne Ahnung?

[shmia]

Unit IdHMACSHA1.pas in das Verzeichnis deines Projekts kopieren und dem Projekt hinzufügen.
Breakpoint setzen und in die Klasse TIdHMACSHA256 mit dem Debugger hineinsteppen.

[-=ZGD=-]

Hallo.

Da ich gerade vorm gleichen Problem saß, hier die Lösung:

1) Kopieren der libeay32.dll und ssleay32.dll ins EXE-Verzeichnis
2) IdSSLOpenSSL in die Uses integrieren
3) Vorm Aufruf der Hash-Funktion IdSSLOpenSSL.LoadOpenSSLLibrary; aufrufen.