[:)]        IP地址的隐藏  一、前言 　 本文主要介绍如何在程序中实现IP地址的隐藏。其实这篇东西不算我写的。其中《IP头结构》部分我懒得打字，故复制、粘贴了孤独剑客的文章，先说声谢谢！代码部分参考了外国程序xes写的一个程序。所以这只是学习过程中的一个副产品。既然程序已经做好了，就顺便放上来跟大家一起交流，共同提高吧。本文只不过想说明一下IP数据的结构和发送机制。如果有人把它改为恶意IP攻击工具，后果自负。  二、IP头结构       我们知道，TCP/IP网络数据全部是通过封装在IP数据包中在Internet网上传送的，也就是封装建立起一个包含IP头和数据的IP数据报。一般来说，网络软件总是以多个32位字产生IP头，即使必须用附加的0填充IP头。IP头包含了传输IP数据包中封装数据的所有必要信息。IP头的数据结构和描述如下： 成员 长度(Bit) 描述  Version 4 IP头的版本号，目前是IPv4，最新是IPv6  Header Length 4 IP头的长度，若没有特殊选择，IP头总是20字节长  Type of Service 8 服务类型，定义了数据传输的优先级、延迟、吞吐量和可靠性等特性  Total Packet Length 16 IP包的长度，若没有特殊选项，一般为20字节长  Identification 16 IP包标识，主机使用它唯一确定每个发送的数据报  Flag 3 IP数据分割标志  Fragment Offset 13 IP数据分割偏移  Time to Live 8 数据报在网络上的存活时间，每通过一个路由器，该数值减一  Protocol 8 TCP/IP协议类型，比如：ICMP为1，IGMP为2，TCP为6， UDP为17等  Header Checksum 16 头部检验和  Source IP Address 32 源IP地址  Destination IP Address 32 目的IP地址  Other ? 其他选项  Data ? 数据        实现自己定义的IP头是一件非常有意义的事情，比如，通过改变IP头里的TOS的优先级和TTL，你可以使自己的数据包有更强的传输能力和寿命，通过修改IP头里的源IP地址就可以隐藏自己机器的IP地址等等。象著名攻击程序“泪滴TearDrop”就是通过故意制造系统不能处理的分片IP包而实现的，还有SYN Flooder和 UDP Flooder就是通过产生随机源IP实现欺骗的。 三、实现原理       一般来说，自定义IP头是通过使用socket的库函数setsockopt()的选项IP_HDRINCL来实现的，尽管这在unix和linux平台上很容易实现，但遗憾的是在Windows平台的Winsock1.1和Winsock2.0函数库里setsockopt()不支持IP_HDRINCL选项，所以在Windows 9x/NT里是无法通过Winsock函数库来实现IP头自定义的，当然可以通过编写虚拟设备驱动程序来实现，不过比较复杂，但Windows 2000的出现打破了这种局面，Windows2000的Winsock2.2函数库里全面支持setsockopt()的选项IP_HDRINCL，使得我们轻松就可以实现自定义的IP头。实现方法如下： 四、代码部分 {  1. 本程序只能运行于 Window 2000. 2. 你必须有 Administrator 权限. 3. 程序需要用到一个 button 和一个 memo. ---------------------------------------------------------------------- 运行程序前，请根据自己的需要改变 SrcIP、SrcPort、DestIP和DestPort的值  ---------------------------------------------------------------------- 如果你看不懂以下代码，最好不要去运行它。 ---------------------------------------------------------------------- } unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, Registry; Const SrcIP = '123.123.123.1';//发送方IP地址 SrcPort = 1234;         //发送方端口 DestIP = '127.0.0.2';   //目的IP地址 DestPort = 4321;        //目的端口 Max_Message = 4068; Max_Packet = 4096; type TPacketBuffer = Array[0..Max_Packet-1] of byte; TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure SendIt; end; // IP 头 type T_IP_Header = record ip_verlen : Byte; ip_tos : Byte; ip_totallength : Word; ip_id : Word; ip_offset : Word; ip_ttl : Byte; ip_protocol : Byte; ip_checksum : Word; ip_srcaddr : LongWord; ip_destaddr : LongWord; end; //