DEC SHA Verständnissverwirrung...

[Klaus01]

Guten Abend,

Delphi-Quellcode:

procedure THash_SHA.DoTransform(Buffer: PUInt32Array);
var
  A, B, C, D, E, T: UInt32;
  W: array[0..79] of UInt32;
  I: Integer;
begin
  SwapUInt32Buffer(Buffer[0], W, 16);
  if ClassType = THash_SHA then
  begin
    for I := 16 to 79 do
    begin
      T := W[I - 3] xor W[I - 8] xor W[I - 14] xor W[I - 16];
      W[I] := T;
    end;
  end
  else
  begin
    for I := 16 to 79 do
    begin
      T := W[I - 3] xor W[I - 8] xor W[I - 14] xor W[I - 16];
      W[I] := T shl 1 or T shr 31;
    end;
  end;

wird hier nicht bei einer Klasse ungleich THash_SHA der else Zweig abgearbeitet.
Also auch bei THash_SHA1.

Grüße
Klaus

[TurboMagic]

Vielen Dank für dieses "Forschungsergebnis". jetzt ist's mir auch klar und damit kann ich die Sache denke ich noch ein wenig weiter verbessern...

[Sherlock]

Nichts für ungut, aber...das könnte abenteuerlich werden, wenn Du sowas übersiehst.

Sherlock

[TurboMagic]

Naja. Schon gesehen: in dem Projekt gibt's viele Unit Tests, u.a. auch für die grundlegende Funktionalität dieser Hash-Klassen.
Es gibt inzwischen auch Unit Tests die Dinge abprüfen, welches das in älteren Versionen der Bibliothek zum Testen benutzte
kryptische Testprogramm nicht getestet hat.

Eine Fallunterscheidung im Code basierend auf dem Klassennamen ist auch ein eher selten genutztes Konstrukt.