mem-cleanup, cont'd.
[openssl.git] / ssl / ssl_conf.c
1 /*
2  * ! \file ssl/ssl_conf.c \brief SSL configuration functions
3  */
4 /* ====================================================================
5  * Copyright (c) 2012 The OpenSSL Project.  All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  *
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  *
14  * 2. Redistributions in binary form must reproduce the above copyright
15  *    notice, this list of conditions and the following disclaimer in
16  *    the documentation and/or other materials provided with the
17  *    distribution.
18  *
19  * 3. All advertising materials mentioning features or use of this
20  *    software must display the following acknowledgment:
21  *    "This product includes software developed by the OpenSSL Project
22  *    for use in the OpenSSL Toolkit. (http://www.openssl.org/)"
23  *
24  * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
25  *    endorse or promote products derived from this software without
26  *    prior written permission. For written permission, please contact
27  *    openssl-core@openssl.org.
28  *
29  * 5. Products derived from this software may not be called "OpenSSL"
30  *    nor may "OpenSSL" appear in their names without prior written
31  *    permission of the OpenSSL Project.
32  *
33  * 6. Redistributions of any form whatsoever must retain the following
34  *    acknowledgment:
35  *    "This product includes software developed by the OpenSSL Project
36  *    for use in the OpenSSL Toolkit (http://www.openssl.org/)"
37  *
38  * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
39  * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
40  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
41  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
42  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
43  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
44  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
45  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
46  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
47  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
48  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
49  * OF THE POSSIBILITY OF SUCH DAMAGE.
50  * ====================================================================
51  *
52  * This product includes cryptographic software written by Eric Young
53  * (eay@cryptsoft.com).  This product includes software written by Tim
54  * Hudson (tjh@cryptsoft.com).
55  *
56  */
57
58 #ifdef REF_CHECK
59 # include <assert.h>
60 #endif
61 #include <stdio.h>
62 #include "ssl_locl.h"
63 #include <openssl/conf.h>
64 #include <openssl/objects.h>
65 #ifndef OPENSSL_NO_DH
66 # include <openssl/dh.h>
67 #endif
68
69 /*
70  * structure holding name tables. This is used for pemitted elements in lists
71  * such as TLSv1.
72  */
73
74 typedef struct {
75     const char *name;
76     int namelen;
77     unsigned int name_flags;
78     unsigned long option_value;
79 } ssl_flag_tbl;
80
81 /* Switch table: use for single command line switches like no_tls2 */
82 typedef struct {
83     unsigned long option_value;
84     unsigned int name_flags;
85 } ssl_switch_tbl;
86
87 /* Sense of name is inverted e.g. "TLSv1" will clear SSL_OP_NO_TLSv1 */
88 #define SSL_TFLAG_INV   0x1
89 /* Mask for type of flag referred to */
90 #define SSL_TFLAG_TYPE_MASK 0xf00
91 /* Flag is for options */
92 #define SSL_TFLAG_OPTION    0x000
93 /* Flag is for cert_flags */
94 #define SSL_TFLAG_CERT      0x100
95 /* Flag is for verify mode */
96 #define SSL_TFLAG_VFY       0x200
97 /* Option can only be used for clients */
98 #define SSL_TFLAG_CLIENT SSL_CONF_FLAG_CLIENT
99 /* Option can only be used for servers */
100 #define SSL_TFLAG_SERVER SSL_CONF_FLAG_SERVER
101 #define SSL_TFLAG_BOTH (SSL_TFLAG_CLIENT|SSL_TFLAG_SERVER)
102
103 #define SSL_FLAG_TBL(str, flag) \
104         {str, (int)(sizeof(str) - 1), SSL_TFLAG_BOTH, flag}
105 #define SSL_FLAG_TBL_SRV(str, flag) \
106         {str, (int)(sizeof(str) - 1), SSL_TFLAG_SERVER, flag}
107 #define SSL_FLAG_TBL_CLI(str, flag) \
108         {str, (int)(sizeof(str) - 1), SSL_TFLAG_CLIENT, flag}
109 #define SSL_FLAG_TBL_INV(str, flag) \
110         {str, (int)(sizeof(str) - 1), SSL_TFLAG_INV|SSL_TFLAG_BOTH, flag}
111 #define SSL_FLAG_TBL_SRV_INV(str, flag) \
112         {str, (int)(sizeof(str) - 1), SSL_TFLAG_INV|SSL_TFLAG_SERVER, flag}
113 #define SSL_FLAG_TBL_CERT(str, flag) \
114         {str, (int)(sizeof(str) - 1), SSL_TFLAG_CERT|SSL_TFLAG_BOTH, flag}
115
116 #define SSL_FLAG_VFY_CLI(str, flag) \
117         {str, (int)(sizeof(str) - 1), SSL_TFLAG_VFY | SSL_TFLAG_CLIENT, flag}
118 #define SSL_FLAG_VFY_SRV(str, flag) \
119         {str, (int)(sizeof(str) - 1), SSL_TFLAG_VFY | SSL_TFLAG_SERVER, flag}
120
121 /*
122  * Opaque structure containing SSL configuration context.
123  */
124
125 struct ssl_conf_ctx_st {
126     /*
127      * Various flags indicating (among other things) which options we will
128      * recognise.
129      */
130     unsigned int flags;
131     /* Prefix and length of commands */
132     char *prefix;
133     size_t prefixlen;
134     /* SSL_CTX or SSL structure to perform operations on */
135     SSL_CTX *ctx;
136     SSL *ssl;
137     /* Pointer to SSL or SSL_CTX options field or NULL if none */
138     uint32_t *poptions;
139     /* Certificate filenames for each type */
140     char *cert_filename[SSL_PKEY_NUM];
141     /* Pointer to SSL or SSL_CTX cert_flags or NULL if none */
142     uint32_t *pcert_flags;
143     /* Pointer to SSL or SSL_CTX verify_mode or NULL if none */
144     uint32_t *pvfy_flags;
145     /* Current flag table being worked on */
146     const ssl_flag_tbl *tbl;
147     /* Size of table */
148     size_t ntbl;
149     /* Client CA names */
150     STACK_OF(X509_NAME) *canames;
151 };
152
153 static void ssl_set_option(SSL_CONF_CTX *cctx, unsigned int name_flags,
154                            unsigned long option_value, int onoff)
155 {
156     uint32_t *pflags;
157     if (cctx->poptions == NULL)
158         return;
159     if (name_flags & SSL_TFLAG_INV)
160         onoff ^= 1;
161     switch (name_flags & SSL_TFLAG_TYPE_MASK) {
162
163     case SSL_TFLAG_CERT:
164         pflags = cctx->pcert_flags;
165         break;
166
167     case SSL_TFLAG_VFY:
168         pflags =  cctx->pvfy_flags;
169         break;
170
171     case SSL_TFLAG_OPTION:
172         pflags = cctx->poptions;
173         break;
174
175     default:
176         return;
177
178     }
179     if (onoff)
180         *pflags |= option_value;
181     else
182         *pflags &= ~option_value;
183 }
184
185 static int ssl_match_option(SSL_CONF_CTX *cctx, const ssl_flag_tbl *tbl,
186                             const char *name, int namelen, int onoff)
187 {
188     /* If name not relevant for context skip */
189     if (!(cctx->flags & tbl->name_flags & SSL_TFLAG_BOTH))
190         return 0;
191     if (namelen == -1) {
192         if (strcmp(tbl->name, name))
193             return 0;
194     } else if (tbl->namelen != namelen
195                || strncasecmp(tbl->name, name, namelen))
196         return 0;
197     ssl_set_option(cctx, tbl->name_flags, tbl->option_value, onoff);
198     return 1;
199 }
200
201 static int ssl_set_option_list(const char *elem, int len, void *usr)
202 {
203     SSL_CONF_CTX *cctx = usr;
204     size_t i;
205     const ssl_flag_tbl *tbl;
206     int onoff = 1;
207     /*
208      * len == -1 indicates not being called in list context, just for single
209      * command line switches, so don't allow +, -.
210      */
211     if (elem == NULL)
212         return 0;
213     if (len != -1) {
214         if (*elem == '+') {
215             elem++;
216             len--;
217             onoff = 1;
218         } else if (*elem == '-') {
219             elem++;
220             len--;
221             onoff = 0;
222         }
223     }
224     for (i = 0, tbl = cctx->tbl; i < cctx->ntbl; i++, tbl++) {
225         if (ssl_match_option(cctx, tbl, elem, len, onoff))
226             return 1;
227     }
228     return 0;
229 }
230
231 /* Set supported signature algorithms */
232 static int cmd_SignatureAlgorithms(SSL_CONF_CTX *cctx, const char *value)
233 {
234     int rv;
235     if (cctx->ssl)
236         rv = SSL_set1_sigalgs_list(cctx->ssl, value);
237     /* NB: ctx == NULL performs syntax checking only */
238     else
239         rv = SSL_CTX_set1_sigalgs_list(cctx->ctx, value);
240     return rv > 0;
241 }
242
243 /* Set supported client signature algorithms */
244 static int cmd_ClientSignatureAlgorithms(SSL_CONF_CTX *cctx,
245                                          const char *value)
246 {
247     int rv;
248     if (cctx->ssl)
249         rv = SSL_set1_client_sigalgs_list(cctx->ssl, value);
250     /* NB: ctx == NULL performs syntax checking only */
251     else
252         rv = SSL_CTX_set1_client_sigalgs_list(cctx->ctx, value);
253     return rv > 0;
254 }
255
256 static int cmd_Curves(SSL_CONF_CTX *cctx, const char *value)
257 {
258     int rv;
259     if (cctx->ssl)
260         rv = SSL_set1_curves_list(cctx->ssl, value);
261     /* NB: ctx == NULL performs syntax checking only */
262     else
263         rv = SSL_CTX_set1_curves_list(cctx->ctx, value);
264     return rv > 0;
265 }
266
267 #ifndef OPENSSL_NO_EC
268 /* ECDH temporary parameters */
269 static int cmd_ECDHParameters(SSL_CONF_CTX *cctx, const char *value)
270 {
271     int rv = 1;
272     EC_KEY *ecdh;
273     int nid;
274
275     nid = EC_curve_nist2nid(value);
276     if (nid == NID_undef)
277         nid = OBJ_sn2nid(value);
278     if (nid == 0)
279         return 0;
280     ecdh = EC_KEY_new_by_curve_name(nid);
281     if (!ecdh)
282         return 0;
283     if (cctx->ctx)
284         rv = SSL_CTX_set_tmp_ecdh(cctx->ctx, ecdh);
285     else if (cctx->ssl)
286         rv = SSL_set_tmp_ecdh(cctx->ssl, ecdh);
287     EC_KEY_free(ecdh);
288
289     return rv > 0;
290 }
291 #endif
292 static int cmd_CipherString(SSL_CONF_CTX *cctx, const char *value)
293 {
294     int rv = 1;
295     if (cctx->ctx)
296         rv = SSL_CTX_set_cipher_list(cctx->ctx, value);
297     if (cctx->ssl)
298         rv = SSL_set_cipher_list(cctx->ssl, value);
299     return rv > 0;
300 }
301
302 static int cmd_Protocol(SSL_CONF_CTX *cctx, const char *value)
303 {
304     static const ssl_flag_tbl ssl_protocol_list[] = {
305         SSL_FLAG_TBL_INV("ALL", SSL_OP_NO_SSL_MASK),
306         SSL_FLAG_TBL_INV("SSLv2", SSL_OP_NO_SSLv2),
307         SSL_FLAG_TBL_INV("SSLv3", SSL_OP_NO_SSLv3),
308         SSL_FLAG_TBL_INV("TLSv1", SSL_OP_NO_TLSv1),
309         SSL_FLAG_TBL_INV("TLSv1.1", SSL_OP_NO_TLSv1_1),
310         SSL_FLAG_TBL_INV("TLSv1.2", SSL_OP_NO_TLSv1_2)
311     };
312     cctx->tbl = ssl_protocol_list;
313     cctx->ntbl = OSSL_NELEM(ssl_protocol_list);
314     return CONF_parse_list(value, ',', 1, ssl_set_option_list, cctx);
315 }
316
317 static int cmd_Options(SSL_CONF_CTX *cctx, const char *value)
318 {
319     static const ssl_flag_tbl ssl_option_list[] = {
320         SSL_FLAG_TBL_INV("SessionTicket", SSL_OP_NO_TICKET),
321         SSL_FLAG_TBL_INV("EmptyFragments",
322                          SSL_OP_DONT_INSERT_EMPTY_FRAGMENTS),
323         SSL_FLAG_TBL("Bugs", SSL_OP_ALL),
324         SSL_FLAG_TBL_INV("Compression", SSL_OP_NO_COMPRESSION),
325         SSL_FLAG_TBL_SRV("ServerPreference", SSL_OP_CIPHER_SERVER_PREFERENCE),
326         SSL_FLAG_TBL_SRV("NoResumptionOnRenegotiation",
327                          SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION),
328         SSL_FLAG_TBL_SRV("DHSingle", SSL_OP_SINGLE_DH_USE),
329         SSL_FLAG_TBL_SRV("ECDHSingle", SSL_OP_SINGLE_ECDH_USE),
330         SSL_FLAG_TBL("UnsafeLegacyRenegotiation",
331                      SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION),
332     };
333     if (value == NULL)
334         return -3;
335     cctx->tbl = ssl_option_list;
336     cctx->ntbl = OSSL_NELEM(ssl_option_list);
337     return CONF_parse_list(value, ',', 1, ssl_set_option_list, cctx);
338 }
339
340 static int cmd_VerifyMode(SSL_CONF_CTX *cctx, const char *value)
341 {
342     static const ssl_flag_tbl ssl_vfy_list[] = {
343         SSL_FLAG_VFY_CLI("Peer", SSL_VERIFY_PEER),
344         SSL_FLAG_VFY_SRV("Request", SSL_VERIFY_PEER),
345         SSL_FLAG_VFY_SRV("Require",
346                          SSL_VERIFY_PEER | SSL_VERIFY_FAIL_IF_NO_PEER_CERT),
347         SSL_FLAG_VFY_SRV("Once", SSL_VERIFY_PEER | SSL_VERIFY_CLIENT_ONCE)
348     };
349     if (value == NULL)
350         return -3;
351     cctx->tbl = ssl_vfy_list;
352     cctx->ntbl = OSSL_NELEM(ssl_vfy_list);
353     return CONF_parse_list(value, ',', 1, ssl_set_option_list, cctx);
354 }
355
356 static int cmd_Certificate(SSL_CONF_CTX *cctx, const char *value)
357 {
358     int rv = 1;
359     CERT *c = NULL;
360     if (cctx->ctx) {
361         rv = SSL_CTX_use_certificate_chain_file(cctx->ctx, value);
362         c = cctx->ctx->cert;
363     }
364     if (cctx->ssl) {
365         rv = SSL_use_certificate_chain_file(cctx->ssl, value);
366         c = cctx->ssl->cert;
367     }
368     if (rv > 0 && c && cctx->flags & SSL_CONF_FLAG_REQUIRE_PRIVATE) {
369         char **pfilename = &cctx->cert_filename[c->key - c->pkeys];
370         OPENSSL_free(*pfilename);
371         *pfilename = OPENSSL_strdup(value);
372         if (!*pfilename)
373             rv = 0;
374     }
375
376     return rv > 0;
377 }
378
379 static int cmd_PrivateKey(SSL_CONF_CTX *cctx, const char *value)
380 {
381     int rv = 1;
382     if (!(cctx->flags & SSL_CONF_FLAG_CERTIFICATE))
383         return -2;
384     if (cctx->ctx)
385         rv = SSL_CTX_use_PrivateKey_file(cctx->ctx, value, SSL_FILETYPE_PEM);
386     if (cctx->ssl)
387         rv = SSL_use_PrivateKey_file(cctx->ssl, value, SSL_FILETYPE_PEM);
388     return rv > 0;
389 }
390
391 static int cmd_ServerInfoFile(SSL_CONF_CTX *cctx, const char *value)
392 {
393     int rv = 1;
394     if (cctx->ctx)
395         rv = SSL_CTX_use_serverinfo_file(cctx->ctx, value);
396     return rv > 0;
397 }
398
399 static int do_store(SSL_CONF_CTX *cctx,
400                     const char *CAfile, const char *CApath, int verify_store)
401 {
402     CERT *cert;
403     X509_STORE **st;
404     if (cctx->ctx)
405         cert = cctx->ctx->cert;
406     else if (cctx->ssl)
407         cert = cctx->ssl->cert;
408     else
409         return 1;
410     st = verify_store ? &cert->verify_store : &cert->chain_store;
411     if (*st == NULL) {
412         *st = X509_STORE_new();
413         if (*st == NULL)
414             return 0;
415     }
416     return X509_STORE_load_locations(*st, CAfile, CApath) > 0;
417 }
418
419 static int cmd_ChainCAPath(SSL_CONF_CTX *cctx, const char *value)
420 {
421     return do_store(cctx, NULL, value, 0);
422 }
423
424 static int cmd_ChainCAFile(SSL_CONF_CTX *cctx, const char *value)
425 {
426     return do_store(cctx, value, NULL, 0);
427 }
428
429 static int cmd_VerifyCAPath(SSL_CONF_CTX *cctx, const char *value)
430 {
431     return do_store(cctx, NULL, value, 1);
432 }
433
434 static int cmd_VerifyCAFile(SSL_CONF_CTX *cctx, const char *value)
435 {
436     return do_store(cctx, value, NULL, 1);
437 }
438
439 static int cmd_ClientCAFile(SSL_CONF_CTX *cctx, const char *value)
440 {
441     if (cctx->canames == NULL)
442         cctx->canames = sk_X509_NAME_new_null();
443     if (cctx->canames == NULL)
444         return 0;
445     return SSL_add_file_cert_subjects_to_stack(cctx->canames, value);
446 }
447
448 static int cmd_ClientCAPath(SSL_CONF_CTX *cctx, const char *value)
449 {
450     if (cctx->canames == NULL)
451         cctx->canames = sk_X509_NAME_new_null();
452     if (cctx->canames == NULL)
453         return 0;
454     return SSL_add_dir_cert_subjects_to_stack(cctx->canames, value);
455 }
456
457 #ifndef OPENSSL_NO_DH
458 static int cmd_DHParameters(SSL_CONF_CTX *cctx, const char *value)
459 {
460     int rv = 0;
461     DH *dh = NULL;
462     BIO *in = NULL;
463     if (cctx->ctx || cctx->ssl) {
464         in = BIO_new(BIO_s_file());
465         if (in == NULL)
466             goto end;
467         if (BIO_read_filename(in, value) <= 0)
468             goto end;
469         dh = PEM_read_bio_DHparams(in, NULL, NULL, NULL);
470         if (dh == NULL)
471             goto end;
472     } else
473         return 1;
474     if (cctx->ctx)
475         rv = SSL_CTX_set_tmp_dh(cctx->ctx, dh);
476     if (cctx->ssl)
477         rv = SSL_set_tmp_dh(cctx->ssl, dh);
478  end:
479     DH_free(dh);
480     BIO_free(in);
481     return rv > 0;
482 }
483 #endif
484 typedef struct {
485     int (*cmd) (SSL_CONF_CTX *cctx, const char *value);
486     const char *str_file;
487     const char *str_cmdline;
488     unsigned short flags;
489     unsigned short value_type;
490 } ssl_conf_cmd_tbl;
491
492 /* Table of supported parameters */
493
494 #define SSL_CONF_CMD(name, cmdopt, flags, type) \
495         {cmd_##name, #name, cmdopt, flags, type}
496
497 #define SSL_CONF_CMD_STRING(name, cmdopt, flags) \
498         SSL_CONF_CMD(name, cmdopt, flags, SSL_CONF_TYPE_STRING)
499
500 #define SSL_CONF_CMD_SWITCH(name, flags) \
501         {0, NULL, name, flags, SSL_CONF_TYPE_NONE}
502
503 /* See apps/apps.h if you change this table. */
504 static const ssl_conf_cmd_tbl ssl_conf_cmds[] = {
505     SSL_CONF_CMD_SWITCH("no_ssl3", 0),
506     SSL_CONF_CMD_SWITCH("no_tls1", 0),
507     SSL_CONF_CMD_SWITCH("no_tls1_1", 0),
508     SSL_CONF_CMD_SWITCH("no_tls1_2", 0),
509     SSL_CONF_CMD_SWITCH("bugs", 0),
510     SSL_CONF_CMD_SWITCH("no_comp", 0),
511     SSL_CONF_CMD_SWITCH("ecdh_single", SSL_CONF_FLAG_SERVER),
512     SSL_CONF_CMD_SWITCH("no_ticket", 0),
513     SSL_CONF_CMD_SWITCH("serverpref", SSL_CONF_FLAG_SERVER),
514     SSL_CONF_CMD_SWITCH("legacy_renegotiation", 0),
515     SSL_CONF_CMD_SWITCH("legacy_server_connect", SSL_CONF_FLAG_SERVER),
516     SSL_CONF_CMD_SWITCH("no_resumption_on_reneg", SSL_CONF_FLAG_SERVER),
517     SSL_CONF_CMD_SWITCH("no_legacy_server_connect", SSL_CONF_FLAG_SERVER),
518     SSL_CONF_CMD_SWITCH("strict", 0),
519 #ifdef OPENSSL_SSL_DEBUG_BROKEN_PROTOCOL
520     SSL_CONF_CMD_SWITCH("debug_broken_protocol", 0),
521 #endif
522     SSL_CONF_CMD_STRING(SignatureAlgorithms, "sigalgs", 0),
523     SSL_CONF_CMD_STRING(ClientSignatureAlgorithms, "client_sigalgs", 0),
524     SSL_CONF_CMD_STRING(Curves, "curves", 0),
525 #ifndef OPENSSL_NO_EC
526     SSL_CONF_CMD_STRING(ECDHParameters, "named_curve", SSL_CONF_FLAG_SERVER),
527 #endif
528     SSL_CONF_CMD_STRING(CipherString, "cipher", 0),
529     SSL_CONF_CMD_STRING(Protocol, NULL, 0),
530     SSL_CONF_CMD_STRING(Options, NULL, 0),
531     SSL_CONF_CMD_STRING(VerifyMode, NULL, 0),
532     SSL_CONF_CMD(Certificate, "cert", SSL_CONF_FLAG_CERTIFICATE,
533                  SSL_CONF_TYPE_FILE),
534     SSL_CONF_CMD(PrivateKey, "key", SSL_CONF_FLAG_CERTIFICATE,
535                  SSL_CONF_TYPE_FILE),
536     SSL_CONF_CMD(ServerInfoFile, NULL,
537                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
538                  SSL_CONF_TYPE_FILE),
539     SSL_CONF_CMD(ChainCAPath, "chainCApath", SSL_CONF_FLAG_CERTIFICATE,
540                  SSL_CONF_TYPE_DIR),
541     SSL_CONF_CMD(ChainCAFile, "chainCAfile", SSL_CONF_FLAG_CERTIFICATE,
542                  SSL_CONF_TYPE_FILE),
543     SSL_CONF_CMD(VerifyCAPath, "verifyCApath", SSL_CONF_FLAG_CERTIFICATE,
544                  SSL_CONF_TYPE_DIR),
545     SSL_CONF_CMD(VerifyCAFile, "verifyCAfile", SSL_CONF_FLAG_CERTIFICATE,
546                  SSL_CONF_TYPE_FILE),
547     SSL_CONF_CMD(ClientCAFile, NULL,
548                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
549                  SSL_CONF_TYPE_FILE),
550     SSL_CONF_CMD(ClientCAPath, NULL,
551                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
552                  SSL_CONF_TYPE_DIR),
553 #ifndef OPENSSL_NO_DH
554     SSL_CONF_CMD(DHParameters, "dhparam",
555                  SSL_CONF_FLAG_SERVER | SSL_CONF_FLAG_CERTIFICATE,
556                  SSL_CONF_TYPE_FILE)
557 #endif
558 };
559
560 /* Supported switches: must match order of switches in ssl_conf_cmds */
561 static const ssl_switch_tbl ssl_cmd_switches[] = {
562     {SSL_OP_NO_SSLv3, 0},       /* no_ssl3 */
563     {SSL_OP_NO_TLSv1, 0},       /* no_tls1 */
564     {SSL_OP_NO_TLSv1_1, 0},     /* no_tls1_1 */
565     {SSL_OP_NO_TLSv1_2, 0},     /* no_tls1_2 */
566     {SSL_OP_ALL, 0},            /* bugs */
567     {SSL_OP_NO_COMPRESSION, 0}, /* no_comp */
568     {SSL_OP_SINGLE_ECDH_USE, 0}, /* ecdh_single */
569     {SSL_OP_NO_TICKET, 0},      /* no_ticket */
570     {SSL_OP_CIPHER_SERVER_PREFERENCE, 0}, /* serverpref */
571     /* legacy_renegotiation */
572     {SSL_OP_ALLOW_UNSAFE_LEGACY_RENEGOTIATION, 0},
573     /* legacy_server_connect */
574     {SSL_OP_LEGACY_SERVER_CONNECT, 0},
575     /* no_resumption_on_reneg */
576     {SSL_OP_NO_SESSION_RESUMPTION_ON_RENEGOTIATION, 0},
577     /* no_legacy_server_connect */
578     {SSL_OP_LEGACY_SERVER_CONNECT, SSL_TFLAG_INV},
579     {SSL_CERT_FLAG_TLS_STRICT, SSL_TFLAG_CERT}, /* strict */
580 #ifdef OPENSSL_SSL_DEBUG_BROKEN_PROTOCOL
581     {SSL_CERT_FLAG_BROKEN_PROTOCOL, SSL_TFLAG_CERT} /* debug_broken_protocol */
582 #endif
583 };
584
585 static int ssl_conf_cmd_skip_prefix(SSL_CONF_CTX *cctx, const char **pcmd)
586 {
587     if (!pcmd || !*pcmd)
588         return 0;
589     /* If a prefix is set, check and skip */
590     if (cctx->prefix) {
591         if (strlen(*pcmd) <= cctx->prefixlen)
592             return 0;
593         if (cctx->flags & SSL_CONF_FLAG_CMDLINE &&
594             strncmp(*pcmd, cctx->prefix, cctx->prefixlen))
595             return 0;
596         if (cctx->flags & SSL_CONF_FLAG_FILE &&
597             strncasecmp(*pcmd, cctx->prefix, cctx->prefixlen))
598             return 0;
599         *pcmd += cctx->prefixlen;
600     } else if (cctx->flags & SSL_CONF_FLAG_CMDLINE) {
601         if (**pcmd != '-' || !(*pcmd)[1])
602             return 0;
603         *pcmd += 1;
604     }
605     return 1;
606 }
607
608 /* Determine if a command is allowed according to cctx flags */
609 static int ssl_conf_cmd_allowed(SSL_CONF_CTX *cctx,
610                                 const ssl_conf_cmd_tbl * t)
611 {
612     unsigned int tfl = t->flags;
613     unsigned int cfl = cctx->flags;
614     if ((tfl & SSL_CONF_FLAG_SERVER) && !(cfl & SSL_CONF_FLAG_SERVER))
615         return 0;
616     if ((tfl & SSL_CONF_FLAG_CLIENT) && !(cfl & SSL_CONF_FLAG_CLIENT))
617         return 0;
618     if ((tfl & SSL_CONF_FLAG_CERTIFICATE)
619         && !(cfl & SSL_CONF_FLAG_CERTIFICATE))
620         return 0;
621     return 1;
622 }
623
624 static const ssl_conf_cmd_tbl *ssl_conf_cmd_lookup(SSL_CONF_CTX *cctx,
625                                                    const char *cmd)
626 {
627     const ssl_conf_cmd_tbl *t;
628     size_t i;
629     if (cmd == NULL)
630         return NULL;
631
632     /* Look for matching parameter name in table */
633     for (i = 0, t = ssl_conf_cmds; i < OSSL_NELEM(ssl_conf_cmds); i++, t++) {
634         if (ssl_conf_cmd_allowed(cctx, t)) {
635             if (cctx->flags & SSL_CONF_FLAG_CMDLINE) {
636                 if (t->str_cmdline && strcmp(t->str_cmdline, cmd) == 0)
637                     return t;
638             }
639             if (cctx->flags & SSL_CONF_FLAG_FILE) {
640                 if (t->str_file && strcasecmp(t->str_file, cmd) == 0)
641                     return t;
642             }
643         }
644     }
645     return NULL;
646 }
647
648 static int ctrl_switch_option(SSL_CONF_CTX *cctx,
649                               const ssl_conf_cmd_tbl * cmd)
650 {
651     /* Find index of command in table */
652     size_t idx = cmd - ssl_conf_cmds;
653     const ssl_switch_tbl *scmd;
654     /* Sanity check index */
655     if (idx >= OSSL_NELEM(ssl_cmd_switches))
656         return 0;
657     /* Obtain switches entry with same index */
658     scmd = ssl_cmd_switches + idx;
659     ssl_set_option(cctx, scmd->name_flags, scmd->option_value, 1);
660     return 1;
661 }
662
663 int SSL_CONF_cmd(SSL_CONF_CTX *cctx, const char *cmd, const char *value)
664 {
665     const ssl_conf_cmd_tbl *runcmd;
666     if (cmd == NULL) {
667         SSLerr(SSL_F_SSL_CONF_CMD, SSL_R_INVALID_NULL_CMD_NAME);
668         return 0;
669     }
670
671     if (!ssl_conf_cmd_skip_prefix(cctx, &cmd))
672         return -2;
673
674     runcmd = ssl_conf_cmd_lookup(cctx, cmd);
675
676     if (runcmd) {
677         int rv;
678         if (runcmd->value_type == SSL_CONF_TYPE_NONE) {
679             return ctrl_switch_option(cctx, runcmd);
680         }
681         if (value == NULL)
682             return -3;
683         rv = runcmd->cmd(cctx, value);
684         if (rv > 0)
685             return 2;
686         if (rv == -2)
687             return -2;
688         if (cctx->flags & SSL_CONF_FLAG_SHOW_ERRORS) {
689             SSLerr(SSL_F_SSL_CONF_CMD, SSL_R_BAD_VALUE);
690             ERR_add_error_data(4, "cmd=", cmd, ", value=", value);
691         }
692         return 0;
693     }
694
695     if (cctx->flags & SSL_CONF_FLAG_SHOW_ERRORS) {
696         SSLerr(SSL_F_SSL_CONF_CMD, SSL_R_UNKNOWN_CMD_NAME);
697         ERR_add_error_data(2, "cmd=", cmd);
698     }
699
700     return -2;
701 }
702
703 int SSL_CONF_cmd_argv(SSL_CONF_CTX *cctx, int *pargc, char ***pargv)
704 {
705     int rv;
706     const char *arg = NULL, *argn;
707     if (pargc && *pargc == 0)
708         return 0;
709     if (!pargc || *pargc > 0)
710         arg = **pargv;
711     if (arg == NULL)
712         return 0;
713     if (!pargc || *pargc > 1)
714         argn = (*pargv)[1];
715     else
716         argn = NULL;
717     cctx->flags &= ~SSL_CONF_FLAG_FILE;
718     cctx->flags |= SSL_CONF_FLAG_CMDLINE;
719     rv = SSL_CONF_cmd(cctx, arg, argn);
720     if (rv > 0) {
721         /* Success: update pargc, pargv */
722         (*pargv) += rv;
723         if (pargc)
724             (*pargc) -= rv;
725         return rv;
726     }
727     /* Unknown switch: indicate no arguments processed */
728     if (rv == -2)
729         return 0;
730     /* Some error occurred processing command, return fatal error */
731     if (rv == 0)
732         return -1;
733     return rv;
734 }
735
736 int SSL_CONF_cmd_value_type(SSL_CONF_CTX *cctx, const char *cmd)
737 {
738     if (ssl_conf_cmd_skip_prefix(cctx, &cmd)) {
739         const ssl_conf_cmd_tbl *runcmd;
740         runcmd = ssl_conf_cmd_lookup(cctx, cmd);
741         if (runcmd)
742             return runcmd->value_type;
743     }
744     return SSL_CONF_TYPE_UNKNOWN;
745 }
746
747 SSL_CONF_CTX *SSL_CONF_CTX_new(void)
748 {
749     SSL_CONF_CTX *ret = OPENSSL_zalloc(sizeof(*ret));
750
751     return ret;
752 }
753
754 int SSL_CONF_CTX_finish(SSL_CONF_CTX *cctx)
755 {
756     /* See if any certificates are missing private keys */
757     size_t i;
758     CERT *c = NULL;
759     if (cctx->ctx)
760         c = cctx->ctx->cert;
761     else if (cctx->ssl)
762         c = cctx->ssl->cert;
763     if (c && cctx->flags & SSL_CONF_FLAG_REQUIRE_PRIVATE) {
764         for (i = 0; i < SSL_PKEY_NUM; i++) {
765             const char *p = cctx->cert_filename[i];
766             /*
767              * If missing private key try to load one from certificate file
768              */
769             if (p && !c->pkeys[i].privatekey) {
770                 if (!cmd_PrivateKey(cctx, p))
771                     return 0;
772             }
773         }
774     }
775     if (cctx->canames) {
776         if (cctx->ssl)
777             SSL_set_client_CA_list(cctx->ssl, cctx->canames);
778         else if (cctx->ctx)
779             SSL_CTX_set_client_CA_list(cctx->ctx, cctx->canames);
780         else
781             sk_X509_NAME_pop_free(cctx->canames, X509_NAME_free);
782         cctx->canames = NULL;
783     }
784     return 1;
785 }
786
787 void SSL_CONF_CTX_free(SSL_CONF_CTX *cctx)
788 {
789     if (cctx) {
790         size_t i;
791         for (i = 0; i < SSL_PKEY_NUM; i++)
792             OPENSSL_free(cctx->cert_filename[i]);
793         OPENSSL_free(cctx->prefix);
794         sk_X509_NAME_pop_free(cctx->canames, X509_NAME_free);
795         OPENSSL_free(cctx);
796     }
797 }
798
799 unsigned int SSL_CONF_CTX_set_flags(SSL_CONF_CTX *cctx, unsigned int flags)
800 {
801     cctx->flags |= flags;
802     return cctx->flags;
803 }
804
805 unsigned int SSL_CONF_CTX_clear_flags(SSL_CONF_CTX *cctx, unsigned int flags)
806 {
807     cctx->flags &= ~flags;
808     return cctx->flags;
809 }
810
811 int SSL_CONF_CTX_set1_prefix(SSL_CONF_CTX *cctx, const char *pre)
812 {
813     char *tmp = NULL;
814     if (pre) {
815         tmp = OPENSSL_strdup(pre);
816         if (tmp == NULL)
817             return 0;
818     }
819     OPENSSL_free(cctx->prefix);
820     cctx->prefix = tmp;
821     if (tmp)
822         cctx->prefixlen = strlen(tmp);
823     else
824         cctx->prefixlen = 0;
825     return 1;
826 }
827
828 void SSL_CONF_CTX_set_ssl(SSL_CONF_CTX *cctx, SSL *ssl)
829 {
830     cctx->ssl = ssl;
831     cctx->ctx = NULL;
832     if (ssl) {
833         cctx->poptions = &ssl->options;
834         cctx->pcert_flags = &ssl->cert->cert_flags;
835         cctx->pvfy_flags = &ssl->verify_mode;
836     } else {
837         cctx->poptions = NULL;
838         cctx->pcert_flags = NULL;
839         cctx->pvfy_flags = NULL;
840     }
841 }
842
843 void SSL_CONF_CTX_set_ssl_ctx(SSL_CONF_CTX *cctx, SSL_CTX *ctx)
844 {
845     cctx->ctx = ctx;
846     cctx->ssl = NULL;
847     if (ctx) {
848         cctx->poptions = &ctx->options;
849         cctx->pcert_flags = &ctx->cert->cert_flags;
850         cctx->pvfy_flags = &ctx->verify_mode;
851     } else {
852         cctx->poptions = NULL;
853         cctx->pcert_flags = NULL;
854         cctx->pvfy_flags = NULL;
855     }
856 }