Winsock2.2 隐藏真实IP地址

【内容摘要】一、前言本文主要介绍如何在程序中实现ip地址的隐藏。其实这篇东西不算我写的。其中《ip头结构》部分我懒得打字，故复制、粘贴了孤独剑客的文章，先说声谢谢！代码部分参考了外国程序xes写的一个程序。所以这只是学习过程中的一个副产品。既然程序已经做好了，就顺便放上来跟大家一起交流，共同提高吧。本文只不过想说明一下ip数据的结构和发送机制。如果有人把它改为恶意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;
　　
　　// udp 头
　　type
　　t_udp_header = record
　　src_portno : word;
　　dst_portno : word;
　　udp_length : word;
　　udp_checksum : word;
　　end;
　　
　　// 一些 winsock 2 的类型声明
　　u_char = char;
　　u_short = word;
　　u_int = integer;
　　u_long = longint;
　　
　　sunb = packed record
　　s_b1, s_b2, s_b3, s_b4: u_char;
　　end;
　　sunw = packed record
　　s_w1, s_w2: u_short;
　　end;
　　in_addr = record
　　case integer of
　　0: (s_un_b: sunb);
　　1: (s_un_w: sunw);
　　2: (s_addr: u_long);
　　end;
　　tinaddr = in_addr;
　　sockaddr_in = record
　　case integer of
　　0: (sin_family: u_short;
　　sin_port: u_short;
　　sin_addr: tinaddr;
　　sin_zero: array[0..7] of char);
　　1: (sa_family: u_short;
　　sa_data: array[0..13] of char)
　　end;
　　tsockaddr = sockaddr_in;
　　tsocket = u_int;
　　
　　const
　　wsadescription_len = 256;
　　wsasys_status_len = 128;
　　
　　type
　　pwsadata = ^twsadata;
　　wsadata = record // wsdata
　　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;
　　twsadata = wsadata;
　　
　　//定义一些 winsock 2 函数
　　function closesocket(s: tsocket): integer; stdcall;
　　function socket(af, struct, protocol: integer): tsocket; stdcall;
　　function sendto(s: tsocket; var buf; len, flags: integer; var addrto: tsockaddr;
　　tolen: integer): integer; stdcall;{}
　　function setsockopt(s: tsocket; level, optname: integer; optval: pchar;
　　optlen: integer): integer; stdcall;
　　function inet_addr(cp: pchar): u_long; stdcall; {pinaddr;} { tinaddr }
　　function htons(hostshort: u_short): u_short; stdcall;
　　function wsagetlasterror: integer; stdcall;
　　function wsastartup(wversionrequired: word; var wsdata: twsadata): integer; stdcall;
　　function wsacleanup: integer; stdcall;
　　
　　const
　　af_inet = 2; // internetwork: udp, tcp, etc.
　　
　　ip_hdrincl = 2; // ip header include
　　
　　sock_raw = 3; // raw-protocol interface
　　
　　ipproto_ip = 0; // dummy for ip
　　ipproto_tcp = 6; // tcp
　　ipproto_udp = 17; // user datagram protocol
　　ipproto_raw = 255; // raw ip packet
　　
　　invalid_socket = tsocket(not(0));
　　socket_error = -1;
　　
　　var
　　form1: tform1;
　　
　　implementation
　　
　　// import winsock 2 functions
　　const winsocket = 'ws2_32.dll';
　　
　　function closesocket; external winsocket name 'closesocket';
　　function socket; external winsocket name 'socket';
　　function sendto; external winsocket name 'sendto';
　　function setsockopt; external winsocket name 'setsockopt';
　　function inet_addr; external winsocket name 'inet_addr';
　　function htons; external winsocket name 'htons';
　　function wsagetlasterror; external winsocket name 'wsagetlasterror';
　　function wsastartup; external winsocket name 'wsastartup';
　　function wsacleanup; external winsocket name 'wsacleanup';
　　
　　
　　{$r *.dfm}
　　
　　function checksum(var buffer; size : integer) : word;
　　type
　　twordarray = array[0..1] of word;
　　var
　　chksum : longword;
　　i : integer;
　　begin
　　chksum := 0;
　　i := 0;
　　while size > 1 do begin
　　chksum := chksum + twordarray(buffer);
　　inc(i);
　　size := size - sizeof(word);
　　end;
　　
　　if size=1 then chksum := chksum + byte(twordarray(buffer));
　　
　　c
本贴来自天极网群乐社区--http://q.yesky.com/group/review-17620469.html