ДЕШИФРУЕМ ТРАФИК

[QaK]

var
  k: integer;

begin
  for k:=1 to size-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]) xor $D1;
  IncAsInteger(key, 0, size);
end.

//A5 E7 20 5D A1 6C 54 87  до(не включительно) 3E D9 20 5D A1 6C 54 87 C0 E8
//C0 E8 20 5D A1 6C 54 87  до(не включительно) 9E D8 20 5D A1 6C 54 87 60 E9
//60 E9 20 5D A1 6C 54 87  до(не включительно) 3F DB 20 5D A1 6C 54 87 C1 EA
//C1 EA 20 5D A1 6C 54 87  до(не включительно) BA DC 20 5D A1 6C 54 87 44 ED
//44 ED 20 5D A1 6C 54 87  до(не включительно) 98 DF 20 5D A1 6C 54 87 66 EE
//66 EE 20 5D A1 6C 54 87  до(не включительно) 3E DF 20 5D A1 6C 54 87 C0 EE
//C0 EE 20 5D A1 6C 54 87  до(не включительно) 9E DE 20 5D A1 6C 54 87 60 EF
//60 EF 20 5D A1 6C 54 87  до конца 
 

пока ничего не спрашивайте, потом откоментирую

Добавлено через 5 минут
Lumex, у тя лог точно полный, ты оттуда ничего не убирал?