Задача такая:
1. пакету 01 к серверу нужно в конце дописать 4-е байта (01 00 00 00)
2. пакету 2F к серверу нужно поменять 6-й байт на 00
3. заблокировать пакет 81 к серверу.
Знающие люди подскажите, что нетак, л2пх выдает крита с моим скриптом?
Код:
const
ebalyavsehvrot='01 00 00 00';
begin
if FromClient and (pck[1]=HStr('01')) and (pck[26]<HStr('01')) then begin
buf:=pck + hstr(ebalyavsehvrot);
SendToServer;
pck:='';
end;
if FromClient and (pck[1]=HStr('2F')) and (pck[6]>HStr('01')) then begin
pck[6]:=HStr('00');
buf:=pck;
SendToServer;
pck:='';
end;
if FromClient and (pck=HStr('81')) then begin
buf:=HStr('3F');
SendToServer;
pck:='';
end;
end.