SHA-3 von Wolfang Ehrhardt

[Ghostwalker]

Zitat von Uwe Raabe:

Der oben angesprochene Fehler ist doch ein ziemlich eindeutiges Indiz.

Der Fehler hat eher was mit Wäldern und Bäumen zu tun, als mit irgend etwas anderem

Das in der Bibleothek ein Pointer und die Größe erwartet wird, ist völlig normal. Die Bibleothek soll
ja ein möglichst breites Publikum ansprechend und das bedingt verschiedene Comiler und Compilerversionen.

Btw. hier nun der entgültige Code, der, soweit ich das im Moment beurteilen kann, auch korrekt läuft.

Delphi-Quellcode:

  if (length(trim(ftoHash)) = 0) then exit;
  SHA3_512Init(fcontext);
  fbytes := TEncoding.GetEncoding('UTF-16').GetBytes(fToHash);
  fSize := TEncoding.GetEncoding('UTF-16').GetByteCount(fToHash);
  SHA3_512Update(fcontext,@fbytes[0],fsize);
  SHA3_512Final(fcontext,fdigist);
  fHash := Base64Str(@fdigist,sizeof(fdigist));

[gammatester]

Zitat von Ghostwalker:

Btw. hier nun der entgültige Code, der, soweit ich das im Moment beurteilen kann, auch korrekt läuft.

Wie schon gesagt: Sicherheitshalber solltest Du SHA3_512UpdateXL benutzen.

[Uwe Raabe]

Das ist aber doch unnötig kompliziert, oder? (auch eine Art von Code-Obfuscation)

Delphi-Quellcode:

  fbytes := TEncoding.GetEncoding('UTF-16').GetBytes(fToHash);
  fSize := TEncoding.GetEncoding('UTF-16').GetByteCount(fToHash);

Warum nicht gleich so?

Delphi-Quellcode:

  
  fbytes := TEncoding.GetEncoding('UTF-16').GetBytes(fToHash);
  fSize := Length(fBytes);

Oder so?

Delphi-Quellcode:

  
  fbytes := TEncoding.Unicode.GetBytes(fToHash);
  fSize := Length(fBytes);

Wobei der ByteCount von Unicode auch wieder nur CharCount * SizeOf(Char) ist. TEncoding.Default ist von den aktuellen Windows-Einstellungen abhängig, also eher ungünstig. Etwas sparsamer und trotzdem allgemein gültig wäre da noch UTF8:

Delphi-Quellcode:

  
  fbytes := TEncoding.UTF8.GetBytes(fToHash);
  fSize := Length(fBytes);

Wenn die Hashes auch anderweitig verwendet werden, muss sowieso das Encoding bekannt gemacht werden. Sonst kann niemand was damit anfangen.