delphi Код:
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, у тя лог точно полный, ты оттуда ничего не убирал?