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

[Elecktron]

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

Использую Rad XE5.

не используй.

в первом посте ясно сказано - "Delphi 2007 и Delphi 7"

[VitaminPSG]

# Откатился до Delphi 7.
Указал пути к units. Не могу понять как работает линковщик. При сборке uData, ругается на Editor (не найдено определение класса). Хотя он описан в uScriptEditor. В настройках указал путь на units l2ph. Но он по прежнему отказывается компилить.

[NLObP]

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

# Откатился до Delphi 7.
Указал пути к units. Не могу понять как работает линковщик. При сборке uData, ругается на Editor (не найдено определение класса). Хотя он описан в uScriptEditor. В настройках указал путь на units l2ph. Но он по прежнему отказывается компилить.

Вот я мануал писал:
Мануал по установке компонентов для компиляции пакетхака

[SeregaZ]

о! я предлагаю сделать образ для виртуальной машины, со всем установленным чем надо ))

[Elecktron]

хорошая мысль )))

[VitaminPSG]

Вопрос как правильно передать параметры в функцию вызванную из dll написанной на с++.

1. В uPluginData.pas создал структуры методов

TSendPacketStr = procedure (pck: string; const tid: integer; const ToServer: Boolean);stdcall;
  TGetConnectionName = function(id : integer):string;stdcall;
  TGetConnectioIdByName = function(name : string):integer;stdcall;
  PSendPacketStr = ^TSendPacketStr;
  PGetConnectionName = ^TGetConnectionName;
  PGetConnectioIdByName = ^TGetConnectioIdByName;


  //  PSendPacketStr = TSendPacketStr;
  TCFunctionStruct = record
  pSendPacketStr: PSendPacketStr;
  pGetConnectionName: PGetConnectionName;
  pGetConnectioIdByName: PGetConnectioIdByName;
  end;
  
  PCFunctionStruct = ^TCFunctionStruct;

2. Описал функцию DLL в которую буду передавать указатель на структуру функций.

TSetCFStruct = function(const struct: PCFunctionStruct): Boolean; stdcall;

3. Создал переменную в которую буду записывать адрес на функцию DLL

SetCFStruct: TSetCFStruct;

4. При загрузке DLL. Нахожу адрес и записываю в переменную. А также передаю указатель на функцию.

 @SetCFStruct:=GetProcAddress(hLib, 'SetFunctionStruct');
  if(Assigned(SetCFStruct)) then
  begin
      ScriptStruct.pSendPacketStr:=@TPluginStructClass.SendPacketStr;
      ScriptStruct.pGetConnectionName:=@TPluginStructClass.getConnectionName;
      ScriptStruct.pGetConnectioIdByName:=@TPluginStructClass.getConnectioidByName;
      SetCFStruct(@ScriptStruct);
  end;

5. Описываю структуру функций из Delphi и функцию в которой буду передавать указатель.

// Структура скриптов
struct ScriptStruct
{
	void(*sendPacketStr)(unsigned char* pck, const int tid, bool toServer);
	char*(*getConnectionName)(int);
	int(*getConnectioIdByName)(char* name);

};

/// Функция передачи указателя на ScriptStruct
DLL_API bool SetFunctionStruct(ScriptStruct * scriptStruct);

6. Далее в сpp пишу описание функци

// Вызывается при включении плагина
DLL_API bool SetFunctionStruct(ScriptStruct * scriptStruct)
{
	OutputDebugStringA("SetFunctionStruct\n");
	_scriptStruct->getConnectionName(123); // <- Здесь я пытаюсь вызвать функцию из Delphi
	return true;
}

7. Запускаю проект L2Ph через дебагер, подключаю плагин.
Мы приходим в точку останова функции

function TPluginStructClass.getConnectionName(id: integer): string; stdcall;
begin
  result := dmData.ConnectNameById(id); /// <- вызывается 
end;

После чего просиходит креш

[Torbins]

string - это чисто делфийский тип, аналог которому есть только в C++ Builder, кажется AnsiString называется. Причем желательно использовать шестую версию, если сам пакетхак скомпилирован в семерке. Плюс возможно еще с менеджером памяти нужно будет пошаманить, ShareMem подключить.

[Roman68]

NLObP, Добрый день! не удается найти последную версию http://coderx.ru/showthread.php?t=618
тут ссылка битая. ГДе можно найти L2ph для Aion 4.8?

[NLObP]

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

NLObP, Добрый день! не удается найти последную версию http://coderx.ru/showthread.php?t=618
тут ссылка битая. ГДе можно найти L2ph для Aion 4.8?

Вот последнее, что было + исходники.

[NLObP]

Допиливаю пакетхак для Aion NA 4.9

Проверялось на Америке/Европе (клиент: только х32).
При посылке пакета 'сесть' чар садится.

PacketsAion49.ini - не готов, для правильной расшифровки нужно допиливать. ID пакетов взял из рекомпила java сервера aion4.9 emu (GER 4.9). Имена клиентских пакетов обфусцированы.
Пробуйте новую версию пакетхака для Aion NA 4.9

Попробуйте альтернативный разбор пакетов. Описание есть здесь
Исходники пакетов лежат в папке:

settings
    packets.ini
         aion49
           clientpackets
                CM_ABYSS_RANKING_LEGIONS.java
                CM_ABYSS_RANKING_PLAYERS.java
                ...

l2phx.3.5.35.2385.rar
VirusTotal
Показатель выявления: 26 / 56