Fix no-dh and no-dsa
[openssl.git] / crypto / ec / ec_ameth.c
1 /*
2  * Copyright 2006-2016 The OpenSSL Project Authors. All Rights Reserved.
3  *
4  * Licensed under the OpenSSL license (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 "internal/cryptlib.h"
12 #include <openssl/x509.h>
13 #include <openssl/ec.h>
14 #include <openssl/bn.h>
15 #include <openssl/cms.h>
16 #include <openssl/asn1t.h>
17 #include "internal/asn1_int.h"
18 #include "internal/evp_int.h"
19 #include "ec_lcl.h"
20
21 #ifndef OPENSSL_NO_CMS
22 static int ecdh_cms_decrypt(CMS_RecipientInfo *ri);
23 static int ecdh_cms_encrypt(CMS_RecipientInfo *ri);
24 #endif
25
26 static int eckey_param2type(int *pptype, void **ppval, EC_KEY *ec_key)
27 {
28     const EC_GROUP *group;
29     int nid;
30     if (ec_key == NULL || (group = EC_KEY_get0_group(ec_key)) == NULL) {
31         ECerr(EC_F_ECKEY_PARAM2TYPE, EC_R_MISSING_PARAMETERS);
32         return 0;
33     }
34     if (EC_GROUP_get_asn1_flag(group)
35         && (nid = EC_GROUP_get_curve_name(group)))
36         /* we have a 'named curve' => just set the OID */
37     {
38         *ppval = OBJ_nid2obj(nid);
39         *pptype = V_ASN1_OBJECT;
40     } else {                    /* explicit parameters */
41
42         ASN1_STRING *pstr = NULL;
43         pstr = ASN1_STRING_new();
44         if (pstr == NULL)
45             return 0;
46         pstr->length = i2d_ECParameters(ec_key, &pstr->data);
47         if (pstr->length <= 0) {
48             ASN1_STRING_free(pstr);
49             ECerr(EC_F_ECKEY_PARAM2TYPE, ERR_R_EC_LIB);
50             return 0;
51         }
52         *ppval = pstr;
53         *pptype = V_ASN1_SEQUENCE;
54     }
55     return 1;
56 }
57
58 static int eckey_pub_encode(X509_PUBKEY *pk, const EVP_PKEY *pkey)
59 {
60     EC_KEY *ec_key = pkey->pkey.ec;
61     void *pval = NULL;
62     int ptype;
63     unsigned char *penc = NULL, *p;
64     int penclen;
65
66     if (!eckey_param2type(&ptype, &pval, ec_key)) {
67         ECerr(EC_F_ECKEY_PUB_ENCODE, ERR_R_EC_LIB);
68         return 0;
69     }
70     penclen = i2o_ECPublicKey(ec_key, NULL);
71     if (penclen <= 0)
72         goto err;
73     penc = OPENSSL_malloc(penclen);
74     if (penc == NULL)
75         goto err;
76     p = penc;
77     penclen = i2o_ECPublicKey(ec_key, &p);
78     if (penclen <= 0)
79         goto err;
80     if (X509_PUBKEY_set0_param(pk, OBJ_nid2obj(EVP_PKEY_EC),
81                                ptype, pval, penc, penclen))
82         return 1;
83  err:
84     if (ptype == V_ASN1_OBJECT)
85         ASN1_OBJECT_free(pval);
86     else
87         ASN1_STRING_free(pval);
88     OPENSSL_free(penc);
89     return 0;
90 }
91
92 static EC_KEY *eckey_type2param(int ptype, const void *pval)
93 {
94     EC_KEY *eckey = NULL;
95     if (ptype == V_ASN1_SEQUENCE) {
96         const ASN1_STRING *pstr = pval;
97         const unsigned char *pm = NULL;
98         int pmlen;
99         pm = pstr->data;
100         pmlen = pstr->length;
101         if ((eckey = d2i_ECParameters(NULL, &pm, pmlen)) == NULL) {
102             ECerr(EC_F_ECKEY_TYPE2PARAM, EC_R_DECODE_ERROR);
103             goto ecerr;
104         }
105     } else if (ptype == V_ASN1_OBJECT) {
106         const ASN1_OBJECT *poid = pval;
107         EC_GROUP *group;
108
109         /*
110          * type == V_ASN1_OBJECT => the parameters are given by an asn1 OID
111          */
112         if ((eckey = EC_KEY_new()) == NULL) {
113             ECerr(EC_F_ECKEY_TYPE2PARAM, ERR_R_MALLOC_FAILURE);
114             goto ecerr;
115         }
116         group = EC_GROUP_new_by_curve_name(OBJ_obj2nid(poid));
117         if (group == NULL)
118             goto ecerr;
119         EC_GROUP_set_asn1_flag(group, OPENSSL_EC_NAMED_CURVE);
120         if (EC_KEY_set_group(eckey, group) == 0)
121             goto ecerr;
122         EC_GROUP_free(group);
123     } else {
124         ECerr(EC_F_ECKEY_TYPE2PARAM, EC_R_DECODE_ERROR);
125         goto ecerr;
126     }
127
128     return eckey;
129
130  ecerr:
131     EC_KEY_free(eckey);
132     return NULL;
133 }
134
135 static int eckey_pub_decode(EVP_PKEY *pkey, X509_PUBKEY *pubkey)
136 {
137     const unsigned char *p = NULL;
138     const void *pval;
139     int ptype, pklen;
140     EC_KEY *eckey = NULL;
141     X509_ALGOR *palg;
142
143     if (!X509_PUBKEY_get0_param(NULL, &p, &pklen, &palg, pubkey))
144         return 0;
145     X509_ALGOR_get0(NULL, &ptype, &pval, palg);
146
147     eckey = eckey_type2param(ptype, pval);
148
149     if (!eckey) {
150         ECerr(EC_F_ECKEY_PUB_DECODE, ERR_R_EC_LIB);
151         return 0;
152     }
153
154     /* We have parameters now set public key */
155     if (!o2i_ECPublicKey(&eckey, &p, pklen)) {
156         ECerr(EC_F_ECKEY_PUB_DECODE, EC_R_DECODE_ERROR);
157         goto ecerr;
158     }
159
160     EVP_PKEY_assign_EC_KEY(pkey, eckey);
161     return 1;
162
163  ecerr:
164     EC_KEY_free(eckey);
165     return 0;
166 }
167
168 static int eckey_pub_cmp(const EVP_PKEY *a, const EVP_PKEY *b)
169 {
170     int r;
171     const EC_GROUP *group = EC_KEY_get0_group(b->pkey.ec);
172     const EC_POINT *pa = EC_KEY_get0_public_key(a->pkey.ec),
173         *pb = EC_KEY_get0_public_key(b->pkey.ec);
174     if (group == NULL || pa == NULL || pb == NULL)
175         return -2;
176     r = EC_POINT_cmp(group, pa, pb, NULL);
177     if (r == 0)
178         return 1;
179     if (r == 1)
180         return 0;
181     return -2;
182 }
183
184 static int eckey_priv_decode(EVP_PKEY *pkey, const PKCS8_PRIV_KEY_INFO *p8)
185 {
186     const unsigned char *p = NULL;
187     const void *pval;
188     int ptype, pklen;
189     EC_KEY *eckey = NULL;
190     const X509_ALGOR *palg;
191
192     if (!PKCS8_pkey_get0(NULL, &p, &pklen, &palg, p8))
193         return 0;
194     X509_ALGOR_get0(NULL, &ptype, &pval, palg);
195
196     eckey = eckey_type2param(ptype, pval);
197
198     if (!eckey)
199         goto ecliberr;
200
201     /* We have parameters now set private key */
202     if (!d2i_ECPrivateKey(&eckey, &p, pklen)) {
203         ECerr(EC_F_ECKEY_PRIV_DECODE, EC_R_DECODE_ERROR);
204         goto ecerr;
205     }
206
207     EVP_PKEY_assign_EC_KEY(pkey, eckey);
208     return 1;
209
210  ecliberr:
211     ECerr(EC_F_ECKEY_PRIV_DECODE, ERR_R_EC_LIB);
212  ecerr:
213     EC_KEY_free(eckey);
214     return 0;
215 }
216
217 static int eckey_priv_encode(PKCS8_PRIV_KEY_INFO *p8, const EVP_PKEY *pkey)
218 {
219     EC_KEY ec_key = *(pkey->pkey.ec);
220     unsigned char *ep, *p;
221     int eplen, ptype;
222     void *pval;
223     unsigned int old_flags;
224
225     if (!eckey_param2type(&ptype, &pval, &ec_key)) {
226         ECerr(EC_F_ECKEY_PRIV_ENCODE, EC_R_DECODE_ERROR);
227         return 0;
228     }
229
230     /* set the private key */
231
232     /*
233      * do not include the parameters in the SEC1 private key see PKCS#11
234      * 12.11
235      */
236     old_flags = EC_KEY_get_enc_flags(&ec_key);
237     EC_KEY_set_enc_flags(&ec_key, old_flags | EC_PKEY_NO_PARAMETERS);
238
239     eplen = i2d_ECPrivateKey(&ec_key, NULL);
240     if (!eplen) {
241         ECerr(EC_F_ECKEY_PRIV_ENCODE, ERR_R_EC_LIB);
242         return 0;
243     }
244     ep = OPENSSL_malloc(eplen);
245     if (ep == NULL) {
246         ECerr(EC_F_ECKEY_PRIV_ENCODE, ERR_R_MALLOC_FAILURE);
247         return 0;
248     }
249     p = ep;
250     if (!i2d_ECPrivateKey(&ec_key, &p)) {
251         OPENSSL_free(ep);
252         ECerr(EC_F_ECKEY_PRIV_ENCODE, ERR_R_EC_LIB);
253         return 0;
254     }
255
256     if (!PKCS8_pkey_set0(p8, OBJ_nid2obj(NID_X9_62_id_ecPublicKey), 0,
257                          ptype, pval, ep, eplen)) {
258         OPENSSL_free(ep);
259         return 0;
260     }
261
262     return 1;
263 }
264
265 static int int_ec_size(const EVP_PKEY *pkey)
266 {
267     return ECDSA_size(pkey->pkey.ec);
268 }
269
270 static int ec_bits(const EVP_PKEY *pkey)
271 {
272     return EC_GROUP_order_bits(EC_KEY_get0_group(pkey->pkey.ec));
273 }
274
275 static int ec_security_bits(const EVP_PKEY *pkey)
276 {
277     int ecbits = ec_bits(pkey);
278     if (ecbits >= 512)
279         return 256;
280     if (ecbits >= 384)
281         return 192;
282     if (ecbits >= 256)
283         return 128;
284     if (ecbits >= 224)
285         return 112;
286     if (ecbits >= 160)
287         return 80;
288     return ecbits / 2;
289 }
290
291 static int ec_missing_parameters(const EVP_PKEY *pkey)
292 {
293     if (pkey->pkey.ec == NULL || EC_KEY_get0_group(pkey->pkey.ec) == NULL)
294         return 1;
295     return 0;
296 }
297
298 static int ec_copy_parameters(EVP_PKEY *to, const EVP_PKEY *from)
299 {
300     EC_GROUP *group = EC_GROUP_dup(EC_KEY_get0_group(from->pkey.ec));
301     if (group == NULL)
302         return 0;
303     if (to->pkey.ec == NULL) {
304         to->pkey.ec = EC_KEY_new();
305         if (to->pkey.ec == NULL)
306             return 0;
307     }
308     if (EC_KEY_set_group(to->pkey.ec, group) == 0)
309         return 0;
310     EC_GROUP_free(group);
311     return 1;
312 }
313
314 static int ec_cmp_parameters(const EVP_PKEY *a, const EVP_PKEY *b)
315 {
316     const EC_GROUP *group_a = EC_KEY_get0_group(a->pkey.ec),
317         *group_b = EC_KEY_get0_group(b->pkey.ec);
318     if (group_a == NULL || group_b == NULL)
319         return -2;
320     if (EC_GROUP_cmp(group_a, group_b, NULL))
321         return 0;
322     else
323         return 1;
324 }
325
326 static void int_ec_free(EVP_PKEY *pkey)
327 {
328     EC_KEY_free(pkey->pkey.ec);
329 }
330
331 typedef enum {
332     EC_KEY_PRINT_PRIVATE,
333     EC_KEY_PRINT_PUBLIC,
334     EC_KEY_PRINT_PARAM
335 } ec_print_t;
336
337 static int do_EC_KEY_print(BIO *bp, const EC_KEY *x, int off, ec_print_t ktype)
338 {
339     const char *ecstr;
340     unsigned char *priv = NULL, *pub = NULL;
341     size_t privlen = 0, publen = 0;
342     int ret = 0;
343     const EC_GROUP *group;
344
345     if (x == NULL || (group = EC_KEY_get0_group(x)) == NULL) {
346         ECerr(EC_F_DO_EC_KEY_PRINT, ERR_R_PASSED_NULL_PARAMETER);
347         return 0;
348     }
349
350     if (ktype != EC_KEY_PRINT_PARAM && EC_KEY_get0_public_key(x) != NULL) {
351         publen = EC_KEY_key2buf(x, EC_KEY_get_conv_form(x), &pub, NULL);
352         if (publen == 0)
353             goto err;
354     }
355
356     if (ktype == EC_KEY_PRINT_PRIVATE && EC_KEY_get0_private_key(x) != NULL) {
357         privlen = EC_KEY_priv2buf(x, &priv);
358         if (privlen == 0)
359             goto err;
360     }
361
362     if (ktype == EC_KEY_PRINT_PRIVATE)
363         ecstr = "Private-Key";
364     else if (ktype == EC_KEY_PRINT_PUBLIC)
365         ecstr = "Public-Key";
366     else
367         ecstr = "ECDSA-Parameters";
368
369     if (!BIO_indent(bp, off, 128))
370         goto err;
371     if (BIO_printf(bp, "%s: (%d bit)\n", ecstr,
372                    EC_GROUP_order_bits(group)) <= 0)
373         goto err;
374
375     if (privlen != 0) {
376         if (BIO_printf(bp, "%*spriv:\n", off, "") <= 0)
377             goto err;
378         if (ASN1_buf_print(bp, priv, privlen, off + 4) == 0)
379             goto err;
380     }
381
382     if (publen != 0) {
383         if (BIO_printf(bp, "%*spub:\n", off, "") <= 0)
384             goto err;
385         if (ASN1_buf_print(bp, pub, publen, off + 4) == 0)
386             goto err;
387     }
388
389     if (!ECPKParameters_print(bp, group, off))
390         goto err;
391     ret = 1;
392  err:
393     if (!ret)
394         ECerr(EC_F_DO_EC_KEY_PRINT, ERR_R_EC_LIB);
395     OPENSSL_clear_free(priv, privlen);
396     OPENSSL_free(pub);
397     return ret;
398 }
399
400 static int eckey_param_decode(EVP_PKEY *pkey,
401                               const unsigned char **pder, int derlen)
402 {
403     EC_KEY *eckey;
404
405     if ((eckey = d2i_ECParameters(NULL, pder, derlen)) == NULL) {
406         ECerr(EC_F_ECKEY_PARAM_DECODE, ERR_R_EC_LIB);
407         return 0;
408     }
409     EVP_PKEY_assign_EC_KEY(pkey, eckey);
410     return 1;
411 }
412
413 static int eckey_param_encode(const EVP_PKEY *pkey, unsigned char **pder)
414 {
415     return i2d_ECParameters(pkey->pkey.ec, pder);
416 }
417
418 static int eckey_param_print(BIO *bp, const EVP_PKEY *pkey, int indent,
419                              ASN1_PCTX *ctx)
420 {
421     return do_EC_KEY_print(bp, pkey->pkey.ec, indent, EC_KEY_PRINT_PARAM);
422 }
423
424 static int eckey_pub_print(BIO *bp, const EVP_PKEY *pkey, int indent,
425                            ASN1_PCTX *ctx)
426 {
427     return do_EC_KEY_print(bp, pkey->pkey.ec, indent, EC_KEY_PRINT_PUBLIC);
428 }
429
430 static int eckey_priv_print(BIO *bp, const EVP_PKEY *pkey, int indent,
431                             ASN1_PCTX *ctx)
432 {
433     return do_EC_KEY_print(bp, pkey->pkey.ec, indent, EC_KEY_PRINT_PRIVATE);
434 }
435
436 static int old_ec_priv_decode(EVP_PKEY *pkey,
437                               const unsigned char **pder, int derlen)
438 {
439     EC_KEY *ec;
440
441     if ((ec = d2i_ECPrivateKey(NULL, pder, derlen)) == NULL) {
442         ECerr(EC_F_OLD_EC_PRIV_DECODE, EC_R_DECODE_ERROR);
443         return 0;
444     }
445     EVP_PKEY_assign_EC_KEY(pkey, ec);
446     return 1;
447 }
448
449 static int old_ec_priv_encode(const EVP_PKEY *pkey, unsigned char **pder)
450 {
451     return i2d_ECPrivateKey(pkey->pkey.ec, pder);
452 }
453
454 static int ec_pkey_ctrl(EVP_PKEY *pkey, int op, long arg1, void *arg2)
455 {
456     switch (op) {
457     case ASN1_PKEY_CTRL_PKCS7_SIGN:
458         if (arg1 == 0) {
459             int snid, hnid;
460             X509_ALGOR *alg1, *alg2;
461             PKCS7_SIGNER_INFO_get0_algs(arg2, NULL, &alg1, &alg2);
462             if (alg1 == NULL || alg1->algorithm == NULL)
463                 return -1;
464             hnid = OBJ_obj2nid(alg1->algorithm);
465             if (hnid == NID_undef)
466                 return -1;
467             if (!OBJ_find_sigid_by_algs(&snid, hnid, EVP_PKEY_id(pkey)))
468                 return -1;
469             X509_ALGOR_set0(alg2, OBJ_nid2obj(snid), V_ASN1_UNDEF, 0);
470         }
471         return 1;
472 #ifndef OPENSSL_NO_CMS
473     case ASN1_PKEY_CTRL_CMS_SIGN:
474         if (arg1 == 0) {
475             int snid, hnid;
476             X509_ALGOR *alg1, *alg2;
477             CMS_SignerInfo_get0_algs(arg2, NULL, NULL, &alg1, &alg2);
478             if (alg1 == NULL || alg1->algorithm == NULL)
479                 return -1;
480             hnid = OBJ_obj2nid(alg1->algorithm);
481             if (hnid == NID_undef)
482                 return -1;
483             if (!OBJ_find_sigid_by_algs(&snid, hnid, EVP_PKEY_id(pkey)))
484                 return -1;
485             X509_ALGOR_set0(alg2, OBJ_nid2obj(snid), V_ASN1_UNDEF, 0);
486         }
487         return 1;
488
489     case ASN1_PKEY_CTRL_CMS_ENVELOPE:
490         if (arg1 == 1)
491             return ecdh_cms_decrypt(arg2);
492         else if (arg1 == 0)
493             return ecdh_cms_encrypt(arg2);
494         return -2;
495
496     case ASN1_PKEY_CTRL_CMS_RI_TYPE:
497         *(int *)arg2 = CMS_RECIPINFO_AGREE;
498         return 1;
499 #endif
500
501     case ASN1_PKEY_CTRL_DEFAULT_MD_NID:
502         *(int *)arg2 = NID_sha256;
503         return 2;
504
505     case ASN1_PKEY_CTRL_SET1_TLS_ENCPT:
506         return EC_KEY_oct2key(EVP_PKEY_get0_EC_KEY(pkey), arg2, arg1, NULL);
507
508     case ASN1_PKEY_CTRL_GET1_TLS_ENCPT:
509         return EC_KEY_key2buf(EVP_PKEY_get0_EC_KEY(pkey),
510                               POINT_CONVERSION_UNCOMPRESSED, arg2, NULL);
511
512     default:
513         return -2;
514
515     }
516
517 }
518
519 const EVP_PKEY_ASN1_METHOD eckey_asn1_meth = {
520     EVP_PKEY_EC,
521     EVP_PKEY_EC,
522     0,
523     "EC",
524     "OpenSSL EC algorithm",
525
526     eckey_pub_decode,
527     eckey_pub_encode,
528     eckey_pub_cmp,
529     eckey_pub_print,
530
531     eckey_priv_decode,
532     eckey_priv_encode,
533     eckey_priv_print,
534
535     int_ec_size,
536     ec_bits,
537     ec_security_bits,
538
539     eckey_param_decode,
540     eckey_param_encode,
541     ec_missing_parameters,
542     ec_copy_parameters,
543     ec_cmp_parameters,
544     eckey_param_print,
545     0,
546
547     int_ec_free,
548     ec_pkey_ctrl,
549     old_ec_priv_decode,
550     old_ec_priv_encode
551 };
552
553 int EC_KEY_print(BIO *bp, const EC_KEY *x, int off)
554 {
555     int private = EC_KEY_get0_private_key(x) != NULL;
556
557     return do_EC_KEY_print(bp, x, off,
558                 private ? EC_KEY_PRINT_PRIVATE : EC_KEY_PRINT_PUBLIC);
559 }
560
561 int ECParameters_print(BIO *bp, const EC_KEY *x)
562 {
563     return do_EC_KEY_print(bp, x, 4, EC_KEY_PRINT_PARAM);
564 }
565
566 #ifndef OPENSSL_NO_CMS
567
568 static int ecdh_cms_set_peerkey(EVP_PKEY_CTX *pctx,
569                                 X509_ALGOR *alg, ASN1_BIT_STRING *pubkey)
570 {
571     const ASN1_OBJECT *aoid;
572     int atype;
573     const void *aval;
574     int rv = 0;
575     EVP_PKEY *pkpeer = NULL;
576     EC_KEY *ecpeer = NULL;
577     const unsigned char *p;
578     int plen;
579     X509_ALGOR_get0(&aoid, &atype, &aval, alg);
580     if (OBJ_obj2nid(aoid) != NID_X9_62_id_ecPublicKey)
581         goto err;
582     /* If absent parameters get group from main key */
583     if (atype == V_ASN1_UNDEF || atype == V_ASN1_NULL) {
584         const EC_GROUP *grp;
585         EVP_PKEY *pk;
586         pk = EVP_PKEY_CTX_get0_pkey(pctx);
587         if (!pk)
588             goto err;
589         grp = EC_KEY_get0_group(pk->pkey.ec);
590         ecpeer = EC_KEY_new();
591         if (ecpeer == NULL)
592             goto err;
593         if (!EC_KEY_set_group(ecpeer, grp))
594             goto err;
595     } else {
596         ecpeer = eckey_type2param(atype, aval);
597         if (!ecpeer)
598             goto err;
599     }
600     /* We have parameters now set public key */
601     plen = ASN1_STRING_length(pubkey);
602     p = ASN1_STRING_get0_data(pubkey);
603     if (!p || !plen)
604         goto err;
605     if (!o2i_ECPublicKey(&ecpeer, &p, plen))
606         goto err;
607     pkpeer = EVP_PKEY_new();
608     if (pkpeer == NULL)
609         goto err;
610     EVP_PKEY_set1_EC_KEY(pkpeer, ecpeer);
611     if (EVP_PKEY_derive_set_peer(pctx, pkpeer) > 0)
612         rv = 1;
613  err:
614     EC_KEY_free(ecpeer);
615     EVP_PKEY_free(pkpeer);
616     return rv;
617 }
618
619 /* Set KDF parameters based on KDF NID */
620 static int ecdh_cms_set_kdf_param(EVP_PKEY_CTX *pctx, int eckdf_nid)
621 {
622     int kdf_nid, kdfmd_nid, cofactor;
623     const EVP_MD *kdf_md;
624     if (eckdf_nid == NID_undef)
625         return 0;
626
627     /* Lookup KDF type, cofactor mode and digest */
628     if (!OBJ_find_sigid_algs(eckdf_nid, &kdfmd_nid, &kdf_nid))
629         return 0;
630
631     if (kdf_nid == NID_dh_std_kdf)
632         cofactor = 0;
633     else if (kdf_nid == NID_dh_cofactor_kdf)
634         cofactor = 1;
635     else
636         return 0;
637
638     if (EVP_PKEY_CTX_set_ecdh_cofactor_mode(pctx, cofactor) <= 0)
639         return 0;
640
641     if (EVP_PKEY_CTX_set_ecdh_kdf_type(pctx, EVP_PKEY_ECDH_KDF_X9_62) <= 0)
642         return 0;
643
644     kdf_md = EVP_get_digestbynid(kdfmd_nid);
645     if (!kdf_md)
646         return 0;
647
648     if (EVP_PKEY_CTX_set_ecdh_kdf_md(pctx, kdf_md) <= 0)
649         return 0;
650     return 1;
651 }
652
653 static int ecdh_cms_set_shared_info(EVP_PKEY_CTX *pctx, CMS_RecipientInfo *ri)
654 {
655     int rv = 0;
656
657     X509_ALGOR *alg, *kekalg = NULL;
658     ASN1_OCTET_STRING *ukm;
659     const unsigned char *p;
660     unsigned char *der = NULL;
661     int plen, keylen;
662     const EVP_CIPHER *kekcipher;
663     EVP_CIPHER_CTX *kekctx;
664
665     if (!CMS_RecipientInfo_kari_get0_alg(ri, &alg, &ukm))
666         return 0;
667
668     if (!ecdh_cms_set_kdf_param(pctx, OBJ_obj2nid(alg->algorithm))) {
669         ECerr(EC_F_ECDH_CMS_SET_SHARED_INFO, EC_R_KDF_PARAMETER_ERROR);
670         return 0;
671     }
672
673     if (alg->parameter->type != V_ASN1_SEQUENCE)
674         return 0;
675
676     p = alg->parameter->value.sequence->data;
677     plen = alg->parameter->value.sequence->length;
678     kekalg = d2i_X509_ALGOR(NULL, &p, plen);
679     if (!kekalg)
680         goto err;
681     kekctx = CMS_RecipientInfo_kari_get0_ctx(ri);
682     if (!kekctx)
683         goto err;
684     kekcipher = EVP_get_cipherbyobj(kekalg->algorithm);
685     if (!kekcipher || EVP_CIPHER_mode(kekcipher) != EVP_CIPH_WRAP_MODE)
686         goto err;
687     if (!EVP_EncryptInit_ex(kekctx, kekcipher, NULL, NULL, NULL))
688         goto err;
689     if (EVP_CIPHER_asn1_to_param(kekctx, kekalg->parameter) <= 0)
690         goto err;
691
692     keylen = EVP_CIPHER_CTX_key_length(kekctx);
693     if (EVP_PKEY_CTX_set_ecdh_kdf_outlen(pctx, keylen) <= 0)
694         goto err;
695
696     plen = CMS_SharedInfo_encode(&der, kekalg, ukm, keylen);
697
698     if (!plen)
699         goto err;
700
701     if (EVP_PKEY_CTX_set0_ecdh_kdf_ukm(pctx, der, plen) <= 0)
702         goto err;
703     der = NULL;
704
705     rv = 1;
706  err:
707     X509_ALGOR_free(kekalg);
708     OPENSSL_free(der);
709     return rv;
710 }
711
712 static int ecdh_cms_decrypt(CMS_RecipientInfo *ri)
713 {
714     EVP_PKEY_CTX *pctx;
715     pctx = CMS_RecipientInfo_get0_pkey_ctx(ri);
716     if (!pctx)
717         return 0;
718     /* See if we need to set peer key */
719     if (!EVP_PKEY_CTX_get0_peerkey(pctx)) {
720         X509_ALGOR *alg;
721         ASN1_BIT_STRING *pubkey;
722         if (!CMS_RecipientInfo_kari_get0_orig_id(ri, &alg, &pubkey,
723                                                  NULL, NULL, NULL))
724             return 0;
725         if (!alg || !pubkey)
726             return 0;
727         if (!ecdh_cms_set_peerkey(pctx, alg, pubkey)) {
728             ECerr(EC_F_ECDH_CMS_DECRYPT, EC_R_PEER_KEY_ERROR);
729             return 0;
730         }
731     }
732     /* Set ECDH derivation parameters and initialise unwrap context */
733     if (!ecdh_cms_set_shared_info(pctx, ri)) {
734         ECerr(EC_F_ECDH_CMS_DECRYPT, EC_R_SHARED_INFO_ERROR);
735         return 0;
736     }
737     return 1;
738 }
739
740 static int ecdh_cms_encrypt(CMS_RecipientInfo *ri)
741 {
742     EVP_PKEY_CTX *pctx;
743     EVP_PKEY *pkey;
744     EVP_CIPHER_CTX *ctx;
745     int keylen;
746     X509_ALGOR *talg, *wrap_alg = NULL;
747     const ASN1_OBJECT *aoid;
748     ASN1_BIT_STRING *pubkey;
749     ASN1_STRING *wrap_str;
750     ASN1_OCTET_STRING *ukm;
751     unsigned char *penc = NULL;
752     int penclen;
753     int rv = 0;
754     int ecdh_nid, kdf_type, kdf_nid, wrap_nid;
755     const EVP_MD *kdf_md;
756     pctx = CMS_RecipientInfo_get0_pkey_ctx(ri);
757     if (!pctx)
758         return 0;
759     /* Get ephemeral key */
760     pkey = EVP_PKEY_CTX_get0_pkey(pctx);
761     if (!CMS_RecipientInfo_kari_get0_orig_id(ri, &talg, &pubkey,
762                                              NULL, NULL, NULL))
763         goto err;
764     X509_ALGOR_get0(&aoid, NULL, NULL, talg);
765     /* Is everything uninitialised? */
766     if (aoid == OBJ_nid2obj(NID_undef)) {
767
768         EC_KEY *eckey = pkey->pkey.ec;
769         /* Set the key */
770         unsigned char *p;
771
772         penclen = i2o_ECPublicKey(eckey, NULL);
773         if (penclen <= 0)
774             goto err;
775         penc = OPENSSL_malloc(penclen);
776         if (penc == NULL)
777             goto err;
778         p = penc;
779         penclen = i2o_ECPublicKey(eckey, &p);
780         if (penclen <= 0)
781             goto err;
782         ASN1_STRING_set0(pubkey, penc, penclen);
783         pubkey->flags &= ~(ASN1_STRING_FLAG_BITS_LEFT | 0x07);
784         pubkey->flags |= ASN1_STRING_FLAG_BITS_LEFT;
785
786         penc = NULL;
787         X509_ALGOR_set0(talg, OBJ_nid2obj(NID_X9_62_id_ecPublicKey),
788                         V_ASN1_UNDEF, NULL);
789     }
790
791     /* See if custom parameters set */
792     kdf_type = EVP_PKEY_CTX_get_ecdh_kdf_type(pctx);
793     if (kdf_type <= 0)
794         goto err;
795     if (!EVP_PKEY_CTX_get_ecdh_kdf_md(pctx, &kdf_md))
796         goto err;
797     ecdh_nid = EVP_PKEY_CTX_get_ecdh_cofactor_mode(pctx);
798     if (ecdh_nid < 0)
799         goto err;
800     else if (ecdh_nid == 0)
801         ecdh_nid = NID_dh_std_kdf;
802     else if (ecdh_nid == 1)
803         ecdh_nid = NID_dh_cofactor_kdf;
804
805     if (kdf_type == EVP_PKEY_ECDH_KDF_NONE) {
806         kdf_type = EVP_PKEY_ECDH_KDF_X9_62;
807         if (EVP_PKEY_CTX_set_ecdh_kdf_type(pctx, kdf_type) <= 0)
808             goto err;
809     } else
810         /* Unknown KDF */
811         goto err;
812     if (kdf_md == NULL) {
813         /* Fixme later for better MD */
814         kdf_md = EVP_sha1();
815         if (EVP_PKEY_CTX_set_ecdh_kdf_md(pctx, kdf_md) <= 0)
816             goto err;
817     }
818
819     if (!CMS_RecipientInfo_kari_get0_alg(ri, &talg, &ukm))
820         goto err;
821
822     /* Lookup NID for KDF+cofactor+digest */
823
824     if (!OBJ_find_sigid_by_algs(&kdf_nid, EVP_MD_type(kdf_md), ecdh_nid))
825         goto err;
826     /* Get wrap NID */
827     ctx = CMS_RecipientInfo_kari_get0_ctx(ri);
828     wrap_nid = EVP_CIPHER_CTX_type(ctx);
829     keylen = EVP_CIPHER_CTX_key_length(ctx);
830
831     /* Package wrap algorithm in an AlgorithmIdentifier */
832
833     wrap_alg = X509_ALGOR_new();
834     if (wrap_alg == NULL)
835         goto err;
836     wrap_alg->algorithm = OBJ_nid2obj(wrap_nid);
837     wrap_alg->parameter = ASN1_TYPE_new();
838     if (wrap_alg->parameter == NULL)
839         goto err;
840     if (EVP_CIPHER_param_to_asn1(ctx, wrap_alg->parameter) <= 0)
841         goto err;
842     if (ASN1_TYPE_get(wrap_alg->parameter) == NID_undef) {
843         ASN1_TYPE_free(wrap_alg->parameter);
844         wrap_alg->parameter = NULL;
845     }
846
847     if (EVP_PKEY_CTX_set_ecdh_kdf_outlen(pctx, keylen) <= 0)
848         goto err;
849
850     penclen = CMS_SharedInfo_encode(&penc, wrap_alg, ukm, keylen);
851
852     if (!penclen)
853         goto err;
854
855     if (EVP_PKEY_CTX_set0_ecdh_kdf_ukm(pctx, penc, penclen) <= 0)
856         goto err;
857     penc = NULL;
858
859     /*
860      * Now need to wrap encoding of wrap AlgorithmIdentifier into parameter
861      * of another AlgorithmIdentifier.
862      */
863     penclen = i2d_X509_ALGOR(wrap_alg, &penc);
864     if (!penc || !penclen)
865         goto err;
866     wrap_str = ASN1_STRING_new();
867     if (wrap_str == NULL)
868         goto err;
869     ASN1_STRING_set0(wrap_str, penc, penclen);
870     penc = NULL;
871     X509_ALGOR_set0(talg, OBJ_nid2obj(kdf_nid), V_ASN1_SEQUENCE, wrap_str);
872
873     rv = 1;
874
875  err:
876     OPENSSL_free(penc);
877     X509_ALGOR_free(wrap_alg);
878     return rv;
879 }
880
881 #endif