L2PacketHack 3.5.x

[NLObP]

Исходники здесь
Вот такие скомпилированные версии есть у меня.

Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)

Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)

/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.

[NLObP]

В версии 3.3.0 не надо галочку Перехват отключать. У меня без ошибок с ней стало работать.

[Emocean]

Комментарии опять синие А мне так нравились зелёные

Добавлено через 2 часа 24 минуты
А можно сделать для фильтра переключатели "Все|Отмеченные|Неотмеченные"? А то иногда так устаёшь искать нужный тип пакета среди отключенных...

Добавлено через 4 минуты
Или сортировку списка по "отмеченности"... или по имени...

[xkor]

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

[+] рефакторинг вызова скриптов;

шо ещё за рефакторинг??

Рефакторинг или Реорганизация — процесс полного или частичного преобразования внутренней структуры программы при сохранении её внешнего поведения. В его основе лежит последовательность небольших эквивалентных (т.е., сохраняющих поведение) преобразований. Поскольку каждое преобразование маленькое, программисту легче проследить за его правильностью, и в то же время, вся последовательность может привести к существенной перестройке программы и улучшению её согласованности и четкости. Рефакторинг позволяет разрабатывать архитектуру программы постепенно, откладывая проектные решения до тех пор, пока не станет более ясной их необходимость.

и какое это отношение имеет к вызову скриптов???

[NLObP]

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

Комментарии опять синие

Вернул зеленый цвет комментариям.

[xkor]

NLObP, кстати, будет время глянь на расцветку в моём кусочке 4го пакетхака, че то я там помойму с оттенками намудрил...

[NLObP]

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

шо ещё за рефакторинг??
и какое это отношение имеет к вызову скриптов???

Ну, может неправильно обозвал. У тебя там через три п. вызов был, я укоротил.

...
    procedure ExecuteScripts(var msg: TMessage); Message WM_ExecuteScripts;
...


procedure TL2PacketHackMain.ExecuteScripts(var msg: TMessage);
var
  i: Integer;
  packet: string;
  FromServer: boolean;
  id: byte;
begin
  packet:=pstr(msg.WParam)^;
  FromServer:=Boolean(msg.LParamLo);
  id:=msg.LParamHi;
  SetCurrentDir(ExtractFilePath(ParamStr(0)));
  EnterCriticalSection(_cs);
  for i:=0 to CheckListBox2.Count-1 do begin
    if CheckListBox2.Checked[i] then begin
      Scripts[i].fsScript.Variables['pck']:=packet;
      Scripts[i].fsScript.Variables['ConnectID']:=id;
      Scripts[i].fsScript.Variables['ConnectName']:=Thread[id].Name;
      Scripts[i].fsScript.Variables['FromServer']:=FromServer;
      Scripts[i].fsScript.Variables['FromClient']:=not FromServer;
      Scripts[i].fsScript.Execute;
      packet:=Scripts[i].fsScript.Variables['pck'];
    end;
  end;
  LeaveCriticalSection(_cs);
end;
...

procedure PacketProcesor(PacketData: array of Byte; SendSocket: TSocket; id, From: Byte);
...
        //>>>>>>>>!!!!!!!!!<<<<<<<<
        //пакет от сервера - клиенту
        a.a:=Word(true);
        a.b:=id;
        SendMessage(L2PacketHackMain.Handle, WM_ExecuteScripts, Integer(@temp),a.ab);
        //>>>>>>>>!!!!!!!!!<<<<<<<<
...
end;

[Emocean]

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

[+] в расшифровке пакетов смещение значений теперь в HEX для выравнивания;

А для чего так? Разве не удобнее было подставлять в Read и Write значения смещения в десятичной системе? Как теперь правильно надо писать? 0x02, 0x06, 0x0A?..

[AlexS]

Присваиваю переменной pck пустой пакет, но пакет на сервер отправляется без изменений, а хотелосьбы чтобы при обнулении пакета он на сервер не отправлялся.
Пример кода:

if FromClient and (pck=HStr('34 0B 00 00 00')) then // Социальное действи "Аплодисменты"
begin
// Требуемые действия
pck := '';
exit;
end;
В результате этого кода персонажь выполняет соц. действие "Аплодисменты".

[Emocean]

Да, только что тоже столкнулся с такой же неприятностью.

[QaK]

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

if FromClient and (pck=HStr('34 0B 00 00 00')) then // Социальное действи "Аплодисменты"
begin
// Требуемые действия
pck := '';
exit;
end;
В результате этого кода персонажь выполняет соц. действие "Аплодисменты".

так пакет отправляется на сервер, или перс выполняет соц действие?
по просмотру смотрите, а не в окно клента/бота.