Dateien verschlüsselt abspeichern

[Andreas L.]

Hi,
ich möchte die Konfigurationsdateien einer meiner Projekte nicht editierbar machen. Zuerst dachte ich mir das die Dateien als binärer Stream gespeichert werden. Doch 1. kann das ein erfahrener Anwender schnell knacken und 2. weiß ich nicht wie das geht (gibts nen Workaround?). Kennt jemand eine möglichst sichere Methode? Ja, ich weiß das alles knackbar ist aber die Zielgruppe meines Programms werden wohl nicht gerade Cracker und Programmierer sein. Wichtig wäre mir dabei das ich nach den entschlüsseln den Inhalt der Datei in eine TmemIniFile laden kann. Ich stelle mir das also so vor:

Delphi-Quellcode:

var
ini: tmeminifile;
begin
Entschlüsseln('verschlüsseltedatei.dat', 'temporärentschlüsselt.dat');
ini := tmeminifile.create('temporärentschlüsselt.dat');
ini.writestring('bla', 'blubb', 'dada');
ini.updatefile;
ini.free;
Verschlüsseln('temporärentschlüsselt.dat', 'verschlüsseltedatei.dat');

Weiß da jemand was?

[mkinzler]

Schau dir mal DEC oder TP LockBox an.

[Andreas L.]

Hmm... Leider kann ich es nicht installieren. Ich öffne %DEC%\D7\DEC.dpk mit Delphi und klicke auf Compilieren (die Bibliothekspfade habe ich hinzugefügt). Es kommt die Meldung "Kann Datei CRC.dcu nicht erstellen". Ok, das sie schon existiert habe ich die mal umbenannt: Es kommt der selbe Fehler.

Was mache ich falsch?

[Luckie]

Ich weiß nicht, wo du das DEC runtergeladen hast und welche Version. Die aktuelle Version auf meiner Homepage: http://dec.michael-puff.de kann man nicht mehr installieren, man bindet einfach nur die benötigten Units ein; steht aber auch in der readme-Datei.

[Andreas L.]

Zitat:

Zitat von Luckie

Ich weiß nicht, wo du das DEC runtergeladen hast und welche Version. Die aktuelle Version auf meiner Homepage: http://dec.michael-puff.de kann man nicht mehr installieren, man bindet einfach nur die benötigten Units ein; steht aber auch in der readme-Datei.

Habs ja bei dir runtergeladen. Für was ist dann die DPK-Datei da? Naja, werde mal die readMe lesen.

[Mavarik]

Machs doch nicht so kompliziert...

Ein einfacher Zeichentauscher reicht i.d.R. für 80% aller Anwendungen...

Nur not noch ein Paar füllzeichen einstreuen, fertig!

Frank :coder:

[Andreas L.]

Zitat:

Zitat von Mavarik

Machs doch nicht so kompliziert...

Ein einfacher Zeichentauscher reicht i.d.R. für 80% aller Anwendungen...

Nur not noch ein Paar füllzeichen einstreuen, fertig!

Frank :coder:

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?

[Luckie]

Nun ja, ein bischen sollte man sich schon mit der Technik auseinandersetzen für die man programmiert. ;)

Wie, wenn nicht binär? Der Computer kennt nur 1 und 0.

[Mavarik]

Zitat:

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 :coder:

[Andreas L.]

Zitat:

Zitat von Luckie

Nun ja, ein bischen sollte man sich schon mit der Technik auseinandersetzen für die man programmiert. ;)

Wie, wenn nicht binär? Der Computer kennt nur 1 und 0.

Naja, ich meinte jetzt das eine Ini-Datei wenn man Sie einfach speichert ja PlainText ist. ne Exe ist binär. So meinte ich das ;-)

@Mavarik: Was genau macht dein Code? Kannst du ihn ein bisschen erklären?