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.5.1.100 в редакторе скриптов, после нажатии кнопки "Тест Init" не работает кнопка "Тест Free".

[alexteam]

NLObP,не могу воспроизвести, у меня работает

Добавлено через 22 минуты
зы. начал разбираться с паксскриптом.
2хкор. м.б. стоит переделать текущий редактор в виде класса (компоненты) со своими методами, содержащий в себе фрейм с текущим редактор кода, компилятором (пакс), дебаггером и прочими мелочами. сделалав чтото общее между будущей четверкой, тройкой, и, возможно ботом. ? будет востребовано ?

[xkor]

alexteam, paxScript будет не совместим с уже написанными скриптами...
у него есть некоторые особенности (не помню счас какие) которые не позволят полностью поддерживать уже написанные скрипты
хотя на память приходит только то что в нем вместо типа Char используется String что не сильно должно влиять на совместимость

но в любом случае в 4м пакетхаке скрипты будут работать по другому так что что то общее по любому не выйдет...

[alexteam]

да, ну... -)
в пс работа с экземпляром внешнего класса поддерживается ?
если да... будем писать жесткий, безпощадный и бессмысленный индусский код.

Добавлено через 17 минут
Да и подразумевал я больше визуальную часть...

[Grinch]

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

В версии 3.5.1.100 в редакторе скриптов, после нажатии кнопки "Тест Init" не работает кнопка "Тест Free".

имхо если сменил версию с 3.4 на 3.5 то нет смысла писать версию-100 думаю резон просто начать с 1 т.е. 3.5.1.1

[alexteam]

вообщето, если уж по хорошему то 3(версия, изменяеться при кардинальных изменениях) 5(минорверсия версии, изменяеться при добавлении какойто важной функции) 1(релиз субверсии, те билды которые выкладываються для скачаивания пользователям) 100(билд. при чем это не обязательно именно ревизия. этот счетчик идет отдельно от других. и информативен в основном для девелоперов.)
щас както непонятно... ибо почти каждая ревизия на свн сопровождаеться релизом и билдом, хотя это вообще 3 отдельных счетчика, при чем номер релиза вообще не меняется..
да и 3.5 должна была стать 4.0 ибо это действительно версия (практически все переписывалось) а не наращивались функции.
думаю со следующего релиза стоит перейти на эту "стандартную" систему. оставить его 3х но менять остальные циферки.

[NLObP]

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

не могу воспроизвести, у меня работает

Это от скрипта зависит. У меня парочка скриптов при завершении их работы выдают ошибку. Почему не пойму.
Вот на них Тест Free не работате.

лог ошибки

