Danke an alle...
meine Anwendung lässt sich nun kompilieren
Das ist der Code, den ich nun benutze(falls ihn jemand anderes braucht:
Delphi-Quellcode:
procedure Crypt(XFile, KFile: String); //Durch die freundliche Unterstützung von rollstuhlfahrer und Uwe Raabe entstanden
var
fkey, fxfile: TFilestream;
keys: array[0..524287] of Char; // deine Menge weniger 1
i: Cardinal;
buffer: Char;
begin
fkey := TFileStream.Create(kfile, fmOpenRead);
fkey.Read(keys, 524288); // nun wieder vollzählig
fkey.Free; // wird nicht mehr benötigt, da im Speicher
fxfile := TFileStream.Create(xFile, fmOpenReadWrite);
for i := 0 to fxfile.Size -1 do
begin
fxfile.Read(buffer, 1);
fxfile.Position := fxFile.Position - 1;
buffer := Chr(Ord(buffer) XOR Ord(keys[(i-1) mod 524287]));
fxFile.Write(buffer, 1); // XOR
end;
fxfile.Free;
end;
Danke vor allem an Uwe Raabe