Форум программистов [Powered by Invision Power Board]

Код


...
  AH,CH:Cardinal;
  NewHWND:HWND;
...
DuplicateHandle(AH,SName,CH,@NewHWND,0,False,DUPLICATE_SAME_ACCESS)

Код


TargetSocket:THandle;
...
TargetSocket:=NewHWND;
Send(TargetSocket,pointer(paket)^,Length(paket),0);

Цитата(ButtonOFF @ 7.12.2009, 16:32

)

Полный код в студию

Цитата(Демо @ 7.12.2009, 14:05)

ZaDoXliK,
Ты уверенЮ, что сервер понимает, что ты ему посылаешьь и умеет это обрабатывать?

Код


paket:=#$87#$98#$65#$87#$98#$AB
S:=Send(TargetSocket,pointer(paket)^,Length(paket),0);

Код


В Memo1 перврй строкой написано (#$87#$98#$65#$87#$98#$AB) без скобок.
paket:=memo1.Lines.ValueFromIndex[номер строки];
S:=Send(TargetSocket,pointer(paket)^,Length(paket),0);

Код


DuplicateHandle(AH,SName,CH,@NewHWND,0,False,DUPLICATE_SAME_ACCESS)
Application.ProcessMessage;
...
//Дальше посылка пакета.
Send(TargetSocket,pointer(paket)^,Length(paket),0);
//Тут сразу картинка приложения "А" застывает.Но действия посланные ему оно выполняет.

Код


library Hook;

uses
  Windows,
  Winsock,
  messages,
  SysUtils,
  madRemote,
  madCodeHook;

{$R *.RES}

var
 sendNextHook: function(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
var
 strAppExe: string;

function GetModuleFileName: string;
var
 Buffer: array[0..MAX_PATH] of Char;
  begin
   ProcessIdToFilename(ProcessHandleToId (GetCurrentProcess()),Buffer);
 Result := StrPas(Buffer);
end;

procedure IPCLog(strWhat : String);
var
 Result : Integer;
begin
 strWhat := strAppExe + '-' + strWhat;
 SendIpcMessage('whooklib', pchar(strWhat), Length(strWhat), @result, sizeOf(result));
end;

function sendHookProc(s: TSocket; var Buf; Len, Flags: Integer): Integer; stdcall;
begin
 ipclog(inttostr(s));
 Result :=sendNextHook(s, Buf, Len, Flags);
end;

begin
 strAppExe := GetModuleFileName();
 hookapi('ws2_32.dll','send', @sendHookProc, @sendNextHook);
 hookapi('wsock32.dll','send', @sendHookProc, @sendNextHook);

end.

Код


//Процедура которая принимает данные из DLL. Сюда передаётся имя программы и ID сокета.
//В S2 хранится имя "жертвы",за ранее указанно в варах.
procedure RecvIPCmsg(name: pchar; messageBuf: pointer;
messageLen: dword; answerBuf: pointer; answerLen: dword);stdcall;
begin
S1:=StrPas(messageBuf);
PName:=Copy(S1,1,13);//В PName копирую первые 13 букв из названия найденного приложения.
Delete(S1,1,18);//Тут отсекаю лишний мусор из названия.
If PName=S2 then
begin
SName:=StrToInt(Copy(S1,1,4));//Тут выдераю ID сокета найденного окна.
Form1.M.Lines.Add('UNINJECTING');
UnInjectLibrary(ALL_SESSIONS or SYSTEM_PROCESSES, 'Hook.dll');//после нахождения нужного окна и получения ID сокета - выгружаю хук.
end;
end;
...
//процедура на нажатие кнопки.
...
CProc:=GetCurrentProcessID;//Находим свой ID процесса
GetWindowThreadProcessID(Arena,AProc);//Находими ID потока "Жертвы"
CH:=OpenProcess(PROCESS_ALL_ACCESS,FALSE,CProc);//Получаем дескриптор потока своего приложения
AH:=OpenProcess(PROCESS_ALL_ACCESS,FALSE,AProc); //Получаем дескриптор потока "Жертвы"
...
DuplicateHandle(AH,SName,CH,@NewHWND,0,False,DUPLICATE_SAME_ACCESS);//В AH хранится дескриптор "жертвы" от него мы берем копию,в SName ID сокета "жертвы" его мы дублируем для дальнейшего использования,CH-дескриптор моего приложения,ему я передаю копию,NewHWND это новый дублированный сокет.
...
//Тут я всё правильно делаю?
WSAStartup(2,WSA);
Paket:='Передаваемая информация';
Send(NewHWND,pointer(paket)^,Length(paket),0);//Длинна пакета и его содержимое правильные.
//Теперь возникает вопрос, что делать дальше? Нужно ли как то передать управление обратно "Жертве"?
//В том смысле что "жертва" получает мой паке, выполняет действие,можно сразу и другой пакет послать,он тоже отправится и обработается как положенно,но само приложение при этом будет висеть мёртвым грузом...