crypto/rsa/rsa_ameth.c

   1 /*
   2  * Copyright 2006-2018 The OpenSSL Project Authors. All Rights Reserved.
   3  *
   4  * Licensed under the Apache License 2.0 (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  * RSA low level APIs are deprecated for public use, but still ok for
  12  * internal use.
  13  */
  14 #include "internal/deprecated.h"
  15
  16 #include <stdio.h>
  17 #include "internal/cryptlib.h"
  18 #include <openssl/asn1t.h>
  19 #include <openssl/x509.h>
  20 #include <openssl/bn.h>
  21 #include <openssl/cms.h>
  22 #include <openssl/core_names.h>
  23 #include "internal/param_build.h"
  24 #include "crypto/asn1.h"
  25 #include "crypto/evp.h"
  26 #include "crypto/rsa.h"
  27 #include "rsa_local.h"
  28
  29 #ifndef OPENSSL_NO_CMS
  30 static int rsa_cms_sign(CMS_SignerInfo *si);
  31 static int rsa_cms_verify(CMS_SignerInfo *si);
  32 static int rsa_cms_decrypt(CMS_RecipientInfo *ri);
  33 static int rsa_cms_encrypt(CMS_RecipientInfo *ri);
  34 #endif
  35
  36 static RSA_PSS_PARAMS *rsa_pss_decode(const X509_ALGOR *alg);
  37
  38 /* Set any parameters associated with pkey */
  39 static int rsa_param_encode(const EVP_PKEY *pkey,
  40                             ASN1_STRING **pstr, int *pstrtype)
  41 {
  42     const RSA *rsa = pkey->pkey.rsa;
  43
  44     *pstr = NULL;
  45     /* If RSA it's just NULL type */
  46     if (pkey->ameth->pkey_id != EVP_PKEY_RSA_PSS) {
  47         *pstrtype = V_ASN1_NULL;
  48         return 1;
  49     }
  50     /* If no PSS parameters we omit parameters entirely */
  51     if (rsa->pss == NULL) {
  52         *pstrtype = V_ASN1_UNDEF;
  53         return 1;
  54     }
  55     /* Encode PSS parameters */
  56     if (ASN1_item_pack(rsa->pss, ASN1_ITEM_rptr(RSA_PSS_PARAMS), pstr) == NULL)
  57         return 0;
  58
  59     *pstrtype = V_ASN1_SEQUENCE;
  60     return 1;
  61 }
  62 /* Decode any parameters and set them in RSA structure */
  63 static int rsa_param_decode(RSA *rsa, const X509_ALGOR *alg)
  64 {
  65     const ASN1_OBJECT *algoid;
  66     const void *algp;
  67     int algptype;
  68
  69     X509_ALGOR_get0(&algoid, &algptype, &algp, alg);
  70     if (OBJ_obj2nid(algoid) != EVP_PKEY_RSA_PSS)
  71         return 1;
  72     if (algptype == V_ASN1_UNDEF)
  73         return 1;
  74     if (algptype != V_ASN1_SEQUENCE) {
  75         RSAerr(RSA_F_RSA_PARAM_DECODE, RSA_R_INVALID_PSS_PARAMETERS);
  76         return 0;
  77     }
  78     rsa->pss = rsa_pss_decode(alg);
  79     if (rsa->pss == NULL)
  80         return 0;
  81     return 1;
  82 }
  83
  84 static int rsa_pub_encode(X509_PUBKEY *pk, const EVP_PKEY *pkey)
  85 {
  86     unsigned char *penc = NULL;
  87     int penclen;
  88     ASN1_STRING *str;
  89     int strtype;
  90
  91     if (!rsa_param_encode(pkey, &str, &strtype))
  92         return 0;
  93     penclen = i2d_RSAPublicKey(pkey->pkey.rsa, &penc);
  94     if (penclen <= 0)
  95         return 0;
  96     if (X509_PUBKEY_set0_param(pk, OBJ_nid2obj(pkey->ameth->pkey_id),
  97                                strtype, str, penc, penclen))
  98         return 1;
  99
 100     OPENSSL_free(penc);
 101     return 0;
 102 }
 103
 104 static int rsa_pub_decode(EVP_PKEY *pkey, X509_PUBKEY *pubkey)
 105 {
 106     const unsigned char *p;
 107     int pklen;
 108     X509_ALGOR *alg;
 109     RSA *rsa = NULL;
 110
 111     if (!X509_PUBKEY_get0_param(NULL, &p, &pklen, &alg, pubkey))
 112         return 0;
 113     if ((rsa = d2i_RSAPublicKey(NULL, &p, pklen)) == NULL) {
 114         RSAerr(RSA_F_RSA_PUB_DECODE, ERR_R_RSA_LIB);
 115         return 0;
 116     }
 117     if (!rsa_param_decode(rsa, alg)) {
 118         RSA_free(rsa);
 119         return 0;
 120     }
 121     if (!EVP_PKEY_assign(pkey, pkey->ameth->pkey_id, rsa)) {
 122         RSA_free(rsa);
 123         return 0;
 124     }
 125     return 1;
 126 }
 127
 128 static int rsa_pub_cmp(const EVP_PKEY *a, const EVP_PKEY *b)
 129 {
 130     if (BN_cmp(b->pkey.rsa->n, a->pkey.rsa->n) != 0
 131         || BN_cmp(b->pkey.rsa->e, a->pkey.rsa->e) != 0)
 132         return 0;
 133     return 1;
 134 }
 135
 136 static int old_rsa_priv_decode(EVP_PKEY *pkey,
 137                                const unsigned char **pder, int derlen)
 138 {
 139     RSA *rsa;
 140
 141     if ((rsa = d2i_RSAPrivateKey(NULL, pder, derlen)) == NULL) {
 142         RSAerr(RSA_F_OLD_RSA_PRIV_DECODE, ERR_R_RSA_LIB);
 143         return 0;
 144     }
 145     EVP_PKEY_assign(pkey, pkey->ameth->pkey_id, rsa);
 146     return 1;
 147 }
 148
 149 static int old_rsa_priv_encode(const EVP_PKEY *pkey, unsigned char **pder)
 150 {
 151     return i2d_RSAPrivateKey(pkey->pkey.rsa, pder);
 152 }
 153
 154 static int rsa_priv_encode(PKCS8_PRIV_KEY_INFO *p8, const EVP_PKEY *pkey)
 155 {
 156     unsigned char *rk = NULL;
 157     int rklen;
 158     ASN1_STRING *str;
 159     int strtype;
 160
 161     if (!rsa_param_encode(pkey, &str, &strtype))
 162         return 0;
 163     rklen = i2d_RSAPrivateKey(pkey->pkey.rsa, &rk);
 164
 165     if (rklen <= 0) {
 166         RSAerr(RSA_F_RSA_PRIV_ENCODE, ERR_R_MALLOC_FAILURE);
 167         ASN1_STRING_free(str);
 168         return 0;
 169     }
 170
 171     if (!PKCS8_pkey_set0(p8, OBJ_nid2obj(pkey->ameth->pkey_id), 0,
 172                          strtype, str, rk, rklen)) {
 173         RSAerr(RSA_F_RSA_PRIV_ENCODE, ERR_R_MALLOC_FAILURE);
 174         ASN1_STRING_free(str);
 175         return 0;
 176     }
 177
 178     return 1;
 179 }
 180
 181 static int rsa_priv_decode(EVP_PKEY *pkey, const PKCS8_PRIV_KEY_INFO *p8)
 182 {
 183     const unsigned char *p;
 184     RSA *rsa;
 185     int pklen;
 186     const X509_ALGOR *alg;
 187
 188     if (!PKCS8_pkey_get0(NULL, &p, &pklen, &alg, p8))
 189         return 0;
 190     rsa = d2i_RSAPrivateKey(NULL, &p, pklen);
 191     if (rsa == NULL) {
 192         RSAerr(RSA_F_RSA_PRIV_DECODE, ERR_R_RSA_LIB);
 193         return 0;
 194     }
 195     if (!rsa_param_decode(rsa, alg)) {
 196         RSA_free(rsa);
 197         return 0;
 198     }
 199     EVP_PKEY_assign(pkey, pkey->ameth->pkey_id, rsa);
 200     return 1;
 201 }
 202
 203 static int int_rsa_size(const EVP_PKEY *pkey)
 204 {
 205     return RSA_size(pkey->pkey.rsa);
 206 }
 207
 208 static int rsa_bits(const EVP_PKEY *pkey)
 209 {
 210     return BN_num_bits(pkey->pkey.rsa->n);
 211 }
 212
 213 static int rsa_security_bits(const EVP_PKEY *pkey)
 214 {
 215     return RSA_security_bits(pkey->pkey.rsa);
 216 }
 217
 218 static void int_rsa_free(EVP_PKEY *pkey)
 219 {
 220     RSA_free(pkey->pkey.rsa);
 221 }
 222
 223 static X509_ALGOR *rsa_mgf1_decode(X509_ALGOR *alg)
 224 {
 225     if (OBJ_obj2nid(alg->algorithm) != NID_mgf1)
 226         return NULL;
 227     return ASN1_TYPE_unpack_sequence(ASN1_ITEM_rptr(X509_ALGOR),
 228                                      alg->parameter);
 229 }
 230
 231 static int rsa_pss_param_print(BIO *bp, int pss_key, RSA_PSS_PARAMS *pss,
 232                                int indent)
 233 {
 234     int rv = 0;
 235     X509_ALGOR *maskHash = NULL;
 236
 237     if (!BIO_indent(bp, indent, 128))
 238         goto err;
 239     if (pss_key) {
 240         if (pss == NULL) {
 241             if (BIO_puts(bp, "No PSS parameter restrictions\n") <= 0)
 242                 return 0;
 243             return 1;
 244         } else {
 245             if (BIO_puts(bp, "PSS parameter restrictions:") <= 0)
 246                 return 0;
 247         }
 248     } else if (pss == NULL) {
 249         if (BIO_puts(bp,"(INVALID PSS PARAMETERS)\n") <= 0)
 250             return 0;
 251         return 1;
 252     }
 253     if (BIO_puts(bp, "\n") <= 0)
 254         goto err;
 255     if (pss_key)
 256         indent += 2;
 257     if (!BIO_indent(bp, indent, 128))
 258         goto err;
 259     if (BIO_puts(bp, "Hash Algorithm: ") <= 0)
 260         goto err;
 261
 262     if (pss->hashAlgorithm) {
 263         if (i2a_ASN1_OBJECT(bp, pss->hashAlgorithm->algorithm) <= 0)
 264             goto err;
 265     } else if (BIO_puts(bp, "sha1 (default)") <= 0) {
 266         goto err;
 267     }
 268
 269     if (BIO_puts(bp, "\n") <= 0)
 270         goto err;
 271
 272     if (!BIO_indent(bp, indent, 128))
 273         goto err;
 274
 275     if (BIO_puts(bp, "Mask Algorithm: ") <= 0)
 276         goto err;
 277     if (pss->maskGenAlgorithm) {
 278         if (i2a_ASN1_OBJECT(bp, pss->maskGenAlgorithm->algorithm) <= 0)
 279             goto err;
 280         if (BIO_puts(bp, " with ") <= 0)
 281             goto err;
 282         maskHash = rsa_mgf1_decode(pss->maskGenAlgorithm);
 283         if (maskHash != NULL) {
 284             if (i2a_ASN1_OBJECT(bp, maskHash->algorithm) <= 0)
 285                 goto err;
 286         } else if (BIO_puts(bp, "INVALID") <= 0) {
 287             goto err;
 288         }
 289     } else if (BIO_puts(bp, "mgf1 with sha1 (default)") <= 0) {
 290         goto err;
 291     }
 292     BIO_puts(bp, "\n");
 293
 294     if (!BIO_indent(bp, indent, 128))
 295         goto err;
 296     if (BIO_printf(bp, "%s Salt Length: 0x", pss_key ? "Minimum" : "") <= 0)
 297         goto err;
 298     if (pss->saltLength) {
 299         if (i2a_ASN1_INTEGER(bp, pss->saltLength) <= 0)
 300             goto err;
 301     } else if (BIO_puts(bp, "14 (default)") <= 0) {
 302         goto err;
 303     }
 304     BIO_puts(bp, "\n");
 305
 306     if (!BIO_indent(bp, indent, 128))
 307         goto err;
 308     if (BIO_puts(bp, "Trailer Field: 0x") <= 0)
 309         goto err;
 310     if (pss->trailerField) {
 311         if (i2a_ASN1_INTEGER(bp, pss->trailerField) <= 0)
 312             goto err;
 313     } else if (BIO_puts(bp, "BC (default)") <= 0) {
 314         goto err;
 315     }
 316     BIO_puts(bp, "\n");
 317
 318     rv = 1;
 319
 320  err:
 321     X509_ALGOR_free(maskHash);
 322     return rv;
 323
 324 }
 325
 326 static int pkey_rsa_print(BIO *bp, const EVP_PKEY *pkey, int off, int priv)
 327 {
 328     const RSA *x = pkey->pkey.rsa;
 329     char *str;
 330     const char *s;
 331     int ret = 0, mod_len = 0, ex_primes;
 332
 333     if (x->n != NULL)
 334         mod_len = BN_num_bits(x->n);
 335     ex_primes = sk_RSA_PRIME_INFO_num(x->prime_infos);
 336
 337     if (!BIO_indent(bp, off, 128))
 338         goto err;
 339
 340     if (BIO_printf(bp, "%s ", pkey_is_pss(pkey) ?  "RSA-PSS" : "RSA") <= 0)
 341         goto err;
 342
 343     if (priv && x->d) {
 344         if (BIO_printf(bp, "Private-Key: (%d bit, %d primes)\n",
 345                        mod_len, ex_primes <= 0 ? 2 : ex_primes + 2) <= 0)
 346             goto err;
 347         str = "modulus:";
 348         s = "publicExponent:";
 349     } else {
 350         if (BIO_printf(bp, "Public-Key: (%d bit)\n", mod_len) <= 0)
 351             goto err;
 352         str = "Modulus:";
 353         s = "Exponent:";
 354     }
 355     if (!ASN1_bn_print(bp, str, x->n, NULL, off))
 356         goto err;
 357     if (!ASN1_bn_print(bp, s, x->e, NULL, off))
 358         goto err;
 359     if (priv) {
 360         int i;
 361
 362         if (!ASN1_bn_print(bp, "privateExponent:", x->d, NULL, off))
 363             goto err;
 364         if (!ASN1_bn_print(bp, "prime1:", x->p, NULL, off))
 365             goto err;
 366         if (!ASN1_bn_print(bp, "prime2:", x->q, NULL, off))
 367             goto err;
 368         if (!ASN1_bn_print(bp, "exponent1:", x->dmp1, NULL, off))
 369             goto err;
 370         if (!ASN1_bn_print(bp, "exponent2:", x->dmq1, NULL, off))
 371             goto err;
 372         if (!ASN1_bn_print(bp, "coefficient:", x->iqmp, NULL, off))
 373             goto err;
 374         for (i = 0; i < sk_RSA_PRIME_INFO_num(x->prime_infos); i++) {
 375             /* print multi-prime info */
 376             BIGNUM *bn = NULL;
 377             RSA_PRIME_INFO *pinfo;
 378             int j;
 379
 380             pinfo = sk_RSA_PRIME_INFO_value(x->prime_infos, i);
 381             for (j = 0; j < 3; j++) {
 382                 if (!BIO_indent(bp, off, 128))
 383                     goto err;
 384                 switch (j) {
 385                 case 0:
 386                     if (BIO_printf(bp, "prime%d:", i + 3) <= 0)
 387                         goto err;
 388                     bn = pinfo->r;
 389                     break;
 390                 case 1:
 391                     if (BIO_printf(bp, "exponent%d:", i + 3) <= 0)
 392                         goto err;
 393                     bn = pinfo->d;
 394                     break;
 395                 case 2:
 396                     if (BIO_printf(bp, "coefficient%d:", i + 3) <= 0)
 397                         goto err;
 398                     bn = pinfo->t;
 399                     break;
 400                 default:
 401                     break;
 402                 }
 403                 if (!ASN1_bn_print(bp, "", bn, NULL, off))
 404                     goto err;
 405             }
 406         }
 407     }
 408     if (pkey_is_pss(pkey) && !rsa_pss_param_print(bp, 1, x->pss, off))
 409         goto err;
 410     ret = 1;
 411  err:
 412     return ret;
 413 }
 414
 415 static int rsa_pub_print(BIO *bp, const EVP_PKEY *pkey, int indent,
 416                          ASN1_PCTX *ctx)
 417 {
 418     return pkey_rsa_print(bp, pkey, indent, 0);
 419 }
 420
 421 static int rsa_priv_print(BIO *bp, const EVP_PKEY *pkey, int indent,
 422                           ASN1_PCTX *ctx)
 423 {
 424     return pkey_rsa_print(bp, pkey, indent, 1);
 425 }
 426
 427 static RSA_PSS_PARAMS *rsa_pss_decode(const X509_ALGOR *alg)
 428 {
 429     RSA_PSS_PARAMS *pss;
 430
 431     pss = ASN1_TYPE_unpack_sequence(ASN1_ITEM_rptr(RSA_PSS_PARAMS),
 432                                     alg->parameter);
 433
 434     if (pss == NULL)
 435         return NULL;
 436
 437     if (pss->maskGenAlgorithm != NULL) {
 438         pss->maskHash = rsa_mgf1_decode(pss->maskGenAlgorithm);
 439         if (pss->maskHash == NULL) {
 440             RSA_PSS_PARAMS_free(pss);
 441             return NULL;
 442         }
 443     }
 444
 445     return pss;
 446 }
 447
 448 static int rsa_sig_print(BIO *bp, const X509_ALGOR *sigalg,
 449                          const ASN1_STRING *sig, int indent, ASN1_PCTX *pctx)
 450 {
 451     if (OBJ_obj2nid(sigalg->algorithm) == EVP_PKEY_RSA_PSS) {
 452         int rv;
 453         RSA_PSS_PARAMS *pss = rsa_pss_decode(sigalg);
 454
 455         rv = rsa_pss_param_print(bp, 0, pss, indent);
 456         RSA_PSS_PARAMS_free(pss);
 457         if (!rv)
 458             return 0;
 459     } else if (BIO_puts(bp, "\n") <= 0) {
 460         return 0;
 461     }
 462     if (sig)
 463         return X509_signature_dump(bp, sig, indent);
 464     return 1;
 465 }
 466
 467 static int rsa_pkey_ctrl(EVP_PKEY *pkey, int op, long arg1, void *arg2)
 468 {
 469     X509_ALGOR *alg = NULL;
 470     const EVP_MD *md;
 471     const EVP_MD *mgf1md;
 472     int min_saltlen;
 473
 474     switch (op) {
 475
 476     case ASN1_PKEY_CTRL_PKCS7_SIGN:
 477         if (arg1 == 0)
 478             PKCS7_SIGNER_INFO_get0_algs(arg2, NULL, NULL, &alg);
 479         break;
 480
 481     case ASN1_PKEY_CTRL_PKCS7_ENCRYPT:
 482         if (pkey_is_pss(pkey))
 483             return -2;
 484         if (arg1 == 0)
 485             PKCS7_RECIP_INFO_get0_alg(arg2, &alg);
 486         break;
 487 #ifndef OPENSSL_NO_CMS
 488     case ASN1_PKEY_CTRL_CMS_SIGN:
 489         if (arg1 == 0)
 490             return rsa_cms_sign(arg2);
 491         else if (arg1 == 1)
 492             return rsa_cms_verify(arg2);
 493         break;
 494
 495     case ASN1_PKEY_CTRL_CMS_ENVELOPE:
 496         if (pkey_is_pss(pkey))
 497             return -2;
 498         if (arg1 == 0)
 499             return rsa_cms_encrypt(arg2);
 500         else if (arg1 == 1)
 501             return rsa_cms_decrypt(arg2);
 502         break;
 503
 504     case ASN1_PKEY_CTRL_CMS_RI_TYPE:
 505         if (pkey_is_pss(pkey))
 506             return -2;
 507         *(int *)arg2 = CMS_RECIPINFO_TRANS;
 508         return 1;
 509 #endif
 510
 511     case ASN1_PKEY_CTRL_DEFAULT_MD_NID:
 512         if (pkey->pkey.rsa->pss != NULL) {
 513             if (!rsa_pss_get_param(pkey->pkey.rsa->pss, &md, &mgf1md,
 514                                    &min_saltlen)) {
 515                 RSAerr(0, ERR_R_INTERNAL_ERROR);
 516                 return 0;
 517             }
 518             *(int *)arg2 = EVP_MD_type(md);
 519             /* Return of 2 indicates this MD is mandatory */
 520             return 2;
 521         }
 522         *(int *)arg2 = NID_sha256;
 523         return 1;
 524
 525     default:
 526         return -2;
 527
 528     }
 529
 530     if (alg)
 531         X509_ALGOR_set0(alg, OBJ_nid2obj(NID_rsaEncryption), V_ASN1_NULL, 0);
 532
 533     return 1;
 534
 535 }
 536
 537 /* allocate and set algorithm ID from EVP_MD, default SHA1 */
 538 static int rsa_md_to_algor(X509_ALGOR **palg, const EVP_MD *md)
 539 {
 540     if (md == NULL || EVP_MD_type(md) == NID_sha1)
 541         return 1;
 542     *palg = X509_ALGOR_new();
 543     if (*palg == NULL)
 544         return 0;
 545     X509_ALGOR_set_md(*palg, md);
 546     return 1;
 547 }
 548
 549 /* Allocate and set MGF1 algorithm ID from EVP_MD */
 550 static int rsa_md_to_mgf1(X509_ALGOR **palg, const EVP_MD *mgf1md)
 551 {
 552     X509_ALGOR *algtmp = NULL;
 553     ASN1_STRING *stmp = NULL;
 554
 555     *palg = NULL;
 556     if (mgf1md == NULL || EVP_MD_type(mgf1md) == NID_sha1)
 557         return 1;
 558     /* need to embed algorithm ID inside another */
 559     if (!rsa_md_to_algor(&algtmp, mgf1md))
 560         goto err;
 561     if (ASN1_item_pack(algtmp, ASN1_ITEM_rptr(X509_ALGOR), &stmp) == NULL)
 562          goto err;
 563     *palg = X509_ALGOR_new();
 564     if (*palg == NULL)
 565         goto err;
 566     X509_ALGOR_set0(*palg, OBJ_nid2obj(NID_mgf1), V_ASN1_SEQUENCE, stmp);
 567     stmp = NULL;
 568  err:
 569     ASN1_STRING_free(stmp);
 570     X509_ALGOR_free(algtmp);
 571     if (*palg)
 572         return 1;
 573     return 0;
 574 }
 575
 576 /* convert algorithm ID to EVP_MD, default SHA1 */
 577 static const EVP_MD *rsa_algor_to_md(X509_ALGOR *alg)
 578 {
 579     const EVP_MD *md;
 580
 581     if (!alg)
 582         return EVP_sha1();
 583     md = EVP_get_digestbyobj(alg->algorithm);
 584     if (md == NULL)
 585         RSAerr(RSA_F_RSA_ALGOR_TO_MD, RSA_R_UNKNOWN_DIGEST);
 586     return md;
 587 }
 588
 589 /*
 590  * Convert EVP_PKEY_CTX in PSS mode into corresponding algorithm parameter,
 591  * suitable for setting an AlgorithmIdentifier.
 592  */
 593
 594 static RSA_PSS_PARAMS *rsa_ctx_to_pss(EVP_PKEY_CTX *pkctx)
 595 {
 596     const EVP_MD *sigmd, *mgf1md;
 597     EVP_PKEY *pk = EVP_PKEY_CTX_get0_pkey(pkctx);
 598     RSA *rsa = EVP_PKEY_get0_RSA(pk);
 599     int saltlen;
 600
 601     if (EVP_PKEY_CTX_get_signature_md(pkctx, &sigmd) <= 0)
 602         return NULL;
 603     if (EVP_PKEY_CTX_get_rsa_mgf1_md(pkctx, &mgf1md) <= 0)
 604         return NULL;
 605     if (!EVP_PKEY_CTX_get_rsa_pss_saltlen(pkctx, &saltlen))
 606         return NULL;
 607     if (saltlen == -1) {
 608         saltlen = EVP_MD_size(sigmd);
 609     } else if (saltlen == -2 || saltlen == -3) {
 610         saltlen = RSA_size(rsa) - EVP_MD_size(sigmd) - 2;
 611         if ((EVP_PKEY_bits(pk) & 0x7) == 1)
 612             saltlen--;
 613         if (saltlen < 0)
 614             return NULL;
 615     }
 616
 617     return rsa_pss_params_create(sigmd, mgf1md, saltlen);
 618 }
 619
 620 RSA_PSS_PARAMS *rsa_pss_params_create(const EVP_MD *sigmd,
 621                                       const EVP_MD *mgf1md, int saltlen)
 622 {
 623     RSA_PSS_PARAMS *pss = RSA_PSS_PARAMS_new();
 624
 625     if (pss == NULL)
 626         goto err;
 627     if (saltlen != 20) {
 628         pss->saltLength = ASN1_INTEGER_new();
 629         if (pss->saltLength == NULL)
 630             goto err;
 631         if (!ASN1_INTEGER_set(pss->saltLength, saltlen))
 632             goto err;
 633     }
 634     if (!rsa_md_to_algor(&pss->hashAlgorithm, sigmd))
 635         goto err;
 636     if (mgf1md == NULL)
 637         mgf1md = sigmd;
 638     if (!rsa_md_to_mgf1(&pss->maskGenAlgorithm, mgf1md))
 639         goto err;
 640     if (!rsa_md_to_algor(&pss->maskHash, mgf1md))
 641         goto err;
 642     return pss;
 643  err:
 644     RSA_PSS_PARAMS_free(pss);
 645     return NULL;
 646 }
 647
 648 static ASN1_STRING *rsa_ctx_to_pss_string(EVP_PKEY_CTX *pkctx)
 649 {
 650     RSA_PSS_PARAMS *pss = rsa_ctx_to_pss(pkctx);
 651     ASN1_STRING *os;
 652
 653     if (pss == NULL)
 654         return NULL;
 655
 656     os = ASN1_item_pack(pss, ASN1_ITEM_rptr(RSA_PSS_PARAMS), NULL);
 657     RSA_PSS_PARAMS_free(pss);
 658     return os;
 659 }
 660
 661 /*
 662  * From PSS AlgorithmIdentifier set public key parameters. If pkey isn't NULL
 663  * then the EVP_MD_CTX is setup and initialised. If it is NULL parameters are
 664  * passed to pkctx instead.
 665  */
 666
 667 static int rsa_pss_to_ctx(EVP_MD_CTX *ctx, EVP_PKEY_CTX *pkctx,
 668                           X509_ALGOR *sigalg, EVP_PKEY *pkey)
 669 {
 670     int rv = -1;
 671     int saltlen;
 672     const EVP_MD *mgf1md = NULL, *md = NULL;
 673     RSA_PSS_PARAMS *pss;
 674
 675     /* Sanity check: make sure it is PSS */
 676     if (OBJ_obj2nid(sigalg->algorithm) != EVP_PKEY_RSA_PSS) {
 677         RSAerr(RSA_F_RSA_PSS_TO_CTX, RSA_R_UNSUPPORTED_SIGNATURE_TYPE);
 678         return -1;
 679     }
 680     /* Decode PSS parameters */
 681     pss = rsa_pss_decode(sigalg);
 682
 683     if (!rsa_pss_get_param(pss, &md, &mgf1md, &saltlen)) {
 684         RSAerr(RSA_F_RSA_PSS_TO_CTX, RSA_R_INVALID_PSS_PARAMETERS);
 685         goto err;
 686     }
 687
 688     /* We have all parameters now set up context */
 689     if (pkey) {
 690         if (!EVP_DigestVerifyInit(ctx, &pkctx, md, NULL, pkey))
 691             goto err;
 692     } else {
 693         const EVP_MD *checkmd;
 694         if (EVP_PKEY_CTX_get_signature_md(pkctx, &checkmd) <= 0)
 695             goto err;
 696         if (EVP_MD_type(md) != EVP_MD_type(checkmd)) {
 697             RSAerr(RSA_F_RSA_PSS_TO_CTX, RSA_R_DIGEST_DOES_NOT_MATCH);
 698             goto err;
 699         }
 700     }
 701
 702     if (EVP_PKEY_CTX_set_rsa_padding(pkctx, RSA_PKCS1_PSS_PADDING) <= 0)
 703         goto err;
 704
 705     if (EVP_PKEY_CTX_set_rsa_pss_saltlen(pkctx, saltlen) <= 0)
 706         goto err;
 707
 708     if (EVP_PKEY_CTX_set_rsa_mgf1_md(pkctx, mgf1md) <= 0)
 709         goto err;
 710     /* Carry on */
 711     rv = 1;
 712
 713  err:
 714     RSA_PSS_PARAMS_free(pss);
 715     return rv;
 716 }
 717
 718 int rsa_pss_get_param(const RSA_PSS_PARAMS *pss, const EVP_MD **pmd,
 719                       const EVP_MD **pmgf1md, int *psaltlen)
 720 {
 721     if (pss == NULL)
 722         return 0;
 723     *pmd = rsa_algor_to_md(pss->hashAlgorithm);
 724     if (*pmd == NULL)
 725         return 0;
 726     *pmgf1md = rsa_algor_to_md(pss->maskHash);
 727     if (*pmgf1md == NULL)
 728         return 0;
 729     if (pss->saltLength) {
 730         *psaltlen = ASN1_INTEGER_get(pss->saltLength);
 731         if (*psaltlen < 0) {
 732             RSAerr(RSA_F_RSA_PSS_GET_PARAM, RSA_R_INVALID_SALT_LENGTH);
 733             return 0;
 734         }
 735     } else {
 736         *psaltlen = 20;
 737     }
 738
 739     /*
 740      * low-level routines support only trailer field 0xbc (value 1) and
 741      * PKCS#1 says we should reject any other value anyway.
 742      */
 743     if (pss->trailerField && ASN1_INTEGER_get(pss->trailerField) != 1) {
 744         RSAerr(RSA_F_RSA_PSS_GET_PARAM, RSA_R_INVALID_TRAILER);
 745         return 0;
 746     }
 747
 748     return 1;
 749 }
 750
 751 #ifndef OPENSSL_NO_CMS
 752 static int rsa_cms_verify(CMS_SignerInfo *si)
 753 {
 754     int nid, nid2;
 755     X509_ALGOR *alg;
 756     EVP_PKEY_CTX *pkctx = CMS_SignerInfo_get0_pkey_ctx(si);
 757
 758     CMS_SignerInfo_get0_algs(si, NULL, NULL, NULL, &alg);
 759     nid = OBJ_obj2nid(alg->algorithm);
 760     if (nid == EVP_PKEY_RSA_PSS)
 761         return rsa_pss_to_ctx(NULL, pkctx, alg, NULL);
 762     /* Only PSS allowed for PSS keys */
 763     if (pkey_ctx_is_pss(pkctx)) {
 764         RSAerr(RSA_F_RSA_CMS_VERIFY, RSA_R_ILLEGAL_OR_UNSUPPORTED_PADDING_MODE);
 765         return 0;
 766     }
 767     if (nid == NID_rsaEncryption)
 768         return 1;
 769     /* Workaround for some implementation that use a signature OID */
 770     if (OBJ_find_sigid_algs(nid, NULL, &nid2)) {
 771         if (nid2 == NID_rsaEncryption)
 772             return 1;
 773     }
 774     return 0;
 775 }
 776 #endif
 777
 778 /*
 779  * Customised RSA item verification routine. This is called when a signature
 780  * is encountered requiring special handling. We currently only handle PSS.
 781  */
 782
 783 static int rsa_item_verify(EVP_MD_CTX *ctx, const ASN1_ITEM *it, void *asn,
 784                            X509_ALGOR *sigalg, ASN1_BIT_STRING *sig,
 785                            EVP_PKEY *pkey)
 786 {
 787     /* Sanity check: make sure it is PSS */
 788     if (OBJ_obj2nid(sigalg->algorithm) != EVP_PKEY_RSA_PSS) {
 789         RSAerr(RSA_F_RSA_ITEM_VERIFY, RSA_R_UNSUPPORTED_SIGNATURE_TYPE);
 790         return -1;
 791     }
 792     if (rsa_pss_to_ctx(ctx, NULL, sigalg, pkey) > 0) {
 793         /* Carry on */
 794         return 2;
 795     }
 796     return -1;
 797 }
 798
 799 #ifndef OPENSSL_NO_CMS
 800 static int rsa_cms_sign(CMS_SignerInfo *si)
 801 {
 802     int pad_mode = RSA_PKCS1_PADDING;
 803     X509_ALGOR *alg;
 804     EVP_PKEY_CTX *pkctx = CMS_SignerInfo_get0_pkey_ctx(si);
 805     ASN1_STRING *os = NULL;
 806
 807     CMS_SignerInfo_get0_algs(si, NULL, NULL, NULL, &alg);
 808     if (pkctx) {
 809         if (EVP_PKEY_CTX_get_rsa_padding(pkctx, &pad_mode) <= 0)
 810             return 0;
 811     }
 812     if (pad_mode == RSA_PKCS1_PADDING) {
 813         X509_ALGOR_set0(alg, OBJ_nid2obj(NID_rsaEncryption), V_ASN1_NULL, 0);
 814         return 1;
 815     }
 816     /* We don't support it */
 817     if (pad_mode != RSA_PKCS1_PSS_PADDING)
 818         return 0;
 819     os = rsa_ctx_to_pss_string(pkctx);
 820     if (!os)
 821         return 0;
 822     X509_ALGOR_set0(alg, OBJ_nid2obj(EVP_PKEY_RSA_PSS), V_ASN1_SEQUENCE, os);
 823     return 1;
 824 }
 825 #endif
 826
 827 static int rsa_item_sign(EVP_MD_CTX *ctx, const ASN1_ITEM *it, void *asn,
 828                          X509_ALGOR *alg1, X509_ALGOR *alg2,
 829                          ASN1_BIT_STRING *sig)
 830 {
 831     int pad_mode;
 832     EVP_PKEY_CTX *pkctx = EVP_MD_CTX_pkey_ctx(ctx);
 833
 834     if (EVP_PKEY_CTX_get_rsa_padding(pkctx, &pad_mode) <= 0)
 835         return 0;
 836     if (pad_mode == RSA_PKCS1_PADDING)
 837         return 2;
 838     if (pad_mode == RSA_PKCS1_PSS_PADDING) {
 839         ASN1_STRING *os1 = NULL;
 840         os1 = rsa_ctx_to_pss_string(pkctx);
 841         if (!os1)
 842             return 0;
 843         /* Duplicate parameters if we have to */
 844         if (alg2) {
 845             ASN1_STRING *os2 = ASN1_STRING_dup(os1);
 846             if (!os2) {
 847                 ASN1_STRING_free(os1);
 848                 return 0;
 849             }
 850             X509_ALGOR_set0(alg2, OBJ_nid2obj(EVP_PKEY_RSA_PSS),
 851                             V_ASN1_SEQUENCE, os2);
 852         }
 853         X509_ALGOR_set0(alg1, OBJ_nid2obj(EVP_PKEY_RSA_PSS),
 854                         V_ASN1_SEQUENCE, os1);
 855         return 3;
 856     }
 857     return 2;
 858 }
 859
 860 static int rsa_sig_info_set(X509_SIG_INFO *siginf, const X509_ALGOR *sigalg,
 861                             const ASN1_STRING *sig)
 862 {
 863     int rv = 0;
 864     int mdnid, saltlen;
 865     uint32_t flags;
 866     const EVP_MD *mgf1md = NULL, *md = NULL;
 867     RSA_PSS_PARAMS *pss;
 868     int secbits;
 869
 870     /* Sanity check: make sure it is PSS */
 871     if (OBJ_obj2nid(sigalg->algorithm) != EVP_PKEY_RSA_PSS)
 872         return 0;
 873     /* Decode PSS parameters */
 874     pss = rsa_pss_decode(sigalg);
 875     if (!rsa_pss_get_param(pss, &md, &mgf1md, &saltlen))
 876         goto err;
 877     mdnid = EVP_MD_type(md);
 878     /*
 879      * For TLS need SHA256, SHA384 or SHA512, digest and MGF1 digest must
 880      * match and salt length must equal digest size
 881      */
 882     if ((mdnid == NID_sha256 || mdnid == NID_sha384 || mdnid == NID_sha512)
 883             && mdnid == EVP_MD_type(mgf1md) && saltlen == EVP_MD_size(md))
 884         flags = X509_SIG_INFO_TLS;
 885     else
 886         flags = 0;
 887     /* Note: security bits half number of digest bits */
 888     secbits = EVP_MD_size(md) * 4;
 889     /*
 890      * SHA1 and MD5 are known to be broken. Reduce security bits so that
 891      * they're no longer accepted at security level 1. The real values don't
 892      * really matter as long as they're lower than 80, which is our security
 893      * level 1.
 894      * https://eprint.iacr.org/2020/014 puts a chosen-prefix attack for SHA1 at
 895      * 2^63.4
 896      * https://documents.epfl.ch/users/l/le/lenstra/public/papers/lat.pdf
 897      * puts a chosen-prefix attack for MD5 at 2^39.
 898      */
 899     if (mdnid == NID_sha1)
 900         secbits = 64;
 901     else if (mdnid == NID_md5_sha1)
 902         secbits = 68;
 903     else if (mdnid == NID_md5)
 904         secbits = 39;
 905     X509_SIG_INFO_set(siginf, mdnid, EVP_PKEY_RSA_PSS, secbits,
 906                       flags);
 907     rv = 1;
 908     err:
 909     RSA_PSS_PARAMS_free(pss);
 910     return rv;
 911 }
 912
 913 #ifndef OPENSSL_NO_CMS
 914 static RSA_OAEP_PARAMS *rsa_oaep_decode(const X509_ALGOR *alg)
 915 {
 916     RSA_OAEP_PARAMS *oaep;
 917
 918     oaep = ASN1_TYPE_unpack_sequence(ASN1_ITEM_rptr(RSA_OAEP_PARAMS),
 919                                      alg->parameter);
 920
 921     if (oaep == NULL)
 922         return NULL;
 923
 924     if (oaep->maskGenFunc != NULL) {
 925         oaep->maskHash = rsa_mgf1_decode(oaep->maskGenFunc);
 926         if (oaep->maskHash == NULL) {
 927             RSA_OAEP_PARAMS_free(oaep);
 928             return NULL;
 929         }
 930     }
 931     return oaep;
 932 }
 933
 934 static int rsa_cms_decrypt(CMS_RecipientInfo *ri)
 935 {
 936     EVP_PKEY_CTX *pkctx;
 937     X509_ALGOR *cmsalg;
 938     int nid;
 939     int rv = -1;
 940     unsigned char *label = NULL;
 941     int labellen = 0;
 942     const EVP_MD *mgf1md = NULL, *md = NULL;
 943     RSA_OAEP_PARAMS *oaep;
 944
 945     pkctx = CMS_RecipientInfo_get0_pkey_ctx(ri);
 946     if (pkctx == NULL)
 947         return 0;
 948     if (!CMS_RecipientInfo_ktri_get0_algs(ri, NULL, NULL, &cmsalg))
 949         return -1;
 950     nid = OBJ_obj2nid(cmsalg->algorithm);
 951     if (nid == NID_rsaEncryption)
 952         return 1;
 953     if (nid != NID_rsaesOaep) {
 954         RSAerr(RSA_F_RSA_CMS_DECRYPT, RSA_R_UNSUPPORTED_ENCRYPTION_TYPE);
 955         return -1;
 956     }
 957     /* Decode OAEP parameters */
 958     oaep = rsa_oaep_decode(cmsalg);
 959
 960     if (oaep == NULL) {
 961         RSAerr(RSA_F_RSA_CMS_DECRYPT, RSA_R_INVALID_OAEP_PARAMETERS);
 962         goto err;
 963     }
 964
 965     mgf1md = rsa_algor_to_md(oaep->maskHash);
 966     if (mgf1md == NULL)
 967         goto err;
 968     md = rsa_algor_to_md(oaep->hashFunc);
 969     if (md == NULL)
 970         goto err;
 971
 972     if (oaep->pSourceFunc != NULL) {
 973         X509_ALGOR *plab = oaep->pSourceFunc;
 974
 975         if (OBJ_obj2nid(plab->algorithm) != NID_pSpecified) {
 976             RSAerr(RSA_F_RSA_CMS_DECRYPT, RSA_R_UNSUPPORTED_LABEL_SOURCE);
 977             goto err;
 978         }
 979         if (plab->parameter->type != V_ASN1_OCTET_STRING) {
 980             RSAerr(RSA_F_RSA_CMS_DECRYPT, RSA_R_INVALID_LABEL);
 981             goto err;
 982         }
 983
 984         label = plab->parameter->value.octet_string->data;
 985         /* Stop label being freed when OAEP parameters are freed */
 986         plab->parameter->value.octet_string->data = NULL;
 987         labellen = plab->parameter->value.octet_string->length;
 988     }
 989
 990     if (EVP_PKEY_CTX_set_rsa_padding(pkctx, RSA_PKCS1_OAEP_PADDING) <= 0)
 991         goto err;
 992     if (EVP_PKEY_CTX_set_rsa_oaep_md(pkctx, md) <= 0)
 993         goto err;
 994     if (EVP_PKEY_CTX_set_rsa_mgf1_md(pkctx, mgf1md) <= 0)
 995         goto err;
 996     if (EVP_PKEY_CTX_set0_rsa_oaep_label(pkctx, label, labellen) <= 0)
 997         goto err;
 998     /* Carry on */
 999     rv = 1;
1000
1001  err:
1002     RSA_OAEP_PARAMS_free(oaep);
1003     return rv;
1004 }
1005
1006 static int rsa_cms_encrypt(CMS_RecipientInfo *ri)
1007 {
1008     const EVP_MD *md, *mgf1md;
1009     RSA_OAEP_PARAMS *oaep = NULL;
1010     ASN1_STRING *os = NULL;
1011     X509_ALGOR *alg;
1012     EVP_PKEY_CTX *pkctx = CMS_RecipientInfo_get0_pkey_ctx(ri);
1013     int pad_mode = RSA_PKCS1_PADDING, rv = 0, labellen;
1014     unsigned char *label;
1015
1016     if (CMS_RecipientInfo_ktri_get0_algs(ri, NULL, NULL, &alg) <= 0)
1017         return 0;
1018     if (pkctx) {
1019         if (EVP_PKEY_CTX_get_rsa_padding(pkctx, &pad_mode) <= 0)
1020             return 0;
1021     }
1022     if (pad_mode == RSA_PKCS1_PADDING) {
1023         X509_ALGOR_set0(alg, OBJ_nid2obj(NID_rsaEncryption), V_ASN1_NULL, 0);
1024         return 1;
1025     }
1026     /* Not supported */
1027     if (pad_mode != RSA_PKCS1_OAEP_PADDING)
1028         return 0;
1029     if (EVP_PKEY_CTX_get_rsa_oaep_md(pkctx, &md) <= 0)
1030         goto err;
1031     if (EVP_PKEY_CTX_get_rsa_mgf1_md(pkctx, &mgf1md) <= 0)
1032         goto err;
1033     labellen = EVP_PKEY_CTX_get0_rsa_oaep_label(pkctx, &label);
1034     if (labellen < 0)
1035         goto err;
1036     oaep = RSA_OAEP_PARAMS_new();
1037     if (oaep == NULL)
1038         goto err;
1039     if (!rsa_md_to_algor(&oaep->hashFunc, md))
1040         goto err;
1041     if (!rsa_md_to_mgf1(&oaep->maskGenFunc, mgf1md))
1042         goto err;
1043     if (labellen > 0) {
1044         ASN1_OCTET_STRING *los;
1045         oaep->pSourceFunc = X509_ALGOR_new();
1046         if (oaep->pSourceFunc == NULL)
1047             goto err;
1048         los = ASN1_OCTET_STRING_new();
1049         if (los == NULL)
1050             goto err;
1051         if (!ASN1_OCTET_STRING_set(los, label, labellen)) {
1052             ASN1_OCTET_STRING_free(los);
1053             goto err;
1054         }
1055         X509_ALGOR_set0(oaep->pSourceFunc, OBJ_nid2obj(NID_pSpecified),
1056                         V_ASN1_OCTET_STRING, los);
1057     }
1058     /* create string with pss parameter encoding. */
1059     if (!ASN1_item_pack(oaep, ASN1_ITEM_rptr(RSA_OAEP_PARAMS), &os))
1060          goto err;
1061     X509_ALGOR_set0(alg, OBJ_nid2obj(NID_rsaesOaep), V_ASN1_SEQUENCE, os);
1062     os = NULL;
1063     rv = 1;
1064  err:
1065     RSA_OAEP_PARAMS_free(oaep);
1066     ASN1_STRING_free(os);
1067     return rv;
1068 }
1069 #endif
1070
1071 static int rsa_pkey_check(const EVP_PKEY *pkey)
1072 {
1073     return RSA_check_key_ex(pkey->pkey.rsa, NULL);
1074 }
1075
1076 static size_t rsa_pkey_dirty_cnt(const EVP_PKEY *pkey)
1077 {
1078     return pkey->pkey.rsa->dirty_cnt;
1079 }
1080
1081 DEFINE_SPECIAL_STACK_OF_CONST(BIGNUM_const, BIGNUM)
1082
1083 static int rsa_pkey_export_to(const EVP_PKEY *from, void *to_keydata,
1084                               EVP_KEYMGMT *to_keymgmt)
1085 {
1086     RSA *rsa = from->pkey.rsa;
1087     OSSL_PARAM_BLD tmpl;
1088     const BIGNUM *n = RSA_get0_n(rsa), *e = RSA_get0_e(rsa);
1089     const BIGNUM *d = RSA_get0_d(rsa);
1090     STACK_OF(BIGNUM_const) *primes = NULL, *exps = NULL, *coeffs = NULL;
1091     int numprimes = 0, numexps = 0, numcoeffs = 0;
1092     OSSL_PARAM *params = NULL;
1093     int selection = 0;
1094     int rv = 0;
1095
1096     /*
1097      * If the RSA method is foreign, then we can't be sure of anything, and
1098      * can therefore not export or pretend to export.
1099      */
1100     if (RSA_get_method(rsa) != RSA_PKCS1_OpenSSL())
1101         return 0;
1102
1103     /* Public parameters must always be present */
1104     if (n == NULL || e == NULL)
1105         goto err;
1106
1107     ossl_param_bld_init(&tmpl);
1108
1109     /* |e| and |n| are always present */
1110     if (!ossl_param_bld_push_BN(&tmpl, OSSL_PKEY_PARAM_RSA_E, e))
1111         goto err;
1112     if (!ossl_param_bld_push_BN(&tmpl, OSSL_PKEY_PARAM_RSA_N, n))
1113         goto err;
1114     selection |= OSSL_KEYMGMT_SELECT_PUBLIC_KEY;
1115
1116     if (d != NULL) {
1117         int i;
1118
1119         /* Get all the primes and CRT params */
1120         if ((primes = sk_BIGNUM_const_new_null()) == NULL
1121             || (exps = sk_BIGNUM_const_new_null()) == NULL
1122             || (coeffs = sk_BIGNUM_const_new_null()) == NULL)
1123             goto err;
1124
1125         if (!rsa_get0_all_params(rsa, primes, exps, coeffs))
1126             goto err;
1127
1128         numprimes = sk_BIGNUM_const_num(primes);
1129         numexps = sk_BIGNUM_const_num(exps);
1130         numcoeffs = sk_BIGNUM_const_num(coeffs);
1131
1132         /*
1133          * It's permisssible to have zero primes, i.e. no CRT params.
1134          * Otherwise, there must be at least two, as many exponents,
1135          * and one coefficient less.
1136          */
1137         if (numprimes != 0
1138             && (numprimes < 2 || numexps < 2 || numcoeffs < 1))
1139             goto err;
1140
1141         /* assert that an OSSL_PARAM_BLD has enough space. */
1142         if (!ossl_assert(/* n, e */ 2 + /* d */ 1 + /* numprimes */ 1
1143                          + numprimes + numexps + numcoeffs
1144                          <= OSSL_PARAM_BLD_MAX))
1145             goto err;
1146
1147         if (!ossl_param_bld_push_BN(&tmpl, OSSL_PKEY_PARAM_RSA_D, d))
1148             goto err;
1149         selection |= OSSL_KEYMGMT_SELECT_PRIVATE_KEY;
1150
1151         for (i = 0; i < numprimes; i++) {
1152             const BIGNUM *num = sk_BIGNUM_const_value(primes, i);
1153
1154             if (!ossl_param_bld_push_BN(&tmpl, OSSL_PKEY_PARAM_RSA_FACTOR,
1155                                         num))
1156                 goto err;
1157         }
1158
1159         for (i = 0; i < numexps; i++) {
1160             const BIGNUM *num = sk_BIGNUM_const_value(exps, i);
1161
1162             if (!ossl_param_bld_push_BN(&tmpl, OSSL_PKEY_PARAM_RSA_EXPONENT,
1163                                         num))
1164                 goto err;
1165         }
1166
1167         for (i = 0; i < numcoeffs; i++) {
1168             const BIGNUM *num = sk_BIGNUM_const_value(coeffs, i);
1169
1170             if (!ossl_param_bld_push_BN(&tmpl, OSSL_PKEY_PARAM_RSA_COEFFICIENT,
1171                                         num))
1172                 goto err;
1173         }
1174     }
1175
1176     if ((params = ossl_param_bld_to_param(&tmpl)) == NULL)
1177         goto err;
1178
1179     /* We export, the provider imports */
1180     rv = evp_keymgmt_import(to_keymgmt, to_keydata, selection, params);
1181
1182  err:
1183     sk_BIGNUM_const_free(primes);
1184     sk_BIGNUM_const_free(exps);
1185     sk_BIGNUM_const_free(coeffs);
1186     ossl_param_bld_free(params);
1187     return rv;
1188 }
1189
1190 static int rsa_pkey_import_from(const OSSL_PARAM params[], void *key)
1191 {
1192     EVP_PKEY *pkey = key;
1193     RSA *rsa = RSA_new();
1194
1195     if (rsa == NULL) {
1196         ERR_raise(ERR_LIB_DH, ERR_R_MALLOC_FAILURE);
1197         return 0;
1198     }
1199
1200     if (!rsa_fromdata(rsa, params)
1201         || !EVP_PKEY_assign_RSA(pkey, rsa)) {
1202         RSA_free(rsa);
1203         return 0;
1204     }
1205     return 1;
1206 }
1207
1208 const EVP_PKEY_ASN1_METHOD rsa_asn1_meths[2] = {
1209     {
1210      EVP_PKEY_RSA,
1211      EVP_PKEY_RSA,
1212      ASN1_PKEY_SIGPARAM_NULL,
1213
1214      "RSA",
1215      "OpenSSL RSA method",
1216
1217      rsa_pub_decode,
1218      rsa_pub_encode,
1219      rsa_pub_cmp,
1220      rsa_pub_print,
1221
1222      rsa_priv_decode,
1223      rsa_priv_encode,
1224      rsa_priv_print,
1225
1226      int_rsa_size,
1227      rsa_bits,
1228      rsa_security_bits,
1229
1230      0, 0, 0, 0, 0, 0,
1231
1232      rsa_sig_print,
1233      int_rsa_free,
1234      rsa_pkey_ctrl,
1235      old_rsa_priv_decode,
1236      old_rsa_priv_encode,
1237      rsa_item_verify,
1238      rsa_item_sign,
1239      rsa_sig_info_set,
1240      rsa_pkey_check,
1241
1242      0, 0,
1243      0, 0, 0, 0,
1244
1245      rsa_pkey_dirty_cnt,
1246      rsa_pkey_export_to,
1247      rsa_pkey_import_from
1248     },
1249
1250     {
1251      EVP_PKEY_RSA2,
1252      EVP_PKEY_RSA,
1253      ASN1_PKEY_ALIAS}
1254 };
1255
1256 const EVP_PKEY_ASN1_METHOD rsa_pss_asn1_meth = {
1257      EVP_PKEY_RSA_PSS,
1258      EVP_PKEY_RSA_PSS,
1259      ASN1_PKEY_SIGPARAM_NULL,
1260
1261      "RSA-PSS",
1262      "OpenSSL RSA-PSS method",
1263
1264      rsa_pub_decode,
1265      rsa_pub_encode,
1266      rsa_pub_cmp,
1267      rsa_pub_print,
1268
1269      rsa_priv_decode,
1270      rsa_priv_encode,
1271      rsa_priv_print,
1272
1273      int_rsa_size,
1274      rsa_bits,
1275      rsa_security_bits,
1276
1277      0, 0, 0, 0, 0, 0,
1278
1279      rsa_sig_print,
1280      int_rsa_free,
1281      rsa_pkey_ctrl,
1282      0, 0,
1283      rsa_item_verify,
1284      rsa_item_sign,
1285      0,
1286      rsa_pkey_check,
1287
1288      0, 0,
1289      0, 0, 0, 0,
1290
1291      rsa_pkey_dirty_cnt,
1292      rsa_pkey_export_to,
1293      rsa_pkey_import_from
1294 };