Показать сообщение отдельно
Старый 22.05.2008, 13:51   #3
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Задача такая:
1. пакету 01 к серверу нужно в конце дописать 4-е байта (01 00 00 00)
2. пакету 2F к серверу нужно поменять 6-й байт на 00
3. заблокировать пакет 81 к серверу.
delphi Код:
begin   if FromClient and (pck[1]=#$01) then begin     buf:=pck;     WriteD(01);     SendToServer;     pck:='';     exit;   end;   if FromClient and (pck[1]=#$2F) then begin     buf:=pck;     WriteC(00,6);     SendToServer;     pck:='';     exit;   end;   if FromClient and (pck[1]=#$81) then begin     pck:='';     exit;   end; end.

ps: скрипт ставь самым последним в списке
NLObP вне форума   Ответить с цитированием