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