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