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 искать в файловом архиве.

[alexteam]

грр. пакетик от т2.

4E 78 AF 00 10 00 00 00 00 01 00 00 00 78 AF 00 10 62 00 6F 00 74 00 31 00 00 00 95 13 00 00 95 13 00 00 89 18 00 00 89 18 00 00 3B 0A 00 00 3B 0A 00 00 50 00 00 00 76 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 B2 CB 00 10 8F 7B 0F 00 4D 00 65 00 63 00 68 00 61 00 6E 00 69 00 63 00 20 00 47 00 6F 00 6C 00 65 00 6D 00 00 00 DE 11 00 00 DE 11 00 00 60 07 00 00 60 07 00 00 4A 00 00 00

код с сурсов джавы его формирующий

38          protected final void writeImpl()
39          {
40                  writeC(0x4e);
41                  writeD(_party.getPartyLeaderOID());
42                  writeD(_party.getLootDistribution());
43                  writeD(_party.getMemberCount() - 1);
44                  for (L2PcInstance member : _party.getPartyMembers())
45                  {
46                          if (member != null && member != _exclude)
47                          {
48                                  writeD(member.getObjectId());
49                                  writeS(member.getName());
50                                  writeD((int) member.getCurrentCp()); // c4
51                                  writeD(member.getMaxCp()); // c4
52                                  writeD((int) member.getCurrentHp());
53                                  writeD(member.getMaxHp());
54                                  writeD((int) member.getCurrentMp());
55                                  writeD(member.getMaxMp());
56                                  writeD(member.getLevel());
57                                  writeD(member.getClassId().getId());
58                                  writeD(0x00);// writeD(0x01); ??
59                                  writeD(member.getRace().ordinal());
60                                  writeD(0x00); // T2.3
61                                  writeD(0x00); // T2.3
62                                  if (member.getPet() != null)
63                                  {
64                                          writeD(member.getPet().getObjectId());
65                                          writeD(member.getPet().getNpcId() + 1000000);
66                                          writeS(member.getPet().getName());
67                                          writeD((int) member.getPet().getCurrentHp());
68                                          writeD(member.getPet().getMaxHp());
69                                          writeD((int) member.getPet().getCurrentMp());
70                                          writeD(member.getPet().getMaxMp());
71                                          writeD(member.getPet().getLevel());
72                                  }
73                                  else
74                                          writeD(0x00);
75                          }
76                  }
77          }

динамически меняющихся loop'ов у нас нет.. и вообще условий в парсере нет..
надо переписывать -(

[xkor]

3.5.32.163 по ревизиям 244-246:

[+] фильтр пакетов по содержимому с помощью регулярных выражений

При фильтрации не учитывается регистр и пробелы, так что следующие два правила эквивалентны:
^16ab.*00$
^16 AB.*00$
оба отфильтруют пакеты начинающиеся на 16 AB и заканчивающиеся на 00

[TAMBIK]

[xkor]

TAMBIK, ой, забыл длл воткнуть в архив, перезалил)

[alexteam]

и, на свн... еще.. в папку билд...
как и PerlRegEx.pas... чтоле...

[pascalpwnz]

Я не понял прикола.
Перешел с 3.5.30.159 на 3.5.32.163.
Соединяюсь - нормально. Лог пакетов - есть. Но ни один скрипт не работает.
Вместо этого в логе масса флуда типа:

'ИмяСкрипта': Операция успешно завершена; on line 0 (часто 0, но бывает и другая линия, которая в скрипте может быть вообще пустой)

Это приходит при каждом пакете, от каждого включенного скрипта.

wtf?

[alexteam]

если с 162 таких проблем не будет ... то я даже не знаю ))

[TAMBIK]

alexteam,
что то не то с 163

[xkor]

TAMBIK, поже alexteam любит убивать совместимость, то совместимость с предыдущими версиями пакетхака (но эт хрен с ним), ну а теперь оказывается совместимость с дельфи 2007 у пакетхака отсутсвует походу, так что билдить рабочие версии может тока alexteam, а я теперь тока сорци заливать на свн могу (надеюсь хоть это не измениться)

короче ждем пока он пересоберёт последнюю версию в своей 7ой дельфе...

[alexteam]

релиз 3.5.33.164 пересобран, с небольшими правками. багнутую 163ю убил с фтп.
правленую версию фасткомпилера дал хкору, думаю причина в ней была -)

зы.
Plugin_demo2 чуть чуть переделан. вменсто ненужных никому дублей для showmessage и pi теперь добавляет ф-ю:
PlaySound(FileName:string;Synch:boolean=false):boo lean что позволяет играть wav файлы с скрипта.
(гдето я на форуме видел вопрос по этому поводу, да и qak очень хотел рабочий сырец плугина.)
Скомпиленный плугин выложен на думп.ру