Delphi-Quellcode:
procedure DateiDingens(const InputString: string; const Modifier: Byte; var Output: String);
var
s: string;
i: Integer;
b: Byte;
f: file of Byte;
begin
// Datei mit verschluesseltem Inhalt sichern
AssignFile(F, Application.ExeName+'.txt');
Rewrite(f);
for i := 1 to Length(InputString) do
begin
b := Ord(InputString[i]) + Modifier;
write(f, b);
end;
CloseFile(F);
// Datei mit verschluesseltem Inhalt laden
AssignFile(F, Application.ExeName+'.txt');
Reset(F);
s := '';
while not Eof(F) do
begin
Read(f, b);
s := s + Char(b - Modifier);
end;
CloseFile(F);
Output := S;
end;
Das sollte das machen was Du möchtest, Dateinamen ersetzen und ab gehts
Ps: Das ist ein all-in-one Beispiel damit Du gleich siehst wie man speichert und lädt.
Pps: InputString sollte Text sein, bei Binär läuft das mit dem Modifier schnell über 255 hinaus und alles ist futsch.