Dateien verschlüsselt abspeichern

[Mavarik]

Zitat von Andreas L.:

Meinst du das würde reichen? Oder was hältst du von den binären Stream? Wie geht der Stream überhaupt? Mit nen FileStream die Datei öffnen und speichern? Wird die dann automatisch binär?

Klar...

Schluessel :string = 'qp1w2o3e4i5r6u7t8z9a0ls!"§$%m&/n(x)=cvQPWOEIRUZTALSKDJFHGYMXNCBV';

Sowas in dieser Richtung...
Und dann einfach..

Delphi-Quellcode:

b : byte;
w : word;
for i:=1 to length(DeinString) do
  begin
    w := ord(S[I]);
    w := w + ord(Schluessel[i]);
    S[i] := chr(lo(w));
  end;

Ungetestet...

Frank