AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

DEC 6.1 generelle Fragen

Ein Thema von DieDolly · begonnen am 15. Feb 2021 · letzter Beitrag vom 23. Feb 2021
Antwort Antwort
Seite 1 von 3  1 23   
DieDolly

Registriert seit: 22. Jun 2018
1.740 Beiträge
 
#1

DEC 6.1 generelle Fragen

  Alt 15. Feb 2021, 18:03
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;

Geändert von DieDolly (15. Feb 2021 um 18:37 Uhr)
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
1.251 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: DEC 6.1 BytesStream MD5-hashen aber wie?

  Alt 15. Feb 2021, 18:24
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?
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.740 Beiträge
 
#3

AW: DEC 6.1 BytesStream MD5-hashen aber wie?

  Alt 15. Feb 2021, 18:27
Zitat:
ByteStream.Position := 0;
hat das Problem gelöst. Danke!
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
1.251 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: DEC 6.1 BytesStream MD5-hashen aber wie?

  Alt 15. Feb 2021, 18:31
Und wie, wenn ich fragen darf?
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.740 Beiträge
 
#5

AW: DEC 6.1 BytesStream MD5-hashen aber wie?

  Alt 15. Feb 2021, 18:32
Indem ich die Zeile (ByteStream.Position := 0 hinzugefügt habe. Die hatte ich vorher nicht, bevor ich MD5Stream auzfgerufen habe.

Geändert von DieDolly (15. Feb 2021 um 18:38 Uhr)
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
1.251 Beiträge
 
Delphi 10.3 Rio
 
#6

AW: DEC 6.1 BytesStream MD5-hashen aber wie?

  Alt 15. Feb 2021, 18:33
Welche "Zeil"?
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.740 Beiträge
 
#7

AW: DEC 6.1 generelle Fragen

  Alt 15. Feb 2021, 18:54
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.
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
1.251 Beiträge
 
Delphi 10.3 Rio
 
#8

AW: DEC 6.1 generelle Fragen

  Alt 15. Feb 2021, 19:17
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...
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
1.740 Beiträge
 
#9

AW: DEC 6.1 generelle Fragen

  Alt 15. Feb 2021, 19:22
Bin schon überfordert, sorry.
  Mit Zitat antworten Zitat
Aviator

Registriert seit: 3. Jun 2010
1.573 Beiträge
 
Delphi 10.3 Rio
 
#10

AW: DEC 6.1 generelle Fragen

  Alt 15. Feb 2021, 22:49
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.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf