S
sbzldlb
Unregistered / Unconfirmed
GUEST, unregistred user!
type
Ttcphdr=record //定义TCP首部
TCP_Sport :word; //16位源端口
TCP_Dport :word; //16位目的端口
th_seq :longword; //32位序列号
th_ack :longword; //32位确认号
th_lenres :byte; //4位首部长度/6位保留字
th_flag :char; //6位标志位
th_win :word; //16位窗口大小
th_sum :word; //16位校验和
th_urp :word; //16位紧急数据偏移量
end;
itcpSize := sizeof(tcpHdr) div sizeof(LongWord)+length(strMessage);
tcphdr.TCP_Sport:=htons(SrcPort);
tcphdr.TCP_Dport:=htons(DestPort);
tcphdr.th_seq:=3187130439;
tcphdr.th_ack:=2336409226;
tcphdr.th_lenres:=5;
tcphdr.th_flag:='0';
tcphdr.th_win:=0;
tcphdr.th_sum:=itcpSize;
tcphdr.th_urp:=0;
tcphdr这个结构里面的参数我应该怎么设置呢
Ttcphdr=record //定义TCP首部
TCP_Sport :word; //16位源端口
TCP_Dport :word; //16位目的端口
th_seq :longword; //32位序列号
th_ack :longword; //32位确认号
th_lenres :byte; //4位首部长度/6位保留字
th_flag :char; //6位标志位
th_win :word; //16位窗口大小
th_sum :word; //16位校验和
th_urp :word; //16位紧急数据偏移量
end;
itcpSize := sizeof(tcpHdr) div sizeof(LongWord)+length(strMessage);
tcphdr.TCP_Sport:=htons(SrcPort);
tcphdr.TCP_Dport:=htons(DestPort);
tcphdr.th_seq:=3187130439;
tcphdr.th_ack:=2336409226;
tcphdr.th_lenres:=5;
tcphdr.th_flag:='0';
tcphdr.th_win:=0;
tcphdr.th_sum:=itcpSize;
tcphdr.th_urp:=0;
tcphdr这个结构里面的参数我应该怎么设置呢