Zitat von
EDatabaseError:
In deinem Code wird mir leider die 1 verschluckt
Du meinst vom Key? Er faengt nicht direkt beim 1. Zeichen an, sondern beim zweiten. Nach
length(Key)-1 Zeichen wird auch das erste Zeichen des Keys verwendet
Kann man natuerlich auch aendern:
result[i] := chr(ord(S[i]) xor ord(Key[(i - 1) mod length(Key) + 1]));
greetz
Mike