Программинг Форум для тем связанных с программированием
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, время: 15:29 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!