Result[i] := chr(ord(Text[i]) xor ord(Key[j]));
Vielleicht noch
chr direkt durch
AnsiChar ersetzen, ansonsten "Inkompatible Typen: 'AnsiChar' und 'Char'"
Du fängst jetzt an zu optimieren ohne zu wissen ob das überhaupt notwendig ist.
Stimmt, ich probiere es erstmal so aus. Im monent wird der String zwar verschlüsselt, aber nur teilweise wieder entschlüsselt.