crypto/ec/ec_pmeth.c

   1 /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL
   2  * project 2006.
   3  */
   4 /* ====================================================================
   5  * Copyright (c) 2006 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  *    licensing@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 #include <stdio.h>
  59 #include "cryptlib.h"
  60 #include <openssl/asn1t.h>
  61 #include <openssl/x509.h>
  62 #include <openssl/ec.h>
  63 #include "ec_lcl.h"
  64 #include <openssl/ecdsa.h>
  65 #include <openssl/evp.h>
  66 #include "evp_locl.h"
  67
  68 /* EC pkey context structure */
  69
  70 typedef struct
  71         {
  72         /* Key and paramgen group */
  73         EC_GROUP *gen_group;
  74         /* message digest */
  75         const EVP_MD *md;
  76         /* Duplicate key if custom cofactor needed */
  77         EC_KEY *co_key;
  78         /* Cofactor mode */
  79         signed char cofactor_mode;
  80         /* KDF (if any) to use for ECDH */
  81         char kdf_type;
  82         /* Message digest to use for key derivation */
  83         const EVP_MD *kdf_md;
  84         /* User key material */
  85         unsigned char *kdf_ukm;
  86         size_t kdf_ukmlen;
  87         /* KDF output length */
  88         size_t kdf_outlen;
  89
  90         } EC_PKEY_CTX;
  91
  92 static int pkey_ec_init(EVP_PKEY_CTX *ctx)
  93         {
  94         EC_PKEY_CTX *dctx;
  95         dctx = OPENSSL_malloc(sizeof(EC_PKEY_CTX));
  96         if (!dctx)
  97                 return 0;
  98         dctx->gen_group = NULL;
  99         dctx->md = NULL;
 100
 101         dctx->cofactor_mode = -1;
 102         dctx->co_key = NULL;
 103         dctx->kdf_type = EVP_PKEY_ECDH_KDF_NONE;
 104         dctx->kdf_md = NULL;
 105         dctx->kdf_outlen = 0;
 106         dctx->kdf_ukm = NULL;
 107         dctx->kdf_ukmlen = 0;
 108
 109         ctx->data = dctx;
 110
 111         return 1;
 112         }
 113
 114 static int pkey_ec_copy(EVP_PKEY_CTX *dst, EVP_PKEY_CTX *src)
 115         {
 116         EC_PKEY_CTX *dctx, *sctx;
 117         if (!pkey_ec_init(dst))
 118                 return 0;
 119         sctx = src->data;
 120         dctx = dst->data;
 121         if (sctx->gen_group)
 122                 {
 123                 dctx->gen_group = EC_GROUP_dup(sctx->gen_group);
 124                 if (!dctx->gen_group)
 125                         return 0;
 126                 }
 127         dctx->md = sctx->md;
 128
 129         if (sctx->co_key)
 130                 {
 131                 dctx->co_key = EC_KEY_dup(sctx->co_key);
 132                 if (!dctx->co_key)
 133                         return 0;
 134                 }
 135         dctx->kdf_type = sctx->kdf_type;
 136         dctx->kdf_md = sctx->kdf_md;
 137         dctx->kdf_outlen = sctx->kdf_outlen;
 138         if (sctx->kdf_ukm)
 139                 {
 140                 dctx->kdf_ukm = BUF_memdup(sctx->kdf_ukm, sctx->kdf_ukmlen);
 141                 if (!dctx->kdf_ukm)
 142                         return 0;
 143                 }
 144         else
 145                 dctx->kdf_ukm = NULL;
 146         dctx->kdf_ukmlen = sctx->kdf_ukmlen;
 147         return 1;
 148         }
 149
 150 static void pkey_ec_cleanup(EVP_PKEY_CTX *ctx)
 151         {
 152         EC_PKEY_CTX *dctx = ctx->data;
 153         if (dctx)
 154                 {
 155                 if (dctx->gen_group)
 156                         EC_GROUP_free(dctx->gen_group);
 157                 if (dctx->co_key)
 158                         EC_KEY_free(dctx->co_key);
 159                 if (dctx->kdf_ukm)
 160                         OPENSSL_free(dctx->kdf_ukm);
 161                 OPENSSL_free(dctx);
 162                 }
 163         }
 164
 165 static int pkey_ec_sign(EVP_PKEY_CTX *ctx, unsigned char *sig, size_t *siglen,
 166                                         const unsigned char *tbs, size_t tbslen)
 167         {
 168         int ret, type;
 169         unsigned int sltmp;
 170         EC_PKEY_CTX *dctx = ctx->data;
 171         EC_KEY *ec = ctx->pkey->pkey.ec;
 172
 173         if (!sig)
 174                 {
 175                 *siglen = ECDSA_size(ec);
 176                 return 1;
 177                 }
 178         else if(*siglen < (size_t)ECDSA_size(ec))
 179                 {
 180                 ECerr(EC_F_PKEY_EC_SIGN, EC_R_BUFFER_TOO_SMALL);
 181                 return 0;
 182                 }
 183
 184         if (dctx->md)
 185                 type = EVP_MD_type(dctx->md);
 186         else
 187                 type = NID_sha1;
 188
 189
 190         ret = ECDSA_sign(type, tbs, tbslen, sig, &sltmp, ec);
 191
 192         if (ret <= 0)
 193                 return ret;
 194         *siglen = (size_t)sltmp;
 195         return 1;
 196         }
 197
 198 static int pkey_ec_verify(EVP_PKEY_CTX *ctx,
 199                                         const unsigned char *sig, size_t siglen,
 200                                         const unsigned char *tbs, size_t tbslen)
 201         {
 202         int ret, type;
 203         EC_PKEY_CTX *dctx = ctx->data;
 204         EC_KEY *ec = ctx->pkey->pkey.ec;
 205
 206         if (dctx->md)
 207                 type = EVP_MD_type(dctx->md);
 208         else
 209                 type = NID_sha1;
 210
 211         ret = ECDSA_verify(type, tbs, tbslen, sig, siglen, ec);
 212
 213         return ret;
 214         }
 215
 216 #ifndef OPENSSL_NO_ECDH
 217 static int pkey_ec_derive(EVP_PKEY_CTX *ctx, unsigned char *key, size_t *keylen)
 218         {
 219         int ret;
 220         size_t outlen;
 221         const EC_POINT *pubkey = NULL;
 222         EC_KEY *eckey;
 223         EC_PKEY_CTX *dctx = ctx->data;
 224         if (!ctx->pkey || !ctx->peerkey)
 225                 {
 226                 ECerr(EC_F_PKEY_EC_DERIVE, EC_R_KEYS_NOT_SET);
 227                 return 0;
 228                 }
 229
 230         eckey = dctx->co_key ? dctx->co_key : ctx->pkey->pkey.ec;
 231
 232         if (!key)
 233                 {
 234                 const EC_GROUP *group;
 235                 group = EC_KEY_get0_group(eckey);
 236                 *keylen = (EC_GROUP_get_degree(group) + 7)/8;
 237                 return 1;
 238                 }
 239         pubkey = EC_KEY_get0_public_key(ctx->peerkey->pkey.ec);
 240
 241         /* NB: unlike PKCS#3 DH, if *outlen is less than maximum size this is
 242          * not an error, the result is truncated.
 243          */
 244
 245         outlen = *keylen;
 246
 247         ret = ECDH_compute_key(key, outlen, pubkey, eckey, 0);
 248         if (ret <= 0)
 249                 return 0;
 250         *keylen = ret;
 251         return 1;
 252         }
 253
 254 static int pkey_ec_kdf_derive(EVP_PKEY_CTX *ctx,
 255                                 unsigned char *key, size_t *keylen)
 256         {
 257         EC_PKEY_CTX *dctx = ctx->data;
 258         unsigned char *ktmp = NULL;
 259         size_t ktmplen;
 260         int rv = 0;
 261         if (dctx->kdf_type == EVP_PKEY_ECDH_KDF_NONE)
 262                 return pkey_ec_derive(ctx, key, keylen);
 263         if (!key)
 264                 {
 265                 *keylen = dctx->kdf_outlen;
 266                 return 1;
 267                 }
 268         if (*keylen != dctx->kdf_outlen)
 269                 return 0;
 270         if (!pkey_ec_derive(ctx, NULL, &ktmplen))
 271                 return 0;
 272         ktmp = OPENSSL_malloc(ktmplen);
 273         if (!ktmp)
 274                 return 0;
 275         if (!pkey_ec_derive(ctx, ktmp, &ktmplen))
 276                 goto err;
 277         /* Do KDF stuff */
 278         if (!ECDH_KDF_X9_62(key, *keylen, ktmp, ktmplen,
 279                                 dctx->kdf_ukm, dctx->kdf_ukmlen,
 280                                 dctx->kdf_md))
 281                 goto err;
 282         rv = 1;
 283
 284         err:
 285         if (ktmp)
 286                 {
 287                 OPENSSL_cleanse(ktmp, ktmplen);
 288                 OPENSSL_free(ktmp);
 289                 }
 290         return rv;
 291         }
 292 #endif
 293
 294 static int pkey_ec_ctrl(EVP_PKEY_CTX *ctx, int type, int p1, void *p2)
 295         {
 296         EC_PKEY_CTX *dctx = ctx->data;
 297         EC_GROUP *group;
 298         switch (type)
 299                 {
 300                 case EVP_PKEY_CTRL_EC_PARAMGEN_CURVE_NID:
 301                 group = EC_GROUP_new_by_curve_name(p1);
 302                 if (group == NULL)
 303                         {
 304                         ECerr(EC_F_PKEY_EC_CTRL, EC_R_INVALID_CURVE);
 305                         return 0;
 306                         }
 307                 if (dctx->gen_group)
 308                         EC_GROUP_free(dctx->gen_group);
 309                 dctx->gen_group = group;
 310                 return 1;
 311
 312                 case EVP_PKEY_CTRL_EC_PARAM_ENC:
 313                 if (!dctx->gen_group)
 314                         {
 315                         ECerr(EC_F_PKEY_EC_CTRL, EC_R_NO_PARAMETERS_SET);
 316                         return 0;
 317                         }
 318                 EC_GROUP_set_asn1_flag(dctx->gen_group, p1);
 319                 return 1;
 320
 321 #ifndef OPENSSL_NO_ECDH
 322                 case EVP_PKEY_CTRL_EC_ECDH_COFACTOR:
 323                 if (p1 == -2)
 324                         {
 325                         if (dctx->cofactor_mode != -1)
 326                                 return dctx->cofactor_mode;
 327                         else
 328                                 {
 329                                 EC_KEY *ec_key = ctx->pkey->pkey.ec;
 330                                 return EC_KEY_get_flags(ec_key) & EC_FLAG_COFACTOR_ECDH ? 1 : 0;
 331                                 }
 332                         }
 333                 else if (p1 < -1 || p1 > 1)
 334                         return -2;
 335                 dctx->cofactor_mode = p1;
 336                 if (p1 != -1)
 337                         {
 338                         EC_KEY *ec_key = ctx->pkey->pkey.ec;
 339                         if (!ec_key->group)
 340                                 return -2;
 341                         /* If cofactor is 1 cofactor mode does nothing */
 342                         if (BN_is_one(&ec_key->group->cofactor))
 343                                 return 1;
 344                         if (!dctx->co_key)
 345                                 {
 346                                 dctx->co_key = EC_KEY_dup(ec_key);
 347                                 if (!dctx->co_key)
 348                                         return 0;
 349                                 }
 350                         if (p1)
 351                                 EC_KEY_set_flags(dctx->co_key,
 352                                                         EC_FLAG_COFACTOR_ECDH);
 353                         else
 354                                 EC_KEY_clear_flags(dctx->co_key,
 355                                                         EC_FLAG_COFACTOR_ECDH);
 356                         }
 357                 else if (dctx->co_key)
 358                         {
 359                         EC_KEY_free(dctx->co_key);
 360                         dctx->co_key = NULL;
 361                         }
 362                 return 1;
 363 #endif
 364
 365                 case EVP_PKEY_CTRL_EC_KDF_TYPE:
 366                 if (p1 == -2)
 367                         return dctx->kdf_type;
 368                 if (p1 != EVP_PKEY_ECDH_KDF_NONE &&
 369                     p1 != EVP_PKEY_ECDH_KDF_X9_62)
 370                         return -2;
 371                 dctx->kdf_type = p1;
 372                 return 1;
 373
 374                 case EVP_PKEY_CTRL_EC_KDF_MD:
 375                 dctx->kdf_md = p2;
 376                 return 1;
 377
 378                 case EVP_PKEY_CTRL_GET_EC_KDF_MD:
 379                 *(const EVP_MD **)p2 = dctx->kdf_md;
 380                 return 1;
 381
 382                 case EVP_PKEY_CTRL_EC_KDF_OUTLEN:
 383                 if (p1 <= 0)
 384                         return -2;
 385                 dctx->kdf_outlen = (size_t)p1;
 386                 return 1;
 387
 388                 case EVP_PKEY_CTRL_GET_EC_KDF_OUTLEN:
 389                 *(int *)p2 = dctx->kdf_outlen;
 390                 return 1;
 391
 392                 case EVP_PKEY_CTRL_EC_KDF_UKM:
 393                 if (dctx->kdf_ukm)
 394                         OPENSSL_free(dctx->kdf_ukm);
 395                 dctx->kdf_ukm = p2;
 396                 if (p2)
 397                         dctx->kdf_ukmlen = p1;
 398                 else
 399                         dctx->kdf_ukmlen = 0;
 400                 return 1;
 401
 402                 case EVP_PKEY_CTRL_GET_EC_KDF_UKM:
 403                 *(unsigned char **)p2 = dctx->kdf_ukm;
 404                 return dctx->kdf_ukmlen;
 405
 406                 case EVP_PKEY_CTRL_MD:
 407                 if (EVP_MD_type((const EVP_MD *)p2) != NID_sha1 &&
 408                     EVP_MD_type((const EVP_MD *)p2) != NID_ecdsa_with_SHA1 &&
 409                     EVP_MD_type((const EVP_MD *)p2) != NID_sha224 &&
 410                     EVP_MD_type((const EVP_MD *)p2) != NID_sha256 &&
 411                     EVP_MD_type((const EVP_MD *)p2) != NID_sha384 &&
 412                     EVP_MD_type((const EVP_MD *)p2) != NID_sha512)
 413                         {
 414                         ECerr(EC_F_PKEY_EC_CTRL, EC_R_INVALID_DIGEST_TYPE);
 415                         return 0;
 416                         }
 417                 dctx->md = p2;
 418                 return 1;
 419
 420                 case EVP_PKEY_CTRL_GET_MD:
 421                 *(const EVP_MD **)p2 = dctx->md;
 422                 return 1;
 423
 424                 case EVP_PKEY_CTRL_PEER_KEY:
 425                 /* Default behaviour is OK */
 426                 case EVP_PKEY_CTRL_DIGESTINIT:
 427                 case EVP_PKEY_CTRL_PKCS7_SIGN:
 428                 case EVP_PKEY_CTRL_CMS_SIGN:
 429                 return 1;
 430
 431                 default:
 432                 return -2;
 433
 434                 }
 435         }
 436
 437 static int pkey_ec_ctrl_str(EVP_PKEY_CTX *ctx,
 438                         const char *type, const char *value)
 439         {
 440         if (!strcmp(type, "ec_paramgen_curve"))
 441                 {
 442                 int nid;
 443                 nid = EC_curve_nist2nid(value);
 444                 if (nid == NID_undef)
 445                         nid = OBJ_sn2nid(value);
 446                 if (nid == NID_undef)
 447                         nid = OBJ_ln2nid(value);
 448                 if (nid == NID_undef)
 449                         {
 450                         ECerr(EC_F_PKEY_EC_CTRL_STR, EC_R_INVALID_CURVE);
 451                         return 0;
 452                         }
 453                 return EVP_PKEY_CTX_set_ec_paramgen_curve_nid(ctx, nid);
 454                 }
 455         else if (!strcmp(type, "ec_param_enc"))
 456                 {
 457                 int param_enc;
 458                 if (!strcmp(value, "explicit"))
 459                         param_enc = 0;
 460                 else if (!strcmp(value, "named_curve"))
 461                         param_enc = OPENSSL_EC_NAMED_CURVE;
 462                 else
 463                         return -2;
 464                 return EVP_PKEY_CTX_set_ec_param_enc(ctx, param_enc);
 465                 }
 466         else if (!strcmp(type, "ecdh_kdf_md"))
 467                 {
 468                 const EVP_MD *md;
 469                 if (!(md = EVP_get_digestbyname(value)))
 470                         {
 471                         ECerr(EC_F_PKEY_EC_CTRL_STR, EC_R_INVALID_DIGEST);
 472                         return 0;
 473                         }
 474                 return EVP_PKEY_CTX_set_ecdh_kdf_md(ctx, md);
 475                 }
 476         else if (!strcmp(type, "ecdh_cofactor_mode"))
 477                 {
 478                 int co_mode;
 479                 co_mode = atoi(value);
 480                 return EVP_PKEY_CTX_set_ecdh_cofactor_mode(ctx, co_mode);
 481                 }
 482
 483         return -2;
 484         }
 485
 486 static int pkey_ec_paramgen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 487         {
 488         EC_KEY *ec = NULL;
 489         EC_PKEY_CTX *dctx = ctx->data;
 490         int ret = 0;
 491         if (dctx->gen_group == NULL)
 492                 {
 493                 ECerr(EC_F_PKEY_EC_PARAMGEN, EC_R_NO_PARAMETERS_SET);
 494                 return 0;
 495                 }
 496         ec = EC_KEY_new();
 497         if (!ec)
 498                 return 0;
 499         ret = EC_KEY_set_group(ec, dctx->gen_group);
 500         if (ret)
 501                 EVP_PKEY_assign_EC_KEY(pkey, ec);
 502         else
 503                 EC_KEY_free(ec);
 504         return ret;
 505         }
 506
 507 static int pkey_ec_keygen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 508         {
 509         EC_KEY *ec = NULL;
 510         EC_PKEY_CTX *dctx = ctx->data;
 511         if (ctx->pkey == NULL && dctx->gen_group == NULL)
 512                 {
 513                 ECerr(EC_F_PKEY_EC_KEYGEN, EC_R_NO_PARAMETERS_SET);
 514                 return 0;
 515                 }
 516         ec = EC_KEY_new();
 517         if (!ec)
 518                 return 0;
 519         EVP_PKEY_assign_EC_KEY(pkey, ec);
 520         if (ctx->pkey)
 521                 {
 522                 /* Note: if error return, pkey is freed by parent routine */
 523                 if (!EVP_PKEY_copy_parameters(pkey, ctx->pkey))
 524                         return 0;
 525                 }
 526         else
 527                 {
 528                 if (!EC_KEY_set_group(ec, dctx->gen_group))
 529                         return 0;
 530                 }
 531         return EC_KEY_generate_key(pkey->pkey.ec);
 532         }
 533
 534 const EVP_PKEY_METHOD ec_pkey_meth =
 535         {
 536         EVP_PKEY_EC,
 537         0,
 538         pkey_ec_init,
 539         pkey_ec_copy,
 540         pkey_ec_cleanup,
 541
 542         0,
 543         pkey_ec_paramgen,
 544
 545         0,
 546         pkey_ec_keygen,
 547
 548         0,
 549         pkey_ec_sign,
 550
 551         0,
 552         pkey_ec_verify,
 553
 554         0,0,
 555
 556         0,0,0,0,
 557
 558         0,0,
 559
 560         0,0,
 561
 562         0,
 563 #ifndef OPENSSL_NO_ECDH
 564         pkey_ec_kdf_derive,
 565 #else
 566         0,
 567 #endif
 568
 569         pkey_ec_ctrl,
 570         pkey_ec_ctrl_str
 571
 572         };