Übersetzungsprobleme c -> delphi

[Hybrid666]

Zitat von Klaus01:

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

jo sehr verständlich, das einzige was mir unklar war war XOR und $0F...aber nu weiß ich ja was was ist...danke...aber eine frage hätte ich noch:was ist #00? ist #00 auch ein HEX wert? wenn ja warum fängt der eine mit $ an der andere mit #? ^^

ich muss ja praktisch dann weider so vorgehen...
i läuft den text durch (in dem fall den verschlpüsselten) und j den schlüssel...wenn j durch ist wieder auf 1 setzen iss klar...dann muss ich von dem schluessel an der stelle j $OF abziehen und mit xor dann den text an der stelle i nehmen...oder?

MfG Hybrid666

MfG Hybrid666