Einlesen von Verschlüsselter Datei funktioniert nicht richti

[Jens Hartmann]

Hallo zusammen,

Habe mal wieder ein Problem. Ich bin jetzt an dem Punkt angekommen, das ich von meinem Programm die verschlüsselte Lizenzdatei einlesen lassen will.

Die Lizenzdatei erstelle ich mit einem selbst geschriebene Programm, in dem der Lizenzcode, bestehend aus verschiedenen Kundeninformationen zusammengesetzt wird, dann XOR verschlüsselt wird und zum Schluß in einer Datei gespeichert wird.

Delphi-Quellcode:

  for A := 1 to Length (Lizenzdatei)do
  begin
  Lizenzdatei[A] := Char(Byte(Lizenzdatei[A]) xor 42);
  end;
  Memo1.Text := Lizenzdatei;
  Memo1.Lines.SaveToFile('..\Liz\'+Kundenname+'.liz');

Lese ich die Datei nun in meinem Programm ein, funktioniert das ganze auch ganz gut, bis auf das mein Ergebnis mit zusätzlichen Zeichen versehen ist.


Jens HartmannWohnhausV1.00V1.00.25.01.2009.1HU2009SER1D iese Lizenz sollte bitte nicht genutzt werden //Soll String

Jens' HartmannWohnhausV1.00V1.00.25.01.2009.1HU2009SER1D iese' Lizenz' sollte' bitte' nicht' genutzt' werden //Ist String


Einlese Vorgang:

Delphi-Quellcode:

  Memo2.Lines.LoadFromFile('.\Liz\'+Kundenname+'.liz');
  Lizenzdatei := Memo2.Text;
  for A := 1 to Length (Lizenzdatei)do
  begin
  Lizenzdatei[A] := Char(Byte(Lizenzdatei[A]) xor 42);
  end;
  Memo2.Text := Lizenzdatei;
  end;

Meine Frage ist nun, wie kommt das und wie kann ich das ändern?

Danke schon mal

MFG

Jens