verschlüsselte Datei auslesen

[Paul]

hi,

also wenn ich das in die memo.text lesen lasse entschlüsselt er das, aber wie bekomme ich das jetzt auf myini bezogen so das alles entschlüsselte auf seinen platz wieder kommt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    myIni:TIniFile;
    eRec:TSearchRec;
    f:Textfile;
    S1, S2:String;
begin
If OpenDialog1.execute then
begin

Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
//Edit6.Clear;

if FindFirst(ExtractFilePath(Application.ExeName) + '*.TDP', faanyfile, eRec) = 0 then begin
  repeat;
    if (eRec.Name <> '.') and (eRec.Name <> '..') then begin
      AssignFile(f,ExtractFilePath(Application.ExeName) + eRec.Name);
      myini := TIniFile.Create(ExtractFilePath(Application.ExeName) + eRec.Name);
      Reset(f);
      repeat
      ReadLn(f, S1);
      S2:= Decode64(S1);
      memo1.text:=S2;
      until EoF(f);
      CloseFile(f);

      Edit1.Text := myini.ReadString('FTP','IP','N/A');
      Edit2.Text := myini.ReadString('FTP','user','N/A');
      Edit3.Text := myini.ReadString('FTP','pass','N/A');
      Edit4.Text := myini.ReadString('FTP','Path','N/A');
      Edit5.Text := myini.ReadString('FTP','Port','N/A');
    end;
  until FindNext(eRec) <> 0;
FindClose(eRec);
end;

begin
try
  ListView1.Items.Clear;
  ListView1.ViewStyle := vsReport;
  i:=1;
    while (myini.ValueExists('DATEN',IntToStr(i))) do
    begin
      Listitem := listview1.Items.Add;
      Listitem.Caption := myini.ReadString('DATEN', IntToStr(i),'N/A');
      Listitem.SubItems.Add(myini.ReadString('DATEN','1.' + IntToStr(i),'N/A'));
      inc(i);
    end;
    finally
      myini.Free;
   end;
end;
end; 
end;

mfg Paul