L2PacketHack 3.5.x

[Argot]

Особождайте ее в unhook`e

тонее она там освобождается

   function UnhookCode(OldProc: pointer): boolean;
var
  OldProtect: dword;
  Proc: pointer;
  SaveSize: dword;
begin
  Result := True;
  try
    Proc := pointer(dword(pointer(dword(OldProc) - 5)^));
    SaveSize := byte(pointer(dword(OldProc) - 1)^);
    VirtualProtect(Proc, 5, PAGE_EXECUTE_READWRITE, OldProtect);
    CopyMemory(Proc, OldProc, SaveSize);
    VirtualProtect(Proc, 5, OldProtect, OldProtect);
    FreeMem(pointer(dword(OldProc) - 5));
  except
    Result := False;
  end;
end;

[NLObP]

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

Особождайте ее в unhook`e

На сколько я помню он нигде не вызывается.

[Argot]

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

На сколько я помню он нигде не вызывается.

это как говорится уже ваши проблемы что вы не вызываете )).

Да и правда особой надобности нет. в Вызове.

[RoZ]

Шаблон Plugin на С++ для маньяков
Реализовано:
char* GetPluginInfo(int ver);
void OnPacket(unsigned long int cnt,bool fromServer,char* packet);
bool SetStruct(PluginStruct * PStruct);
void OnConnect(unsigned long int cnt,bool withServer);
void OnDisconnect(unsigned long int cnt,bool withServer);
void OnLoad();
void OnFree();

для отсылки пакетов используется "SendPckData(void* pck,const unsigned char tid,bool ToServer)"

[ratvier]

Ну раз уж такое дело, вот хидер для си (так же совместим с с++)

[xkor]

ты зачем из файлового архива прогу удалил?, народ её в первую очередь там ищет, а про эту тему знают не многие...

[RoZ]

Баг:

PktStr:=HexToString(Copy(Thread[CID].Dump.Strings[PckCount],23,4));
    //LeaveCriticalSection(_cs);
    id:=Byte(PktStr[1]);                   //фактическое начало пакета, ID
    SubId:=Word(id shl 8+Byte(PktStr[2])); //считываем SubId

При PktStr = '' выдаёт ошибку на id:=Byte(PktStr[1]);
добавьте проверку.

Пакет 03DEFAC3A9E9ADEB3F0200

для проверки прикрепил лог пакетов

[xkor]

и всётаки зря кто то сделал:

//проверяем на выход за границу пакета
  if PosInPkt>Size+10 then raise ERangeError.CreateFmt(result+' is not within the valid range of %d', [Size]);

[NLObP]

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

и всётаки зря кто то сделал:

//проверяем на выход за границу пакета
  if PosInPkt>Size+10 then raise ERangeError.CreateFmt(result+' is not within the valid range of %d', [Size]);

Revision: 60
Author: nlobp
Date: 1:17:05, 26 октября 2008 г.
Message:
[*] изменил реагирование на ошибку выхода за границу пакета, пишем в расшифровку пакета 'range error'
[*] на вкладке "просмотр" и "посылка" добавил показ места, где расположены данные, по клику мыши и нажатию клавиш (стрелок) вверх/вниз.

[xkor]

NLObP, хм, обосную плиз позицию строк
if value='range error' then exit;
потому как по хорошему они должны следовать сразу за вызовом value:=GetValue(...)
а у тебя получается что могут сработать строки типа
if param1='FUNC01' then value:=GetFunc01(strtoint(value))
когда value='range error' а это приведёт к ошибке...