2024年6月3日发(作者：)

Delphi拦截网络数据封包 收藏

有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的

HTTP头进行分析,得到请求的地址等.这次我们可以用一些例如WPE, Sniffer之类的工具

来达到目的.但是工具功能有限,要想实现更强大的功能,还是我们自己动手来DIY吧.

拦截网络数据封包的方法有三种,一是将网卡设为混杂模式,这次就可以监视到局域

网上所有的数据包,二是HOOK目标进程的发送和接收的API函数,第三种方法是自己实现

一个代理的DLL.在这里我们使用HOOK API的方法,这样易于实现,而且也不会得到大量的

无用数据(如第一种方法就会监视到所有的网络数据).

下面是一个尽量简化了的API HOOK的模版,原理是利用消息钩子将DLL中的代码

注入到目标进程中,再用GetProcAddress得到API函数入口地址,将函数入口址改为自己

定义的函数入口,这样就得到了API函数的相应参数,处理完后,再改回真实API函数入口地

址,并调用它.

的代码:

library Hook;

uses

SysUtils,

windows,

Messages,

APIHook in '';

type

PData = ^TData;

TData = record

Hook: THandle;

Hooked: Boolean;

end;

var

DLLData: PData;

{------------------------------------}

{过程名:HookProc

{过程功能:HOOK过程