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 <openssl/ocsp.h> 138 #include "s_apps.h" 139 #include "timeouts.h" 140 141 #ifdef OPENSSL_SYS_WINCE 142 /* Windows CE incorrectly defines fileno as returning void*, so to avoid problems below... */ 143 #ifdef fileno 144 #undef fileno 145 #endif 146 #define fileno(a) (int)_fileno(a) 147 #endif 148 149 150 #if (defined(OPENSSL_SYS_VMS) && __VMS_VER < 70000000) 151 /* FIONBIO used as a switch to enable ioctl, and that isn't in VMS < 7.0 */ 152 #undef FIONBIO 153 #endif 154 155 #undef PROG 156 #define PROG s_client_main 157 158 /*#define SSL_HOST_NAME "www.netscape.com" */ 159 /*#define SSL_HOST_NAME "193.118.187.102" */ 160 #define SSL_HOST_NAME "localhost" 161 162 /*#define TEST_CERT "client.pem" */ /* no default cert. */ 163 164 #undef BUFSIZZ 165 #define BUFSIZZ 1024*8 166 167 extern int verify_depth; 168 extern int verify_error; 169 170 #ifdef FIONBIO 171 static int c_nbio=0; 172 #endif 173 static int c_Pause=0; 174 static int c_debug=0; 175 #ifndef OPENSSL_NO_TLSEXT 176 static int c_tlsextdebug=0; 177 static int c_status_req=0; 178 #endif 179 static int c_msg=0; 180 static int c_showcerts=0; 181 182 static void sc_usage(void); 183 static void print_stuff(BIO *berr,SSL *con,int full); 184 #ifndef OPENSSL_NO_TLSEXT 185 static int ocsp_resp_cb(SSL *s, void *arg); 186 #endif 187 static BIO *bio_c_out=NULL; 188 static int c_quiet=0; 189 static int c_ign_eof=0; 190 191 static void sc_usage(void) 192 { 193 BIO_printf(bio_err,"usage: s_client args\n"); 194 BIO_printf(bio_err,"\n"); 195 BIO_printf(bio_err," -host host - use -connect instead\n"); 196 BIO_printf(bio_err," -port port - use -connect instead\n"); 197 BIO_printf(bio_err," -connect host:port - who to connect to (default is %s:%s)\n",SSL_HOST_NAME,PORT_STR); 198 199 BIO_printf(bio_err," -verify depth - turn on peer certificate verification\n"); 200 BIO_printf(bio_err," -cert arg - certificate file to use, PEM format assumed\n"); 201 BIO_printf(bio_err," -certform arg - certificate format (PEM or DER) PEM default\n"); 202 BIO_printf(bio_err," -key arg - Private key file to use, in cert file if\n"); 203 BIO_printf(bio_err," not specified but cert file is.\n"); 204 BIO_printf(bio_err," -keyform arg - key format (PEM or DER) PEM default\n"); 205 BIO_printf(bio_err," -pass arg - private key file pass phrase source\n"); 206 BIO_printf(bio_err," -CApath arg - PEM format directory of CA's\n"); 207 BIO_printf(bio_err," -CAfile arg - PEM format file of CA's\n"); 208 BIO_printf(bio_err," -reconnect - Drop and re-make the connection with the same Session-ID\n"); 209 BIO_printf(bio_err," -pause - sleep(1) after each read(2) and write(2) system call\n"); 210 BIO_printf(bio_err," -showcerts - show all certificates in the chain\n"); 211 BIO_printf(bio_err," -debug - extra output\n"); 212 #ifdef WATT32 213 BIO_printf(bio_err," -wdebug - WATT-32 tcp debugging\n"); 214 #endif 215 BIO_printf(bio_err," -msg - Show protocol messages\n"); 216 BIO_printf(bio_err," -nbio_test - more ssl protocol testing\n"); 217 BIO_printf(bio_err," -state - print the 'ssl' states\n"); 218 #ifdef FIONBIO 219 BIO_printf(bio_err," -nbio - Run with non-blocking IO\n"); 220 #endif 221 BIO_printf(bio_err," -crlf - convert LF from terminal into CRLF\n"); 222 BIO_printf(bio_err," -quiet - no s_client output\n"); 223 BIO_printf(bio_err," -ign_eof - ignore input eof (default when -quiet)\n"); 224 BIO_printf(bio_err," -no_ign_eof - don't ignore input eof\n"); 225 BIO_printf(bio_err," -ssl2 - just use SSLv2\n"); 226 BIO_printf(bio_err," -ssl3 - just use SSLv3\n"); 227 BIO_printf(bio_err," -tls1 - just use TLSv1\n"); 228 BIO_printf(bio_err," -dtls1 - just use DTLSv1\n"); 229 BIO_printf(bio_err," -mtu - set the MTU\n"); 230 BIO_printf(bio_err," -no_tls1/-no_ssl3/-no_ssl2 - turn off that protocol\n"); 231 BIO_printf(bio_err," -bugs - Switch on all SSL implementation bug workarounds\n"); 232 BIO_printf(bio_err," -serverpref - Use server's cipher preferences (only SSLv2)\n"); 233 BIO_printf(bio_err," -cipher - preferred cipher to use, use the 'openssl ciphers'\n"); 234 BIO_printf(bio_err," command to see what is available\n"); 235 BIO_printf(bio_err," -starttls prot - use the STARTTLS command before starting TLS\n"); 236 BIO_printf(bio_err," for those protocols that support it, where\n"); 237 BIO_printf(bio_err," 'prot' defines which one to assume. Currently,\n"); 238 BIO_printf(bio_err," only \"smtp\", \"pop3\", \"imap\", \"ftp\" and \"xmpp\"\n"); 239 BIO_printf(bio_err," are supported.\n"); 240 #ifndef OPENSSL_NO_ENGINE 241 BIO_printf(bio_err," -engine id - Initialise and use the specified engine\n"); 242 #endif 243 BIO_printf(bio_err," -rand file%cfile%c...\n", LIST_SEPARATOR_CHAR, LIST_SEPARATOR_CHAR); 244 BIO_printf(bio_err," -sess_out arg - file to write SSL session to\n"); 245 BIO_printf(bio_err," -sess_in arg - file to read SSL session from\n"); 246 #ifndef OPENSSL_NO_TLSEXT 247 BIO_printf(bio_err," -servername host - Set TLS extension servername in ClientHello\n"); 248 BIO_printf(bio_err," -tlsextdebug - hex dump of all TLS extensions received\n"); 249 BIO_printf(bio_err," -status - request certificate status from server\n"); 250 BIO_printf(bio_err," -no_ticket - disable use of RFC4507bis session tickets\n"); 251 #endif 252 } 253 254 #ifndef OPENSSL_NO_TLSEXT 255 256 /* This is a context that we pass to callbacks */ 257 typedef struct tlsextctx_st { 258 BIO * biodebug; 259 int ack; 260 } tlsextctx; 261 262 263 static int MS_CALLBACK ssl_servername_cb(SSL *s, int *ad, void *arg) 264 { 265 tlsextctx * p = (tlsextctx *) arg; 266 const char * hn= SSL_get_servername(s, TLSEXT_NAMETYPE_host_name); 267 if (SSL_get_servername_type(s) != -1) 268 p->ack = !SSL_session_reused(s) && hn != NULL; 269 else 270 BIO_printf(bio_err,"Can't use SSL_get_servername\n"); 271 272 return SSL_TLSEXT_ERR_OK; 273 } 274 #endif 275 enum 276 { 277 PROTO_OFF = 0, 278 PROTO_SMTP, 279 PROTO_POP3, 280 PROTO_IMAP, 281 PROTO_FTP, 282 PROTO_XMPP 283 }; 284 285 int MAIN(int, char **); 286 287 int MAIN(int argc, char **argv) 288 { 289 int off=0; 290 SSL *con=NULL,*con2=NULL; 291 X509_STORE *store = NULL; 292 int s,k,width,state=0; 293 char *cbuf=NULL,*sbuf=NULL,*mbuf=NULL; 294 int cbuf_len,cbuf_off; 295 int sbuf_len,sbuf_off; 296 fd_set readfds,writefds; 297 short port=PORT; 298 int full_log=1; 299 char *host=SSL_HOST_NAME; 300 char *cert_file=NULL,*key_file=NULL; 301 int cert_format = FORMAT_PEM, key_format = FORMAT_PEM; 302 char *passarg = NULL, *pass = NULL; 303 X509 *cert = NULL; 304 EVP_PKEY *key = NULL; 305 char *CApath=NULL,*CAfile=NULL,*cipher=NULL; 306 int reconnect=0,badop=0,verify=SSL_VERIFY_NONE,bugs=0; 307 int crlf=0; 308 int write_tty,read_tty,write_ssl,read_ssl,tty_on,ssl_pending; 309 SSL_CTX *ctx=NULL; 310 int ret=1,in_init=1,i,nbio_test=0; 311 int starttls_proto = PROTO_OFF; 312 int prexit = 0, vflags = 0; 313 SSL_METHOD *meth=NULL; 314 #ifdef sock_type 315 #undef sock_type 316 #endif 317 int sock_type=SOCK_STREAM; 318 BIO *sbio; 319 char *inrand=NULL; 320 int mbuf_len=0; 321 #ifndef OPENSSL_NO_ENGINE 322 char *engine_id=NULL; 323 char *ssl_client_engine_id=NULL; 324 ENGINE *ssl_client_engine=NULL; 325 #endif 326 ENGINE *e=NULL; 327 #if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) || defined(OPENSSL_SYS_NETWARE) 328 struct timeval tv; 329 #endif 330 331 #ifndef OPENSSL_NO_TLSEXT 332 char *servername = NULL; 333 tlsextctx tlsextcbp = 334 {NULL,0}; 335 #endif 336 char *sess_in = NULL; 337 char *sess_out = NULL; 338 struct sockaddr peer; 339 int peerlen = sizeof(peer); 340 int enable_timeouts = 0 ; 341 long mtu = 0; 342 #ifndef OPENSSL_NO_JPAKE 343 char *jpake_secret = NULL; 344 #endif 345 346 #if !defined(OPENSSL_NO_SSL2) && !defined(OPENSSL_NO_SSL3) 347 meth=SSLv23_client_method(); 348 #elif !defined(OPENSSL_NO_SSL3) 349 meth=SSLv3_client_method(); 350 #elif !defined(OPENSSL_NO_SSL2) 351 meth=SSLv2_client_method(); 352 #endif 353 354 apps_startup(); 355 c_Pause=0; 356 c_quiet=0; 357 c_ign_eof=0; 358 c_debug=0; 359 c_msg=0; 360 c_showcerts=0; 361 362 if (bio_err == NULL) 363 bio_err=BIO_new_fp(stderr,BIO_NOCLOSE); 364 365 if (!load_config(bio_err, NULL)) 366 goto end; 367 368 if ( ((cbuf=OPENSSL_malloc(BUFSIZZ)) == NULL) || 369 ((sbuf=OPENSSL_malloc(BUFSIZZ)) == NULL) || 370 ((mbuf=OPENSSL_malloc(BUFSIZZ)) == NULL)) 371 { 372 BIO_printf(bio_err,"out of memory\n"); 373 goto end; 374 } 375 376 verify_depth=0; 377 verify_error=X509_V_OK; 378 #ifdef FIONBIO 379 c_nbio=0; 380 #endif 381 382 argc--; 383 argv++; 384 while (argc >= 1) 385 { 386 if (strcmp(*argv,"-host") == 0) 387 { 388 if (--argc < 1) goto bad; 389 host= *(++argv); 390 } 391 else if (strcmp(*argv,"-port") == 0) 392 { 393 if (--argc < 1) goto bad; 394 port=atoi(*(++argv)); 395 if (port == 0) goto bad; 396 } 397 else if (strcmp(*argv,"-connect") == 0) 398 { 399 if (--argc < 1) goto bad; 400 if (!extract_host_port(*(++argv),&host,NULL,&port)) 401 goto bad; 402 } 403 else if (strcmp(*argv,"-verify") == 0) 404 { 405 verify=SSL_VERIFY_PEER; 406 if (--argc < 1) goto bad; 407 verify_depth=atoi(*(++argv)); 408 BIO_printf(bio_err,"verify depth is %d\n",verify_depth); 409 } 410 else if (strcmp(*argv,"-cert") == 0) 411 { 412 if (--argc < 1) goto bad; 413 cert_file= *(++argv); 414 } 415 else if (strcmp(*argv,"-sess_out") == 0) 416 { 417 if (--argc < 1) goto bad; 418 sess_out = *(++argv); 419 } 420 else if (strcmp(*argv,"-sess_in") == 0) 421 { 422 if (--argc < 1) goto bad; 423 sess_in = *(++argv); 424 } 425 else if (strcmp(*argv,"-certform") == 0) 426 { 427 if (--argc < 1) goto bad; 428 cert_format = str2fmt(*(++argv)); 429 } 430 else if (strcmp(*argv,"-crl_check") == 0) 431 vflags |= X509_V_FLAG_CRL_CHECK; 432 else if (strcmp(*argv,"-crl_check_all") == 0) 433 vflags |= X509_V_FLAG_CRL_CHECK|X509_V_FLAG_CRL_CHECK_ALL; 434 else if (strcmp(*argv,"-prexit") == 0) 435 prexit=1; 436 else if (strcmp(*argv,"-crlf") == 0) 437 crlf=1; 438 else if (strcmp(*argv,"-quiet") == 0) 439 { 440 c_quiet=1; 441 c_ign_eof=1; 442 } 443 else if (strcmp(*argv,"-ign_eof") == 0) 444 c_ign_eof=1; 445 else if (strcmp(*argv,"-no_ign_eof") == 0) 446 c_ign_eof=0; 447 else if (strcmp(*argv,"-pause") == 0) 448 c_Pause=1; 449 else if (strcmp(*argv,"-debug") == 0) 450 c_debug=1; 451 #ifndef OPENSSL_NO_TLSEXT 452 else if (strcmp(*argv,"-tlsextdebug") == 0) 453 c_tlsextdebug=1; 454 else if (strcmp(*argv,"-status") == 0) 455 c_status_req=1; 456 #endif 457 #ifdef WATT32 458 else if (strcmp(*argv,"-wdebug") == 0) 459 dbug_init(); 460 #endif 461 else if (strcmp(*argv,"-msg") == 0) 462 c_msg=1; 463 else if (strcmp(*argv,"-showcerts") == 0) 464 c_showcerts=1; 465 else if (strcmp(*argv,"-nbio_test") == 0) 466 nbio_test=1; 467 else if (strcmp(*argv,"-state") == 0) 468 state=1; 469 #ifndef OPENSSL_NO_SSL2 470 else if (strcmp(*argv,"-ssl2") == 0) 471 meth=SSLv2_client_method(); 472 #endif 473 #ifndef OPENSSL_NO_SSL3 474 else if (strcmp(*argv,"-ssl3") == 0) 475 meth=SSLv3_client_method(); 476 #endif 477 #ifndef OPENSSL_NO_TLS1 478 else if (strcmp(*argv,"-tls1") == 0) 479 meth=TLSv1_client_method(); 480 #endif 481 #ifndef OPENSSL_NO_DTLS1 482 else if (strcmp(*argv,"-dtls1") == 0) 483 { 484 meth=DTLSv1_client_method(); 485 sock_type=SOCK_DGRAM; 486 } 487 else if (strcmp(*argv,"-timeout") == 0) 488 enable_timeouts=1; 489 else if (strcmp(*argv,"-mtu") == 0) 490 { 491 if (--argc < 1) goto bad; 492 mtu = atol(*(++argv)); 493 } 494 #endif 495 else if (strcmp(*argv,"-bugs") == 0) 496 bugs=1; 497 else if (strcmp(*argv,"-keyform") == 0) 498 { 499 if (--argc < 1) goto bad; 500 key_format = str2fmt(*(++argv)); 501 } 502 else if (strcmp(*argv,"-pass") == 0) 503 { 504 if (--argc < 1) goto bad; 505 passarg = *(++argv); 506 } 507 else if (strcmp(*argv,"-key") == 0) 508 { 509 if (--argc < 1) goto bad; 510 key_file= *(++argv); 511 } 512 else if (strcmp(*argv,"-reconnect") == 0) 513 { 514 reconnect=5; 515 } 516 else if (strcmp(*argv,"-CApath") == 0) 517 { 518 if (--argc < 1) goto bad; 519 CApath= *(++argv); 520 } 521 else if (strcmp(*argv,"-CAfile") == 0) 522 { 523 if (--argc < 1) goto bad; 524 CAfile= *(++argv); 525 } 526 else if (strcmp(*argv,"-no_tls1") == 0) 527 off|=SSL_OP_NO_TLSv1; 528 else if (strcmp(*argv,"-no_ssl3") == 0) 529 off|=SSL_OP_NO_SSLv3; 530 else if (strcmp(*argv,"-no_ssl2") == 0) 531 off|=SSL_OP_NO_SSLv2; 532 #ifndef OPENSSL_NO_TLSEXT 533 else if (strcmp(*argv,"-no_ticket") == 0) 534 { off|=SSL_OP_NO_TICKET; } 535 #endif 536 else if (strcmp(*argv,"-serverpref") == 0) 537 off|=SSL_OP_CIPHER_SERVER_PREFERENCE; 538 else if (strcmp(*argv,"-cipher") == 0) 539 { 540 if (--argc < 1) goto bad; 541 cipher= *(++argv); 542 } 543 #ifdef FIONBIO 544 else if (strcmp(*argv,"-nbio") == 0) 545 { c_nbio=1; } 546 #endif 547 else if (strcmp(*argv,"-starttls") == 0) 548 { 549 if (--argc < 1) goto bad; 550 ++argv; 551 if (strcmp(*argv,"smtp") == 0) 552 starttls_proto = PROTO_SMTP; 553 else if (strcmp(*argv,"pop3") == 0) 554 starttls_proto = PROTO_POP3; 555 else if (strcmp(*argv,"imap") == 0) 556 starttls_proto = PROTO_IMAP; 557 else if (strcmp(*argv,"ftp") == 0) 558 starttls_proto = PROTO_FTP; 559 else if (strcmp(*argv, "xmpp") == 0) 560 starttls_proto = PROTO_XMPP; 561 else 562 goto bad; 563 } 564 #ifndef OPENSSL_NO_ENGINE 565 else if (strcmp(*argv,"-engine") == 0) 566 { 567 if (--argc < 1) goto bad; 568 engine_id = *(++argv); 569 } 570 else if (strcmp(*argv,"-ssl_client_engine") == 0) 571 { 572 if (--argc < 1) goto bad; 573 ssl_client_engine_id = *(++argv); 574 } 575 #endif 576 else if (strcmp(*argv,"-rand") == 0) 577 { 578 if (--argc < 1) goto bad; 579 inrand= *(++argv); 580 } 581 #ifndef OPENSSL_NO_TLSEXT 582 else if (strcmp(*argv,"-servername") == 0) 583 { 584 if (--argc < 1) goto bad; 585 servername= *(++argv); 586 /* meth=TLSv1_client_method(); */ 587 } 588 #endif 589 #ifndef OPENSSL_NO_JPAKE 590 else if (strcmp(*argv,"-jpake") == 0) 591 { 592 if (--argc < 1) goto bad; 593 jpake_secret = *++argv; 594 } 595 #endif 596 else 597 { 598 BIO_printf(bio_err,"unknown option %s\n",*argv); 599 badop=1; 600 break; 601 } 602 argc--; 603 argv++; 604 } 605 if (badop) 606 { 607 bad: 608 sc_usage(); 609 goto end; 610 } 611 612 OpenSSL_add_ssl_algorithms(); 613 SSL_load_error_strings(); 614 615 #ifndef OPENSSL_NO_ENGINE 616 e = setup_engine(bio_err, engine_id, 1); 617 if (ssl_client_engine_id) 618 { 619 ssl_client_engine = ENGINE_by_id(ssl_client_engine_id); 620 if (!ssl_client_engine) 621 { 622 BIO_printf(bio_err, 623 "Error getting client auth engine\n"); 624 goto end; 625 } 626 } 627 #endif 628 if (!app_passwd(bio_err, passarg, NULL, &pass, NULL)) 629 { 630 BIO_printf(bio_err, "Error getting password\n"); 631 goto end; 632 } 633 634 if (key_file == NULL) 635 key_file = cert_file; 636 637 638 if (key_file) 639 640 { 641 642 key = load_key(bio_err, key_file, key_format, 0, pass, e, 643 "client certificate private key file"); 644 if (!key) 645 { 646 ERR_print_errors(bio_err); 647 goto end; 648 } 649 650 } 651 652 if (cert_file) 653 654 { 655 cert = load_cert(bio_err,cert_file,cert_format, 656 NULL, e, "client certificate file"); 657 658 if (!cert) 659 { 660 ERR_print_errors(bio_err); 661 goto end; 662 } 663 } 664 665 if (!app_RAND_load_file(NULL, bio_err, 1) && inrand == NULL 666 && !RAND_status()) 667 { 668 BIO_printf(bio_err,"warning, not much extra random data, consider using the -rand option\n"); 669 } 670 if (inrand != NULL) 671 BIO_printf(bio_err,"%ld semi-random bytes loaded\n", 672 app_RAND_load_files(inrand)); 673 674 if (bio_c_out == NULL) 675 { 676 if (c_quiet && !c_debug && !c_msg) 677 { 678 bio_c_out=BIO_new(BIO_s_null()); 679 } 680 else 681 { 682 if (bio_c_out == NULL) 683 bio_c_out=BIO_new_fp(stdout,BIO_NOCLOSE); 684 } 685 } 686 687 ctx=SSL_CTX_new(meth); 688 if (ctx == NULL) 689 { 690 ERR_print_errors(bio_err); 691 goto end; 692 } 693 694 #ifndef OPENSSL_NO_ENGINE 695 if (ssl_client_engine) 696 { 697 if (!SSL_CTX_set_client_cert_engine(ctx, ssl_client_engine)) 698 { 699 BIO_puts(bio_err, "Error setting client auth engine\n"); 700 ERR_print_errors(bio_err); 701 ENGINE_free(ssl_client_engine); 702 goto end; 703 } 704 ENGINE_free(ssl_client_engine); 705 } 706 #endif 707 708 if (bugs) 709 SSL_CTX_set_options(ctx,SSL_OP_ALL|off); 710 else 711 SSL_CTX_set_options(ctx,off); 712 /* DTLS: partial reads end up discarding unread UDP bytes :-( 713 * Setting read ahead solves this problem. 714 */ 715 if (sock_type == SOCK_DGRAM) SSL_CTX_set_read_ahead(ctx, 1); 716 717 if (state) SSL_CTX_set_info_callback(ctx,apps_ssl_info_callback); 718 if (cipher != NULL) 719 if(!SSL_CTX_set_cipher_list(ctx,cipher)) { 720 BIO_printf(bio_err,"error setting cipher list\n"); 721 ERR_print_errors(bio_err); 722 goto end; 723 } 724 #if 0 725 else 726 SSL_CTX_set_cipher_list(ctx,getenv("SSL_CIPHER")); 727 #endif 728 729 SSL_CTX_set_verify(ctx,verify,verify_callback); 730 if (!set_cert_key_stuff(ctx,cert,key)) 731 goto end; 732 733 if ((!SSL_CTX_load_verify_locations(ctx,CAfile,CApath)) || 734 (!SSL_CTX_set_default_verify_paths(ctx))) 735 { 736 /* BIO_printf(bio_err,"error setting default verify locations\n"); */ 737 ERR_print_errors(bio_err); 738 /* goto end; */ 739 } 740 741 store = SSL_CTX_get_cert_store(ctx); 742 X509_STORE_set_flags(store, vflags); 743 #ifndef OPENSSL_NO_TLSEXT 744 if (servername != NULL) 745 { 746 tlsextcbp.biodebug = bio_err; 747 SSL_CTX_set_tlsext_servername_callback(ctx, ssl_servername_cb); 748 SSL_CTX_set_tlsext_servername_arg(ctx, &tlsextcbp); 749 } 750 #endif 751 752 con=SSL_new(ctx); 753 if (sess_in) 754 { 755 SSL_SESSION *sess; 756 BIO *stmp = BIO_new_file(sess_in, "r"); 757 if (!stmp) 758 { 759 BIO_printf(bio_err, "Can't open session file %s\n", 760 sess_in); 761 ERR_print_errors(bio_err); 762 goto end; 763 } 764 sess = PEM_read_bio_SSL_SESSION(stmp, NULL, 0, NULL); 765 BIO_free(stmp); 766 if (!sess) 767 { 768 BIO_printf(bio_err, "Can't open session file %s\n", 769 sess_in); 770 ERR_print_errors(bio_err); 771 goto end; 772 } 773 SSL_set_session(con, sess); 774 SSL_SESSION_free(sess); 775 } 776 #ifndef OPENSSL_NO_TLSEXT 777 if (servername != NULL) 778 { 779 if (!SSL_set_tlsext_host_name(con,servername)) 780 { 781 BIO_printf(bio_err,"Unable to set TLS servername extension.\n"); 782 ERR_print_errors(bio_err); 783 goto end; 784 } 785 } 786 #endif 787 788 #ifndef OPENSSL_NO_KRB5 789 if (con && (con->kssl_ctx = kssl_ctx_new()) != NULL) 790 { 791 kssl_ctx_setstring(con->kssl_ctx, KSSL_SERVER, host); 792 } 793 #endif /* OPENSSL_NO_KRB5 */ 794 /* SSL_set_cipher_list(con,"RC4-MD5"); */ 795 796 re_start: 797 798 if (init_client(&s,host,port,sock_type) == 0) 799 { 800 BIO_printf(bio_err,"connect:errno=%d\n",get_last_socket_error()); 801 SHUTDOWN(s); 802 goto end; 803 } 804 BIO_printf(bio_c_out,"CONNECTED(%08X)\n",s); 805 806 #ifdef FIONBIO 807 if (c_nbio) 808 { 809 unsigned long l=1; 810 BIO_printf(bio_c_out,"turning on non blocking io\n"); 811 if (BIO_socket_ioctl(s,FIONBIO,&l) < 0) 812 { 813 ERR_print_errors(bio_err); 814 goto end; 815 } 816 } 817 #endif 818 if (c_Pause & 0x01) con->debug=1; 819 820 if ( SSL_version(con) == DTLS1_VERSION) 821 { 822 struct timeval timeout; 823 824 sbio=BIO_new_dgram(s,BIO_NOCLOSE); 825 if (getsockname(s, &peer, (void *)&peerlen) < 0) 826 { 827 BIO_printf(bio_err, "getsockname:errno=%d\n", 828 get_last_socket_error()); 829 SHUTDOWN(s); 830 goto end; 831 } 832 833 (void)BIO_ctrl_set_connected(sbio, 1, &peer); 834 835 if ( enable_timeouts) 836 { 837 timeout.tv_sec = 0; 838 timeout.tv_usec = DGRAM_RCV_TIMEOUT; 839 BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_RECV_TIMEOUT, 0, &timeout); 840 841 timeout.tv_sec = 0; 842 timeout.tv_usec = DGRAM_SND_TIMEOUT; 843 BIO_ctrl(sbio, BIO_CTRL_DGRAM_SET_SEND_TIMEOUT, 0, &timeout); 844 } 845 846 if ( mtu > 0) 847 { 848 SSL_set_options(con, SSL_OP_NO_QUERY_MTU); 849 SSL_set_mtu(con, mtu); 850 } 851 else 852 /* want to do MTU discovery */ 853 BIO_ctrl(sbio, BIO_CTRL_DGRAM_MTU_DISCOVER, 0, NULL); 854 } 855 else 856 sbio=BIO_new_socket(s,BIO_NOCLOSE); 857 858 if (nbio_test) 859 { 860 BIO *test; 861 862 test=BIO_new(BIO_f_nbio_test()); 863 sbio=BIO_push(test,sbio); 864 } 865 866 if (c_debug) 867 { 868 con->debug=1; 869 BIO_set_callback(sbio,bio_dump_callback); 870 BIO_set_callback_arg(sbio,(char *)bio_c_out); 871 } 872 if (c_msg) 873 { 874 SSL_set_msg_callback(con, msg_cb); 875 SSL_set_msg_callback_arg(con, bio_c_out); 876 } 877 #ifndef OPENSSL_NO_TLSEXT 878 if (c_tlsextdebug) 879 { 880 SSL_set_tlsext_debug_callback(con, tlsext_cb); 881 SSL_set_tlsext_debug_arg(con, bio_c_out); 882 } 883 if (c_status_req) 884 { 885 SSL_set_tlsext_status_type(con, TLSEXT_STATUSTYPE_ocsp); 886 SSL_CTX_set_tlsext_status_cb(ctx, ocsp_resp_cb); 887 SSL_CTX_set_tlsext_status_arg(ctx, bio_c_out); 888 #if 0 889 { 890 STACK_OF(OCSP_RESPID) *ids = sk_OCSP_RESPID_new_null(); 891 OCSP_RESPID *id = OCSP_RESPID_new(); 892 id->value.byKey = ASN1_OCTET_STRING_new(); 893 id->type = V_OCSP_RESPID_KEY; 894 ASN1_STRING_set(id->value.byKey, "Hello World", -1); 895 sk_OCSP_RESPID_push(ids, id); 896 SSL_set_tlsext_status_ids(con, ids); 897 } 898 #endif 899 } 900 #endif 901 #ifndef OPENSSL_NO_JPAKE 902 if (jpake_secret) 903 jpake_client_auth(bio_c_out, sbio, jpake_secret); 904 #endif 905 906 SSL_set_bio(con,sbio,sbio); 907 SSL_set_connect_state(con); 908 909 /* ok, lets connect */ 910 width=SSL_get_fd(con)+1; 911 912 read_tty=1; 913 write_tty=0; 914 tty_on=0; 915 read_ssl=1; 916 write_ssl=1; 917 918 cbuf_len=0; 919 cbuf_off=0; 920 sbuf_len=0; 921 sbuf_off=0; 922 923 /* This is an ugly hack that does a lot of assumptions */ 924 /* We do have to handle multi-line responses which may come 925 in a single packet or not. We therefore have to use 926 BIO_gets() which does need a buffering BIO. So during 927 the initial chitchat we do push a buffering BIO into the 928 chain that is removed again later on to not disturb the 929 rest of the s_client operation. */ 930 if (starttls_proto == PROTO_SMTP) 931 { 932 int foundit=0; 933 BIO *fbio = BIO_new(BIO_f_buffer()); 934 BIO_push(fbio, sbio); 935 /* wait for multi-line response to end from SMTP */ 936 do 937 { 938 mbuf_len = BIO_gets(fbio,mbuf,BUFSIZZ); 939 } 940 while (mbuf_len>3 && mbuf[3]=='-'); 941 /* STARTTLS command requires EHLO... */ 942 BIO_printf(fbio,"EHLO openssl.client.net\r\n"); 943 (void)BIO_flush(fbio); 944 /* wait for multi-line response to end EHLO SMTP response */ 945 do 946 { 947 mbuf_len = BIO_gets(fbio,mbuf,BUFSIZZ); 948 if (strstr(mbuf,"STARTTLS")) 949 foundit=1; 950 } 951 while (mbuf_len>3 && mbuf[3]=='-'); 952 (void)BIO_flush(fbio); 953 BIO_pop(fbio); 954 BIO_free(fbio); 955 if (!foundit) 956 BIO_printf(bio_err, 957 "didn't found starttls in server response," 958 " try anyway...\n"); 959 BIO_printf(sbio,"STARTTLS\r\n"); 960 BIO_read(sbio,sbuf,BUFSIZZ); 961 } 962 else if (starttls_proto == PROTO_POP3) 963 { 964 BIO_read(sbio,mbuf,BUFSIZZ); 965 BIO_printf(sbio,"STLS\r\n"); 966 BIO_read(sbio,sbuf,BUFSIZZ); 967 } 968 else if (starttls_proto == PROTO_IMAP) 969 { 970 int foundit=0; 971 BIO *fbio = BIO_new(BIO_f_buffer()); 972 BIO_push(fbio, sbio); 973 BIO_gets(fbio,mbuf,BUFSIZZ); 974 /* STARTTLS command requires CAPABILITY... */ 975 BIO_printf(fbio,". CAPABILITY\r\n"); 976 (void)BIO_flush(fbio); 977 /* wait for multi-line CAPABILITY response */ 978 do 979 { 980 mbuf_len = BIO_gets(fbio,mbuf,BUFSIZZ); 981 if (strstr(mbuf,"STARTTLS")) 982 foundit=1; 983 } 984 while (mbuf_len>3 && mbuf[0]!='.'); 985 (void)BIO_flush(fbio); 986 BIO_pop(fbio); 987 BIO_free(fbio); 988 if (!foundit) 989 BIO_printf(bio_err, 990 "didn't found STARTTLS in server response," 991 " try anyway...\n"); 992 BIO_printf(sbio,". STARTTLS\r\n"); 993 BIO_read(sbio,sbuf,BUFSIZZ); 994 } 995 else if (starttls_proto == PROTO_FTP) 996 { 997 BIO *fbio = BIO_new(BIO_f_buffer()); 998 BIO_push(fbio, sbio); 999 /* wait for multi-line response to end from FTP */ 1000 do 1001 { 1002 mbuf_len = BIO_gets(fbio,mbuf,BUFSIZZ); 1003 } 1004 while (mbuf_len>3 && mbuf[3]=='-'); 1005 (void)BIO_flush(fbio); 1006 BIO_pop(fbio); 1007 BIO_free(fbio); 1008 BIO_printf(sbio,"AUTH TLS\r\n"); 1009 BIO_read(sbio,sbuf,BUFSIZZ); 1010 } 1011 if (starttls_proto == PROTO_XMPP) 1012 { 1013 int seen = 0; 1014 BIO_printf(sbio,"<stream:stream " 1015 "xmlns:stream='http://etherx.jabber.org/streams' " 1016 "xmlns='jabber:client' to='%s' version='1.0'>", host); 1017 seen = BIO_read(sbio,mbuf,BUFSIZZ); 1018 mbuf[seen] = 0; 1019 while (!strstr(mbuf, "<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'")) 1020 { 1021 if (strstr(mbuf, "/stream:features>")) 1022 goto shut; 1023 seen = BIO_read(sbio,mbuf,BUFSIZZ); 1024 mbuf[seen] = 0; 1025 } 1026 BIO_printf(sbio, "<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/>"); 1027 seen = BIO_read(sbio,sbuf,BUFSIZZ); 1028 sbuf[seen] = 0; 1029 if (!strstr(sbuf, "<proceed")) 1030 goto shut; 1031 mbuf[0] = 0; 1032 } 1033 1034 for (;;) 1035 { 1036 FD_ZERO(&readfds); 1037 FD_ZERO(&writefds); 1038 1039 if (SSL_in_init(con) && !SSL_total_renegotiations(con)) 1040 { 1041 in_init=1; 1042 tty_on=0; 1043 } 1044 else 1045 { 1046 tty_on=1; 1047 if (in_init) 1048 { 1049 in_init=0; 1050 if (sess_out) 1051 { 1052 BIO *stmp = BIO_new_file(sess_out, "w"); 1053 if (stmp) 1054 { 1055 PEM_write_bio_SSL_SESSION(stmp, SSL_get_session(con)); 1056 BIO_free(stmp); 1057 } 1058 else 1059 BIO_printf(bio_err, "Error writing session file %s\n", sess_out); 1060 } 1061 print_stuff(bio_c_out,con,full_log); 1062 if (full_log > 0) full_log--; 1063 1064 if (starttls_proto) 1065 { 1066 BIO_printf(bio_err,"%s",mbuf); 1067 /* We don't need to know any more */ 1068 starttls_proto = PROTO_OFF; 1069 } 1070 1071 if (reconnect) 1072 { 1073 reconnect--; 1074 BIO_printf(bio_c_out,"drop connection and then reconnect\n"); 1075 SSL_shutdown(con); 1076 SSL_set_connect_state(con); 1077 SHUTDOWN(SSL_get_fd(con)); 1078 goto re_start; 1079 } 1080 } 1081 } 1082 1083 ssl_pending = read_ssl && SSL_pending(con); 1084 1085 if (!ssl_pending) 1086 { 1087 #if !defined(OPENSSL_SYS_WINDOWS) && !defined(OPENSSL_SYS_MSDOS) && !defined(OPENSSL_SYS_NETWARE) 1088 if (tty_on) 1089 { 1090 if (read_tty) FD_SET(fileno(stdin),&readfds); 1091 if (write_tty) FD_SET(fileno(stdout),&writefds); 1092 } 1093 if (read_ssl) 1094 FD_SET(SSL_get_fd(con),&readfds); 1095 if (write_ssl) 1096 FD_SET(SSL_get_fd(con),&writefds); 1097 #else 1098 if(!tty_on || !write_tty) { 1099 if (read_ssl) 1100 FD_SET(SSL_get_fd(con),&readfds); 1101 if (write_ssl) 1102 FD_SET(SSL_get_fd(con),&writefds); 1103 } 1104 #endif 1105 /* printf("mode tty(%d %d%d) ssl(%d%d)\n", 1106 tty_on,read_tty,write_tty,read_ssl,write_ssl);*/ 1107 1108 /* Note: under VMS with SOCKETSHR the second parameter 1109 * is currently of type (int *) whereas under other 1110 * systems it is (void *) if you don't have a cast it 1111 * will choke the compiler: if you do have a cast then 1112 * you can either go for (int *) or (void *). 1113 */ 1114 #if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 1115 /* Under Windows/DOS we make the assumption that we can 1116 * always write to the tty: therefore if we need to 1117 * write to the tty we just fall through. Otherwise 1118 * we timeout the select every second and see if there 1119 * are any keypresses. Note: this is a hack, in a proper 1120 * Windows application we wouldn't do this. 1121 */ 1122 i=0; 1123 if(!write_tty) { 1124 if(read_tty) { 1125 tv.tv_sec = 1; 1126 tv.tv_usec = 0; 1127 i=select(width,(void *)&readfds,(void *)&writefds, 1128 NULL,&tv); 1129 #if defined(OPENSSL_SYS_WINCE) || defined(OPENSSL_SYS_MSDOS) 1130 if(!i && (!_kbhit() || !read_tty) ) continue; 1131 #else 1132 if(!i && (!((_kbhit()) || (WAIT_OBJECT_0 == WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE), 0))) || !read_tty) ) continue; 1133 #endif 1134 } else i=select(width,(void *)&readfds,(void *)&writefds, 1135 NULL,NULL); 1136 } 1137 #elif defined(OPENSSL_SYS_NETWARE) 1138 if(!write_tty) { 1139 if(read_tty) { 1140 tv.tv_sec = 1; 1141 tv.tv_usec = 0; 1142 i=select(width,(void *)&readfds,(void *)&writefds, 1143 NULL,&tv); 1144 } else i=select(width,(void *)&readfds,(void *)&writefds, 1145 NULL,NULL); 1146 } 1147 #else 1148 i=select(width,(void *)&readfds,(void *)&writefds, 1149 NULL,NULL); 1150 #endif 1151 if ( i < 0) 1152 { 1153 BIO_printf(bio_err,"bad select %d\n", 1154 get_last_socket_error()); 1155 goto shut; 1156 /* goto end; */ 1157 } 1158 } 1159 1160 if (!ssl_pending && FD_ISSET(SSL_get_fd(con),&writefds)) 1161 { 1162 k=SSL_write(con,&(cbuf[cbuf_off]), 1163 (unsigned int)cbuf_len); 1164 switch (SSL_get_error(con,k)) 1165 { 1166 case SSL_ERROR_NONE: 1167 cbuf_off+=k; 1168 cbuf_len-=k; 1169 if (k <= 0) goto end; 1170 /* we have done a write(con,NULL,0); */ 1171 if (cbuf_len <= 0) 1172 { 1173 read_tty=1; 1174 write_ssl=0; 1175 } 1176 else /* if (cbuf_len > 0) */ 1177 { 1178 read_tty=0; 1179 write_ssl=1; 1180 } 1181 break; 1182 case SSL_ERROR_WANT_WRITE: 1183 BIO_printf(bio_c_out,"write W BLOCK\n"); 1184 write_ssl=1; 1185 read_tty=0; 1186 break; 1187 case SSL_ERROR_WANT_READ: 1188 BIO_printf(bio_c_out,"write R BLOCK\n"); 1189 write_tty=0; 1190 read_ssl=1; 1191 write_ssl=0; 1192 break; 1193 case SSL_ERROR_WANT_X509_LOOKUP: 1194 BIO_printf(bio_c_out,"write X BLOCK\n"); 1195 break; 1196 case SSL_ERROR_ZERO_RETURN: 1197 if (cbuf_len != 0) 1198 { 1199 BIO_printf(bio_c_out,"shutdown\n"); 1200 goto shut; 1201 } 1202 else 1203 { 1204 read_tty=1; 1205 write_ssl=0; 1206 break; 1207 } 1208 1209 case SSL_ERROR_SYSCALL: 1210 if ((k != 0) || (cbuf_len != 0)) 1211 { 1212 BIO_printf(bio_err,"write:errno=%d\n", 1213 get_last_socket_error()); 1214 goto shut; 1215 } 1216 else 1217 { 1218 read_tty=1; 1219 write_ssl=0; 1220 } 1221 break; 1222 case SSL_ERROR_SSL: 1223 ERR_print_errors(bio_err); 1224 goto shut; 1225 } 1226 } 1227 #if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) || defined(OPENSSL_SYS_NETWARE) 1228 /* Assume Windows/DOS can always write */ 1229 else if (!ssl_pending && write_tty) 1230 #else 1231 else if (!ssl_pending && FD_ISSET(fileno(stdout),&writefds)) 1232 #endif 1233 { 1234 #ifdef CHARSET_EBCDIC 1235 ascii2ebcdic(&(sbuf[sbuf_off]),&(sbuf[sbuf_off]),sbuf_len); 1236 #endif 1237 i=write(fileno(stdout),&(sbuf[sbuf_off]),sbuf_len); 1238 1239 if (i <= 0) 1240 { 1241 BIO_printf(bio_c_out,"DONE\n"); 1242 goto shut; 1243 /* goto end; */ 1244 } 1245 1246 sbuf_len-=i;; 1247 sbuf_off+=i; 1248 if (sbuf_len <= 0) 1249 { 1250 read_ssl=1; 1251 write_tty=0; 1252 } 1253 } 1254 else if (ssl_pending || FD_ISSET(SSL_get_fd(con),&readfds)) 1255 { 1256 #ifdef RENEG 1257 { static int iiii; if (++iiii == 52) { SSL_renegotiate(con); iiii=0; } } 1258 #endif 1259 #if 1 1260 k=SSL_read(con,sbuf,1024 /* BUFSIZZ */ ); 1261 #else 1262 /* Demo for pending and peek :-) */ 1263 k=SSL_read(con,sbuf,16); 1264 { char zbuf[10240]; 1265 printf("read=%d pending=%d peek=%d\n",k,SSL_pending(con),SSL_peek(con,zbuf,10240)); 1266 } 1267 #endif 1268 1269 switch (SSL_get_error(con,k)) 1270 { 1271 case SSL_ERROR_NONE: 1272 if (k <= 0) 1273 goto end; 1274 sbuf_off=0; 1275 sbuf_len=k; 1276 1277 read_ssl=0; 1278 write_tty=1; 1279 break; 1280 case SSL_ERROR_WANT_WRITE: 1281 BIO_printf(bio_c_out,"read W BLOCK\n"); 1282 write_ssl=1; 1283 read_tty=0; 1284 break; 1285 case SSL_ERROR_WANT_READ: 1286 BIO_printf(bio_c_out,"read R BLOCK\n"); 1287 write_tty=0; 1288 read_ssl=1; 1289 if ((read_tty == 0) && (write_ssl == 0)) 1290 write_ssl=1; 1291 break; 1292 case SSL_ERROR_WANT_X509_LOOKUP: 1293 BIO_printf(bio_c_out,"read X BLOCK\n"); 1294 break; 1295 case SSL_ERROR_SYSCALL: 1296 BIO_printf(bio_err,"read:errno=%d\n",get_last_socket_error()); 1297 goto shut; 1298 case SSL_ERROR_ZERO_RETURN: 1299 BIO_printf(bio_c_out,"closed\n"); 1300 goto shut; 1301 case SSL_ERROR_SSL: 1302 ERR_print_errors(bio_err); 1303 goto shut; 1304 /* break; */ 1305 } 1306 } 1307 1308 #if defined(OPENSSL_SYS_WINDOWS) || defined(OPENSSL_SYS_MSDOS) 1309 #if defined(OPENSSL_SYS_WINCE) || defined(OPENSSL_SYS_MSDOS) 1310 else if (_kbhit()) 1311 #else 1312 else if ((_kbhit()) || (WAIT_OBJECT_0 == WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE), 0))) 1313 #endif 1314 #elif defined (OPENSSL_SYS_NETWARE) 1315 else if (_kbhit()) 1316 #else 1317 else if (FD_ISSET(fileno(stdin),&readfds)) 1318 #endif 1319 { 1320 if (crlf) 1321 { 1322 int j, lf_num; 1323 1324 i=read(fileno(stdin),cbuf,BUFSIZZ/2); 1325 lf_num = 0; 1326 /* both loops are skipped when i <= 0 */ 1327 for (j = 0; j < i; j++) 1328 if (cbuf[j] == '\n') 1329 lf_num++; 1330 for (j = i-1; j >= 0; j--) 1331 { 1332 cbuf[j+lf_num] = cbuf[j]; 1333 if (cbuf[j] == '\n') 1334 { 1335 lf_num--; 1336 i++; 1337 cbuf[j+lf_num] = '\r'; 1338 } 1339 } 1340 assert(lf_num == 0); 1341 } 1342 else 1343 i=read(fileno(stdin),cbuf,BUFSIZZ); 1344 1345 if ((!c_ign_eof) && ((i <= 0) || (cbuf[0] == 'Q'))) 1346 { 1347 BIO_printf(bio_err,"DONE\n"); 1348 goto shut; 1349 } 1350 1351 if ((!c_ign_eof) && (cbuf[0] == 'R')) 1352 { 1353 BIO_printf(bio_err,"RENEGOTIATING\n"); 1354 SSL_renegotiate(con); 1355 cbuf_len=0; 1356 } 1357 else 1358 { 1359 cbuf_len=i; 1360 cbuf_off=0; 1361 #ifdef CHARSET_EBCDIC 1362 ebcdic2ascii(cbuf, cbuf, i); 1363 #endif 1364 } 1365 1366 write_ssl=1; 1367 read_tty=0; 1368 } 1369 } 1370 shut: 1371 SSL_shutdown(con); 1372 SHUTDOWN(SSL_get_fd(con)); 1373 ret=0; 1374 end: 1375 if(prexit) print_stuff(bio_c_out,con,1); 1376 if (con != NULL) SSL_free(con); 1377 if (con2 != NULL) SSL_free(con2); 1378 if (ctx != NULL) SSL_CTX_free(ctx); 1379 if (cert) 1380 X509_free(cert); 1381 if (key) 1382 EVP_PKEY_free(key); 1383 if (pass) 1384 OPENSSL_free(pass); 1385 if (cbuf != NULL) { OPENSSL_cleanse(cbuf,BUFSIZZ); OPENSSL_free(cbuf); } 1386 if (sbuf != NULL) { OPENSSL_cleanse(sbuf,BUFSIZZ); OPENSSL_free(sbuf); } 1387 if (mbuf != NULL) { OPENSSL_cleanse(mbuf,BUFSIZZ); OPENSSL_free(mbuf); } 1388 if (bio_c_out != NULL) 1389 { 1390 BIO_free(bio_c_out); 1391 bio_c_out=NULL; 1392 } 1393 apps_shutdown(); 1394 OPENSSL_EXIT(ret); 1395 } 1396 1397 1398 static void print_stuff(BIO *bio, SSL *s, int full) 1399 { 1400 X509 *peer=NULL; 1401 char *p; 1402 static const char *space=" "; 1403 char buf[BUFSIZ]; 1404 STACK_OF(X509) *sk; 1405 STACK_OF(X509_NAME) *sk2; 1406 SSL_CIPHER *c; 1407 X509_NAME *xn; 1408 int j,i; 1409 #ifndef OPENSSL_NO_COMP 1410 const COMP_METHOD *comp, *expansion; 1411 #endif 1412 1413 if (full) 1414 { 1415 int got_a_chain = 0; 1416 1417 sk=SSL_get_peer_cert_chain(s); 1418 if (sk != NULL) 1419 { 1420 got_a_chain = 1; /* we don't have it for SSL2 (yet) */ 1421 1422 BIO_printf(bio,"---\nCertificate chain\n"); 1423 for (i=0; i<sk_X509_num(sk); i++) 1424 { 1425 X509_NAME_oneline(X509_get_subject_name( 1426 sk_X509_value(sk,i)),buf,sizeof buf); 1427 BIO_printf(bio,"%2d s:%s\n",i,buf); 1428 X509_NAME_oneline(X509_get_issuer_name( 1429 sk_X509_value(sk,i)),buf,sizeof buf); 1430 BIO_printf(bio," i:%s\n",buf); 1431 if (c_showcerts) 1432 PEM_write_bio_X509(bio,sk_X509_value(sk,i)); 1433 } 1434 } 1435 1436 BIO_printf(bio,"---\n"); 1437 peer=SSL_get_peer_certificate(s); 1438 if (peer != NULL) 1439 { 1440 BIO_printf(bio,"Server certificate\n"); 1441 if (!(c_showcerts && got_a_chain)) /* Redundant if we showed the whole chain */ 1442 PEM_write_bio_X509(bio,peer); 1443 X509_NAME_oneline(X509_get_subject_name(peer), 1444 buf,sizeof buf); 1445 BIO_printf(bio,"subject=%s\n",buf); 1446 X509_NAME_oneline(X509_get_issuer_name(peer), 1447 buf,sizeof buf); 1448 BIO_printf(bio,"issuer=%s\n",buf); 1449 } 1450 else 1451 BIO_printf(bio,"no peer certificate available\n"); 1452 1453 sk2=SSL_get_client_CA_list(s); 1454 if ((sk2 != NULL) && (sk_X509_NAME_num(sk2) > 0)) 1455 { 1456 BIO_printf(bio,"---\nAcceptable client certificate CA names\n"); 1457 for (i=0; i<sk_X509_NAME_num(sk2); i++) 1458 { 1459 xn=sk_X509_NAME_value(sk2,i); 1460 X509_NAME_oneline(xn,buf,sizeof(buf)); 1461 BIO_write(bio,buf,strlen(buf)); 1462 BIO_write(bio,"\n",1); 1463 } 1464 } 1465 else 1466 { 1467 BIO_printf(bio,"---\nNo client certificate CA names sent\n"); 1468 } 1469 p=SSL_get_shared_ciphers(s,buf,sizeof buf); 1470 if (p != NULL) 1471 { 1472 /* This works only for SSL 2. In later protocol 1473 * versions, the client does not know what other 1474 * ciphers (in addition to the one to be used 1475 * in the current connection) the server supports. */ 1476 1477 BIO_printf(bio,"---\nCiphers common between both SSL endpoints:\n"); 1478 j=i=0; 1479 while (*p) 1480 { 1481 if (*p == ':') 1482 { 1483 BIO_write(bio,space,15-j%25); 1484 i++; 1485 j=0; 1486 BIO_write(bio,((i%3)?" ":"\n"),1); 1487 } 1488 else 1489 { 1490 BIO_write(bio,p,1); 1491 j++; 1492 } 1493 p++; 1494 } 1495 BIO_write(bio,"\n",1); 1496 } 1497 1498 BIO_printf(bio,"---\nSSL handshake has read %ld bytes and written %ld bytes\n", 1499 BIO_number_read(SSL_get_rbio(s)), 1500 BIO_number_written(SSL_get_wbio(s))); 1501 } 1502 BIO_printf(bio,((s->hit)?"---\nReused, ":"---\nNew, ")); 1503 c=SSL_get_current_cipher(s); 1504 BIO_printf(bio,"%s, Cipher is %s\n", 1505 SSL_CIPHER_get_version(c), 1506 SSL_CIPHER_get_name(c)); 1507 if (peer != NULL) { 1508 EVP_PKEY *pktmp; 1509 pktmp = X509_get_pubkey(peer); 1510 BIO_printf(bio,"Server public key is %d bit\n", 1511 EVP_PKEY_bits(pktmp)); 1512 EVP_PKEY_free(pktmp); 1513 } 1514 #ifndef OPENSSL_NO_COMP 1515 comp=SSL_get_current_compression(s); 1516 expansion=SSL_get_current_expansion(s); 1517 BIO_printf(bio,"Compression: %s\n", 1518 comp ? SSL_COMP_get_name(comp) : "NONE"); 1519 BIO_printf(bio,"Expansion: %s\n", 1520 expansion ? SSL_COMP_get_name(expansion) : "NONE"); 1521 #endif 1522 SSL_SESSION_print(bio,SSL_get_session(s)); 1523 BIO_printf(bio,"---\n"); 1524 if (peer != NULL) 1525 X509_free(peer); 1526 /* flush, or debugging output gets mixed with http response */ 1527 (void)BIO_flush(bio); 1528 } 1529 1530 #ifndef OPENSSL_NO_TLSEXT 1531 1532 static int ocsp_resp_cb(SSL *s, void *arg) 1533 { 1534 const unsigned char *p; 1535 int len; 1536 OCSP_RESPONSE *rsp; 1537 len = SSL_get_tlsext_status_ocsp_resp(s, &p); 1538 BIO_puts(arg, "OCSP response: "); 1539 if (!p) 1540 { 1541 BIO_puts(arg, "no response sent\n"); 1542 return 1; 1543 } 1544 rsp = d2i_OCSP_RESPONSE(NULL, &p, len); 1545 if (!rsp) 1546 { 1547 BIO_puts(arg, "response parse error\n"); 1548 BIO_dump_indent(arg, (char *)p, len, 4); 1549 return 0; 1550 } 1551 BIO_puts(arg, "\n======================================\n"); 1552 OCSP_RESPONSE_print(arg, rsp, 0); 1553 BIO_puts(arg, "======================================\n"); 1554 OCSP_RESPONSE_free(rsp); 1555 return 1; 1556 } 1557 #endif /* ndef OPENSSL_NO_TLSEXT */ 1558