[PanAm]

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

Как найти алгоритм xor?

А подробней, что именно вы хотите найти? Стандартный алгоритм шифрования в линейке находить не надо, он хорошо известен...
для C4

var
  k: integer;
begin
  for k:=size-1 downto 1 do
    pck[k]:=pck[k] xor key[k and 7] xor pck[k-1];
  if size<>0 then pck[0]:=pck[0] xor key[0];
  IncAsInteger(key, 0, size);
end.

для > C4

var
  k: integer;
begin
  for k:=size-1 downto 1 do
    pck[k]:=pck[k] xor key[k and 15] xor pck[k-1];
  if size<>0 then pck[0]:=pck[0] xor key[0];
  IncAsInteger(key, 8, size);
end.