如何判断是TCP包还是UDP包

[xyfw07]

function MySend(s:TSocket;var Buf; len, flags: Integer):Integer;stdcall;
begin
{这里是对HOOK函数Send的处理}
{对s，buf数据的判断，如何判断是TCP包还是UDP包？}
end;

[僵哥]

把socket/WSASocket和closesocket也一起hook掉，申请socket的时候记录下相应的socket类别，然后在closesocket当中再把记录清除。

[僵哥]

也可以通过

       getsockopt(  SocketHandle
                  , SOL_SOCKET
                  , $700C{SO_CONNECT_TIME}
                  , @Connect_Time
                  , nSize)

由于SO_CONNECT_TIME仅对有连接的socket有效，所以也可以判断出来。

[僵哥]

还可以通过getsockopt(SocketHandle, SOL_SOCKET, SO_PROTOCOL_INFO, @WSAPROTOCOL_INFO, WSAPROTOCOL_LEN)
取得WSAPROTOCOL_INFO结构信息，然后dwServiceFlags1是否包含XP1_CONNECTIONLESS ，如果未包含则是TCP，否则就是其它无连接状态的协议，比如UDP。

[willflyz]

学习!

[xyfw07]

delphi中我没有找到SO_PROTOCOL_INFO, WSAPROTOCOL_INFO, WSAPROTOCOL_LEN的定义呀，是不是要重新定义这样的
结构？

[僵哥]

[Quote=引用 5 楼 xyfw07 的回复:]
delphi中我没有找到SO_PROTOCOL_INFO, WSAPROTOCOL_INFO, WSAPROTOCOL_LEN的定义呀，是不是要重新定义这样的
结构？
[/Quote]
是的。或者找有相关字义的单元，比如某些winsock2.pas

[xyfw07]

我手头上就有winsock2.pas，但是还是缺少SO_PROTOCOL_INFO, WSAPROTOCOL_LEN。

[xyfw07]

成功了！原来我手头上的winsock2.pas我以前做过修改，我说呢会少一些结构，现在好了。谢谢相助。