Delphi-PRAXiS - Delphi XOR Verschlüsselung

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi XOR Verschlüsselung (https://www.delphipraxis.net/185256-xor-verschluesselung.html)

XOR Verschlüsselung

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

AW: XOR Verschlüsselung

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

AW: XOR Verschlüsselung

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

AW: XOR Verschlüsselung

Zitat:

Zitat von Popov (Beitrag 1303053)

Delphi-Quellcode:

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

...

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