Hallo,
ich möchte mir mithilfe des
DEC ein Programm zum Berechnen von Prüfsummen (MD5, SHA1, etc.) erstellen. Natürlich möchte ich dabei verschiedene Formate zur Verfügung haben. Leider habe ich grade keine Idee wie ich das mit mehreren Formaten elegant lösen kann.
Delphi-Quellcode:
var
Hash : THash_MD5;
Hash : THash_SHA1; // funktioniert so natürlich nicht!
s : String;
begin
case Combobox1.Itemindex of
0 : Hash := THash_MD5.Create;
1 : Hash := THash_SHA1.Create;
end;
s := Hash.CalcFile('Dateiname', TFormat_HEX);
showmessage(String(s));
end;
Natürlich funktioniert der Code in dieser Art nicht, aber ich hoffe es ist einigermaßen verständlich worauf ich hinaus will. Ich möchte über eine Combobox o.ä. eine der verfügbaren Verschlüsselungen auswählen und diese dann zur Berechnung der Prüfsumme verwenden.
Hat einer von euch eine zündende Idee?