1/* apps/s_client.c */ 2/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) 3 * All rights reserved. 4 * 5 * This package is an SSL implementation written 6 * by Eric Young (eay@cryptsoft.com). 7 * The implementation was written so as to conform with Netscapes SSL. 8 * 9 * This library is free for commercial and non-commercial use as long as 10 * the following conditions are aheared to. The following conditions 11 * apply to all code found in this distribution, be it the RC4, RSA, 12 * lhash, DES, etc., code; not just the SSL code. The SSL documentation 13 * included with this distribution is covered by the same copyright terms 14 * except that the holder is Tim Hudson (tjh@cryptsoft.com). 15 * 16 * Copyright remains Eric Young's, and as such any Copyright notices in 17 * the code are not to be removed. 18 * If this package is used in a product, Eric Young should be given attribution 19 * as the author of the parts of the library used. 20 * This can be in the form of a textual message at program startup or 21 * in documentation (online or textual) provided with the package. 22 * 23 * Redistribution and use in source and binary forms, with or without 24 * modification, are permitted provided that the following conditions 25 * are met: 26 * 1. Redistributions of source code must retain the copyright 27 * notice, this list of conditions and the following disclaimer. 28 * 2. Redistributions in binary form must reproduce the above copyright 29 * notice, this list of conditions and the following disclaimer in the 30 * documentation and/or other materials provided with the distribution. 31 * 3. All advertising materials mentioning features or use of this software 32 * must display the following acknowledgement: 33 * "This product includes cryptographic software written by 34 * Eric Young (eay@cryptsoft.com)" 35 * The word 'cryptographic' can be left out if the rouines from the library 36 * being used are not cryptographic related :-). 37 * 4. If you include any Windows specific code (or a derivative thereof) from 38 * the apps directory (application code) you must include an acknowledgement: 39 * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" 40 * 41 * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND 42 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 43 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 44 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 45 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 46 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 47 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 48 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 49 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 50 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 51 * SUCH DAMAGE. 52 * 53 * The licence and distribution terms for any publically available version or 54 * derivative of this code cannot be changed. i.e. this code cannot simply be 55 * copied and put under another distribution licence 56 * [including the GNU Public Licence.] 57 */ 58/* ==================================================================== 59 * Copyright (c) 1998-2001 The OpenSSL Project. All rights reserved. 60 * 61 * Redistribution and use in source and binary forms, with or without 62 * modification, are permitted provided that the following conditions 63 * are met: 64 * 65 * 1. Redistributions of source code must retain the above copyright 66 * notice, this list of conditions and the following disclaimer. 67 * 68 * 2. Redistributions in binary form must reproduce the above copyright 69 * notice, this list of conditions and the following disclaimer in 70 * the documentation and/or other materials provided with the 71 * distribution. 72 * 73 * 3. All advertising materials mentioning features or use of this 74 * software must display the following acknowledgment: 75 * "This product includes software developed by the OpenSSL Project 76 * for use in the OpenSSL Toolkit. (http://www.openssl.org/)" 77 * 78 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to 79 * endorse or promote products derived from this software without 80 * prior written permission. For written permission, please contact 81 * openssl-core@openssl.org. 82 * 83 * 5. Products derived from this software may not be called "OpenSSL" 84 * nor may "OpenSSL" appear in their names without prior written 85 * permission of the OpenSSL Project. 86 * 87 * 6. Redistributions of any form whatsoever must retain the following 88 * acknowledgment: 89 * "This product includes software developed by the OpenSSL Project 90 * for use in the OpenSSL Toolkit (http://www.openssl.org/)" 91 * 92 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY 93 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 94 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 95 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR 96 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 97 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 98 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 99 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 100 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 101 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 102 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED 103 * OF THE POSSIBILITY OF SUCH DAMAGE. 104 * ==================================================================== 105 * 106 * This product includes cryptographic software written by Eric Young 107 * (eay@cryptsoft.com). This product includes software written by Tim 108 * Hudson (tjh@cryptsoft.com). 109 * 110 */ 111 112#include <assert.h> 113#include <stdio.h> 114#include <stdlib.h> 115#include <string.h> 116#include <openssl/e_os2.h> 117#ifdef OPENSSL_NO_STDIO 118#define APPS_WIN16 119#endif 120 121/* With IPv6, it looks like Digital has mixed up the proper order of 122 recursive header file inclusion, resulting in the compiler complaining 123 that u_int isn't defined, but only if _POSIX_C_SOURCE is defined, which 124 is needed to have fileno() declared correctly... So let's define u_int */ 125#if defined(OPENSSL_SYS_VMS_DECC) && !defined(__U_INT) 126#define __U_INT 127typedef unsigned int u_int; 128#endif 129 130#define USE_SOCKETS 131#include "apps.h" 132#include <openssl/x509.h> 133#include <openssl/ssl.h> 134#include <openssl/err.h> 135#include <openssl/pem.h> 136#include <openssl/rand.h> 137#include "s_apps.h" 138#include "timeouts.h" 139 140#ifdef OPENSSL_SYS_WINCE 141/* Windows CE incorrectly defines fileno as returning void*, so to avoid problems below... */ 142#ifdef fileno 143#undef fileno 144#endif 145#define fileno(a) (int)_fileno(a) 146#endif 147 148 149#if (defined(OPENSSL_SYS_VMS) && __VMS_VER < 70000000) 150/* FIONBIO used as a switch to enable ioctl, and that isn't in VMS < 7.0 */ 151#undef FIONBIO 152#endif 153 154#undef PROG 155#define PROG s_client_main 156 157/*#define SSL_HOST_NAME "www.netscape.com" */ 158/*#define SSL_HOST_NAME "193.118.187.102" */ 159#define SSL_HOST_NAME "localhost" 160 161/*#define TEST_CERT "client.pem" */ /* no default cert. */ 162 163#undef BUFSIZZ 164#define BUFSIZZ 1024*8 165 166extern int verify_depth; 167extern int verify_error; 168 169#ifdef FIONBIO 170static int c_nbio=0; 171#endif 172static int c_Pause=0; 173static int c_debug=0; 174static int c_msg=0; 175static int c_showcerts=0; 176 177static void sc_usage(void); 178static void print_stuff(BIO *berr,SSL *con,int full); 179static BIO *bio_c_out=NULL; 180static int c_quiet=0; 181static int c_ign_eof=0; 182 183static void sc_usage(void) 184 { 185 BIO_printf(bio_err,"usage: s_client args\n"); 186 BIO_printf(bio_err,"\n"); 187 BIO_printf(bio_err," -host host - use -connect instead\n"); 188 BIO_printf(bio_err," -port port - use -connect instead\n"); 189 BIO_printf(bio_err," -connect host:port - who to connect to (default is %s:%s)\n",SSL_HOST_NAME,PORT_STR); 190 191 BIO_printf(bio_err," -verify arg - turn on peer certificate verification\n"); 192 BIO_printf(bio_err," -cert arg - certificate file to use, PEM format assumed\n"); 193 BIO_printf(bio_err," -certform arg - certificate format (PEM or DER) PEM default\n"); 194 BIO_printf(bio_err," -key arg - Private key file to use, in cert file if\n"); 195 BIO_printf(bio_err," not specified but cert file is.\n"); 196 BIO_printf(bio_err," -keyform arg - key format (PEM or DER) PEM default\n"); 197 BIO_printf(bio_err," -pass arg - private key file pass phrase source\n"); 198 BIO_printf(bio_err," -CApath arg - PEM format directory of CA's\n"); 199 BIO_printf(bio_err," -CAfile arg - PEM format file of CA's\n"); 200 BIO_printf(bio_err," -reconnect - Drop and re-make the connection with the same Session-ID\n"); 201 BIO_printf(bio_err," -pause - sleep(1) after each read(2) and write(2) system call\n"); 202 BIO_printf(bio_err," -showcerts - show all certificates in the chain\n"); 203 BIO_printf(bio_err," -debug - extra output\n"); 204#ifdef WATT32 205 BIO_printf(bio_err," -wdebug - WATT-32 tcp debugging\n"); 206#endif 207 BIO_printf(bio_err," -msg - Show protocol messages\n"); 208 BIO_printf(bio_err," -nbio_test - more ssl protocol testing\n"); 209 BIO_printf(bio_err," -state - print the 'ssl' states\n"); 210#ifdef FIONBIO 211 BIO_printf(bio_err," -nbio - Run with non-blocking IO\n"); 212#endif 213 BIO_printf(bio_err," -crlf - convert LF from terminal into CRLF\n"); 214 BIO_printf(bio_err," -quiet - no s_client output\n"); 215 BIO_printf(bio_err," -ign_eof - ignore input eof (default when -quiet)\n"); 216 BIO_printf(bio_err," -ssl2 - just use SSLv2\n"); 217 BIO_printf(bio_err," -ssl3 - just use SSLv3\n"); 218 BIO_printf(bio_err," -tls1 - just use TLSv1\n"); 219 BIO_printf(bio_err," -dtls1 - just use DTLSv1\n"); 220 BIO_printf(bio_err," -mtu - set the MTU\n"); 221 BIO_printf(bio_err," -no_tls1/-no_ssl3/-no_ssl2 - turn off that protocol\n"); 222 BIO_printf(bio_err," -bugs - Switch on all SSL implementation bug workarounds\n"); 223 BIO_printf(bio_err," -serverpref - Use server's cipher preferences (only SSLv2)\n"); 224 BIO_printf(bio_err," -cipher - preferred cipher to use, use the 'openssl ciphers'\n"); 225 BIO_printf(bio_err," command to see what is available\n"); 226 BIO_printf(bio_err," -starttls prot - use the STARTTLS command before starting TLS\n"); 227 BIO_printf(bio_err," for those protocols that support it, where\n"); 228 BIO_printf(bio_err," 'prot' defines which one to assume. Currently,\n"); 229 BIO_printf(bio_err," only \"smtp\" and \"pop3\" are supported.\n"); 230#ifndef OPENSSL_NO_ENGINE 231 BIO_printf(bio_err," -engine id - Initialise and use the specified engine\n"); 232#endif 233 BIO_printf(bio_err," -rand file%cfile%c...\n", LIST_SEPARATOR_CHAR, LIST_SEPARATOR_CHAR); 234 235 } 236 237int MAIN(int, char **); 238 239int MAIN(int argc, char **argv) 240 { 241 int off=0; 242 SSL *con=NULL,*con2=NULL; 243 X509_STORE *store = NULL; 244 int s,k,width,state=0; 245 char *cbuf=NULL,*sbuf=NULL,*mbuf=NULL; 246 int cbuf_len,cbuf_off; 247 int sbuf_len,sbuf_off; 248 fd_set readfds,writefds; 249 short port=PORT; 250 int full_log=1; 251 char *host=SSL_HOST_NAME; 252 char *cert_file=NULL,*key_file=NULL; 253 int cert_format = FORMAT_PEM, key_format = FORMAT_PEM; 254 char *passarg = NULL, *pass = NULL; 255 X509 *cert = NULL; 256 EVP_PKEY *key = NULL; 257 char *CApath=NULL,*CAfile=NULL,*cipher=NULL; 258 int reconnect=0,badop=0,verify=SSL_VERIFY_NONE,bugs=0; 259 int crlf=0; 260 int write_tty,read_tty,write_ssl,read_ssl,tty_on,ssl_pending; 261 SSL_CTX *ctx=NULL; 262 int ret=1,in_init=1,i,nbio_test=0; 263 int starttls_proto = 0; 264 int prexit = 0, vflags = 0; 265 SSL_METHOD *meth=NULL; 266#ifdef sock_type 267#undef sock_type 268#endif 269 int sock_type=SOCK_STREAM; 270 BIO *sbio; 271 char *inrand=NULL; 272#ifndef OPENSSL_NO_ENGINE 273 char *engine_id=NULL; 274 ENGINE *e=NULL; 275#endif 276#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) || defined(OPENSSL_SYS_NETWARE) 277 struct timeval tv; 278#endif 279 280 struct sockaddr peer; 281 int peerlen = sizeof(peer); 282 int enable_timeouts = 0 ; 283 long mtu = 0; 284 285#if !defined(OPENSSL_NO_SSL2) && !defined(OPENSSL_NO_SSL3) 286 meth=SSLv23_client_method(); 287#elif !defined(OPENSSL_NO_SSL3) 288 meth=SSLv3_client_method(); 289#elif !defined(OPENSSL_NO_SSL2) 290 meth=SSLv2_client_method(); 291#endif 292 293 apps_startup(); 294 c_Pause=0; 295 c_quiet=0; 296 c_ign_eof=0; 297 c_debug=0; 298 c_msg=0; 299 c_showcerts=0; 300 301 if (bio_err == NULL) 302 bio_err=BIO_new_fp(stderr,BIO_NOCLOSE); 303 304 if (!load_config(bio_err, NULL)) 305 goto end; 306 307 if ( ((cbuf=OPENSSL_malloc(BUFSIZZ)) == NULL) || 308 ((sbuf=OPENSSL_malloc(BUFSIZZ)) == NULL) || 309 ((mbuf=OPENSSL_malloc(BUFSIZZ)) == NULL)) 310 { 311 BIO_printf(bio_err,"out of memory\n"); 312 goto end; 313 } 314 315 verify_depth=0; 316 verify_error=X509_V_OK; 317#ifdef FIONBIO 318 c_nbio=0; 319#endif 320 321 argc--; 322 argv++; 323 while (argc >= 1) 324 { 325 if (strcmp(*argv,"-host") == 0) 326 { 327 if (--argc < 1) goto bad; 328 host= *(++argv); 329 } 330 else if (strcmp(*argv,"-port") == 0) 331 { 332 if (--argc < 1) goto bad; 333 port=atoi(*(++argv)); 334 if (port == 0) goto bad; 335 } 336 else if (strcmp(*argv,"-connect") == 0) 337 { 338 if (--argc < 1) goto bad; 339 if (!extract_host_port(*(++argv),&host,NULL,&port)) 340 goto bad; 341 } 342 else if (strcmp(*argv,"-verify") == 0) 343 { 344 verify=SSL_VERIFY_PEER; 345 if (--argc < 1) goto bad; 346 verify_depth=atoi(*(++argv)); 347 BIO_printf(bio_err,"verify depth is %d\n",verify_depth); 348 } 349 else if (strcmp(*argv,"-cert") == 0) 350 { 351 if (--argc < 1) goto bad; 352 cert_file= *(++argv); 353 } 354 else if (strcmp(*argv,"-certform") == 0) 355 { 356 if (--argc < 1) goto bad; 357 cert_format = str2fmt(*(++argv)); 358 } 359 else if (strcmp(*argv,"-crl_check") == 0) 360 vflags |= X509_V_FLAG_CRL_CHECK; 361 else if (strcmp(*argv,"-crl_check_all") == 0) 362 vflags |= X509_V_FLAG_CRL_CHECK|X509_V_FLAG_CRL_CHECK_ALL; 363 else if (strcmp(*argv,"-prexit") == 0) 364 prexit=1; 365 else if (strcmp(*argv,"-crlf") == 0) 366 crlf=1; 367 else if (strcmp(*argv,"-quiet") == 0) 368 { 369 c_quiet=1; 370 c_ign_eof=1; 371 } 372 else if (strcmp(*argv,"-ign_eof") == 0) 373 c_ign_eof=1; 374 else if (strcmp(*argv,"-pause") == 0) 375 c_Pause=1; 376 else if (strcmp(*argv,"-debug") == 0) 377 c_debug=1; 378#ifdef WATT32 379 else if (strcmp(*argv,"-wdebug") == 0) 380 dbug_init(); 381#endif 382 else if (strcmp(*argv,"-msg") == 0) 383 c_msg=1; 384 else if (strcmp(*argv,"-showcerts") == 0) 385 c_showcerts=1; 386 else if (strcmp(*argv,"-nbio_test") == 0) 387 nbio_test=1; 388 else if (strcmp(*argv,"-state") == 0) 389 state=1; 390#ifndef OPENSSL_NO_SSL2 391 else if (strcmp(*argv,"-ssl2") == 0) 392 meth=SSLv2_client_method(); 393#endif 394#ifndef OPENSSL_NO_SSL3 395 else if (strcmp(*argv,"-ssl3") == 0) 396 meth=SSLv3_client_method(); 397#endif 398#ifndef OPENSSL_NO_TLS1 399 else if (strcmp(*argv,"-tls1") == 0) 400 meth=TLSv1_client_method(); 401#endif 402#ifndef OPENSSL_NO_DTLS1 403 else if (strcmp(*argv,"-dtls1") == 0) 404 { 405 meth=DTLSv1_client_method(); 406 sock_type=SOCK_DGRAM; 407 } 408 else if (strcmp(*argv,"-timeout") == 0) 409 enable_timeouts=1; 410 else if (strcmp(*argv,"-mtu") == 0) 411 { 412 if (--argc < 1) goto bad; 413 mtu = atol(*(++argv)); 414 } 415#endif 416 else if (strcmp(*argv,"-bugs") == 0) 417 bugs=1; 418 else if (strcmp(*argv,"-keyform") == 0) 419 { 420 if (--argc < 1) goto bad; 421 key_format = str2fmt(*(++argv)); 422 } 423 else if (strcmp(*argv,"-pass") == 0) 424 { 425 if (--argc < 1) goto bad; 426 passarg = *(++argv); 427 } 428 else if (strcmp(*argv,"-key") == 0) 429 { 430 if (--argc < 1) goto bad; 431 key_file= *(++argv); 432 } 433 else if (strcmp(*argv,"-reconnect") == 0) 434 { 435 reconnect=5; 436 } 437 else if (strcmp(*argv,"-CApath") == 0) 438 { 439 if (--argc < 1) goto bad; 440 CApath= *(++argv); 441 } 442 else if (strcmp(*argv,"-CAfile") == 0) 443 { 444 if (--argc < 1) goto bad; 445 CAfile= *(++argv); 446 } 447 else if (strcmp(*argv,"-no_tls1") == 0) 448 off|=SSL_OP_NO_TLSv1; 449 else if (strcmp(*argv,"-no_ssl3") == 0) 450 off|=SSL_OP_NO_SSLv3; 451 else if (strcmp(*argv,"-no_ssl2") == 0) 452 off|=SSL_OP_NO_SSLv2; 453 else if (strcmp(*argv,"-serverpref") == 0) 454 off|=SSL_OP_CIPHER_SERVER_PREFERENCE; 455 else if (strcmp(*argv,"-cipher") == 0) 456 { 457 if (--argc < 1) goto bad; 458 cipher= *(++argv); 459 } 460#ifdef FIONBIO 461 else if (strcmp(*argv,"-nbio") == 0) 462 { c_nbio=1; } 463#endif 464 else if (strcmp(*argv,"-starttls") == 0) 465 { 466 if (--argc < 1) goto bad; 467 ++argv; 468 if (strcmp(*argv,"smtp") == 0) 469 starttls_proto = 1; 470 else if (strcmp(*argv,"pop3") == 0) 471 starttls_proto = 2; 472 else 473 goto bad; 474 } 475#ifndef OPENSSL_NO_ENGINE 476 else if (strcmp(*argv,"-engine") == 0) 477 { 478 if (--argc < 1) goto bad; 479 engine_id = *(++argv); 480 } 481#endif 482 else if (strcmp(*argv,"-rand") == 0) 483 { 484 if (--argc < 1) goto bad; 485 inrand= *(++argv); 486 } 487 else 488 { 489 BIO_printf(bio_err,"unknown option %s\n",*argv); 490 badop=1; 491 break; 492 } 493 argc--; 494 argv++; 495 } 496 if (badop) 497 { 498bad: 499 sc_usage(); 500 goto end; 501 } 502 503 OpenSSL_add_ssl_algorithms(); 504 SSL_load_error_strings(); 505 506#ifndef OPENSSL_NO_ENGINE 507 e = setup_engine(bio_err, engine_id, 1); 508#endif 509 if (!app_passwd(bio_err, passarg, NULL, &pass, NULL)) 510 { 511 BIO_printf(bio_err, "Error getting password\n"); 512 goto end; 513 } 514 515 if (key_file == NULL) 516 key_file = cert_file; 517 518 519 if (key_file) 520 521 { 522 523 key = load_key(bio_err, key_file, key_format, 0, pass, e, 524 "client certificate private key file"); 525 if (!key) 526 { 527 ERR_print_errors(bio_err); 528 goto end; 529 } 530 531 } 532 533 if (cert_file) 534 535 { 536 cert = load_cert(bio_err,cert_file,cert_format, 537 NULL, e, "client certificate file"); 538 539 if (!cert) 540 { 541 ERR_print_errors(bio_err); 542 goto end; 543 } 544 } 545 546 if (!app_RAND_load_file(NULL, bio_err, 1) && inrand == NULL 547 && !RAND_status()) 548 { 549 BIO_printf(bio_err,"warning, not much extra random data, consider using the -rand option\n"); 550 } 551 if (inrand != NULL) 552 BIO_printf(bio_err,"%ld semi-random bytes loaded\n", 553 app_RAND_load_files(inrand)); 554 555 if (bio_c_out == NULL) 556 { 557 if (c_quiet && !c_debug && !c_msg) 558 { 559 bio_c_out=BIO_new(BIO_s_null()); 560 } 561 else 562 { 563 if (bio_c_out == NULL) 564 bio_c_out=BIO_new_fp(stdout,BIO_NOCLOSE); 565 } 566 } 567 568 ctx=SSL_CTX_new(meth); 569 if (ctx == NULL) 570 { 571 ERR_print_errors(bio_err); 572 goto end; 573 } 574 575 if (bugs) 576 SSL_CTX_set_options(ctx,SSL_OP_ALL|off); 577 else 578 SSL_CTX_set_options(ctx,off); 579 /* DTLS: partial reads end up discarding unread UDP bytes :-( 580 * Setting read ahead solves this problem. 581 */ 582 if (sock_type == SOCK_DGRAM) SSL_CTX_set_read_ahead(ctx, 1); 583 584 if (state) SSL_CTX_set_info_callback(ctx,apps_ssl_info_callback); 585 if (cipher != NULL) 586 if(!SSL_CTX_set_cipher_list(ctx,cipher)) { 587 BIO_printf(bio_err,"error setting cipher list\n"); 588 ERR_print_errors(bio_err); 589 goto end; 590 } 591#if 0 592 else 593 SSL_CTX_set_cipher_list(ctx,getenv("SSL_CIPHER")); 594#endif 595 596 SSL_CTX_set_verify(ctx,verify,verify_callback); 597 if (!set_cert_key_stuff(ctx,cert,key)) 598 goto end; 599 600 if ((!SSL_CTX_load_verify_locations(ctx,CAfile,CApath)) || 601 (!SSL_CTX_set_default_verify_paths(ctx))) 602 { 603 /* BIO_printf(bio_err,"error setting default verify locations\n"); */ 604 ERR_print_errors(bio_err); 605 /* goto end; */ 606 } 607 608 store = SSL_CTX_get_cert_store(ctx); 609 X509_STORE_set_flags(store, vflags); 610 611 con=SSL_new(ctx); 612#ifndef OPENSSL_NO_KRB5 613 if (con && (con->kssl_ctx = kssl_ctx_new()) != NULL) 614 { 615 kssl_ctx_setstring(con->kssl_ctx, KSSL_SERVER, host); 616 } 617#endif /* OPENSSL_NO_KRB5 */ 618/* SSL_set_cipher_list(con,"RC4-MD5"); */ 619 620re_start: 621 622 if (init_client(&s,host,port,sock_type) == 0) 623 { 624 BIO_printf(bio_err,"connect:errno=%d\n",get_last_socket_error()); 625 SHUTDOWN(s); 626 goto end; 627 } 628 BIO_printf(bio_c_out,"CONNECTED(%08X)\n",s); 629 630#ifdef FIONBIO 631 if (c_nbio) 632 { 633 unsigned long l=1; 634 BIO_printf(bio_c_out,"turning on non blocking io\n"); 635 if (BIO_socket_ioctl(s,FIONBIO,&l) < 0) 636 { 637 ERR_print_errors(bio_err); 638 goto end; 639 } 640 } 641#endif 642 if (c_Pause & 0x01) con->debug=1; 643 644 if ( SSL_version(con) == DTLS1_VERSION) 645 { 646 struct timeval timeout; 647 648 sbio=BIO_new_dgram(s,BIO_NOCLOSE); 649 if (getsockname(s, &peer, (void *)&peerlen) < 0) 650 { 651 BIO_printf(bio_err, "getsockname:errno=%d\n", 652 get_last_socket_error()); 653 SHUTDOWN(s); 654 goto end; 655 } 656 657 BIO_ctrl_set_connected(sbio, 1, &peer); 658 659 if ( enable_timeouts) 660 { 661 timeout.tv_sec = 0; 662 timeout.tv_usec = DGRAM_RCV_TIMEOUT; 663 BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_RECV_TIMEOUT, 0, &timeout); 664 665 timeout.tv_sec = 0; 666 timeout.tv_usec = DGRAM_SND_TIMEOUT; 667 BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_SEND_TIMEOUT, 0, &timeout); 668 } 669 670 if ( mtu > 0) 671 { 672 SSL_set_options(con, SSL_OP_NO_QUERY_MTU); 673 SSL_set_mtu(con, mtu); 674 } 675 else 676 /* want to do MTU discovery */ 677 BIO_ctrl(sbio, BIO_CTRL_DGRAM_MTU_DISCOVER, 0, NULL); 678 } 679 else 680 sbio=BIO_new_socket(s,BIO_NOCLOSE); 681 682 683 684 if (nbio_test) 685 { 686 BIO *test; 687 688 test=BIO_new(BIO_f_nbio_test()); 689 sbio=BIO_push(test,sbio); 690 } 691 692 if (c_debug) 693 { 694 con->debug=1; 695 BIO_set_callback(sbio,bio_dump_callback); 696 BIO_set_callback_arg(sbio,bio_c_out); 697 } 698 if (c_msg) 699 { 700 SSL_set_msg_callback(con, msg_cb); 701 SSL_set_msg_callback_arg(con, bio_c_out); 702 } 703 704 SSL_set_bio(con,sbio,sbio); 705 SSL_set_connect_state(con); 706 707 /* ok, lets connect */ 708 width=SSL_get_fd(con)+1; 709 710 read_tty=1; 711 write_tty=0; 712 tty_on=0; 713 read_ssl=1; 714 write_ssl=1; 715 716 cbuf_len=0; 717 cbuf_off=0; 718 sbuf_len=0; 719 sbuf_off=0; 720 721 /* This is an ugly hack that does a lot of assumptions */ 722 if (starttls_proto == 1) 723 { 724 BIO_read(sbio,mbuf,BUFSIZZ); 725 BIO_printf(sbio,"STARTTLS\r\n"); 726 BIO_read(sbio,sbuf,BUFSIZZ); 727 } 728 if (starttls_proto == 2) 729 { 730 BIO_read(sbio,mbuf,BUFSIZZ); 731 BIO_printf(sbio,"STLS\r\n"); 732 BIO_read(sbio,sbuf,BUFSIZZ); 733 } 734 735 for (;;) 736 { 737 FD_ZERO(&readfds); 738 FD_ZERO(&writefds); 739 740 if (SSL_in_init(con) && !SSL_total_renegotiations(con)) 741 { 742 in_init=1; 743 tty_on=0; 744 } 745 else 746 { 747 tty_on=1; 748 if (in_init) 749 { 750 in_init=0; 751 print_stuff(bio_c_out,con,full_log); 752 if (full_log > 0) full_log--; 753 754 if (starttls_proto) 755 { 756 BIO_printf(bio_err,"%s",mbuf); 757 /* We don't need to know any more */ 758 starttls_proto = 0; 759 } 760 761 if (reconnect) 762 { 763 reconnect--; 764 BIO_printf(bio_c_out,"drop connection and then reconnect\n"); 765 SSL_shutdown(con); 766 SSL_set_connect_state(con); 767 SHUTDOWN(SSL_get_fd(con)); 768 goto re_start; 769 } 770 } 771 } 772 773 ssl_pending = read_ssl && SSL_pending(con); 774 775 if (!ssl_pending) 776 { 777#if !defined(OPENSSL_SYS_WINDOWS) && !defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYS_NETWARE) 778 if (tty_on) 779 { 780 if (read_tty) FD_SET(fileno(stdin),&readfds); 781 if (write_tty) FD_SET(fileno(stdout),&writefds); 782 } 783 if (read_ssl) 784 FD_SET(SSL_get_fd(con),&readfds); 785 if (write_ssl) 786 FD_SET(SSL_get_fd(con),&writefds); 787#else 788 if(!tty_on || !write_tty) { 789 if (read_ssl) 790 FD_SET(SSL_get_fd(con),&readfds); 791 if (write_ssl) 792 FD_SET(SSL_get_fd(con),&writefds); 793 } 794#endif 795/* printf("mode tty(%d %d%d) ssl(%d%d)\n", 796 tty_on,read_tty,write_tty,read_ssl,write_ssl);*/ 797 798 /* Note: under VMS with SOCKETSHR the second parameter 799 * is currently of type (int *) whereas under other 800 * systems it is (void *) if you don't have a cast it 801 * will choke the compiler: if you do have a cast then 802 * you can either go for (int *) or (void *). 803 */ 804#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 805 /* Under Windows/DOS we make the assumption that we can 806 * always write to the tty: therefore if we need to 807 * write to the tty we just fall through. Otherwise 808 * we timeout the select every second and see if there 809 * are any keypresses. Note: this is a hack, in a proper 810 * Windows application we wouldn't do this. 811 */ 812 i=0; 813 if(!write_tty) { 814 if(read_tty) { 815 tv.tv_sec = 1; 816 tv.tv_usec = 0; 817 i=select(width,(void *)&readfds,(void *)&writefds, 818 NULL,&tv); 819#if defined(OPENSSL_SYS_WINCE) || defined(OPENSSL_SYS_MSDOS) 820 if(!i && (!_kbhit() || !read_tty) ) continue; 821#else 822 if(!i && (!((_kbhit()) || (WAIT_OBJECT_0 == WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE), 0))) || !read_tty) ) continue; 823#endif 824 } else i=select(width,(void *)&readfds,(void *)&writefds, 825 NULL,NULL); 826 } 827#elif defined(OPENSSL_SYS_NETWARE) 828 if(!write_tty) { 829 if(read_tty) { 830 tv.tv_sec = 1; 831 tv.tv_usec = 0; 832 i=select(width,(void *)&readfds,(void *)&writefds, 833 NULL,&tv); 834 } else i=select(width,(void *)&readfds,(void *)&writefds, 835 NULL,NULL); 836 } 837#else 838 i=select(width,(void *)&readfds,(void *)&writefds, 839 NULL,NULL); 840#endif 841 if ( i < 0) 842 { 843 BIO_printf(bio_err,"bad select %d\n", 844 get_last_socket_error()); 845 goto shut; 846 /* goto end; */ 847 } 848 } 849 850 if (!ssl_pending && FD_ISSET(SSL_get_fd(con),&writefds)) 851 { 852 k=SSL_write(con,&(cbuf[cbuf_off]), 853 (unsigned int)cbuf_len); 854 switch (SSL_get_error(con,k)) 855 { 856 case SSL_ERROR_NONE: 857 cbuf_off+=k; 858 cbuf_len-=k; 859 if (k <= 0) goto end; 860 /* we have done a write(con,NULL,0); */ 861 if (cbuf_len <= 0) 862 { 863 read_tty=1; 864 write_ssl=0; 865 } 866 else /* if (cbuf_len > 0) */ 867 { 868 read_tty=0; 869 write_ssl=1; 870 } 871 break; 872 case SSL_ERROR_WANT_WRITE: 873 BIO_printf(bio_c_out,"write W BLOCK\n"); 874 write_ssl=1; 875 read_tty=0; 876 break; 877 case SSL_ERROR_WANT_READ: 878 BIO_printf(bio_c_out,"write R BLOCK\n"); 879 write_tty=0; 880 read_ssl=1; 881 write_ssl=0; 882 break; 883 case SSL_ERROR_WANT_X509_LOOKUP: 884 BIO_printf(bio_c_out,"write X BLOCK\n"); 885 break; 886 case SSL_ERROR_ZERO_RETURN: 887 if (cbuf_len != 0) 888 { 889 BIO_printf(bio_c_out,"shutdown\n"); 890 goto shut; 891 } 892 else 893 { 894 read_tty=1; 895 write_ssl=0; 896 break; 897 } 898 899 case SSL_ERROR_SYSCALL: 900 if ((k != 0) || (cbuf_len != 0)) 901 { 902 BIO_printf(bio_err,"write:errno=%d\n", 903 get_last_socket_error()); 904 goto shut; 905 } 906 else 907 { 908 read_tty=1; 909 write_ssl=0; 910 } 911 break; 912 case SSL_ERROR_SSL: 913 ERR_print_errors(bio_err); 914 goto shut; 915 } 916 } 917#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) || defined(OPENSSL_SYS_NETWARE) 918 /* Assume Windows/DOS can always write */ 919 else if (!ssl_pending && write_tty) 920#else 921 else if (!ssl_pending && FD_ISSET(fileno(stdout),&writefds)) 922#endif 923 { 924#ifdef CHARSET_EBCDIC 925 ascii2ebcdic(&(sbuf[sbuf_off]),&(sbuf[sbuf_off]),sbuf_len); 926#endif 927 i=write(fileno(stdout),&(sbuf[sbuf_off]),sbuf_len); 928 929 if (i <= 0) 930 { 931 BIO_printf(bio_c_out,"DONE\n"); 932 goto shut; 933 /* goto end; */ 934 } 935 936 sbuf_len-=i;; 937 sbuf_off+=i; 938 if (sbuf_len <= 0) 939 { 940 read_ssl=1; 941 write_tty=0; 942 } 943 } 944 else if (ssl_pending || FD_ISSET(SSL_get_fd(con),&readfds)) 945 { 946#ifdef RENEG 947{ static int iiii; if (++iiii == 52) { SSL_renegotiate(con); iiii=0; } } 948#endif 949#if 1 950 k=SSL_read(con,sbuf,1024 /* BUFSIZZ */ ); 951#else 952/* Demo for pending and peek :-) */ 953 k=SSL_read(con,sbuf,16); 954{ char zbuf[10240]; 955printf("read=%d pending=%d peek=%d\n",k,SSL_pending(con),SSL_peek(con,zbuf,10240)); 956} 957#endif 958 959 switch (SSL_get_error(con,k)) 960 { 961 case SSL_ERROR_NONE: 962 if (k <= 0) 963 goto end; 964 sbuf_off=0; 965 sbuf_len=k; 966 967 read_ssl=0; 968 write_tty=1; 969 break; 970 case SSL_ERROR_WANT_WRITE: 971 BIO_printf(bio_c_out,"read W BLOCK\n"); 972 write_ssl=1; 973 read_tty=0; 974 break; 975 case SSL_ERROR_WANT_READ: 976 BIO_printf(bio_c_out,"read R BLOCK\n"); 977 write_tty=0; 978 read_ssl=1; 979 if ((read_tty == 0) && (write_ssl == 0)) 980 write_ssl=1; 981 break; 982 case SSL_ERROR_WANT_X509_LOOKUP: 983 BIO_printf(bio_c_out,"read X BLOCK\n"); 984 break; 985 case SSL_ERROR_SYSCALL: 986 BIO_printf(bio_err,"read:errno=%d\n",get_last_socket_error()); 987 goto shut; 988 case SSL_ERROR_ZERO_RETURN: 989 BIO_printf(bio_c_out,"closed\n"); 990 goto shut; 991 case SSL_ERROR_SSL: 992 ERR_print_errors(bio_err); 993 goto shut; 994 /* break; */ 995 } 996 } 997 998#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 999#if defined(OPENSSL_SYS_WINCE) || defined(OPENSSL_SYS_MSDOS) 1000 else if (_kbhit()) 1001#else 1002 else if ((_kbhit()) || (WAIT_OBJECT_0 == WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE), 0))) 1003#endif 1004#elif defined (OPENSSL_SYS_NETWARE) 1005 else if (_kbhit()) 1006#else 1007 else if (FD_ISSET(fileno(stdin),&readfds)) 1008#endif 1009 { 1010 if (crlf) 1011 { 1012 int j, lf_num; 1013 1014 i=read(fileno(stdin),cbuf,BUFSIZZ/2); 1015 lf_num = 0; 1016 /* both loops are skipped when i <= 0 */ 1017 for (j = 0; j < i; j++) 1018 if (cbuf[j] == '\n') 1019 lf_num++; 1020 for (j = i-1; j >= 0; j--) 1021 { 1022 cbuf[j+lf_num] = cbuf[j]; 1023 if (cbuf[j] == '\n') 1024 { 1025 lf_num--; 1026 i++; 1027 cbuf[j+lf_num] = '\r'; 1028 } 1029 } 1030 assert(lf_num == 0); 1031 } 1032 else 1033 i=read(fileno(stdin),cbuf,BUFSIZZ); 1034 1035 if ((!c_ign_eof) && ((i <= 0) || (cbuf[0] == 'Q'))) 1036 { 1037 BIO_printf(bio_err,"DONE\n"); 1038 goto shut; 1039 } 1040 1041 if ((!c_ign_eof) && (cbuf[0] == 'R')) 1042 { 1043 BIO_printf(bio_err,"RENEGOTIATING\n"); 1044 SSL_renegotiate(con); 1045 cbuf_len=0; 1046 } 1047 else 1048 { 1049 cbuf_len=i; 1050 cbuf_off=0; 1051#ifdef CHARSET_EBCDIC 1052 ebcdic2ascii(cbuf, cbuf, i); 1053#endif 1054 } 1055 1056 write_ssl=1; 1057 read_tty=0; 1058 } 1059 } 1060shut: 1061 SSL_shutdown(con); 1062 SHUTDOWN(SSL_get_fd(con)); 1063 ret=0; 1064end: 1065 if(prexit) print_stuff(bio_c_out,con,1); 1066 if (con != NULL) SSL_free(con); 1067 if (con2 != NULL) SSL_free(con2); 1068 if (ctx != NULL) SSL_CTX_free(ctx); 1069 if (cert) 1070 X509_free(cert); 1071 if (key) 1072 EVP_PKEY_free(key); 1073 if (pass) 1074 OPENSSL_free(pass); 1075 if (cbuf != NULL) { OPENSSL_cleanse(cbuf,BUFSIZZ); OPENSSL_free(cbuf); } 1076 if (sbuf != NULL) { OPENSSL_cleanse(sbuf,BUFSIZZ); OPENSSL_free(sbuf); } 1077 if (mbuf != NULL) { OPENSSL_cleanse(mbuf,BUFSIZZ); OPENSSL_free(mbuf); } 1078 if (bio_c_out != NULL) 1079 { 1080 BIO_free(bio_c_out); 1081 bio_c_out=NULL; 1082 } 1083 apps_shutdown(); 1084 OPENSSL_EXIT(ret); 1085 } 1086 1087 1088static void print_stuff(BIO *bio, SSL *s, int full) 1089 { 1090 X509 *peer=NULL; 1091 char *p; 1092 static const char *space=" "; 1093 char buf[BUFSIZ]; 1094 STACK_OF(X509) *sk; 1095 STACK_OF(X509_NAME) *sk2; 1096 SSL_CIPHER *c; 1097 X509_NAME *xn; 1098 int j,i; 1099#ifndef OPENSSL_NO_COMP 1100 const COMP_METHOD *comp, *expansion; 1101#endif 1102 1103 if (full) 1104 { 1105 int got_a_chain = 0; 1106 1107 sk=SSL_get_peer_cert_chain(s); 1108 if (sk != NULL) 1109 { 1110 got_a_chain = 1; /* we don't have it for SSL2 (yet) */ 1111 1112 BIO_printf(bio,"---\nCertificate chain\n"); 1113 for (i=0; i<sk_X509_num(sk); i++) 1114 { 1115 X509_NAME_oneline(X509_get_subject_name( 1116 sk_X509_value(sk,i)),buf,sizeof buf); 1117 BIO_printf(bio,"%2d s:%s\n",i,buf); 1118 X509_NAME_oneline(X509_get_issuer_name( 1119 sk_X509_value(sk,i)),buf,sizeof buf); 1120 BIO_printf(bio," i:%s\n",buf); 1121 if (c_showcerts) 1122 PEM_write_bio_X509(bio,sk_X509_value(sk,i)); 1123 } 1124 } 1125 1126 BIO_printf(bio,"---\n"); 1127 peer=SSL_get_peer_certificate(s); 1128 if (peer != NULL) 1129 { 1130 BIO_printf(bio,"Server certificate\n"); 1131 if (!(c_showcerts && got_a_chain)) /* Redundant if we showed the whole chain */ 1132 PEM_write_bio_X509(bio,peer); 1133 X509_NAME_oneline(X509_get_subject_name(peer), 1134 buf,sizeof buf); 1135 BIO_printf(bio,"subject=%s\n",buf); 1136 X509_NAME_oneline(X509_get_issuer_name(peer), 1137 buf,sizeof buf); 1138 BIO_printf(bio,"issuer=%s\n",buf); 1139 } 1140 else 1141 BIO_printf(bio,"no peer certificate available\n"); 1142 1143 sk2=SSL_get_client_CA_list(s); 1144 if ((sk2 != NULL) && (sk_X509_NAME_num(sk2) > 0)) 1145 { 1146 BIO_printf(bio,"---\nAcceptable client certificate CA names\n"); 1147 for (i=0; i<sk_X509_NAME_num(sk2); i++) 1148 { 1149 xn=sk_X509_NAME_value(sk2,i); 1150 X509_NAME_oneline(xn,buf,sizeof(buf)); 1151 BIO_write(bio,buf,strlen(buf)); 1152 BIO_write(bio,"\n",1); 1153 } 1154 } 1155 else 1156 { 1157 BIO_printf(bio,"---\nNo client certificate CA names sent\n"); 1158 } 1159 p=SSL_get_shared_ciphers(s,buf,sizeof buf); 1160 if (p != NULL) 1161 { 1162 /* This works only for SSL 2. In later protocol 1163 * versions, the client does not know what other 1164 * ciphers (in addition to the one to be used 1165 * in the current connection) the server supports. */ 1166 1167 BIO_printf(bio,"---\nCiphers common between both SSL endpoints:\n"); 1168 j=i=0; 1169 while (*p) 1170 { 1171 if (*p == ':') 1172 { 1173 BIO_write(bio,space,15-j%25); 1174 i++; 1175 j=0; 1176 BIO_write(bio,((i%3)?" ":"\n"),1); 1177 } 1178 else 1179 { 1180 BIO_write(bio,p,1); 1181 j++; 1182 } 1183 p++; 1184 } 1185 BIO_write(bio,"\n",1); 1186 } 1187 1188 BIO_printf(bio,"---\nSSL handshake has read %ld bytes and written %ld bytes\n", 1189 BIO_number_read(SSL_get_rbio(s)), 1190 BIO_number_written(SSL_get_wbio(s))); 1191 } 1192 BIO_printf(bio,((s->hit)?"---\nReused, ":"---\nNew, ")); 1193 c=SSL_get_current_cipher(s); 1194 BIO_printf(bio,"%s, Cipher is %s\n", 1195 SSL_CIPHER_get_version(c), 1196 SSL_CIPHER_get_name(c)); 1197 if (peer != NULL) { 1198 EVP_PKEY *pktmp; 1199 pktmp = X509_get_pubkey(peer); 1200 BIO_printf(bio,"Server public key is %d bit\n", 1201 EVP_PKEY_bits(pktmp)); 1202 EVP_PKEY_free(pktmp); 1203 } 1204#ifndef OPENSSL_NO_COMP 1205 comp=SSL_get_current_compression(s); 1206 expansion=SSL_get_current_expansion(s); 1207 BIO_printf(bio,"Compression: %s\n", 1208 comp ? SSL_COMP_get_name(comp) : "NONE"); 1209 BIO_printf(bio,"Expansion: %s\n", 1210 expansion ? SSL_COMP_get_name(expansion) : "NONE"); 1211#endif 1212 SSL_SESSION_print(bio,SSL_get_session(s)); 1213 BIO_printf(bio,"---\n"); 1214 if (peer != NULL) 1215 X509_free(peer); 1216 /* flush, or debugging output gets mixed with http response */ 1217 BIO_flush(bio); 1218 } 1219 1220