1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/ossrv/ssl/libssl/src/ssl_txt.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,189 @@
1.4 +/* ssl/ssl_txt.c */
1.5 +/* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com)
1.6 + * All rights reserved.
1.7 + *
1.8 + * This package is an SSL implementation written
1.9 + * by Eric Young (eay@cryptsoft.com).
1.10 + * The implementation was written so as to conform with Netscapes SSL.
1.11 + *
1.12 + * This library is free for commercial and non-commercial use as long as
1.13 + * the following conditions are aheared to. The following conditions
1.14 + * apply to all code found in this distribution, be it the RC4, RSA,
1.15 + * lhash, DES, etc., code; not just the SSL code. The SSL documentation
1.16 + * included with this distribution is covered by the same copyright terms
1.17 + * except that the holder is Tim Hudson (tjh@cryptsoft.com).
1.18 + *
1.19 + * Copyright remains Eric Young's, and as such any Copyright notices in
1.20 + * the code are not to be removed.
1.21 + * If this package is used in a product, Eric Young should be given attribution
1.22 + * as the author of the parts of the library used.
1.23 + * This can be in the form of a textual message at program startup or
1.24 + * in documentation (online or textual) provided with the package.
1.25 + *
1.26 + * Redistribution and use in source and binary forms, with or without
1.27 + * modification, are permitted provided that the following conditions
1.28 + * are met:
1.29 + * 1. Redistributions of source code must retain the copyright
1.30 + * notice, this list of conditions and the following disclaimer.
1.31 + * 2. Redistributions in binary form must reproduce the above copyright
1.32 + * notice, this list of conditions and the following disclaimer in the
1.33 + * documentation and/or other materials provided with the distribution.
1.34 + * 3. All advertising materials mentioning features or use of this software
1.35 + * must display the following acknowledgement:
1.36 + * "This product includes cryptographic software written by
1.37 + * Eric Young (eay@cryptsoft.com)"
1.38 + * The word 'cryptographic' can be left out if the rouines from the library
1.39 + * being used are not cryptographic related :-).
1.40 + * 4. If you include any Windows specific code (or a derivative thereof) from
1.41 + * the apps directory (application code) you must include an acknowledgement:
1.42 + * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)"
1.43 + *
1.44 + * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND
1.45 + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
1.46 + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
1.47 + * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
1.48 + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
1.49 + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
1.50 + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
1.51 + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
1.52 + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
1.53 + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
1.54 + * SUCH DAMAGE.
1.55 + *
1.56 + * The licence and distribution terms for any publically available version or
1.57 + * derivative of this code cannot be changed. i.e. this code cannot simply be
1.58 + * copied and put under another distribution licence
1.59 + * [including the GNU Public Licence.]
1.60 + */
1.61 +
1.62 +#include <stdio.h>
1.63 +#include <openssl/buffer.h>
1.64 +#include "ssl_locl.h"
1.65 +
1.66 +#ifndef OPENSSL_NO_FP_API
1.67 +EXPORT_C int SSL_SESSION_print_fp(FILE *fp, const SSL_SESSION *x)
1.68 + {
1.69 + BIO *b;
1.70 + int ret;
1.71 +
1.72 + if ((b=BIO_new(BIO_s_file_internal())) == NULL)
1.73 + {
1.74 + SSLerr(SSL_F_SSL_SESSION_PRINT_FP,ERR_R_BUF_LIB);
1.75 + return(0);
1.76 + }
1.77 + BIO_set_fp(b,fp,BIO_NOCLOSE);
1.78 + ret=SSL_SESSION_print(b,x);
1.79 + BIO_free(b);
1.80 + return(ret);
1.81 + }
1.82 +#endif
1.83 +
1.84 +EXPORT_C int SSL_SESSION_print(BIO *bp, const SSL_SESSION *x)
1.85 + {
1.86 + unsigned int i;
1.87 + const char *s;
1.88 +
1.89 + if (x == NULL) goto err;
1.90 + if (BIO_puts(bp,"SSL-Session:\n") <= 0) goto err;
1.91 + if (x->ssl_version == SSL2_VERSION)
1.92 + s="SSLv2";
1.93 + else if (x->ssl_version == SSL3_VERSION)
1.94 + s="SSLv3";
1.95 + else if (x->ssl_version == TLS1_VERSION)
1.96 + s="TLSv1";
1.97 + else
1.98 + s="unknown";
1.99 + if (BIO_printf(bp," Protocol : %s\n",s) <= 0) goto err;
1.100 +
1.101 + if (x->cipher == NULL)
1.102 + {
1.103 + if (((x->cipher_id) & 0xff000000) == 0x02000000)
1.104 + {
1.105 + if (BIO_printf(bp," Cipher : %06lX\n",x->cipher_id&0xffffff) <= 0)
1.106 + goto err;
1.107 + }
1.108 + else
1.109 + {
1.110 + if (BIO_printf(bp," Cipher : %04lX\n",x->cipher_id&0xffff) <= 0)
1.111 + goto err;
1.112 + }
1.113 + }
1.114 + else
1.115 + {
1.116 + if (BIO_printf(bp," Cipher : %s\n",((x->cipher == NULL)?"unknown":x->cipher->name)) <= 0)
1.117 + goto err;
1.118 + }
1.119 + if (BIO_puts(bp," Session-ID: ") <= 0) goto err;
1.120 + for (i=0; i<x->session_id_length; i++)
1.121 + {
1.122 + if (BIO_printf(bp,"%02X",x->session_id[i]) <= 0) goto err;
1.123 + }
1.124 + if (BIO_puts(bp,"\n Session-ID-ctx: ") <= 0) goto err;
1.125 + for (i=0; i<x->sid_ctx_length; i++)
1.126 + {
1.127 + if (BIO_printf(bp,"%02X",x->sid_ctx[i]) <= 0)
1.128 + goto err;
1.129 + }
1.130 + if (BIO_puts(bp,"\n Master-Key: ") <= 0) goto err;
1.131 + for (i=0; i<(unsigned int)x->master_key_length; i++)
1.132 + {
1.133 + if (BIO_printf(bp,"%02X",x->master_key[i]) <= 0) goto err;
1.134 + }
1.135 + if (BIO_puts(bp,"\n Key-Arg : ") <= 0) goto err;
1.136 + if (x->key_arg_length == 0)
1.137 + {
1.138 + if (BIO_puts(bp,"None") <= 0) goto err;
1.139 + }
1.140 + else
1.141 + for (i=0; i<x->key_arg_length; i++)
1.142 + {
1.143 + if (BIO_printf(bp,"%02X",x->key_arg[i]) <= 0) goto err;
1.144 + }
1.145 +#ifndef OPENSSL_NO_KRB5
1.146 + if (BIO_puts(bp,"\n Krb5 Principal: ") <= 0) goto err;
1.147 + if (x->krb5_client_princ_len == 0)
1.148 + {
1.149 + if (BIO_puts(bp,"None") <= 0) goto err;
1.150 + }
1.151 + else
1.152 + for (i=0; i<x->krb5_client_princ_len; i++)
1.153 + {
1.154 + if (BIO_printf(bp,"%02X",x->krb5_client_princ[i]) <= 0) goto err;
1.155 + }
1.156 +#endif /* OPENSSL_NO_KRB5 */
1.157 +
1.158 +#ifndef OPENSSL_NO_COMP
1.159 + if (x->compress_meth != 0)
1.160 + {
1.161 + SSL_COMP *comp = NULL;
1.162 +
1.163 + ssl_cipher_get_evp(x,NULL,NULL,&comp);
1.164 + if (comp == NULL)
1.165 + {
1.166 + if (BIO_printf(bp,"\n Compression: %d",x->compress_meth) <= 0) goto err;
1.167 + }
1.168 + else
1.169 + {
1.170 + if (BIO_printf(bp,"\n Compression: %d (%s)", comp->id,comp->method->name) <= 0) goto err;
1.171 + }
1.172 + }
1.173 +#endif
1.174 + if (x->time != 0L)
1.175 + {
1.176 + if (BIO_printf(bp, "\n Start Time: %ld",x->time) <= 0) goto err;
1.177 + }
1.178 + if (x->timeout != 0L)
1.179 + {
1.180 + if (BIO_printf(bp, "\n Timeout : %ld (sec)",x->timeout) <= 0) goto err;
1.181 + }
1.182 + if (BIO_puts(bp,"\n") <= 0) goto err;
1.183 +
1.184 + if (BIO_puts(bp, " Verify return code: ") <= 0) goto err;
1.185 + if (BIO_printf(bp, "%ld (%s)\n", x->verify_result,
1.186 + X509_verify_cert_error_string(x->verify_result)) <= 0) goto err;
1.187 +
1.188 + return(1);
1.189 +err:
1.190 + return(0);
1.191 + }
1.192 +