Скриптик

[Ardin]

Нашел скриптик на харде, кидает в вх две стопки, вдруг кому пригодится еще

PHP код:

var
beg,id, id2,amount:string;
SocialID, Status: Integer;

procedure SendMsg(msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClient;
end;

  begin
  if FromClient and (pck[1]=#$1B) then
    begin
      SocialID:=ReadD(2);
      case ord(pck[2]) of
      $06:begin
        Status:=1;
        SendMsg('ITS ON');
      end;
      $05:begin
        Status:=0;
        SendMsg('ITS OFF');
      end;
      end;
    end;

if Status=1 then
begin
if FromClient and (pck[01]=#$31) then
begin
beg:=pck[01] + hstr('02') +pck[03]+pck[04]+pck[05];
id:=pck[06]+pck[07]+pck[08]+pck[09];
amount:=pck[10]+pck[11]+pck[12]+pck[13];
pck:='';
buf:=beg + id + amount + id + hstr('01000000');
SendToServer;
end;
if FromServer and (pck[01]=#$42) then
begin
beg:=hstr('3203000000');
id:=pck[38]+pck[39]+pck[40]+pck[41];
amount:=pck[20]+pck[21]+pck[22]+pck[23];
id2:=pck[78]+pck[79]+pck[80]+pck[81];
buf:=beg + id + amount + id2 + hstr('01000000')+ id2 + hstr('01000000');
SendToServer;
end;
end;
end.