lib/ssl.c

   1 /*
   2  * libwebsockets - small server side websockets and web server implementation
   3  *
   4  * Copyright (C) 2010-2017 Andy Green <andy@warmcat.com>
   5  *
   6  *  This library is free software; you can redistribute it and/or
   7  *  modify it under the terms of the GNU Lesser General Public
   8  *  License as published by the Free Software Foundation:
   9  *  version 2.1 of the License.
  10  *
  11  *  This library is distributed in the hope that it will be useful,
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  *  Lesser General Public License for more details.
  15  *
  16  *  You should have received a copy of the GNU Lesser General Public
  17  *  License along with this library; if not, write to the Free Software
  18  *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  19  *  MA  02110-1301  USA
  20  */
  21
  22 #include "private-libwebsockets.h"
  23
  24 /* workaround for mingw */
  25 #if !defined(ECONNABORTED)
  26 #define ECONNABORTED 103
  27 #endif
  28
  29 int lws_alloc_vfs_file(struct lws_context *context, const char *filename, uint8_t **buf,
  30                 lws_filepos_t *amount)
  31 {
  32         lws_filepos_t len;
  33         lws_fop_flags_t flags = LWS_O_RDONLY;
  34         lws_fop_fd_t fops_fd = lws_vfs_file_open(
  35                                 lws_get_fops(context), filename, &flags);
  36         int ret = 1;
  37
  38         if (!fops_fd)
  39                 return 1;
  40
  41         len = lws_vfs_get_length(fops_fd);
  42
  43         *buf = malloc((size_t)len);
  44         if (!buf)
  45                 goto bail;
  46
  47         if (lws_vfs_file_read(fops_fd, amount, *buf, len))
  48                 goto bail;
  49
  50         ret = 0;
  51 bail:
  52         lws_vfs_file_close(&fops_fd);
  53
  54         return ret;
  55 }
  56
  57 #if defined(LWS_WITH_ESP32)
  58 int alloc_file(struct lws_context *context, const char *filename, uint8_t **buf,
  59                lws_filepos_t *amount)
  60 {
  61         nvs_handle nvh;
  62         size_t s;
  63         int n = 0;
  64
  65         ESP_ERROR_CHECK(nvs_open("lws-station", NVS_READWRITE, &nvh));
  66         if (nvs_get_blob(nvh, filename, NULL, &s) != ESP_OK) {
  67                 n = 1;
  68                 goto bail;
  69         }
  70         *buf = malloc(s);
  71         if (!*buf) {
  72                 n = 2;
  73                 goto bail;
  74         }
  75         if (nvs_get_blob(nvh, filename, (char *)*buf, &s) != ESP_OK) {
  76                 free(*buf);
  77                 n = 1;
  78                 goto bail;
  79         }
  80
  81         *amount = s;
  82
  83 bail:
  84         nvs_close(nvh);
  85
  86         return n;
  87 }
  88 int alloc_pem_to_der_file(struct lws_context *context, const char *filename, uint8_t **buf,
  89                lws_filepos_t *amount)
  90 {
  91         uint8_t *pem, *p, *q, *end;
  92         lws_filepos_t len;
  93         int n;
  94
  95         n = alloc_file(context, filename, &pem, &len);
  96         if (n)
  97                 return n;
  98
  99         /* trim the first line */
 100
 101         p = pem;
 102         end = p + len;
 103         if (strncmp((char *)p, "-----", 5))
 104                 goto bail;
 105         p += 5;
 106         while (p < end && *p != '\n' && *p != '-')
 107                 p++;
 108
 109         if (*p != '-')
 110                 goto bail;
 111
 112         while (p < end && *p != '\n')
 113                 p++;
 114
 115         if (p >= end)
 116                 goto bail;
 117
 118         p++;
 119
 120         /* trim the last line */
 121
 122         q = end - 2;
 123
 124         while (q > pem && *q != '\n')
 125                 q--;
 126
 127         if (*q != '\n')
 128                 goto bail;
 129
 130         *q = '\0';
 131
 132         *amount = lws_b64_decode_string((char *)p, (char *)pem, len);
 133         *buf = pem;
 134
 135         return 0;
 136
 137 bail:
 138         free(pem);
 139
 140         return 4;
 141 }
 142 #endif
 143
 144 int openssl_websocket_private_data_index,
 145     openssl_SSL_CTX_private_data_index;
 146
 147 int lws_ssl_get_error(struct lws *wsi, int n)
 148 {
 149         if (!wsi->ssl)
 150                 return 99;
 151         lwsl_debug("%s: %p %d\n", __func__, wsi->ssl, n);
 152         return SSL_get_error(wsi->ssl, n);
 153 }
 154
 155 /* Copies a string describing the code returned by lws_ssl_get_error(),
 156  * which may also contain system error information in the case of SSL_ERROR_SYSCALL,
 157  * into buf up to len.
 158  * Returns a pointer to buf.
 159  *
 160  * Note: the lws_ssl_get_error() code is *not* an error code that can be passed
 161  * to ERR_error_string(),
 162  *
 163  * ret is the return value originally passed to lws_ssl_get_error(), needed to disambiguate
 164  * SYS_ERROR_SYSCALL.
 165  *
 166  * See man page for SSL_get_error().
 167  *
 168  * Not thread safe, uses strerror()
 169  */
 170 char* lws_ssl_get_error_string(int status, int ret, char *buf, size_t len) {
 171         switch (status) {
 172         case SSL_ERROR_NONE: return strncpy(buf, "SSL_ERROR_NONE", len);
 173         case SSL_ERROR_ZERO_RETURN: return strncpy(buf, "SSL_ERROR_ZERO_RETURN", len);
 174         case SSL_ERROR_WANT_READ: return strncpy(buf, "SSL_ERROR_WANT_READ", len);
 175         case SSL_ERROR_WANT_WRITE: return strncpy(buf, "SSL_ERROR_WANT_WRITE", len);
 176         case SSL_ERROR_WANT_CONNECT: return strncpy(buf, "SSL_ERROR_WANT_CONNECT", len);
 177         case SSL_ERROR_WANT_ACCEPT: return strncpy(buf, "SSL_ERROR_WANT_ACCEPT", len);
 178         case SSL_ERROR_WANT_X509_LOOKUP: return strncpy(buf, "SSL_ERROR_WANT_X509_LOOKUP", len);
 179         case SSL_ERROR_SYSCALL:
 180                 switch (ret) {
 181                 case 0:
 182                         lws_snprintf(buf, len, "SSL_ERROR_SYSCALL: EOF");
 183                         return buf;
 184                 case -1:
 185 #ifndef LWS_PLAT_OPTEE
 186                         lws_snprintf(buf, len, "SSL_ERROR_SYSCALL: %s", strerror(errno));
 187 #else
 188                         lws_snprintf(buf, len, "SSL_ERROR_SYSCALL: %d", errno);
 189 #endif
 190                         return buf;
 191                 default:
 192                         return strncpy(buf, "SSL_ERROR_SYSCALL", len);
 193         }
 194         case SSL_ERROR_SSL: return "SSL_ERROR_SSL";
 195         default: return "SSL_ERROR_UNKNOWN";
 196         }
 197 }
 198
 199 void
 200 lws_ssl_elaborate_error(void)
 201 {
 202 #if defined(LWS_WITH_ESP32)
 203 #else
 204         char buf[256];
 205         u_long err;
 206
 207         while ((err = ERR_get_error()) != 0) {
 208                 ERR_error_string_n(err, buf, sizeof(buf));
 209                 lwsl_err("*** %s\n", buf);
 210         }
 211 #endif
 212 }
 213
 214 #if !defined(LWS_WITH_ESP32)
 215
 216 static int
 217 lws_context_init_ssl_pem_passwd_cb(char * buf, int size, int rwflag, void *userdata)
 218 {
 219         struct lws_context_creation_info * info =
 220                         (struct lws_context_creation_info *)userdata;
 221
 222         strncpy(buf, info->ssl_private_key_password, size);
 223         buf[size - 1] = '\0';
 224
 225         return strlen(buf);
 226 }
 227
 228 void
 229 lws_ssl_bind_passphrase(SSL_CTX *ssl_ctx, struct lws_context_creation_info *info)
 230 {
 231         if (!info->ssl_private_key_password)
 232                 return;
 233         /*
 234          * password provided, set ssl callback and user data
 235          * for checking password which will be trigered during
 236          * SSL_CTX_use_PrivateKey_file function
 237          */
 238         SSL_CTX_set_default_passwd_cb_userdata(ssl_ctx, (void *)info);
 239         SSL_CTX_set_default_passwd_cb(ssl_ctx, lws_context_init_ssl_pem_passwd_cb);
 240 }
 241 #endif
 242
 243 int
 244 lws_context_init_ssl_library(struct lws_context_creation_info *info)
 245 {
 246 #ifdef USE_WOLFSSL
 247 #ifdef USE_OLD_CYASSL
 248         lwsl_notice(" Compiled with CyaSSL support\n");
 249 #else
 250         lwsl_notice(" Compiled with wolfSSL support\n");
 251 #endif
 252 #else
 253 #if defined(LWS_USE_BORINGSSL)
 254         lwsl_notice(" Compiled with BoringSSL support\n");
 255 #else
 256         lwsl_notice(" Compiled with OpenSSL support\n");
 257 #endif
 258 #endif
 259         if (!lws_check_opt(info->options, LWS_SERVER_OPTION_DO_SSL_GLOBAL_INIT)) {
 260                 lwsl_notice(" SSL disabled: no LWS_SERVER_OPTION_DO_SSL_GLOBAL_INIT\n");
 261                 return 0;
 262         }
 263
 264         /* basic openssl init */
 265
 266         lwsl_notice("Doing SSL library init\n");
 267
 268 #if !defined(LWS_WITH_ESP32)
 269         SSL_library_init();
 270         OpenSSL_add_all_algorithms();
 271         SSL_load_error_strings();
 272
 273         openssl_websocket_private_data_index =
 274                 SSL_get_ex_new_index(0, "lws", NULL, NULL, NULL);
 275
 276         openssl_SSL_CTX_private_data_index = SSL_CTX_get_ex_new_index(0,
 277                         NULL, NULL, NULL, NULL);
 278 #endif
 279
 280         return 0;
 281 }
 282
 283 LWS_VISIBLE void
 284 lws_ssl_destroy(struct lws_vhost *vhost)
 285 {
 286         if (!lws_check_opt(vhost->context->options,
 287                            LWS_SERVER_OPTION_DO_SSL_GLOBAL_INIT))
 288                 return;
 289
 290         if (vhost->ssl_ctx)
 291                 SSL_CTX_free(vhost->ssl_ctx);
 292         if (!vhost->user_supplied_ssl_ctx && vhost->ssl_client_ctx)
 293                 SSL_CTX_free(vhost->ssl_client_ctx);
 294 #if !defined(LWS_WITH_ESP32)
 295
 296 // after 1.1.0 no need
 297 #if (OPENSSL_VERSION_NUMBER <  0x10100000)
 298 // <= 1.0.1f = old api, 1.0.1g+ = new api
 299 #if (OPENSSL_VERSION_NUMBER <= 0x1000106f) || defined(USE_WOLFSSL)
 300         ERR_remove_state(0);
 301 #else
 302 #if OPENSSL_VERSION_NUMBER >= 0x1010005f && \
 303     !defined(LIBRESSL_VERSION_NUMBER) && \
 304     !defined(OPENSSL_IS_BORINGSSL)
 305         ERR_remove_thread_state();
 306 #else
 307         ERR_remove_thread_state(NULL);
 308 #endif
 309 #endif
 310         ERR_free_strings();
 311         EVP_cleanup();
 312         CRYPTO_cleanup_all_ex_data();
 313 #endif
 314 #endif
 315 }
 316
 317 LWS_VISIBLE void
 318 lws_ssl_remove_wsi_from_buffered_list(struct lws *wsi)
 319 {
 320         struct lws_context *context = wsi->context;
 321         struct lws_context_per_thread *pt = &context->pt[(int)wsi->tsi];
 322
 323         if (!wsi->pending_read_list_prev &&
 324             !wsi->pending_read_list_next &&
 325             pt->pending_read_list != wsi)
 326                 /* we are not on the list */
 327                 return;
 328
 329         /* point previous guy's next to our next */
 330         if (!wsi->pending_read_list_prev)
 331                 pt->pending_read_list = wsi->pending_read_list_next;
 332         else
 333                 wsi->pending_read_list_prev->pending_read_list_next =
 334                         wsi->pending_read_list_next;
 335
 336         /* point next guy's previous to our previous */
 337         if (wsi->pending_read_list_next)
 338                 wsi->pending_read_list_next->pending_read_list_prev =
 339                         wsi->pending_read_list_prev;
 340
 341         wsi->pending_read_list_prev = NULL;
 342         wsi->pending_read_list_next = NULL;
 343 }
 344
 345 LWS_VISIBLE int
 346 lws_ssl_capable_read(struct lws *wsi, unsigned char *buf, int len)
 347 {
 348         struct lws_context *context = wsi->context;
 349         struct lws_context_per_thread *pt = &context->pt[(int)wsi->tsi];
 350         int n = 0;
 351 #if !defined(LWS_WITH_ESP32)
 352         int ssl_read_errno = 0;
 353 #endif
 354
 355         if (!wsi->ssl)
 356                 return lws_ssl_capable_read_no_ssl(wsi, buf, len);
 357
 358         lws_stats_atomic_bump(context, pt, LWSSTATS_C_API_READ, 1);
 359
 360         errno = 0;
 361         n = SSL_read(wsi->ssl, buf, len);
 362 #if defined(LWS_WITH_ESP32)
 363         if (!n && errno == ENOTCONN) {
 364                 lwsl_debug("%p: SSL_read ENOTCONN\n", wsi);
 365                 return LWS_SSL_CAPABLE_ERROR;
 366         }
 367 #endif
 368 #if defined(LWS_WITH_STATS)
 369         if (!wsi->seen_rx) {
 370                 lws_stats_atomic_bump(wsi->context, pt, LWSSTATS_MS_SSL_RX_DELAY,
 371                                 time_in_microseconds() - wsi->accept_start_us);
 372                 lws_stats_atomic_bump(wsi->context, pt, LWSSTATS_C_SSL_CONNS_HAD_RX, 1);
 373                 wsi->seen_rx = 1;
 374         }
 375 #endif
 376
 377
 378         lwsl_debug("%p: SSL_read says %d\n", wsi, n);
 379         /* manpage: returning 0 means connection shut down */
 380         if (!n) {
 381                 n = lws_ssl_get_error(wsi, n);
 382                 lwsl_debug("%p: ssl err %d errno %d\n", wsi, n, errno);
 383                 if (n == SSL_ERROR_ZERO_RETURN)
 384                         return LWS_SSL_CAPABLE_ERROR;
 385
 386                 if (n == SSL_ERROR_SYSCALL) {
 387 #if !defined(LWS_WITH_ESP32)
 388                         int err = ERR_get_error();
 389                         if (err == 0 && (ssl_read_errno == EPIPE ||
 390                                          ssl_read_errno == ECONNABORTED ||
 391                                          ssl_read_errno == 0))
 392                                 return LWS_SSL_CAPABLE_ERROR;
 393 #endif
 394                 }
 395
 396                 lwsl_err("%s failed: %s\n",__func__,
 397                          ERR_error_string(lws_ssl_get_error(wsi, 0), NULL));
 398                 lws_ssl_elaborate_error();
 399
 400                 return LWS_SSL_CAPABLE_ERROR;
 401         }
 402
 403         if (n < 0) {
 404                 n = lws_ssl_get_error(wsi, n);
 405                 // lwsl_notice("get_ssl_err result %d\n", n);
 406                 if (n ==  SSL_ERROR_WANT_READ || SSL_want_read(wsi->ssl)) {
 407                         lwsl_debug("%s: WANT_READ\n", __func__);
 408                         lwsl_debug("%p: LWS_SSL_CAPABLE_MORE_SERVICE\n", wsi);
 409                         return LWS_SSL_CAPABLE_MORE_SERVICE;
 410                 }
 411                 if (n ==  SSL_ERROR_WANT_WRITE || SSL_want_write(wsi->ssl)) {
 412                         lwsl_debug("%s: WANT_WRITE\n", __func__);
 413                         lwsl_debug("%p: LWS_SSL_CAPABLE_MORE_SERVICE\n", wsi);
 414                         return LWS_SSL_CAPABLE_MORE_SERVICE;
 415                 }
 416
 417
 418                 lwsl_err("%s failed2: %s\n",__func__,
 419                                  ERR_error_string(lws_ssl_get_error(wsi, 0), NULL));
 420                         lws_ssl_elaborate_error();
 421
 422                 return LWS_SSL_CAPABLE_ERROR;
 423         }
 424
 425         lws_stats_atomic_bump(context, pt, LWSSTATS_B_READ, n);
 426
 427         if (wsi->vhost)
 428                 wsi->vhost->conn_stats.rx += n;
 429
 430         lws_restart_ws_ping_pong_timer(wsi);
 431
 432         /*
 433          * if it was our buffer that limited what we read,
 434          * check if SSL has additional data pending inside SSL buffers.
 435          *
 436          * Because these won't signal at the network layer with POLLIN
 437          * and if we don't realize, this data will sit there forever
 438          */
 439         if (n != len)
 440                 goto bail;
 441         if (!wsi->ssl)
 442                 goto bail;
 443
 444         if (!SSL_pending(wsi->ssl))
 445                 goto bail;
 446
 447         if (wsi->pending_read_list_next)
 448                 return n;
 449         if (wsi->pending_read_list_prev)
 450                 return n;
 451         if (pt->pending_read_list == wsi)
 452                 return n;
 453
 454         /* add us to the linked list of guys with pending ssl */
 455         if (pt->pending_read_list)
 456                 pt->pending_read_list->pending_read_list_prev = wsi;
 457
 458         wsi->pending_read_list_next = pt->pending_read_list;
 459         wsi->pending_read_list_prev = NULL;
 460         pt->pending_read_list = wsi;
 461
 462         return n;
 463 bail:
 464         lws_ssl_remove_wsi_from_buffered_list(wsi);
 465
 466         return n;
 467 }
 468
 469 LWS_VISIBLE int
 470 lws_ssl_pending(struct lws *wsi)
 471 {
 472         if (!wsi->ssl)
 473                 return 0;
 474
 475         return SSL_pending(wsi->ssl);
 476 }
 477
 478 LWS_VISIBLE int
 479 lws_ssl_capable_write(struct lws *wsi, unsigned char *buf, int len)
 480 {
 481         int n;
 482 #if !defined(LWS_WITH_ESP32)
 483         int ssl_read_errno = 0;
 484 #endif
 485
 486         if (!wsi->ssl)
 487                 return lws_ssl_capable_write_no_ssl(wsi, buf, len);
 488
 489         n = SSL_write(wsi->ssl, buf, len);
 490         if (n > 0)
 491                 return n;
 492
 493         n = lws_ssl_get_error(wsi, n);
 494         if (n == SSL_ERROR_WANT_READ || n == SSL_ERROR_WANT_WRITE) {
 495                 if (n == SSL_ERROR_WANT_WRITE) {
 496                         lwsl_debug("%s: WANT_WRITE\n", __func__);
 497                         lws_set_blocking_send(wsi);
 498                 }
 499                 return LWS_SSL_CAPABLE_MORE_SERVICE;
 500         }
 501
 502  if (n == SSL_ERROR_ZERO_RETURN)
 503   return LWS_SSL_CAPABLE_ERROR;
 504
 505 #if !defined(LWS_WITH_ESP32)
 506  if (n == SSL_ERROR_SYSCALL) {
 507
 508   int err = ERR_get_error();
 509   if (err == 0
 510     && (ssl_read_errno == EPIPE
 511      || ssl_read_errno == ECONNABORTED
 512      || ssl_read_errno == 0))
 513     return LWS_SSL_CAPABLE_ERROR;
 514  }
 515 #endif
 516
 517  lwsl_err("%s failed: %s\n",__func__,
 518    ERR_error_string(lws_ssl_get_error(wsi, 0), NULL));
 519         lws_ssl_elaborate_error();
 520
 521         return LWS_SSL_CAPABLE_ERROR;
 522 }
 523
 524 static int
 525 lws_gate_accepts(struct lws_context *context, int on)
 526 {
 527         struct lws_vhost *v = context->vhost_list;
 528
 529         lwsl_info("gating accepts %d\n", on);
 530         context->ssl_gate_accepts = !on;
 531 #if defined(LWS_WITH_STATS)
 532         context->updated = 1;
 533 #endif
 534
 535         while (v) {
 536                 if (v->use_ssl &&  v->lserv_wsi) /* gate ability to accept incoming connections */
 537                         if (lws_change_pollfd(v->lserv_wsi, (LWS_POLLIN) * !on, (LWS_POLLIN) * on))
 538                                 lwsl_err("Unable to set accept POLLIN %d\n", on);
 539
 540                 v = v->vhost_next;
 541         }
 542
 543         return 0;
 544 }
 545
 546 void
 547 lws_ssl_info_callback(const SSL *ssl, int where, int ret)
 548 {
 549         struct lws *wsi;
 550         struct lws_context *context;
 551         struct lws_ssl_info si;
 552
 553         context = (struct lws_context *)SSL_CTX_get_ex_data(
 554                                         SSL_get_SSL_CTX(ssl),
 555                                         openssl_SSL_CTX_private_data_index);
 556         if (!context)
 557                 return;
 558         wsi = wsi_from_fd(context, SSL_get_fd(ssl));
 559         if (!wsi)
 560                 return;
 561
 562         if (!(where & wsi->vhost->ssl_info_event_mask))
 563                 return;
 564
 565         si.where = where;
 566         si.ret = ret;
 567
 568         if (user_callback_handle_rxflow(wsi->protocol->callback,
 569                                                    wsi, LWS_CALLBACK_SSL_INFO,
 570                                                    wsi->user_space, &si, 0))
 571                 lws_set_timeout(wsi, PENDING_TIMEOUT_KILLED_BY_SSL_INFO, -1);
 572 }
 573
 574
 575 LWS_VISIBLE int
 576 lws_ssl_close(struct lws *wsi)
 577 {
 578         lws_sockfd_type n;
 579
 580         if (!wsi->ssl)
 581                 return 0; /* not handled */
 582
 583 #if defined (LWS_HAVE_SSL_SET_INFO_CALLBACK)
 584         /* kill ssl callbacks, becausse we will remove the fd from the
 585          * table linking it to the wsi
 586          */
 587         if (wsi->vhost->ssl_info_event_mask)
 588                 SSL_set_info_callback(wsi->ssl, NULL);
 589 #endif
 590
 591         n = SSL_get_fd(wsi->ssl);
 592         SSL_shutdown(wsi->ssl);
 593         compatible_close(n);
 594         SSL_free(wsi->ssl);
 595         wsi->ssl = NULL;
 596
 597         if (wsi->context->simultaneous_ssl_restriction &&
 598             wsi->context->simultaneous_ssl-- ==
 599                             wsi->context->simultaneous_ssl_restriction)
 600                 /* we made space and can do an accept */
 601                 lws_gate_accepts(wsi->context, 1);
 602 #if defined(LWS_WITH_STATS)
 603         wsi->context->updated = 1;
 604 #endif
 605
 606         return 1; /* handled */
 607 }
 608
 609 /* leave all wsi close processing to the caller */
 610
 611 LWS_VISIBLE int
 612 lws_server_socket_service_ssl(struct lws *wsi, lws_sockfd_type accept_fd)
 613 {
 614         struct lws_context *context = wsi->context;
 615         struct lws_context_per_thread *pt = &context->pt[(int)wsi->tsi];
 616         int n, m;
 617 #if !defined(USE_WOLFSSL) && !defined(LWS_WITH_ESP32)
 618         BIO *bio;
 619 #endif
 620         char buf[256];
 621
 622         if (!LWS_SSL_ENABLED(wsi->vhost))
 623                 return 0;
 624
 625         switch (wsi->mode) {
 626         case LWSCM_SSL_INIT:
 627         case LWSCM_SSL_INIT_RAW:
 628                 if (wsi->ssl)
 629                         lwsl_err("%s: leaking ssl\n", __func__);
 630                 if (accept_fd == LWS_SOCK_INVALID)
 631                         assert(0);
 632                 if (context->simultaneous_ssl_restriction &&
 633                     context->simultaneous_ssl >= context->simultaneous_ssl_restriction) {
 634                         lwsl_notice("unable to deal with SSL connection\n");
 635                         return 1;
 636                 }
 637                 errno = 0;
 638                 wsi->ssl = SSL_new(wsi->vhost->ssl_ctx);
 639                 if (wsi->ssl == NULL) {
 640                         lwsl_err("SSL_new failed: %d (errno %d)\n",
 641                                  lws_ssl_get_error(wsi, 0), errno);
 642
 643                         lws_ssl_elaborate_error();
 644                         if (accept_fd != LWS_SOCK_INVALID)
 645                                 compatible_close(accept_fd);
 646                         goto fail;
 647                 }
 648 #if defined (LWS_HAVE_SSL_SET_INFO_CALLBACK)
 649                 if (wsi->vhost->ssl_info_event_mask)
 650                         SSL_set_info_callback(wsi->ssl, lws_ssl_info_callback);
 651 #endif
 652                 if (context->simultaneous_ssl_restriction &&
 653                     ++context->simultaneous_ssl == context->simultaneous_ssl_restriction)
 654                         /* that was the last allowed SSL connection */
 655                         lws_gate_accepts(context, 0);
 656 #if defined(LWS_WITH_STATS)
 657         context->updated = 1;
 658 #endif
 659
 660 #if !defined(LWS_WITH_ESP32)
 661                 SSL_set_ex_data(wsi->ssl,
 662                         openssl_websocket_private_data_index, wsi);
 663 #endif
 664                 SSL_set_fd(wsi->ssl, accept_fd);
 665
 666 #ifdef USE_WOLFSSL
 667 #ifdef USE_OLD_CYASSL
 668                 CyaSSL_set_using_nonblock(wsi->ssl, 1);
 669 #else
 670                 wolfSSL_set_using_nonblock(wsi->ssl, 1);
 671 #endif
 672 #else
 673 #if defined(LWS_WITH_ESP32)
 674                 lws_plat_set_socket_options(wsi->vhost, accept_fd);
 675 #else
 676                 SSL_set_mode(wsi->ssl, SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER);
 677                 bio = SSL_get_rbio(wsi->ssl);
 678                 if (bio)
 679                         BIO_set_nbio(bio, 1); /* nonblocking */
 680                 else
 681                         lwsl_notice("NULL rbio\n");
 682                 bio = SSL_get_wbio(wsi->ssl);
 683                 if (bio)
 684                         BIO_set_nbio(bio, 1); /* nonblocking */
 685                 else
 686                         lwsl_notice("NULL rbio\n");
 687 #endif
 688 #endif
 689
 690                 /*
 691                  * we are not accepted yet, but we need to enter ourselves
 692                  * as a live connection.  That way we can retry when more
 693                  * pieces come if we're not sorted yet
 694                  */
 695
 696                 if (wsi->mode == LWSCM_SSL_INIT)
 697                         wsi->mode = LWSCM_SSL_ACK_PENDING;
 698                 else
 699                         wsi->mode = LWSCM_SSL_ACK_PENDING_RAW;
 700
 701                 if (insert_wsi_socket_into_fds(context, wsi)) {
 702                         lwsl_err("%s: failed to insert into fds\n", __func__);
 703                         goto fail;
 704                 }
 705
 706                 lws_set_timeout(wsi, PENDING_TIMEOUT_SSL_ACCEPT,
 707                                 context->timeout_secs);
 708
 709                 lwsl_debug("inserted SSL accept into fds, trying SSL_accept\n");
 710
 711                 /* fallthru */
 712
 713         case LWSCM_SSL_ACK_PENDING:
 714         case LWSCM_SSL_ACK_PENDING_RAW:
 715                 if (lws_change_pollfd(wsi, LWS_POLLOUT, 0)) {
 716                         lwsl_err("%s: lws_change_pollfd failed\n", __func__);
 717                         goto fail;
 718                 }
 719
 720                 lws_latency_pre(context, wsi);
 721
 722                 if (wsi->vhost->allow_non_ssl_on_ssl_port) {
 723
 724                         n = recv(wsi->desc.sockfd, (char *)pt->serv_buf, context->pt_serv_buf_size,
 725                                  MSG_PEEK);
 726
 727                 /*
 728                  * optionally allow non-SSL connect on SSL listening socket
 729                  * This is disabled by default, if enabled it goes around any
 730                  * SSL-level access control (eg, client-side certs) so leave
 731                  * it disabled unless you know it's not a problem for you
 732                  */
 733
 734                         if (n >= 1 && pt->serv_buf[0] >= ' ') {
 735                                 /*
 736                                 * TLS content-type for Handshake is 0x16, and
 737                                 * for ChangeCipherSpec Record, it's 0x14
 738                                 *
 739                                 * A non-ssl session will start with the HTTP
 740                                 * method in ASCII.  If we see it's not a legit
 741                                 * SSL handshake kill the SSL for this
 742                                 * connection and try to handle as a HTTP
 743                                 * connection upgrade directly.
 744                                 */
 745                                 wsi->use_ssl = 0;
 746
 747                                 SSL_shutdown(wsi->ssl);
 748                                 SSL_free(wsi->ssl);
 749                                 wsi->ssl = NULL;
 750                                 if (lws_check_opt(context->options,
 751                                     LWS_SERVER_OPTION_REDIRECT_HTTP_TO_HTTPS))
 752                                         wsi->redirect_to_https = 1;
 753                                 goto accepted;
 754                         }
 755                         if (!n) /*
 756                                  * connection is gone, or nothing to read
 757                                  * if it's gone, we will timeout on
 758                                  * PENDING_TIMEOUT_SSL_ACCEPT
 759                                  */
 760                                 break;
 761                         if (n < 0 && (LWS_ERRNO == LWS_EAGAIN ||
 762                                       LWS_ERRNO == LWS_EWOULDBLOCK)) {
 763                                 /*
 764                                  * well, we get no way to know ssl or not
 765                                  * so go around again waiting for something
 766                                  * to come and give us a hint, or timeout the
 767                                  * connection.
 768                                  */
 769                                 m = SSL_ERROR_WANT_READ;
 770                                 goto go_again;
 771                         }
 772                 }
 773
 774                 /* normal SSL connection processing path */
 775
 776 #if defined(LWS_WITH_STATS)
 777                 if (!wsi->accept_start_us)
 778                         wsi->accept_start_us = time_in_microseconds();
 779 #endif
 780
 781                 n = SSL_accept(wsi->ssl);
 782                 lws_latency(context, wsi,
 783                         "SSL_accept LWSCM_SSL_ACK_PENDING\n", n, n == 1);
 784                 lwsl_info("SSL_accept says %d\n", n);
 785                 if (n == 1)
 786                         goto accepted;
 787
 788                 m = lws_ssl_get_error(wsi, n);
 789
 790 #if defined(LWS_WITH_ESP32)
 791                 if (m == 5 && errno == 11)
 792                         m = SSL_ERROR_WANT_READ;
 793 #endif
 794
 795 go_again:
 796                 if (m == SSL_ERROR_WANT_READ || SSL_want_read(wsi->ssl)) {
 797                         if (lws_change_pollfd(wsi, 0, LWS_POLLIN)) {
 798                                 lwsl_err("%s: WANT_READ change_pollfd failed\n", __func__);
 799                                 goto fail;
 800                         }
 801
 802                         lwsl_info("SSL_ERROR_WANT_READ\n");
 803                         break;
 804                 }
 805                 if (m == SSL_ERROR_WANT_WRITE || SSL_want_write(wsi->ssl)) {
 806                         lwsl_debug("%s: WANT_WRITE\n", __func__);
 807
 808                         if (lws_change_pollfd(wsi, 0, LWS_POLLOUT)) {
 809                                 lwsl_err("%s: WANT_WRITE change_pollfd failed\n", __func__);
 810                                 goto fail;
 811                         }
 812
 813                         break;
 814                 }
 815                 lws_stats_atomic_bump(wsi->context, pt, LWSSTATS_C_SSL_CONNECTIONS_FAILED, 1);
 816                 lwsl_err("SSL_accept failed socket %u: %s\n", wsi->desc.sockfd,
 817                          lws_ssl_get_error_string(m, n, buf, sizeof(buf)));
 818                 lws_ssl_elaborate_error();
 819                 goto fail;
 820
 821 accepted:
 822                 lws_stats_atomic_bump(wsi->context, pt, LWSSTATS_C_SSL_CONNECTIONS_ACCEPTED, 1);
 823 #if defined(LWS_WITH_STATS)
 824                 lws_stats_atomic_bump(wsi->context, pt, LWSSTATS_MS_SSL_CONNECTIONS_ACCEPTED_DELAY, time_in_microseconds() - wsi->accept_start_us);
 825                 wsi->accept_start_us = time_in_microseconds();
 826 #endif
 827
 828                 /* OK, we are accepted... give him some time to negotiate */
 829                 lws_set_timeout(wsi, PENDING_TIMEOUT_ESTABLISH_WITH_SERVER,
 830                                 context->timeout_secs);
 831
 832                 if (wsi->mode == LWSCM_SSL_ACK_PENDING_RAW)
 833                         wsi->mode = LWSCM_RAW;
 834                 else
 835                         wsi->mode = LWSCM_HTTP_SERVING;
 836
 837                 lws_http2_configure_if_upgraded(wsi);
 838
 839                 lwsl_debug("accepted new SSL conn\n");
 840                 break;
 841         }
 842
 843         return 0;
 844
 845 fail:
 846         return 1;
 847 }
 848
 849 void
 850 lws_ssl_SSL_CTX_destroy(struct lws_vhost *vhost)
 851 {
 852         if (vhost->ssl_ctx)
 853                 SSL_CTX_free(vhost->ssl_ctx);
 854
 855         if (!vhost->user_supplied_ssl_ctx && vhost->ssl_client_ctx)
 856                 SSL_CTX_free(vhost->ssl_client_ctx);
 857 }
 858
 859 void
 860 lws_ssl_context_destroy(struct lws_context *context)
 861 {
 862
 863 #if !defined(LWS_WITH_ESP32)
 864
 865 // after 1.1.0 no need
 866 #if (OPENSSL_VERSION_NUMBER <  0x10100000)
 867 // <= 1.0.1f = old api, 1.0.1g+ = new api
 868 #if (OPENSSL_VERSION_NUMBER <= 0x1000106f) || defined(USE_WOLFSSL)
 869         ERR_remove_state(0);
 870 #else
 871 #if OPENSSL_VERSION_NUMBER >= 0x1010005f && \
 872     !defined(LIBRESSL_VERSION_NUMBER) && \
 873     !defined(OPENSSL_IS_BORINGSSL)
 874         ERR_remove_thread_state();
 875 #else
 876         ERR_remove_thread_state(NULL);
 877 #endif
 878 #endif
 879         ERR_free_strings();
 880         EVP_cleanup();
 881         CRYPTO_cleanup_all_ex_data();
 882 #endif
 883 #endif
 884 }