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