Hallo!
Ich möchte zunächst ein einfaches Verschlüsselungsprogramm für Dateien mit Hilfe der
DEC-Bibliothek schreiben, das über ein Passwort die Daten verschlüsselt. Nach dem Durchlesen der verschiedenen Beiträgen in diesem Forum scheint es so, dass EncodeStream/DecodeStream für meinen Vorhaben ziemlich gut geeignet ist. Das Problem ist, dass die Parameter von den alten Beiträgen beim aktuelle
DEC 5_1 nicht mehr funktionieren. Leider blicke ich beim neuen DECCipher.pas nicht ganz durch.
Bitte um Hilfe!
Delphi-Quellcode:
const
DefCipherClass: TDECCipherClass = TCipher_Rijndael;
CipherMode = cmCBCx; <----------Frage 2.
procedure TForm1.Button3Click(Sender: TObject);
var
decStream: TMemoryStream;
encStream: TMemoryStream;
begin
// if fileexists(edit1.Text);
decStream := TMemoryStream.Create; // TStream für den Text erzeugen
encStream := TMemoryStream.Create; // Stream für die Verschlüsselung
try
with DefCipherClass.Create do
begin
try
Mode := CipherMode;
InitKey('passwort', nil); //<----------- FRAGE 1.
EncodeStream(decStream, encStream, decStream.Size);
encStream.SaveToFile('edit2.text'); // Stream speichern
finally
Free;
end;
end;
finally
encStream.Free;
decStream.Free;
end;
end;
Nun meine Fragen:
1. Das ganze scheitert schon mal beim InitKey. Es scheint, dass InitKey nicht im DEC5_1 mehr existiert.
2. Ich habe gelesen, dass man als Standard "cmCBC" verwenden soll. Entspricht es nun im
DEC 5_1 den "cmCBCx"?
jus