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]