Verschlüsselte Textdatei (Datenbank)

[Manzoni]

Falls es dir nur darauf ankommt, dass niemend deine Daten lesen kann, reicht ne xor-Verschlüsselung:

Delphi-Quellcode:

function XORString(Text, Schluessel: String): String;
var i, q: integer;
begin
  q:=1;
  if Trim(Schluessel)='' then
    Schluessel:='asdlkfjöalskjdfölaksdjfölaksjfd';
  for i:=1 to Length(Text) do
  begin
    Text[i]:=Chr(Ord(Text[i]) XOR Ord(Schluessel[q]));
    inc(q);
    if q>length(Schluessel) then q:=1;
  end;
  Result:=Text;
end;

procedure XORFile(Source, Dest, Schluessel: String);
// Ent-/Verschlüsselt die Datei Source und schreibt sie in die Datei Dest.
var buffer: Array[1..40000] of Byte; // dynamischer Speicher wäre schöner
  f, f2: file;
  loop, loop2, gelesen: integer;
begin
  if Trim(Schluessel)='' then
    Schluessel:='asdlkfjöalskjdfölaksdjfölaksjfd';
  AssignFile(f, Source);
  ReSet(f,1);
  AssignFile(f2,Dest);
  ReWrite(f2,1);
  loop2:=1;
  while not EOF(f) do
  begin
    BlockRead(f, buffer, sizeof(buffer), gelesen);
    for loop:= 1 to Gelesen do
    begin
      buffer[loop]:=buffer[loop] XOR Ord(Schluessel[loop2]);
      Inc(loop2);
      if loop2>length(Schluessel) then loop2:=1;
    end; // XOR
    BlockWrite(f2, buffer, gelesen);
  end; // bis zum Ende der Datei
  CloseFile(f);
  CloseFile(f2);
end;

Gefunden bei delphi-source.de

Falls es sicherer sein soll kann ich die Komponente Abbrevia empfehlen.