crypto/engine/eng_ctrl.c

   1 /*
   2  * Copyright 2001-2020 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 /* We need to use some engine deprecated APIs */
  11 #define OPENSSL_SUPPRESS_DEPRECATED
  12
  13 #include "eng_local.h"
  14
  15 /*
  16  * When querying a ENGINE-specific control command's 'description', this
  17  * string is used if the ENGINE_CMD_DEFN has cmd_desc set to NULL.
  18  */
  19 static const char *int_no_description = "";
  20
  21 /*
  22  * These internal functions handle 'CMD'-related control commands when the
  23  * ENGINE in question has asked us to take care of it (ie. the ENGINE did not
  24  * set the ENGINE_FLAGS_MANUAL_CMD_CTRL flag.
  25  */
  26
  27 static int int_ctrl_cmd_is_null(const ENGINE_CMD_DEFN *defn)
  28 {
  29     if ((defn->cmd_num == 0) || (defn->cmd_name == NULL))
  30         return 1;
  31     return 0;
  32 }
  33
  34 static int int_ctrl_cmd_by_name(const ENGINE_CMD_DEFN *defn, const char *s)
  35 {
  36     int idx = 0;
  37     while (!int_ctrl_cmd_is_null(defn) && (strcmp(defn->cmd_name, s) != 0)) {
  38         idx++;
  39         defn++;
  40     }
  41     if (int_ctrl_cmd_is_null(defn))
  42         /* The given name wasn't found */
  43         return -1;
  44     return idx;
  45 }
  46
  47 static int int_ctrl_cmd_by_num(const ENGINE_CMD_DEFN *defn, unsigned int num)
  48 {
  49     int idx = 0;
  50     /*
  51      * NB: It is stipulated that 'cmd_defn' lists are ordered by cmd_num. So
  52      * our searches don't need to take any longer than necessary.
  53      */
  54     while (!int_ctrl_cmd_is_null(defn) && (defn->cmd_num < num)) {
  55         idx++;
  56         defn++;
  57     }
  58     if (defn->cmd_num == num)
  59         return idx;
  60     /* The given cmd_num wasn't found */
  61     return -1;
  62 }
  63
  64 static int int_ctrl_helper(ENGINE *e, int cmd, long i, void *p,
  65                            void (*f) (void))
  66 {
  67     int idx;
  68     char *s = (char *)p;
  69     const ENGINE_CMD_DEFN *cdp;
  70
  71     /* Take care of the easy one first (eg. it requires no searches) */
  72     if (cmd == ENGINE_CTRL_GET_FIRST_CMD_TYPE) {
  73         if ((e->cmd_defns == NULL) || int_ctrl_cmd_is_null(e->cmd_defns))
  74             return 0;
  75         return e->cmd_defns->cmd_num;
  76     }
  77     /* One or two commands require that "p" be a valid string buffer */
  78     if ((cmd == ENGINE_CTRL_GET_CMD_FROM_NAME) ||
  79         (cmd == ENGINE_CTRL_GET_NAME_FROM_CMD) ||
  80         (cmd == ENGINE_CTRL_GET_DESC_FROM_CMD)) {
  81         if (s == NULL) {
  82             ERR_raise(ERR_LIB_ENGINE, ERR_R_PASSED_NULL_PARAMETER);
  83             return -1;
  84         }
  85     }
  86     /* Now handle cmd_name -> cmd_num conversion */
  87     if (cmd == ENGINE_CTRL_GET_CMD_FROM_NAME) {
  88         if ((e->cmd_defns == NULL)
  89             || ((idx = int_ctrl_cmd_by_name(e->cmd_defns, s)) < 0)) {
  90             ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INVALID_CMD_NAME);
  91             return -1;
  92         }
  93         return e->cmd_defns[idx].cmd_num;
  94     }
  95     /*
  96      * For the rest of the commands, the 'long' argument must specify a valid
  97      * command number - so we need to conduct a search.
  98      */
  99     if ((e->cmd_defns == NULL)
 100         || ((idx = int_ctrl_cmd_by_num(e->cmd_defns, (unsigned int)i)) < 0)) {
 101         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INVALID_CMD_NUMBER);
 102         return -1;
 103     }
 104     /* Now the logic splits depending on command type */
 105     cdp = &e->cmd_defns[idx];
 106     switch (cmd) {
 107     case ENGINE_CTRL_GET_NEXT_CMD_TYPE:
 108         cdp++;
 109         return int_ctrl_cmd_is_null(cdp) ? 0 : cdp->cmd_num;
 110     case ENGINE_CTRL_GET_NAME_LEN_FROM_CMD:
 111         return strlen(cdp->cmd_name);
 112     case ENGINE_CTRL_GET_NAME_FROM_CMD:
 113         return strlen(strcpy(s, cdp->cmd_name));
 114     case ENGINE_CTRL_GET_DESC_LEN_FROM_CMD:
 115         return strlen(cdp->cmd_desc == NULL ? int_no_description
 116                                             : cdp->cmd_desc);
 117     case ENGINE_CTRL_GET_DESC_FROM_CMD:
 118         return strlen(strcpy(s, cdp->cmd_desc == NULL ? int_no_description
 119                                                       : cdp->cmd_desc));
 120     case ENGINE_CTRL_GET_CMD_FLAGS:
 121         return cdp->cmd_flags;
 122     }
 123     /* Shouldn't really be here ... */
 124     ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INTERNAL_LIST_ERROR);
 125     return -1;
 126 }
 127
 128 int ENGINE_ctrl(ENGINE *e, int cmd, long i, void *p, void (*f) (void))
 129 {
 130     int ctrl_exists, ref_exists;
 131     if (e == NULL) {
 132         ERR_raise(ERR_LIB_ENGINE, ERR_R_PASSED_NULL_PARAMETER);
 133         return 0;
 134     }
 135     CRYPTO_THREAD_write_lock(global_engine_lock);
 136     ref_exists = ((e->struct_ref > 0) ? 1 : 0);
 137     CRYPTO_THREAD_unlock(global_engine_lock);
 138     ctrl_exists = ((e->ctrl == NULL) ? 0 : 1);
 139     if (!ref_exists) {
 140         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_NO_REFERENCE);
 141         return 0;
 142     }
 143     /*
 144      * Intercept any "root-level" commands before trying to hand them on to
 145      * ctrl() handlers.
 146      */
 147     switch (cmd) {
 148     case ENGINE_CTRL_HAS_CTRL_FUNCTION:
 149         return ctrl_exists;
 150     case ENGINE_CTRL_GET_FIRST_CMD_TYPE:
 151     case ENGINE_CTRL_GET_NEXT_CMD_TYPE:
 152     case ENGINE_CTRL_GET_CMD_FROM_NAME:
 153     case ENGINE_CTRL_GET_NAME_LEN_FROM_CMD:
 154     case ENGINE_CTRL_GET_NAME_FROM_CMD:
 155     case ENGINE_CTRL_GET_DESC_LEN_FROM_CMD:
 156     case ENGINE_CTRL_GET_DESC_FROM_CMD:
 157     case ENGINE_CTRL_GET_CMD_FLAGS:
 158         if (ctrl_exists && !(e->flags & ENGINE_FLAGS_MANUAL_CMD_CTRL))
 159             return int_ctrl_helper(e, cmd, i, p, f);
 160         if (!ctrl_exists) {
 161             ERR_raise(ERR_LIB_ENGINE, ENGINE_R_NO_CONTROL_FUNCTION);
 162             /*
 163              * For these cmd-related functions, failure is indicated by a -1
 164              * return value (because 0 is used as a valid return in some
 165              * places).
 166              */
 167             return -1;
 168         }
 169     default:
 170         break;
 171     }
 172     /* Anything else requires a ctrl() handler to exist. */
 173     if (!ctrl_exists) {
 174         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_NO_CONTROL_FUNCTION);
 175         return 0;
 176     }
 177     return e->ctrl(e, cmd, i, p, f);
 178 }
 179
 180 int ENGINE_cmd_is_executable(ENGINE *e, int cmd)
 181 {
 182     int flags;
 183     if ((flags =
 184          ENGINE_ctrl(e, ENGINE_CTRL_GET_CMD_FLAGS, cmd, NULL, NULL)) < 0) {
 185         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INVALID_CMD_NUMBER);
 186         return 0;
 187     }
 188     if (!(flags & ENGINE_CMD_FLAG_NO_INPUT) &&
 189         !(flags & ENGINE_CMD_FLAG_NUMERIC) &&
 190         !(flags & ENGINE_CMD_FLAG_STRING))
 191         return 0;
 192     return 1;
 193 }
 194
 195 int ENGINE_ctrl_cmd(ENGINE *e, const char *cmd_name,
 196                     long i, void *p, void (*f) (void), int cmd_optional)
 197 {
 198     int num;
 199
 200     if (e == NULL || cmd_name == NULL) {
 201         ERR_raise(ERR_LIB_ENGINE, ERR_R_PASSED_NULL_PARAMETER);
 202         return 0;
 203     }
 204     if (e->ctrl == NULL
 205         || (num = ENGINE_ctrl(e, ENGINE_CTRL_GET_CMD_FROM_NAME,
 206                               0, (void *)cmd_name, NULL)) <= 0) {
 207         /*
 208          * If the command didn't *have* to be supported, we fake success.
 209          * This allows certain settings to be specified for multiple ENGINEs
 210          * and only require a change of ENGINE id (without having to
 211          * selectively apply settings). Eg. changing from a hardware device
 212          * back to the regular software ENGINE without editing the config
 213          * file, etc.
 214          */
 215         if (cmd_optional) {
 216             ERR_clear_error();
 217             return 1;
 218         }
 219         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INVALID_CMD_NAME);
 220         return 0;
 221     }
 222     /*
 223      * Force the result of the control command to 0 or 1, for the reasons
 224      * mentioned before.
 225      */
 226     if (ENGINE_ctrl(e, num, i, p, f) > 0)
 227         return 1;
 228     return 0;
 229 }
 230
 231 int ENGINE_ctrl_cmd_string(ENGINE *e, const char *cmd_name, const char *arg,
 232                            int cmd_optional)
 233 {
 234     int num, flags;
 235     long l;
 236     char *ptr;
 237
 238     if (e == NULL || cmd_name == NULL) {
 239         ERR_raise(ERR_LIB_ENGINE, ERR_R_PASSED_NULL_PARAMETER);
 240         return 0;
 241     }
 242     if (e->ctrl == NULL
 243         || (num = ENGINE_ctrl(e, ENGINE_CTRL_GET_CMD_FROM_NAME,
 244                               0, (void *)cmd_name, NULL)) <= 0) {
 245         /*
 246          * If the command didn't *have* to be supported, we fake success.
 247          * This allows certain settings to be specified for multiple ENGINEs
 248          * and only require a change of ENGINE id (without having to
 249          * selectively apply settings). Eg. changing from a hardware device
 250          * back to the regular software ENGINE without editing the config
 251          * file, etc.
 252          */
 253         if (cmd_optional) {
 254             ERR_clear_error();
 255             return 1;
 256         }
 257         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INVALID_CMD_NAME);
 258         return 0;
 259     }
 260     if (!ENGINE_cmd_is_executable(e, num)) {
 261         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_CMD_NOT_EXECUTABLE);
 262         return 0;
 263     }
 264
 265     flags = ENGINE_ctrl(e, ENGINE_CTRL_GET_CMD_FLAGS, num, NULL, NULL);
 266     if (flags < 0) {
 267         /*
 268          * Shouldn't happen, given that ENGINE_cmd_is_executable() returned
 269          * success.
 270          */
 271         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INTERNAL_LIST_ERROR);
 272         return 0;
 273     }
 274     /*
 275      * If the command takes no input, there must be no input. And vice versa.
 276      */
 277     if (flags & ENGINE_CMD_FLAG_NO_INPUT) {
 278         if (arg != NULL) {
 279             ERR_raise(ERR_LIB_ENGINE, ENGINE_R_COMMAND_TAKES_NO_INPUT);
 280             return 0;
 281         }
 282         /*
 283          * We deliberately force the result of ENGINE_ctrl() to 0 or 1 rather
 284          * than returning it as "return data". This is to ensure usage of
 285          * these commands is consistent across applications and that certain
 286          * applications don't understand it one way, and others another.
 287          */
 288         if (ENGINE_ctrl(e, num, 0, (void *)arg, NULL) > 0)
 289             return 1;
 290         return 0;
 291     }
 292     /* So, we require input */
 293     if (arg == NULL) {
 294         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_COMMAND_TAKES_INPUT);
 295         return 0;
 296     }
 297     /* If it takes string input, that's easy */
 298     if (flags & ENGINE_CMD_FLAG_STRING) {
 299         /* Same explanation as above */
 300         if (ENGINE_ctrl(e, num, 0, (void *)arg, NULL) > 0)
 301             return 1;
 302         return 0;
 303     }
 304     /*
 305      * If it doesn't take numeric either, then it is unsupported for use in a
 306      * config-setting situation, which is what this function is for. This
 307      * should never happen though, because ENGINE_cmd_is_executable() was
 308      * used.
 309      */
 310     if (!(flags & ENGINE_CMD_FLAG_NUMERIC)) {
 311         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_INTERNAL_LIST_ERROR);
 312         return 0;
 313     }
 314     l = strtol(arg, &ptr, 10);
 315     if ((arg == ptr) || (*ptr != '\0')) {
 316         ERR_raise(ERR_LIB_ENGINE, ENGINE_R_ARGUMENT_IS_NOT_A_NUMBER);
 317         return 0;
 318     }
 319     /*
 320      * Force the result of the control command to 0 or 1, for the reasons
 321      * mentioned before.
 322      */
 323     if (ENGINE_ctrl(e, num, l, NULL, NULL) > 0)
 324         return 1;
 325     return 0;
 326 }