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]