TCP打洞方法

1.TCP穿透原理：(俗称打洞机制)
我们假设在两个不同的局域网后面分别有2台客户机A和 B，AB所在的局域网都分别通过一个路由器接入互联网。
互联网上有一台服务器S。现在AB是无法直接和对方发送信息的，AB都不知道对方在互联网上真正的IP和端口，
AB所在的局域网的路由器只允许内部向外主动发送的信息通过。对于B直接发送给A的路由器的消息，路由会
认为其“不被信任”而直接丢弃。要实现 AB直接的通讯，就必须进行以下3步：A首先连接互联网上的服务器S并发送一条消息
对于UDP这种无连接的协议其实直接初始会话发送消息即可），这样S就获取了A在互联网上的实际终端（发送消息的IP和端口号）。
接着 B也进行同样的步骤，S就知道了AB在互联网上的终端（这就是“打洞”）。接着S分别告诉A和B对方客户端在互联网上的实际终端，
也即S告诉A客户B的会话终端，S告诉B客户A的会话终端。这样，在AB都知道了对方的实际终端之后，就可以直接通过实际终端发送消息了
因为先前双方都向外发送过消息，路由上已经有允许数据进出的消息通道）。

2,设计思路
假设我们有两台处于不同内网的两台机器A和B和一台众所周知外网IP的服务器S，而机器A中运行着通讯的服务端程序B运行着通讯的客户端程序，
那么
1、A连接S，S记录A的外网IP与通讯的端口
2、B连接S
3、S将B与此通讯的端口号返回给A
4、S将A与此连接的IP与端口号返回给B
5、A在程序中将服务绑定并侦听在从S返回的端口
6、B使用从S返回的IP与端口连接A

这样A与B就成功连接了,这里需要注意的一点就是两个socket在同一个端口绑定的问题，socket提供了setsockopt函数，

其中参数SO_REUSEADDR可以解决这个问题.sss

//代码示例：

S中的程序
*/
#include <stdio.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <arpa/inet.h>
#include <netinet/in.h>
 
typedef struct sockaddr SA;
typedef struct sockaddr_in SA_IN;
 
typedef struct
{
     struct in_addr ip;
     int port;
}IP; //记录ip与端口
 
int main(int argc,char **argv)
{
 SA_IN server,addr;
 int sockfd;
 IP ip;
 char s;
 socklen_t addrlen=sizeof(SA_IN);
 
 sockfd=socket(AF_INET,SOCK_STREAM,0);
 if(sockfd == -1)
 {
  perror("socket");
  return -1;
 }
 bzero(&server,sizeof(SA_IN));
 server.sin_port=htons(8888);
 server.sin_family=AF_INET;
 server.sin_addr.s_addr=INADDR_ANY;
 if(bind(sockfd,(SA *)&server,sizeof(SA_IN)) == -1)
 {
  perror("bind");
  return -1;
 }
 if(listen(sockfd,20) == -1)
 {
  perror("listen");
  return -1;
 }
 
 while(1)
 {

 //以为内accept方法为阻塞状态，知道有连接时才会返回
 
  int newfd[2];
 
  newfd[0]=accept(sockfd,(SA *)&addr,&addrlen);
  //接收两个心跳包
  recv(newfd[0],&s,sizeof(char),0);
  memcpy(&ip.ip,&addr.sin_addr,sizeof(struct in_addr));
  ip.port=addr.sin_port;
  printf("%s\t%d OK\n",inet_ntoa(ip.ip),ntohs(ip.port));
 
  newfd[1]=accept(sockfd,(SA *)&addr,&addrlen);
  printf("%s\t%d OK\n",
    inet_ntoa(addr.sin_addr),ntohs(addr.sin_port));
 
  send(newfd[0],&ip,sizeof(IP),0);
  send(newfd[1],&ip,sizeof(IP),0);
 
  close(newfd[0]);
  close(newfd[1]);
 }
 
 return 0;
}
//A中的程序

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <arpa/inet.h>
 
#define SER "xxx.xxx.xxx.xxx"
#define PORT 8888
 
