XOR Verschlüsselung

[Popov]

So sieht die Syntax aus:

Delphi-Quellcode:

function XorStr(const Text: string; Key: Integer): string;
...

Xor Verschlüsselung ist eine einfache Verschlüsselung. In dem Fall wird jeder Buchstabe (Char) mit einem anderen Buchstaben oder Wert verschlüsselt. Das schöne an der Xor Verschlüsselung ist aber, dass wenn du den Buchstaben noch mal mit dem anderen Buchstaben oder Wert verschlüsselst, du wieder den Originalbuchstaben oder Zahl bekommst. Beispiel: 50 xor 30 = 44. Nun nehmen wir 44 xor 30 = 50.

Wie nutzt man die obere Funktion?

Delphi-Quellcode:

s1 := XorStr('Klartext', 4711);
...

In s1 steht jetzt der verschlüsselte Text.

Nun rufen wir das erneut auf:

Delphi-Quellcode:

s2 := XorStr(s1, 4711);
...

Das Ergebnis in s2 ist nun "Klartext".