XOR (Delphi)

[Начинающий програм]

Всем привет!
Объясните пожалуйста что делает эта строка

Result[I] := Char(Byte(a) xor (key shr 8));

тут понял

Char(Byte(a)

тут тоже понял

(key shr 8));

тут не понятно

Char(Byte(a) xor (key shr 8));

[Aranea tela telam]

1. Выполняет булево или логическое 'Исключающее - или' двух логических значений. Если они различны, то результат истинен.

2. Выполняет математическое 'Исключающее - или' двух целых чисел. Результат поразрядное 'Исключающее - или' этих двух чисел. Например:

10110001 Xor 01100110 = 11010111

Пример

var
  num1, num2, num3 : Integer;
  letter           : Char;

begin
  num1   := $25;    // Бинарное значение  : 0010 0101   $25
  num2   := $32;    // Бинарное значение  : 0011 0010   $32
                    // Значение после XOR : 0001 0111 = $17
  letter := 'G';

  // И используемый для возвращения Булева значения
  if (num1 > 0) Xor (letter = 'G')
  then ShowMessage('Только одно из значений истинно')
  else ShowMessage('Оба значения истины');

  // И используемый для выполнения математической операции Xor
  num3 := num1 Xor num2;

  // Показ результата
  ShowMessageFmt('$25 Xor $32 = $%x',[num3]);
end;

[Начинающий програм]

Большое спасибо!

Еще один вопрос почему в компилятор выдает ошибку? Как это исправить?

function Encode(s:string; key:word):string;
var
  i:byte;
begin
  result[0]:=s[0];//выдает ошибку
  for i:=1 to length(s) do
    begin
      result[i]:=char(byte(s[i]) xor (key shr 8));
      key:=(byte(result[i])+key)
    end
end;

function Decode(s:string; key:word):string;
var
  i:byte;
begin
  result[0]:=s[0];
  for i:=1 to length(s) do
    begin
      result[i]:=char(byte(s[i]) xor (key shr 8));
      key:=(byte(s[i])+key)
    end
end;

var
  s:string;
begin
  writeln('Введите сообщение: ');
  readln(s);
  s:=Encode(s,12345);
  writeln(s);
  s:=Decode(s,12345);
  writeln(s)
end.

[Stilet]

У строки в Делфи нет нулевой позиции.
result[1]:=s[1];

[phomm]

Строки индексируются с 1 в дельфи, а не с 0

пс. надо ввести секунды в дату поста ) чтобы отслеживать насколько кто кого опередил )) Как Stilet меня сейчас )

[Stilet]

чтобы отслеживать насколько кто кого опередил

Это не поможет. Локали у каждого разные могут быть.

[Начинающий програм]

Спасибо за ответ!

[Начинающий програм]

Еще вопрос по этому коду, объясните пожалуйста для чего сдесь нужна константа key ?

const
  key=12345;

function Encode(s:string; key:word):string;
var
  i,j:byte;
begin
  result[0]:=s[0];
  for i:=1 to length(s) do               //s='abcd'
    begin
      result[i]:=char(byte(s[i]) xor (key shr 8));
      key:=(byte(result[i])+key)
    end
end;