Программинг Форум для тем связанных с программированием
30.01.2011, 23:54
#211
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
скажи лучше что ему не нравится в стеке)
Добавлено через 2 минуты
вот пакет на открытие инвентаря, ему нужно то тока передать строку размера, ид пакета да поинтер на че-та
asm
push c
push np.size
push np.unknown
jmp [SendPacketOld]
end;
и ничерта(
Добавлено через 11 минут
че-то мне кажется я прыгаю не туда)
Добавлено через 11 минут
помогите(
Добавлено через 17 минут
ПОМОГИТЕ
Добавлено через 47 минут
delphi Код:
TSendPacket = packed record
unknown:pointer ;
size:pchar ;
id:byte ;
end ;
procedure SendPacketHook2( np:TSendPacket;data:array of pointer ) ; stdcall;
var
i:integer ;
c:cardinal ;
begin
c:=np.id ;
if length ( data) >1 then
for i:=length ( data) -1 downto 1 do
asm
push data[i]
end ;
asm
push c
push np.size
push np.unknown
jmp [SendPacketOld]
end ;
end ;
procedure SendPacketHook( np:TSendPacket) ; stdcall;
var
p:pointer ;
data:array of pointer ;
i:integer ;
s:string ;
c:cardinal ;
spobj:Pointer ;
begin
try
c:=np.id ;
SetLength ( data,length ( np.size ) ) ;
p:=@np;
p:=Pointer ( Cardinal ( p) +$0C) ;
s:='' ;
data[0 ]:=@np.id ;
if length ( np.size ) >1 then
for i:=1 to length ( np.size ) -1 do
begin
data[i]:=p;
s:=s+inttostr ( integer ( p^) ) +'; ' ;
p:=pointer ( Cardinal ( p) +4 ) ;
end ;
messagebox( 0 ,PChar ( inttohex ( np.id ,2 ) +'; ' +np.size +'; ' +s) ,'FromClient' ,0 ) ;
except
messagebox( 0 ,PChar ( 'error' ) ,'FromClient' ,0 ) ;
end ;
SendPacketHook2( np,data) ;
end ;
попалите что не так тут(
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 30.01.2011 в 23:55 .
Причина: Добавлено сообщение
31.01.2011, 00:09
#212
Местный
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Ну и где ты тут передаешь "строку" размера и поинтер на что то?
__________________
Продажа чистых аккаунтов 4G, L2 EU, AARu, AA EU, Aion EU, Tera RU, Tera EU (ICQ 594297609)
Продажа VK авторег аккаунтов (ICQ 594297609)
31.01.2011, 00:54
#213
Местный
Регистрация: 09.01.2010
Сообщений: 384
Сказал Спасибо: 60
Имеет 27 спасибок в 24 сообщенях
почитай
http://coderx.ru/showthread.php?t=1077 . Все разжевано уже. И на сях и на паскале.
31.01.2011, 01:38
#214
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
Цитата:
Сообщение от
Yegor
Ну и где ты тут передаешь "строку" размера и поинтер на что то?
push np.size
push np.unknown
Добавлено через 5 минут
Цитата:
Сообщение от
Prixmegently
в каком месте там разжеван СендПакет на паскале?
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 31.01.2011 в 01:38 .
Причина: Добавлено сообщение
31.01.2011, 01:39
#215
Местный
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
supernewbie , там нужно в стек положить указатель на символьную строку
__________________
Продажа чистых аккаунтов 4G, L2 EU, AARu, AA EU, Aion EU, Tera RU, Tera EU (ICQ 594297609)
Продажа VK авторег аккаунтов (ICQ 594297609)
31.01.2011, 02:08
#216
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
ну а я на какую кладу то епт?
TSendPacket = packed record
unknown: pointer;
size: pchar;
id:byte;
end;
(np:TSendPacket)
push np.size
Добавлено через 23 минуты
да помогите же мне(
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 31.01.2011 в 02:08 .
Причина: Добавлено сообщение
31.01.2011, 02:31
#217
Местный
Регистрация: 09.01.2010
Сообщений: 384
Сказал Спасибо: 60
Имеет 27 спасибок в 24 сообщенях
push params;
push format;
push object;
call func;
---
какой тебе пакет именно надо?
Последний раз редактировалось Prixmegently, 31.01.2011 в 02:34 .
31.01.2011, 02:50
#218
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
я поставил хук в сендпакете, все что мне надо, это чтобы данные нормально проходили через мою стдкалл процедуру и возвращались в клиент
__________________
Н а ч а л о .
31.01.2011, 02:56
#219
Местный
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
supernewbie , зачем тебе хук в сенд пакете? ты хочешь трафик от клиента на сервер прчитать?
__________________
Продажа чистых аккаунтов 4G, L2 EU, AARu, AA EU, Aion EU, Tera RU, Tera EU (ICQ 594297609)
Продажа VK авторег аккаунтов (ICQ 594297609)
31.01.2011, 02:56
#220
Местный
Регистрация: 09.01.2010
Сообщений: 384
Сказал Спасибо: 60
Имеет 27 спасибок в 24 сообщенях
ну тогда выбирай из стека параметры, парси их как хочешь, клади обратно в стек и вызывай оригинал. вообще на паскале по-моему это все не удобно делать. там есть cdecl?
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 04:26 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!