XOR Verschlüsselung

[w1n5t0n1337]

Guten Tag,

ich probiere im Moment mit dem folgenden Quelltext:
http://www.delphi-treff.de/tipps-tri...erschluesseln/
eine XOR Verschlüsselung hin zu kriegen. Ich habe nicht wirklich viel Ahnung von Delphi und habe das Problem, dass ich nicht weiß wie ich die Funktion praktisch "aufrufen" soll.

Vielen Dank für eure Hilfe


Anton

[vagtler]

Der Aufruf von Funktionen gehört zu den absoluten Grundlagen der Programmierung. Vielleicht solltest Du Dich damit erst einmal beschäftigen. https://www.google.de/search?q=delphi+grundkurs

[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".

[bernau]

Zitat von Popov:

Delphi-Quellcode:

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

4711 -> Diese Verschlüsselung funktioniert aber nur in Köln