[zip000]

Сообщение от KOOL

Мне нужно произвести операцию типа <строка> xor <строка-ключ>

Код:

function DoXOR(StrIn, Key : String) : String;
var
  i, l_In, l_Key : Integer;
begin
  Result := '';
  l_In  := Length(StrIn);
  l_Key := Length(Key);
  if (l_In > 0) and (l_Key > 0) then
    for i := 0 to l_In - 1 do begin
      Result := Result + Chr(Ord(StrIn[i + 1]) xor Ord(Key[1 + (i mod l_Key)]));
    end;
end;