Hash mit Wolfgang Erhardt's Bibliotheken zum Laufen bekommen

[TurboMagic]

Hallo,

ich habe vor ein paar Tagen begonnen die SHA3 Algorithmenfamilie unter
Verwendung des Codes von Wolfgang Erhardt's Bibliotheken zu DEC hinzuzufügen.

Jetzt ist sein Code halt gar nicht objektorientiert und ich kenne den Algorithmus
nur ungenügend etc.
Den Code hab' ich mal soweit mit kleineren Anpassungen (Formatierung, Objektorientierter
und Änderung von TP Datentypen in Delphi Datentypen) portiert, nur schlägt schon der
erste Unit Test fehl. Es kommt ein anderes Ergebnis raus.

Daher würde ich gerne parallel meinen Code und seine Bibliothek debuggen können.
Als ich neulich damit anfing, konnte ich sein Projekt aber nicht compilieren.
Dass ich in der Std.inc Include Datei (die gibt's da auch mehrfach mit leicht
unterschiedlicher Größe Yuck!) die aktuelle Delphi Version nachrüsten muss ok,
aber dass er keine Units findet auch wenn ich die Ordner wo diese drin sind zum
Such- und Bibliothekspfad hinzufüge?

=> Was muss ich alles tun um sein Hash-Demo Programm bzw. den Selbsttest den er drin hat
zum Laufen zu bekommen? Eine wirkliche dafür hilfreiche Doku hab' ich auch nicht gefunden.

Die Quelle von der ich alles bezogen habe ist diese:
https://github.com/chadilukito/www.wolfgang-ehrhardt.de

Grüße
TurboMagic

[Klaus01]

.. die Datei t_hmsha3.pas nach t_hmsha3.dpr umbenannt.
Als std.inc -> {$i ..\..\misc\util\std.inc}

Suchpfad: Pfad zu \www.wolfgang-ehrhardt.de\src\crc-hash\crc_hash
Im Mem_Util zwei Zeilen (239, 291) auskommentiert.

Code:

HMAC-SHA3 tests  -  (c) 2015-2016 W. Ehrhardt
Test case 1:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 2:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 3:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 4:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 5:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 6:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 6a:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 7:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 7a:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE
Test case 8:
  HMAC-SHA3-224: TRUE
  HMAC-SHA3-256: TRUE
  HMAC-SHA3-384: TRUE
  HMAC-SHA3-512: TRUE

compiliert und läuft
Grüße
Klaus

[TurboMagic]

Danke!
Werde ich in ein paar Minuten testen.

[EdAdvokat]

zum Thema Hash SHA-3_512 habe ich mit Bezug auf W. Ehrhard nachfolgenden Beitrag gefunden:
https://www.delphipraxis.net/194851-...-ehrhardt.html
Das Konsolenprogramm läßt sich compilieren.

Delphi-Quellcode:

program t_dp_ex;
uses
  //system.hash,
  system.sysutils,
  btypes,
  mem_util,
  hash,
  sha3_512;

{$i std.inc}

{$ifdef APPCONS}
  {$apptype console}
{$endif}

{-----------------------------------------}
function CreateHash(aString:string):string;
var
  Context : THashContext;
  Digist : TSHA3_512Digest;
  //bytes : Array of Byte;
  size : Integer;
  Bytes : TBytes;

begin
  SHA3_512Init(Context);
  size := aString.Length * SizeOf(Char);
  Bytes := TEncoding.Default.GetBytes(aString);
  SHA3_512Update(Context,bytes,size);
  SHA3_512Final(Context,Digist);
  result := Base64Str(@Digist,sizeof(Digist));
end;

begin
  writeln(CreateHash('Passwort1234567890'));
  Readln;

[TurboMagic]

Danke, habe es jetzt soweit am laufen, dass ich
damit arbeiten kann.

SHA3 Umsetzung in DEC wird aber noch etwas dauern.
Die Tests werden noch nicht bestanden.

[EdAdvokat]

schau doch auch mal bei den cn-Packs vorbei (Examples\Crypt). Dort wird u. a. auch mit SHA3_224, SHA3_256, SHA3_384 und SHA3_512 operiert.