Daten verschlüsselt speichern

[Captnemo]

Kleiner Tipp:

Pack dir die XOR-Verschlüsselung in eine kleine Funktion ala:
Function StrXor(Str: string; key: integer): string; Da du XOR-Verschlüsselst kannst du das so machen, dass sowohl für die Verschlüsselung als auch für die Entschlüsselung den gleichen Code benutzt.

Diese Funktionen nutzt du dann ein deine Procedure. Denn so, wie du es zur Zeit machst, ist das Käse und in einem halben Jahr steigst du da selber nicht mehr durch.