DEC 6.1 generelle Fragen

[DieDolly]

Frage 1:
Ich habe einen TBytesStream den ich vorher mit einer anderen Unit von jemand anderen erfolgreich hashen konnte.
Mit DEC funktioniert das nicht mehr. Kompilieren funktioniert aber ausführen nicht. Es kommt eine Fehlermeldung.

Zitat:

---------------------------
Anwendungsfehler
---------------------------
Exception EReadError in Modul Test.exe bei 0006D4F5.

Stream-Lesefehler.

Was mache ich falsch?

Delphi-Quellcode:

function MD5Stream(const Stream: TMemoryStream): string;
var
 Hash: THash_MD5;
begin
 Hash := THash_MD5.Create;
 try
  Result := string(Hash.CalcStream(Stream, Stream.Size, TFormat_HEX)).ToLower;
 finally
  Hash.Free;
 end;
end;

ich füttere das wie gesagt mit einem TBytesStream. Vorher lief es immer aber ich glaube ich habe MD5Stream falsch implementiert.

Frage 2:
ich habe eine Art Wrapper geschrieben, den ich für MD5 und SHA256 nutzen kann. Die Dateien sind, danke der wundervollen Umsetzung von DEC (das ist gut!), quasi gleich. Es muss nur THash_MD5 durch THash_SHA256 ausgetauscht werden. Das heißt aber auch viel doppelter Code.

Wie kann man das hier verallgemeinern? Etwa so habe ich das, aber aufgeteilt auf 2 Dateien. Ich würde das gerne alles in einer Datei haben, dann hat man aber trotzdem noch doppelten Code.

Delphi-Quellcode:

type
 TDEC_Functions = record
 public
  class function MD5String(const Text: string): string; static;
  class function SHA256String(const Text: string): string; static;
 end;

implementation

class function TDEC_Functions.MD5String(const Text: string): string;
var
 Hash: THash_MD5;
begin
 Hash := THash_MD5.Create;
 try
  Result := string(Hash.CalcString(RawByteString(Text), TFormat_HEX)).ToLower;
 finally
  Hash.Free;
 end;
end;

class function TDEC_Functions.SHA256String(const Text: string): string;
var
 Hash: THash_SHA256;
begin
 Hash := THash_SHA256.Create;
 try
  Result := string(Hash.CalcString(RawByteString(Text), TFormat_HEX)).ToLower;
 finally
  Hash.Free;
 end;
end;

Ist es irgendwie möglich das so zu verallgemeinern, dass die beiden public-Funktionen eine Basis-Funktion aufrufen, vielleicht so?

Delphi-Quellcode:

type
 TDEC_Functions = record
 private
  class function Base_Hash(const Text: string; const Hash-methode: ...): string;
 public
  class function MD5String(const Text: string): string; static;
  class function SHA256String(const Text: string): string; static;
 end;

implementation

class function TDEC_Functions.Base_Hash(const Text: string; const Hash-methode: ...): string;
begin
 Result :=
end;

class function TDEC_Functions.MD5String(const Text: string): string;
begin
 Result := Base_Hash(Text, THash_MD5);
end;

class function TDEC_Functions.SHA256String(const Text: string): string;
begin
 Result := Base_Hash(Text, THash_SHA256);
end;

[TurboMagic]

Bist du sicher, dass der Stream sich am Anfang befindet wenn du ihn übergibst?
Wenn du das mittels Debugger ausführst, bekommst du da bessere Info drüber
wo es genau knallt?

[DieDolly]

Zitat:

ByteStream.Position := 0;

hat das Problem gelöst. Danke!

[TurboMagic]

Und wie, wenn ich fragen darf?

[DieDolly]

Indem ich die Zeile (ByteStream.Position := 0;) hinzugefügt habe. Die hatte ich vorher nicht, bevor ich MD5Stream auzfgerufen habe.

[TurboMagic]

Welche "Zeil"?

[DieDolly]

War ein Tippfehler. Die Zeile zum zurücksetzen des Streams auf 0 hat bei mir komplett gefehlt. Jetzt ist sie drin und es funktioniert.
Ich habe noch eine zweite, letzte Frage hinzugefügt. Ich habe versucht das über TDECHash aus DECHashBase zu lösen aber das ist als Parameter inkompatibel wenn man THash_MD5 oder etwas anderes übergeben möchte.

[TurboMagic]

Ich glaube dass das geht, bin aber gerade nicht am PC.
Stichwort wäre Metaklasse als Parameter...
Dann kannst du Instanzen beider Klassen übergeben.
Evtl. mal den Klassenregistrierungsmechanismus anschauen,
der könnte in die Richtung gehen...

[DieDolly]

Bin schon überfordert, sorry.

[Aviator]

Das was du meinst/suchst nennt sich Polymorphie. Vielleicht kannst du mit dem Begriff etwas anfangen bzw. dir zusätzliche Infos anlesen und zusammensuchen. Wichtig wäre hier, dass du eine gemeinsame Basisklasse von allen Ver-/Ent-/Hashing-Verfahren findest, die noch alle Methoden die du benötigst zur Verfügung stellst. Gibt es die nicht, musst du auf zwei Methoden ausweichen die du dann als

Delphi-Quellcode:

overload

deklarieren könntest.