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 :gruebel:

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

Delphi-Quellcode:

libeay32.dll

und

Delphi-Quellcode:

ssleay32.dll

ins EXE-Verzeichnis
2)

Delphi-Quellcode:

IdSSLOpenSSL

in die Uses integrieren
3) Vorm Aufruf der Hash-Funktion

Delphi-Quellcode:

IdSSLOpenSSL.LoadOpenSSLLibrary;

aufrufen.