Цитата:
Задача такая:
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: скрипт ставь самым последним в списке