Внедрение своего Dll в чужые приложения

[Dima DDM]

Есть вопрос как внедрить свою Dll в чужое приложение?
Я не знаю его исходного кода Но на до чтобы Dll запускался вместе с ним!

[alexprey]

Для чего это?
PS. У меня есть код, но он как бы считается опасным

[MyLastHit]

Внедрение своих ДЛЛ в стронние приложения как то связаны с Делфи?

PS:любое приложение можно декомпилировать в ASM как минимум... некоторое и в Delphi...

[Dima DDM]

Мне очень надо..... помогите ... а код моего dll безопасный!!)

[alexprey]

дело не в твоей dll а в самом коде интеграции

function LoadLibrary_Ex(ProcessID:DWORD;LibName:PChar):boolean;
var
  pLL,pDLLPath:Pointer;
  hProcess,hThr:THandle;
  LibPathLen,_WR,ThrID:DWORD;
begin
  Result:=False;
  LibPathLen:=Length(string(LibName));
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);
  if hProcess=0 then exit;
  pDLLPath:=VirtualAllocEx(hProcess,0,LibPathLen+1,MEM_COMMIT,PAGE_READWRITE);
  if DWORD(pDLLPath)=0 then exit;
  pLL:=GetProcAddress(GetModuleHandle(kernel32),'LoadLibraryA');
  WriteProcessMemory(hProcess,pDLLPath,LibName,LibPathLen+1,_WR);
  hThr:=CreateRemoteThread(hProcess,0,0,pLL,pDLLPath,0,ThrID);
  if hThr=0 then exit;
  Result:=CloseHandle(hProcess);
end;

[BOBAH13]

Боже ты мой! А про хуки уже все забыли?

[Dima DDM]

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

дело не в твоей dll а в самом коде интеграции

function LoadLibrary_Ex(ProcessID:DWORD;LibName:PChar):boolean;
var
  pLL,pDLLPath:Pointer;
  hProcess,hThr:THandle;
  LibPathLen,_WR,ThrID:DWORD;
begin
  Result:=False;
  LibPathLen:=Length(string(LibName));
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);
  if hProcess=0 then exit;
  pDLLPath:=VirtualAllocEx(hProcess,0,LibPathLen+1,MEM_COMMIT,PAGE_READWRITE);
  if DWORD(pDLLPath)=0 then exit;
  pLL:=GetProcAddress(GetModuleHandle(kernel32),'LoadLibraryA');
  WriteProcessMemory(hProcess,pDLLPath,LibName,LibPathLen+1,_WR);
  hThr:=CreateRemoteThread(hProcess,0,0,pLL,pDLLPath,0,ThrID);
  if hThr=0 then exit;
  Result:=CloseHandle(hProcess);
end;

Вот про это поподробнее!!!!!!!!!! как пользоваться????

[alexprey]

Просто вызываешь эту функцию и указываешь название либы и ID процесса
Вот как определять ID уже не помню, ибо давно это делал

[Dima DDM]

Извините за мою тупость НО ...
1)Как должен выглядеть вызов функции
2)где надо указать имя dll которое должно внедряться!?
3) прокоментируйте пожалуйста эту функцию хочу узнать про нее поподробнее
Спасибо!

[Человек_Борща]

Пишу на коленке:

uses TIHelp32;


function LoadLibrary_Ex(ProcessID:DWORD;LibName:PChar):boolean;
var
  pLL,pDLLPath:Pointer;
  hProcess,hThr:THandle;
  LibPathLen,_WR,ThrID:DWORD;
begin
  Result:=False;
  LibPathLen:=Length(string(LibName));
  hProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,ProcessID);
  if hProcess=0 then exit;
  pDLLPath:=VirtualAllocEx(hProcess,0,LibPathLen+1,MEM_COMMIT,PAGE_READWRITE);
  if DWORD(pDLLPath)=0 then exit;
  pLL:=GetProcAddress(GetModuleHandle(kernel32),'LoadLibraryA');
  WriteProcessMemory(hProcess,pDLLPath,LibName,LibPathLen+1,_WR);
  hThr:=CreateRemoteThread(hProcess,0,0,pLL,pDLLPath,0,ThrID);
  if hThr=0 then exit;
  Result:=CloseHandle(hProcess);
end;

procedure Dosomethin;
var
SInfo:TStartupInfo;
PInfo:TprocessInformation;
PrcResult:WORD;
begin
ZeroMemory(@Pinfo,sizeOf(PInfo));
ZeroMemory(@Sinfo,sizeOf(SInfo));
SInfo.cb:=SizeOf(Sinfo);

PrcResult:=CreateProcess(
        PChar(''), //Путь до EXE программы
        PChar(''), //Параметры запуска, если нет то nil
        nil, 
        nil,
        False,
        NORMAL_PRIORITY_CLASS,
        nil,
        nil,
        SInfo, 
        PInfo);

If PrcResult then
begin
if LoadLibrary__Ex(PInfo.dwProcessId, //PID процесса созданного нами
   PChar('E:\bugoga\mySuper.dll'))  //Путь к dll которую будем подгружать
then
ShowMessage('Yeah!')
else
ShowMessage('Epic fail!');
end;