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