Index: openssl/apps/openssl.c |
diff --git a/openssl/apps/openssl.c b/openssl/apps/openssl.c |
deleted file mode 100644 |
index 33b1655fa5f987b695ded2cad2a150e74e4c3a18..0000000000000000000000000000000000000000 |
--- a/openssl/apps/openssl.c |
+++ /dev/null |
@@ -1,730 +0,0 @@ |
-/* apps/openssl.c */ |
-/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) |
- * All rights reserved. |
- * |
- * This package is an SSL implementation written |
- * by Eric Young (eay@cryptsoft.com). |
- * The implementation was written so as to conform with Netscapes SSL. |
- * |
- * This library is free for commercial and non-commercial use as long as |
- * the following conditions are aheared to. The following conditions |
- * apply to all code found in this distribution, be it the RC4, RSA, |
- * lhash, DES, etc., code; not just the SSL code. The SSL documentation |
- * included with this distribution is covered by the same copyright terms |
- * except that the holder is Tim Hudson (tjh@cryptsoft.com). |
- * |
- * Copyright remains Eric Young's, and as such any Copyright notices in |
- * the code are not to be removed. |
- * If this package is used in a product, Eric Young should be given attribution |
- * as the author of the parts of the library used. |
- * This can be in the form of a textual message at program startup or |
- * in documentation (online or textual) provided with the package. |
- * |
- * Redistribution and use in source and binary forms, with or without |
- * modification, are permitted provided that the following conditions |
- * are met: |
- * 1. Redistributions of source code must retain the copyright |
- * notice, this list of conditions and the following disclaimer. |
- * 2. Redistributions in binary form must reproduce the above copyright |
- * notice, this list of conditions and the following disclaimer in the |
- * documentation and/or other materials provided with the distribution. |
- * 3. All advertising materials mentioning features or use of this software |
- * must display the following acknowledgement: |
- * "This product includes cryptographic software written by |
- * Eric Young (eay@cryptsoft.com)" |
- * The word 'cryptographic' can be left out if the rouines from the library |
- * being used are not cryptographic related :-). |
- * 4. If you include any Windows specific code (or a derivative thereof) from |
- * the apps directory (application code) you must include an acknowledgement: |
- * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" |
- * |
- * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND |
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
- * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE |
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
- * SUCH DAMAGE. |
- * |
- * The licence and distribution terms for any publically available version or |
- * derivative of this code cannot be changed. i.e. this code cannot simply be |
- * copied and put under another distribution licence |
- * [including the GNU Public Licence.] |
- */ |
-/* ==================================================================== |
- * Copyright (c) 1998-2006 The OpenSSL Project. All rights reserved. |
- * |
- * Redistribution and use in source and binary forms, with or without |
- * modification, are permitted provided that the following conditions |
- * are met: |
- * |
- * 1. Redistributions of source code must retain the above copyright |
- * notice, this list of conditions and the following disclaimer. |
- * |
- * 2. Redistributions in binary form must reproduce the above copyright |
- * notice, this list of conditions and the following disclaimer in |
- * the documentation and/or other materials provided with the |
- * distribution. |
- * |
- * 3. All advertising materials mentioning features or use of this |
- * software must display the following acknowledgment: |
- * "This product includes software developed by the OpenSSL Project |
- * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" |
- * |
- * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to |
- * endorse or promote products derived from this software without |
- * prior written permission. For written permission, please contact |
- * openssl-core@openssl.org. |
- * |
- * 5. Products derived from this software may not be called "OpenSSL" |
- * nor may "OpenSSL" appear in their names without prior written |
- * permission of the OpenSSL Project. |
- * |
- * 6. Redistributions of any form whatsoever must retain the following |
- * acknowledgment: |
- * "This product includes software developed by the OpenSSL Project |
- * for use in the OpenSSL Toolkit (http://www.openssl.org/)" |
- * |
- * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY |
- * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR |
- * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR |
- * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
- * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
- * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, |
- * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
- * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED |
- * OF THE POSSIBILITY OF SUCH DAMAGE. |
- * ==================================================================== |
- * |
- * This product includes cryptographic software written by Eric Young |
- * (eay@cryptsoft.com). This product includes software written by Tim |
- * Hudson (tjh@cryptsoft.com). |
- * |
- */ |
- |
- |
-#include <stdio.h> |
-#include <string.h> |
-#include <stdlib.h> |
-#define OPENSSL_C /* tells apps.h to use complete apps_startup() */ |
-#include "apps.h" |
-#include <openssl/bio.h> |
-#include <openssl/crypto.h> |
-#include <openssl/lhash.h> |
-#include <openssl/conf.h> |
-#include <openssl/x509.h> |
-#include <openssl/pem.h> |
-#include <openssl/ssl.h> |
-#ifndef OPENSSL_NO_ENGINE |
-#include <openssl/engine.h> |
-#endif |
-#define USE_SOCKETS /* needed for the _O_BINARY defs in the MS world */ |
-#include "progs.h" |
-#include "s_apps.h" |
-#include <openssl/err.h> |
-#ifdef OPENSSL_FIPS |
-#include <openssl/fips.h> |
-#endif |
- |
-/* The LHASH callbacks ("hash" & "cmp") have been replaced by functions with the |
- * base prototypes (we cast each variable inside the function to the required |
- * type of "FUNCTION*"). This removes the necessity for macro-generated wrapper |
- * functions. */ |
- |
-static LHASH_OF(FUNCTION) *prog_init(void ); |
-static int do_cmd(LHASH_OF(FUNCTION) *prog,int argc,char *argv[]); |
-static void list_pkey(BIO *out); |
-static void list_cipher(BIO *out); |
-static void list_md(BIO *out); |
-char *default_config_file=NULL; |
- |
-/* Make sure there is only one when MONOLITH is defined */ |
-#ifdef MONOLITH |
-CONF *config=NULL; |
-BIO *bio_err=NULL; |
-#endif |
- |
- |
-static void lock_dbg_cb(int mode, int type, const char *file, int line) |
- { |
- static int modes[CRYPTO_NUM_LOCKS]; /* = {0, 0, ... } */ |
- const char *errstr = NULL; |
- int rw; |
- |
- rw = mode & (CRYPTO_READ|CRYPTO_WRITE); |
- if (!((rw == CRYPTO_READ) || (rw == CRYPTO_WRITE))) |
- { |
- errstr = "invalid mode"; |
- goto err; |
- } |
- |
- if (type < 0 || type >= CRYPTO_NUM_LOCKS) |
- { |
- errstr = "type out of bounds"; |
- goto err; |
- } |
- |
- if (mode & CRYPTO_LOCK) |
- { |
- if (modes[type]) |
- { |
- errstr = "already locked"; |
- /* must not happen in a single-threaded program |
- * (would deadlock) */ |
- goto err; |
- } |
- |
- modes[type] = rw; |
- } |
- else if (mode & CRYPTO_UNLOCK) |
- { |
- if (!modes[type]) |
- { |
- errstr = "not locked"; |
- goto err; |
- } |
- |
- if (modes[type] != rw) |
- { |
- errstr = (rw == CRYPTO_READ) ? |
- "CRYPTO_r_unlock on write lock" : |
- "CRYPTO_w_unlock on read lock"; |
- } |
- |
- modes[type] = 0; |
- } |
- else |
- { |
- errstr = "invalid mode"; |
- goto err; |
- } |
- |
- err: |
- if (errstr) |
- { |
- /* we cannot use bio_err here */ |
- fprintf(stderr, "openssl (lock_dbg_cb): %s (mode=%d, type=%d) at %s:%d\n", |
- errstr, mode, type, file, line); |
- } |
- } |
- |
-#if defined( OPENSSL_SYS_VMS) && (__INITIAL_POINTER_SIZE == 64) |
-# define ARGV _Argv |
-#else |
-# define ARGV Argv |
-#endif |
- |
-int main(int Argc, char *ARGV[]) |
- { |
- ARGS arg; |
-#define PROG_NAME_SIZE 39 |
- char pname[PROG_NAME_SIZE+1]; |
- FUNCTION f,*fp; |
- MS_STATIC const char *prompt; |
- MS_STATIC char buf[1024]; |
- char *to_free=NULL; |
- int n,i,ret=0; |
- int argc; |
- char **argv,*p; |
- LHASH_OF(FUNCTION) *prog=NULL; |
- long errline; |
- |
-#if defined( OPENSSL_SYS_VMS) && (__INITIAL_POINTER_SIZE == 64) |
- /* 2011-03-22 SMS. |
- * If we have 32-bit pointers everywhere, then we're safe, and |
- * we bypass this mess, as on non-VMS systems. (See ARGV, |
- * above.) |
- * Problem 1: Compaq/HP C before V7.3 always used 32-bit |
- * pointers for argv[]. |
- * Fix 1: For a 32-bit argv[], when we're using 64-bit pointers |
- * everywhere else, we always allocate and use a 64-bit |
- * duplicate of argv[]. |
- * Problem 2: Compaq/HP C V7.3 (Alpha, IA64) before ECO1 failed |
- * to NULL-terminate a 64-bit argv[]. (As this was written, the |
- * compiler ECO was available only on IA64.) |
- * Fix 2: Unless advised not to (VMS_TRUST_ARGV), we test a |
- * 64-bit argv[argc] for NULL, and, if necessary, use a |
- * (properly) NULL-terminated (64-bit) duplicate of argv[]. |
- * The same code is used in either case to duplicate argv[]. |
- * Some of these decisions could be handled in preprocessing, |
- * but the code tends to get even uglier, and the penalty for |
- * deciding at compile- or run-time is tiny. |
- */ |
- char **Argv = NULL; |
- int free_Argv = 0; |
- |
- if ((sizeof( _Argv) < 8) /* 32-bit argv[]. */ |
-# if !defined( VMS_TRUST_ARGV) |
- || (_Argv[ Argc] != NULL) /* Untrusted argv[argc] not NULL. */ |
-# endif |
- ) |
- { |
- int i; |
- Argv = OPENSSL_malloc( (Argc+ 1)* sizeof( char *)); |
- if (Argv == NULL) |
- { ret = -1; goto end; } |
- for(i = 0; i < Argc; i++) |
- Argv[i] = _Argv[i]; |
- Argv[ Argc] = NULL; /* Certain NULL termination. */ |
- free_Argv = 1; |
- } |
- else |
- { |
- /* Use the known-good 32-bit argv[] (which needs the |
- * type cast to satisfy the compiler), or the trusted or |
- * tested-good 64-bit argv[] as-is. */ |
- Argv = (char **)_Argv; |
- } |
-#endif /* defined( OPENSSL_SYS_VMS) && (__INITIAL_POINTER_SIZE == 64) */ |
- |
- arg.data=NULL; |
- arg.count=0; |
- |
- if (bio_err == NULL) |
- if ((bio_err=BIO_new(BIO_s_file())) != NULL) |
- BIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT); |
- |
- if (getenv("OPENSSL_DEBUG_MEMORY") != NULL) /* if not defined, use compiled-in library defaults */ |
- { |
- if (!(0 == strcmp(getenv("OPENSSL_DEBUG_MEMORY"), "off"))) |
- { |
- CRYPTO_malloc_debug_init(); |
- CRYPTO_set_mem_debug_options(V_CRYPTO_MDEBUG_ALL); |
- } |
- else |
- { |
- /* OPENSSL_DEBUG_MEMORY=off */ |
- CRYPTO_set_mem_debug_functions(0, 0, 0, 0, 0); |
- } |
- } |
- CRYPTO_mem_ctrl(CRYPTO_MEM_CHECK_ON); |
- |
-#if 0 |
- if (getenv("OPENSSL_DEBUG_LOCKING") != NULL) |
-#endif |
- { |
- CRYPTO_set_locking_callback(lock_dbg_cb); |
- } |
- |
- if(getenv("OPENSSL_FIPS")) { |
-#ifdef OPENSSL_FIPS |
- if (!FIPS_mode_set(1)) { |
- ERR_load_crypto_strings(); |
- ERR_print_errors(BIO_new_fp(stderr,BIO_NOCLOSE)); |
- EXIT(1); |
- } |
-#else |
- fprintf(stderr, "FIPS mode not supported.\n"); |
- EXIT(1); |
-#endif |
- } |
- |
- apps_startup(); |
- |
- /* Lets load up our environment a little */ |
- p=getenv("OPENSSL_CONF"); |
- if (p == NULL) |
- p=getenv("SSLEAY_CONF"); |
- if (p == NULL) |
- p=to_free=make_config_name(); |
- |
- default_config_file=p; |
- |
- config=NCONF_new(NULL); |
- i=NCONF_load(config,p,&errline); |
- if (i == 0) |
- { |
- if (ERR_GET_REASON(ERR_peek_last_error()) |
- == CONF_R_NO_SUCH_FILE) |
- { |
-#if 0 /* ANDROID */ |
- BIO_printf(bio_err, |
- "WARNING: can't open config file: %s\n",p); |
-#endif |
- ERR_clear_error(); |
- NCONF_free(config); |
- config = NULL; |
- } |
- else |
- { |
- ERR_print_errors(bio_err); |
- NCONF_free(config); |
- exit(1); |
- } |
- } |
- |
- prog=prog_init(); |
- |
- /* first check the program name */ |
- program_name(Argv[0],pname,sizeof pname); |
- |
- f.name=pname; |
- fp=lh_FUNCTION_retrieve(prog,&f); |
- if (fp != NULL) |
- { |
- Argv[0]=pname; |
- ret=fp->func(Argc,Argv); |
- goto end; |
- } |
- |
- /* ok, now check that there are not arguments, if there are, |
- * run with them, shifting the ssleay off the front */ |
- if (Argc != 1) |
- { |
- Argc--; |
- Argv++; |
- ret=do_cmd(prog,Argc,Argv); |
- if (ret < 0) ret=0; |
- goto end; |
- } |
- |
- /* ok, lets enter the old 'OpenSSL>' mode */ |
- |
- for (;;) |
- { |
- ret=0; |
- p=buf; |
- n=sizeof buf; |
- i=0; |
- for (;;) |
- { |
- p[0]='\0'; |
- if (i++) |
- prompt=">"; |
- else prompt="OpenSSL> "; |
- fputs(prompt,stdout); |
- fflush(stdout); |
- if (!fgets(p,n,stdin)) |
- goto end; |
- if (p[0] == '\0') goto end; |
- i=strlen(p); |
- if (i <= 1) break; |
- if (p[i-2] != '\\') break; |
- i-=2; |
- p+=i; |
- n-=i; |
- } |
- if (!chopup_args(&arg,buf,&argc,&argv)) break; |
- |
- ret=do_cmd(prog,argc,argv); |
- if (ret < 0) |
- { |
- ret=0; |
- goto end; |
- } |
- if (ret != 0) |
- BIO_printf(bio_err,"error in %s\n",argv[0]); |
- (void)BIO_flush(bio_err); |
- } |
- BIO_printf(bio_err,"bad exit\n"); |
- ret=1; |
-end: |
- if (to_free) |
- OPENSSL_free(to_free); |
- if (config != NULL) |
- { |
- NCONF_free(config); |
- config=NULL; |
- } |
- if (prog != NULL) lh_FUNCTION_free(prog); |
- if (arg.data != NULL) OPENSSL_free(arg.data); |
- |
- apps_shutdown(); |
- |
- CRYPTO_mem_leaks(bio_err); |
- if (bio_err != NULL) |
- { |
- BIO_free(bio_err); |
- bio_err=NULL; |
- } |
-#if defined( OPENSSL_SYS_VMS) && (__INITIAL_POINTER_SIZE == 64) |
- /* Free any duplicate Argv[] storage. */ |
- if (free_Argv) |
- { |
- OPENSSL_free(Argv); |
- } |
-#endif |
- OPENSSL_EXIT(ret); |
- } |
- |
-#define LIST_STANDARD_COMMANDS "list-standard-commands" |
-#define LIST_MESSAGE_DIGEST_COMMANDS "list-message-digest-commands" |
-#define LIST_MESSAGE_DIGEST_ALGORITHMS "list-message-digest-algorithms" |
-#define LIST_CIPHER_COMMANDS "list-cipher-commands" |
-#define LIST_CIPHER_ALGORITHMS "list-cipher-algorithms" |
-#define LIST_PUBLIC_KEY_ALGORITHMS "list-public-key-algorithms" |
- |
- |
-static int do_cmd(LHASH_OF(FUNCTION) *prog, int argc, char *argv[]) |
- { |
- FUNCTION f,*fp; |
- int i,ret=1,tp,nl; |
- |
- if ((argc <= 0) || (argv[0] == NULL)) |
- { ret=0; goto end; } |
- f.name=argv[0]; |
- fp=lh_FUNCTION_retrieve(prog,&f); |
- if (fp == NULL) |
- { |
- if (EVP_get_digestbyname(argv[0])) |
- { |
- f.type = FUNC_TYPE_MD; |
- f.func = dgst_main; |
- fp = &f; |
- } |
- else if (EVP_get_cipherbyname(argv[0])) |
- { |
- f.type = FUNC_TYPE_CIPHER; |
- f.func = enc_main; |
- fp = &f; |
- } |
- } |
- if (fp != NULL) |
- { |
- ret=fp->func(argc,argv); |
- } |
- else if ((strncmp(argv[0],"no-",3)) == 0) |
- { |
- BIO *bio_stdout = BIO_new_fp(stdout,BIO_NOCLOSE); |
-#ifdef OPENSSL_SYS_VMS |
- { |
- BIO *tmpbio = BIO_new(BIO_f_linebuffer()); |
- bio_stdout = BIO_push(tmpbio, bio_stdout); |
- } |
-#endif |
- f.name=argv[0]+3; |
- ret = (lh_FUNCTION_retrieve(prog,&f) != NULL); |
- if (!ret) |
- BIO_printf(bio_stdout, "%s\n", argv[0]); |
- else |
- BIO_printf(bio_stdout, "%s\n", argv[0]+3); |
- BIO_free_all(bio_stdout); |
- goto end; |
- } |
- else if ((strcmp(argv[0],"quit") == 0) || |
- (strcmp(argv[0],"q") == 0) || |
- (strcmp(argv[0],"exit") == 0) || |
- (strcmp(argv[0],"bye") == 0)) |
- { |
- ret= -1; |
- goto end; |
- } |
- else if ((strcmp(argv[0],LIST_STANDARD_COMMANDS) == 0) || |
- (strcmp(argv[0],LIST_MESSAGE_DIGEST_COMMANDS) == 0) || |
- (strcmp(argv[0],LIST_MESSAGE_DIGEST_ALGORITHMS) == 0) || |
- (strcmp(argv[0],LIST_CIPHER_COMMANDS) == 0) || |
- (strcmp(argv[0],LIST_CIPHER_ALGORITHMS) == 0) || |
- (strcmp(argv[0],LIST_PUBLIC_KEY_ALGORITHMS) == 0)) |
- { |
- int list_type; |
- BIO *bio_stdout; |
- |
- if (strcmp(argv[0],LIST_STANDARD_COMMANDS) == 0) |
- list_type = FUNC_TYPE_GENERAL; |
- else if (strcmp(argv[0],LIST_MESSAGE_DIGEST_COMMANDS) == 0) |
- list_type = FUNC_TYPE_MD; |
- else if (strcmp(argv[0],LIST_MESSAGE_DIGEST_ALGORITHMS) == 0) |
- list_type = FUNC_TYPE_MD_ALG; |
- else if (strcmp(argv[0],LIST_PUBLIC_KEY_ALGORITHMS) == 0) |
- list_type = FUNC_TYPE_PKEY; |
- else if (strcmp(argv[0],LIST_CIPHER_ALGORITHMS) == 0) |
- list_type = FUNC_TYPE_CIPHER_ALG; |
- else /* strcmp(argv[0],LIST_CIPHER_COMMANDS) == 0 */ |
- list_type = FUNC_TYPE_CIPHER; |
- bio_stdout = BIO_new_fp(stdout,BIO_NOCLOSE); |
-#ifdef OPENSSL_SYS_VMS |
- { |
- BIO *tmpbio = BIO_new(BIO_f_linebuffer()); |
- bio_stdout = BIO_push(tmpbio, bio_stdout); |
- } |
-#endif |
- |
- if (!load_config(bio_err, NULL)) |
- goto end; |
- |
- if (list_type == FUNC_TYPE_PKEY) |
- list_pkey(bio_stdout); |
- if (list_type == FUNC_TYPE_MD_ALG) |
- list_md(bio_stdout); |
- if (list_type == FUNC_TYPE_CIPHER_ALG) |
- list_cipher(bio_stdout); |
- else |
- { |
- for (fp=functions; fp->name != NULL; fp++) |
- if (fp->type == list_type) |
- BIO_printf(bio_stdout, "%s\n", |
- fp->name); |
- } |
- BIO_free_all(bio_stdout); |
- ret=0; |
- goto end; |
- } |
- else |
- { |
- BIO_printf(bio_err,"openssl:Error: '%s' is an invalid command.\n", |
- argv[0]); |
- BIO_printf(bio_err, "\nStandard commands"); |
- i=0; |
- tp=0; |
- for (fp=functions; fp->name != NULL; fp++) |
- { |
- nl=0; |
-#ifdef OPENSSL_NO_CAMELLIA |
- if (((i++) % 5) == 0) |
-#else |
- if (((i++) % 4) == 0) |
-#endif |
- { |
- BIO_printf(bio_err,"\n"); |
- nl=1; |
- } |
- if (fp->type != tp) |
- { |
- tp=fp->type; |
- if (!nl) BIO_printf(bio_err,"\n"); |
- if (tp == FUNC_TYPE_MD) |
- { |
- i=1; |
- BIO_printf(bio_err, |
- "\nMessage Digest commands (see the `dgst' command for more details)\n"); |
- } |
- else if (tp == FUNC_TYPE_CIPHER) |
- { |
- i=1; |
- BIO_printf(bio_err,"\nCipher commands (see the `enc' command for more details)\n"); |
- } |
- } |
-#ifdef OPENSSL_NO_CAMELLIA |
- BIO_printf(bio_err,"%-15s",fp->name); |
-#else |
- BIO_printf(bio_err,"%-18s",fp->name); |
-#endif |
- } |
- BIO_printf(bio_err,"\n\n"); |
- ret=0; |
- } |
-end: |
- return(ret); |
- } |
- |
-static int SortFnByName(const void *_f1,const void *_f2) |
- { |
- const FUNCTION *f1=_f1; |
- const FUNCTION *f2=_f2; |
- |
- if(f1->type != f2->type) |
- return f1->type-f2->type; |
- return strcmp(f1->name,f2->name); |
- } |
- |
-static void list_pkey(BIO *out) |
- { |
- int i; |
- 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(out, "Name: %s\n", |
- OBJ_nid2ln(pkey_id)); |
- BIO_printf(out, "\tType: Alias to %s\n", |
- OBJ_nid2ln(pkey_base_id)); |
- } |
- else |
- { |
- BIO_printf(out, "Name: %s\n", pinfo); |
- BIO_printf(out, "\tType: %s Algorithm\n", |
- pkey_flags & ASN1_PKEY_DYNAMIC ? |
- "External" : "Builtin"); |
- BIO_printf(out, "\tOID: %s\n", OBJ_nid2ln(pkey_id)); |
- if (pem_str == NULL) |
- pem_str = "(none)"; |
- BIO_printf(out, "\tPEM string: %s\n", pem_str); |
- } |
- |
- } |
- } |
- |
-static void list_cipher_fn(const EVP_CIPHER *c, |
- const char *from, const char *to, void *arg) |
- { |
- if (c) |
- BIO_printf(arg, "%s\n", EVP_CIPHER_name(c)); |
- else |
- { |
- if (!from) |
- from = "<undefined>"; |
- if (!to) |
- to = "<undefined>"; |
- BIO_printf(arg, "%s => %s\n", from, to); |
- } |
- } |
- |
-static void list_cipher(BIO *out) |
- { |
- EVP_CIPHER_do_all_sorted(list_cipher_fn, out); |
- } |
- |
-static void list_md_fn(const EVP_MD *m, |
- const char *from, const char *to, void *arg) |
- { |
- if (m) |
- BIO_printf(arg, "%s\n", EVP_MD_name(m)); |
- else |
- { |
- if (!from) |
- from = "<undefined>"; |
- if (!to) |
- to = "<undefined>"; |
- BIO_printf(arg, "%s => %s\n", from, to); |
- } |
- } |
- |
-static void list_md(BIO *out) |
- { |
- EVP_MD_do_all_sorted(list_md_fn, out); |
- } |
- |
-static int MS_CALLBACK function_cmp(const FUNCTION *a, const FUNCTION *b) |
- { |
- return strncmp(a->name,b->name,8); |
- } |
-static IMPLEMENT_LHASH_COMP_FN(function, FUNCTION) |
- |
-static unsigned long MS_CALLBACK function_hash(const FUNCTION *a) |
- { |
- return lh_strhash(a->name); |
- } |
-static IMPLEMENT_LHASH_HASH_FN(function, FUNCTION) |
- |
-static LHASH_OF(FUNCTION) *prog_init(void) |
- { |
- LHASH_OF(FUNCTION) *ret; |
- FUNCTION *f; |
- size_t i; |
- |
- /* Purely so it looks nice when the user hits ? */ |
- for(i=0,f=functions ; f->name != NULL ; ++f,++i) |
- ; |
- qsort(functions,i,sizeof *functions,SortFnByName); |
- |
- if ((ret=lh_FUNCTION_new()) == NULL) |
- return(NULL); |
- |
- for (f=functions; f->name != NULL; f++) |
- (void)lh_FUNCTION_insert(ret,f); |
- return(ret); |
- } |
- |