Exception class: EAccessViolation
Exception message: Access violation at address 0041F62A in module 'l2ph.exe'. Read of address 00000035.
Exception address: 0041F62A
------------------------------------------------------------------------------
Stack list, generated 14.04.2009 15:19:53
(0001E62A){l2ph.exe    } [0041F62A] TypInfo.GetPropInfo + $1A
(0016227D){l2ph.exe    } [0056327D] fs_iinterpreter.TfsEventHelper.SetValue (Line 1434, "fs_iinterpreter.pas" + 24) + $A
(000029B2){l2ph.exe    } [004039B2] System.@IsClass + $E
(0016317B){l2ph.exe    } [0056417B] fs_iinterpreter.TfsDesignator.DoCalc (Line 1905, "fs_iinterpreter.pas" + 51) + $8
(001633BE){l2ph.exe    } [005643BE] fs_iinterpreter.TfsDesignator.SetValue (Line 1957, "fs_iinterpreter.pas" + 2) + $A
(00164A8C){l2ph.exe    } [00565A8C] fs_iinterpreter.TfsAssignmentStmt.Execute (Line 2902, "fs_iinterpreter.pas" + 3) + $13
(0016499D){l2ph.exe    } [0056599D] fs_iinterpreter.TfsStatement.Execute (Line 2866, "fs_iinterpreter.pas" + 4) + $B
(001616E7){l2ph.exe    } [005626E7] fs_iinterpreter.TfsProcVariable.GetValue (Line 1113, "fs_iinterpreter.pas" + 27) + $B
(0001BDC9){l2ph.exe    } [0041CDC9] Variants.VarIsArray + $D
(00164522){l2ph.exe    } [00565522] fs_iinterpreter.TfsScript.CallFunction (Line 2505, "fs_iinterpreter.pas" + 9) + $7
(0027C573){l2ph.exe    } [0067D573] uScripts.TScript.UseThisScript (Line 747, "units\uScripts.pas" + 14) + $21
(0027C3C9){l2ph.exe    } [0067D3C9] uScripts.TfScript.ListViewWindowProcEx (Line 707, "units\uScripts.pas" + 27) + $B
(000A9678){l2ph.exe    } [004AA678] Controls.TControl.Perform + $24
(000ACA3F){l2ph.exe    } [004ADA3F] Controls.DoControlMsg + $23
(000AD0B9){l2ph.exe    } [004AE0B9] Controls.TWinControl.WMNotify + $D
(000A98A8){l2ph.exe    } [004AA8A8] Controls.TControl.WndProc + $188
(000AC907){l2ph.exe    } [004AD907] Controls.TWinControl.WndProc + $157
(00070C2E){l2ph.exe    } [00471C2E] ComCtrls.TCustomListView.WndProc + $72
(0027C3DF){l2ph.exe    } [0067D3DF] uScripts.TfScript.ListViewWindowProcEx (Line 715, "units\uScripts.pas" + 35) + $8
(000A9678){l2ph.exe    } [004AA678] Controls.TControl.Perform + $24
(000ACA3F){l2ph.exe    } [004ADA3F] Controls.DoControlMsg + $23
(000AD0B9){l2ph.exe    } [004AE0B9] Controls.TWinControl.WMNotify + $D
(000A98A8){l2ph.exe    } [004AA8A8] Controls.TControl.WndProc + $188
(000AC907){l2ph.exe    } [004AD907] Controls.TWinControl.WndProc + $157
(00023798){l2ph.exe    } [00424798] Classes.TThreadList.UnlockList + $4
(000377AC){l2ph.exe    } [004387AC] Graphics.FreeMemoryContexts + $98
(000AC584){l2ph.exe    } [004AD584] Controls.TWinControl.MainWndProc + $2C
(000303A8){l2ph.exe    } [004313A8] Classes.StdWndProc + $14
(000AC9EB){l2ph.exe    } [004AD9EB] Controls.TWinControl.DefaultHandler + $D7
(000A98A8){l2ph.exe    } [004AA8A8] Controls.TControl.WndProc + $188
(000303A8){l2ph.exe    } [004313A8] Classes.StdWndProc + $14
(000AC9EB){l2ph.exe    } [004AD9EB] Controls.TWinControl.DefaultHandler + $D7
(000A9B39){l2ph.exe    } [004AAB39] Controls.TControl.WMLButtonDown + $15
(000715A1){l2ph.exe    } [004725A1] ComCtrls.TCustomListView.WMLButtonDown + $35
(000A98A8){l2ph.exe    } [004AA8A8] Controls.TControl.WndProc + $188
(000AC76D){l2ph.exe    } [004AD76D] Controls.TWinControl.IsControlMouseMsg + $51
(000AC907){l2ph.exe    } [004AD907] Controls.TWinControl.WndProc + $157
(00070C2E){l2ph.exe    } [00471C2E] ComCtrls.TCustomListView.WndProc + $72
(0027C3DF){l2ph.exe    } [0067D3DF] uScripts.TfScript.ListViewWindowProcEx (Line 715, "units\uScripts.pas" + 35) + $8
(000AC584){l2ph.exe    } [004AD584] Controls.TWinControl.MainWndProc + $2C
(000303A8){l2ph.exe    } [004313A8] Classes.StdWndProc + $14
(0003B922){l2ph.exe    } [0043C922] Contnrs.TComponentList.GetItems + $A
(00098E3F){l2ph.exe    } [00499E3F] Forms.TApplication.ProcessMessage + $83
(00098E76){l2ph.exe    } [00499E76] Forms.TApplication.HandleMessage + $A
(00099096){l2ph.exe    } [0049A096] Forms.TApplication.Run + $96
(002858F9){l2ph.exe    } [006868F9] l2ph.l2ph (Line 83, "" + 24) + $2
------------------------------------------------------------------------------
System   : Windows XP Professional, Version: 5.1, Build: A28, "Service Pack 3"
Processor: Intel, Intel(R) Core(TM)2 Quad CPU    Q6600  @ 2.40GHz, 2400 MHz MMX 64 bits DEP
Memory: 2047; free 2047
Display  : 1280x1024 pixels, 32 bpp
------------------------------------------------------------------------------
List of loaded modules:
[00400000] C:\DEVELOPMENT\lineage2\l2phx.3.5.1.100\l2ph.exe
           3.5.1.100 - 3.5.1.100
[01520000] C:\DEVELOPMENT\lineage2\l2phx35\LSPprovider.dll
<00400000> (no version info)
[08000000] C:\Program Files\Punto Switcher\pshook.dll
           3.0.0.67 - 3, 0, 0, 67
           Punto Switcher hook module
[5B260000] C:\WINDOWS\system32\uxtheme.dll
           6.0.2900.5512 - 6.00.2900.5512 (xpsp.080413-2105)
           Библиотека тем UxTheme (Microsoft)
[60AF0000] C:\WINDOWS\system32\mslbui.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
           Надстройка LangageBar
[698B0000] C:\WINDOWS\system32\hnetcfg.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
           Диспетчер конфигурации домашней сети
[71A30000] C:\WINDOWS\system32\mswsock.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
           Расширение поставщика службы API Microsoft Windows Sockets 2.0
