Ja, das stimmt.
Ich habe das hier gefunden.
Delphi-Quellcode:
function XORCrypt(Data, Key: string): string;
var
KeyLen: INTEGER;
i: INTEGER;
begin
KeyLen := Length(Key);
for i := 1 to Length(Data) do
Data[i] := Chr(Ord(Data[i]) xor Ord(Key[(i mod KeyLen) + 1]));
Result := Data;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Res:String;
begin
Res:=XORCrypt(Edit1.Text,'Kennwort');
Label1.Caption:=Res;
Label2.Caption:=XORCrypt(Res,'Kennwort')
end;
Ich glaube verstanden zu haben, dass wenn man längere Texte damit "verschlüsselt", dass die Wiederholungen sichtbar werden. Aber wenn es sich nur um kurze Daten wir
IP-Adresse, User, Passwort, Port und Schema handelt, sollte es klappen.
Den Key würde ich zwar fix im QuellCode hinterlegen. Aber wenn jemand sich soviel Mühe macht und den herausfindet, dann wird es eh schwer werden. Neugierige, fortgeschritten User würde ich so wohl fernhalten, ambitionierte Hacker ehe nicht.
Was meint ihr?
Gruß Patrick