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

[supernewbie]

да я всё пытаюсь параметры из стека достать в переменные, потом обратно в стек засунуть, но делфи упорно срет в стек мне

пытаюсь решить проблему, через va_list, но че-то хз как с ним работать

Добавлено через 12 минут
я щас опять буду орать "помогите", ну че делать с этой хренью

[Yegor]

supernewbie, ты вроде там защиту пытался обойти леймгварда, он что тебе дал хукнуть сендпакет?

[destructor]

память:

1
2         
3
4
5
6
7
8          < тут и ВЫШЕ твой компилятор делает push и остальную хрень
9          < тут хрень, этот адрес получаем так: asm mov stackaddr, ebp;
10         < тут адрес возврата, я тебе стопицот раз писал чтобы ты нагуглил пример как его достать.
11         < тут параметр1
13         < тут параметр2
14         < тут параметр3
15         < и так далее
16

Добавлено через 4 минуты

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

9 < тут хрень

зная этот адрес можем к нему прибавить Х и получить другой адрес:

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

11 < тут параметр1

[supernewbie]

только все равно ничерта не работает...

procedure HookSendPacket; stdcall
begin
asm
mov eax, [ebp+8]
mov this, eax
mov eax, [ebp+12]
mov format, eax
end;
k:=0;
asm
mov eax, [ebp+16];
mov tmp1, eax
end;
for i := 0 to length(format)-1 do
begin
if (format[i] = 'Q') or (format[i] = 'b') then
begin
params[k] := pointer(Integer(tmp1)+(k*4));
params[k+1] := pointer(integer(tmp1)+(k*4)+4);
Inc(k, 2);
end
else
begin
params[k] := pointer(integer(tmp1)+(k*4));
Inc(k);
end;
end;
MessageBoxA(0, format, 'FromClient', 0);
asm
jmp origSendPacket;
end;
end;

Добавлено через 27 минут
ДА ПОМОГИТЕ КТО-НИБУДЬ

[destructor]

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

begin
asm
mov eax, [ebp+8]
mov this, eax
mov eax, [ebp+12]
mov format, eax
end;

эт чо?

Добавлено через 11 секунд

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

asm
mov eax, [ebp+16];
mov tmp1, eax
end;

а это?

Добавлено через 59 секунд

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

for i := 0 to length(format)-1 do
begin
if (format[i] = 'Q') or (format[i] = 'b') then
begin
params[k] := pointer(Integer(tmp1)+(k*4));
params[k+1] := pointer(integer(tmp1)+(k*4)+4);
Inc(k, 2);
end
else
begin
params[k] := pointer(integer(tmp1)+(k*4));
Inc(k);
end;

это ваще чо?

[supernewbie]

))

1. Сохраняю указатель на this и pchar строку формата пакета

2. сохраняю адрес первого параметра в tmp1

3. раскладываю параметры по массиву

Добавлено через 2 часа 41 минуту
ПОМОГИТЕ КТО-НИБУДЬ

Добавлено через 1 час 16 минут
получилось

[Yegor]

supernewbie, дак и что не получается? удалось хоть 1байтную команду вызывать, напрмер показать инвертарь?

[supernewbie]

да мне не вызвать надо было, а хук поставить и парсить пакет без гавняканья стека, но щас не об этом, это сделал

---



проблема в том, что есть 2% шанс что что-то пойдет не так, не знаю что именно, но клиент крашится

procedure ParsingFromServer;
var
  np:PNetworkPacket;
  s:string;
  p:pointer;
begin
try
np:=tmp1;
  s:=IntToHex(np.id,2)+' ';
  if np.size>0 then
  for i:=0 to np.size-1 do
  begin
  p:=Pointer(cardinal(np.data)+(i*1));
  s:=s+IntToHex(byte(p^),2)+' ';
  end;
  except
  s:=s+'ERROR PACKET';
  end;
end;

procedure AddNetworkQueue_hook; stdcall;
begin
asm
mov tmpPointer, ecx
mov eax,  [esp+4]
mov tmp1, eax
end;
ParsingFromServer; //если убрать вызов парсера то всё ок
asm
mov ecx, tmpPointer
jmp AddNetworkQueue_origAddr
end;
end;

шо делать пасаны?

стек ведь должен очищатся после вызова парсера, что опять может быть?

Добавлено через 30 минут
короче если в парисинге делать даже цикл в котором
s:=s+' '; то уже креш может быть, втф?

[destructor]

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

mov eax,* [esp+4]
mov tmp1, eax

вротмненоги, убери это

Добавлено через 45 секунд

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

procedure AddNetworkQueue_hook; stdcall;

это функция и у нее есть параметр, пропиши его и все извращения со стеком компилятор сделает сам

Добавлено через 1 минуту
важна только эта строчка

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

mov tmpPointer, ecx

[supernewbie]

лучше скажи, что делать, т.к. по ходу, если я долго обрабатываю пакет то идет крит