DEC Design Frage (SHA3)

[himitsu]

Zitat:

Delphi-Quellcode:

      absorb_bytes := DataSize;
      if absorb_bytes > prorunde then absorb_bytes := prorunde;

Also mathematisch ein
      absorb_bytes := Min(DataSize, {prorunde}BlockSize);

Zitat:

Delphi-Quellcode:

for var i := 1 to 200 do
      s := s + #$A3;

Joar, für den Test wäre es bestimmt besser, hier nicht mit dem Selben, sondern mit unterschiedlichen/gemischten Zeichen zu arbeiten. (s := s + Char(i + 35); )
Aber nur um die Schleife zu ersetzen, DupeString, StringOfChar oder string.Create (TStringHelper.Create).