用OpenSSL编写SSL,TLS程序(6)

if (SSL_CTX_use_certificate_file(ctx, CERTF, SSL_FILETYPE_PEM) <= 0) {
    ERR_print_errors_fp(stderr);
    exit(3);
  }
  if (SSL_CTX_use_PrivateKey_file(ctx, KEYF, SSL_FILETYPE_PEM) <= 0) {
    ERR_print_errors_fp(stderr);
    exit(4);
  }
 
  if (!SSL_CTX_check_private_key(ctx)) {
    printf("Private key does not match the certificate public key/n");
    exit(5);
  }
 
  SSL_CTX_set_cipher_list(ctx,"RC4-MD5");
 
  /*开始正常的TCP socket过程.................................*/
  printf("Begin TCP socket.../n");
 
  listen_sd = socket (AF_INET, SOCK_STREAM, 0);  
  CHK_ERR(listen_sd, "socket");
 
  memset (&sa_serv, '/0', sizeof(sa_serv));
  sa_serv.sin_family      = AF_INET;
  sa_serv.sin_addr.s_addr = INADDR_ANY;
  sa_serv.sin_port        = htons (PORT);        
 
  err = bind(listen_sd, (struct sockaddr*) &sa_serv,

sizeof (sa_serv));

CHK_ERR(err, "bind");
        
  /* 接受 TCP 链接 */
  err = listen (listen_sd, 5);                  
  CHK_ERR(err, "listen");
 
  client_len = sizeof(sa_cli);
  sd = accept (listen_sd, (struct sockaddr*) &sa_cli, &client_len);
  CHK_ERR(sd, "accept");
  closesocket (listen_sd);
 
  printf ("Connection from %lx, port %x/n",
      sa_cli.sin_addr.s_addr, sa_cli.sin_port);
 
  /*TCP 连接已建立 , 进行服务端的 SSL 过程 . */
  printf("Begin server side SSL/n");
 
  ssl = SSL_new (ctx);                          
  CHK_NULL(ssl);
  SSL_set_fd (ssl, sd);
  err = SSL_accept (ssl);
  printf("SSL_accept finished/n");
  CHK_SSL(err);
 
  /* 打印所有加密算法的信息 ( 可选 )*/
  printf ("SSL connection using %s/n", SSL_get_cipher (ssl));
 
  /* 得到服务端的证书并打印些信息 ( 可选 ) */
  client_cert = SSL_get_peer_certificate (ssl);
  if (client_cert != NULL) {
    printf ("Client certificate:/n");
  
    str = X509_NAME_oneline (X509_get_subject_name (client_cert), 0, 0);
    CHK_NULL(str);
    printf ("/t subject: %s/n", str);
    Free (str);
  
    str = X509_NAME_oneline (X509_get_issuer_name  (client_cert), 0, 0);
    CHK_NULL(str);
    printf ("/t issuer: %s/n", str);
    Free (str);
  
    X509_free (client_cert);/* 如不再需要 , 需将证书释放 */
  }
  else
    printf ("Client does not have certificate./n");
 
  /* 数据交换开始 , 用 SSL_write,SSL_read 代替 write,read */
  err = SSL_read (ssl, buf, sizeof(buf) - 1);                  
  CHK_SSL(err);
  buf[err] = '/0';
  printf ("Got %d chars:'%s'/n", err, buf);
 
  err = SSL_write (ssl, "I hear you.", strlen("I hear you."));
  CHK_SSL(err);
 
  /* 收尾工作 */
  shutdown (sd,2);
  SSL_free (ssl);
  SSL_CTX_free (ctx);
 
  return 0;
}
/*****************************************************************
* EOF - serv.cpp
*****************************************************************/