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 139#ifdef OPENSSL_SYS_WINCE 140/* Windows CE incorrectly defines fileno as returning void*, so to avoid problems below... */ 141#ifdef fileno 142#undef fileno 143#endif 144#define fileno(a) (int)_fileno(a) 145#endif 146 147 148#if (defined(OPENSSL_SYS_VMS) && __VMS_VER < 70000000) 149/* FIONBIO used as a switch to enable ioctl, and that isn't in VMS < 7.0 */ 150#undef FIONBIO 151#endif 152 153#undef PROG 154#define PROG s_client_main 155 156/*#define SSL_HOST_NAME "www.netscape.com" */ 157/*#define SSL_HOST_NAME "193.118.187.102" */ 158#define SSL_HOST_NAME "localhost" 159 160/*#define TEST_CERT "client.pem" */ /* no default cert. */ 161 162#undef BUFSIZZ 163#define BUFSIZZ 1024*8 164 165extern int verify_depth; 166extern int verify_error; 167 168#ifdef FIONBIO 169static int c_nbio=0; 170#endif 171static int c_Pause=0; 172static int c_debug=0; 173static int c_msg=0; 174static int c_showcerts=0; 175 176static void sc_usage(void); 177static void print_stuff(BIO *berr,SSL *con,int full); 178static BIO *bio_c_out=NULL; 179static int c_quiet=0; 180static int c_ign_eof=0; 181 182static void sc_usage(void) 183 { 184 BIO_printf(bio_err,"usage: s_client args\n"); 185 BIO_printf(bio_err,"\n"); 186 BIO_printf(bio_err," -host host - use -connect instead\n"); 187 BIO_printf(bio_err," -port port - use -connect instead\n"); 188 BIO_printf(bio_err," -connect host:port - who to connect to (default is %s:%s)\n",SSL_HOST_NAME,PORT_STR); 189 190 BIO_printf(bio_err," -verify arg - turn on peer certificate verification\n"); 191 BIO_printf(bio_err," -cert arg - certificate file to use, PEM format assumed\n"); 192 BIO_printf(bio_err," -key arg - Private key file to use, PEM format assumed, in cert file if\n"); 193 BIO_printf(bio_err," not specified but cert file is.\n"); 194 BIO_printf(bio_err," -CApath arg - PEM format directory of CA's\n"); 195 BIO_printf(bio_err," -CAfile arg - PEM format file of CA's\n"); 196 BIO_printf(bio_err," -reconnect - Drop and re-make the connection with the same Session-ID\n"); 197 BIO_printf(bio_err," -pause - sleep(1) after each read(2) and write(2) system call\n"); 198 BIO_printf(bio_err," -showcerts - show all certificates in the chain\n"); 199 BIO_printf(bio_err," -debug - extra output\n"); 200#ifdef WATT32 201 BIO_printf(bio_err," -wdebug - WATT-32 tcp debugging\n"); 202#endif 203 BIO_printf(bio_err," -msg - Show protocol messages\n"); 204 BIO_printf(bio_err," -nbio_test - more ssl protocol testing\n"); 205 BIO_printf(bio_err," -state - print the 'ssl' states\n"); 206#ifdef FIONBIO 207 BIO_printf(bio_err," -nbio - Run with non-blocking IO\n"); 208#endif 209 BIO_printf(bio_err," -crlf - convert LF from terminal into CRLF\n"); 210 BIO_printf(bio_err," -quiet - no s_client output\n"); 211 BIO_printf(bio_err," -ign_eof - ignore input eof (default when -quiet)\n"); 212 BIO_printf(bio_err," -ssl2 - just use SSLv2\n"); 213 BIO_printf(bio_err," -ssl3 - just use SSLv3\n"); 214 BIO_printf(bio_err," -tls1 - just use TLSv1\n"); 215 BIO_printf(bio_err," -no_tls1/-no_ssl3/-no_ssl2 - turn off that protocol\n"); 216 BIO_printf(bio_err," -bugs - Switch on all SSL implementation bug workarounds\n"); 217 BIO_printf(bio_err," -serverpref - Use server's cipher preferences (only SSLv2)\n"); 218 BIO_printf(bio_err," -cipher - preferred cipher to use, use the 'openssl ciphers'\n"); 219 BIO_printf(bio_err," command to see what is available\n"); 220 BIO_printf(bio_err," -starttls prot - use the STARTTLS command before starting TLS\n"); 221 BIO_printf(bio_err," for those protocols that support it, where\n"); 222 BIO_printf(bio_err," 'prot' defines which one to assume. Currently,\n"); 223 BIO_printf(bio_err," only \"smtp\" and \"pop3\" are supported.\n"); 224#ifndef OPENSSL_NO_ENGINE 225 BIO_printf(bio_err," -engine id - Initialise and use the specified engine\n"); 226#endif 227 BIO_printf(bio_err," -rand file%cfile%c...\n", LIST_SEPARATOR_CHAR, LIST_SEPARATOR_CHAR); 228 229 } 230 231int MAIN(int, char **); 232 233int MAIN(int argc, char **argv) 234 { 235 int off=0; 236 SSL *con=NULL,*con2=NULL; 237 X509_STORE *store = NULL; 238 int s,k,width,state=0; 239 char *cbuf=NULL,*sbuf=NULL,*mbuf=NULL; 240 int cbuf_len,cbuf_off; 241 int sbuf_len,sbuf_off; 242 fd_set readfds,writefds; 243 short port=PORT; 244 int full_log=1; 245 char *host=SSL_HOST_NAME; 246 char *cert_file=NULL,*key_file=NULL; 247 char *CApath=NULL,*CAfile=NULL,*cipher=NULL; 248 int reconnect=0,badop=0,verify=SSL_VERIFY_NONE,bugs=0; 249 int crlf=0; 250 int write_tty,read_tty,write_ssl,read_ssl,tty_on,ssl_pending; 251 SSL_CTX *ctx=NULL; 252 int ret=1,in_init=1,i,nbio_test=0; 253 int starttls_proto = 0; 254 int prexit = 0, vflags = 0; 255 SSL_METHOD *meth=NULL; 256 BIO *sbio; 257 char *inrand=NULL; 258#ifndef OPENSSL_NO_ENGINE 259 char *engine_id=NULL; 260 ENGINE *e=NULL; 261#endif 262#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 263 struct timeval tv; 264#endif 265 266#if !defined(OPENSSL_NO_SSL2) && !defined(OPENSSL_NO_SSL3) 267 meth=SSLv23_client_method(); 268#elif !defined(OPENSSL_NO_SSL3) 269 meth=SSLv3_client_method(); 270#elif !defined(OPENSSL_NO_SSL2) 271 meth=SSLv2_client_method(); 272#endif 273 274 apps_startup(); 275 c_Pause=0; 276 c_quiet=0; 277 c_ign_eof=0; 278 c_debug=0; 279 c_msg=0; 280 c_showcerts=0; 281 282 if (bio_err == NULL) 283 bio_err=BIO_new_fp(stderr,BIO_NOCLOSE); 284 285 if (!load_config(bio_err, NULL)) 286 goto end; 287 288 if ( ((cbuf=OPENSSL_malloc(BUFSIZZ)) == NULL) || 289 ((sbuf=OPENSSL_malloc(BUFSIZZ)) == NULL) || 290 ((mbuf=OPENSSL_malloc(BUFSIZZ)) == NULL)) 291 { 292 BIO_printf(bio_err,"out of memory\n"); 293 goto end; 294 } 295 296 verify_depth=0; 297 verify_error=X509_V_OK; 298#ifdef FIONBIO 299 c_nbio=0; 300#endif 301 302 argc--; 303 argv++; 304 while (argc >= 1) 305 { 306 if (strcmp(*argv,"-host") == 0) 307 { 308 if (--argc < 1) goto bad; 309 host= *(++argv); 310 } 311 else if (strcmp(*argv,"-port") == 0) 312 { 313 if (--argc < 1) goto bad; 314 port=atoi(*(++argv)); 315 if (port == 0) goto bad; 316 } 317 else if (strcmp(*argv,"-connect") == 0) 318 { 319 if (--argc < 1) goto bad; 320 if (!extract_host_port(*(++argv),&host,NULL,&port)) 321 goto bad; 322 } 323 else if (strcmp(*argv,"-verify") == 0) 324 { 325 verify=SSL_VERIFY_PEER; 326 if (--argc < 1) goto bad; 327 verify_depth=atoi(*(++argv)); 328 BIO_printf(bio_err,"verify depth is %d\n",verify_depth); 329 } 330 else if (strcmp(*argv,"-cert") == 0) 331 { 332 if (--argc < 1) goto bad; 333 cert_file= *(++argv); 334 } 335 else if (strcmp(*argv,"-crl_check") == 0) 336 vflags |= X509_V_FLAG_CRL_CHECK; 337 else if (strcmp(*argv,"-crl_check_all") == 0) 338 vflags |= X509_V_FLAG_CRL_CHECK|X509_V_FLAG_CRL_CHECK_ALL; 339 else if (strcmp(*argv,"-prexit") == 0) 340 prexit=1; 341 else if (strcmp(*argv,"-crlf") == 0) 342 crlf=1; 343 else if (strcmp(*argv,"-quiet") == 0) 344 { 345 c_quiet=1; 346 c_ign_eof=1; 347 } 348 else if (strcmp(*argv,"-ign_eof") == 0) 349 c_ign_eof=1; 350 else if (strcmp(*argv,"-pause") == 0) 351 c_Pause=1; 352 else if (strcmp(*argv,"-debug") == 0) 353 c_debug=1; 354#ifdef WATT32 355 else if (strcmp(*argv,"-wdebug") == 0) 356 dbug_init(); 357#endif 358 else if (strcmp(*argv,"-msg") == 0) 359 c_msg=1; 360 else if (strcmp(*argv,"-showcerts") == 0) 361 c_showcerts=1; 362 else if (strcmp(*argv,"-nbio_test") == 0) 363 nbio_test=1; 364 else if (strcmp(*argv,"-state") == 0) 365 state=1; 366#ifndef OPENSSL_NO_SSL2 367 else if (strcmp(*argv,"-ssl2") == 0) 368 meth=SSLv2_client_method(); 369#endif 370#ifndef OPENSSL_NO_SSL3 371 else if (strcmp(*argv,"-ssl3") == 0) 372 meth=SSLv3_client_method(); 373#endif 374#ifndef OPENSSL_NO_TLS1 375 else if (strcmp(*argv,"-tls1") == 0) 376 meth=TLSv1_client_method(); 377#endif 378 else if (strcmp(*argv,"-bugs") == 0) 379 bugs=1; 380 else if (strcmp(*argv,"-key") == 0) 381 { 382 if (--argc < 1) goto bad; 383 key_file= *(++argv); 384 } 385 else if (strcmp(*argv,"-reconnect") == 0) 386 { 387 reconnect=5; 388 } 389 else if (strcmp(*argv,"-CApath") == 0) 390 { 391 if (--argc < 1) goto bad; 392 CApath= *(++argv); 393 } 394 else if (strcmp(*argv,"-CAfile") == 0) 395 { 396 if (--argc < 1) goto bad; 397 CAfile= *(++argv); 398 } 399 else if (strcmp(*argv,"-no_tls1") == 0) 400 off|=SSL_OP_NO_TLSv1; 401 else if (strcmp(*argv,"-no_ssl3") == 0) 402 off|=SSL_OP_NO_SSLv3; 403 else if (strcmp(*argv,"-no_ssl2") == 0) 404 off|=SSL_OP_NO_SSLv2; 405 else if (strcmp(*argv,"-serverpref") == 0) 406 off|=SSL_OP_CIPHER_SERVER_PREFERENCE; 407 else if (strcmp(*argv,"-cipher") == 0) 408 { 409 if (--argc < 1) goto bad; 410 cipher= *(++argv); 411 } 412#ifdef FIONBIO 413 else if (strcmp(*argv,"-nbio") == 0) 414 { c_nbio=1; } 415#endif 416 else if (strcmp(*argv,"-starttls") == 0) 417 { 418 if (--argc < 1) goto bad; 419 ++argv; 420 if (strcmp(*argv,"smtp") == 0) 421 starttls_proto = 1; 422 else if (strcmp(*argv,"pop3") == 0) 423 starttls_proto = 2; 424 else 425 goto bad; 426 } 427#ifndef OPENSSL_NO_ENGINE 428 else if (strcmp(*argv,"-engine") == 0) 429 { 430 if (--argc < 1) goto bad; 431 engine_id = *(++argv); 432 } 433#endif 434 else if (strcmp(*argv,"-rand") == 0) 435 { 436 if (--argc < 1) goto bad; 437 inrand= *(++argv); 438 } 439 else 440 { 441 BIO_printf(bio_err,"unknown option %s\n",*argv); 442 badop=1; 443 break; 444 } 445 argc--; 446 argv++; 447 } 448 if (badop) 449 { 450bad: 451 sc_usage(); 452 goto end; 453 } 454 455 OpenSSL_add_ssl_algorithms(); 456 SSL_load_error_strings(); 457 458#ifndef OPENSSL_NO_ENGINE 459 e = setup_engine(bio_err, engine_id, 1); 460#endif 461 462 if (!app_RAND_load_file(NULL, bio_err, 1) && inrand == NULL 463 && !RAND_status()) 464 { 465 BIO_printf(bio_err,"warning, not much extra random data, consider using the -rand option\n"); 466 } 467 if (inrand != NULL) 468 BIO_printf(bio_err,"%ld semi-random bytes loaded\n", 469 app_RAND_load_files(inrand)); 470 471 if (bio_c_out == NULL) 472 { 473 if (c_quiet && !c_debug && !c_msg) 474 { 475 bio_c_out=BIO_new(BIO_s_null()); 476 } 477 else 478 { 479 if (bio_c_out == NULL) 480 bio_c_out=BIO_new_fp(stdout,BIO_NOCLOSE); 481 } 482 } 483 484 ctx=SSL_CTX_new(meth); 485 if (ctx == NULL) 486 { 487 ERR_print_errors(bio_err); 488 goto end; 489 } 490 491 if (bugs) 492 SSL_CTX_set_options(ctx,SSL_OP_ALL|off); 493 else 494 SSL_CTX_set_options(ctx,off); 495 496 if (state) SSL_CTX_set_info_callback(ctx,apps_ssl_info_callback); 497 if (cipher != NULL) 498 if(!SSL_CTX_set_cipher_list(ctx,cipher)) { 499 BIO_printf(bio_err,"error setting cipher list\n"); 500 ERR_print_errors(bio_err); 501 goto end; 502 } 503#if 0 504 else 505 SSL_CTX_set_cipher_list(ctx,getenv("SSL_CIPHER")); 506#endif 507 508 SSL_CTX_set_verify(ctx,verify,verify_callback); 509 if (!set_cert_stuff(ctx,cert_file,key_file)) 510 goto end; 511 512 if ((!SSL_CTX_load_verify_locations(ctx,CAfile,CApath)) || 513 (!SSL_CTX_set_default_verify_paths(ctx))) 514 { 515 /* BIO_printf(bio_err,"error setting default verify locations\n"); */ 516 ERR_print_errors(bio_err); 517 /* goto end; */ 518 } 519 520 store = SSL_CTX_get_cert_store(ctx); 521 X509_STORE_set_flags(store, vflags); 522 523 con=SSL_new(ctx); 524#ifndef OPENSSL_NO_KRB5 525 if (con && (con->kssl_ctx = kssl_ctx_new()) != NULL) 526 { 527 kssl_ctx_setstring(con->kssl_ctx, KSSL_SERVER, host); 528 } 529#endif /* OPENSSL_NO_KRB5 */ 530/* SSL_set_cipher_list(con,"RC4-MD5"); */ 531 532re_start: 533 534 if (init_client(&s,host,port) == 0) 535 { 536 BIO_printf(bio_err,"connect:errno=%d\n",get_last_socket_error()); 537 SHUTDOWN(s); 538 goto end; 539 } 540 BIO_printf(bio_c_out,"CONNECTED(%08X)\n",s); 541 542#ifdef FIONBIO 543 if (c_nbio) 544 { 545 unsigned long l=1; 546 BIO_printf(bio_c_out,"turning on non blocking io\n"); 547 if (BIO_socket_ioctl(s,FIONBIO,&l) < 0) 548 { 549 ERR_print_errors(bio_err); 550 goto end; 551 } 552 } 553#endif 554 if (c_Pause & 0x01) con->debug=1; 555 sbio=BIO_new_socket(s,BIO_NOCLOSE); 556 557 if (nbio_test) 558 { 559 BIO *test; 560 561 test=BIO_new(BIO_f_nbio_test()); 562 sbio=BIO_push(test,sbio); 563 } 564 565 if (c_debug) 566 { 567 con->debug=1; 568 BIO_set_callback(sbio,bio_dump_cb); 569 BIO_set_callback_arg(sbio,bio_c_out); 570 } 571 if (c_msg) 572 { 573 SSL_set_msg_callback(con, msg_cb); 574 SSL_set_msg_callback_arg(con, bio_c_out); 575 } 576 577 SSL_set_bio(con,sbio,sbio); 578 SSL_set_connect_state(con); 579 580 /* ok, lets connect */ 581 width=SSL_get_fd(con)+1; 582 583 read_tty=1; 584 write_tty=0; 585 tty_on=0; 586 read_ssl=1; 587 write_ssl=1; 588 589 cbuf_len=0; 590 cbuf_off=0; 591 sbuf_len=0; 592 sbuf_off=0; 593 594 /* This is an ugly hack that does a lot of assumptions */ 595 if (starttls_proto == 1) 596 { 597 BIO_read(sbio,mbuf,BUFSIZZ); 598 BIO_printf(sbio,"EHLO some.host.name\r\n"); 599 BIO_read(sbio,mbuf,BUFSIZZ); 600 BIO_printf(sbio,"STARTTLS\r\n"); 601 BIO_read(sbio,sbuf,BUFSIZZ); 602 } 603 if (starttls_proto == 2) 604 { 605 BIO_read(sbio,mbuf,BUFSIZZ); 606 BIO_printf(sbio,"STLS\r\n"); 607 BIO_read(sbio,sbuf,BUFSIZZ); 608 } 609 610 for (;;) 611 { 612 FD_ZERO(&readfds); 613 FD_ZERO(&writefds); 614 615 if (SSL_in_init(con) && !SSL_total_renegotiations(con)) 616 { 617 in_init=1; 618 tty_on=0; 619 } 620 else 621 { 622 tty_on=1; 623 if (in_init) 624 { 625 in_init=0; 626 print_stuff(bio_c_out,con,full_log); 627 if (full_log > 0) full_log--; 628 629 if (starttls_proto) 630 { 631 BIO_printf(bio_err,"%s",mbuf); 632 /* We don't need to know any more */ 633 starttls_proto = 0; 634 } 635 636 if (reconnect) 637 { 638 reconnect--; 639 BIO_printf(bio_c_out,"drop connection and then reconnect\n"); 640 SSL_shutdown(con); 641 SSL_set_connect_state(con); 642 SHUTDOWN(SSL_get_fd(con)); 643 goto re_start; 644 } 645 } 646 } 647 648 ssl_pending = read_ssl && SSL_pending(con); 649 650 if (!ssl_pending) 651 { 652#if !defined(OPENSSL_SYS_WINDOWS) && !defined(OPENSSL_SYS_MSDOS) 653 if (tty_on) 654 { 655 if (read_tty) FD_SET(fileno(stdin),&readfds); 656 if (write_tty) FD_SET(fileno(stdout),&writefds); 657 } 658 if (read_ssl) 659 FD_SET(SSL_get_fd(con),&readfds); 660 if (write_ssl) 661 FD_SET(SSL_get_fd(con),&writefds); 662#else 663 if(!tty_on || !write_tty) { 664 if (read_ssl) 665 FD_SET(SSL_get_fd(con),&readfds); 666 if (write_ssl) 667 FD_SET(SSL_get_fd(con),&writefds); 668 } 669#endif 670/* printf("mode tty(%d %d%d) ssl(%d%d)\n", 671 tty_on,read_tty,write_tty,read_ssl,write_ssl);*/ 672 673 /* Note: under VMS with SOCKETSHR the second parameter 674 * is currently of type (int *) whereas under other 675 * systems it is (void *) if you don't have a cast it 676 * will choke the compiler: if you do have a cast then 677 * you can either go for (int *) or (void *). 678 */ 679#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 680 /* Under Windows/DOS we make the assumption that we can 681 * always write to the tty: therefore if we need to 682 * write to the tty we just fall through. Otherwise 683 * we timeout the select every second and see if there 684 * are any keypresses. Note: this is a hack, in a proper 685 * Windows application we wouldn't do this. 686 */ 687 i=0; 688 if(!write_tty) { 689 if(read_tty) { 690 tv.tv_sec = 1; 691 tv.tv_usec = 0; 692 i=select(width,(void *)&readfds,(void *)&writefds, 693 NULL,&tv); 694#if defined(OPENSSL_SYS_WINCE) || defined(OPENSSL_SYS_MSDOS) 695 if(!i && (!_kbhit() || !read_tty) ) continue; 696#else 697 if(!i && (!((_kbhit()) || (WAIT_OBJECT_0 == WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE), 0))) || !read_tty) ) continue; 698#endif 699 } else i=select(width,(void *)&readfds,(void *)&writefds, 700 NULL,NULL); 701 } 702#else 703 i=select(width,(void *)&readfds,(void *)&writefds, 704 NULL,NULL); 705#endif 706 if ( i < 0) 707 { 708 BIO_printf(bio_err,"bad select %d\n", 709 get_last_socket_error()); 710 goto shut; 711 /* goto end; */ 712 } 713 } 714 715 if (!ssl_pending && FD_ISSET(SSL_get_fd(con),&writefds)) 716 { 717 k=SSL_write(con,&(cbuf[cbuf_off]), 718 (unsigned int)cbuf_len); 719 switch (SSL_get_error(con,k)) 720 { 721 case SSL_ERROR_NONE: 722 cbuf_off+=k; 723 cbuf_len-=k; 724 if (k <= 0) goto end; 725 /* we have done a write(con,NULL,0); */ 726 if (cbuf_len <= 0) 727 { 728 read_tty=1; 729 write_ssl=0; 730 } 731 else /* if (cbuf_len > 0) */ 732 { 733 read_tty=0; 734 write_ssl=1; 735 } 736 break; 737 case SSL_ERROR_WANT_WRITE: 738 BIO_printf(bio_c_out,"write W BLOCK\n"); 739 write_ssl=1; 740 read_tty=0; 741 break; 742 case SSL_ERROR_WANT_READ: 743 BIO_printf(bio_c_out,"write R BLOCK\n"); 744 write_tty=0; 745 read_ssl=1; 746 write_ssl=0; 747 break; 748 case SSL_ERROR_WANT_X509_LOOKUP: 749 BIO_printf(bio_c_out,"write X BLOCK\n"); 750 break; 751 case SSL_ERROR_ZERO_RETURN: 752 if (cbuf_len != 0) 753 { 754 BIO_printf(bio_c_out,"shutdown\n"); 755 goto shut; 756 } 757 else 758 { 759 read_tty=1; 760 write_ssl=0; 761 break; 762 } 763 764 case SSL_ERROR_SYSCALL: 765 if ((k != 0) || (cbuf_len != 0)) 766 { 767 BIO_printf(bio_err,"write:errno=%d\n", 768 get_last_socket_error()); 769 goto shut; 770 } 771 else 772 { 773 read_tty=1; 774 write_ssl=0; 775 } 776 break; 777 case SSL_ERROR_SSL: 778 ERR_print_errors(bio_err); 779 goto shut; 780 } 781 } 782#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 783 /* Assume Windows/DOS can always write */ 784 else if (!ssl_pending && write_tty) 785#else 786 else if (!ssl_pending && FD_ISSET(fileno(stdout),&writefds)) 787#endif 788 { 789#ifdef CHARSET_EBCDIC 790 ascii2ebcdic(&(sbuf[sbuf_off]),&(sbuf[sbuf_off]),sbuf_len); 791#endif 792 i=write(fileno(stdout),&(sbuf[sbuf_off]),sbuf_len); 793 794 if (i <= 0) 795 { 796 BIO_printf(bio_c_out,"DONE\n"); 797 goto shut; 798 /* goto end; */ 799 } 800 801 sbuf_len-=i;; 802 sbuf_off+=i; 803 if (sbuf_len <= 0) 804 { 805 read_ssl=1; 806 write_tty=0; 807 } 808 } 809 else if (ssl_pending || FD_ISSET(SSL_get_fd(con),&readfds)) 810 { 811#ifdef RENEG 812{ static int iiii; if (++iiii == 52) { SSL_renegotiate(con); iiii=0; } } 813#endif 814#if 1 815 k=SSL_read(con,sbuf,1024 /* BUFSIZZ */ ); 816#else 817/* Demo for pending and peek :-) */ 818 k=SSL_read(con,sbuf,16); 819{ char zbuf[10240]; 820printf("read=%d pending=%d peek=%d\n",k,SSL_pending(con),SSL_peek(con,zbuf,10240)); 821} 822#endif 823 824 switch (SSL_get_error(con,k)) 825 { 826 case SSL_ERROR_NONE: 827 if (k <= 0) 828 goto end; 829 sbuf_off=0; 830 sbuf_len=k; 831 832 read_ssl=0; 833 write_tty=1; 834 break; 835 case SSL_ERROR_WANT_WRITE: 836 BIO_printf(bio_c_out,"read W BLOCK\n"); 837 write_ssl=1; 838 read_tty=0; 839 break; 840 case SSL_ERROR_WANT_READ: 841 BIO_printf(bio_c_out,"read R BLOCK\n"); 842 write_tty=0; 843 read_ssl=1; 844 if ((read_tty == 0) && (write_ssl == 0)) 845 write_ssl=1; 846 break; 847 case SSL_ERROR_WANT_X509_LOOKUP: 848 BIO_printf(bio_c_out,"read X BLOCK\n"); 849 break; 850 case SSL_ERROR_SYSCALL: 851 BIO_printf(bio_err,"read:errno=%d\n",get_last_socket_error()); 852 goto shut; 853 case SSL_ERROR_ZERO_RETURN: 854 BIO_printf(bio_c_out,"closed\n"); 855 goto shut; 856 case SSL_ERROR_SSL: 857 ERR_print_errors(bio_err); 858 goto shut; 859 /* break; */ 860 } 861 } 862 863#if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 864#if defined(OPENSSL_SYS_WINCE) || defined(OPENSSL_SYS_MSDOS) 865 else if (_kbhit()) 866#else 867 else if ((_kbhit()) || (WAIT_OBJECT_0 == WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE), 0))) 868#endif 869#else 870 else if (FD_ISSET(fileno(stdin),&readfds)) 871#endif 872 { 873 if (crlf) 874 { 875 int j, lf_num; 876 877 i=read(fileno(stdin),cbuf,BUFSIZZ/2); 878 lf_num = 0; 879 /* both loops are skipped when i <= 0 */ 880 for (j = 0; j < i; j++) 881 if (cbuf[j] == '\n') 882 lf_num++; 883 for (j = i-1; j >= 0; j--) 884 { 885 cbuf[j+lf_num] = cbuf[j]; 886 if (cbuf[j] == '\n') 887 { 888 lf_num--; 889 i++; 890 cbuf[j+lf_num] = '\r'; 891 } 892 } 893 assert(lf_num == 0); 894 } 895 else 896 i=read(fileno(stdin),cbuf,BUFSIZZ); 897 898 if ((!c_ign_eof) && ((i <= 0) || (cbuf[0] == 'Q'))) 899 { 900 BIO_printf(bio_err,"DONE\n"); 901 goto shut; 902 } 903 904 if ((!c_ign_eof) && (cbuf[0] == 'R')) 905 { 906 BIO_printf(bio_err,"RENEGOTIATING\n"); 907 SSL_renegotiate(con); 908 cbuf_len=0; 909 } 910 else 911 { 912 cbuf_len=i; 913 cbuf_off=0; 914#ifdef CHARSET_EBCDIC 915 ebcdic2ascii(cbuf, cbuf, i); 916#endif 917 } 918 919 write_ssl=1; 920 read_tty=0; 921 } 922 } 923shut: 924 SSL_shutdown(con); 925 SHUTDOWN(SSL_get_fd(con)); 926 ret=0; 927end: 928 if(prexit) print_stuff(bio_c_out,con,1); 929 if (con != NULL) SSL_free(con); 930 if (con2 != NULL) SSL_free(con2); 931 if (ctx != NULL) SSL_CTX_free(ctx); 932 if (cbuf != NULL) { OPENSSL_cleanse(cbuf,BUFSIZZ); OPENSSL_free(cbuf); } 933 if (sbuf != NULL) { OPENSSL_cleanse(sbuf,BUFSIZZ); OPENSSL_free(sbuf); } 934 if (mbuf != NULL) { OPENSSL_cleanse(mbuf,BUFSIZZ); OPENSSL_free(mbuf); } 935 if (bio_c_out != NULL) 936 { 937 BIO_free(bio_c_out); 938 bio_c_out=NULL; 939 } 940 apps_shutdown(); 941 OPENSSL_EXIT(ret); 942 } 943 944 945static void print_stuff(BIO *bio, SSL *s, int full) 946 { 947 X509 *peer=NULL; 948 char *p; 949 static char *space=" "; 950 char buf[BUFSIZ]; 951 STACK_OF(X509) *sk; 952 STACK_OF(X509_NAME) *sk2; 953 SSL_CIPHER *c; 954 X509_NAME *xn; 955 int j,i; 956 957 if (full) 958 { 959 int got_a_chain = 0; 960 961 sk=SSL_get_peer_cert_chain(s); 962 if (sk != NULL) 963 { 964 got_a_chain = 1; /* we don't have it for SSL2 (yet) */ 965 966 BIO_printf(bio,"---\nCertificate chain\n"); 967 for (i=0; i<sk_X509_num(sk); i++) 968 { 969 X509_NAME_oneline(X509_get_subject_name( 970 sk_X509_value(sk,i)),buf,sizeof buf); 971 BIO_printf(bio,"%2d s:%s\n",i,buf); 972 X509_NAME_oneline(X509_get_issuer_name( 973 sk_X509_value(sk,i)),buf,sizeof buf); 974 BIO_printf(bio," i:%s\n",buf); 975 if (c_showcerts) 976 PEM_write_bio_X509(bio,sk_X509_value(sk,i)); 977 } 978 } 979 980 BIO_printf(bio,"---\n"); 981 peer=SSL_get_peer_certificate(s); 982 if (peer != NULL) 983 { 984 BIO_printf(bio,"Server certificate\n"); 985 if (!(c_showcerts && got_a_chain)) /* Redundant if we showed the whole chain */ 986 PEM_write_bio_X509(bio,peer); 987 X509_NAME_oneline(X509_get_subject_name(peer), 988 buf,sizeof buf); 989 BIO_printf(bio,"subject=%s\n",buf); 990 X509_NAME_oneline(X509_get_issuer_name(peer), 991 buf,sizeof buf); 992 BIO_printf(bio,"issuer=%s\n",buf); 993 } 994 else 995 BIO_printf(bio,"no peer certificate available\n"); 996 997 sk2=SSL_get_client_CA_list(s); 998 if ((sk2 != NULL) && (sk_X509_NAME_num(sk2) > 0)) 999 { 1000 BIO_printf(bio,"---\nAcceptable client certificate CA names\n"); 1001 for (i=0; i<sk_X509_NAME_num(sk2); i++) 1002 { 1003 xn=sk_X509_NAME_value(sk2,i); 1004 X509_NAME_oneline(xn,buf,sizeof(buf)); 1005 BIO_write(bio,buf,strlen(buf)); 1006 BIO_write(bio,"\n",1); 1007 } 1008 } 1009 else 1010 { 1011 BIO_printf(bio,"---\nNo client certificate CA names sent\n"); 1012 } 1013 p=SSL_get_shared_ciphers(s,buf,sizeof buf); 1014 if (p != NULL) 1015 { 1016 /* This works only for SSL 2. In later protocol 1017 * versions, the client does not know what other 1018 * ciphers (in addition to the one to be used 1019 * in the current connection) the server supports. */ 1020 1021 BIO_printf(bio,"---\nCiphers common between both SSL endpoints:\n"); 1022 j=i=0; 1023 while (*p) 1024 { 1025 if (*p == ':') 1026 { 1027 BIO_write(bio,space,15-j%25); 1028 i++; 1029 j=0; 1030 BIO_write(bio,((i%3)?" ":"\n"),1); 1031 } 1032 else 1033 { 1034 BIO_write(bio,p,1); 1035 j++; 1036 } 1037 p++; 1038 } 1039 BIO_write(bio,"\n",1); 1040 } 1041 1042 BIO_printf(bio,"---\nSSL handshake has read %ld bytes and written %ld bytes\n", 1043 BIO_number_read(SSL_get_rbio(s)), 1044 BIO_number_written(SSL_get_wbio(s))); 1045 } 1046 BIO_printf(bio,((s->hit)?"---\nReused, ":"---\nNew, ")); 1047 c=SSL_get_current_cipher(s); 1048 BIO_printf(bio,"%s, Cipher is %s\n", 1049 SSL_CIPHER_get_version(c), 1050 SSL_CIPHER_get_name(c)); 1051 if (peer != NULL) { 1052 EVP_PKEY *pktmp; 1053 pktmp = X509_get_pubkey(peer); 1054 BIO_printf(bio,"Server public key is %d bit\n", 1055 EVP_PKEY_bits(pktmp)); 1056 EVP_PKEY_free(pktmp); 1057 } 1058 SSL_SESSION_print(bio,SSL_get_session(s)); 1059 BIO_printf(bio,"---\n"); 1060 if (peer != NULL) 1061 X509_free(peer); 1062 /* flush, or debugging output gets mixed with http response */ 1063 BIO_flush(bio); 1064 } 1065 1066