textneu[i] := char((ord(schluessel[j]) and $0F) xor ord(text[i]));
ord(schluessel[i]) ermittelt den
Ascii Wert des Zeichens an der i'ten Stelle des Schlüssels
der Wert wird
and mit Hex 0F verknüpft
- das Ergebnis daraus wird
XOR mit dem Wert des Zeichens j des Textes verknüpft
(ord(text[i]))
- aus diesem Ergebnis wird das Zeichen i des textneu ermittelt (
char(..)).
char ist die Umkehrfunktion von ord.
Hoffe es ist einigermaßen verständlich.
Grüße
Klaus