Hooken der RecvFrom() Methode mittels uALLCollection

[C0pa]

DLL Code:

Delphi-Quellcode:

library hook;

uses
  Windows,
  uallHook;

{$R *.res}

type
  TsendMethod = function(s: DWord; Buf : Pointer; Len, Flags: Integer): Integer; stdcall;
  TsendToMethod = function(s: DWord; var Buf; len, flags: Integer; var addrto: DWord; tolen: Integer): Integer; stdcall;
  TrecvMethod = function(s: DWord; Buf : Pointer; Len, Flags: Integer): Integer; stdcall;
  TrecvFromMethod = function(s: DWord; var Buf; len, flags: Integer; var from: DWord; var fromlen: Integer): Integer; stdcall;
               
var
  orgiSend, newSend          : TsendMethod;
  orgiRecv, newRecv          : TrecvMethod;
  orgiSendto, newSendTo      : TsendToMethod;
  orgiRecvFrom, newRecvFrom  : TrecvFromMethod;


function callbackSend(s: DWord; Buf : Pointer; Len, Flags: Integer): Integer; stdcall;
begin
  Result := newSend(s, Buf, Len, Flags);
end;

function callbackSendTo(s: DWord; var Buf; len, flags: Integer; var addrto: DWord;  tolen: Integer): Integer; stdcall;  
begin
  Result := newSendTo(s, Buf, Len, Flags, addrto, tolen);
end;


function callbackRecv(s: DWord; Buf : Pointer; Len, Flags: Integer): Integer; stdcall;   
begin
  Result := newRecv(s, Buf, Len, Flags);
end;

function callbackRecvFrom(s: DWord; var Buf; len, flags: Integer; var from: DWord; var fromlen: Integer): Integer; stdcall;     
begin
    Result := newRecvFrom(s, Buf, Len, Flags, from, fromlen);
end;

procedure injectmain;
var
  h: integer;
begin
  @orgiSend := nil;
  @orgiSendto := nil;
  @orgiRecv := nil;
  @orgiRecvFrom := nil;

  h :=  GetModuleHandle('ws2_32.dll');
  if (h > 0) then
  begin
    @orgiSend := GetProcAddress(h,'send'); 
    if (@orgiSend <> nil) and
       not(HookCode(@orgiSend, @callbackSend, @newSend)) then
      MessageBox(0, 'orgiSend', 'Something went wrong!', 0);

    @orgiSendto := GetProcAddress(h,'sendto'); 
    if (@orgiSendto <> nil) and
       not(HookCode(@orgiSendto, @callbackSendto, @newSendTo)) then
      MessageBox(0, 'orgiSendto', 'Something went wrong!', 0);

    @orgiRecv := GetProcAddress(h,'recv');
    if (@orgiRecv <> nil) and
       not(HookCode(@orgiRecv, @callbackRecv, @newRecv)) then
      MessageBox(0, 'orgiRecv', 'Something went wrong!', 0);

    @orgiRecvFrom := GetProcAddress(h,'recvfrom');
    if (@orgiRecvFrom <> nil) and
       not(HookCode(@orgiRecvFrom, @callbackRecvFrom, @newRecvFrom)) then
      MessageBox(0, 'orgiRecvFrom', 'Something went wrong!', 0);
  end;
end;

procedure uninjectmain;
begin
  if (@orgiSend <> nil) and not(UnhookCode(@newSend)) then
      MessageBox(0, 'orgiSend', 'Something went wrong!', 0);
  if (@orgiSendto <> nil) and not(UnhookCode(@newSendTo)) then
      MessageBox(0, 'orgiSendto', 'Something went wrong!', 0);
  if (@orgiRecv <> nil) and not(UnhookCode(@newRecv)) then
      MessageBox(0, 'orgiRecv', 'Something went wrong!', 0);
  if (@orgiRecvFrom <> nil) and not(UnhookCode(@newRecvFrom)) then
      MessageBox(0, 'orgiRecvFrom', 'Something went wrong!', 0);
end;


procedure dllmain(dwReason: integer);
begin
    case dwreason of
      DLL_PROCESS_ATTACH:
        injectmain;
      DLL_PROCESS_DETACH:
        uninjectmain;
    end;
end;

begin
  DLLProc := @DLLMain;
  DLLMain(1);
end.

Also hier das ganze ohne IPC. Ich bekomme weder beim injecten noch beim uninjecten eine der Messageboxen gezeigt.

Das ist der Code meiner Hauptanwendung

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Forms, Controls, StdCtrls, Classes;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const
  process = 'Garena.exe';

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  uallHook, uallUtil, uallProcess;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (InjectLibrary(FindProcess(process), PChar(uallUtil.GetExeDirectory+'hook.dll')) ) then
    MessageBox(0, 'DLL Injected', 'Info', 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if (UnloadLibrary(FindProcess(process), PChar(uallUtil.GetExeDirectory+'hook.dll')) ) then 
    MessageBox(0, 'DLL Uninjected', 'Info', 0);
end;

end.

Ich bekomme beide Nachrichten angezeigt. Also wenn das Programm startet injecte ich die DLL. Dann läuft alles wunderbar. Wenn ich nun die DLL uninjecte funktioniert alles noch so lang gut, bis bei dem Programm wieder ein Paket empfangen oder gesendet wird. Sprich wenn ich die DLL nicht uninjecte scheint alles ordnungsgemäß zu funktionieren, aber beim Uninjecten wird irgendwas falsch zurück gesetzt, wodurch beim Nächsten Eintreffen eines Pakets mir das Programm abstürzt.