Home | History | Annotate | Download | only in crypto
      1 /*
      2  * SSL/TLS interface functions for wolfSSL TLS case
      3  * Copyright (c) 2004-2017, Jouni Malinen <j (at) w1.fi>
      4  *
      5  * This software may be distributed under the terms of the BSD license.
      6  * See README for more details.
      7  */
      8 
      9 #include "includes.h"
     10 
     11 #include "common.h"
     12 #include "crypto.h"
     13 #include "crypto/sha1.h"
     14 #include "crypto/sha256.h"
     15 #include "tls.h"
     16 
     17 /* wolfSSL includes */
     18 #include <wolfssl/options.h>
     19 #include <wolfssl/ssl.h>
     20 #include <wolfssl/error-ssl.h>
     21 #include <wolfssl/wolfcrypt/asn.h>
     22 
     23 #if defined(EAP_FAST) || defined(EAP_FAST_DYNAMIC) || defined(EAP_SERVER_FAST)
     24 #define HAVE_AESGCM
     25 #include <wolfssl/wolfcrypt/aes.h>
     26 #endif
     27 
     28 #if !defined(CONFIG_FIPS) &&                             \
     29     (defined(EAP_FAST) || defined(EAP_FAST_DYNAMIC) ||   \
     30      defined(EAP_SERVER_FAST))
     31 #define WOLFSSL_NEED_EAP_FAST_PRF
     32 #endif
     33 
     34 #define SECRET_LEN          48
     35 #define RAN_LEN             32
     36 #define SESSION_TICKET_LEN  256
     37 
     38 static int tls_ref_count = 0;
     39 
     40 static int tls_ex_idx_session = 0;
     41 
     42 
     43 /* tls input data for wolfSSL Read Callback */
     44 struct tls_in_data {
     45 	const struct wpabuf *in_data;
     46 	size_t consumed; /* how many bytes have we used already */
     47 };
     48 
     49 /* tls output data for wolfSSL Write Callback */
     50 struct tls_out_data {
     51 	struct wpabuf *out_data;
     52 };
     53 
     54 struct tls_context {
     55 	void (*event_cb)(void *ctx, enum tls_event ev,
     56 			 union tls_event_data *data);
     57 	void *cb_ctx;
     58 	int cert_in_cb;
     59 	char *ocsp_stapling_response;
     60 };
     61 
     62 static struct tls_context *tls_global = NULL;
     63 
     64 /* wolfssl tls_connection */
     65 struct tls_connection {
     66 	struct tls_context *context;
     67 	WOLFSSL *ssl;
     68 	int read_alerts;
     69 	int write_alerts;
     70 	int failed;
     71 	struct tls_in_data input;
     72 	struct tls_out_data output;
     73 	char *subject_match;
     74 	char *alt_subject_match;
     75 	char *suffix_match;
     76 	char *domain_match;
     77 
     78 	u8 srv_cert_hash[32];
     79 
     80 	unsigned char client_random[RAN_LEN];
     81 	unsigned char server_random[RAN_LEN];
     82 	unsigned int flags;
     83 #if defined(EAP_FAST) || defined(EAP_FAST_DYNAMIC) || defined(EAP_SERVER_FAST)
     84 	tls_session_ticket_cb session_ticket_cb;
     85 	void *session_ticket_cb_ctx;
     86 	byte session_ticket[SESSION_TICKET_LEN];
     87 #endif
     88 	unsigned int ca_cert_verify:1;
     89 	unsigned int cert_probe:1;
     90 	unsigned int server_cert_only:1;
     91 	unsigned int success_data:1;
     92 
     93 	WOLFSSL_X509 *peer_cert;
     94 	WOLFSSL_X509 *peer_issuer;
     95 	WOLFSSL_X509 *peer_issuer_issuer;
     96 };
     97 
     98 
     99 static struct tls_context * tls_context_new(const struct tls_config *conf)
    100 {
    101 	struct tls_context *context = os_zalloc(sizeof(*context));
    102 
    103 	if (!context)
    104 		return NULL;
    105 
    106 	if (conf) {
    107 		context->event_cb = conf->event_cb;
    108 		context->cb_ctx = conf->cb_ctx;
    109 		context->cert_in_cb = conf->cert_in_cb;
    110 	}
    111 
    112 	return context;
    113 }
    114 
    115 
    116 static void wolfssl_reset_in_data(struct tls_in_data *in,
    117 				  const struct wpabuf *buf)
    118 {
    119 	/* old one not owned by us so don't free */
    120 	in->in_data = buf;
    121 	in->consumed = 0;
    122 }
    123 
    124 
    125 static void wolfssl_reset_out_data(struct tls_out_data *out)
    126 {
    127 	/* old one not owned by us so don't free */
    128 	out->out_data = wpabuf_alloc_copy("", 0);
    129 }
    130 
    131 
    132 /* wolfSSL I/O Receive CallBack */
    133 static int wolfssl_receive_cb(WOLFSSL *ssl, char *buf, int sz, void *ctx)
    134 {
    135 	size_t get = sz;
    136 	struct tls_in_data *data = ctx;
    137 
    138 	if (!data)
    139 		return -1;
    140 
    141 	if (get > (wpabuf_len(data->in_data) - data->consumed))
    142 		get = wpabuf_len(data->in_data) - data->consumed;
    143 
    144 	os_memcpy(buf, wpabuf_head(data->in_data) + data->consumed, get);
    145 	data->consumed += get;
    146 
    147 	if (get == 0)
    148 		return -2; /* WANT_READ */
    149 
    150 	return (int) get;
    151 }
    152 
    153 
    154 /* wolfSSL I/O Send CallBack */
    155 static int wolfssl_send_cb(WOLFSSL *ssl, char *buf, int sz, void *ctx)
    156 {
    157 	struct wpabuf *tmp;
    158 	struct tls_out_data *data = ctx;
    159 
    160 	if (!data)
    161 		return -1;
    162 
    163 	wpa_printf(MSG_DEBUG, "SSL: adding %d bytes", sz);
    164 
    165 	tmp = wpabuf_alloc_copy(buf, sz);
    166 	if (!tmp)
    167 		return -1;
    168 	data->out_data = wpabuf_concat(data->out_data, tmp);
    169 	if (!data->out_data)
    170 		return -1;
    171 
    172 	return sz;
    173 }
    174 
    175 
    176 static void remove_session_cb(WOLFSSL_CTX *ctx, WOLFSSL_SESSION *sess)
    177 {
    178 	struct wpabuf *buf;
    179 
    180 	buf = wolfSSL_SESSION_get_ex_data(sess, tls_ex_idx_session);
    181 	if (!buf)
    182 		return;
    183 	wpa_printf(MSG_DEBUG,
    184 		   "wolfSSL: Free application session data %p (sess %p)",
    185 		   buf, sess);
    186 	wpabuf_free(buf);
    187 
    188 	wolfSSL_SESSION_set_ex_data(sess, tls_ex_idx_session, NULL);
    189 }
    190 
    191 
    192 void * tls_init(const struct tls_config *conf)
    193 {
    194 	WOLFSSL_CTX *ssl_ctx;
    195 	struct tls_context *context;
    196 	const char *ciphers;
    197 
    198 #ifdef DEBUG_WOLFSSL
    199 	wolfSSL_Debugging_ON();
    200 #endif /* DEBUG_WOLFSSL */
    201 
    202 	context = tls_context_new(conf);
    203 	if (!context)
    204 		return NULL;
    205 
    206 	if (tls_ref_count == 0) {
    207 		tls_global = context;
    208 
    209 		if (wolfSSL_Init() < 0)
    210 			return NULL;
    211 		/* wolfSSL_Debugging_ON(); */
    212 	}
    213 
    214 	tls_ref_count++;
    215 
    216 	/* start as client */
    217 	ssl_ctx = wolfSSL_CTX_new(wolfSSLv23_client_method());
    218 	if (!ssl_ctx) {
    219 		tls_ref_count--;
    220 		if (context != tls_global)
    221 			os_free(context);
    222 		if (tls_ref_count == 0) {
    223 			os_free(tls_global);
    224 			tls_global = NULL;
    225 		}
    226 	}
    227 	wolfSSL_SetIORecv(ssl_ctx, wolfssl_receive_cb);
    228 	wolfSSL_SetIOSend(ssl_ctx, wolfssl_send_cb);
    229 	wolfSSL_CTX_set_ex_data(ssl_ctx, 0, context);
    230 
    231 	if (conf->tls_session_lifetime > 0) {
    232 		wolfSSL_CTX_set_quiet_shutdown(ssl_ctx, 1);
    233 		wolfSSL_CTX_set_session_cache_mode(ssl_ctx,
    234 						   SSL_SESS_CACHE_SERVER);
    235 		wolfSSL_CTX_set_timeout(ssl_ctx, conf->tls_session_lifetime);
    236 		wolfSSL_CTX_sess_set_remove_cb(ssl_ctx, remove_session_cb);
    237 	} else {
    238 		wolfSSL_CTX_set_session_cache_mode(ssl_ctx,
    239 						   SSL_SESS_CACHE_CLIENT);
    240 	}
    241 
    242 	if (conf && conf->openssl_ciphers)
    243 		ciphers = conf->openssl_ciphers;
    244 	else
    245 		ciphers = "ALL";
    246 	if (wolfSSL_CTX_set_cipher_list(ssl_ctx, ciphers) != 1) {
    247 		wpa_printf(MSG_ERROR,
    248 			   "wolfSSL: Failed to set cipher string '%s'",
    249 			   ciphers);
    250 		tls_deinit(ssl_ctx);
    251 		return NULL;
    252 	}
    253 
    254 	return ssl_ctx;
    255 }
    256 
    257 
    258 void tls_deinit(void *ssl_ctx)
    259 {
    260 	struct tls_context *context = wolfSSL_CTX_get_ex_data(ssl_ctx, 0);
    261 
    262 	if (context != tls_global)
    263 		os_free(context);
    264 
    265 	wolfSSL_CTX_free((WOLFSSL_CTX *) ssl_ctx);
    266 
    267 	tls_ref_count--;
    268 	if (tls_ref_count == 0) {
    269 		wolfSSL_Cleanup();
    270 		os_free(tls_global);
    271 		tls_global = NULL;
    272 	}
    273 }
    274 
    275 
    276 int tls_get_errors(void *tls_ctx)
    277 {
    278 #ifdef DEBUG_WOLFSSL
    279 #if 0
    280 	unsigned long err;
    281 
    282 	err = wolfSSL_ERR_peek_last_error_line(NULL, NULL);
    283 	if (err != 0) {
    284 		wpa_printf(MSG_INFO, "TLS - SSL error: %s",
    285 			   wolfSSL_ERR_error_string(err, NULL));
    286 		return 1;
    287 	}
    288 #endif
    289 #endif /* DEBUG_WOLFSSL */
    290 	return 0;
    291 }
    292 
    293 
    294 struct tls_connection * tls_connection_init(void *tls_ctx)
    295 {
    296 	WOLFSSL_CTX *ssl_ctx = tls_ctx;
    297 	struct tls_connection *conn;
    298 
    299 	wpa_printf(MSG_DEBUG, "SSL: connection init");
    300 
    301 	conn = os_zalloc(sizeof(*conn));
    302 	if (!conn)
    303 		return NULL;
    304 	conn->ssl = wolfSSL_new(ssl_ctx);
    305 	if (!conn->ssl) {
    306 		os_free(conn);
    307 		return NULL;
    308 	}
    309 
    310 	wolfSSL_SetIOReadCtx(conn->ssl,  &conn->input);
    311 	wolfSSL_SetIOWriteCtx(conn->ssl, &conn->output);
    312 	wolfSSL_set_ex_data(conn->ssl, 0, conn);
    313 	conn->context = wolfSSL_CTX_get_ex_data(ssl_ctx, 0);
    314 
    315 	/* Need randoms post-hanshake for EAP-FAST, export key and deriving
    316 	 * session ID in EAP methods. */
    317 	wolfSSL_KeepArrays(conn->ssl);
    318 	wolfSSL_KeepHandshakeResources(conn->ssl);
    319 	wolfSSL_UseClientSuites(conn->ssl);
    320 
    321 	return conn;
    322 }
    323 
    324 
    325 void tls_connection_deinit(void *tls_ctx, struct tls_connection *conn)
    326 {
    327 	if (!conn)
    328 		return;
    329 
    330 	wpa_printf(MSG_DEBUG, "SSL: connection deinit");
    331 
    332 	/* parts */
    333 	wolfSSL_free(conn->ssl);
    334 	os_free(conn->subject_match);
    335 	os_free(conn->alt_subject_match);
    336 	os_free(conn->suffix_match);
    337 	os_free(conn->domain_match);
    338 
    339 	/* self */
    340 	os_free(conn);
    341 }
    342 
    343 
    344 int tls_connection_established(void *tls_ctx, struct tls_connection *conn)
    345 {
    346 	return conn ? wolfSSL_is_init_finished(conn->ssl) : 0;
    347 }
    348 
    349 
    350 char * tls_connection_peer_serial_num(void *tls_ctx,
    351 				      struct tls_connection *conn)
    352 {
    353 	/* TODO */
    354 	return NULL;
    355 }
    356 
    357 
    358 int tls_connection_shutdown(void *tls_ctx, struct tls_connection *conn)
    359 {
    360 	WOLFSSL_SESSION *session;
    361 
    362 	if (!conn)
    363 		return -1;
    364 
    365 	wpa_printf(MSG_DEBUG, "SSL: connection shutdown");
    366 
    367 	/* Set quiet as OpenSSL does */
    368 	wolfSSL_set_quiet_shutdown(conn->ssl, 1);
    369 	wolfSSL_shutdown(conn->ssl);
    370 
    371 	session = wolfSSL_get_session(conn->ssl);
    372 	if (wolfSSL_clear(conn->ssl) != 1)
    373 		return -1;
    374 	wolfSSL_set_session(conn->ssl, session);
    375 
    376 	return 0;
    377 }
    378 
    379 
    380 static int tls_connection_set_subject_match(struct tls_connection *conn,
    381 					    const char *subject_match,
    382 					    const char *alt_subject_match,
    383 					    const char *suffix_match,
    384 					    const char *domain_match)
    385 {
    386 	os_free(conn->subject_match);
    387 	conn->subject_match = NULL;
    388 	if (subject_match) {
    389 		conn->subject_match = os_strdup(subject_match);
    390 		if (!conn->subject_match)
    391 			return -1;
    392 	}
    393 
    394 	os_free(conn->alt_subject_match);
    395 	conn->alt_subject_match = NULL;
    396 	if (alt_subject_match) {
    397 		conn->alt_subject_match = os_strdup(alt_subject_match);
    398 		if (!conn->alt_subject_match)
    399 			return -1;
    400 	}
    401 
    402 	os_free(conn->suffix_match);
    403 	conn->suffix_match = NULL;
    404 	if (suffix_match) {
    405 		conn->suffix_match = os_strdup(suffix_match);
    406 		if (!conn->suffix_match)
    407 			return -1;
    408 	}
    409 
    410 	os_free(conn->domain_match);
    411 	conn->domain_match = NULL;
    412 	if (domain_match) {
    413 		conn->domain_match = os_strdup(domain_match);
    414 		if (!conn->domain_match)
    415 			return -1;
    416 	}
    417 
    418 	return 0;
    419 }
    420 
    421 
    422 static int tls_connection_dh(struct tls_connection *conn, const char *dh_file,
    423 			     const u8 *dh_blob, size_t blob_len)
    424 {
    425 	if (!dh_file && !dh_blob)
    426 		return 0;
    427 
    428 	wolfSSL_set_accept_state(conn->ssl);
    429 
    430 	if (dh_blob) {
    431 		if (wolfSSL_SetTmpDH_buffer(conn->ssl, dh_blob, blob_len,
    432 					    SSL_FILETYPE_ASN1) < 0) {
    433 			wpa_printf(MSG_INFO, "SSL: use DH DER blob failed");
    434 			return -1;
    435 		}
    436 		wpa_printf(MSG_DEBUG, "SSL: use DH blob OK");
    437 		return 0;
    438 	}
    439 
    440 	if (dh_file) {
    441 		wpa_printf(MSG_INFO, "SSL: use DH PEM file: %s", dh_file);
    442 		if (wolfSSL_SetTmpDH_file(conn->ssl, dh_file,
    443 					  SSL_FILETYPE_PEM) < 0) {
    444 			wpa_printf(MSG_INFO, "SSL: use DH PEM file failed");
    445 			if (wolfSSL_SetTmpDH_file(conn->ssl, dh_file,
    446 						  SSL_FILETYPE_ASN1) < 0) {
    447 				wpa_printf(MSG_INFO,
    448 					   "SSL: use DH DER file failed");
    449 				return -1;
    450 			}
    451 		}
    452 		wpa_printf(MSG_DEBUG, "SSL: use DH file OK");
    453 		return 0;
    454 	}
    455 
    456 	return 0;
    457 }
    458 
    459 
    460 static int tls_connection_client_cert(struct tls_connection *conn,
    461 				      const char *client_cert,
    462 				      const u8 *client_cert_blob,
    463 				      size_t blob_len)
    464 {
    465 	if (!client_cert && !client_cert_blob)
    466 		return 0;
    467 
    468 	if (client_cert_blob) {
    469 		if (wolfSSL_use_certificate_chain_buffer_format(
    470 			    conn->ssl, client_cert_blob, blob_len,
    471 			    SSL_FILETYPE_ASN1) < 0) {
    472 			wpa_printf(MSG_INFO,
    473 				   "SSL: use client cert DER blob failed");
    474 			return -1;
    475 		}
    476 		wpa_printf(MSG_DEBUG, "SSL: use client cert blob OK");
    477 		return 0;
    478 	}
    479 
    480 	if (client_cert) {
    481 		if (wolfSSL_use_certificate_chain_file(conn->ssl,
    482 						       client_cert) < 0) {
    483 			wpa_printf(MSG_INFO,
    484 				   "SSL: use client cert PEM file failed");
    485 			if (wolfSSL_use_certificate_chain_file_format(
    486 				    conn->ssl, client_cert,
    487 				    SSL_FILETYPE_ASN1) < 0) {
    488 				wpa_printf(MSG_INFO,
    489 					   "SSL: use client cert DER file failed");
    490 				return -1;
    491 			}
    492 		}
    493 		wpa_printf(MSG_DEBUG, "SSL: use client cert file OK");
    494 		return 0;
    495 	}
    496 
    497 	return 0;
    498 }
    499 
    500 
    501 static int tls_passwd_cb(char *buf, int size, int rwflag, void *password)
    502 {
    503 	if (!password)
    504 		return 0;
    505 	os_strlcpy(buf, (char *) password, size);
    506 	return os_strlen(buf);
    507 }
    508 
    509 
    510 static int tls_connection_private_key(void *tls_ctx,
    511 				      struct tls_connection *conn,
    512 				      const char *private_key,
    513 				      const char *private_key_passwd,
    514 				      const u8 *private_key_blob,
    515 				      size_t blob_len)
    516 {
    517 	WOLFSSL_CTX *ctx = tls_ctx;
    518 	char *passwd = NULL;
    519 	int ok = 0;
    520 
    521 	if (!private_key && !private_key_blob)
    522 		return 0;
    523 
    524 	if (private_key_passwd) {
    525 		passwd = os_strdup(private_key_passwd);
    526 		if (!passwd)
    527 			return -1;
    528 	}
    529 
    530 	wolfSSL_CTX_set_default_passwd_cb(ctx, tls_passwd_cb);
    531 	wolfSSL_CTX_set_default_passwd_cb_userdata(ctx, passwd);
    532 
    533 	if (private_key_blob) {
    534 		if (wolfSSL_use_PrivateKey_buffer(conn->ssl,
    535 						  private_key_blob, blob_len,
    536 						  SSL_FILETYPE_ASN1) < 0) {
    537 			wpa_printf(MSG_INFO,
    538 				   "SSL: use private DER blob failed");
    539 		} else {
    540 			wpa_printf(MSG_DEBUG, "SSL: use private key blob OK");
    541 			ok = 1;
    542 		}
    543 	}
    544 
    545 	if (!ok && private_key) {
    546 		if (wolfSSL_use_PrivateKey_file(conn->ssl, private_key,
    547 						SSL_FILETYPE_PEM) < 0) {
    548 			wpa_printf(MSG_INFO,
    549 				   "SSL: use private key PEM file failed");
    550 			if (wolfSSL_use_PrivateKey_file(conn->ssl, private_key,
    551 							SSL_FILETYPE_ASN1) < 0)
    552 			{
    553 				wpa_printf(MSG_INFO,
    554 					   "SSL: use private key DER file failed");
    555 			} else {
    556 				ok = 1;
    557 			}
    558 		} else {
    559 			ok = 1;
    560 		}
    561 
    562 		if (ok)
    563 			wpa_printf(MSG_DEBUG, "SSL: use private key file OK");
    564 	}
    565 
    566 	wolfSSL_CTX_set_default_passwd_cb(ctx, NULL);
    567 	os_free(passwd);
    568 
    569 	if (!ok)
    570 		return -1;
    571 
    572 	return 0;
    573 }
    574 
    575 
    576 static int tls_match_alt_subject_component(WOLFSSL_X509 *cert, int type,
    577 					   const char *value, size_t len)
    578 {
    579 	WOLFSSL_ASN1_OBJECT *gen;
    580 	void *ext;
    581 	int found = 0;
    582 	int i;
    583 
    584 	ext = wolfSSL_X509_get_ext_d2i(cert, ALT_NAMES_OID, NULL, NULL);
    585 
    586 	for (i = 0; ext && i < wolfSSL_sk_num(ext); i++) {
    587 		gen = wolfSSL_sk_value(ext, i);
    588 		if (gen->type != type)
    589 			continue;
    590 		if (os_strlen((char *) gen->obj) == len &&
    591 		    os_memcmp(value, gen->obj, len) == 0)
    592 			found++;
    593 	}
    594 
    595 	wolfSSL_sk_ASN1_OBJECT_free(ext);
    596 
    597 	return found;
    598 }
    599 
    600 
    601 static int tls_match_alt_subject(WOLFSSL_X509 *cert, const char *match)
    602 {
    603 	int type;
    604 	const char *pos, *end;
    605 	size_t len;
    606 
    607 	pos = match;
    608 	do {
    609 		if (os_strncmp(pos, "EMAIL:", 6) == 0) {
    610 			type = GEN_EMAIL;
    611 			pos += 6;
    612 		} else if (os_strncmp(pos, "DNS:", 4) == 0) {
    613 			type = GEN_DNS;
    614 			pos += 4;
    615 		} else if (os_strncmp(pos, "URI:", 4) == 0) {
    616 			type = GEN_URI;
    617 			pos += 4;
    618 		} else {
    619 			wpa_printf(MSG_INFO,
    620 				   "TLS: Invalid altSubjectName match '%s'",
    621 				   pos);
    622 			return 0;
    623 		}
    624 		end = os_strchr(pos, ';');
    625 		while (end) {
    626 			if (os_strncmp(end + 1, "EMAIL:", 6) == 0 ||
    627 			    os_strncmp(end + 1, "DNS:", 4) == 0 ||
    628 			    os_strncmp(end + 1, "URI:", 4) == 0)
    629 				break;
    630 			end = os_strchr(end + 1, ';');
    631 		}
    632 		if (end)
    633 			len = end - pos;
    634 		else
    635 			len = os_strlen(pos);
    636 		if (tls_match_alt_subject_component(cert, type, pos, len) > 0)
    637 			return 1;
    638 		pos = end + 1;
    639 	} while (end);
    640 
    641 	return 0;
    642 }
    643 
    644 
    645 static int domain_suffix_match(const char *val, size_t len, const char *match,
    646 			       size_t match_len, int full)
    647 {
    648 	size_t i;
    649 
    650 	/* Check for embedded nuls that could mess up suffix matching */
    651 	for (i = 0; i < len; i++) {
    652 		if (val[i] == '\0') {
    653 			wpa_printf(MSG_DEBUG,
    654 				   "TLS: Embedded null in a string - reject");
    655 			return 0;
    656 		}
    657 	}
    658 
    659 	if (match_len > len || (full && match_len != len))
    660 		return 0;
    661 
    662 	if (os_strncasecmp(val + len - match_len, match, match_len) != 0)
    663 		return 0; /* no match */
    664 
    665 	if (match_len == len)
    666 		return 1; /* exact match */
    667 
    668 	if (val[len - match_len - 1] == '.')
    669 		return 1; /* full label match completes suffix match */
    670 
    671 	wpa_printf(MSG_DEBUG, "TLS: Reject due to incomplete label match");
    672 	return 0;
    673 }
    674 
    675 
    676 static int tls_match_suffix_helper(WOLFSSL_X509 *cert, const char *match,
    677 				   size_t match_len, int full)
    678 {
    679 	WOLFSSL_ASN1_OBJECT *gen;
    680 	void *ext;
    681 	int i;
    682 	int j;
    683 	int dns_name = 0;
    684 	WOLFSSL_X509_NAME *name;
    685 
    686 	wpa_printf(MSG_DEBUG, "TLS: Match domain against %s%s",
    687 		   full ? "" : "suffix ", match);
    688 
    689 	ext = wolfSSL_X509_get_ext_d2i(cert, ALT_NAMES_OID, NULL, NULL);
    690 
    691 	for (j = 0; ext && j < wolfSSL_sk_num(ext); j++) {
    692 		gen = wolfSSL_sk_value(ext, j);
    693 		if (gen->type != ASN_DNS_TYPE)
    694 			continue;
    695 		dns_name++;
    696 		wpa_hexdump_ascii(MSG_DEBUG, "TLS: Certificate dNSName",
    697 				  gen->obj, os_strlen((char *)gen->obj));
    698 		if (domain_suffix_match((const char *) gen->obj,
    699 					os_strlen((char *) gen->obj), match,
    700 					match_len, full) == 1) {
    701 			wpa_printf(MSG_DEBUG, "TLS: %s in dNSName found",
    702 				   full ? "Match" : "Suffix match");
    703 			wolfSSL_sk_ASN1_OBJECT_free(ext);
    704 			return 1;
    705 		}
    706 	}
    707 	wolfSSL_sk_ASN1_OBJECT_free(ext);
    708 
    709 	if (dns_name) {
    710 		wpa_printf(MSG_DEBUG, "TLS: None of the dNSName(s) matched");
    711 		return 0;
    712 	}
    713 
    714 	name = wolfSSL_X509_get_subject_name(cert);
    715 	i = -1;
    716 	for (;;) {
    717 		WOLFSSL_X509_NAME_ENTRY *e;
    718 		WOLFSSL_ASN1_STRING *cn;
    719 
    720 		i = wolfSSL_X509_NAME_get_index_by_NID(name, ASN_COMMON_NAME,
    721 						       i);
    722 		if (i == -1)
    723 			break;
    724 		e = wolfSSL_X509_NAME_get_entry(name, i);
    725 		if (!e)
    726 			continue;
    727 		cn = wolfSSL_X509_NAME_ENTRY_get_data(e);
    728 		if (!cn)
    729 			continue;
    730 		wpa_hexdump_ascii(MSG_DEBUG, "TLS: Certificate commonName",
    731 				  cn->data, cn->length);
    732 		if (domain_suffix_match(cn->data, cn->length,
    733 					match, match_len, full) == 1) {
    734 			wpa_printf(MSG_DEBUG, "TLS: %s in commonName found",
    735 				   full ? "Match" : "Suffix match");
    736 			return 1;
    737 		}
    738 	}
    739 
    740 	wpa_printf(MSG_DEBUG, "TLS: No CommonName %smatch found",
    741 		   full ? "" : "suffix ");
    742 	return 0;
    743 }
    744 
    745 
    746 static int tls_match_suffix(WOLFSSL_X509 *cert, const char *match, int full)
    747 {
    748 	const char *token, *last = NULL;
    749 
    750 	/* Process each match alternative separately until a match is found */
    751 	while ((token = cstr_token(match, ";", &last))) {
    752 		if (tls_match_suffix_helper(cert, token, last - token, full))
    753 			return 1;
    754 	}
    755 
    756 	return 0;
    757 }
    758 
    759 
    760 static enum tls_fail_reason wolfssl_tls_fail_reason(int err)
    761 {
    762 	switch (err) {
    763 	case X509_V_ERR_CERT_REVOKED:
    764 		return TLS_FAIL_REVOKED;
    765 	case ASN_BEFORE_DATE_E:
    766 	case X509_V_ERR_CERT_NOT_YET_VALID:
    767 	case X509_V_ERR_CRL_NOT_YET_VALID:
    768 		return TLS_FAIL_NOT_YET_VALID;
    769 	case ASN_AFTER_DATE_E:
    770 	case X509_V_ERR_CERT_HAS_EXPIRED:
    771 	case X509_V_ERR_CRL_HAS_EXPIRED:
    772 		return TLS_FAIL_EXPIRED;
    773 	case X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT:
    774 	case X509_V_ERR_UNABLE_TO_GET_CRL:
    775 	case X509_V_ERR_UNABLE_TO_GET_CRL_ISSUER:
    776 	case X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN:
    777 	case X509_V_ERR_UNABLE_TO_GET_ISSUER_CERT_LOCALLY:
    778 	case X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT:
    779 	case X509_V_ERR_UNABLE_TO_VERIFY_LEAF_SIGNATURE:
    780 	case X509_V_ERR_CERT_CHAIN_TOO_LONG:
    781 	case X509_V_ERR_PATH_LENGTH_EXCEEDED:
    782 	case X509_V_ERR_INVALID_CA:
    783 		return TLS_FAIL_UNTRUSTED;
    784 	case X509_V_ERR_UNABLE_TO_DECRYPT_CERT_SIGNATURE:
    785 	case X509_V_ERR_UNABLE_TO_DECRYPT_CRL_SIGNATURE:
    786 	case X509_V_ERR_UNABLE_TO_DECODE_ISSUER_PUBLIC_KEY:
    787 	case X509_V_ERR_ERROR_IN_CERT_NOT_BEFORE_FIELD:
    788 	case X509_V_ERR_ERROR_IN_CERT_NOT_AFTER_FIELD:
    789 	case X509_V_ERR_ERROR_IN_CRL_LAST_UPDATE_FIELD:
    790 	case X509_V_ERR_ERROR_IN_CRL_NEXT_UPDATE_FIELD:
    791 	case X509_V_ERR_CERT_UNTRUSTED:
    792 	case X509_V_ERR_CERT_REJECTED:
    793 		return TLS_FAIL_BAD_CERTIFICATE;
    794 	default:
    795 		return TLS_FAIL_UNSPECIFIED;
    796 	}
    797 }
    798 
    799 
    800 static const char * wolfssl_tls_err_string(int err, const char *err_str)
    801 {
    802 	switch (err) {
    803 	case ASN_BEFORE_DATE_E:
    804 		return "certificate is not yet valid";
    805 	case ASN_AFTER_DATE_E:
    806 		return "certificate has expired";
    807 	default:
    808 		return err_str;
    809 	}
    810 }
    811 
    812 
    813 static struct wpabuf * get_x509_cert(WOLFSSL_X509 *cert)
    814 {
    815 	struct wpabuf *buf = NULL;
    816 	const u8 *data;
    817 	int cert_len;
    818 
    819 	data = wolfSSL_X509_get_der(cert, &cert_len);
    820 	if (!data)
    821 		buf = wpabuf_alloc_copy(data, cert_len);
    822 
    823 	return buf;
    824 }
    825 
    826 
    827 static void wolfssl_tls_fail_event(struct tls_connection *conn,
    828 				   WOLFSSL_X509 *err_cert, int err, int depth,
    829 				   const char *subject, const char *err_str,
    830 				   enum tls_fail_reason reason)
    831 {
    832 	union tls_event_data ev;
    833 	struct wpabuf *cert = NULL;
    834 	struct tls_context *context = conn->context;
    835 
    836 	if (!context->event_cb)
    837 		return;
    838 
    839 	cert = get_x509_cert(err_cert);
    840 	os_memset(&ev, 0, sizeof(ev));
    841 	ev.cert_fail.reason = reason != TLS_FAIL_UNSPECIFIED ?
    842 		reason : wolfssl_tls_fail_reason(err);
    843 	ev.cert_fail.depth = depth;
    844 	ev.cert_fail.subject = subject;
    845 	ev.cert_fail.reason_txt = wolfssl_tls_err_string(err, err_str);
    846 	ev.cert_fail.cert = cert;
    847 	context->event_cb(context->cb_ctx, TLS_CERT_CHAIN_FAILURE, &ev);
    848 	wpabuf_free(cert);
    849 }
    850 
    851 
    852 static void wolfssl_tls_cert_event(struct tls_connection *conn,
    853 				   WOLFSSL_X509 *err_cert, int depth,
    854 				   const char *subject)
    855 {
    856 	struct wpabuf *cert = NULL;
    857 	union tls_event_data ev;
    858 	struct tls_context *context = conn->context;
    859 	char *alt_subject[TLS_MAX_ALT_SUBJECT];
    860 	int alt, num_alt_subject = 0;
    861 	WOLFSSL_ASN1_OBJECT *gen;
    862 	void *ext;
    863 	int i;
    864 #ifdef CONFIG_SHA256
    865 	u8 hash[32];
    866 #endif /* CONFIG_SHA256 */
    867 
    868 	if (!context->event_cb)
    869 		return;
    870 
    871 	os_memset(&ev, 0, sizeof(ev));
    872 	if (conn->cert_probe || (conn->flags & TLS_CONN_EXT_CERT_CHECK) ||
    873 	    context->cert_in_cb) {
    874 		cert = get_x509_cert(err_cert);
    875 		ev.peer_cert.cert = cert;
    876 	}
    877 
    878 #ifdef CONFIG_SHA256
    879 	if (cert) {
    880 		const u8 *addr[1];
    881 		size_t len[1];
    882 
    883 		addr[0] = wpabuf_head(cert);
    884 		len[0] = wpabuf_len(cert);
    885 		if (sha256_vector(1, addr, len, hash) == 0) {
    886 			ev.peer_cert.hash = hash;
    887 			ev.peer_cert.hash_len = sizeof(hash);
    888 		}
    889 	}
    890 #endif /* CONFIG_SHA256 */
    891 
    892 	ev.peer_cert.depth = depth;
    893 	ev.peer_cert.subject = subject;
    894 
    895 	ext = wolfSSL_X509_get_ext_d2i(err_cert, ALT_NAMES_OID, NULL, NULL);
    896 	for (i = 0; ext && i < wolfSSL_sk_num(ext); i++) {
    897 		char *pos;
    898 
    899 		if (num_alt_subject == TLS_MAX_ALT_SUBJECT)
    900 			break;
    901 		gen = wolfSSL_sk_value((void *) ext, i);
    902 		if (gen->type != GEN_EMAIL &&
    903 		    gen->type != GEN_DNS &&
    904 		    gen->type != GEN_URI)
    905 			continue;
    906 
    907 		pos = os_malloc(10 + os_strlen((char *) gen->obj) + 1);
    908 		if (!pos)
    909 			break;
    910 		alt_subject[num_alt_subject++] = pos;
    911 
    912 		switch (gen->type) {
    913 		case GEN_EMAIL:
    914 			os_memcpy(pos, "EMAIL:", 6);
    915 			pos += 6;
    916 			break;
    917 		case GEN_DNS:
    918 			os_memcpy(pos, "DNS:", 4);
    919 			pos += 4;
    920 			break;
    921 		case GEN_URI:
    922 			os_memcpy(pos, "URI:", 4);
    923 			pos += 4;
    924 			break;
    925 		}
    926 
    927 		os_memcpy(pos, gen->obj, os_strlen((char *)gen->obj));
    928 		pos += os_strlen((char *)gen->obj);
    929 		*pos = '\0';
    930 	}
    931 	wolfSSL_sk_ASN1_OBJECT_free(ext);
    932 
    933 	for (alt = 0; alt < num_alt_subject; alt++)
    934 		ev.peer_cert.altsubject[alt] = alt_subject[alt];
    935 	ev.peer_cert.num_altsubject = num_alt_subject;
    936 
    937 	context->event_cb(context->cb_ctx, TLS_PEER_CERTIFICATE, &ev);
    938 	wpabuf_free(cert);
    939 	for (alt = 0; alt < num_alt_subject; alt++)
    940 		os_free(alt_subject[alt]);
    941 }
    942 
    943 
    944 static int tls_verify_cb(int preverify_ok, WOLFSSL_X509_STORE_CTX *x509_ctx)
    945 {
    946 	char buf[256];
    947 	WOLFSSL_X509 *err_cert;
    948 	int err, depth;
    949 	WOLFSSL *ssl;
    950 	struct tls_connection *conn;
    951 	struct tls_context *context;
    952 	char *match, *altmatch, *suffix_match, *domain_match;
    953 	const char *err_str;
    954 
    955 	err_cert = wolfSSL_X509_STORE_CTX_get_current_cert(x509_ctx);
    956 	if (!err_cert) {
    957 		wpa_printf(MSG_DEBUG, "wolfSSL: No Cert");
    958 		return 0;
    959 	}
    960 
    961 	err = wolfSSL_X509_STORE_CTX_get_error(x509_ctx);
    962 	depth = wolfSSL_X509_STORE_CTX_get_error_depth(x509_ctx);
    963 	ssl = wolfSSL_X509_STORE_CTX_get_ex_data(
    964 		x509_ctx, wolfSSL_get_ex_data_X509_STORE_CTX_idx());
    965 	wolfSSL_X509_NAME_oneline(wolfSSL_X509_get_subject_name(err_cert), buf,
    966 				  sizeof(buf));
    967 
    968 	conn = wolfSSL_get_ex_data(ssl, 0);
    969 	if (!conn) {
    970 		wpa_printf(MSG_DEBUG, "wolfSSL: No ex_data");
    971 		return 0;
    972 	}
    973 
    974 	if (depth == 0)
    975 		conn->peer_cert = err_cert;
    976 	else if (depth == 1)
    977 		conn->peer_issuer = err_cert;
    978 	else if (depth == 2)
    979 		conn->peer_issuer_issuer = err_cert;
    980 
    981 	context = conn->context;
    982 	match = conn->subject_match;
    983 	altmatch = conn->alt_subject_match;
    984 	suffix_match = conn->suffix_match;
    985 	domain_match = conn->domain_match;
    986 
    987 	if (!preverify_ok && !conn->ca_cert_verify)
    988 		preverify_ok = 1;
    989 	if (!preverify_ok && depth > 0 && conn->server_cert_only)
    990 		preverify_ok = 1;
    991 	if (!preverify_ok && (conn->flags & TLS_CONN_DISABLE_TIME_CHECKS) &&
    992 	    (err == X509_V_ERR_CERT_HAS_EXPIRED ||
    993 	     err == ASN_AFTER_DATE_E || err == ASN_BEFORE_DATE_E ||
    994 	     err == X509_V_ERR_CERT_NOT_YET_VALID)) {
    995 		wpa_printf(MSG_DEBUG,
    996 			   "wolfSSL: Ignore certificate validity time mismatch");
    997 		preverify_ok = 1;
    998 	}
    999 
   1000 	err_str = wolfSSL_X509_verify_cert_error_string(err);
   1001 
   1002 #ifdef CONFIG_SHA256
   1003 	/*
   1004 	 * Do not require preverify_ok so we can explicity allow otherwise
   1005 	 * invalid pinned server certificates.
   1006 	 */
   1007 	if (depth == 0 && conn->server_cert_only) {
   1008 		struct wpabuf *cert;
   1009 
   1010 		cert = get_x509_cert(err_cert);
   1011 		if (!cert) {
   1012 			wpa_printf(MSG_DEBUG,
   1013 				   "wolfSSL: Could not fetch server certificate data");
   1014 			preverify_ok = 0;
   1015 		} else {
   1016 			u8 hash[32];
   1017 			const u8 *addr[1];
   1018 			size_t len[1];
   1019 
   1020 			addr[0] = wpabuf_head(cert);
   1021 			len[0] = wpabuf_len(cert);
   1022 			if (sha256_vector(1, addr, len, hash) < 0 ||
   1023 			    os_memcmp(conn->srv_cert_hash, hash, 32) != 0) {
   1024 				err_str = "Server certificate mismatch";
   1025 				err = X509_V_ERR_SELF_SIGNED_CERT_IN_CHAIN;
   1026 				preverify_ok = 0;
   1027 			} else if (!preverify_ok) {
   1028 				/*
   1029 				 * Certificate matches pinned certificate, allow
   1030 				 * regardless of other problems.
   1031 				 */
   1032 				wpa_printf(MSG_DEBUG,
   1033 					   "wolfSSL: Ignore validation issues for a pinned server certificate");
   1034 				preverify_ok = 1;
   1035 			}
   1036 			wpabuf_free(cert);
   1037 		}
   1038 	}
   1039 #endif /* CONFIG_SHA256 */
   1040 
   1041 	if (!preverify_ok) {
   1042 		wpa_printf(MSG_WARNING,
   1043 			   "TLS: Certificate verification failed, error %d (%s) depth %d for '%s'",
   1044 			   err, err_str, depth, buf);
   1045 		wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1046 				       err_str, TLS_FAIL_UNSPECIFIED);
   1047 		return preverify_ok;
   1048 	}
   1049 
   1050 	wpa_printf(MSG_DEBUG,
   1051 		   "TLS: %s - preverify_ok=%d err=%d (%s) ca_cert_verify=%d depth=%d buf='%s'",
   1052 		   __func__, preverify_ok, err, err_str,
   1053 		   conn->ca_cert_verify, depth, buf);
   1054 	if (depth == 0 && match && os_strstr(buf, match) == NULL) {
   1055 		wpa_printf(MSG_WARNING,
   1056 			   "TLS: Subject '%s' did not match with '%s'",
   1057 			   buf, match);
   1058 		preverify_ok = 0;
   1059 		wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1060 				       "Subject mismatch",
   1061 				       TLS_FAIL_SUBJECT_MISMATCH);
   1062 	} else if (depth == 0 && altmatch &&
   1063 		   !tls_match_alt_subject(err_cert, altmatch)) {
   1064 		wpa_printf(MSG_WARNING,
   1065 			   "TLS: altSubjectName match '%s' not found",
   1066 			   altmatch);
   1067 		preverify_ok = 0;
   1068 		wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1069 				       "AltSubject mismatch",
   1070 				       TLS_FAIL_ALTSUBJECT_MISMATCH);
   1071 	} else if (depth == 0 && suffix_match &&
   1072 		   !tls_match_suffix(err_cert, suffix_match, 0)) {
   1073 		wpa_printf(MSG_WARNING,
   1074 			   "TLS: Domain suffix match '%s' not found",
   1075 			   suffix_match);
   1076 		preverify_ok = 0;
   1077 		wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1078 				       "Domain suffix mismatch",
   1079 				       TLS_FAIL_DOMAIN_SUFFIX_MISMATCH);
   1080 	} else if (depth == 0 && domain_match &&
   1081 		   !tls_match_suffix(err_cert, domain_match, 1)) {
   1082 		wpa_printf(MSG_WARNING, "TLS: Domain match '%s' not found",
   1083 			   domain_match);
   1084 		preverify_ok = 0;
   1085 		wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1086 				       "Domain mismatch",
   1087 				       TLS_FAIL_DOMAIN_MISMATCH);
   1088 	} else {
   1089 		wolfssl_tls_cert_event(conn, err_cert, depth, buf);
   1090 	}
   1091 
   1092 	if (conn->cert_probe && preverify_ok && depth == 0) {
   1093 		wpa_printf(MSG_DEBUG,
   1094 			   "wolfSSL: Reject server certificate on probe-only run");
   1095 		preverify_ok = 0;
   1096 		wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1097 				       "Server certificate chain probe",
   1098 				       TLS_FAIL_SERVER_CHAIN_PROBE);
   1099 	}
   1100 
   1101 #ifdef HAVE_OCSP_WOLFSSL
   1102 	if (depth == 0 && (conn->flags & TLS_CONN_REQUEST_OCSP) &&
   1103 	    preverify_ok) {
   1104 		enum ocsp_result res;
   1105 
   1106 		res = check_ocsp_resp(conn->ssl_ctx, conn->ssl, err_cert,
   1107 				      conn->peer_issuer,
   1108 				      conn->peer_issuer_issuer);
   1109 		if (res == OCSP_REVOKED) {
   1110 			preverify_ok = 0;
   1111 			wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1112 					       "certificate revoked",
   1113 					       TLS_FAIL_REVOKED);
   1114 			if (err == X509_V_OK)
   1115 				X509_STORE_CTX_set_error(
   1116 					x509_ctx, X509_V_ERR_CERT_REVOKED);
   1117 		} else if (res != OCSP_GOOD &&
   1118 			   (conn->flags & TLS_CONN_REQUIRE_OCSP)) {
   1119 			preverify_ok = 0;
   1120 			wolfssl_tls_fail_event(conn, err_cert, err, depth, buf,
   1121 					       "bad certificate status response",
   1122 					       TLS_FAIL_UNSPECIFIED);
   1123 		}
   1124 	}
   1125 #endif /* HAVE_OCSP_WOLFSSL */
   1126 	if (depth == 0 && preverify_ok && context->event_cb != NULL)
   1127 		context->event_cb(context->cb_ctx,
   1128 				  TLS_CERT_CHAIN_SUCCESS, NULL);
   1129 
   1130 	return preverify_ok;
   1131 }
   1132 
   1133 
   1134 static int tls_connection_ca_cert(void *tls_ctx, struct tls_connection *conn,
   1135 				  const char *ca_cert,
   1136 				  const u8 *ca_cert_blob, size_t blob_len,
   1137 				  const char *ca_path)
   1138 {
   1139 	WOLFSSL_CTX *ctx = tls_ctx;
   1140 
   1141 	wolfSSL_set_verify(conn->ssl, SSL_VERIFY_PEER, tls_verify_cb);
   1142 	conn->ca_cert_verify = 1;
   1143 
   1144 	if (ca_cert && os_strncmp(ca_cert, "probe://", 8) == 0) {
   1145 		wpa_printf(MSG_DEBUG,
   1146 			   "wolfSSL: Probe for server certificate chain");
   1147 		conn->cert_probe = 1;
   1148 		conn->ca_cert_verify = 0;
   1149 		return 0;
   1150 	}
   1151 
   1152 	if (ca_cert && os_strncmp(ca_cert, "hash://", 7) == 0) {
   1153 #ifdef CONFIG_SHA256
   1154 		const char *pos = ca_cert + 7;
   1155 
   1156 		if (os_strncmp(pos, "server/sha256/", 14) != 0) {
   1157 			wpa_printf(MSG_DEBUG,
   1158 				   "wolfSSL: Unsupported ca_cert hash value '%s'",
   1159 				   ca_cert);
   1160 			return -1;
   1161 		}
   1162 		pos += 14;
   1163 		if (os_strlen(pos) != 32 * 2) {
   1164 			wpa_printf(MSG_DEBUG,
   1165 				   "wolfSSL: Unexpected SHA256 hash length in ca_cert '%s'",
   1166 				   ca_cert);
   1167 			return -1;
   1168 		}
   1169 		if (hexstr2bin(pos, conn->srv_cert_hash, 32) < 0) {
   1170 			wpa_printf(MSG_DEBUG,
   1171 				   "wolfSSL: Invalid SHA256 hash value in ca_cert '%s'",
   1172 				   ca_cert);
   1173 			return -1;
   1174 		}
   1175 		conn->server_cert_only = 1;
   1176 		wpa_printf(MSG_DEBUG,
   1177 			   "wolfSSL: Checking only server certificate match");
   1178 		return 0;
   1179 #else /* CONFIG_SHA256 */
   1180 		wpa_printf(MSG_INFO,
   1181 			   "No SHA256 included in the build - cannot validate server certificate hash");
   1182 		return -1;
   1183 #endif /* CONFIG_SHA256 */
   1184 	}
   1185 
   1186 	if (ca_cert_blob) {
   1187 		if (wolfSSL_CTX_load_verify_buffer(ctx, ca_cert_blob, blob_len,
   1188 						   SSL_FILETYPE_ASN1) !=
   1189 		    SSL_SUCCESS) {
   1190 			wpa_printf(MSG_INFO, "SSL: failed to load CA blob");
   1191 			return -1;
   1192 		}
   1193 		wpa_printf(MSG_DEBUG, "SSL: use CA cert blob OK");
   1194 		return 0;
   1195 	}
   1196 
   1197 	if (ca_cert || ca_path) {
   1198 		WOLFSSL_X509_STORE *cm = wolfSSL_X509_STORE_new();
   1199 
   1200 		if (!cm) {
   1201 			wpa_printf(MSG_INFO,
   1202 				   "SSL: failed to create certificate store");
   1203 			return -1;
   1204 		}
   1205 		wolfSSL_CTX_set_cert_store(ctx, cm);
   1206 
   1207 		if (wolfSSL_CTX_load_verify_locations(ctx, ca_cert, ca_path) !=
   1208 		    SSL_SUCCESS) {
   1209 			wpa_printf(MSG_INFO,
   1210 				   "SSL: failed to load ca_cert as PEM");
   1211 
   1212 			if (!ca_cert)
   1213 				return -1;
   1214 
   1215 			if (wolfSSL_CTX_der_load_verify_locations(
   1216 				    ctx, ca_cert, SSL_FILETYPE_ASN1) !=
   1217 			    SSL_SUCCESS) {
   1218 				wpa_printf(MSG_INFO,
   1219 					   "SSL: failed to load ca_cert as DER");
   1220 				return -1;
   1221 			}
   1222 		}
   1223 		return 0;
   1224 	}
   1225 
   1226 	conn->ca_cert_verify = 0;
   1227 	return 0;
   1228 }
   1229 
   1230 
   1231 static void tls_set_conn_flags(WOLFSSL *ssl, unsigned int flags)
   1232 {
   1233 #ifdef HAVE_SESSION_TICKET
   1234 #if 0
   1235 	if (!(flags & TLS_CONN_DISABLE_SESSION_TICKET))
   1236 		wolfSSL_UseSessionTicket(ssl);
   1237 #endif
   1238 #endif /* HAVE_SESSION_TICKET */
   1239 
   1240 	if (flags & TLS_CONN_DISABLE_TLSv1_0)
   1241 		wolfSSL_set_options(ssl, SSL_OP_NO_TLSv1);
   1242 	if (flags & TLS_CONN_DISABLE_TLSv1_1)
   1243 		wolfSSL_set_options(ssl, SSL_OP_NO_TLSv1_1);
   1244 	if (flags & TLS_CONN_DISABLE_TLSv1_2)
   1245 		wolfSSL_set_options(ssl, SSL_OP_NO_TLSv1_2);
   1246 }
   1247 
   1248 
   1249 int tls_connection_set_params(void *tls_ctx, struct tls_connection *conn,
   1250 			      const struct tls_connection_params *params)
   1251 {
   1252 	wpa_printf(MSG_DEBUG, "SSL: set params");
   1253 
   1254 	if (tls_connection_set_subject_match(conn, params->subject_match,
   1255 					     params->altsubject_match,
   1256 					     params->suffix_match,
   1257 					     params->domain_match) < 0) {
   1258 		wpa_printf(MSG_INFO, "Error setting subject match");
   1259 		return -1;
   1260 	}
   1261 
   1262 	if (tls_connection_ca_cert(tls_ctx, conn, params->ca_cert,
   1263 				   params->ca_cert_blob,
   1264 				   params->ca_cert_blob_len,
   1265 				   params->ca_path) < 0) {
   1266 		wpa_printf(MSG_INFO, "Error setting CA cert");
   1267 		return -1;
   1268 	}
   1269 
   1270 	if (tls_connection_client_cert(conn, params->client_cert,
   1271 				       params->client_cert_blob,
   1272 				       params->client_cert_blob_len) < 0) {
   1273 		wpa_printf(MSG_INFO, "Error setting client cert");
   1274 		return -1;
   1275 	}
   1276 
   1277 	if (tls_connection_private_key(tls_ctx, conn, params->private_key,
   1278 				       params->private_key_passwd,
   1279 				       params->private_key_blob,
   1280 				       params->private_key_blob_len) < 0) {
   1281 		wpa_printf(MSG_INFO, "Error setting private key");
   1282 		return -1;
   1283 	}
   1284 
   1285 	if (tls_connection_dh(conn, params->dh_file, params->dh_blob,
   1286 			      params->dh_blob_len) < 0) {
   1287 		wpa_printf(MSG_INFO, "Error setting DH");
   1288 		return -1;
   1289 	}
   1290 
   1291 	if (params->openssl_ciphers &&
   1292 	    wolfSSL_set_cipher_list(conn->ssl, params->openssl_ciphers) != 1) {
   1293 		wpa_printf(MSG_INFO,
   1294 			   "wolfSSL: Failed to set cipher string '%s'",
   1295 			   params->openssl_ciphers);
   1296 		return -1;
   1297 	}
   1298 
   1299 	tls_set_conn_flags(conn->ssl, params->flags);
   1300 
   1301 #ifdef HAVE_CERTIFICATE_STATUS_REQUEST
   1302 	if (params->flags & TLS_CONN_REQUEST_OCSP) {
   1303 		if (wolfSSL_UseOCSPStapling(conn->ssl, WOLFSSL_CSR_OCSP,
   1304 					    WOLFSSL_CSR_OCSP_USE_NONCE) !=
   1305 		    SSL_SUCCESS)
   1306 			return -1;
   1307 		wolfSSL_CTX_EnableOCSP(tls_ctx, 0);
   1308 	}
   1309 #endif /* HAVE_CERTIFICATE_STATUS_REQUEST */
   1310 #ifdef HAVE_CERTIFICATE_STATUS_REQUEST_V2
   1311 	if (params->flags & TLS_CONN_REQUEST_OCSP) {
   1312 		if (wolfSSL_UseOCSPStaplingV2(conn->ssl,
   1313 					      WOLFSSL_CSR2_OCSP_MULTI, 0) !=
   1314 		    SSL_SUCCESS)
   1315 			return -1;
   1316 		wolfSSL_CTX_EnableOCSP(tls_ctx, 0);
   1317 	}
   1318 #endif /* HAVE_CERTIFICATE_STATUS_REQUEST_V2 */
   1319 #if !defined(HAVE_CERTIFICATE_STATUS_REQUEST) && \
   1320     !defined(HAVE_CERTIFICATE_STATUS_REQUEST_V2)
   1321 #ifdef HAVE_OCSP
   1322 	if (params->flags & TLS_CONN_REQUEST_OCSP)
   1323 		wolfSSL_CTX_EnableOCSP(ctx, 0);
   1324 #else /* HAVE_OCSP */
   1325 	if (params->flags & TLS_CONN_REQUIRE_OCSP) {
   1326 		wpa_printf(MSG_INFO,
   1327 			   "wolfSSL: No OCSP support included - reject configuration");
   1328 		return -1;
   1329 	}
   1330 	if (params->flags & TLS_CONN_REQUEST_OCSP) {
   1331 		wpa_printf(MSG_DEBUG,
   1332 			   "wolfSSL: No OCSP support included - allow optional OCSP case to continue");
   1333 	}
   1334 #endif /* HAVE_OCSP */
   1335 #endif /* !HAVE_CERTIFICATE_STATUS_REQUEST &&
   1336 	* !HAVE_CERTIFICATE_STATUS_REQUEST_V2 */
   1337 
   1338 	conn->flags = params->flags;
   1339 
   1340 	return 0;
   1341 }
   1342 
   1343 
   1344 static int tls_global_ca_cert(void *ssl_ctx, const char *ca_cert)
   1345 {
   1346 	WOLFSSL_CTX *ctx = ssl_ctx;
   1347 
   1348 	if (ca_cert) {
   1349 		if (wolfSSL_CTX_load_verify_locations(ctx, ca_cert, NULL) != 1)
   1350 		{
   1351 			wpa_printf(MSG_WARNING,
   1352 				   "Failed to load root certificates");
   1353 			return -1;
   1354 		}
   1355 
   1356 		wpa_printf(MSG_DEBUG,
   1357 			   "TLS: Trusted root certificate(s) loaded");
   1358 	}
   1359 
   1360 	return 0;
   1361 }
   1362 
   1363 
   1364 static int tls_global_client_cert(void *ssl_ctx, const char *client_cert)
   1365 {
   1366 	WOLFSSL_CTX *ctx = ssl_ctx;
   1367 
   1368 	if (!client_cert)
   1369 		return 0;
   1370 
   1371 	if (wolfSSL_CTX_use_certificate_chain_file_format(ctx, client_cert,
   1372 							  SSL_FILETYPE_ASN1) !=
   1373 	    SSL_SUCCESS &&
   1374 	    wolfSSL_CTX_use_certificate_chain_file(ctx, client_cert) !=
   1375 	    SSL_SUCCESS) {
   1376 		wpa_printf(MSG_INFO, "Failed to load client certificate");
   1377 		return -1;
   1378 	}
   1379 
   1380 	wpa_printf(MSG_DEBUG, "SSL: Loaded global client certificate: %s",
   1381 		   client_cert);
   1382 
   1383 	return 0;
   1384 }
   1385 
   1386 
   1387 static int tls_global_private_key(void *ssl_ctx, const char *private_key,
   1388 				  const char *private_key_passwd)
   1389 {
   1390 	WOLFSSL_CTX *ctx = ssl_ctx;
   1391 	char *passwd = NULL;
   1392 	int ret = 0;
   1393 
   1394 	if (!private_key)
   1395 		return 0;
   1396 
   1397 	if (private_key_passwd) {
   1398 		passwd = os_strdup(private_key_passwd);
   1399 		if (!passwd)
   1400 			return -1;
   1401 	}
   1402 
   1403 	wolfSSL_CTX_set_default_passwd_cb(ctx, tls_passwd_cb);
   1404 	wolfSSL_CTX_set_default_passwd_cb_userdata(ctx, passwd);
   1405 
   1406 	if (wolfSSL_CTX_use_PrivateKey_file(ctx, private_key,
   1407 					    SSL_FILETYPE_ASN1) != 1 &&
   1408 	    wolfSSL_CTX_use_PrivateKey_file(ctx, private_key,
   1409 					    SSL_FILETYPE_PEM) != 1) {
   1410 		wpa_printf(MSG_INFO, "Failed to load private key");
   1411 		ret = -1;
   1412 	}
   1413 
   1414 	wpa_printf(MSG_DEBUG, "SSL: Loaded global private key");
   1415 
   1416 	os_free(passwd);
   1417 	wolfSSL_CTX_set_default_passwd_cb(ctx, NULL);
   1418 
   1419 	return ret;
   1420 }
   1421 
   1422 
   1423 static int tls_global_dh(void *ssl_ctx, const char *dh_file,
   1424 			 const u8 *dh_blob, size_t blob_len)
   1425 {
   1426 	WOLFSSL_CTX *ctx = ssl_ctx;
   1427 
   1428 	if (!dh_file && !dh_blob)
   1429 		return 0;
   1430 
   1431 	if (dh_blob) {
   1432 		if (wolfSSL_CTX_SetTmpDH_buffer(ctx, dh_blob, blob_len,
   1433 						SSL_FILETYPE_ASN1) < 0) {
   1434 			wpa_printf(MSG_INFO,
   1435 				   "SSL: global use DH DER blob failed");
   1436 			return -1;
   1437 		}
   1438 		wpa_printf(MSG_DEBUG, "SSL: global use DH blob OK");
   1439 		return 0;
   1440 	}
   1441 
   1442 	if (dh_file) {
   1443 		if (wolfSSL_CTX_SetTmpDH_file(ctx, dh_file, SSL_FILETYPE_PEM) <
   1444 		    0) {
   1445 			wpa_printf(MSG_INFO,
   1446 				   "SSL: global use DH PEM file failed");
   1447 			if (wolfSSL_CTX_SetTmpDH_file(ctx, dh_file,
   1448 						      SSL_FILETYPE_ASN1) < 0) {
   1449 				wpa_printf(MSG_INFO,
   1450 					   "SSL: global use DH DER file failed");
   1451 				return -1;
   1452 			}
   1453 		}
   1454 		wpa_printf(MSG_DEBUG, "SSL: global use DH file OK");
   1455 		return 0;
   1456 	}
   1457 
   1458 	return 0;
   1459 }
   1460 
   1461 
   1462 #ifdef HAVE_OCSP
   1463 
   1464 int ocsp_status_cb(void *unused, const char *url, int url_sz,
   1465 		   unsigned char *request, int request_sz,
   1466 		   unsigned char **response)
   1467 {
   1468 	size_t len;
   1469 
   1470 	(void) unused;
   1471 
   1472 	if (!url) {
   1473 		wpa_printf(MSG_DEBUG,
   1474 			   "wolfSSL: OCSP status callback - no response configured");
   1475 		*response = NULL;
   1476 		return 0;
   1477 	}
   1478 
   1479 	*response = (unsigned char *) os_readfile(url, &len);
   1480 	if (!*response) {
   1481 		wpa_printf(MSG_DEBUG,
   1482 			   "wolfSSL: OCSP status callback - could not read response file");
   1483 		return -1;
   1484 	}
   1485 	wpa_printf(MSG_DEBUG,
   1486 		   "wolfSSL: OCSP status callback - send cached response");
   1487 	return len;
   1488 }
   1489 
   1490 
   1491 void ocsp_resp_free_cb(void *ocsp_stapling_response, unsigned char *response)
   1492 {
   1493 	os_free(response);
   1494 }
   1495 
   1496 #endif /* HAVE_OCSP */
   1497 
   1498 
   1499 int tls_global_set_params(void *tls_ctx,
   1500 			  const struct tls_connection_params *params)
   1501 {
   1502 	wpa_printf(MSG_DEBUG, "SSL: global set params");
   1503 
   1504 	if (params->check_cert_subject)
   1505 		return -1; /* not yet supported */
   1506 
   1507 	if (tls_global_ca_cert(tls_ctx, params->ca_cert) < 0) {
   1508 		wpa_printf(MSG_INFO, "SSL: Failed to load ca cert file '%s'",
   1509 			   params->ca_cert);
   1510 		return -1;
   1511 	}
   1512 
   1513 	if (tls_global_client_cert(tls_ctx, params->client_cert) < 0) {
   1514 		wpa_printf(MSG_INFO,
   1515 			   "SSL: Failed to load client cert file '%s'",
   1516 			   params->client_cert);
   1517 		return -1;
   1518 	}
   1519 
   1520 	if (tls_global_private_key(tls_ctx, params->private_key,
   1521 				   params->private_key_passwd) < 0) {
   1522 		wpa_printf(MSG_INFO,
   1523 			   "SSL: Failed to load private key file '%s'",
   1524 			   params->private_key);
   1525 		return -1;
   1526 	}
   1527 
   1528 	if (tls_global_dh(tls_ctx, params->dh_file, params->dh_blob,
   1529 			  params->dh_blob_len) < 0) {
   1530 		wpa_printf(MSG_INFO, "SSL: Failed to load DH file '%s'",
   1531 			   params->dh_file);
   1532 		return -1;
   1533 	}
   1534 
   1535 	if (params->openssl_ciphers &&
   1536 	    wolfSSL_CTX_set_cipher_list(tls_ctx,
   1537 					params->openssl_ciphers) != 1) {
   1538 		wpa_printf(MSG_INFO,
   1539 			   "wolfSSL: Failed to set cipher string '%s'",
   1540 			   params->openssl_ciphers);
   1541 		return -1;
   1542 	}
   1543 
   1544 	if (params->openssl_ecdh_curves) {
   1545 		wpa_printf(MSG_INFO,
   1546 			   "wolfSSL: openssl_ecdh_curves not supported");
   1547 		return -1;
   1548 	}
   1549 
   1550 #ifdef HAVE_SESSION_TICKET
   1551 	/* Session ticket is off by default - can't disable once on. */
   1552 	if (!(params->flags & TLS_CONN_DISABLE_SESSION_TICKET))
   1553 		wolfSSL_CTX_UseSessionTicket(tls_ctx);
   1554 #endif /* HAVE_SESSION_TICKET */
   1555 
   1556 #ifdef HAVE_OCSP
   1557 	if (params->ocsp_stapling_response) {
   1558 		wolfSSL_CTX_SetOCSP_OverrideURL(tls_ctx,
   1559 						params->ocsp_stapling_response);
   1560 		wolfSSL_CTX_SetOCSP_Cb(tls_ctx, ocsp_status_cb,
   1561 				       ocsp_resp_free_cb, NULL);
   1562 	}
   1563 #endif /* HAVE_OCSP */
   1564 
   1565 	return 0;
   1566 }
   1567 
   1568 
   1569 int tls_global_set_verify(void *tls_ctx, int check_crl, int strict)
   1570 {
   1571 	wpa_printf(MSG_DEBUG, "SSL: global set verify: %d", check_crl);
   1572 
   1573 	if (check_crl) {
   1574 		/* Hack to Enable CRLs. */
   1575 		wolfSSL_CTX_LoadCRLBuffer(tls_ctx, NULL, 0, SSL_FILETYPE_PEM);
   1576 	}
   1577 
   1578 	return 0;
   1579 }
   1580 
   1581 
   1582 int tls_connection_set_verify(void *ssl_ctx, struct tls_connection *conn,
   1583 			      int verify_peer, unsigned int flags,
   1584 			      const u8 *session_ctx, size_t session_ctx_len)
   1585 {
   1586 	if (!conn)
   1587 		return -1;
   1588 
   1589 	wpa_printf(MSG_DEBUG, "SSL: set verify: %d", verify_peer);
   1590 
   1591 	if (verify_peer) {
   1592 		conn->ca_cert_verify = 1;
   1593 		wolfSSL_set_verify(conn->ssl, SSL_VERIFY_PEER |
   1594 				   SSL_VERIFY_FAIL_IF_NO_PEER_CERT,
   1595 				   tls_verify_cb);
   1596 	} else {
   1597 		conn->ca_cert_verify = 0;
   1598 		wolfSSL_set_verify(conn->ssl, SSL_VERIFY_NONE, NULL);
   1599 	}
   1600 
   1601 	wolfSSL_set_accept_state(conn->ssl);
   1602 
   1603 	/* TODO: do we need to fake a session like OpenSSL does here? */
   1604 
   1605 	return 0;
   1606 }
   1607 
   1608 
   1609 static struct wpabuf * wolfssl_handshake(struct tls_connection *conn,
   1610 					 const struct wpabuf *in_data,
   1611 					 int server)
   1612 {
   1613 	int res;
   1614 
   1615 	wolfssl_reset_out_data(&conn->output);
   1616 
   1617 	/* Initiate TLS handshake or continue the existing handshake */
   1618 	if (server) {
   1619 		wolfSSL_set_accept_state(conn->ssl);
   1620 		res = wolfSSL_accept(conn->ssl);
   1621 		wpa_printf(MSG_DEBUG, "SSL: wolfSSL_accept: %d", res);
   1622 	} else {
   1623 		wolfSSL_set_connect_state(conn->ssl);
   1624 		res = wolfSSL_connect(conn->ssl);
   1625 		wpa_printf(MSG_DEBUG, "SSL: wolfSSL_connect: %d", res);
   1626 	}
   1627 
   1628 	if (res != 1) {
   1629 		int err = wolfSSL_get_error(conn->ssl, res);
   1630 
   1631 		if (err == SSL_ERROR_WANT_READ) {
   1632 			wpa_printf(MSG_DEBUG,
   1633 				   "SSL: wolfSSL_connect - want more data");
   1634 		} else if (err == SSL_ERROR_WANT_WRITE) {
   1635 			wpa_printf(MSG_DEBUG,
   1636 				   "SSL: wolfSSL_connect - want to write");
   1637 		} else {
   1638 			char msg[80];
   1639 
   1640 			wpa_printf(MSG_DEBUG,
   1641 				   "SSL: wolfSSL_connect - failed %s",
   1642 				   wolfSSL_ERR_error_string(err, msg));
   1643 			conn->failed++;
   1644 		}
   1645 	}
   1646 
   1647 	return conn->output.out_data;
   1648 }
   1649 
   1650 
   1651 static struct wpabuf * wolfssl_get_appl_data(struct tls_connection *conn,
   1652 					     size_t max_len)
   1653 {
   1654 	int res;
   1655 	struct wpabuf *appl_data = wpabuf_alloc(max_len + 100);
   1656 
   1657 	if (!appl_data)
   1658 		return NULL;
   1659 
   1660 	res = wolfSSL_read(conn->ssl, wpabuf_mhead(appl_data),
   1661 			   wpabuf_size(appl_data));
   1662 	if (res < 0) {
   1663 		int err = wolfSSL_get_error(conn->ssl, res);
   1664 
   1665 		if (err == SSL_ERROR_WANT_READ || err == SSL_ERROR_WANT_WRITE) {
   1666 			wpa_printf(MSG_DEBUG,
   1667 				   "SSL: No Application Data included");
   1668 		} else {
   1669 			char msg[80];
   1670 
   1671 			wpa_printf(MSG_DEBUG,
   1672 				   "Failed to read possible Application Data %s",
   1673 				   wolfSSL_ERR_error_string(err, msg));
   1674 		}
   1675 
   1676 		wpabuf_free(appl_data);
   1677 		return NULL;
   1678 	}
   1679 
   1680 	wpabuf_put(appl_data, res);
   1681 	wpa_hexdump_buf_key(MSG_MSGDUMP,
   1682 			    "SSL: Application Data in Finished message",
   1683 			    appl_data);
   1684 	return appl_data;
   1685 }
   1686 
   1687 
   1688 static struct wpabuf *
   1689 wolfssl_connection_handshake(struct tls_connection *conn,
   1690 			     const struct wpabuf *in_data,
   1691 			     struct wpabuf **appl_data, int server)
   1692 {
   1693 	struct wpabuf *out_data;
   1694 
   1695 	wolfssl_reset_in_data(&conn->input, in_data);
   1696 
   1697 	if (appl_data)
   1698 		*appl_data = NULL;
   1699 
   1700 	out_data = wolfssl_handshake(conn, in_data, server);
   1701 	if (!out_data)
   1702 		return NULL;
   1703 
   1704 	if (wolfSSL_is_init_finished(conn->ssl)) {
   1705 		wpa_printf(MSG_DEBUG,
   1706 			   "wolfSSL: Handshake finished - resumed=%d",
   1707 			   tls_connection_resumed(NULL, conn));
   1708 		if (appl_data && in_data)
   1709 			*appl_data = wolfssl_get_appl_data(conn,
   1710 							   wpabuf_len(in_data));
   1711 	}
   1712 
   1713 	return out_data;
   1714 }
   1715 
   1716 
   1717 struct wpabuf * tls_connection_handshake(void *tls_ctx,
   1718 					 struct tls_connection *conn,
   1719 					 const struct wpabuf *in_data,
   1720 					 struct wpabuf **appl_data)
   1721 {
   1722 	return wolfssl_connection_handshake(conn, in_data, appl_data, 0);
   1723 }
   1724 
   1725 
   1726 struct wpabuf * tls_connection_server_handshake(void *tls_ctx,
   1727 						struct tls_connection *conn,
   1728 						const struct wpabuf *in_data,
   1729 						struct wpabuf **appl_data)
   1730 {
   1731 	return wolfssl_connection_handshake(conn, in_data, appl_data, 1);
   1732 }
   1733 
   1734 
   1735 struct wpabuf * tls_connection_encrypt(void *tls_ctx,
   1736 				       struct tls_connection *conn,
   1737 				       const struct wpabuf *in_data)
   1738 {
   1739 	int res;
   1740 
   1741 	if (!conn)
   1742 		return NULL;
   1743 
   1744 	wpa_printf(MSG_DEBUG, "SSL: encrypt: %ld bytes", wpabuf_len(in_data));
   1745 
   1746 	wolfssl_reset_out_data(&conn->output);
   1747 
   1748 	res = wolfSSL_write(conn->ssl, wpabuf_head(in_data),
   1749 			    wpabuf_len(in_data));
   1750 	if (res < 0) {
   1751 		int  err = wolfSSL_get_error(conn->ssl, res);
   1752 		char msg[80];
   1753 
   1754 		wpa_printf(MSG_INFO, "Encryption failed - SSL_write: %s",
   1755 			   wolfSSL_ERR_error_string(err, msg));
   1756 		return NULL;
   1757 	}
   1758 
   1759 	return conn->output.out_data;
   1760 }
   1761 
   1762 
   1763 struct wpabuf * tls_connection_decrypt(void *tls_ctx,
   1764 				       struct tls_connection *conn,
   1765 				       const struct wpabuf *in_data)
   1766 {
   1767 	int res;
   1768 	struct wpabuf *buf;
   1769 
   1770 	if (!conn)
   1771 		return NULL;
   1772 
   1773 	wpa_printf(MSG_DEBUG, "SSL: decrypt");
   1774 
   1775 	wolfssl_reset_in_data(&conn->input, in_data);
   1776 
   1777 	/* Read decrypted data for further processing */
   1778 	/*
   1779 	 * Even though we try to disable TLS compression, it is possible that
   1780 	 * this cannot be done with all TLS libraries. Add extra buffer space
   1781 	 * to handle the possibility of the decrypted data being longer than
   1782 	 * input data.
   1783 	 */
   1784 	buf = wpabuf_alloc((wpabuf_len(in_data) + 500) * 3);
   1785 	if (!buf)
   1786 		return NULL;
   1787 	res = wolfSSL_read(conn->ssl, wpabuf_mhead(buf), wpabuf_size(buf));
   1788 	if (res < 0) {
   1789 		wpa_printf(MSG_INFO, "Decryption failed - SSL_read");
   1790 		wpabuf_free(buf);
   1791 		return NULL;
   1792 	}
   1793 	wpabuf_put(buf, res);
   1794 
   1795 	wpa_printf(MSG_DEBUG, "SSL: decrypt: %ld bytes", wpabuf_len(buf));
   1796 
   1797 	return buf;
   1798 }
   1799 
   1800 
   1801 int tls_connection_resumed(void *tls_ctx, struct tls_connection *conn)
   1802 {
   1803 	return conn ? wolfSSL_session_reused(conn->ssl) : 0;
   1804 }
   1805 
   1806 
   1807 int tls_connection_set_cipher_list(void *tls_ctx, struct tls_connection *conn,
   1808 				   u8 *ciphers)
   1809 {
   1810 	char buf[128], *pos, *end;
   1811 	u8 *c;
   1812 	int ret;
   1813 
   1814 	if (!conn || !conn->ssl || !ciphers)
   1815 		return -1;
   1816 
   1817 	buf[0] = '\0';
   1818 	pos = buf;
   1819 	end = pos + sizeof(buf);
   1820 
   1821 	c = ciphers;
   1822 	while (*c != TLS_CIPHER_NONE) {
   1823 		const char *suite;
   1824 
   1825 		switch (*c) {
   1826 		case TLS_CIPHER_RC4_SHA:
   1827 			suite = "RC4-SHA";
   1828 			break;
   1829 		case TLS_CIPHER_AES128_SHA:
   1830 			suite = "AES128-SHA";
   1831 			break;
   1832 		case TLS_CIPHER_RSA_DHE_AES128_SHA:
   1833 			suite = "DHE-RSA-AES128-SHA";
   1834 			break;
   1835 		case TLS_CIPHER_ANON_DH_AES128_SHA:
   1836 			suite = "ADH-AES128-SHA";
   1837 			break;
   1838 		case TLS_CIPHER_RSA_DHE_AES256_SHA:
   1839 			suite = "DHE-RSA-AES256-SHA";
   1840 			break;
   1841 		case TLS_CIPHER_AES256_SHA:
   1842 			suite = "AES256-SHA";
   1843 			break;
   1844 		default:
   1845 			wpa_printf(MSG_DEBUG,
   1846 				   "TLS: Unsupported cipher selection: %d", *c);
   1847 			return -1;
   1848 		}
   1849 		ret = os_snprintf(pos, end - pos, ":%s", suite);
   1850 		if (os_snprintf_error(end - pos, ret))
   1851 			break;
   1852 		pos += ret;
   1853 
   1854 		c++;
   1855 	}
   1856 
   1857 	wpa_printf(MSG_DEBUG, "wolfSSL: cipher suites: %s", buf + 1);
   1858 
   1859 	if (wolfSSL_set_cipher_list(conn->ssl, buf + 1) != 1) {
   1860 		wpa_printf(MSG_DEBUG, "Cipher suite configuration failed");
   1861 		return -1;
   1862 	}
   1863 
   1864 	return 0;
   1865 }
   1866 
   1867 
   1868 int tls_get_cipher(void *tls_ctx, struct tls_connection *conn,
   1869 		   char *buf, size_t buflen)
   1870 {
   1871 	WOLFSSL_CIPHER *cipher;
   1872 	const char *name;
   1873 
   1874 	if (!conn || !conn->ssl)
   1875 		return -1;
   1876 
   1877 	cipher = wolfSSL_get_current_cipher(conn->ssl);
   1878 	if (!cipher)
   1879 		return -1;
   1880 
   1881 	name = wolfSSL_CIPHER_get_name(cipher);
   1882 	if (!name)
   1883 		return -1;
   1884 
   1885 	if (os_strcmp(name, "SSL_RSA_WITH_RC4_128_SHA") == 0)
   1886 		os_strlcpy(buf, "RC4-SHA", buflen);
   1887 	else if (os_strcmp(name, "TLS_RSA_WITH_AES_128_CBC_SHA") == 0)
   1888 		os_strlcpy(buf, "AES128-SHA", buflen);
   1889 	else if (os_strcmp(name, "TLS_DHE_RSA_WITH_AES_128_CBC_SHA") == 0)
   1890 		os_strlcpy(buf, "DHE-RSA-AES128-SHA", buflen);
   1891 	else if (os_strcmp(name, "TLS_DH_anon_WITH_AES_128_CBC_SHA") == 0)
   1892 		os_strlcpy(buf, "ADH-AES128-SHA", buflen);
   1893 	else if (os_strcmp(name, "TLS_DHE_RSA_WITH_AES_256_CBC_SHA") == 0)
   1894 		os_strlcpy(buf, "DHE-RSA-AES256-SHA", buflen);
   1895 	else if (os_strcmp(name, "TLS_RSA_WITH_AES_256_CBC_SHA") == 0)
   1896 		os_strlcpy(buf, "AES256-SHA", buflen);
   1897 	else
   1898 		os_strlcpy(buf, name, buflen);
   1899 
   1900 	return 0;
   1901 }
   1902 
   1903 
   1904 int tls_connection_enable_workaround(void *tls_ctx,
   1905 				     struct tls_connection *conn)
   1906 {
   1907 	/* no empty fragments in wolfSSL for now */
   1908 	return 0;
   1909 }
   1910 
   1911 
   1912 int tls_connection_get_failed(void *tls_ctx, struct tls_connection *conn)
   1913 {
   1914 	if (!conn)
   1915 		return -1;
   1916 
   1917 	return conn->failed;
   1918 }
   1919 
   1920 
   1921 int tls_connection_get_read_alerts(void *tls_ctx, struct tls_connection *conn)
   1922 {
   1923 	if (!conn)
   1924 		return -1;
   1925 
   1926 	/* TODO: this is not incremented anywhere */
   1927 	return conn->read_alerts;
   1928 }
   1929 
   1930 
   1931 int tls_connection_get_write_alerts(void *tls_ctx,
   1932 				    struct tls_connection *conn)
   1933 {
   1934 	if (!conn)
   1935 		return -1;
   1936 
   1937 	/* TODO: this is not incremented anywhere */
   1938 	return conn->write_alerts;
   1939 }
   1940 
   1941 
   1942 
   1943 int tls_get_library_version(char *buf, size_t buf_len)
   1944 {
   1945 	return os_snprintf(buf, buf_len, "wolfSSL build=%s run=%s",
   1946 			   WOLFSSL_VERSION, wolfSSL_lib_version());
   1947 }
   1948 
   1949 int tls_get_version(void *ssl_ctx, struct tls_connection *conn,
   1950 		    char *buf, size_t buflen)
   1951 {
   1952 	const char *name;
   1953 
   1954 	if (!conn || !conn->ssl)
   1955 		return -1;
   1956 
   1957 	name = wolfSSL_get_version(conn->ssl);
   1958 	if (!name)
   1959 		return -1;
   1960 
   1961 	os_strlcpy(buf, name, buflen);
   1962 	return 0;
   1963 }
   1964 
   1965 
   1966 int tls_connection_get_random(void *ssl_ctx, struct tls_connection *conn,
   1967 			      struct tls_random *keys)
   1968 {
   1969 	WOLFSSL *ssl;
   1970 
   1971 	if (!conn || !keys)
   1972 		return -1;
   1973 	ssl = conn->ssl;
   1974 	if (!ssl)
   1975 		return -1;
   1976 
   1977 	os_memset(keys, 0, sizeof(*keys));
   1978 	keys->client_random = conn->client_random;
   1979 	keys->client_random_len = wolfSSL_get_client_random(
   1980 		ssl, conn->client_random, sizeof(conn->client_random));
   1981 	keys->server_random = conn->server_random;
   1982 	keys->server_random_len = wolfSSL_get_server_random(
   1983 		ssl, conn->server_random, sizeof(conn->server_random));
   1984 
   1985 	return 0;
   1986 }
   1987 
   1988 
   1989 int tls_connection_export_key(void *tls_ctx, struct tls_connection *conn,
   1990 			      const char *label, const u8 *context,
   1991 			      size_t context_len, u8 *out, size_t out_len)
   1992 {
   1993 	if (context)
   1994 		return -1;
   1995 	if (!conn || wolfSSL_make_eap_keys(conn->ssl, out, out_len, label) != 0)
   1996 		return -1;
   1997 	return 0;
   1998 }
   1999 
   2000 
   2001 #define SEED_LEN	(RAN_LEN + RAN_LEN)
   2002 
   2003 int tls_connection_get_eap_fast_key(void *tls_ctx, struct tls_connection *conn,
   2004 				    u8 *out, size_t out_len)
   2005 {
   2006 	byte seed[SEED_LEN];
   2007 	int ret = -1;
   2008 	WOLFSSL *ssl;
   2009 	byte *tmp_out;
   2010 	byte *_out;
   2011 	int skip = 0;
   2012 	byte *master_key;
   2013 	unsigned int master_key_len;
   2014 	byte *server_random;
   2015 	unsigned int server_len;
   2016 	byte *client_random;
   2017 	unsigned int client_len;
   2018 
   2019 	if (!conn || !conn->ssl)
   2020 		return -1;
   2021 	ssl = conn->ssl;
   2022 
   2023 	skip = 2 * (wolfSSL_GetKeySize(ssl) + wolfSSL_GetHmacSize(ssl) +
   2024 		    wolfSSL_GetIVSize(ssl));
   2025 
   2026 	tmp_out = os_malloc(skip + out_len);
   2027 	if (!tmp_out)
   2028 		return -1;
   2029 	_out = tmp_out;
   2030 
   2031 	wolfSSL_get_keys(ssl, &master_key, &master_key_len, &server_random,
   2032 			 &server_len, &client_random, &client_len);
   2033 	os_memcpy(seed, server_random, RAN_LEN);
   2034 	os_memcpy(seed + RAN_LEN, client_random, RAN_LEN);
   2035 
   2036 	if (wolfSSL_GetVersion(ssl) == WOLFSSL_TLSV1_2) {
   2037 		tls_prf_sha256(master_key, master_key_len,
   2038 			       "key expansion", seed, sizeof(seed),
   2039 			       _out, skip + out_len);
   2040 		ret = 0;
   2041 	} else {
   2042 		ret = tls_prf_sha1_md5(master_key, master_key_len,
   2043 				       "key expansion", seed, sizeof(seed),
   2044 				       _out, skip + out_len);
   2045 	}
   2046 
   2047 	os_memset(master_key, 0, master_key_len);
   2048 	if (ret == 0)
   2049 		os_memcpy(out, _out + skip, out_len);
   2050 	bin_clear_free(tmp_out, skip + out_len);
   2051 
   2052 	return ret;
   2053 }
   2054 
   2055 
   2056 #if defined(EAP_FAST) || defined(EAP_FAST_DYNAMIC) || defined(EAP_SERVER_FAST)
   2057 
   2058 int tls_connection_client_hello_ext(void *ssl_ctx, struct tls_connection *conn,
   2059 				    int ext_type, const u8 *data,
   2060 				    size_t data_len)
   2061 {
   2062 	(void) ssl_ctx;
   2063 
   2064 	if (!conn || !conn->ssl || ext_type != 35)
   2065 		return -1;
   2066 
   2067 	if (wolfSSL_set_SessionTicket(conn->ssl, data,
   2068 				      (unsigned int) data_len) != 1)
   2069 		return -1;
   2070 
   2071 	return 0;
   2072 }
   2073 
   2074 
   2075 static int tls_sess_sec_cb(WOLFSSL *s, void *secret, int *secret_len, void *arg)
   2076 {
   2077 	struct tls_connection *conn = arg;
   2078 	int ret;
   2079 	unsigned char client_random[RAN_LEN];
   2080 	unsigned char server_random[RAN_LEN];
   2081 	word32 ticket_len = sizeof(conn->session_ticket);
   2082 
   2083 	if (!conn || !conn->session_ticket_cb)
   2084 		return 1;
   2085 
   2086 	if (wolfSSL_get_client_random(s, client_random,
   2087 				      sizeof(client_random)) == 0 ||
   2088 	    wolfSSL_get_server_random(s, server_random,
   2089 				      sizeof(server_random)) == 0 ||
   2090 	    wolfSSL_get_SessionTicket(s, conn->session_ticket,
   2091 				      &ticket_len) != 1)
   2092 		return 1;
   2093 
   2094 	if (ticket_len == 0)
   2095 		return 0;
   2096 
   2097 	ret = conn->session_ticket_cb(conn->session_ticket_cb_ctx,
   2098 				      conn->session_ticket, ticket_len,
   2099 				      client_random, server_random, secret);
   2100 	if (ret <= 0)
   2101 		return 1;
   2102 
   2103 	*secret_len = SECRET_LEN;
   2104 	return 0;
   2105 }
   2106 
   2107 #endif /* EAP_FAST || EAP_FAST_DYNAMIC || EAP_SERVER_FAST */
   2108 
   2109 
   2110 int tls_connection_set_session_ticket_cb(void *tls_ctx,
   2111 					 struct tls_connection *conn,
   2112 					 tls_session_ticket_cb cb,
   2113 					 void *ctx)
   2114 {
   2115 #if defined(EAP_FAST) || defined(EAP_FAST_DYNAMIC) || defined(EAP_SERVER_FAST)
   2116 	conn->session_ticket_cb = cb;
   2117 	conn->session_ticket_cb_ctx = ctx;
   2118 
   2119 	if (cb) {
   2120 		if (wolfSSL_set_session_secret_cb(conn->ssl, tls_sess_sec_cb,
   2121 						  conn) != 1)
   2122 			return -1;
   2123 	} else {
   2124 		if (wolfSSL_set_session_secret_cb(conn->ssl, NULL, NULL) != 1)
   2125 			return -1;
   2126 	}
   2127 
   2128 	return 0;
   2129 #else /* EAP_FAST || EAP_FAST_DYNAMIC || EAP_SERVER_FAST */
   2130 	return -1;
   2131 #endif /* EAP_FAST || EAP_FAST_DYNAMIC || EAP_SERVER_FAST */
   2132 }
   2133 
   2134 
   2135 void tls_connection_set_success_data_resumed(struct tls_connection *conn)
   2136 {
   2137 	wpa_printf(MSG_DEBUG,
   2138 		   "wolfSSL: Success data accepted for resumed session");
   2139 }
   2140 
   2141 
   2142 void tls_connection_remove_session(struct tls_connection *conn)
   2143 {
   2144 	WOLFSSL_SESSION *sess;
   2145 
   2146 	sess = wolfSSL_get_session(conn->ssl);
   2147 	if (!sess)
   2148 		return;
   2149 
   2150 	wolfSSL_SSL_SESSION_set_timeout(sess, 0);
   2151 	wpa_printf(MSG_DEBUG,
   2152 		   "wolfSSL: Removed cached session to disable session resumption");
   2153 }
   2154 
   2155 
   2156 void tls_connection_set_success_data(struct tls_connection *conn,
   2157 				     struct wpabuf *data)
   2158 {
   2159 	WOLFSSL_SESSION *sess;
   2160 	struct wpabuf *old;
   2161 
   2162 	wpa_printf(MSG_DEBUG, "wolfSSL: Set success data");
   2163 
   2164 	sess = wolfSSL_get_session(conn->ssl);
   2165 	if (!sess) {
   2166 		wpa_printf(MSG_DEBUG,
   2167 			   "wolfSSL: No session found for success data");
   2168 		goto fail;
   2169 	}
   2170 
   2171 	old = wolfSSL_SESSION_get_ex_data(sess, tls_ex_idx_session);
   2172 	if (old) {
   2173 		wpa_printf(MSG_DEBUG, "wolfSSL: Replacing old success data %p",
   2174 			   old);
   2175 		wpabuf_free(old);
   2176 	}
   2177 	if (wolfSSL_SESSION_set_ex_data(sess, tls_ex_idx_session, data) != 1)
   2178 		goto fail;
   2179 
   2180 	wpa_printf(MSG_DEBUG, "wolfSSL: Stored success data %p", data);
   2181 	conn->success_data = 1;
   2182 	return;
   2183 
   2184 fail:
   2185 	wpa_printf(MSG_INFO, "wolfSSL: Failed to store success data");
   2186 	wpabuf_free(data);
   2187 }
   2188 
   2189 
   2190 const struct wpabuf *
   2191 tls_connection_get_success_data(struct tls_connection *conn)
   2192 {
   2193 	WOLFSSL_SESSION *sess;
   2194 
   2195 	wpa_printf(MSG_DEBUG, "wolfSSL: Get success data");
   2196 
   2197 	sess = wolfSSL_get_session(conn->ssl);
   2198 	if (!sess)
   2199 		return NULL;
   2200 	return wolfSSL_SESSION_get_ex_data(sess, tls_ex_idx_session);
   2201 }
   2202