Verschlüsselung einer CSV Datenbank Klappt nicht ganz

[5etH]

Kann mir denn dann jemand einen Algorithmus empfehlen mit dem ich einfach die Datei programmintern verschlüsseln kann und wieder entschlüsseln kann

[Luckie]

Was meinst du mit "programmintern"? Und was spricht gegen den algorithmus, den du schon verwendest?

[5etH]

hi Luckie,

erstmal danke das du mir vorhin schon geholfen hast ;-)

mit Programmintern meine ich das ich das schon mit meinem Prog machen will und nicht mit Truecrypt etc... naja und zu dem Algorithmus den ich jetzt benutze ... ich weis nicht wirklich wie ich das zum laufen bringen soll... bin da leider mit meinem Latein am Ende.

[Klaus01]

Hallo Manuel,

der folgende Code läuft bei mir.
Ich habe jetzt zum Testen nur 2 Memo1 benutzt
aber vom Ablauf sollte es mit Deinem StringGrid ähnlich laufen.

Delphi-Quellcode:

procedure encodeFile(fileName:TFileName;mStream:TMemoryStream);
var
  x: TRCxContext;
  outStream : TMemoryStream;
begin
  outStream := TMemoryStream.create;
  outStream.size := mStream.size;
  RCxInit(x,'Passwort');
  RCxenCode(x,mStream.memory^,outStream.memory^,mStream.size);
  RcxDone(x);
  outStream.saveToFile(fileName);
  outStream.free;
end;


procedure decodeFile(fileName:TFileName;mStream:TMemoryStream);
var
  x: TRCxContext;
  outStream: TMemoryStream;
begin
  outStream := TMemoryStream.Create;
  mStream.loadfromFile(fileName);
  outStream.size := mStream.size;
  RCxInit(x,'Passwort');
  RCxdeCode(x,mStream.memory^,outStream.memory^,mStream.size); // entschlüsseln
  RcxDone(x);
  mStream.LoadFromStream(outStream);
  outStream.Free;
end;

// verschlüsseln
procedure TForm1.Button1Click(Sender: TObject);
var
  mStream : TMemoryStream;
begin
  mStream := TMemoryStream.Create;
  memo1.Lines.SaveToStream(mStream);
  encodeFile('d:\rcxtest.dat',mStream);
  mStream.free;
end;

// entschlüsseln
procedure TForm1.Button2Click(Sender: TObject);
var
  mStream : TMemoryStream;
begin
  mStream := TMemoryStream.Create;
  decodeFile('d:\rcxtest.dat',mStream);
  memo2.Lines.LoadFromStream(mStream);
  mStream.free;
end;

Grüße
Klaus

[5etH]

Boar wie geil es Funktioniert ihr seid Götlich vielen Dank :dp: