- 1、本文档共5页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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:28A(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:28A(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:28A(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 ProUDPP2PSer.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)