Nee, der heißt doch Detlef und da er keine Angst vor NSA/KGB/MI6/CIA/SS hat, würde er niemals hier einen anderen Namen nutzen.
Das ist sicher:
Man kann es noch etwas abwandeln, aber sicherer geht es nicht. (außer man nutzt Random(x), womit die Sicherheit auf einen "32 Bit"-Schlüssel reduziert wird)
Delphi-Quellcode:
var
S, D: TBytes;
i: Integer;
begin
D := TFile.ReadAllBytes('Daten.xyz');
SetLength(S, Length(D));
for i := High(S) downto 0 do begin
S[i] := RealRandom(256); // oder Random(256) zum Testen, wer keinen "echten" Zufall bekommt
D[i] := D[i] xor S[i];
end;
TFile.WriteAllBytes('Daten.xyz.Schlüssel', S);
TFile.WriteAllBytes('Daten.xyz.verschlüsselt', D);
D := TFile.ReadAllBytes('Daten.xyz.verschlüsselt');
S := TFile.ReadAllBytes('Daten.xyz.Schlüssel');
SetLength(S, Length(D));
for i := High(S) downto 0 do
D[i] := D[i] xor S[i];
TFile.WriteAllBytes('Daten.xyz', D);
end;