Verschlüsselungs Problem mit ASCII Zeichen

[St.Pauli]

So - setzt aber vorraus, dass s und ZufString die gleiche Länge haben...

Delphi-Quellcode:

for i:=1 to length(s) do 
  begin
    s[i] := Chr(Ord(s[i]) XOR Ord(ZufString[i]));
  end;