[71A70000] C:\WINDOWS\System32\wshtcpip.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
           Windows Sockets Helper DLL
[71A80000] C:\WINDOWS\system32\WS2HELP.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
           Модуль поддержки Windows Socket 2.0 для Windows NT
[71A90000] C:\WINDOWS\system32\WS2_32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
           Windows Socket 2.0 32-Bit DLL
[71AB0000] C:\WINDOWS\system32\wsock32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
           32-разрядная библиотека Windows Socket
[72FC0000] C:\WINDOWS\system32\winspool.drv
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-0852)
           Драйвер диспетчера очереди Windows
[746E0000] C:\WINDOWS\system32\MSCTF.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
           Библиотека (DLL) MSCTF-сервера
[74DF0000] C:\WINDOWS\system32\RICHED20.DLL
           5.30.23.1230 - 5.30.23.1230
           Rich Text Edit Control, v3.0
[76360000] C:\WINDOWS\system32\imm32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
           Windows XP IMM32 API Client DLL
[76380000] C:\WINDOWS\system32\comdlg32.dll
           6.0.2900.5512 - 6.00.2900.5512 (xpsp.080413-2105)
           Библиотека общих диалоговых окон
[76BE0000] C:\WINDOWS\system32\PSAPI.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
           Process Status Helper
[77110000] C:\WINDOWS\system32\oleaut32.dll
           5.1.2600.5512 - 5.1.2600.5512
[773C0000] C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.5512_x-ww_35d4ce83\comctl32.dll
           6.0.2900.5512 - 6.0 (xpsp.080413-2105)
           User Experience Controls Library
[774D0000] C:\WINDOWS\system32\ole32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2108)
           Microsoft OLE для  Windows
[77BF0000] C:\WINDOWS\system32\version.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
           Version Checking and File Installation Libraries
[77C00000] C:\WINDOWS\system32\msvcrt.dll
           7.0.2600.5512 - 7.0.2600.5512 (xpsp.080413-2111)
           Windows NT CRT DLL
[77DC0000] C:\WINDOWS\system32\advapi32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2113)
           Расширенная библиотека API Windows 32
[77E70000] C:\WINDOWS\system32\RPCRT4.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2108)
           Remote Procedure Call Runtime
[77F10000] C:\WINDOWS\system32\GDI32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
           GDI Client DLL
[77F60000] C:\WINDOWS\system32\SHLWAPI.dll
           6.0.2900.5512 - 6.00.2900.5512 (xpsp.080413-2105)
           Библиотека небольших программ оболочки
[77FE0000] C:\WINDOWS\system32\Secur32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2113)
           Security Support Provider Interface
[7C800000] C:\WINDOWS\system32\kernel32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2111)
           Библиотека клиента Windows NT BASE API
[7C900000] C:\WINDOWS\system32\ntdll.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2111)
           Системная библиотека NT
[7C9C0000] C:\WINDOWS\system32\shell32.dll
           6.0.2900.5512 - 6.00.2900.5512 (xpsp.080413-2105)
           Общая библиотека оболочки Windows
[7DFC0000] C:\WINDOWS\system32\oledlg.dll
           5.1.2600.5512 - 1.0 (xpsp.080413-2108)
           Поддержка интерфейса пользователя OLE 2.0 для Microsoft Windows®
[7E360000] C:\WINDOWS\system32\user32.dll
           5.1.2600.5512 - 5.1.2600.5512 (xpsp.080413-2105)
           Библиотека клиента USER API Windows XP
------------------------------------------------------------------------------
Active Controls hierarchy:
TListView "ScriptsListVisual"
TPanel "pnlScriptList"
TfScript "fScript"
------------------------------------------------------------------------------

[alexteam]

l2phx.3.5.2.102 (revision 105) 2009-04-14 14:16:43 GMT

[+] по просьбе трудящихся. в примеры плагинов добавлен plugin_demo4 - хранилище глобальных объектов для всех скриптов.
[+] На SVN Добавлены сурсы хелпа
[*] при ошибках RunTime в скрипте (инит/фри/екзекут) ошибка будет выводиться в статусбар а место подсвечиваться.
[*] Демо плагины будут включаться в релизы
[-] При RunTime ошибке в free методе редактор скрипта уходил в дезлок.
[-] Исправлен баг при отправке пакета в закладке "отправка" при использовании метода перехвата с помощью inject либо socks5

[Grinch]

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

[alexteam]

Я вчера добавил уведомление при старте и отсутствующем инишнике. думаю этого будет достаточно.


l2phx.3.5.3.103 (revision 108) Date: 18:54:28, 15 апреля 2009 г.

[+] Сообщение при отсутствующем options.ini о том что л2пх требует настройки
[-] исправлен баг при котором нельзя добавить пакет в фильтр при активном методе перехвата через инжект либо соцкс5
[-] Поправил отрисовку пакетов.

зарелизил т.к. в отрисовке важная поправка.

кстати. что с вебсвном ? он лег и уже начал пахнуть -)