for supernewbie (логово извращенцев)

[supernewbie]

Оффтоп

function FindAddNetworkQueueNumber(StartAddr,Finder:pointer) : integer;
var
  i:integer;
  tmp:pointer;
begin
  result:=-1;
  for i:=1 to 200 do
  begin
  tmp:=Pointer(Integer(StartAddr)+(4*i));
  if tmp^=Finder^ then
  begin
    result:=i;
    Exit;
  end;
  end;
end;

ну че ему не нравится(

---

function FindAddNetworkQueueNumber(StartAddr,Finder:pointer) : integer;
var
  i:integer;
  tmp:pointer;
begin
  result:=-1;
  for i:=1 to 200 do
  begin
  tmp:=Pointer(Integer(StartAddr)+(4*i));
  if Integer(tmp^)=Integer(Finder^) then
  begin
    result:=i;
    Exit;
  end;
  end;
end;

вот так вроде робит, правда он все равно ничего не находит и возвращает -1( че-то не то(

[destructor]

Integer(tmp^)=Integer(Finder)

[supernewbie]

о, робит) thx... PS 34

Добавлено через 3 минуты
туц туц) подменил адресок...

Добавлено через 3 минуты
так, теперь я так понял, надо как-то вызывать оригинальную... щас попробуем...

Добавлено через 41 минуту
че-то не выходит(

[destructor]

как ты вызываеш оригинальную?)

[supernewbie]

ну раньше я юзал "прослойку" ксора... но щас она не работает)

ну вот щас так (не робит) :

var
UNetworkHandlerNextHook : procedure(packet:pointer); stdcall;

procedure UNetworkHandlerCall(NetworkPacket: Pointer); stdcall;
asm
    mov     ecx, AddNetworkQueue_origAddr
    mov     esp, ebp
    pop     ebp
    call     [UNetworkHandlerNextHook]
end;

procedure UNetworkHandlerHookProc2(unh: Integer; np: PNetworkPacket); stdcall;
begin
  AddNetworkQueue_origAddr:=Pointer(unh);
  UNetworkHandlerCall(np);
end;

//адрес в таблице меняю на этот
procedure UNetworkHandler_AddNetworkQueue_hook(packet:pointer); stdcall;
asm
  push    ecx
  push    [ebp+8]
  push    ecx
  jmp    UNetworkHandlerHookProc2
  pop     ecx
end;

[destructor]

а страницу назат как я тебя учил функции вызывать?

[supernewbie]

procedure UNetworkHandlerCall(NetworkPacket: Pointer); stdcall;
asm
    mov eax, tmpPointer;
    call     [AddNetworkQueue_origAddr]
end;

тоже не работает

Добавлено через 7 минут
блин фигня какая-то =\ не знаю( не получается у мня перейти из стдкала в тизкал(

Добавлено через 2 минуты
госпади, получилось)

[destructor]

push NetworkPacket;
mov ecx, tmpPointer; //указатель на обьект сливаем в другой регистр
call [AddNetworkQueue_origAddr]

[supernewbie]

( смену таблицы тоже палит, ну я и не думал что всё будет так просто...

какие еще варианты?

[Yegor]

Ты опробовал 2 самых распространенных метода неудивительно что защита их знает и палит. Теперь все зависит только от твоей фантазии.