SSL_CTX *initialize_ctx(keyfile,password)
char *keyfile;
char *password;
{
  SSL_METHOD *meth;
  SSL_CTX *ctx;

  if(!bio_err){
    // Инициализируем SSL и грузим строки описаний ошибок
    SSL_library_init();
    SSL_load_error_strings();

  // Контекст вывода ошибок
    bio_err=BIO_new_fp(stderr,BIO_NOCLOSE);
  }

  // Обработчик-заглушка для SIGPIPE
  signal(SIGPIPE,sigpipe_handle);

  // Создаем наш контекст
  meth=SSLv23_method();
  ctx=SSL_CTX_new(meth);

  // Грузим свои ключи и сертификаты
  if(!(SSL_CTX_use_certificate_chain_file(ctx,
  keyfile)))
    berr_exit("Can’t read certificate file");

  pass=password;
  SSL_CTX_set_default_passwd_cb(ctx,
  password_cb);
  if(!(SSL_CTX_use_PrivateKey_file(ctx,
  keyfile,SSL_FILETYPE_PEM)))
    berr_exit("Can’t read key file");

  // Грузим CA, которым доверяем
  if(!(SSL_CTX_load_verify_locations(ctx,
  CA_LIST,0)))
    berr_exit("Ca’t read CA list");
  #if (OPENSSL_VERSION_NUMBER < 0x0090600fL)
  SSL_CTX_set_verify_depth(ctx,1);
  #endif

  return ctx;
}

// Создаем TCP соединение
sock=tcp_connect(host,port);

// Соединяемся с SSL сокетом
ssl=SSL_new(ctx);
sbio=BIO_new_socket(sock,BIO_NOCLOSE);
SSL_set_bio(ssl,sbio,sbio);
if(SSL_connect(ssl)<=0)
  berr_exit("SSL connect error");
if(require_server_auth)
  check_cert(ssl,host);

void check_cert(ssl,host)
SSL *ssl;
char *host;
{
  X509 *peer;
  char peer_CN[256];

  if(SSL_get_verify_result(ssl)!=X509_V_OK)
    berr_exit("Certificate doesn’t verify");

  /* Проверяем цепь сертификатов. Длина цепи автоматически
  проверяется OpenSSL когда мы устанавливаем глубину проверки в ctx
  */

  // Проверяем common name
  peer=SSL_get_peer_certificate(ssl);
  X509_NAME_get_text_by_NID
  (X509_get_subject_name(peer),
  NID_commonName, peer_CN, 256);
  if(strcasecmp(peer_CN,host))
    err_exit("Common name doesn’t match host name");
}

request_len=strlen(REQUEST_TEMPLATE)+
strlen(host)+6;
if(!(request=(char *)malloc(request_len)))
  err_exit("Couldn’t allocate request");
sprintf(request,REQUEST_TEMPLATE,
host,port);

// Вычисляем количество символов запроса
request_len=strlen(request);
r=SSL_write(ssl,request,request_len);
switch(SSL_get_error(ssl,r)){
  case SSL_ERROR_NONE:
    if(request_len!=r)
      err_exit("Incomplete write!");
    break;
  default:
    berr_exit("SSL write problem");
}

while(1){
  r=SSL_read(ssl,buf,BUFSIZZ);
  switch(SSL_get_error(ssl,r)){
    case SSL_ERROR_NONE:
      len=r;
      break;
    case SSL_ERROR_ZERO_RETURN:
      goto shutdown; // не мой кусок кода :)
    case SSL_ERROR_SYSCALL:
      fprintf(stderr,
      "SSL Error: Premature close0);
      goto done;
    default:
      berr_exit("SSL read problem");
  }

  fwrite(buf,1,len,stdout);
}

while(1){
  if((s=accept(sock,0,0))<0)
    err_exit("Problem accepting");

  if((pid=fork())){
    close(s);
  }
  else {
    sbio=BIO_new_socket(s,BIO_NOCLOSE);
    ssl=SSL_new(ctx);
    SSL_set_bio(ssl,sbio,sbio);

    if((r=SSL_accept(ssl)<=0))
      berr_exit("SSL accept error");

    http_serve(ssl,s);
    exit(0);
  }
}

while(1){
  r=BIO_gets(io,buf,BUFSIZZ-1);

  switch(SSL_get_error(ssl,r)){
    case SSL_ERROR_NONE:
      len=r;
      break;
    default:
      berr_exit("SSL read problem");
  }
  // ищем пустую строку, чтобы определить конец заголовков
  if(!strcmp(buf,”\r\n”) || !strcmp(buf,”\n”))
    break;
}

if((r=BIO_puts
(io,"HTTP/1.0 200 OK\r\n"))<0)
  err_exit("Write error");
if((r=BIO_puts
(io,"Server: EKRServer\r\n\r\n"))<0)
  err_exit("Write error");
if((r=BIO_puts
 (io,"Server test page\r\n"))<0)
  err_exit("Write error");
if((r=BIO_flush(io))<0)
  err_exit("Error flushing BIO");

r=SSL_shutdown(ssl);
if(!r){
  /* если мы сначала вызовем SSL_shutdown() - всегда будем получать ’0’. 
  Попробуем совершить еще один вызов, но сначала отправим TCP FIN, чтобы заставить респондента послать close_notify*/
  shutdown(s,1);
  r=SSL_shutdown(ssl);
}

switch(r){
  case 1:
    break; // ok
  case 0:
  case -1:
  default:
    berr_exit("Shutdown failed");
}