verschlüsselte Datei auslesen

[Paul]

hi,

das andere problem haben wir ja super gelöst
ich habe die datei verschlüsselt, wie kann ich sie jetzt auslesen???
ich habe schon mal eine simple verschlüsselung gemacht aber die war im programm und nicht von einer datei auslesen.

Delphi-Quellcode:

implementation

uses Unit2;

{$R *.dfm}

const
  Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';

function Decode64(S: string): string;
var
  i: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
  begin
    x := Pos(s[i], codes64) - 1;
    if x >= 0 then
    begin
      b := b * 64 + x;
      a := a + 6;
      if a >= 8 then
      begin
        a := a - 8;
        x := b shr a;
        b := b mod (1 shl a);
        x := x mod 256;
        Result := Result + chr(x);
      end;
    end
    else
      Exit;
  end;
end;

//---- Entschlüsselung Ende ----

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    myIni:TIniFile;
    eRec:TSearchRec;

begin
If OpenDialog1.execute then
begin

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

if FindFirst(ExtractFilePath(Application.ExeName) + '*.ini', faanyfile, eRec) = 0 then begin
  repeat; 
    if (eRec.Name <> '.') and (eRec.Name <> '..') then begin 
      myini := TIniFile.Create(ExtractFilePath(Application.ExeName) + eRec.Name); 
      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;

hier das programm zum entschlüsseln und verschlüsseln

http://www.downtown.madcity.de/paul/prog/Base64.rar

wäre über jede hilfe dankbar

mfg Paul