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                 EVP_PKEY *pkey = EVP_PKEY_CTX_get0_pkey(ctx);
 470
 471     if (!data)
 472         return 0;
 473     memset(data, 0, sizeof(*data));
 474                 data->mac_size = 4;
 475                 data->mac_param_nid = NID_undef;
 476
 477                 if (pkey) {
 478                         struct gost_mac_key *key = EVP_PKEY_get0(pkey);
 479                         if (key) {
 480                                 data->mac_param_nid = key->mac_param_nid;
 481       }
 482                 }
 483
 484     EVP_PKEY_CTX_set_data(ctx, data);
 485     return 1;
 486 }
 487
 488 static void pkey_gost_mac_cleanup(EVP_PKEY_CTX *ctx)
 489 {
 490     struct gost_mac_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 491     if (data)
 492         OPENSSL_free(data);
 493 }
 494
 495 static int pkey_gost_mac_copy(EVP_PKEY_CTX *dst, EVP_PKEY_CTX *src)
 496 {
 497     struct gost_mac_pmeth_data *dst_data, *src_data;
 498     if (!pkey_gost_mac_init(dst)) {
 499         return 0;
 500     }
 501     src_data = EVP_PKEY_CTX_get_data(src);
 502     dst_data = EVP_PKEY_CTX_get_data(dst);
 503     if (!src_data || !dst_data)
 504         return 0;
 505
 506     *dst_data = *src_data;
 507     return 1;
 508 }
 509
 510 static int pkey_gost_mac_ctrl(EVP_PKEY_CTX *ctx, int type, int p1, void *p2)
 511 {
 512     struct gost_mac_pmeth_data *data =
 513         (struct gost_mac_pmeth_data *)EVP_PKEY_CTX_get_data(ctx);
 514
 515     switch (type) {
 516     case EVP_PKEY_CTRL_MD:
 517         {
 518             int nid = EVP_MD_type((const EVP_MD *)p2);
 519             if (nid != NID_id_Gost28147_89_MAC && nid != NID_gost_mac_12) {
 520                 GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,
 521                         GOST_R_INVALID_DIGEST_TYPE);
 522                 return 0;
 523             }
 524             data->md = (EVP_MD *)p2;
 525             return 1;
 526         }
 527
 528     case EVP_PKEY_CTRL_GET_MD:
 529         *(const EVP_MD **)p2 = data->md;
 530         return 1;
 531
 532     case EVP_PKEY_CTRL_PKCS7_ENCRYPT:
 533     case EVP_PKEY_CTRL_PKCS7_DECRYPT:
 534     case EVP_PKEY_CTRL_PKCS7_SIGN:
 535         return 1;
 536     case EVP_PKEY_CTRL_SET_MAC_KEY:
 537         if (p1 != 32) {
 538             GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL, GOST_R_INVALID_MAC_KEY_LENGTH);
 539             return 0;
 540         }
 541
 542         memcpy(data->key, p2, 32);
 543         data->key_set = 1;
 544         return 1;
 545     case EVP_PKEY_CTRL_GOST_PARAMSET:
 546                   {
 547                                 struct gost_cipher_info *param = p2;
 548                                 data->mac_param_nid = param->nid;
 549                                 struct gost_mac_key *key = NULL;
 550         EVP_PKEY *pkey = EVP_PKEY_CTX_get0_pkey(ctx);
 551         if (pkey) {
 552                 key = EVP_PKEY_get0(pkey);
 553                                         if (key) {
 554                                                 key->mac_param_nid = param->nid;
 555                                         }
 556         }
 557           return 1;
 558                         }
 559     case EVP_PKEY_CTRL_DIGESTINIT:
 560         {
 561             EVP_MD_CTX *mctx = p2;
 562             struct gost_mac_key *key;
 563             if (!data->key_set) {
 564                 EVP_PKEY *pkey = EVP_PKEY_CTX_get0_pkey(ctx);
 565                 if (!pkey) {
 566                     GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,
 567                             GOST_R_MAC_KEY_NOT_SET);
 568                     return 0;
 569                 }
 570                 key = EVP_PKEY_get0(pkey);
 571                 if (!key) {
 572                     GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,
 573                             GOST_R_MAC_KEY_NOT_SET);
 574                     return 0;
 575                 }
 576                 return mctx->digest->md_ctrl(mctx, EVP_MD_CTRL_SET_KEY, 0, key);
 577             } else {
 578                 return mctx->digest->md_ctrl(mctx, EVP_MD_CTRL_SET_KEY, 32, &(data->key));
 579             }
 580             return mctx->digest->md_ctrl(mctx, EVP_MD_CTRL_SET_KEY, 32, key);
 581         }
 582         case EVP_PKEY_CTRL_MAC_LEN:
 583                 {
 584                         if (p1<1 || p1>8)
 585                                 {
 586
 587                                         GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL,GOST_R_INVALID_MAC_SIZE);
 588                                         return 0;
 589                                 }
 590                                 data->mac_size = p1;
 591                                 return 1;
 592                 }
 593     }
 594     return -2;
 595 }
 596
 597 static int pkey_gost_mac_ctrl_str(EVP_PKEY_CTX *ctx,
 598                                   const char *type, const char *value)
 599 {
 600     if (strcmp(type, key_ctrl_string) == 0) {
 601         if (strlen(value) != 32) {
 602             GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR,
 603                     GOST_R_INVALID_MAC_KEY_LENGTH);
 604             return 0;
 605         }
 606         return pkey_gost_mac_ctrl(ctx, EVP_PKEY_CTRL_SET_MAC_KEY,
 607                                   32, (char *)value);
 608     }
 609     if (strcmp(type, hexkey_ctrl_string) == 0) {
 610         long keylen;
 611         int ret;
 612         unsigned char *keybuf = string_to_hex(value, &keylen);
 613         if (!keybuf || keylen != 32) {
 614             GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR,
 615                     GOST_R_INVALID_MAC_KEY_LENGTH);
 616             OPENSSL_free(keybuf);
 617             return 0;
 618         }
 619         ret = pkey_gost_mac_ctrl(ctx, EVP_PKEY_CTRL_SET_MAC_KEY, 32, keybuf);
 620         OPENSSL_free(keybuf);
 621         return ret;
 622
 623     }
 624         if (!strcmp(type,maclen_ctrl_string)) {
 625                 char *endptr;
 626                 long size=strtol(value,&endptr,10);
 627                 if (*endptr!='\0') {
 628                         GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR,
 629                                    GOST_R_INVALID_MAC_SIZE);
 630                         return 0;
 631                 }
 632                 return pkey_gost_mac_ctrl(ctx, EVP_PKEY_CTRL_MAC_LEN,size,NULL);
 633         }
 634         if (strcmp(type, param_ctrl_string) == 0)
 635                 {
 636                         ASN1_OBJECT *obj  = OBJ_txt2obj(value, 0);
 637                         const struct gost_cipher_info *param = NULL;
 638                         if (obj == NULL) {
 639                                 GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR, GOST_R_INVALID_MAC_PARAMS);
 640                                 return 0;
 641                         }
 642
 643                         param = get_encryption_params(obj);
 644                         if (param == NULL) {
 645                                 GOSTerr(GOST_F_PKEY_GOST_MAC_CTRL_STR, GOST_R_INVALID_MAC_PARAMS);
 646                                 return 0;
 647                         }
 648
 649                         return pkey_gost_mac_ctrl(ctx, EVP_PKEY_CTRL_GOST_PARAMSET, 0, (void *)param);
 650                 }
 651     return -2;
 652 }
 653
 654 static int pkey_gost_mac_keygen_base(EVP_PKEY_CTX *ctx,
 655                                      EVP_PKEY *pkey, int mac_nid)
 656 {
 657     struct gost_mac_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 658     struct gost_mac_key *keydata;
 659     if (!data || !data->key_set) {
 660         GOSTerr(GOST_F_PKEY_GOST_MAC_KEYGEN, GOST_R_MAC_KEY_NOT_SET);
 661         return 0;
 662     }
 663     keydata = OPENSSL_malloc(sizeof(struct gost_mac_key));
 664     if (keydata == NULL)
 665         return 0;
 666     memcpy(keydata->key, data->key, 32);
 667                 keydata->mac_param_nid = data->mac_param_nid;
 668     EVP_PKEY_assign(pkey, mac_nid, keydata);
 669     return 1;
 670 }
 671
 672 static int pkey_gost_mac_keygen_12(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 673 {
 674     return pkey_gost_mac_keygen_base(ctx, pkey, NID_gost_mac_12);
 675 }
 676
 677 static int pkey_gost_mac_keygen(EVP_PKEY_CTX *ctx, EVP_PKEY *pkey)
 678 {
 679     return pkey_gost_mac_keygen_base(ctx, pkey, NID_id_Gost28147_89_MAC);
 680 }
 681
 682 static int pkey_gost_mac_signctx_init(EVP_PKEY_CTX *ctx, EVP_MD_CTX *mctx)
 683 {
 684     return 1;
 685 }
 686
 687 static int pkey_gost_mac_signctx(EVP_PKEY_CTX *ctx, unsigned char *sig,
 688                                  size_t *siglen, EVP_MD_CTX *mctx)
 689 {
 690     unsigned int tmpsiglen;
 691     int ret;
 692         struct gost_mac_pmeth_data *data = EVP_PKEY_CTX_get_data(ctx);
 693
 694     if (!siglen)
 695         return 0;
 696     tmpsiglen = *siglen;        /* for platforms where sizeof(int) !=
 697                                  * sizeof(size_t) */
 698
 699     if (!sig) {
 700         *siglen = data->mac_size;
 701         return 1;
 702     }
 703
 704         mctx->digest->md_ctrl(mctx, EVP_MD_CTRL_MAC_LEN, data->mac_size, NULL);
 705     ret = EVP_DigestFinal_ex(mctx, sig, &tmpsiglen);
 706     *siglen = data->mac_size;
 707     return ret;
 708 }
 709
 710 /* ----------------------------------------------------------------*/
 711 int register_pmeth_gost(int id, EVP_PKEY_METHOD **pmeth, int flags)
 712 {
 713     *pmeth = EVP_PKEY_meth_new(id, flags);
 714     if (!*pmeth)
 715         return 0;
 716
 717     switch (id) {
 718     case NID_id_GostR3410_2001:
 719         EVP_PKEY_meth_set_ctrl(*pmeth,
 720                                pkey_gost_ctrl, pkey_gost_ec_ctrl_str_256);
 721         EVP_PKEY_meth_set_sign(*pmeth, NULL, pkey_gost_ec_cp_sign);
 722         EVP_PKEY_meth_set_verify(*pmeth, NULL, pkey_gost_ec_cp_verify);
 723
 724         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost2001cp_keygen);
 725
 726         EVP_PKEY_meth_set_encrypt(*pmeth,
 727                                   pkey_gost_encrypt_init,
 728                                   pkey_GOST_ECcp_encrypt);
 729         EVP_PKEY_meth_set_decrypt(*pmeth, NULL, pkey_GOST_ECcp_decrypt);
 730         EVP_PKEY_meth_set_derive(*pmeth,
 731                                  pkey_gost_derive_init, pkey_gost_ec_derive);
 732         EVP_PKEY_meth_set_paramgen(*pmeth, pkey_gost_paramgen_init,
 733                                    pkey_gost2001_paramgen);
 734         break;
 735     case NID_id_GostR3410_2012_256:
 736         EVP_PKEY_meth_set_ctrl(*pmeth,
 737                                pkey_gost_ctrl, pkey_gost_ec_ctrl_str_256);
 738         EVP_PKEY_meth_set_sign(*pmeth, NULL, pkey_gost_ec_cp_sign);
 739         EVP_PKEY_meth_set_verify(*pmeth, NULL, pkey_gost_ec_cp_verify);
 740
 741         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost2012cp_keygen);
 742
 743         EVP_PKEY_meth_set_encrypt(*pmeth,
 744                                   pkey_gost_encrypt_init,
 745                                   pkey_GOST_ECcp_encrypt);
 746         EVP_PKEY_meth_set_decrypt(*pmeth, NULL, pkey_GOST_ECcp_decrypt);
 747         EVP_PKEY_meth_set_derive(*pmeth,
 748                                  pkey_gost_derive_init, pkey_gost_ec_derive);
 749         EVP_PKEY_meth_set_paramgen(*pmeth,
 750                                    pkey_gost_paramgen_init,
 751                                    pkey_gost2012_paramgen);
 752         break;
 753     case NID_id_GostR3410_2012_512:
 754         EVP_PKEY_meth_set_ctrl(*pmeth,
 755                                pkey_gost_ctrl, pkey_gost_ec_ctrl_str_512);
 756         EVP_PKEY_meth_set_sign(*pmeth, NULL, pkey_gost_ec_cp_sign);
 757         EVP_PKEY_meth_set_verify(*pmeth, NULL, pkey_gost_ec_cp_verify);
 758
 759         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost2012cp_keygen);
 760
 761         EVP_PKEY_meth_set_encrypt(*pmeth,
 762                                   pkey_gost_encrypt_init,
 763                                   pkey_GOST_ECcp_encrypt);
 764         EVP_PKEY_meth_set_decrypt(*pmeth, NULL, pkey_GOST_ECcp_decrypt);
 765         EVP_PKEY_meth_set_derive(*pmeth,
 766                                  pkey_gost_derive_init, pkey_gost_ec_derive);
 767         EVP_PKEY_meth_set_paramgen(*pmeth,
 768                                    pkey_gost_paramgen_init,
 769                                    pkey_gost2012_paramgen);
 770         break;
 771     case NID_id_Gost28147_89_MAC:
 772         EVP_PKEY_meth_set_ctrl(*pmeth, pkey_gost_mac_ctrl,
 773                                pkey_gost_mac_ctrl_str);
 774         EVP_PKEY_meth_set_signctx(*pmeth, pkey_gost_mac_signctx_init,
 775                                   pkey_gost_mac_signctx);
 776         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost_mac_keygen);
 777         EVP_PKEY_meth_set_init(*pmeth, pkey_gost_mac_init);
 778         EVP_PKEY_meth_set_cleanup(*pmeth, pkey_gost_mac_cleanup);
 779         EVP_PKEY_meth_set_copy(*pmeth, pkey_gost_mac_copy);
 780         return 1;
 781     case NID_gost_mac_12:
 782         EVP_PKEY_meth_set_ctrl(*pmeth, pkey_gost_mac_ctrl,
 783                                pkey_gost_mac_ctrl_str);
 784         EVP_PKEY_meth_set_signctx(*pmeth, pkey_gost_mac_signctx_init,
 785                                   pkey_gost_mac_signctx);
 786         EVP_PKEY_meth_set_keygen(*pmeth, NULL, pkey_gost_mac_keygen_12);
 787         EVP_PKEY_meth_set_init(*pmeth, pkey_gost_mac_init);
 788         EVP_PKEY_meth_set_cleanup(*pmeth, pkey_gost_mac_cleanup);
 789         EVP_PKEY_meth_set_copy(*pmeth, pkey_gost_mac_copy);
 790         return 1;
 791     default:                   /* Unsupported method */
 792         return 0;
 793     }
 794     EVP_PKEY_meth_set_init(*pmeth, pkey_gost_init);
 795     EVP_PKEY_meth_set_cleanup(*pmeth, pkey_gost_cleanup);
 796
 797     EVP_PKEY_meth_set_copy(*pmeth, pkey_gost_copy);
 798     /*
 799      * FIXME derive etc...
 800      */
 801
 802     return 1;
 803 }