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]

nezabudkin,
проверил дллку, на голом клиенте прекрасно хватает соединение.
в общем ради интереса - прошу стянуть debugview, запустить, запустит тот клиент в котором возникают проблеммы с инжектом.
и после логина поискать характерное "бла бла бла --<<by Fyyre>>--" в логе debugview'а

[nezabudkin]

alexteam, сегодня затестил еще на одном клиенте, на этот раз интерлюд, та же фигня. 83 релиз работает, а новые релизы перехватывать не хотят! Запустил я debugview, но по моему, ничего интересного она мне не показывает. Лог прикрепил.

[nezabudkin]

Завтра попробую на другом компе.

[nezabudkin]

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

лсп ведь хватает все подяд

LSP так LSP, бдем юзать LSP

[xkor]

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

лсп ведь хватает все подяд

ну не всё подряд а только WinSock уровень, хотя параноиков отправляющих пакеты с помощью своего драйвера я ещё не видел)

[alexteam]

свят свят свят. сплюнь %))))

[pascalpwnz]

alexteam, однако действительно появилась ошибка.
Версия 128 нормально перехватывает клиент (en хб, грация) или бот(вмх под шок).
Версия 132, 133(4),139 - патчит, но не перехватывает соединение.

[alexteam]

вернул назад структуру инжекта.
по ходу получить доступ к мапфайлу находясь внутри клиента не всегда у инжекта получается.
билд будет только тогда когда выверю полностью все изменения которые сделал за последние 2 дня а их там уже 9 коммитов...

патчит, но не перехватывает соединение.

на самом деле даже 83 будет писать пропатчен, даже если он нифига технически не был пропатчен.. это сообщение следует воспринимать как "клиент был найден"..

[alexteam]

l2phx.3.5.23.143[test].rar
выложен для теста. полностью не успел проверить. так что вливайтесь -)

Включает следующие изменения:

[+] Галочка Kamael-helbound-gracia в настройках будет устанавливаться автоматически после выбора протокола. при этом ее состояние можно будет сменить после выбора протокола.
[*] поубивал к чертям практически все стайонтопы.
[*] в плагинах в онконнкт/дисконнект/онпакет тип параметра cnt был изменен на integer; был cardinal. (при ошибке сокет может принимать отрицательное значение (!))

[+]В Скриптовый движок добавлены:
var UseForConnectName: string;
var UseForConnectID: Integer;
Оффтоп

их значение действует на работу следующих функций:
SendToClient,
SendToServer,
NoCloseFrameAfterDisconnect,
CloseFrameAfterDisconnect,
NoCloseClientAfterServerDisconnect,
CloseClientAfterServerDisconnect,
NoCloseServerAfterClientDisconnect,
CloseServerAfterClientDisconnect,
Disconnect,
SetName

Так же их действие распространяется на поступление pck в тело скриптов.
пояснение: При установке к примеру UseForConnectName := 'MyCharacter'; тело функции между "begin" и "end." будет вызываться только при совпадении UseForConnectName и имени соединения.
вывод: проверки в скрипте по типу "if ConnectName = 'MyCharacter' then " становятся ненужны в большинстве случаев. скриптовый движок будет "запускаться" реже и только там где это требуется (экономим цп ^_^)

Порядок обработки этих переменных
1. UseForConnectName
2. UseForConnectID (если не задано UseForConnectName)
3. если ни UseForConnectName первое ни UseForConnectID не задано - SendToClient, SendToServer, и т.д. действуют по старому.


пример:
UseForConnectName := 'testchar'
будут отсылать buf с помощью SendToClient по такой схеме
Сначала провериться назначено ли UseForConnectName если эта переменная задана то buf будет отослан соединению с этим именем.
если UseForConnectName не назначено то проверяется назначен ли UseForConnectID если да то отсылает buf соединению с этим айди
если не UseForConnectName не UseForConnectID не назначены то SentToClient отрабатывает как и раньше.

[alexteam]

(..ограничение по длине сообщения...)
Продолжение:

[*] изменена функция OnCallMethod в плагинах. ее объявление:
TOnCallMethod = function(const ConnectId, ScriptId: integer; const MethodName: String; var Params,
FuncResult: Variant): Boolean; stdcall;

в функцию были добавлены ConnectId, ScriptId
где ConnectId это айди соединения получаемого с учетом UseForConnectName и UseForConnectID
а ScriptId это уникальный идентификатор "скрипта" вызвавшего OnCallMethod

Оффтоп

таким образом OnCallMethod может идентифицировать с большой вероятностью (при использовании UseForConnectName и UseForConnectID в самом скрипте)
идентификатор соединения связанного с "экземпляром скриптового движка" вызвавшим метод либо использовать для этих целей ScriptId.
для чего это нужно: если плагин расширяющий функции скриптового движка используется в нескольких скриптах то достаточно часто (все зависит от "направления" функций реализуемых) требуется идентифицировать соединение для которого будет выполняться "расширение" либо "экземпляр скрипта"

[+] Следующие функции добавлены в структуру плагинов
Function SerScriptVariable(scriptid:integer; varname:string; varvalue:variant):boolean;
Function GetScriptVariable(scriptid:integer; varname:string):variant;
function IsScriptIdValid(scriptid:integer):boolean;
позволяют менять значение глобальных переменных скриптового движка в OnCallMethod плагинов.

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

[+] Соответствующая надпись для перенаправления соединения при использовании лсп в режиме "перехват соединения".
[*] Вернул инжект к старой схеме определения хендла главного окна.

[+] В скриптовый движок добавлены следующие процедуры:
procedure WriteMask(Mask:string; parameters : array of variant)
procedure ReadMask(Mask:string; var index:integer; var parameters : array of variant)

[+] в хелп добавлено их (и не только их) описание в разделе "Перечень поддерживаемых функций/процедур, переменные." (хелп так же был обновлен под текущую версию)
[*] Модифицирован обработчик рантайм ошибок в testInit и testFree (Вместо системной "операция завершена успешно" будет отображаться класс и сообщение конкретной ошибки)

обновленные сурсы фастскрипта перезалиты на фтп