[VORON]

QAK, тормозить будет не мой комп а сервант... наша задача полностью продублировать алгоритм сервера..
одну и туже задачу- можно решить разными способами.. напиример:
задача получить ответ=4
ето можно сделать разными методами..
2+2=4
3+1=4
16 корень квадратный= 4
и т.д...
нам нужно найти алгоритм получения- очень простой...
бональный
ИФЫ- привествуются лиш для тестирования и подбора алгоритма..
в конечной версии скрипта недолжно быть никаких ИФОВ..
ИФ- по быстродействию примерно как 100+ обычных сложений вычисляется
уесли ИФ применить для шифровки пакета на сервере- то пипец будет.. сервант просто повиснет...
алгоритм шифровки- простой должен быть- красивый и простой...
без всяуих ифов
посмотрите лог скрипта.. от отого с чего начали и чем закончимли... и и постарайтесь его усовершенствовать- математически..

Добавлено спустя 5 минут 36 секунд:
меня смущает факт что 3-й 7-й байты ключа становятся 00 и 01... как ето возможнгно вапще????
а порой наоборот 3-й=01 а 7-й=00..
еслли наш скрипт рабьотает то как ето возможно???
key[5]:=key[5] xor key[1];
да никак!
просто мы чегото не учитываем

Добавлено спустя 11 минут 23 секунды:
я мониторил- факт:

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 size0 then pck[0]:=pck[0] xor key[0];
key[0]:=key[0] xor pck[1];
key[1]:=key[1] xor (pck[1]+size);
key[4]:=key[4] xor key[0];
key[5]:=key[5] xor key[1] xor (pck[1]+size);
end.
end.

обратите внимание на:
key[5]:=key[5] xor key[1] xor (pck[1]+size);


просто когда пакет какойто пределенный то надо сдвигать на ноль.. (вернее на много там..)
ыот меня интерисует когда применять то 1 то другой агоритм? чем пакет от пакета должен отличчаться?

Добавлено спустя 56 минут 15 секунд:
подскажу..подскажу..
вот например имеем скрипт - тот что я дал..:
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.

оратите внимание на :
key[5]:=key[5] xor key[1];
кей5- следствие от кей1...

а посматрите другой лог и скрипт:
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];
key[0]:=key[0] xor pck[1];
key[1]:=key[1] xor (pck[1]+size);
key[4]:=key[4] xor key[0];
key[5]:=key[5] xor key[1] xor (pck[1]+size);
end.
end.
для маленьких пакетов етот скрипт- заработает- нормально...
обратите внимание на:
key[5]:=key[5] xor key[1] xor (pck[1]+size);

вопщем от кол-ва байт нужно применять скрипты разные..
я надеюсь с ващей помощью всё решу

Добавлено спустя 7 минут 42 секунды:
меня парит то что для какойто длинны пакета мы использем зависимость:
кей5 от кей1...
а если длинна пакета изменится то наодорот..
сначала кей6 а потом кей1.. я ето уже вам выдал скриптами выщще..- обратите внимание на мой пост со скриптом- как такое возможно? я не ищу оправдания в подтверждение того что скрипт- верный.. я исчу наоборот.. людей которые мне всё объяснят почему именно так а не подругому...