datei kodieren und speichern

[maluprog]

hallo,

habe für die kodierung von memo.text in listbox.items.add(s) Text verschlüsselt

Delphi-Quellcode:

procedure TForm1.BCodClick(Sender: TObject);
var s : string[255];
    c : array[0..255] of byte absolute s;
    i : Integer;
begin
        s := memo1.Text;
        For i := 1 To ord(s[0]) do c[i] := superkey[i] Xor c[i];
        ListBox1.Items.Add(s);
        memo1.Clear;
end;

.. diesen dann als txt-datei gespeichert.

Delphi-Quellcode:

procedure TForm1.BExpClick(Sender: TObject);
begin
        if sdcod.Execute then
        begin
         ListBox1.Items.SaveToFile(sdcod.FileName);
        end;
end;

Solange das programm läuft kann ich die kodierte Datei wieder entschlüsseln, verlasse ich das programm nach dem speichern und hole mir diese datei wieder, kann ich sie nicht mehr entschlüsseln.

über:

Delphi-Quellcode:

procedure TForm1.BImpClick(Sender: TObject);
begin
        if odcod.Execute then
        begin
         ListBox1.Items.LoadFromFile(odcod.FileName);
        end;
end;

erfolgt keine decodierung mehr.

Delphi-Quellcode:

procedure TForm1.BdecodClick(Sender: TObject);
var s : string[255];
    c : array[0..255] of byte absolute s;
    i : Integer;
begin
        s := ListBox1.Items[0];
        For i := 1 To Length(s) do s[i] := Chr(superkey[i] Xor ord(s[i]));
        memo1.Text := s;
        ListBox1.Clear;
end;

warum nicht? wer kann helfen, was ist falsch?

malu

[edit=Luckie]Delphi-Tags. Mfg, Luckie[/edit]