Daten in Datei speichern

[Andreas Kulisch]

Hallo,

ich habe eine Frage, bezüglich dem Speichern von Daten in eine Datei.
Undzwar möchte ich Daten, wie zB Benutzername und Kennwort in eine Datei speichern. Nun sollen diese, in der Datei abgelegten Daten, verschlüsselt(?) zu sehen sein, wenn man diese Datei zum Beispiel mit einem Texteditor öffnet. Umgedreht möchte ich dann diese Datei wieder auslesen können und die einzelnen Daten wieder in meinem Programm anzeigen.
Ich habe zwar eine Komponente, die Dateien ver- und entschlüsseln kann, aber gibt es noch eine andere Lösung??

Schonmal 1ooo Dank im Vorraus...

Andy

[Thomas Sparenberg]

Hallo!

Zunächst wurde ich die Daten nicht in einer Datei sondern in der
Registry ablegen. Sollte eine Datei verwendet werden so würde ich
für die Programmeinstellungen eine ini-Datei verwenden. Beide
Vorgehensweisen haben den Vorteil, das es "fertige" Befehle gibt,
die einen einfachen Zugriff auf die Daten ermöglichen.
Wird eine reine Textdatei verwendet, so muß die Auswertung der Datei
umfangreicher ausfallen.
Texte die nicht mit einen Texteditor ausgelesen werden sollen müssen
verschlüsselt werden. Ich habe eine Function beigefügt, die eine
sehr einfache Verschlüsselung darstellt. Sie bietet gegen Profis
natürlich keinen Schutz.
Beim Schreiben des Textes und beim Lesen des Textes werden die
Daten durch diese Procedure geschickt.

function Codieren(st : string) : string;
{ Verschlusselung eines Textes }
var i,h : integer;
hst : string;
begin
hst := '';
for i := 1 to length(st) do
begin
h := ord(st[i]);
h := not h;
hst := hst + chr(h);
end;
result := hst;
end;

mfg Thoma