1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759 |
- /*
- * Copyright 1995-2022 The OpenSSL Project Authors. All Rights Reserved.
- *
- * Licensed under the Apache License 2.0 (the "License"). You may not use
- * this file except in compliance with the License. You can obtain a copy
- * in the file LICENSE in the source distribution or at
- * https://www.openssl.org/source/license.html
- */
- /* We need to use some deprecated APIs */
- #define OPENSSL_SUPPRESS_DEPRECATED
- #include <string.h>
- #include <openssl/evp.h>
- #include <openssl/err.h>
- #include <openssl/provider.h>
- #include <openssl/safestack.h>
- #include <openssl/kdf.h>
- #include <openssl/encoder.h>
- #include <openssl/decoder.h>
- #include <openssl/store.h>
- #include <openssl/core_names.h>
- #include <openssl/rand.h>
- #include "apps.h"
- #include "app_params.h"
- #include "progs.h"
- #include "opt.h"
- #include "names.h"
- static int verbose = 0;
- static const char *select_name = NULL;
- /* Checks to see if algorithms are fetchable */
- #define IS_FETCHABLE(type, TYPE) \
- static int is_ ## type ## _fetchable(const TYPE *alg) \
- { \
- TYPE *impl; \
- const char *propq = app_get0_propq(); \
- OSSL_LIB_CTX *libctx = app_get0_libctx(); \
- const char *name = TYPE ## _get0_name(alg); \
- \
- ERR_set_mark(); \
- impl = TYPE ## _fetch(libctx, name, propq); \
- ERR_pop_to_mark(); \
- if (impl == NULL) \
- return 0; \
- TYPE ## _free(impl); \
- return 1; \
- }
- IS_FETCHABLE(cipher, EVP_CIPHER)
- IS_FETCHABLE(digest, EVP_MD)
- IS_FETCHABLE(mac, EVP_MAC)
- IS_FETCHABLE(kdf, EVP_KDF)
- IS_FETCHABLE(rand, EVP_RAND)
- IS_FETCHABLE(keymgmt, EVP_KEYMGMT)
- IS_FETCHABLE(signature, EVP_SIGNATURE)
- IS_FETCHABLE(kem, EVP_KEM)
- IS_FETCHABLE(asym_cipher, EVP_ASYM_CIPHER)
- IS_FETCHABLE(keyexch, EVP_KEYEXCH)
- IS_FETCHABLE(decoder, OSSL_DECODER)
- IS_FETCHABLE(encoder, OSSL_ENCODER)
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- static int include_legacy(void)
- {
- return app_get0_propq() == NULL;
- }
- static void legacy_cipher_fn(const EVP_CIPHER *c,
- const char *from, const char *to, void *arg)
- {
- if (select_name != NULL
- && (c == NULL
- || OPENSSL_strcasecmp(select_name, EVP_CIPHER_get0_name(c)) != 0))
- return;
- if (c != NULL) {
- BIO_printf(arg, " %s\n", EVP_CIPHER_get0_name(c));
- } else {
- if (from == NULL)
- from = "<undefined>";
- if (to == NULL)
- to = "<undefined>";
- BIO_printf(arg, " %s => %s\n", from, to);
- }
- }
- #endif
- DEFINE_STACK_OF(EVP_CIPHER)
- static int cipher_cmp(const EVP_CIPHER * const *a,
- const EVP_CIPHER * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_CIPHER_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_CIPHER_get0_provider(*b)));
- }
- static void collect_ciphers(EVP_CIPHER *cipher, void *stack)
- {
- STACK_OF(EVP_CIPHER) *cipher_stack = stack;
- if (is_cipher_fetchable(cipher)
- && sk_EVP_CIPHER_push(cipher_stack, cipher) > 0)
- EVP_CIPHER_up_ref(cipher);
- }
- static void list_ciphers(const char *prefix)
- {
- STACK_OF(EVP_CIPHER) *ciphers = sk_EVP_CIPHER_new(cipher_cmp);
- int i;
- if (ciphers == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- if (include_legacy()) {
- BIO_printf(bio_out, "%sLegacy:\n", prefix);
- EVP_CIPHER_do_all_sorted(legacy_cipher_fn, bio_out);
- }
- #endif
- BIO_printf(bio_out, "%sProvided:\n", prefix);
- EVP_CIPHER_do_all_provided(app_get0_libctx(), collect_ciphers, ciphers);
- sk_EVP_CIPHER_sort(ciphers);
- for (i = 0; i < sk_EVP_CIPHER_num(ciphers); i++) {
- const EVP_CIPHER *c = sk_EVP_CIPHER_value(ciphers, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_CIPHER_is_a(c, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_CIPHER_names_do_all(c, collect_names, names)) {
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_CIPHER_get0_provider(c)));
- if (verbose) {
- const char *desc = EVP_CIPHER_get0_description(c);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("retrievable algorithm parameters",
- EVP_CIPHER_gettable_params(c), 4);
- print_param_types("retrievable operation parameters",
- EVP_CIPHER_gettable_ctx_params(c), 4);
- print_param_types("settable operation parameters",
- EVP_CIPHER_settable_ctx_params(c), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_CIPHER_pop_free(ciphers, EVP_CIPHER_free);
- }
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- static void legacy_md_fn(const EVP_MD *m,
- const char *from, const char *to, void *arg)
- {
- if (m != NULL) {
- BIO_printf(arg, " %s\n", EVP_MD_get0_name(m));
- } else {
- if (from == NULL)
- from = "<undefined>";
- if (to == NULL)
- to = "<undefined>";
- BIO_printf((BIO *)arg, " %s => %s\n", from, to);
- }
- }
- #endif
- DEFINE_STACK_OF(EVP_MD)
- static int md_cmp(const EVP_MD * const *a, const EVP_MD * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_MD_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_MD_get0_provider(*b)));
- }
- static void collect_digests(EVP_MD *digest, void *stack)
- {
- STACK_OF(EVP_MD) *digest_stack = stack;
- if (is_digest_fetchable(digest)
- && sk_EVP_MD_push(digest_stack, digest) > 0)
- EVP_MD_up_ref(digest);
- }
- static void list_digests(const char *prefix)
- {
- STACK_OF(EVP_MD) *digests = sk_EVP_MD_new(md_cmp);
- int i;
- if (digests == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- if (include_legacy()) {
- BIO_printf(bio_out, "%sLegacy:\n", prefix);
- EVP_MD_do_all_sorted(legacy_md_fn, bio_out);
- }
- #endif
- BIO_printf(bio_out, "%sProvided:\n", prefix);
- EVP_MD_do_all_provided(app_get0_libctx(), collect_digests, digests);
- sk_EVP_MD_sort(digests);
- for (i = 0; i < sk_EVP_MD_num(digests); i++) {
- const EVP_MD *m = sk_EVP_MD_value(digests, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_MD_is_a(m, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_MD_names_do_all(m, collect_names, names)) {
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_MD_get0_provider(m)));
- if (verbose) {
- const char *desc = EVP_MD_get0_description(m);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("retrievable algorithm parameters",
- EVP_MD_gettable_params(m), 4);
- print_param_types("retrievable operation parameters",
- EVP_MD_gettable_ctx_params(m), 4);
- print_param_types("settable operation parameters",
- EVP_MD_settable_ctx_params(m), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_MD_pop_free(digests, EVP_MD_free);
- }
- DEFINE_STACK_OF(EVP_MAC)
- static int mac_cmp(const EVP_MAC * const *a, const EVP_MAC * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_MAC_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_MAC_get0_provider(*b)));
- }
- static void collect_macs(EVP_MAC *mac, void *stack)
- {
- STACK_OF(EVP_MAC) *mac_stack = stack;
- if (is_mac_fetchable(mac)
- && sk_EVP_MAC_push(mac_stack, mac) > 0)
- EVP_MAC_up_ref(mac);
- }
- static void list_macs(void)
- {
- STACK_OF(EVP_MAC) *macs = sk_EVP_MAC_new(mac_cmp);
- int i;
- if (macs == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- BIO_printf(bio_out, "Provided MACs:\n");
- EVP_MAC_do_all_provided(app_get0_libctx(), collect_macs, macs);
- sk_EVP_MAC_sort(macs);
- for (i = 0; i < sk_EVP_MAC_num(macs); i++) {
- const EVP_MAC *m = sk_EVP_MAC_value(macs, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_MAC_is_a(m, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_MAC_names_do_all(m, collect_names, names)) {
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_MAC_get0_provider(m)));
- if (verbose) {
- const char *desc = EVP_MAC_get0_description(m);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("retrievable algorithm parameters",
- EVP_MAC_gettable_params(m), 4);
- print_param_types("retrievable operation parameters",
- EVP_MAC_gettable_ctx_params(m), 4);
- print_param_types("settable operation parameters",
- EVP_MAC_settable_ctx_params(m), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_MAC_pop_free(macs, EVP_MAC_free);
- }
- /*
- * KDFs and PRFs
- */
- DEFINE_STACK_OF(EVP_KDF)
- static int kdf_cmp(const EVP_KDF * const *a, const EVP_KDF * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_KDF_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_KDF_get0_provider(*b)));
- }
- static void collect_kdfs(EVP_KDF *kdf, void *stack)
- {
- STACK_OF(EVP_KDF) *kdf_stack = stack;
- if (is_kdf_fetchable(kdf)
- && sk_EVP_KDF_push(kdf_stack, kdf) > 0)
- EVP_KDF_up_ref(kdf);
- }
- static void list_kdfs(void)
- {
- STACK_OF(EVP_KDF) *kdfs = sk_EVP_KDF_new(kdf_cmp);
- int i;
- if (kdfs == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- BIO_printf(bio_out, "Provided KDFs and PDFs:\n");
- EVP_KDF_do_all_provided(app_get0_libctx(), collect_kdfs, kdfs);
- sk_EVP_KDF_sort(kdfs);
- for (i = 0; i < sk_EVP_KDF_num(kdfs); i++) {
- const EVP_KDF *k = sk_EVP_KDF_value(kdfs, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_KDF_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_KDF_names_do_all(k, collect_names, names)) {
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_KDF_get0_provider(k)));
- if (verbose) {
- const char *desc = EVP_KDF_get0_description(k);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("retrievable algorithm parameters",
- EVP_KDF_gettable_params(k), 4);
- print_param_types("retrievable operation parameters",
- EVP_KDF_gettable_ctx_params(k), 4);
- print_param_types("settable operation parameters",
- EVP_KDF_settable_ctx_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_KDF_pop_free(kdfs, EVP_KDF_free);
- }
- /*
- * RANDs
- */
- DEFINE_STACK_OF(EVP_RAND)
- static int rand_cmp(const EVP_RAND * const *a, const EVP_RAND * const *b)
- {
- int ret = OPENSSL_strcasecmp(EVP_RAND_get0_name(*a), EVP_RAND_get0_name(*b));
- if (ret == 0)
- ret = strcmp(OSSL_PROVIDER_get0_name(EVP_RAND_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_RAND_get0_provider(*b)));
- return ret;
- }
- static void collect_rands(EVP_RAND *rand, void *stack)
- {
- STACK_OF(EVP_RAND) *rand_stack = stack;
- if (is_rand_fetchable(rand)
- && sk_EVP_RAND_push(rand_stack, rand) > 0)
- EVP_RAND_up_ref(rand);
- }
- static void list_random_generators(void)
- {
- STACK_OF(EVP_RAND) *rands = sk_EVP_RAND_new(rand_cmp);
- int i;
- if (rands == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- BIO_printf(bio_out, "Provided RNGs and seed sources:\n");
- EVP_RAND_do_all_provided(app_get0_libctx(), collect_rands, rands);
- sk_EVP_RAND_sort(rands);
- for (i = 0; i < sk_EVP_RAND_num(rands); i++) {
- const EVP_RAND *m = sk_EVP_RAND_value(rands, i);
- if (select_name != NULL
- && OPENSSL_strcasecmp(EVP_RAND_get0_name(m), select_name) != 0)
- continue;
- BIO_printf(bio_out, " %s", EVP_RAND_get0_name(m));
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_RAND_get0_provider(m)));
- if (verbose) {
- const char *desc = EVP_RAND_get0_description(m);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("retrievable algorithm parameters",
- EVP_RAND_gettable_params(m), 4);
- print_param_types("retrievable operation parameters",
- EVP_RAND_gettable_ctx_params(m), 4);
- print_param_types("settable operation parameters",
- EVP_RAND_settable_ctx_params(m), 4);
- }
- }
- sk_EVP_RAND_pop_free(rands, EVP_RAND_free);
- }
- static void display_random(const char *name, EVP_RAND_CTX *drbg)
- {
- EVP_RAND *rand;
- uint64_t u;
- const char *p;
- const OSSL_PARAM *gettables;
- OSSL_PARAM params[2] = { OSSL_PARAM_END, OSSL_PARAM_END };
- unsigned char buf[1000];
- BIO_printf(bio_out, "%s:\n", name);
- if (drbg != NULL) {
- rand = EVP_RAND_CTX_get0_rand(drbg);
- BIO_printf(bio_out, " %s", EVP_RAND_get0_name(rand));
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_RAND_get0_provider(rand)));
- switch (EVP_RAND_get_state(drbg)) {
- case EVP_RAND_STATE_UNINITIALISED:
- p = "uninitialised";
- break;
- case EVP_RAND_STATE_READY:
- p = "ready";
- break;
- case EVP_RAND_STATE_ERROR:
- p = "error";
- break;
- default:
- p = "unknown";
- break;
- }
- BIO_printf(bio_out, " state = %s\n", p);
- gettables = EVP_RAND_gettable_ctx_params(rand);
- if (gettables != NULL)
- for (; gettables->key != NULL; gettables++) {
- /* State has been dealt with already, so ignore */
- if (OPENSSL_strcasecmp(gettables->key, OSSL_RAND_PARAM_STATE) == 0)
- continue;
- /* Outside of verbose mode, we skip non-string values */
- if (gettables->data_type != OSSL_PARAM_UTF8_STRING
- && gettables->data_type != OSSL_PARAM_UTF8_PTR
- && !verbose)
- continue;
- params->key = gettables->key;
- params->data_type = gettables->data_type;
- if (gettables->data_type == OSSL_PARAM_UNSIGNED_INTEGER
- || gettables->data_type == OSSL_PARAM_INTEGER) {
- params->data = &u;
- params->data_size = sizeof(u);
- } else {
- params->data = buf;
- params->data_size = sizeof(buf);
- }
- params->return_size = 0;
- if (EVP_RAND_CTX_get_params(drbg, params))
- print_param_value(params, 2);
- }
- }
- }
- static void list_random_instances(void)
- {
- display_random("primary", RAND_get0_primary(NULL));
- display_random("public", RAND_get0_public(NULL));
- display_random("private", RAND_get0_private(NULL));
- }
- /*
- * Encoders
- */
- DEFINE_STACK_OF(OSSL_ENCODER)
- static int encoder_cmp(const OSSL_ENCODER * const *a,
- const OSSL_ENCODER * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(OSSL_ENCODER_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(OSSL_ENCODER_get0_provider(*b)));
- }
- static void collect_encoders(OSSL_ENCODER *encoder, void *stack)
- {
- STACK_OF(OSSL_ENCODER) *encoder_stack = stack;
- if (is_encoder_fetchable(encoder)
- && sk_OSSL_ENCODER_push(encoder_stack, encoder) > 0)
- OSSL_ENCODER_up_ref(encoder);
- }
- static void list_encoders(void)
- {
- STACK_OF(OSSL_ENCODER) *encoders;
- int i;
- encoders = sk_OSSL_ENCODER_new(encoder_cmp);
- if (encoders == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- BIO_printf(bio_out, "Provided ENCODERs:\n");
- OSSL_ENCODER_do_all_provided(app_get0_libctx(), collect_encoders,
- encoders);
- sk_OSSL_ENCODER_sort(encoders);
- for (i = 0; i < sk_OSSL_ENCODER_num(encoders); i++) {
- OSSL_ENCODER *k = sk_OSSL_ENCODER_value(encoders, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !OSSL_ENCODER_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && OSSL_ENCODER_names_do_all(k, collect_names, names)) {
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s (%s)\n",
- OSSL_PROVIDER_get0_name(OSSL_ENCODER_get0_provider(k)),
- OSSL_ENCODER_get0_properties(k));
- if (verbose) {
- const char *desc = OSSL_ENCODER_get0_description(k);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("settable operation parameters",
- OSSL_ENCODER_settable_ctx_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_OSSL_ENCODER_pop_free(encoders, OSSL_ENCODER_free);
- }
- /*
- * Decoders
- */
- DEFINE_STACK_OF(OSSL_DECODER)
- static int decoder_cmp(const OSSL_DECODER * const *a,
- const OSSL_DECODER * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(OSSL_DECODER_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(OSSL_DECODER_get0_provider(*b)));
- }
- static void collect_decoders(OSSL_DECODER *decoder, void *stack)
- {
- STACK_OF(OSSL_DECODER) *decoder_stack = stack;
- if (is_decoder_fetchable(decoder)
- && sk_OSSL_DECODER_push(decoder_stack, decoder) > 0)
- OSSL_DECODER_up_ref(decoder);
- }
- static void list_decoders(void)
- {
- STACK_OF(OSSL_DECODER) *decoders;
- int i;
- decoders = sk_OSSL_DECODER_new(decoder_cmp);
- if (decoders == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- BIO_printf(bio_out, "Provided DECODERs:\n");
- OSSL_DECODER_do_all_provided(app_get0_libctx(), collect_decoders,
- decoders);
- sk_OSSL_DECODER_sort(decoders);
- for (i = 0; i < sk_OSSL_DECODER_num(decoders); i++) {
- OSSL_DECODER *k = sk_OSSL_DECODER_value(decoders, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !OSSL_DECODER_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && OSSL_DECODER_names_do_all(k, collect_names, names)) {
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s (%s)\n",
- OSSL_PROVIDER_get0_name(OSSL_DECODER_get0_provider(k)),
- OSSL_DECODER_get0_properties(k));
- if (verbose) {
- const char *desc = OSSL_DECODER_get0_description(k);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("settable operation parameters",
- OSSL_DECODER_settable_ctx_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_OSSL_DECODER_pop_free(decoders, OSSL_DECODER_free);
- }
- DEFINE_STACK_OF(EVP_KEYMGMT)
- static int keymanager_cmp(const EVP_KEYMGMT * const *a,
- const EVP_KEYMGMT * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_KEYMGMT_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_KEYMGMT_get0_provider(*b)));
- }
- static void collect_keymanagers(EVP_KEYMGMT *km, void *stack)
- {
- STACK_OF(EVP_KEYMGMT) *km_stack = stack;
- if (is_keymgmt_fetchable(km)
- && sk_EVP_KEYMGMT_push(km_stack, km) > 0)
- EVP_KEYMGMT_up_ref(km);
- }
- static void list_keymanagers(void)
- {
- int i;
- STACK_OF(EVP_KEYMGMT) *km_stack = sk_EVP_KEYMGMT_new(keymanager_cmp);
- EVP_KEYMGMT_do_all_provided(app_get0_libctx(), collect_keymanagers,
- km_stack);
- sk_EVP_KEYMGMT_sort(km_stack);
- for (i = 0; i < sk_EVP_KEYMGMT_num(km_stack); i++) {
- EVP_KEYMGMT *k = sk_EVP_KEYMGMT_value(km_stack, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_KEYMGMT_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_KEYMGMT_names_do_all(k, collect_names, names)) {
- const char *desc = EVP_KEYMGMT_get0_description(k);
- BIO_printf(bio_out, " Name: ");
- if (desc != NULL)
- BIO_printf(bio_out, "%s", desc);
- else
- BIO_printf(bio_out, "%s", sk_OPENSSL_CSTRING_value(names, 0));
- BIO_printf(bio_out, "\n");
- BIO_printf(bio_out, " Type: Provider Algorithm\n");
- BIO_printf(bio_out, " IDs: ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_KEYMGMT_get0_provider(k)));
- if (verbose) {
- print_param_types("settable key generation parameters",
- EVP_KEYMGMT_gen_settable_params(k), 4);
- print_param_types("settable operation parameters",
- EVP_KEYMGMT_settable_params(k), 4);
- print_param_types("retrievable operation parameters",
- EVP_KEYMGMT_gettable_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_KEYMGMT_pop_free(km_stack, EVP_KEYMGMT_free);
- }
- DEFINE_STACK_OF(EVP_SIGNATURE)
- static int signature_cmp(const EVP_SIGNATURE * const *a,
- const EVP_SIGNATURE * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_SIGNATURE_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_SIGNATURE_get0_provider(*b)));
- }
- static void collect_signatures(EVP_SIGNATURE *sig, void *stack)
- {
- STACK_OF(EVP_SIGNATURE) *sig_stack = stack;
- if (is_signature_fetchable(sig)
- && sk_EVP_SIGNATURE_push(sig_stack, sig) > 0)
- EVP_SIGNATURE_up_ref(sig);
- }
- static void list_signatures(void)
- {
- int i, count = 0;
- STACK_OF(EVP_SIGNATURE) *sig_stack = sk_EVP_SIGNATURE_new(signature_cmp);
- EVP_SIGNATURE_do_all_provided(app_get0_libctx(), collect_signatures,
- sig_stack);
- sk_EVP_SIGNATURE_sort(sig_stack);
- for (i = 0; i < sk_EVP_SIGNATURE_num(sig_stack); i++) {
- EVP_SIGNATURE *k = sk_EVP_SIGNATURE_value(sig_stack, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_SIGNATURE_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_SIGNATURE_names_do_all(k, collect_names, names)) {
- count++;
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_SIGNATURE_get0_provider(k)));
- if (verbose) {
- const char *desc = EVP_SIGNATURE_get0_description(k);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("settable operation parameters",
- EVP_SIGNATURE_settable_ctx_params(k), 4);
- print_param_types("retrievable operation parameters",
- EVP_SIGNATURE_gettable_ctx_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_SIGNATURE_pop_free(sig_stack, EVP_SIGNATURE_free);
- if (count == 0)
- BIO_printf(bio_out, " -\n");
- }
- DEFINE_STACK_OF(EVP_KEM)
- static int kem_cmp(const EVP_KEM * const *a,
- const EVP_KEM * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_KEM_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_KEM_get0_provider(*b)));
- }
- static void collect_kem(EVP_KEM *kem, void *stack)
- {
- STACK_OF(EVP_KEM) *kem_stack = stack;
- if (is_kem_fetchable(kem)
- && sk_EVP_KEM_push(kem_stack, kem) > 0)
- EVP_KEM_up_ref(kem);
- }
- static void list_kems(void)
- {
- int i, count = 0;
- STACK_OF(EVP_KEM) *kem_stack = sk_EVP_KEM_new(kem_cmp);
- EVP_KEM_do_all_provided(app_get0_libctx(), collect_kem, kem_stack);
- sk_EVP_KEM_sort(kem_stack);
- for (i = 0; i < sk_EVP_KEM_num(kem_stack); i++) {
- EVP_KEM *k = sk_EVP_KEM_value(kem_stack, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_KEM_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_KEM_names_do_all(k, collect_names, names)) {
- count++;
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_KEM_get0_provider(k)));
- if (verbose) {
- const char *desc = EVP_KEM_get0_description(k);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("settable operation parameters",
- EVP_KEM_settable_ctx_params(k), 4);
- print_param_types("retrievable operation parameters",
- EVP_KEM_gettable_ctx_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_KEM_pop_free(kem_stack, EVP_KEM_free);
- if (count == 0)
- BIO_printf(bio_out, " -\n");
- }
- DEFINE_STACK_OF(EVP_ASYM_CIPHER)
- static int asymcipher_cmp(const EVP_ASYM_CIPHER * const *a,
- const EVP_ASYM_CIPHER * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_ASYM_CIPHER_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_ASYM_CIPHER_get0_provider(*b)));
- }
- static void collect_asymciph(EVP_ASYM_CIPHER *asym_cipher, void *stack)
- {
- STACK_OF(EVP_ASYM_CIPHER) *asym_cipher_stack = stack;
- if (is_asym_cipher_fetchable(asym_cipher)
- && sk_EVP_ASYM_CIPHER_push(asym_cipher_stack, asym_cipher) > 0)
- EVP_ASYM_CIPHER_up_ref(asym_cipher);
- }
- static void list_asymciphers(void)
- {
- int i, count = 0;
- STACK_OF(EVP_ASYM_CIPHER) *asymciph_stack =
- sk_EVP_ASYM_CIPHER_new(asymcipher_cmp);
- EVP_ASYM_CIPHER_do_all_provided(app_get0_libctx(), collect_asymciph,
- asymciph_stack);
- sk_EVP_ASYM_CIPHER_sort(asymciph_stack);
- for (i = 0; i < sk_EVP_ASYM_CIPHER_num(asymciph_stack); i++) {
- EVP_ASYM_CIPHER *k = sk_EVP_ASYM_CIPHER_value(asymciph_stack, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_ASYM_CIPHER_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL
- && EVP_ASYM_CIPHER_names_do_all(k, collect_names, names)) {
- count++;
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_ASYM_CIPHER_get0_provider(k)));
- if (verbose) {
- const char *desc = EVP_ASYM_CIPHER_get0_description(k);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("settable operation parameters",
- EVP_ASYM_CIPHER_settable_ctx_params(k), 4);
- print_param_types("retrievable operation parameters",
- EVP_ASYM_CIPHER_gettable_ctx_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_ASYM_CIPHER_pop_free(asymciph_stack, EVP_ASYM_CIPHER_free);
- if (count == 0)
- BIO_printf(bio_out, " -\n");
- }
- DEFINE_STACK_OF(EVP_KEYEXCH)
- static int kex_cmp(const EVP_KEYEXCH * const *a,
- const EVP_KEYEXCH * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(EVP_KEYEXCH_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(EVP_KEYEXCH_get0_provider(*b)));
- }
- static void collect_kex(EVP_KEYEXCH *kex, void *stack)
- {
- STACK_OF(EVP_KEYEXCH) *kex_stack = stack;
- if (is_keyexch_fetchable(kex)
- && sk_EVP_KEYEXCH_push(kex_stack, kex) > 0)
- EVP_KEYEXCH_up_ref(kex);
- }
- static void list_keyexchanges(void)
- {
- int i, count = 0;
- STACK_OF(EVP_KEYEXCH) *kex_stack = sk_EVP_KEYEXCH_new(kex_cmp);
- EVP_KEYEXCH_do_all_provided(app_get0_libctx(), collect_kex, kex_stack);
- sk_EVP_KEYEXCH_sort(kex_stack);
- for (i = 0; i < sk_EVP_KEYEXCH_num(kex_stack); i++) {
- EVP_KEYEXCH *k = sk_EVP_KEYEXCH_value(kex_stack, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !EVP_KEYEXCH_is_a(k, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && EVP_KEYEXCH_names_do_all(k, collect_names, names)) {
- count++;
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(EVP_KEYEXCH_get0_provider(k)));
- if (verbose) {
- const char *desc = EVP_KEYEXCH_get0_description(k);
- if (desc != NULL)
- BIO_printf(bio_out, " description: %s\n", desc);
- print_param_types("settable operation parameters",
- EVP_KEYEXCH_settable_ctx_params(k), 4);
- print_param_types("retrievable operation parameters",
- EVP_KEYEXCH_gettable_ctx_params(k), 4);
- }
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_EVP_KEYEXCH_pop_free(kex_stack, EVP_KEYEXCH_free);
- if (count == 0)
- BIO_printf(bio_out, " -\n");
- }
- static void list_objects(void)
- {
- int max_nid = OBJ_new_nid(0);
- int i;
- char *oid_buf = NULL;
- int oid_size = 0;
- /* Skip 0, since that's NID_undef */
- for (i = 1; i < max_nid; i++) {
- const ASN1_OBJECT *obj = OBJ_nid2obj(i);
- const char *sn = OBJ_nid2sn(i);
- const char *ln = OBJ_nid2ln(i);
- int n = 0;
- /*
- * If one of the retrieved objects somehow generated an error,
- * we ignore it. The check for NID_undef below will detect the
- * error and simply skip to the next NID.
- */
- ERR_clear_error();
- if (OBJ_obj2nid(obj) == NID_undef)
- continue;
- if ((n = OBJ_obj2txt(NULL, 0, obj, 1)) == 0) {
- BIO_printf(bio_out, "# None-OID object: %s, %s\n", sn, ln);
- continue;
- }
- if (n < 0)
- break; /* Error */
- if (n > oid_size) {
- oid_buf = OPENSSL_realloc(oid_buf, n + 1);
- if (oid_buf == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- break; /* Error */
- }
- oid_size = n + 1;
- }
- if (OBJ_obj2txt(oid_buf, oid_size, obj, 1) < 0)
- break; /* Error */
- if (ln == NULL || strcmp(sn, ln) == 0)
- BIO_printf(bio_out, "%s = %s\n", sn, oid_buf);
- else
- BIO_printf(bio_out, "%s = %s, %s\n", sn, ln, oid_buf);
- }
- OPENSSL_free(oid_buf);
- }
- static void list_options_for_command(const char *command)
- {
- const FUNCTION *fp;
- const OPTIONS *o;
- for (fp = functions; fp->name != NULL; fp++)
- if (strcmp(fp->name, command) == 0)
- break;
- if (fp->name == NULL) {
- BIO_printf(bio_err, "Invalid command '%s'; type \"help\" for a list.\n",
- command);
- return;
- }
- if ((o = fp->help) == NULL)
- return;
- for ( ; o->name != NULL; o++) {
- char c = o->valtype;
- if (o->name == OPT_PARAM_STR)
- break;
- if (o->name == OPT_HELP_STR
- || o->name == OPT_MORE_STR
- || o->name == OPT_SECTION_STR
- || o->name[0] == '\0')
- continue;
- BIO_printf(bio_out, "%s %c\n", o->name, c == '\0' ? '-' : c);
- }
- /* Always output the -- marker since it is sometimes documented. */
- BIO_printf(bio_out, "- -\n");
- }
- static int is_md_available(const char *name)
- {
- EVP_MD *md;
- const char *propq = app_get0_propq();
- /* Look through providers' digests */
- ERR_set_mark();
- md = EVP_MD_fetch(app_get0_libctx(), name, propq);
- ERR_pop_to_mark();
- if (md != NULL) {
- EVP_MD_free(md);
- return 1;
- }
- return propq != NULL || get_digest_from_engine(name) == NULL ? 0 : 1;
- }
- static int is_cipher_available(const char *name)
- {
- EVP_CIPHER *cipher;
- const char *propq = app_get0_propq();
- /* Look through providers' ciphers */
- ERR_set_mark();
- cipher = EVP_CIPHER_fetch(app_get0_libctx(), name, propq);
- ERR_pop_to_mark();
- if (cipher != NULL) {
- EVP_CIPHER_free(cipher);
- return 1;
- }
- return propq != NULL || get_cipher_from_engine(name) == NULL ? 0 : 1;
- }
- static void list_type(FUNC_TYPE ft, int one)
- {
- FUNCTION *fp;
- int i = 0;
- DISPLAY_COLUMNS dc;
- memset(&dc, 0, sizeof(dc));
- if (!one)
- calculate_columns(functions, &dc);
- for (fp = functions; fp->name != NULL; fp++) {
- if (fp->type != ft)
- continue;
- switch (ft) {
- case FT_cipher:
- if (!is_cipher_available(fp->name))
- continue;
- break;
- case FT_md:
- if (!is_md_available(fp->name))
- continue;
- break;
- default:
- break;
- }
- if (one) {
- BIO_printf(bio_out, "%s\n", fp->name);
- } else {
- if (i % dc.columns == 0 && i > 0)
- BIO_printf(bio_out, "\n");
- BIO_printf(bio_out, "%-*s", dc.width, fp->name);
- i++;
- }
- }
- if (!one)
- BIO_printf(bio_out, "\n\n");
- }
- static void list_pkey(void)
- {
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- int i;
- if (select_name == NULL && include_legacy()) {
- BIO_printf(bio_out, "Legacy:\n");
- for (i = 0; i < EVP_PKEY_asn1_get_count(); i++) {
- const EVP_PKEY_ASN1_METHOD *ameth;
- int pkey_id, pkey_base_id, pkey_flags;
- const char *pinfo, *pem_str;
- ameth = EVP_PKEY_asn1_get0(i);
- EVP_PKEY_asn1_get0_info(&pkey_id, &pkey_base_id, &pkey_flags,
- &pinfo, &pem_str, ameth);
- if (pkey_flags & ASN1_PKEY_ALIAS) {
- BIO_printf(bio_out, " Name: %s\n", OBJ_nid2ln(pkey_id));
- BIO_printf(bio_out, "\tAlias for: %s\n",
- OBJ_nid2ln(pkey_base_id));
- } else {
- BIO_printf(bio_out, " Name: %s\n", pinfo);
- BIO_printf(bio_out, "\tType: %s Algorithm\n",
- pkey_flags & ASN1_PKEY_DYNAMIC ?
- "External" : "Builtin");
- BIO_printf(bio_out, "\tOID: %s\n", OBJ_nid2ln(pkey_id));
- if (pem_str == NULL)
- pem_str = "(none)";
- BIO_printf(bio_out, "\tPEM string: %s\n", pem_str);
- }
- }
- }
- #endif
- BIO_printf(bio_out, "Provided:\n");
- BIO_printf(bio_out, " Key Managers:\n");
- list_keymanagers();
- }
- static void list_pkey_meth(void)
- {
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- size_t i;
- size_t meth_count = EVP_PKEY_meth_get_count();
- if (select_name == NULL && include_legacy()) {
- BIO_printf(bio_out, "Legacy:\n");
- for (i = 0; i < meth_count; i++) {
- const EVP_PKEY_METHOD *pmeth = EVP_PKEY_meth_get0(i);
- int pkey_id, pkey_flags;
- EVP_PKEY_meth_get0_info(&pkey_id, &pkey_flags, pmeth);
- BIO_printf(bio_out, " %s\n", OBJ_nid2ln(pkey_id));
- BIO_printf(bio_out, "\tType: %s Algorithm\n",
- pkey_flags & ASN1_PKEY_DYNAMIC ? "External" : "Builtin");
- }
- }
- #endif
- BIO_printf(bio_out, "Provided:\n");
- BIO_printf(bio_out, " Encryption:\n");
- list_asymciphers();
- BIO_printf(bio_out, " Key Exchange:\n");
- list_keyexchanges();
- BIO_printf(bio_out, " Signatures:\n");
- list_signatures();
- BIO_printf(bio_out, " Key encapsulation:\n");
- list_kems();
- }
- DEFINE_STACK_OF(OSSL_STORE_LOADER)
- static int store_cmp(const OSSL_STORE_LOADER * const *a,
- const OSSL_STORE_LOADER * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(OSSL_STORE_LOADER_get0_provider(*a)),
- OSSL_PROVIDER_get0_name(OSSL_STORE_LOADER_get0_provider(*b)));
- }
- static void collect_store_loaders(OSSL_STORE_LOADER *store, void *stack)
- {
- STACK_OF(OSSL_STORE_LOADER) *store_stack = stack;
- if (sk_OSSL_STORE_LOADER_push(store_stack, store) > 0)
- OSSL_STORE_LOADER_up_ref(store);
- }
- static void list_store_loaders(void)
- {
- STACK_OF(OSSL_STORE_LOADER) *stores = sk_OSSL_STORE_LOADER_new(store_cmp);
- int i;
- if (stores == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- BIO_printf(bio_out, "Provided STORE LOADERs:\n");
- OSSL_STORE_LOADER_do_all_provided(app_get0_libctx(), collect_store_loaders,
- stores);
- sk_OSSL_STORE_LOADER_sort(stores);
- for (i = 0; i < sk_OSSL_STORE_LOADER_num(stores); i++) {
- const OSSL_STORE_LOADER *m = sk_OSSL_STORE_LOADER_value(stores, i);
- STACK_OF(OPENSSL_CSTRING) *names = NULL;
- if (select_name != NULL && !OSSL_STORE_LOADER_is_a(m, select_name))
- continue;
- names = sk_OPENSSL_CSTRING_new(name_cmp);
- if (names != NULL && OSSL_STORE_LOADER_names_do_all(m, collect_names,
- names)) {
- BIO_printf(bio_out, " ");
- print_names(bio_out, names);
- BIO_printf(bio_out, " @ %s\n",
- OSSL_PROVIDER_get0_name(OSSL_STORE_LOADER_get0_provider(m)));
- }
- sk_OPENSSL_CSTRING_free(names);
- }
- sk_OSSL_STORE_LOADER_pop_free(stores, OSSL_STORE_LOADER_free);
- }
- DEFINE_STACK_OF(OSSL_PROVIDER)
- static int provider_cmp(const OSSL_PROVIDER * const *a,
- const OSSL_PROVIDER * const *b)
- {
- return strcmp(OSSL_PROVIDER_get0_name(*a), OSSL_PROVIDER_get0_name(*b));
- }
- static int collect_providers(OSSL_PROVIDER *provider, void *stack)
- {
- STACK_OF(OSSL_PROVIDER) *provider_stack = stack;
- sk_OSSL_PROVIDER_push(provider_stack, provider);
- return 1;
- }
- static void list_provider_info(void)
- {
- STACK_OF(OSSL_PROVIDER) *providers = sk_OSSL_PROVIDER_new(provider_cmp);
- OSSL_PARAM params[5];
- char *name, *version, *buildinfo;
- int status;
- int i;
- if (providers == NULL) {
- BIO_printf(bio_err, "ERROR: Memory allocation\n");
- return;
- }
- BIO_printf(bio_out, "Providers:\n");
- OSSL_PROVIDER_do_all(NULL, &collect_providers, providers);
- sk_OSSL_PROVIDER_sort(providers);
- for (i = 0; i < sk_OSSL_PROVIDER_num(providers); i++) {
- const OSSL_PROVIDER *prov = sk_OSSL_PROVIDER_value(providers, i);
- /* Query the "known" information parameters, the order matches below */
- params[0] = OSSL_PARAM_construct_utf8_ptr(OSSL_PROV_PARAM_NAME,
- &name, 0);
- params[1] = OSSL_PARAM_construct_utf8_ptr(OSSL_PROV_PARAM_VERSION,
- &version, 0);
- params[2] = OSSL_PARAM_construct_int(OSSL_PROV_PARAM_STATUS, &status);
- params[3] = OSSL_PARAM_construct_utf8_ptr(OSSL_PROV_PARAM_BUILDINFO,
- &buildinfo, 0);
- params[4] = OSSL_PARAM_construct_end();
- OSSL_PARAM_set_all_unmodified(params);
- if (!OSSL_PROVIDER_get_params(prov, params)) {
- BIO_printf(bio_err, "ERROR: Unable to query provider parameters\n");
- return;
- }
- /* Print out the provider information, the params order matches above */
- BIO_printf(bio_out, " %s\n", OSSL_PROVIDER_get0_name(prov));
- if (OSSL_PARAM_modified(params))
- BIO_printf(bio_out, " name: %s\n", name);
- if (OSSL_PARAM_modified(params + 1))
- BIO_printf(bio_out, " version: %s\n", version);
- if (OSSL_PARAM_modified(params + 2))
- BIO_printf(bio_out, " status: %sactive\n", status ? "" : "in");
- if (verbose) {
- if (OSSL_PARAM_modified(params + 3))
- BIO_printf(bio_out, " build info: %s\n", buildinfo);
- print_param_types("gettable provider parameters",
- OSSL_PROVIDER_gettable_params(prov), 4);
- }
- }
- sk_OSSL_PROVIDER_free(providers);
- }
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- static void list_engines(void)
- {
- # ifndef OPENSSL_NO_ENGINE
- ENGINE *e;
- BIO_puts(bio_out, "Engines:\n");
- e = ENGINE_get_first();
- while (e) {
- BIO_printf(bio_out, "%s\n", ENGINE_get_id(e));
- e = ENGINE_get_next(e);
- }
- # else
- BIO_puts(bio_out, "Engine support is disabled.\n");
- # endif
- }
- #endif
- static void list_disabled(void)
- {
- BIO_puts(bio_out, "Disabled algorithms:\n");
- #ifdef OPENSSL_NO_ARIA
- BIO_puts(bio_out, "ARIA\n");
- #endif
- #ifdef OPENSSL_NO_BF
- BIO_puts(bio_out, "BF\n");
- #endif
- #ifdef OPENSSL_NO_BLAKE2
- BIO_puts(bio_out, "BLAKE2\n");
- #endif
- #ifdef OPENSSL_NO_CAMELLIA
- BIO_puts(bio_out, "CAMELLIA\n");
- #endif
- #ifdef OPENSSL_NO_CAST
- BIO_puts(bio_out, "CAST\n");
- #endif
- #ifdef OPENSSL_NO_CMAC
- BIO_puts(bio_out, "CMAC\n");
- #endif
- #ifdef OPENSSL_NO_CMS
- BIO_puts(bio_out, "CMS\n");
- #endif
- #ifdef OPENSSL_NO_COMP
- BIO_puts(bio_out, "COMP\n");
- #endif
- #ifdef OPENSSL_NO_DES
- BIO_puts(bio_out, "DES\n");
- #endif
- #ifdef OPENSSL_NO_DGRAM
- BIO_puts(bio_out, "DGRAM\n");
- #endif
- #ifdef OPENSSL_NO_DH
- BIO_puts(bio_out, "DH\n");
- #endif
- #ifdef OPENSSL_NO_DSA
- BIO_puts(bio_out, "DSA\n");
- #endif
- #if defined(OPENSSL_NO_DTLS)
- BIO_puts(bio_out, "DTLS\n");
- #endif
- #if defined(OPENSSL_NO_DTLS1)
- BIO_puts(bio_out, "DTLS1\n");
- #endif
- #if defined(OPENSSL_NO_DTLS1_2)
- BIO_puts(bio_out, "DTLS1_2\n");
- #endif
- #ifdef OPENSSL_NO_EC
- BIO_puts(bio_out, "EC\n");
- #endif
- #ifdef OPENSSL_NO_EC2M
- BIO_puts(bio_out, "EC2M\n");
- #endif
- #if defined(OPENSSL_NO_ENGINE) && !defined(OPENSSL_NO_DEPRECATED_3_0)
- BIO_puts(bio_out, "ENGINE\n");
- #endif
- #ifdef OPENSSL_NO_GOST
- BIO_puts(bio_out, "GOST\n");
- #endif
- #ifdef OPENSSL_NO_IDEA
- BIO_puts(bio_out, "IDEA\n");
- #endif
- #ifdef OPENSSL_NO_MD2
- BIO_puts(bio_out, "MD2\n");
- #endif
- #ifdef OPENSSL_NO_MD4
- BIO_puts(bio_out, "MD4\n");
- #endif
- #ifdef OPENSSL_NO_MD5
- BIO_puts(bio_out, "MD5\n");
- #endif
- #ifdef OPENSSL_NO_MDC2
- BIO_puts(bio_out, "MDC2\n");
- #endif
- #ifdef OPENSSL_NO_OCB
- BIO_puts(bio_out, "OCB\n");
- #endif
- #ifdef OPENSSL_NO_OCSP
- BIO_puts(bio_out, "OCSP\n");
- #endif
- #ifdef OPENSSL_NO_PSK
- BIO_puts(bio_out, "PSK\n");
- #endif
- #ifdef OPENSSL_NO_RC2
- BIO_puts(bio_out, "RC2\n");
- #endif
- #ifdef OPENSSL_NO_RC4
- BIO_puts(bio_out, "RC4\n");
- #endif
- #ifdef OPENSSL_NO_RC5
- BIO_puts(bio_out, "RC5\n");
- #endif
- #ifdef OPENSSL_NO_RMD160
- BIO_puts(bio_out, "RMD160\n");
- #endif
- #ifdef OPENSSL_NO_SCRYPT
- BIO_puts(bio_out, "SCRYPT\n");
- #endif
- #ifdef OPENSSL_NO_SCTP
- BIO_puts(bio_out, "SCTP\n");
- #endif
- #ifdef OPENSSL_NO_SEED
- BIO_puts(bio_out, "SEED\n");
- #endif
- #ifdef OPENSSL_NO_SM2
- BIO_puts(bio_out, "SM2\n");
- #endif
- #ifdef OPENSSL_NO_SM3
- BIO_puts(bio_out, "SM3\n");
- #endif
- #ifdef OPENSSL_NO_SM4
- BIO_puts(bio_out, "SM4\n");
- #endif
- #ifdef OPENSSL_NO_SOCK
- BIO_puts(bio_out, "SOCK\n");
- #endif
- #ifdef OPENSSL_NO_SRP
- BIO_puts(bio_out, "SRP\n");
- #endif
- #ifdef OPENSSL_NO_SRTP
- BIO_puts(bio_out, "SRTP\n");
- #endif
- #ifdef OPENSSL_NO_SSL3
- BIO_puts(bio_out, "SSL3\n");
- #endif
- #ifdef OPENSSL_NO_TLS1
- BIO_puts(bio_out, "TLS1\n");
- #endif
- #ifdef OPENSSL_NO_TLS1_1
- BIO_puts(bio_out, "TLS1_1\n");
- #endif
- #ifdef OPENSSL_NO_TLS1_2
- BIO_puts(bio_out, "TLS1_2\n");
- #endif
- #ifdef OPENSSL_NO_WHIRLPOOL
- BIO_puts(bio_out, "WHIRLPOOL\n");
- #endif
- #ifdef OPENSSL_NO_ZLIB
- BIO_puts(bio_out, "ZLIB\n");
- #endif
- #ifdef OPENSSL_NO_BROTLI
- BIO_puts(bio_out, "BROTLI\n");
- #endif
- #ifdef OPENSSL_NO_ZSTD
- BIO_puts(bio_out, "ZSTD\n");
- #endif
- }
- /* Unified enum for help and list commands. */
- typedef enum HELPLIST_CHOICE {
- OPT_COMMON,
- OPT_ONE, OPT_VERBOSE,
- OPT_ALL_ARGORITHMS,
- OPT_COMMANDS, OPT_DIGEST_COMMANDS, OPT_MAC_ALGORITHMS, OPT_OPTIONS,
- OPT_DIGEST_ALGORITHMS, OPT_CIPHER_COMMANDS, OPT_CIPHER_ALGORITHMS,
- OPT_PK_ALGORITHMS, OPT_PK_METHOD, OPT_DISABLED,
- OPT_KDF_ALGORITHMS, OPT_RANDOM_INSTANCES, OPT_RANDOM_GENERATORS,
- OPT_ENCODERS, OPT_DECODERS, OPT_KEYMANAGERS, OPT_KEYEXCHANGE_ALGORITHMS,
- OPT_KEM_ALGORITHMS, OPT_SIGNATURE_ALGORITHMS, OPT_ASYM_CIPHER_ALGORITHMS,
- OPT_STORE_LOADERS, OPT_PROVIDER_INFO,
- OPT_OBJECTS, OPT_SELECT_NAME,
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- OPT_ENGINES,
- #endif
- OPT_PROV_ENUM
- } HELPLIST_CHOICE;
- const OPTIONS list_options[] = {
- OPT_SECTION("General"),
- {"help", OPT_HELP, '-', "Display this summary"},
- OPT_SECTION("Output"),
- {"1", OPT_ONE, '-', "List in one column"},
- {"verbose", OPT_VERBOSE, '-', "Verbose listing"},
- {"select", OPT_SELECT_NAME, 's', "Select a single algorithm"},
- {"commands", OPT_COMMANDS, '-', "List of standard commands"},
- {"standard-commands", OPT_COMMANDS, '-', "List of standard commands"},
- {"all-algorithms", OPT_ALL_ARGORITHMS, '-', "List of all algorithms"},
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- {"digest-commands", OPT_DIGEST_COMMANDS, '-',
- "List of message digest commands (deprecated)"},
- #endif
- {"digest-algorithms", OPT_DIGEST_ALGORITHMS, '-',
- "List of message digest algorithms"},
- {"kdf-algorithms", OPT_KDF_ALGORITHMS, '-',
- "List of key derivation and pseudo random function algorithms"},
- {"random-instances", OPT_RANDOM_INSTANCES, '-',
- "List the primary, public and private random number generator details"},
- {"random-generators", OPT_RANDOM_GENERATORS, '-',
- "List of random number generators"},
- {"mac-algorithms", OPT_MAC_ALGORITHMS, '-',
- "List of message authentication code algorithms"},
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- {"cipher-commands", OPT_CIPHER_COMMANDS, '-',
- "List of cipher commands (deprecated)"},
- #endif
- {"cipher-algorithms", OPT_CIPHER_ALGORITHMS, '-',
- "List of symmetric cipher algorithms"},
- {"encoders", OPT_ENCODERS, '-', "List of encoding methods" },
- {"decoders", OPT_DECODERS, '-', "List of decoding methods" },
- {"key-managers", OPT_KEYMANAGERS, '-', "List of key managers" },
- {"key-exchange-algorithms", OPT_KEYEXCHANGE_ALGORITHMS, '-',
- "List of key exchange algorithms" },
- {"kem-algorithms", OPT_KEM_ALGORITHMS, '-',
- "List of key encapsulation mechanism algorithms" },
- {"signature-algorithms", OPT_SIGNATURE_ALGORITHMS, '-',
- "List of signature algorithms" },
- {"asymcipher-algorithms", OPT_ASYM_CIPHER_ALGORITHMS, '-',
- "List of asymmetric cipher algorithms" },
- {"public-key-algorithms", OPT_PK_ALGORITHMS, '-',
- "List of public key algorithms"},
- {"public-key-methods", OPT_PK_METHOD, '-',
- "List of public key methods"},
- {"store-loaders", OPT_STORE_LOADERS, '-',
- "List of store loaders"},
- {"providers", OPT_PROVIDER_INFO, '-',
- "List of provider information"},
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- {"engines", OPT_ENGINES, '-',
- "List of loaded engines"},
- #endif
- {"disabled", OPT_DISABLED, '-', "List of disabled features"},
- {"options", OPT_OPTIONS, 's',
- "List options for specified command"},
- {"objects", OPT_OBJECTS, '-',
- "List built in objects (OID<->name mappings)"},
- OPT_PROV_OPTIONS,
- {NULL}
- };
- int list_main(int argc, char **argv)
- {
- char *prog;
- HELPLIST_CHOICE o;
- int one = 0, done = 0;
- int print_newline = 0;
- struct {
- unsigned int commands:1;
- unsigned int all_algorithms:1;
- unsigned int random_instances:1;
- unsigned int random_generators:1;
- unsigned int digest_commands:1;
- unsigned int digest_algorithms:1;
- unsigned int kdf_algorithms:1;
- unsigned int mac_algorithms:1;
- unsigned int cipher_commands:1;
- unsigned int cipher_algorithms:1;
- unsigned int encoder_algorithms:1;
- unsigned int decoder_algorithms:1;
- unsigned int keymanager_algorithms:1;
- unsigned int signature_algorithms:1;
- unsigned int keyexchange_algorithms:1;
- unsigned int kem_algorithms:1;
- unsigned int asym_cipher_algorithms:1;
- unsigned int pk_algorithms:1;
- unsigned int pk_method:1;
- unsigned int store_loaders:1;
- unsigned int provider_info:1;
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- unsigned int engines:1;
- #endif
- unsigned int disabled:1;
- unsigned int objects:1;
- unsigned int options:1;
- } todo = { 0, };
- verbose = 0; /* Clear a possible previous call */
- prog = opt_init(argc, argv, list_options);
- while ((o = opt_next()) != OPT_EOF) {
- switch (o) {
- case OPT_EOF: /* Never hit, but suppresses warning */
- case OPT_ERR:
- opthelp:
- BIO_printf(bio_err, "%s: Use -help for summary.\n", prog);
- return 1;
- case OPT_HELP:
- opt_help(list_options);
- return 0;
- case OPT_ONE:
- one = 1;
- break;
- case OPT_ALL_ARGORITHMS:
- todo.all_algorithms = 1;
- break;
- case OPT_COMMANDS:
- todo.commands = 1;
- break;
- case OPT_DIGEST_COMMANDS:
- todo.digest_commands = 1;
- break;
- case OPT_DIGEST_ALGORITHMS:
- todo.digest_algorithms = 1;
- break;
- case OPT_KDF_ALGORITHMS:
- todo.kdf_algorithms = 1;
- break;
- case OPT_RANDOM_INSTANCES:
- todo.random_instances = 1;
- break;
- case OPT_RANDOM_GENERATORS:
- todo.random_generators = 1;
- break;
- case OPT_MAC_ALGORITHMS:
- todo.mac_algorithms = 1;
- break;
- case OPT_CIPHER_COMMANDS:
- todo.cipher_commands = 1;
- break;
- case OPT_CIPHER_ALGORITHMS:
- todo.cipher_algorithms = 1;
- break;
- case OPT_ENCODERS:
- todo.encoder_algorithms = 1;
- break;
- case OPT_DECODERS:
- todo.decoder_algorithms = 1;
- break;
- case OPT_KEYMANAGERS:
- todo.keymanager_algorithms = 1;
- break;
- case OPT_SIGNATURE_ALGORITHMS:
- todo.signature_algorithms = 1;
- break;
- case OPT_KEYEXCHANGE_ALGORITHMS:
- todo.keyexchange_algorithms = 1;
- break;
- case OPT_KEM_ALGORITHMS:
- todo.kem_algorithms = 1;
- break;
- case OPT_ASYM_CIPHER_ALGORITHMS:
- todo.asym_cipher_algorithms = 1;
- break;
- case OPT_PK_ALGORITHMS:
- todo.pk_algorithms = 1;
- break;
- case OPT_PK_METHOD:
- todo.pk_method = 1;
- break;
- case OPT_STORE_LOADERS:
- todo.store_loaders = 1;
- break;
- case OPT_PROVIDER_INFO:
- todo.provider_info = 1;
- break;
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- case OPT_ENGINES:
- todo.engines = 1;
- break;
- #endif
- case OPT_DISABLED:
- todo.disabled = 1;
- break;
- case OPT_OBJECTS:
- todo.objects = 1;
- break;
- case OPT_OPTIONS:
- list_options_for_command(opt_arg());
- break;
- case OPT_VERBOSE:
- verbose = 1;
- break;
- case OPT_SELECT_NAME:
- select_name = opt_arg();
- break;
- case OPT_PROV_CASES:
- if (!opt_provider(o))
- return 1;
- break;
- }
- done = 1;
- }
- /* No extra arguments. */
- if (!opt_check_rest_arg(NULL))
- goto opthelp;
- #define MAYBE_ADD_NL(cmd) \
- do { \
- if (print_newline++) { \
- BIO_printf(bio_out, "\n"); \
- } \
- cmd; \
- } while(0)
- if (todo.commands)
- MAYBE_ADD_NL(list_type(FT_general, one));
- if (todo.all_algorithms) {
- MAYBE_ADD_NL({});
- BIO_printf(bio_out, "Digests:\n");
- list_digests(" ");
- BIO_printf(bio_out, "\nSymmetric Ciphers:\n");
- list_ciphers(" ");
- BIO_printf(bio_out, "\n");
- list_kdfs();
- BIO_printf(bio_out, "\n");
- list_macs();
- BIO_printf(bio_out, "\nProvided Asymmetric Encryption:\n");
- list_asymciphers();
- BIO_printf(bio_out, "\nProvided Key Exchange:\n");
- list_keyexchanges();
- BIO_printf(bio_out, "\nProvided Signatures:\n");
- list_signatures();
- BIO_printf(bio_out, "\nProvided Key encapsulation:\n");
- list_kems();
- BIO_printf(bio_out, "\nProvided Key managers:\n");
- list_keymanagers();
- BIO_printf(bio_out, "\n");
- list_encoders();
- BIO_printf(bio_out, "\n");
- list_decoders();
- BIO_printf(bio_out, "\n");
- list_store_loaders();
- }
- if (todo.random_instances)
- MAYBE_ADD_NL(list_random_instances());
- if (todo.random_generators)
- MAYBE_ADD_NL(list_random_generators());
- if (todo.digest_commands)
- MAYBE_ADD_NL(list_type(FT_md, one));
- if (todo.digest_algorithms)
- MAYBE_ADD_NL(list_digests(""));
- if (todo.kdf_algorithms)
- MAYBE_ADD_NL(list_kdfs());
- if (todo.mac_algorithms)
- MAYBE_ADD_NL(list_macs());
- if (todo.cipher_commands)
- MAYBE_ADD_NL(list_type(FT_cipher, one));
- if (todo.cipher_algorithms)
- MAYBE_ADD_NL(list_ciphers(""));
- if (todo.encoder_algorithms)
- MAYBE_ADD_NL(list_encoders());
- if (todo.decoder_algorithms)
- MAYBE_ADD_NL(list_decoders());
- if (todo.keymanager_algorithms)
- MAYBE_ADD_NL(list_keymanagers());
- if (todo.signature_algorithms)
- MAYBE_ADD_NL(list_signatures());
- if (todo.asym_cipher_algorithms)
- MAYBE_ADD_NL(list_asymciphers());
- if (todo.keyexchange_algorithms)
- MAYBE_ADD_NL(list_keyexchanges());
- if (todo.kem_algorithms)
- MAYBE_ADD_NL(list_kems());
- if (todo.pk_algorithms)
- MAYBE_ADD_NL(list_pkey());
- if (todo.pk_method)
- MAYBE_ADD_NL(list_pkey_meth());
- if (todo.store_loaders)
- MAYBE_ADD_NL(list_store_loaders());
- if (todo.provider_info)
- MAYBE_ADD_NL(list_provider_info());
- #ifndef OPENSSL_NO_DEPRECATED_3_0
- if (todo.engines)
- MAYBE_ADD_NL(list_engines());
- #endif
- if (todo.disabled)
- MAYBE_ADD_NL(list_disabled());
- if (todo.objects)
- MAYBE_ADD_NL(list_objects());
- #undef MAYBE_ADD_NL
- if (!done)
- goto opthelp;
- return 0;
- }
|