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]

смотря что ты пишещь в пцк. размер + данные либо сами данные. длина data = 1..$fffd.


в идеале:

procedure TXorCoding.DecryptGP(var Data; const Size: Word);
var
packet : tpacket;
begin
packet.size := size;
move(data, packet.data, size);

а дальше - работа с рекордом.
(писал на коленке)

Добавлено через 3 минуты
ну и в конце естественно

size := packet.size; //не должно меняться, но мало ли. вдруг ты пакет убьешь, или заменишь его на свой другой длинны.
move(packet.data, data, packet.size);

[xkor]

Sherman, ошибка не критичная да и в принципе не ошибка ибо пакетов длинной 20к я ещё не видел), максимум видел пакет длинной 9к (это был диалог продажи вещей за колы)

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

ну и в конце естественно

size := packet.size; //не должно меняться, но мало ли. вдруг ты пакет убьешь, или заменишь его на свой другой длинны.

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

[alexteam]

но он может это делать.

[xkor]

alexteam, размер менять не может ибо const)

[alexteam]

э... туплю.. позор на мою голову


а вот так
copymemory(@size, @packet.size, 4) ?

[xkor]

alexteam, ну тогда уж проще const заменить на var)
тут тока вопрос насколько сильно дельфи защищает константы, возможно он их не только на этапе компиляции защищает но и в рантайме, хотя в данном случае это крайне маловероятно...

[Yegor]

А скажите вы сами все модули основные разработали? Inject, LSP это все ваше гениальное творение?

[alexteam]

inject и его подгрузка это с 83 ревизии. думаю справедливо поделить копирайты по поводу инжекта между между кодерХ и мс-ремм.
а лсп и прочая фигня непонятно кем ваще писалась...

[Yegor]

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

[xkor]

Yegor, если в краце то Inject при запуске просто ставит хук на API функцию connect перенося её начало (дополнив джампом на продолжение) в новое место и ставя вместо него джамп на код из Inject который в свою очередь отправляет по средством сообщения пакетхаку уведомление о том куда собирается коннектиться и если получает ответ что пакетхак желает это соединение перехватить то меняет адресс сервера на локальный адрес на котором ждёт коннекта пакетхак, ну и далее соединение уже получается не с сервером а с пакетхаком, а уже он соединяется с сервером...

Добавлено через 2 минуты
ЗЫ а лсп всё таки по моему этим неизвестным автором написано не хорошо, ну неправильно через реестр с ним работать когда для этого есть намного более удобные API функции...