Delphi中inline Hook Socket API常见问题的解决 inline hook的原理

来源:转载 审核:网络 发布时间:2013-04-14

一.被注入代码的进程莫名其妙出错

这是由于多个线程对Socket API同时调用而造成的(inline hook api是用拆东墙补西墙的办法,这样一来自然会出问题).

这个问题用Win32的临界区(CriticalSection)内核对象可以解决(关于CriticalSection,具体参照<Windows核心编程>).

这里只给出MySend函数的代码模板:

function NewSend(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;

begin

EnterCriticalSection(pCS_Send);//进入临界区
Delphi中inline Hook Socket API常见问题的解决 inline hook的原理

//这里添加自己的代码

UnHookAPI(0);//自己写的API Hook单元中的函数

Result:=Send(s,buf,len,flags);

HOOKAPI(0,'wsock32.dll','send',@NewSend);//自己写的API Hook单元中的函数

LeaveCriticalSection(pCS_Send);//退出临界区

end;

二.无法读取Buf的内容.

问题产生的原因我也没有搞清楚,,不过我发现用Delphi内镶汇编可以解决这个问题.代码如下:

function NewSend(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;

var

OutBuf:^String[100];

begin

EnterCriticalSection(pCS_Send);//进入临界区

asm

mov EDX,[Buf] //将Buf的地址读到EDX中

mov OutBuf,EDX //将EDX的值送入OutBuf中,这样一来,OutBuf^装的就是Buf的内容了.

end;

UnHookAPI(0);//自己写的API Hook单元中的函数

Result:=Send(s,buf,len,flags);

HOOKAPI(0,'wsock32.dll','send',@NewSend);//自己写的API Hook单元中的函数

LeaveCriticalSection(pCS_Send);//退出临界区

end;

HOOK发包和收包API要注意完整性

HOOK ws2_32.dll的send、sendto、recv、recvfrom已经可以适应绝大多数情况,但是,有时候还会漏包,就是因为HOOK得不完整,还有其他一些发包和收包函数。

为了完整,要HOOK的地址:

ws2_32.dll:

send

sendto

recv

recvfrom

WSASend

WSASendTo

WSARecv

WSARecvFrom

wsock32.dll:

send

sendto

recv

recvfrom

  

爱华网本文地址 » http://www.413yy.cn/a/25101011/84399.html

更多阅读

关于智能马桶常见问题的解答 智能家居常见问题解答

这几天陆续有妈妈咨询我关于智能马桶的一些问题,我大致的总结了一下,差不多能解决你们心中的疑惑,你们还有什么疑问欢迎来咨询,和你们交流的过程也是我学习的一个过程~问题一:全自动豪华版和半自动标准版有什么区别?全自动顾名思义就是

UV灯常见问题及解决方法 win10常见问题解决

UV灯常见问题及解决方法随着科技的发展UV灯更加广泛用于工业,然而设备操作者应该知晓一些产品的常见问题及解决方法。现在就UV灯的一些故障介绍如下:1、灯管用一些时间灯管两端就发黑或者发白的原因?(1)电极的纯度不够使用中挥发的

声明:《Delphi中inline Hook Socket API常见问题的解决 inline hook的原理》为网友回忆如烟烟如梦分享!如侵犯到您的合法权益请联系我们删除