怎么样用DELPHI截取IP数据包！

Question

希望大峡们回答的详细点我的个小菜！

Answer 1

我们要实现的是封包的捕获：
   Delphi的封装的winsock是1.0版的，很自然winsock2就用不成。如果要使用winsock2我们要对winsock2在Delphi里面做一个接口，才可以使用winsock2。
   1、如何做winsock2的接口？
   1）我们要先定义winsock2.0所用得到的类型，在这里我们以WSA_DATA类型做示范，大家可以举一仿三的来实现winsock2其他类型的封装。
   我们要知道WSA_DATA类型会被用于WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer;，大家会发现WSData是引用参数，在传入参数时传的是变量的地址，所以我们对WSA_DATA做以下封装：
 const 
   WSADESCRIPTION_LEN     =   256; 
   WSASYS_STATUS_LEN      =   128; 
 type 
   PWSA_DATA = ^TWSA_DATA; 
   WSA_DATA = record 
     wVersion: Word; 
     wHighVersion: Word; 
     szDescription: array[0..WSADESCRIPTION_LEN] of Char; 
     szSystemStatus: array[0..WSASYS_STATUS_LEN] of Char; 
     iMaxSockets: Word; 
     iMaxUdpDg: Word; 
     lpVendorInfo: PChar; 
   end; 
   TWSA_DATA = WSA_DATA; 
   2）我们要从WS2_32.DLL引入winsock2的函数，在此我们也是以WSAStartup为例做函数引入：
  function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; stdcall;  implementation   const WinSocket2 = 'WS2_32.DLL'; 
  function WSAStartup; external winsocket name 'WSAStartup';   通过以上方法，我们便可以对winsock2做接口，下面我们就可以用winsock2做封包捕获了，不过首先要有一块网卡。因为涉及到正在运作的网络游戏安全问题，所以我们在这里以IP数据包为例做封包捕获，如果下面的某些数据类型您不是很清楚，请您查阅MSDN：
   1）我们要起动WSA，这时个要用到的WSAStartup函数，用法如下：
INTEGER WSAStartup(
                  wVersionRequired: word，
                  WSData: TWSA_DATA
                 )；
   2）使用socket函数得到socket句柄，m_hSocket:=Socket(AF_INET, SOCK_RAW, IPPROTO_IP); 用法如下：
INTEGER socket(af: Integer, 
              Struct: Integer, 
              protocol: Integer
             );   m_hSocket:=Socket(AF_INET, SOCK_RAW, IPPROTO_IP);在程序里m_hSocket为socket句柄，AF_INET，SOCK_RAW，IPPROTO_IP均为常量。   3)定义SOCK_ADDR类型，跟据我们的网卡IP给Sock_ADDR类型附值，然后我们使用bind函数来绑定我们的网卡，Bind函数用法如下：Type 
   IN_ADDR = record 
   S_addr : PChar;
  End;Type 
  TSOCK_ADDR = record 
   sin_family: Word;
   sin_port: Word;
   sin_addr : IN_ADDR
   sin_zero: array[0..7] of Char; 
  End;var
 LocalAddr:TSOCK_ADDR; LocalAddr.sin_family: = AF_INET;
 LocalAddr.sin_port: = 0;
 LocalAddr.sin_addr.S_addr: = inet_addr('192.168.1.1'); ／／这里你自己的网卡的IP地址,而inet_addr这个函数是winsock2的函数。 bind(m_hSocket, LocalAddr, sizeof(LocalAddr))；   4)用WSAIoctl来注册WSA的输入输出组件，其用法如下：INTEGER WSAIoctl(s:INTEGER, 
                dwIoControlCode : INTEGER, 
                lpvInBuffer :INTEGER,
                cbInBuffer : INTEGER, 
                lpvOutBuffer : INTEGER,
                cbOutBuffer: INTEGER, 
                lpcbBytesReturned : INTEGER, 
                lpOverlapped : INTEGER, 
                lpCompletionRoutine : INTEGER
               );
   5)下面做死循环，在死循环块里，来实现数据的接收。但是徇环中间要用Sleep()做延时，不然程序会出错。
   6)在循环块里，用recv函数来接收数据，recv函数用法如下：
INTEGER recv (s : INTEGER, 
             buffer:Array[0..4095] of byte, 
             length : INTEGER,
             flags : INTEGER,
            )；
   7)在buffer里就是我们接收回来的数据了，如果我们想要知道数据是什么地方发来的，那么，我们要定义一定IP包结构，用CopyMemory()把IP信息从buffer里面读出来就可以了，不过读出来的是十六进制的数据需要转换一下。