Add SSL_OP_ALLOW_CLIENT_RENEGOTIATION
[openssl.git] / ssl / ssl_conf.c
1 /*
2  * Copyright 2012-2021 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the Apache License 2.0 (the "License").  You may not use
5  * this file except in compliance with the License.  You can obtain a copy
6  * in the file LICENSE in the source distribution or at
7  * https://www.openssl.org/source/license.html
8  */
9
10 #include <stdio.h>
11 #include "ssl_local.h"
12 #include <openssl/conf.h>
13 #include <openssl/objects.h>
14 #include <openssl/decoder.h>
15 #include <openssl/core_dispatch.h>
16 #include "internal/nelem.h"
17
18 /*
19  * structure holding name tables. This is used for permitted elements in lists
20  * such as TLSv1.
21  */
22
23 typedef struct {
24     const char *name;
25     int namelen;
26     unsigned int name_flags;
27     uint64_t option_value;
28 } ssl_flag_tbl;
29
30 /* Switch table: use for single command line switches like no_tls2 */
31 typedef struct {
32     uint64_t option_value;
33     unsigned int name_flags;
34 } ssl_switch_tbl;
35
36 /* Sense of name is inverted e.g. "TLSv1" will clear SSL_OP_NO_TLSv1 */
37 #define SSL_TFLAG_INV   0x1
38 /* Mask for type of flag referred to */
39 #define SSL_TFLAG_TYPE_MASK 0xf00
40 /* Flag is for options */
41 #define SSL_TFLAG_OPTION    0x000
42 /* Flag is for cert_flags */
43 #define SSL_TFLAG_CERT      0x100
44 /* Flag is for verify mode */
45 #define SSL_TFLAG_VFY       0x200
46 /* Option can only be used for clients */
47 #define SSL_TFLAG_CLIENT SSL_CONF_FLAG_CLIENT
48 /* Option can only be used for servers */
49 #define SSL_TFLAG_SERVER SSL_CONF_FLAG_SERVER
50 #define SSL_TFLAG_BOTH (SSL_TFLAG_CLIENT|SSL_TFLAG_SERVER)
51
52 #define SSL_FLAG_TBL(str, flag) \
53         {str, (int)(sizeof(str) - 1), SSL_TFLAG_BOTH, flag}
54 #define SSL_FLAG_TBL_SRV(str, flag) \
55         {str, (int)(sizeof(str) - 1), SSL_TFLAG_SERVER, flag}
56 #define SSL_FLAG_TBL_CLI(str, flag) \
57         {str, (int)(sizeof(str) - 1), SSL_TFLAG_CLIENT, flag}
58 #define SSL_FLAG_TBL_INV(str, flag) \
59         {str, (int)(sizeof(str) - 1), SSL_TFLAG_INV|SSL_TFLAG_BOTH, flag}
60 #define SSL_FLAG_TBL_SRV_INV(str, flag) \
61         {str, (int)(sizeof(str) - 1), SSL_TFLAG_INV|SSL_TFLAG_SERVER, flag}
62 #define SSL_FLAG_TBL_CERT(str, flag) \
63         {str, (int)(sizeof(str) - 1), SSL_TFLAG_CERT|SSL_TFLAG_BOTH, flag}
64
65 #define SSL_FLAG_VFY_CLI(str, flag) \
66         {str, (int)(sizeof(str) - 1), SSL_TFLAG_VFY | SSL_TFLAG_CLIENT, flag}
67 #define SSL_FLAG_VFY_SRV(str, flag) \
68         {str, (int)(sizeof(str) - 1), SSL_TFLAG_VFY | SSL_TFLAG_SERVER, flag}
69
70 /*
71  * Opaque structure containing SSL configuration context.
72  */
73
74 struct ssl_conf_ctx_st {
75     /*
76      * Various flags indicating (among other things) which options we will
77      * recognise.
78      */
79     unsigned int flags;
80     /* Prefix and length of commands */
81     char *prefix;
82     size_t prefixlen;
83     /* SSL_CTX or SSL structure to perform operations on */
84     SSL_CTX *ctx;
85     SSL *ssl;
86     /* Pointer to SSL or SSL_CTX options field or NULL if none */
87     uint64_t *poptions;
88     /* Certificate filenames for each type */
89     char *cert_filename[SSL_PKEY_NUM];
90     /* Pointer to SSL or SSL_CTX cert_flags or NULL if none */
91     uint32_t *pcert_flags;
92     /* Pointer to SSL or SSL_CTX verify_mode or NULL if none */
93     uint32_t *pvfy_flags;
94     /* Pointer to SSL or SSL_CTX min_version field or NULL if none */
95     int *min_version;
96     /* Pointer to SSL or SSL_CTX max_version field or NULL if none */
97     int *max_version;
98     /* Current flag table being worked on */
99     const ssl_flag_tbl *tbl;
100     /* Size of table */
101     size_t ntbl;
102     /* Client CA names */
103     STACK_OF(X509_NAME) *canames;
104 };
105
106 static void ssl_set_option(SSL_CONF_CTX *cctx, unsigned int name_flags,
107                            uint64_t option_value, int onoff)
108 {
109     uint32_t *pflags;
110
111     if (cctx->poptions == NULL)
112         return;
113     if (name_flags & SSL_TFLAG_INV)
114         onoff ^= 1;
115     switch (name_flags & SSL_TFLAG_TYPE_MASK) {
116
117     case SSL_TFLAG_CERT:
118         pflags = cctx->pcert_flags;
119         break;
120
121     case SSL_TFLAG_VFY:
122         pflags = cctx->pvfy_flags;
123         break;
124
125     case SSL_TFLAG_OPTION:
126         if (onoff)
127             *cctx->poptions |= option_value;
128         else
129             *cctx->poptions &= ~option_value;
130         return;
131
132     default:
133         return;
134
135     }
136     if (onoff)
137         *pflags |= option_value;
138     else
139         *pflags &= ~option_value;
140 }
141
142 static int ssl_match_option(SSL_CONF_CTX *cctx, const ssl_flag_tbl *tbl,
143                             const char *name, int namelen, int onoff)
144 {
145     /* If name not relevant for context skip */
146     if (!(cctx->flags & tbl->name_flags & SSL_TFLAG_BOTH))
147         return 0;
148     if (namelen == -1) {
149         if (strcmp(tbl->name, name))
150             return 0;
151     } else if (tbl->namelen != namelen || strncasecmp(tbl->name, name, namelen))
152         return 0;
153     ssl_set_option(cctx, tbl->name_flags, tbl->option_value, onoff);
154     return 1;
155 }
156
157 static int ssl_set_option_list(const char *elem, int len, void *usr)
158 {
159     SSL_CONF_CTX *cctx = usr;
160     size_t i;
161     const ssl_flag_tbl *tbl;
162     int onoff = 1;
163     /*
164      * len == -1 indicates not being called in list context, just for single
165      * command line switches, so don't allow +, -.
166      */
167     if (elem == NULL)
168         return 0;
169     if (len != -1) {
170         if (*elem == '+') {
171             elem++;
172             len--;
173             onoff = 1;
174         } else if (*elem == '-') {
175             elem++;
176             len--;
177             onoff = 0;
178         }
179     }
180     for (i = 0, tbl = cctx->tbl; i < cctx->ntbl; i++, tbl++) {
181         if (ssl_match_option(cctx, tbl, elem, len, onoff))
182             return 1;
183     }
184     return 0;
185 }
186
187 /* Set supported signature algorithms */
188 static int cmd_SignatureAlgorithms(SSL_CONF_CTX *cctx, const char *value)
189 {
190     int rv;
191     if (cctx->ssl)
192         rv = SSL_set1_sigalgs_list(cctx->ssl, value);
193     /* NB: ctx == NULL performs syntax checking only */
194     else
195         rv = SSL_CTX_set1_sigalgs_list(cctx->ctx, value);
196     return rv > 0;
197 }
198
199 /* Set supported client signature algorithms */
200 static int cmd_ClientSignatureAlgorithms(SSL_CONF_CTX *cctx, const char *value)
201 {
202     int rv;
203     if (cctx->ssl)
204         rv = SSL_set1_client_sigalgs_list(cctx->ssl, value);
205     /* NB: ctx == NULL performs syntax checking only */
206     else
207         rv = SSL_CTX_set1_client_sigalgs_list(cctx->ctx, value);
208     return rv > 0;
209 }
210
211 static int cmd_Groups(SSL_CONF_CTX *cctx, const char *value)
212 {
213     int rv;
214     if (cctx->ssl)
215         rv = SSL_set1_groups_list(cctx->ssl, value);
216     /* NB: ctx == NULL performs syntax checking only */
217     else
218         rv = SSL_CTX_set1_groups_list(cctx->ctx, value);
219     return rv > 0;
220 }
221
222 /* This is the old name for cmd_Groups - retained for backwards compatibility */
223 static int cmd_Curves(SSL_CONF_CTX *cctx, const char *value)
224 {
225     return cmd_Groups(cctx, value);
226 }
227
228 /* ECDH temporary parameters */
229 static int cmd_ECDHParameters(SSL_CONF_CTX *cctx, const char *value)
230 {
231     int rv = 1;
232
233     /* Ignore values supported by 1.0.2 for the automatic selection */
234     if ((cctx->flags & SSL_CONF_FLAG_FILE)
235             && (strcasecmp(value, "+automatic") == 0
236                 || strcasecmp(value, "automatic") == 0))
237         return 1;
238     if ((cctx->flags & SSL_CONF_FLAG_CMDLINE) &&
239         strcmp(value, "auto") == 0)
240         return 1;
241
242     /* ECDHParameters accepts a single group name */
243     if (strstr(value, ":") != NULL)
244         return 0;
245
246     if (cctx->ctx)
247         rv = SSL_CTX_set1_groups_list(cctx->ctx, value);
248     else if (cctx->ssl)
249         rv = SSL_set1_groups_list(cctx->ssl, value);
250
251     return rv > 0;
252 }
253
254 static int cmd_CipherString(SSL_CONF_CTX *cctx, const char *value)
255 {
256     int rv = 1;
257
258     if (cctx->ctx)
259         rv = SSL_CTX_set_cipher_list(cctx->ctx, value);
260     if (cctx->ssl)
261         rv = SSL_set_cipher_list(cctx->ssl, value);
262     return rv > 0;
263 }
264
265 static int cmd_Ciphersuites(SSL_CONF_CTX *cctx, const char *value)
266 {
267     int rv = 1;
268
269     if (cctx->ctx)
270         rv = SSL_CTX_set_ciphersuites(cctx->ctx, value);
271     if (cctx->ssl)
272         rv = SSL_set_ciphersuites(cctx->ssl, value);
273     return rv > 0;
274 }
275
276 static int cmd_Protocol(SSL_CONF_CTX *cctx, const char *value)
277 {
278     static const ssl_flag_tbl ssl_protocol_list[] = {
279         SSL_FLAG_TBL_INV("ALL", SSL_OP_NO_SSL_MASK),
280         SSL_FLAG_TBL_INV("SSLv2", SSL_OP_NO_SSLv2),
281         SSL_FLAG_TBL_INV("SSLv3", SSL_OP_NO_SSLv3),
282         SSL_FLAG_TBL_INV("TLSv1", SSL_OP_NO_TLSv1),
283         SSL_FLAG_TBL_INV("TLSv1.1", SSL_OP_NO_TLSv1_1),
284         SSL_FLAG_TBL_INV("TLSv1.2", SSL_OP_NO_TLSv1_2),
285         SSL_FLAG_TBL_INV("TLSv1.3", SSL_OP_NO_TLSv1_3),
286         SSL_FLAG_TBL_INV("DTLSv1", SSL_OP_NO_DTLSv1),
287         SSL_FLAG_TBL_INV("DTLSv1.2", SSL_OP_NO_DTLSv1_2)
288     };
289     cctx->tbl = ssl_protocol_list;
290     cctx->ntbl = OSSL_NELEM(ssl_protocol_list);
291     return CONF_parse_list(value, ',', 1, ssl_set_option_list, cctx);
292 }
293
294 /*
295  * protocol_from_string - converts a protocol version string to a number
296  *
297  * Returns -1 on failure or the version on success
298  */
299 static int protocol_from_string(const char *value)
300 {
301     struct protocol_versions {
302         const char *name;
303         int version;
304     };
305     /*
306      * Note: To avoid breaking previously valid configurations, we must retain
307      * legacy entries in this table even if the underlying protocol is no
308      * longer supported.  This also means that the constants SSL3_VERSION, ...
309      * need to be retained indefinitely.  This table can only grow, never
310      * shrink.
311      */
312     static const struct protocol_versions versions[] = {
313         {"None", 0},
314         {"SSLv3", SSL3_VERSION},
315         {"TLSv1", TLS1_VERSION},
316         {"TLSv1.1", TLS1_1_VERSION},
317         {"TLSv1.2", TLS1_2_VERSION},
318         {"TLSv1.3", TLS1_3_VERSION},
319         {"DTLSv1", DTLS1_VERSION},
320         {"DTLSv1.2", DTLS1_2_VERSION}
321     };
322     size_t i;
323     size_t n = OSSL_NELEM(versions);
324
325     for (i = 0; i < n; i++)
326         if (strcmp(versions[i].name, value) == 0)
327             return versions[i].version;
328     return -1;
329 }
330
331 static int min_max_proto(SSL_CONF_CTX *cctx, const char *value, int *bound)
332 {
333     int method_version;
334     int new_version;
335
336     if (cctx->ctx != NULL)
337         method_version = cctx->ctx->method->version;
338     else if (cctx->ssl != NULL)
339         method_version = cctx->ssl->ctx->method->version;
340     else
341         return 0;
342     if ((new_version = protocol_from_string(value)) < 0)
343         return 0;
344     return ssl_set_version_bound(method_version, new_version, bound);
345 }
346
347 /*
348  * cmd_MinProtocol - Set min protocol version
349  * @cctx: config structure to save settings in
350  * @value: The min protocol version in string form
351  *
352  * Returns 1 on success and 0 on failure.
353  */
354 static int cmd_MinProtocol(SSL_CONF_CTX *cctx, const char *value)
355 {
356     return min_max_proto(cctx, value, cctx->min_version);
357 }
358
359 /*
360  * cmd_MaxProtocol - Set max protocol version
361  * @cctx: config structure to save settings in
362  * @value: The max protocol version in string form
363  *
364  * Returns 1 on success and 0 on failure.
365  */
366 static int cmd_MaxProtocol(SSL_CONF_CTX *cctx, const char *value)
367 {
368     return min_max_proto(cctx, value, cctx->max_version);
369 }
370
371 static int cmd_Options(SSL_CONF_CTX *cctx, const char *value)
372 {
373     static const ssl_flag_tbl ssl_option_list[] = {
374         SSL_FLAG_TBL_INV("SessionTicket", SSL_OP_NO_TICKET),
375         SSL_FLAG_TBL_INV("EmptyFragments",
376                          SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS),
377         SSL_FLAG_TBL("Bugs", SSL_OP_ALL),
378         SSL_FLAG_TBL_INV("Compression", SSL_OP_NO_COMPRESSION),
379         SSL_FLAG_TBL_SRV("ServerPreference", SSL_OP_CIPHER_SERVER_PREFERENCE),
380         SSL_FLAG_TBL_SRV("NoResumptionOnRenegotiation",
381                          SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION),
382         SSL_FLAG_TBL_SRV("DHSingle", SSL_OP_SINGLE_DH_USE),
383         SSL_FLAG_TBL_SRV("ECDHSingle", SSL_OP_SINGLE_ECDH_USE),
384         SSL_FLAG_TBL("UnsafeLegacyRenegotiation",
385                      SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION),
386         SSL_FLAG_TBL("ClientRenegotiation",
387                      SSL_OP_ALLOW_CLIENT_RENEGOTIATION),
388         SSL_FLAG_TBL_INV("EncryptThenMac", SSL_OP_NO_ENCRYPT_THEN_MAC),
389         SSL_FLAG_TBL("NoRenegotiation", SSL_OP_NO_RENEGOTIATION),
390         SSL_FLAG_TBL("AllowNoDHEKEX", SSL_OP_ALLOW_NO_DHE_KEX),
391         SSL_FLAG_TBL("PrioritizeChaCha", SSL_OP_PRIORITIZE_CHACHA),
392         SSL_FLAG_TBL("MiddleboxCompat", SSL_OP_ENABLE_MIDDLEBOX_COMPAT),
393         SSL_FLAG_TBL_INV("AntiReplay", SSL_OP_NO_ANTI_REPLAY),
394         SSL_FLAG_TBL_INV("ExtendedMasterSecret", SSL_OP_NO_EXTENDED_MASTER_SECRET),
395         SSL_FLAG_TBL_INV("CANames", SSL_OP_DISABLE_TLSEXT_CA_NAMES),
396         SSL_FLAG_TBL("KTLS", SSL_OP_ENABLE_KTLS)
397     };
398     if (value == NULL)
399         return -3;
400     cctx->tbl = ssl_option_list;
401     cctx->ntbl = OSSL_NELEM(ssl_option_list);
402     return CONF_parse_list(value, ',', 1, ssl_set_option_list, cctx);
403 }
404
405 static int cmd_VerifyMode(SSL_CONF_CTX *cctx, const char *value)
406 {
407     static const ssl_flag_tbl ssl_vfy_list[] = {
408         SSL_FLAG_VFY_CLI("Peer", SSL_VERIFY_PEER),
409         SSL_FLAG_VFY_SRV("Request", SSL_VERIFY_PEER),
410         SSL_FLAG_VFY_SRV("Require",
411                          SSL_VERIFY_PEER | SSL_VERIFY_FAIL_IF_NO_PEER_CERT),
412         SSL_FLAG_VFY_SRV("Once", SSL_VERIFY_PEER | SSL_VERIFY_CLIENT_ONCE),
413         SSL_FLAG_VFY_SRV("RequestPostHandshake",
414                          SSL_VERIFY_PEER | SSL_VERIFY_POST_HANDSHAKE),
415         SSL_FLAG_VFY_SRV("RequirePostHandshake",
416                          SSL_VERIFY_PEER | SSL_VERIFY_POST_HANDSHAKE |
417                          SSL_VERIFY_FAIL_IF_NO_PEER_CERT),
418     };
419     if (value == NULL)
420         return -3;
421     cctx->tbl = ssl_vfy_list;
422     cctx->ntbl = OSSL_NELEM(ssl_vfy_list);
423     return CONF_parse_list(value, ',', 1, ssl_set_option_list, cctx);
424 }
425
426 static int cmd_Certificate(SSL_CONF_CTX *cctx, const char *value)
427 {
428     int rv = 1;
429     CERT *c = NULL;
430     if (cctx->ctx) {
431         rv = SSL_CTX_use_certificate_chain_file(cctx->ctx, value);
432         c = cctx->ctx->cert;
433     }
434     if (cctx->ssl) {
435         rv = SSL_use_certificate_chain_file(cctx->ssl, value);
436         c = cctx->ssl->cert;
437     }
438     if (rv > 0 && c && cctx->flags & SSL_CONF_FLAG_REQUIRE_PRIVATE) {
439         char **pfilename = &cctx->cert_filename[c->key - c->pkeys];
440         OPENSSL_free(*pfilename);
441         *pfilename = OPENSSL_strdup(value);
442         if (*pfilename == NULL)
443             rv = 0;
444     }
445
446     return rv > 0;
447 }
448
449 static int cmd_PrivateKey(SSL_CONF_CTX *cctx, const char *value)
450 {
451     int rv = 1;
452     if (!(cctx->flags & SSL_CONF_FLAG_CERTIFICATE))
453         return -2;
454     if (cctx->ctx)
455         rv = SSL_CTX_use_PrivateKey_file(cctx->ctx, value, SSL_FILETYPE_PEM);
456     if (cctx->ssl)
457         rv = SSL_use_PrivateKey_file(cctx->ssl, value, SSL_FILETYPE_PEM);
458     return rv > 0;
459 }
460
461 static int cmd_ServerInfoFile(SSL_CONF_CTX *cctx, const char *value)
462 {
463     int rv = 1;
464     if (cctx->ctx)
465         rv = SSL_CTX_use_serverinfo_file(cctx->ctx, value);
466     return rv > 0;
467 }
468
469 static int do_store(SSL_CONF_CTX *cctx,
470                     const char *CAfile, const char *CApath, const char *CAstore,
471                     int verify_store)
472 {
473     CERT *cert;
474     X509_STORE **st;
475     SSL_CTX *ctx;
476     OSSL_LIB_CTX *libctx = NULL;
477     const char *propq = NULL;
478
479     if (cctx->ctx != NULL) {
480         cert = cctx->ctx->cert;
481         ctx = cctx->ctx;
482     } else if (cctx->ssl != NULL) {
483         cert = cctx->ssl->cert;
484         ctx = cctx->ssl->ctx;
485     } else {
486         return 1;
487     }
488     if (ctx != NULL) {
489         libctx = ctx->libctx;
490         propq = ctx->propq;
491     }
492     st = verify_store ? &cert->verify_store : &cert->chain_store;
493     if (*st == NULL) {
494         *st = X509_STORE_new();
495         if (*st == NULL)
496             return 0;
497     }
498
499     if (CAfile != NULL && !X509_STORE_load_file_ex(*st, CAfile, libctx, propq))
500         return 0;
501     if (CApath != NULL && !X509_STORE_load_path(*st, CApath))
502         return 0;
503     if (CAstore != NULL && !X509_STORE_load_store_ex(*st, CAstore, libctx,
504                                                      propq))
505         return 0;
506     return 1;
507 }
508
509 static int cmd_ChainCAPath(SSL_CONF_CTX *cctx, const char *value)
510 {
511     return do_store(cctx, NULL, value, NULL, 0);
512 }
513
514 static int cmd_ChainCAFile(SSL_CONF_CTX *cctx, const char *value)
515 {
516     return do_store(cctx, value, NULL, NULL, 0);
517 }
518
519 static int cmd_ChainCAStore(SSL_CONF_CTX *cctx, const char *value)
520 {
521     return do_store(cctx, NULL, NULL, value, 0);
522 }
523
524 static int cmd_VerifyCAPath(SSL_CONF_CTX *cctx, const char *value)
525 {
526     return do_store(cctx, NULL, value, NULL, 1);
527 }
528
529 static int cmd_VerifyCAFile(SSL_CONF_CTX *cctx, const char *value)
530 {
531     return do_store(cctx, value, NULL, NULL, 1);
532 }
533
534 static int cmd_VerifyCAStore(SSL_CONF_CTX *cctx, const char *value)
535 {
536     return do_store(cctx, NULL, NULL, value, 1);
537 }
538
539 static int cmd_RequestCAFile(SSL_CONF_CTX *cctx, const char *value)
540 {
541     if (cctx->canames == NULL)
542         cctx->canames = sk_X509_NAME_new_null();
543     if (cctx->canames == NULL)
544         return 0;
545     return SSL_add_file_cert_subjects_to_stack(cctx->canames, value);
546 }
547
548 static int cmd_ClientCAFile(SSL_CONF_CTX *cctx, const char *value)
549 {
550     return cmd_RequestCAFile(cctx, value);
551 }
552
553 static int cmd_RequestCAPath(SSL_CONF_CTX *cctx, const char *value)
554 {
555     if (cctx->canames == NULL)
556         cctx->canames = sk_X509_NAME_new_null();
557     if (cctx->canames == NULL)
558         return 0;
559     return SSL_add_dir_cert_subjects_to_stack(cctx->canames, value);
560 }
561
562 static int cmd_ClientCAPath(SSL_CONF_CTX *cctx, const char *value)
563 {
564     return cmd_RequestCAPath(cctx, value);
565 }
566
567 static int cmd_RequestCAStore(SSL_CONF_CTX *cctx, const char *value)
568 {
569     if (cctx->canames == NULL)
570         cctx->canames = sk_X509_NAME_new_null();
571     if (cctx->canames == NULL)
572         return 0;
573     return SSL_add_store_cert_subjects_to_stack(cctx->canames, value);
574 }
575
576 static int cmd_ClientCAStore(SSL_CONF_CTX *cctx, const char *value)
577 {
578     return cmd_RequestCAStore(cctx, value);
579 }
580
581 static int cmd_DHParameters(SSL_CONF_CTX *cctx, const char *value)
582 {
583     int rv = 0;
584     EVP_PKEY *dhpkey = NULL;
585     BIO *in = NULL;
586     SSL_CTX *sslctx = (cctx->ssl != NULL) ? cctx->ssl->ctx : cctx->ctx;
587     OSSL_DECODER_CTX *decoderctx = NULL;
588
589     if (cctx->ctx != NULL || cctx->ssl != NULL) {
590         in = BIO_new(BIO_s_file());
591         if (in == NULL)
592             goto end;
593         if (BIO_read_filename(in, value) <= 0)
594             goto end;
595
596         decoderctx
597             = OSSL_DECODER_CTX_new_for_pkey(&dhpkey, "PEM", NULL, "DH",
598                                             OSSL_KEYMGMT_SELECT_DOMAIN_PARAMETERS,
599                                             sslctx->libctx, sslctx->propq);
600         if (decoderctx == NULL
601                 || !OSSL_DECODER_from_bio(decoderctx, in)) {
602             OSSL_DECODER_CTX_free(decoderctx);
603             goto end;
604         }
605         OSSL_DECODER_CTX_free(decoderctx);
606
607         if (dhpkey == NULL)
608             goto end;
609     } else {
610         return 1;
611     }
612
613     if (cctx->ctx != NULL) {
614         if ((rv = SSL_CTX_set0_tmp_dh_pkey(cctx->ctx, dhpkey)) > 0)
615             dhpkey = NULL;
616     }
617     if (cctx->ssl != NULL) {
618         if ((rv = SSL_set0_tmp_dh_pkey(cctx->ssl, dhpkey)) > 0)
619             dhpkey = NULL;
620     }
621  end:
622     EVP_PKEY_free(dhpkey);
623     BIO_free(in);
624     return rv > 0;
625 }
626
627 static int cmd_RecordPadding(SSL_CONF_CTX *cctx, const char *value)
628 {
629     int rv = 0;
630     int block_size = atoi(value);
631
632     /*
633      * All we care about is a non-negative value,
634      * the setters check the range
635      */
636     if (block_size >= 0) {
637         if (cctx->ctx)
638             rv = SSL_CTX_set_block_padding(cctx->ctx, block_size);
639         if (cctx->ssl)
640             rv = SSL_set_block_padding(cctx->ssl, block_size);
641     }
642     return rv;
643 }
644
645
646 static int cmd_NumTickets(SSL_CONF_CTX *cctx, const char *value)
647 {
648     int rv = 0;
649     int num_tickets = atoi(value);
650
651     if (num_tickets >= 0) {
652         if (cctx->ctx)
653             rv = SSL_CTX_set_num_tickets(cctx->ctx, num_tickets);
654         if (cctx->ssl)
655             rv = SSL_set_num_tickets(cctx->ssl, num_tickets);
656     }
657     return rv;
658 }
659
660 typedef struct {
661     int (*cmd) (SSL_CONF_CTX *cctx, const char *value);
662     const char *str_file;
663     const char *str_cmdline;
664     unsigned short flags;
665     unsigned short value_type;
666 } ssl_conf_cmd_tbl;
667
668 /* Table of supported parameters */
669
670 #define SSL_CONF_CMD(name, cmdopt, flags, type) \
671         {cmd_##name, #name, cmdopt, flags, type}
672
673 #define SSL_CONF_CMD_STRING(name, cmdopt, flags) \
674         SSL_CONF_CMD(name, cmdopt, flags, SSL_CONF_TYPE_STRING)
675
676 #define SSL_CONF_CMD_SWITCH(name, flags) \
677         {0, NULL, name, flags, SSL_CONF_TYPE_NONE}
678
679 /* See apps/apps.h if you change this table. */
680 static const ssl_conf_cmd_tbl ssl_conf_cmds[] = {
681     SSL_CONF_CMD_SWITCH("no_ssl3", 0),
682     SSL_CONF_CMD_SWITCH("no_tls1", 0),
683     SSL_CONF_CMD_SWITCH("no_tls1_1", 0),
684     SSL_CONF_CMD_SWITCH("no_tls1_2", 0),
685     SSL_CONF_CMD_SWITCH("no_tls1_3", 0),
686     SSL_CONF_CMD_SWITCH("bugs", 0),
687     SSL_CONF_CMD_SWITCH("no_comp", 0),
688     SSL_CONF_CMD_SWITCH("comp", 0),
689     SSL_CONF_CMD_SWITCH("ecdh_single", SSL_CONF_FLAG_SERVER),
690     SSL_CONF_CMD_SWITCH("no_ticket", 0),
691     SSL_CONF_CMD_SWITCH("serverpref", SSL_CONF_FLAG_SERVER),
692     SSL_CONF_CMD_SWITCH("legacy_renegotiation", 0),
693     SSL_CONF_CMD_SWITCH("client_renegotiation", SSL_CONF_FLAG_SERVER),
694     SSL_CONF_CMD_SWITCH("legacy_server_connect", SSL_CONF_FLAG_CLIENT),
695     SSL_CONF_CMD_SWITCH("no_renegotiation", 0),
696     SSL_CONF_CMD_SWITCH("no_resumption_on_reneg", SSL_CONF_FLAG_SERVER),
697     SSL_CONF_CMD_SWITCH("no_legacy_server_connect", SSL_CONF_FLAG_SERVER),
698     SSL_CONF_CMD_SWITCH("allow_no_dhe_kex", 0),
699     SSL_CONF_CMD_SWITCH("prioritize_chacha", SSL_CONF_FLAG_SERVER),
700     SSL_CONF_CMD_SWITCH("strict", 0),
701     SSL_CONF_CMD_SWITCH("no_middlebox", 0),
702     SSL_CONF_CMD_SWITCH("anti_replay", SSL_CONF_FLAG_SERVER),
703     SSL_CONF_CMD_SWITCH("no_anti_replay", SSL_CONF_FLAG_SERVER),
704     SSL_CONF_CMD_STRING(SignatureAlgorithms, "sigalgs", 0),
705     SSL_CONF_CMD_STRING(ClientSignatureAlgorithms, "client_sigalgs", 0),
706     SSL_CONF_CMD_STRING(Curves, "curves", 0),
707     SSL_CONF_CMD_STRING(Groups, "groups", 0),
708     SSL_CONF_CMD_STRING(ECDHParameters, "named_curve", SSL_CONF_FLAG_SERVER),
709     SSL_CONF_CMD_STRING(CipherString, "cipher", 0),
710     SSL_CONF_CMD_STRING(Ciphersuites, "ciphersuites", 0),
711     SSL_CONF_CMD_STRING(Protocol, NULL, 0),
712     SSL_CONF_CMD_STRING(MinProtocol, "min_protocol", 0),
713     SSL_CONF_CMD_STRING(MaxProtocol, "max_protocol", 0),
714     SSL_CONF_CMD_STRING(Options, NULL, 0),
715     SSL_CONF_CMD_STRING(VerifyMode, NULL, 0),
716     SSL_CONF_CMD(Certificate, "cert", SSL_CONF_FLAG_CERTIFICATE,
717                  SSL_CONF_TYPE_FILE),
718     SSL_CONF_CMD(PrivateKey, "key", SSL_CONF_FLAG_CERTIFICATE,
719                  SSL_CONF_TYPE_FILE),
720     SSL_CONF_CMD(ServerInfoFile, NULL,
721                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
722                  SSL_CONF_TYPE_FILE),
723     SSL_CONF_CMD(ChainCAPath, "chainCApath", SSL_CONF_FLAG_CERTIFICATE,
724                  SSL_CONF_TYPE_DIR),
725     SSL_CONF_CMD(ChainCAFile, "chainCAfile", SSL_CONF_FLAG_CERTIFICATE,
726                  SSL_CONF_TYPE_FILE),
727     SSL_CONF_CMD(ChainCAStore, "chainCAstore", SSL_CONF_FLAG_CERTIFICATE,
728                  SSL_CONF_TYPE_STORE),
729     SSL_CONF_CMD(VerifyCAPath, "verifyCApath", SSL_CONF_FLAG_CERTIFICATE,
730                  SSL_CONF_TYPE_DIR),
731     SSL_CONF_CMD(VerifyCAFile, "verifyCAfile", SSL_CONF_FLAG_CERTIFICATE,
732                  SSL_CONF_TYPE_FILE),
733     SSL_CONF_CMD(VerifyCAStore, "verifyCAstore", SSL_CONF_FLAG_CERTIFICATE,
734                  SSL_CONF_TYPE_STORE),
735     SSL_CONF_CMD(RequestCAFile, "requestCAFile", SSL_CONF_FLAG_CERTIFICATE,
736                  SSL_CONF_TYPE_FILE),
737     SSL_CONF_CMD(ClientCAFile, NULL,
738                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
739                  SSL_CONF_TYPE_FILE),
740     SSL_CONF_CMD(RequestCAPath, NULL, SSL_CONF_FLAG_CERTIFICATE,
741                  SSL_CONF_TYPE_DIR),
742     SSL_CONF_CMD(ClientCAPath, NULL,
743                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
744                  SSL_CONF_TYPE_DIR),
745     SSL_CONF_CMD(RequestCAStore, "requestCAStore", SSL_CONF_FLAG_CERTIFICATE,
746                  SSL_CONF_TYPE_STORE),
747     SSL_CONF_CMD(ClientCAStore, NULL,
748                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
749                  SSL_CONF_TYPE_STORE),
750     SSL_CONF_CMD(DHParameters, "dhparam",
751                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
752                  SSL_CONF_TYPE_FILE),
753     SSL_CONF_CMD_STRING(RecordPadding, "record_padding", 0),
754     SSL_CONF_CMD_STRING(NumTickets, "num_tickets", SSL_CONF_FLAG_SERVER),
755 };
756
757 /* Supported switches: must match order of switches in ssl_conf_cmds */
758 static const ssl_switch_tbl ssl_cmd_switches[] = {
759     {SSL_OP_NO_SSLv3, 0},       /* no_ssl3 */
760     {SSL_OP_NO_TLSv1, 0},       /* no_tls1 */
761     {SSL_OP_NO_TLSv1_1, 0},     /* no_tls1_1 */
762     {SSL_OP_NO_TLSv1_2, 0},     /* no_tls1_2 */
763     {SSL_OP_NO_TLSv1_3, 0},     /* no_tls1_3 */
764     {SSL_OP_ALL, 0},            /* bugs */
765     {SSL_OP_NO_COMPRESSION, 0}, /* no_comp */
766     {SSL_OP_NO_COMPRESSION, SSL_TFLAG_INV}, /* comp */
767     {SSL_OP_SINGLE_ECDH_USE, 0}, /* ecdh_single */
768     {SSL_OP_NO_TICKET, 0},      /* no_ticket */
769     {SSL_OP_CIPHER_SERVER_PREFERENCE, 0}, /* serverpref */
770     /* legacy_renegotiation */
771     {SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION, 0},
772     /* Allow client renegotiation */
773     {SSL_OP_ALLOW_CLIENT_RENEGOTIATION, 0},
774     /* legacy_server_connect */
775     {SSL_OP_LEGACY_SERVER_CONNECT, 0},
776     /* no_renegotiation */
777     {SSL_OP_NO_RENEGOTIATION, 0},
778     /* no_resumption_on_reneg */
779     {SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION, 0},
780     /* no_legacy_server_connect */
781     {SSL_OP_LEGACY_SERVER_CONNECT, SSL_TFLAG_INV},
782     /* allow_no_dhe_kex */
783     {SSL_OP_ALLOW_NO_DHE_KEX, 0},
784     /* chacha reprioritization */
785     {SSL_OP_PRIORITIZE_CHACHA, 0},
786     {SSL_CERT_FLAG_TLS_STRICT, SSL_TFLAG_CERT}, /* strict */
787     /* no_middlebox */
788     {SSL_OP_ENABLE_MIDDLEBOX_COMPAT, SSL_TFLAG_INV},
789     /* anti_replay */
790     {SSL_OP_NO_ANTI_REPLAY, SSL_TFLAG_INV},
791     /* no_anti_replay */
792     {SSL_OP_NO_ANTI_REPLAY, 0},
793 };
794
795 static int ssl_conf_cmd_skip_prefix(SSL_CONF_CTX *cctx, const char **pcmd)
796 {
797     if (pcmd == NULL || *pcmd == NULL)
798         return 0;
799     /* If a prefix is set, check and skip */
800     if (cctx->prefix) {
801         if (strlen(*pcmd) <= cctx->prefixlen)
802             return 0;
803         if (cctx->flags & SSL_CONF_FLAG_CMDLINE &&
804             strncmp(*pcmd, cctx->prefix, cctx->prefixlen))
805             return 0;
806         if (cctx->flags & SSL_CONF_FLAG_FILE &&
807             strncasecmp(*pcmd, cctx->prefix, cctx->prefixlen))
808             return 0;
809         *pcmd += cctx->prefixlen;
810     } else if (cctx->flags & SSL_CONF_FLAG_CMDLINE) {
811         if (**pcmd != '-' || !(*pcmd)[1])
812             return 0;
813         *pcmd += 1;
814     }
815     return 1;
816 }
817
818 /* Determine if a command is allowed according to cctx flags */
819 static int ssl_conf_cmd_allowed(SSL_CONF_CTX *cctx, const ssl_conf_cmd_tbl * t)
820 {
821     unsigned int tfl = t->flags;
822     unsigned int cfl = cctx->flags;
823     if ((tfl & SSL_CONF_FLAG_SERVER) && !(cfl & SSL_CONF_FLAG_SERVER))
824         return 0;
825     if ((tfl & SSL_CONF_FLAG_CLIENT) && !(cfl & SSL_CONF_FLAG_CLIENT))
826         return 0;
827     if ((tfl & SSL_CONF_FLAG_CERTIFICATE)
828         && !(cfl & SSL_CONF_FLAG_CERTIFICATE))
829         return 0;
830     return 1;
831 }
832
833 static const ssl_conf_cmd_tbl *ssl_conf_cmd_lookup(SSL_CONF_CTX *cctx,
834                                                    const char *cmd)
835 {
836     const ssl_conf_cmd_tbl *t;
837     size_t i;
838     if (cmd == NULL)
839         return NULL;
840
841     /* Look for matching parameter name in table */
842     for (i = 0, t = ssl_conf_cmds; i < OSSL_NELEM(ssl_conf_cmds); i++, t++) {
843         if (ssl_conf_cmd_allowed(cctx, t)) {
844             if (cctx->flags & SSL_CONF_FLAG_CMDLINE) {
845                 if (t->str_cmdline && strcmp(t->str_cmdline, cmd) == 0)
846                     return t;
847             }
848             if (cctx->flags & SSL_CONF_FLAG_FILE) {
849                 if (t->str_file && strcasecmp(t->str_file, cmd) == 0)
850                     return t;
851             }
852         }
853     }
854     return NULL;
855 }
856
857 static int ctrl_switch_option(SSL_CONF_CTX *cctx, const ssl_conf_cmd_tbl * cmd)
858 {
859     /* Find index of command in table */
860     size_t idx = cmd - ssl_conf_cmds;
861     const ssl_switch_tbl *scmd;
862     /* Sanity check index */
863     if (idx >= OSSL_NELEM(ssl_cmd_switches))
864         return 0;
865     /* Obtain switches entry with same index */
866     scmd = ssl_cmd_switches + idx;
867     ssl_set_option(cctx, scmd->name_flags, scmd->option_value, 1);
868     return 1;
869 }
870
871 int SSL_CONF_cmd(SSL_CONF_CTX *cctx, const char *cmd, const char *value)
872 {
873     const ssl_conf_cmd_tbl *runcmd;
874     if (cmd == NULL) {
875         ERR_raise(ERR_LIB_SSL, SSL_R_INVALID_NULL_CMD_NAME);
876         return 0;
877     }
878
879     if (!ssl_conf_cmd_skip_prefix(cctx, &cmd))
880         return -2;
881
882     runcmd = ssl_conf_cmd_lookup(cctx, cmd);
883
884     if (runcmd) {
885         int rv;
886         if (runcmd->value_type == SSL_CONF_TYPE_NONE) {
887             return ctrl_switch_option(cctx, runcmd);
888         }
889         if (value == NULL)
890             return -3;
891         rv = runcmd->cmd(cctx, value);
892         if (rv > 0)
893             return 2;
894         if (rv == -2)
895             return -2;
896         if (cctx->flags & SSL_CONF_FLAG_SHOW_ERRORS)
897             ERR_raise_data(ERR_LIB_SSL, SSL_R_BAD_VALUE,
898                            "cmd=%s, value=%s", cmd, value);
899         return 0;
900     }
901
902     if (cctx->flags & SSL_CONF_FLAG_SHOW_ERRORS)
903         ERR_raise_data(ERR_LIB_SSL, SSL_R_UNKNOWN_CMD_NAME, "cmd=%s", cmd);
904
905     return -2;
906 }
907
908 int SSL_CONF_cmd_argv(SSL_CONF_CTX *cctx, int *pargc, char ***pargv)
909 {
910     int rv;
911     const char *arg = NULL, *argn;
912
913     if (pargc != NULL && *pargc == 0)
914         return 0;
915     if (pargc == NULL || *pargc > 0)
916         arg = **pargv;
917     if (arg == NULL)
918         return 0;
919     if (pargc == NULL || *pargc > 1)
920         argn = (*pargv)[1];
921     else
922         argn = NULL;
923     cctx->flags &= ~SSL_CONF_FLAG_FILE;
924     cctx->flags |= SSL_CONF_FLAG_CMDLINE;
925     rv = SSL_CONF_cmd(cctx, arg, argn);
926     if (rv > 0) {
927         /* Success: update pargc, pargv */
928         (*pargv) += rv;
929         if (pargc)
930             (*pargc) -= rv;
931         return rv;
932     }
933     /* Unknown switch: indicate no arguments processed */
934     if (rv == -2)
935         return 0;
936     /* Some error occurred processing command, return fatal error */
937     if (rv == 0)
938         return -1;
939     return rv;
940 }
941
942 int SSL_CONF_cmd_value_type(SSL_CONF_CTX *cctx, const char *cmd)
943 {
944     if (ssl_conf_cmd_skip_prefix(cctx, &cmd)) {
945         const ssl_conf_cmd_tbl *runcmd;
946         runcmd = ssl_conf_cmd_lookup(cctx, cmd);
947         if (runcmd)
948             return runcmd->value_type;
949     }
950     return SSL_CONF_TYPE_UNKNOWN;
951 }
952
953 SSL_CONF_CTX *SSL_CONF_CTX_new(void)
954 {
955     SSL_CONF_CTX *ret = OPENSSL_zalloc(sizeof(*ret));
956
957     return ret;
958 }
959
960 int SSL_CONF_CTX_finish(SSL_CONF_CTX *cctx)
961 {
962     /* See if any certificates are missing private keys */
963     size_t i;
964     CERT *c = NULL;
965     if (cctx->ctx)
966         c = cctx->ctx->cert;
967     else if (cctx->ssl)
968         c = cctx->ssl->cert;
969     if (c && cctx->flags & SSL_CONF_FLAG_REQUIRE_PRIVATE) {
970         for (i = 0; i < SSL_PKEY_NUM; i++) {
971             const char *p = cctx->cert_filename[i];
972             /*
973              * If missing private key try to load one from certificate file
974              */
975             if (p && !c->pkeys[i].privatekey) {
976                 if (!cmd_PrivateKey(cctx, p))
977                     return 0;
978             }
979         }
980     }
981     if (cctx->canames) {
982         if (cctx->ssl)
983             SSL_set0_CA_list(cctx->ssl, cctx->canames);
984         else if (cctx->ctx)
985             SSL_CTX_set0_CA_list(cctx->ctx, cctx->canames);
986         else
987             sk_X509_NAME_pop_free(cctx->canames, X509_NAME_free);
988         cctx->canames = NULL;
989     }
990     return 1;
991 }
992
993 void SSL_CONF_CTX_free(SSL_CONF_CTX *cctx)
994 {
995     if (cctx) {
996         size_t i;
997         for (i = 0; i < SSL_PKEY_NUM; i++)
998             OPENSSL_free(cctx->cert_filename[i]);
999         OPENSSL_free(cctx->prefix);
1000         sk_X509_NAME_pop_free(cctx->canames, X509_NAME_free);
1001         OPENSSL_free(cctx);
1002     }
1003 }
1004
1005 unsigned int SSL_CONF_CTX_set_flags(SSL_CONF_CTX *cctx, unsigned int flags)
1006 {
1007     cctx->flags |= flags;
1008     return cctx->flags;
1009 }
1010
1011 unsigned int SSL_CONF_CTX_clear_flags(SSL_CONF_CTX *cctx, unsigned int flags)
1012 {
1013     cctx->flags &= ~flags;
1014     return cctx->flags;
1015 }
1016
1017 int SSL_CONF_CTX_set1_prefix(SSL_CONF_CTX *cctx, const char *pre)
1018 {
1019     char *tmp = NULL;
1020     if (pre) {
1021         tmp = OPENSSL_strdup(pre);
1022         if (tmp == NULL)
1023             return 0;
1024     }
1025     OPENSSL_free(cctx->prefix);
1026     cctx->prefix = tmp;
1027     if (tmp)
1028         cctx->prefixlen = strlen(tmp);
1029     else
1030         cctx->prefixlen = 0;
1031     return 1;
1032 }
1033
1034 void SSL_CONF_CTX_set_ssl(SSL_CONF_CTX *cctx, SSL *ssl)
1035 {
1036     cctx->ssl = ssl;
1037     cctx->ctx = NULL;
1038     if (ssl) {
1039         cctx->poptions = &ssl->options;
1040         cctx->min_version = &ssl->min_proto_version;
1041         cctx->max_version = &ssl->max_proto_version;
1042         cctx->pcert_flags = &ssl->cert->cert_flags;
1043         cctx->pvfy_flags = &ssl->verify_mode;
1044     } else {
1045         cctx->poptions = NULL;
1046         cctx->min_version = NULL;
1047         cctx->max_version = NULL;
1048         cctx->pcert_flags = NULL;
1049         cctx->pvfy_flags = NULL;
1050     }
1051 }
1052
1053 void SSL_CONF_CTX_set_ssl_ctx(SSL_CONF_CTX *cctx, SSL_CTX *ctx)
1054 {
1055     cctx->ctx = ctx;
1056     cctx->ssl = NULL;
1057     if (ctx) {
1058         cctx->poptions = &ctx->options;
1059         cctx->min_version = &ctx->min_proto_version;
1060         cctx->max_version = &ctx->max_proto_version;
1061         cctx->pcert_flags = &ctx->cert->cert_flags;
1062         cctx->pvfy_flags = &ctx->verify_mode;
1063     } else {
1064         cctx->poptions = NULL;
1065         cctx->min_version = NULL;
1066         cctx->max_version = NULL;
1067         cctx->pcert_flags = NULL;
1068         cctx->pvfy_flags = NULL;
1069     }
1070 }