verschlüsselte Datei auslesen

[Paul]

Hi,

ich weiß ja nicht genau wie ich auslesen soll
deshalb frag ich ja

hier mal mein ideenansatz

Delphi-Quellcode:

if FindFirst(ExtractFilePath(Application.ExeName) + '*.ini', faanyfile, eRec) = 0 then begin
  repeat;
    if (eRec.Name <> '.') and (eRec.Name <> '..') then begin
      AssignFile(f,ExtractFilePath(Application.ExeName) + eRec.Name);
      Reset(f);
      repeat
      ReadLn(f, S1);
      S2:= Decode64(S1);

      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;

mfg Paul