Frage zu DEC 5.1 und Haval

[itsme]

Hallo zusammen,

ich bin nun schon einige Zeit hier registriert, war aber immer mehr der Silent-Reader... :oops:
Jetzt traue ich mich einfach auch mal eine Frage zu stellen, in der Hoffnung, dass mich die hier anwesenden Profis, nicht ob meiner Unwissenheit "zusammenfalten" :wink:

Ich habe mit DEC v5.1 unter Delphi 7 einen Haval256 Hash eines Strings erstellt.
Das klappt eigentlich auch wunderbar, lediglich schaffe ich es nicht, die Anzahl der Runden zu ändern.

Delphi-Quellcode:

Haval: THash_Haval256;

sPlain := 'The quick brown fox jumps over the lazy dog';
Haval := THash_Haval256.Create;
Haval.Rounds := 3;
sCipher := Haval.CalcBinary(sPlain, TFormat_HEXL);

Egal ob ich unter Haval.Rounds 3 oder 4 angebe, es wird immer der Hash für 5 Runden berechnet!
Was mache ich falsch, bzw. kann es sein, dass dieses überhaupt nicht geht?

LG, itsme

[cookie22]

die rundenzahlen sind festgelegt.

Delphi-Quellcode:

  THash_Haval128        = class;  {$DEFINE THashBaseHaval_asm}
  THash_Haval160        = class;  // Haval 160, 3 Rounds
  THash_Haval192        = class;  // Haval 192, 4 Rounds
  THash_Haval224        = class;  // Haval 224, 4 Rounds
  THash_Haval256        = class;  // Haval 256, 5 Rounds

in procedure THashBaseHaval.SetRounds(Value: Integer); wird die rundenzahl festgelegt.

[itsme]

Das habe ich zwar auch gesehen, frage mich dann aber, welchen Sinn eine mögliche Zuweisung an Rounds dann noch hat?

published
property Rounds: Integer read FRounds write SetRounds;

Klar könnte ich versuchen in DEC selbst zu ändern, aber eigentlich wollte ich in meinem kleinen programmierten Tool, die Runden per RadioButton zuweisen.
Nun denn, schade, aber man kann wohl nicht alles so haben, wie man es gerne möchte.

Danke dir für deine Mühe cookie22 :-D