Delphi拦截网络数据封包.pdfVIP

Delphi 拦截网络数据封包 收藏 有时候我们需要对其它应用程序发送和接收的网络数据进行拦截 , 比如要对 IE 发送的 HTTP 头进行分析 , 得到请求的地址等 .这次我们可以用一些例如 WPE, Sniffer 之类的工具 来达到目的 .但是工具功能有限 ,要想实现更强大的功能 , 还是我们自己动手来 DIY 吧 . 拦截网络数据封包的方法有三种 ,一是将网卡设为混杂模式 ,这次就可以监视到局域网 上所有的数据包 , 二是 HOOK 目标进程的发送和接收的 API 函数 ,第三种方法是自己实现一 个代理的 DLL. 在这里我们使用 HOOK API 的方法 ,这样易于实现 , 而且也不会得到大量的 无用数据 ( 如第一种方法就会监视到所有的网络数据 ). 下面是一个尽量简化了的 API HOOK 的模版 , 原理是利用消息钩子将 DLL 中的代码注 入到目标进程中 , 再用 GetProcAddress 得到 API 函数入口地址 ,将函数入口址改为自己定 义的函数入口 , 这样就得到了 API 函数的相应参数 , 处理完后 ,再改回真实 API 函数入口地址 , 并调用它 . HOOK.DLL 的代码 : 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_GETM