0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 31 39 39 39 20 4d 61 (C) 1997-1999 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 73 6f 6d 65 20 6d 6f 64 69 66 69 63 61 74 69 some modificati
0050: 6f 6e 73 3a 0a 20 2a 09 43 6f 70 79 72 69 67 68 ons:. *.Copyrigh
0060: 74 20 28 43 29 20 32 30 30 30 20 41 6a 75 62 61 t (C) 2000 Ajuba
0070: 20 53 6f 6c 75 74 69 6f 6e 73 0a 20 2a 09 43 6f Solutions. *.Co
0080: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 32 pyright (C) 2002
0090: 20 41 63 74 69 76 65 53 74 61 74 65 20 43 6f 72 ActiveState Cor
00a0: 70 6f 72 61 74 69 6f 6e 0a 20 2a 09 43 6f 70 79 poration. *.Copy
00b0: 72 69 67 68 74 20 28 43 29 20 32 30 30 34 20 53 right (C) 2004 S
00c0: 74 61 72 66 69 73 68 20 53 79 73 74 65 6d 73 20 tarfish Systems
00d0: 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 6b 61 20 . *. * TLS (aka
00e0: 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 2d 20 63 SSL) Channel - c
00f0: 61 6e 20 62 65 20 6c 61 79 65 72 65 64 20 6f 6e an be layered on
0100: 20 61 6e 79 20 62 69 2d 64 69 72 65 63 74 69 6f any bi-directio
0110: 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 61 6e 6e nal. * Tcl_Chann
0120: 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 75 69 72 el (Note: Requir
0130: 65 73 20 54 72 66 20 43 6f 72 65 20 50 61 74 63 es Trf Core Patc
0140: 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 20 77 61 h). *. * This wa
0150: 73 20 62 75 69 6c 74 20 28 61 6c 6d 6f 73 74 29 s built (almost)
0160: 20 66 72 6f 6d 20 73 63 72 61 74 63 68 20 62 61 from scratch ba
0170: 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 72 76 61 sed upon observa
0180: 74 69 6f 6e 20 6f 66 0a 20 2a 20 4f 70 65 6e 53 tion of. * OpenS
0190: 53 4c 20 30 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20 SL 0.9.2B. *. *
01a0: 41 64 64 69 74 69 6f 6e 20 63 72 65 64 69 74 20 Addition credit
01b0: 69 73 20 64 75 65 20 66 6f 72 20 41 6e 64 72 65 is due for Andre
01c0: 61 73 20 4b 75 70 72 69 65 73 20 28 61 2e 6b 75 as Kupries (a.ku
01d0: 70 72 69 65 73 40 77 65 73 74 65 6e 64 2e 63 6f pries@westend.co
01e0: 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 72 6f 76 69 m), for. * provi
01f0: 64 69 6e 67 20 74 68 65 20 54 63 6c 5f 52 65 70 ding the Tcl_Rep
0200: 6c 61 63 65 43 68 61 6e 6e 65 6c 20 6d 65 63 68 laceChannel mech
0210: 61 6e 69 73 6d 20 61 6e 64 20 77 6f 72 6b 69 6e anism and workin
0220: 67 20 63 6c 6f 73 65 6c 79 20 77 69 74 68 20 6d g closely with m
0230: 65 0a 20 2a 20 74 6f 20 65 6e 68 61 6e 63 65 20 e. * to enhance
0240: 69 74 20 74 6f 20 73 75 70 70 6f 72 74 20 66 75 it to support fu
0250: 6c 6c 20 66 69 6c 65 65 76 65 6e 74 20 73 65 6d ll fileevent sem
0260: 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c antics.. *. * Al
0270: 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 20 62 79 20 so work done by
0280: 74 68 65 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c the follow peopl
0290: 65 20 70 72 6f 76 69 64 65 64 20 74 68 65 20 69 e provided the i
02a0: 6d 70 65 74 75 73 20 74 6f 20 64 6f 20 74 68 69 mpetus to do thi
02b0: 73 20 22 72 69 67 68 74 22 3a 0a 20 2a 09 74 63 s "right":. *.tc
02c0: 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 4d 63 43 6f lSSL (Colin McCo
02d0: 72 6d 61 63 6b 2c 20 53 68 61 72 65 64 20 54 65 rmack, Shared Te
02e0: 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a 09 53 53 4c chnology). *.SSL
02f0: 74 63 6c 20 28 50 65 74 65 72 20 41 6e 74 6d 61 tcl (Peter Antma
0300: 6e 29 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c n). *. */..#incl
0310: 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 ude "tlsInt.h".#
0320: 69 6e 63 6c 75 64 65 20 22 74 63 6c 4f 70 74 73 include "tclOpts
0330: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 .h".#include <st
0340: 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 dio.h>.#include
0350: 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c <stdlib.h>.#incl
0360: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 72 73 61 ude <openssl/rsa
0370: 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 45 78 74 65 72 .h>../*. * Exter
0380: 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 73 0a 20 2a nal functions. *
0390: 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 /../*. * Forward
03a0: 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a declarations. *
03b0: 2f 0a 0a 23 64 65 66 69 6e 65 20 46 32 4e 28 20 /..#define F2N(
03c0: 6b 65 79 2c 20 64 73 70 29 20 5c 0a 09 28 28 28 key, dsp) \..(((
03d0: 6b 65 79 29 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 key) == NULL) ?
03e0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 20 3a 20 (char *) NULL :
03f0: 5c 0a 09 09 54 63 6c 5f 54 72 61 6e 73 6c 61 74 \...Tcl_Translat
0400: 65 46 69 6c 65 4e 61 6d 65 28 69 6e 74 65 72 70 eFileName(interp
0410: 2c 20 28 6b 65 79 29 2c 20 28 64 73 70 29 29 29 , (key), (dsp)))
0420: 0a 23 64 65 66 69 6e 65 20 52 45 41 53 4f 4e 28 .#define REASON(
0430: 29 09 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 ).ERR_reason_err
0440: 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 or_string(ERR_ge
0450: 74 5f 65 72 72 6f 72 28 29 29 0a 0a 73 74 61 74 t_error())..stat
0460: 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 54 58 5f ic SSL_CTX *CTX_
0470: 49 6e 69 74 28 53 74 61 74 65 20 2a 73 74 61 74 Init(State *stat
0480: 65 50 74 72 2c 20 69 6e 74 20 69 73 53 65 72 76 ePtr, int isServ
0490: 65 72 2c 20 69 6e 74 20 70 72 6f 74 6f 2c 20 63 er, int proto, c
04a0: 68 61 72 20 2a 6b 65 79 2c 0a 09 09 09 63 68 61 har *key,....cha
04b0: 72 20 2a 63 65 72 74 66 69 6c 65 2c 20 75 6e 73 r *certfile, uns
04c0: 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 79 5f igned char *key_
04d0: 61 73 6e 31 2c 20 75 6e 73 69 67 6e 65 64 20 63 asn1, unsigned c
04e0: 68 61 72 20 2a 63 65 72 74 5f 61 73 6e 31 2c 0a har *cert_asn1,.
04f0: 09 09 09 69 6e 74 20 6b 65 79 5f 61 73 6e 31 5f ...int key_asn1_
0500: 6c 65 6e 2c 20 69 6e 74 20 63 65 72 74 5f 61 73 len, int cert_as
0510: 6e 31 5f 6c 65 6e 2c 20 63 68 61 72 20 2a 43 41 n1_len, char *CA
0520: 64 69 72 2c 20 63 68 61 72 20 2a 43 41 66 69 6c dir, char *CAfil
0530: 65 2c 0a 20 20 20 20 20 20 63 68 61 72 20 2a 63 e,. char *c
0540: 69 70 68 65 72 73 2c 20 63 68 61 72 20 2a 44 48 iphers, char *DH
0550: 70 61 72 61 6d 73 29 3b 0a 0a 73 74 61 74 69 63 params);..static
0560: 20 69 6e 74 09 54 6c 73 4c 69 62 49 6e 69 74 28 int.TlsLibInit(
0570: 69 6e 74 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 int uninitialize
0580: 29 3b 0a 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f );..#define TLS_
0590: 50 52 4f 54 4f 5f 53 53 4c 32 09 09 30 78 30 31 PROTO_SSL2..0x01
05a0: 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f .#define TLS_PRO
05b0: 54 4f 5f 53 53 4c 33 09 09 30 78 30 32 0a 23 64 TO_SSL3..0x02.#d
05c0: 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f efine TLS_PROTO_
05d0: 54 4c 53 31 09 09 30 78 30 34 0a 23 64 65 66 69 TLS1..0x04.#defi
05e0: 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 ne TLS_PROTO_TLS
05f0: 31 5f 31 09 30 78 30 38 0a 23 64 65 66 69 6e 65 1_1.0x08.#define
0600: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
0610: 32 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 54 2.0x10.#define T
0620: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 09 LS_PROTO_TLS1_3.
0630: 30 78 32 30 0a 23 64 65 66 69 6e 65 20 45 4e 41 0x20.#define ENA
0640: 42 4c 45 44 28 66 6c 61 67 2c 20 6d 61 73 6b 29 BLED(flag, mask)
0650: 09 28 28 28 66 6c 61 67 29 20 26 20 28 6d 61 73 .(((flag) & (mas
0660: 6b 29 29 20 3d 3d 20 28 6d 61 73 6b 29 29 0a 0a k)) == (mask))..
0670: 23 64 65 66 69 6e 65 20 53 53 4c 4b 45 59 4c 4f #define SSLKEYLO
0680: 47 46 49 4c 45 09 09 22 53 53 4c 4b 45 59 4c 4f GFILE.."SSLKEYLO
0690: 47 46 49 4c 45 22 0a 0a 2f 2a 0a 20 2a 20 53 74 GFILE"../*. * St
06a0: 61 74 69 63 20 64 61 74 61 20 73 74 72 75 63 74 atic data struct
06b0: 75 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 ures. */..#ifnde
06c0: 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44 48 0a f OPENSSL_NO_DH.
06d0: 23 69 6e 63 6c 75 64 65 20 22 64 68 5f 70 61 72 #include "dh_par
06e0: 61 6d 73 2e 68 22 0a 23 65 6e 64 69 66 0a 0a 2f ams.h".#endif../
06f0: 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 74 68 65 *. * We lose the
0700: 20 74 63 6c 20 70 61 73 73 77 6f 72 64 20 63 61 tcl password ca
0710: 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 65 20 75 llback when we u
0720: 73 65 20 74 68 65 20 52 53 41 20 42 53 41 46 45 se the RSA BSAFE
0730: 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a 20 2a 20 SSL-C 1.1.2. *
0740: 6c 69 62 72 61 72 69 65 73 20 69 6e 73 74 65 61 libraries instea
0750: 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 d of the current
0760: 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 61 72 69 OpenSSL librari
0770: 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 65 66 20 es.. */..#ifdef
0780: 42 53 41 46 45 0a 23 64 65 66 69 6e 65 20 50 52 BSAFE.#define PR
0790: 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 20 E_OPENSSL_0_9_4
07a0: 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 1.#endif../*. *
07b0: 50 72 65 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e Pre OpenSSL 0.9.
07c0: 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a 0a 23 69 4 Compat. */..#i
07d0: 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f 46 0a 23 fndef STACK_OF.#
07e0: 64 65 66 69 6e 65 20 53 54 41 43 4b 5f 4f 46 28 define STACK_OF(
07f0: 78 29 09 09 09 53 54 41 43 4b 0a 23 64 65 66 69 x)...STACK.#defi
0800: 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 ne sk_SSL_CIPHER
0810: 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f 6e 75 6d _num(sk)..sk_num
0820: 28 28 73 6b 29 29 0a 23 64 65 66 69 6e 65 20 73 ((sk)).#define s
0830: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c k_SSL_CIPHER_val
0840: 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 09 28 ue( sk, index).(
0850: 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 6b 5f 76 SSL_CIPHER*)sk_v
0860: 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 6e 64 65 alue((sk), (inde
0870: 78 29 29 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 x)).#endif../*.
0880: 2a 20 54 68 72 65 61 64 2d 53 61 66 65 20 54 4c * Thread-Safe TL
0890: 53 20 43 6f 64 65 0a 20 2a 2f 0a 0a 23 69 66 64 S Code. */..#ifd
08a0: 65 66 20 54 43 4c 5f 54 48 52 45 41 44 53 0a 23 ef TCL_THREADS.#
08b0: 64 65 66 69 6e 65 20 4f 50 45 4e 53 53 4c 5f 54 define OPENSSL_T
08c0: 48 52 45 41 44 5f 44 45 46 49 4e 45 53 0a 23 69 HREAD_DEFINES.#i
08d0: 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f nclude <openssl/
08e0: 6f 70 65 6e 73 73 6c 63 6f 6e 66 2e 68 3e 0a 0a opensslconf.h>..
08f0: 23 69 66 64 65 66 20 4f 50 45 4e 53 53 4c 5f 54 #ifdef OPENSSL_T
0900: 48 52 45 41 44 53 0a 23 69 6e 63 6c 75 64 65 20 HREADS.#include
0910: 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 70 74 6f 2e <openssl/crypto.
0920: 68 3e 0a 2f 2a 20 41 64 64 65 64 20 2a 2f 0a 23 h>./* Added */.#
0930: 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c include <openssl
0940: 2f 73 73 6c 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 54 /ssl.h>../*. * T
0950: 68 72 65 61 64 65 64 20 6f 70 65 72 61 74 69 6f hreaded operatio
0960: 6e 20 72 65 71 75 69 72 65 73 20 6c 6f 63 6b 69 n requires locki
0970: 6e 67 20 63 61 6c 6c 62 61 63 6b 73 0a 20 2a 20 ng callbacks. *
0980: 42 61 73 65 64 20 66 72 6f 6d 20 2f 63 72 79 70 Based from /cryp
0990: 74 6f 2f 63 72 79 70 74 6c 69 62 2e 63 20 6f 66 to/cryptlib.c of
09a0: 20 4f 70 65 6e 53 53 4c 20 61 6e 64 20 4e 53 4f OpenSSL and NSO
09b0: 70 65 6e 53 53 4c 2e 0a 20 2a 2f 0a 0a 73 74 61 penSSL.. */..sta
09c0: 74 69 63 20 54 63 6c 5f 4d 75 74 65 78 20 2a 6c tic Tcl_Mutex *l
09d0: 6f 63 6b 73 20 3d 20 4e 55 4c 4c 3b 0a 73 74 61 ocks = NULL;.sta
09e0: 74 69 63 20 69 6e 74 20 6c 6f 63 6b 73 43 6f 75 tic int locksCou
09f0: 6e 74 20 3d 20 30 3b 0a 73 74 61 74 69 63 20 54 nt = 0;.static T
0a00: 63 6c 5f 4d 75 74 65 78 20 69 6e 69 74 5f 6d 78 cl_Mutex init_mx
0a10: 3b 0a 0a 23 20 69 66 20 4f 50 45 4e 53 53 4c 5f ;..# if OPENSSL_
0a20: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c VERSION_NUMBER <
0a30: 20 30 78 31 30 31 30 30 30 30 30 4c 0a 0a 76 6f 0x10100000L..vo
0a40: 69 64 20 43 72 79 70 74 6f 54 68 72 65 61 64 4c id CryptoThreadL
0a50: 6f 63 6b 43 61 6c 6c 62 61 63 6b 28 69 6e 74 20 ockCallback(int
0a60: 6d 6f 64 65 2c 20 69 6e 74 20 6e 2c 20 63 6f 6e mode, int n, con
0a70: 73 74 20 63 68 61 72 20 2a 66 69 6c 65 2c 20 69 st char *file, i
0a80: 6e 74 20 6c 69 6e 65 29 20 7b 0a 0a 09 69 66 20 nt line) {...if
0a90: 28 6d 6f 64 65 20 26 20 43 52 59 50 54 4f 5f 4c (mode & CRYPTO_L
0aa0: 4f 43 4b 29 20 7b 0a 09 09 2f 2a 20 54 68 69 73 OCK) {.../* This
0ab0: 20 64 65 62 75 67 67 69 6e 67 20 69 73 20 74 75 debugging is tu
0ac0: 72 6e 65 64 20 6f 66 66 20 62 79 20 64 65 66 61 rned off by defa
0ad0: 75 6c 74 20 2d 2d 20 69 74 27 73 20 74 6f 6f 20 ult -- it's too
0ae0: 6e 6f 69 73 79 2e 20 2a 2f 0a 09 09 2f 2a 20 64 noisy. */.../* d
0af0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 74 printf("Called t
0b00: 6f 20 6c 6f 63 6b 20 28 6e 3d 25 69 20 6f 66 20 o lock (n=%i of
0b10: 25 69 29 22 2c 20 6e 2c 20 6c 6f 63 6b 73 43 6f %i)", n, locksCo
0b20: 75 6e 74 29 3b 20 2a 2f 0a 09 09 54 63 6c 5f 4d unt); */...Tcl_M
0b30: 75 74 65 78 4c 6f 63 6b 28 26 6c 6f 63 6b 73 5b utexLock(&locks[
0b40: 6e 5d 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 n]);..} else {..
0b50: 09 2f 2a 20 64 70 72 69 6e 74 66 28 22 43 61 6c ./* dprintf("Cal
0b60: 6c 65 64 20 74 6f 20 75 6e 6c 6f 63 6b 20 28 6e led to unlock (n
0b70: 3d 25 69 20 6f 66 20 25 69 29 22 2c 20 6e 2c 20 =%i of %i)", n,
0b80: 6c 6f 63 6b 73 43 6f 75 6e 74 29 3b 20 2a 2f 0a locksCount); */.
0b90: 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 ..Tcl_MutexUnloc
0ba0: 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a 09 7d k(&locks[n]);..}
0bb0: 0a 0a 09 2f 2a 20 64 70 72 69 6e 74 66 28 22 52 .../* dprintf("R
0bc0: 65 74 75 72 6e 69 6e 67 22 29 3b 20 2a 2f 0a 0a eturning"); */..
0bd0: 09 72 65 74 75 72 6e 3b 0a 09 66 69 6c 65 20 3d .return;..file =
0be0: 20 66 69 6c 65 3b 0a 09 6c 69 6e 65 20 3d 20 6c file;..line = l
0bf0: 69 6e 65 3b 0a 7d 0a 0a 75 6e 73 69 67 6e 65 64 ine;.}..unsigned
0c00: 20 6c 6f 6e 67 20 43 72 79 70 74 6f 54 68 72 65 long CryptoThre
0c10: 61 64 49 64 43 61 6c 6c 62 61 63 6b 28 76 6f 69 adIdCallback(voi
0c20: 64 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 6c d) {..unsigned l
0c30: 6f 6e 67 20 72 65 74 3b 0a 0a 09 64 70 72 69 6e ong ret;...dprin
0c40: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 tf("Called");...
0c50: 72 65 74 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 ret = (unsigned
0c60: 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 43 75 72 long) Tcl_GetCur
0c70: 72 65 6e 74 54 68 72 65 61 64 28 29 3b 0a 0a 09 rentThread();...
0c80: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 dprintf("Returni
0c90: 6e 67 20 25 6c 75 22 2c 20 72 65 74 29 3b 0a 0a ng %lu", ret);..
0ca0: 09 72 65 74 75 72 6e 28 72 65 74 29 3b 0a 7d 0a .return(ret);.}.
0cb0: 23 65 6e 64 69 66 0a 23 65 6e 64 69 66 20 2f 2a #endif.#endif /*
0cc0: 20 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 OPENSSL_THREADS
0cd0: 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 54 43 */.#endif /* TC
0ce0: 4c 5f 54 48 52 45 41 44 53 20 2a 2f 0a 0a 0c 0a L_THREADS */....
0cf0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
0d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 --------. *. * I
0d40: 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 nfoCallback --.
0d50: 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 53 *. *.monitors SS
0d60: 4c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f L connection pro
0d70: 63 65 73 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c cess. *. * Resul
0d80: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 ts:. *.None. *.
0d90: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0da0: 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 *.Calls callbac
0db0: 6b 20 28 69 66 20 64 65 66 69 6e 65 64 29 0a 20 k (if defined).
0dc0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e00: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
0e10: 76 6f 69 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 63 void.InfoCallbac
0e20: 6b 28 63 6f 6e 73 74 20 53 53 4c 20 2a 73 73 6c k(const SSL *ssl
0e30: 2c 20 69 6e 74 20 77 68 65 72 65 2c 20 69 6e 74 , int where, int
0e40: 20 72 65 74 29 20 7b 0a 20 20 20 20 53 74 61 74 ret) {. Stat
0e50: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
0e60: 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f 61 70 tate*)SSL_get_ap
0e70: 70 5f 64 61 74 61 28 28 53 53 4c 20 2a 29 73 73 p_data((SSL *)ss
0e80: 6c 29 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 l);. Tcl_Obj
0e90: 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 63 68 61 *cmdPtr;. cha
0ea0: 72 20 2a 6d 61 6a 6f 72 3b 20 63 68 61 72 20 2a r *major; char *
0eb0: 6d 69 6e 6f 72 3b 0a 0a 20 20 20 20 64 70 72 69 minor;.. dpri
0ec0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
0ed0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
0ee0: 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 ->callback == (T
0ef0: 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 0a 09 72 cl_Obj*)NULL)..r
0f00: 65 74 75 72 6e 3b 0a 0a 20 20 20 20 63 6d 64 50 eturn;.. cmdP
0f10: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 tr = Tcl_Duplica
0f20: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e teObj(statePtr->
0f30: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 20 callback);..#if
0f40: 30 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 20 0. if (where
0f50: 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 & SSL_CB_ALERT)
0f60: 7b 0a 09 73 65 76 20 3d 20 53 53 4c 5f 61 6c 65 {..sev = SSL_ale
0f70: 72 74 5f 74 79 70 65 5f 73 74 72 69 6e 67 5f 6c rt_type_string_l
0f80: 6f 6e 67 28 72 65 74 29 3b 0a 09 69 66 20 28 73 ong(ret);..if (s
0f90: 74 72 63 6d 70 28 20 73 65 76 2c 20 22 66 61 74 trcmp( sev, "fat
0fa0: 61 6c 22 29 3d 3d 30 29 20 7b 09 2f 2a 20 4d 61 al")==0) {./* Ma
0fb0: 70 20 74 6f 20 65 72 72 6f 72 20 2a 2f 0a 09 20 p to error */..
0fc0: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 Tls_Error(sta
0fd0: 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 52 4f 52 tePtr, SSL_ERROR
0fe0: 28 73 73 6c 2c 20 30 29 29 3b 0a 09 20 20 20 20 (ssl, 0));..
0ff0: 72 65 74 75 72 6e 3b 0a 09 7d 0a 20 20 20 20 7d return;..}. }
1000: 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28 .#endif. if (
1010: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 48 where & SSL_CB_H
1020: 41 4e 44 53 48 41 4b 45 5f 53 54 41 52 54 29 20 ANDSHAKE_START)
1030: 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64 {..major = "hand
1040: 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d shake";..minor =
1050: 20 22 73 74 61 72 74 22 3b 0a 20 20 20 20 7d 20 "start";. }
1060: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
1070: 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b SSL_CB_HANDSHAK
1080: 45 5f 44 4f 4e 45 29 20 7b 0a 09 6d 61 6a 6f 72 E_DONE) {..major
1090: 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a = "handshake";.
10a0: 09 6d 69 6e 6f 72 20 3d 20 22 64 6f 6e 65 22 3b .minor = "done";
10b0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69 . } else {..i
10c0: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 f (where & SSL_C
10d0: 42 5f 41 4c 45 52 54 29 09 09 6d 61 6a 6f 72 20 B_ALERT)..major
10e0: 3d 20 22 61 6c 65 72 74 22 3b 0a 09 65 6c 73 65 = "alert";..else
10f0: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c if (where & SSL
1100: 5f 53 54 5f 43 4f 4e 4e 45 43 54 29 09 6d 61 6a _ST_CONNECT).maj
1110: 6f 72 20 3d 20 22 63 6f 6e 6e 65 63 74 22 3b 0a or = "connect";.
1120: 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 .else if (where
1130: 26 20 53 53 4c 5f 53 54 5f 41 43 43 45 50 54 29 & SSL_ST_ACCEPT)
1140: 09 09 6d 61 6a 6f 72 20 3d 20 22 61 63 63 65 70 ..major = "accep
1150: 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 6d 61 t";..else.....ma
1160: 6a 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b jor = "unknown";
1170: 0a 0a 09 69 66 20 28 77 68 65 72 65 20 26 20 53 ...if (where & S
1180: 53 4c 5f 43 42 5f 52 45 41 44 29 09 09 6d 69 6e SL_CB_READ)..min
1190: 6f 72 20 3d 20 22 72 65 61 64 22 3b 0a 09 65 6c or = "read";..el
11a0: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
11b0: 53 4c 5f 43 42 5f 57 52 49 54 45 29 09 09 6d 69 SL_CB_WRITE)..mi
11c0: 6e 6f 72 20 3d 20 22 77 72 69 74 65 22 3b 0a 09 nor = "write";..
11d0: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
11e0: 20 53 53 4c 5f 43 42 5f 4c 4f 4f 50 29 09 09 6d SSL_CB_LOOP)..m
11f0: 69 6e 6f 72 20 3d 20 22 6c 6f 6f 70 22 3b 0a 09 inor = "loop";..
1200: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
1210: 20 53 53 4c 5f 43 42 5f 45 58 49 54 29 09 09 6d SSL_CB_EXIT)..m
1220: 69 6e 6f 72 20 3d 20 22 65 78 69 74 22 3b 0a 09 inor = "exit";..
1230: 65 6c 73 65 09 09 09 09 09 6d 69 6e 6f 72 20 3d else.....minor =
1240: 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 20 20 20 20 "unknown";.
1250: 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f }.. Tcl_ListO
1260: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1270: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1280: 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 p, cmdPtr, ..
1290: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
12a0: 6a 28 20 22 69 6e 66 6f 22 2c 20 2d 31 29 29 3b j( "info", -1));
12b0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
12c0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
12d0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
12e0: 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 , cmdPtr, ..
12f0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
1300: 28 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c ( Tcl_GetChannel
1310: 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 Name(statePtr->s
1320: 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 elf), -1) );..
1330: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1340: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
1350: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1360: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
1370: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d 61 6a ewStringObj( maj
1380: 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 or, -1) );..
1390: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
13a0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
13b0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
13c0: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
13d0: 53 74 72 69 6e 67 4f 62 6a 28 20 6d 69 6e 6f 72 StringObj( minor
13e0: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 69 66 , -1) );.. if
13f0: 20 28 77 68 65 72 65 20 26 20 28 53 53 4c 5f 43 (where & (SSL_C
1400: 42 5f 4c 4f 4f 50 7c 53 53 4c 5f 43 42 5f 45 58 B_LOOP|SSL_CB_EX
1410: 49 54 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 IT)) {..Tcl_List
1420: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1430: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1440: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
1450: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
1460: 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 74 72 j( SSL_state_str
1470: 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d ing_long(ssl), -
1480: 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 1) );. } else
1490: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c if (where & SSL
14a0: 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a 09 63 6f _CB_ALERT) {..co
14b0: 6e 73 74 20 63 68 61 72 20 2a 63 70 20 3d 20 28 nst char *cp = (
14c0: 63 68 61 72 20 2a 29 20 53 53 4c 5f 61 6c 65 72 char *) SSL_aler
14d0: 74 5f 64 65 73 63 5f 73 74 72 69 6e 67 5f 6c 6f t_desc_string_lo
14e0: 6e 67 28 72 65 74 29 3b 0a 0a 09 54 63 6c 5f 4c ng(ret);...Tcl_L
14f0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1500: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1510: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, cmdPtr,..
1520: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
1530: 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 3b gObj( cp, -1) );
1540: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
1550: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1560: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
1570: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
1580: 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 r,.. Tcl_NewS
1590: 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 74 tringObj( SSL_st
15a0: 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 ate_string_long(
15b0: 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20 ssl), -1) );.
15c0: 20 7d 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 }. Tcl_Prese
15d0: 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 rve( (ClientData
15e0: 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ) statePtr->inte
15f0: 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 rp);. Tcl_Pre
1600: 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 serve( (ClientDa
1610: 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a ta) statePtr);..
1620: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
1630: 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 20 ount( cmdPtr);.
1640: 20 20 20 28 76 6f 69 64 29 20 54 63 6c 5f 45 76 (void) Tcl_Ev
1650: 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72 alObjEx(statePtr
1660: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1670: 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 , TCL_EVAL_GLOBA
1680: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 L);. Tcl_Decr
1690: 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 RefCount( cmdPtr
16a0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 );.. Tcl_Rele
16b0: 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 ase( (ClientData
16c0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
16d0: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 Tcl_Release( (C
16e0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
16f0: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 7d Ptr->interp);..}
1700: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
1710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
1750: 2a 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b * VerifyCallback
1760: 20 2d 2d 0a 20 2a 0a 20 2a 09 4d 6f 6e 69 74 6f --. *. *.Monito
1770: 72 73 20 53 53 4c 20 63 65 72 74 69 66 69 63 61 rs SSL certifica
1780: 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 20 70 72 te validation pr
1790: 6f 63 65 73 73 2e 0a 20 2a 09 54 68 69 73 20 69 ocess.. *.This i
17a0: 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 76 65 s called wheneve
17b0: 72 20 61 20 63 65 72 74 69 66 69 63 61 74 65 20 r a certificate
17c0: 69 73 20 69 6e 73 70 65 63 74 65 64 0a 20 2a 09 is inspected. *.
17d0: 6f 72 20 64 65 63 69 64 65 64 20 69 6e 76 61 6c or decided inval
17e0: 69 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 id.. *. * Result
17f0: 73 3a 0a 20 2a 09 41 20 63 61 6c 6c 62 61 63 6b s:. *.A callback
1800: 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 73 6f bound to the so
1810: 63 6b 65 74 20 6d 61 79 20 72 65 74 75 72 6e 20 cket may return
1820: 6f 6e 65 20 6f 66 3a 0a 20 2a 09 20 20 20 20 30 one of:. *. 0
1830: 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 69 ...- the certifi
1840: 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 69 cate is deemed i
1850: 6e 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 31 09 nvalid. *. 1.
1860: 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 69 63 ..- the certific
1870: 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 76 61 ate is deemed va
1880: 6c 69 64 0a 20 2a 09 20 20 20 20 65 6d 70 74 79 lid. *. empty
1890: 20 73 74 72 69 6e 67 09 2d 20 6e 6f 20 63 68 61 string.- no cha
18a0: 6e 67 65 20 74 6f 20 63 65 72 74 69 66 69 63 61 nge to certifica
18b0: 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 0a 20 2a te validation. *
18c0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
18d0: 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 66 69 65 :. *.The err fie
18e0: 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e ld of the curren
18f0: 74 6c 79 20 6f 70 65 72 61 74 69 76 65 20 53 74 tly operative St
1900: 61 74 65 20 69 73 20 73 65 74 0a 20 2a 09 20 20 ate is set. *.
1910: 74 6f 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 to a string desc
1920: 72 69 62 69 6e 67 20 74 68 65 20 53 53 4c 20 6e ribing the SSL n
1930: 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c 75 egotiation failu
1940: 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d re reason. *----
1950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1990: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56 */.static int.V
19a0: 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 28 69 6e erifyCallback(in
19b0: 74 20 6f 6b 2c 20 58 35 30 39 5f 53 54 4f 52 45 t ok, X509_STORE
19c0: 5f 43 54 58 20 2a 63 74 78 29 20 7b 0a 20 20 20 _CTX *ctx) {.
19d0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 Tcl_Obj *cmdPtr
19e0: 2c 20 2a 72 65 73 75 6c 74 3b 0a 20 20 20 20 63 , *result;. c
19f0: 68 61 72 20 2a 65 72 72 53 74 72 2c 20 2a 73 74 har *errStr, *st
1a00: 72 69 6e 67 3b 0a 20 20 20 20 69 6e 74 20 6c 65 ring;. int le
1a10: 6e 67 74 68 3b 0a 20 20 20 20 53 53 4c 20 20 20 ngth;. SSL
1a20: 2a 73 73 6c 09 09 3d 20 28 53 53 4c 2a 29 58 35 *ssl..= (SSL*)X5
1a30: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 09_STORE_CTX_get
1a40: 5f 65 78 5f 64 61 74 61 28 63 74 78 2c 20 53 53 _ex_data(ctx, SS
1a50: 4c 5f 67 65 74 5f 65 78 5f 64 61 74 61 5f 58 35 L_get_ex_data_X5
1a60: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 69 64 78 09_STORE_CTX_idx
1a70: 28 29 29 3b 0a 20 20 20 20 58 35 30 39 20 20 2a ());. X509 *
1a80: 63 65 72 74 09 09 3d 20 58 35 30 39 5f 53 54 4f cert..= X509_STO
1a90: 52 45 5f 43 54 58 5f 67 65 74 5f 63 75 72 72 65 RE_CTX_get_curre
1aa0: 6e 74 5f 63 65 72 74 28 63 74 78 29 3b 0a 20 20 nt_cert(ctx);.
1ab0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
1ac0: 72 09 3d 20 28 53 74 61 74 65 2a 29 53 53 4c 5f r.= (State*)SSL_
1ad0: 67 65 74 5f 61 70 70 5f 64 61 74 61 28 73 73 6c get_app_data(ssl
1ae0: 29 3b 0a 20 20 20 20 69 6e 74 20 64 65 70 74 68 );. int depth
1af0: 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 ..= X509_STORE_C
1b00: 54 58 5f 67 65 74 5f 65 72 72 6f 72 5f 64 65 70 TX_get_error_dep
1b10: 74 68 28 63 74 78 29 3b 0a 20 20 20 20 69 6e 74 th(ctx);. int
1b20: 20 65 72 72 09 09 3d 20 58 35 30 39 5f 53 54 4f err..= X509_STO
1b30: 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 RE_CTX_get_error
1b40: 28 63 74 78 29 3b 0a 20 20 20 20 69 6e 74 20 63 (ctx);. int c
1b50: 6f 64 65 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ode;.. dprint
1b60: 66 28 22 56 65 72 69 66 79 3a 20 25 64 22 2c 20 f("Verify: %d",
1b70: 6f 6b 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 6f ok);.. if (!o
1b80: 6b 29 20 7b 0a 09 65 72 72 53 74 72 20 3d 20 28 k) {..errStr = (
1b90: 63 68 61 72 2a 29 58 35 30 39 5f 76 65 72 69 66 char*)X509_verif
1ba0: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 y_cert_error_str
1bb0: 69 6e 67 28 65 72 72 29 3b 0a 20 20 20 20 7d 20 ing(err);. }
1bc0: 65 6c 73 65 20 7b 0a 09 65 72 72 53 74 72 20 3d else {..errStr =
1bd0: 20 28 63 68 61 72 20 2a 29 30 3b 0a 20 20 20 20 (char *)0;.
1be0: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }.. if (state
1bf0: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d Ptr->callback ==
1c00: 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 (Tcl_Obj*)NULL)
1c10: 20 7b 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 {..if (statePtr
1c20: 2d 3e 76 66 6c 61 67 73 20 26 20 53 53 4c 5f 56 ->vflags & SSL_V
1c30: 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f ERIFY_FAIL_IF_NO
1c40: 5f 50 45 45 52 5f 43 45 52 54 29 20 7b 0a 09 20 _PEER_CERT) {..
1c50: 20 20 20 72 65 74 75 72 6e 20 6f 6b 3b 0a 09 7d return ok;..}
1c60: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 74 else {.. ret
1c70: 75 72 6e 20 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a urn 1;..}. }.
1c80: 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c cmdPtr = Tcl
1c90: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 _DuplicateObj(st
1ca0: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b atePtr->callback
1cb0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1cc0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1cd0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1ce0: 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 rp, cmdPtr, ..
1cf0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1d00: 62 6a 28 20 22 76 65 72 69 66 79 22 2c 20 2d 31 bj( "verify", -1
1d10: 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 ));.. Tcl_Lis
1d20: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
1d30: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
1d40: 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 erp, cmdPtr, ..
1d50: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1d60: 4f 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 6e Obj( Tcl_GetChan
1d70: 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 nelName(statePtr
1d80: 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a ->self), -1) );.
1d90: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1da0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1db0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1dc0: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
1dd0: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 64 65 70 l_NewIntObj( dep
1de0: 74 68 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f th) );.. Tcl_
1df0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1e00: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e ment( statePtr->
1e10: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a interp, cmdPtr,.
1e20: 09 20 20 20 20 54 6c 73 5f 4e 65 77 58 35 30 39 . Tls_NewX509
1e30: 4f 62 6a 28 20 73 74 61 74 65 50 74 72 2d 3e 69 Obj( statePtr->i
1e40: 6e 74 65 72 70 2c 20 63 65 72 74 29 20 29 3b 0a nterp, cert) );.
1e50: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1e60: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1e70: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1e80: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
1e90: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 6f 6b 29 l_NewIntObj( ok)
1ea0: 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 );.. Tcl_Lis
1eb0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
1ec0: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
1ed0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
1ee0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1ef0: 62 6a 28 20 65 72 72 53 74 72 20 3f 20 65 72 72 bj( errStr ? err
1f00: 53 74 72 20 3a 20 22 22 2c 20 2d 31 29 20 29 3b Str : "", -1) );
1f10: 0a 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 .. Tcl_Preser
1f20: 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 ve( (ClientData)
1f30: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1f40: 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 p);. Tcl_Pres
1f50: 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 erve( (ClientDat
1f60: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 a) statePtr);..
1f70: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
1f80: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 43 41 gs |= TLS_TCL_CA
1f90: 4c 4c 42 41 43 4b 3b 0a 0a 20 20 20 20 54 63 6c LLBACK;.. Tcl
1fa0: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 63 _IncrRefCount( c
1fb0: 6d 64 50 74 72 29 3b 0a 20 20 20 20 63 6f 64 65 mdPtr);. code
1fc0: 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 = Tcl_EvalObjEx
1fd0: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
1fe0: 70 2c 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 p, cmdPtr, TCL_E
1ff0: 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 20 VAL_GLOBAL);.
2000: 20 69 66 20 28 63 6f 64 65 20 21 3d 20 54 43 4c if (code != TCL
2010: 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 74 20 67 6f _OK) {../* It go
2020: 74 20 61 6e 20 65 72 72 6f 72 20 2d 20 72 65 6a t an error - rej
2030: 65 63 74 20 74 68 65 20 63 65 72 74 69 66 69 63 ect the certific
2040: 61 74 65 2e 09 09 2a 2f 0a 23 69 66 20 28 54 43 ate...*/.#if (TC
2050: 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 L_MAJOR_VERSION
2060: 3d 3d 20 38 29 20 26 26 20 28 54 43 4c 5f 4d 49 == 8) && (TCL_MI
2070: 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 36 29 NOR_VERSION < 6)
2080: 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 ..Tcl_Background
2090: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e Error(statePtr->
20a0: 69 6e 74 65 72 70 29 3b 0a 23 65 6c 73 65 0a 09 interp);.#else..
20b0: 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 78 Tcl_BackgroundEx
20c0: 63 65 70 74 69 6f 6e 28 73 74 61 74 65 50 74 72 ception(statePtr
20d0: 2d 3e 69 6e 74 65 72 70 2c 20 63 6f 64 65 29 3b ->interp, code);
20e0: 0a 23 65 6e 64 69 66 0a 09 6f 6b 20 3d 20 30 3b .#endif..ok = 0;
20f0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 . } else {..r
2100: 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 4f esult = Tcl_GetO
2110: 62 6a 52 65 73 75 6c 74 28 73 74 61 74 65 50 74 bjResult(statePt
2120: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 73 74 72 r->interp);..str
2130: 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ing = Tcl_GetStr
2140: 69 6e 67 46 72 6f 6d 4f 62 6a 28 72 65 73 75 6c ingFromObj(resul
2150: 74 2c 20 26 6c 65 6e 67 74 68 29 3b 0a 09 2f 2a t, &length);../*
2160: 20 41 6e 20 65 6d 70 74 79 20 72 65 73 75 6c 74 An empty result
2170: 20 6c 65 61 76 65 73 20 76 65 72 69 66 69 63 61 leaves verifica
2180: 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 2e 09 tion unchanged..
2190: 2a 2f 0a 09 69 66 20 28 73 74 72 69 6e 67 20 21 */..if (string !
21a0: 3d 20 4e 55 4c 4c 20 26 26 20 6c 65 6e 67 74 68 = NULL && length
21b0: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 63 6f 64 > 0) {.. cod
21c0: 65 20 3d 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 e = Tcl_GetIntFr
21d0: 6f 6d 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e omObj(statePtr->
21e0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 2c 20 interp, result,
21f0: 26 6f 6b 29 3b 0a 09 20 20 20 20 69 66 20 28 63 &ok);.. if (c
2200: 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ode != TCL_OK) {
2210: 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f 52 5f .#if (TCL_MAJOR_
2220: 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20 26 26 VERSION == 8) &&
2230: 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53 (TCL_MINOR_VERS
2240: 49 4f 4e 20 3c 20 36 29 0a 09 09 54 63 6c 5f 42 ION < 6)...Tcl_B
2250: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 ackgroundError(s
2260: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
2270: 3b 0a 23 65 6c 73 65 0a 09 09 54 63 6c 5f 42 61 ;.#else...Tcl_Ba
2280: 63 6b 67 72 6f 75 6e 64 45 78 63 65 70 74 69 6f ckgroundExceptio
2290: 6e 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 n(statePtr->inte
22a0: 72 70 2c 20 63 6f 64 65 29 3b 0a 23 65 6e 64 69 rp, code);.#endi
22b0: 66 0a 09 09 6f 6b 20 3d 20 30 3b 0a 09 20 20 20 f...ok = 0;..
22c0: 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 }..}. }.
22d0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
22e0: 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 ( cmdPtr);..
22f0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2300: 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 43 41 4c &= ~(TLS_TCL_CAL
2310: 4c 42 41 43 4b 29 3b 0a 0a 20 20 20 20 54 63 6c LBACK);.. Tcl
2320: 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e _Release( (Clien
2330: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 tData) statePtr)
2340: 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 ;. Tcl_Releas
2350: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 e( (ClientData)
2360: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2370: 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 6f );.. return(o
2380: 6b 29 3b 09 2f 2a 20 42 79 20 64 65 66 61 75 6c k);./* By defaul
2390: 74 2c 20 6c 65 61 76 65 20 76 65 72 69 66 69 63 t, leave verific
23a0: 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 2e ation unchanged.
23b0: 09 2a 2f 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d .*/.}.../*. *---
23c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2400: 0a 20 2a 0a 20 2a 20 54 6c 73 5f 45 72 72 6f 72 . *. * Tls_Error
2410: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 73 20 --. *. *.Calls
2420: 63 61 6c 6c 62 61 63 6b 20 77 69 74 68 20 24 66 callback with $f
2430: 64 20 61 6e 64 20 24 6d 73 67 20 2d 20 73 6f 20 d and $msg - so
2440: 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 63 61 6e the callback can
2450: 20 64 65 63 69 64 65 0a 20 2a 09 77 68 61 74 20 decide. *.what
2460: 74 6f 20 64 6f 20 77 69 74 68 20 65 72 72 6f 72 to do with error
2470: 73 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 s.. *. * Side ef
2480: 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 72 fects:. *.The er
2490: 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 63 r field of the c
24a0: 75 72 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 69 urrently operati
24b0: 76 65 20 53 74 61 74 65 20 69 73 20 73 65 74 0a ve State is set.
24c0: 20 2a 09 20 20 74 6f 20 61 20 73 74 72 69 6e 67 *. to a string
24d0: 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 describing the
24e0: 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 SSL negotiation
24f0: 66 61 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20 failure reason.
2500: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2540: 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c ----. */.void.Tl
2550: 73 5f 45 72 72 6f 72 28 53 74 61 74 65 20 2a 73 s_Error(State *s
2560: 74 61 74 65 50 74 72 2c 20 63 68 61 72 20 2a 6d tatePtr, char *m
2570: 73 67 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 sg) {. Tcl_Ob
2580: 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 69 j *cmdPtr;. i
2590: 6e 74 20 63 6f 64 65 3b 0a 0a 20 20 20 20 64 70 nt code;.. dp
25a0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
25b0: 0a 0a 20 20 20 20 69 66 20 28 6d 73 67 20 26 26 .. if (msg &&
25c0: 20 2a 6d 73 67 29 20 7b 0a 09 54 63 6c 5f 53 65 *msg) {..Tcl_Se
25d0: 74 45 72 72 6f 72 43 6f 64 65 28 73 74 61 74 65 tErrorCode(state
25e0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 22 53 53 Ptr->interp, "SS
25f0: 4c 22 2c 20 6d 73 67 2c 20 28 63 68 61 72 20 2a L", msg, (char *
2600: 29 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c )NULL);. } el
2610: 73 65 20 7b 0a 09 6d 73 67 20 3d 20 54 63 6c 5f se {..msg = Tcl_
2620: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
2630: 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c (Tcl_GetObjResul
2640: 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 t(statePtr->inte
2650: 72 70 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 rp), NULL);.
2660: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e }. statePtr->
2670: 65 72 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 err = msg;..
2680: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 if (statePtr->ca
2690: 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f llback == (Tcl_O
26a0: 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 bj*)NULL) {..cha
26b0: 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 r buf[BUFSIZ];..
26c0: 73 70 72 69 6e 74 66 28 62 75 66 2c 20 22 53 53 sprintf(buf, "SS
26d0: 4c 20 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 L channel \"%s\"
26e0: 3a 20 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 : error: %s",..
26f0: 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 Tcl_GetChanne
2700: 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e lName(statePtr->
2710: 73 65 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 self), msg);..Tc
2720: 6c 5f 53 65 74 52 65 73 75 6c 74 28 20 73 74 61 l_SetResult( sta
2730: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 tePtr->interp, b
2740: 75 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 uf, TCL_VOLATILE
2750: 29 3b 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f );.#if (TCL_MAJO
2760: 52 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20 R_VERSION == 8)
2770: 26 26 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 && (TCL_MINOR_VE
2780: 52 53 49 4f 4e 20 3c 20 36 29 0a 09 54 63 6c 5f RSION < 6)..Tcl_
2790: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 BackgroundError(
27a0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
27b0: 29 3b 0a 23 65 6c 73 65 0a 09 54 63 6c 5f 42 61 );.#else..Tcl_Ba
27c0: 63 6b 67 72 6f 75 6e 64 45 78 63 65 70 74 69 6f ckgroundExceptio
27d0: 6e 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 n(statePtr->inte
27e0: 72 70 2c 20 54 43 4c 5f 45 52 52 4f 52 29 3b 0a rp, TCL_ERROR);.
27f0: 23 65 6e 64 69 66 0a 09 72 65 74 75 72 6e 3b 0a #endif..return;.
2800: 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 74 72 }. cmdPtr
2810: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
2820: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 Obj(statePtr->ca
2830: 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63 llback);.. Tc
2840: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2850: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d lement(statePtr-
2860: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
2870: 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 .. Tcl_NewSt
2880: 72 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72 22 2c ringObj("error",
2890: 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1));.. Tcl_
28a0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
28b0: 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 ment(statePtr->i
28c0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a nterp, cmdPtr, .
28d0: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
28e0: 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 74 43 68 61 ngObj(Tcl_GetCha
28f0: 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 nnelName(statePt
2900: 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 29 3b 0a r->self), -1));.
2910: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
2920: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 AppendElement(st
2930: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2940: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
2950: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 6d 73 _NewStringObj(ms
2960: 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 g, -1));.. Tc
2970: 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 l_Preserve((Clie
2980: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
2990: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 ->interp);. T
29a0: 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 cl_Preserve((Cli
29b0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
29c0: 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 r);.. Tcl_Inc
29d0: 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 rRefCount(cmdPtr
29e0: 29 3b 0a 20 20 20 20 63 6f 64 65 20 3d 20 54 63 );. code = Tc
29f0: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 l_EvalObjEx(stat
2a00: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
2a10: 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 dPtr, TCL_EVAL_G
2a20: 4c 4f 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28 LOBAL);. if (
2a30: 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 code != TCL_OK)
2a40: 7b 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f 52 {.#if (TCL_MAJOR
2a50: 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20 26 _VERSION == 8) &
2a60: 26 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 & (TCL_MINOR_VER
2a70: 53 49 4f 4e 20 3c 20 36 29 0a 09 54 63 6c 5f 42 SION < 6)..Tcl_B
2a80: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 ackgroundError(s
2a90: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
2aa0: 3b 0a 23 65 6c 73 65 0a 09 54 63 6c 5f 42 61 63 ;.#else..Tcl_Bac
2ab0: 6b 67 72 6f 75 6e 64 45 78 63 65 70 74 69 6f 6e kgroundException
2ac0: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
2ad0: 70 2c 20 63 6f 64 65 29 3b 0a 23 65 6e 64 69 66 p, code);.#endif
2ae0: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 . }. Tcl_D
2af0: 65 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 ecrRefCount(cmdP
2b00: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 tr);.. Tcl_Re
2b10: 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 lease((ClientDat
2b20: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
2b30: 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 Tcl_Release((C
2b40: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
2b50: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a Ptr->interp);.}.
2b60: 0c 0a 76 6f 69 64 20 4b 65 79 4c 6f 67 43 61 6c ..void KeyLogCal
2b70: 6c 62 61 63 6b 28 63 6f 6e 73 74 20 53 53 4c 20 lback(const SSL
2b80: 2a 73 73 6c 2c 20 63 6f 6e 73 74 20 63 68 61 72 *ssl, const char
2b90: 20 2a 6c 69 6e 65 29 20 7b 0a 20 20 20 20 63 68 *line) {. ch
2ba0: 61 72 20 2a 73 74 72 20 3d 20 67 65 74 65 6e 76 ar *str = getenv
2bb0: 28 53 53 4c 4b 45 59 4c 4f 47 46 49 4c 45 29 3b (SSLKEYLOGFILE);
2bc0: 0a 20 20 20 20 46 49 4c 45 20 2a 66 64 3b 0a 20 . FILE *fd;.
2bd0: 20 20 20 69 66 20 28 73 74 72 29 20 7b 0a 09 66 if (str) {..f
2be0: 64 20 3d 20 66 6f 70 65 6e 28 73 74 72 2c 20 22 d = fopen(str, "
2bf0: 61 22 29 3b 0a 09 66 70 72 69 6e 74 66 28 66 64 a");..fprintf(fd
2c00: 2c 20 22 25 73 5c 6e 22 2c 6c 69 6e 65 29 3b 0a , "%s\n",line);.
2c10: 09 66 63 6c 6f 73 65 28 66 64 29 3b 0a 20 20 20 .fclose(fd);.
2c20: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}.../*. *----
2c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2c70: 20 2a 0a 20 2a 20 50 61 73 73 77 6f 72 64 43 61 *. * PasswordCa
2c80: 6c 6c 62 61 63 6b 20 2d 2d 20 0a 20 2a 0a 20 2a llback -- . *. *
2c90: 09 43 61 6c 6c 65 64 20 77 68 65 6e 20 61 20 70 .Called when a p
2ca0: 61 73 73 77 6f 72 64 20 69 73 20 6e 65 65 64 65 assword is neede
2cb0: 64 20 74 6f 20 75 6e 70 61 63 6b 20 52 53 41 20 d to unpack RSA
2cc0: 61 6e 64 20 50 45 4d 20 6b 65 79 73 2e 0a 20 2a and PEM keys.. *
2cd0: 09 45 76 61 6c 73 20 61 6e 79 20 62 6f 75 6e 64 .Evals any bound
2ce0: 20 70 61 73 73 77 6f 72 64 20 73 63 72 69 70 74 password script
2cf0: 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 and returns the
2d00: 20 72 65 73 75 6c 74 20 61 73 0a 20 2a 09 74 68 result as. *.th
2d10: 65 20 70 61 73 73 77 6f 72 64 20 73 74 72 69 6e e password strin
2d20: 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d g.. *-----------
2d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d60: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66 --------. */.#if
2d70: 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f def PRE_OPENSSL_
2d80: 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e 6f 20 77 0_9_4./*. * No w
2d90: 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 75 73 65 ay to handle use
2da0: 72 2d 64 61 74 61 20 74 68 65 72 65 66 6f 72 65 r-data therefore
2db0: 20 6e 6f 20 77 61 79 20 77 69 74 68 6f 75 74 20 no way without
2dc0: 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 61 72 69 a global. * vari
2dd0: 61 62 6c 65 20 74 6f 20 61 63 63 65 73 73 20 74 able to access t
2de0: 68 65 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 he Tcl interpret
2df0: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e er..*/.static in
2e00: 74 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 t.PasswordCallba
2e10: 63 6b 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e ck(char *buf, in
2e20: 74 20 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 t size, int veri
2e30: 66 79 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e fy) {. return
2e40: 20 2d 31 3b 0a 20 20 20 20 09 62 75 66 20 3d 20 -1;. .buf =
2e50: 62 75 66 3b 0a 09 73 69 7a 65 20 3d 20 73 69 7a buf;..size = siz
2e60: 65 3b 0a 09 76 65 72 69 66 79 20 3d 20 76 65 72 e;..verify = ver
2e70: 69 66 79 3b 0a 7d 0a 23 65 6c 73 65 0a 73 74 61 ify;.}.#else.sta
2e80: 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 tic int.Password
2e90: 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 Callback(char *b
2ea0: 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e uf, int size, in
2eb0: 74 20 76 65 72 69 66 79 2c 20 76 6f 69 64 20 2a t verify, void *
2ec0: 75 64 61 74 61 29 20 7b 0a 20 20 20 20 53 74 61 udata) {. Sta
2ed0: 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d 20 28 te *statePtr.= (
2ee0: 53 74 61 74 65 20 2a 29 20 75 64 61 74 61 3b 0a State *) udata;.
2ef0: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a Tcl_Interp *
2f00: 69 6e 74 65 72 70 09 3d 20 73 74 61 74 65 50 74 interp.= statePt
2f10: 72 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20 20 54 r->interp;. T
2f20: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a cl_Obj *cmdPtr;.
2f30: 20 20 20 20 69 6e 74 20 63 6f 64 65 3b 0a 0a 20 int code;..
2f40: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
2f50: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 ed");.. if (s
2f60: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 tatePtr->passwor
2f70: 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 66 d == NULL) {..if
2f80: 20 28 54 63 6c 5f 45 76 61 6c 45 78 28 69 6e 74 (Tcl_EvalEx(int
2f90: 65 72 70 2c 20 22 74 6c 73 3a 3a 70 61 73 73 77 erp, "tls::passw
2fa0: 6f 72 64 22 2c 20 2d 31 2c 20 54 43 4c 5f 45 56 ord", -1, TCL_EV
2fb0: 41 4c 5f 47 4c 4f 42 41 4c 29 0a 09 09 3d 3d 20 AL_GLOBAL)...==
2fc0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 63 TCL_OK) {.. c
2fd0: 68 61 72 20 2a 72 65 74 20 3d 20 28 63 68 61 72 har *ret = (char
2fe0: 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e *) Tcl_GetStrin
2ff0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b gResult(interp);
3000: 0a 09 20 20 20 20 73 74 72 6e 63 70 79 28 62 75 .. strncpy(bu
3010: 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f 74 29 f, ret, (size_t)
3020: 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 72 65 74 size);.. ret
3030: 75 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 urn (int)strlen(
3040: 72 65 74 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a ret);..} else {.
3050: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a . return -1;.
3060: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 6d .}. }.. cm
3070: 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 dPtr = Tcl_Dupli
3080: 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 cateObj(statePtr
3090: 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 0a 20 20 ->password);..
30a0: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 Tcl_Preserve((
30b0: 43 6c 69 65 6e 74 44 61 74 61 29 20 69 6e 74 65 ClientData) inte
30c0: 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 rp);. Tcl_Pre
30d0: 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74 serve((ClientDat
30e0: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 a) statePtr);..
30f0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
3100: 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 20 20 20 unt(cmdPtr);.
3110: 20 63 6f 64 65 20 3d 20 54 63 6c 5f 45 76 61 6c code = Tcl_Eval
3120: 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 63 6d ObjEx(interp, cm
3130: 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 dPtr, TCL_EVAL_G
3140: 4c 4f 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28 LOBAL);. if (
3150: 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 code != TCL_OK)
3160: 7b 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f 52 {.#if (TCL_MAJOR
3170: 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20 26 _VERSION == 8) &
3180: 26 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 & (TCL_MINOR_VER
3190: 53 49 4f 4e 20 3c 20 36 29 0a 09 54 63 6c 5f 42 SION < 6)..Tcl_B
31a0: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 69 ackgroundError(i
31b0: 6e 74 65 72 70 29 3b 0a 23 65 6c 73 65 0a 09 54 nterp);.#else..T
31c0: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 78 63 cl_BackgroundExc
31d0: 65 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 eption(interp, c
31e0: 6f 64 65 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 ode);.#endif.
31f0: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 }. Tcl_DecrR
3200: 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b efCount(cmdPtr);
3210: 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 .. Tcl_Releas
3220: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
3230: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69 tatePtr);.. i
3240: 66 20 28 63 6f 64 65 20 3d 3d 20 54 43 4c 5f 4f f (code == TCL_O
3250: 4b 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 74 20 K) {..char *ret
3260: 3d 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 = (char *) Tcl_G
3270: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 etStringResult(i
3280: 6e 74 65 72 70 29 3b 0a 09 69 66 20 28 73 74 72 nterp);..if (str
3290: 6c 65 6e 28 72 65 74 29 20 3c 20 73 69 7a 65 20 len(ret) < size
32a0: 2d 20 31 29 20 7b 0a 09 73 74 72 6e 63 70 79 28 - 1) {..strncpy(
32b0: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f buf, ret, (size_
32c0: 74 29 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 54 t) size);.. T
32d0: 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 cl_Release((Clie
32e0: 6e 74 44 61 74 61 29 20 69 6e 74 65 72 70 29 3b ntData) interp);
32f0: 0a 09 72 65 74 75 72 6e 20 28 69 6e 74 29 73 74 ..return (int)st
3300: 72 6c 65 6e 28 72 65 74 29 3b 0a 09 7d 0a 20 20 rlen(ret);..}.
3310: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 }. Tcl_Rele
3320: 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 ase((ClientData)
3330: 20 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 72 65 interp);. re
3340: 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 65 6e 64 69 turn -1;.}.#endi
3350: 66 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d f.../*. *-------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
33a0: 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 * CiphersObjCmd
33b0: 20 2d 2d 20 6c 69 73 74 20 61 76 61 69 6c 61 62 -- list availab
33c0: 6c 65 20 63 69 70 68 65 72 73 0a 20 2a 0a 20 2a le ciphers. *. *
33d0: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
33e0: 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 is invoked to pr
33f0: 6f 63 65 73 73 20 74 68 65 20 22 74 6c 73 3a 3a ocess the "tls::
3400: 63 69 70 68 65 72 73 22 20 63 6f 6d 6d 61 6e 64 ciphers" command
3410: 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 76 61 69 . *.to list avai
3420: 6c 61 62 6c 65 20 63 69 70 68 65 72 73 2c 20 62 lable ciphers, b
3430: 61 73 65 64 20 75 70 6f 6e 20 70 72 6f 74 6f 63 ased upon protoc
3440: 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a 20 2a 0a ol selected.. *.
3450: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
3460: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 standard Tcl re
3470: 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a sult list.. *. *
3480: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3490: 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 61 6e 64 *.constructs and
34a0: 20 64 65 73 74 72 6f 79 73 20 53 53 4c 20 63 6f destroys SSL co
34b0: 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 ntext (CTX). *.
34c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
34d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3500: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
3510: 69 6e 74 0a 43 69 70 68 65 72 73 4f 62 6a 43 6d int.CiphersObjCm
3520: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
3530: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
3540: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
3550: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
3560: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
3570: 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 static const
3580: 20 63 68 61 72 20 2a 70 72 6f 74 6f 63 6f 6c 73 char *protocols
3590: 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c 32 22 2c 09 [] = {.."ssl2",.
35a0: 22 73 73 6c 33 22 2c 09 22 74 6c 73 31 22 2c 09 "ssl3",."tls1",.
35b0: 22 74 6c 73 31 2e 31 22 2c 20 22 74 6c 73 31 2e "tls1.1", "tls1.
35c0: 32 22 2c 20 22 74 6c 73 31 2e 33 22 2c 20 4e 55 2", "tls1.3", NU
35d0: 4c 4c 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 6e LL. };. en
35e0: 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 um protocol {..T
35f0: 4c 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c LS_SSL2, TLS_SSL
3600: 33 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 3, TLS_TLS1, TLS
3610: 5f 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53 _TLS1_1, TLS_TLS
3620: 31 5f 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 2c 1_2, TLS_TLS1_3,
3630: 20 54 4c 53 5f 4e 4f 4e 45 0a 20 20 20 20 7d 3b TLS_NONE. };
3640: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
3650: 6a 50 74 72 3b 0a 20 20 20 20 53 53 4c 5f 43 54 jPtr;. SSL_CT
3660: 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 X *ctx = NULL;.
3670: 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e 55 SSL *ssl = NU
3680: 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f 46 LL;. STACK_OF
3690: 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 6b (SSL_CIPHER) *sk
36a0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 70 2c 20 ;. char *cp,
36b0: 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 20 buf[BUFSIZ];.
36c0: 20 69 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 62 int index, verb
36d0: 6f 73 65 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 ose = 0;.. dp
36e0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
36f0: 0a 0a 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20 .. if ((objc
3700: 3c 20 32 29 20 7c 7c 20 28 6f 62 6a 63 20 3e 20 < 2) || (objc >
3710: 33 29 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 3)) {..Tcl_Wrong
3720: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
3730: 31 2c 20 6f 62 6a 76 2c 20 22 70 72 6f 74 6f 63 1, objv, "protoc
3740: 6f 6c 20 3f 76 65 72 62 6f 73 65 3f 22 29 3b 0a ol ?verbose?");.
3750: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3760: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 R;. }. if
3770: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f (Tcl_GetIndexFro
3780: 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 mObj( interp, ob
3790: 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 jv[1], protocols
37a0: 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c , "protocol", 0,
37b0: 0a 09 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c ..&index) != TCL
37c0: 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 _OK) {..return T
37d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
37e0: 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20 3e 20 if ((objc >
37f0: 32 29 20 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f 2) && Tcl_GetBoo
3800: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 leanFromObj( int
3810: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 0a 09 26 erp, objv[2],..&
3820: 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 4c 5f verbose) != TCL_
3830: 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 OK) {..return TC
3840: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
3850: 20 20 20 73 77 69 74 63 68 20 28 28 65 6e 75 6d switch ((enum
3860: 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78 29 protocol)index)
3870: 20 7b 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f {. case TLS_
3880: 53 53 4c 32 3a 0a 23 69 66 20 4f 50 45 4e 53 53 SSL2:.#if OPENSS
3890: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
38a0: 20 3e 3d 20 30 78 31 30 31 30 31 30 30 30 4c 20 >= 0x10101000L
38b0: 7c 7c 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 || defined(NO_SS
38c0: 4c 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f L2) || defined(O
38d0: 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a PENSSL_NO_SSL2).
38e0: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
38f0: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f lt(interp, proto
3900: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 cols[index], ":
3910: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
3920: 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a ported", NULL);.
3930: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3940: 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 OR;.#else...ctx
3950: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 = SSL_CTX_new(SS
3960: 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 Lv2_method()); b
3970: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 reak;.#endif.
3980: 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a case TLS_SSL3:.
3990: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
39a0: 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 SL3) || defined(
39b0: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 OPENSSL_NO_SSL3)
39c0: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 ...Tcl_AppendRes
39d0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 ult(interp, prot
39e0: 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a ocols[index], ":
39f0: 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 protocol not su
3a00: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
3a10: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
3a20: 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 ROR;.#else...ctx
3a30: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 = SSL_CTX_new(S
3a40: 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 20 SLv3_method());
3a50: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 break;.#endif.
3a60: 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a case TLS_TLS1:
3a70: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
3a80: 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 TLS1) || defined
3a90: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
3aa0: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 )...Tcl_AppendRe
3ab0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f sult(interp, pro
3ac0: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 tocols[index], "
3ad0: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 : protocol not s
3ae0: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
3af0: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;...return TCL_E
3b00: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 RROR;.#else...ct
3b10: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 x = SSL_CTX_new(
3b20: 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b TLSv1_method());
3b30: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 break;.#endif.
3b40: 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 case TLS_TLS1
3b50: 5f 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 _1:.#if defined(
3b60: 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 NO_TLS1_1) || de
3b70: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
3b80: 5f 54 4c 53 31 5f 31 29 0a 09 09 54 63 6c 5f 41 _TLS1_1)...Tcl_A
3b90: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3ba0: 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e rp, protocols[in
3bb0: 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f dex], ": protoco
3bc0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
3bd0: 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 , NULL);...retur
3be0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c n TCL_ERROR;.#el
3bf0: 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 se...ctx = SSL_C
3c00: 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 31 5f 6d TX_new(TLSv1_1_m
3c10: 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b ethod()); break;
3c20: 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 .#endif. case
3c30: 20 54 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 66 TLS_TLS1_2:.#if
3c40: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
3c50: 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f _2) || defined(O
3c60: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 PENSSL_NO_TLS1_2
3c70: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 )...Tcl_AppendRe
3c80: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f sult(interp, pro
3c90: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 tocols[index], "
3ca0: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 : protocol not s
3cb0: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
3cc0: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;...return TCL_E
3cd0: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 RROR;.#else...ct
3ce0: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 x = SSL_CTX_new(
3cf0: 54 4c 53 76 31 5f 32 5f 6d 65 74 68 6f 64 28 29 TLSv1_2_method()
3d00: 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 ); break;.#endif
3d10: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c . case TLS_TL
3d20: 53 31 5f 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 S1_3:.#if define
3d30: 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c 20 d(NO_TLS1_3) ||
3d40: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
3d50: 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 09 54 63 6c NO_TLS1_3)...Tcl
3d60: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
3d70: 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b terp, protocols[
3d80: 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f index], ": proto
3d90: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
3da0: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 d", NULL);...ret
3db0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
3dc0: 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c else...ctx = SSL
3dd0: 5f 43 54 58 5f 6e 65 77 28 54 4c 53 5f 6d 65 74 _CTX_new(TLS_met
3de0: 68 6f 64 28 29 29 3b 0a 20 20 20 20 20 20 20 20 hod());.
3df0: 20 20 20 20 20 20 20 20 53 53 4c 5f 43 54 58 5f SSL_CTX_
3e00: 73 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65 set_min_proto_ve
3e10: 72 73 69 6f 6e 20 28 63 74 78 2c 20 54 4c 53 31 rsion (ctx, TLS1
3e20: 5f 33 5f 56 45 52 53 49 4f 4e 29 3b 0a 20 20 20 _3_VERSION);.
3e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 53 4c SSL
3e40: 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f _CTX_set_max_pro
3e50: 74 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 78 2c to_version (ctx,
3e60: 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 29 TLS1_3_VERSION)
3e70: 3b 0a 09 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 ;...break;.#endi
3e80: 66 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 f. default:..
3e90: 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 .break;. }.
3ea0: 20 20 69 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c if (ctx == NUL
3eb0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
3ec0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 Result(interp, R
3ed0: 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a EASON(), NULL);.
3ee0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3ef0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 73 6c R;. }. ssl
3f00: 20 3d 20 53 53 4c 5f 6e 65 77 28 63 74 78 29 3b = SSL_new(ctx);
3f10: 0a 20 20 20 20 69 66 20 28 73 73 6c 20 3d 3d 20 . if (ssl ==
3f20: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
3f30: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
3f40: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c , REASON(), NULL
3f50: 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 );..SSL_CTX_free
3f60: 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 (ctx);..return T
3f70: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
3f80: 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c objPtr = Tcl
3f90: 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 2c 20 _NewListObj( 0,
3fa0: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 NULL);.. if (
3fb0: 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 6f 72 !verbose) {..for
3fc0: 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b 20 69 (index = 0; ; i
3fd0: 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 63 ndex++) {.. c
3fe0: 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f 67 p = (char*)SSL_g
3ff0: 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 20 et_cipher_list(
4000: 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 20 20 ssl, index);..
4010: 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 4c 4c if (cp == NULL
4020: 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 54 63 ) break;.. Tc
4030: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
4040: 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 lement( interp,
4050: 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 objPtr,...Tcl_Ne
4060: 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 wStringObj( cp,
4070: 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 20 -1) );..}. }
4080: 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c else {..sk = SSL
4090: 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 73 6c _get_ciphers(ssl
40a0: 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 78 20 );...for (index
40b0: 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 6b 5f = 0; index < sk_
40c0: 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 SSL_CIPHER_num(s
40d0: 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 k); index++) {..
40e0: 20 20 20 20 72 65 67 69 73 74 65 72 20 73 69 7a register siz
40f0: 65 5f 74 20 69 3b 0a 09 20 20 20 20 53 53 4c 5f e_t i;.. SSL_
4100: 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 74 69 CIPHER_descripti
4110: 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 on( sk_SSL_CIPHE
4120: 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 R_value( sk, ind
4130: 65 78 29 2c 0a 09 09 09 09 20 20 20 20 62 75 66 ex),..... buf
4140: 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 3b 0a , sizeof(buf));.
4150: 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 73 74 . for (i = st
4160: 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b 20 69 rlen(buf) - 1; i
4170: 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 20 28 ; i--) {...if (
4180: 28 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 29 20 (buf[i] == ' ')
4190: 7c 7c 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 5c || (buf[i] == '\
41a0: 6e 27 29 20 7c 7c 0a 09 09 20 20 20 20 28 62 75 n') ||... (bu
41b0: 66 5b 69 5d 20 3d 3d 20 27 5c 72 27 29 20 7c 7c f[i] == '\r') ||
41c0: 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 74 27 (buf[i] == '\t'
41d0: 29 29 20 7b 0a 09 09 20 20 20 20 62 75 66 5b 69 )) {... buf[i
41e0: 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 7d 20 65 6c ] = '\0';...} el
41f0: 73 65 20 7b 0a 09 09 20 20 20 20 62 72 65 61 6b se {... break
4200: 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 ;...}.. }..
4210: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
4220: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 endElement( inte
4230: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 rp, objPtr,...Tc
4240: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
4250: 62 75 66 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 buf, -1) );..}.
4260: 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 66 72 65 }. SSL_fre
4270: 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f e(ssl);. SSL_
4280: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 0a CTX_free(ctx);..
4290: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
42a0: 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 sult( interp, ob
42b0: 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 jPtr);. retur
42c0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 n TCL_OK;. .c
42d0: 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 lientData = clie
42e0: 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 ntData;.}.../*.
42f0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4330: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 48 61 6e 64 73 ----. *. * Hands
4340: 68 61 6b 65 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a hakeObjCmd --. *
4350: 0a 20 2a 09 54 68 69 73 20 63 6f 6d 6d 61 6e 64 . *.This command
4360: 20 69 73 20 75 73 65 64 20 74 6f 20 76 65 72 69 is used to veri
4370: 66 79 20 77 68 65 74 68 65 72 20 74 68 65 20 68 fy whether the h
4380: 61 6e 64 73 68 61 6b 65 20 69 73 20 63 6f 6d 70 andshake is comp
4390: 6c 65 74 65 0a 20 2a 09 6f 72 20 6e 6f 74 2e 0a lete. *.or not..
43a0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
43b0: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
43c0: 20 72 65 73 75 6c 74 2e 20 31 20 6d 65 61 6e 73 result. 1 means
43d0: 20 68 61 6e 64 73 68 61 6b 65 20 63 6f 6d 70 6c handshake compl
43e0: 65 74 65 2c 20 30 20 6d 65 61 6e 73 20 70 65 6e ete, 0 means pen
43f0: 64 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 ding.. *. * Side
4400: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 effects:. *.May
4410: 20 66 6f 72 63 65 20 53 53 4c 20 6e 65 67 6f 74 force SSL negot
4420: 69 61 74 69 6f 6e 20 74 6f 20 74 61 6b 65 20 70 iation to take p
4430: 6c 61 63 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d lace.. *. *-----
4440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4480: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 48 */..static int H
4490: 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 28 43 andshakeObjCmd(C
44a0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
44b0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
44c0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
44d0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
44e0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 09 54 63 st objv[]) {..Tc
44f0: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 l_Channel chan;.
4500: 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 ./* The channel
4510: 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e to set a mode on
4520: 2e 20 2a 2f 0a 09 53 74 61 74 65 20 2a 73 74 61 . */..State *sta
4530: 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e tePtr;../* clien
4540: 74 20 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 t state for ssl
4550: 73 6f 63 6b 65 74 20 2a 2f 0a 09 63 6f 6e 73 74 socket */..const
4560: 20 63 68 61 72 20 2a 65 72 72 53 74 72 20 3d 20 char *errStr =
4570: 4e 55 4c 4c 3b 0a 09 69 6e 74 20 72 65 74 20 3d NULL;..int ret =
4580: 20 31 3b 0a 09 69 6e 74 20 65 72 72 20 3d 20 30 1;..int err = 0
4590: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c ;...dprintf("Cal
45a0: 6c 65 64 22 29 3b 0a 0a 09 69 66 20 28 6f 62 6a led");...if (obj
45b0: 63 20 21 3d 20 32 29 20 7b 0a 09 09 54 63 6c 5f c != 2) {...Tcl_
45c0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
45d0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 erp, 1, objv, "c
45e0: 68 61 6e 6e 65 6c 22 29 3b 0a 09 09 72 65 74 75 hannel");...retu
45f0: 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 rn(TCL_ERROR);..
4600: 7d 0a 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 }...chan = Tcl_G
4610: 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 etChannel(interp
4620: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 , Tcl_GetStringF
4630: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 romObj(objv[1],
4640: 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 09 69 NULL), NULL);..i
4650: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
4660: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
4670: 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 ...return(TCL_ER
4680: 52 4f 52 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 ROR);..}.../*..
4690: 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f * Make sure to o
46a0: 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f perate on the to
46b0: 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 pmost channel..
46c0: 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 */..chan = Tcl_G
46d0: 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 etTopChannel(cha
46e0: 6e 29 3b 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 n);..if (Tcl_Get
46f0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e ChannelType(chan
4700: 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c ) != Tls_Channel
4710: 54 79 70 65 28 29 29 20 7b 0a 09 09 54 63 6c 5f Type()) {...Tcl_
4720: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
4730: 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 erp, "bad channe
4740: 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 l \"", Tcl_GetCh
4750: 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c annelName(chan),
4760: 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 "\": not a TLS
4770: 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b channel", NULL);
4780: 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 ...return(TCL_ER
4790: 52 4f 52 29 3b 0a 09 7d 0a 09 73 74 61 74 65 50 ROR);..}..stateP
47a0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 54 63 tr = (State *)Tc
47b0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
47c0: 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a anceData(chan);.
47d0: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 ..dprintf("Calli
47e0: 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f ng Tls_WaitForCo
47f0: 6e 6e 65 63 74 22 29 3b 0a 09 72 65 74 20 3d 20 nnect");..ret =
4800: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
4810: 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 ct(statePtr, &er
4820: 72 2c 20 31 29 3b 0a 09 64 70 72 69 6e 74 66 28 r, 1);..dprintf(
4830: 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e "Tls_WaitForConn
4840: 65 63 74 20 72 65 74 75 72 6e 65 64 3a 20 25 69 ect returned: %i
4850: 22 2c 20 72 65 74 29 3b 0a 0a 09 69 66 20 28 72 ", ret);...if (r
4860: 65 74 20 3c 20 30 20 26 26 20 28 28 73 74 61 74 et < 0 && ((stat
4870: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c ePtr->flags & TL
4880: 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 26 26 20 S_TCL_ASYNC) &&
4890: 28 65 72 72 20 3d 3d 20 45 41 47 41 49 4e 29 29 (err == EAGAIN))
48a0: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 41 ) {...dprintf("A
48b0: 73 79 6e 63 20 73 65 74 20 61 6e 64 20 65 72 72 sync set and err
48c0: 20 3d 20 45 41 47 41 49 4e 22 29 3b 0a 09 09 72 = EAGAIN");...r
48d0: 65 74 20 3d 20 30 3b 0a 09 7d 20 65 6c 73 65 20 et = 0;..} else
48e0: 69 66 20 28 72 65 74 20 3c 20 30 29 20 7b 0a 09 if (ret < 0) {..
48f0: 09 65 72 72 53 74 72 20 3d 20 73 74 61 74 65 50 .errStr = stateP
4900: 74 72 2d 3e 65 72 72 3b 0a 09 09 54 63 6c 5f 52 tr->err;...Tcl_R
4910: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 esetResult(inter
4920: 70 29 3b 0a 09 09 54 63 6c 5f 53 65 74 45 72 72 p);...Tcl_SetErr
4930: 6e 6f 28 65 72 72 29 3b 0a 0a 09 09 69 66 20 28 no(err);....if (
4940: 21 65 72 72 53 74 72 20 7c 7c 20 28 2a 65 72 72 !errStr || (*err
4950: 53 74 72 20 3d 3d 20 30 29 29 20 7b 0a 09 09 09 Str == 0)) {....
4960: 65 72 72 53 74 72 20 3d 20 54 63 6c 5f 50 6f 73 errStr = Tcl_Pos
4970: 69 78 45 72 72 6f 72 28 69 6e 74 65 72 70 29 3b ixError(interp);
4980: 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f 41 70 70 65 ...}....Tcl_Appe
4990: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
49a0: 20 22 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c "handshake fail
49b0: 65 64 3a 20 22 2c 20 65 72 72 53 74 72 2c 20 28 ed: ", errStr, (
49c0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
49d0: 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e .dprintf("Return
49e0: 69 6e 67 20 54 43 4c 5f 45 52 52 4f 52 20 77 69 ing TCL_ERROR wi
49f0: 74 68 20 68 61 6e 64 73 68 61 6b 65 20 66 61 69 th handshake fai
4a00: 6c 65 64 3a 20 25 73 22 2c 20 65 72 72 53 74 72 led: %s", errStr
4a10: 29 3b 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f );...return(TCL_
4a20: 45 52 52 4f 52 29 3b 0a 09 7d 20 65 6c 73 65 20 ERROR);..} else
4a30: 7b 0a 09 09 69 66 20 28 65 72 72 20 21 3d 20 30 {...if (err != 0
4a40: 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 ) {....dprintf("
4a50: 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 69 74 Got an error wit
4a60: 68 20 61 20 63 6f 6d 70 6c 65 74 65 64 20 68 61 h a completed ha
4a70: 6e 64 73 68 61 6b 65 3a 20 65 72 72 20 3d 20 25 ndshake: err = %
4a80: 69 22 2c 20 65 72 72 29 3b 0a 09 09 7d 0a 0a 09 i", err);...}...
4a90: 09 72 65 74 20 3d 20 31 3b 0a 09 7d 0a 0a 09 64 .ret = 1;..}...d
4aa0: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e printf("Returnin
4ab0: 67 20 54 43 4c 5f 4f 4b 20 77 69 74 68 20 64 61 g TCL_OK with da
4ac0: 74 61 20 5c 22 25 69 5c 22 22 2c 20 72 65 74 29 ta \"%i\"", ret)
4ad0: 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 ;..Tcl_SetObjRes
4ae0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
4af0: 4e 65 77 49 6e 74 4f 62 6a 28 72 65 74 29 29 3b NewIntObj(ret));
4b00: 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 ..return(TCL_OK)
4b10: 3b 0a 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 ;.. .clientDa
4b20: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b ta = clientData;
4b30: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
4b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
4b80: 20 2a 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 * ImportObjCmd
4b90: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
4ba0: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
4bb0: 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 ed to process th
4bc0: 65 20 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a e "ssl" command.
4bd0: 20 2a 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 6f *. *.The ssl co
4be0: 6d 6d 61 6e 64 20 70 75 73 68 65 73 20 53 53 4c mmand pushes SSL
4bf0: 20 6f 76 65 72 20 61 20 28 6e 65 77 6c 79 20 63 over a (newly c
4c00: 6f 6e 6e 65 63 74 65 64 29 20 74 63 70 20 73 6f onnected) tcp so
4c10: 63 6b 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c cket. *. * Resul
4c20: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
4c30: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
4c40: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4c50: 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 :. *.May modify
4c60: 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 the behavior of
4c70: 61 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 an IO channel..
4c80: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cc0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
4cd0: 74 69 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62 tic int.ImportOb
4ce0: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
4cf0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
4d00: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
4d10: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
4d20: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
4d30: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e {. Tcl_Chann
4d40: 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 el chan;../* The
4d50: 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 channel to set
4d60: 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 a mode on. */.
4d70: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
4d80: 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 r;../* client st
4d90: 61 74 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b ate for ssl sock
4da0: 65 74 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 et */. SSL_CT
4db0: 58 20 2a 63 74 78 09 20 20 20 20 20 20 20 20 3d X *ctx. =
4dc0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f NULL;. Tcl_O
4dd0: 62 6a 20 2a 73 63 72 69 70 74 09 20 20 20 20 20 bj *script.
4de0: 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 = NULL;. T
4df0: 63 6c 5f 4f 62 6a 20 2a 70 61 73 73 77 6f 72 64 cl_Obj *password
4e00: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b . = NULL;
4e10: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
4e20: 20 75 70 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 upperChannelTra
4e30: 6e 73 6c 61 74 69 6f 6e 2c 20 75 70 70 65 72 43 nslation, upperC
4e40: 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 2c 20 hannelBlocking,
4e50: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f upperChannelEnco
4e60: 64 69 6e 67 2c 20 75 70 70 65 72 43 68 61 6e 6e ding, upperChann
4e70: 65 6c 45 4f 46 43 68 61 72 3b 0a 20 20 20 20 69 elEOFChar;. i
4e80: 6e 74 20 69 64 78 2c 20 6c 65 6e 3b 0a 20 20 20 nt idx, len;.
4e90: 20 69 6e 74 20 66 6c 61 67 73 09 09 20 20 20 20 int flags..
4ea0: 20 20 20 20 3d 20 54 4c 53 5f 54 43 4c 5f 49 4e = TLS_TCL_IN
4eb0: 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 76 IT;. int serv
4ec0: 65 72 09 09 20 20 20 20 20 20 20 20 3d 20 30 3b er.. = 0;
4ed0: 09 2f 2a 20 69 73 20 63 6f 6e 6e 65 63 74 69 6f ./* is connectio
4ee0: 6e 20 69 6e 63 6f 6d 69 6e 67 20 6f 72 20 6f 75 n incoming or ou
4ef0: 74 67 6f 69 6e 67 3f 20 2a 2f 0a 20 20 20 20 63 tgoing? */. c
4f00: 68 61 72 20 2a 6b 65 79 66 69 6c 65 09 20 20 20 har *keyfile.
4f10: 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 = NULL;.
4f20: 20 63 68 61 72 20 2a 63 65 72 74 66 69 6c 65 09 char *certfile.
4f30: 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a = NULL;.
4f40: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
4f50: 72 20 2a 6b 65 79 20 20 09 3d 20 4e 55 4c 4c 3b r *key .= NULL;
4f60: 0a 20 20 20 20 69 6e 74 20 6b 65 79 5f 6c 65 6e . int key_len
4f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4f80: 20 3d 20 30 3b 0a 20 20 20 20 75 6e 73 69 67 6e = 0;. unsign
4f90: 65 64 20 63 68 61 72 20 2a 63 65 72 74 20 20 20 ed char *cert
4fa0: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 = NULL;.
4fb0: 20 20 69 6e 74 20 63 65 72 74 5f 6c 65 6e 20 20 int cert_len
4fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20 =
4fd0: 30 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 0;. char *cip
4fe0: 68 65 72 73 09 20 20 20 20 20 20 20 20 3d 20 4e hers. = N
4ff0: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 ULL;. char *C
5000: 41 66 69 6c 65 09 20 20 20 20 20 20 20 20 3d 20 Afile. =
5010: 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a NULL;. char *
5020: 43 41 64 69 72 09 09 20 20 20 20 20 20 20 20 3d CAdir.. =
5030: 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 NULL;. char
5040: 2a 44 48 70 61 72 61 6d 73 09 20 20 20 20 20 20 *DHparams.
5050: 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 = NULL;. ch
5060: 61 72 20 2a 6d 6f 64 65 6c 09 09 20 20 20 20 20 ar *model..
5070: 20 20 20 3d 20 4e 55 4c 4c 3b 0a 23 69 66 6e 64 = NULL;.#ifnd
5080: 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ef OPENSSL_NO_TL
5090: 53 45 58 54 0a 20 20 20 20 63 68 61 72 20 2a 73 SEXT. char *s
50a0: 65 72 76 65 72 6e 61 6d 65 09 20 20 20 20 20 20 ervername.
50b0: 20 20 3d 20 4e 55 4c 4c 3b 09 2f 2a 20 68 6f 73 = NULL;./* hos
50c0: 74 6e 61 6d 65 20 66 6f 72 20 53 65 72 76 65 72 tname for Server
50d0: 20 4e 61 6d 65 20 49 6e 64 69 63 61 74 69 6f 6e Name Indication
50e0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 */. Tcl_Obj
50f0: 2a 61 6c 70 6e 09 09 3d 20 4e 55 4c 4c 3b 0a 23 *alpn..= NULL;.#
5100: 65 6e 64 69 66 0a 20 20 20 20 69 6e 74 20 73 73 endif. int ss
5110: 6c 32 20 3d 20 30 2c 20 73 73 6c 33 20 3d 20 30 l2 = 0, ssl3 = 0
5120: 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 20 3d ;. int tls1 =
5130: 20 31 2c 20 74 6c 73 31 5f 31 20 3d 20 31 2c 20 1, tls1_1 = 1,
5140: 74 6c 73 31 5f 32 20 3d 20 31 2c 20 74 6c 73 31 tls1_2 = 1, tls1
5150: 5f 33 20 3d 20 31 3b 0a 20 20 20 20 69 6e 74 20 _3 = 1;. int
5160: 70 72 6f 74 6f 20 3d 20 30 3b 0a 20 20 20 20 69 proto = 0;. i
5170: 6e 74 20 76 65 72 69 66 79 20 3d 20 30 2c 20 72 nt verify = 0, r
5180: 65 71 75 69 72 65 20 3d 20 30 2c 20 72 65 71 75 equire = 0, requ
5190: 65 73 74 20 3d 20 31 3b 0a 0a 20 20 20 20 64 70 est = 1;.. dp
51a0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
51b0: 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 ..#if OPENSSL_VE
51c0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 RSION_NUMBER < 0
51d0: 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 21 64 x10100000L && !d
51e0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
51f0: 4f 5f 53 53 4c 32 29 20 26 26 20 64 65 66 69 6e O_SSL2) && defin
5200: 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 64 ed(NO_TLS1) && d
5210: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 efined(NO_TLS1_1
5220: 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f ) && defined(NO_
5230: 54 4c 53 31 5f 32 29 20 26 26 20 64 65 66 69 6e TLS1_2) && defin
5240: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 26 ed(NO_TLS1_3) &&
5250: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 defined(NO_SSL3
5260: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e 4f ) && !defined(NO
5270: 5f 53 53 4c 32 29 0a 20 20 20 20 73 73 6c 32 20 _SSL2). ssl2
5280: 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 = 1;.#endif.#if
5290: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
52a0: 5f 4e 4f 5f 53 53 4c 33 29 20 26 26 20 64 65 66 _NO_SSL3) && def
52b0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 ined(NO_TLS1) &&
52c0: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
52d0: 5f 31 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e _1) && defined(N
52e0: 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 64 65 66 O_TLS1_2) && def
52f0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 ined(NO_TLS1_3)
5300: 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 && defined(NO_SS
5310: 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 L2) && !defined(
5320: 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 73 73 6c NO_SSL3). ssl
5330: 33 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 3 = 1;.#endif.#i
5340: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
5350: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 1) || defined(OP
5360: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 0a 20 ENSSL_NO_TLS1).
5370: 20 20 20 74 6c 73 31 20 3d 20 30 3b 0a 23 65 6e tls1 = 0;.#en
5380: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 dif.#if defined(
5390: 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 NO_TLS1_1) || de
53a0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
53b0: 5f 54 4c 53 31 5f 31 29 0a 20 20 20 20 74 6c 73 _TLS1_1). tls
53c0: 31 5f 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 1_1 = 0;.#endif.
53d0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
53e0: 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 LS1_2) || define
53f0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
5400: 31 5f 32 29 0a 20 20 20 20 74 6c 73 31 5f 32 20 1_2). tls1_2
5410: 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 = 0;.#endif.#if
5420: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
5430: 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 3) || defined(OP
5440: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 ENSSL_NO_TLS1_3)
5450: 0a 20 20 20 20 74 6c 73 31 5f 33 20 3d 20 30 3b . tls1_3 = 0;
5460: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20 .#endif.. if
5470: 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 (objc < 2) {..Tc
5480: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
5490: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
54a0: 22 63 68 61 6e 6e 65 6c 20 3f 6f 70 74 69 6f 6e "channel ?option
54b0: 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 s?");..return TC
54c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
54d0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 chan = Tcl_G
54e0: 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 etChannel(interp
54f0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 , Tcl_GetStringF
5500: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 romObj(objv[1],
5510: 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 NULL), NULL);.
5520: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 if (chan == (T
5530: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
5540: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
5550: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5560: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b 65 /*. * Make
5570: 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 sure to operate
5580: 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 on the topmost
5590: 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a channel. */.
55a0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 chan = Tcl_G
55b0: 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 etTopChannel(cha
55c0: 6e 29 3b 0a 0a 20 20 20 20 66 6f 72 20 28 69 64 n);.. for (id
55d0: 78 20 3d 20 32 3b 20 69 64 78 20 3c 20 6f 62 6a x = 2; idx < obj
55e0: 63 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 63 68 61 c; idx++) {..cha
55f0: 72 20 2a 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 r *opt = Tcl_Get
5600: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
5610: 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a jv[idx], NULL);.
5620: 0a 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 ..if (opt[0] !=
5630: 27 2d 27 29 0a 09 20 20 20 20 62 72 65 61 6b 3b '-').. break;
5640: 0a 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 64 ...OPTSTR( "-cad
5650: 69 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 4f 50 ir", CAdir);..OP
5660: 54 53 54 52 28 20 22 2d 63 61 66 69 6c 65 22 2c TSTR( "-cafile",
5670: 20 43 41 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 CAfile);..OPTST
5680: 52 28 20 22 2d 63 65 72 74 66 69 6c 65 22 2c 20 R( "-certfile",
5690: 63 65 72 74 66 69 6c 65 29 3b 0a 09 4f 50 54 53 certfile);..OPTS
56a0: 54 52 28 20 22 2d 63 69 70 68 65 72 22 2c 20 63 TR( "-cipher", c
56b0: 69 70 68 65 72 73 29 3b 0a 09 4f 50 54 4f 42 4a iphers);..OPTOBJ
56c0: 28 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 63 ( "-command", sc
56d0: 72 69 70 74 29 3b 0a 09 4f 50 54 53 54 52 28 20 ript);..OPTSTR(
56e0: 22 2d 64 68 70 61 72 61 6d 73 22 2c 20 44 48 70 "-dhparams", DHp
56f0: 61 72 61 6d 73 29 3b 0a 09 4f 50 54 53 54 52 28 arams);..OPTSTR(
5700: 20 22 2d 6b 65 79 66 69 6c 65 22 2c 20 6b 65 79 "-keyfile", key
5710: 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 28 20 file);..OPTSTR(
5720: 22 2d 6d 6f 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 "-model", model)
5730: 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 70 61 73 ;..OPTOBJ( "-pas
5740: 73 77 6f 72 64 22 2c 20 70 61 73 73 77 6f 72 64 sword", password
5750: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
5760: 65 71 75 69 72 65 22 2c 20 72 65 71 75 69 72 65 equire", require
5770: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
5780: 65 71 75 65 73 74 22 2c 20 72 65 71 75 65 73 74 equest", request
5790: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 );..OPTBOOL( "-s
57a0: 65 72 76 65 72 22 2c 20 73 65 72 76 65 72 29 3b erver", server);
57b0: 0a 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c .#ifndef OPENSSL
57c0: 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 20 _NO_TLSEXT.
57d0: 20 20 20 4f 50 54 53 54 52 28 20 22 2d 73 65 72 OPTSTR( "-ser
57e0: 76 65 72 6e 61 6d 65 22 2c 20 73 65 72 76 65 72 vername", server
57f0: 6e 61 6d 65 29 3b 0a 09 4f 50 54 4f 42 4a 28 20 name);..OPTOBJ(
5800: 22 2d 61 6c 70 6e 22 2c 20 61 6c 70 6e 29 3b 0a "-alpn", alpn);.
5810: 23 65 6e 64 69 66 0a 0a 09 4f 50 54 42 4f 4f 4c #endif...OPTBOOL
5820: 28 20 22 2d 73 73 6c 32 22 2c 20 73 73 6c 32 29 ( "-ssl2", ssl2)
5830: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 ;..OPTBOOL( "-ss
5840: 6c 33 22 2c 20 73 73 6c 33 29 3b 0a 09 4f 50 54 l3", ssl3);..OPT
5850: 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 22 2c 20 74 BOOL( "-tls1", t
5860: 6c 73 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 ls1);..OPTBOOL(
5870: 22 2d 74 6c 73 31 2e 31 22 2c 20 74 6c 73 31 5f "-tls1.1", tls1_
5880: 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 1);..OPTBOOL( "-
5890: 74 6c 73 31 2e 32 22 2c 20 74 6c 73 31 5f 32 29 tls1.2", tls1_2)
58a0: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c ;..OPTBOOL( "-tl
58b0: 73 31 2e 33 22 2c 20 74 6c 73 31 5f 33 29 3b 0a s1.3", tls1_3);.
58c0: 20 20 4f 50 54 42 59 54 45 28 22 2d 63 65 72 74 OPTBYTE("-cert
58d0: 22 2c 20 63 65 72 74 2c 20 63 65 72 74 5f 6c 65 ", cert, cert_le
58e0: 6e 29 3b 0a 20 20 4f 50 54 42 59 54 45 28 22 2d n);. OPTBYTE("-
58f0: 6b 65 79 22 2c 20 6b 65 79 2c 20 6b 65 79 5f 6c key", key, key_l
5900: 65 6e 29 3b 0a 0a 09 4f 50 54 42 41 44 28 20 22 en);...OPTBAD( "
5910: 6f 70 74 69 6f 6e 22 2c 20 22 2d 61 6c 70 6e 2c option", "-alpn,
5920: 20 2d 63 61 64 69 72 2c 20 2d 63 61 66 69 6c 65 -cadir, -cafile
5930: 2c 20 2d 63 65 72 74 2c 20 2d 63 65 72 74 66 69 , -cert, -certfi
5940: 6c 65 2c 20 2d 63 69 70 68 65 72 2c 20 2d 63 6f le, -cipher, -co
5950: 6d 6d 61 6e 64 2c 20 2d 64 68 70 61 72 61 6d 73 mmand, -dhparams
5960: 2c 20 2d 6b 65 79 2c 20 2d 6b 65 79 66 69 6c 65 , -key, -keyfile
5970: 2c 20 2d 6d 6f 64 65 6c 2c 20 2d 70 61 73 73 77 , -model, -passw
5980: 6f 72 64 2c 20 2d 72 65 71 75 69 72 65 2c 20 2d ord, -require, -
5990: 72 65 71 75 65 73 74 2c 20 2d 73 65 72 76 65 72 request, -server
59a0: 2c 20 2d 73 65 72 76 65 72 6e 61 6d 65 2c 20 2d , -servername, -
59b0: 73 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 2d 74 6c ssl2, -ssl3, -tl
59c0: 73 31 2c 20 2d 74 6c 73 31 2e 31 2c 20 2d 74 6c s1, -tls1.1, -tl
59d0: 73 31 2e 32 2c 20 6f 72 20 2d 74 6c 73 31 2e 33 s1.2, or -tls1.3
59e0: 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 54 43 4c ");...return TCL
59f0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
5a00: 20 20 69 66 20 28 72 65 71 75 65 73 74 29 09 20 if (request).
5a10: 20 20 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c verify |= SSL
5a20: 5f 56 45 52 49 46 59 5f 43 4c 49 45 4e 54 5f 4f _VERIFY_CLIENT_O
5a30: 4e 43 45 20 7c 20 53 53 4c 5f 56 45 52 49 46 59 NCE | SSL_VERIFY
5a40: 5f 50 45 45 52 3b 0a 20 20 20 20 69 66 20 28 72 _PEER;. if (r
5a50: 65 71 75 65 73 74 20 26 26 20 72 65 71 75 69 72 equest && requir
5a60: 65 29 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c e) verify |= SSL
5a70: 5f 56 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f _VERIFY_FAIL_IF_
5a80: 4e 4f 5f 50 45 45 52 5f 43 45 52 54 3b 0a 20 20 NO_PEER_CERT;.
5a90: 20 20 69 66 20 28 76 65 72 69 66 79 20 3d 3d 20 if (verify ==
5aa0: 30 29 09 76 65 72 69 66 79 20 3d 20 53 53 4c 5f 0).verify = SSL_
5ab0: 56 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a 20 20 VERIFY_NONE;..
5ac0: 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 32 proto |= (ssl2
5ad0: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c ? TLS_PROTO_SSL
5ae0: 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 2 : 0);. prot
5af0: 6f 20 7c 3d 20 28 73 73 6c 33 20 3f 20 54 4c 53 o |= (ssl3 ? TLS
5b00: 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 30 29 _PROTO_SSL3 : 0)
5b10: 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 ;. proto |= (
5b20: 74 6c 73 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f tls1 ? TLS_PROTO
5b30: 5f 54 4c 53 31 20 3a 20 30 29 3b 0a 20 20 20 20 _TLS1 : 0);.
5b40: 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 31 proto |= (tls1_1
5b50: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 ? TLS_PROTO_TLS
5b60: 31 5f 31 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 1_1 : 0);. pr
5b70: 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 32 20 3f oto |= (tls1_2 ?
5b80: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
5b90: 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 2 : 0);. prot
5ba0: 6f 20 7c 3d 20 28 74 6c 73 31 5f 33 20 3f 20 54 o |= (tls1_3 ? T
5bb0: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 20 LS_PROTO_TLS1_3
5bc0: 3a 20 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 72 65 : 0);.. /* re
5bd0: 73 65 74 20 74 6f 20 4e 55 4c 4c 20 69 66 20 62 set to NULL if b
5be0: 6c 61 6e 6b 20 73 74 72 69 6e 67 20 70 72 6f 76 lank string prov
5bf0: 69 64 65 64 20 2a 2f 0a 20 20 20 20 69 66 20 28 ided */. if (
5c00: 63 65 72 74 20 26 26 20 21 2a 63 65 72 74 29 09 cert && !*cert).
5c10: 09 20 20 20 20 20 20 20 20 63 65 72 74 09 20 20 . cert.
5c20: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 = NULL;.
5c30: 20 20 69 66 20 28 6b 65 79 20 26 26 20 21 2a 6b if (key && !*k
5c40: 65 79 29 09 09 20 20 20 20 20 20 20 20 6b 65 79 ey).. key
5c50: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b . = NULL;
5c60: 0a 20 20 20 20 69 66 20 28 63 65 72 74 66 69 6c . if (certfil
5c70: 65 20 26 26 20 21 2a 63 65 72 74 66 69 6c 65 29 e && !*certfile)
5c80: 20 20 20 20 20 20 20 20 20 63 65 72 74 66 69 6c certfil
5c90: 65 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 e.= NULL;. if
5ca0: 20 28 6b 65 79 66 69 6c 65 20 26 26 20 21 2a 6b (keyfile && !*k
5cb0: 65 79 66 69 6c 65 29 09 09 6b 65 79 66 69 6c 65 eyfile)..keyfile
5cc0: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b . = NULL;
5cd0: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73 . if (ciphers
5ce0: 20 26 26 20 21 2a 63 69 70 68 65 72 73 29 09 20 && !*ciphers).
5cf0: 20 20 20 20 20 20 20 63 69 70 68 65 72 73 09 20 ciphers.
5d00: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 = NULL;.
5d10: 20 20 20 69 66 20 28 43 41 66 69 6c 65 20 26 26 if (CAfile &&
5d20: 20 21 2a 43 41 66 69 6c 65 29 09 20 20 20 20 20 !*CAfile).
5d30: 20 20 20 43 41 66 69 6c 65 09 20 20 20 20 20 20 CAfile.
5d40: 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 = NULL;. if
5d50: 20 28 43 41 64 69 72 20 26 26 20 21 2a 43 41 64 (CAdir && !*CAd
5d60: 69 72 29 09 20 20 20 20 20 20 20 20 43 41 64 69 ir). CAdi
5d70: 72 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c r. = NULL
5d80: 3b 0a 20 20 20 20 69 66 20 28 44 48 70 61 72 61 ;. if (DHpara
5d90: 6d 73 20 26 26 20 21 2a 44 48 70 61 72 61 6d 73 ms && !*DHparams
5da0: 29 09 20 20 20 20 20 20 20 20 44 48 70 61 72 61 ). DHpara
5db0: 6d 73 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c ms = NULL
5dc0: 3b 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 53 53 ;.. /* new SS
5dd0: 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 20 73 L state */. s
5de0: 74 61 74 65 50 74 72 09 09 3d 20 28 53 74 61 74 tatePtr..= (Stat
5df0: 65 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 75 6e e *) ckalloc((un
5e00: 73 69 67 6e 65 64 29 20 73 69 7a 65 6f 66 28 53 signed) sizeof(S
5e10: 74 61 74 65 29 29 3b 0a 20 20 20 20 6d 65 6d 73 tate));. mems
5e20: 65 74 28 73 74 61 74 65 50 74 72 2c 20 30 2c 20 et(statePtr, 0,
5e30: 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 3b 0a sizeof(State));.
5e40: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 . statePtr->f
5e50: 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b 0a 20 20 lags.= flags;.
5e60: 20 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 statePtr->inte
5e70: 72 70 09 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 rp.= interp;.
5e80: 20 73 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 statePtr->vflag
5e90: 73 09 3d 20 76 65 72 69 66 79 3b 0a 20 20 20 20 s.= verify;.
5ea0: 73 74 61 74 65 50 74 72 2d 3e 65 72 72 09 3d 20 statePtr->err.=
5eb0: 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f "";.. /* allo
5ec0: 63 61 74 65 20 73 63 72 69 70 74 20 2a 2f 0a 20 cate script */.
5ed0: 20 20 20 69 66 20 28 73 63 72 69 70 74 29 20 7b if (script) {
5ee0: 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 74 ..(void) Tcl_Get
5ef0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 73 63 StringFromObj(sc
5f00: 72 69 70 74 2c 20 26 6c 65 6e 29 3b 0a 09 69 66 ript, &len);..if
5f10: 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 20 73 74 (len) {.. st
5f20: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b atePtr->callback
5f30: 20 3d 20 73 63 72 69 70 74 3b 0a 09 20 20 20 20 = script;..
5f40: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
5f50: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
5f60: 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a ack);..}. }..
5f70: 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 /* allocate
5f80: 70 61 73 73 77 6f 72 64 20 2a 2f 0a 20 20 20 20 password */.
5f90: 69 66 20 28 70 61 73 73 77 6f 72 64 29 20 7b 0a if (password) {.
5fa0: 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 74 53 .(void) Tcl_GetS
5fb0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 70 61 73 tringFromObj(pas
5fc0: 73 77 6f 72 64 2c 20 26 6c 65 6e 29 3b 0a 09 69 sword, &len);..i
5fd0: 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 20 73 f (len) {.. s
5fe0: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 tatePtr->passwor
5ff0: 64 20 3d 20 70 61 73 73 77 6f 72 64 3b 0a 09 20 d = password;..
6000: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
6010: 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 70 61 unt(statePtr->pa
6020: 73 73 77 6f 72 64 29 3b 0a 09 7d 0a 20 20 20 20 ssword);..}.
6030: 7d 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 6c }.. if (model
6040: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 6e 74 != NULL) {..int
6050: 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 65 74 20 74 mode;../* Get t
6060: 68 65 20 22 6d 6f 64 65 6c 22 20 63 6f 6e 74 65 he "model" conte
6070: 78 74 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 xt */..chan = Tc
6080: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 l_GetChannel(int
6090: 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d 6f 64 erp, model, &mod
60a0: 65 29 3b 0a 09 69 66 20 28 63 68 61 6e 20 3d 3d e);..if (chan ==
60b0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
60c0: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f ULL) {.. Tls_
60d0: 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 Free((char *) st
60e0: 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 atePtr);.. re
60f0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6100: 09 7d 0a 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20 .}.. /*.
6110: 20 20 20 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 * Make s
6120: 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f ure to operate o
6130: 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 n the topmost ch
6140: 61 6e 6e 65 6c 0a 20 20 20 20 20 20 20 20 20 2a annel. *
6150: 2f 0a 20 20 20 20 20 20 20 20 63 68 61 6e 20 3d /. chan =
6160: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
6170: 65 6c 28 63 68 61 6e 29 3b 0a 09 69 66 20 28 54 el(chan);..if (T
6180: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
6190: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 e(chan) != Tls_C
61a0: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a hannelType()) {.
61b0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
61c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
61d0: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a ad channel \"",.
61e0: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 .. Tcl_GetCha
61f0: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 nnelName(chan),
6200: 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 "\": not a TLS c
6210: 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a hannel", NULL);.
6220: 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63 . Tls_Free((c
6230: 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 har *) statePtr)
6240: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
6250: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 63 74 78 L_ERROR;..}..ctx
6260: 20 3d 20 28 28 53 74 61 74 65 20 2a 29 54 63 6c = ((State *)Tcl
6270: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
6280: 6e 63 65 44 61 74 61 28 63 68 61 6e 29 29 2d 3e nceData(chan))->
6290: 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ctx;. } else
62a0: 7b 0a 09 69 66 20 28 28 63 74 78 20 3d 20 43 54 {..if ((ctx = CT
62b0: 58 5f 49 6e 69 74 28 73 74 61 74 65 50 74 72 2c X_Init(statePtr,
62c0: 20 73 65 72 76 65 72 2c 20 70 72 6f 74 6f 2c 20 server, proto,
62d0: 6b 65 79 66 69 6c 65 2c 20 63 65 72 74 66 69 6c keyfile, certfil
62e0: 65 2c 20 6b 65 79 2c 20 63 65 72 74 2c 0a 09 20 e, key, cert,..
62f0: 20 20 20 6b 65 79 5f 6c 65 6e 2c 20 63 65 72 74 key_len, cert
6300: 5f 6c 65 6e 2c 20 43 41 64 69 72 2c 20 43 41 66 _len, CAdir, CAf
6310: 69 6c 65 2c 20 63 69 70 68 65 72 73 2c 20 44 48 ile, ciphers, DH
6320: 70 61 72 61 6d 73 29 29 20 3d 3d 20 28 53 53 4c params)) == (SSL
6330: 5f 43 54 58 2a 29 30 29 20 7b 0a 09 20 20 20 20 _CTX*)0) {..
6340: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
6350: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 ) statePtr);..
6360: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6370: 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 OR;..}. }..
6380: 20 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 statePtr->ctx
6390: 3d 20 63 74 78 3b 0a 0a 20 20 20 20 2f 2a 0a 20 = ctx;.. /*.
63a0: 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f * We need to
63b0: 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 make sure that
63c0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 6f 72 6b the channel work
63d0: 73 20 69 6e 20 62 69 6e 61 72 79 20 28 66 6f 72 s in binary (for
63e0: 20 74 68 65 0a 20 20 20 20 20 2a 20 65 6e 63 72 the. * encr
63f0: 79 70 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 67 65 yption not to ge
6400: 74 20 67 6f 6f 66 65 64 20 75 70 29 2e 0a 20 20 t goofed up)..
6410: 20 20 20 2a 20 57 65 20 6f 6e 6c 79 20 77 61 6e * We only wan
6420: 74 20 74 6f 20 61 64 6a 75 73 74 20 74 68 65 20 t to adjust the
6430: 62 75 66 66 65 72 69 6e 67 20 69 6e 20 70 72 65 buffering in pre
6440: 2d 76 32 20 63 68 61 6e 6e 65 6c 73 2c 20 77 68 -v2 channels, wh
6450: 65 72 65 0a 20 20 20 20 20 2a 20 65 61 63 68 20 ere. * each
6460: 63 68 61 6e 6e 65 6c 20 69 6e 20 74 68 65 20 73 channel in the s
6470: 74 61 63 6b 20 6d 61 69 6e 74 61 69 6e 65 64 20 tack maintained
6480: 69 74 73 20 6f 77 6e 20 62 75 66 66 65 72 73 2e its own buffers.
6490: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 6c . */. Tcl
64a0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75 70 _DStringInit(&up
64b0: 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 6e 73 6c perChannelTransl
64c0: 61 74 69 6f 6e 29 3b 0a 20 20 20 20 54 63 6c 5f ation);. Tcl_
64d0: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75 70 70 DStringInit(&upp
64e0: 65 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e erChannelBlockin
64f0: 67 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 g);. Tcl_DStr
6500: 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 68 ingInit(&upperCh
6510: 61 6e 6e 65 6c 45 4f 46 43 68 61 72 29 3b 0a 20 annelEOFChar);.
6520: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e Tcl_DStringIn
6530: 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c it(&upperChannel
6540: 45 6e 63 6f 64 69 6e 67 29 3b 0a 20 20 20 20 54 Encoding);. T
6550: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 cl_GetChannelOpt
6560: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e ion(interp, chan
6570: 2c 20 22 2d 65 6f 66 63 68 61 72 22 2c 20 26 75 , "-eofchar", &u
6580: 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 68 pperChannelEOFCh
6590: 61 72 29 3b 0a 20 20 20 20 54 63 6c 5f 47 65 74 ar);. Tcl_Get
65a0: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
65b0: 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 65 6e terp, chan, "-en
65c0: 63 6f 64 69 6e 67 22 2c 20 26 75 70 70 65 72 43 coding", &upperC
65d0: 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 29 3b hannelEncoding);
65e0: 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e . Tcl_GetChan
65f0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
6600: 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c , chan, "-transl
6610: 61 74 69 6f 6e 22 2c 20 26 75 70 70 65 72 43 68 ation", &upperCh
6620: 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f 6e annelTranslation
6630: 29 3b 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68 );. Tcl_GetCh
6640: 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 annelOption(inte
6650: 72 70 2c 20 63 68 61 6e 2c 20 22 2d 62 6c 6f 63 rp, chan, "-bloc
6660: 6b 69 6e 67 22 2c 20 26 75 70 70 65 72 43 68 61 king", &upperCha
6670: 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 29 3b 0a 20 nnelBlocking);.
6680: 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 Tcl_SetChanne
6690: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
66a0: 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 chan, "-translat
66b0: 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 3b ion", "binary");
66c0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e . Tcl_SetChan
66d0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
66e0: 2c 20 63 68 61 6e 2c 20 22 2d 62 6c 6f 63 6b 69 , chan, "-blocki
66f0: 6e 67 22 2c 20 22 74 72 75 65 22 29 3b 0a 20 20 ng", "true");.
6700: 20 20 64 70 72 69 6e 74 66 28 22 43 6f 6e 73 75 dprintf("Consu
6710: 6d 69 6e 67 20 54 63 6c 20 63 68 61 6e 6e 65 6c ming Tcl channel
6720: 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 %s", Tcl_GetCha
6730: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 29 3b nnelName(chan));
6740: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 . statePtr->s
6750: 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 elf = Tcl_StackC
6760: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 hannel(interp, T
6770: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
6780: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 , (ClientData) s
6790: 74 61 74 65 50 74 72 2c 20 28 54 43 4c 5f 52 45 tatePtr, (TCL_RE
67a0: 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 ADABLE | TCL_WRI
67b0: 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 20 TABLE), chan);.
67c0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 72 65 61 dprintf("Crea
67d0: 74 65 64 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 ted channel name
67e0: 64 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 d %s", Tcl_GetCh
67f0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
6800: 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20 tr->self));.
6810: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 if (statePtr->se
6820: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
6830: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a el) NULL) {../*.
6840: 09 20 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 63 . * No use of Tc
6850: 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 l_EventuallyFree
6860: 20 62 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 73 because no poss
6870: 69 62 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 76 ible Tcl_Preserv
6880: 65 2e 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 65 e... */..Tls_Fre
6890: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
68a0: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 Ptr);..return TC
68b0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
68c0: 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e Tcl_SetChann
68d0: 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c elOption(interp,
68e0: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c statePtr->self,
68f0: 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c "-translation",
6900: 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 Tcl_DStringValu
6910: 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 54 e(&upperChannelT
6920: 72 61 6e 73 6c 61 74 69 6f 6e 29 29 3b 0a 20 20 ranslation));.
6930: 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c Tcl_SetChannel
6940: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 Option(interp, s
6950: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 tatePtr->self, "
6960: 2d 65 6e 63 6f 64 69 6e 67 22 2c 20 54 63 6c 5f -encoding", Tcl_
6970: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70 DStringValue(&up
6980: 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 perChannelEncodi
6990: 6e 67 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 ng));. Tcl_Se
69a0: 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 tChannelOption(i
69b0: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
69c0: 3e 73 65 6c 66 2c 20 22 2d 65 6f 66 63 68 61 72 >self, "-eofchar
69d0: 22 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 ", Tcl_DStringVa
69e0: 6c 75 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65 lue(&upperChanne
69f0: 6c 45 4f 46 43 68 61 72 29 29 3b 0a 20 20 20 20 lEOFChar));.
6a00: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_SetChannelOp
6a10: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 tion(interp, sta
6a20: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 62 tePtr->self, "-b
6a30: 6c 6f 63 6b 69 6e 67 22 2c 20 54 63 6c 5f 44 53 locking", Tcl_DS
6a40: 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70 70 65 tringValue(&uppe
6a50: 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 rChannelBlocking
6a60: 29 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 ));.. /*.
6a70: 20 2a 20 53 53 4c 20 49 6e 69 74 69 61 6c 69 7a * SSL Initializ
6a80: 61 74 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a 0a 20 ation. */..
6a90: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c statePtr->ssl
6aa0: 20 3d 20 53 53 4c 5f 6e 65 77 28 73 74 61 74 65 = SSL_new(state
6ab0: 50 74 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 69 Ptr->ctx);. i
6ac0: 66 20 28 21 73 74 61 74 65 50 74 72 2d 3e 73 73 f (!statePtr->ss
6ad0: 6c 29 20 7b 0a 09 2f 2a 20 53 53 4c 20 6c 69 62 l) {../* SSL lib
6ae0: 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a 09 54 rary error */..T
6af0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6b00: 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 6e 27 interp, "couldn'
6b10: 74 20 63 6f 6e 73 74 72 75 63 74 20 73 73 6c 20 t construct ssl
6b20: 73 65 73 73 69 6f 6e 3a 20 22 2c 20 52 45 41 53 session: ", REAS
6b30: 4f 4e 28 29 2c 0a 09 09 28 63 68 61 72 20 2a 29 ON(),...(char *)
6b40: 20 4e 55 4c 4c 29 3b 0a 09 54 6c 73 5f 46 72 65 NULL);..Tls_Fre
6b50: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
6b60: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 Ptr);..return TC
6b70: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
6b80: 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f #ifndef OPENSSL_
6b90: 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 69 66 NO_TLSEXT. if
6ba0: 20 28 73 65 72 76 65 72 6e 61 6d 65 29 20 7b 0a (servername) {.
6bb0: 20 20 20 20 20 20 20 20 69 66 20 28 21 53 53 4c if (!SSL
6bc0: 5f 73 65 74 5f 74 6c 73 65 78 74 5f 68 6f 73 74 _set_tlsext_host
6bd0: 5f 6e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e _name(statePtr->
6be0: 73 73 6c 2c 20 73 65 72 76 65 72 6e 61 6d 65 29 ssl, servername)
6bf0: 20 26 26 20 72 65 71 75 69 72 65 29 20 7b 0a 20 && require) {.
6c00: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 Tcl_A
6c10: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6c20: 72 70 2c 20 22 73 65 74 74 69 6e 67 20 54 4c 53 rp, "setting TLS
6c30: 20 68 6f 73 74 20 6e 61 6d 65 20 65 78 74 65 6e host name exten
6c40: 73 69 6f 6e 20 66 61 69 6c 65 64 22 2c 0a 20 20 sion failed",.
6c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 (c
6c60: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 har *) NULL);.
6c70: 20 20 20 20 20 20 20 20 20 20 54 6c 73 5f 46 72 Tls_Fr
6c80: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 ee((char *) stat
6c90: 65 50 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20 ePtr);.
6ca0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
6cb0: 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 ROR;. }.
6cc0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 61 6c 70 }. if (alp
6cd0: 6e 29 20 7b 0a 09 2f 2a 20 43 6f 6e 76 65 72 74 n) {../* Convert
6ce0: 20 61 20 54 63 6c 20 6c 69 73 74 20 69 6e 74 6f a Tcl list into
6cf0: 20 61 20 70 72 6f 74 6f 63 6f 6c 2d 6c 69 73 74 a protocol-list
6d00: 20 69 6e 20 77 69 72 65 2d 66 6f 72 6d 61 74 20 in wire-format
6d10: 2a 2f 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61 */..unsigned cha
6d20: 72 20 2a 70 72 6f 74 6f 73 2c 20 2a 70 3b 0a 09 r *protos, *p;..
6d30: 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 70 72 6f unsigned int pro
6d40: 74 6f 73 6c 65 6e 20 3d 20 30 3b 0a 09 69 6e 74 toslen = 0;..int
6d50: 20 69 2c 20 6c 65 6e 2c 20 63 6e 74 3b 0a 09 54 i, len, cnt;..T
6d60: 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 73 74 3b 0a 09 cl_Obj **list;..
6d70: 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 if (Tcl_ListObjG
6d80: 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 etElements(inter
6d90: 70 2c 20 61 6c 70 6e 2c 20 26 63 6e 74 2c 20 26 p, alpn, &cnt, &
6da0: 6c 69 73 74 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 list) != TCL_OK)
6db0: 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 {.. Tls_Free
6dc0: 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 ((char *) stateP
6dd0: 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tr);.. return
6de0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 TCL_ERROR;..}..
6df0: 2f 2a 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65 /* Determine the
6e00: 20 6d 65 6d 6f 72 79 20 72 65 71 75 69 72 65 64 memory required
6e10: 20 66 6f 72 20 74 68 65 20 70 72 6f 74 6f 63 6f for the protoco
6e20: 6c 2d 6c 69 73 74 20 2a 2f 0a 09 66 6f 72 20 28 l-list */..for (
6e30: 69 20 3d 20 30 3b 20 69 20 3c 20 63 6e 74 3b 20 i = 0; i < cnt;
6e40: 69 2b 2b 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f i++) {.. Tcl_
6e50: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
6e60: 28 6c 69 73 74 5b 69 5d 2c 20 26 6c 65 6e 29 3b (list[i], &len);
6e70: 0a 09 20 20 20 20 69 66 20 28 6c 65 6e 20 3e 20 .. if (len >
6e80: 32 35 35 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 255) {...Tcl_App
6e90: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6ea0: 2c 20 22 61 6c 70 6e 20 70 72 6f 74 6f 63 6f 6c , "alpn protocol
6eb0: 20 6e 61 6d 65 20 74 6f 6f 20 6c 6f 6e 67 22 2c name too long",
6ec0: 0a 09 09 20 20 28 63 68 61 72 20 2a 29 20 4e 55 ... (char *) NU
6ed0: 4c 4c 29 3b 0a 09 09 54 6c 73 5f 46 72 65 65 28 LL);...Tls_Free(
6ee0: 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 (char *) statePt
6ef0: 72 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c r);...return TCL
6f00: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 _ERROR;.. }..
6f10: 20 20 20 20 70 72 6f 74 6f 73 6c 65 6e 20 2b 3d protoslen +=
6f20: 20 31 20 2b 20 6c 65 6e 3b 0a 09 7d 0a 09 2f 2a 1 + len;..}../*
6f30: 20 42 75 69 6c 64 20 74 68 65 20 63 6f 6d 70 6c Build the compl
6f40: 65 74 65 20 70 72 6f 74 6f 63 6f 6c 2d 6c 69 73 ete protocol-lis
6f50: 74 20 2a 2f 0a 09 70 72 6f 74 6f 73 20 3d 20 63 t */..protos = c
6f60: 6b 61 6c 6c 6f 63 28 70 72 6f 74 6f 73 6c 65 6e kalloc(protoslen
6f70: 29 3b 0a 09 2f 2a 20 70 72 6f 74 6f 63 6f 6c 2d );../* protocol-
6f80: 6c 69 73 74 73 20 63 6f 6e 73 69 73 74 20 6f 66 lists consist of
6f90: 20 38 2d 62 69 74 20 6c 65 6e 67 74 68 2d 70 72 8-bit length-pr
6fa0: 65 66 69 78 65 64 2c 20 62 79 74 65 20 73 74 72 efixed, byte str
6fb0: 69 6e 67 73 20 2a 2f 0a 09 66 6f 72 20 28 69 20 ings */..for (i
6fc0: 3d 20 30 2c 20 70 20 3d 20 70 72 6f 74 6f 73 3b = 0, p = protos;
6fd0: 20 69 20 3c 20 63 6e 74 3b 20 69 2b 2b 29 20 7b i < cnt; i++) {
6fe0: 0a 09 20 20 20 20 63 68 61 72 20 2a 73 74 72 20 .. char *str
6ff0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
7000: 72 6f 6d 4f 62 6a 28 6c 69 73 74 5b 69 5d 2c 20 romObj(list[i],
7010: 26 6c 65 6e 29 3b 0a 09 20 20 20 20 2a 70 2b 2b &len);.. *p++
7020: 20 3d 20 6c 65 6e 3b 0a 09 20 20 20 20 6d 65 6d = len;.. mem
7030: 63 70 79 28 70 2c 20 73 74 72 2c 20 6c 65 6e 29 cpy(p, str, len)
7040: 3b 0a 09 20 20 20 20 70 20 2b 3d 20 6c 65 6e 3b ;.. p += len;
7050: 0a 09 7d 0a 09 2f 2a 20 4e 6f 74 65 3a 20 54 68 ..}../* Note: Th
7060: 69 73 20 66 75 6e 63 74 69 6f 6e 73 20 72 65 76 is functions rev
7070: 65 72 73 65 73 20 74 68 65 20 72 65 74 75 72 6e erses the return
7080: 20 76 61 6c 75 65 20 63 6f 6e 76 65 6e 74 69 6f value conventio
7090: 6e 20 2a 2f 0a 09 69 66 20 28 53 53 4c 5f 73 65 n */..if (SSL_se
70a0: 74 5f 61 6c 70 6e 5f 70 72 6f 74 6f 73 28 73 74 t_alpn_protos(st
70b0: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 70 72 6f atePtr->ssl, pro
70c0: 74 6f 73 2c 20 70 72 6f 74 6f 73 6c 65 6e 29 29 tos, protoslen))
70d0: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 {.. Tcl_Appe
70e0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
70f0: 20 22 66 61 69 6c 65 64 20 74 6f 20 73 65 74 20 "failed to set
7100: 61 6c 70 6e 20 70 72 6f 74 6f 63 6f 6c 73 22 2c alpn protocols",
7110: 0a 09 20 20 20 20 20 20 28 63 68 61 72 20 2a 29 .. (char *)
7120: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 54 6c 73 NULL);.. Tls
7130: 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 _Free((char *) s
7140: 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 63 tatePtr);.. c
7150: 6b 66 72 65 65 28 70 72 6f 74 6f 73 29 3b 0a 09 kfree(protos);..
7160: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
7170: 52 52 4f 52 3b 0a 09 7d 0a 09 2f 2a 20 53 53 4c RROR;..}../* SSL
7180: 5f 73 65 74 5f 61 6c 70 6e 5f 70 72 6f 74 6f 73 _set_alpn_protos
7190: 20 6d 61 6b 65 73 20 61 20 63 6f 70 79 20 6f 66 makes a copy of
71a0: 20 74 68 65 20 70 72 6f 74 6f 63 6f 6c 2d 6c 69 the protocol-li
71b0: 73 74 20 2a 2f 0a 09 63 6b 66 72 65 65 28 70 72 st */..ckfree(pr
71c0: 6f 74 6f 73 29 3b 0a 20 20 20 20 7d 0a 23 65 6e otos);. }.#en
71d0: 64 69 66 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 dif.. /*.
71e0: 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 6b 73 * SSL Callbacks
71f0: 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 53 53 . */.. SS
7200: 4c 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28 73 L_set_app_data(s
7210: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 76 tatePtr->ssl, (v
7220: 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b oid *)statePtr);
7230: 09 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 ./* point back t
7240: 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 20 53 53 4c o us */.. SSL
7250: 5f 73 65 74 5f 76 65 72 69 66 79 28 73 74 61 74 _set_verify(stat
7260: 65 50 74 72 2d 3e 73 73 6c 2c 20 76 65 72 69 66 ePtr->ssl, verif
7270: 79 2c 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63 y, VerifyCallbac
7280: 6b 29 3b 0a 0a 20 20 20 20 53 53 4c 5f 43 54 58 k);.. SSL_CTX
7290: 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 _set_info_callba
72a0: 63 6b 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 ck(statePtr->ctx
72b0: 2c 20 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 3b , InfoCallback);
72c0: 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 .. /* Create
72d0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 42 49 4f 20 Tcl_Channel BIO
72e0: 48 61 6e 64 6c 65 72 20 2a 2f 0a 20 20 20 20 73 Handler */. s
72f0: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 09 3d tatePtr->p_bio.=
7300: 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 73 74 61 BIO_new_tcl(sta
7310: 74 65 50 74 72 2c 20 42 49 4f 5f 4e 4f 43 4c 4f tePtr, BIO_NOCLO
7320: 53 45 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 SE);. statePt
7330: 72 2d 3e 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 r->bio.= BIO_new
7340: 28 42 49 4f 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a (BIO_f_ssl());..
7350: 20 20 20 20 69 66 20 28 73 65 72 76 65 72 29 20 if (server)
7360: 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 {..statePtr->fla
7370: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 53 45 gs |= TLS_TCL_SE
7380: 52 56 45 52 3b 0a 09 53 53 4c 5f 73 65 74 5f 61 RVER;..SSL_set_a
7390: 63 63 65 70 74 5f 73 74 61 74 65 28 73 74 61 74 ccept_state(stat
73a0: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 ePtr->ssl);.
73b0: 7d 20 65 6c 73 65 20 7b 0a 09 53 53 4c 5f 73 65 } else {..SSL_se
73c0: 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 61 74 65 28 t_connect_state(
73d0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
73e0: 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 73 65 }. SSL_se
73f0: 74 5f 62 69 6f 28 73 74 61 74 65 50 74 72 2d 3e t_bio(statePtr->
7400: 73 73 6c 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 ssl, statePtr->p
7410: 5f 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e _bio, statePtr->
7420: 70 5f 62 69 6f 29 3b 0a 20 20 20 20 42 49 4f 5f p_bio);. BIO_
7430: 73 65 74 5f 73 73 6c 28 73 74 61 74 65 50 74 72 set_ssl(statePtr
7440: 2d 3e 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d ->bio, statePtr-
7450: 3e 73 73 6c 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 >ssl, BIO_NOCLOS
7460: 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 E);.. /*.
7470: 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 49 6e * End of SSL In
7480: 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 64 it. */. d
7490: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e printf("Returnin
74a0: 67 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 g %s", Tcl_GetCh
74b0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
74c0: 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20 tr->self));.
74d0: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
74e0: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 terp, (char *) T
74f0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d cl_GetChannelNam
7500: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 e(statePtr->self
7510: 29 2c 0a 09 20 20 20 20 54 43 4c 5f 56 4f 4c 41 ),.. TCL_VOLA
7520: 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 TILE);. retur
7530: 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 n TCL_OK;. .c
7540: 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 lientData = clie
7550: 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 ntData;.}.../*.
7560: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
7570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75a0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 69 6d 70 ----. *. * Unimp
75b0: 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a ortObjCmd --. *.
75c0: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
75d0: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 e is invoked to
75e0: 72 65 6d 6f 76 65 20 74 68 65 20 74 6f 70 6d 6f remove the topmo
75f0: 73 74 20 63 68 61 6e 6e 65 6c 20 66 69 6c 74 65 st channel filte
7600: 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 r.. *. * Results
7610: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
7620: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
7630: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
7640: 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 *.May modify th
7650: 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e e behavior of an
7660: 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a IO channel.. *.
7670: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76b0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
76c0: 63 20 69 6e 74 0a 55 6e 69 6d 70 6f 72 74 4f 62 c int.UnimportOb
76d0: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
76e0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
76f0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
7700: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
7710: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
7720: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e {. Tcl_Chann
7730: 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 el chan;../* The
7740: 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 channel to set
7750: 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 0a 20 a mode on. */..
7760: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
7770: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 6f ed");.. if (o
7780: 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c bjc != 2) {..Tcl
7790: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
77a0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
77b0: 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 74 75 channel");..retu
77c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
77d0: 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 }.. chan =
77e0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
77f0: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
7800: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 4e ring(objv[1]), N
7810: 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 68 ULL);. if (ch
7820: 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e an == (Tcl_Chann
7830: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
7840: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7850: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 }.. /*.
7860: 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f * Make sure to
7870: 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 operate on the
7880: 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a topmost channel.
7890: 20 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e */. chan
78a0: 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 = Tcl_GetTopCha
78b0: 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 nnel(chan);..
78c0: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e if (Tcl_GetChan
78d0: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d nelType(chan) !=
78e0: 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 Tls_ChannelType
78f0: 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e ()) {..Tcl_Appen
7900: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
7910: 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 "bad channel \""
7920: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c , Tcl_GetChannel
7930: 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c Name(chan),..."\
7940: 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 ": not a TLS cha
7950: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 nnel", NULL);..r
7960: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7970: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
7980: 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e Tcl_UnstackChann
7990: 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 el(interp, chan)
79a0: 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b == TCL_ERROR) {
79b0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
79c0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 OR;. }.. r
79d0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 eturn TCL_OK;.
79e0: 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 .clientData =
79f0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a clientData;.}...
7a00: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
7a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a40: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 --------. *. * C
7a50: 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 74 TX_Init -- const
7a60: 72 75 63 74 20 61 20 53 53 4c 5f 43 54 58 20 69 ruct a SSL_CTX i
7a70: 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 65 nstance. *. * Re
7a80: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c 69 sults:. *.A vali
7a90: 64 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e d SSL_CTX instan
7aa0: 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20 ce or NULL.. *.
7ab0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
7ac0: 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 53 53 *.constructs SS
7ad0: 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a L context (CTX).
7ae0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
7af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b20: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
7b30: 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a 43 atic SSL_CTX *.C
7b40: 54 58 5f 49 6e 69 74 28 53 74 61 74 65 20 2a 73 TX_Init(State *s
7b50: 74 61 74 65 50 74 72 2c 20 69 6e 74 20 69 73 53 tatePtr, int isS
7b60: 65 72 76 65 72 2c 20 69 6e 74 20 70 72 6f 74 6f erver, int proto
7b70: 2c 20 63 68 61 72 20 2a 6b 65 79 66 69 6c 65 2c , char *keyfile,
7b80: 20 63 68 61 72 20 2a 63 65 72 74 66 69 6c 65 2c char *certfile,
7b90: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 . unsigned ch
7ba0: 61 72 20 2a 6b 65 79 2c 20 75 6e 73 69 67 6e 65 ar *key, unsigne
7bb0: 64 20 63 68 61 72 20 2a 63 65 72 74 2c 20 69 6e d char *cert, in
7bc0: 74 20 6b 65 79 5f 6c 65 6e 2c 20 69 6e 74 20 63 t key_len, int c
7bd0: 65 72 74 5f 6c 65 6e 2c 20 63 68 61 72 20 2a 43 ert_len, char *C
7be0: 41 64 69 72 2c 0a 20 20 20 20 63 68 61 72 20 2a Adir,. char *
7bf0: 43 41 66 69 6c 65 2c 20 63 68 61 72 20 2a 63 69 CAfile, char *ci
7c00: 70 68 65 72 73 2c 20 63 68 61 72 20 2a 44 48 70 phers, char *DHp
7c10: 61 72 61 6d 73 29 20 7b 0a 20 20 20 20 54 63 6c arams) {. Tcl
7c20: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20 _Interp *interp
7c30: 3d 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 = statePtr->inte
7c40: 72 70 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 rp;. SSL_CTX
7c50: 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 *ctx = NULL;.
7c60: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 3b Tcl_DString ds;
7c70: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
7c80: 20 64 73 31 3b 0a 20 20 20 20 69 6e 74 20 6f 66 ds1;. int of
7c90: 66 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 6c f = 0;. int l
7ca0: 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b 65 79 3b oad_private_key;
7cb0: 0a 20 20 20 20 63 6f 6e 73 74 20 53 53 4c 5f 4d . const SSL_M
7cc0: 45 54 48 4f 44 20 2a 6d 65 74 68 6f 64 3b 0a 0a ETHOD *method;..
7cd0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
7ce0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 led");.. if (
7cf0: 21 70 72 6f 74 6f 29 20 7b 0a 09 54 63 6c 5f 41 !proto) {..Tcl_A
7d00: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7d10: 72 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 70 72 rp, "no valid pr
7d20: 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 22 otocol selected"
7d30: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
7d40: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 (SSL_CTX *)0;.
7d50: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 63 72 65 }.. /* cre
7d60: 61 74 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 ate SSL context
7d70: 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 */.#if OPENSSL_V
7d80: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d ERSION_NUMBER >=
7d90: 20 30 78 31 30 31 30 31 30 30 30 4c 20 7c 7c 20 0x10101000L ||
7da0: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 defined(NO_SSL2)
7db0: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e || defined(OPEN
7dc0: 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 SSL_NO_SSL2).
7dd0: 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f if (ENABLED(pro
7de0: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 to, TLS_PROTO_SS
7df0: 4c 32 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 L2)) {..Tcl_Appe
7e00: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
7e10: 20 22 53 53 4c 32 20 70 72 6f 74 6f 63 6f 6c 20 "SSL2 protocol
7e20: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
7e30: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 NULL);..return (
7e40: 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 SSL_CTX *)0;.
7e50: 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 }.#endif.#if de
7e60: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 7c fined(NO_SSL3) |
7e70: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 | defined(OPENSS
7e80: 4c 5f 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 L_NO_SSL3). i
7e90: 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f f (ENABLED(proto
7ea0: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 , TLS_PROTO_SSL3
7eb0: 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 )) {..Tcl_Append
7ec0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
7ed0: 53 53 4c 33 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f SSL3 protocol no
7ee0: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
7ef0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 LL);..return (SS
7f00: 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d L_CTX *)0;. }
7f10: 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 .#endif.#if defi
7f20: 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 ned(NO_TLS1) ||
7f30: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
7f40: 4e 4f 5f 54 4c 53 31 29 0a 20 20 20 20 69 66 20 NO_TLS1). if
7f50: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
7f60: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 TLS_PROTO_TLS1))
7f70: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
7f80: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 54 4c sult(interp, "TL
7f90: 53 20 31 2e 30 20 70 72 6f 74 6f 63 6f 6c 20 6e S 1.0 protocol n
7fa0: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
7fb0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ULL);..return (S
7fc0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 SL_CTX *)0;.
7fd0: 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 }.#endif.#if def
7fe0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 ined(NO_TLS1_1)
7ff0: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
8000: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 0a 20 20 SL_NO_TLS1_1).
8010: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 if (ENABLED(pr
8020: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 oto, TLS_PROTO_T
8030: 4c 53 31 5f 31 29 29 20 7b 0a 09 54 63 6c 5f 41 LS1_1)) {..Tcl_A
8040: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8050: 72 70 2c 20 22 54 4c 53 20 31 2e 31 20 70 72 6f rp, "TLS 1.1 pro
8060: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
8070: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 ted", NULL);..re
8080: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 turn (SSL_CTX *)
8090: 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0;. }.#endif.
80a0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
80b0: 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 LS1_2) || define
80c0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
80d0: 31 5f 32 29 0a 20 20 20 20 69 66 20 28 45 4e 41 1_2). if (ENA
80e0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
80f0: 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29 29 20 7b PROTO_TLS1_2)) {
8100: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
8110: 6c 74 28 69 6e 74 65 72 70 2c 20 22 54 4c 53 20 lt(interp, "TLS
8120: 31 2e 32 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 1.2 protocol not
8130: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c supported", NUL
8140: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c L);..return (SSL
8150: 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a _CTX *)0;. }.
8160: 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e #endif.#if defin
8170: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c ed(NO_TLS1_3) ||
8180: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
8190: 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 20 _NO_TLS1_3).
81a0: 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 if (ENABLED(prot
81b0: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 o, TLS_PROTO_TLS
81c0: 31 5f 33 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 1_3)) {..Tcl_App
81d0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
81e0: 2c 20 22 54 4c 53 20 31 2e 33 20 70 72 6f 74 6f , "TLS 1.3 proto
81f0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
8200: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 d", NULL);..retu
8210: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b rn (SSL_CTX *)0;
8220: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 . }.#endif..
8230: 20 20 20 73 77 69 74 63 68 20 28 70 72 6f 74 6f switch (proto
8240: 29 20 7b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f ) {.#if OPENSSL_
8250: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c VERSION_NUMBER <
8260: 20 30 78 31 30 31 30 31 30 30 30 4c 20 26 26 20 0x10101000L &&
8270: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 !defined(NO_SSL2
8280: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
8290: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 ENSSL_NO_SSL2).
82a0: 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 case TLS_PROT
82b0: 4f 5f 53 53 4c 32 3a 0a 09 6d 65 74 68 6f 64 20 O_SSL2:..method
82c0: 3d 20 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 = SSLv2_method()
82d0: 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 ;..break;.#endif
82e0: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f .#if !defined(NO
82f0: 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e _SSL3) && !defin
8300: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 ed(OPENSSL_NO_SS
8310: 4c 33 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 L3). case TLS
8320: 5f 50 52 4f 54 4f 5f 53 53 4c 33 3a 0a 09 6d 65 _PROTO_SSL3:..me
8330: 74 68 6f 64 20 3d 20 53 53 4c 76 33 5f 6d 65 74 thod = SSLv3_met
8340: 68 6f 64 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 hod();..break;.#
8350: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
8360: 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21 ed(NO_TLS1) && !
8370: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
8380: 4e 4f 5f 54 4c 53 31 29 0a 20 20 20 20 63 61 73 NO_TLS1). cas
8390: 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 e TLS_PROTO_TLS1
83a0: 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 76 :..method = TLSv
83b0: 31 5f 6d 65 74 68 6f 64 28 29 3b 0a 09 62 72 65 1_method();..bre
83c0: 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 ak;.#endif.#if !
83d0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
83e0: 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 1) && !defined(O
83f0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 PENSSL_NO_TLS1_1
8400: 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 ). case TLS_P
8410: 52 4f 54 4f 5f 54 4c 53 31 5f 31 3a 0a 09 6d 65 ROTO_TLS1_1:..me
8420: 74 68 6f 64 20 3d 20 54 4c 53 76 31 5f 31 5f 6d thod = TLSv1_1_m
8430: 65 74 68 6f 64 28 29 3b 0a 09 62 72 65 61 6b 3b ethod();..break;
8440: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
8450: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 ined(NO_TLS1_2)
8460: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
8470: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20 SSL_NO_TLS1_2).
8480: 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 case TLS_PROT
8490: 4f 5f 54 4c 53 31 5f 32 3a 0a 09 6d 65 74 68 6f O_TLS1_2:..metho
84a0: 64 20 3d 20 54 4c 53 76 31 5f 32 5f 6d 65 74 68 d = TLSv1_2_meth
84b0: 6f 64 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 od();..break;.#e
84c0: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 ndif.#if !define
84d0: 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 26 20 d(NO_TLS1_3) &&
84e0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
84f0: 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 20 _NO_TLS1_3).
8500: 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 case TLS_PROTO_T
8510: 4c 53 31 5f 33 3a 0a 20 20 20 20 20 20 20 20 2f LS1_3:. /
8520: 2a 0a 20 20 20 20 20 20 20 20 20 2a 20 54 68 65 *. * The
8530: 20 76 65 72 73 69 6f 6e 20 72 61 6e 67 65 20 69 version range i
8540: 73 20 63 6f 6e 73 74 72 61 69 6e 65 64 20 62 65 s constrained be
8550: 6c 6f 77 2c 0a 20 20 20 20 20 20 20 20 20 2a 20 low,. *
8560: 61 66 74 65 72 20 74 68 65 20 63 6f 6e 74 65 78 after the contex
8570: 74 20 69 73 20 63 72 65 61 74 65 64 2e 20 20 55 t is created. U
8580: 73 65 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 se the.
8590: 2a 20 67 65 6e 65 72 69 63 20 6d 65 74 68 6f 64 * generic method
85a0: 20 68 65 72 65 2e 0a 20 20 20 20 20 20 20 20 20 here..
85b0: 2a 2f 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 */..method = TLS
85c0: 5f 6d 65 74 68 6f 64 28 29 3b 0a 09 62 72 65 61 _method();..brea
85d0: 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 64 65 k;.#endif. de
85e0: 66 61 75 6c 74 3a 0a 23 69 66 20 4f 50 45 4e 53 fault:.#if OPENS
85f0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
8600: 52 20 3e 3d 20 30 78 31 30 31 30 30 30 30 30 4c R >= 0x10100000L
8610: 0a 09 2f 2a 20 4e 65 67 6f 74 69 61 74 65 20 68 ../* Negotiate h
8620: 69 67 68 65 73 74 20 61 76 61 69 6c 61 62 6c 65 ighest available
8630: 20 53 53 4c 2f 54 4c 53 20 76 65 72 73 69 6f 6e SSL/TLS version
8640: 20 2a 2f 0a 20 20 20 20 20 20 20 20 6d 65 74 68 */. meth
8650: 6f 64 20 3d 20 54 4c 53 5f 6d 65 74 68 6f 64 28 od = TLS_method(
8660: 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 );.#else.
8670: 20 6d 65 74 68 6f 64 20 3d 20 53 53 4c 76 32 33 method = SSLv23
8680: 5f 6d 65 74 68 6f 64 28 29 3b 0a 23 65 6e 64 69 _method();.#endi
8690: 66 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 f.#if OPENSSL_VE
86a0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 RSION_NUMBER < 0
86b0: 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 21 64 x10100000L && !d
86c0: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 efined(NO_SSL2)
86d0: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
86e0: 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 09 6f 66 SSL_NO_SSL2)..of
86f0: 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 f |= (ENABLED(pr
8700: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
8710: 53 4c 32 29 20 20 20 3f 20 30 20 3a 20 53 53 4c SL2) ? 0 : SSL
8720: 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 32 29 3b 0a 23 _OP_NO_SSLv2);.#
8730: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
8740: 65 64 28 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 ed(NO_SSL3) && !
8750: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
8760: 4e 4f 5f 53 53 4c 33 29 0a 09 6f 66 66 20 7c 3d NO_SSL3)..off |=
8770: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
8780: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 TLS_PROTO_SSL3)
8790: 20 20 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f ? 0 : SSL_OP_
87a0: 4e 4f 5f 53 53 4c 76 33 29 3b 0a 23 65 6e 64 69 NO_SSLv3);.#endi
87b0: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
87c0: 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 66 69 O_TLS1) && !defi
87d0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
87e0: 4c 53 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e LS1)..off |= (EN
87f0: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
8800: 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 20 20 20 3f _PROTO_TLS1) ?
8810: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 0 : SSL_OP_NO_T
8820: 4c 53 76 31 29 3b 0a 23 65 6e 64 69 66 0a 23 69 LSv1);.#endif.#i
8830: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c f !defined(NO_TL
8840: 53 31 5f 31 29 20 26 26 20 21 64 65 66 69 6e 65 S1_1) && !define
8850: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
8860: 31 5f 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 1_1)..off |= (EN
8870: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
8880: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 20 3f _PROTO_TLS1_1) ?
8890: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 0 : SSL_OP_NO_T
88a0: 4c 53 76 31 5f 31 29 3b 0a 23 65 6e 64 69 66 0a LSv1_1);.#endif.
88b0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
88c0: 54 4c 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 TLS1_2) && !defi
88d0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
88e0: 4c 53 31 5f 32 29 0a 09 6f 66 66 20 7c 3d 20 28 LS1_2)..off |= (
88f0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
8900: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29 LS_PROTO_TLS1_2)
8910: 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f ? 0 : SSL_OP_NO
8920: 5f 54 4c 53 76 31 5f 32 29 3b 0a 23 65 6e 64 69 _TLSv1_2);.#endi
8930: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
8940: 4f 5f 54 4c 53 31 5f 33 29 20 26 26 20 21 64 65 O_TLS1_3) && !de
8950: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
8960: 5f 54 4c 53 31 5f 33 29 0a 09 6f 66 66 20 7c 3d _TLS1_3)..off |=
8970: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
8980: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
8990: 33 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 3) ? 0 : SSL_OP_
89a0: 4e 4f 5f 54 4c 53 76 31 5f 33 29 3b 0a 23 65 6e NO_TLSv1_3);.#en
89b0: 64 69 66 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 dif..break;.
89c0: 7d 0a 20 20 20 20 0a 20 20 20 20 63 74 78 20 3d }. . ctx =
89d0: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 6d 65 74 SSL_CTX_new(met
89e0: 68 6f 64 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 hod);.. if (!
89f0: 63 74 78 29 20 7b 0a 20 20 20 20 20 20 20 20 72 ctx) {. r
8a00: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 20 eturn(NULL);.
8a10: 20 7d 0a 0a 20 20 20 20 69 66 20 28 67 65 74 65 }.. if (gete
8a20: 6e 76 28 53 53 4c 4b 45 59 4c 4f 47 46 49 4c 45 nv(SSLKEYLOGFILE
8a30: 29 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 73 65 )) {..SSL_CTX_se
8a40: 74 5f 6b 65 79 6c 6f 67 5f 63 61 6c 6c 62 61 63 t_keylog_callbac
8a50: 6b 28 63 74 78 2c 20 4b 65 79 4c 6f 67 43 61 6c k(ctx, KeyLogCal
8a60: 6c 62 61 63 6b 29 3b 0a 20 20 20 20 7d 0a 0a 23 lback);. }..#
8a70: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 if !defined(NO_T
8a80: 4c 53 31 5f 33 29 20 26 26 20 21 64 65 66 69 6e LS1_3) && !defin
8a90: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
8aa0: 53 31 5f 33 29 0a 20 20 20 20 69 66 20 28 70 72 S1_3). if (pr
8ab0: 6f 74 6f 20 3d 3d 20 54 4c 53 5f 50 52 4f 54 4f oto == TLS_PROTO
8ac0: 5f 54 4c 53 31 5f 33 29 20 7b 0a 20 20 20 20 20 _TLS1_3) {.
8ad0: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d SSL_CTX_set_m
8ae0: 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e in_proto_version
8af0: 28 63 74 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 (ctx, TLS1_3_VER
8b00: 53 49 4f 4e 29 3b 0a 20 20 20 20 20 20 20 20 53 SION);. S
8b10: 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 SL_CTX_set_max_p
8b20: 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78 roto_version(ctx
8b30: 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e , TLS1_3_VERSION
8b40: 29 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a );. }.#endif.
8b50: 20 20 20 20 0a 20 20 20 20 53 53 4c 5f 43 54 58 . SSL_CTX
8b60: 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28 20 63 _set_app_data( c
8b70: 74 78 2c 20 28 76 6f 69 64 2a 29 69 6e 74 65 72 tx, (void*)inter
8b80: 70 29 3b 09 2f 2a 20 72 65 6d 65 6d 62 65 72 20 p);./* remember
8b90: 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 the interpreter
8ba0: 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 */. SSL_CTX_s
8bb0: 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 74 78 2c et_options( ctx,
8bc0: 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 3b 09 2f 2a SSL_OP_ALL);./*
8bd0: 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 all SSL bug wor
8be0: 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 karounds */.
8bf0: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 SSL_CTX_set_opti
8c00: 6f 6e 73 28 20 63 74 78 2c 20 6f 66 66 29 3b 09 ons( ctx, off);.
8c10: 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 77 /* all SSL bug w
8c20: 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 23 69 orkarounds */.#i
8c30: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
8c40: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31 N_NUMBER < 0x101
8c50: 30 31 30 30 30 4c 0a 20 20 20 20 53 53 4c 5f 43 01000L. SSL_C
8c60: 54 58 5f 73 65 74 5f 6d 6f 64 65 28 63 74 78 2c TX_set_mode(ctx,
8c70: 20 53 53 4c 5f 4d 4f 44 45 5f 41 55 54 4f 5f 52 SSL_MODE_AUTO_R
8c80: 45 54 52 59 29 3b 09 2f 2a 20 68 61 6e 64 6c 65 ETRY);./* handle
8c90: 20 6e 65 77 20 68 61 6e 64 73 68 61 6b 65 73 20 new handshakes
8ca0: 69 6e 20 62 61 63 6b 67 72 6f 75 6e 64 20 2a 2f in background */
8cb0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 53 53 4c 5f .#endif. SSL_
8cc0: 43 54 58 5f 73 65 73 73 5f 73 65 74 5f 63 61 63 CTX_sess_set_cac
8cd0: 68 65 5f 73 69 7a 65 28 20 63 74 78 2c 20 31 32 he_size( ctx, 12
8ce0: 38 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 69 70 8);.. if (cip
8cf0: 68 65 72 73 20 21 3d 20 4e 55 4c 4c 29 0a 09 53 hers != NULL)..S
8d00: 53 4c 5f 43 54 58 5f 73 65 74 5f 63 69 70 68 65 SL_CTX_set_ciphe
8d10: 72 5f 6c 69 73 74 28 63 74 78 2c 20 63 69 70 68 r_list(ctx, ciph
8d20: 65 72 73 29 3b 0a 0a 20 20 20 20 2f 2a 20 73 65 ers);.. /* se
8d30: 74 20 73 6f 6d 65 20 63 61 6c 6c 62 61 63 6b 73 t some callbacks
8d40: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f */. SSL_CTX_
8d50: 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 73 73 set_default_pass
8d60: 77 64 5f 63 62 28 63 74 78 2c 20 50 61 73 73 77 wd_cb(ctx, Passw
8d70: 6f 72 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 ordCallback);..#
8d80: 69 66 6e 64 65 66 20 42 53 41 46 45 0a 20 20 20 ifndef BSAFE.
8d90: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 SSL_CTX_set_def
8da0: 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 5f 75 ault_passwd_cb_u
8db0: 73 65 72 64 61 74 61 28 63 74 78 2c 20 28 76 6f serdata(ctx, (vo
8dc0: 69 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b 0a id *)statePtr);.
8dd0: 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 20 72 #endif.. /* r
8de0: 65 61 64 20 61 20 44 69 66 66 69 65 2d 48 65 6c ead a Diffie-Hel
8df0: 6c 6d 61 6e 20 70 61 72 61 6d 65 74 65 72 73 20 lman parameters
8e00: 66 69 6c 65 2c 20 6f 72 20 75 73 65 20 74 68 65 file, or use the
8e10: 20 62 75 69 6c 74 2d 69 6e 20 6f 6e 65 20 2a 2f built-in one */
8e20: 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 53 4c 5f .#ifdef OPENSSL_
8e30: 4e 4f 5f 44 48 0a 20 20 20 20 69 66 20 28 44 48 NO_DH. if (DH
8e40: 70 61 72 61 6d 73 20 21 3d 20 4e 55 4c 4c 29 20 params != NULL)
8e50: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
8e60: 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 20 20 20 ult(interp,..
8e70: 20 22 44 48 20 70 61 72 61 6d 65 74 65 72 20 73 "DH parameter s
8e80: 75 70 70 6f 72 74 20 6e 6f 74 20 61 76 61 69 6c upport not avail
8e90: 61 62 6c 65 22 2c 20 28 63 68 61 72 20 2a 29 20 able", (char *)
8ea0: 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f NULL);..SSL_CTX_
8eb0: 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 free(ctx);..retu
8ec0: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b rn (SSL_CTX *)0;
8ed0: 0a 20 20 20 20 7d 0a 23 65 6c 73 65 0a 20 20 20 . }.#else.
8ee0: 20 7b 0a 09 44 48 2a 20 64 68 3b 0a 09 69 66 20 {..DH* dh;..if
8ef0: 28 44 48 70 61 72 61 6d 73 20 21 3d 20 4e 55 4c (DHparams != NUL
8f00: 4c 29 20 7b 0a 09 20 20 20 20 42 49 4f 20 2a 62 L) {.. BIO *b
8f10: 69 6f 3b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 io;.. Tcl_DSt
8f20: 72 69 6e 67 49 6e 69 74 28 26 64 73 29 3b 0a 09 ringInit(&ds);..
8f30: 20 20 20 20 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 bio = BIO_ne
8f40: 77 5f 66 69 6c 65 28 46 32 4e 28 44 48 70 61 72 w_file(F2N(DHpar
8f50: 61 6d 73 2c 20 26 64 73 29 2c 20 22 72 22 29 3b ams, &ds), "r");
8f60: 0a 09 20 20 20 20 69 66 20 28 21 62 69 6f 29 20 .. if (!bio)
8f70: 7b 0a 09 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 {...Tcl_DStringF
8f80: 72 65 65 28 26 64 73 29 3b 0a 09 09 54 63 6c 5f ree(&ds);...Tcl_
8f90: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
8fa0: 65 72 70 2c 0a 09 09 20 20 20 20 22 43 6f 75 6c erp,... "Coul
8fb0: 64 20 6e 6f 74 20 66 69 6e 64 20 44 48 20 70 61 d not find DH pa
8fc0: 72 61 6d 65 74 65 72 73 20 66 69 6c 65 22 2c 20 rameters file",
8fd0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
8fe0: 09 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 ..SSL_CTX_free(c
8ff0: 74 78 29 3b 0a 09 09 72 65 74 75 72 6e 20 28 53 tx);...return (S
9000: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 20 20 20 SL_CTX *)0;..
9010: 20 7d 0a 09 20 20 20 20 0a 09 20 20 20 20 64 68 }.. .. dh
9020: 20 3d 20 50 45 4d 5f 72 65 61 64 5f 62 69 6f 5f = PEM_read_bio_
9030: 44 48 70 61 72 61 6d 73 28 62 69 6f 2c 20 4e 55 DHparams(bio, NU
9040: 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b LL, NULL, NULL);
9050: 0a 09 20 20 20 20 42 49 4f 5f 66 72 65 65 28 62 .. BIO_free(b
9060: 69 6f 29 3b 0a 09 20 20 20 20 54 63 6c 5f 44 53 io);.. Tcl_DS
9070: 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a tringFree(&ds);.
9080: 09 20 20 20 20 69 66 20 28 21 64 68 29 20 7b 0a . if (!dh) {.
9090: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
90a0: 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 lt(interp,...
90b0: 20 22 43 6f 75 6c 64 20 6e 6f 74 20 72 65 61 64 "Could not read
90c0: 20 44 48 20 70 61 72 61 6d 65 74 65 72 73 20 66 DH parameters f
90d0: 72 6f 6d 20 66 69 6c 65 22 2c 20 28 63 68 61 72 rom file", (char
90e0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c *) NULL);...SSL
90f0: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
9100: 09 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 ..return (SSL_CT
9110: 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a 09 7d X *)0;.. }..}
9120: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64 68 20 else {.. dh
9130: 3d 20 67 65 74 5f 64 68 50 61 72 61 6d 73 28 29 = get_dhParams()
9140: 3b 0a 09 7d 0a 09 53 53 4c 5f 43 54 58 5f 73 65 ;..}..SSL_CTX_se
9150: 74 5f 74 6d 70 5f 64 68 28 63 74 78 2c 20 64 68 t_tmp_dh(ctx, dh
9160: 29 3b 0a 09 44 48 5f 66 72 65 65 28 64 68 29 3b );..DH_free(dh);
9170: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 . }.#endif..
9180: 20 20 20 2f 2a 20 73 65 74 20 6f 75 72 20 63 65 /* set our ce
9190: 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 20 20 20 rtificate */.
91a0: 20 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b 65 load_private_ke
91b0: 79 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 63 y = 0;. if (c
91c0: 65 72 74 66 69 6c 65 20 21 3d 20 4e 55 4c 4c 29 ertfile != NULL)
91d0: 20 7b 0a 09 6c 6f 61 64 5f 70 72 69 76 61 74 65 {..load_private
91e0: 5f 6b 65 79 20 3d 20 31 3b 0a 0a 09 54 63 6c 5f _key = 1;...Tcl_
91f0: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 DStringInit(&ds)
9200: 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f ;...if (SSL_CTX_
9210: 75 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 5f use_certificate_
9220: 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 63 file(ctx, F2N( c
9230: 65 72 74 66 69 6c 65 2c 20 26 64 73 29 2c 0a 09 ertfile, &ds),..
9240: 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 ....SSL_FILETYPE
9250: 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 09 20 _PEM) <= 0) {..
9260: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
9270: 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 ee(&ds);.. Tc
9280: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
9290: 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 nterp,.... "
92a0: 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 63 65 unable to set ce
92b0: 72 74 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 rtificate file "
92c0: 2c 20 63 65 72 74 66 69 6c 65 2c 20 22 3a 20 22 , certfile, ": "
92d0: 2c 0a 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e ,.... REASON
92e0: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
92f0: 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 L);.. SSL_CTX
9300: 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 _free(ctx);..
9310: 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 return (SSL_CTX
9320: 20 2a 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 *)0;..}. } e
9330: 6c 73 65 20 69 66 20 28 63 65 72 74 20 21 3d 20 lse if (cert !=
9340: 4e 55 4c 4c 29 20 7b 0a 09 6c 6f 61 64 5f 70 72 NULL) {..load_pr
9350: 69 76 61 74 65 5f 6b 65 79 20 3d 20 31 3b 0a 09 ivate_key = 1;..
9360: 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f if (SSL_CTX_use_
9370: 63 65 72 74 69 66 69 63 61 74 65 5f 41 53 4e 31 certificate_ASN1
9380: 28 63 74 78 2c 20 63 65 72 74 5f 6c 65 6e 2c 20 (ctx, cert_len,
9390: 63 65 72 74 29 20 3c 3d 20 30 29 20 7b 0a 09 20 cert) <= 0) {..
93a0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
93b0: 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 ee(&ds);.. Tc
93c0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
93d0: 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 nterp,.... "
93e0: 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 63 65 unable to set ce
93f0: 72 74 69 66 69 63 61 74 65 3a 20 22 2c 0a 09 09 rtificate: ",...
9400: 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 . REASON(),
9410: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
9420: 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 . SSL_CTX_fre
9430: 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 e(ctx);.. ret
9440: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
9450: 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 ;..}. } else
9460: 7b 0a 09 63 65 72 74 66 69 6c 65 20 3d 20 28 63 {..certfile = (c
9470: 68 61 72 2a 29 58 35 30 39 5f 67 65 74 5f 64 65 har*)X509_get_de
9480: 66 61 75 6c 74 5f 63 65 72 74 5f 66 69 6c 65 28 fault_cert_file(
9490: 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 );...if (SSL_CTX
94a0: 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 _use_certificate
94b0: 5f 66 69 6c 65 28 63 74 78 2c 20 63 65 72 74 66 _file(ctx, certf
94c0: 69 6c 65 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 ile,......SSL_FI
94d0: 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 LETYPE_PEM) <= 0
94e0: 29 20 7b 0a 23 69 66 20 30 0a 09 20 20 20 20 54 ) {.#if 0.. T
94f0: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
9500: 64 73 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 ds);.. Tcl_Ap
9510: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
9520: 70 2c 0a 09 09 09 20 20 20 20 20 22 75 6e 61 62 p,.... "unab
9530: 6c 65 20 74 6f 20 75 73 65 20 64 65 66 61 75 6c le to use defaul
9540: 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 t certificate fi
9550: 6c 65 20 22 2c 20 63 65 72 74 66 69 6c 65 2c 20 le ", certfile,
9560: 22 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 ": ",.... RE
9570: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
9580: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c NULL);.. SSL
9590: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
95a0: 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c . return (SSL
95b0: 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 _CTX *)0;.#endif
95c0: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ..}. }.. /
95d0: 2a 20 73 65 74 20 6f 75 72 20 70 72 69 76 61 74 * set our privat
95e0: 65 20 6b 65 79 20 2a 2f 0a 20 20 20 20 69 66 20 e key */. if
95f0: 28 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b 65 (load_private_ke
9600: 79 29 20 7b 0a 09 69 66 20 28 6b 65 79 66 69 6c y) {..if (keyfil
9610: 65 20 3d 3d 20 4e 55 4c 4c 20 26 26 20 6b 65 79 e == NULL && key
9620: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 == NULL) {..
9630: 20 6b 65 79 66 69 6c 65 20 3d 20 63 65 72 74 66 keyfile = certf
9640: 69 6c 65 3b 0a 09 7d 0a 0a 09 69 66 20 28 6b 65 ile;..}...if (ke
9650: 79 66 69 6c 65 20 21 3d 20 4e 55 4c 4c 29 20 7b yfile != NULL) {
9660: 0a 09 20 20 20 20 2f 2a 20 67 65 74 20 74 68 65 .. /* get the
9670: 20 70 72 69 76 61 74 65 20 6b 65 79 20 61 73 73 private key ass
9680: 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 ociated with thi
9690: 73 20 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f s certificate */
96a0: 0a 09 20 20 20 20 69 66 20 28 6b 65 79 66 69 6c .. if (keyfil
96b0: 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 6b e == NULL) {...k
96c0: 65 79 66 69 6c 65 20 3d 20 63 65 72 74 66 69 6c eyfile = certfil
96d0: 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 e;.. }...
96e0: 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f if (SSL_CTX_use_
96f0: 50 72 69 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 PrivateKey_file(
9700: 63 74 78 2c 20 46 32 4e 28 20 6b 65 79 66 69 6c ctx, F2N( keyfil
9710: 65 2c 20 26 64 73 29 2c 20 53 53 4c 5f 46 49 4c e, &ds), SSL_FIL
9720: 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 ETYPE_PEM) <= 0)
9730: 20 7b 0a 09 09 54 63 6c 5f 44 53 74 72 69 6e 67 {...Tcl_DString
9740: 46 72 65 65 28 26 64 73 29 3b 0a 09 09 2f 2a 20 Free(&ds);.../*
9750: 66 6c 75 73 68 20 74 68 65 20 70 61 73 73 70 68 flush the passph
9760: 72 61 73 65 20 77 68 69 63 68 20 6d 69 67 68 74 rase which might
9770: 20 62 65 20 6c 65 66 74 20 69 6e 20 74 68 65 20 be left in the
9780: 72 65 73 75 6c 74 20 2a 2f 0a 09 09 54 63 6c 5f result */...Tcl_
9790: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
97a0: 2c 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 , NULL, TCL_STAT
97b0: 49 43 29 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e IC);...Tcl_Appen
97c0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
97d0: 09 09 09 20 20 20 20 20 20 20 20 20 22 75 6e 61 ... "una
97e0: 62 6c 65 20 74 6f 20 73 65 74 20 70 75 62 6c 69 ble to set publi
97f0: 63 20 6b 65 79 20 66 69 6c 65 20 22 2c 20 6b 65 c key file ", ke
9800: 79 66 69 6c 65 2c 20 22 20 22 2c 0a 09 09 09 20 yfile, " ",....
9810: 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e 28 29 REASON()
9820: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
9830: 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 ;...SSL_CTX_free
9840: 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 6e 20 (ctx);...return
9850: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 20 (SSL_CTX *)0;..
9860: 20 20 20 7d 0a 0a 09 20 20 20 20 54 63 6c 5f 44 }... Tcl_D
9870: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b StringFree(&ds);
9880: 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 6b 65 79 ..} else if (key
9890: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 != NULL) {..
98a0: 20 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 if (SSL_CTX_use
98b0: 5f 50 72 69 76 61 74 65 4b 65 79 5f 41 53 4e 31 _PrivateKey_ASN1
98c0: 28 45 56 50 5f 50 4b 45 59 5f 52 53 41 2c 20 63 (EVP_PKEY_RSA, c
98d0: 74 78 2c 20 6b 65 79 2c 6b 65 79 5f 6c 65 6e 29 tx, key,key_len)
98e0: 20 3c 3d 20 30 29 20 7b 0a 09 09 54 63 6c 5f 44 <= 0) {...Tcl_D
98f0: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b StringFree(&ds);
9900: 0a 09 09 2f 2a 20 66 6c 75 73 68 20 74 68 65 20 .../* flush the
9910: 70 61 73 73 70 68 72 61 73 65 20 77 68 69 63 68 passphrase which
9920: 20 6d 69 67 68 74 20 62 65 20 6c 65 66 74 20 69 might be left i
9930: 6e 20 74 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a n the result */.
9940: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 ..Tcl_SetResult(
9950: 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 2c 20 54 43 interp, NULL, TC
9960: 4c 5f 53 54 41 54 49 43 29 3b 0a 09 09 54 63 6c L_STATIC);...Tcl
9970: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
9980: 74 65 72 70 2c 0a 09 09 20 20 20 20 20 20 20 20 terp,...
9990: 20 20 20 20 20 20 20 20 20 22 75 6e 61 62 6c 65 "unable
99a0: 20 74 6f 20 73 65 74 20 70 75 62 6c 69 63 20 6b to set public k
99b0: 65 79 3a 20 22 2c 0a 09 09 20 20 20 20 20 20 20 ey: ",...
99c0: 20 20 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e REASON
99d0: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
99e0: 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 L);...SSL_CTX_fr
99f0: 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 ee(ctx);...retur
9a00: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
9a10: 09 20 20 20 20 7d 0a 09 7d 0a 09 2f 2a 20 4e 6f . }..}../* No
9a20: 77 20 77 65 20 6b 6e 6f 77 20 74 68 61 74 20 61 w we know that a
9a30: 20 6b 65 79 20 61 6e 64 20 63 65 72 74 20 68 61 key and cert ha
9a40: 76 65 20 62 65 65 6e 20 73 65 74 20 61 67 61 69 ve been set agai
9a50: 6e 73 74 0a 09 20 2a 20 74 68 65 20 53 53 4c 20 nst.. * the SSL
9a60: 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 69 66 20 28 context */..if (
9a70: 21 53 53 4c 5f 43 54 58 5f 63 68 65 63 6b 5f 70 !SSL_CTX_check_p
9a80: 72 69 76 61 74 65 5f 6b 65 79 28 63 74 78 29 29 rivate_key(ctx))
9a90: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 {.. Tcl_Appe
9aa0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
9ab0: 0a 09 09 09 20 20 20 20 20 22 70 72 69 76 61 74 .... "privat
9ac0: 65 20 6b 65 79 20 64 6f 65 73 20 6e 6f 74 20 6d e key does not m
9ad0: 61 74 63 68 20 74 68 65 20 63 65 72 74 69 66 69 atch the certifi
9ae0: 63 61 74 65 20 70 75 62 6c 69 63 20 6b 65 79 22 cate public key"
9af0: 2c 0a 09 09 09 20 20 20 20 20 28 63 68 61 72 20 ,.... (char
9b00: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 *) NULL);.. S
9b10: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
9b20: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 ;.. return (S
9b30: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 7d 0a 20 SL_CTX *)0;..}.
9b40: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 65 74 }.. /* Set
9b50: 20 76 65 72 69 66 69 63 61 74 69 6f 6e 20 43 41 verification CA
9b60: 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 44 53 74 s */. Tcl_DSt
9b70: 72 69 6e 67 49 6e 69 74 28 26 64 73 29 3b 0a 20 ringInit(&ds);.
9b80: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e Tcl_DStringIn
9b90: 69 74 28 26 64 73 31 29 3b 0a 20 20 20 20 69 66 it(&ds1);. if
9ba0: 20 28 21 53 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f (!SSL_CTX_load_
9bb0: 76 65 72 69 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 verify_locations
9bc0: 28 63 74 78 2c 20 46 32 4e 28 43 41 66 69 6c 65 (ctx, F2N(CAfile
9bd0: 2c 20 26 64 73 29 2c 20 46 32 4e 28 43 41 64 69 , &ds), F2N(CAdi
9be0: 72 2c 20 26 64 73 31 29 29 20 7c 7c 0a 09 21 53 r, &ds1)) ||..!S
9bf0: 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 61 75 SL_CTX_set_defau
9c00: 6c 74 5f 76 65 72 69 66 79 5f 70 61 74 68 73 28 lt_verify_paths(
9c10: 63 74 78 29 29 20 7b 0a 23 69 66 20 30 0a 09 54 ctx)) {.#if 0..T
9c20: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
9c30: 64 73 29 3b 0a 09 54 63 6c 5f 44 53 74 72 69 6e ds);..Tcl_DStrin
9c40: 67 46 72 65 65 28 26 64 73 31 29 3b 0a 09 2f 2a gFree(&ds1);../*
9c50: 20 44 6f 6e 27 74 20 63 75 72 72 65 6e 74 6c 79 Don't currently
9c60: 20 63 61 72 65 20 69 66 20 74 68 69 73 20 66 61 care if this fa
9c70: 69 6c 73 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 ils */..Tcl_Appe
9c80: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
9c90: 20 22 53 53 4c 20 64 65 66 61 75 6c 74 20 76 65 "SSL default ve
9ca0: 72 69 66 79 20 70 61 74 68 73 3a 20 22 2c 0a 09 rify paths: ",..
9cb0: 09 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 .REASON(), (char
9cc0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f *) NULL);..SSL_
9cd0: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
9ce0: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
9cf0: 2a 29 30 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 *)0;.#endif.
9d00: 7d 0a 0a 20 20 20 20 2f 2a 20 68 74 74 70 73 3a }.. /* https:
9d10: 2f 2f 73 6f 75 72 63 65 66 6f 72 67 65 2e 6e 65 //sourceforge.ne
9d20: 74 2f 70 2f 74 6c 73 2f 62 75 67 73 2f 35 37 2f t/p/tls/bugs/57/
9d30: 20 2a 2f 0a 20 20 20 20 2f 2a 20 58 58 58 3a 54 */. /* XXX:T
9d40: 4f 44 4f 3a 20 4c 65 74 20 74 68 65 20 75 73 65 ODO: Let the use
9d50: 72 20 73 75 70 70 6c 79 20 76 61 6c 75 65 73 20 r supply values
9d60: 68 65 72 65 20 69 6e 73 74 65 61 64 20 6f 66 20 here instead of
9d70: 73 6f 6d 65 74 68 69 6e 67 20 74 68 61 74 20 65 something that e
9d80: 78 69 73 74 73 20 6f 6e 20 74 68 65 20 66 69 6c xists on the fil
9d90: 65 73 79 73 74 65 6d 20 2a 2f 0a 20 20 20 20 69 esystem */. i
9da0: 66 20 28 20 43 41 66 69 6c 65 20 21 3d 20 4e 55 f ( CAfile != NU
9db0: 4c 4c 20 29 20 7b 0a 20 20 20 20 20 20 20 20 53 LL ) {. S
9dc0: 54 41 43 4b 5f 4f 46 28 58 35 30 39 5f 4e 41 4d TACK_OF(X509_NAM
9dd0: 45 29 20 2a 63 65 72 74 4e 61 6d 65 73 20 3d 20 E) *certNames =
9de0: 53 53 4c 5f 6c 6f 61 64 5f 63 6c 69 65 6e 74 5f SSL_load_client_
9df0: 43 41 5f 66 69 6c 65 28 20 46 32 4e 28 43 41 66 CA_file( F2N(CAf
9e00: 69 6c 65 2c 20 26 64 73 29 20 29 3b 0a 09 69 66 ile, &ds) );..if
9e10: 20 28 20 63 65 72 74 4e 61 6d 65 73 20 21 3d 20 ( certNames !=
9e20: 4e 55 4c 4c 20 29 20 7b 20 0a 09 20 20 20 20 53 NULL ) { .. S
9e30: 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 6e SL_CTX_set_clien
9e40: 74 5f 43 41 5f 6c 69 73 74 28 63 74 78 2c 20 63 t_CA_list(ctx, c
9e50: 65 72 74 4e 61 6d 65 73 20 29 3b 0a 09 7d 0a 20 ertNames );..}.
9e60: 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 44 53 }.. Tcl_DS
9e70: 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a tringFree(&ds);.
9e80: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 Tcl_DStringF
9e90: 72 65 65 28 26 64 73 31 29 3b 0a 20 20 20 20 72 ree(&ds1);. r
9ea0: 65 74 75 72 6e 20 63 74 78 3b 0a 7d 0a 0c 0a 2f eturn ctx;.}.../
9eb0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
9ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ef0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 53 74 -------. *. * St
9f00: 61 74 75 73 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 atusObjCmd -- re
9f10: 74 75 72 6e 20 63 65 72 74 69 66 69 63 61 74 65 turn certificate
9f20: 20 66 6f 72 20 63 6f 6e 6e 65 63 74 65 64 20 70 for connected p
9f30: 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c eer.. *. * Resul
9f40: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
9f50: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
9f60: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
9f70: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
9f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9fc0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
9fd0: 6e 74 0a 53 74 61 74 75 73 4f 62 6a 43 6d 64 28 nt.StatusObjCmd(
9fe0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
9ff0: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
a000: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
a010: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
a020: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
a030: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
a040: 72 3b 0a 20 20 20 20 58 35 30 39 20 2a 70 65 65 r;. X509 *pee
a050: 72 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a r;. Tcl_Obj *
a060: 6f 62 6a 50 74 72 3b 0a 20 20 20 20 54 63 6c 5f objPtr;. Tcl_
a070: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 Channel chan;.
a080: 20 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 4e char *channelN
a090: 61 6d 65 2c 20 2a 63 69 70 68 65 72 73 3b 0a 20 ame, *ciphers;.
a0a0: 20 20 20 69 6e 74 20 6d 6f 64 65 3b 0a 23 69 66 int mode;.#if
a0b0: 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ndef OPENSSL_NO_
a0c0: 54 4c 53 45 58 54 0a 20 20 20 20 63 6f 6e 73 74 TLSEXT. const
a0d0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
a0e0: 70 72 6f 74 6f 3b 0a 20 20 20 20 75 6e 73 69 67 proto;. unsig
a0f0: 6e 65 64 20 69 6e 74 20 6c 65 6e 3b 0a 23 65 6e ned int len;.#en
a100: 64 69 66 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 dif.. dprintf
a110: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
a120: 20 73 77 69 74 63 68 20 28 6f 62 6a 63 29 20 7b switch (objc) {
a130: 0a 09 63 61 73 65 20 32 3a 0a 09 20 20 20 20 63 ..case 2:.. c
a140: 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c hannelName = Tcl
a150: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
a160: 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 j(objv[1], NULL)
a170: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
a180: 63 61 73 65 20 33 3a 0a 09 20 20 20 20 69 66 20 case 3:.. if
a190: 28 21 73 74 72 63 6d 70 20 28 54 63 6c 5f 47 65 (!strcmp (Tcl_Ge
a1a0: 74 53 74 72 69 6e 67 20 28 6f 62 6a 76 5b 31 5d tString (objv[1]
a1b0: 29 2c 20 22 2d 6c 6f 63 61 6c 22 29 29 20 7b 0a ), "-local")) {.
a1c0: 09 09 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 ..channelName =
a1d0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
a1e0: 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 4e 55 mObj(objv[2], NU
a1f0: 4c 4c 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 LL);...break;..
a200: 20 20 20 7d 0a 09 20 20 20 20 2f 2a 20 65 6c 73 }.. /* els
a210: 65 20 66 61 6c 6c 2d 74 68 72 6f 75 67 68 20 2e e fall-through .
a220: 2e 2e 20 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 .. */.#if define
a230: 64 28 5f 5f 47 4e 55 43 5f 5f 29 0a 09 20 20 20 d(__GNUC__)..
a240: 20 5f 5f 61 74 74 72 69 62 75 74 65 5f 5f 28 28 __attribute__((
a250: 66 61 6c 6c 74 68 72 6f 75 67 68 29 29 3b 0a 23 fallthrough));.#
a260: 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a endif..default:.
a270: 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
a280: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
a290: 20 6f 62 6a 76 2c 20 22 3f 2d 6c 6f 63 61 6c 3f objv, "?-local?
a2a0: 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 20 20 20 channel");..
a2b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
a2c0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 R;. }.. ch
a2d0: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
a2e0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e nel(interp, chan
a2f0: 6e 65 6c 4e 61 6d 65 2c 20 26 6d 6f 64 65 29 3b nelName, &mode);
a300: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d . if (chan ==
a310: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
a320: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
a330: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
a340: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 /*. * Ma
a350: 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 ke sure to opera
a360: 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 te on the topmos
a370: 74 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a t channel. *
a380: 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c /. chan = Tcl
a390: 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 _GetTopChannel(c
a3a0: 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 54 63 han);. if (Tc
a3b0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
a3c0: 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 (chan) != Tls_Ch
a3d0: 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 annelType()) {..
a3e0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
a3f0: 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 (interp, "bad ch
a400: 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 annel \"", Tcl_G
a410: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 etChannelName(ch
a420: 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 20 an),..."\": not
a430: 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 a TLS channel",
a440: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
a450: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
a460: 20 20 20 20 73 74 61 74 65 50 74 72 20 3d 20 28 statePtr = (
a470: 53 74 61 74 65 20 2a 29 20 54 63 6c 5f 47 65 74 State *) Tcl_Get
a480: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 ChannelInstanceD
a490: 61 74 61 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 ata(chan);. i
a4a0: 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a f (objc == 2) {.
a4b0: 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 65 74 5f .peer = SSL_get_
a4c0: 70 65 65 72 5f 63 65 72 74 69 66 69 63 61 74 65 peer_certificate
a4d0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
a4e0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 70 . } else {..p
a4f0: 65 65 72 20 3d 20 53 53 4c 5f 67 65 74 5f 63 65 eer = SSL_get_ce
a500: 72 74 69 66 69 63 61 74 65 28 73 74 61 74 65 50 rtificate(stateP
a510: 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 0a tr->ssl);. }.
a520: 20 20 20 20 69 66 20 28 70 65 65 72 29 20 7b 0a if (peer) {.
a530: 09 6f 62 6a 50 74 72 20 3d 20 54 6c 73 5f 4e 65 .objPtr = Tls_Ne
a540: 77 58 35 30 39 4f 62 6a 28 69 6e 74 65 72 70 2c wX509Obj(interp,
a550: 20 70 65 65 72 29 3b 0a 09 69 66 20 28 6f 62 6a peer);..if (obj
a560: 63 20 3d 3d 20 32 29 20 7b 20 58 35 30 39 5f 66 c == 2) { X509_f
a570: 72 65 65 28 70 65 65 72 29 3b 20 7d 0a 20 20 20 ree(peer); }.
a580: 20 7d 20 65 6c 73 65 20 7b 0a 09 6f 62 6a 50 74 } else {..objPt
a590: 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f r = Tcl_NewListO
a5a0: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 bj(0, NULL);.
a5b0: 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 }.. Tcl_List
a5c0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
a5d0: 20 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 (interp, objPtr
a5e0: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 ,.. Tcl_NewSt
a5f0: 72 69 6e 67 4f 62 6a 20 28 22 73 62 69 74 73 22 ringObj ("sbits"
a600: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f , -1));. Tcl_
a610: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
a620: 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f 62 ment (interp, ob
a630: 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e jPtr,.. Tcl_N
a640: 65 77 49 6e 74 4f 62 6a 20 28 53 53 4c 5f 67 65 ewIntObj (SSL_ge
a650: 74 5f 63 69 70 68 65 72 5f 62 69 74 73 20 28 73 t_cipher_bits (s
a660: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 4e 55 tatePtr->ssl, NU
a670: 4c 4c 29 29 29 3b 0a 0a 20 20 20 20 63 69 70 68 LL)));.. ciph
a680: 65 72 73 20 3d 20 28 63 68 61 72 2a 29 53 53 4c ers = (char*)SSL
a690: 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 _get_cipher(stat
a6a0: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 ePtr->ssl);.
a6b0: 69 66 20 28 28 63 69 70 68 65 72 73 20 21 3d 20 if ((ciphers !=
a6c0: 4e 55 4c 4c 29 20 26 26 20 28 73 74 72 63 6d 70 NULL) && (strcmp
a6d0: 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f 4e 45 (ciphers, "(NONE
a6e0: 29 22 29 20 21 3d 20 30 29 29 20 7b 0a 09 54 63 )") != 0)) {..Tc
a6f0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
a700: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f lement(interp, o
a710: 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 bjPtr,...Tcl_New
a720: 53 74 72 69 6e 67 4f 62 6a 28 22 63 69 70 68 65 StringObj("ciphe
a730: 72 22 2c 20 2d 31 29 29 3b 0a 09 54 63 6c 5f 4c r", -1));..Tcl_L
a740: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
a750: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ent(interp, objP
a760: 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 tr,...Tcl_NewStr
a770: 69 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 63 ingObj(SSL_get_c
a780: 69 70 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e ipher(statePtr->
a790: 73 73 6c 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 ssl), -1));.
a7a0: 7d 0a 0a 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 }..#ifndef OPENS
a7b0: 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 SL_NO_TLSEXT.
a7c0: 20 2f 2a 20 52 65 70 6f 72 74 20 74 68 65 20 73 /* Report the s
a7d0: 65 6c 65 63 74 65 64 20 70 72 6f 74 6f 63 6f 6c elected protocol
a7e0: 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f 66 20 as a result of
a7f0: 74 68 65 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 the negotiation
a800: 2a 2f 0a 20 20 20 20 53 53 4c 5f 67 65 74 30 5f */. SSL_get0_
a810: 61 6c 70 6e 5f 73 65 6c 65 63 74 65 64 28 73 74 alpn_selected(st
a820: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 26 70 72 atePtr->ssl, &pr
a830: 6f 74 6f 2c 20 26 6c 65 6e 29 3b 0a 20 20 20 20 oto, &len);.
a840: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
a850: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
a860: 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 objPtr, Tcl_New
a870: 53 74 72 69 6e 67 4f 62 6a 28 22 61 6c 70 6e 22 StringObj("alpn"
a880: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f , -1));. Tcl_
a890: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
a8a0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a ment(interp, obj
a8b0: 50 74 72 2c 0a 20 20 20 20 20 20 54 63 6c 5f 4e Ptr,. Tcl_N
a8c0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 ewStringObj((cha
a8d0: 72 20 2a 29 70 72 6f 74 6f 2c 20 28 69 6e 74 29 r *)proto, (int)
a8e0: 6c 65 6e 29 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 len));.#endif..
a8f0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
a900: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
a910: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 54 63 6c rp, objPtr,..Tcl
a920: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 76 _NewStringObj("v
a930: 65 72 73 69 6f 6e 22 2c 20 2d 31 29 29 3b 0a 20 ersion", -1));.
a940: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
a950: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
a960: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 54 63 6c rp, objPtr,..Tcl
a970: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 53 53 _NewStringObj(SS
a980: 4c 5f 67 65 74 5f 76 65 72 73 69 6f 6e 28 73 74 L_get_version(st
a990: 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c 20 2d 31 atePtr->ssl), -1
a9a0: 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 ));.. Tcl_Set
a9b0: 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 72 ObjResult( inter
a9c0: 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 p, objPtr);.
a9d0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 return TCL_OK;.
a9e0: 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d .clientData =
a9f0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c clientData;.}..
aa00: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
aa10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
aa50: 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d VersionObjCmd --
aa60: 20 72 65 74 75 72 6e 20 76 65 72 73 69 6f 6e 20 return version
aa70: 73 74 72 69 6e 67 20 66 72 6f 6d 20 4f 70 65 6e string from Open
aa80: 53 53 4c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c SSL.. *. * Resul
aa90: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
aaa0: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
aab0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
aac0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
aad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aaf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab10: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
ab20: 6e 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 nt.VersionObjCmd
ab30: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
ab40: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
ab50: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
ab60: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
ab70: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 onst objv[]) {.
ab80: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 Tcl_Obj *objP
ab90: 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 tr;.. dprintf
aba0: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
abb0: 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 objPtr = Tcl_Ne
abc0: 77 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 wStringObj(OPENS
abd0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c SL_VERSION_TEXT,
abe0: 20 2d 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 -1);.. Tcl_S
abf0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
ac00: 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 rp, objPtr);.
ac10: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
ac20: 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20 .clientData
ac30: 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 = clientData;.
ac40: 20 20 09 6f 62 6a 63 20 3d 20 6f 62 6a 63 3b 0a .objc = objc;.
ac50: 20 20 20 20 09 6f 62 6a 76 20 3d 20 6f 62 6a 76 .objv = objv
ac60: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
ac70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
acb0: 2a 0a 20 2a 20 4d 69 73 63 4f 62 6a 43 6d 64 20 *. * MiscObjCmd
acc0: 2d 2d 20 6d 69 73 63 20 63 6f 6d 6d 61 6e 64 73 -- misc commands
acd0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
ace0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
acf0: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
ad00: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
ad10: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
ad20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ad30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ad40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ad50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
ad60: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 4d */.static int.M
ad70: 69 73 63 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 iscObjCmd(Client
ad80: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
ad90: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
ada0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
adb0: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
adc0: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 73 74 61 74 jv[]) {. stat
add0: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 ic const char *c
ade0: 6f 6d 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b 20 22 ommands [] = { "
adf0: 72 65 71 22 2c 20 22 73 74 72 72 65 71 22 2c 20 req", "strreq",
ae00: 4e 55 4c 4c 20 7d 3b 0a 20 20 20 20 65 6e 75 6d NULL };. enum
ae10: 20 63 6f 6d 6d 61 6e 64 20 7b 20 43 5f 52 45 51 command { C_REQ
ae20: 2c 20 43 5f 53 54 52 52 45 51 2c 20 43 5f 44 55 , C_STRREQ, C_DU
ae30: 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 6e 74 20 63 MMY };. int c
ae40: 6d 64 2c 20 69 73 53 74 72 3b 0a 20 20 20 20 63 md, isStr;. c
ae50: 68 61 72 20 62 75 66 66 65 72 5b 31 36 33 38 34 har buffer[16384
ae60: 5d 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 ];.. dprintf(
ae70: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
ae80: 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a if (objc < 2) {.
ae90: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
aea0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
aeb0: 76 2c 20 22 73 75 62 63 6f 6d 6d 61 6e 64 20 3f v, "subcommand ?
aec0: 61 72 67 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e args?");..return
aed0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
aee0: 7d 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 }. if (Tcl_Ge
aef0: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e tIndexFromObj(in
af00: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 63 terp, objv[1], c
af10: 6f 6d 6d 61 6e 64 73 2c 20 22 63 6f 6d 6d 61 6e ommands, "comman
af20: 64 22 2c 20 30 2c 26 63 6d 64 29 20 21 3d 20 54 d", 0,&cmd) != T
af30: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
af40: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
af50: 7d 0a 0a 20 20 20 20 69 73 53 74 72 20 3d 20 28 }.. isStr = (
af60: 63 6d 64 20 3d 3d 20 43 5f 53 54 52 52 45 51 29 cmd == C_STRREQ)
af70: 3b 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 65 ;. switch ((e
af80: 6e 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 63 6d 64 num command) cmd
af90: 29 20 7b 0a 09 63 61 73 65 20 43 5f 52 45 51 3a ) {..case C_REQ:
afa0: 0a 09 63 61 73 65 20 43 5f 53 54 52 52 45 51 3a ..case C_STRREQ:
afb0: 20 7b 0a 09 20 20 20 20 45 56 50 5f 50 4b 45 59 {.. EVP_PKEY
afc0: 20 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a 09 20 20 *pkey=NULL;..
afd0: 20 20 58 35 30 39 20 2a 63 65 72 74 3d 4e 55 4c X509 *cert=NUL
afe0: 4c 3b 0a 09 20 20 20 20 58 35 30 39 5f 4e 41 4d L;.. X509_NAM
aff0: 45 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b 0a 09 20 E *name=NULL;..
b000: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 73 Tcl_Obj **lis
b010: 74 76 3b 0a 09 20 20 20 20 69 6e 74 20 6c 69 73 tv;.. int lis
b020: 74 63 2c 69 3b 0a 0a 09 20 20 20 20 42 49 4f 20 tc,i;... BIO
b030: 2a 6f 75 74 3d 4e 55 4c 4c 3b 0a 0a 09 20 20 20 *out=NULL;...
b040: 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 2c 2a 6b char *k_C="",*k
b050: 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 22 2c 2a _ST="",*k_L="",*
b060: 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d 22 22 2c k_O="",*k_OU="",
b070: 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 6d 61 69 *k_CN="",*k_Emai
b080: 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 61 72 20 l="";.. char
b090: 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f 75 74 2c *keyout,*pemout,
b0a0: 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e 74 20 6b *str;.. int k
b0b0: 65 79 73 69 7a 65 2c 73 65 72 69 61 6c 3d 30 2c eysize,serial=0,
b0c0: 64 61 79 73 3d 33 36 35 3b 0a 0a 23 69 66 20 4f days=365;..#if O
b0d0: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
b0e0: 55 4d 42 45 52 20 3c 3d 20 30 78 31 30 31 30 30 UMBER <= 0x10100
b0f0: 30 30 30 4c 0a 09 20 20 20 20 52 53 41 20 2a 72 000L.. RSA *r
b100: 73 61 20 3d 20 4e 55 4c 4c 3b 0a 23 65 6c 69 66 sa = NULL;.#elif
b110: 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e OPENSSL_VERSION
b120: 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 _NUMBER < 0x3000
b130: 30 30 30 30 4c 0a 09 20 20 20 20 42 49 47 4e 55 0000L.. BIGNU
b140: 4d 20 2a 62 6e 65 20 3d 20 4e 55 4c 4c 3b 0a 09 M *bne = NULL;..
b150: 20 20 20 20 52 53 41 20 2a 72 73 61 20 3d 20 4e RSA *rsa = N
b160: 55 4c 4c 3b 0a 23 65 6c 73 65 0a 09 20 20 20 20 ULL;.#else..
b170: 45 56 50 5f 50 4b 45 59 5f 43 54 58 20 2a 63 74 EVP_PKEY_CTX *ct
b180: 78 20 3d 20 4e 55 4c 4c 3b 20 20 20 20 0a 23 65 x = NULL; .#e
b190: 6e 64 69 66 0a 0a 09 20 20 20 20 69 66 20 28 28 ndif... if ((
b1a0: 6f 62 6a 63 3c 35 29 20 7c 7c 20 28 6f 62 6a 63 objc<5) || (objc
b1b0: 3e 36 29 29 20 7b 0a 09 09 54 63 6c 5f 57 72 6f >6)) {...Tcl_Wro
b1c0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
b1d0: 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 6b 65 79 73 , 2, objv, "keys
b1e0: 69 7a 65 20 6b 65 79 66 69 6c 65 20 63 65 72 74 ize keyfile cert
b1f0: 66 69 6c 65 20 3f 69 6e 66 6f 3f 22 29 3b 0a 09 file ?info?");..
b200: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
b210: 52 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 R;.. }...
b220: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
b230: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
b240: 6a 76 5b 32 5d 2c 20 26 6b 65 79 73 69 7a 65 29 jv[2], &keysize)
b250: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 != TCL_OK) {...
b260: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
b270: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 6b 65 ;.. }.. ke
b280: 79 6f 75 74 3d 54 63 6c 5f 47 65 74 53 74 72 69 yout=Tcl_GetStri
b290: 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 09 20 20 ng(objv[3]);..
b2a0: 20 20 70 65 6d 6f 75 74 3d 54 63 6c 5f 47 65 74 pemout=Tcl_Get
b2b0: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d 29 3b String(objv[4]);
b2c0: 0a 09 20 20 20 20 69 66 20 28 69 73 53 74 72 29 .. if (isStr)
b2d0: 20 7b 0a 09 09 54 63 6c 5f 53 65 74 56 61 72 28 {...Tcl_SetVar(
b2e0: 69 6e 74 65 72 70 2c 6b 65 79 6f 75 74 2c 22 22 interp,keyout,""
b2f0: 2c 30 29 3b 0a 09 09 54 63 6c 5f 53 65 74 56 61 ,0);...Tcl_SetVa
b300: 72 28 69 6e 74 65 72 70 2c 70 65 6d 6f 75 74 2c r(interp,pemout,
b310: 22 22 2c 30 29 3b 0a 09 20 20 20 20 7d 0a 0a 09 "",0);.. }...
b320: 20 20 20 20 69 66 20 28 6f 62 6a 63 3e 3d 36 29 if (objc>=6)
b330: 20 7b 0a 09 09 69 66 20 28 54 63 6c 5f 4c 69 73 {...if (Tcl_Lis
b340: 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 tObjGetElements(
b350: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c interp, objv[5],
b360: 0a 09 09 09 26 6c 69 73 74 63 2c 20 26 6c 69 73 ....&listc, &lis
b370: 74 76 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b tv) != TCL_OK) {
b380: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
b390: 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 L_ERROR;...}....
b3a0: 69 66 20 28 28 6c 69 73 74 63 25 32 29 20 21 3d if ((listc%2) !=
b3b0: 20 30 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 0) {... Tcl_
b3c0: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
b3d0: 2c 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6c 69 ,"Information li
b3e0: 73 74 20 6d 75 73 74 20 68 61 76 65 20 65 76 65 st must have eve
b3f0: 6e 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 n number of argu
b400: 6d 65 6e 74 73 22 2c 4e 55 4c 4c 29 3b 0a 09 09 ments",NULL);...
b410: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
b420: 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 66 6f 72 20 RROR;...}...for
b430: 28 69 3d 30 3b 20 69 3c 6c 69 73 74 63 3b 20 69 (i=0; i<listc; i
b440: 2b 3d 32 29 20 7b 0a 09 09 20 20 20 20 73 74 72 +=2) {... str
b450: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
b460: 69 73 74 76 5b 69 5d 29 3b 0a 09 09 20 20 20 20 istv[i]);...
b470: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 if (strcmp(str,"
b480: 64 61 79 73 22 29 3d 3d 30 29 20 7b 0a 09 09 09 days")==0) {....
b490: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
b4a0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 omObj(interp,lis
b4b0: 74 76 5b 69 2b 31 5d 2c 26 64 61 79 73 29 21 3d tv[i+1],&days)!=
b4c0: 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 TCL_OK).... r
b4d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
b4e0: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
b4f0: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 (strcmp(str,"se
b500: 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 rial")==0) {....
b510: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
b520: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 omObj(interp,lis
b530: 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 tv[i+1],&serial)
b540: 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 !=TCL_OK)....
b550: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
b560: 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 R;... } else
b570: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 if (strcmp(str,"
b580: 43 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 C")==0) {....k_C
b590: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
b5a0: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 istv[i+1]);...
b5b0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
b5c0: 63 6d 70 28 73 74 72 2c 22 53 54 22 29 3d 3d 30 cmp(str,"ST")==0
b5d0: 29 20 7b 0a 09 09 09 6b 5f 53 54 3d 54 63 6c 5f ) {....k_ST=Tcl_
b5e0: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b GetString(listv[
b5f0: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 i+1]);... } e
b600: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 lse if (strcmp(s
b610: 74 72 2c 22 4c 22 29 3d 3d 30 29 20 7b 0a 09 09 tr,"L")==0) {...
b620: 09 6b 5f 4c 3d 54 63 6c 5f 47 65 74 53 74 72 69 .k_L=Tcl_GetStri
b630: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
b640: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
b650: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f 22 29 (strcmp(str,"O")
b660: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 3d 54 63 ==0) {....k_O=Tc
b670: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
b680: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
b690: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
b6a0: 28 73 74 72 2c 22 4f 55 22 29 3d 3d 30 29 20 7b (str,"OU")==0) {
b6b0: 0a 09 09 09 6b 5f 4f 55 3d 54 63 6c 5f 47 65 74 ....k_OU=Tcl_Get
b6c0: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 String(listv[i+1
b6d0: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 ]);... } else
b6e0: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
b6f0: 22 43 4e 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b "CN")==0) {....k
b700: 5f 43 4e 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e _CN=Tcl_GetStrin
b710: 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 g(listv[i+1]);..
b720: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
b730: 73 74 72 63 6d 70 28 73 74 72 2c 22 45 6d 61 69 strcmp(str,"Emai
b740: 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 45 l")==0) {....k_E
b750: 6d 61 69 6c 3d 54 63 6c 5f 47 65 74 53 74 72 69 mail=Tcl_GetStri
b760: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
b770: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
b780: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 ..Tcl_SetResult(
b790: 69 6e 74 65 72 70 2c 22 55 6e 6b 6e 6f 77 6e 20 interp,"Unknown
b7a0: 70 61 72 61 6d 65 74 65 72 22 2c 4e 55 4c 4c 29 parameter",NULL)
b7b0: 3b 0a 09 09 09 72 65 74 75 72 6e 20 54 43 4c 5f ;....return TCL_
b7c0: 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 0a 09 ERROR;... }..
b7d0: 09 7d 0a 09 20 20 20 20 7d 0a 0a 23 69 66 20 4f .}.. }..#if O
b7e0: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
b7f0: 55 4d 42 45 52 20 3c 3d 20 30 78 31 30 31 30 30 UMBER <= 0x10100
b800: 30 30 30 4c 0a 09 20 20 20 20 70 6b 65 79 20 3d 000L.. pkey =
b810: 20 45 56 50 5f 50 4b 45 59 5f 6e 65 77 28 29 3b EVP_PKEY_new();
b820: 0a 09 20 20 20 20 72 73 61 20 3d 20 52 53 41 5f .. rsa = RSA_
b830: 67 65 6e 65 72 61 74 65 5f 6b 65 79 28 6b 65 79 generate_key(key
b840: 73 69 7a 65 2c 20 30 78 31 30 30 30 31 2c 20 4e size, 0x10001, N
b850: 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 ULL, NULL);..
b860: 20 69 66 20 28 70 6b 65 79 20 3d 3d 20 4e 55 4c if (pkey == NUL
b870: 4c 20 7c 7c 20 72 73 61 20 3d 3d 20 4e 55 4c 4c L || rsa == NULL
b880: 20 7c 7c 20 21 45 56 50 5f 50 4b 45 59 5f 61 73 || !EVP_PKEY_as
b890: 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 20 72 sign_RSA(pkey, r
b8a0: 73 61 29 29 20 7b 0a 09 09 45 56 50 5f 50 4b 45 sa)) {...EVP_PKE
b8b0: 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 Y_free(pkey);...
b8c0: 2f 2a 20 52 53 41 5f 66 72 65 65 28 72 73 61 29 /* RSA_free(rsa)
b8d0: 3b 20 66 72 65 65 64 20 62 79 20 45 56 50 5f 50 ; freed by EVP_P
b8e0: 4b 45 59 5f 66 72 65 65 20 2a 2f 0a 23 65 6c 69 KEY_free */.#eli
b8f0: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
b900: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30 N_NUMBER < 0x300
b910: 30 30 30 30 30 4c 0a 09 20 20 20 20 62 6e 65 20 00000L.. bne
b920: 3d 20 42 4e 5f 6e 65 77 28 29 3b 0a 09 20 20 20 = BN_new();..
b930: 20 72 73 61 20 3d 20 52 53 41 5f 6e 65 77 28 29 rsa = RSA_new()
b940: 3b 0a 09 20 20 20 20 70 6b 65 79 20 3d 20 45 56 ;.. pkey = EV
b950: 50 5f 50 4b 45 59 5f 6e 65 77 28 29 3b 0a 09 20 P_PKEY_new();..
b960: 20 20 20 69 66 20 28 62 6e 65 20 3d 3d 20 4e 55 if (bne == NU
b970: 4c 4c 20 7c 7c 20 72 73 61 20 3d 3d 20 4e 55 4c LL || rsa == NUL
b980: 4c 20 7c 7c 20 70 6b 65 79 20 3d 3d 20 4e 55 4c L || pkey == NUL
b990: 4c 20 7c 7c 20 21 42 4e 5f 73 65 74 5f 77 6f 72 L || !BN_set_wor
b9a0: 64 28 62 6e 65 2c 52 53 41 5f 46 34 29 20 7c 7c d(bne,RSA_F4) ||
b9b0: 20 0a 09 09 21 52 53 41 5f 67 65 6e 65 72 61 74 ...!RSA_generat
b9c0: 65 5f 6b 65 79 5f 65 78 28 72 73 61 2c 20 6b 65 e_key_ex(rsa, ke
b9d0: 79 73 69 7a 65 2c 20 62 6e 65 2c 20 4e 55 4c 4c ysize, bne, NULL
b9e0: 29 20 7c 7c 20 21 45 56 50 5f 50 4b 45 59 5f 61 ) || !EVP_PKEY_a
b9f0: 73 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 20 ssign_RSA(pkey,
ba00: 72 73 61 29 29 20 7b 0a 09 09 45 56 50 5f 50 4b rsa)) {...EVP_PK
ba10: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 EY_free(pkey);..
ba20: 09 2f 2a 20 52 53 41 5f 66 72 65 65 28 72 73 61 ./* RSA_free(rsa
ba30: 29 3b 20 66 72 65 65 64 20 62 79 20 45 56 50 5f ); freed by EVP_
ba40: 50 4b 45 59 5f 66 72 65 65 20 2a 2f 0a 09 09 42 PKEY_free */...B
ba50: 4e 5f 66 72 65 65 28 62 6e 65 29 3b 0a 23 65 6c N_free(bne);.#el
ba60: 73 65 0a 09 20 20 20 20 70 6b 65 79 20 3d 20 45 se.. pkey = E
ba70: 56 50 5f 52 53 41 5f 67 65 6e 28 28 75 6e 73 69 VP_RSA_gen((unsi
ba80: 67 6e 65 64 20 69 6e 74 29 20 6b 65 79 73 69 7a gned int) keysiz
ba90: 65 29 3b 0a 09 20 20 20 20 63 74 78 20 3d 20 45 e);.. ctx = E
baa0: 56 50 5f 50 4b 45 59 5f 43 54 58 5f 6e 65 77 28 VP_PKEY_CTX_new(
bab0: 70 6b 65 79 2c 4e 55 4c 4c 29 3b 0a 09 20 20 20 pkey,NULL);..
bac0: 20 69 66 20 28 70 6b 65 79 20 3d 3d 20 4e 55 4c if (pkey == NUL
bad0: 4c 20 7c 7c 20 63 74 78 20 3d 3d 20 4e 55 4c 4c L || ctx == NULL
bae0: 20 7c 7c 20 21 45 56 50 5f 50 4b 45 59 5f 6b 65 || !EVP_PKEY_ke
baf0: 79 67 65 6e 5f 69 6e 69 74 28 63 74 78 29 20 7c ygen_init(ctx) |
bb00: 7c 20 0a 09 09 21 45 56 50 5f 50 4b 45 59 5f 43 | ...!EVP_PKEY_C
bb10: 54 58 5f 73 65 74 5f 72 73 61 5f 6b 65 79 67 65 TX_set_rsa_keyge
bb20: 6e 5f 62 69 74 73 28 63 74 78 2c 20 6b 65 79 73 n_bits(ctx, keys
bb30: 69 7a 65 29 20 7c 7c 20 21 45 56 50 5f 50 4b 45 ize) || !EVP_PKE
bb40: 59 5f 6b 65 79 67 65 6e 28 63 74 78 2c 20 26 70 Y_keygen(ctx, &p
bb50: 6b 65 79 29 29 20 7b 0a 09 09 45 56 50 5f 50 4b key)) {...EVP_PK
bb60: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 EY_free(pkey);..
bb70: 09 45 56 50 5f 50 4b 45 59 5f 43 54 58 5f 66 72 .EVP_PKEY_CTX_fr
bb80: 65 65 28 63 74 78 29 3b 0a 23 65 6e 64 69 66 0a ee(ctx);.#endif.
bb90: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 ..Tcl_SetResult(
bba0: 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67 65 interp,"Error ge
bbb0: 6e 65 72 61 74 69 6e 67 20 70 72 69 76 61 74 65 nerating private
bbc0: 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 key",NULL);...r
bbd0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
bbe0: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
bbf0: 09 69 66 20 28 69 73 53 74 72 29 20 7b 0a 09 09 .if (isStr) {...
bc00: 20 20 20 20 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 out=BIO_new(
bc10: 42 49 4f 5f 73 5f 6d 65 6d 28 29 29 3b 0a 09 09 BIO_s_mem());...
bc20: 20 20 20 20 50 45 4d 5f 77 72 69 74 65 5f 62 69 PEM_write_bi
bc30: 6f 5f 50 72 69 76 61 74 65 4b 65 79 28 6f 75 74 o_PrivateKey(out
bc40: 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c ,pkey,NULL,NULL,
bc50: 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 0,NULL,NULL);...
bc60: 20 20 20 20 69 3d 42 49 4f 5f 72 65 61 64 28 6f i=BIO_read(o
bc70: 75 74 2c 62 75 66 66 65 72 2c 73 69 7a 65 6f 66 ut,buffer,sizeof
bc80: 28 62 75 66 66 65 72 29 2d 31 29 3b 0a 09 09 20 (buffer)-1);...
bc90: 20 20 20 69 3d 28 69 3c 30 29 20 3f 20 30 20 3a i=(i<0) ? 0 :
bca0: 20 69 3b 0a 09 09 20 20 20 20 62 75 66 66 65 72 i;... buffer
bcb0: 5b 69 5d 3d 27 5c 30 27 3b 0a 09 09 20 20 20 20 [i]='\0';...
bcc0: 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 Tcl_SetVar(inter
bcd0: 70 2c 6b 65 79 6f 75 74 2c 62 75 66 66 65 72 2c p,keyout,buffer,
bce0: 30 29 3b 0a 09 09 20 20 20 20 42 49 4f 5f 66 6c 0);... BIO_fl
bcf0: 75 73 68 28 6f 75 74 29 3b 0a 09 09 20 20 20 20 ush(out);...
bd00: 42 49 4f 5f 66 72 65 65 28 6f 75 74 29 3b 0a 09 BIO_free(out);..
bd10: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 .} else {...
bd20: 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f out=BIO_new(BIO_
bd30: 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 20 20 20 s_file());...
bd40: 20 42 49 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e BIO_write_filen
bd50: 61 6d 65 28 6f 75 74 2c 6b 65 79 6f 75 74 29 3b ame(out,keyout);
bd60: 0a 09 09 20 20 20 20 50 45 4d 5f 77 72 69 74 65 ... PEM_write
bd70: 5f 62 69 6f 5f 50 72 69 76 61 74 65 4b 65 79 28 _bio_PrivateKey(
bd80: 6f 75 74 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 out,pkey,NULL,NU
bd90: 4c 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b LL,0,NULL,NULL);
bda0: 0a 09 09 20 20 20 20 2f 2a 20 50 45 4d 5f 77 72 ... /* PEM_wr
bdb0: 69 74 65 5f 62 69 6f 5f 52 53 41 50 72 69 76 61 ite_bio_RSAPriva
bdc0: 74 65 4b 65 79 28 6f 75 74 2c 20 72 73 61 2c 20 teKey(out, rsa,
bdd0: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 30 2c 20 4e NULL, NULL, 0, N
bde0: 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 20 2a 2f 0a 09 ULL, NULL); */..
bdf0: 09 20 20 20 20 42 49 4f 5f 66 72 65 65 5f 61 6c . BIO_free_al
be00: 6c 28 6f 75 74 29 3b 0a 09 20 09 7d 0a 0a 09 09 l(out);.. .}....
be10: 69 66 20 28 28 63 65 72 74 3d 58 35 30 39 5f 6e if ((cert=X509_n
be20: 65 77 28 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a 09 ew())==NULL) {..
be30: 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
be40: 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 lt(interp,"Error
be50: 20 67 65 6e 65 72 61 74 69 6e 67 20 63 65 72 74 generating cert
be60: 69 66 69 63 61 74 65 20 72 65 71 75 65 73 74 22 ificate request"
be70: 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 ,NULL);... EV
be80: 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 P_PKEY_free(pkey
be90: 29 3b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 );.#if OPENSSL_V
bea0: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 20 ERSION_NUMBER >
beb0: 30 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 4f 0x10100000L && O
bec0: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
bed0: 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 UMBER < 0x300000
bee0: 30 30 4c 0a 09 09 20 20 20 20 42 4e 5f 66 72 65 00L... BN_fre
bef0: 65 28 62 6e 65 29 3b 0a 23 65 6e 64 69 66 0a 09 e(bne);.#endif..
bf00: 09 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c 5f . return(TCL_
bf10: 45 52 52 4f 52 29 3b 0a 09 09 7d 0a 0a 09 09 58 ERROR);...}....X
bf20: 35 30 39 5f 73 65 74 5f 76 65 72 73 69 6f 6e 28 509_set_version(
bf30: 63 65 72 74 2c 32 29 3b 0a 09 09 41 53 4e 31 5f cert,2);...ASN1_
bf40: 49 4e 54 45 47 45 52 5f 73 65 74 28 58 35 30 39 INTEGER_set(X509
bf50: 5f 67 65 74 5f 73 65 72 69 61 6c 4e 75 6d 62 65 _get_serialNumbe
bf60: 72 28 63 65 72 74 29 2c 73 65 72 69 61 6c 29 3b r(cert),serial);
bf70: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
bf80: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 SION_NUMBER < 0x
bf90: 31 30 31 30 30 30 30 30 4c 0a 09 09 58 35 30 39 10100000L...X509
bfa0: 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 _gmtime_adj(X509
bfb0: 5f 67 65 74 5f 6e 6f 74 42 65 66 6f 72 65 28 63 _get_notBefore(c
bfc0: 65 72 74 29 2c 30 29 3b 0a 09 09 58 35 30 39 5f ert),0);...X509_
bfd0: 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f gmtime_adj(X509_
bfe0: 67 65 74 5f 6e 6f 74 41 66 74 65 72 28 63 65 72 get_notAfter(cer
bff0: 74 29 2c 28 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 t),(long)60*60*2
c000: 34 2a 64 61 79 73 29 3b 0a 23 65 6c 73 65 0a 09 4*days);.#else..
c010: 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a .X509_gmtime_adj
c020: 28 58 35 30 39 5f 67 65 74 6d 5f 6e 6f 74 42 65 (X509_getm_notBe
c030: 66 6f 72 65 28 63 65 72 74 29 2c 30 29 3b 0a 09 fore(cert),0);..
c040: 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a .X509_gmtime_adj
c050: 28 58 35 30 39 5f 67 65 74 6d 5f 6e 6f 74 41 66 (X509_getm_notAf
c060: 74 65 72 28 63 65 72 74 29 2c 28 6c 6f 6e 67 29 ter(cert),(long)
c070: 36 30 2a 36 30 2a 32 34 2a 64 61 79 73 29 3b 0a 60*60*24*days);.
c080: 23 65 6e 64 69 66 0a 09 09 58 35 30 39 5f 73 65 #endif...X509_se
c090: 74 5f 70 75 62 6b 65 79 28 63 65 72 74 2c 70 6b t_pubkey(cert,pk
c0a0: 65 79 29 3b 0a 09 09 0a 09 09 6e 61 6d 65 3d 58 ey);......name=X
c0b0: 35 30 39 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 509_get_subject_
c0c0: 6e 61 6d 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 name(cert);....X
c0d0: 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 509_NAME_add_ent
c0e0: 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 ry_by_txt(name,"
c0f0: 43 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 C", MBSTRING_ASC
c100: 2c 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 , (const unsigne
c110: 64 20 63 68 61 72 20 2a 29 20 6b 5f 43 2c 20 2d d char *) k_C, -
c120: 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 1, -1, 0);...X50
c130: 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 9_NAME_add_entry
c140: 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 53 54 _by_txt(name,"ST
c150: 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c ", MBSTRING_ASC,
c160: 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 (const unsigned
c170: 20 63 68 61 72 20 2a 29 20 6b 5f 53 54 2c 20 2d char *) k_ST, -
c180: 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 1, -1, 0);...X50
c190: 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 9_NAME_add_entry
c1a0: 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4c 22 _by_txt(name,"L"
c1b0: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 , MBSTRING_ASC,
c1c0: 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 (const unsigned
c1d0: 63 68 61 72 20 2a 29 20 6b 5f 4c 2c 20 2d 31 2c char *) k_L, -1,
c1e0: 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f -1, 0);...X509_
c1f0: 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 NAME_add_entry_b
c200: 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4f 22 2c 20 y_txt(name,"O",
c210: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 63 MBSTRING_ASC, (c
c220: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 onst unsigned ch
c230: 61 72 20 2a 29 20 6b 5f 4f 2c 20 2d 31 2c 20 2d ar *) k_O, -1, -
c240: 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 1, 0);...X509_NA
c250: 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f ME_add_entry_by_
c260: 74 78 74 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d txt(name,"OU", M
c270: 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 63 6f BSTRING_ASC, (co
c280: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
c290: 72 20 2a 29 20 6b 5f 4f 55 2c 20 2d 31 2c 20 2d r *) k_OU, -1, -
c2a0: 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 1, 0);...X509_NA
c2b0: 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f ME_add_entry_by_
c2c0: 74 78 74 28 6e 61 6d 65 2c 22 43 4e 22 2c 20 4d txt(name,"CN", M
c2d0: 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 63 6f BSTRING_ASC, (co
c2e0: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 nst unsigned cha
c2f0: 72 20 2a 29 20 6b 5f 43 4e 2c 20 2d 31 2c 20 2d r *) k_CN, -1, -
c300: 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 1, 0);...X509_NA
c310: 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f ME_add_entry_by_
c320: 74 78 74 28 6e 61 6d 65 2c 22 45 6d 61 69 6c 22 txt(name,"Email"
c330: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 , MBSTRING_ASC,
c340: 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 (const unsigned
c350: 63 68 61 72 20 2a 29 20 6b 5f 45 6d 61 69 6c 2c char *) k_Email,
c360: 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 0a 09 09 -1, -1, 0);....
c370: 58 35 30 39 5f 73 65 74 5f 73 75 62 6a 65 63 74 X509_set_subject
c380: 5f 6e 61 6d 65 28 63 65 72 74 2c 6e 61 6d 65 29 _name(cert,name)
c390: 3b 0a 0a 09 09 69 66 20 28 21 58 35 30 39 5f 73 ;....if (!X509_s
c3a0: 69 67 6e 28 63 65 72 74 2c 70 6b 65 79 2c 45 56 ign(cert,pkey,EV
c3b0: 50 5f 73 68 61 32 35 36 28 29 29 29 20 7b 0a 09 P_sha256())) {..
c3c0: 09 20 20 20 20 58 35 30 39 5f 66 72 65 65 28 63 . X509_free(c
c3d0: 65 72 74 29 3b 0a 09 09 20 20 20 20 45 56 50 5f ert);... EVP_
c3e0: 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b PKEY_free(pkey);
c3f0: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
c400: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 20 30 78 SION_NUMBER > 0x
c410: 31 30 31 30 30 30 30 30 4c 20 26 26 20 4f 50 45 10100000L && OPE
c420: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
c430: 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 BER < 0x30000000
c440: 4c 0a 09 09 20 20 20 20 42 4e 5f 66 72 65 65 28 L... BN_free(
c450: 62 6e 65 29 3b 0a 23 65 6e 64 69 66 0a 09 09 20 bne);.#endif...
c460: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
c470: 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 73 (interp,"Error s
c480: 69 67 6e 69 6e 67 20 63 65 72 74 69 66 69 63 61 igning certifica
c490: 74 65 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 te",NULL);...
c4a0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
c4b0: 52 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 69 73 R;...}....if (is
c4c0: 53 74 72 29 20 7b 0a 09 09 20 20 20 20 6f 75 74 Str) {... out
c4d0: 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 6d =BIO_new(BIO_s_m
c4e0: 65 6d 28 29 29 3b 0a 09 09 20 20 20 20 50 45 4d em());... PEM
c4f0: 5f 77 72 69 74 65 5f 62 69 6f 5f 58 35 30 39 28 _write_bio_X509(
c500: 6f 75 74 2c 63 65 72 74 29 3b 0a 09 09 20 20 20 out,cert);...
c510: 20 69 3d 42 49 4f 5f 72 65 61 64 28 6f 75 74 2c i=BIO_read(out,
c520: 62 75 66 66 65 72 2c 73 69 7a 65 6f 66 28 62 75 buffer,sizeof(bu
c530: 66 66 65 72 29 2d 31 29 3b 0a 09 09 20 20 20 20 ffer)-1);...
c540: 69 3d 28 69 3c 30 29 20 3f 20 30 20 3a 20 69 3b i=(i<0) ? 0 : i;
c550: 0a 09 09 20 20 20 20 62 75 66 66 65 72 5b 69 5d ... buffer[i]
c560: 3d 27 5c 30 27 3b 0a 09 09 20 20 20 20 54 63 6c ='\0';... Tcl
c570: 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 70 _SetVar(interp,p
c580: 65 6d 6f 75 74 2c 62 75 66 66 65 72 2c 30 29 3b emout,buffer,0);
c590: 0a 09 09 20 20 20 20 42 49 4f 5f 66 6c 75 73 68 ... BIO_flush
c5a0: 28 6f 75 74 29 3b 0a 09 09 20 20 20 20 42 49 4f (out);... BIO
c5b0: 5f 66 72 65 65 28 6f 75 74 29 3b 0a 09 09 7d 20 _free(out);...}
c5c0: 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 6f 75 74 else {... out
c5d0: 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 66 =BIO_new(BIO_s_f
c5e0: 69 6c 65 28 29 29 3b 0a 09 09 20 20 20 20 42 49 ile());... BI
c5f0: 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 O_write_filename
c600: 28 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 09 09 (out,pemout);...
c610: 20 20 20 20 50 45 4d 5f 77 72 69 74 65 5f 62 69 PEM_write_bi
c620: 6f 5f 58 35 30 39 28 6f 75 74 2c 63 65 72 74 29 o_X509(out,cert)
c630: 3b 0a 09 09 20 20 20 20 42 49 4f 5f 66 72 65 65 ;... BIO_free
c640: 5f 61 6c 6c 28 6f 75 74 29 3b 0a 09 09 7d 0a 0a _all(out);...}..
c650: 09 09 58 35 30 39 5f 66 72 65 65 28 63 65 72 74 ..X509_free(cert
c660: 29 3b 0a 09 09 45 56 50 5f 50 4b 45 59 5f 66 72 );...EVP_PKEY_fr
c670: 65 65 28 70 6b 65 79 29 3b 0a 23 69 66 20 4f 50 ee(pkey);.#if OP
c680: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 ENSSL_VERSION_NU
c690: 4d 42 45 52 20 3e 20 30 78 31 30 31 30 30 30 30 MBER > 0x1010000
c6a0: 30 4c 20 26 26 20 4f 50 45 4e 53 53 4c 5f 56 45 0L && OPENSSL_VE
c6b0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 RSION_NUMBER < 0
c6c0: 78 33 30 30 30 30 30 30 30 4c 0a 09 09 42 4e 5f x30000000L...BN_
c6d0: 66 72 65 65 28 62 6e 65 29 3b 0a 23 65 6e 64 69 free(bne);.#endi
c6e0: 66 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 62 72 65 f.. }..}..bre
c6f0: 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a ak;. default:
c700: 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 ..break;. }.
c710: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
c720: 3b 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 ;. .clientDat
c730: 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a a = clientData;.
c740: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
c750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
c790: 20 2a 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 * Tls_Free --.
c7a0: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
c7b0: 75 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 ure cleans up wh
c7c0: 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 en a SSL socket
c7d0: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a based channel. *
c7e0: 09 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 .is closed and i
c7f0: 74 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 ts reference cou
c800: 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 nt falls below 1
c810: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
c820: 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 *.none. *. * Si
c830: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 de effects:. *.F
c840: 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 rees all the sta
c850: 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d te. *. *--------
c860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
c8a0: 76 6f 69 64 0a 54 6c 73 5f 46 72 65 65 28 20 63 void.Tls_Free( c
c8b0: 68 61 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a har *blockPtr ).
c8c0: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
c8d0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
c8e0: 29 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 )blockPtr;..
c8f0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
c900: 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 );.. Tls_Clea
c910: 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 n(statePtr);.
c920: 20 63 6b 66 72 65 65 28 62 6c 6f 63 6b 50 74 72 ckfree(blockPtr
c930: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d );.}.../*. *----
c940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
c980: 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 61 6e 20 *. * Tls_Clean
c990: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
c9a0: 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 75 ocedure cleans u
c9b0: 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 p when a SSL soc
c9c0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
c9d0: 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 l. *.is closed a
c9e0: 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 65 nd its reference
c9f0: 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c count falls bel
ca00: 6f 77 20 31 2e 20 20 54 68 69 73 20 73 68 6f 75 ow 1. This shou
ca10: 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c 65 64 20 ld. *.be called
ca20: 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 62 79 synchronously by
ca30: 20 74 68 65 20 43 6c 6f 73 65 50 72 6f 63 2c 20 the CloseProc,
ca40: 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a 09 45 76 not in the. *.Ev
ca50: 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 63 61 6c entuallyFree cal
ca60: 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65 73 lback.. *. * Res
ca70: 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ults:. *.none. *
ca80: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
ca90: 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 :. *.Frees all t
caa0: 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d he state. *. *--
cab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
caf0: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 54 6c 73 5f 43 -. */.void Tls_C
cb00: 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 74 61 74 lean(State *stat
cb10: 65 50 74 72 29 20 7b 0a 20 20 20 20 64 70 72 69 ePtr) {. dpri
cb20: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
cb30: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 77 65 /*. * we
cb40: 27 72 65 20 61 73 73 75 6d 69 6e 67 20 68 65 72 're assuming her
cb50: 65 20 74 68 61 74 20 77 65 27 72 65 20 73 69 6e e that we're sin
cb60: 67 6c 65 2d 74 68 72 65 61 64 65 64 0a 20 20 20 gle-threaded.
cb70: 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 */. if (sta
cb80: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
cb90: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
cba0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 NULL) {..Tcl_De
cbb0: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 leteTimerHandler
cbc0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
cbd0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
cbe0: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 mer = NULL;.
cbf0: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }.. if (state
cc00: 50 74 72 2d 3e 62 69 6f 29 20 7b 0a 09 2f 2a 20 Ptr->bio) {../*
cc10: 54 68 69 73 20 77 69 6c 6c 20 63 61 6c 6c 20 53 This will call S
cc20: 53 4c 5f 73 68 75 74 64 6f 77 6e 2e 20 42 75 67 SL_shutdown. Bug
cc30: 20 31 34 31 34 30 34 35 20 2a 2f 0a 09 64 70 72 1414045 */..dpr
cc40: 69 6e 74 66 28 22 42 49 4f 5f 66 72 65 65 5f 61 intf("BIO_free_a
cc50: 6c 6c 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 ll(%p)", statePt
cc60: 72 2d 3e 62 69 6f 29 3b 0a 09 42 49 4f 5f 66 72 r->bio);..BIO_fr
cc70: 65 65 5f 61 6c 6c 28 73 74 61 74 65 50 74 72 2d ee_all(statePtr-
cc80: 3e 62 69 6f 29 3b 0a 09 73 74 61 74 65 50 74 72 >bio);..statePtr
cc90: 2d 3e 62 69 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ->bio = NULL;.
cca0: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 }. if (stat
ccb0: 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 64 70 ePtr->ssl) {..dp
ccc0: 72 69 6e 74 66 28 22 53 53 4c 5f 66 72 65 65 28 rintf("SSL_free(
ccd0: 25 70 29 22 2c 20 73 74 61 74 65 50 74 72 2d 3e %p)", statePtr->
cce0: 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 65 65 28 ssl);..SSL_free(
ccf0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
cd00: 09 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d .statePtr->ssl =
cd10: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL;. }.
cd20: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 if (statePtr->c
cd30: 74 78 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 tx) {..SSL_CTX_f
cd40: 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63 74 ree(statePtr->ct
cd50: 78 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 x);..statePtr->c
cd60: 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d tx = NULL;. }
cd70: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
cd80: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 7b 0a 09 r->callback) {..
cd90: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
cda0: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
cdb0: 61 63 6b 29 3b 0a 09 73 74 61 74 65 50 74 72 2d ack);..statePtr-
cdc0: 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 4e 55 4c 4c >callback = NULL
cdd0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
cde0: 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f statePtr->passwo
cdf0: 72 64 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 rd) {..Tcl_DecrR
ce00: 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 efCount(statePtr
ce10: 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 73 74 ->password);..st
ce20: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
ce30: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a = NULL;. }..
ce40: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 dprintf("Ret
ce50: 75 72 6e 69 6e 67 22 29 3b 0a 7d 0a 0c 0a 2f 2a urning");.}.../*
ce60: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
ce70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ce80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ce90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cea0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
ceb0: 5f 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 _Init --. *. *.T
cec0: 68 69 73 20 69 73 20 61 20 70 61 63 6b 61 67 65 his is a package
ced0: 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 initialization
cee0: 70 72 6f 63 65 64 75 72 65 2c 20 77 68 69 63 68 procedure, which
cef0: 20 69 73 20 63 61 6c 6c 65 64 0a 20 2a 09 62 79 is called. *.by
cf00: 20 54 63 6c 20 77 68 65 6e 20 74 68 69 73 20 70 Tcl when this p
cf10: 61 63 6b 61 67 65 20 69 73 20 74 6f 20 62 65 20 ackage is to be
cf20: 61 64 64 65 64 20 74 6f 20 61 6e 20 69 6e 74 65 added to an inte
cf30: 72 70 72 65 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 rpreter.. *. * R
cf40: 65 73 75 6c 74 73 3a 20 20 53 73 6c 20 63 6f 6e esults: Ssl con
cf50: 66 69 67 75 72 65 64 20 61 6e 64 20 6c 6f 61 64 figured and load
cf60: 65 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ed. *. * Side ef
cf70: 66 65 63 74 73 3a 0a 20 2a 09 20 63 72 65 61 74 fects:. *. creat
cf80: 65 20 74 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e e the ssl comman
cf90: 64 2c 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 73 d, initialize ss
cfa0: 6c 20 63 6f 6e 74 65 78 74 0a 20 2a 0a 20 2a 2d l context. *. *-
cfb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cfc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cfd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cfe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
cff0: 2d 2d 0a 20 2a 2f 0a 0a 44 4c 4c 45 58 50 4f 52 --. */..DLLEXPOR
d000: 54 20 69 6e 74 20 54 6c 73 5f 49 6e 69 74 28 54 T int Tls_Init(T
d010: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
d020: 70 29 20 7b 0a 09 63 6f 6e 73 74 20 63 68 61 72 p) {..const char
d030: 20 74 6c 73 54 63 6c 49 6e 69 74 53 63 72 69 70 tlsTclInitScrip
d040: 74 5b 5d 20 3d 20 7b 0a 23 69 6e 63 6c 75 64 65 t[] = {.#include
d050: 20 22 74 6c 73 2e 74 63 6c 2e 68 22 0a 20 20 20 "tls.tcl.h".
d060: 20 20 20 20 20 20 20 20 20 30 78 30 30 0a 09 7d 0x00..}
d070: 3b 0a 0a 20 20 20 20 20 20 20 20 64 70 72 69 6e ;.. dprin
d080: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 tf("Called");...
d090: 2f 2a 0a 09 20 2a 20 57 65 20 6f 6e 6c 79 20 73 /*.. * We only s
d0a0: 75 70 70 6f 72 74 20 54 63 6c 20 38 2e 34 20 6f upport Tcl 8.4 o
d0b0: 72 20 6e 65 77 65 72 0a 09 20 2a 2f 0a 09 69 66 r newer.. */..if
d0c0: 20 28 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 (.#ifdef USE_TC
d0d0: 4c 5f 53 54 55 42 53 0a 09 20 20 20 20 54 63 6c L_STUBS.. Tcl
d0e0: 5f 49 6e 69 74 53 74 75 62 73 28 69 6e 74 65 72 _InitStubs(inter
d0f0: 70 2c 20 22 38 2e 34 22 2c 20 30 29 0a 23 65 6c p, "8.4", 0).#el
d100: 73 65 0a 09 20 20 20 20 54 63 6c 5f 50 6b 67 52 se.. Tcl_PkgR
d110: 65 71 75 69 72 65 28 69 6e 74 65 72 70 2c 20 22 equire(interp, "
d120: 54 63 6c 22 2c 20 22 38 2e 34 2d 22 2c 20 30 29 Tcl", "8.4-", 0)
d130: 0a 23 65 6e 64 69 66 0a 09 20 20 20 20 20 3d 3d .#endif.. ==
d140: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 NULL) {...retur
d150: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
d160: 0a 09 69 66 20 28 54 6c 73 4c 69 62 49 6e 69 74 ..if (TlsLibInit
d170: 28 30 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b (0) != TCL_OK) {
d180: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 ...Tcl_AppendRes
d190: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 ult(interp, "cou
d1a0: 6c 64 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a ld not initializ
d1b0: 65 20 53 53 4c 20 6c 69 62 72 61 72 79 22 2c 20 e SSL library",
d1c0: 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 NULL);...return
d1d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 TCL_ERROR;..}...
d1e0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
d1f0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
d200: 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 69 70 s::ciphers", Cip
d210: 68 65 72 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 hersObjCmd, (Cli
d220: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
d230: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
d240: 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 ) NULL);..Tcl_Cr
d250: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
d260: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e nterp, "tls::han
d270: 64 73 68 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 dshake", Handsha
d280: 6b 65 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e keObjCmd, (Clien
d290: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
d2a0: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
d2b0: 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 NULL);..Tcl_Crea
d2c0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
d2d0: 65 72 70 2c 20 22 74 6c 73 3a 3a 69 6d 70 6f 72 erp, "tls::impor
d2e0: 74 22 2c 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 t", ImportObjCmd
d2f0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
d300: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
d310: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 Proc *) NULL);..
d320: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
d330: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
d340: 73 3a 3a 75 6e 69 6d 70 6f 72 74 22 2c 20 55 6e s::unimport", Un
d350: 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c 20 28 43 importObjCmd, (C
d360: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 lientData) 0, (T
d370: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
d380: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f *) NULL);..Tcl_
d390: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
d3a0: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 (interp, "tls::s
d3b0: 74 61 74 75 73 22 2c 20 53 74 61 74 75 73 4f 62 tatus", StatusOb
d3c0: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
d3d0: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
d3e0: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
d3f0: 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 );..Tcl_CreateOb
d400: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
d410: 20 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c "tls::version",
d420: 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 20 VersionObjCmd,
d430: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
d440: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
d450: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 oc *) NULL);..Tc
d460: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
d470: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
d480: 3a 6d 69 73 63 22 2c 20 4d 69 73 63 4f 62 6a 43 :misc", MiscObjC
d490: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
d4a0: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
d4b0: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
d4c0: 0a 0a 09 69 66 20 28 69 6e 74 65 72 70 29 20 7b ...if (interp) {
d4d0: 0a 09 09 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 ...Tcl_Eval(inte
d4e0: 72 70 2c 20 74 6c 73 54 63 6c 49 6e 69 74 53 63 rp, tlsTclInitSc
d4f0: 72 69 70 74 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 ript);..}...retu
d500: 72 6e 28 54 63 6c 5f 50 6b 67 50 72 6f 76 69 64 rn(Tcl_PkgProvid
d510: 65 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 22 2c e(interp, "tls",
d520: 20 50 41 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e PACKAGE_VERSION
d530: 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ));.}../*. *----
d540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d570: 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 --*. *. *.Tls_Sa
d580: 66 65 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 feInit --. *. *.
d590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d5a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d5b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d5c0: 2a 0a 20 2a 09 53 74 61 6e 64 61 72 64 20 70 72 *. *.Standard pr
d5d0: 6f 63 65 64 75 72 65 20 72 65 71 75 69 72 65 64 ocedure required
d5e0: 20 62 79 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 by 'load'. . *.
d5f0: 49 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 69 73 Initializes this
d600: 20 65 78 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 extension for a
d610: 20 73 61 66 65 20 69 6e 74 65 72 70 72 65 74 65 safe interprete
d620: 72 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d r.. *.----------
d630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d650: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 ------*. *. *.Si
d660: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 de effects:. *..
d670: 41 73 20 6f 66 20 27 54 6c 73 5f 49 6e 69 74 27 As of 'Tls_Init'
d680: 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 . *. *.Result:.
d690: 2a 09 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *..A standard Tc
d6a0: 6c 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a 20 2a l error code.. *
d6b0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
d6c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d6d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d6e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a ---------*. */..
d6f0: 44 4c 4c 45 58 50 4f 52 54 20 69 6e 74 20 54 6c DLLEXPORT int Tl
d700: 73 5f 53 61 66 65 49 6e 69 74 28 54 63 6c 5f 49 s_SafeInit(Tcl_I
d710: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b nterp *interp) {
d720: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 ..dprintf("Calle
d730: 64 22 29 3b 0a 09 72 65 74 75 72 6e 28 54 6c 73 d");..return(Tls
d740: 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 29 3b 0a _Init(interp));.
d750: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
d760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
d790: 20 2a 0a 20 2a 09 54 6c 73 4c 69 62 49 6e 69 74 *. *.TlsLibInit
d7a0: 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d --. *. *.------
d7b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d7c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d7d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 49 ----------*. *.I
d7e0: 6e 69 74 69 61 6c 69 7a 65 73 20 53 53 4c 20 6c nitializes SSL l
d7f0: 69 62 72 61 72 79 20 6f 6e 63 65 20 70 65 72 20 ibrary once per
d800: 61 70 70 6c 69 63 61 74 69 6f 6e 0a 20 2a 09 2d application. *.-
d810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
d840: 0a 20 2a 0a 20 2a 09 53 69 64 65 20 65 66 66 65 . *. *.Side effe
d850: 63 74 73 3a 0a 20 2a 09 09 69 6e 69 74 69 61 6c cts:. *..initial
d860: 69 7a 65 73 20 53 53 4c 20 6c 69 62 72 61 72 79 izes SSL library
d870: 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 . *. *.Result:.
d880: 2a 09 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d *..none. *. *---
d890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d8a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d8b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
d8c0: 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ---*. */.static
d8d0: 69 6e 74 20 54 6c 73 4c 69 62 49 6e 69 74 28 69 int TlsLibInit(i
d8e0: 6e 74 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 29 nt uninitialize)
d8f0: 20 7b 0a 09 73 74 61 74 69 63 20 69 6e 74 20 69 {..static int i
d900: 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 30 3b 0a nitialized = 0;.
d910: 09 69 6e 74 20 73 74 61 74 75 73 20 3d 20 54 43 .int status = TC
d920: 4c 5f 4f 4b 3b 0a 23 69 66 20 64 65 66 69 6e 65 L_OK;.#if define
d930: 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 d(OPENSSL_THREAD
d940: 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 S) && defined(TC
d950: 4c 5f 54 48 52 45 41 44 53 29 0a 09 73 69 7a 65 L_THREADS)..size
d960: 5f 74 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 23 65 _t num_locks;.#e
d970: 6e 64 69 66 0a 0a 09 69 66 20 28 75 6e 69 6e 69 ndif...if (unini
d980: 74 69 61 6c 69 7a 65 29 20 7b 0a 09 09 69 66 20 tialize) {...if
d990: 28 21 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b (!initialized) {
d9a0: 0a 09 09 09 64 70 72 69 6e 74 66 28 22 41 73 6b ....dprintf("Ask
d9b0: 65 64 20 74 6f 20 75 6e 69 6e 69 74 69 61 6c 69 ed to uninitiali
d9c0: 7a 65 2c 20 62 75 74 20 77 65 20 61 72 65 20 6e ze, but we are n
d9d0: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 22 29 ot initialized")
d9e0: 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 54 43 4c ;.....return(TCL
d9f0: 5f 4f 4b 29 3b 0a 09 09 7d 0a 0a 09 09 64 70 72 _OK);...}....dpr
da00: 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 75 intf("Asked to u
da10: 6e 69 6e 69 74 69 61 6c 69 7a 65 22 29 3b 0a 0a ninitialize");..
da20: 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e #if defined(OPEN
da30: 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 SSL_THREADS) &&
da40: 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 defined(TCL_THRE
da50: 41 44 53 29 0a 09 09 54 63 6c 5f 4d 75 74 65 78 ADS)...Tcl_Mutex
da60: 4c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a Lock(&init_mx);.
da70: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
da80: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 SION_NUMBER < 0x
da90: 31 30 30 30 30 30 30 30 4c 0a 09 09 43 52 59 50 10000000L...CRYP
daa0: 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 TO_set_locking_c
dab0: 61 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 09 allback(NULL);..
dac0: 09 43 52 59 50 54 4f 5f 73 65 74 5f 69 64 5f 63 .CRYPTO_set_id_c
dad0: 61 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 23 allback(NULL);.#
dae0: 65 6c 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 elif OPENSSL_VER
daf0: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 SION_NUMBER < 0x
db00: 31 30 31 30 30 30 30 30 4c 0a 09 09 43 52 59 50 10100000L...CRYP
db10: 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 TO_set_locking_c
db20: 61 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 09 allback(NULL);..
db30: 09 43 52 59 50 54 4f 5f 54 48 52 45 41 44 49 44 .CRYPTO_THREADID
db40: 5f 73 65 74 5f 63 61 6c 6c 62 61 63 6b 28 4e 55 _set_callback(NU
db50: 4c 4c 29 0a 23 65 6e 64 69 66 0a 0a 09 09 69 66 LL).#endif....if
db60: 20 28 6c 6f 63 6b 73 29 20 7b 0a 09 09 09 66 72 (locks) {....fr
db70: 65 65 28 6c 6f 63 6b 73 29 3b 0a 09 09 09 6c 6f ee(locks);....lo
db80: 63 6b 73 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 6c cks = NULL;....l
db90: 6f 63 6b 73 43 6f 75 6e 74 20 3d 20 30 3b 0a 09 ocksCount = 0;..
dba0: 09 7d 0a 23 65 6e 64 69 66 0a 09 09 69 6e 69 74 .}.#endif...init
dbb0: 69 61 6c 69 7a 65 64 20 3d 20 30 3b 0a 0a 23 69 ialized = 0;..#i
dbc0: 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 f defined(OPENSS
dbd0: 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 65 L_THREADS) && de
dbe0: 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 44 fined(TCL_THREAD
dbf0: 53 29 0a 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e S)...Tcl_MutexUn
dc00: 6c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a lock(&init_mx);.
dc10: 23 65 6e 64 69 66 0a 0a 09 09 72 65 74 75 72 6e #endif....return
dc20: 28 54 43 4c 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 (TCL_OK);..}...i
dc30: 66 20 28 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 f (initialized)
dc40: 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 43 61 6c {...dprintf("Cal
dc50: 6c 65 64 2c 20 62 75 74 20 75 73 69 6e 67 20 63 led, but using c
dc60: 61 63 68 65 64 20 76 61 6c 75 65 22 29 3b 0a 09 ached value");..
dc70: 09 72 65 74 75 72 6e 28 73 74 61 74 75 73 29 3b .return(status);
dc80: 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 ..}...dprintf("C
dc90: 61 6c 6c 65 64 22 29 3b 0a 0a 23 69 66 20 64 65 alled");..#if de
dca0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 fined(OPENSSL_TH
dcb0: 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 READS) && define
dcc0: 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 d(TCL_THREADS)..
dcd0: 54 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 69 Tcl_MutexLock(&i
dce0: 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 69 66 0a nit_mx);.#endif.
dcf0: 09 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 31 .initialized = 1
dd00: 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f ;..#if defined(O
dd10: 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 PENSSL_THREADS)
dd20: 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 && defined(TCL_T
dd30: 48 52 45 41 44 53 29 0a 23 69 66 20 4f 50 45 4e HREADS).#if OPEN
dd40: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 SSL_VERSION_NUMB
dd50: 45 52 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c ER < 0x10100000L
dd60: 0a 09 6e 75 6d 5f 6c 6f 63 6b 73 20 3d 20 43 52 ..num_locks = CR
dd70: 59 50 54 4f 5f 6e 75 6d 5f 6c 6f 63 6b 73 28 29 YPTO_num_locks()
dd80: 3b 0a 23 65 6c 73 65 0a 09 6e 75 6d 5f 6c 6f 63 ;.#else..num_loc
dd90: 6b 73 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 09 ks = 1;.#endif..
dda0: 6c 6f 63 6b 73 43 6f 75 6e 74 20 3d 20 28 69 6e locksCount = (in
ddb0: 74 29 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 09 6c t) num_locks;..l
ddc0: 6f 63 6b 73 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 ocks = malloc(si
ddd0: 7a 65 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e zeof(*locks) * n
dde0: 75 6d 5f 6c 6f 63 6b 73 29 3b 0a 09 6d 65 6d 73 um_locks);..mems
ddf0: 65 74 28 6c 6f 63 6b 73 2c 20 30 2c 20 73 69 7a et(locks, 0, siz
de00: 65 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e 75 eof(*locks) * nu
de10: 6d 5f 6c 6f 63 6b 73 29 3b 0a 0a 23 69 66 20 4f m_locks);..#if O
de20: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
de30: 55 4d 42 45 52 20 3c 20 30 78 31 30 30 30 30 30 UMBER < 0x100000
de40: 30 30 4c 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f 00L..CRYPTO_set_
de50: 6c 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b locking_callback
de60: 28 43 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 (CryptoThreadLoc
de70: 6b 43 61 6c 6c 62 61 63 6b 29 3b 0a 09 43 52 59 kCallback);..CRY
de80: 50 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c 6c 62 PTO_set_id_callb
de90: 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 64 ack(CryptoThread
dea0: 49 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 23 65 6c IdCallback);.#el
deb0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
dec0: 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 ON_NUMBER < 0x10
ded0: 31 30 30 30 30 30 4c 0a 09 43 52 59 50 54 4f 5f 100000L..CRYPTO_
dee0: 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 61 6c 6c set_locking_call
def0: 62 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 back(CryptoThrea
df00: 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b 29 3b 0a dLockCallback);.
df10: 09 43 52 59 50 54 4f 5f 54 48 52 45 41 44 49 44 .CRYPTO_THREADID
df20: 5f 73 65 74 5f 63 61 6c 6c 62 61 63 6b 28 43 72 _set_callback(Cr
df30: 79 70 74 6f 54 68 72 65 61 64 49 64 43 61 6c 6c yptoThreadIdCall
df40: 62 61 63 6b 29 0a 23 65 6e 64 69 66 0a 23 65 6e back).#endif.#en
df50: 64 69 66 0a 0a 23 20 69 66 20 4f 50 45 4e 53 53 dif..# if OPENSS
df60: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
df70: 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a 09 < 0x10100000L..
df80: 69 66 20 28 53 53 4c 5f 6c 69 62 72 61 72 79 5f if (SSL_library_
df90: 69 6e 69 74 28 29 20 21 3d 20 31 29 20 7b 0a 09 init() != 1) {..
dfa0: 09 73 74 61 74 75 73 20 3d 20 54 43 4c 5f 45 52 .status = TCL_ER
dfb0: 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 ROR;...goto done
dfc0: 3b 0a 09 7d 0a 23 65 6c 73 65 0a 09 2f 2a 20 49 ;..}.#else../* I
dfd0: 6e 69 74 69 61 6c 69 7a 65 20 42 4f 54 48 20 6c nitialize BOTH l
dfe0: 69 62 63 72 79 70 74 6f 20 61 6e 64 20 6c 69 62 ibcrypto and lib
dff0: 73 73 6c 2e 20 2a 2f 0a 09 4f 50 45 4e 53 53 4c ssl. */..OPENSSL
e000: 5f 69 6e 69 74 5f 73 73 6c 28 4f 50 45 4e 53 53 _init_ssl(OPENSS
e010: 4c 5f 49 4e 49 54 5f 4c 4f 41 44 5f 53 53 4c 5f L_INIT_LOAD_SSL_
e020: 53 54 52 49 4e 47 53 20 7c 20 4f 50 45 4e 53 53 STRINGS | OPENSS
e030: 4c 5f 49 4e 49 54 5f 4c 4f 41 44 5f 43 52 59 50 L_INIT_LOAD_CRYP
e040: 54 4f 5f 53 54 52 49 4e 47 53 0a 09 20 20 20 20 TO_STRINGS..
e050: 7c 20 4f 50 45 4e 53 53 4c 5f 49 4e 49 54 5f 41 | OPENSSL_INIT_A
e060: 44 44 5f 41 4c 4c 5f 43 49 50 48 45 52 53 20 7c DD_ALL_CIPHERS |
e070: 20 4f 50 45 4e 53 53 4c 5f 49 4e 49 54 5f 41 44 OPENSSL_INIT_AD
e080: 44 5f 41 4c 4c 5f 44 49 47 45 53 54 53 2c 20 4e D_ALL_DIGESTS, N
e090: 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 20 ULL);.#endif..#
e0a0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
e0b0: 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 ON_NUMBER < 0x10
e0c0: 31 30 30 30 30 30 4c 0a 09 53 53 4c 5f 6c 6f 61 100000L..SSL_loa
e0d0: 64 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 73 28 d_error_strings(
e0e0: 29 3b 0a 09 45 52 52 5f 6c 6f 61 64 5f 63 72 79 );..ERR_load_cry
e0f0: 70 74 6f 5f 73 74 72 69 6e 67 73 28 29 3b 0a 23 pto_strings();.#
e100: 65 6c 73 65 0a 09 2f 2a 20 4f 6e 6c 79 20 69 6e else../* Only in
e110: 69 74 69 61 6c 69 7a 65 20 6c 69 62 63 72 79 70 itialize libcryp
e120: 74 6f 20 20 2a 2f 0a 09 4f 50 45 4e 53 53 4c 5f to */..OPENSSL_
e130: 69 6e 69 74 5f 63 72 79 70 74 6f 28 4f 50 45 4e init_crypto(OPEN
e140: 53 53 4c 5f 49 4e 49 54 5f 4c 4f 41 44 5f 43 52 SSL_INIT_LOAD_CR
e150: 59 50 54 4f 5f 53 54 52 49 4e 47 53 2c 20 4e 55 YPTO_STRINGS, NU
e160: 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 42 49 LL);.#endif...BI
e170: 4f 5f 6e 65 77 5f 74 63 6c 28 4e 55 4c 4c 2c 20 O_new_tcl(NULL,
e180: 30 29 3b 0a 0a 23 69 66 20 30 0a 09 2f 2a 0a 09 0);..#if 0../*..
e190: 20 2a 20 58 58 58 3a 54 4f 44 4f 3a 20 52 65 6d * XXX:TODO: Rem
e1a0: 6f 76 65 20 74 68 69 73 20 63 6f 64 65 20 61 6e ove this code an
e1b0: 64 20 72 65 70 6c 61 63 65 20 69 74 20 77 69 74 d replace it wit
e1c0: 68 20 61 20 63 68 65 63 6b 0a 09 20 2a 20 66 6f h a check.. * fo
e1d0: 72 20 65 6e 6f 75 67 68 20 65 6e 74 72 6f 70 79 r enough entropy
e1e0: 20 61 6e 64 20 64 6f 20 6e 6f 74 20 74 72 79 20 and do not try
e1f0: 74 6f 20 63 72 65 61 74 65 20 6f 75 72 20 6f 77 to create our ow
e200: 6e 0a 09 20 2a 20 74 65 72 72 69 62 6c 65 20 65 n.. * terrible e
e210: 6e 74 72 6f 70 79 0a 09 20 2a 2f 0a 20 20 20 20 ntropy.. */.
e220: 2f 2a 0a 20 20 20 20 20 2a 20 53 65 65 64 20 74 /*. * Seed t
e230: 68 65 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 he random number
e240: 20 67 65 6e 65 72 61 74 6f 72 20 69 6e 20 74 68 generator in th
e250: 65 20 53 53 4c 20 6c 69 62 72 61 72 79 2c 0a 20 e SSL library,.
e260: 20 20 20 20 2a 20 75 73 69 6e 67 20 74 68 65 20 * using the
e270: 64 6f 2f 77 68 69 6c 65 20 63 6f 6e 73 74 72 75 do/while constru
e280: 63 74 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 ct because of th
e290: 65 20 62 75 67 20 6e 6f 74 65 20 69 6e 20 74 68 e bug note in th
e2a0: 65 0a 20 20 20 20 20 2a 20 4f 70 65 6e 53 53 4c e. * OpenSSL
e2b0: 20 46 41 51 20 61 74 20 68 74 74 70 3a 2f 2f 77 FAQ at http://w
e2c0: 77 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 2f 73 ww.openssl.org/s
e2d0: 75 70 70 6f 72 74 2f 66 61 71 2e 68 74 6d 6c 23 upport/faq.html#
e2e0: 55 53 45 52 31 0a 20 20 20 20 20 2a 0a 20 20 20 USER1. *.
e2f0: 20 20 2a 20 54 68 65 20 63 72 75 78 20 6f 66 20 * The crux of
e300: 74 68 65 20 70 72 6f 62 6c 65 6d 20 69 73 20 74 the problem is t
e310: 68 61 74 20 53 6f 6c 61 72 69 73 20 37 20 64 6f hat Solaris 7 do
e320: 65 73 20 6e 6f 74 20 68 61 76 65 20 61 20 0a 20 es not have a .
e330: 20 20 20 20 2a 20 2f 64 65 76 2f 72 61 6e 64 6f * /dev/rando
e340: 6d 20 6f 72 20 2f 64 65 76 2f 75 72 61 6e 64 6f m or /dev/urando
e350: 6d 20 64 65 76 69 63 65 20 73 6f 20 69 74 20 63 m device so it c
e360: 61 6e 6e 6f 74 20 67 61 74 68 65 72 20 65 6e 6f annot gather eno
e370: 75 67 68 0a 20 20 20 20 20 2a 20 65 6e 74 72 6f ugh. * entro
e380: 70 79 20 66 72 6f 6d 20 74 68 65 20 52 41 4e 44 py from the RAND
e390: 5f 73 65 65 64 28 29 20 77 68 65 6e 20 54 4c 53 _seed() when TLS
e3a0: 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 61 6e 64 initializes and
e3b0: 20 72 65 66 75 73 65 73 0a 20 20 20 20 20 2a 20 refuses. *
e3c0: 74 6f 20 67 6f 20 66 75 72 74 68 65 72 2e 20 45 to go further. E
e3d0: 61 72 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 20 arlier versions
e3e0: 6f 66 20 4f 70 65 6e 53 53 4c 20 63 61 72 72 69 of OpenSSL carri
e3f0: 65 64 20 6f 6e 20 72 65 67 61 72 64 6c 65 73 73 ed on regardless
e400: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 72 .. */. sr
e410: 61 6e 64 28 28 75 6e 73 69 67 6e 65 64 20 69 6e and((unsigned in
e420: 74 29 20 74 69 6d 65 28 28 74 69 6d 65 5f 74 20 t) time((time_t
e430: 2a 29 20 4e 55 4c 4c 29 29 3b 0a 20 20 20 20 64 *) NULL));. d
e440: 6f 20 7b 0a 09 66 6f 72 20 28 69 20 3d 20 30 3b o {..for (i = 0;
e450: 20 69 20 3c 20 31 36 3b 20 69 2b 2b 29 20 7b 0a i < 16; i++) {.
e460: 09 20 20 20 20 72 6e 64 5f 73 65 65 64 5b 69 5d . rnd_seed[i]
e470: 20 3d 20 31 20 2b 20 28 63 68 61 72 29 20 28 32 = 1 + (char) (2
e480: 35 35 2e 30 20 2a 20 72 61 6e 64 28 29 2f 28 52 55.0 * rand()/(R
e490: 41 4e 44 5f 4d 41 58 2b 31 2e 30 29 29 3b 0a 09 AND_MAX+1.0));..
e4a0: 7d 0a 09 52 41 4e 44 5f 73 65 65 64 28 72 6e 64 }..RAND_seed(rnd
e4b0: 5f 73 65 65 64 2c 20 73 69 7a 65 6f 66 28 72 6e _seed, sizeof(rn
e4c0: 64 5f 73 65 65 64 29 29 3b 0a 20 20 20 20 7d 20 d_seed));. }
e4d0: 77 68 69 6c 65 20 28 52 41 4e 44 5f 73 74 61 74 while (RAND_stat
e4e0: 75 73 28 29 20 21 3d 20 31 29 3b 0a 23 65 6e 64 us() != 1);.#end
e4f0: 69 66 0a 0a 23 20 69 66 20 4f 50 45 4e 53 53 4c if..# if OPENSSL
e500: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
e510: 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a 64 6f < 0x10100000L.do
e520: 6e 65 3a 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 ne:.#endif.#if d
e530: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 efined(OPENSSL_T
e540: 48 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e HREADS) && defin
e550: 65 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a ed(TCL_THREADS).
e560: 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b .Tcl_MutexUnlock
e570: 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 (&init_mx);.#end
e580: 69 66 0a 0a 09 72 65 74 75 72 6e 28 73 74 61 74 if...return(stat
e590: 75 73 29 3b 0a 7d 0a us);.}.