UDP打洞原理,Delphi演示.doc

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
UDP打洞原理,Delphi演示

UDP打洞原理,Delphi演示 1. NAT分类 根据Stun协议(RFC3489),NAT大致分为下面四类 1) Full Cone 这种NAT内部的机器A连接过外网机器C后,NAT会打开一个端口.然后外网的任何发到这个打开的端口的UDP数据报都可以到达A.不管是不是C发过来的. 例如 A:00 NAT:00 C:28 A(00:5000) - NAT(00 : 8000) - C(28:2000) 任何发送到 NAT(00:8000)的数据都可以到达A(00:5000) 2) Restricted Cone 这种NAT内部的机器A连接过外网的机器C后,NAT打开一个端口.然后C可以用任何端口和A通信.其他的外网机器不行. 例如 A:00 NAT:00 C:28 A(00:5000) - NAT(00 : 8000) - C(28:2000) 任何从C发送到 NAT(00:8000)的数据都可以到达A(00:5000) 3) Port Restricted Cone 这种NAT内部的机器A连接过外网的机器C后,NAT打开一个端口.然后C可以用原来的端口和A通信.其他的外网机器不行. 例如 A:00 NAT:00 C:28 A(00:5000) - NAT(00 : 8000) - C(28:2000) C(8:2000)发送到 NAT(00:8000)的数据都可以到达A(00:5000) 以上三种NAT通称Cone NAT.我们只能用这种NAT进行UDP打洞. 4) Symmetic 对于这种NAT.连接不同的外部目标.原来NAT打开的端口会变化.而Cone NAT不会.虽然可以用端口猜测.但是成功的概率很小.因此放弃这种NAT的UDP打洞. 2. UDP hole punching 对于Cone NAT.要采用UDP打洞.需要一个公网机器C来充当”介绍人”.内网的A,B先分别和C通信.打开各自的NAT端口.C这个时候知道A,B的公网IP: Port. 现在A和B想直接连接.比如A给B发.除非B是Full Cone.否则不能通信.反之亦然.但是我们可以这样. A要连接B.A给B发一个UDP包.同时.A让那个介绍人给B发一个命令,让B同时给A发一个UDP包.这样双方的NAT都会记录对方的IP,然后就会允许互相通信. 3. 同一个NAT后面的情况 如果A,B在同一个NAT后面.如果用上面的技术来进行互连.那么如果NAT支持loopback(就是本地到本地的转换),A,B可以连接,但是比较浪费带宽和NAT.有一种办法是,A,B和介绍人通信的时候,同时把自己的local IP也告诉服务器.A,B通信的时候,同时发local ip和公网IP.谁先到就用哪个IP.但是local ip就有可能不知道发到什么地方去了.比如A,B在不同的NAT后面但是他们各自的local ip段一样.A给B的local IP发的UDP就可能发给自己内部网里面的某某某了. 还有一个办法是服务器来判断A,B是否在一个NAT后面.(网络拓朴不同会不会有问题?) 下面放一个外网服务器与内网客户机传数据例子Delphi 7.0 +Windows XP Pro UDPP2PSer.dpr 程序代码 { 2009-5-6 客户端 UDP打洞演示,P2P应用,只是简单演示在些就不作容错检查了 HouSoft一人游走 Http://Www.YrYz.Net } program UDPP2PSer; {$APPTYPE CONSOLE} uses windows, SysUtils, winsock; const SER_PORT = 20956; var wsaData: TWSADATA; Sock: TSocket; ListAddr: TSockAddrIn; Thid: DWORD; s: string; procedure WorkThread; var Addr: TSockAddrIn; len, Num: integer; Buf: array[0..1023] of char; begin Num := 0; len := sizeof(Addr); Writeln(开始接收...); while true do begin FillChar(Buf, sizeof(Buf), #0); if recvfrom(Sock, Buf, sizeof(Buf), 0, Addr, len) SOCKET_ERROR then begin

文档评论(0)

pangzilva + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档