Arbeiten mit dem DEC

[Sko]

Hallo,

ich hab auch ein kleines Verschlüsselungsprogramm erstellt, und hab da mal zwei Fragen (aber bitte nich hauen, bin totaler Anfänger :oops: ):

also wie gesagt ich hab ein kleines Verschlüsselungsprogramm geschrieben, in dem man eine Quellatei und eine Zieldatei auswählt und dann ein Passwort eingibt, welches der Schlüssel der Verschlüsselung ist. Das ganze hab ich mit dem DEC gebaut. Zur Zeit sieht das so aus:

Delphi-Quellcode:

    with TCipher_Blowfish.Create(Edit3.text, nil) do
    try
      EncodeFile(Filename, crypt);
    finally
      Free;
    end;

1. Frage: Kann ich wenn ich einen Ciphermanager auf dem Formular habe auch folgendes schreiben:

Delphi-Quellcode:

CipherManager1.InitKey(Edit3.text,nil);
CipherManager1.EncodeFile(Filename,crypt);
Ciphermanager1.Free;

2. Frage: Ich würde gerne eine ComboBox einbauen, in der ich den Verschlüsselungsalgorithmus ändern kann, wie kann ich das machen? Ich hatte es so probiert:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Ciphermanager1.algorithm:=Combobox1.text;
end;

das hat aber nicht geklappt.

Vielen Dank schon mal im Vorraus für eure Hilfe

[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;

[Sko]

Danke Sharky,

ich hab das jetz so gebaut:

Delphi-Quellcode:

var
  Form1: TForm1;
  Filename: string;
  crypt: string;
  Algorithmus: TCipherClass;
.
.
.
.
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.text = 'Blowfish' then  Algorithmus := TCipher_Blowfish;
  if ComboBox1.text = 'Rijndael' then Algorithmus := TCipher_Rijndael;
  if ComboBox1.text = 'Sapphire II' then Algorithmus := TCipher_Sapphire II;
end;

aber da bekomme ich die Meldung undefinierter Bezeichner "TCipher_Rijndael" und
undefinierter Bezeichner "TCipher_Sapphire II"

[Sharky]

Zitat:

Zitat von Sko

...aber da bekomme ich die Meldung undefinierter Bezeichner "TCipher_Rijndael" ...

Binde noch die Unit Cipher1 mit ein.

[Sko]

Danke jetz funktionierts.

Aber kann ich irgendwie überprüfen, ob auch ein anderer Algorithmus verwendet wird? Ich hab jetz mal zum testen ein Word-Dokument verschlüsselt und bei allen 3 Varianten sah der Inhalt danach gleich aus.

Und dann noch was: bei größeren Dateien dauerts ja etwas mit der Verschlüsselung, kann ich da irgendwie eine ProgressBar einbauen?

[Sharky]

Zitat:

Zitat von Sko

... Aber kann ich irgendwie überprüfen, ob auch ein anderer Algorithmus verwendet wird?

Gehe das Programm eninmal Schritt für Schritt durch (Breakpoint setzen) durch und prüfe ob alle so passiert wie Du möchtest.

Zitat:

... kann ich da irgendwie eine ProgressBar einbauen?

Verwende nicht die Methode EncodeFile sondern EncodeBuffer. Dann kannst Du bei einer Buffergröße von z.B. 1024 Byte eine passende Progressbar verwenden welche Du dann jedesmal positionierst.

[Sko]

So, das mit den Algorithmen funktioniert, aber wie mach ich das mit dem Buffer? :gruebel:

[Sharky]

Zitat:

Zitat von Sko

So, das mit den Algorithmen funktioniert, aber wie mach ich das mit dem Buffer? :gruebel:

Du könntest die Datei zuerst in einen Stream laden.
Dann kopierst Du immer x-Byte vom Stream in einen Buffer. Diesen verschlüsselst Du dann und kopierst ihn in einen zweiten Stream. Dies machst Du solange bis Du am Ende des Quellstreams bist.

Ach ja,
hatte ich total vergessen:

"Herzlich Willkommen in der Delphi-PRAXiS".

[negaH]

Oder du benutzt gleich die Stream Methoden der Cipher Objekte, eg. TCipher_Blowfish.EndecodeStream() etc.

Gruß Hagen

[Sharky]

Zitat:

Zitat von negaH

Oder du benutzt gleich die Stream Methoden der Cipher Objekte, eg. TCipher_Blowfish.EndecodeStream() etc...

Hai Hagen,

haben die inzwichen eine Callbackmethode oder wie kann man dann eine Progressbar einbauen?
Oder meinst Du den Sourcestream "blockweise" in den Deststream zu verschlüsseln.
Wird die Position der Streams durch deine Methoden so gesetzt das man dies machen kann oder muss ich mich darum kümmern?