DEC 6.1 generelle Fragen

[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 overload deklarieren könntest.

[DieDolly]

Zitat:

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.

Das habe ich versucht. Ich dachte wenn ich bis runter auf TDECHash gehe, ist das die gemeinsame Basisklasse aber das erzeugt eine AV beim Ausführen.

[Aviator]

Ich habe jetzt nur mal schnell in GitHub direkt in den Sourcen geschaut. Versuch mal die THashBaseMD4 Klasse. Die sieht mir eigentlich nach der passenden Basisklasse aus. Mit TDECHash bist du ja schon fast ganz oben angekommen.

[DieDolly]

Gerade auch schon versucht.

Delphi-Quellcode:

function X(Hash: THashBaseMD4): string;
begin
...
 Result := Hash.CalcString('123');
...
end;

showmessage(X(THash_MD5));

Zitat:

E2010 Inkompatible Typen: 'THashBaseMD4' und 'class of THash_MD5'

Ansonsten lege ich mir einfach ein type THashMethods = (MD5, SHA256);, übergebe als parameter THashMethods.XYZ und gucke dann in in der Funktion mittels case was übergeben wurde.
Eine sehr schlechte Umsetzung wäre das aber.

[Aviator]

Naja du musst schon eine Instanz und nicht die Klasse übergeben. Ich habe mal schnell ein Testprojekt zusammen geknüppelt. Kompiliert zumindest einwandfrei. Auch zur Laufzeit kommen bei mir keinerlei Fehler.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, DECHash;

type
  THashTest = class
  private

  public
    function HashData(HashClass: THashBaseMD4): string;
  end;


{ THashTest }

function THashTest.HashData(HashClass: THashBaseMD4): string;
begin
  Result := HashClass.CalcString('');
end;

var
  sha256: THash_SHA256;
  md5: THash_MD5;
  hashTest: THashTest;

begin
  try
    sha256 := THash_SHA256.Create;
    md5 := THash_MD5.Create;
    hashTest := THashTest.Create;
    Writeln(hashTest.HashData(sha256));
    Writeln(hashTest.HashData(md5));
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[DieDolly]

Habe das jetzt etwas umständlich gemacht aber es funktioniert. Mein Aufruf bleibt der gleiche.

Delphi-Quellcode:

unit DEC.Hashing;

interface

uses
 System.Classes, System.SysUtils, DECHash, DECFormat;

type
 THashMethod = (hmMD5, hmSHA256);

type
 THashFunctions = record
 private
  class function GetHash(const HashMethod: THashMethod): THashBaseMD4; static;
  class function HashStringBase(const Text: string; const HashMethod: THashMethod): string; static;
  class function HashFileBase(const FileName: string; const HashMethod: THashMethod): string; static;
  class function HashStreamBase(const Stream: TStream; const HashMethod: THashMethod): string; static;
 public
  class function MD5String(const Text: string): string; static;
  class function MD5File(const FileName: string): string; static;
  class function MD5Stream(const Stream: TStream): string; static;

  class function SHA256String(const Text: string): string; static;
  class function SHA256File(const FileName: string): string; static;
  class function SHA256Stream(const Stream: TStream): string; static;
 end;

implementation

// Base functions
// ==============================================================================================================================================
class function THashFunctions.GetHash(const HashMethod: THashMethod): THashBaseMD4;
begin
 Result := nil;
 case HashMethod of
  hmMD5:
   Result := THash_MD5.Create;
  hmSHA256:
   Result := THash_SHA256.Create;
 end;
end;

class function THashFunctions.HashStringBase(const Text: string; const HashMethod: THashMethod): string;
var
 Hash: THashBaseMD4;
begin
 Hash := THashFunctions.GetHash(HashMethod);
 try
  Result := string(Hash.CalcString(RawByteString(Text), TFormat_HEX)).ToLower;
 finally
  Hash.Free;
 end;
end;

class function THashFunctions.HashFileBase(const FileName: string; const HashMethod: THashMethod): string;
var
 Hash: THashBaseMD4;
begin
 Hash := THashFunctions.GetHash(HashMethod);
 try
  Result := string(Hash.CalcFile(FileName, TFormat_HEX)).ToLower;
 finally
  Hash.Free;
 end;
end;

class function THashFunctions.HashStreamBase(const Stream: TStream; const HashMethod: THashMethod): string;
var
 Hash: THashBaseMD4;
begin
 Hash := THashFunctions.GetHash(HashMethod);
 try
  Result := string(Hash.CalcStream(Stream, Stream.Size, TFormat_HEX)).ToLower;
 finally
  Hash.Free;
 end;
end;
// ==============================================================================================================================================

// MD5
// ==============================================================================================================================================
class function THashFunctions.MD5String(const Text: string): string;
begin
 Result := HashStringBase(Text, THashMethod.hmMD5);
end;

class function THashFunctions.MD5File(const FileName: string): string;
begin
 Result := HashFileBase(FileName, THashMethod.hmMD5);
end;

class function THashFunctions.MD5Stream(const Stream: TStream): string;
begin
 Result := HashStreamBase(Stream, THashMethod.hmMD5);
end;
// ==============================================================================================================================================

// SHA256
// ==============================================================================================================================================
class function THashFunctions.SHA256String(const Text: string): string;
begin
 Result := HashStringBase(Text, THashMethod.hmSHA256);
end;

class function THashFunctions.SHA256File(const FileName: string): string;
begin
 Result := HashFileBase(FileName, THashMethod.hmMD5);
end;

class function THashFunctions.SHA256Stream(const Stream: TStream): string;
begin
 Result := HashStreamBase(Stream, THashMethod.hmMD5);
end;
// ==============================================================================================================================================

end.