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 6c 69 62 2e 68 3e 0a 0a 23 69 66 20 54 43 4c dlib.h>..#if TCL
0350: 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 3c _MAJOR_VERSION <
0360: 20 39 0a 20 20 20 20 74 79 70 65 64 65 66 20 69 9. typedef i
0370: 6e 74 20 54 63 6c 5f 53 69 7a 65 3b 0a 23 65 6e nt Tcl_Size;.#en
0380: 64 69 66 0a 0a 2f 2a 0a 20 2a 20 45 78 74 65 72 dif../*. * Exter
0390: 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 73 0a 20 2a nal functions. *
03a0: 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 /../*. * Forward
03b0: 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a declarations. *
03c0: 2f 0a 0a 23 64 65 66 69 6e 65 20 46 32 4e 28 20 /..#define F2N(
03d0: 6b 65 79 2c 20 64 73 70 29 20 5c 0a 09 28 28 28 key, dsp) \..(((
03e0: 6b 65 79 29 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 key) == NULL) ?
03f0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 20 3a 20 (char *) NULL :
0400: 5c 0a 09 09 54 63 6c 5f 54 72 61 6e 73 6c 61 74 \...Tcl_Translat
0410: 65 46 69 6c 65 4e 61 6d 65 28 69 6e 74 65 72 70 eFileName(interp
0420: 2c 20 28 6b 65 79 29 2c 20 28 64 73 70 29 29 29 , (key), (dsp)))
0430: 0a 23 64 65 66 69 6e 65 20 52 45 41 53 4f 4e 28 .#define REASON(
0440: 29 09 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 ).ERR_reason_err
0450: 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 or_string(ERR_ge
0460: 74 5f 65 72 72 6f 72 28 29 29 0a 0a 73 74 61 74 t_error())..stat
0470: 69 63 20 76 6f 69 64 09 49 6e 66 6f 43 61 6c 6c ic void.InfoCall
0480: 62 61 63 6b 28 63 6f 6e 73 74 20 53 53 4c 20 2a back(const SSL *
0490: 73 73 6c 2c 20 69 6e 74 20 77 68 65 72 65 2c 20 ssl, int where,
04a0: 69 6e 74 20 72 65 74 29 3b 0a 0a 73 74 61 74 69 int ret);..stati
04b0: 63 20 69 6e 74 09 43 69 70 68 65 72 73 4f 62 6a c int.CiphersObj
04c0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
04d0: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
04e0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
04f0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
0500: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
0510: 5d 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 ]);..static int.
0520: 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 28 HandshakeObjCmd(
0530: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
0540: 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e tData,....Tcl_In
0550: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
0560: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
0570: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a *const objv[]);.
0580: 0a 73 74 61 74 69 63 20 69 6e 74 09 49 6d 70 6f .static int.Impo
0590: 72 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 rtObjCmd(ClientD
05a0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a ata clientData,.
05b0: 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ...Tcl_Interp *i
05c0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
05d0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
05e0: 6f 62 6a 76 5b 5d 29 3b 0a 0a 73 74 61 74 69 63 objv[]);..static
05f0: 20 69 6e 74 09 53 74 61 74 75 73 4f 62 6a 43 6d int.StatusObjCm
0600: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
0610: 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f entData,....Tcl_
0620: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
0630: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
0640: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
0650: 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 56 65 ;..static int.Ve
0660: 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 43 6c 69 65 rsionObjCmd(Clie
0670: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
0680: 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 a,....Tcl_Interp
0690: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
06a0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
06b0: 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 0a 73 74 61 st objv[]);..sta
06c0: 74 69 63 20 69 6e 74 09 4d 69 73 63 4f 62 6a 43 tic int.MiscObjC
06d0: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
06e0: 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c ientData,....Tcl
06f0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0700: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
0710: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
0720: 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 55 );..static int.U
0730: 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 43 6c nimportObjCmd(Cl
0740: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
0750: 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 ata,....Tcl_Inte
0760: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
0770: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
0780: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 3b 0a 0a 73 onst objv[]);..s
0790: 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 tatic SSL_CTX *C
07a0: 54 58 5f 49 6e 69 74 28 53 74 61 74 65 20 2a 73 TX_Init(State *s
07b0: 74 61 74 65 50 74 72 2c 20 69 6e 74 20 69 73 53 tatePtr, int isS
07c0: 65 72 76 65 72 2c 20 69 6e 74 20 70 72 6f 74 6f erver, int proto
07d0: 2c 20 63 68 61 72 20 2a 6b 65 79 2c 0a 09 09 09 , char *key,....
07e0: 63 68 61 72 20 2a 63 65 72 74 66 69 6c 65 2c 20 char *certfile,
07f0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6b unsigned char *k
0800: 65 79 5f 61 73 6e 31 2c 20 75 6e 73 69 67 6e 65 ey_asn1, unsigne
0810: 64 20 63 68 61 72 20 2a 63 65 72 74 5f 61 73 6e d char *cert_asn
0820: 31 2c 0a 09 09 09 69 6e 74 20 6b 65 79 5f 61 73 1,....int key_as
0830: 6e 31 5f 6c 65 6e 2c 20 69 6e 74 20 63 65 72 74 n1_len, int cert
0840: 5f 61 73 6e 31 5f 6c 65 6e 2c 20 63 68 61 72 20 _asn1_len, char
0850: 2a 43 41 64 69 72 2c 20 63 68 61 72 20 2a 43 41 *CAdir, char *CA
0860: 66 69 6c 65 2c 0a 20 20 20 20 20 20 63 68 61 72 file,. char
0870: 20 2a 63 69 70 68 65 72 73 2c 20 63 68 61 72 20 *ciphers, char
0880: 2a 44 48 70 61 72 61 6d 73 29 3b 0a 0a 73 74 61 *DHparams);..sta
0890: 74 69 63 20 69 6e 74 09 54 6c 73 4c 69 62 49 6e tic int.TlsLibIn
08a0: 69 74 28 69 6e 74 20 75 6e 69 6e 69 74 69 61 6c it(int uninitial
08b0: 69 7a 65 29 3b 0a 0a 23 64 65 66 69 6e 65 20 54 ize);..#define T
08c0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 09 09 30 LS_PROTO_SSL2..0
08d0: 78 30 31 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f x01.#define TLS_
08e0: 50 52 4f 54 4f 5f 53 53 4c 33 09 09 30 78 30 32 PROTO_SSL3..0x02
08f0: 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f .#define TLS_PRO
0900: 54 4f 5f 54 4c 53 31 09 09 30 78 30 34 0a 23 64 TO_TLS1..0x04.#d
0910: 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f efine TLS_PROTO_
0920: 54 4c 53 31 5f 31 09 30 78 30 38 0a 23 64 65 66 TLS1_1.0x08.#def
0930: 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c ine TLS_PROTO_TL
0940: 53 31 5f 32 09 30 78 31 30 0a 23 64 65 66 69 6e S1_2.0x10.#defin
0950: 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 e TLS_PROTO_TLS1
0960: 5f 33 09 30 78 32 30 0a 23 64 65 66 69 6e 65 20 _3.0x20.#define
0970: 45 4e 41 42 4c 45 44 28 66 6c 61 67 2c 20 6d 61 ENABLED(flag, ma
0980: 73 6b 29 09 28 28 28 66 6c 61 67 29 20 26 20 28 sk).(((flag) & (
0990: 6d 61 73 6b 29 29 20 3d 3d 20 28 6d 61 73 6b 29 mask)) == (mask)
09a0: 29 0a 0a 2f 2a 0a 20 2a 20 53 74 61 74 69 63 20 )../*. * Static
09b0: 64 61 74 61 20 73 74 72 75 63 74 75 72 65 73 0a data structures.
09c0: 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 4f 50 45 */..#ifndef OPE
09d0: 4e 53 53 4c 5f 4e 4f 5f 44 48 0a 23 69 6e 63 6c NSSL_NO_DH.#incl
09e0: 75 64 65 20 22 64 68 5f 70 61 72 61 6d 73 2e 68 ude "dh_params.h
09f0: 22 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 ".#endif../*. *
0a00: 57 65 20 6c 6f 73 65 20 74 68 65 20 74 63 6c 20 We lose the tcl
0a10: 70 61 73 73 77 6f 72 64 20 63 61 6c 6c 62 61 63 password callbac
0a20: 6b 20 77 68 65 6e 20 77 65 20 75 73 65 20 74 68 k when we use th
0a30: 65 20 52 53 41 20 42 53 41 46 45 20 53 53 4c 2d e RSA BSAFE SSL-
0a40: 43 20 31 2e 31 2e 32 0a 20 2a 20 6c 69 62 72 61 C 1.1.2. * libra
0a50: 72 69 65 73 20 69 6e 73 74 65 61 64 20 6f 66 20 ries instead of
0a60: 74 68 65 20 63 75 72 72 65 6e 74 20 4f 70 65 6e the current Open
0a70: 53 53 4c 20 6c 69 62 72 61 72 69 65 73 2e 0a 20 SSL libraries..
0a80: 2a 2f 0a 0a 23 69 66 64 65 66 20 42 53 41 46 45 */..#ifdef BSAFE
0a90: 0a 23 64 65 66 69 6e 65 20 50 52 45 5f 4f 50 45 .#define PRE_OPE
0aa0: 4e 53 53 4c 5f 30 5f 39 5f 34 20 31 0a 23 65 6e NSSL_0_9_4 1.#en
0ab0: 64 69 66 0a 0a 2f 2a 0a 20 2a 20 50 72 65 20 4f dif../*. * Pre O
0ac0: 70 65 6e 53 53 4c 20 30 2e 39 2e 34 20 43 6f 6d penSSL 0.9.4 Com
0ad0: 70 61 74 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 pat. */..#ifndef
0ae0: 20 53 54 41 43 4b 5f 4f 46 0a 23 64 65 66 69 6e STACK_OF.#defin
0af0: 65 20 53 54 41 43 4b 5f 4f 46 28 78 29 09 09 09 e STACK_OF(x)...
0b00: 53 54 41 43 4b 0a 23 64 65 66 69 6e 65 20 73 6b STACK.#define sk
0b10: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 _SSL_CIPHER_num(
0b20: 73 6b 29 09 09 73 6b 5f 6e 75 6d 28 28 73 6b 29 sk)..sk_num((sk)
0b30: 29 0a 23 64 65 66 69 6e 65 20 73 6b 5f 53 53 4c ).#define sk_SSL
0b40: 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 20 73 _CIPHER_value( s
0b50: 6b 2c 20 69 6e 64 65 78 29 09 28 53 53 4c 5f 43 k, index).(SSL_C
0b60: 49 50 48 45 52 2a 29 73 6b 5f 76 61 6c 75 65 28 IPHER*)sk_value(
0b70: 28 73 6b 29 2c 20 28 69 6e 64 65 78 29 29 0a 23 (sk), (index)).#
0b80: 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 54 68 72 endif../*. * Thr
0b90: 65 61 64 2d 53 61 66 65 20 54 4c 53 20 43 6f 64 ead-Safe TLS Cod
0ba0: 65 0a 20 2a 2f 0a 0a 23 69 66 64 65 66 20 54 43 e. */..#ifdef TC
0bb0: 4c 5f 54 48 52 45 41 44 53 0a 23 64 65 66 69 6e L_THREADS.#defin
0bc0: 65 20 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 e OPENSSL_THREAD
0bd0: 5f 44 45 46 49 4e 45 53 0a 23 69 6e 63 6c 75 64 _DEFINES.#includ
0be0: 65 20 3c 6f 70 65 6e 73 73 6c 2f 6f 70 65 6e 73 e <openssl/opens
0bf0: 73 6c 63 6f 6e 66 2e 68 3e 0a 0a 23 69 66 64 65 slconf.h>..#ifde
0c00: 66 20 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 f OPENSSL_THREAD
0c10: 53 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e S.#include <open
0c20: 73 73 6c 2f 63 72 79 70 74 6f 2e 68 3e 0a 0a 2f ssl/crypto.h>../
0c30: 2a 0a 20 2a 20 54 68 72 65 61 64 65 64 20 6f 70 *. * Threaded op
0c40: 65 72 61 74 69 6f 6e 20 72 65 71 75 69 72 65 73 eration requires
0c50: 20 6c 6f 63 6b 69 6e 67 20 63 61 6c 6c 62 61 63 locking callbac
0c60: 6b 73 0a 20 2a 20 42 61 73 65 64 20 66 72 6f 6d ks. * Based from
0c70: 20 2f 63 72 79 70 74 6f 2f 63 72 79 70 74 6c 69 /crypto/cryptli
0c80: 62 2e 63 20 6f 66 20 4f 70 65 6e 53 53 4c 20 61 b.c of OpenSSL a
0c90: 6e 64 20 4e 53 4f 70 65 6e 53 53 4c 2e 0a 20 2a nd NSOpenSSL.. *
0ca0: 2f 0a 0a 73 74 61 74 69 63 20 54 63 6c 5f 4d 75 /..static Tcl_Mu
0cb0: 74 65 78 20 2a 6c 6f 63 6b 73 20 3d 20 4e 55 4c tex *locks = NUL
0cc0: 4c 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 6c 6f L;.static int lo
0cd0: 63 6b 73 43 6f 75 6e 74 20 3d 20 30 3b 0a 73 74 cksCount = 0;.st
0ce0: 61 74 69 63 20 54 63 6c 5f 4d 75 74 65 78 20 69 atic Tcl_Mutex i
0cf0: 6e 69 74 5f 6d 78 3b 0a 0a 76 6f 69 64 20 43 72 nit_mx;..void Cr
0d00: 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b 43 61 yptoThreadLockCa
0d10: 6c 6c 62 61 63 6b 28 69 6e 74 20 6d 6f 64 65 2c llback(int mode,
0d20: 20 69 6e 74 20 6e 2c 20 63 6f 6e 73 74 20 63 68 int n, const ch
0d30: 61 72 20 2a 66 69 6c 65 2c 20 69 6e 74 20 6c 69 ar *file, int li
0d40: 6e 65 29 20 7b 0a 0a 09 69 66 20 28 6d 6f 64 65 ne) {...if (mode
0d50: 20 26 20 43 52 59 50 54 4f 5f 4c 4f 43 4b 29 20 & CRYPTO_LOCK)
0d60: 7b 0a 09 09 2f 2a 20 54 68 69 73 20 64 65 62 75 {.../* This debu
0d70: 67 67 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20 gging is turned
0d80: 6f 66 66 20 62 79 20 64 65 66 61 75 6c 74 20 2d off by default -
0d90: 2d 20 69 74 27 73 20 74 6f 6f 20 6e 6f 69 73 79 - it's too noisy
0da0: 2e 20 2a 2f 0a 09 09 2f 2a 20 64 70 72 69 6e 74 . */.../* dprint
0db0: 66 28 22 43 61 6c 6c 65 64 20 74 6f 20 6c 6f 63 f("Called to loc
0dc0: 6b 20 28 6e 3d 25 69 20 6f 66 20 25 69 29 22 2c k (n=%i of %i)",
0dd0: 20 6e 2c 20 6c 6f 63 6b 73 43 6f 75 6e 74 29 3b n, locksCount);
0de0: 20 2a 2f 0a 09 09 54 63 6c 5f 4d 75 74 65 78 4c */...Tcl_MutexL
0df0: 6f 63 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a ock(&locks[n]);.
0e00: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 2f 2a 20 64 .} else {.../* d
0e10: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 74 printf("Called t
0e20: 6f 20 75 6e 6c 6f 63 6b 20 28 6e 3d 25 69 20 6f o unlock (n=%i o
0e30: 66 20 25 69 29 22 2c 20 6e 2c 20 6c 6f 63 6b 73 f %i)", n, locks
0e40: 43 6f 75 6e 74 29 3b 20 2a 2f 0a 09 09 54 63 6c Count); */...Tcl
0e50: 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 6c 6f _MutexUnlock(&lo
0e60: 63 6b 73 5b 6e 5d 29 3b 0a 09 7d 0a 0a 09 2f 2a cks[n]);..}.../*
0e70: 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e dprintf("Return
0e80: 69 6e 67 22 29 3b 20 2a 2f 0a 0a 09 72 65 74 75 ing"); */...retu
0e90: 72 6e 3b 0a 09 66 69 6c 65 20 3d 20 66 69 6c 65 rn;..file = file
0ea0: 3b 0a 09 6c 69 6e 65 20 3d 20 6c 69 6e 65 3b 0a ;..line = line;.
0eb0: 7d 0a 0a 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 }..unsigned long
0ec0: 20 43 72 79 70 74 6f 54 68 72 65 61 64 49 64 43 CryptoThreadIdC
0ed0: 61 6c 6c 62 61 63 6b 28 76 6f 69 64 29 20 7b 0a allback(void) {.
0ee0: 09 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 72 .unsigned long r
0ef0: 65 74 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 et;...dprintf("C
0f00: 61 6c 6c 65 64 22 29 3b 0a 0a 09 72 65 74 20 3d alled");...ret =
0f10: 20 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 (unsigned long)
0f20: 20 54 63 6c 5f 47 65 74 43 75 72 72 65 6e 74 54 Tcl_GetCurrentT
0f30: 68 72 65 61 64 28 29 3b 0a 0a 09 64 70 72 69 6e hread();...dprin
0f40: 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 25 6c tf("Returning %l
0f50: 75 22 2c 20 72 65 74 29 3b 0a 0a 09 72 65 74 75 u", ret);...retu
0f60: 72 6e 28 72 65 74 29 3b 0a 7d 0a 23 65 6e 64 69 rn(ret);.}.#endi
0f70: 66 20 2f 2a 20 4f 50 45 4e 53 53 4c 5f 54 48 52 f /* OPENSSL_THR
0f80: 45 41 44 53 20 2a 2f 0a 23 65 6e 64 69 66 20 2f EADS */.#endif /
0f90: 2a 20 54 43 4c 5f 54 48 52 45 41 44 53 20 2a 2f * TCL_THREADS */
0fa0: 0a 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ..../*. *-------
0fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
0ff0: 20 2a 20 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 * InfoCallback
1000: 2d 2d 0a 20 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 --. *. *.monitor
1010: 73 20 53 53 4c 20 63 6f 6e 6e 65 63 74 69 6f 6e s SSL connection
1020: 20 70 72 6f 63 65 73 73 0a 20 2a 0a 20 2a 20 52 process. *. * R
1030: 65 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a esults:. *.None.
1040: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1050: 74 73 3a 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c ts:. *.Calls cal
1060: 6c 62 61 63 6b 20 28 69 66 20 64 65 66 69 6e 65 lback (if define
1070: 64 29 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d d). *-----------
1080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
10b0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
10c0: 74 69 63 20 76 6f 69 64 0a 49 6e 66 6f 43 61 6c tic void.InfoCal
10d0: 6c 62 61 63 6b 28 63 6f 6e 73 74 20 53 53 4c 20 lback(const SSL
10e0: 2a 73 73 6c 2c 20 69 6e 74 20 77 68 65 72 65 2c *ssl, int where,
10f0: 20 69 6e 74 20 72 65 74 29 0a 7b 0a 20 20 20 20 int ret).{.
1100: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
1110: 3d 20 28 53 74 61 74 65 2a 29 53 53 4c 5f 67 65 = (State*)SSL_ge
1120: 74 5f 61 70 70 5f 64 61 74 61 28 28 53 53 4c 20 t_app_data((SSL
1130: 2a 29 73 73 6c 29 3b 0a 20 20 20 20 54 63 6c 5f *)ssl);. Tcl_
1140: 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 20 20 Obj *cmdPtr;.
1150: 20 63 68 61 72 20 2a 6d 61 6a 6f 72 3b 20 63 68 char *major; ch
1160: 61 72 20 2a 6d 69 6e 6f 72 3b 0a 0a 20 20 20 20 ar *minor;..
1170: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
1180: 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 );.. if (stat
1190: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d ePtr->callback =
11a0: 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c = (Tcl_Obj*)NULL
11b0: 29 0a 09 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 )..return;..
11c0: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
11d0: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
11e0: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a tr->callback);..
11f0: 23 69 66 20 30 0a 20 20 20 20 69 66 20 28 77 68 #if 0. if (wh
1200: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 ere & SSL_CB_ALE
1210: 52 54 29 20 7b 0a 09 73 65 76 20 3d 20 53 53 4c RT) {..sev = SSL
1220: 5f 61 6c 65 72 74 5f 74 79 70 65 5f 73 74 72 69 _alert_type_stri
1230: 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a 09 69 ng_long(ret);..i
1240: 66 20 28 73 74 72 63 6d 70 28 20 73 65 76 2c 20 f (strcmp( sev,
1250: 22 66 61 74 61 6c 22 29 3d 3d 30 29 20 7b 09 2f "fatal")==0) {./
1260: 2a 20 4d 61 70 20 74 6f 20 65 72 72 6f 72 20 2a * Map to error *
1270: 2f 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 /.. Tls_Error
1280: 28 73 74 61 74 65 50 74 72 2c 20 53 53 4c 5f 45 (statePtr, SSL_E
1290: 52 52 4f 52 28 73 73 6c 2c 20 30 29 29 3b 0a 09 RROR(ssl, 0));..
12a0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 09 7d 0a 20 return;..}.
12b0: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 }.#endif.
12c0: 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f if (where & SSL_
12d0: 43 42 5f 48 41 4e 44 53 48 41 4b 45 5f 53 54 41 CB_HANDSHAKE_STA
12e0: 52 54 29 20 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 RT) {..major = "
12f0: 68 61 6e 64 73 68 61 6b 65 22 3b 0a 09 6d 69 6e handshake";..min
1300: 6f 72 20 3d 20 22 73 74 61 72 74 22 3b 0a 20 20 or = "start";.
1310: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 77 68 65 } else if (whe
1320: 72 65 20 26 20 53 53 4c 5f 43 42 5f 48 41 4e 44 re & SSL_CB_HAND
1330: 53 48 41 4b 45 5f 44 4f 4e 45 29 20 7b 0a 09 6d SHAKE_DONE) {..m
1340: 61 6a 6f 72 20 3d 20 22 68 61 6e 64 73 68 61 6b ajor = "handshak
1350: 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d 20 22 64 6f e";..minor = "do
1360: 6e 65 22 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ne";. } else
1370: 7b 0a 09 69 66 20 28 77 68 65 72 65 20 26 20 53 {..if (where & S
1380: 53 4c 5f 43 42 5f 41 4c 45 52 54 29 09 09 6d 61 SL_CB_ALERT)..ma
1390: 6a 6f 72 20 3d 20 22 61 6c 65 72 74 22 3b 0a 09 jor = "alert";..
13a0: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
13b0: 20 53 53 4c 5f 53 54 5f 43 4f 4e 4e 45 43 54 29 SSL_ST_CONNECT)
13c0: 09 6d 61 6a 6f 72 20 3d 20 22 63 6f 6e 6e 65 63 .major = "connec
13d0: 74 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 t";..else if (wh
13e0: 65 72 65 20 26 20 53 53 4c 5f 53 54 5f 41 43 43 ere & SSL_ST_ACC
13f0: 45 50 54 29 09 09 6d 61 6a 6f 72 20 3d 20 22 61 EPT)..major = "a
1400: 63 63 65 70 74 22 3b 0a 09 65 6c 73 65 09 09 09 ccept";..else...
1410: 09 09 6d 61 6a 6f 72 20 3d 20 22 75 6e 6b 6e 6f ..major = "unkno
1420: 77 6e 22 3b 0a 0a 09 69 66 20 28 77 68 65 72 65 wn";...if (where
1430: 20 26 20 53 53 4c 5f 43 42 5f 52 45 41 44 29 09 & SSL_CB_READ).
1440: 09 6d 69 6e 6f 72 20 3d 20 22 72 65 61 64 22 3b .minor = "read";
1450: 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 ..else if (where
1460: 20 26 20 53 53 4c 5f 43 42 5f 57 52 49 54 45 29 & SSL_CB_WRITE)
1470: 09 09 6d 69 6e 6f 72 20 3d 20 22 77 72 69 74 65 ..minor = "write
1480: 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 ";..else if (whe
1490: 72 65 20 26 20 53 53 4c 5f 43 42 5f 4c 4f 4f 50 re & SSL_CB_LOOP
14a0: 29 09 09 6d 69 6e 6f 72 20 3d 20 22 6c 6f 6f 70 )..minor = "loop
14b0: 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 ";..else if (whe
14c0: 72 65 20 26 20 53 53 4c 5f 43 42 5f 45 58 49 54 re & SSL_CB_EXIT
14d0: 29 09 09 6d 69 6e 6f 72 20 3d 20 22 65 78 69 74 )..minor = "exit
14e0: 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 6d 69 6e ";..else.....min
14f0: 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a or = "unknown";.
1500: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c }.. Tcl_L
1510: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1520: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1530: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a nterp, cmdPtr, .
1540: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
1550: 6e 67 4f 62 6a 28 20 22 69 6e 66 6f 22 2c 20 2d ngObj( "info", -
1560: 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 1));.. Tcl_Li
1570: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
1580: 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e nt( statePtr->in
1590: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 terp, cmdPtr, ..
15a0: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
15b0: 67 4f 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 gObj( Tcl_GetCha
15c0: 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 nnelName(statePt
15d0: 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b r->self), -1) );
15e0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
15f0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
1600: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1610: 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 , cmdPtr,.. T
1620: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1630: 20 6d 61 6a 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a major, -1) );..
1640: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1650: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1660: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1670: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1680: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d _NewStringObj( m
1690: 69 6e 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 inor, -1) );..
16a0: 20 20 69 66 20 28 77 68 65 72 65 20 26 20 28 53 if (where & (S
16b0: 53 4c 5f 43 42 5f 4c 4f 4f 50 7c 53 53 4c 5f 43 SL_CB_LOOP|SSL_C
16c0: 42 5f 45 58 49 54 29 29 20 7b 0a 09 54 63 6c 5f B_EXIT)) {..Tcl_
16d0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
16e0: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e ment( statePtr->
16f0: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a interp, cmdPtr,.
1700: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
1710: 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 65 ngObj( SSL_state
1720: 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c _string_long(ssl
1730: 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 ), -1) );. }
1740: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
1750: 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 7b SSL_CB_ALERT) {
1760: 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 70 ..const char *cp
1770: 20 3d 20 28 63 68 61 72 20 2a 29 20 53 53 4c 5f = (char *) SSL_
1780: 61 6c 65 72 74 5f 64 65 73 63 5f 73 74 72 69 6e alert_desc_strin
1790: 67 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a 0a 09 54 g_long(ret);...T
17a0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
17b0: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
17c0: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
17d0: 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 r,.. Tcl_NewS
17e0: 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 tringObj( cp, -1
17f0: 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ) );. } else
1800: 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 {..Tcl_ListObjAp
1810: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 pendElement( sta
1820: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
1830: 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f mdPtr,.. Tcl_
1840: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 NewStringObj( SS
1850: 4c 5f 73 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c L_state_string_l
1860: 6f 6e 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b ong(ssl), -1) );
1870: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 50 . }. Tcl_P
1880: 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 reserve( (Client
1890: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e Data) statePtr->
18a0: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c interp);. Tcl
18b0: 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 _Preserve( (Clie
18c0: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
18d0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 );.. Tcl_Incr
18e0: 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 RefCount( cmdPtr
18f0: 29 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 54 63 );. (void) Tc
1900: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 l_EvalObjEx(stat
1910: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1920: 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 dPtr, TCL_EVAL_G
1930: 4c 4f 42 41 4c 29 3b 0a 20 20 20 20 54 63 6c 5f LOBAL);. Tcl_
1940: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d DecrRefCount( cm
1950: 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f dPtr);.. Tcl_
1960: 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 Release( (Client
1970: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
1980: 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 . Tcl_Release
1990: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 ( (ClientData) s
19a0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
19b0: 3b 0a 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ;..}.../*. *----
19c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1a00: 20 2a 0a 20 2a 20 56 65 72 69 66 79 43 61 6c 6c *. * VerifyCall
1a10: 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 4d 6f back --. *. *.Mo
1a20: 6e 69 74 6f 72 73 20 53 53 4c 20 63 65 72 74 69 nitors SSL certi
1a30: 66 69 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f ficate validatio
1a40: 6e 20 70 72 6f 63 65 73 73 2e 0a 20 2a 09 54 68 n process.. *.Th
1a50: 69 73 20 69 73 20 63 61 6c 6c 65 64 20 77 68 65 is is called whe
1a60: 6e 65 76 65 72 20 61 20 63 65 72 74 69 66 69 63 never a certific
1a70: 61 74 65 20 69 73 20 69 6e 73 70 65 63 74 65 64 ate is inspected
1a80: 0a 20 2a 09 6f 72 20 64 65 63 69 64 65 64 20 69 . *.or decided i
1a90: 6e 76 61 6c 69 64 2e 0a 20 2a 0a 20 2a 20 52 65 nvalid.. *. * Re
1aa0: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 63 61 6c 6c sults:. *.A call
1ab0: 62 61 63 6b 20 62 6f 75 6e 64 20 74 6f 20 74 68 back bound to th
1ac0: 65 20 73 6f 63 6b 65 74 20 6d 61 79 20 72 65 74 e socket may ret
1ad0: 75 72 6e 20 6f 6e 65 20 6f 66 3a 0a 20 2a 09 20 urn one of:. *.
1ae0: 20 20 20 30 09 09 09 2d 20 74 68 65 20 63 65 72 0...- the cer
1af0: 74 69 66 69 63 61 74 65 20 69 73 20 64 65 65 6d tificate is deem
1b00: 65 64 20 69 6e 76 61 6c 69 64 0a 20 2a 09 20 20 ed invalid. *.
1b10: 20 20 31 09 09 09 2d 20 74 68 65 20 63 65 72 74 1...- the cert
1b20: 69 66 69 63 61 74 65 20 69 73 20 64 65 65 6d 65 ificate is deeme
1b30: 64 20 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 65 d valid. *. e
1b40: 6d 70 74 79 20 73 74 72 69 6e 67 09 2d 20 6e 6f mpty string.- no
1b50: 20 63 68 61 6e 67 65 20 74 6f 20 63 65 72 74 69 change to certi
1b60: 66 69 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f ficate validatio
1b70: 6e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 n. *. * Side eff
1b80: 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 72 72 ects:. *.The err
1b90: 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 63 75 field of the cu
1ba0: 72 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 69 76 rrently operativ
1bb0: 65 20 53 74 61 74 65 20 69 73 20 73 65 74 0a 20 e State is set.
1bc0: 2a 09 20 20 74 6f 20 61 20 73 74 72 69 6e 67 20 *. to a string
1bd0: 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 53 describing the S
1be0: 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 66 SL negotiation f
1bf0: 61 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20 2a ailure reason. *
1c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c40: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
1c50: 6e 74 0a 56 65 72 69 66 79 43 61 6c 6c 62 61 63 nt.VerifyCallbac
1c60: 6b 28 69 6e 74 20 6f 6b 2c 20 58 35 30 39 5f 53 k(int ok, X509_S
1c70: 54 4f 52 45 5f 43 54 58 20 2a 63 74 78 29 0a 7b TORE_CTX *ctx).{
1c80: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d . Tcl_Obj *cm
1c90: 64 50 74 72 2c 20 2a 72 65 73 75 6c 74 3b 0a 20 dPtr, *result;.
1ca0: 20 20 20 63 68 61 72 20 2a 65 72 72 53 74 72 2c char *errStr,
1cb0: 20 2a 73 74 72 69 6e 67 3b 0a 20 20 20 20 54 63 *string;. Tc
1cc0: 6c 5f 53 69 7a 65 20 6c 65 6e 67 74 68 3b 0a 20 l_Size length;.
1cd0: 20 20 20 53 53 4c 20 20 20 2a 73 73 6c 09 09 3d SSL *ssl..=
1ce0: 20 28 53 53 4c 2a 29 58 35 30 39 5f 53 54 4f 52 (SSL*)X509_STOR
1cf0: 45 5f 43 54 58 5f 67 65 74 5f 65 78 5f 64 61 74 E_CTX_get_ex_dat
1d00: 61 28 63 74 78 2c 20 53 53 4c 5f 67 65 74 5f 65 a(ctx, SSL_get_e
1d10: 78 5f 64 61 74 61 5f 58 35 30 39 5f 53 54 4f 52 x_data_X509_STOR
1d20: 45 5f 43 54 58 5f 69 64 78 28 29 29 3b 0a 20 20 E_CTX_idx());.
1d30: 20 20 58 35 30 39 20 20 2a 63 65 72 74 09 09 3d X509 *cert..=
1d40: 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f X509_STORE_CTX_
1d50: 67 65 74 5f 63 75 72 72 65 6e 74 5f 63 65 72 74 get_current_cert
1d60: 28 63 74 78 29 3b 0a 20 20 20 20 53 74 61 74 65 (ctx);. State
1d70: 20 2a 73 74 61 74 65 50 74 72 09 3d 20 28 53 74 *statePtr.= (St
1d80: 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f 61 70 70 ate*)SSL_get_app
1d90: 5f 64 61 74 61 28 73 73 6c 29 3b 0a 20 20 20 20 _data(ssl);.
1da0: 69 6e 74 20 64 65 70 74 68 09 09 3d 20 58 35 30 int depth..= X50
1db0: 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 9_STORE_CTX_get_
1dc0: 65 72 72 6f 72 5f 64 65 70 74 68 28 63 74 78 29 error_depth(ctx)
1dd0: 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 09 09 3d ;. int err..=
1de0: 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f X509_STORE_CTX_
1df0: 67 65 74 5f 65 72 72 6f 72 28 63 74 78 29 3b 0a get_error(ctx);.
1e00: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 56 65 . dprintf("Ve
1e10: 72 69 66 79 3a 20 25 64 22 2c 20 6f 6b 29 3b 0a rify: %d", ok);.
1e20: 0a 20 20 20 20 69 66 20 28 21 6f 6b 29 20 7b 0a . if (!ok) {.
1e30: 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 72 2a .errStr = (char*
1e40: 29 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 )X509_verify_cer
1e50: 74 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 t_error_string(e
1e60: 72 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 rr);. } else
1e70: 7b 0a 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 {..errStr = (cha
1e80: 72 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 r *)0;. }..
1e90: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
1ea0: 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c callback == (Tcl
1eb0: 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 _Obj*)NULL) {..i
1ec0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 76 66 6c f (statePtr->vfl
1ed0: 61 67 73 20 26 20 53 53 4c 5f 56 45 52 49 46 59 ags & SSL_VERIFY
1ee0: 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 _FAIL_IF_NO_PEER
1ef0: 5f 43 45 52 54 29 20 7b 0a 09 20 20 20 20 72 65 _CERT) {.. re
1f00: 74 75 72 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 65 turn ok;..} else
1f10: 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 31 {.. return 1
1f20: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 ;..}. }. c
1f30: 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c mdPtr = Tcl_Dupl
1f40: 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 icateObj(statePt
1f50: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 r->callback);..
1f60: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
1f70: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 pendElement( sta
1f80: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
1f90: 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c mdPtr, .. Tcl
1fa0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 _NewStringObj( "
1fb0: 76 65 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a verify", -1));..
1fc0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1fd0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1fe0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1ff0: 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 cmdPtr, .. Tc
2000: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
2010: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
2020: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c me(statePtr->sel
2030: 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 f), -1) );..
2040: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
2050: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
2060: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
2070: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
2080: 49 6e 74 4f 62 6a 28 20 64 65 70 74 68 29 20 29 IntObj( depth) )
2090: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
20a0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
20b0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
20c0: 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 p, cmdPtr,..
20d0: 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 Tls_NewX509Obj(
20e0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
20f0: 2c 20 63 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 , cert) );..
2100: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
2110: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
2120: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
2130: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
2140: 49 6e 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a IntObj( ok) );..
2150: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
2160: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
2170: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2180: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
2190: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 _NewStringObj( e
21a0: 72 72 53 74 72 20 3f 20 65 72 72 53 74 72 20 3a rrStr ? errStr :
21b0: 20 22 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 "", -1) );..
21c0: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 Tcl_Preserve( (
21d0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
21e0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 ePtr->interp);.
21f0: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 Tcl_Preserve(
2200: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
2210: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 73 74 atePtr);.. st
2220: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
2230: 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 TLS_TCL_CALLBAC
2240: 4b 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 K;.. Tcl_Incr
2250: 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 RefCount( cmdPtr
2260: 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 45 );. if (Tcl_E
2270: 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 74 valObjEx(statePt
2280: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
2290: 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 r, TCL_EVAL_GLOB
22a0: 41 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b AL) != TCL_OK) {
22b0: 0a 09 2f 2a 20 49 74 20 67 6f 74 20 61 6e 20 65 ../* It got an e
22c0: 72 72 6f 72 20 2d 20 72 65 6a 65 63 74 20 74 68 rror - reject th
22d0: 65 20 63 65 72 74 69 66 69 63 61 74 65 2e 09 09 e certificate...
22e0: 2a 2f 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 */..Tcl_Backgrou
22f0: 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 ndError( statePt
2300: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 6f 6b 20 r->interp);..ok
2310: 3d 20 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 = 0;. } else
2320: 7b 0a 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f {..result = Tcl_
2330: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 GetObjResult(sta
2340: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
2350: 09 73 74 72 69 6e 67 20 3d 20 54 63 6c 5f 47 65 .string = Tcl_Ge
2360: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 72 tStringFromObj(r
2370: 65 73 75 6c 74 2c 20 26 6c 65 6e 67 74 68 29 3b esult, &length);
2380: 0a 09 2f 2a 20 41 6e 20 65 6d 70 74 79 20 72 65 ../* An empty re
2390: 73 75 6c 74 20 6c 65 61 76 65 73 20 76 65 72 69 sult leaves veri
23a0: 66 69 63 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 fication unchang
23b0: 65 64 2e 09 2a 2f 0a 09 69 66 20 28 73 74 72 69 ed..*/..if (stri
23c0: 6e 67 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6c 65 ng != NULL && le
23d0: 6e 67 74 68 20 3e 20 30 29 20 7b 0a 09 20 20 20 ngth > 0) {..
23e0: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 if (Tcl_GetIntF
23f0: 72 6f 6d 4f 62 6a 28 73 74 61 74 65 50 74 72 2d romObj(statePtr-
2400: 3e 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 2c >interp, result,
2410: 20 26 6f 6b 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 &ok) != TCL_OK)
2420: 20 7b 0a 09 09 54 63 6c 5f 42 61 63 6b 67 72 6f {...Tcl_Backgro
2430: 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 undError(statePt
2440: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 09 6f 6b r->interp);...ok
2450: 20 3d 20 30 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a = 0;.. }..}.
2460: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 }. Tcl_De
2470: 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 crRefCount( cmdP
2480: 74 72 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 tr);.. stateP
2490: 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 tr->flags &= ~(T
24a0: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 LS_TCL_CALLBACK)
24b0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 ;.. Tcl_Relea
24c0: 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 se( (ClientData)
24d0: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
24e0: 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c Tcl_Release( (Cl
24f0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
2500: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 tr->interp);..
2510: 20 20 72 65 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a return(ok);./*
2520: 20 42 79 20 64 65 66 61 75 6c 74 2c 20 6c 65 61 By default, lea
2530: 76 65 20 76 65 72 69 66 69 63 61 74 69 6f 6e 20 ve verification
2540: 75 6e 63 68 61 6e 67 65 64 2e 09 2a 2f 0a 7d 0a unchanged..*/.}.
2550: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
2560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
25a0: 20 54 6c 73 5f 45 72 72 6f 72 20 2d 2d 0a 20 2a Tls_Error --. *
25b0: 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 . *.Calls callba
25c0: 63 6b 20 77 69 74 68 20 24 66 64 20 61 6e 64 20 ck with $fd and
25d0: 24 6d 73 67 20 2d 20 73 6f 20 74 68 65 20 63 61 $msg - so the ca
25e0: 6c 6c 62 61 63 6b 20 63 61 6e 20 64 65 63 69 64 llback can decid
25f0: 65 0a 20 2a 09 77 68 61 74 20 74 6f 20 64 6f 20 e. *.what to do
2600: 77 69 74 68 20 65 72 72 6f 72 73 2e 0a 20 2a 0a with errors.. *.
2610: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2620: 0a 20 2a 09 54 68 65 20 65 72 72 20 66 69 65 6c . *.The err fiel
2630: 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 d of the current
2640: 6c 79 20 6f 70 65 72 61 74 69 76 65 20 53 74 61 ly operative Sta
2650: 74 65 20 69 73 20 73 65 74 0a 20 2a 09 20 20 74 te is set. *. t
2660: 6f 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 o a string descr
2670: 69 62 69 6e 67 20 74 68 65 20 53 53 4c 20 6e 65 ibing the SSL ne
2680: 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c 75 72 gotiation failur
2690: 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d e reason. *-----
26a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
26b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
26c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
26d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
26e0: 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 45 72 72 6f */.void.Tls_Erro
26f0: 72 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 r(State *statePt
2700: 72 2c 20 63 68 61 72 20 2a 6d 73 67 29 0a 7b 0a r, char *msg).{.
2710: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 Tcl_Obj *cmd
2720: 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 Ptr;.. dprint
2730: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
2740: 20 20 69 66 20 28 6d 73 67 20 26 26 20 2a 6d 73 if (msg && *ms
2750: 67 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 g) {..Tcl_SetErr
2760: 6f 72 43 6f 64 65 28 73 74 61 74 65 50 74 72 2d orCode(statePtr-
2770: 3e 69 6e 74 65 72 70 2c 20 22 53 53 4c 22 2c 20 >interp, "SSL",
2780: 6d 73 67 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c msg, (char *)NUL
2790: 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b L);. } else {
27a0: 0a 09 6d 73 67 20 3d 20 54 63 6c 5f 47 65 74 53 ..msg = Tcl_GetS
27b0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 54 63 6c tringFromObj(Tcl
27c0: 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 _GetObjResult(st
27d0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 2c atePtr->interp),
27e0: 20 28 54 63 6c 5f 53 69 7a 65 20 2a 29 4e 55 4c (Tcl_Size *)NUL
27f0: 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 L);. }. st
2800: 61 74 65 50 74 72 2d 3e 65 72 72 20 3d 20 6d 73 atePtr->err = ms
2810: 67 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 g;.. if (stat
2820: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d ePtr->callback =
2830: 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c = (Tcl_Obj*)NULL
2840: 29 20 7b 0a 09 63 68 61 72 20 62 75 66 5b 42 55 ) {..char buf[BU
2850: 46 53 49 5a 5d 3b 0a 09 73 70 72 69 6e 74 66 28 FSIZ];..sprintf(
2860: 62 75 66 2c 20 22 53 53 4c 20 63 68 61 6e 6e 65 buf, "SSL channe
2870: 6c 20 5c 22 25 73 5c 22 3a 20 65 72 72 6f 72 3a l \"%s\": error:
2880: 20 25 73 22 2c 0a 09 20 20 20 20 54 63 6c 5f 47 %s",.. Tcl_G
2890: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
28a0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 6d atePtr->self), m
28b0: 73 67 29 3b 0a 09 54 63 6c 5f 53 65 74 52 65 73 sg);..Tcl_SetRes
28c0: 75 6c 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ult( statePtr->i
28d0: 6e 74 65 72 70 2c 20 62 75 66 2c 20 54 43 4c 5f nterp, buf, TCL_
28e0: 56 4f 4c 41 54 49 4c 45 29 3b 0a 09 54 63 6c 5f VOLATILE);..Tcl_
28f0: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 BackgroundError(
2900: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
2910: 70 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 p);..return;.
2920: 20 7d 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 }. cmdPtr =
2930: 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a Tcl_DuplicateObj
2940: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
2950: 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c ack);.. Tcl_L
2960: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
2970: 65 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ent(statePtr->in
2980: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 terp, cmdPtr, ..
2990: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
29a0: 67 4f 62 6a 28 22 65 72 72 6f 72 22 2c 20 2d 31 gObj("error", -1
29b0: 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 ));.. Tcl_Lis
29c0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
29d0: 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 t(statePtr->inte
29e0: 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 rp, cmdPtr, ..
29f0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
2a00: 62 6a 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 bj(Tcl_GetChanne
2a10: 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e lName(statePtr->
2a20: 73 65 6c 66 29 2c 20 2d 31 29 29 3b 0a 0a 20 20 self), -1));..
2a30: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
2a40: 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 endElement(state
2a50: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
2a60: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
2a70: 77 53 74 72 69 6e 67 4f 62 6a 28 6d 73 67 2c 20 wStringObj(msg,
2a80: 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 -1));.. Tcl_P
2a90: 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 reserve((ClientD
2aa0: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 ata) statePtr->i
2ab0: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f nterp);. Tcl_
2ac0: 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 Preserve((Client
2ad0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
2ae0: 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
2af0: 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a fCount(cmdPtr);.
2b00: 20 20 20 20 69 66 20 28 54 63 6c 5f 45 76 61 6c if (Tcl_Eval
2b10: 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72 2d 3e ObjEx(statePtr->
2b20: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 interp, cmdPtr,
2b30: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 TCL_EVAL_GLOBAL)
2b40: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 != TCL_OK) {..T
2b50: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 cl_BackgroundErr
2b60: 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 or(statePtr->int
2b70: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 erp);. }.
2b80: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
2b90: 28 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 (cmdPtr);.. T
2ba0: 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 cl_Release((Clie
2bb0: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
2bc0: 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 );. Tcl_Relea
2bd0: 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 se((ClientData)
2be0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2bf0: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d );.}.../*. *----
2c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2c40: 20 2a 0a 20 2a 20 50 61 73 73 77 6f 72 64 43 61 *. * PasswordCa
2c50: 6c 6c 62 61 63 6b 20 2d 2d 20 0a 20 2a 0a 20 2a llback -- . *. *
2c60: 09 43 61 6c 6c 65 64 20 77 68 65 6e 20 61 20 70 .Called when a p
2c70: 61 73 73 77 6f 72 64 20 69 73 20 6e 65 65 64 65 assword is neede
2c80: 64 20 74 6f 20 75 6e 70 61 63 6b 20 52 53 41 20 d to unpack RSA
2c90: 61 6e 64 20 50 45 4d 20 6b 65 79 73 2e 0a 20 2a and PEM keys.. *
2ca0: 09 45 76 61 6c 73 20 61 6e 79 20 62 6f 75 6e 64 .Evals any bound
2cb0: 20 70 61 73 73 77 6f 72 64 20 73 63 72 69 70 74 password script
2cc0: 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 and returns the
2cd0: 20 72 65 73 75 6c 74 20 61 73 0a 20 2a 09 74 68 result as. *.th
2ce0: 65 20 70 61 73 73 77 6f 72 64 20 73 74 72 69 6e e password strin
2cf0: 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d g.. *-----------
2d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66 --------. */.#if
2d40: 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f def PRE_OPENSSL_
2d50: 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e 6f 20 77 0_9_4./*. * No w
2d60: 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 75 73 65 ay to handle use
2d70: 72 2d 64 61 74 61 20 74 68 65 72 65 66 6f 72 65 r-data therefore
2d80: 20 6e 6f 20 77 61 79 20 77 69 74 68 6f 75 74 20 no way without
2d90: 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 61 72 69 a global. * vari
2da0: 61 62 6c 65 20 74 6f 20 61 63 63 65 73 73 20 74 able to access t
2db0: 68 65 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 he Tcl interpret
2dc0: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e er..*/.static in
2dd0: 74 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 t.PasswordCallba
2de0: 63 6b 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e ck(char *buf, in
2df0: 74 20 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 t size, int veri
2e00: 66 79 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e fy).{. return
2e10: 20 2d 31 3b 0a 20 20 20 20 09 62 75 66 20 3d 20 -1;. .buf =
2e20: 62 75 66 3b 0a 09 73 69 7a 65 20 3d 20 73 69 7a buf;..size = siz
2e30: 65 3b 0a 09 76 65 72 69 66 79 20 3d 20 76 65 72 e;..verify = ver
2e40: 69 66 79 3b 0a 7d 0a 23 65 6c 73 65 0a 73 74 61 ify;.}.#else.sta
2e50: 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 tic int.Password
2e60: 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 Callback(char *b
2e70: 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e uf, int size, in
2e80: 74 20 76 65 72 69 66 79 2c 20 76 6f 69 64 20 2a t verify, void *
2e90: 75 64 61 74 61 29 0a 7b 0a 20 20 20 20 53 74 61 udata).{. Sta
2ea0: 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d 20 28 te *statePtr.= (
2eb0: 53 74 61 74 65 20 2a 29 20 75 64 61 74 61 3b 0a State *) udata;.
2ec0: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a Tcl_Interp *
2ed0: 69 6e 74 65 72 70 09 3d 20 73 74 61 74 65 50 74 interp.= statePt
2ee0: 72 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20 20 54 r->interp;. T
2ef0: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a cl_Obj *cmdPtr;.
2f00: 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 3b 0a int result;.
2f10: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
2f20: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
2f30: 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 (statePtr->passw
2f40: 6f 72 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ord == NULL) {..
2f50: 69 66 20 28 54 63 6c 5f 45 76 61 6c 45 78 28 69 if (Tcl_EvalEx(i
2f60: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 61 73 nterp, "tls::pas
2f70: 73 77 6f 72 64 22 2c 20 2d 31 2c 20 54 43 4c 5f sword", -1, TCL_
2f80: 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 0a 09 09 3d EVAL_GLOBAL)...=
2f90: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 = TCL_OK) {..
2fa0: 20 63 68 61 72 20 2a 72 65 74 20 3d 20 28 63 68 char *ret = (ch
2fb0: 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 ar *) Tcl_GetStr
2fc0: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ingResult(interp
2fd0: 29 3b 0a 09 20 20 20 20 73 74 72 6e 63 70 79 28 );.. strncpy(
2fe0: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f buf, ret, (size_
2ff0: 74 29 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 72 t) size);.. r
3000: 65 74 75 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 eturn (int)strle
3010: 6e 28 72 65 74 29 3b 0a 09 7d 20 65 6c 73 65 20 n(ret);..} else
3020: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 {.. return -1
3030: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ;..}. }..
3040: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
3050: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
3060: 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 0a tr->password);..
3070: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
3080: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
3090: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
30a0: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
30b0: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
30c0: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 tatePtr);.. T
30d0: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
30e0: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 72 65 73 cmdPtr);. res
30f0: 75 6c 74 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 ult = Tcl_EvalOb
3100: 6a 45 78 28 69 6e 74 65 72 70 2c 20 63 6d 64 50 jEx(interp, cmdP
3110: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f tr, TCL_EVAL_GLO
3120: 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 BAL);. if (re
3130: 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 sult != TCL_OK)
3140: 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e {..Tcl_Backgroun
3150: 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d dError(statePtr-
3160: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a >interp);. }.
3170: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
3180: 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a 20 ount(cmdPtr);..
3190: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 Tcl_Release((
31a0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
31b0: 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 ePtr);. Tcl_R
31c0: 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 elease((ClientDa
31d0: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
31e0: 74 65 72 70 29 3b 0a 0a 20 20 20 20 69 66 20 28 terp);.. if (
31f0: 72 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f 4f 4b result == TCL_OK
3200: 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 74 20 3d ) {..char *ret =
3210: 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 (char *) Tcl_Ge
3220: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e tStringResult(in
3230: 74 65 72 70 29 3b 0a 09 73 74 72 6e 63 70 79 28 terp);..strncpy(
3240: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f buf, ret, (size_
3250: 74 29 20 73 69 7a 65 29 3b 0a 09 72 65 74 75 72 t) size);..retur
3260: 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 72 65 n (int)strlen(re
3270: 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b t);. } else {
3280: 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 ..return -1;.
3290: 20 7d 0a 20 20 20 20 09 76 65 72 69 66 79 20 3d }. .verify =
32a0: 20 76 65 72 69 66 79 3b 0a 7d 0a 23 65 6e 64 69 verify;.}.#endi
32b0: 66 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d f.../*. *-------
32c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
3300: 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 * CiphersObjCmd
3310: 20 2d 2d 20 6c 69 73 74 20 61 76 61 69 6c 61 62 -- list availab
3320: 6c 65 20 63 69 70 68 65 72 73 0a 20 2a 0a 20 2a le ciphers. *. *
3330: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
3340: 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 is invoked to pr
3350: 6f 63 65 73 73 20 74 68 65 20 22 74 6c 73 3a 3a ocess the "tls::
3360: 63 69 70 68 65 72 73 22 20 63 6f 6d 6d 61 6e 64 ciphers" command
3370: 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 76 61 69 . *.to list avai
3380: 6c 61 62 6c 65 20 63 69 70 68 65 72 73 2c 20 62 lable ciphers, b
3390: 61 73 65 64 20 75 70 6f 6e 20 70 72 6f 74 6f 63 ased upon protoc
33a0: 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a 20 2a 0a ol selected.. *.
33b0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
33c0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 standard Tcl re
33d0: 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a sult list.. *. *
33e0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
33f0: 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 61 6e 64 *.constructs and
3400: 20 64 65 73 74 72 6f 79 73 20 53 53 4c 20 63 6f destroys SSL co
3410: 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 ntext (CTX). *.
3420: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
3430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3460: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
3470: 69 6e 74 0a 43 69 70 68 65 72 73 4f 62 6a 43 6d int.CiphersObjCm
3480: 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e d(clientData, in
3490: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
34a0: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ). ClientData
34b0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 clientData;./*
34c0: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 Not used. */.
34d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
34e0: 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a erp;. int obj
34f0: 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a c;. Tcl_Obj.*
3500: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a const objv[];.{.
3510: 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 static const
3520: 20 63 68 61 72 20 2a 70 72 6f 74 6f 63 6f 6c 73 char *protocols
3530: 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c 32 22 2c 09 [] = {.."ssl2",.
3540: 22 73 73 6c 33 22 2c 09 22 74 6c 73 31 22 2c 09 "ssl3",."tls1",.
3550: 22 74 6c 73 31 2e 31 22 2c 20 22 74 6c 73 31 2e "tls1.1", "tls1.
3560: 32 22 2c 20 22 74 6c 73 31 2e 33 22 2c 20 4e 55 2", "tls1.3", NU
3570: 4c 4c 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 6e LL. };. en
3580: 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 um protocol {..T
3590: 4c 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c LS_SSL2, TLS_SSL
35a0: 33 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 3, TLS_TLS1, TLS
35b0: 5f 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53 _TLS1_1, TLS_TLS
35c0: 31 5f 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 2c 1_2, TLS_TLS1_3,
35d0: 20 54 4c 53 5f 4e 4f 4e 45 0a 20 20 20 20 7d 3b TLS_NONE. };
35e0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
35f0: 6a 50 74 72 3b 0a 20 20 20 20 53 53 4c 5f 43 54 jPtr;. SSL_CT
3600: 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 X *ctx = NULL;.
3610: 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e 55 SSL *ssl = NU
3620: 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f 46 LL;. STACK_OF
3630: 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 6b (SSL_CIPHER) *sk
3640: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 70 2c 20 ;. char *cp,
3650: 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 20 buf[BUFSIZ];.
3660: 20 69 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 62 int index, verb
3670: 6f 73 65 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 ose = 0;.. dp
3680: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
3690: 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c .. if (objc <
36a0: 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 2 || objc > 3)
36b0: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
36c0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
36d0: 62 6a 76 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 3f bjv, "protocol ?
36e0: 76 65 72 62 6f 73 65 3f 22 29 3b 0a 09 72 65 74 verbose?");..ret
36f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3700: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c }. if (Tcl
3710: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a _GetIndexFromObj
3720: 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 ( interp, objv[1
3730: 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 22 70 ], protocols, "p
3740: 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c 0a 09 26 69 rotocol", 0,..&i
3750: 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 ndex) != TCL_OK)
3760: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
3770: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
3780: 69 66 20 28 6f 62 6a 63 20 3e 20 32 20 26 26 20 if (objc > 2 &&
3790: 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 Tcl_GetBooleanFr
37a0: 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f omObj( interp, o
37b0: 62 6a 76 5b 32 5d 2c 0a 09 26 76 65 72 62 6f 73 bjv[2],..&verbos
37c0: 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a e) != TCL_OK) {.
37d0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
37e0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 77 69 R;. }. swi
37f0: 74 63 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f tch ((enum proto
3800: 63 6f 6c 29 69 6e 64 65 78 29 20 7b 0a 20 20 20 col)index) {.
3810: 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 32 3a 0a case TLS_SSL2:.
3820: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
3830: 53 4c 32 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e SL2)...Tcl_Appen
3840: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
3850: 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 "protocol not su
3860: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
3870: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
3880: 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 ROR;.#else...ctx
3890: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 = SSL_CTX_new(S
38a0: 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 SLv2_method());
38b0: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 break;.#endif.
38c0: 20 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a case TLS_SSL3:
38d0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
38e0: 53 53 4c 33 29 0a 09 09 54 63 6c 5f 41 70 70 65 SSL3)...Tcl_Appe
38f0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
3900: 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 "protocol not s
3910: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
3920: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;...return TCL_E
3930: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 RROR;.#else...ct
3940: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 x = SSL_CTX_new(
3950: 53 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b SSLv3_method());
3960: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 break;.#endif.
3970: 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 case TLS_TLS1
3980: 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f :.#if defined(NO
3990: 5f 54 4c 53 31 29 0a 09 09 54 63 6c 5f 41 70 70 _TLS1)...Tcl_App
39a0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
39b0: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
39c0: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
39d0: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
39e0: 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 ERROR;.#else...c
39f0: 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 tx = SSL_CTX_new
3a00: 28 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 (TLSv1_method())
3a10: 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a ; break;.#endif.
3a20: 20 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 case TLS_TLS
3a30: 31 5f 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 1_1:.#if defined
3a40: 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a 09 09 54 63 (NO_TLS1_1)...Tc
3a50: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
3a60: 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c nterp, "protocol
3a70: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
3a80: 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e NULL);...return
3a90: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 TCL_ERROR;.#els
3aa0: 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 e...ctx = SSL_CT
3ab0: 58 5f 6e 65 77 28 54 4c 53 76 31 5f 31 5f 6d 65 X_new(TLSv1_1_me
3ac0: 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a thod()); break;.
3ad0: 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 #endif. case
3ae0: 54 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 66 20 TLS_TLS1_2:.#if
3af0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
3b00: 32 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 2)...Tcl_AppendR
3b10: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
3b20: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
3b30: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
3b40: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3b50: 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d R;.#else...ctx =
3b60: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 SSL_CTX_new(TLS
3b70: 76 31 5f 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 v1_2_method());
3b80: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 break;.#endif.
3b90: 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f case TLS_TLS1_
3ba0: 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 3:.#if defined(N
3bb0: 4f 5f 54 4c 53 31 5f 33 29 0a 09 09 54 63 6c 5f O_TLS1_3)...Tcl_
3bc0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3bd0: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
3be0: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
3bf0: 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 ULL);...return T
3c00: 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a CL_ERROR;.#else.
3c10: 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
3c20: 6e 65 77 28 54 4c 53 5f 6d 65 74 68 6f 64 28 29 new(TLS_method()
3c30: 29 3b 20 62 72 65 61 6b 3b 0a 20 20 20 20 20 20 ); break;.
3c40: 20 20 20 20 20 20 20 20 20 20 53 53 4c 5f 43 54 SSL_CT
3c50: 58 5f 73 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f X_set_min_proto_
3c60: 76 65 72 73 69 6f 6e 20 28 63 74 78 2c 20 54 4c version (ctx, TL
3c70: 53 31 5f 33 5f 56 45 52 53 49 4f 4e 29 3b 0a 20 S1_3_VERSION);.
3c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 S
3c90: 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 SL_CTX_set_max_p
3ca0: 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 roto_version (ct
3cb0: 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f x, TLS1_3_VERSIO
3cc0: 4e 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 64 N);.#endif. d
3cd0: 65 66 61 75 6c 74 3a 0a 09 09 62 72 65 61 6b 3b efault:...break;
3ce0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 . }. if (c
3cf0: 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 tx == NULL) {..T
3d00: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3d10: 69 6e 74 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 interp, REASON()
3d20: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
3d30: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
3d40: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 ROR;. }. s
3d50: 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 63 74 78 sl = SSL_new(ctx
3d60: 29 3b 0a 20 20 20 20 69 66 20 28 73 73 6c 20 3d );. if (ssl =
3d70: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
3d80: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3d90: 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 rp, REASON(), (c
3da0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 har *) NULL);..S
3db0: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
3dc0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
3dd0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f ROR;. }. o
3de0: 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c bjPtr = Tcl_NewL
3df0: 69 73 74 4f 62 6a 28 20 30 2c 20 4e 55 4c 4c 29 istObj( 0, NULL)
3e00: 3b 0a 0a 20 20 20 20 69 66 20 28 21 76 65 72 62 ;.. if (!verb
3e10: 6f 73 65 29 20 7b 0a 09 66 6f 72 20 28 69 6e 64 ose) {..for (ind
3e20: 65 78 20 3d 20 30 3b 20 3b 20 69 6e 64 65 78 2b ex = 0; ; index+
3e30: 2b 29 20 7b 0a 09 20 20 20 20 63 70 20 3d 20 28 +) {.. cp = (
3e40: 63 68 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63 69 char*)SSL_get_ci
3e50: 70 68 65 72 5f 6c 69 73 74 28 20 73 73 6c 2c 20 pher_list( ssl,
3e60: 69 6e 64 65 78 29 3b 0a 09 20 20 20 20 69 66 20 index);.. if
3e70: 28 63 70 20 3d 3d 20 4e 55 4c 4c 29 20 62 72 65 (cp == NULL) bre
3e80: 61 6b 3b 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 ak;.. Tcl_Lis
3e90: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
3ea0: 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 t( interp, objPt
3eb0: 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 r,...Tcl_NewStri
3ec0: 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 ngObj( cp, -1) )
3ed0: 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 ;..}. } else
3ee0: 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 5f {..sk = SSL_get_
3ef0: 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a 0a 09 ciphers(ssl);...
3f00: 66 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 for (index = 0;
3f10: 69 6e 64 65 78 20 3c 20 73 6b 5f 53 53 4c 5f 43 index < sk_SSL_C
3f20: 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 IPHER_num(sk); i
3f30: 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 72 ndex++) {.. r
3f40: 65 67 69 73 74 65 72 20 73 69 7a 65 5f 74 20 69 egister size_t i
3f50: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 49 50 48 45 ;.. SSL_CIPHE
3f60: 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 20 73 R_description( s
3f70: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c k_SSL_CIPHER_val
3f80: 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 2c 0a ue( sk, index),.
3f90: 09 09 09 09 20 20 20 20 62 75 66 2c 20 73 69 7a .... buf, siz
3fa0: 65 6f 66 28 62 75 66 29 29 3b 0a 09 20 20 20 20 eof(buf));..
3fb0: 66 6f 72 20 28 69 20 3d 20 73 74 72 6c 65 6e 28 for (i = strlen(
3fc0: 62 75 66 29 20 2d 20 31 3b 20 69 20 3b 20 69 2d buf) - 1; i ; i-
3fd0: 2d 29 20 7b 0a 09 09 69 66 20 28 62 75 66 5b 69 -) {...if (buf[i
3fe0: 5d 20 3d 3d 20 27 20 27 20 7c 7c 20 62 75 66 5b ] == ' ' || buf[
3ff0: 69 5d 20 3d 3d 20 27 5c 6e 27 20 7c 7c 0a 09 09 i] == '\n' ||...
4000: 20 20 20 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c buf[i] == '\
4010: 72 27 20 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 r' || buf[i] ==
4020: 27 5c 74 27 29 20 7b 0a 09 09 20 20 20 20 62 75 '\t') {... bu
4030: 66 5b 69 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 7d f[i] = '\0';...}
4040: 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 62 72 else {... br
4050: 65 61 6b 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a eak;...}.. }.
4060: 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
4070: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 AppendElement( i
4080: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 nterp, objPtr,..
4090: 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 .Tcl_NewStringOb
40a0: 6a 28 20 62 75 66 2c 20 2d 31 29 20 29 3b 0a 09 j( buf, -1) );..
40b0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f }. }. SSL_
40c0: 66 72 65 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 free(ssl);. S
40d0: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
40e0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 ;.. Tcl_SetOb
40f0: 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c jResult( interp,
4100: 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 objPtr);. re
4110: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
4120: 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 .clientData = c
4130: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f lientData;.}.../
4140: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4180: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 48 61 -------. *. * Ha
4190: 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 2d 2d ndshakeObjCmd --
41a0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 63 6f 6d 6d . *. *.This comm
41b0: 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 76 and is used to v
41c0: 65 72 69 66 79 20 77 68 65 74 68 65 72 20 74 68 erify whether th
41d0: 65 20 68 61 6e 64 73 68 61 6b 65 20 69 73 20 63 e handshake is c
41e0: 6f 6d 70 6c 65 74 65 0a 20 2a 09 6f 72 20 6e 6f omplete. *.or no
41f0: 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 t.. *. * Results
4200: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
4210: 54 63 6c 20 72 65 73 75 6c 74 2e 20 31 20 6d 65 Tcl result. 1 me
4220: 61 6e 73 20 68 61 6e 64 73 68 61 6b 65 20 63 6f ans handshake co
4230: 6d 70 6c 65 74 65 2c 20 30 20 6d 65 61 6e 73 20 mplete, 0 means
4240: 70 65 6e 64 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 pending.. *. * S
4250: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4260: 4d 61 79 20 66 6f 72 63 65 20 53 53 4c 20 6e 65 May force SSL ne
4270: 67 6f 74 69 61 74 69 6f 6e 20 74 6f 20 74 61 6b gotiation to tak
4280: 65 20 70 6c 61 63 65 2e 0a 20 2a 0a 20 2a 2d 2d e place.. *. *--
4290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42d0: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
42e0: 74 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d t HandshakeObjCm
42f0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
4300: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
4310: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
4320: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
4330: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
4340: 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 .Tcl_Channel cha
4350: 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e n;../* The chann
4360: 65 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 el to set a mode
4370: 20 6f 6e 2e 20 2a 2f 0a 09 53 74 61 74 65 20 2a on. */..State *
4380: 73 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c statePtr;../* cl
4390: 69 65 6e 74 20 73 74 61 74 65 20 66 6f 72 20 73 ient state for s
43a0: 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 09 63 6f sl socket */..co
43b0: 6e 73 74 20 63 68 61 72 20 2a 65 72 72 53 74 72 nst char *errStr
43c0: 20 3d 20 4e 55 4c 4c 3b 0a 09 69 6e 74 20 72 65 = NULL;..int re
43d0: 74 20 3d 20 31 3b 0a 09 69 6e 74 20 65 72 72 20 t = 1;..int err
43e0: 3d 20 30 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 = 0;...dprintf("
43f0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 69 66 20 28 Called");...if (
4400: 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 09 54 objc != 2) {...T
4410: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
4420: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
4430: 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 09 72 "channel");...r
4440: 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 eturn(TCL_ERROR)
4450: 3b 0a 09 7d 0a 0a 09 63 68 61 6e 20 3d 20 54 63 ;..}...chan = Tc
4460: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 l_GetChannel(int
4470: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
4480: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 ngFromObj(objv[1
4490: 5d 2c 20 28 54 63 6c 5f 53 69 7a 65 20 2a 29 4e ], (Tcl_Size *)N
44a0: 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 ULL), NULL);..if
44b0: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
44c0: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
44d0: 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 ..return(TCL_ERR
44e0: 4f 52 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a OR);..}.../*.. *
44f0: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
4500: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
4510: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a most channel.. *
4520: 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 /..chan = Tcl_Ge
4530: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
4540: 29 3b 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 43 );..if (Tcl_GetC
4550: 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 hannelType(chan)
4560: 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 != Tls_ChannelT
4570: 79 70 65 28 29 29 20 7b 0a 09 09 54 63 6c 5f 41 ype()) {...Tcl_A
4580: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
4590: 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c rp, "bad channel
45a0: 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 \"", Tcl_GetCha
45b0: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 nnelName(chan),
45c0: 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 "\": not a TLS c
45d0: 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a hannel", NULL);.
45e0: 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 ..return(TCL_ERR
45f0: 4f 52 29 3b 0a 09 7d 0a 09 73 74 61 74 65 50 74 OR);..}..statePt
4600: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 54 63 6c r = (State *)Tcl
4610: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
4620: 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 0a nceData(chan);..
4630: 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e .dprintf("Callin
4640: 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e g Tls_WaitForCon
4650: 6e 65 63 74 22 29 3b 0a 09 72 65 74 20 3d 20 54 nect");..ret = T
4660: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 ls_WaitForConnec
4670: 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 t(statePtr, &err
4680: 2c 20 31 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 , 1);..dprintf("
4690: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
46a0: 63 74 20 72 65 74 75 72 6e 65 64 3a 20 25 69 22 ct returned: %i"
46b0: 2c 20 72 65 74 29 3b 0a 0a 09 69 66 20 28 0a 09 , ret);...if (..
46c0: 20 20 20 20 72 65 74 20 3c 20 30 20 26 26 20 5c ret < 0 && \
46d0: 0a 09 20 20 20 20 28 28 73 74 61 74 65 50 74 72 .. ((statePtr
46e0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
46f0: 4c 5f 41 53 59 4e 43 29 20 26 26 20 65 72 72 20 L_ASYNC) && err
4700: 3d 3d 20 45 41 47 41 49 4e 29 0a 09 29 20 7b 0a == EAGAIN)..) {.
4710: 09 09 64 70 72 69 6e 74 66 28 22 41 73 79 6e 63 ..dprintf("Async
4720: 20 73 65 74 20 61 6e 64 20 65 72 72 20 3d 20 45 set and err = E
4730: 41 47 41 49 4e 22 29 3b 0a 09 09 72 65 74 20 3d AGAIN");...ret =
4740: 20 30 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 0;..} else if (
4750: 72 65 74 20 3c 20 30 29 20 7b 0a 09 09 65 72 72 ret < 0) {...err
4760: 53 74 72 20 3d 20 73 74 61 74 65 50 74 72 2d 3e Str = statePtr->
4770: 65 72 72 3b 0a 09 09 54 63 6c 5f 52 65 73 65 74 err;...Tcl_Reset
4780: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
4790: 09 09 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 65 ..Tcl_SetErrno(e
47a0: 72 72 29 3b 0a 0a 09 09 69 66 20 28 21 65 72 72 rr);....if (!err
47b0: 53 74 72 20 7c 7c 20 2a 65 72 72 53 74 72 20 3d Str || *errStr =
47c0: 3d 20 30 29 20 7b 0a 09 09 09 65 72 72 53 74 72 = 0) {....errStr
47d0: 20 3d 20 54 63 6c 5f 50 6f 73 69 78 45 72 72 6f = Tcl_PosixErro
47e0: 72 28 69 6e 74 65 72 70 29 3b 0a 09 09 7d 0a 0a r(interp);...}..
47f0: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
4800: 6c 74 28 69 6e 74 65 72 70 2c 20 22 68 61 6e 64 lt(interp, "hand
4810: 73 68 61 6b 65 20 66 61 69 6c 65 64 3a 20 22 2c shake failed: ",
4820: 20 65 72 72 53 74 72 2c 20 28 63 68 61 72 20 2a errStr, (char *
4830: 29 20 4e 55 4c 4c 29 3b 0a 09 09 64 70 72 69 6e ) NULL);...dprin
4840: 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 54 43 tf("Returning TC
4850: 4c 5f 45 52 52 4f 52 20 77 69 74 68 20 68 61 6e L_ERROR with han
4860: 64 73 68 61 6b 65 20 66 61 69 6c 65 64 3a 20 25 dshake failed: %
4870: 73 22 2c 20 65 72 72 53 74 72 29 3b 0a 09 09 72 s", errStr);...r
4880: 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 eturn(TCL_ERROR)
4890: 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 09 69 66 ;..} else {...if
48a0: 20 28 65 72 72 20 21 3d 20 30 29 20 7b 0a 09 09 (err != 0) {...
48b0: 09 64 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e .dprintf("Got an
48c0: 20 65 72 72 6f 72 20 77 69 74 68 20 61 20 63 6f error with a co
48d0: 6d 70 6c 65 74 65 64 20 68 61 6e 64 73 68 61 6b mpleted handshak
48e0: 65 3a 20 65 72 72 20 3d 20 25 69 22 2c 20 65 72 e: err = %i", er
48f0: 72 29 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 20 3d r);...}....ret =
4900: 20 31 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 1;..}...dprintf
4910: 28 22 52 65 74 75 72 6e 69 6e 67 20 54 43 4c 5f ("Returning TCL_
4920: 4f 4b 20 77 69 74 68 20 64 61 74 61 20 5c 22 25 OK with data \"%
4930: 69 5c 22 22 2c 20 72 65 74 29 3b 0a 09 54 63 6c i\"", ret);..Tcl
4940: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
4950: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
4960: 4f 62 6a 28 72 65 74 29 29 3b 0a 09 72 65 74 75 Obj(ret));..retu
4970: 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 0a 20 20 20 rn(TCL_OK);..
4980: 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 .clientData = c
4990: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a lientData;.}../*
49a0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
49b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49e0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6d 70 ------. *. * Imp
49f0: 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a ortObjCmd --. *.
4a00: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
4a10: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 e is invoked to
4a20: 70 72 6f 63 65 73 73 20 74 68 65 20 22 73 73 6c process the "ssl
4a30: 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 0a 20 2a 09 " command. *. *.
4a40: 54 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 20 The ssl command
4a50: 70 75 73 68 65 73 20 53 53 4c 20 6f 76 65 72 20 pushes SSL over
4a60: 61 20 28 6e 65 77 6c 79 20 63 6f 6e 6e 65 63 74 a (newly connect
4a70: 65 64 29 20 74 63 70 20 73 6f 63 6b 65 74 0a 20 ed) tcp socket.
4a80: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
4a90: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
4aa0: 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 result.. *. * Si
4ab0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d de effects:. *.M
4ac0: 61 79 20 6d 6f 64 69 66 79 20 74 68 65 20 62 65 ay modify the be
4ad0: 68 61 76 69 6f 72 20 6f 66 20 61 6e 20 49 4f 20 havior of an IO
4ae0: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d channel.. *. *--
4af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b30: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
4b40: 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 63 t.ImportObjCmd(c
4b50: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 lientData, inter
4b60: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 p, objc, objv).
4b70: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
4b80: 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 ientData;./* Not
4b90: 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 used. */. Tc
4ba0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
4bb0: 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a ;. int objc;.
4bc0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e Tcl_Obj *con
4bd0: 73 74 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 st objv[];.{.
4be0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 Tcl_Channel cha
4bf0: 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e n;../* The chann
4c00: 65 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 el to set a mode
4c10: 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 53 74 61 74 on. */. Stat
4c20: 65 20 2a 73 74 61 74 65 50 74 72 3b 09 09 2f 2a e *statePtr;../*
4c30: 20 63 6c 69 65 6e 74 20 73 74 61 74 65 20 66 6f client state fo
4c40: 72 20 73 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a r ssl socket */.
4c50: 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 SSL_CTX *ctx
4c60: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b . = NULL;
4c70: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 . Tcl_Obj *sc
4c80: 72 69 70 74 09 20 20 20 20 20 20 20 20 3d 20 4e ript. = N
4c90: 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a ULL;. Tcl_Obj
4ca0: 20 2a 70 61 73 73 77 6f 72 64 09 20 20 20 20 20 *password.
4cb0: 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 = NULL;. T
4cc0: 63 6c 5f 44 53 74 72 69 6e 67 20 75 70 70 65 72 cl_DString upper
4cd0: 43 68 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 ChannelTranslati
4ce0: 6f 6e 2c 20 75 70 70 65 72 43 68 61 6e 6e 65 6c on, upperChannel
4cf0: 42 6c 6f 63 6b 69 6e 67 2c 20 75 70 70 65 72 43 Blocking, upperC
4d00: 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 2c 20 hannelEncoding,
4d10: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 upperChannelEOFC
4d20: 68 61 72 3b 0a 20 20 20 20 69 6e 74 20 69 64 78 har;. int idx
4d30: 2c 20 6c 65 6e 3b 0a 20 20 20 20 69 6e 74 20 66 , len;. int f
4d40: 6c 61 67 73 09 09 20 20 20 20 20 20 20 20 3d 20 lags.. =
4d50: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 20 20 TLS_TCL_INIT;.
4d60: 20 20 69 6e 74 20 73 65 72 76 65 72 09 09 20 20 int server..
4d70: 20 20 20 20 20 20 3d 20 30 3b 09 2f 2a 20 69 73 = 0;./* is
4d80: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f connection inco
4d90: 6d 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 ming or outgoing
4da0: 3f 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b ? */. char *k
4db0: 65 79 66 69 6c 65 09 20 20 20 20 20 20 20 20 3d eyfile. =
4dc0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 NULL;. char
4dd0: 2a 63 65 72 74 66 69 6c 65 09 20 20 20 20 20 20 *certfile.
4de0: 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e = NULL;. un
4df0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 79 signed char *key
4e00: 20 20 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 .= NULL;. i
4e10: 6e 74 20 6b 65 79 5f 6c 65 6e 20 20 20 20 20 20 nt key_len
4e20: 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 3b 0a = 0;.
4e30: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
4e40: 72 20 2a 63 65 72 74 20 20 20 20 20 20 20 20 20 r *cert
4e50: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 = NULL;. int
4e60: 63 65 72 74 5f 6c 65 6e 20 20 20 20 20 20 20 20 cert_len
4e70: 20 20 20 20 20 20 20 20 3d 20 30 3b 0a 20 20 20 = 0;.
4e80: 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 09 20 char *ciphers.
4e90: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 = NULL;.
4ea0: 20 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 char *CAfile.
4eb0: 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a = NULL;.
4ec0: 20 20 20 20 63 68 61 72 20 2a 43 41 64 69 72 09 char *CAdir.
4ed0: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b . = NULL;
4ee0: 0a 20 20 20 20 63 68 61 72 20 2a 44 48 70 61 72 . char *DHpar
4ef0: 61 6d 73 09 20 20 20 20 20 20 20 20 3d 20 4e 55 ams. = NU
4f00: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 6d 6f LL;. char *mo
4f10: 64 65 6c 09 09 20 20 20 20 20 20 20 20 3d 20 4e del.. = N
4f20: 55 4c 4c 3b 0a 23 69 66 6e 64 65 66 20 4f 50 45 ULL;.#ifndef OPE
4f30: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 NSSL_NO_TLSEXT.
4f40: 20 20 20 63 68 61 72 20 2a 73 65 72 76 65 72 6e char *servern
4f50: 61 6d 65 09 20 20 20 20 20 20 20 20 3d 20 4e 55 ame. = NU
4f60: 4c 4c 3b 09 2f 2a 20 68 6f 73 74 6e 61 6d 65 20 LL;./* hostname
4f70: 66 6f 72 20 53 65 72 76 65 72 20 4e 61 6d 65 20 for Server Name
4f80: 49 6e 64 69 63 61 74 69 6f 6e 20 2a 2f 0a 23 65 Indication */.#e
4f90: 6e 64 69 66 0a 20 20 20 20 69 6e 74 20 73 73 6c ndif. int ssl
4fa0: 32 20 3d 20 30 2c 20 73 73 6c 33 20 3d 20 30 3b 2 = 0, ssl3 = 0;
4fb0: 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 . int tls1 =
4fc0: 31 2c 20 74 6c 73 31 5f 31 20 3d 20 31 2c 20 74 1, tls1_1 = 1, t
4fd0: 6c 73 31 5f 32 20 3d 20 31 2c 20 74 6c 73 31 5f ls1_2 = 1, tls1_
4fe0: 33 20 3d 20 31 3b 0a 20 20 20 20 69 6e 74 20 70 3 = 1;. int p
4ff0: 72 6f 74 6f 20 3d 20 30 3b 0a 20 20 20 20 69 6e roto = 0;. in
5000: 74 20 76 65 72 69 66 79 20 3d 20 30 2c 20 72 65 t verify = 0, re
5010: 71 75 69 72 65 20 3d 20 30 2c 20 72 65 71 75 65 quire = 0, reque
5020: 73 74 20 3d 20 31 3b 0a 0a 20 20 20 20 64 70 72 st = 1;.. dpr
5030: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
5040: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
5050: 54 4c 53 31 29 20 26 26 20 64 65 66 69 6e 65 64 TLS1) && defined
5060: 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 64 (NO_TLS1_1) && d
5070: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 efined(NO_TLS1_2
5080: 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f ) && defined(NO_
5090: 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 SSL3) && !define
50a0: 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 73 d(NO_SSL2). s
50b0: 73 6c 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a sl2 = 1;.#endif.
50c0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
50d0: 4c 53 31 29 20 26 26 20 64 65 66 69 6e 65 64 28 LS1) && defined(
50e0: 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 64 65 NO_TLS1_1) && de
50f0: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 fined(NO_TLS1_2)
5100: 20 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 && defined(NO_S
5110: 53 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 SL2) && !defined
5120: 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 73 73 (NO_SSL3). ss
5130: 6c 33 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 l3 = 1;.#endif.#
5140: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c if defined(NO_TL
5150: 53 31 29 0a 20 20 20 20 74 6c 73 31 20 3d 20 30 S1). tls1 = 0
5160: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 ;.#endif.#if def
5170: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a ined(NO_TLS1_1).
5180: 20 20 20 20 74 6c 73 31 5f 31 20 3d 20 30 3b 0a tls1_1 = 0;.
5190: 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e #endif.#if defin
51a0: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20 20 ed(NO_TLS1_2).
51b0: 20 20 74 6c 73 31 5f 32 20 3d 20 30 3b 0a 23 65 tls1_2 = 0;.#e
51c0: 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 ndif.#if defined
51d0: 28 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 20 (NO_TLS1_3).
51e0: 74 6c 73 31 5f 33 20 3d 20 30 3b 0a 23 65 6e 64 tls1_3 = 0;.#end
51f0: 69 66 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 if.. if (objc
5200: 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f < 2) {..Tcl_Wro
5210: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
5220: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e , 1, objv, "chan
5230: 6e 65 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b nel ?options?");
5240: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5250: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 OR;. }.. c
5260: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 han = Tcl_GetCha
5270: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c nnel(interp, Tcl
5280: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
5290: 6a 28 6f 62 6a 76 5b 31 5d 2c 20 28 54 63 6c 5f j(objv[1], (Tcl_
52a0: 53 69 7a 65 20 2a 29 20 4e 55 4c 4c 29 2c 20 4e Size *) NULL), N
52b0: 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 68 ULL);. if (ch
52c0: 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e an == (Tcl_Chann
52d0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
52e0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
52f0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 }.. /*.
5300: 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f * Make sure to
5310: 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 operate on the
5320: 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a topmost channel.
5330: 20 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e */. chan
5340: 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 = Tcl_GetTopCha
5350: 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 nnel(chan);..
5360: 20 66 6f 72 20 28 69 64 78 20 3d 20 32 3b 20 69 for (idx = 2; i
5370: 64 78 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b dx < objc; idx++
5380: 29 20 7b 0a 09 63 68 61 72 20 2a 6f 70 74 20 3d ) {..char *opt =
5390: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
53a0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d 2c omObj(objv[idx],
53b0: 20 28 54 63 6c 5f 53 69 7a 65 20 2a 29 4e 55 4c (Tcl_Size *)NUL
53c0: 4c 29 3b 0a 0a 09 69 66 20 28 6f 70 74 5b 30 5d L);...if (opt[0]
53d0: 20 21 3d 20 27 2d 27 29 0a 09 20 20 20 20 62 72 != '-').. br
53e0: 65 61 6b 3b 0a 0a 09 4f 50 54 53 54 52 28 20 22 eak;...OPTSTR( "
53f0: 2d 63 61 64 69 72 22 2c 20 43 41 64 69 72 29 3b -cadir", CAdir);
5400: 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 66 69 ..OPTSTR( "-cafi
5410: 6c 65 22 2c 20 43 41 66 69 6c 65 29 3b 0a 09 4f le", CAfile);..O
5420: 50 54 53 54 52 28 20 22 2d 63 65 72 74 66 69 6c PTSTR( "-certfil
5430: 65 22 2c 20 63 65 72 74 66 69 6c 65 29 3b 0a 09 e", certfile);..
5440: 4f 50 54 53 54 52 28 20 22 2d 63 69 70 68 65 72 OPTSTR( "-cipher
5450: 22 2c 20 63 69 70 68 65 72 73 29 3b 0a 09 4f 50 ", ciphers);..OP
5460: 54 4f 42 4a 28 20 22 2d 63 6f 6d 6d 61 6e 64 22 TOBJ( "-command"
5470: 2c 20 73 63 72 69 70 74 29 3b 0a 09 4f 50 54 53 , script);..OPTS
5480: 54 52 28 20 22 2d 64 68 70 61 72 61 6d 73 22 2c TR( "-dhparams",
5490: 20 44 48 70 61 72 61 6d 73 29 3b 0a 09 4f 50 54 DHparams);..OPT
54a0: 53 54 52 28 20 22 2d 6b 65 79 66 69 6c 65 22 2c STR( "-keyfile",
54b0: 20 6b 65 79 66 69 6c 65 29 3b 0a 09 4f 50 54 53 keyfile);..OPTS
54c0: 54 52 28 20 22 2d 6d 6f 64 65 6c 22 2c 20 6d 6f TR( "-model", mo
54d0: 64 65 6c 29 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 del);..OPTOBJ( "
54e0: 2d 70 61 73 73 77 6f 72 64 22 2c 20 70 61 73 73 -password", pass
54f0: 77 6f 72 64 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 word);..OPTBOOL(
5500: 20 22 2d 72 65 71 75 69 72 65 22 2c 20 72 65 71 "-require", req
5510: 75 69 72 65 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 uire);..OPTBOOL(
5520: 20 22 2d 72 65 71 75 65 73 74 22 2c 20 72 65 71 "-request", req
5530: 75 65 73 74 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 uest);..OPTBOOL(
5540: 20 22 2d 73 65 72 76 65 72 22 2c 20 73 65 72 76 "-server", serv
5550: 65 72 29 3b 0a 23 69 66 6e 64 65 66 20 4f 50 45 er);.#ifndef OPE
5560: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 NSSL_NO_TLSEXT.
5570: 20 20 20 20 20 20 20 4f 50 54 53 54 52 28 20 22 OPTSTR( "
5580: 2d 73 65 72 76 65 72 6e 61 6d 65 22 2c 20 73 65 -servername", se
5590: 72 76 65 72 6e 61 6d 65 29 3b 0a 23 65 6e 64 69 rvername);.#endi
55a0: 66 0a 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 f...OPTBOOL( "-s
55b0: 73 6c 32 22 2c 20 73 73 6c 32 29 3b 0a 09 4f 50 sl2", ssl2);..OP
55c0: 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 33 22 2c 20 TBOOL( "-ssl3",
55d0: 73 73 6c 33 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 ssl3);..OPTBOOL(
55e0: 20 22 2d 74 6c 73 31 22 2c 20 74 6c 73 31 29 3b "-tls1", tls1);
55f0: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 ..OPTBOOL( "-tls
5600: 31 2e 31 22 2c 20 74 6c 73 31 5f 31 29 3b 0a 09 1.1", tls1_1);..
5610: 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 2e OPTBOOL( "-tls1.
5620: 32 22 2c 20 74 6c 73 31 5f 32 29 3b 0a 09 4f 50 2", tls1_2);..OP
5630: 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 2e 33 22 TBOOL( "-tls1.3"
5640: 2c 20 74 6c 73 31 5f 33 29 3b 0a 20 20 4f 50 54 , tls1_3);. OPT
5650: 42 59 54 45 28 22 2d 63 65 72 74 22 2c 20 63 65 BYTE("-cert", ce
5660: 72 74 2c 20 63 65 72 74 5f 6c 65 6e 29 3b 0a 20 rt, cert_len);.
5670: 20 4f 50 54 42 59 54 45 28 22 2d 6b 65 79 22 2c OPTBYTE("-key",
5680: 20 6b 65 79 2c 20 6b 65 79 5f 6c 65 6e 29 3b 0a key, key_len);.
5690: 0a 09 4f 50 54 42 41 44 28 20 22 6f 70 74 69 6f ..OPTBAD( "optio
56a0: 6e 22 2c 20 22 2d 63 61 64 69 72 2c 20 2d 63 61 n", "-cadir, -ca
56b0: 66 69 6c 65 2c 20 2d 63 65 72 74 2c 20 2d 63 65 file, -cert, -ce
56c0: 72 74 66 69 6c 65 2c 20 2d 63 69 70 68 65 72 2c rtfile, -cipher,
56d0: 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 64 68 70 61 -command, -dhpa
56e0: 72 61 6d 73 2c 20 2d 6b 65 79 2c 20 2d 6b 65 79 rams, -key, -key
56f0: 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c 20 2d 70 file, -model, -p
5700: 61 73 73 77 6f 72 64 2c 20 2d 72 65 71 75 69 72 assword, -requir
5710: 65 2c 20 2d 72 65 71 75 65 73 74 2c 20 2d 73 65 e, -request, -se
5720: 72 76 65 72 2c 20 2d 73 65 72 76 65 72 6e 61 6d rver, -servernam
5730: 65 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 6c 33 2c e, -ssl2, -ssl3,
5740: 20 2d 74 6c 73 31 2c 20 2d 74 6c 73 31 2e 31 2c -tls1, -tls1.1,
5750: 20 2d 74 6c 73 31 2e 32 2c 20 6f 72 20 74 6c 73 -tls1.2, or tls
5760: 31 2e 33 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 1.3");...return
5770: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5780: 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 74 . if (request
5790: 29 09 20 20 20 20 76 65 72 69 66 79 20 7c 3d 20 ). verify |=
57a0: 53 53 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45 4e SSL_VERIFY_CLIEN
57b0: 54 5f 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45 52 T_ONCE | SSL_VER
57c0: 49 46 59 5f 50 45 45 52 3b 0a 20 20 20 20 69 66 IFY_PEER;. if
57d0: 20 28 72 65 71 75 65 73 74 20 26 26 20 72 65 71 (request && req
57e0: 75 69 72 65 29 20 76 65 72 69 66 79 20 7c 3d 20 uire) verify |=
57f0: 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c 5f SSL_VERIFY_FAIL_
5800: 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 3b IF_NO_PEER_CERT;
5810: 0a 20 20 20 20 69 66 20 28 76 65 72 69 66 79 20 . if (verify
5820: 3d 3d 20 30 29 09 76 65 72 69 66 79 20 3d 20 53 == 0).verify = S
5830: 53 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a SL_VERIFY_NONE;.
5840: 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 . proto |= (s
5850: 73 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f sl2 ? TLS_PROTO_
5860: 53 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 SSL2 : 0);. p
5870: 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f 20 roto |= (ssl3 ?
5880: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 3a TLS_PROTO_SSL3 :
5890: 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 0);. proto |
58a0: 3d 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 52 = (tls1 ? TLS_PR
58b0: 4f 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a 20 OTO_TLS1 : 0);.
58c0: 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 proto |= (tls
58d0: 31 5f 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 1_1 ? TLS_PROTO_
58e0: 54 4c 53 31 5f 31 20 3a 20 30 29 3b 0a 20 20 20 TLS1_1 : 0);.
58f0: 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f proto |= (tls1_
5900: 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 2 ? TLS_PROTO_TL
5910: 53 31 5f 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 S1_2 : 0);. p
5920: 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 33 20 roto |= (tls1_3
5930: 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 ? TLS_PROTO_TLS1
5940: 5f 33 20 3a 20 30 29 3b 0a 0a 20 20 20 20 2f 2a _3 : 0);.. /*
5950: 20 72 65 73 65 74 20 74 6f 20 4e 55 4c 4c 20 69 reset to NULL i
5960: 66 20 62 6c 61 6e 6b 20 73 74 72 69 6e 67 20 70 f blank string p
5970: 72 6f 76 69 64 65 64 20 2a 2f 0a 20 20 20 20 69 rovided */. i
5980: 66 20 28 63 65 72 74 20 26 26 20 21 2a 63 65 72 f (cert && !*cer
5990: 74 29 09 09 20 20 20 20 20 20 20 20 63 65 72 74 t).. cert
59a0: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b . = NULL;
59b0: 0a 20 20 20 20 69 66 20 28 6b 65 79 20 26 26 20 . if (key &&
59c0: 21 2a 6b 65 79 29 09 09 20 20 20 20 20 20 20 20 !*key)..
59d0: 6b 65 79 09 20 20 20 20 20 20 20 20 3d 20 4e 55 key. = NU
59e0: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 63 65 72 74 LL;. if (cert
59f0: 66 69 6c 65 20 26 26 20 21 2a 63 65 72 74 66 69 file && !*certfi
5a00: 6c 65 29 20 20 20 20 20 20 20 20 20 63 65 72 74 le) cert
5a10: 66 69 6c 65 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 file.= NULL;.
5a20: 20 69 66 20 28 6b 65 79 66 69 6c 65 20 26 26 20 if (keyfile &&
5a30: 21 2a 6b 65 79 66 69 6c 65 29 09 09 6b 65 79 66 !*keyfile)..keyf
5a40: 69 6c 65 09 20 20 20 20 20 20 20 20 3d 20 4e 55 ile. = NU
5a50: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 63 69 70 68 LL;. if (ciph
5a60: 65 72 73 20 26 26 20 21 2a 63 69 70 68 65 72 73 ers && !*ciphers
5a70: 29 09 20 20 20 20 20 20 20 20 63 69 70 68 65 72 ). cipher
5a80: 73 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c s. = NULL
5a90: 3b 0a 20 20 20 20 69 66 20 28 43 41 66 69 6c 65 ;. if (CAfile
5aa0: 20 26 26 20 21 2a 43 41 66 69 6c 65 29 09 20 20 && !*CAfile).
5ab0: 20 20 20 20 20 20 43 41 66 69 6c 65 09 20 20 20 CAfile.
5ac0: 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 = NULL;.
5ad0: 20 69 66 20 28 43 41 64 69 72 20 26 26 20 21 2a if (CAdir && !*
5ae0: 43 41 64 69 72 29 09 20 20 20 20 20 20 20 20 43 CAdir). C
5af0: 41 64 69 72 09 20 20 20 20 20 20 20 20 3d 20 4e Adir. = N
5b00: 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 44 48 70 ULL;. if (DHp
5b10: 61 72 61 6d 73 20 26 26 20 21 2a 44 48 70 61 72 arams && !*DHpar
5b20: 61 6d 73 29 09 20 20 20 20 20 20 20 20 44 48 70 ams). DHp
5b30: 61 72 61 6d 73 20 20 20 20 20 20 20 20 3d 20 4e arams = N
5b40: 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 ULL;.. /* new
5b50: 20 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 SSL state */.
5b60: 20 20 73 74 61 74 65 50 74 72 09 09 3d 20 28 53 statePtr..= (S
5b70: 74 61 74 65 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 tate *) ckalloc(
5b80: 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 6f (unsigned) sizeo
5b90: 66 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 6d f(State));. m
5ba0: 65 6d 73 65 74 28 73 74 61 74 65 50 74 72 2c 20 emset(statePtr,
5bb0: 30 2c 20 73 69 7a 65 6f 66 28 53 74 61 74 65 29 0, sizeof(State)
5bc0: 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 );.. statePtr
5bd0: 2d 3e 66 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b ->flags.= flags;
5be0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 69 . statePtr->i
5bf0: 6e 74 65 72 70 09 3d 20 69 6e 74 65 72 70 3b 0a nterp.= interp;.
5c00: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 76 66 statePtr->vf
5c10: 6c 61 67 73 09 3d 20 76 65 72 69 66 79 3b 0a 20 lags.= verify;.
5c20: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 statePtr->err
5c30: 09 3d 20 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 61 .= "";.. /* a
5c40: 6c 6c 6f 63 61 74 65 20 73 63 72 69 70 74 20 2a llocate script *
5c50: 2f 0a 20 20 20 20 69 66 20 28 73 63 72 69 70 74 /. if (script
5c60: 29 20 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f ) {..(void) Tcl_
5c70: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
5c80: 28 73 63 72 69 70 74 2c 20 26 6c 65 6e 29 3b 0a (script, &len);.
5c90: 09 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 .if (len) {..
5ca0: 20 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 statePtr->callb
5cb0: 61 63 6b 20 3d 20 73 63 72 69 70 74 3b 0a 09 20 ack = script;..
5cc0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
5cd0: 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 unt(statePtr->ca
5ce0: 6c 6c 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 llback);..}.
5cf0: 7d 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 }.. /* alloca
5d00: 74 65 20 70 61 73 73 77 6f 72 64 20 2a 2f 0a 20 te password */.
5d10: 20 20 20 69 66 20 28 70 61 73 73 77 6f 72 64 29 if (password)
5d20: 20 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 {..(void) Tcl_G
5d30: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
5d40: 70 61 73 73 77 6f 72 64 2c 20 26 6c 65 6e 29 3b password, &len);
5d50: 0a 09 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 ..if (len) {..
5d60: 20 20 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 statePtr->pass
5d70: 77 6f 72 64 20 3d 20 70 61 73 73 77 6f 72 64 3b word = password;
5d80: 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
5d90: 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d fCount(statePtr-
5da0: 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 7d 0a 20 >password);..}.
5db0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 6d 6f }.. if (mo
5dc0: 64 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 del != NULL) {..
5dd0: 69 6e 74 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 65 int mode;../* Ge
5de0: 74 20 74 68 65 20 22 6d 6f 64 65 6c 22 20 63 6f t the "model" co
5df0: 6e 74 65 78 74 20 2a 2f 0a 09 63 68 61 6e 20 3d ntext */..chan =
5e00: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 Tcl_GetChannel(
5e10: 69 6e 74 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 26 interp, model, &
5e20: 6d 6f 64 65 29 3b 0a 09 69 66 20 28 63 68 61 6e mode);..if (chan
5e30: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
5e40: 29 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 ) NULL) {.. T
5e50: 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 ls_Free((char *)
5e60: 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 statePtr);..
5e70: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
5e80: 52 3b 0a 09 7d 0a 0a 20 20 20 20 20 20 20 20 2f R;..}.. /
5e90: 2a 0a 20 20 20 20 20 20 20 20 20 2a 20 4d 61 6b *. * Mak
5ea0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
5eb0: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
5ec0: 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 20 20 channel.
5ed0: 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 63 68 61 */. cha
5ee0: 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 n = Tcl_GetTopCh
5ef0: 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 09 69 66 annel(chan);..if
5f00: 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c (Tcl_GetChannel
5f10: 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c Type(chan) != Tl
5f20: 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 s_ChannelType())
5f30: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 {.. Tcl_Appe
5f40: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
5f50: 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 "bad channel \"
5f60: 22 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 74 ",... Tcl_Get
5f70: 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e ChannelName(chan
5f80: 29 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c ), "\": not a TL
5f90: 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c S channel", NULL
5fa0: 29 3b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 );.. Tls_Free
5fb0: 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 ((char *) stateP
5fc0: 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tr);.. return
5fd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 TCL_ERROR;..}..
5fe0: 63 74 78 20 3d 20 28 28 53 74 61 74 65 20 2a 29 ctx = ((State *)
5ff0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
6000: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 stanceData(chan)
6010: 29 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c )->ctx;. } el
6020: 73 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 3d se {..if ((ctx =
6030: 20 43 54 58 5f 49 6e 69 74 28 73 74 61 74 65 50 CTX_Init(stateP
6040: 74 72 2c 20 73 65 72 76 65 72 2c 20 70 72 6f 74 tr, server, prot
6050: 6f 2c 20 6b 65 79 66 69 6c 65 2c 20 63 65 72 74 o, keyfile, cert
6060: 66 69 6c 65 2c 20 6b 65 79 2c 0a 20 20 20 20 63 file, key,. c
6070: 65 72 74 2c 20 6b 65 79 5f 6c 65 6e 2c 20 63 65 ert, key_len, ce
6080: 72 74 5f 6c 65 6e 2c 20 43 41 64 69 72 2c 20 43 rt_len, CAdir, C
6090: 41 66 69 6c 65 2c 20 63 69 70 68 65 72 73 2c 0a Afile, ciphers,.
60a0: 20 20 20 20 44 48 70 61 72 61 6d 73 29 29 20 3d DHparams)) =
60b0: 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 29 20 7b = (SSL_CTX*)0) {
60c0: 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 .. Tls_Free((
60d0: 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 char *) statePtr
60e0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
60f0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 CL_ERROR;..}.
6100: 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 }.. statePtr
6110: 2d 3e 63 74 78 20 3d 20 63 74 78 3b 0a 0a 20 20 ->ctx = ctx;..
6120: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 6e /*. * We n
6130: 65 65 64 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 eed to make sure
6140: 20 74 68 61 74 20 74 68 65 20 63 68 61 6e 6e 65 that the channe
6150: 6c 20 77 6f 72 6b 73 20 69 6e 20 62 69 6e 61 72 l works in binar
6160: 79 20 28 66 6f 72 20 74 68 65 0a 20 20 20 20 20 y (for the.
6170: 2a 20 65 6e 63 72 79 70 74 69 6f 6e 20 6e 6f 74 * encryption not
6180: 20 74 6f 20 67 65 74 20 67 6f 6f 66 65 64 20 75 to get goofed u
6190: 70 29 2e 0a 20 20 20 20 20 2a 20 57 65 20 6f 6e p).. * We on
61a0: 6c 79 20 77 61 6e 74 20 74 6f 20 61 64 6a 75 73 ly want to adjus
61b0: 74 20 74 68 65 20 62 75 66 66 65 72 69 6e 67 20 t the buffering
61c0: 69 6e 20 70 72 65 2d 76 32 20 63 68 61 6e 6e 65 in pre-v2 channe
61d0: 6c 73 2c 20 77 68 65 72 65 0a 20 20 20 20 20 2a ls, where. *
61e0: 20 65 61 63 68 20 63 68 61 6e 6e 65 6c 20 69 6e each channel in
61f0: 20 74 68 65 20 73 74 61 63 6b 20 6d 61 69 6e 74 the stack maint
6200: 61 69 6e 65 64 20 69 74 73 20 6f 77 6e 20 62 75 ained its own bu
6210: 66 66 65 72 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 ffers.. */.
6220: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e Tcl_DStringIn
6230: 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c it(&upperChannel
6240: 54 72 61 6e 73 6c 61 74 69 6f 6e 29 3b 0a 20 20 Translation);.
6250: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
6260: 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 42 t(&upperChannelB
6270: 6c 6f 63 6b 69 6e 67 29 3b 0a 20 20 20 20 54 63 locking);. Tc
6280: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75 l_DStringInit(&u
6290: 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 68 pperChannelEOFCh
62a0: 61 72 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 ar);. Tcl_DSt
62b0: 72 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 ringInit(&upperC
62c0: 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 29 3b hannelEncoding);
62d0: 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e . Tcl_GetChan
62e0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
62f0: 2c 20 63 68 61 6e 2c 20 22 2d 65 6f 66 63 68 61 , chan, "-eofcha
6300: 72 22 2c 20 26 75 70 70 65 72 43 68 61 6e 6e 65 r", &upperChanne
6310: 6c 45 4f 46 43 68 61 72 29 3b 0a 20 20 20 20 54 lEOFChar);. T
6320: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 cl_GetChannelOpt
6330: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e ion(interp, chan
6340: 2c 20 22 2d 65 6e 63 6f 64 69 6e 67 22 2c 20 26 , "-encoding", &
6350: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f upperChannelEnco
6360: 64 69 6e 67 29 3b 0a 20 20 20 20 54 63 6c 5f 47 ding);. Tcl_G
6370: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
6380: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
6390: 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 26 75 translation", &u
63a0: 70 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 6e 73 pperChannelTrans
63b0: 6c 61 74 69 6f 6e 29 3b 0a 20 20 20 20 54 63 6c lation);. Tcl
63c0: 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _GetChannelOptio
63d0: 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 n(interp, chan,
63e0: 22 2d 62 6c 6f 63 6b 69 6e 67 22 2c 20 26 75 70 "-blocking", &up
63f0: 70 65 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 perChannelBlocki
6400: 6e 67 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 ng);. Tcl_Set
6410: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
6420: 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 terp, chan, "-tr
6430: 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e anslation", "bin
6440: 61 72 79 22 29 3b 0a 20 20 20 20 54 63 6c 5f 53 ary");. Tcl_S
6450: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
6460: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
6470: 62 6c 6f 63 6b 69 6e 67 22 2c 20 22 74 72 75 65 blocking", "true
6480: 22 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 ");. dprintf(
6490: 22 43 6f 6e 73 75 6d 69 6e 67 20 54 63 6c 20 63 "Consuming Tcl c
64a0: 68 61 6e 6e 65 6c 20 25 73 22 2c 20 54 63 6c 5f hannel %s", Tcl_
64b0: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 GetChannelName(c
64c0: 68 61 6e 29 29 3b 0a 20 20 20 20 73 74 61 74 65 han));. state
64d0: 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f Ptr->self = Tcl_
64e0: 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 StackChannel(int
64f0: 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e 65 6c erp, Tls_Channel
6500: 54 79 70 65 28 29 2c 20 28 43 6c 69 65 6e 74 44 Type(), (ClientD
6510: 61 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 28 ata) statePtr, (
6520: 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 7c 20 54 TCL_READABLE | T
6530: 43 4c 5f 57 52 49 54 41 42 4c 45 29 2c 20 63 68 CL_WRITABLE), ch
6540: 61 6e 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 an);. dprintf
6550: 28 22 43 72 65 61 74 65 64 20 63 68 61 6e 6e 65 ("Created channe
6560: 6c 20 6e 61 6d 65 64 20 25 73 22 2c 20 54 63 6c l named %s", Tcl
6570: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
6580: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 statePtr->self))
6590: 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 ;. if (stateP
65a0: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
65b0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
65c0: 7b 0a 09 2f 2a 0a 09 20 2a 20 4e 6f 20 75 73 65 {../*.. * No use
65d0: 20 6f 66 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c of Tcl_Eventual
65e0: 6c 79 46 72 65 65 20 62 65 63 61 75 73 65 20 6e lyFree because n
65f0: 6f 20 70 6f 73 73 69 62 6c 65 20 54 63 6c 5f 50 o possible Tcl_P
6600: 72 65 73 65 72 76 65 2e 0a 09 20 2a 2f 0a 09 54 reserve... */..T
6610: 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 ls_Free((char *)
6620: 20 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 statePtr);..ret
6630: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6640: 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 53 65 }.. Tcl_Se
6650: 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 tChannelOption(i
6660: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
6670: 3e 73 65 6c 66 2c 20 22 2d 74 72 61 6e 73 6c 61 >self, "-transla
6680: 74 69 6f 6e 22 2c 20 54 63 6c 5f 44 53 74 72 69 tion", Tcl_DStri
6690: 6e 67 56 61 6c 75 65 28 26 75 70 70 65 72 43 68 ngValue(&upperCh
66a0: 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f 6e annelTranslation
66b0: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 ));. Tcl_SetC
66c0: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
66d0: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 erp, statePtr->s
66e0: 65 6c 66 2c 20 22 2d 65 6e 63 6f 64 69 6e 67 22 elf, "-encoding"
66f0: 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c , Tcl_DStringVal
6700: 75 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c ue(&upperChannel
6710: 45 6e 63 6f 64 69 6e 67 29 29 3b 0a 20 20 20 20 Encoding));.
6720: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_SetChannelOp
6730: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 tion(interp, sta
6740: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 65 tePtr->self, "-e
6750: 6f 66 63 68 61 72 22 2c 20 54 63 6c 5f 44 53 74 ofchar", Tcl_DSt
6760: 72 69 6e 67 56 61 6c 75 65 28 26 75 70 70 65 72 ringValue(&upper
6770: 43 68 61 6e 6e 65 6c 45 4f 46 43 68 61 72 29 29 ChannelEOFChar))
6780: 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 ;. Tcl_SetCha
6790: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
67a0: 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c p, statePtr->sel
67b0: 66 2c 20 22 2d 62 6c 6f 63 6b 69 6e 67 22 2c 20 f, "-blocking",
67c0: 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 Tcl_DStringValue
67d0: 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 42 6c (&upperChannelBl
67e0: 6f 63 6b 69 6e 67 29 29 3b 0a 0a 20 20 20 20 2f ocking));.. /
67f0: 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 49 6e 69 *. * SSL Ini
6800: 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 20 20 20 tialization.
6810: 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 65 50 74 */.. statePt
6820: 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 r->ssl = SSL_new
6830: 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 29 3b (statePtr->ctx);
6840: 0a 20 20 20 20 69 66 20 28 21 73 74 61 74 65 50 . if (!stateP
6850: 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 2f 2a 20 53 tr->ssl) {../* S
6860: 53 4c 20 6c 69 62 72 61 72 79 20 65 72 72 6f 72 SL library error
6870: 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 */..Tcl_AppendR
6880: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 esult(interp, "c
6890: 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 72 75 63 ouldn't construc
68a0: 74 20 73 73 6c 20 73 65 73 73 69 6f 6e 3a 20 22 t ssl session: "
68b0: 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 09 28 63 , REASON(),...(c
68c0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 har *) NULL);..T
68d0: 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 ls_Free((char *)
68e0: 20 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 statePtr);..ret
68f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6900: 20 20 20 7d 0a 0a 23 69 66 6e 64 65 66 20 4f 50 }..#ifndef OP
6910: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a ENSSL_NO_TLSEXT.
6920: 20 20 20 20 69 66 20 28 73 65 72 76 65 72 6e 61 if (serverna
6930: 6d 65 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 me) {. if
6940: 20 28 21 53 53 4c 5f 73 65 74 5f 74 6c 73 65 78 (!SSL_set_tlsex
6950: 74 5f 68 6f 73 74 5f 6e 61 6d 65 28 73 74 61 74 t_host_name(stat
6960: 65 50 74 72 2d 3e 73 73 6c 2c 20 73 65 72 76 65 ePtr->ssl, serve
6970: 72 6e 61 6d 65 29 20 26 26 20 72 65 71 75 69 72 rname) && requir
6980: 65 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 e) {.
6990: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
69a0: 74 28 69 6e 74 65 72 70 2c 20 22 73 65 74 74 69 t(interp, "setti
69b0: 6e 67 20 54 4c 53 20 68 6f 73 74 20 6e 61 6d 65 ng TLS host name
69c0: 20 65 78 74 65 6e 73 69 6f 6e 20 66 61 69 6c 65 extension faile
69d0: 64 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 d",.
69e0: 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (char *) NUL
69f0: 4c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 L);.
6a00: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
6a10: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
6a20: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
6a30: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 20 TCL_ERROR;.
6a40: 20 20 20 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 }. }.#endi
6a50: 66 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a f.. /*. *
6a60: 20 53 53 4c 20 43 61 6c 6c 62 61 63 6b 73 0a 20 SSL Callbacks.
6a70: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 53 53 4c 5f */.. SSL_
6a80: 73 65 74 5f 61 70 70 5f 64 61 74 61 28 73 74 61 set_app_data(sta
6a90: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 76 6f 69 tePtr->ssl, (voi
6aa0: 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b 09 2f d *)statePtr);./
6ab0: 2a 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 6f 20 * point back to
6ac0: 75 73 20 2a 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 us */.. SSL_s
6ad0: 65 74 5f 76 65 72 69 66 79 28 73 74 61 74 65 50 et_verify(stateP
6ae0: 74 72 2d 3e 73 73 6c 2c 20 76 65 72 69 66 79 2c tr->ssl, verify,
6af0: 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 29 VerifyCallback)
6b00: 3b 0a 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 ;.. SSL_CTX_s
6b10: 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b et_info_callback
6b20: 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 (statePtr->ctx,
6b30: 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a InfoCallback);..
6b40: 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 54 63 /* Create Tc
6b50: 6c 5f 43 68 61 6e 6e 65 6c 20 42 49 4f 20 48 61 l_Channel BIO Ha
6b60: 6e 64 6c 65 72 20 2a 2f 0a 20 20 20 20 73 74 61 ndler */. sta
6b70: 74 65 50 74 72 2d 3e 70 5f 62 69 6f 09 3d 20 42 tePtr->p_bio.= B
6b80: 49 4f 5f 6e 65 77 5f 74 63 6c 28 73 74 61 74 65 IO_new_tcl(state
6b90: 50 74 72 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 45 Ptr, BIO_NOCLOSE
6ba0: 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d );. statePtr-
6bb0: 3e 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 28 42 >bio.= BIO_new(B
6bc0: 49 4f 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a 20 20 IO_f_ssl());..
6bd0: 20 20 69 66 20 28 73 65 72 76 65 72 29 20 7b 0a if (server) {.
6be0: 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 .statePtr->flags
6bf0: 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 |= TLS_TCL_SERV
6c00: 45 52 3b 0a 09 53 53 4c 5f 73 65 74 5f 61 63 63 ER;..SSL_set_acc
6c10: 65 70 74 5f 73 74 61 74 65 28 73 74 61 74 65 50 ept_state(stateP
6c20: 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 tr->ssl);. }
6c30: 65 6c 73 65 20 7b 0a 09 53 53 4c 5f 73 65 74 5f else {..SSL_set_
6c40: 63 6f 6e 6e 65 63 74 5f 73 74 61 74 65 28 73 74 connect_state(st
6c50: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 atePtr->ssl);.
6c60: 20 20 7d 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f }. SSL_set_
6c70: 62 69 6f 28 73 74 61 74 65 50 74 72 2d 3e 73 73 bio(statePtr->ss
6c80: 6c 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 l, statePtr->p_b
6c90: 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 5f io, statePtr->p_
6ca0: 62 69 6f 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 bio);. BIO_se
6cb0: 74 5f 73 73 6c 28 73 74 61 74 65 50 74 72 2d 3e t_ssl(statePtr->
6cc0: 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 bio, statePtr->s
6cd0: 73 6c 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 45 29 sl, BIO_NOCLOSE)
6ce0: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a ;.. /*. *
6cf0: 20 45 6e 64 20 6f 66 20 53 53 4c 20 49 6e 69 74 End of SSL Init
6d00: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 64 70 72 . */. dpr
6d10: 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 intf("Returning
6d20: 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e %s", Tcl_GetChan
6d30: 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 nelName(statePtr
6d40: 2d 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20 54 63 ->self));. Tc
6d50: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
6d60: 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 63 6c rp, (char *) Tcl
6d70: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
6d80: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
6d90: 0a 09 20 20 20 20 54 43 4c 5f 56 4f 4c 41 54 49 .. TCL_VOLATI
6da0: 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 LE);. return
6db0: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 TCL_OK;. .cli
6dc0: 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 entData = client
6dd0: 44 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d Data;.}.../*. *-
6de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e20: 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 69 6d 70 6f 72 --. *. * Unimpor
6e30: 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a tObjCmd --. *. *
6e40: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
6e50: 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 72 65 is invoked to re
6e60: 6d 6f 76 65 20 74 68 65 20 74 6f 70 6d 6f 73 74 move the topmost
6e70: 20 63 68 61 6e 6e 65 6c 20 66 69 6c 74 65 72 2e channel filter.
6e80: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
6e90: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
6ea0: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
6eb0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
6ec0: 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 65 20 .May modify the
6ed0: 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e 20 49 behavior of an I
6ee0: 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a O channel.. *. *
6ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f30: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 ---. */..static
6f40: 69 6e 74 0a 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 int.UnimportObjC
6f50: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 md(clientData, i
6f60: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
6f70: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 v). ClientDat
6f80: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a a clientData;./*
6f90: 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 Not used. */.
6fa0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
6fb0: 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 terp;. int ob
6fc0: 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 jc;. Tcl_Obj
6fd0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 3b 0a 7b *const objv[];.{
6fe0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
6ff0: 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 chan;../* The c
7000: 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 hannel to set a
7010: 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 0a 20 20 20 mode on. */..
7020: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
7030: 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a ");.. if (obj
7040: 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 c != 2) {..Tcl_W
7050: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
7060: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 rp, 1, objv, "ch
7070: 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 74 75 72 6e annel");..return
7080: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
7090: 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 }.. chan = Tc
70a0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 l_GetChannel(int
70b0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
70c0: 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 4e 55 4c ng(objv[1]), NUL
70d0: 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e L);. if (chan
70e0: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
70f0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
7100: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
7110: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }.. /*.
7120: 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f * Make sure to o
7130: 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f perate on the to
7140: 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 20 pmost channel.
7150: 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d */. chan =
7160: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
7170: 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 69 el(chan);.. i
7180: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 f (Tcl_GetChanne
7190: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 lType(chan) != T
71a0: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
71b0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
71c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
71d0: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 ad channel \"",
71e0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
71f0: 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a me(chan),..."\":
7200: 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e not a TLS chann
7210: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 el", NULL);..ret
7220: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7230: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 54 63 }.. if (Tc
7240: 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 6c l_UnstackChannel
7250: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 20 3d (interp, chan) =
7260: 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 = TCL_ERROR) {..
7270: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7280: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 65 74 ;. }.. ret
7290: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 urn TCL_OK;.
72a0: 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c .clientData = cl
72b0: 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a ientData;.}.../*
72c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
72d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7300: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 54 58 ------. *. * CTX
7310: 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 74 72 75 _Init -- constru
7320: 63 74 20 61 20 53 53 4c 5f 43 54 58 20 69 6e 73 ct a SSL_CTX ins
7330: 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 65 73 75 tance. *. * Resu
7340: 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c 69 64 20 lts:. *.A valid
7350: 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 SSL_CTX instance
7360: 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20 2a 20 or NULL.. *. *
7370: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
7380: 09 63 6f 6e 73 74 72 75 63 74 73 20 53 53 4c 20 .constructs SSL
7390: 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a context (CTX). *
73a0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
73b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73e0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
73f0: 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a 43 54 58 ic SSL_CTX *.CTX
7400: 5f 49 6e 69 74 28 73 74 61 74 65 50 74 72 2c 20 _Init(statePtr,
7410: 69 73 53 65 72 76 65 72 2c 20 70 72 6f 74 6f 2c isServer, proto,
7420: 20 6b 65 79 66 69 6c 65 2c 20 63 65 72 74 66 69 keyfile, certfi
7430: 6c 65 2c 20 6b 65 79 2c 20 63 65 72 74 2c 0a 20 le, key, cert,.
7440: 20 20 20 20 20 20 20 20 6b 65 79 5f 6c 65 6e 2c key_len,
7450: 20 63 65 72 74 5f 6c 65 6e 2c 20 43 41 64 69 72 cert_len, CAdir
7460: 2c 20 43 41 66 69 6c 65 2c 20 63 69 70 68 65 72 , CAfile, cipher
7470: 73 2c 20 44 48 70 61 72 61 6d 73 29 0a 20 20 20 s, DHparams).
7480: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
7490: 3b 0a 20 20 20 20 69 6e 74 20 69 73 53 65 72 76 ;. int isServ
74a0: 65 72 3b 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 er;. int prot
74b0: 6f 3b 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 o;. char *key
74c0: 66 69 6c 65 3b 0a 20 20 20 20 63 68 61 72 20 2a file;. char *
74d0: 63 65 72 74 66 69 6c 65 3b 0a 20 20 20 20 75 6e certfile;. un
74e0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 79 signed char *key
74f0: 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 ;. unsigned c
7500: 68 61 72 20 2a 63 65 72 74 3b 0a 20 20 20 20 69 har *cert;. i
7510: 6e 74 20 6b 65 79 5f 6c 65 6e 3b 0a 20 20 20 20 nt key_len;.
7520: 69 6e 74 20 63 65 72 74 5f 6c 65 6e 3b 0a 20 20 int cert_len;.
7530: 20 20 63 68 61 72 20 2a 43 41 64 69 72 3b 0a 20 char *CAdir;.
7540: 20 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 3b char *CAfile;
7550: 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 65 . char *ciphe
7560: 72 73 3b 0a 20 20 20 20 63 68 61 72 20 2a 44 48 rs;. char *DH
7570: 70 61 72 61 6d 73 3b 0a 7b 0a 20 20 20 20 54 63 params;.{. Tc
7580: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7590: 20 3d 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 = statePtr->int
75a0: 65 72 70 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 erp;. SSL_CTX
75b0: 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *ctx = NULL;.
75c0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 Tcl_DString ds
75d0: 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e ;. Tcl_DStrin
75e0: 67 20 64 73 31 3b 0a 20 20 20 20 69 6e 74 20 6f g ds1;. int o
75f0: 66 66 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 ff = 0;. int
7600: 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b 65 79 load_private_key
7610: 3b 0a 20 20 20 20 63 6f 6e 73 74 20 53 53 4c 5f ;. const SSL_
7620: 4d 45 54 48 4f 44 20 2a 6d 65 74 68 6f 64 3b 0a METHOD *method;.
7630: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
7640: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
7650: 28 21 70 72 6f 74 6f 29 20 7b 0a 09 54 63 6c 5f (!proto) {..Tcl_
7660: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
7670: 65 72 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 70 erp, "no valid p
7680: 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 rotocol selected
7690: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
76a0: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
76b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 63 72 }.. /* cr
76c0: 65 61 74 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 eate SSL context
76d0: 20 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 28 */.#if defined(
76e0: 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 69 66 20 NO_SSL2). if
76f0: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
7700: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 29 TLS_PROTO_SSL2))
7710: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
7720: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
7730: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
7740: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 rted", NULL);..r
7750: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
7760: 29 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 )0;. }.#endif
7770: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
7780: 53 53 4c 33 29 0a 20 20 20 20 69 66 20 28 45 4e SSL3). if (EN
7790: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
77a0: 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b 0a _PROTO_SSL3)) {.
77b0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
77c0: 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f t(interp, "proto
77d0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
77e0: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 d", NULL);..retu
77f0: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b rn (SSL_CTX *)0;
7800: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 . }.#endif.#i
7810: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
7820: 31 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 4c 1). if (ENABL
7830: 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 ED(proto, TLS_PR
7840: 4f 54 4f 5f 54 4c 53 31 29 29 20 7b 0a 09 54 63 OTO_TLS1)) {..Tc
7850: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7860: 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c nterp, "protocol
7870: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
7880: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
7890: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 (SSL_CTX *)0;.
78a0: 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 }.#endif.#if d
78b0: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 efined(NO_TLS1_1
78c0: 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 4c 45 ). if (ENABLE
78d0: 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f D(proto, TLS_PRO
78e0: 54 4f 5f 54 4c 53 31 5f 31 29 29 20 7b 0a 09 54 TO_TLS1_1)) {..T
78f0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
7900: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
7910: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
7920: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
7930: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 (SSL_CTX *)0;.
7940: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 }.#endif.#if
7950: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
7960: 32 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 4c 2). if (ENABL
7970: 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 ED(proto, TLS_PR
7980: 4f 54 4f 5f 54 4c 53 31 5f 32 29 29 20 7b 0a 09 OTO_TLS1_2)) {..
7990: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
79a0: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
79b0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
79c0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
79d0: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
79e0: 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 }.#endif.#if
79f0: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
7a00: 5f 33 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 _3). if (ENAB
7a10: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
7a20: 52 4f 54 4f 5f 54 4c 53 31 5f 33 29 29 20 7b 0a ROTO_TLS1_3)) {.
7a30: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
7a40: 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f t(interp, "proto
7a50: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
7a60: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 d", NULL);..retu
7a70: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b rn (SSL_CTX *)0;
7a80: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 . }.#endif..
7a90: 20 20 20 73 77 69 74 63 68 20 28 70 72 6f 74 6f switch (proto
7aa0: 29 20 7b 0a 23 69 66 20 21 64 65 66 69 6e 65 64 ) {.#if !defined
7ab0: 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 63 61 (NO_SSL2). ca
7ac0: 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c se TLS_PROTO_SSL
7ad0: 32 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 53 53 4c 2:..method = SSL
7ae0: 76 32 5f 6d 65 74 68 6f 64 20 28 29 3b 0a 09 62 v2_method ();..b
7af0: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 reak;.#endif.#if
7b00: 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c !defined(NO_SSL
7b10: 33 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 3). case TLS_
7b20: 50 52 4f 54 4f 5f 53 53 4c 33 3a 0a 09 6d 65 74 PROTO_SSL3:..met
7b30: 68 6f 64 20 3d 20 53 53 4c 76 33 5f 6d 65 74 68 hod = SSLv3_meth
7b40: 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 od ();..break;.#
7b50: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
7b60: 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 20 20 20 20 ed(NO_TLS1).
7b70: 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 case TLS_PROTO_T
7b80: 4c 53 31 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 LS1:..method = T
7b90: 4c 53 76 31 5f 6d 65 74 68 6f 64 20 28 29 3b 0a LSv1_method ();.
7ba0: 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 .break;.#endif.#
7bb0: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 if !defined(NO_T
7bc0: 4c 53 31 5f 31 29 0a 20 20 20 20 63 61 73 65 20 LS1_1). case
7bd0: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 TLS_PROTO_TLS1_1
7be0: 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 76 :..method = TLSv
7bf0: 31 5f 31 5f 6d 65 74 68 6f 64 20 28 29 3b 0a 09 1_1_method ();..
7c00: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 break;.#endif.#i
7c10: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c f !defined(NO_TL
7c20: 53 31 5f 32 29 0a 20 20 20 20 63 61 73 65 20 54 S1_2). case T
7c30: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 3a LS_PROTO_TLS1_2:
7c40: 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 76 31 ..method = TLSv1
7c50: 5f 32 5f 6d 65 74 68 6f 64 20 28 29 3b 0a 09 62 _2_method ();..b
7c60: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 reak;.#endif.#if
7c70: 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 !defined(NO_TLS
7c80: 31 5f 33 29 0a 20 20 20 20 63 61 73 65 20 54 4c 1_3). case TL
7c90: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 3a 0a S_PROTO_TLS1_3:.
7ca0: 20 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 /*.
7cb0: 20 20 20 20 2a 20 54 68 65 20 76 65 72 73 69 6f * The versio
7cc0: 6e 20 72 61 6e 67 65 20 69 73 20 63 6f 6e 73 74 n range is const
7cd0: 72 61 69 6e 65 64 20 62 65 6c 6f 77 2c 0a 20 20 rained below,.
7ce0: 20 20 20 20 20 20 20 2a 20 61 66 74 65 72 20 74 * after t
7cf0: 68 65 20 63 6f 6e 74 65 78 74 20 69 73 20 63 72 he context is cr
7d00: 65 61 74 65 64 2e 20 20 55 73 65 20 74 68 65 0a eated. Use the.
7d10: 20 20 20 20 20 20 20 20 20 2a 20 67 65 6e 65 72 * gener
7d20: 69 63 20 6d 65 74 68 6f 64 20 68 65 72 65 2e 0a ic method here..
7d30: 20 20 20 20 20 20 20 20 20 2a 2f 0a 09 6d 65 74 */..met
7d40: 68 6f 64 20 3d 20 54 4c 53 5f 6d 65 74 68 6f 64 hod = TLS_method
7d50: 20 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e ();..break;.#en
7d60: 64 69 66 0a 20 20 20 20 64 65 66 61 75 6c 74 3a dif. default:
7d70: 0a 23 69 66 64 65 66 20 48 41 56 45 5f 54 4c 53 .#ifdef HAVE_TLS
7d80: 5f 4d 45 54 48 4f 44 0a 20 20 20 20 20 20 20 20 _METHOD.
7d90: 6d 65 74 68 6f 64 20 3d 20 54 4c 53 5f 6d 65 74 method = TLS_met
7da0: 68 6f 64 20 28 29 3b 0a 23 65 6c 73 65 0a 20 20 hod ();.#else.
7db0: 20 20 20 20 20 20 6d 65 74 68 6f 64 20 3d 20 53 method = S
7dc0: 53 4c 76 32 33 5f 6d 65 74 68 6f 64 20 28 29 3b SLv23_method ();
7dd0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
7de0: 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 6f ined(NO_SSL2)..o
7df0: 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 ff |= (ENABLED(p
7e00: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
7e10: 53 53 4c 32 29 20 20 20 3f 20 30 20 3a 20 53 53 SSL2) ? 0 : SS
7e20: 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 32 29 3b 0a L_OP_NO_SSLv2);.
7e30: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
7e40: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 6f 66 ned(NO_SSL3)..of
7e50: 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 f |= (ENABLED(pr
7e60: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
7e70: 53 4c 33 29 20 20 20 3f 20 30 20 3a 20 53 53 4c SL3) ? 0 : SSL
7e80: 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 33 29 3b 0a 23 _OP_NO_SSLv3);.#
7e90: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
7ea0: 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 09 6f 66 66 ed(NO_TLS1)..off
7eb0: 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f |= (ENABLED(pro
7ec0: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c to, TLS_PROTO_TL
7ed0: 53 31 29 20 20 20 3f 20 30 20 3a 20 53 53 4c 5f S1) ? 0 : SSL_
7ee0: 4f 50 5f 4e 4f 5f 54 4c 53 76 31 29 3b 0a 23 65 OP_NO_TLSv1);.#e
7ef0: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 ndif.#if !define
7f00: 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a 09 6f 66 d(NO_TLS1_1)..of
7f10: 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 f |= (ENABLED(pr
7f20: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 oto, TLS_PROTO_T
7f30: 4c 53 31 5f 31 29 20 3f 20 30 20 3a 20 53 53 4c LS1_1) ? 0 : SSL
7f40: 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 5f 31 29 3b _OP_NO_TLSv1_1);
7f50: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
7f60: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a ined(NO_TLS1_2).
7f70: 09 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 .off |= (ENABLED
7f80: 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 (proto, TLS_PROT
7f90: 4f 5f 54 4c 53 31 5f 32 29 20 3f 20 30 20 3a 20 O_TLS1_2) ? 0 :
7fa0: 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 5f SSL_OP_NO_TLSv1_
7fb0: 32 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 2);.#endif.#if !
7fc0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
7fd0: 33 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 42 3)..off |= (ENAB
7fe0: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
7ff0: 52 4f 54 4f 5f 54 4c 53 31 5f 33 29 20 3f 20 30 ROTO_TLS1_3) ? 0
8000: 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 : SSL_OP_NO_TLS
8010: 76 31 5f 33 29 3b 0a 23 65 6e 64 69 66 0a 09 62 v1_3);.#endif..b
8020: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 reak;. }.
8030: 0a 20 20 20 20 63 74 78 20 3d 20 53 53 4c 5f 43 . ctx = SSL_C
8040: 54 58 5f 6e 65 77 20 28 6d 65 74 68 6f 64 29 3b TX_new (method);
8050: 0a 0a 20 20 20 20 69 66 20 28 21 63 74 78 29 20 .. if (!ctx)
8060: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
8070: 28 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 23 (NULL);. }..#
8080: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 if !defined(NO_T
8090: 4c 53 31 5f 33 29 0a 20 20 20 20 69 66 20 28 70 LS1_3). if (p
80a0: 72 6f 74 6f 20 3d 3d 20 54 4c 53 5f 50 52 4f 54 roto == TLS_PROT
80b0: 4f 5f 54 4c 53 31 5f 33 29 20 7b 0a 20 20 20 20 O_TLS1_3) {.
80c0: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f SSL_CTX_set_
80d0: 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f min_proto_versio
80e0: 6e 20 28 63 74 78 2c 20 54 4c 53 31 5f 33 5f 56 n (ctx, TLS1_3_V
80f0: 45 52 53 49 4f 4e 29 3b 0a 20 20 20 20 20 20 20 ERSION);.
8100: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 SSL_CTX_set_max
8110: 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 _proto_version (
8120: 63 74 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 ctx, TLS1_3_VERS
8130: 49 4f 4e 29 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 ION);. }.#end
8140: 69 66 0a 20 20 20 20 0a 20 20 20 20 53 53 4c 5f if. . SSL_
8150: 43 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 CTX_set_app_data
8160: 28 20 63 74 78 2c 20 28 76 6f 69 64 2a 29 69 6e ( ctx, (void*)in
8170: 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d 62 terp);./* rememb
8180: 65 72 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 er the interpret
8190: 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 er */. SSL_CT
81a0: 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 X_set_options( c
81b0: 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 3b tx, SSL_OP_ALL);
81c0: 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 ./* all SSL bug
81d0: 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 workarounds */.
81e0: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f SSL_CTX_set_o
81f0: 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f 66 66 ptions( ctx, off
8200: 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 );./* all SSL bu
8210: 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f g workarounds */
8220: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 73 . SSL_CTX_ses
8230: 73 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 s_set_cache_size
8240: 28 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a 20 20 ( ctx, 128);..
8250: 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 3d if (ciphers !=
8260: 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 58 5f NULL)..SSL_CTX_
8270: 73 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 set_cipher_list(
8280: 63 74 78 2c 20 63 69 70 68 65 72 73 29 3b 0a 0a ctx, ciphers);..
8290: 20 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d 65 20 /* set some
82a0: 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 20 20 callbacks */.
82b0: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 SSL_CTX_set_def
82c0: 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 28 63 ault_passwd_cb(c
82d0: 74 78 2c 20 50 61 73 73 77 6f 72 64 43 61 6c 6c tx, PasswordCall
82e0: 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 66 20 back);..#ifndef
82f0: 42 53 41 46 45 0a 20 20 20 20 53 53 4c 5f 43 54 BSAFE. SSL_CT
8300: 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 X_set_default_pa
8310: 73 73 77 64 5f 63 62 5f 75 73 65 72 64 61 74 61 sswd_cb_userdata
8320: 28 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 73 74 (ctx, (void *)st
8330: 61 74 65 50 74 72 29 3b 0a 23 65 6e 64 69 66 0a atePtr);.#endif.
8340: 0a 20 20 20 20 2f 2a 20 72 65 61 64 20 61 20 44 . /* read a D
8350: 69 66 66 69 65 2d 48 65 6c 6c 6d 61 6e 20 70 61 iffie-Hellman pa
8360: 72 61 6d 65 74 65 72 73 20 66 69 6c 65 2c 20 6f rameters file, o
8370: 72 20 75 73 65 20 74 68 65 20 62 75 69 6c 74 2d r use the built-
8380: 69 6e 20 6f 6e 65 20 2a 2f 0a 23 69 66 64 65 66 in one */.#ifdef
8390: 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44 48 0a 20 OPENSSL_NO_DH.
83a0: 20 20 20 69 66 20 28 44 48 70 61 72 61 6d 73 20 if (DHparams
83b0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f != NULL) {..Tcl_
83c0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
83d0: 65 72 70 2c 0a 09 20 20 20 20 22 44 48 20 70 61 erp,.. "DH pa
83e0: 72 61 6d 65 74 65 72 20 73 75 70 70 6f 72 74 20 rameter support
83f0: 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 22 2c 20 not available",
8400: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
8410: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
8420: 78 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c x);..return (SSL
8430: 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a _CTX *)0;. }.
8440: 23 65 6c 73 65 0a 20 20 20 20 7b 0a 09 44 48 2a #else. {..DH*
8450: 20 64 68 3b 0a 09 69 66 20 28 44 48 70 61 72 61 dh;..if (DHpara
8460: 6d 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 ms != NULL) {..
8470: 20 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 09 20 20 BIO *bio;..
8480: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
8490: 74 28 26 64 73 29 3b 0a 09 20 20 20 20 62 69 6f t(&ds);.. bio
84a0: 20 3d 20 42 49 4f 5f 6e 65 77 5f 66 69 6c 65 28 = BIO_new_file(
84b0: 46 32 4e 28 44 48 70 61 72 61 6d 73 2c 20 26 64 F2N(DHparams, &d
84c0: 73 29 2c 20 22 72 22 29 3b 0a 09 20 20 20 20 69 s), "r");.. i
84d0: 66 20 28 21 62 69 6f 29 20 7b 0a 09 09 54 63 6c f (!bio) {...Tcl
84e0: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
84f0: 29 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 );...Tcl_AppendR
8500: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 esult(interp,...
8510: 20 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 20 66 "Could not f
8520: 69 6e 64 20 44 48 20 70 61 72 61 6d 65 74 65 72 ind DH parameter
8530: 73 20 66 69 6c 65 22 2c 20 28 63 68 61 72 20 2a s file", (char *
8540: 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 ) NULL);...SSL_C
8550: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 09 TX_free(ctx);...
8560: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
8570: 2a 29 30 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 *)0;.. }..
8580: 20 0a 09 20 20 20 20 64 68 20 3d 20 50 45 4d 5f .. dh = PEM_
8590: 72 65 61 64 5f 62 69 6f 5f 44 48 70 61 72 61 6d read_bio_DHparam
85a0: 73 28 62 69 6f 2c 20 4e 55 4c 4c 2c 20 4e 55 4c s(bio, NULL, NUL
85b0: 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 42 L, NULL);.. B
85c0: 49 4f 5f 66 72 65 65 28 62 69 6f 29 3b 0a 09 20 IO_free(bio);..
85d0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
85e0: 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 69 66 ee(&ds);.. if
85f0: 20 28 21 64 68 29 20 7b 0a 09 09 54 63 6c 5f 41 (!dh) {...Tcl_A
8600: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8610: 72 70 2c 0a 09 09 20 20 20 20 22 43 6f 75 6c 64 rp,... "Could
8620: 20 6e 6f 74 20 72 65 61 64 20 44 48 20 70 61 72 not read DH par
8630: 61 6d 65 74 65 72 73 20 66 72 6f 6d 20 66 69 6c ameters from fil
8640: 65 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c e", (char *) NUL
8650: 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 L);...SSL_CTX_fr
8660: 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 ee(ctx);...retur
8670: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
8680: 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b . }..} else {
8690: 0a 09 20 20 20 20 64 68 20 3d 20 67 65 74 5f 64 .. dh = get_d
86a0: 68 50 61 72 61 6d 73 28 29 3b 0a 09 7d 0a 09 53 hParams();..}..S
86b0: 53 4c 5f 43 54 58 5f 73 65 74 5f 74 6d 70 5f 64 SL_CTX_set_tmp_d
86c0: 68 28 63 74 78 2c 20 64 68 29 3b 0a 09 44 48 5f h(ctx, dh);..DH_
86d0: 66 72 65 65 28 64 68 29 3b 0a 20 20 20 20 7d 0a free(dh);. }.
86e0: 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 20 73 #endif.. /* s
86f0: 65 74 20 6f 75 72 20 63 65 72 74 69 66 69 63 61 et our certifica
8700: 74 65 20 2a 2f 0a 20 20 20 20 6c 6f 61 64 5f 70 te */. load_p
8710: 72 69 76 61 74 65 5f 6b 65 79 20 3d 20 30 3b 0a rivate_key = 0;.
8720: 20 20 20 20 69 66 20 28 63 65 72 74 66 69 6c 65 if (certfile
8730: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6c 6f 61 != NULL) {..loa
8740: 64 5f 70 72 69 76 61 74 65 5f 6b 65 79 20 3d 20 d_private_key =
8750: 31 3b 0a 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 1;...Tcl_DString
8760: 49 6e 69 74 28 26 64 73 29 3b 0a 0a 09 69 66 20 Init(&ds);...if
8770: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 (SSL_CTX_use_cer
8780: 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 tificate_file(ct
8790: 78 2c 20 46 32 4e 28 20 63 65 72 74 66 69 6c 65 x, F2N( certfile
87a0: 2c 20 26 64 73 29 2c 0a 09 09 09 09 09 53 53 4c , &ds),......SSL
87b0: 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c _FILETYPE_PEM) <
87c0: 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f = 0) {.. Tcl_
87d0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
87e0: 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ;.. Tcl_Appen
87f0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
8800: 09 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 ... "unable
8810: 74 6f 20 73 65 74 20 63 65 72 74 69 66 69 63 61 to set certifica
8820: 74 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 66 te file ", certf
8830: 69 6c 65 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 ile, ": ",....
8840: 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 REASON(), (ch
8850: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
8860: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
8870: 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tx);.. return
8880: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 (SSL_CTX *)0;..
8890: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 }. } else if
88a0: 28 63 65 72 74 20 21 3d 20 4e 55 4c 4c 29 20 7b (cert != NULL) {
88b0: 0a 09 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b ..load_private_k
88c0: 65 79 20 3d 20 31 3b 0a 09 69 66 20 28 53 53 4c ey = 1;..if (SSL
88d0: 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 _CTX_use_certifi
88e0: 63 61 74 65 5f 41 53 4e 31 28 63 74 78 2c 20 63 cate_ASN1(ctx, c
88f0: 65 72 74 5f 6c 65 6e 2c 20 63 65 72 74 29 20 3c ert_len, cert) <
8900: 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f = 0) {.. Tcl_
8910: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
8920: 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ;.. Tcl_Appen
8930: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
8940: 09 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 ... "unable
8950: 74 6f 20 73 65 74 20 63 65 72 74 69 66 69 63 61 to set certifica
8960: 74 65 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 te: ",.... R
8970: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
8980: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 ) NULL);.. SS
8990: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b L_CTX_free(ctx);
89a0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 .. return (SS
89b0: 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 7d 0a 20 20 L_CTX *)0;..}.
89c0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 63 65 72 74 } else {..cert
89d0: 66 69 6c 65 20 3d 20 28 63 68 61 72 2a 29 58 35 file = (char*)X5
89e0: 30 39 5f 67 65 74 5f 64 65 66 61 75 6c 74 5f 63 09_get_default_c
89f0: 65 72 74 5f 66 69 6c 65 28 29 3b 0a 0a 09 69 66 ert_file();...if
8a00: 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 (SSL_CTX_use_ce
8a10: 72 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 rtificate_file(c
8a20: 74 78 2c 20 63 65 72 74 66 69 6c 65 2c 0a 09 09 tx, certfile,...
8a30: 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f ...SSL_FILETYPE_
8a40: 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 23 69 66 PEM) <= 0) {.#if
8a50: 20 30 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 0.. Tcl_DStr
8a60: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 ingFree(&ds);..
8a70: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
8a80: 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 ult(interp,....
8a90: 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 75 "unable to u
8aa0: 73 65 20 64 65 66 61 75 6c 74 20 63 65 72 74 69 se default certi
8ab0: 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 63 ficate file ", c
8ac0: 65 72 74 66 69 6c 65 2c 20 22 3a 20 22 2c 0a 09 ertfile, ": ",..
8ad0: 09 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c .. REASON(),
8ae0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
8af0: 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 .. SSL_CTX_fr
8b00: 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65 ee(ctx);.. re
8b10: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 turn (SSL_CTX *)
8b20: 30 3b 0a 23 65 6e 64 69 66 0a 09 7d 0a 20 20 20 0;.#endif..}.
8b30: 20 7d 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 6f }.. /* set o
8b40: 75 72 20 70 72 69 76 61 74 65 20 6b 65 79 20 2a ur private key *
8b50: 2f 0a 20 20 20 20 69 66 20 28 6c 6f 61 64 5f 70 /. if (load_p
8b60: 72 69 76 61 74 65 5f 6b 65 79 29 20 7b 0a 09 69 rivate_key) {..i
8b70: 66 20 28 6b 65 79 66 69 6c 65 20 3d 3d 20 4e 55 f (keyfile == NU
8b80: 4c 4c 20 26 26 20 6b 65 79 20 3d 3d 20 4e 55 4c LL && key == NUL
8b90: 4c 29 20 7b 0a 09 20 20 20 20 6b 65 79 66 69 6c L) {.. keyfil
8ba0: 65 20 3d 20 63 65 72 74 66 69 6c 65 3b 0a 09 7d e = certfile;..}
8bb0: 0a 0a 09 69 66 20 28 6b 65 79 66 69 6c 65 20 21 ...if (keyfile !
8bc0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 2f = NULL) {.. /
8bd0: 2a 20 67 65 74 20 74 68 65 20 70 72 69 76 61 74 * get the privat
8be0: 65 20 6b 65 79 20 61 73 73 6f 63 69 61 74 65 64 e key associated
8bf0: 20 77 69 74 68 20 74 68 69 73 20 63 65 72 74 69 with this certi
8c00: 66 69 63 61 74 65 20 2a 2f 0a 09 20 20 20 20 69 ficate */.. i
8c10: 66 20 28 6b 65 79 66 69 6c 65 20 3d 3d 20 4e 55 f (keyfile == NU
8c20: 4c 4c 29 20 7b 0a 09 09 6b 65 79 66 69 6c 65 20 LL) {...keyfile
8c30: 3d 20 63 65 72 74 66 69 6c 65 3b 0a 09 20 20 20 = certfile;..
8c40: 20 7d 0a 0a 09 20 20 20 20 69 66 20 28 53 53 4c }... if (SSL
8c50: 5f 43 54 58 5f 75 73 65 5f 50 72 69 76 61 74 65 _CTX_use_Private
8c60: 4b 65 79 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 Key_file(ctx, F2
8c70: 4e 28 20 6b 65 79 66 69 6c 65 2c 20 26 64 73 29 N( keyfile, &ds)
8c80: 2c 20 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 , SSL_FILETYPE_P
8c90: 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 09 09 54 63 EM) <= 0) {...Tc
8ca0: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
8cb0: 73 29 3b 0a 09 09 2f 2a 20 66 6c 75 73 68 20 74 s);.../* flush t
8cc0: 68 65 20 70 61 73 73 70 68 72 61 73 65 20 77 68 he passphrase wh
8cd0: 69 63 68 20 6d 69 67 68 74 20 62 65 20 6c 65 66 ich might be lef
8ce0: 74 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 t in the result
8cf0: 2a 2f 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 */...Tcl_SetResu
8d00: 6c 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 2c lt(interp, NULL,
8d10: 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 09 09 TCL_STATIC);...
8d20: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
8d30: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 (interp,....
8d40: 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 "unable to
8d50: 73 65 74 20 70 75 62 6c 69 63 20 6b 65 79 20 66 set public key f
8d60: 69 6c 65 20 22 2c 20 6b 65 79 66 69 6c 65 2c 20 ile ", keyfile,
8d70: 22 20 22 2c 0a 09 09 09 20 20 20 20 20 20 20 20 " ",....
8d80: 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 REASON(), (char
8d90: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c *) NULL);...SSL
8da0: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
8db0: 09 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 ..return (SSL_CT
8dc0: 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a 0a 09 X *)0;.. }...
8dd0: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 Tcl_DStringF
8de0: 72 65 65 28 26 64 73 29 3b 0a 09 7d 20 65 6c 73 ree(&ds);..} els
8df0: 65 20 69 66 20 28 6b 65 79 20 21 3d 20 4e 55 4c e if (key != NUL
8e00: 4c 29 20 7b 0a 09 20 20 20 20 69 66 20 28 53 53 L) {.. if (SS
8e10: 4c 5f 43 54 58 5f 75 73 65 5f 50 72 69 76 61 74 L_CTX_use_Privat
8e20: 65 4b 65 79 5f 41 53 4e 31 28 45 56 50 5f 50 4b eKey_ASN1(EVP_PK
8e30: 45 59 5f 52 53 41 2c 20 63 74 78 2c 20 6b 65 79 EY_RSA, ctx, key
8e40: 2c 6b 65 79 5f 6c 65 6e 29 20 3c 3d 20 30 29 20 ,key_len) <= 0)
8e50: 7b 0a 09 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 {...Tcl_DStringF
8e60: 72 65 65 28 26 64 73 29 3b 0a 09 09 2f 2a 20 66 ree(&ds);.../* f
8e70: 6c 75 73 68 20 74 68 65 20 70 61 73 73 70 68 72 lush the passphr
8e80: 61 73 65 20 77 68 69 63 68 20 6d 69 67 68 74 20 ase which might
8e90: 62 65 20 6c 65 66 74 20 69 6e 20 74 68 65 20 72 be left in the r
8ea0: 65 73 75 6c 74 20 2a 2f 0a 09 09 54 63 6c 5f 53 esult */...Tcl_S
8eb0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
8ec0: 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49 NULL, TCL_STATI
8ed0: 43 29 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 C);...Tcl_Append
8ee0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 Result(interp,..
8ef0: 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
8f00: 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 "unable to set
8f10: 20 70 75 62 6c 69 63 20 6b 65 79 3a 20 22 2c 0a public key: ",.
8f20: 09 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
8f30: 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 REASON(), (ch
8f40: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 ar *) NULL);...S
8f50: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
8f60: 3b 0a 09 09 72 65 74 75 72 6e 20 28 53 53 4c 5f ;...return (SSL_
8f70: 43 54 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a CTX *)0;.. }.
8f80: 09 7d 0a 09 2f 2a 20 4e 6f 77 20 77 65 20 6b 6e .}../* Now we kn
8f90: 6f 77 20 74 68 61 74 20 61 20 6b 65 79 20 61 6e ow that a key an
8fa0: 64 20 63 65 72 74 20 68 61 76 65 20 62 65 65 6e d cert have been
8fb0: 20 73 65 74 20 61 67 61 69 6e 73 74 0a 09 20 2a set against.. *
8fc0: 20 74 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 the SSL context
8fd0: 20 2a 2f 0a 09 69 66 20 28 21 53 53 4c 5f 43 54 */..if (!SSL_CT
8fe0: 58 5f 63 68 65 63 6b 5f 70 72 69 76 61 74 65 5f X_check_private_
8ff0: 6b 65 79 28 63 74 78 29 29 20 7b 0a 09 20 20 20 key(ctx)) {..
9000: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
9010: 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 t(interp,....
9020: 20 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 64 "private key d
9030: 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 oes not match th
9040: 65 20 63 65 72 74 69 66 69 63 61 74 65 20 70 75 e certificate pu
9050: 62 6c 69 63 20 6b 65 79 22 2c 0a 09 09 09 20 20 blic key",....
9060: 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c (char *) NULL
9070: 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f );.. SSL_CTX_
9080: 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 free(ctx);..
9090: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
90a0: 2a 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 *)0;..}. }..
90b0: 20 20 20 2f 2a 20 53 65 74 20 76 65 72 69 66 69 /* Set verifi
90c0: 63 61 74 69 6f 6e 20 43 41 73 20 2a 2f 0a 20 20 cation CAs */.
90d0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
90e0: 74 28 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f t(&ds);. Tcl_
90f0: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 31 DStringInit(&ds1
9100: 29 3b 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f );. if (!SSL_
9110: 43 54 58 5f 6c 6f 61 64 5f 76 65 72 69 66 79 5f CTX_load_verify_
9120: 6c 6f 63 61 74 69 6f 6e 73 28 63 74 78 2c 20 46 locations(ctx, F
9130: 32 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 2c 2N(CAfile, &ds),
9140: 20 46 32 4e 28 43 41 64 69 72 2c 20 26 64 73 31 F2N(CAdir, &ds1
9150: 29 29 20 7c 7c 0a 09 21 53 53 4c 5f 43 54 58 5f )) ||..!SSL_CTX_
9160: 73 65 74 5f 64 65 66 61 75 6c 74 5f 76 65 72 69 set_default_veri
9170: 66 79 5f 70 61 74 68 73 28 63 74 78 29 29 20 7b fy_paths(ctx)) {
9180: 0a 23 69 66 20 30 0a 09 54 63 6c 5f 44 53 74 72 .#if 0..Tcl_DStr
9190: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 54 ingFree(&ds);..T
91a0: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
91b0: 64 73 31 29 3b 0a 09 2f 2a 20 44 6f 6e 27 74 20 ds1);../* Don't
91c0: 63 75 72 72 65 6e 74 6c 79 20 63 61 72 65 20 69 currently care i
91d0: 66 20 74 68 69 73 20 66 61 69 6c 73 20 2a 2f 0a f this fails */.
91e0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
91f0: 74 28 69 6e 74 65 72 70 2c 20 22 53 53 4c 20 64 t(interp, "SSL d
9200: 65 66 61 75 6c 74 20 76 65 72 69 66 79 20 70 61 efault verify pa
9210: 74 68 73 3a 20 22 2c 0a 09 09 52 45 41 53 4f 4e ths: ",...REASON
9220: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
9230: 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 L);..SSL_CTX_fre
9240: 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 e(ctx);..return
9250: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 (SSL_CTX *)0;.#e
9260: 6e 64 69 66 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ndif. }..
9270: 2f 2a 20 68 74 74 70 73 3a 2f 2f 73 6f 75 72 63 /* https://sourc
9280: 65 66 6f 72 67 65 2e 6e 65 74 2f 70 2f 74 6c 73 eforge.net/p/tls
9290: 2f 62 75 67 73 2f 35 37 2f 20 2a 2f 0a 20 20 20 /bugs/57/ */.
92a0: 20 2f 2a 20 58 58 58 3a 54 4f 44 4f 3a 20 4c 65 /* XXX:TODO: Le
92b0: 74 20 74 68 65 20 75 73 65 72 20 73 75 70 70 6c t the user suppl
92c0: 79 20 76 61 6c 75 65 73 20 68 65 72 65 20 69 6e y values here in
92d0: 73 74 65 61 64 20 6f 66 20 73 6f 6d 65 74 68 69 stead of somethi
92e0: 6e 67 20 74 68 61 74 20 65 78 69 73 74 73 20 6f ng that exists o
92f0: 6e 20 74 68 65 20 66 69 6c 65 73 79 73 74 65 6d n the filesystem
9300: 20 2a 2f 0a 20 20 20 20 69 66 20 28 20 43 41 66 */. if ( CAf
9310: 69 6c 65 20 21 3d 20 4e 55 4c 4c 20 29 20 7b 0a ile != NULL ) {.
9320: 20 20 20 20 20 20 20 20 53 54 41 43 4b 5f 4f 46 STACK_OF
9330: 28 58 35 30 39 5f 4e 41 4d 45 29 20 2a 63 65 72 (X509_NAME) *cer
9340: 74 4e 61 6d 65 73 20 3d 20 53 53 4c 5f 6c 6f 61 tNames = SSL_loa
9350: 64 5f 63 6c 69 65 6e 74 5f 43 41 5f 66 69 6c 65 d_client_CA_file
9360: 28 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 64 ( F2N(CAfile, &d
9370: 73 29 20 29 3b 0a 09 69 66 20 28 20 63 65 72 74 s) );..if ( cert
9380: 4e 61 6d 65 73 20 21 3d 20 4e 55 4c 4c 20 29 20 Names != NULL )
9390: 7b 20 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f { .. SSL_CTX_
93a0: 73 65 74 5f 63 6c 69 65 6e 74 5f 43 41 5f 6c 69 set_client_CA_li
93b0: 73 74 28 63 74 78 2c 20 63 65 72 74 4e 61 6d 65 st(ctx, certName
93c0: 73 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 s );..}. }..
93d0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
93e0: 65 65 28 26 64 73 29 3b 0a 20 20 20 20 54 63 6c ee(&ds);. Tcl
93f0: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
9400: 31 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 63 1);. return c
9410: 74 78 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d tx;.}.../*. *---
9420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9460: 0a 20 2a 0a 20 2a 20 53 74 61 74 75 73 4f 62 6a . *. * StatusObj
9470: 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 63 65 Cmd -- return ce
9480: 72 74 69 66 69 63 61 74 65 20 66 6f 72 20 63 6f rtificate for co
9490: 6e 6e 65 63 74 65 64 20 70 65 65 72 2e 0a 20 2a nnected peer.. *
94a0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
94b0: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 A standard Tcl r
94c0: 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 esult.. *. * Sid
94d0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
94e0: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
94f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
9530: 0a 73 74 61 74 69 63 20 69 6e 74 0a 53 74 61 74 .static int.Stat
9540: 75 73 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 usObjCmd(clientD
9550: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
9560: 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 c, objv). Cli
9570: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
9580: 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e ta;./* Not used.
9590: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
95a0: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 rp *interp;.
95b0: 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 int objc;. Tc
95c0: 6c 5f 4f 62 6a 09 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj.*const obj
95d0: 76 5b 5d 3b 0a 7b 0a 20 20 20 20 53 74 61 74 65 v[];.{. State
95e0: 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 *statePtr;.
95f0: 58 35 30 39 20 2a 70 65 65 72 3b 0a 20 20 20 20 X509 *peer;.
9600: 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b Tcl_Obj *objPtr;
9610: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
9620: 20 63 68 61 6e 3b 0a 20 20 20 20 63 68 61 72 20 chan;. char
9630: 2a 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 2a 63 *channelName, *c
9640: 69 70 68 65 72 73 3b 0a 20 20 20 20 69 6e 74 20 iphers;. int
9650: 6d 6f 64 65 3b 0a 0a 20 20 20 20 64 70 72 69 6e mode;.. dprin
9660: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
9670: 20 20 20 73 77 69 74 63 68 20 28 6f 62 6a 63 29 switch (objc)
9680: 20 7b 0a 09 63 61 73 65 20 32 3a 0a 09 20 20 20 {..case 2:..
9690: 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 channelName = T
96a0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
96b0: 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 28 54 63 Obj(objv[1], (Tc
96c0: 6c 5f 53 69 7a 65 20 2a 29 20 4e 55 4c 4c 29 3b l_Size *) NULL);
96d0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
96e0: 61 73 65 20 33 3a 0a 09 20 20 20 20 69 66 20 28 ase 3:.. if (
96f0: 21 73 74 72 63 6d 70 20 28 54 63 6c 5f 47 65 74 !strcmp (Tcl_Get
9700: 53 74 72 69 6e 67 20 28 6f 62 6a 76 5b 31 5d 29 String (objv[1])
9710: 2c 20 22 2d 6c 6f 63 61 6c 22 29 29 20 7b 0a 09 , "-local")) {..
9720: 09 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 .channelName = T
9730: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
9740: 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 28 54 63 Obj(objv[2], (Tc
9750: 6c 5f 53 69 7a 65 20 2a 29 4e 55 4c 4c 29 3b 0a l_Size *)NULL);.
9760: 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a ..break;.. }.
9770: 09 20 20 20 20 2f 2a 20 65 6c 73 65 20 66 61 6c . /* else fal
9780: 6c 2e 2e 2e 20 2a 2f 0a 09 64 65 66 61 75 6c 74 l... */..default
9790: 3a 0a 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 :.. Tcl_Wrong
97a0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
97b0: 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6c 6f 63 61 1, objv, "?-loca
97c0: 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 20 l? channel");..
97d0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
97e0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
97f0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
9800: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 annel(interp, ch
9810: 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 6d 6f 64 65 annelName, &mode
9820: 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 );. if (chan
9830: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
9840: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
9850: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
9860: 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 }. /*. *
9870: 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 Make sure to ope
9880: 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d rate on the topm
9890: 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 ost channel.
98a0: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 */. chan = T
98b0: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c cl_GetTopChannel
98c0: 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 (chan);. if (
98d0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 Tcl_GetChannelTy
98e0: 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f pe(chan) != Tls_
98f0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b ChannelType()) {
9900: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
9910: 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 lt(interp, "bad
9920: 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c channel \"", Tcl
9930: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
9940: 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f chan),..."\": no
9950: 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 t a TLS channel"
9960: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
9970: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
9980: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 20 3d }. statePtr =
9990: 20 28 53 74 61 74 65 20 2a 29 20 54 63 6c 5f 47 (State *) Tcl_G
99a0: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
99b0: 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 20 20 20 eData(chan);.
99c0: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 if (objc == 2)
99d0: 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 65 {..peer = SSL_ge
99e0: 74 5f 70 65 65 72 5f 63 65 72 74 69 66 69 63 61 t_peer_certifica
99f0: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c te(statePtr->ssl
9a00: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
9a10: 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 65 74 5f .peer = SSL_get_
9a20: 63 65 72 74 69 66 69 63 61 74 65 28 73 74 61 74 certificate(stat
9a30: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 ePtr->ssl);.
9a40: 7d 0a 20 20 20 20 69 66 20 28 70 65 65 72 29 20 }. if (peer)
9a50: 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 6c 73 5f {..objPtr = Tls_
9a60: 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e 74 65 72 NewX509Obj(inter
9a70: 70 2c 20 70 65 65 72 29 3b 0a 09 69 66 20 28 6f p, peer);..if (o
9a80: 62 6a 63 20 3d 3d 20 32 29 20 7b 20 58 35 30 39 bjc == 2) { X509
9a90: 5f 66 72 65 65 28 70 65 65 72 29 3b 20 7d 0a 20 _free(peer); }.
9aa0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6f 62 6a } else {..obj
9ab0: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Ptr = Tcl_NewLis
9ac0: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 tObj(0, NULL);.
9ad0: 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 }.. Tcl_Li
9ae0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
9af0: 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 nt (interp, objP
9b00: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
9b10: 53 74 72 69 6e 67 4f 62 6a 20 28 22 73 62 69 74 StringObj ("sbit
9b20: 73 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 s", -1));. Tc
9b30: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
9b40: 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 lement (interp,
9b50: 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c objPtr,.. Tcl
9b60: 5f 4e 65 77 49 6e 74 4f 62 6a 20 28 53 53 4c 5f _NewIntObj (SSL_
9b70: 67 65 74 5f 63 69 70 68 65 72 5f 62 69 74 73 20 get_cipher_bits
9b80: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
9b90: 4e 55 4c 4c 29 29 29 3b 0a 0a 20 20 20 20 63 69 NULL)));.. ci
9ba0: 70 68 65 72 73 20 3d 20 28 63 68 61 72 2a 29 53 phers = (char*)S
9bb0: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74 SL_get_cipher(st
9bc0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 atePtr->ssl);.
9bd0: 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 3d if (ciphers !=
9be0: 20 4e 55 4c 4c 20 26 26 20 73 74 72 63 6d 70 28 NULL && strcmp(
9bf0: 63 69 70 68 65 72 73 2c 20 22 28 4e 4f 4e 45 29 ciphers, "(NONE)
9c00: 22 29 21 3d 30 29 20 7b 0a 09 54 63 6c 5f 4c 69 ")!=0) {..Tcl_Li
9c10: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
9c20: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 nt(interp, objPt
9c30: 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 r,...Tcl_NewStri
9c40: 6e 67 4f 62 6a 28 22 63 69 70 68 65 72 22 2c 20 ngObj("cipher",
9c50: 2d 31 29 29 3b 0a 09 54 63 6c 5f 4c 69 73 74 4f -1));..Tcl_ListO
9c60: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
9c70: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
9c80: 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f ..Tcl_NewStringO
9c90: 62 6a 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 bj(SSL_get_ciphe
9ca0: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 r(statePtr->ssl)
9cb0: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 0a 20 , -1));. }..
9cc0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
9cd0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
9ce0: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 54 63 6c rp, objPtr,..Tcl
9cf0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 76 _NewStringObj("v
9d00: 65 72 73 69 6f 6e 22 2c 20 2d 31 29 29 3b 0a 20 ersion", -1));.
9d10: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
9d20: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
9d30: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 54 63 6c rp, objPtr,..Tcl
9d40: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 53 53 _NewStringObj(SS
9d50: 4c 5f 67 65 74 5f 76 65 72 73 69 6f 6e 28 73 74 L_get_version(st
9d60: 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c 20 2d 31 atePtr->ssl), -1
9d70: 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 ));.. Tcl_Set
9d80: 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 72 ObjResult( inter
9d90: 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 p, objPtr);.
9da0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 return TCL_OK;.
9db0: 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d .clientData =
9dc0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c clientData;.}..
9dd0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
9de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
9e20: 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d VersionObjCmd --
9e30: 20 72 65 74 75 72 6e 20 76 65 72 73 69 6f 6e 20 return version
9e40: 73 74 72 69 6e 67 20 66 72 6f 6d 20 4f 70 65 6e string from Open
9e50: 53 53 4c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c SSL.. *. * Resul
9e60: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
9e70: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
9e80: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
9e90: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
9ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9eb0: 2d 2d 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
9ef0: 6e 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 nt.VersionObjCmd
9f00: 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 (clientData, int
9f10: 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 erp, objc, objv)
9f20: 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 . ClientData
9f30: 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e clientData;./* N
9f40: 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 ot used. */.
9f50: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
9f60: 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 rp;. int objc
9f70: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 63 ;. Tcl_Obj.*c
9f80: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 onst objv[];.{.
9f90: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 Tcl_Obj *objP
9fa0: 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 tr;.. dprintf
9fb0: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
9fc0: 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 objPtr = Tcl_Ne
9fd0: 77 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 wStringObj(OPENS
9fe0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c SL_VERSION_TEXT,
9ff0: 20 2d 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 -1);.. Tcl_S
a000: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
a010: 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 rp, objPtr);.
a020: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
a030: 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20 .clientData
a040: 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 = clientData;.
a050: 20 20 09 6f 62 6a 63 20 3d 20 6f 62 6a 63 3b 0a .objc = objc;.
a060: 20 20 20 20 09 6f 62 6a 76 20 3d 20 6f 62 6a 76 .objv = objv
a070: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
a080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a0a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a0b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
a0c0: 2a 0a 20 2a 20 4d 69 73 63 4f 62 6a 43 6d 64 20 *. * MiscObjCmd
a0d0: 2d 2d 20 6d 69 73 63 20 63 6f 6d 6d 61 6e 64 73 -- misc commands
a0e0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
a0f0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
a100: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
a110: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
a120: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
a130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
a170: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 4d */.static int.M
a180: 69 73 63 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 iscObjCmd(client
a190: 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 Data, interp, ob
a1a0: 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c jc, objv). Cl
a1b0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
a1c0: 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 ata;./* Not used
a1d0: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 . */. Tcl_Int
a1e0: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 erp *interp;.
a1f0: 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 int objc;. T
a200: 63 6c 5f 4f 62 6a 09 2a 63 6f 6e 73 74 20 6f 62 cl_Obj.*const ob
a210: 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 61 74 jv[];.{. stat
a220: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 ic const char *c
a230: 6f 6d 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b 20 22 ommands [] = { "
a240: 72 65 71 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 20 20 req", NULL };.
a250: 20 20 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 20 7b enum command {
a260: 20 43 5f 52 45 51 2c 20 43 5f 44 55 4d 4d 59 20 C_REQ, C_DUMMY
a270: 7d 3b 0a 20 20 20 20 69 6e 74 20 63 6d 64 3b 0a };. int cmd;.
a280: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
a290: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
a2a0: 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 (objc < 2) {..Tc
a2b0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
a2c0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
a2d0: 22 73 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 72 67 "subcommand ?arg
a2e0: 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 s?");..return TC
a2f0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
a300: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e if (Tcl_GetIn
a310: 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 dexFromObj(inter
a320: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 63 6f 6d 6d p, objv[1], comm
a330: 61 6e 64 73 2c 0a 09 20 20 20 20 22 63 6f 6d 6d ands,.. "comm
a340: 61 6e 64 22 2c 20 30 2c 26 63 6d 64 29 20 21 3d and", 0,&cmd) !=
a350: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 TCL_OK) {..retu
a360: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
a370: 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 }.. switch
a380: 28 28 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 ((enum command)
a390: 63 6d 64 29 20 7b 0a 09 63 61 73 65 20 43 5f 52 cmd) {..case C_R
a3a0: 45 51 3a 20 7b 0a 09 20 20 20 20 45 56 50 5f 50 EQ: {.. EVP_P
a3b0: 4b 45 59 20 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a KEY *pkey=NULL;.
a3c0: 09 20 20 20 20 58 35 30 39 20 2a 63 65 72 74 3d . X509 *cert=
a3d0: 4e 55 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 5f NULL;.. X509_
a3e0: 4e 41 4d 45 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b NAME *name=NULL;
a3f0: 0a 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a .. Tcl_Obj **
a400: 6c 69 73 74 76 3b 0a 09 20 20 20 20 69 6e 74 20 listv;.. int
a410: 6c 69 73 74 63 2c 69 3b 0a 0a 09 20 20 20 20 42 listc,i;... B
a420: 49 4f 20 2a 6f 75 74 3d 4e 55 4c 4c 3b 0a 0a 09 IO *out=NULL;...
a430: 20 20 20 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 char *k_C=""
a440: 2c 2a 6b 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 ,*k_ST="",*k_L="
a450: 22 2c 2a 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d ",*k_O="",*k_OU=
a460: 22 22 2c 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 "",*k_CN="",*k_E
a470: 6d 61 69 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 mail="";.. ch
a480: 61 72 20 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f ar *keyout,*pemo
a490: 75 74 2c 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e ut,*str;.. in
a4a0: 74 20 6b 65 79 73 69 7a 65 2c 73 65 72 69 61 6c t keysize,serial
a4b0: 3d 30 2c 64 61 79 73 3d 33 36 35 3b 0a 09 20 20 =0,days=365;..
a4c0: 20 20 0a 09 20 20 20 20 69 66 20 28 28 6f 62 6a .. if ((obj
a4d0: 63 3c 35 29 20 7c 7c 20 28 6f 62 6a 63 3e 36 29 c<5) || (objc>6)
a4e0: 29 20 7b 0a 09 09 54 63 6c 5f 57 72 6f 6e 67 4e ) {...Tcl_WrongN
a4f0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 umArgs(interp, 2
a500: 2c 20 6f 62 6a 76 2c 20 22 6b 65 79 73 69 7a 65 , objv, "keysize
a510: 20 6b 65 79 66 69 6c 65 20 63 65 72 74 66 69 6c keyfile certfil
a520: 65 20 3f 69 6e 66 6f 3f 22 29 3b 0a 09 09 72 65 e ?info?");...re
a530: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
a540: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 69 66 20 . }... if
a550: 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f (Tcl_GetIntFromO
a560: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
a570: 32 5d 2c 20 26 6b 65 79 73 69 7a 65 29 20 21 3d 2], &keysize) !=
a580: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 72 65 74 TCL_OK) {...ret
a590: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
a5a0: 20 20 20 20 7d 0a 09 20 20 20 20 6b 65 79 6f 75 }.. keyou
a5b0: 74 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 t=Tcl_GetString(
a5c0: 6f 62 6a 76 5b 33 5d 29 3b 0a 09 20 20 20 20 70 objv[3]);.. p
a5d0: 65 6d 6f 75 74 3d 54 63 6c 5f 47 65 74 53 74 72 emout=Tcl_GetStr
a5e0: 69 6e 67 28 6f 62 6a 76 5b 34 5d 29 3b 0a 0a 09 ing(objv[4]);...
a5f0: 20 20 20 20 69 66 20 28 6f 62 6a 63 3e 3d 36 29 if (objc>=6)
a600: 20 7b 0a 09 09 69 66 20 28 54 63 6c 5f 4c 69 73 {...if (Tcl_Lis
a610: 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 tObjGetElements(
a620: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c interp, objv[5],
a630: 0a 09 09 09 26 6c 69 73 74 63 2c 20 26 6c 69 73 ....&listc, &lis
a640: 74 76 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b tv) != TCL_OK) {
a650: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
a660: 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 L_ERROR;...}....
a670: 69 66 20 28 28 6c 69 73 74 63 25 32 29 20 21 3d if ((listc%2) !=
a680: 20 30 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 0) {... Tcl_
a690: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
a6a0: 2c 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6c 69 ,"Information li
a6b0: 73 74 20 6d 75 73 74 20 68 61 76 65 20 65 76 65 st must have eve
a6c0: 6e 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 n number of argu
a6d0: 6d 65 6e 74 73 22 2c 4e 55 4c 4c 29 3b 0a 09 09 ments",NULL);...
a6e0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
a6f0: 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 66 6f 72 20 RROR;...}...for
a700: 28 69 3d 30 3b 20 69 3c 6c 69 73 74 63 3b 20 69 (i=0; i<listc; i
a710: 2b 3d 32 29 20 7b 0a 09 09 20 20 20 20 73 74 72 +=2) {... str
a720: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
a730: 69 73 74 76 5b 69 5d 29 3b 0a 09 09 20 20 20 20 istv[i]);...
a740: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 if (strcmp(str,"
a750: 64 61 79 73 22 29 3d 3d 30 29 20 7b 0a 09 09 09 days")==0) {....
a760: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
a770: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 omObj(interp,lis
a780: 74 76 5b 69 2b 31 5d 2c 26 64 61 79 73 29 21 3d tv[i+1],&days)!=
a790: 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 TCL_OK).... r
a7a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a7b0: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
a7c0: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 (strcmp(str,"se
a7d0: 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 rial")==0) {....
a7e0: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
a7f0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 omObj(interp,lis
a800: 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 tv[i+1],&serial)
a810: 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 !=TCL_OK)....
a820: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
a830: 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 R;... } else
a840: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 if (strcmp(str,"
a850: 73 65 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 serial")==0) {..
a860: 09 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 ..if (Tcl_GetInt
a870: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c FromObj(interp,l
a880: 69 73 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 61 istv[i+1],&seria
a890: 6c 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 l)!=TCL_OK)....
a8a0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
a8b0: 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 ROR;... } els
a8c0: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 e if (strcmp(str
a8d0: 2c 22 43 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b ,"C")==0) {....k
a8e0: 5f 43 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 _C=Tcl_GetString
a8f0: 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 (listv[i+1]);...
a900: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 } else if (s
a910: 74 72 63 6d 70 28 73 74 72 2c 22 53 54 22 29 3d trcmp(str,"ST")=
a920: 3d 30 29 20 7b 0a 09 09 09 6b 5f 53 54 3d 54 63 =0) {....k_ST=Tc
a930: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
a940: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
a950: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
a960: 28 73 74 72 2c 22 4c 22 29 3d 3d 30 29 20 7b 0a (str,"L")==0) {.
a970: 09 09 09 6b 5f 4c 3d 54 63 6c 5f 47 65 74 53 74 ...k_L=Tcl_GetSt
a980: 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 ring(listv[i+1])
a990: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 ;... } else i
a9a0: 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f f (strcmp(str,"O
a9b0: 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 3d ")==0) {....k_O=
a9c0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 Tcl_GetString(li
a9d0: 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 stv[i+1]);...
a9e0: 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 } else if (strc
a9f0: 6d 70 28 73 74 72 2c 22 4f 55 22 29 3d 3d 30 29 mp(str,"OU")==0)
aa00: 20 7b 0a 09 09 09 6b 5f 4f 55 3d 54 63 6c 5f 47 {....k_OU=Tcl_G
aa10: 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 etString(listv[i
aa20: 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c +1]);... } el
aa30: 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 se if (strcmp(st
aa40: 72 2c 22 43 4e 22 29 3d 3d 30 29 20 7b 0a 09 09 r,"CN")==0) {...
aa50: 09 6b 5f 43 4e 3d 54 63 6c 5f 47 65 74 53 74 72 .k_CN=Tcl_GetStr
aa60: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b ing(listv[i+1]);
aa70: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
aa80: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 45 6d (strcmp(str,"Em
aa90: 61 69 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b ail")==0) {....k
aaa0: 5f 45 6d 61 69 6c 3d 54 63 6c 5f 47 65 74 53 74 _Email=Tcl_GetSt
aab0: 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 ring(listv[i+1])
aac0: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;... } else {
aad0: 0a 09 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c ....Tcl_SetResul
aae0: 74 28 69 6e 74 65 72 70 2c 22 55 6e 6b 6e 6f 77 t(interp,"Unknow
aaf0: 6e 20 70 61 72 61 6d 65 74 65 72 22 2c 4e 55 4c n parameter",NUL
ab00: 4c 29 3b 0a 09 09 09 72 65 74 75 72 6e 20 54 43 L);....return TC
ab10: 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d L_ERROR;... }
ab20: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 ...}.. }..
ab30: 20 69 66 20 28 28 70 6b 65 79 20 3d 20 45 56 50 if ((pkey = EVP
ab40: 5f 50 4b 45 59 5f 6e 65 77 28 29 29 20 21 3d 20 _PKEY_new()) !=
ab50: 4e 55 4c 4c 29 20 7b 0a 09 09 69 66 20 28 21 45 NULL) {...if (!E
ab60: 56 50 5f 50 4b 45 59 5f 61 73 73 69 67 6e 5f 52 VP_PKEY_assign_R
ab70: 53 41 28 70 6b 65 79 2c 0a 09 09 09 52 53 41 5f SA(pkey,....RSA_
ab80: 67 65 6e 65 72 61 74 65 5f 6b 65 79 28 6b 65 79 generate_key(key
ab90: 73 69 7a 65 2c 20 30 78 31 30 30 30 31 2c 20 4e size, 0x10001, N
aba0: 55 4c 4c 2c 20 4e 55 4c 4c 29 29 29 20 7b 0a 09 ULL, NULL))) {..
abb0: 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
abc0: 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 lt(interp,"Error
abd0: 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72 69 76 generating priv
abe0: 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a ate key",NULL);.
abf0: 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 .. EVP_PKEY_f
ac00: 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 ree(pkey);...
ac10: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
ac20: 52 3b 0a 09 09 7d 0a 09 09 6f 75 74 3d 42 49 4f R;...}...out=BIO
ac30: 5f 6e 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 _new(BIO_s_file(
ac40: 29 29 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f ));...BIO_write_
ac50: 66 69 6c 65 6e 61 6d 65 28 6f 75 74 2c 6b 65 79 filename(out,key
ac60: 6f 75 74 29 3b 0a 09 09 50 45 4d 5f 77 72 69 74 out);...PEM_writ
ac70: 65 5f 62 69 6f 5f 50 72 69 76 61 74 65 4b 65 79 e_bio_PrivateKey
ac80: 28 6f 75 74 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e (out,pkey,NULL,N
ac90: 55 4c 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 ULL,0,NULL,NULL)
aca0: 3b 0a 09 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c ;...BIO_free_all
acb0: 28 6f 75 74 29 3b 0a 0a 09 09 69 66 20 28 28 63 (out);....if ((c
acc0: 65 72 74 3d 58 35 30 39 5f 6e 65 77 28 29 29 3d ert=X509_new())=
acd0: 3d 4e 55 4c 4c 29 20 7b 0a 09 09 20 20 20 20 54 =NULL) {... T
ace0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
acf0: 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 erp,"Error gener
ad00: 61 74 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 ating certificat
ad10: 65 20 72 65 71 75 65 73 74 22 2c 4e 55 4c 4c 29 e request",NULL)
ad20: 3b 0a 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 ;... EVP_PKEY
ad30: 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 _free(pkey);...
ad40: 20 20 20 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 return(TCL_ER
ad50: 52 4f 52 29 3b 0a 09 09 7d 0a 0a 09 09 58 35 30 ROR);...}....X50
ad60: 39 5f 73 65 74 5f 76 65 72 73 69 6f 6e 28 63 65 9_set_version(ce
ad70: 72 74 2c 32 29 3b 0a 09 09 41 53 4e 31 5f 49 4e rt,2);...ASN1_IN
ad80: 54 45 47 45 52 5f 73 65 74 28 58 35 30 39 5f 67 TEGER_set(X509_g
ad90: 65 74 5f 73 65 72 69 61 6c 4e 75 6d 62 65 72 28 et_serialNumber(
ada0: 63 65 72 74 29 2c 73 65 72 69 61 6c 29 3b 0a 09 cert),serial);..
adb0: 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a .X509_gmtime_adj
adc0: 28 58 35 30 39 5f 67 65 74 5f 6e 6f 74 42 65 66 (X509_get_notBef
add0: 6f 72 65 28 63 65 72 74 29 2c 30 29 3b 0a 09 09 ore(cert),0);...
ade0: 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 X509_gmtime_adj(
adf0: 58 35 30 39 5f 67 65 74 5f 6e 6f 74 41 66 74 65 X509_get_notAfte
ae00: 72 28 63 65 72 74 29 2c 28 6c 6f 6e 67 29 36 30 r(cert),(long)60
ae10: 2a 36 30 2a 32 34 2a 64 61 79 73 29 3b 0a 09 09 *60*24*days);...
ae20: 58 35 30 39 5f 73 65 74 5f 70 75 62 6b 65 79 28 X509_set_pubkey(
ae30: 63 65 72 74 2c 70 6b 65 79 29 3b 0a 09 09 0a 09 cert,pkey);.....
ae40: 09 6e 61 6d 65 3d 58 35 30 39 5f 67 65 74 5f 73 .name=X509_get_s
ae50: 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 ubject_name(cert
ae60: 29 3b 0a 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f );....X509_NAME_
ae70: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 add_entry_by_txt
ae80: 28 6e 61 6d 65 2c 22 43 22 2c 20 4d 42 53 54 52 (name,"C", MBSTR
ae90: 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e ING_ASC, (unsign
aea0: 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 43 2c 20 ed char *) k_C,
aeb0: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 -1, -1, 0);...X5
aec0: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 09_NAME_add_entr
aed0: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 53 y_by_txt(name,"S
aee0: 54 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 T", MBSTRING_ASC
aef0: 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 , (unsigned char
af00: 20 2a 29 20 6b 5f 53 54 2c 20 2d 31 2c 20 2d 31 *) k_ST, -1, -1
af10: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d , 0);...X509_NAM
af20: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 E_add_entry_by_t
af30: 78 74 28 6e 61 6d 65 2c 22 4c 22 2c 20 4d 42 53 xt(name,"L", MBS
af40: 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 TRING_ASC, (unsi
af50: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 4c gned char *) k_L
af60: 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 , -1, -1, 0);...
af70: 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e X509_NAME_add_en
af80: 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c try_by_txt(name,
af90: 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 "O", MBSTRING_AS
afa0: 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 C, (unsigned cha
afb0: 72 20 2a 29 20 6b 5f 4f 2c 20 2d 31 2c 20 2d 31 r *) k_O, -1, -1
afc0: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d , 0);...X509_NAM
afd0: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 E_add_entry_by_t
afe0: 78 74 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d 42 xt(name,"OU", MB
aff0: 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 STRING_ASC, (uns
b000: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f igned char *) k_
b010: 4f 55 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a OU, -1, -1, 0);.
b020: 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f ..X509_NAME_add_
b030: 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d entry_by_txt(nam
b040: 65 2c 22 43 4e 22 2c 20 4d 42 53 54 52 49 4e 47 e,"CN", MBSTRING
b050: 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 _ASC, (unsigned
b060: 63 68 61 72 20 2a 29 20 6b 5f 43 4e 2c 20 2d 31 char *) k_CN, -1
b070: 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 , -1, 0);...X509
b080: 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f _NAME_add_entry_
b090: 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 45 6d 61 by_txt(name,"Ema
b0a0: 69 6c 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 il", MBSTRING_AS
b0b0: 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 C, (unsigned cha
b0c0: 72 20 2a 29 20 6b 5f 45 6d 61 69 6c 2c 20 2d 31 r *) k_Email, -1
b0d0: 2c 20 2d 31 2c 20 30 29 3b 0a 0a 09 09 58 35 30 , -1, 0);....X50
b0e0: 39 5f 73 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 9_set_subject_na
b0f0: 6d 65 28 63 65 72 74 2c 6e 61 6d 65 29 3b 0a 0a me(cert,name);..
b100: 09 09 69 66 20 28 21 58 35 30 39 5f 73 69 67 6e ..if (!X509_sign
b110: 28 63 65 72 74 2c 70 6b 65 79 2c 45 56 50 5f 6d (cert,pkey,EVP_m
b120: 64 35 28 29 29 29 20 7b 0a 09 09 20 20 20 20 58 d5())) {... X
b130: 35 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 509_free(cert);.
b140: 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 .. EVP_PKEY_f
b150: 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 ree(pkey);...
b160: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
b170: 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 73 69 67 nterp,"Error sig
b180: 6e 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 ning certificate
b190: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72 ",NULL);... r
b1a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
b1b0: 0a 09 09 7d 0a 0a 09 09 6f 75 74 3d 42 49 4f 5f ...}....out=BIO_
b1c0: 6e 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 new(BIO_s_file()
b1d0: 29 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 );...BIO_write_f
b1e0: 69 6c 65 6e 61 6d 65 28 6f 75 74 2c 70 65 6d 6f ilename(out,pemo
b1f0: 75 74 29 3b 0a 0a 09 09 50 45 4d 5f 77 72 69 74 ut);....PEM_writ
b200: 65 5f 62 69 6f 5f 58 35 30 39 28 6f 75 74 2c 63 e_bio_X509(out,c
b210: 65 72 74 29 3b 0a 09 09 42 49 4f 5f 66 72 65 65 ert);...BIO_free
b220: 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 58 35 _all(out);....X5
b230: 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 09 09_free(cert);..
b240: 09 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 .EVP_PKEY_free(p
b250: 6b 65 79 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 key);.. } els
b260: 65 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 e {...Tcl_SetRes
b270: 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f ult(interp,"Erro
b280: 72 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72 69 r generating pri
b290: 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b vate key",NULL);
b2a0: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
b2b0: 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 ROR;.. }..}..
b2c0: 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 break;. defau
b2d0: 6c 74 3a 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 lt:..break;.
b2e0: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
b2f0: 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 65 6e 74 _OK;. .client
b300: 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 Data = clientDat
b310: 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d a;.}.../*. *----
b320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
b360: 20 2a 0a 20 2a 20 54 6c 73 5f 46 72 65 65 20 2d *. * Tls_Free -
b370: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
b380: 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 75 70 cedure cleans up
b390: 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b when a SSL sock
b3a0: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
b3b0: 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 6e . *.is closed an
b3c0: 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 65 20 d its reference
b3d0: 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f count falls belo
b3e0: 77 20 31 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 w 1. *. * Result
b3f0: 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a s:. *.none. *. *
b400: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
b410: 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 68 65 20 *.Frees all the
b420: 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d state. *. *-----
b430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
b470: 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 46 72 65 65 */.void.Tls_Free
b480: 28 20 63 68 61 72 20 2a 62 6c 6f 63 6b 50 74 72 ( char *blockPtr
b490: 20 29 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a ).{. State *
b4a0: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
b4b0: 65 20 2a 29 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 e *)blockPtr;..
b4c0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
b4d0: 65 64 22 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 ed");.. Tls_C
b4e0: 6c 65 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a lean(statePtr);.
b4f0: 20 20 20 20 63 6b 66 72 65 65 28 62 6c 6f 63 6b ckfree(block
b500: 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d Ptr);.}.../*. *-
b510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b550: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 --. *. * Tls_Cle
b560: 61 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 an --. *. *.This
b570: 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e procedure clean
b580: 73 20 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 s up when a SSL
b590: 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 socket based cha
b5a0: 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 nnel. *.is close
b5b0: 64 20 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 d and its refere
b5c0: 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 nce count falls
b5d0: 62 65 6c 6f 77 20 31 2e 20 20 54 68 69 73 20 73 below 1. This s
b5e0: 68 6f 75 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c hould. *.be call
b5f0: 65 64 20 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 ed synchronously
b600: 20 62 79 20 74 68 65 20 43 6c 6f 73 65 50 72 6f by the ClosePro
b610: 63 2c 20 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a c, not in the. *
b620: 09 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 .EventuallyFree
b630: 63 61 6c 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 callback.. *. *
b640: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 Results:. *.none
b650: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
b660: 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c cts:. *.Frees al
b670: 6c 20 74 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 l the state. *.
b680: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
b690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b6a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b6b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b6c0: 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 54 6c ----. */.void Tl
b6d0: 73 5f 43 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 s_Clean(State *s
b6e0: 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 64 tatePtr) {. d
b6f0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
b700: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a ;.. /*. *
b710: 20 77 65 27 72 65 20 61 73 73 75 6d 69 6e 67 20 we're assuming
b720: 68 65 72 65 20 74 68 61 74 20 77 65 27 72 65 20 here that we're
b730: 73 69 6e 67 6c 65 2d 74 68 72 65 61 64 65 64 0a single-threaded.
b740: 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 */. if (
b750: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
b760: 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b != (Tcl_TimerTok
b770: 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c en) NULL) {..Tcl
b780: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
b790: 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 ler(statePtr->ti
b7a0: 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d mer);..statePtr-
b7b0: 3e 74 69 6d 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 >timer = NULL;.
b7c0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 }.. if (st
b7d0: 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 7b 0a 09 atePtr->bio) {..
b7e0: 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 63 61 6c /* This will cal
b7f0: 6c 20 53 53 4c 5f 73 68 75 74 64 6f 77 6e 2e 20 l SSL_shutdown.
b800: 42 75 67 20 31 34 31 34 30 34 35 20 2a 2f 0a 09 Bug 1414045 */..
b810: 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 66 72 65 dprintf("BIO_fre
b820: 65 5f 61 6c 6c 28 25 70 29 22 2c 20 73 74 61 74 e_all(%p)", stat
b830: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 42 49 4f ePtr->bio);..BIO
b840: 5f 66 72 65 65 5f 61 6c 6c 28 73 74 61 74 65 50 _free_all(stateP
b850: 74 72 2d 3e 62 69 6f 29 3b 0a 09 73 74 61 74 65 tr->bio);..state
b860: 50 74 72 2d 3e 62 69 6f 20 3d 20 4e 55 4c 4c 3b Ptr->bio = NULL;
b870: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 . }. if (s
b880: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a tatePtr->ssl) {.
b890: 09 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 66 72 .dprintf("SSL_fr
b8a0: 65 65 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 ee(%p)", statePt
b8b0: 72 2d 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 r->ssl);..SSL_fr
b8c0: 65 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ee(statePtr->ssl
b8d0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 73 );..statePtr->ss
b8e0: 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a l = NULL;. }.
b8f0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
b900: 2d 3e 63 74 78 29 20 7b 0a 09 53 53 4c 5f 43 54 ->ctx) {..SSL_CT
b910: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
b920: 3e 63 74 78 29 3b 0a 09 73 74 61 74 65 50 74 72 >ctx);..statePtr
b930: 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ->ctx = NULL;.
b940: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 }. if (stat
b950: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 ePtr->callback)
b960: 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f {..Tcl_DecrRefCo
b970: 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 unt(statePtr->ca
b980: 6c 6c 62 61 63 6b 29 3b 0a 09 73 74 61 74 65 50 llback);..stateP
b990: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 4e tr->callback = N
b9a0: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ULL;. }. i
b9b0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 f (statePtr->pas
b9c0: 73 77 6f 72 64 29 20 7b 0a 09 54 63 6c 5f 44 65 sword) {..Tcl_De
b9d0: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 crRefCount(state
b9e0: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a Ptr->password);.
b9f0: 09 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 .statePtr->passw
ba00: 6f 72 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ord = NULL;.
ba10: 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 }.. dprintf("
ba20: 52 65 74 75 72 6e 69 6e 67 22 29 3b 0a 7d 0a 0c Returning");.}..
ba30: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
ba40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ba50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ba60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ba70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
ba80: 54 6c 73 5f 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 Tls_Init --. *.
ba90: 2a 09 54 68 69 73 20 69 73 20 61 20 70 61 63 6b *.This is a pack
baa0: 61 67 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 age initializati
bab0: 6f 6e 20 70 72 6f 63 65 64 75 72 65 2c 20 77 68 on procedure, wh
bac0: 69 63 68 20 69 73 20 63 61 6c 6c 65 64 0a 20 2a ich is called. *
bad0: 09 62 79 20 54 63 6c 20 77 68 65 6e 20 74 68 69 .by Tcl when thi
bae0: 73 20 70 61 63 6b 61 67 65 20 69 73 20 74 6f 20 s package is to
baf0: 62 65 20 61 64 64 65 64 20 74 6f 20 61 6e 20 69 be added to an i
bb00: 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 2a 0a 20 nterpreter.. *.
bb10: 2a 20 52 65 73 75 6c 74 73 3a 20 20 53 73 6c 20 * Results: Ssl
bb20: 63 6f 6e 66 69 67 75 72 65 64 20 61 6e 64 20 6c configured and l
bb30: 6f 61 64 65 64 0a 20 2a 0a 20 2a 20 53 69 64 65 oaded. *. * Side
bb40: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 20 63 72 effects:. *. cr
bb50: 65 61 74 65 20 74 68 65 20 73 73 6c 20 63 6f 6d eate the ssl com
bb60: 6d 61 6e 64 2c 20 69 6e 69 74 69 61 6c 69 73 65 mand, initialise
bb70: 20 73 73 6c 20 63 6f 6e 74 65 78 74 0a 20 2a 0a ssl context. *.
bb80: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
bb90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bbb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bbc0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 20 44 -----. */..int D
bbd0: 4c 4c 45 58 50 4f 52 54 20 54 6c 73 5f 49 6e 69 LLEXPORT Tls_Ini
bbe0: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e t(Tcl_Interp *in
bbf0: 74 65 72 70 29 20 7b 0a 09 63 6f 6e 73 74 20 63 terp) {..const c
bc00: 68 61 72 20 74 6c 73 54 63 6c 49 6e 69 74 53 63 har tlsTclInitSc
bc10: 72 69 70 74 5b 5d 20 3d 20 7b 0a 23 69 6e 63 6c ript[] = {.#incl
bc20: 75 64 65 20 22 74 6c 73 2e 74 63 6c 2e 68 22 0a ude "tls.tcl.h".
bc30: 20 20 20 20 20 20 20 20 20 20 20 20 30 78 30 30 0x00
bc40: 0a 09 7d 3b 0a 0a 20 20 20 20 20 20 20 20 64 70 ..};.. dp
bc50: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
bc60: 0a 0a 09 2f 2a 0a 09 20 2a 20 57 65 20 6f 6e 6c .../*.. * We onl
bc70: 79 20 73 75 70 70 6f 72 74 20 54 63 6c 20 38 2e y support Tcl 8.
bc80: 34 20 6f 72 20 6e 65 77 65 72 0a 09 20 2a 2f 0a 4 or newer.. */.
bc90: 09 69 66 20 28 0a 23 69 66 64 65 66 20 55 53 45 .if (.#ifdef USE
bca0: 5f 54 43 4c 5f 53 54 55 42 53 0a 09 20 20 20 20 _TCL_STUBS..
bcb0: 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 6e Tcl_InitStubs(in
bcc0: 74 65 72 70 2c 20 22 38 2e 34 22 2c 20 30 29 0a terp, "8.4", 0).
bcd0: 23 65 6c 73 65 0a 09 20 20 20 20 54 63 6c 5f 50 #else.. Tcl_P
bce0: 6b 67 52 65 71 75 69 72 65 28 69 6e 74 65 72 70 kgRequire(interp
bcf0: 2c 20 22 54 63 6c 22 2c 20 22 38 2e 34 2d 22 2c , "Tcl", "8.4-",
bd00: 20 30 29 0a 23 65 6e 64 69 66 0a 09 20 20 20 20 0).#endif..
bd10: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 == NULL) {...re
bd20: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
bd30: 09 7d 0a 0a 09 69 66 20 28 54 6c 73 4c 69 62 49 .}...if (TlsLibI
bd40: 6e 69 74 28 30 29 20 21 3d 20 54 43 4c 5f 4f 4b nit(0) != TCL_OK
bd50: 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 ) {...Tcl_Append
bd60: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
bd70: 63 6f 75 6c 64 20 6e 6f 74 20 69 6e 69 74 69 61 could not initia
bd80: 6c 69 7a 65 20 53 53 4c 20 6c 69 62 72 61 72 79 lize SSL library
bd90: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 ", NULL);...retu
bda0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
bdb0: 0a 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a ...Tcl_CreateObj
bdc0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
bdd0: 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 "tls::ciphers",
bde0: 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 20 28 CiphersObjCmd, (
bdf0: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
be00: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
be10: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c c *) NULL);..Tcl
be20: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
be30: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
be40: 68 61 6e 64 73 68 61 6b 65 22 2c 20 48 61 6e 64 handshake", Hand
be50: 73 68 61 6b 65 4f 62 6a 43 6d 64 2c 20 28 43 6c shakeObjCmd, (Cl
be60: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
be70: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
be80: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 *) NULL);..Tcl_C
be90: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
bea0: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 69 6d interp, "tls::im
beb0: 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 4f 62 6a port", ImportObj
bec0: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
bed0: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
bee0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
bef0: 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a ;..Tcl_CreateObj
bf00: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
bf10: 22 74 6c 73 3a 3a 75 6e 69 6d 70 6f 72 74 22 2c "tls::unimport",
bf20: 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c UnimportObjCmd,
bf30: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
bf40: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
bf50: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 roc *) NULL);..T
bf60: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
bf70: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
bf80: 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 61 74 75 ::status", Statu
bf90: 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 sObjCmd, (Client
bfa0: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
bfb0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
bfc0: 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 ULL);..Tcl_Creat
bfd0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
bfe0: 72 70 2c 20 22 74 6c 73 3a 3a 76 65 72 73 69 6f rp, "tls::versio
bff0: 6e 22 2c 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d n", VersionObjCm
c000: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
c010: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 0, (Tcl_CmdDelet
c020: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
c030: 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f .Tcl_CreateObjCo
c040: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
c050: 6c 73 3a 3a 6d 69 73 63 22 2c 20 4d 69 73 63 4f ls::misc", MiscO
c060: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
c070: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
c080: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
c090: 4c 29 3b 0a 0a 09 69 66 20 28 69 6e 74 65 72 70 L);...if (interp
c0a0: 29 20 7b 0a 09 09 54 63 6c 5f 45 76 61 6c 28 69 ) {...Tcl_Eval(i
c0b0: 6e 74 65 72 70 2c 20 74 6c 73 54 63 6c 49 6e 69 nterp, tlsTclIni
c0c0: 74 53 63 72 69 70 74 29 3b 0a 09 7d 0a 0a 09 72 tScript);..}...r
c0d0: 65 74 75 72 6e 28 54 63 6c 5f 50 6b 67 50 72 6f eturn(Tcl_PkgPro
c0e0: 76 69 64 65 28 69 6e 74 65 72 70 2c 20 22 74 6c vide(interp, "tl
c0f0: 73 22 2c 20 50 41 43 4b 41 47 45 5f 56 45 52 53 s", PACKAGE_VERS
c100: 49 4f 4e 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d ION));.}../*. *-
c110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c140: 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 -----*. *. *.Tls
c150: 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0a 20 2a 0a _SafeInit --. *.
c160: 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.-------------
c170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c190: 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e 64 61 72 64 ---*. *.Standard
c1a0: 20 70 72 6f 63 65 64 75 72 65 20 72 65 71 75 69 procedure requi
c1b0: 72 65 64 20 62 79 20 27 6c 6f 61 64 27 2e 20 0a red by 'load'. .
c1c0: 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 74 *.Initializes t
c1d0: 68 69 73 20 65 78 74 65 6e 73 69 6f 6e 20 66 6f his extension fo
c1e0: 72 20 61 20 73 61 66 65 20 69 6e 74 65 72 70 72 r a safe interpr
c1f0: 65 74 65 72 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d eter.. *.-------
c200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
c230: 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a .Sideeffects:. *
c240: 09 09 41 73 20 6f 66 20 27 54 6c 73 5f 49 6e 69 ..As of 'Tls_Ini
c250: 74 27 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a t'. *. *.Result:
c260: 0a 20 2a 09 09 41 20 73 74 61 6e 64 61 72 64 20 . *..A standard
c270: 54 63 6c 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a Tcl error code..
c280: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
c290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c2a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c2b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f -----------*. */
c2c0: 0a 0a 69 6e 74 20 44 4c 4c 45 58 50 4f 52 54 20 ..int DLLEXPORT
c2d0: 54 6c 73 5f 53 61 66 65 49 6e 69 74 28 54 63 6c Tls_SafeInit(Tcl
c2e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
c2f0: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c {..dprintf("Cal
c300: 6c 65 64 22 29 3b 0a 09 72 65 74 75 72 6e 28 54 led");..return(T
c310: 6c 73 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 29 ls_Init(interp))
c320: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
c330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c360: 2a 0a 20 2a 0a 20 2a 09 54 6c 73 4c 69 62 49 6e *. *. *.TlsLibIn
c370: 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d it --. *. *.----
c380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c3a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
c3b0: 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 53 53 4c .Initializes SSL
c3c0: 20 6c 69 62 72 61 72 79 20 6f 6e 63 65 20 70 65 library once pe
c3d0: 72 20 61 70 70 6c 69 63 61 74 69 6f 6e 0a 20 2a r application. *
c3e0: 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .---------------
c3f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c410: 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 20 65 66 -*. *. *.Side ef
c420: 66 65 63 74 73 3a 0a 20 2a 09 09 69 6e 69 74 69 fects:. *..initi
c430: 6c 69 7a 65 73 20 53 53 4c 20 6c 69 62 72 61 72 lizes SSL librar
c440: 79 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a y. *. *.Result:.
c450: 20 2a 09 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d *..none. *. *--
c460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c490: 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 ----*. */.static
c4a0: 20 69 6e 74 20 54 6c 73 4c 69 62 49 6e 69 74 28 int TlsLibInit(
c4b0: 69 6e 74 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 int uninitialize
c4c0: 29 20 7b 0a 09 73 74 61 74 69 63 20 69 6e 74 20 ) {..static int
c4d0: 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 30 3b initialized = 0;
c4e0: 0a 09 69 6e 74 20 73 74 61 74 75 73 20 3d 20 54 ..int status = T
c4f0: 43 4c 5f 4f 4b 3b 0a 23 69 66 20 64 65 66 69 6e CL_OK;.#if defin
c500: 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 ed(OPENSSL_THREA
c510: 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 DS) && defined(T
c520: 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 73 69 7a CL_THREADS)..siz
c530: 65 5f 74 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 23 e_t num_locks;.#
c540: 65 6e 64 69 66 0a 0a 09 69 66 20 28 75 6e 69 6e endif...if (unin
c550: 69 74 69 61 6c 69 7a 65 29 20 7b 0a 09 09 69 66 itialize) {...if
c560: 20 28 21 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 (!initialized)
c570: 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 41 73 {....dprintf("As
c580: 6b 65 64 20 74 6f 20 75 6e 69 6e 69 74 69 61 6c ked to uninitial
c590: 69 7a 65 2c 20 62 75 74 20 77 65 20 61 72 65 20 ize, but we are
c5a0: 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 22 not initialized"
c5b0: 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 54 43 );.....return(TC
c5c0: 4c 5f 4f 4b 29 3b 0a 09 09 7d 0a 0a 09 09 64 70 L_OK);...}....dp
c5d0: 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 rintf("Asked to
c5e0: 75 6e 69 6e 69 74 69 61 6c 69 7a 65 22 29 3b 0a uninitialize");.
c5f0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 .#if defined(OPE
c600: 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 NSSL_THREADS) &&
c610: 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 defined(TCL_THR
c620: 45 41 44 53 29 0a 09 09 54 63 6c 5f 4d 75 74 65 EADS)...Tcl_Mute
c630: 78 4c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b xLock(&init_mx);
c640: 0a 0a 09 09 43 52 59 50 54 4f 5f 73 65 74 5f 6c ....CRYPTO_set_l
c650: 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28 ocking_callback(
c660: 4e 55 4c 4c 29 3b 0a 09 09 43 52 59 50 54 4f 5f NULL);...CRYPTO_
c670: 73 65 74 5f 69 64 5f 63 61 6c 6c 62 61 63 6b 28 set_id_callback(
c680: 4e 55 4c 4c 29 3b 0a 0a 09 09 69 66 20 28 6c 6f NULL);....if (lo
c690: 63 6b 73 29 20 7b 0a 09 09 09 66 72 65 65 28 6c cks) {....free(l
c6a0: 6f 63 6b 73 29 3b 0a 09 09 09 6c 6f 63 6b 73 20 ocks);....locks
c6b0: 3d 20 4e 55 4c 4c 3b 0a 09 09 09 6c 6f 63 6b 73 = NULL;....locks
c6c0: 43 6f 75 6e 74 20 3d 20 30 3b 0a 09 09 7d 0a 23 Count = 0;...}.#
c6d0: 65 6e 64 69 66 0a 09 09 69 6e 69 74 69 61 6c 69 endif...initiali
c6e0: 7a 65 64 20 3d 20 30 3b 0a 0a 23 69 66 20 64 65 zed = 0;..#if de
c6f0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 fined(OPENSSL_TH
c700: 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 READS) && define
c710: 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 d(TCL_THREADS)..
c720: 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b .Tcl_MutexUnlock
c730: 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 (&init_mx);.#end
c740: 69 66 0a 0a 09 09 72 65 74 75 72 6e 28 54 43 4c if....return(TCL
c750: 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 69 _OK);..}...if (i
c760: 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 nitialized) {...
c770: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 2c dprintf("Called,
c780: 20 62 75 74 20 75 73 69 6e 67 20 63 61 63 68 65 but using cache
c790: 64 20 76 61 6c 75 65 22 29 3b 0a 09 09 72 65 74 d value");...ret
c7a0: 75 72 6e 28 73 74 61 74 75 73 29 3b 0a 09 7d 0a urn(status);..}.
c7b0: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 ..dprintf("Calle
c7c0: 64 22 29 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 d");..#if define
c7d0: 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 d(OPENSSL_THREAD
c7e0: 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 S) && defined(TC
c7f0: 4c 5f 54 48 52 45 41 44 53 29 0a 09 54 63 6c 5f L_THREADS)..Tcl_
c800: 4d 75 74 65 78 4c 6f 63 6b 28 26 69 6e 69 74 5f MutexLock(&init_
c810: 6d 78 29 3b 0a 23 65 6e 64 69 66 0a 09 69 6e 69 mx);.#endif..ini
c820: 74 69 61 6c 69 7a 65 64 20 3d 20 31 3b 0a 0a 23 tialized = 1;..#
c830: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 if defined(OPENS
c840: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 SL_THREADS) && d
c850: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 efined(TCL_THREA
c860: 44 53 29 0a 09 6e 75 6d 5f 6c 6f 63 6b 73 20 3d DS)..num_locks =
c870: 20 43 52 59 50 54 4f 5f 6e 75 6d 5f 6c 6f 63 6b CRYPTO_num_lock
c880: 73 28 29 3b 0a 09 6c 6f 63 6b 73 43 6f 75 6e 74 s();..locksCount
c890: 20 3d 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 09 6c = num_locks;..l
c8a0: 6f 63 6b 73 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 ocks = malloc(si
c8b0: 7a 65 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e zeof(*locks) * n
c8c0: 75 6d 5f 6c 6f 63 6b 73 29 3b 0a 09 6d 65 6d 73 um_locks);..mems
c8d0: 65 74 28 6c 6f 63 6b 73 2c 20 30 2c 20 73 69 7a et(locks, 0, siz
c8e0: 65 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e 75 eof(*locks) * nu
c8f0: 6d 5f 6c 6f 63 6b 73 29 3b 0a 0a 09 43 52 59 50 m_locks);...CRYP
c900: 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 TO_set_locking_c
c910: 61 6c 6c 62 61 63 6b 28 43 72 79 70 74 6f 54 68 allback(CryptoTh
c920: 72 65 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b readLockCallback
c930: 29 3b 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f 69 );..CRYPTO_set_i
c940: 64 5f 63 61 6c 6c 62 61 63 6b 28 43 72 79 70 74 d_callback(Crypt
c950: 6f 54 68 72 65 61 64 49 64 43 61 6c 6c 62 61 63 oThreadIdCallbac
c960: 6b 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 69 66 20 k);.#endif...if
c970: 28 53 53 4c 5f 6c 69 62 72 61 72 79 5f 69 6e 69 (SSL_library_ini
c980: 74 28 29 20 21 3d 20 31 29 20 7b 0a 09 09 73 74 t() != 1) {...st
c990: 61 74 75 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 atus = TCL_ERROR
c9a0: 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 ;...goto done;..
c9b0: 7d 0a 0a 09 53 53 4c 5f 6c 6f 61 64 5f 65 72 72 }...SSL_load_err
c9c0: 6f 72 5f 73 74 72 69 6e 67 73 28 29 3b 0a 09 45 or_strings();..E
c9d0: 52 52 5f 6c 6f 61 64 5f 63 72 79 70 74 6f 5f 73 RR_load_crypto_s
c9e0: 74 72 69 6e 67 73 28 29 3b 0a 0a 09 42 49 4f 5f trings();...BIO_
c9f0: 6e 65 77 5f 74 63 6c 28 4e 55 4c 4c 2c 20 30 29 new_tcl(NULL, 0)
ca00: 3b 0a 0a 23 69 66 20 30 0a 09 2f 2a 0a 09 20 2a ;..#if 0../*.. *
ca10: 20 58 58 58 3a 54 4f 44 4f 3a 20 52 65 6d 6f 76 XXX:TODO: Remov
ca20: 65 20 74 68 69 73 20 63 6f 64 65 20 61 6e 64 20 e this code and
ca30: 72 65 70 6c 61 63 65 20 69 74 20 77 69 74 68 20 replace it with
ca40: 61 20 63 68 65 63 6b 0a 09 20 2a 20 66 6f 72 20 a check.. * for
ca50: 65 6e 6f 75 67 68 20 65 6e 74 72 6f 70 79 20 61 enough entropy a
ca60: 6e 64 20 64 6f 20 6e 6f 74 20 74 72 79 20 74 6f nd do not try to
ca70: 20 63 72 65 61 74 65 20 6f 75 72 20 6f 77 6e 0a create our own.
ca80: 09 20 2a 20 74 65 72 72 69 62 6c 65 20 65 6e 74 . * terrible ent
ca90: 72 6f 70 79 0a 09 20 2a 2f 0a 20 20 20 20 2f 2a ropy.. */. /*
caa0: 0a 20 20 20 20 20 2a 20 53 65 65 64 20 74 68 65 . * Seed the
cab0: 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 67 random number g
cac0: 65 6e 65 72 61 74 6f 72 20 69 6e 20 74 68 65 20 enerator in the
cad0: 53 53 4c 20 6c 69 62 72 61 72 79 2c 0a 20 20 20 SSL library,.
cae0: 20 20 2a 20 75 73 69 6e 67 20 74 68 65 20 64 6f * using the do
caf0: 2f 77 68 69 6c 65 20 63 6f 6e 73 74 72 75 63 74 /while construct
cb00: 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65 20 because of the
cb10: 62 75 67 20 6e 6f 74 65 20 69 6e 20 74 68 65 0a bug note in the.
cb20: 20 20 20 20 20 2a 20 4f 70 65 6e 53 53 4c 20 46 * OpenSSL F
cb30: 41 51 20 61 74 20 68 74 74 70 3a 2f 2f 77 77 77 AQ at http://www
cb40: 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 2f 73 75 70 .openssl.org/sup
cb50: 70 6f 72 74 2f 66 61 71 2e 68 74 6d 6c 23 55 53 port/faq.html#US
cb60: 45 52 31 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 ER1. *.
cb70: 2a 20 54 68 65 20 63 72 75 78 20 6f 66 20 74 68 * The crux of th
cb80: 65 20 70 72 6f 62 6c 65 6d 20 69 73 20 74 68 61 e problem is tha
cb90: 74 20 53 6f 6c 61 72 69 73 20 37 20 64 6f 65 73 t Solaris 7 does
cba0: 20 6e 6f 74 20 68 61 76 65 20 61 20 0a 20 20 20 not have a .
cbb0: 20 20 2a 20 2f 64 65 76 2f 72 61 6e 64 6f 6d 20 * /dev/random
cbc0: 6f 72 20 2f 64 65 76 2f 75 72 61 6e 64 6f 6d 20 or /dev/urandom
cbd0: 64 65 76 69 63 65 20 73 6f 20 69 74 20 63 61 6e device so it can
cbe0: 6e 6f 74 20 67 61 74 68 65 72 20 65 6e 6f 75 67 not gather enoug
cbf0: 68 0a 20 20 20 20 20 2a 20 65 6e 74 72 6f 70 79 h. * entropy
cc00: 20 66 72 6f 6d 20 74 68 65 20 52 41 4e 44 5f 73 from the RAND_s
cc10: 65 65 64 28 29 20 77 68 65 6e 20 54 4c 53 20 69 eed() when TLS i
cc20: 6e 69 74 69 61 6c 69 7a 65 73 20 61 6e 64 20 72 nitializes and r
cc30: 65 66 75 73 65 73 0a 20 20 20 20 20 2a 20 74 6f efuses. * to
cc40: 20 67 6f 20 66 75 72 74 68 65 72 2e 20 45 61 72 go further. Ear
cc50: 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 20 6f 66 lier versions of
cc60: 20 4f 70 65 6e 53 53 4c 20 63 61 72 72 69 65 64 OpenSSL carried
cc70: 20 6f 6e 20 72 65 67 61 72 64 6c 65 73 73 2e 0a on regardless..
cc80: 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 72 61 6e */. sran
cc90: 64 28 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 d((unsigned int)
cca0: 20 74 69 6d 65 28 28 74 69 6d 65 5f 74 20 2a 29 time((time_t *)
ccb0: 20 4e 55 4c 4c 29 29 3b 0a 20 20 20 20 64 6f 20 NULL));. do
ccc0: 7b 0a 09 66 6f 72 20 28 69 20 3d 20 30 3b 20 69 {..for (i = 0; i
ccd0: 20 3c 20 31 36 3b 20 69 2b 2b 29 20 7b 0a 09 20 < 16; i++) {..
cce0: 20 20 20 72 6e 64 5f 73 65 65 64 5b 69 5d 20 3d rnd_seed[i] =
ccf0: 20 31 20 2b 20 28 63 68 61 72 29 20 28 32 35 35 1 + (char) (255
cd00: 2e 30 20 2a 20 72 61 6e 64 28 29 2f 28 52 41 4e .0 * rand()/(RAN
cd10: 44 5f 4d 41 58 2b 31 2e 30 29 29 3b 0a 09 7d 0a D_MAX+1.0));..}.
cd20: 09 52 41 4e 44 5f 73 65 65 64 28 72 6e 64 5f 73 .RAND_seed(rnd_s
cd30: 65 65 64 2c 20 73 69 7a 65 6f 66 28 72 6e 64 5f eed, sizeof(rnd_
cd40: 73 65 65 64 29 29 3b 0a 20 20 20 20 7d 20 77 68 seed));. } wh
cd50: 69 6c 65 20 28 52 41 4e 44 5f 73 74 61 74 75 73 ile (RAND_status
cd60: 28 29 20 21 3d 20 31 29 3b 0a 23 65 6e 64 69 66 () != 1);.#endif
cd70: 0a 0a 64 6f 6e 65 3a 0a 23 69 66 20 64 65 66 69 ..done:.#if defi
cd80: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 ned(OPENSSL_THRE
cd90: 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 ADS) && defined(
cda0: 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 54 63 TCL_THREADS)..Tc
cdb0: 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 69 l_MutexUnlock(&i
cdc0: 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 69 66 0a nit_mx);.#endif.
cdd0: 0a 09 72 65 74 75 72 6e 28 73 74 61 74 75 73 29 ..return(status)
cde0: 3b 0a 7d 0a ;.}.