10Sstevel@tonic-gate /* apps/ciphers.c */
20Sstevel@tonic-gate /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
30Sstevel@tonic-gate * All rights reserved.
40Sstevel@tonic-gate *
50Sstevel@tonic-gate * This package is an SSL implementation written
60Sstevel@tonic-gate * by Eric Young (eay@cryptsoft.com).
70Sstevel@tonic-gate * The implementation was written so as to conform with Netscapes SSL.
80Sstevel@tonic-gate *
90Sstevel@tonic-gate * This library is free for commercial and non-commercial use as long as
100Sstevel@tonic-gate * the following conditions are aheared to. The following conditions
110Sstevel@tonic-gate * apply to all code found in this distribution, be it the RC4, RSA,
120Sstevel@tonic-gate * lhash, DES, etc., code; not just the SSL code. The SSL documentation
130Sstevel@tonic-gate * included with this distribution is covered by the same copyright terms
140Sstevel@tonic-gate * except that the holder is Tim Hudson (tjh@cryptsoft.com).
150Sstevel@tonic-gate *
160Sstevel@tonic-gate * Copyright remains Eric Young's, and as such any Copyright notices in
170Sstevel@tonic-gate * the code are not to be removed.
180Sstevel@tonic-gate * If this package is used in a product, Eric Young should be given attribution
190Sstevel@tonic-gate * as the author of the parts of the library used.
200Sstevel@tonic-gate * This can be in the form of a textual message at program startup or
210Sstevel@tonic-gate * in documentation (online or textual) provided with the package.
220Sstevel@tonic-gate *
230Sstevel@tonic-gate * Redistribution and use in source and binary forms, with or without
240Sstevel@tonic-gate * modification, are permitted provided that the following conditions
250Sstevel@tonic-gate * are met:
260Sstevel@tonic-gate * 1. Redistributions of source code must retain the copyright
270Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer.
280Sstevel@tonic-gate * 2. Redistributions in binary form must reproduce the above copyright
290Sstevel@tonic-gate * notice, this list of conditions and the following disclaimer in the
300Sstevel@tonic-gate * documentation and/or other materials provided with the distribution.
310Sstevel@tonic-gate * 3. All advertising materials mentioning features or use of this software
320Sstevel@tonic-gate * must display the following acknowledgement:
330Sstevel@tonic-gate * "This product includes cryptographic software written by
340Sstevel@tonic-gate * Eric Young (eay@cryptsoft.com)"
350Sstevel@tonic-gate * The word 'cryptographic' can be left out if the rouines from the library
360Sstevel@tonic-gate * being used are not cryptographic related :-).
370Sstevel@tonic-gate * 4. If you include any Windows specific code (or a derivative thereof) from
380Sstevel@tonic-gate * the apps directory (application code) you must include an acknowledgement:
390Sstevel@tonic-gate * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
400Sstevel@tonic-gate *
410Sstevel@tonic-gate * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
420Sstevel@tonic-gate * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
430Sstevel@tonic-gate * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
440Sstevel@tonic-gate * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
450Sstevel@tonic-gate * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
460Sstevel@tonic-gate * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
470Sstevel@tonic-gate * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
480Sstevel@tonic-gate * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
490Sstevel@tonic-gate * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
500Sstevel@tonic-gate * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
510Sstevel@tonic-gate * SUCH DAMAGE.
520Sstevel@tonic-gate *
530Sstevel@tonic-gate * The licence and distribution terms for any publically available version or
540Sstevel@tonic-gate * derivative of this code cannot be changed. i.e. this code cannot simply be
550Sstevel@tonic-gate * copied and put under another distribution licence
560Sstevel@tonic-gate * [including the GNU Public Licence.]
570Sstevel@tonic-gate */
580Sstevel@tonic-gate
590Sstevel@tonic-gate #include <stdio.h>
600Sstevel@tonic-gate #include <stdlib.h>
610Sstevel@tonic-gate #include <string.h>
620Sstevel@tonic-gate #ifdef OPENSSL_NO_STDIO
630Sstevel@tonic-gate #define APPS_WIN16
640Sstevel@tonic-gate #endif
650Sstevel@tonic-gate #include "apps.h"
660Sstevel@tonic-gate #include <openssl/err.h>
670Sstevel@tonic-gate #include <openssl/ssl.h>
680Sstevel@tonic-gate
690Sstevel@tonic-gate #undef PROG
700Sstevel@tonic-gate #define PROG ciphers_main
710Sstevel@tonic-gate
72*2139Sjp161948 static const char *ciphers_usage[]={
730Sstevel@tonic-gate "usage: ciphers args\n",
740Sstevel@tonic-gate " -v - verbose mode, a textual listing of the ciphers in SSLeay\n",
750Sstevel@tonic-gate " -ssl2 - SSL2 mode\n",
760Sstevel@tonic-gate " -ssl3 - SSL3 mode\n",
770Sstevel@tonic-gate " -tls1 - TLS1 mode\n",
780Sstevel@tonic-gate NULL
790Sstevel@tonic-gate };
800Sstevel@tonic-gate
810Sstevel@tonic-gate int MAIN(int, char **);
820Sstevel@tonic-gate
MAIN(int argc,char ** argv)830Sstevel@tonic-gate int MAIN(int argc, char **argv)
840Sstevel@tonic-gate {
850Sstevel@tonic-gate int ret=1,i;
860Sstevel@tonic-gate int verbose=0;
87*2139Sjp161948 const char **pp;
880Sstevel@tonic-gate const char *p;
890Sstevel@tonic-gate int badops=0;
900Sstevel@tonic-gate SSL_CTX *ctx=NULL;
910Sstevel@tonic-gate SSL *ssl=NULL;
920Sstevel@tonic-gate char *ciphers=NULL;
930Sstevel@tonic-gate SSL_METHOD *meth=NULL;
940Sstevel@tonic-gate STACK_OF(SSL_CIPHER) *sk;
950Sstevel@tonic-gate char buf[512];
960Sstevel@tonic-gate BIO *STDout=NULL;
970Sstevel@tonic-gate
980Sstevel@tonic-gate #if !defined(OPENSSL_NO_SSL2) && !defined(OPENSSL_NO_SSL3)
990Sstevel@tonic-gate meth=SSLv23_server_method();
1000Sstevel@tonic-gate #elif !defined(OPENSSL_NO_SSL3)
1010Sstevel@tonic-gate meth=SSLv3_server_method();
1020Sstevel@tonic-gate #elif !defined(OPENSSL_NO_SSL2)
1030Sstevel@tonic-gate meth=SSLv2_server_method();
1040Sstevel@tonic-gate #endif
1050Sstevel@tonic-gate
1060Sstevel@tonic-gate apps_startup();
1070Sstevel@tonic-gate
1080Sstevel@tonic-gate if (bio_err == NULL)
1090Sstevel@tonic-gate bio_err=BIO_new_fp(stderr,BIO_NOCLOSE);
1100Sstevel@tonic-gate STDout=BIO_new_fp(stdout,BIO_NOCLOSE);
1110Sstevel@tonic-gate #ifdef OPENSSL_SYS_VMS
1120Sstevel@tonic-gate {
1130Sstevel@tonic-gate BIO *tmpbio = BIO_new(BIO_f_linebuffer());
1140Sstevel@tonic-gate STDout = BIO_push(tmpbio, STDout);
1150Sstevel@tonic-gate }
1160Sstevel@tonic-gate #endif
1170Sstevel@tonic-gate
1180Sstevel@tonic-gate argc--;
1190Sstevel@tonic-gate argv++;
1200Sstevel@tonic-gate while (argc >= 1)
1210Sstevel@tonic-gate {
1220Sstevel@tonic-gate if (strcmp(*argv,"-v") == 0)
1230Sstevel@tonic-gate verbose=1;
1240Sstevel@tonic-gate #ifndef OPENSSL_NO_SSL2
1250Sstevel@tonic-gate else if (strcmp(*argv,"-ssl2") == 0)
1260Sstevel@tonic-gate meth=SSLv2_client_method();
1270Sstevel@tonic-gate #endif
1280Sstevel@tonic-gate #ifndef OPENSSL_NO_SSL3
1290Sstevel@tonic-gate else if (strcmp(*argv,"-ssl3") == 0)
1300Sstevel@tonic-gate meth=SSLv3_client_method();
1310Sstevel@tonic-gate #endif
1320Sstevel@tonic-gate #ifndef OPENSSL_NO_TLS1
1330Sstevel@tonic-gate else if (strcmp(*argv,"-tls1") == 0)
1340Sstevel@tonic-gate meth=TLSv1_client_method();
1350Sstevel@tonic-gate #endif
1360Sstevel@tonic-gate else if ((strncmp(*argv,"-h",2) == 0) ||
1370Sstevel@tonic-gate (strcmp(*argv,"-?") == 0))
1380Sstevel@tonic-gate {
1390Sstevel@tonic-gate badops=1;
1400Sstevel@tonic-gate break;
1410Sstevel@tonic-gate }
1420Sstevel@tonic-gate else
1430Sstevel@tonic-gate {
1440Sstevel@tonic-gate ciphers= *argv;
1450Sstevel@tonic-gate }
1460Sstevel@tonic-gate argc--;
1470Sstevel@tonic-gate argv++;
1480Sstevel@tonic-gate }
1490Sstevel@tonic-gate
1500Sstevel@tonic-gate if (badops)
1510Sstevel@tonic-gate {
1520Sstevel@tonic-gate for (pp=ciphers_usage; (*pp != NULL); pp++)
1530Sstevel@tonic-gate BIO_printf(bio_err,"%s",*pp);
1540Sstevel@tonic-gate goto end;
1550Sstevel@tonic-gate }
1560Sstevel@tonic-gate
1570Sstevel@tonic-gate OpenSSL_add_ssl_algorithms();
1580Sstevel@tonic-gate
1590Sstevel@tonic-gate ctx=SSL_CTX_new(meth);
1600Sstevel@tonic-gate if (ctx == NULL) goto err;
1610Sstevel@tonic-gate if (ciphers != NULL) {
1620Sstevel@tonic-gate if(!SSL_CTX_set_cipher_list(ctx,ciphers)) {
1630Sstevel@tonic-gate BIO_printf(bio_err, "Error in cipher list\n");
1640Sstevel@tonic-gate goto err;
1650Sstevel@tonic-gate }
1660Sstevel@tonic-gate }
1670Sstevel@tonic-gate ssl=SSL_new(ctx);
1680Sstevel@tonic-gate if (ssl == NULL) goto err;
1690Sstevel@tonic-gate
1700Sstevel@tonic-gate
1710Sstevel@tonic-gate if (!verbose)
1720Sstevel@tonic-gate {
1730Sstevel@tonic-gate for (i=0; ; i++)
1740Sstevel@tonic-gate {
1750Sstevel@tonic-gate p=SSL_get_cipher_list(ssl,i);
1760Sstevel@tonic-gate if (p == NULL) break;
1770Sstevel@tonic-gate if (i != 0) BIO_printf(STDout,":");
1780Sstevel@tonic-gate BIO_printf(STDout,"%s",p);
1790Sstevel@tonic-gate }
1800Sstevel@tonic-gate BIO_printf(STDout,"\n");
1810Sstevel@tonic-gate }
1820Sstevel@tonic-gate else
1830Sstevel@tonic-gate {
1840Sstevel@tonic-gate sk=SSL_get_ciphers(ssl);
1850Sstevel@tonic-gate
1860Sstevel@tonic-gate for (i=0; i<sk_SSL_CIPHER_num(sk); i++)
1870Sstevel@tonic-gate {
1880Sstevel@tonic-gate BIO_puts(STDout,SSL_CIPHER_description(
1890Sstevel@tonic-gate sk_SSL_CIPHER_value(sk,i),
1900Sstevel@tonic-gate buf,sizeof buf));
1910Sstevel@tonic-gate }
1920Sstevel@tonic-gate }
1930Sstevel@tonic-gate
1940Sstevel@tonic-gate ret=0;
1950Sstevel@tonic-gate if (0)
1960Sstevel@tonic-gate {
1970Sstevel@tonic-gate err:
1980Sstevel@tonic-gate SSL_load_error_strings();
1990Sstevel@tonic-gate ERR_print_errors(bio_err);
2000Sstevel@tonic-gate }
2010Sstevel@tonic-gate end:
2020Sstevel@tonic-gate if (ctx != NULL) SSL_CTX_free(ctx);
2030Sstevel@tonic-gate if (ssl != NULL) SSL_free(ssl);
2040Sstevel@tonic-gate if (STDout != NULL) BIO_free_all(STDout);
2050Sstevel@tonic-gate apps_shutdown();
2060Sstevel@tonic-gate OPENSSL_EXIT(ret);
2070Sstevel@tonic-gate }
2080Sstevel@tonic-gate
209