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;