crypto/ec/ecdh_ossl.c

   1 /*
   2  * Copyright 2002-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 /* ====================================================================
  11  * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED.
  12  *
  13  * The Elliptic Curve Public-Key Crypto Library (ECC Code) included
  14  * herein is developed by SUN MICROSYSTEMS, INC., and is contributed
  15  * to the OpenSSL project.
  16  *
  17  * The ECC Code is licensed pursuant to the OpenSSL open source
  18  * license provided below.
  19  *
  20  * The ECDH software is originally written by Douglas Stebila of
  21  * Sun Microsystems Laboratories.
  22  *
  23  */
  24
  25 #include <string.h>
  26 #include <limits.h>
  27
  28 #include "internal/cryptlib.h"
  29
  30 #include <openssl/err.h>
  31 #include <openssl/bn.h>
  32 #include <openssl/objects.h>
  33 #include <openssl/ec.h>
  34 #include "ec_lcl.h"
  35
  36 int ossl_ecdh_compute_key(unsigned char **psec, size_t *pseclen,
  37                           const EC_POINT *pub_key, const EC_KEY *ecdh)
  38 {
  39     if (ecdh->group->meth->ecdh_compute_key == NULL) {
  40         ECerr(EC_F_OSSL_ECDH_COMPUTE_KEY, EC_R_CURVE_DOES_NOT_SUPPORT_ECDH);
  41         return 0;
  42     }
  43
  44     return ecdh->group->meth->ecdh_compute_key(psec, pseclen, pub_key, ecdh);
  45 }
  46
  47 /*-
  48  * This implementation is based on the following primitives in the IEEE 1363 standard:
  49  *  - ECKAS-DH1
  50  *  - ECSVDP-DH
  51  */
  52 int ecdh_simple_compute_key(unsigned char **pout, size_t *poutlen,
  53                             const EC_POINT *pub_key, const EC_KEY *ecdh)
  54 {
  55     BN_CTX *ctx;
  56     EC_POINT *tmp = NULL;
  57     BIGNUM *x = NULL, *y = NULL;
  58     const BIGNUM *priv_key;
  59     const EC_GROUP *group;
  60     int ret = 0;
  61     size_t buflen, len;
  62     unsigned char *buf = NULL;
  63
  64     if ((ctx = BN_CTX_new()) == NULL)
  65         goto err;
  66     BN_CTX_start(ctx);
  67     x = BN_CTX_get(ctx);
  68     y = BN_CTX_get(ctx);
  69     if (y == NULL) {
  70         ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, ERR_R_MALLOC_FAILURE);
  71         goto err;
  72     }
  73
  74     priv_key = EC_KEY_get0_private_key(ecdh);
  75     if (priv_key == NULL) {
  76         ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, EC_R_NO_PRIVATE_VALUE);
  77         goto err;
  78     }
  79
  80     group = EC_KEY_get0_group(ecdh);
  81
  82     if (EC_KEY_get_flags(ecdh) & EC_FLAG_COFACTOR_ECDH) {
  83         if (!EC_GROUP_get_cofactor(group, x, NULL) ||
  84             !BN_mul(x, x, priv_key, ctx)) {
  85             ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, ERR_R_MALLOC_FAILURE);
  86             goto err;
  87         }
  88         priv_key = x;
  89     }
  90
  91     if ((tmp = EC_POINT_new(group)) == NULL) {
  92         ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, ERR_R_MALLOC_FAILURE);
  93         goto err;
  94     }
  95
  96     if (!EC_POINT_mul(group, tmp, NULL, pub_key, priv_key, ctx)) {
  97         ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, EC_R_POINT_ARITHMETIC_FAILURE);
  98         goto err;
  99     }
 100
 101     if (EC_METHOD_get_field_type(EC_GROUP_method_of(group)) ==
 102         NID_X9_62_prime_field) {
 103         if (!EC_POINT_get_affine_coordinates_GFp(group, tmp, x, y, ctx)) {
 104             ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, EC_R_POINT_ARITHMETIC_FAILURE);
 105             goto err;
 106         }
 107     }
 108 #ifndef OPENSSL_NO_EC2M
 109     else {
 110         if (!EC_POINT_get_affine_coordinates_GF2m(group, tmp, x, y, ctx)) {
 111             ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, EC_R_POINT_ARITHMETIC_FAILURE);
 112             goto err;
 113         }
 114     }
 115 #endif
 116
 117     buflen = (EC_GROUP_get_degree(group) + 7) / 8;
 118     len = BN_num_bytes(x);
 119     if (len > buflen) {
 120         ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, ERR_R_INTERNAL_ERROR);
 121         goto err;
 122     }
 123     if ((buf = OPENSSL_malloc(buflen)) == NULL) {
 124         ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, ERR_R_MALLOC_FAILURE);
 125         goto err;
 126     }
 127
 128     memset(buf, 0, buflen - len);
 129     if (len != (size_t)BN_bn2bin(x, buf + buflen - len)) {
 130         ECerr(EC_F_ECDH_SIMPLE_COMPUTE_KEY, ERR_R_BN_LIB);
 131         goto err;
 132     }
 133
 134     *pout = buf;
 135     *poutlen = buflen;
 136     buf = NULL;
 137
 138     ret = 1;
 139
 140  err:
 141     EC_POINT_free(tmp);
 142     if (ctx)
 143         BN_CTX_end(ctx);
 144     BN_CTX_free(ctx);
 145     OPENSSL_free(buf);
 146     return ret;
 147 }