crypto/evp/pmeth_fn.c

   1 /*
   2  * Copyright 2006-2016 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 #include <stdio.h>
  11 #include <stdlib.h>
  12 #include <openssl/objects.h>
  13 #include <openssl/evp.h>
  14 #include "internal/cryptlib.h"
  15 #include "crypto/evp.h"
  16 #include "internal/provider.h"
  17 #include "evp_local.h"
  18
  19 static EVP_SIGNATURE *evp_signature_new(OSSL_PROVIDER *prov)
  20 {
  21     EVP_SIGNATURE *signature = OPENSSL_zalloc(sizeof(EVP_SIGNATURE));
  22
  23     if (signature == NULL) {
  24         ERR_raise(ERR_LIB_EVP, ERR_R_MALLOC_FAILURE);
  25         return NULL;
  26     }
  27
  28     signature->lock = CRYPTO_THREAD_lock_new();
  29     if (signature->lock == NULL) {
  30         ERR_raise(ERR_LIB_EVP, ERR_R_MALLOC_FAILURE);
  31         OPENSSL_free(signature);
  32         return NULL;
  33     }
  34     signature->prov = prov;
  35     ossl_provider_up_ref(prov);
  36     signature->refcnt = 1;
  37
  38     return signature;
  39 }
  40
  41 static void *evp_signature_from_dispatch(int name_id,
  42                                          const OSSL_DISPATCH *fns,
  43                                          OSSL_PROVIDER *prov)
  44 {
  45     EVP_SIGNATURE *signature = NULL;
  46     int ctxfncnt = 0, signfncnt = 0, verifyfncnt = 0, verifyrecfncnt = 0;
  47     int digsignfncnt = 0, digverifyfncnt = 0;
  48     int gparamfncnt = 0, sparamfncnt = 0, gmdparamfncnt = 0, smdparamfncnt = 0;
  49
  50     if ((signature = evp_signature_new(prov)) == NULL) {
  51         ERR_raise(ERR_LIB_EVP, ERR_R_MALLOC_FAILURE);
  52         goto err;
  53     }
  54
  55     signature->name_id = name_id;
  56
  57     for (; fns->function_id != 0; fns++) {
  58         switch (fns->function_id) {
  59         case OSSL_FUNC_SIGNATURE_NEWCTX:
  60             if (signature->newctx != NULL)
  61                 break;
  62             signature->newctx = OSSL_get_OP_signature_newctx(fns);
  63             ctxfncnt++;
  64             break;
  65         case OSSL_FUNC_SIGNATURE_SIGN_INIT:
  66             if (signature->sign_init != NULL)
  67                 break;
  68             signature->sign_init = OSSL_get_OP_signature_sign_init(fns);
  69             signfncnt++;
  70             break;
  71         case OSSL_FUNC_SIGNATURE_SIGN:
  72             if (signature->sign != NULL)
  73                 break;
  74             signature->sign = OSSL_get_OP_signature_sign(fns);
  75             signfncnt++;
  76             break;
  77         case OSSL_FUNC_SIGNATURE_VERIFY_INIT:
  78             if (signature->verify_init != NULL)
  79                 break;
  80             signature->verify_init = OSSL_get_OP_signature_verify_init(fns);
  81             verifyfncnt++;
  82             break;
  83         case OSSL_FUNC_SIGNATURE_VERIFY:
  84             if (signature->verify != NULL)
  85                 break;
  86             signature->verify = OSSL_get_OP_signature_verify(fns);
  87             verifyfncnt++;
  88             break;
  89         case OSSL_FUNC_SIGNATURE_VERIFY_RECOVER_INIT:
  90             if (signature->verify_recover_init != NULL)
  91                 break;
  92             signature->verify_recover_init
  93                 = OSSL_get_OP_signature_verify_recover_init(fns);
  94             verifyrecfncnt++;
  95             break;
  96         case OSSL_FUNC_SIGNATURE_VERIFY_RECOVER:
  97             if (signature->verify_recover != NULL)
  98                 break;
  99             signature->verify_recover
 100                 = OSSL_get_OP_signature_verify_recover(fns);
 101             verifyrecfncnt++;
 102             break;
 103         case OSSL_FUNC_SIGNATURE_DIGEST_SIGN_INIT:
 104             if (signature->digest_sign_init != NULL)
 105                 break;
 106             signature->digest_sign_init
 107                 = OSSL_get_OP_signature_digest_sign_init(fns);
 108             digsignfncnt++;
 109             break;
 110         case OSSL_FUNC_SIGNATURE_DIGEST_SIGN_UPDATE:
 111             if (signature->digest_sign_update != NULL)
 112                 break;
 113             signature->digest_sign_update
 114                 = OSSL_get_OP_signature_digest_sign_update(fns);
 115             digsignfncnt++;
 116             break;
 117         case OSSL_FUNC_SIGNATURE_DIGEST_SIGN_FINAL:
 118             if (signature->digest_sign_final != NULL)
 119                 break;
 120             signature->digest_sign_final
 121                 = OSSL_get_OP_signature_digest_sign_final(fns);
 122             digsignfncnt++;
 123             break;
 124         case OSSL_FUNC_SIGNATURE_DIGEST_VERIFY_INIT:
 125             if (signature->digest_verify_init != NULL)
 126                 break;
 127             signature->digest_verify_init
 128                 = OSSL_get_OP_signature_digest_verify_init(fns);
 129             digverifyfncnt++;
 130             break;
 131         case OSSL_FUNC_SIGNATURE_DIGEST_VERIFY_UPDATE:
 132             if (signature->digest_verify_update != NULL)
 133                 break;
 134             signature->digest_verify_update
 135                 = OSSL_get_OP_signature_digest_verify_update(fns);
 136             digverifyfncnt++;
 137             break;
 138         case OSSL_FUNC_SIGNATURE_DIGEST_VERIFY_FINAL:
 139             if (signature->digest_verify_final != NULL)
 140                 break;
 141             signature->digest_verify_final
 142                 = OSSL_get_OP_signature_digest_verify_final(fns);
 143             digverifyfncnt++;
 144             break;
 145         case OSSL_FUNC_SIGNATURE_FREECTX:
 146             if (signature->freectx != NULL)
 147                 break;
 148             signature->freectx = OSSL_get_OP_signature_freectx(fns);
 149             ctxfncnt++;
 150             break;
 151         case OSSL_FUNC_SIGNATURE_DUPCTX:
 152             if (signature->dupctx != NULL)
 153                 break;
 154             signature->dupctx = OSSL_get_OP_signature_dupctx(fns);
 155             break;
 156         case OSSL_FUNC_SIGNATURE_GET_CTX_PARAMS:
 157             if (signature->get_ctx_params != NULL)
 158                 break;
 159             signature->get_ctx_params
 160                 = OSSL_get_OP_signature_get_ctx_params(fns);
 161             gparamfncnt++;
 162             break;
 163         case OSSL_FUNC_SIGNATURE_GETTABLE_CTX_PARAMS:
 164             if (signature->gettable_ctx_params != NULL)
 165                 break;
 166             signature->gettable_ctx_params
 167                 = OSSL_get_OP_signature_gettable_ctx_params(fns);
 168             gparamfncnt++;
 169             break;
 170         case OSSL_FUNC_SIGNATURE_SET_CTX_PARAMS:
 171             if (signature->set_ctx_params != NULL)
 172                 break;
 173             signature->set_ctx_params
 174                 = OSSL_get_OP_signature_set_ctx_params(fns);
 175             sparamfncnt++;
 176             break;
 177         case OSSL_FUNC_SIGNATURE_SETTABLE_CTX_PARAMS:
 178             if (signature->settable_ctx_params != NULL)
 179                 break;
 180             signature->settable_ctx_params
 181                 = OSSL_get_OP_signature_settable_ctx_params(fns);
 182             sparamfncnt++;
 183             break;
 184         case OSSL_FUNC_SIGNATURE_GET_CTX_MD_PARAMS:
 185             if (signature->get_ctx_md_params != NULL)
 186                 break;
 187             signature->get_ctx_md_params
 188                 = OSSL_get_OP_signature_get_ctx_md_params(fns);
 189             gmdparamfncnt++;
 190             break;
 191         case OSSL_FUNC_SIGNATURE_GETTABLE_CTX_MD_PARAMS:
 192             if (signature->gettable_ctx_md_params != NULL)
 193                 break;
 194             signature->gettable_ctx_md_params
 195                 = OSSL_get_OP_signature_gettable_ctx_md_params(fns);
 196             gmdparamfncnt++;
 197             break;
 198         case OSSL_FUNC_SIGNATURE_SET_CTX_MD_PARAMS:
 199             if (signature->set_ctx_md_params != NULL)
 200                 break;
 201             signature->set_ctx_md_params
 202                 = OSSL_get_OP_signature_set_ctx_md_params(fns);
 203             smdparamfncnt++;
 204             break;
 205         case OSSL_FUNC_SIGNATURE_SETTABLE_CTX_MD_PARAMS:
 206             if (signature->settable_ctx_md_params != NULL)
 207                 break;
 208             signature->settable_ctx_md_params
 209                 = OSSL_get_OP_signature_settable_ctx_md_params(fns);
 210             smdparamfncnt++;
 211             break;
 212         }
 213     }
 214     if (ctxfncnt != 2
 215         || (signfncnt == 0
 216             && verifyfncnt == 0
 217             && verifyrecfncnt == 0
 218             && digsignfncnt == 0
 219             && digverifyfncnt == 0)
 220         || (signfncnt != 0 && signfncnt != 2)
 221         || (verifyfncnt != 0 && verifyfncnt != 2)
 222         || (verifyrecfncnt != 0 && verifyrecfncnt != 2)
 223         || (digsignfncnt != 0 && digsignfncnt != 3)
 224         || (digverifyfncnt != 0 && digverifyfncnt != 3)
 225         || (gparamfncnt != 0 && gparamfncnt != 2)
 226         || (sparamfncnt != 0 && sparamfncnt != 2)
 227         || (gmdparamfncnt != 0 && gmdparamfncnt != 2)
 228         || (smdparamfncnt != 0 && smdparamfncnt != 2)) {
 229         /*
 230          * In order to be a consistent set of functions we must have at least
 231          * a set of context functions (newctx and freectx) as well as a set of
 232          * "signature" functions:
 233          *  (sign_init, sign) or
 234          *  (verify_init verify) or
 235          *  (verify_recover_init, verify_recover) or
 236          *  (digest_sign_init, digest_sign_update, digest_sign_final) or
 237          *  (digest_verify_init, digest_verify_update, digest_verify_final).
 238          *
 239          * set_ctx_params and settable_ctx_params are optional, but if one of
 240          * them is present then the other one must also be present. The same
 241          * applies to get_ctx_params and gettable_ctx_params. The same rules
 242          * apply to the "md_params" functions. The dupctx function is optional.
 243          */
 244         ERR_raise(ERR_LIB_EVP, EVP_R_INVALID_PROVIDER_FUNCTIONS);
 245         goto err;
 246     }
 247
 248     return signature;
 249  err:
 250     EVP_SIGNATURE_free(signature);
 251     return NULL;
 252 }
 253
 254 void EVP_SIGNATURE_free(EVP_SIGNATURE *signature)
 255 {
 256     if (signature != NULL) {
 257         int i;
 258
 259         CRYPTO_DOWN_REF(&signature->refcnt, &i, signature->lock);
 260         if (i > 0)
 261             return;
 262         ossl_provider_free(signature->prov);
 263         CRYPTO_THREAD_lock_free(signature->lock);
 264         OPENSSL_free(signature);
 265     }
 266 }
 267
 268 int EVP_SIGNATURE_up_ref(EVP_SIGNATURE *signature)
 269 {
 270     int ref = 0;
 271
 272     CRYPTO_UP_REF(&signature->refcnt, &ref, signature->lock);
 273     return 1;
 274 }
 275
 276 OSSL_PROVIDER *EVP_SIGNATURE_provider(const EVP_SIGNATURE *signature)
 277 {
 278     return signature->prov;
 279 }
 280
 281 EVP_SIGNATURE *EVP_SIGNATURE_fetch(OPENSSL_CTX *ctx, const char *algorithm,
 282                                    const char *properties)
 283 {
 284     return evp_generic_fetch(ctx, OSSL_OP_SIGNATURE, algorithm, properties,
 285                              evp_signature_from_dispatch,
 286                              (int (*)(void *))EVP_SIGNATURE_up_ref,
 287                              (void (*)(void *))EVP_SIGNATURE_free);
 288 }
 289
 290 int EVP_SIGNATURE_is_a(const EVP_SIGNATURE *signature, const char *name)
 291 {
 292     return evp_is_a(signature->prov, signature->name_id, name);
 293 }
 294
 295 int EVP_SIGNATURE_number(const EVP_SIGNATURE *signature)
 296 {
 297     return signature->name_id;
 298 }
 299
 300 void EVP_SIGNATURE_do_all_provided(OPENSSL_CTX *libctx,
 301                                    void (*fn)(EVP_SIGNATURE *signature,
 302                                               void *arg),
 303                                    void *arg)
 304 {
 305     evp_generic_do_all(libctx, OSSL_OP_SIGNATURE,
 306                        (void (*)(void *, void *))fn, arg,
 307                        evp_signature_from_dispatch,
 308                        (void (*)(void *))EVP_SIGNATURE_free);
 309 }
 310
 311
 312 void EVP_SIGNATURE_names_do_all(const EVP_SIGNATURE *signature,
 313                                 void (*fn)(const char *name, void *data),
 314                                 void *data)
 315 {
 316     if (signature->prov != NULL)
 317         evp_names_do_all(signature->prov, signature->name_id, fn, data);
 318 }
 319
 320 static int evp_pkey_signature_init(EVP_PKEY_CTX *ctx, int operation)
 321 {
 322     int ret = 0;
 323     void *provkey = NULL;
 324     EVP_SIGNATURE *signature = NULL;
 325
 326     if (ctx == NULL) {
 327         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 328         return -2;
 329     }
 330
 331     evp_pkey_ctx_free_old_ops(ctx);
 332     ctx->operation = operation;
 333
 334     if (ctx->keytype == NULL)
 335         goto legacy;
 336
 337     if (ctx->keymgmt == NULL)
 338         ctx->keymgmt =
 339             EVP_KEYMGMT_fetch(ctx->libctx, ctx->keytype, ctx->propquery);
 340     if (ctx->keymgmt != NULL) {
 341         const char *supported_sig = NULL;
 342
 343         if (ctx->keymgmt->query_operation_name != NULL)
 344             supported_sig =
 345                 ctx->keymgmt->query_operation_name(OSSL_OP_SIGNATURE);
 346
 347         /*
 348          * If we didn't get a supported sig, assume there is one with the
 349          * same name as the key type.
 350          */
 351         if (supported_sig == NULL)
 352             supported_sig = ctx->keytype;
 353
 354         /*
 355          * Because we cleared out old ops, we shouldn't need to worry about
 356          * checking if signature is already there.
 357          */
 358         signature =
 359             EVP_SIGNATURE_fetch(ctx->libctx, supported_sig, ctx->propquery);
 360     }
 361
 362     if (ctx->keymgmt == NULL
 363         || signature == NULL
 364         || (EVP_KEYMGMT_provider(ctx->keymgmt)
 365             != EVP_SIGNATURE_provider(signature))) {
 366         /*
 367          * We don't have the full support we need with provided methods,
 368          * let's go see if legacy does.  Also, we don't need to free
 369          * ctx->keymgmt here, as it's not necessarily tied to this
 370          * operation.  It will be freed by EVP_PKEY_CTX_free().
 371          */
 372         EVP_SIGNATURE_free(signature);
 373         goto legacy;
 374     }
 375
 376     ctx->op.sig.signature = signature;
 377
 378     if (ctx->pkey != NULL) {
 379         provkey =
 380             evp_keymgmt_export_to_provider(ctx->pkey, ctx->keymgmt, 0);
 381         /* If export failed, legacy may be able to pick it up */
 382         if (provkey == NULL)
 383             goto legacy;
 384     }
 385     ctx->op.sig.sigprovctx = signature->newctx(ossl_provider_ctx(signature->prov));
 386     if (ctx->op.sig.sigprovctx == NULL) {
 387         /* The provider key can stay in the cache */
 388         EVPerr(0, EVP_R_INITIALIZATION_ERROR);
 389         goto err;
 390     }
 391
 392     switch (operation) {
 393     case EVP_PKEY_OP_SIGN:
 394         if (signature->sign_init == NULL) {
 395             EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 396             ret = -2;
 397             goto err;
 398         }
 399         ret = signature->sign_init(ctx->op.sig.sigprovctx, provkey);
 400         break;
 401     case EVP_PKEY_OP_VERIFY:
 402         if (signature->verify_init == NULL) {
 403             EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 404             ret = -2;
 405             goto err;
 406         }
 407         ret = signature->verify_init(ctx->op.sig.sigprovctx, provkey);
 408         break;
 409     case EVP_PKEY_OP_VERIFYRECOVER:
 410         if (signature->verify_recover_init == NULL) {
 411             EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 412             ret = -2;
 413             goto err;
 414         }
 415         ret = signature->verify_recover_init(ctx->op.sig.sigprovctx, provkey);
 416         break;
 417     default:
 418         EVPerr(0, EVP_R_INITIALIZATION_ERROR);
 419         goto err;
 420     }
 421
 422     if (ret <= 0) {
 423         signature->freectx(ctx->op.sig.sigprovctx);
 424         ctx->op.sig.sigprovctx = NULL;
 425         goto err;
 426     }
 427     return 1;
 428
 429  legacy:
 430     if (ctx->pmeth == NULL
 431             || (operation == EVP_PKEY_OP_SIGN && ctx->pmeth->sign == NULL)
 432             || (operation == EVP_PKEY_OP_VERIFY && ctx->pmeth->verify == NULL)
 433             || (operation == EVP_PKEY_OP_VERIFYRECOVER
 434                 && ctx->pmeth->verify_recover == NULL)) {
 435         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 436         return -2;
 437     }
 438
 439     switch (operation) {
 440     case EVP_PKEY_OP_SIGN:
 441         if (ctx->pmeth->sign_init == NULL)
 442             return 1;
 443         ret = ctx->pmeth->sign_init(ctx);
 444         break;
 445     case EVP_PKEY_OP_VERIFY:
 446         if (ctx->pmeth->verify_init == NULL)
 447             return 1;
 448         ret = ctx->pmeth->verify_init(ctx);
 449         break;
 450     case EVP_PKEY_OP_VERIFYRECOVER:
 451         if (ctx->pmeth->verify_recover_init == NULL)
 452             return 1;
 453         ret = ctx->pmeth->verify_recover_init(ctx);
 454         break;
 455     default:
 456         EVPerr(0, EVP_R_INITIALIZATION_ERROR);
 457         goto err;
 458     }
 459     if (ret <= 0)
 460         goto err;
 461     return ret;
 462
 463  err:
 464     ctx->operation = EVP_PKEY_OP_UNDEFINED;
 465     return ret;
 466 }
 467
 468 int EVP_PKEY_sign_init(EVP_PKEY_CTX *ctx)
 469 {
 470     return evp_pkey_signature_init(ctx, EVP_PKEY_OP_SIGN);
 471 }
 472
 473 int EVP_PKEY_sign(EVP_PKEY_CTX *ctx,
 474                   unsigned char *sig, size_t *siglen,
 475                   const unsigned char *tbs, size_t tbslen)
 476 {
 477     int ret;
 478
 479     if (ctx == NULL) {
 480         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 481         return -2;
 482     }
 483
 484     if (ctx->operation != EVP_PKEY_OP_SIGN) {
 485         EVPerr(0, EVP_R_OPERATON_NOT_INITIALIZED);
 486         return -1;
 487     }
 488
 489     if (ctx->op.sig.sigprovctx == NULL)
 490         goto legacy;
 491
 492     ret = ctx->op.sig.signature->sign(ctx->op.sig.sigprovctx, sig, siglen,
 493                                       SIZE_MAX, tbs, tbslen);
 494
 495     return ret;
 496  legacy:
 497
 498     if (ctx->pmeth == NULL || ctx->pmeth->sign == NULL) {
 499         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 500         return -2;
 501     }
 502
 503     M_check_autoarg(ctx, sig, siglen, EVP_F_EVP_PKEY_SIGN)
 504         return ctx->pmeth->sign(ctx, sig, siglen, tbs, tbslen);
 505 }
 506
 507 int EVP_PKEY_verify_init(EVP_PKEY_CTX *ctx)
 508 {
 509     return evp_pkey_signature_init(ctx, EVP_PKEY_OP_VERIFY);
 510 }
 511
 512 int EVP_PKEY_verify(EVP_PKEY_CTX *ctx,
 513                     const unsigned char *sig, size_t siglen,
 514                     const unsigned char *tbs, size_t tbslen)
 515 {
 516     int ret;
 517
 518     if (ctx == NULL) {
 519         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 520         return -2;
 521     }
 522
 523     if (ctx->operation != EVP_PKEY_OP_VERIFY) {
 524         EVPerr(0, EVP_R_OPERATON_NOT_INITIALIZED);
 525         return -1;
 526     }
 527
 528     if (ctx->op.sig.sigprovctx == NULL)
 529         goto legacy;
 530
 531     ret = ctx->op.sig.signature->verify(ctx->op.sig.sigprovctx, sig, siglen,
 532                                         tbs, tbslen);
 533
 534     return ret;
 535  legacy:
 536     if (ctx->pmeth == NULL || ctx->pmeth->verify == NULL) {
 537         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 538         return -2;
 539     }
 540
 541     return ctx->pmeth->verify(ctx, sig, siglen, tbs, tbslen);
 542 }
 543
 544 int EVP_PKEY_verify_recover_init(EVP_PKEY_CTX *ctx)
 545 {
 546     return evp_pkey_signature_init(ctx, EVP_PKEY_OP_VERIFYRECOVER);
 547 }
 548
 549 int EVP_PKEY_verify_recover(EVP_PKEY_CTX *ctx,
 550                             unsigned char *rout, size_t *routlen,
 551                             const unsigned char *sig, size_t siglen)
 552 {
 553     int ret;
 554
 555     if (ctx == NULL) {
 556         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 557         return -2;
 558     }
 559
 560     if (ctx->operation != EVP_PKEY_OP_VERIFYRECOVER) {
 561         EVPerr(0, EVP_R_OPERATON_NOT_INITIALIZED);
 562         return -1;
 563     }
 564
 565     if (ctx->op.sig.sigprovctx == NULL)
 566         goto legacy;
 567
 568     ret = ctx->op.sig.signature->verify_recover(ctx->op.sig.sigprovctx, rout,
 569                                                 routlen,
 570                                                 (rout == NULL ? 0 : *routlen),
 571                                                 sig, siglen);
 572     return ret;
 573  legacy:
 574     if (ctx->pmeth == NULL || ctx->pmeth->verify_recover == NULL) {
 575         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 576         return -2;
 577     }
 578     M_check_autoarg(ctx, rout, routlen, EVP_F_EVP_PKEY_VERIFY_RECOVER)
 579         return ctx->pmeth->verify_recover(ctx, rout, routlen, sig, siglen);
 580 }
 581
 582 static int evp_pkey_asym_cipher_init(EVP_PKEY_CTX *ctx, int operation)
 583 {
 584     int ret = 0;
 585     void *provkey = NULL;
 586     EVP_ASYM_CIPHER *cipher = NULL;
 587
 588     if (ctx == NULL) {
 589         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 590         return -2;
 591     }
 592
 593     evp_pkey_ctx_free_old_ops(ctx);
 594     ctx->operation = operation;
 595
 596     if (ctx->keytype == NULL || ctx->engine != NULL)
 597         goto legacy;
 598
 599     if (ctx->keymgmt == NULL)
 600         ctx->keymgmt =
 601             EVP_KEYMGMT_fetch(ctx->libctx, ctx->keytype, ctx->propquery);
 602     if (ctx->keymgmt != NULL) {
 603         const char *supported_ciph = NULL;
 604
 605         if (ctx->keymgmt->query_operation_name != NULL)
 606             supported_ciph =
 607                 ctx->keymgmt->query_operation_name(OSSL_OP_ASYM_CIPHER);
 608
 609         /*
 610          * If we didn't get a supported ciph, assume there is one with the
 611          * same name as the key type.
 612          */
 613         if (supported_ciph == NULL)
 614             supported_ciph = ctx->keytype;
 615
 616         /*
 617          * Because we cleared out old ops, we shouldn't need to worry about
 618          * checking if cipher is already there.
 619          */
 620         cipher =
 621             EVP_ASYM_CIPHER_fetch(ctx->libctx, supported_ciph, ctx->propquery);
 622     }
 623
 624     if (ctx->keymgmt == NULL
 625         || cipher == NULL
 626         || (EVP_KEYMGMT_provider(ctx->keymgmt)
 627             != EVP_ASYM_CIPHER_provider(cipher))) {
 628         /*
 629          * We don't have the full support we need with provided methods,
 630          * let's go see if legacy does.  Also, we don't need to free
 631          * ctx->keymgmt here, as it's not necessarily tied to this
 632          * operation.  It will be freed by EVP_PKEY_CTX_free().
 633          */
 634         EVP_ASYM_CIPHER_free(cipher);
 635         goto legacy;
 636     }
 637
 638     ctx->op.ciph.cipher = cipher;
 639
 640     if (ctx->pkey != NULL) {
 641         provkey = evp_keymgmt_export_to_provider(ctx->pkey, ctx->keymgmt, 0);
 642         /* If export failed, legacy may be able to pick it up */
 643         if (provkey == NULL)
 644             goto legacy;
 645     }
 646     ctx->op.ciph.ciphprovctx = cipher->newctx(ossl_provider_ctx(cipher->prov));
 647     if (ctx->op.ciph.ciphprovctx == NULL) {
 648         /* The provider key can stay in the cache */
 649         EVPerr(0, EVP_R_INITIALIZATION_ERROR);
 650         goto err;
 651     }
 652
 653     switch (operation) {
 654     case EVP_PKEY_OP_ENCRYPT:
 655         if (cipher->encrypt_init == NULL) {
 656             EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 657             ret = -2;
 658             goto err;
 659         }
 660         ret = cipher->encrypt_init(ctx->op.ciph.ciphprovctx, provkey);
 661         break;
 662     case EVP_PKEY_OP_DECRYPT:
 663         if (cipher->decrypt_init == NULL) {
 664             EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 665             ret = -2;
 666             goto err;
 667         }
 668         ret = cipher->decrypt_init(ctx->op.ciph.ciphprovctx, provkey);
 669         break;
 670     default:
 671         EVPerr(0, EVP_R_INITIALIZATION_ERROR);
 672         goto err;
 673     }
 674
 675     if (ret <= 0) {
 676         cipher->freectx(ctx->op.ciph.ciphprovctx);
 677         ctx->op.ciph.ciphprovctx = NULL;
 678         goto err;
 679     }
 680     return 1;
 681
 682  legacy:
 683     if (ctx->pmeth == NULL || ctx->pmeth->encrypt == NULL) {
 684         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 685         return -2;
 686     }
 687     switch(ctx->operation) {
 688     case EVP_PKEY_OP_ENCRYPT:
 689         if (ctx->pmeth->encrypt_init == NULL)
 690             return 1;
 691         ret = ctx->pmeth->encrypt_init(ctx);
 692         break;
 693     case EVP_PKEY_OP_DECRYPT:
 694         if (ctx->pmeth->decrypt_init == NULL)
 695             return 1;
 696         ret = ctx->pmeth->decrypt_init(ctx);
 697         break;
 698     default:
 699         EVPerr(0, EVP_R_INITIALIZATION_ERROR);
 700         ret = -1;
 701     }
 702
 703  err:
 704     if (ret <= 0)
 705         ctx->operation = EVP_PKEY_OP_UNDEFINED;
 706     return ret;
 707 }
 708
 709 int EVP_PKEY_encrypt_init(EVP_PKEY_CTX *ctx)
 710 {
 711     return evp_pkey_asym_cipher_init(ctx, EVP_PKEY_OP_ENCRYPT);
 712 }
 713
 714 int EVP_PKEY_encrypt(EVP_PKEY_CTX *ctx,
 715                      unsigned char *out, size_t *outlen,
 716                      const unsigned char *in, size_t inlen)
 717 {
 718     int ret;
 719
 720     if (ctx == NULL) {
 721         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 722         return -2;
 723     }
 724
 725     if (ctx->operation != EVP_PKEY_OP_ENCRYPT) {
 726         EVPerr(0, EVP_R_OPERATON_NOT_INITIALIZED);
 727         return -1;
 728     }
 729
 730     if (ctx->op.ciph.ciphprovctx == NULL)
 731         goto legacy;
 732
 733     ret = ctx->op.ciph.cipher->encrypt(ctx->op.ciph.ciphprovctx, out, outlen,
 734                                        (out == NULL ? 0 : *outlen), in, inlen);
 735     return ret;
 736
 737  legacy:
 738     if (ctx->pmeth == NULL || ctx->pmeth->encrypt == NULL) {
 739         EVPerr(EVP_F_EVP_PKEY_ENCRYPT,
 740                EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 741         return -2;
 742     }
 743     M_check_autoarg(ctx, out, outlen, EVP_F_EVP_PKEY_ENCRYPT)
 744         return ctx->pmeth->encrypt(ctx, out, outlen, in, inlen);
 745 }
 746
 747 int EVP_PKEY_decrypt_init(EVP_PKEY_CTX *ctx)
 748 {
 749     return evp_pkey_asym_cipher_init(ctx, EVP_PKEY_OP_DECRYPT);
 750 }
 751
 752 int EVP_PKEY_decrypt(EVP_PKEY_CTX *ctx,
 753                      unsigned char *out, size_t *outlen,
 754                      const unsigned char *in, size_t inlen)
 755 {
 756     int ret;
 757
 758     if (ctx == NULL) {
 759         EVPerr(0, EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 760         return -2;
 761     }
 762
 763     if (ctx->operation != EVP_PKEY_OP_DECRYPT) {
 764         EVPerr(0, EVP_R_OPERATON_NOT_INITIALIZED);
 765         return -1;
 766     }
 767
 768     if (ctx->op.ciph.ciphprovctx == NULL)
 769         goto legacy;
 770
 771     ret = ctx->op.ciph.cipher->decrypt(ctx->op.ciph.ciphprovctx, out, outlen,
 772                                        (out == NULL ? 0 : *outlen), in, inlen);
 773     return ret;
 774
 775  legacy:
 776     if (ctx->pmeth == NULL || ctx->pmeth->decrypt == NULL) {
 777         EVPerr(EVP_F_EVP_PKEY_DECRYPT,
 778                EVP_R_OPERATION_NOT_SUPPORTED_FOR_THIS_KEYTYPE);
 779         return -2;
 780     }
 781     M_check_autoarg(ctx, out, outlen, EVP_F_EVP_PKEY_DECRYPT)
 782         return ctx->pmeth->decrypt(ctx, out, outlen, in, inlen);
 783 }
 784
 785
 786 static EVP_ASYM_CIPHER *evp_asym_cipher_new(OSSL_PROVIDER *prov)
 787 {
 788     EVP_ASYM_CIPHER *cipher = OPENSSL_zalloc(sizeof(EVP_ASYM_CIPHER));
 789
 790     if (cipher == NULL) {
 791         ERR_raise(ERR_LIB_EVP, ERR_R_MALLOC_FAILURE);
 792         return NULL;
 793     }
 794
 795     cipher->lock = CRYPTO_THREAD_lock_new();
 796     if (cipher->lock == NULL) {
 797         ERR_raise(ERR_LIB_EVP, ERR_R_MALLOC_FAILURE);
 798         OPENSSL_free(cipher);
 799         return NULL;
 800     }
 801     cipher->prov = prov;
 802     ossl_provider_up_ref(prov);
 803     cipher->refcnt = 1;
 804
 805     return cipher;
 806 }
 807
 808 static void *evp_asym_cipher_from_dispatch(int name_id,
 809                                            const OSSL_DISPATCH *fns,
 810                                            OSSL_PROVIDER *prov)
 811 {
 812     EVP_ASYM_CIPHER *cipher = NULL;
 813     int ctxfncnt = 0, encfncnt = 0, decfncnt = 0;
 814     int gparamfncnt = 0, sparamfncnt = 0;
 815
 816     if ((cipher = evp_asym_cipher_new(prov)) == NULL) {
 817         ERR_raise(ERR_LIB_EVP, ERR_R_MALLOC_FAILURE);
 818         goto err;
 819     }
 820
 821     cipher->name_id = name_id;
 822
 823     for (; fns->function_id != 0; fns++) {
 824         switch (fns->function_id) {
 825         case OSSL_FUNC_ASYM_CIPHER_NEWCTX:
 826             if (cipher->newctx != NULL)
 827                 break;
 828             cipher->newctx = OSSL_get_OP_asym_cipher_newctx(fns);
 829             ctxfncnt++;
 830             break;
 831         case OSSL_FUNC_ASYM_CIPHER_ENCRYPT_INIT:
 832             if (cipher->encrypt_init != NULL)
 833                 break;
 834             cipher->encrypt_init = OSSL_get_OP_asym_cipher_encrypt_init(fns);
 835             encfncnt++;
 836             break;
 837         case OSSL_FUNC_ASYM_CIPHER_ENCRYPT:
 838             if (cipher->encrypt != NULL)
 839                 break;
 840             cipher->encrypt = OSSL_get_OP_asym_cipher_encrypt(fns);
 841             encfncnt++;
 842             break;
 843         case OSSL_FUNC_ASYM_CIPHER_DECRYPT_INIT:
 844             if (cipher->decrypt_init != NULL)
 845                 break;
 846             cipher->decrypt_init = OSSL_get_OP_asym_cipher_decrypt_init(fns);
 847             decfncnt++;
 848             break;
 849         case OSSL_FUNC_ASYM_CIPHER_DECRYPT:
 850             if (cipher->decrypt != NULL)
 851                 break;
 852             cipher->decrypt = OSSL_get_OP_asym_cipher_decrypt(fns);
 853             decfncnt++;
 854             break;
 855         case OSSL_FUNC_ASYM_CIPHER_FREECTX:
 856             if (cipher->freectx != NULL)
 857                 break;
 858             cipher->freectx = OSSL_get_OP_asym_cipher_freectx(fns);
 859             ctxfncnt++;
 860             break;
 861         case OSSL_FUNC_ASYM_CIPHER_DUPCTX:
 862             if (cipher->dupctx != NULL)
 863                 break;
 864             cipher->dupctx = OSSL_get_OP_asym_cipher_dupctx(fns);
 865             break;
 866         case OSSL_FUNC_ASYM_CIPHER_GET_CTX_PARAMS:
 867             if (cipher->get_ctx_params != NULL)
 868                 break;
 869             cipher->get_ctx_params
 870                 = OSSL_get_OP_asym_cipher_get_ctx_params(fns);
 871             gparamfncnt++;
 872             break;
 873         case OSSL_FUNC_ASYM_CIPHER_GETTABLE_CTX_PARAMS:
 874             if (cipher->gettable_ctx_params != NULL)
 875                 break;
 876             cipher->gettable_ctx_params
 877                 = OSSL_get_OP_asym_cipher_gettable_ctx_params(fns);
 878             gparamfncnt++;
 879             break;
 880         case OSSL_FUNC_ASYM_CIPHER_SET_CTX_PARAMS:
 881             if (cipher->set_ctx_params != NULL)
 882                 break;
 883             cipher->set_ctx_params
 884                 = OSSL_get_OP_asym_cipher_set_ctx_params(fns);
 885             sparamfncnt++;
 886             break;
 887         case OSSL_FUNC_ASYM_CIPHER_SETTABLE_CTX_PARAMS:
 888             if (cipher->settable_ctx_params != NULL)
 889                 break;
 890             cipher->settable_ctx_params
 891                 = OSSL_get_OP_asym_cipher_settable_ctx_params(fns);
 892             sparamfncnt++;
 893             break;
 894         }
 895     }
 896     if (ctxfncnt != 2
 897         || (encfncnt != 0 && encfncnt != 2)
 898         || (decfncnt != 0 && decfncnt != 2)
 899         || (encfncnt != 2 && decfncnt != 2)
 900         || (gparamfncnt != 0 && gparamfncnt != 2)
 901         || (sparamfncnt != 0 && sparamfncnt != 2)) {
 902         /*
 903          * In order to be a consistent set of functions we must have at least
 904          * a set of context functions (newctx and freectx) as well as a pair of
 905          * "cipher" functions: (encrypt_init, encrypt) or
 906          * (decrypt_init decrypt). set_ctx_params and settable_ctx_params are
 907          * optional, but if one of them is present then the other one must also
 908          * be present. The same applies to get_ctx_params and
 909          * gettable_ctx_params. The dupctx function is optional.
 910          */
 911         ERR_raise(ERR_LIB_EVP, EVP_R_INVALID_PROVIDER_FUNCTIONS);
 912         goto err;
 913     }
 914
 915     return cipher;
 916  err:
 917     EVP_ASYM_CIPHER_free(cipher);
 918     return NULL;
 919 }
 920
 921 void EVP_ASYM_CIPHER_free(EVP_ASYM_CIPHER *cipher)
 922 {
 923     if (cipher != NULL) {
 924         int i;
 925
 926         CRYPTO_DOWN_REF(&cipher->refcnt, &i, cipher->lock);
 927         if (i > 0)
 928             return;
 929         ossl_provider_free(cipher->prov);
 930         CRYPTO_THREAD_lock_free(cipher->lock);
 931         OPENSSL_free(cipher);
 932     }
 933 }
 934
 935 int EVP_ASYM_CIPHER_up_ref(EVP_ASYM_CIPHER *cipher)
 936 {
 937     int ref = 0;
 938
 939     CRYPTO_UP_REF(&cipher->refcnt, &ref, cipher->lock);
 940     return 1;
 941 }
 942
 943 OSSL_PROVIDER *EVP_ASYM_CIPHER_provider(const EVP_ASYM_CIPHER *cipher)
 944 {
 945     return cipher->prov;
 946 }
 947
 948 EVP_ASYM_CIPHER *EVP_ASYM_CIPHER_fetch(OPENSSL_CTX *ctx, const char *algorithm,
 949                                        const char *properties)
 950 {
 951     return evp_generic_fetch(ctx, OSSL_OP_ASYM_CIPHER, algorithm, properties,
 952                              evp_asym_cipher_from_dispatch,
 953                              (int (*)(void *))EVP_ASYM_CIPHER_up_ref,
 954                              (void (*)(void *))EVP_ASYM_CIPHER_free);
 955 }
 956
 957 int EVP_ASYM_CIPHER_is_a(const EVP_ASYM_CIPHER *cipher, const char *name)
 958 {
 959     return evp_is_a(cipher->prov, cipher->name_id, name);
 960 }
 961
 962 int EVP_ASYM_CIPHER_number(const EVP_ASYM_CIPHER *cipher)
 963 {
 964     return cipher->name_id;
 965 }
 966
 967 void EVP_ASYM_CIPHER_do_all_provided(OPENSSL_CTX *libctx,
 968                                      void (*fn)(EVP_ASYM_CIPHER *cipher,
 969                                                 void *arg),
 970                                      void *arg)
 971 {
 972     evp_generic_do_all(libctx, OSSL_OP_ASYM_CIPHER,
 973                        (void (*)(void *, void *))fn, arg,
 974                        evp_asym_cipher_from_dispatch,
 975                        (void (*)(void *))EVP_ASYM_CIPHER_free);
 976 }
 977
 978
 979 void EVP_ASYM_CIPHER_names_do_all(const EVP_ASYM_CIPHER *cipher,
 980                                   void (*fn)(const char *name, void *data),
 981                                   void *data)
 982 {
 983     if (cipher->prov != NULL)
 984         evp_names_do_all(cipher->prov, cipher->name_id, fn, data);
 985 }
 986