Jump to content

Скриптик


Recommended Posts

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

 

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.

Link to comment
Share on other sites

  • 1 year later...
  • 10 months later...
  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...