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

[wanick]

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

to NLObP:
Ты не мог бы выложить исходники той версии что с произвольными именами длл?

он лежит на svn, соседняя тема

[xkor]

Murdoc, пакетхак перехватывает соединение не как проксификаторы так что на 56574 не прокси и ничего не выйдет...

[Murdoc]

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

Murdoc, пакетхак перехватывает соединение не как проксификаторы так что на 56574 не прокси и ничего не выйдет...

я уже понял. Спасибо

[RoZ]

Не силён в потоках, но наткнулся в коде на такое:

3: begin                       //от ГС
        InitX:=Thread[id].InitXOR;
        EnterCriticalSection(_cs);
        Inc(Thread[id].pckCount);
        LeaveCriticalSection(_cs);

и

4: begin                    //к ГС
        EnterCriticalSection(_cs);
        InitX:=Thread[id].InitXOR;
        LeaveCriticalSection(_cs);
        Inc(Thread[id].pckCount);

какой из них правильный то ?
З.Ы. Я так понимаю что EnterCriticalSection устанавливает монопольный режим при чтении или записи потока ? Возможно должно быть

EnterCriticalSection(_cs);
InitX:=Thread[id].InitXOR;
Inc(Thread[id].pckCount);
LeaveCriticalSection(_cs);

?

Added:

procedure TL2PacketHackMain.iInjectClick(Sender: TObject);
begin
    if iInject.Checked then begin
      isInject.Enabled := false;
      LoadLibraryInject (isInject.Text)
    end else begin
      if Lib > 0 then begin
        FreeMem(dllScr);
        sendMsg('Библиотека '+ isInject.Text +' успешно выгружена');
      end;
      isInject.Enabled := true;
    end;
end;

Lib тут разве должен проверяться ?

[wanick]

Lib тут разве должен проверяться ?

очепятка

[Neptune]

Прикрутил к последней версии работу в качесте прокси сервера SOCKS5. Т.о. перехват коннекта осуществляется средствами проксификатора (например Proxifier'а, лишь бы правила были правильно настроены). Прилагаю исходники, надеюсь что кто-нибудь соберет, т.к. у меня криво поставлены Jcl И Jvcl - постоянно течет память

П.С. название библиотек и самого л2пх изменены - защита от особо хитрых защит.

[Breadfan]

Иногда происходит самопроизвольное закрытие L2PacketHack, просто закрывается (безо всяких сообщений) и в клиентах рвется соединение(

[Argot]

Советаю избавится от этой строчки.

  //ждем подключения
  while not Thread[id].Connect do Sleep(1);
  //подключились

так как тут есть 2 проблемы.
1. Обращение к общим данным.
2. По сути бесконечный цикл. Если клиент не подключится.


тут тоже некрасивое решение уничтожать хендл потока находсь в потоке. Раз умеете пользоватся сообщениями так решите проблему через них ))

  EnterCriticalSection(_cs);
  CloseHandle(Thread[id].CH);
  LeaveCriticalSection(_cs);

[ratvier]

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

тут тоже некрасивое решение уничтожать хендл потока находсь в потоке.

Ничего некрасивого в этом не вижу, его можно закрывать где угодно О_о

[Argot]

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

Ничего некрасивого в этом не вижу, его можно закрывать где угодно О_о

Кому как это дурной тон в програмирование