gost_pmeth.c

   1 /**********************************************************************
   2  *                          gost_pmeth.c                              *
   3  *             Copyright (c) 2005-2013 Cryptocom LTD                  *
   4  *         This file is distributed under the same license as OpenSSL *
   5  *                                                                    *
   6  *   Implementation of RFC 4357 (GOST R 34.10) Publick key method     *
   7  *       for OpenSSL                                                  *
   8  *          Requires OpenSSL 1.0.0+ for compilation                   *
   9  **********************************************************************/
  10 #include <openssl/evp.h>
  11 #include <openssl/objects.h>
  12 #include <openssl/ec.h>
  13 #include <openssl/err.h>
  14 #include <openssl/x509v3.h>     /* For string_to_hex */
  15 #include <stdlib.h>
  16 #include <string.h>
  17 #include <ctype.h>
  18 #include "gost_lcl.h"
  19 #include "e_gost_err.h"
  20
  21 /* -----init, cleanup, copy - uniform for all algs  --------------*/
  22 /* Allocates new gost_pmeth_data structure and assigns it as data */
  23 static int pkey_gost_init(EVP_PKEY_CTX *ctx)
  24 {
  25     struct gost_pmeth_data *data;
  26     EVP_PKEY *pkey = EVP_PKEY_CTX_get0_pkey(ctx);
  27
  28     data = OPENSSL_malloc(sizeof(*data));
  29     if (!data)
  30         return 0;
  31     memset(data, 0, sizeof(*data));
  32     if (pkey && EVP_PKEY_get0(pkey)) {
  33         switch (EVP_PKEY_base_id(pkey)) {
  34         case NID_id_GostR3410_2001:
  35         case NID_id_GostR3410_2012_256:
  36         case NID_id_GostR3410_2012_512:
  37             {
  38                 const EC_GROUP *group =
  39                     EC_KEY_get0_group(EVP_PKEY_get0((EVP_PKEY *)pkey));
  40                 if (group != NULL) {
  41                     data->sign_param_nid = EC_GROUP_get_curve_name(group);
  42                     break;
  43                 }
  44                 /* else */
  45             }
  46         default:
  47             OPENSSL_free(data);
  48             return 0;
  49         }
  50     }
  51     EVP_PKEY_CTX_set_data(ctx, data);
  52     return 1;
  53 }
  54
  55 /* Copies contents of gost_pmeth_data structure */
  56 static int pkey_gost_copy(EVP_PKEY_CTX *dst, EVP_PKEY_CTX *src)
  57 {
  58     struct gost_pmeth_data *dst_data, *src_data;
  59     if (!pkey_gost_init(dst)) {
  60         return 0;
  61     }
  62     src_data = EVP_PKEY_CTX_get_data(src);
  63     dst_data = EVP_PKEY_CTX_get_data(dst);
  64     if (!src_data || !dst_data)
  65         return 0;
  66
  67     *dst_data = *src_data;
  68     if (src_data->shared_ukm) {
  69         dst_data->shared_ukm = NULL;
  70     }
  71     return 1;
  72 }
  73
  74 /* Frees up gost_pmeth_data structure */
  75 static void pkey_gost_cleanup(EVP_PKEY_CTX *ctx)
  76 {
  77     struct gost_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
  78     if (!data)
  79         return;
  80     OPENSSL_free(data->shared_ukm);
  81     OPENSSL_free(data);
  82 }
  83
  84 /* --------------------- control functions  ------------------------------*/
  85 static int pkey_gost_ctrl(EVP_PKEY_CTX *ctx, int type, int p1, void *p2)
  86 {
  87     struct gost_pmeth_data *pctx =
  88         (struct gost_pmeth_data *)EVP_PKEY_CTX_get_data(ctx);
  89     if (pctx == NULL)
  90         return 0;
  91
  92     switch (type) {
  93     case EVP_PKEY_CTRL_MD:
  94         {
  95             EVP_PKEY *key = EVP_PKEY_CTX_get0_pkey(ctx);
  96             int pkey_nid = (key == NULL) ? NID_undef : EVP_PKEY_base_id(key);
  97
  98             OPENSSL_assert(p2 != NULL);
  99
 100             switch (EVP_MD_type((const EVP_MD *)p2)) {
 101             case NID_id_GostR3411_94:
 102                 if (pkey_nid == NID_id_GostR3410_2001
 103                     || pkey_nid == NID_id_GostR3410_94) {
 104                     pctx->md = (EVP_MD *)p2;
 105                     return 1;
 106                 }
 107                 break;
 108
 109             case NID_id_GostR3411_2012_256:
 110                 if (pkey_nid == NID_id_GostR3410_2012_256) {
 111                     pctx->md = (EVP_MD *)p2;
 112                     return 1;
 113                 }
 114                 break;
 115
 116             case NID_id_GostR3411_2012_512:
 117                 if (pkey_nid == NID_id_GostR3410_2012_512) {
 118                     pctx->md = (EVP_MD *)p2;
 119                     return 1;
 120                 }
 121                 break;
 122             }
 123
 124             GOSTerr(GOST_F_PKEY_GOST_CTRL, GOST_R_INVALID_DIGEST_TYPE);
 125             return 0;
 126         }
 127
 128     case EVP_PKEY_CTRL_GET_MD:
 129         *(const EVP_MD **)p2 = pctx->md;
 130         return 1;
 131
 132     case EVP_PKEY_CTRL_PKCS7_ENCRYPT:
 133     case EVP_PKEY_CTRL_PKCS7_DECRYPT:
 134     case EVP_PKEY_CTRL_PKCS7_SIGN:
 135     case EVP_PKEY_CTRL_DIGESTINIT:
 136 #ifndef OPENSSL_NO_CMS
 137     case EVP_PKEY_CTRL_CMS_ENCRYPT:
 138     case EVP_PKEY_CTRL_CMS_DECRYPT:
 139     case EVP_PKEY_CTRL_CMS_SIGN:
 140 #endif
 141         return 1;
 142
 143     case EVP_PKEY_CTRL_GOST_PARAMSET:
 144         pctx->sign_param_nid = (int)p1;
 145         return 1;
 146     case EVP_PKEY_CTRL_SET_IV:
 147         OPENSSL_assert(p2 != NULL);
 148         pctx->shared_ukm = OPENSSL_malloc((int)p1);
 149         if (!pctx->shared_ukm)
 150             return 0;
 151         memcpy(pctx->shared_ukm, p2, (int)p1);
 152         return 1;
 153     case EVP_PKEY_CTRL_PEER_KEY:
 154         if (p1 == 0 || p1 == 1) /* call from EVP_PKEY_derive_set_peer */
 155             return 1;
 156         if (p1 == 2)            /* TLS: peer key used? */
 157             return pctx->peer_key_used;
 158         if (p1 == 3)            /* TLS: peer key used! */
 159             return (pctx->peer_key_used = 1);
 160         break;
 161     }
 162
 163     GOSTerr(GOST_F_PKEY_GOST_CTRL, GOST_R_CTRL_CALL_FAILED);
 164     return -2;
 165 }
 166
 167 static int pkey_gost_ec_ctrl_str_256(EVP_PKEY_CTX *ctx,
 168                                      const char *type, const char *value)
 169 {
 170     int param_nid = 0;
 171
 172     if (strcmp(type, param_ctrl_string) == 0) {
 173         if (!value) {
 174             return 0;
 175         }
 176         if (strlen(value) == 1) {
 177             switch (toupper((unsigned char)value[0])) {
 178             case 'A':
 179                 param_nid = NID_id_GostR3410_2001_CryptoPro_A_ParamSet;
 180                 break;
 181             case 'B':
 182                 param_nid = NID_id_GostR3410_2001_CryptoPro_B_ParamSet;
 183                 break;
 184             case 'C':
 185                 param_nid = NID_id_GostR3410_2001_CryptoPro_C_ParamSet;
 186                 break;
 187             case '0':
 188                 param_nid = NID_id_GostR3410_2001_TestParamSet;
 189                 break;
 190             default:
 191                 return 0;
 192             }
 193         } else if ((strlen(value) == 2)
 194                    && (toupper((unsigned char)value[0]) == 'X')) {
 195             switch (toupper((unsigned char)value[1])) {
 196             case 'A':
 197                 param_nid = NID_id_GostR3410_2001_CryptoPro_XchA_ParamSet;
 198                 break;
 199             case 'B':
 200                 param_nid = NID_id_GostR3410_2001_CryptoPro_XchB_ParamSet;
 201                 break;
 202             default:
 203                 return 0;
 204             }
 205         } else {
 206             R3410_ec_params *p = R3410_2001_paramset;
 207             param_nid = OBJ_txt2nid(value);
 208             if (param_nid == NID_undef) {
 209                 return 0;
 210             }
 211             for (; p->nid != NID_undef; p++) {
 212                 if (p->nid == param_nid)
 213                     break;
 214             }
 215             if (p->nid == NID_undef) {
 216                 GOSTerr(GOST_F_PKEY_GOST_EC_CTRL_STR_256,
 217                         GOST_R_INVALID_PARAMSET);
 218                 return 0;
 219             }
 220         }
 221
 222         return pkey_gost_ctrl(ctx, EVP_PKEY_CTRL_GOST_PARAMSET,
 223                               param_nid, NULL);
 224     }
 225     return -2;
 226 }
 227
 228 static int pkey_gost_ec_ctrl_str_512(EVP_PKEY_CTX *ctx,
 229                                      const char *type, const char *value)
 230 {
 231     int param_nid = NID_undef;
 232
 233     if (strcmp(type, param_ctrl_string))
 234         return -2;
 235
 236     if (!value)
 237         return 0;
 238
 239     if (strlen(value) == 1) {
 240         switch (toupper((unsigned char)value[0])) {
 241         case 'A':
 242             param_nid = NID_id_tc26_gost_3410_2012_512_paramSetA;
 243             break;
 244
 245         case 'B':
 246             param_nid = NID_id_tc26_gost_3410_2012_512_paramSetB;
 247             break;
 248
 249         default:
 250             return 0;
 251         }
 252     } else {
 253         R3410_ec_params *p = R3410_2012_512_paramset;
 254         param_nid = OBJ_txt2nid(value);
 255         if (param_nid == NID_undef)
 256             return 0;
 257
 258         while (p->nid != NID_undef && p->nid != param_nid)
 259             p++;
 260
 261         if (p->nid == NID_undef) {
 262             GOSTerr(GOST_F_PKEY_GOST_EC_CTRL_STR_512,
 263                     GOST_R_INVALID_PARAMSET);
 264             return 0;
 265         }
 266     }
 267
 268     return pkey_gost_ctrl(ctx, EVP_PKEY_CTRL_GOST_PARAMSET, param_nid, NULL);
 269 }
 270
 271 /* --------------------- key generation  --------------------------------*/
 272
 273 static int pkey_gost_paramgen_init(EVP_PKEY_CTX *ctx)
 274 {
 275     return 1;
 276 }
 277
 278 static int pkey_gost2001_paramgen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 279 {
 280     struct gost_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 281     EC_KEY *ec = NULL;
 282
 283     if (!data || data->sign_param_nid == NID_undef) {
 284         GOSTerr(GOST_F_PKEY_GOST01_PARAMGEN, GOST_R_NO_PARAMETERS_SET);
 285         return 0;
 286     }
 287
 288     ec = EC_KEY_new();
 289     if (!fill_GOST_EC_params(ec, data->sign_param_nid)
 290         || !EVP_PKEY_assign(pkey, NID_id_GostR3410_2001, ec)) {
 291         EC_KEY_free(ec);
 292         return 0;
 293     }
 294     return 1;
 295 }
 296
 297 static int pkey_gost2012_paramgen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 298 {
 299     struct gost_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 300     EC_KEY *ec;
 301     int result = 0;
 302
 303     if (!data || data->sign_param_nid == NID_undef) {
 304         GOSTerr(GOST_F_PKEY_GOST12_PARAMGEN, GOST_R_NO_PARAMETERS_SET);
 305         return 0;
 306     }
 307
 308     ec = EC_KEY_new();
 309     if (!fill_GOST_EC_params(ec, data->sign_param_nid)) {
 310         EC_KEY_free(ec);
 311         return 0;
 312     }
 313
 314     switch (data->sign_param_nid) {
 315     case NID_id_tc26_gost_3410_2012_512_paramSetA:
 316     case NID_id_tc26_gost_3410_2012_512_paramSetB:
 317         result =
 318             (EVP_PKEY_assign(pkey, NID_id_GostR3410_2012_512, ec)) ? 1 : 0;
 319         break;
 320
 321     case NID_id_GostR3410_2001_CryptoPro_A_ParamSet:
 322     case NID_id_GostR3410_2001_CryptoPro_B_ParamSet:
 323     case NID_id_GostR3410_2001_CryptoPro_C_ParamSet:
 324     case NID_id_GostR3410_2001_CryptoPro_XchA_ParamSet:
 325     case NID_id_GostR3410_2001_CryptoPro_XchB_ParamSet:
 326     case NID_id_GostR3410_2001_TestParamSet:
 327         result =
 328             (EVP_PKEY_assign(pkey, NID_id_GostR3410_2012_256, ec)) ? 1 : 0;
 329         break;
 330     default:
 331         result = 0;
 332         break;
 333     }
 334
 335     if (result == 0)
 336         EC_KEY_free(ec);
 337
 338     return result;
 339 }
 340
 341 /* ----------- keygen callbacks --------------------------------------*/
 342 /* Generates GOST_R3410 2001 key and assigns it using specified type */
 343 static int pkey_gost2001cp_keygen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 344 {
 345     EC_KEY *ec;
 346     if (!pkey_gost2001_paramgen(ctx, pkey))
 347         return 0;
 348     ec = EVP_PKEY_get0(pkey);
 349     gost_ec_keygen(ec);
 350     return 1;
 351 }
 352
 353 /* Generates GOST_R3410 2012 key and assigns it using specified type */
 354 static int pkey_gost2012cp_keygen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 355 {
 356     if (!pkey_gost2012_paramgen(ctx, pkey))
 357         return 0;
 358
 359     gost_ec_keygen(EVP_PKEY_get0(pkey));
 360     return 1;
 361 }
 362
 363 /* ----------- sign callbacks --------------------------------------*/
 364 /*
 365  * Packs signature according to Cryptopro rules
 366  * and frees up DSA_SIG structure
 367  */
 368 int pack_sign_cp(DSA_SIG *s, int order, unsigned char *sig, size_t *siglen)
 369 {
 370     *siglen = 2 * order;
 371     memset(sig, 0, *siglen);
 372     store_bignum(s->s, sig, order);
 373     store_bignum(s->r, sig + order, order);
 374     DSA_SIG_free(s);
 375     return 1;
 376 }
 377
 378 static int pkey_gost_ec_cp_sign(EVP_PKEY_CTX *ctx, unsigned char *sig,
 379                                 size_t *siglen, const unsigned char *tbs,
 380                                 size_t tbs_len)
 381 {
 382     DSA_SIG *unpacked_sig = NULL;
 383     EVP_PKEY *pkey = EVP_PKEY_CTX_get0_pkey(ctx);
 384     int order = 0;
 385
 386     if (!siglen)
 387         return 0;
 388     if (!pkey)
 389         return 0;
 390
 391     switch (EVP_PKEY_base_id(pkey)) {
 392     case NID_id_GostR3410_2001:
 393     case NID_id_GostR3410_2012_256:
 394         order = 64;
 395         break;
 396     case NID_id_GostR3410_2012_512:
 397         order = 128;
 398         break;
 399     default:
 400         return 0;
 401     }
 402
 403     if (!sig) {
 404         *siglen = order;
 405         return 1;
 406     }
 407     unpacked_sig = gost_ec_sign(tbs, tbs_len, EVP_PKEY_get0(pkey));
 408     if (!unpacked_sig) {
 409         return 0;
 410     }
 411     return pack_sign_cp(unpacked_sig, order / 2, sig, siglen);
 412 }
 413
 414 /* ------------------- verify callbacks ---------------------------*/
 415 /* Unpack signature according to cryptopro rules  */
 416 DSA_SIG *unpack_cp_signature(const unsigned char *sig, size_t siglen)
 417 {
 418     DSA_SIG *s;
 419
 420     s = DSA_SIG_new();
 421     if (s == NULL) {
 422         GOSTerr(GOST_F_UNPACK_CP_SIGNATURE, ERR_R_MALLOC_FAILURE);
 423         return NULL;
 424     }
 425     s->s = BN_bin2bn(sig, siglen / 2, NULL);
 426     s->r = BN_bin2bn(sig + siglen / 2, siglen / 2, NULL);
 427     return s;
 428 }
 429
 430 static int pkey_gost_ec_cp_verify(EVP_PKEY_CTX *ctx, const unsigned char *sig,
 431                                   size_t siglen, const unsigned char *tbs,
 432                                   size_t tbs_len)
 433 {
 434     int ok = 0;
 435     EVP_PKEY *pub_key = EVP_PKEY_CTX_get0_pkey(ctx);
 436     DSA_SIG *s = (sig) ? unpack_cp_signature(sig, siglen) : NULL;
 437     if (!s)
 438         return 0;
 439 #ifdef DEBUG_SIGN
 440     fprintf(stderr, "R=");
 441     BN_print_fp(stderr, s->r);
 442     fprintf(stderr, "\nS=");
 443     BN_print_fp(stderr, s->s);
 444     fprintf(stderr, "\n");
 445 #endif
 446     if (pub_key)
 447         ok = gost_ec_verify(tbs, tbs_len, s, EVP_PKEY_get0(pub_key));
 448     DSA_SIG_free(s);
 449     return ok;
 450 }
 451
 452 /* ------------- encrypt init -------------------------------------*/
 453 /* Generates ephermeral key */
 454 static int pkey_gost_encrypt_init(EVP_PKEY_CTX *ctx)
 455 {
 456     return 1;
 457 }
 458
 459 /* --------------- Derive init ------------------------------------*/
 460 static int pkey_gost_derive_init(EVP_PKEY_CTX *ctx)
 461 {
 462     return 1;
 463 }
 464
 465 /* -------- PKEY_METHOD for GOST MAC algorithm --------------------*/
 466 static int pkey_gost_mac_init(EVP_PKEY_CTX *ctx)
 467 {
 468     struct gost_mac_pmeth_data *data = OPENSSL_malloc(sizeof(*data));
 469
 470     if (!data)
 471         return 0;
 472     memset(data, 0, sizeof(*data));
 473         data->mac_size = 4;
 474     EVP_PKEY_CTX_set_data(ctx, data);
 475     return 1;
 476 }
 477
 478 static void pkey_gost_mac_cleanup(EVP_PKEY_CTX *ctx)
 479 {
 480     struct gost_mac_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 481     if (data)
 482         OPENSSL_free(data);
 483 }
 484
 485 static int pkey_gost_mac_copy(EVP_PKEY_CTX *dst, EVP_PKEY_CTX *src)
 486 {
 487     struct gost_mac_pmeth_data *dst_data, *src_data;
 488     if (!pkey_gost_mac_init(dst)) {
 489         return 0;
 490     }
 491     src_data = EVP_PKEY_CTX_get_data(src);
 492     dst_data = EVP_PKEY_CTX_get_data(dst);
 493     if (!src_data || !dst_data)
 494         return 0;
 495
 496     *dst_data = *src_data;
 497     return 1;
 498 }
 499
 500 static int pkey_gost_mac_ctrl(EVP_PKEY_CTX *ctx, int type, int p1, void *p2)
 501 {
 502     struct gost_mac_pmeth_data *data =
 503         (struct gost_mac_pmeth_data *)EVP_PKEY_CTX_get_data(ctx);
 504
 505     switch (type) {
 506     case EVP_PKEY_CTRL_MD:
 507         {
 508             int nid = EVP_MD_type((const EVP_MD *)p2);
 509             if (nid != NID_id_Gost28147_89_MAC && nid != NID_gost_mac_12) {
 510                 GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,
 511                         GOST_R_INVALID_DIGEST_TYPE);
 512                 return 0;
 513             }
 514             data->md = (EVP_MD *)p2;
 515             return 1;
 516         }
 517
 518     case EVP_PKEY_CTRL_GET_MD:
 519         *(const EVP_MD **)p2 = data->md;
 520         return 1;
 521
 522     case EVP_PKEY_CTRL_PKCS7_ENCRYPT:
 523     case EVP_PKEY_CTRL_PKCS7_DECRYPT:
 524     case EVP_PKEY_CTRL_PKCS7_SIGN:
 525         return 1;
 526     case EVP_PKEY_CTRL_SET_MAC_KEY:
 527         if (p1 != 32) {
 528             GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL, GOST_R_INVALID_MAC_KEY_LENGTH);
 529             return 0;
 530         }
 531
 532         memcpy(data->key, p2, 32);
 533         data->key_set = 1;
 534         return 1;
 535     case EVP_PKEY_CTRL_DIGESTINIT:
 536         {
 537             EVP_MD_CTX *mctx = p2;
 538             void *key;
 539             if (!data->key_set) {
 540                 EVP_PKEY *pkey = EVP_PKEY_CTX_get0_pkey(ctx);
 541                 if (!pkey) {
 542                     GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,
 543                             GOST_R_MAC_KEY_NOT_SET);
 544                     return 0;
 545                 }
 546                 key = EVP_PKEY_get0(pkey);
 547                 if (!key) {
 548                     GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,
 549                             GOST_R_MAC_KEY_NOT_SET);
 550                     return 0;
 551                 }
 552             } else {
 553                 key = &(data->key);
 554             }
 555             return mctx->digest->md_ctrl(mctx, EVP_MD_CTRL_SET_KEY, 32, key);
 556         }
 557         case EVP_PKEY_CTRL_MAC_LEN:
 558                 {
 559                         if (p1<1 || p1>8)
 560                                 {
 561
 562                                         GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,GOST_R_INVALID_MAC_SIZE);
 563                                         return 0;
 564                                 }
 565                                 data->mac_size = p1;
 566                                 return 1;
 567                 }
 568     }
 569     return -2;
 570 }
 571
 572 static int pkey_gost_mac_ctrl_str(EVP_PKEY_CTX *ctx,
 573                                   const char *type, const char *value)
 574 {
 575     if (strcmp(type, key_ctrl_string) == 0) {
 576         if (strlen(value) != 32) {
 577             GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR,
 578                     GOST_R_INVALID_MAC_KEY_LENGTH);
 579             return 0;
 580         }
 581         return pkey_gost_mac_ctrl(ctx, EVP_PKEY_CTRL_SET_MAC_KEY,
 582                                   32, (char *)value);
 583     }
 584     if (strcmp(type, hexkey_ctrl_string) == 0) {
 585         long keylen;
 586         int ret;
 587         unsigned char *keybuf = string_to_hex(value, &keylen);
 588         if (!keybuf || keylen != 32) {
 589             GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR,
 590                     GOST_R_INVALID_MAC_KEY_LENGTH);
 591             OPENSSL_free(keybuf);
 592             return 0;
 593         }
 594         ret = pkey_gost_mac_ctrl(ctx, EVP_PKEY_CTRL_SET_MAC_KEY, 32, keybuf);
 595         OPENSSL_free(keybuf);
 596         return ret;
 597
 598     }
 599         if (!strcmp(type,maclen_ctrl_string)) {
 600                 char *endptr;
 601                 long size=strtol(value,&endptr,10);
 602                 if (*endptr!='\0') {
 603                         GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR,
 604                                    GOST_R_INVALID_MAC_SIZE);
 605                         return 0;
 606                 }
 607                 return pkey_gost_mac_ctrl(ctx, EVP_PKEY_CTRL_MAC_LEN,size,NULL);
 608         }
 609     return -2;
 610 }
 611
 612 static int pkey_gost_mac_keygen_base(EVP_PKEY_CTX *ctx,
 613                                      EVP_PKEY *pkey, int mac_nid)
 614 {
 615     struct gost_mac_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 616     unsigned char *keydata;
 617     if (!data || !data->key_set) {
 618         GOSTerr(GOST_F_PKEY_GOST_MAC_KEYGEN, GOST_R_MAC_KEY_NOT_SET);
 619         return 0;
 620     }
 621     keydata = OPENSSL_malloc(32);
 622     if (keydata == NULL)
 623         return 0;
 624     memcpy(keydata, data->key, 32);
 625     EVP_PKEY_assign(pkey, mac_nid, keydata);
 626     return 1;
 627 }
 628
 629 static int pkey_gost_mac_keygen_12(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 630 {
 631     return pkey_gost_mac_keygen_base(ctx, pkey, NID_gost_mac_12);
 632 }
 633
 634 static int pkey_gost_mac_keygen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 635 {
 636     return pkey_gost_mac_keygen_base(ctx, pkey, NID_id_Gost28147_89_MAC);
 637 }
 638
 639 static int pkey_gost_mac_signctx_init(EVP_PKEY_CTX *ctx, EVP_MD_CTX *mctx)
 640 {
 641     return 1;
 642 }
 643
 644 static int pkey_gost_mac_signctx(EVP_PKEY_CTX *ctx, unsigned char *sig,
 645                                  size_t *siglen, EVP_MD_CTX *mctx)
 646 {
 647     unsigned int tmpsiglen;
 648     int ret;
 649         struct gost_mac_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 650
 651     if (!siglen)
 652         return 0;
 653     tmpsiglen = *siglen;        /* for platforms where sizeof(int) !=
 654                                  * sizeof(size_t) */
 655
 656     if (!sig) {
 657         *siglen = data->mac_size;
 658         return 1;
 659     }
 660
 661         mctx->digest->md_ctrl(mctx, EVP_MD_CTRL_MAC_LEN, data->mac_size, NULL);
 662     ret = EVP_DigestFinal_ex(mctx, sig, &tmpsiglen);
 663     *siglen = data->mac_size;
 664     return ret;
 665 }
 666
 667 /* ----------------------------------------------------------------*/
 668 int register_pmeth_gost(int id, EVP_PKEY_METHOD **pmeth, int flags)
 669 {
 670     *pmeth = EVP_PKEY_meth_new(id, flags);
 671     if (!*pmeth)
 672         return 0;
 673
 674     switch (id) {
 675     case NID_id_GostR3410_2001:
 676         EVP_PKEY_meth_set_ctrl(*pmeth,
 677                                pkey_gost_ctrl, pkey_gost_ec_ctrl_str_256);
 678         EVP_PKEY_meth_set_sign(*pmeth, NULL, pkey_gost_ec_cp_sign);
 679         EVP_PKEY_meth_set_verify(*pmeth, NULL, pkey_gost_ec_cp_verify);
 680
 681         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost2001cp_keygen);
 682
 683         EVP_PKEY_meth_set_encrypt(*pmeth,
 684                                   pkey_gost_encrypt_init,
 685                                   pkey_GOST_ECcp_encrypt);
 686         EVP_PKEY_meth_set_decrypt(*pmeth, NULL, pkey_GOST_ECcp_decrypt);
 687         EVP_PKEY_meth_set_derive(*pmeth,
 688                                  pkey_gost_derive_init, pkey_gost_ec_derive);
 689         EVP_PKEY_meth_set_paramgen(*pmeth, pkey_gost_paramgen_init,
 690                                    pkey_gost2001_paramgen);
 691         break;
 692     case NID_id_GostR3410_2012_256:
 693         EVP_PKEY_meth_set_ctrl(*pmeth,
 694                                pkey_gost_ctrl, pkey_gost_ec_ctrl_str_256);
 695         EVP_PKEY_meth_set_sign(*pmeth, NULL, pkey_gost_ec_cp_sign);
 696         EVP_PKEY_meth_set_verify(*pmeth, NULL, pkey_gost_ec_cp_verify);
 697
 698         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost2012cp_keygen);
 699
 700         EVP_PKEY_meth_set_encrypt(*pmeth,
 701                                   pkey_gost_encrypt_init,
 702                                   pkey_GOST_ECcp_encrypt);
 703         EVP_PKEY_meth_set_decrypt(*pmeth, NULL, pkey_GOST_ECcp_decrypt);
 704         EVP_PKEY_meth_set_derive(*pmeth,
 705                                  pkey_gost_derive_init, pkey_gost_ec_derive);
 706         EVP_PKEY_meth_set_paramgen(*pmeth,
 707                                    pkey_gost_paramgen_init,
 708                                    pkey_gost2012_paramgen);
 709         break;
 710     case NID_id_GostR3410_2012_512:
 711         EVP_PKEY_meth_set_ctrl(*pmeth,
 712                                pkey_gost_ctrl, pkey_gost_ec_ctrl_str_512);
 713         EVP_PKEY_meth_set_sign(*pmeth, NULL, pkey_gost_ec_cp_sign);
 714         EVP_PKEY_meth_set_verify(*pmeth, NULL, pkey_gost_ec_cp_verify);
 715
 716         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost2012cp_keygen);
 717
 718         EVP_PKEY_meth_set_encrypt(*pmeth,
 719                                   pkey_gost_encrypt_init,
 720                                   pkey_GOST_ECcp_encrypt);
 721         EVP_PKEY_meth_set_decrypt(*pmeth, NULL, pkey_GOST_ECcp_decrypt);
 722         EVP_PKEY_meth_set_derive(*pmeth,
 723                                  pkey_gost_derive_init, pkey_gost_ec_derive);
 724         EVP_PKEY_meth_set_paramgen(*pmeth,
 725                                    pkey_gost_paramgen_init,
 726                                    pkey_gost2012_paramgen);
 727         break;
 728     case NID_id_Gost28147_89_MAC:
 729         EVP_PKEY_meth_set_ctrl(*pmeth, pkey_gost_mac_ctrl,
 730                                pkey_gost_mac_ctrl_str);
 731         EVP_PKEY_meth_set_signctx(*pmeth, pkey_gost_mac_signctx_init,
 732                                   pkey_gost_mac_signctx);
 733         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost_mac_keygen);
 734         EVP_PKEY_meth_set_init(*pmeth, pkey_gost_mac_init);
 735         EVP_PKEY_meth_set_cleanup(*pmeth, pkey_gost_mac_cleanup);
 736         EVP_PKEY_meth_set_copy(*pmeth, pkey_gost_mac_copy);
 737         return 1;
 738     case NID_gost_mac_12:
 739         EVP_PKEY_meth_set_ctrl(*pmeth, pkey_gost_mac_ctrl,
 740                                pkey_gost_mac_ctrl_str);
 741         EVP_PKEY_meth_set_signctx(*pmeth, pkey_gost_mac_signctx_init,
 742                                   pkey_gost_mac_signctx);
 743         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost_mac_keygen_12);
 744         EVP_PKEY_meth_set_init(*pmeth, pkey_gost_mac_init);
 745         EVP_PKEY_meth_set_cleanup(*pmeth, pkey_gost_mac_cleanup);
 746         EVP_PKEY_meth_set_copy(*pmeth, pkey_gost_mac_copy);
 747         return 1;
 748     default:                   /* Unsupported method */
 749         return 0;
 750     }
 751     EVP_PKEY_meth_set_init(*pmeth, pkey_gost_init);
 752     EVP_PKEY_meth_set_cleanup(*pmeth, pkey_gost_cleanup);
 753
 754     EVP_PKEY_meth_set_copy(*pmeth, pkey_gost_copy);
 755     /*
 756      * FIXME derive etc...
 757      */
 758
 759     return 1;
 760 }