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

[xkor]

alexteam, ээ, ты счас с кем разговаривал?

[alexteam]

с духами.
это.. просто сижу в неведении.. чтото ж ведь тоже пишу, а оно в итоге востребовано не будет, абыдно -)

Добавлено через 1 час 7 минут
Редакция 96 - 2009-04-08 18:25:37 GMT

[-] "если нажать иконку убить соединение, а потом в выборе сказать нет, то закладка все равно закрывается" © NLObP
[-] "рав-логи, если друг за другом загружать, накладываются друг на друга (дописывает в конец), так надо?" © NLObP – не, так не надо
[*] пакеты с длинной 2 будут убиватся.
[*] сменен компонент отображающий пакет/расшифровку пакета. Немного изменена внешний вид пункта «отправка» взят компонент побыстрее да и получше.
[-] баг в редакторе скриптов вызывающий ошибку «Cannot focus a disabled or invisible window»

[xkor]

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

а оно в итоге востребовано не будет, абыдно -)

будет, новый пакетхак не будет заточен под линейку так что не особо будет с текущим конкурировать)
план развития 3й версии - максимальная поддержка линейки
план развития 4й версии - максимальная универсальность

ЗЫ в общем не переживай)
ЗЗЫ я вообще ещё думаю стоит ли 4ю версию вообще считать 4ой версией пакетхака, может лучше её представить как нечто новое, не относящееся непосредственно к линейке...

[alexteam]

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

зы2. есть еще вариант на добавку туда, называемый в простонародье "дебаггер".. сейчас вожусь..

[xkor]

alexteam, ну в 4ке я просто скриптовый движок собираюсь юзать не FastScript а paxScript, там дохрена возможностей, но есть и пара недостатков из за которых для обработки скриптов разбирающих пакеты приходиться юзать RemObjects Pascal Script

[APXAHGEJI]

alexteam, не хочу обламывать тебя в твоих начинаниях,
но последние версии как то сильно затормаживают систему.
Я обычно меньше чем в 4 окна не играю. Если даже всего одно окно на l2ph, то запускаются окна очень долго и в процессе работы тормозят.
Сравнивал с L2PHX 3.4.1.83. Запускал 7 окон, 4 из которых были на пнх,
конечно подтормаживало, но не так сильно.

Вчера еще столкнулся с тем что пакетхак пытался перехватить uTorrent, раньше такого не было

[alexteam]

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

Оффтоп

куча сарказма.

а по поводу перехвата приложения не относящихся к линейке, NLObP о таком сообщал, но это касалось лсп модуля.
еще раз гляну общие для них куски кода (хотя, таких вроде не припомню) да и внедрение в л2 с помошью инжекта и обновление процессов - один из тех кусков которые брались в первозданном виде с 83го рева и не менялись.

[NLObP]

APXAHGEJI, не надо не конструктивной критики. Никто не любит, когда бъют по рукам.

PS: Предложения, пожелания, багрепорты - приветствуются.

[alexteam]

а общие куски там были.

ListSearch := StringReplace (ListSearch, ',', ';', [rfReplaceAll])+';';

и

if (AnsiPos(tmp.ValueFromIndex[k]+';', ListSearch) > 0)  then (процедура внедрения)

что будет если
tmp.ValueFromIndex[k] = ''
и
в конце строки ListSearch уже есть ';' ?
внедряемся в tmp.Names[k] ?.
по идее это и есть причина. внедрения куда попало.

заодно и обнаружил что в этом таймере интервал был постоянно равен 1 секунде (уже моя ошибка). не применялись настройки. отсюда постоянное сканирование процессов (весьма трудоемкий для цп процесс)

[PanAm]

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