Дешифровка нескольких переменных(delphi)

[CAMOBAP]

Вопрос заключается в том как по xor шифрованию расшифровать несколько переменных
По этому алгоритму

 

var
  key, text, longkey, result : string;
  i : integer;
  toto, c : char;
  F : TextFile;

for i := 0 to (length(text) div length(key)) do
    longkey := longkey + key;

  for i := 1 to length(text) do
  begin
    toto := chr((ord(text[i]) xor ord(longkey[i])));
    result := result + toto;

[p51x]

Поксорьте с ключом еще раз