Thema: Chiffre

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.016 Beiträge
 
Delphi 12 Athens
 
#5

AW: Chiffre

  Alt 26. Feb 2018, 11:03
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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat