Исходники здесь
Вот такие скомпилированные версии есть у меня.
Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru
Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?
Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)
/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.
Последний раз редактировалось NLObP, 17.10.2016 в 00:02.
смотря что ты пишещь в пцк. размер + данные либо сами данные. длина 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);
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 29.04.2009 в 15:12.
Причина: Добавлено сообщение
Sherman, ошибка не критичная да и в принципе не ошибка ибо пакетов длинной 20к я ещё не видел), максимум видел пакет длинной 9к (это был диалог продажи вещей за колы)
Цитата:
Сообщение от alexteam
ну и в конце естественно
size := packet.size; //не должно меняться, но мало ли. вдруг ты пакет убьешь, или заменишь его на свой другой длинны.
декодировщик пакетов линейки должен выполнять функции исключительно декодирования, никаких изменений и блокировок пакетов он делать не должен, для этого надо юзать уже другие вещи..
__________________
Я здесь практически не появляюсь!, Skype - ikskor
alexteam, ну тогда уж проще const заменить на var)
тут тока вопрос насколько сильно дельфи защищает константы, возможно он их не только на этапе компиляции защищает но и в рантайме, хотя в данном случае это крайне маловероятно...
__________________
Я здесь практически не появляюсь!, Skype - ikskor
inject и его подгрузка это с 83 ревизии. думаю справедливо поделить копирайты по поводу инжекта между между кодерХ и мс-ремм.
а лсп и прочая фигня непонятно кем ваще писалась...
Сейчас с Inject разбираюсь. Замучено конечно серьезно. Довольно таки тяжело мне разобраться в последовательности выполняемых программой дейтсвий при перехвате траффика.
Yegor, если в краце то Inject при запуске просто ставит хук на API функцию connect перенося её начало (дополнив джампом на продолжение) в новое место и ставя вместо него джамп на код из Inject который в свою очередь отправляет по средством сообщения пакетхаку уведомление о том куда собирается коннектиться и если получает ответ что пакетхак желает это соединение перехватить то меняет адресс сервера на локальный адрес на котором ждёт коннекта пакетхак, ну и далее соединение уже получается не с сервером а с пакетхаком, а уже он соединяется с сервером...
Добавлено через 2 минуты
ЗЫ а лсп всё таки по моему этим неизвестным автором написано не хорошо, ну неправильно через реестр с ним работать когда для этого есть намного более удобные API функции...
__________________
Я здесь практически не появляюсь!, Skype - ikskor
Последний раз редактировалось xkor, 02.05.2009 в 02:17.
Причина: Добавлено сообщение