typedef struct
{
 struct in_addr ip;
 int port;
}IP; //ip与端口
 
typedef struct sockaddr SA;
typedef struct sockaddr_in SA_IN;
 
//回射服务
void echo_ser(int sockfd)
{
 char buf[1024];
 
 while(1)
 {
  bzero(buf,sizeof(buf));
  //接收B发来的数据
  recv(sockfd,buf,sizeof(buf)-1,0);
  printf("%s",buf);
  //向B发送数据
  send(sockfd,buf,strlen(buf),0);
 
  buf[strlen(buf)-1]='\0';
  if(strcmp(buf,"exit") == 0)
   break;
 }
}
 
int main(int argc,char **argv)
{
 int sockfd,sockfd2;
 SA_IN server,addr;
 IP ip;
 socklen_t addrlen=sizeof(SA_IN);
 char s='a';
 int flags=1;
 
 sockfd=socket(AF_INET,SOCK_STREAM,0);
 
 bzero(&server,sizeof(SA_IN));
 server.sin_family=AF_INET;
 server.sin_addr.s_addr=inet_addr(SER);
 server.sin_port=htons(PORT);

 //设置地址重用
 if(setsockopt(sockfd,SOL_SOCKET,SO_REUSEADDR,&flags,sizeof(int)) == -1)
 perror("setsockopt sockfd");
 connect(sockfd,(SA *)&server,sizeof(SA_IN));
 send(sockfd,&s,sizeof(char),0);
 recv(sockfd,&ip,sizeof(IP),0);
 close(sockfd);
 
 sockfd2=socket(AF_INET,SOCK_STREAM,0);
 if(sockfd2 == -1)
  perror("sockfd2");
 if(setsockopt(sockfd2,SOL_SOCKET,SO_REUSEADDR,&flags,sizeof(int)) == -1)
  perror("setsockopt sockfd2");
 server.sin_addr.s_addr=INADDR_ANY;
 server.sin_port=ip.port;
 if(bind(sockfd2,(SA *)&server,sizeof(SA_IN)) == -1)
  perror("bind sockfd");
 if(listen(sockfd2,20) == -1)
  perror("listen");
 
 echo_ser(accept(sockfd2,(SA *)&addr,&addrlen));
 
 close(sockfd2);
 
 return 0;
}
//B中的程序

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <arpa/inet.h>
 
#define SER "xxx.xxx.xxx.xxx"
#define PORT 8888
 
typedef struct
{
 struct in_addr ip;
 int port;
}IP; //ip与端口
 
typedef struct sockaddr SA;
typedef struct sockaddr_in SA_IN;
 
void echo_cli(int sockfd)
{
 char buf[1024];
 
 while(1)
 {
  bzero(buf,sizeof(buf));
  printf(">");
  fflush(stdout);
  fgets(buf,sizeof(buf)-1,stdin);
  send(sockfd,buf,strlen(buf),0);
 
  bzero(buf,sizeof(buf));
  recv(sockfd,buf,sizeof(buf)-1,0);
  printf("%s",buf);
  buf[strlen(buf)-1]='\0';
  if(strcmp(buf,"exit") == 0)
   break;
 }
}
 
int main(int argc,char **argv)
{
 int sockfd,sockfd2;
 SA_IN server,addr;
 IP ip;
 socklen_t addrlen=sizeof(SA_IN);
 
 sockfd=socket(AF_INET,SOCK_STREAM,0);
 
 bzero(&server,sizeof(SA_IN));
 server.sin_family=AF_INET;
 server.sin_addr.s_addr=inet_addr(SER);
 server.sin_port=htons(PORT);
 
 connect(sockfd,(SA *)&server,sizeof(SA_IN));
 recv(sockfd,&ip,sizeof(IP),0);
 close(sockfd);
 
 sockfd2=socket(AF_INET,SOCK_STREAM,0);
 server.sin_addr=ip.ip;
 server.sin_port=ip.port;
 while(connect(sockfd2,(SA *)&server,sizeof(SA_IN)) == -1)
  perror("connect");
 
 echo_cli(sockfd2);
 
 close(sockfd2);
 return 0;
}