Программинг Форум для тем связанных с программированием
28.01.2011, 17:40
#131
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
Оффтоп
delphi Код:
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 ;
ну че ему не нравится(
---
delphi Код:
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( че-то не то(
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 28.01.2011 в 17:45 .
28.01.2011, 17:51
#132
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
Integer(tmp^)=Integer(Finder)
__________________
Шожиделать.. ботить хочется..
28.01.2011, 18:52
#133
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
о, робит) thx... PS 34
Добавлено через 3 минуты
туц туц) подменил адресок...
Добавлено через 3 минуты
так, теперь я так понял, надо как-то вызывать оригинальную... щас попробуем...
Добавлено через 41 минуту
че-то не выходит(
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 28.01.2011 в 18:52 .
Причина: Добавлено сообщение
28.01.2011, 19:05
#134
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
как ты вызываеш оригинальную?)
__________________
Шожиделать.. ботить хочется..
28.01.2011, 19:11
#135
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
ну раньше я юзал "прослойку" ксора... но щас она не работает)
ну вот щас так (не робит) :
delphi Код:
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 ;
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 28.01.2011 в 19:32 .
28.01.2011, 19:36
#136
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
а страницу назат как я тебя учил функции вызывать?
__________________
Шожиделать.. ботить хочется..
28.01.2011, 19:54
#137
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
delphi Код:
procedure UNetworkHandlerCall( NetworkPacket: Pointer ) ; stdcall;
asm
mov eax, tmpPointer;
call [AddNetworkQueue_origAddr]
end ;
тоже не работает
Добавлено через 7 минут
блин фигня какая-то =\ не знаю( не получается у мня перейти из стдкала в тизкал(
Добавлено через 2 минуты
госпади, получилось)
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 28.01.2011 в 19:54 .
Причина: Добавлено сообщение
28.01.2011, 19:55
#138
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
push NetworkPacket;
mov ecx, tmpPointer; //указатель на обьект сливаем в другой регистр
call [AddNetworkQueue_origAddr]
__________________
Шожиделать.. ботить хочется..
28.01.2011, 20:02
#139
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
( смену таблицы тоже палит, ну я и не думал что всё будет так просто...
какие еще варианты?
__________________
Н а ч а л о .
28.01.2011, 21:14
#140
Местный
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Ты опробовал 2 самых распространенных метода неудивительно что защита их знает и палит. Теперь все зависит только от твоей фантазии.
__________________
Продажа чистых аккаунтов 4G, L2 EU, AARu, AA EU, Aion EU, Tera RU, Tera EU (ICQ 594297609)
Продажа VK авторег аккаунтов (ICQ 594297609)
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 14:08 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!