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.

 Share



×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disbaled AdBlock