Datei verschlüsseln

[strom]

Hallo würde gerne eine Datei verschlüsseln!
So, dass das lesen der Datei als (.txt) nicht möglich ist.

Datei schreiben:

Delphi-Quellcode:

procedure TForm1.BitBtn6Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.Add(Edit4.Text);
    List.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Alert.dat');
  finally
    List.Free;
  end;
end;


Datei lesen: (in Delphi (Edit4 bzw. Edit5) sollte man die Daten aber wieder im Klartext lesen können.

[DELPHI]
procedure TForm1.dat_lesenTimer(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  try
    List.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'alert.dat');
    if List.Count>0 then
      Edit4.Text:=List[0];
    List.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'setting.dat');
    if List.Count>0 then
      Edit5.Text:=List[0];
      ClientSocket.Host:= Edit5.Text;
      ClientSocket.Active := true;
      dat_lesen.Enabled := false;
  finally
    List.Free;
  end;
end;

[/DELPHI]

[Luckie]

Und die Forensuche hat keinen Treffer zu "Verschlüsselung" geliefert?

[himitsu]

Näääääää, da findet man doch nie was.


Wenn es einfach nur nicht lesbar sein soll, dann könnte man auch billig "komprimieren" und schon sieht man auch nix mehr.

[wendelin]

Hi,
was ist Deine Frage ?

Schau dir mal mein kleines Prog. ' Crypto-Tool ' an.

wendelin

[jfheins]

Du könntest nach dem SaveToFile die Funktion EncryptFile() aufrufen. Besser wäre es natürlich, die Datei schon verschlüsselt zu erstellen, sodass die Daten nie im Klartext auf der Festplatte landen.

Eventuell musst du die Funktion noch aus der dll importieren, in einem neueren Delphi könnte sie schon eingebunden sein.

Aber deine Frage lässt einige Punkte offen, sodass ich nicht weiß, ob dieses die beste Lösung darstellt.

[mkinzler]

Ich würde mir das ganze Konzept noch einmal überlegen. Ständiges Neuladen einer Datei per Timer erscheint mir wenig optimal.

[Mavarik]

Zitat von jfheins:

EncryptFile() aufrufen.

Ich habe damit noch nicht gearbeitet, daher ist die Frage ggf. dumm, aber um mit dem File oder mit einen File aus einem entsprechenden Directory zu arbeiten, muss ich den File immer erst decrypten oder kann ich beim Open ein Flag setzen?

Mavarik

[jfheins]

Zitat von Mavarik:

Zitat von jfheins:

EncryptFile() aufrufen.

Ich habe damit noch nicht gearbeitet, daher ist die Frage ggf. dumm, aber um mit dem File oder mit einen File aus einem entsprechenden Directory zu arbeiten, muss ich den File immer erst decrypten oder kann ich beim Open ein Flag setzen?

Soweit ich weiß: Nein. Beim erzeugen des Windows-Benutzerkontos wird ein Master-Schlüssel generiert. Der wird verschlüsselt (Kontopasswort) auf der Festplatte gespeichert. Wenn du nun verlangst, dass eine Datei verschlüsselt sein soll, dann wird diese mit dem Master-Schlüssel verschlüsselt. Man kommt also nur heran, wenn man mit dem richtigen Benutzerkonto eingeloggt ist. Ist das der Fall, werden die Dateien on-the-fly beim Zugriff ver- und entschlüsselt.
Die Anwendung kann wohl noch ein zusätzliches Geheimnis verwenden, um Zugriff durch andere Anwendungen zu verhindern.

[Zacherl]

Zitat von jfheins:

Die Anwendung kann wohl noch ein zusätzliches Geheimnis verwenden, um Zugriff durch andere Anwendungen zu verhindern.

Wie funktioniert das? Im MSDN Artikel habe ich dazu auf die Schnelle nichts gefunden.

[mkinzler]

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx