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

[Murdoc]

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

поставь виртуалную машину и пусть хоть забаниться )

Пробовал. только клиент л2 не стартует в виртуалке. неполноценный директХ и директ3д в виртуалках.

еще в тему защиты и произвольных имен длл. вот пример лог файл мона при работе торгового бота:



18:50:54 xxx.exe:11620 OPEN C:\program files\alwil software\avast4\ SUCCESS Options: Open Directory Access: 00100001
18:50:54 xxx.exe:11620 DIRECTORY C:\program files\alwil software\avast4\ NO SUCH FILE FileBothDirectoryInformation: newxor.dll
18:50:54 xxx.exe:11620 CLOSE C:\program files\alwil software\avast4\ SUCCESS
18:50:54 xxx.exe:11620 OPEN C:\program files\alwil software\avast4\ SUCCESS Options: Open Directory Access: 00100

001
18:50:54 xxx.exe:11620 DIRECTORY C:\program files\alwil software\avast4\ NO SUCH FILE FileBothDirectoryInformation: newxor.dll
18:50:54 xxx.exe:11620 CLOSE C:\program files\alwil software\avast4\ SUCCESS
18:50:54 xxx.exe:11620 OPEN C:\windows\ SUCCESS Options: Open Directory Access: 00100001
18:50:54 xxx.exe:11620 DIRECTORY C:\windows\ NO SUCH FILE FileBothDirectoryInformation: newxor.dll
18:50:54 xxx.exe:11620 CLOSE C:\windows\ SUCCES

S
18:50:54 xxx.exe:11620 OPEN C:\progra~1\alwils~1\avast4\ SUCCESS Options: Open Directory Access: 00100001
18:50:54 xxx.exe:11620 DIRECTORY C:\progra~1\alwils~1\avast4\ NO SUCH FILE FileBothDirectoryInformation: newxor.dll
18:50:54 xxx.exe:11620 CLOSE C:\progra~1\alwils~1\avast4\ SUCCESS
18:50:54 xxx.exe:11620 OPEN C:\windows\system32\ SUCCESS Options: Open Directory Access: 00100001
18:50:54 xxx.exe:11620 DIRECTORY C:\windows\system32\

NO SUCH FILE FileBothDirectoryInformation: newxor.dll


Ищет этот бот newxor.dll в директориях запущенных программ. а к этому торговому боту примотана та же длл с защитой что и к клиенту этого сервера л2. так что клиент, я уверен ведет себя так же.

[RoZ]

Народ вношу предложение. Сейчас много развелось различных newxor.dll, и с этим надо что то делать. Если возможно сделайте вывод в лог об:
1) Удачной загрузке newxor.dll (иначе используется стандартный внутренний механизм)
2) В newxor.dll ввести функцию version() которая возвращала бы строку с версией newxor.dll а также дату редактирования и кем. И при загрузке тоже выводило бы в лог.

[wanick]

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

Народ вношу предложение. Сейчас много развелось различных newxor.dll, и с этим надо что то делать. Если возможно сделайте вывод в лог об:
1) Удачной загрузке newxor.dll (иначе используется стандартный внутренний механизм)
2) В newxor.dll ввести функцию version() которая возвращала бы строку с версией newxor.dll а также дату редактирования и кем. И при загрузке тоже выводило бы в лог.

в чем смысл выводить лог ?

[RoZ]

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

в чем смысл выводить лог ?

1) Чтобы знать что загрузка длл была успешной, и не используется внутренний механизм расшифровки пакетов.
2) Чтобы знать какая версия используется и кто её автор.

[wanick]

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

1) Чтобы знать что загрузка длл была успешной, и не используется внутренний механизм расшифровки пакетов.
2) Чтобы знать какая версия используется и кто её автор.

не совсем понял что ты имееш ввиду говоря именно "загрузка dll", inject в процесс или что?

[RoZ]

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

не совсем понял что ты имееш ввиду говоря именно "загрузка dll", inject в процесс или что?

Нет, попробую объяснить. Сейчас в программе используется две возможности дешифровки трафика:
1) Встроенная XorCoding.pas
2) Загрузка newxor.dll

Lib:=LoadLibrary(PChar(ExtractFilePath(Application.ExeName)+'newxor.dll'));
if Lib>0 then begin
  @CreateXorIn:=GetProcAddress(Lib,'CreateCoding');
  @CreateXorOut:=GetProcAddress(Lib,'CreateCodingOut');
  if @CreateXorOut=nil then CreateXorOut:=CreateXorIn;
end;

Если библиотеку не подгружает мы об этом даже не подозреваем. И используется старый метод. Хотелось бы чтобы он нас информировал об этом.
З.Ы. Или это я недостаточно правильно понимаю Delphi ?
З.Ы.Ы. Непонял при чем тут inject...я про newxor.dll ^_^

[NLObP]

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

1) Чтобы знать что загрузка длл была успешной, и не используется внутренний механизм расшифровки пакетов.

Если включен - "Обход смены XOR ключа" загружается newxor.dll
Иначе - внутренний механизм.

[Murdoc]

to NLObP:
Огромная просьба! Сделайте таки в следующей версии возможность произвольных имен файлов для newxor и inject. Так же кроме обхода защит это будет полезно для выбора своих newxor для разных серверов.

[NLObP]

Надо попробовать имя dll в options.ini вынести.

[RoZ]

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

Если включен - "Обход смены XOR ключа" загружается newxor.dll
Иначе - внутренний механизм.

Извиняюсь, нет Delphi под рукой.

isChangeXor:=ChkXORfix.Checked;

если имеется ввиду этот CheckBox, то он никак не влияет на загрузку newxor.dll (внутренний механизм или внешняя dll), или я ошибаюсь ?