[VORON]

QAK, как на счет етого??? ы-))

var
k: integer;
b,i,a: integer;
begin
for k:=size-1 downto 1 do
pck[k]:=pck[k] xor key[k and 7] xor pck[k-1];
if size0 then pck[0]:=pck[0] xor key[0];
b:=0;
a:=0;

for k:=1 to size-1 do
begin
b:=b+pck[k];
end;

key[0]:=key[0] xor b;
key[1]:=key[1] xor ((size + b) shr (8));
key[2]:=key[2] xor ((size + b) shr (16));
key[3]:=key[3] xor ((size + b) shr (24));

key[4]:=key[4] xor key[0];
key[5]:=key[5] xor key[1];
key[6]:=key[6] xor key[2];
key[7]:=key[7] xor key[3];


if ((size + b) shr 8 ) = 0 then
key[1]:=key[1] xor ((size + b) shr 0);
end.

тут многое сделал я сам.. но привел все мои беспорядочные мысли к знаменателю никто иной как XKOR!!!!!! можно сказать так что я смотрю логи, изучаю их нахожу закономерность. а XKOR моментально ету закономерность на код перекладывает...
XKOR- вапще ГЕНИЙ! просто ГЕНИЙ!..

Добавлено спустя 6 минут 10 секунд:
мы почти возле цели..
но вопросы остались-))...
которые мы вместе решим-)) надеюсь с вашей помощью..-).. вопрос собственно в том чтобы сделать таково чтоб ИФА- небыло???
недолжно быть ИФА никаково...
любой ИФ в алгоритме шифрации- снижает быстродейтвие сервака- в разы... их недолжно там быть... как от ифа избавиться?
судя по всему когда (size+b) в диапазоне 1-2 байта то вот так вот ка я написал выше.. когда (size+b) - меньше одного байта - то приходится ИФ вставлять.. а когда (size+b) перевалит за FF FF то хз что будет.. и вапще возможно ли ето на практике? но.. от ИФА надо избавляться!..
жду ващей помощи!

Добавлено спустя 10 минут 41 секунду:
вот вам лог из 4-х пакетов содержащих приват сам себе с буквой "п" .. максимальное кол-во символов использовал.. причем почему "п"? спросите вы? да потомучто с пакетом типа "11111" идут нули через 1... для теста малопригодны.. в оригнале пакет выглядит так:
38 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 3F 04 00 00 02 00 00 00 76 00 6F 00 72 00 6F 00 6E 00 37 00 00 00

для дешифровки вышеупомянутый скрипт- работает-)) впрочем ка и для ещевышеизложенного лога с 3-мя разными пакетами по 5 штук..
задача избавиться от ИФА в етом скрипте... чтоб он был- универсален для любой длинны пакета и данных внутри пакет..

01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF FA FE C1 54 07 03 3C 01 54 50 6F FA A9 AD 92 AF C5 C5 C7 56 3A 3A 4C 75 70 70 02 93 90 90 FE C7 9A 9A 9A 0B
80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 32 36 09 24 07 03 3C 80 CF CB F4 D9 FA FE C1 7D 0D 0D 0F 26 3A 3A 4C F4 EB EB 99 B0 C3 C3 AD 15 52 52 52 7B
01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 61 65 5A 4E 07 03 3C 01 54 50 6F 7B 32 36 09 34 5E 5E 5C 4C 3A 3A 4C 75 70 70 02 12 0B 0B 65 5C 01 01 01 11
80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 A9 AD 92 3E 07 03 3C 80 CF CB F4 58 61 65 5A E6 96 96 94 3C 3A 3A 4C F4 EB EB 99 31 58 58 36 8E C9 C9 C9 61