Arbeiten mit dem DEC

[Sharky]

Hai Sko,

Hagen empfiehlt die "Manger" aus dem DEC nicht zu verwenden. Diese hat er wohl nur zum testen entwickelt.
Wenn Du verschiedenen Verschlüsselungsmethoden verwenden möchtest kannst Du das z.B. so machen:

Delphi-Quellcode:

procedure TFRM_Main.btn_TestClick(Sender: TObject);
var
  DefCipherClass: TCipherClass;
begin
  if (Montag) then  DefCipherClass := TCipher_Blowfish;
  if (Dienstag) then DefCipherClass := TCipher_Rijndael;
  if (Mittwoch) then DefCipherClass := TCipher_3DES;
  with DefCipherClass.Create('blubb',nil) do
  begin
    try
      EncodeFile(Filename, crypt);
    finally
      Free;
    end;
  end;
end;