Page 35 of 35 FirstFirst ... 253132333435
Results 511 to 512 of 512
  1. #511
    Contributor CoreCoins User culino2's Avatar
    Reputation
    269
    Join Date
    Feb 2013
    Posts
    126
    Thanks G/R
    87/49
    CoreCoins
    5679
    Trade Feedback
    0 (0%)
    Quote Originally Posted by thebad.cb View Post
    Attachment 56686

    I'm trying to make a hook on sendpacket

    ...
    What you're trying may be good for learning purposes, but there's a great library for delphi:
    GitHub - MahdiSafsafi/delphi-detours-library: Delphi Detours Library

    Code:
    var
      o_NetClient__Send: procedure(__eax, __edx, __this: Pointer; DataStore: PDataStore);
    
    procedure hook_NetClient__Send(__eax, __edx, __this: Pointer; DataStore: PDataStore);
    var
      i: Integer;
      sBuffer: String;
    begin
      for i := 0 to DataStore^.Size -1 do
      begin
        sBuffer := sBuffer + IntToHex(DataStore^.Buffer[i], 2) + ' ';
      end;
    
      { do something with the log... }
    
      // call original function
      o_NetClient__Send(nil, nil, __this, DataStore);
    end;
    
    procedure InstallDetours();
    begin
      BeginHooks();
      @o_NetClient__Send := InterceptCreate(Pointer($005379A0), @hook_NetClient__Send);
      EndHooks();
    end;
    Last edited by culino2; 2 Days Ago at 08:53 PM.

  2. The Following 1 Members Gave Thanks To culino2 For This Useful Post:

    thebad.cb
  3. #512
    Member thebad.cb's Avatar
    Reputation
    1
    Join Date
    Sep 2017
    Posts
    4
    Thanks G/R
    2/0
    CoreCoins
    7
    Trade Feedback
    0 (0%)
    Quote Originally Posted by culino2 View Post
    What you're trying may be good for learning purposes, but there's a great library for delphi:
    GitHub - MahdiSafsafi/delphi-detours-library: Delphi Detours Library

    Code:
    var
      o_NetClient__Send: procedure(__eax, __edx, __this: Pointer; DataStore: PDataStore);
    
    procedure hook_NetClient__Send(__eax, __edx, __this: Pointer; DataStore: PDataStore);
    var
      i: Integer;
      sBuffer: String;
    begin
      for i := 0 to DataStore^.Size -1 do
      begin
        sBuffer := sBuffer + IntToHex(DataStore^.Buffer[i], 2) + ' ';
      end;
    
      { do something with the log... }
    
      // call original function
      o_NetClient__Send(nil, nil, __this, DataStore);
    end;
    
    procedure InstallDetours();
    begin
      BeginHooks();
      @o_NetClient__Send := InterceptCreate(Pointer($005379A0), @hook_NetClient__Send);
      EndHooks();
    end;
    tanks

    https://i.imgur.com/NtLiupC.jpg


    now it made it much easier to capture the packages

 

 
Page 35 of 35 FirstFirst ... 253132333435

Similar Threads

  1. [WoW][3.3.5.12340] Info Dump Thread
    By Nesox in forum WoW Memory Editing
    Replies: 82
    Last Post: 11-02-2014, 04:11 PM
  2. [WoW][4.0.3.13329] Info Dump Thread
    By TOM_RUS in forum WoW Memory Editing
    Replies: 73
    Last Post: 02-06-2011, 05:37 AM
  3. [WoW][4.0.1.13164] Info Dump Thread
    By Seifer in forum WoW Memory Editing
    Replies: 29
    Last Post: 01-18-2011, 08:14 AM
  4. [WoW][4.0.1.13205] Info Dump Thread
    By DrGonzo in forum WoW Memory Editing
    Replies: 12
    Last Post: 11-11-2010, 01:34 PM
  5. [WoW][3.3.3.11723] Info Dump Thread
    By miceiken in forum WoW Memory Editing
    Replies: 2
    Last Post: 03-27-2010, 03:42 PM
All times are GMT -5. The time now is 03:05 PM. Powered by vBulletin® Version 4.2.3
Copyright © 2017 vBulletin Solutions, Inc. All rights reserved. Digital Point modules: Sphinx-based search