komplette Dateien jeglicher Art verschlüsseln

[SirThornberry]

@Avax2k: Ich denke du solltest dich mal mit den Grundlagen beschäftigen.
Den Inhalt der Datei in einen String bekommst du so hinn:

Delphi-Quellcode:

var LStream: TFileStream;
    LDateiInhalt: String;
begin
  LStream := TFileStream.Create(DeinDateiname, fmOpenRead);
  SetLength(LDateiInhalt, LStream.Size);      
  LStream.Read(LDateiInhalt[1], LStream.Size); //nach diesem Befehl steht in "LDateiInhalt" der Dateiinhalt
  LStream.Free;
end;

einen String in eine Datei schreibst du dann so

Delphi-Quellcode:

var LStream: TFileStream;
begin
  LStream := TFileStream.Create(DeinDateiname, fmCreate);
  LStream.Write(VerschluesselterString[1], Length(VerschluesselterString));
  LStream.Free;
end;