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

[TAMBIK]

alexteam,

PlaySound(FileName:string;Synch:boolean=false):boo lean что позволяет
 играть wav файлы с скрипта.

спасибо
не обижай xkor

а я теперь тока сорци заливать на свн могу (надеюсь хоть это не измениться)

может новую версию так 3.6.1

[pascalpwnz]

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

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

В новой версии заявленной проблемы вроде нету.

PS Переименуй архив, 164 а не 165 же.

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

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

Я как раз спрашивал, спасибо.

[QaK]

Алекстим, попробовал в плугин воткнуть обработку пакета - пакетхак слетает, видимо при рпиходе любого(первого), Read of adress 000000000.

[alexteam]

да... это.. обработка пакетов там не работает..кажеццо.. %)

[QaK]

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

да... это.. обработка пакетов там не работает..кажеццо.. %)

какашка ты, как ломать - так все чатлане =)

[alexteam]

ну, это... добавь в скриптовый движек функцию с плагина по типу procedure OnPacket(var pck:string;FromServer:boolean)
слепи 1 скрипт состоящий из одной строчки и гоняй через эту связку
//QaK:ага-ага, гланды через жопу =)

[Yegor]

В модуле uglobalfuncs.pas есть процедура
procedure GetProcessList(var sl: TStrings);

в ней есть строки:
GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName));
tmp:=LowerCase(ExtractFileName(string(ModName)));

Так вот, функция GetModuleFileNameEx не для всех процессов возвращает имя. И если имени нет, то в буфере ModName остается прошлая строка или вообще мусор. Поэтому предлагаю изменить так:

var cnt: integer

....

cnt:= GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName));
ModName[cnt]:= #0;
tmp:=LowerCase(ExtractFileName(string(ModName)));

Если так не сделать то пакет хак пытается инжектить не те процессы.

Например первый процесс найден нужный l2.bin. Потом идет какой то процесс без имени. А в списке опять таки получаем имя l2.bin.

Добавлено через 9 часов 8 минут
alexteam, каким образом ты реализовал возможность не обрабатывать трафик в каком то из направлений?
Ты просто читаешь с сокета сколько пришло и пересылаешь по назначению?

[QaK]

Yegor, по-моему

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

реализовал возможность не обрабатывать трафик в каком то из направлений?

хкор ... или я ошибаюсь?

[alexteam]

ну, 50/50, флаги isNoProcessToServer, isNoProcessToClient и обработка флагов в сокетном енджине уже была.
http://l2phx.pp.ru/wsvn/blame.php?re...pas&rev=0&sc=1
добавилась аналогичная проверка в "лсп, перехват данных"
http://l2phx.pp.ru/wsvn/blame.php?re...pas&rev=0&sc=1
и выведены в настройки
http://l2phx.pp.ru/wsvn/blame.php?re...s&rev=232&sc=1
сами смотрите кто %)
//QaK:Виноват, исправлюсь =)

[xkor]

QaK, я было хотел это сделать, но как начал копать оказалось оно уже есть тока в настройки не выведено)