Chiffre

[himitsu]

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;