Кружок нубов(Вопрос-Ответ)

NLObP · 19.03.2009, 14:50

Цитата:

Сообщение от Stasrus

Подскажите как можно изменить пакет,
например клиент посылает изменяемый пакет 2E 00 00 00 79 34 15 00 22 05 11 48
нужно допустим заменить неизменные части 79 на 99 и 22 05 11 48 на 11 11 11 11 не трогая при этом остальной изменяемой части и отправить его серверу.

Если пакет неизменный трудностей с переделкой и отправкой нет, но немогу додуматься как переделать изменяемый пакет.

delphi Код:

Tип: 0x2E (RequestMagicSkillList)
Pазмер: 12+2

0002 c c: 0 (0x00)
0003 c c: 0 (0x00)
0004 c c: 0 (0x00)
0005 d CharID: 1389689 (0x00153479)
0009 d ObjectID: 1209074978 (0x48110522)

delphi Код:

if (pck[1]=#$2E) and FromClient then 
begin
  buf:=pck;  //копируем пришедший пакет 2E 00 00 00 79 34 15 00 22 05 11 48
  pck:='';   //удаляем
  //формат команды вставки данных WriteD(data, index: integer), по умолчанию index=0, index увеличивается на длину данных
  WriteC($99, 5);        //заменяем 79 на 99
  WriteD($11111111, 9); //заменяем 22051148 на 11111111
  SendToServer;
end;

PS: вроде так