200分求HOOK指定程序WriteProcessMemo 找用友财务软件下载
我想做个程序HOOK住程序A的WriteProcessMemory函数来知道程序A到底改写了什么
对APIHOOK又不懂，求源码学习，解决了用仅有的200分相送！！
源码可以发到nosence@hotmail.com
或者贴出来也行！各位大侠帮帮忙
2楼: 在线等 如用友财务软件下载
3楼: 就API拦截，大富翁上贴子以前见过。用getModuleHandle得到一个API所在DLL句柄。然后调用该句柄获得API进程地址，再用writeProcessMemory在API头写一跳转指令，转向你的函数地址，两个函数的参数在一致的情况下，传给API的栈参数在跳转函数中可以针对跳转形参进行读。不过writeProcessMemory比较特别吧
4楼: 用OD调试器在A程序的WriteProcessMemory下断点，就能知道写什么了，不用APIhook,太麻烦了
5楼: 参考一下windows核心编程,你要的方法全有
6楼: library Hook;
uses
SysUtils,
windows,
Messages,
APIHook in ＇＇APIHook.pas＇＇;
type
PData = ^TData;
TData = record
Hook: THandle;
Hooked: Boolean;
end;
var
DLLData: PData;
{------------------------------------}
{过程名:HookProc
{过程功能:HOOK过程
{过程参数:nCode, wParam, lParam消息的相
{ 关参数
{------------------------------------}
procedure HookProc(nCode, wParam, lParam: LongWORD);stdcall;
begin
if not DLLData^.Hooked then
begin
HookAPI;
DLLData^.Hooked := True;
end;
//调用下一个Hook
CallNextHookEx(DLLData^.Hook, nCode, wParam, lParam);
end;
{------------------------------------}
{函数名:InstallHook
{函数功能:在指定窗口上安装HOOK
{函数参数:sWindow:要安装HOOK的窗口
{返回值:成功返回TRUE,失败返回FALSE
{------------------------------------}
function InstallHook(SWindow: LongWORD):Boolean;stdcall;
var
ThreadID: LongWORD;
begin
Result := False;
DLLData^.Hook := 0;
ThreadID := GetWindowThreadProcessId(sWindow, nil);
//给指定窗口挂上钩子
DLLData^.Hook := SetWindowsHookEx(WH_GETMESSAGE, @HookProc, Hinstance, ThreadID);
if DLLData^.Hook > 0 then
Result := True //是否成功HOOK
else
exit;
end;
{------------------------------------}
{过程名:UnHook
{过程功能:卸载HOOK
{过程参数:无
{------------------------------------}
procedure UnHook;stdcall;
begin
UnHookAPI;
//卸载Hook
UnhookWindowsHookEx(DLLData^.Hook);
end;
{------------------------------------}
{过程名:DLL入口函数
{过程功能:进行DLL初始化,释放等
{过程参数:DLL状态
{------------------------------------}
procedure MyDLLHandler(Reason: Integer);
var
FHandle: LongWORD;
begin
case Reason of
DLL_PROCESS_ATTACH:
begin //建立文件映射,以实现DLL中的全局变量
FHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, $ffff, ＇＇MYDLLDATA＇＇);
if FHandle = 0 then
if GetLastError = ERROR_ALREADY_EXISTS then
begin
FHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, ＇＇MYDLLDATA＇＇);
if FHandle = 0 then Exit;
end else Exit;
DLLData := MapViewOfFile(FHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0);
if DLLData = nil then
CloseHandle(FHandle);
end;
DLL_PROCESS_DETACH:
begin
if Assigned(DLLData) then
begin
UnmapViewOfFile(DLLData);
DLLData := nil;
end;
end;
end;
end;
{$R *.res}
exports
InstallHook, UnHook, HookProc;
begin
DLLProc := @MyDLLHandler;
MyDLLhandler(DLL_PROCESS_ATTACH);
DLLData^.Hooked := False;
end.
----------------------------------------------------------------------------------------
APIHook.Pas的代码:
unit APIHook;
interface
uses
SysUtils,
Windows, WinSock;
type
//要HOOK的API函数定义
TSockProc = function (s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;//这里改成函数WriteProcessMemory的参数声明.
PJmpCode = ^TJmpCode;
TJmpCode = packed record
JmpCode: BYTE;
Address: TSockProc;
MovEAX: Array [0..2] of BYTE;
end;
//--------------------函数声明---------------------------
procedure HookAPI;
procedure UnHookAPI;
var
OldSend, OldRecv: TSockProc; //原来的API地址
JmpCode: TJmpCode;
OldProc: array [0..1] of TJmpCode;
AddSend, AddRecv: pointer; //API地址
TmpJmp: TJmpCode;
ProcessHandle: THandle;
implementation
{---------------------------------------}
{函数功能:Send函数的HOOK
{函数参数:同Send
{函数返回值:integer
{---------------------------------------}
function MySend(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;//这里改成函数WriteProcessMemory的参数声明.
var
dwSize: cardinal;
begin
//这儿进行发送的数据处理
MessageBeep(1000); //简单的响一声
//调用直正的Send函数
WriteProcessMemory(ProcessHandle, AddSend, @OldProc[0], 8, dwSize);
Result := OldSend(S, Buf, len, flags);
JmpCode.Address := @MySend;
WriteProcessMemory(ProcessHandle, AddSend, @JmpCode, 8, dwSize);
end;
{---------------------------------------}
{函数功能:Recv函数的HOOK
{函数参数:同Recv
{函数返回值:integer
{---------------------------------------}
{function MyRecv(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
var
dwSize: cardinal;
begin
//这儿进行接收的数据处理
MessageBeep(1000); //简单的响一声
//调用直正的Recv函数
WriteProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);
Result := OldRecv(S, Buf, len, flags);
JmpCode.Address := @MyRecv;
WriteProcessMemory(ProcessHandle, AddRecv, @JmpCode, 8, dwSize);
end;}
{------------------------------------}
{过程功能:HookAPI
{过程参数:无
{------------------------------------}
procedure HookAPI;
var
DLLModule: THandle;
dwSize: cardinal;
begin
ProcessHandle := GetCurrentProcess;
DLLModule := LoadLibrary(＇＇ws2_32.dll＇＇); //改为WriteProcessMemory函数所在DLL
AddSend := GetProcAddress(DLLModule, ＇＇send＇＇); //取得API地址
//AddRecv := GetProcAddress(DLLModule, ＇＇recv＇＇);
JmpCode.JmpCode := $B8;
JmpCode.MovEAX[0] := $FF;
JmpCode.MovEAX[1] := $E0;
JmpCode.MovEAX[2] := 0;
ReadProcessMemory(ProcessHandle, AddSend, @OldProc[0], 8, dwSize);
JmpCode.Address := @MySend;
WriteProcessMemory(ProcessHandle, AddSend, @JmpCode, 8, dwSize); //修改Send入口
//ReadProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);
//JmpCode.Address := @MyRecv;
//WriteProcessMemory(ProcessHandle, AddRecv, @JmpCode, 8, dwSize); //修改Recv入口
OldSend := AddSend;
//OldRecv := AddRecv;
end;
{------------------------------------}
{过程功能:取消HOOKAPI
{过程参数:无
{------------------------------------}
procedure UnHookAPI;
var
dwSize: Cardinal;
begin
WriteProcessMemory(ProcessHandle, AddSend, @OldProc[0], 8, dwSize);
WriteProcessMemory(ProcessHandle, AddRecv, @OldProc[1], 8, dwSize);
end;
end.
---------------------------------------------------------------------------------------------
编译这个DLL后,再新建一个程序调用这个DLL的InstallHook并传入目标进程的主窗口句柄就可:
unit fmMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
InstallHook: function (SWindow: THandle):Boolean;stdcall;
UnHook: procedure;stdcall;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ModuleHandle: THandle;
TmpWndHandle: THandle;
begin
TmpWndHandle := 0;
TmpWndHandle := FindWindow(nil, ＇＇目标窗口的标题＇＇);
if not isWindow(TmpWndHandle) then
begin
MessageBox(self.Handle, ＇＇没有找到窗口＇＇, ＇＇!!!＇＇, MB_OK);
exit;
end;
ModuleHandle := LoadLibrary(＇＇Hook.dll＇＇);
@InstallHook := GetProcAddress(ModuleHandle, ＇＇InstallHook＇＇);
@UnHook := GetProcAddress(ModuleHandle, ＇＇UnHook＇＇);
if InstallHook(FindWindow(nil, ＇＇Untitled＇＇)) then
ShowMessage(＇＇Hook OK＇＇);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
UnHook
end;
end.
记账软件版7楼: 以上是一个HOOK SEND 函数的例子(抄来的).稍加修改就可以使用了.
注意:由于以上代码需要用到WriteProcessMemory函数,而你要截取的也是这个函数,所以你得将系统里面包含WriteProcessMemory函数的DLL复制出来,改一个名,在代码里面从这个复制出来的DLL中调用WriteProcessMemory函数.
另外这个代码的入口函数有问题,在SP2系统也出错,问题出在哪我没弄明白,我在用这个代码的时候,改动的幅度比较大.如果程序出错,可以将入口函数不用.也是一个效果.
8楼: if InstallHook(FindWindow(nil, ＇＇Untitled＇＇)) then//这里也应该是查找目标窗口的句柄,记得改一下.
9楼: 另外给你介绍一个工具.
http://www.autodebug.com/cn/
自动调试监视器
联系我们
