[Delphi]Как внедрить DLL?

Тема в разделе "WASM.WIN32", создана пользователем Cody_M, 6 фев 2009.

Статус темы:
Закрыта.
  1. Cody_M

    Cody_M New Member

    Публикаций:
    0
    Регистрация:
    24 янв 2009
    Сообщения:
    5
    Добрый вечер.
    Решил обойти античит myAC для игры Counter-Strike.
    Дело в том, что все читы для CS представляют сам чит в виде DLL и loader.exe
    myAC блокирует любое внедрение dll в процесс Counter-Strike (hl.exe)
    Как вариант можно использовать хук SetWindowsHookEx, как я понял он внедряет dll в любое оконное приложение.
    Обычно dll чита не содержит экспортируемых функций, если бы они были, то можно было бы просто импортировать эти функции в сам исполнительный dll игры.


    Вот код который мне удалось найти:
    Код (Text):
    1. program Injector;
    2.  
    3. uses
    4.   Windows;
    5.  
    6. const DLL_INJ = 'DLL Injector (HOOKS)';
    7.  
    8. type TShp = procedure (hk: HHOOK) stdcall;
    9.  
    10. procedure InjectDLLviaHOOKS(dll_name: string);
    11. var
    12.    h: THandle;
    13.    p: pointer;
    14.    sh: TShp;
    15.    hk: HHOOK;
    16. begin
    17.      h:=LoadLibrary(PAnsiChar(dll_name));
    18.      if h=0 then
    19.         begin
    20.              MessageBox(0, PAnsiChar('Не могу загрузить DLL '+dll_name+'!'), DLL_INJ, MB_OK+MB_ICONERROR);
    21.              exit;
    22.         end;
    23.      p:=GetProcAddress(h, 'HookProc');
    24.      @sh:=GetProcAddress(h, 'SetHK');
    25.      if ((p=nil) or (@sh=nil)) then
    26.         begin
    27.              MessageBox(0, PAnsiChar('Библиотека '+
    28.                            dll_name+' не содержит необходимых процедур!'),
    29.                            DLL_INJ, MB_OK+MB_ICONERROR);
    30.              FreeLibrary(h);
    31.              exit;
    32.         end;
    33.      hk:=SetWindowsHookEx(WH_CALLWNDPROC, p, h, 0);
    34.      if hk=0 then
    35.         begin
    36.              MessageBox(0, PAnsiChar('Невозможно установить ловушку!'),
    37.                            DLL_INJ, MB_OK+MB_ICONERROR);
    38.              FreeLibrary(h);
    39.              exit;
    40.         end;
    41.      sh(hk);
    42.      MessageBox(0, 'Ловушка установлена! Нажмите OK для снятия.',
    43.                    DLL_INJ, MB_OK);
    44.      UnhookWindowsHookEx(hk);
    45.      FreeLibrary(h);
    46. end;
    47.  
    48. begin
    49.      InjectDLLviaHOOKS('hook_dll.dll');
    50. end.
    но он отказывается работать

    Вроде изложил всё чётко, надеюсь на помошь...
     
  2. Booster

    Booster New Member

    Публикаций:
    0
    Регистрация:
    26 ноя 2004
    Сообщения:
    4.860
    Counter-Strike имеет dll?
     
  3. GoldFinch

    GoldFinch New Member

    Публикаций:
    0
    Регистрация:
    29 мар 2008
    Сообщения:
    1.775
    не умеешь - не берись
     
  4. Cody_M

    Cody_M New Member

    Публикаций:
    0
    Регистрация:
    24 янв 2009
    Сообщения:
    5
    Booster, а тебя не смутило то что под hl.exe написанно Half-Life Launcher
    GoldFinch, не знаешь - не пости
     
  5. spa

    spa Active Member

    Публикаций:
    0
    Регистрация:
    9 мар 2005
    Сообщения:
    2.240
    Cody_M
    А ты чё такой дерзкий? это ты вообще с какого портала?

    А если по теме, тебе GoldFinch правильно сказал.... ТЫ что блин вообще хочешь чтобы мы тебя юзать SetWindowsHookEx научили? а вообще говоря это не поможет, майак конечно не крепость, но писался людми поумнее тебя.
     
  6. Booster

    Booster New Member

    Публикаций:
    0
    Регистрация:
    26 ноя 2004
    Сообщения:
    4.860
    Cody_M
    Меня не смутило. Я в контру никогда не играл.
     
  7. GoldFinch

    GoldFinch New Member

    Публикаций:
    0
    Регистрация:
    29 мар 2008
    Сообщения:
    1.775
    Cody_M на сайте есть много замечательных статей, когда их прочитаешь - сможешь сам все написать
     
  8. Coderess

    Coderess New Member

    Публикаций:
    0
    Регистрация:
    28 окт 2008
    Сообщения:
    41
    Дело в том, что все читы для CS представляют сам чит в виде DLL и loader.exe

    а я с драйвером видел ;)

    P.S. поставь отладчик сусер или сайс и отлаживай поставкой бряка в начало внедряемой функции
     
  9. int2e

    int2e New Member

    Публикаций:
    0
    Регистрация:
    9 янв 2009
    Сообщения:
    169
    Может проще код маяка модифицировать, а не хней страдать?
     
  10. Rel

    Rel Well-Known Member

    Публикаций:
    2
    Регистрация:
    11 дек 2008
    Сообщения:
    5.323
    читай Джеффри Рихтера "Windows для профессионалов"...
     
  11. Cody_M

    Cody_M New Member

    Публикаций:
    0
    Регистрация:
    24 янв 2009
    Сообщения:
    5
    А ты чё интернет-гопник? Какой портал/какой район

    Ладно, хорошо что хоть в гугл не послали.
     
  12. spa

    spa Active Member

    Публикаций:
    0
    Регистрация:
    9 мар 2005
    Сообщения:
    2.240
    Cody_M
    иди в гугл
     
  13. Cody_M

    Cody_M New Member

    Публикаций:
    0
    Регистрация:
    24 янв 2009
    Сообщения:
    5
    спасибо обязательно загляну
     
  14. Com[e]r

    Com[e]r Com[e]r

    Публикаций:
    0
    Регистрация:
    20 апр 2007
    Сообщения:
    2.624
    Адрес:
    ого..
    э, вмз отсыпь?
     
Статус темы:
Закрыта.