Защита L2j C4

begin
 if (length(_gBuff)<3) or (not (gsys.isgs>0)) then exit;
 if (not _gFromServ) and strcmp(_gBuff[3],#$0F) then
 if (length(_gBuff)<>31) then
 _gOutBuff:=hstr('1F 00')+copy(_gBuff,3,25)+hstr('01 00 00 00');
 end.

//‘иксит проблемы с диалогами (разговор с нпц)

begin
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('63 00 68 00 61 00 74 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #67;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('6C 00 6F 00 74 00 6F 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #76;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('73 00 75 00 70 00 70 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #83;
    _gOutBuff[46] := #77;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('71 00 75 00 65 00 73 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #81;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('62 00 75 00 79 00 20 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #66;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('73 00 65 00 6C 00 6C 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #83;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('74 00 65 00 72 00 72 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #84;
    _gOutBuff[50] := #83;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('6F 00 6C 00 79 00 6D 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #79;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('64 00 65 00 70 00 6F 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #68;
    _gOutBuff[46] := #80;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('77 00 69 00 74 00 68 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #87;
    _gOutBuff[48] := #80;
  end;
end.

BEGIN
 if (Copy(_gBuff,3,1)=#$B9) and (Copy(_gBuff,8,2)=#$FE+#$FF) then _gOutBuff:=Copy(_gBuff,1,7)+#0+#0+#0+#0+#0+#0;
 if (_gbuff=#$03+#0+#$F9) then gBlockPacket;
 If (_gBuff=#$02+#0) then gBlockPacket;
 if (length(_gbuff) <> Gint(_gbuff,1,2)) and Gint(_gBuff,1,2)<> 2 then _gOutBuff:=Hpck(BufToHex(Copy(_gBuff,3,length(_gbuff)-2)));
 if (length(_gbuff) <> Gint(_gbuff,1,2)) and (Gint(_gBuff,1,2) = 2) then _gOutBuff:=Copy(_gBuff,3,length(_gbuff)-2);
end;