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

[Argot]

FastMM4 рулит )) под фул дебагом

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

ЗЫ по правил немного ошибо попозже выложу ))

[DashKAaa]

Жесть, модернизированный пакет хак при 4 окнах комп в даун уводит... 100% загрузки процессора без перерыва...

[NLObP]

Выложил свежую версию. Тестируйте.

3.3.8 от 16.09.2008
[+] устранил утечки памяти, спс. Argot;

Добавлено через 6 минут

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

ЗЫ по правил немного ошибо попозже выложу ))

Выкладывай, я посмотрю. что можно ещё сделать.

PS: так и не понял, что тут можно сделать:

tmp:='На '+IntToStr(ntohs(LPortConst))+' зарегистрирован локальный сервер';
LogMsg:=PChar(tmp);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));

Без IntToStr(ntohs(LPortConst)) утечки нет.

[Faeton]

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

Выложил свежую версию. Тестируйте.

3.3.8 от 16.09.2008
[+] устранил утечки памяти, спс. Argot;

Добавлено через 6 минут

Выкладывай, я посмотрю. что можно ещё сделать.

PS: так и не понял, что тут можно сделать:

tmp:='На '+IntToStr(ntohs(LPortConst))+' зарегистрирован локальный сервер';
LogMsg:=PChar(tmp);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));

Без IntToStr(ntohs(LPortConst)) утечки нет.

попробуй так:
tmp := format('На %d зарегистрирован локальный сервер',[ntohs(LPortConst)]);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@tmp[1]));

[Argot]

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

Выложил свежую версию. Тестируйте.

3.3.8 от 16.09.2008
[+] устранил утечки памяти, спс. Argot;

Добавлено через 6 минут

Выкладывай, я посмотрю. что можно ещё сделать.

PS: так и не понял, что тут можно сделать:

tmp:='На '+IntToStr(ntohs(LPortConst))+' зарегистрирован локальный сервер';
LogMsg:=PChar(tmp);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));

Без IntToStr(ntohs(LPortConst)) утечки нет.

Вообще для красоты кода все сообщения надо вынести в шаблоны и забить в константы Вида.
const
StartServ= 'На %d зарегистрирован локальный сервер';


юзать
format(StartServ,[ntohs(LPortConst)]);

[PanAm]

так не долеко до мульти-языковости и скоро тут будут форумы для греков

[APXAHGEJI]

Все равно нагружает клиент по самые нехочу, играть не реал, такого в 3.3.6 нет.

[Argot]

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

Все равно нагружает клиент по самые нехочу, играть не реал, такого в 3.3.6 нет.

Нагружается не клиент, а процессор.

ЗЫ. по теме Кто будет удалять хендлы отработаных Фредов ?

ЗЫЫ Думаю есть смысл вместо SendMessage юзать Events

[APXAHGEJI]

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

[NLObP]

Мне кажется я inject.dll кривой выложил, замените из 3.3.6