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 28 54 63 6c 5f 47 65 74 4f 62 6a tring(Tcl_GetObj
27c0: 52 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d Result(statePtr-
27d0: 3e 69 6e 74 65 72 70 29 29 3b 0a 20 20 20 20 7d >interp));. }
27e0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 . statePtr->e
27f0: 72 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 69 rr = msg;.. i
2800: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c f (statePtr->cal
2810: 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 lback == (Tcl_Ob
2820: 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 72 j*)NULL) {..char
2830: 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 buf[BUFSIZ];..s
2840: 70 72 69 6e 74 66 28 62 75 66 2c 20 22 53 53 4c printf(buf, "SSL
2850: 20 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a channel \"%s\":
2860: 20 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 20 error: %s",..
2870: 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c Tcl_GetChannel
2880: 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 Name(statePtr->s
2890: 65 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 6c elf), msg);..Tcl
28a0: 5f 53 65 74 52 65 73 75 6c 74 28 20 73 74 61 74 _SetResult( stat
28b0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 75 ePtr->interp, bu
28c0: 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 f, TCL_VOLATILE)
28d0: 3b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e ;..Tcl_Backgroun
28e0: 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 dError( statePtr
28f0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 72 65 74 75 ->interp);..retu
2900: 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d rn;. }. cm
2910: 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 dPtr = Tcl_Dupli
2920: 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 cateObj(statePtr
2930: 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 ->callback);..
2940: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
2950: 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 endElement(state
2960: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
2970: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e Ptr, .. Tcl_N
2980: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 65 72 72 ewStringObj("err
2990: 6f 72 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 or", -1));..
29a0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
29b0: 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 dElement(statePt
29c0: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
29d0: 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 r, .. Tcl_New
29e0: 53 74 72 69 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 StringObj(Tcl_Ge
29f0: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 tChannelName(sta
2a00: 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 tePtr->self), -1
2a10: 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 ));.. Tcl_Lis
2a20: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
2a30: 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 t(statePtr->inte
2a40: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
2a50: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
2a60: 6a 28 6d 73 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 j(msg, -1));..
2a70: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 Tcl_Preserve((
2a80: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
2a90: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 ePtr->interp);.
2aa0: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 Tcl_Preserve(
2ab0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
2ac0: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c tePtr);.. Tcl
2ad0: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 63 6d _IncrRefCount(cm
2ae0: 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 28 54 dPtr);. if (T
2af0: 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 cl_EvalObjEx(sta
2b00: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
2b10: 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f mdPtr, TCL_EVAL_
2b20: 47 4c 4f 42 41 4c 29 20 21 3d 20 54 43 4c 5f 4f GLOBAL) != TCL_O
2b30: 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 K) {..Tcl_Backgr
2b40: 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 oundError(stateP
2b50: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 tr->interp);.
2b60: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 }. Tcl_DecrR
2b70: 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b efCount(cmdPtr);
2b80: 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 .. Tcl_Releas
2b90: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
2ba0: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 tatePtr);. Tc
2bb0: 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e l_Release((Clien
2bc0: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d tData) statePtr-
2bd0: 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a >interp);.}.../*
2be0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 50 61 73 ------. *. * Pas
2c30: 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 20 2d 2d swordCallback --
2c40: 20 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 77 . *. *.Called w
2c50: 68 65 6e 20 61 20 70 61 73 73 77 6f 72 64 20 69 hen a password i
2c60: 73 20 6e 65 65 64 65 64 20 74 6f 20 75 6e 70 61 s needed to unpa
2c70: 63 6b 20 52 53 41 20 61 6e 64 20 50 45 4d 20 6b ck RSA and PEM k
2c80: 65 79 73 2e 0a 20 2a 09 45 76 61 6c 73 20 61 6e eys.. *.Evals an
2c90: 79 20 62 6f 75 6e 64 20 70 61 73 73 77 6f 72 64 y bound password
2ca0: 20 73 63 72 69 70 74 20 61 6e 64 20 72 65 74 75 script and retu
2cb0: 72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 61 rns the result a
2cc0: 73 0a 20 2a 09 74 68 65 20 70 61 73 73 77 6f 72 s. *.the passwor
2cd0: 64 20 73 74 72 69 6e 67 2e 0a 20 2a 2d 2d 2d 2d d string.. *----
2ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a ---------------.
2d20: 20 2a 2f 0a 23 69 66 64 65 66 20 50 52 45 5f 4f */.#ifdef PRE_O
2d30: 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f 2a 0a PENSSL_0_9_4./*.
2d40: 20 2a 20 4e 6f 20 77 61 79 20 74 6f 20 68 61 6e * No way to han
2d50: 64 6c 65 20 75 73 65 72 2d 64 61 74 61 20 74 68 dle user-data th
2d60: 65 72 65 66 6f 72 65 20 6e 6f 20 77 61 79 20 77 erefore no way w
2d70: 69 74 68 6f 75 74 20 61 20 67 6c 6f 62 61 6c 0a ithout a global.
2d80: 20 2a 20 76 61 72 69 61 62 6c 65 20 74 6f 20 61 * variable to a
2d90: 63 63 65 73 73 20 74 68 65 20 54 63 6c 20 69 6e ccess the Tcl in
2da0: 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 73 74 terpreter..*/.st
2db0: 61 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 atic int.Passwor
2dc0: 64 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a dCallback(char *
2dd0: 62 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 buf, int size, i
2de0: 6e 74 20 76 65 72 69 66 79 29 0a 7b 0a 20 20 20 nt verify).{.
2df0: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 return -1;.
2e00: 09 62 75 66 20 3d 20 62 75 66 3b 0a 09 73 69 7a .buf = buf;..siz
2e10: 65 20 3d 20 73 69 7a 65 3b 0a 09 76 65 72 69 66 e = size;..verif
2e20: 79 20 3d 20 76 65 72 69 66 79 3b 0a 7d 0a 23 65 y = verify;.}.#e
2e30: 6c 73 65 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 lse.static int.P
2e40: 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 28 asswordCallback(
2e50: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 73 char *buf, int s
2e60: 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 66 79 2c ize, int verify,
2e70: 20 76 6f 69 64 20 2a 75 64 61 74 61 29 0a 7b 0a void *udata).{.
2e80: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
2e90: 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr.= (State *)
2ea0: 75 64 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 49 udata;. Tcl_I
2eb0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 09 3d 20 nterp *interp.=
2ec0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2ed0: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 ;. Tcl_Obj *c
2ee0: 6d 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 72 mdPtr;. int r
2ef0: 65 73 75 6c 74 3b 0a 0a 20 20 20 20 64 70 72 69 esult;.. dpri
2f00: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
2f10: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
2f20: 2d 3e 70 61 73 73 77 6f 72 64 20 3d 3d 20 4e 55 ->password == NU
2f30: 4c 4c 29 20 7b 0a 09 69 66 20 28 54 63 6c 5f 45 LL) {..if (Tcl_E
2f40: 76 61 6c 45 78 28 69 6e 74 65 72 70 2c 20 22 74 valEx(interp, "t
2f50: 6c 73 3a 3a 70 61 73 73 77 6f 72 64 22 2c 20 2d ls::password", -
2f60: 31 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 1, TCL_EVAL_GLOB
2f70: 41 4c 29 0a 09 09 3d 3d 20 54 43 4c 5f 4f 4b 29 AL)...== TCL_OK)
2f80: 20 7b 0a 09 20 20 20 20 63 68 61 72 20 2a 72 65 {.. char *re
2f90: 74 20 3d 20 28 63 68 61 72 20 2a 29 20 54 63 6c t = (char *) Tcl
2fa0: 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 _GetStringResult
2fb0: 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 73 (interp);.. s
2fc0: 74 72 6e 63 70 79 28 62 75 66 2c 20 72 65 74 2c trncpy(buf, ret,
2fd0: 20 28 73 69 7a 65 5f 74 29 20 73 69 7a 65 29 3b (size_t) size);
2fe0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e .. return (in
2ff0: 74 29 73 74 72 6c 65 6e 28 72 65 74 29 3b 0a 09 t)strlen(ret);..
3000: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 } else {.. re
3010: 74 75 72 6e 20 2d 31 3b 0a 09 7d 0a 20 20 20 20 turn -1;..}.
3020: 7d 0a 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 }.. cmdPtr =
3030: 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a Tcl_DuplicateObj
3040: 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 (statePtr->passw
3050: 6f 72 64 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 ord);.. Tcl_P
3060: 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 reserve((ClientD
3070: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 ata) statePtr->i
3080: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f nterp);. Tcl_
3090: 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 Preserve((Client
30a0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
30b0: 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
30c0: 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a fCount(cmdPtr);.
30d0: 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c result = Tcl
30e0: 5f 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 _EvalObjEx(inter
30f0: 70 2c 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 p, cmdPtr, TCL_E
3100: 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 20 VAL_GLOBAL);.
3110: 20 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 if (result != T
3120: 43 4c 5f 4f 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 CL_OK) {..Tcl_Ba
3130: 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 ckgroundError(st
3140: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
3150: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 . }. Tcl_D
3160: 65 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 ecrRefCount(cmdP
3170: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 tr);.. Tcl_Re
3180: 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 lease((ClientDat
3190: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
31a0: 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 Tcl_Release((C
31b0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
31c0: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 Ptr->interp);..
31d0: 20 20 20 69 66 20 28 72 65 73 75 6c 74 20 3d 3d if (result ==
31e0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 63 68 61 72 TCL_OK) {..char
31f0: 20 2a 72 65 74 20 3d 20 28 63 68 61 72 20 2a 29 *ret = (char *)
3200: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 Tcl_GetStringRe
3210: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 73 sult(interp);..s
3220: 74 72 6e 63 70 79 28 62 75 66 2c 20 72 65 74 2c trncpy(buf, ret,
3230: 20 28 73 69 7a 65 5f 74 29 20 73 69 7a 65 29 3b (size_t) size);
3240: 0a 09 72 65 74 75 72 6e 20 28 69 6e 74 29 73 74 ..return (int)st
3250: 72 6c 65 6e 28 72 65 74 29 3b 0a 20 20 20 20 7d rlen(ret);. }
3260: 20 65 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e 20 else {..return
3270: 2d 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 09 76 -1;. }. .v
3280: 65 72 69 66 79 20 3d 20 76 65 72 69 66 79 3b 0a erify = verify;.
3290: 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a 0a 20 2a }.#endif.../*. *
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 ---. *. * Cipher
32f0: 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 73 74 20 sObjCmd -- list
3300: 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 available cipher
3310: 73 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f s. *. *.This pro
3320: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
3330: 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 d to process the
3340: 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 "tls::ciphers"
3350: 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 command. *.to li
3360: 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 st available cip
3370: 68 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e hers, based upon
3380: 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 protocol select
3390: 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ed.. *. * Result
33a0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
33b0: 20 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 Tcl result list
33c0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
33d0: 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 ects:. *.constru
33e0: 63 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 cts and destroys
33f0: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 SSL context (CT
3400: 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d X). *. *--------
3410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3420: 2d 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 0a 20 2a 2f 0a -----------. */.
3450: 73 74 61 74 69 63 20 69 6e 74 0a 43 69 70 68 65 static int.Ciphe
3460: 72 73 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 rsObjCmd(clientD
3470: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
3480: 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 c, objv). Cli
3490: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
34a0: 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e ta;./* Not used.
34b0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
34c0: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 rp *interp;.
34d0: 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 int objc;. Tc
34e0: 6c 5f 4f 62 6a 09 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj.*const obj
34f0: 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 61 74 69 v[];.{. stati
3500: 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 72 c const char *pr
3510: 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 22 otocols[] = {.."
3520: 73 73 6c 32 22 2c 09 22 73 73 6c 33 22 2c 09 22 ssl2",."ssl3",."
3530: 74 6c 73 31 22 2c 09 22 74 6c 73 31 2e 31 22 2c tls1",."tls1.1",
3540: 20 22 74 6c 73 31 2e 32 22 2c 20 22 74 6c 73 31 "tls1.2", "tls1
3550: 2e 33 22 2c 20 4e 55 4c 4c 0a 20 20 20 20 7d 3b .3", NULL. };
3560: 0a 20 20 20 20 65 6e 75 6d 20 70 72 6f 74 6f 63 . enum protoc
3570: 6f 6c 20 7b 0a 09 54 4c 53 5f 53 53 4c 32 2c 20 ol {..TLS_SSL2,
3580: 54 4c 53 5f 53 53 4c 33 2c 20 54 4c 53 5f 54 4c TLS_SSL3, TLS_TL
3590: 53 31 2c 20 54 4c 53 5f 54 4c 53 31 5f 31 2c 20 S1, TLS_TLS1_1,
35a0: 54 4c 53 5f 54 4c 53 31 5f 32 2c 20 54 4c 53 5f TLS_TLS1_2, TLS_
35b0: 54 4c 53 31 5f 33 2c 20 54 4c 53 5f 4e 4f 4e 45 TLS1_3, TLS_NONE
35c0: 0a 20 20 20 20 7d 3b 0a 20 20 20 20 54 63 6c 5f . };. Tcl_
35d0: 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 Obj *objPtr;.
35e0: 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 SSL_CTX *ctx =
35f0: 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 NULL;. SSL *s
3600: 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 sl = NULL;. S
3610: 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 TACK_OF(SSL_CIPH
3620: 45 52 29 20 2a 73 6b 3b 0a 20 20 20 20 63 68 61 ER) *sk;. cha
3630: 72 20 2a 63 70 2c 20 62 75 66 5b 42 55 46 53 49 r *cp, buf[BUFSI
3640: 5a 5d 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 Z];. int inde
3650: 78 2c 20 76 65 72 62 6f 73 65 20 3d 20 30 3b 0a x, verbose = 0;.
3660: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
3670: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
3680: 28 6f 62 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 6a (objc < 2 || obj
3690: 63 20 3e 20 33 29 20 7b 0a 09 54 63 6c 5f 57 72 c > 3) {..Tcl_Wr
36a0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
36b0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 70 72 6f p, 1, objv, "pro
36c0: 74 6f 63 6f 6c 20 3f 76 65 72 62 6f 73 65 3f 22 tocol ?verbose?"
36d0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
36e0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
36f0: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 if (Tcl_GetIndex
3700: 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c FromObj( interp,
3710: 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 objv[1], protoc
3720: 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c ols, "protocol",
3730: 20 30 2c 0a 09 26 69 6e 64 65 78 29 20 21 3d 20 0,..&index) !=
3740: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 TCL_OK) {..retur
3750: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
3760: 20 7d 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 }. if (objc
3770: 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 74 42 6f > 2 && Tcl_GetBo
3780: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 20 69 6e oleanFromObj( in
3790: 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 0a 09 terp, objv[2],..
37a0: 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 4c &verbose) != TCL
37b0: 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 _OK) {..return T
37c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
37d0: 20 20 20 20 73 77 69 74 63 68 20 28 28 65 6e 75 switch ((enu
37e0: 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78 m protocol)index
37f0: 29 20 7b 0a 20 20 20 20 63 61 73 65 20 54 4c 53 ) {. case TLS
3800: 5f 53 53 4c 32 3a 0a 23 69 66 20 64 65 66 69 6e _SSL2:.#if defin
3810: 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 09 54 63 ed(NO_SSL2)...Tc
3820: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
3830: 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c nterp, "protocol
3840: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
3850: 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e NULL);...return
3860: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 TCL_ERROR;.#els
3870: 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 e...ctx = SSL_CT
3880: 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d 65 74 68 X_new(SSLv2_meth
3890: 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 od()); break;.#e
38a0: 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 4c ndif. case TL
38b0: 53 5f 53 53 4c 33 3a 0a 23 69 66 20 64 65 66 69 S_SSL3:.#if defi
38c0: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 09 54 ned(NO_SSL3)...T
38d0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
38e0: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
38f0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
3900: 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 , NULL);...retur
3910: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c n TCL_ERROR;.#el
3920: 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 se...ctx = SSL_C
3930: 54 58 5f 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74 TX_new(SSLv3_met
3940: 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 hod()); break;.#
3950: 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 endif. case T
3960: 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 66 LS_TLS1:.#if def
3970: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 09 09 ined(NO_TLS1)...
3980: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
3990: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
39a0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
39b0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 ", NULL);...retu
39c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 rn TCL_ERROR;.#e
39d0: 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f lse...ctx = SSL_
39e0: 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 6d 65 CTX_new(TLSv1_me
39f0: 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a thod()); break;.
3a00: 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 #endif. case
3a10: 54 4c 53 5f 54 4c 53 31 5f 31 3a 0a 23 69 66 20 TLS_TLS1_1:.#if
3a20: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
3a30: 31 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 1)...Tcl_AppendR
3a40: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
3a50: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
3a60: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
3a70: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3a80: 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d R;.#else...ctx =
3a90: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 SSL_CTX_new(TLS
3aa0: 76 31 5f 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20 v1_1_method());
3ab0: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 break;.#endif.
3ac0: 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f case TLS_TLS1_
3ad0: 32 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 2:.#if defined(N
3ae0: 4f 5f 54 4c 53 31 5f 32 29 0a 09 09 54 63 6c 5f O_TLS1_2)...Tcl_
3af0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3b00: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
3b10: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
3b20: 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 ULL);...return T
3b30: 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a CL_ERROR;.#else.
3b40: 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
3b50: 6e 65 77 28 54 4c 53 76 31 5f 32 5f 6d 65 74 68 new(TLSv1_2_meth
3b60: 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 od()); break;.#e
3b70: 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 4c ndif. case TL
3b80: 53 5f 54 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65 S_TLS1_3:.#if de
3b90: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 fined(NO_TLS1_3)
3ba0: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 ...Tcl_AppendRes
3bb0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f ult(interp, "pro
3bc0: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
3bd0: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 ted", NULL);...r
3be0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3bf0: 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 .#else...ctx = S
3c00: 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 5f 6d SL_CTX_new(TLS_m
3c10: 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b ethod()); break;
3c20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3c30: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 6e SSL_CTX_set_min
3c40: 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 _proto_version (
3c50: 63 74 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 ctx, TLS1_3_VERS
3c60: 49 4f 4e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 ION);.
3c70: 20 20 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 SSL_CTX_se
3c80: 74 5f 6d 61 78 5f 70 72 6f 74 6f 5f 76 65 72 73 t_max_proto_vers
3c90: 69 6f 6e 20 28 63 74 78 2c 20 54 4c 53 31 5f 33 ion (ctx, TLS1_3
3ca0: 5f 56 45 52 53 49 4f 4e 29 3b 0a 23 65 6e 64 69 _VERSION);.#endi
3cb0: 66 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 f. default:..
3cc0: 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 .break;. }.
3cd0: 20 20 69 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c if (ctx == NUL
3ce0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
3cf0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 Result(interp, R
3d00: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
3d10: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
3d20: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3d30: 7d 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 4c 5f }. ssl = SSL_
3d40: 6e 65 77 28 63 74 78 29 3b 0a 20 20 20 20 69 66 new(ctx);. if
3d50: 20 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b (ssl == NULL) {
3d60: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
3d70: 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f lt(interp, REASO
3d80: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 N(), (char *) NU
3d90: 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 LL);..SSL_CTX_fr
3da0: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
3db0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3dc0: 7d 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 }. objPtr = T
3dd0: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 cl_NewListObj( 0
3de0: 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 , NULL);.. if
3df0: 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 (!verbose) {..f
3e00: 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b or (index = 0; ;
3e10: 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 index++) {..
3e20: 20 63 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c cp = (char*)SSL
3e30: 5f 67 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 _get_cipher_list
3e40: 28 20 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 ( ssl, index);..
3e50: 20 20 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 if (cp == NU
3e60: 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 LL) break;..
3e70: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
3e80: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
3e90: 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f , objPtr,...Tcl_
3ea0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 NewStringObj( cp
3eb0: 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 , -1) );..}.
3ec0: 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 } else {..sk = S
3ed0: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 SL_get_ciphers(s
3ee0: 73 6c 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 sl);...for (inde
3ef0: 78 20 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 x = 0; index < s
3f00: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d k_SSL_CIPHER_num
3f10: 28 73 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b (sk); index++) {
3f20: 0a 09 20 20 20 20 72 65 67 69 73 74 65 72 20 73 .. register s
3f30: 69 7a 65 5f 74 20 69 3b 0a 09 20 20 20 20 53 53 ize_t i;.. SS
3f40: 4c 5f 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 L_CIPHER_descrip
3f50: 74 69 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 tion( sk_SSL_CIP
3f60: 48 45 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 HER_value( sk, i
3f70: 6e 64 65 78 29 2c 0a 09 09 09 09 20 20 20 20 62 ndex),..... b
3f80: 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 uf, sizeof(buf))
3f90: 3b 0a 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 ;.. for (i =
3fa0: 73 74 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b strlen(buf) - 1;
3fb0: 20 69 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 i ; i--) {...if
3fc0: 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 20 (buf[i] == ' '
3fd0: 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e || buf[i] == '\n
3fe0: 27 20 7c 7c 0a 09 09 20 20 20 20 62 75 66 5b 69 ' ||... buf[i
3ff0: 5d 20 3d 3d 20 27 5c 72 27 20 7c 7c 20 62 75 66 ] == '\r' || buf
4000: 5b 69 5d 20 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 [i] == '\t') {..
4010: 09 20 20 20 20 62 75 66 5b 69 5d 20 3d 20 27 5c . buf[i] = '\
4020: 30 27 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 0';...} else {..
4030: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a . break;...}.
4040: 09 20 20 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f . }.. Tcl_
4050: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
4060: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 ment( interp, ob
4070: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
4080: 74 72 69 6e 67 4f 62 6a 28 20 62 75 66 2c 20 2d tringObj( buf, -
4090: 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 1) );..}. }.
40a0: 20 20 20 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 SSL_free(ssl)
40b0: 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 ;. SSL_CTX_fr
40c0: 65 65 28 63 74 78 29 3b 0a 0a 20 20 20 20 54 63 ee(ctx);.. Tc
40d0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 l_SetObjResult(
40e0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
40f0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4100: 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 OK;. .clientD
4110: 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 ata = clientData
4120: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
4130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4140: 2d 2d 2d 2d 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 0a 20 --------------.
4170: 2a 0a 20 2a 20 48 61 6e 64 73 68 61 6b 65 4f 62 *. * HandshakeOb
4180: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 jCmd --. *. *.Th
4190: 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 is command is us
41a0: 65 64 20 74 6f 20 76 65 72 69 66 79 20 77 68 65 ed to verify whe
41b0: 74 68 65 72 20 74 68 65 20 68 61 6e 64 73 68 61 ther the handsha
41c0: 6b 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 0a 20 ke is complete.
41d0: 2a 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 *.or not.. *. *
41e0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
41f0: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
4200: 74 2e 20 31 20 6d 65 61 6e 73 20 68 61 6e 64 73 t. 1 means hands
4210: 68 61 6b 65 20 63 6f 6d 70 6c 65 74 65 2c 20 30 hake complete, 0
4220: 20 6d 65 61 6e 73 20 70 65 6e 64 69 6e 67 2e 0a means pending..
4230: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
4240: 74 73 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 63 65 ts:. *.May force
4250: 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e SSL negotiation
4260: 20 74 6f 20 74 61 6b 65 20 70 6c 61 63 65 2e 0a to take place..
4270: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
4280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 0a 73 74 --------. */..st
42c0: 61 74 69 63 20 69 6e 74 20 48 61 6e 64 73 68 61 atic int Handsha
42d0: 6b 65 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 keObjCmd(ClientD
42e0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
42f0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4300: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
4310: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
4320: 76 5b 5d 29 20 7b 0a 09 54 63 6c 5f 43 68 61 6e v[]) {..Tcl_Chan
4330: 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 nel chan;../* Th
4340: 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 e channel to set
4350: 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 09 a mode on. */..
4360: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
4370: 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 ../* client stat
4380: 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 e for ssl socket
4390: 20 2a 2f 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 */..const char
43a0: 2a 65 72 72 53 74 72 20 3d 20 4e 55 4c 4c 3b 0a *errStr = NULL;.
43b0: 09 69 6e 74 20 72 65 74 20 3d 20 31 3b 0a 09 69 .int ret = 1;..i
43c0: 6e 74 20 65 72 72 20 3d 20 30 3b 0a 0a 09 64 70 nt err = 0;...dp
43d0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
43e0: 0a 0a 09 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 ...if (objc != 2
43f0: 29 20 7b 0a 09 09 54 63 6c 5f 57 72 6f 6e 67 4e ) {...Tcl_WrongN
4400: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
4410: 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c , objv, "channel
4420: 22 29 3b 0a 09 09 72 65 74 75 72 6e 28 54 43 4c ");...return(TCL
4430: 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 63 68 _ERROR);..}...ch
4440: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
4450: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f nel(interp, Tcl_
4460: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
4470: 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 ]), NULL);..if (
4480: 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 chan == (Tcl_Cha
4490: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 09 nnel) NULL) {...
44a0: 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 return(TCL_ERROR
44b0: 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 4d );..}.../*.. * M
44c0: 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 ake sure to oper
44d0: 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f ate on the topmo
44e0: 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a st channel.. */.
44f0: 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 .chan = Tcl_GetT
4500: 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b opChannel(chan);
4510: 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 ..if (Tcl_GetCha
4520: 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 nnelType(chan) !
4530: 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 = Tls_ChannelTyp
4540: 65 28 29 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 e()) {...Tcl_App
4550: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
4560: 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c , "bad channel \
4570: 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e "", Tcl_GetChann
4580: 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 22 5c elName(chan), "\
4590: 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 ": not a TLS cha
45a0: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 nnel", NULL);...
45b0: 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 return(TCL_ERROR
45c0: 29 3b 0a 09 7d 0a 09 73 74 61 74 65 50 74 72 20 );..}..statePtr
45d0: 3d 20 28 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 = (State *)Tcl_G
45e0: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
45f0: 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 0a 09 64 eData(chan);...d
4600: 70 72 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 printf("Calling
4610: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
4620: 63 74 22 29 3b 0a 09 72 65 74 20 3d 20 54 6c 73 ct");..ret = Tls
4630: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 _WaitForConnect(
4640: 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 2c 20 statePtr, &err,
4650: 31 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 54 6c 1);..dprintf("Tl
4660: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
4670: 20 72 65 74 75 72 6e 65 64 3a 20 25 69 22 2c 20 returned: %i",
4680: 72 65 74 29 3b 0a 0a 09 69 66 20 28 0a 09 20 20 ret);...if (..
4690: 20 20 72 65 74 20 3c 20 30 20 26 26 20 5c 0a 09 ret < 0 && \..
46a0: 20 20 20 20 28 28 73 74 61 74 65 50 74 72 2d 3e ((statePtr->
46b0: 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c 5f flags & TLS_TCL_
46c0: 41 53 59 4e 43 29 20 26 26 20 65 72 72 20 3d 3d ASYNC) && err ==
46d0: 20 45 41 47 41 49 4e 29 0a 09 29 20 7b 0a 09 09 EAGAIN)..) {...
46e0: 64 70 72 69 6e 74 66 28 22 41 73 79 6e 63 20 73 dprintf("Async s
46f0: 65 74 20 61 6e 64 20 65 72 72 20 3d 20 45 41 47 et and err = EAG
4700: 41 49 4e 22 29 3b 0a 09 09 72 65 74 20 3d 20 30 AIN");...ret = 0
4710: 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 72 65 ;..} else if (re
4720: 74 20 3c 20 30 29 20 7b 0a 09 09 65 72 72 53 74 t < 0) {...errSt
4730: 72 20 3d 20 73 74 61 74 65 50 74 72 2d 3e 65 72 r = statePtr->er
4740: 72 3b 0a 09 09 54 63 6c 5f 52 65 73 65 74 52 65 r;...Tcl_ResetRe
4750: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 09 sult(interp);...
4760: 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 65 72 72 Tcl_SetErrno(err
4770: 29 3b 0a 0a 09 09 69 66 20 28 21 65 72 72 53 74 );....if (!errSt
4780: 72 20 7c 7c 20 2a 65 72 72 53 74 72 20 3d 3d 20 r || *errStr ==
4790: 30 29 20 7b 0a 09 09 09 65 72 72 53 74 72 20 3d 0) {....errStr =
47a0: 20 54 63 6c 5f 50 6f 73 69 78 45 72 72 6f 72 28 Tcl_PosixError(
47b0: 69 6e 74 65 72 70 29 3b 0a 09 09 7d 0a 0a 09 09 interp);...}....
47c0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
47d0: 28 69 6e 74 65 72 70 2c 20 22 68 61 6e 64 73 68 (interp, "handsh
47e0: 61 6b 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 65 ake failed: ", e
47f0: 72 72 53 74 72 2c 20 28 63 68 61 72 20 2a 29 20 rrStr, (char *)
4800: 4e 55 4c 4c 29 3b 0a 09 09 64 70 72 69 6e 74 66 NULL);...dprintf
4810: 28 22 52 65 74 75 72 6e 69 6e 67 20 54 43 4c 5f ("Returning TCL_
4820: 45 52 52 4f 52 20 77 69 74 68 20 68 61 6e 64 73 ERROR with hands
4830: 68 61 6b 65 20 66 61 69 6c 65 64 3a 20 25 73 22 hake failed: %s"
4840: 2c 20 65 72 72 53 74 72 29 3b 0a 09 09 72 65 74 , errStr);...ret
4850: 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a urn(TCL_ERROR);.
4860: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 69 66 20 28 .} else {...if (
4870: 65 72 72 20 21 3d 20 30 29 20 7b 0a 09 09 09 64 err != 0) {....d
4880: 70 72 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 printf("Got an e
4890: 72 72 6f 72 20 77 69 74 68 20 61 20 63 6f 6d 70 rror with a comp
48a0: 6c 65 74 65 64 20 68 61 6e 64 73 68 61 6b 65 3a leted handshake:
48b0: 20 65 72 72 20 3d 20 25 69 22 2c 20 65 72 72 29 err = %i", err)
48c0: 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 20 3d 20 31 ;...}....ret = 1
48d0: 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 ;..}...dprintf("
48e0: 52 65 74 75 72 6e 69 6e 67 20 54 43 4c 5f 4f 4b Returning TCL_OK
48f0: 20 77 69 74 68 20 64 61 74 61 20 5c 22 25 69 5c with data \"%i\
4900: 22 22 2c 20 72 65 74 29 3b 0a 09 54 63 6c 5f 53 "", ret);..Tcl_S
4910: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
4920: 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 rp, Tcl_NewIntOb
4930: 6a 28 72 65 74 29 29 3b 0a 09 72 65 74 75 72 6e j(ret));..return
4940: 28 54 43 4c 5f 4f 4b 29 3b 0a 0a 20 20 20 20 09 (TCL_OK);.. .
4950: 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 clientData = cli
4960: 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 0a 20 entData;.}../*.
4970: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49b0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6d 70 6f 72 ----. *. * Impor
49c0: 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a tObjCmd --. *. *
49d0: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
49e0: 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 is invoked to pr
49f0: 6f 63 65 73 73 20 74 68 65 20 22 73 73 6c 22 20 ocess the "ssl"
4a00: 63 6f 6d 6d 61 6e 64 0a 20 2a 0a 20 2a 09 54 68 command. *. *.Th
4a10: 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 20 70 75 e ssl command pu
4a20: 73 68 65 73 20 53 53 4c 20 6f 76 65 72 20 61 20 shes SSL over a
4a30: 28 6e 65 77 6c 79 20 63 6f 6e 6e 65 63 74 65 64 (newly connected
4a40: 29 20 74 63 70 20 73 6f 63 6b 65 74 0a 20 2a 0a ) tcp socket. *.
4a50: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
4a60: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 standard Tcl re
4a70: 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 sult.. *. * Side
4a80: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 effects:. *.May
4a90: 20 6d 6f 64 69 66 79 20 74 68 65 20 62 65 68 61 modify the beha
4aa0: 76 69 6f 72 20 6f 66 20 61 6e 20 49 4f 20 63 68 vior of an IO ch
4ab0: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d annel.. *. *----
4ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4b00: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a */..static int.
4b10: 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 63 6c 69 ImportObjCmd(cli
4b20: 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c entData, interp,
4b30: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 objc, objv).
4b40: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
4b50: 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 ntData;./* Not u
4b60: 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f sed. */. Tcl_
4b70: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a Interp *interp;.
4b80: 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 int objc;.
4b90: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 Tcl_Obj *const
4ba0: 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 objv[];.{. T
4bb0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b cl_Channel chan;
4bc0: 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c ../* The channel
4bd0: 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f to set a mode o
4be0: 6e 2e 20 2a 2f 0a 20 20 20 20 53 74 61 74 65 20 n. */. State
4bf0: 2a 73 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 63 *statePtr;../* c
4c00: 6c 69 65 6e 74 20 73 74 61 74 65 20 66 6f 72 20 lient state for
4c10: 73 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 20 ssl socket */.
4c20: 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 09 20 SSL_CTX *ctx.
4c30: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 = NULL;.
4c40: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 Tcl_Obj *scri
4c50: 70 74 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c pt. = NUL
4c60: 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a L;. Tcl_Obj *
4c70: 70 61 73 73 77 6f 72 64 09 20 20 20 20 20 20 20 password.
4c80: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c = NULL;. Tcl
4c90: 5f 44 53 74 72 69 6e 67 20 75 70 70 65 72 43 68 _DString upperCh
4ca0: 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f 6e annelTranslation
4cb0: 2c 20 75 70 70 65 72 43 68 61 6e 6e 65 6c 42 6c , upperChannelBl
4cc0: 6f 63 6b 69 6e 67 2c 20 75 70 70 65 72 43 68 61 ocking, upperCha
4cd0: 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 2c 20 75 70 nnelEncoding, up
4ce0: 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 68 61 perChannelEOFCha
4cf0: 72 3b 0a 20 20 20 20 69 6e 74 20 69 64 78 2c 20 r;. int idx,
4d00: 6c 65 6e 3b 0a 20 20 20 20 69 6e 74 20 66 6c 61 len;. int fla
4d10: 67 73 09 09 20 20 20 20 20 20 20 20 3d 20 54 4c gs.. = TL
4d20: 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 20 20 20 20 S_TCL_INIT;.
4d30: 69 6e 74 20 73 65 72 76 65 72 09 09 20 20 20 20 int server..
4d40: 20 20 20 20 3d 20 30 3b 09 2f 2a 20 69 73 20 63 = 0;./* is c
4d50: 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d 69 onnection incomi
4d60: 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f 20 ng or outgoing?
4d70: 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 */. char *key
4d80: 66 69 6c 65 09 20 20 20 20 20 20 20 20 3d 20 4e file. = N
4d90: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 ULL;. char *c
4da0: 65 72 74 66 69 6c 65 09 20 20 20 20 20 20 20 20 ertfile.
4db0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e 73 69 = NULL;. unsi
4dc0: 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 79 20 20 gned char *key
4dd0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 .= NULL;. int
4de0: 20 6b 65 79 5f 6c 65 6e 20 20 20 20 20 20 20 20 key_len
4df0: 20 20 20 20 20 20 20 20 20 3d 20 30 3b 0a 20 20 = 0;.
4e00: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
4e10: 2a 63 65 72 74 20 20 20 20 20 20 20 20 20 3d 20 *cert =
4e20: 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 63 65 NULL;. int ce
4e30: 72 74 5f 6c 65 6e 20 20 20 20 20 20 20 20 20 20 rt_len
4e40: 20 20 20 20 20 20 3d 20 30 3b 0a 20 20 20 20 63 = 0;. c
4e50: 68 61 72 20 2a 63 69 70 68 65 72 73 09 20 20 20 har *ciphers.
4e60: 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 = NULL;.
4e70: 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 20 20 char *CAfile.
4e80: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 = NULL;.
4e90: 20 20 63 68 61 72 20 2a 43 41 64 69 72 09 09 20 char *CAdir..
4ea0: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 = NULL;.
4eb0: 20 20 20 63 68 61 72 20 2a 44 48 70 61 72 61 6d char *DHparam
4ec0: 73 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c s. = NULL
4ed0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 6d 6f 64 65 ;. char *mode
4ee0: 6c 09 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c l.. = NUL
4ef0: 4c 3b 0a 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 L;.#ifndef OPENS
4f00: 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 SL_NO_TLSEXT.
4f10: 20 63 68 61 72 20 2a 73 65 72 76 65 72 6e 61 6d char *servernam
4f20: 65 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c e. = NULL
4f30: 3b 09 2f 2a 20 68 6f 73 74 6e 61 6d 65 20 66 6f ;./* hostname fo
4f40: 72 20 53 65 72 76 65 72 20 4e 61 6d 65 20 49 6e r Server Name In
4f50: 64 69 63 61 74 69 6f 6e 20 2a 2f 0a 23 65 6e 64 dication */.#end
4f60: 69 66 0a 20 20 20 20 69 6e 74 20 73 73 6c 32 20 if. int ssl2
4f70: 3d 20 30 2c 20 73 73 6c 33 20 3d 20 30 3b 0a 20 = 0, ssl3 = 0;.
4f80: 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 2c int tls1 = 1,
4f90: 20 74 6c 73 31 5f 31 20 3d 20 31 2c 20 74 6c 73 tls1_1 = 1, tls
4fa0: 31 5f 32 20 3d 20 31 2c 20 74 6c 73 31 5f 33 20 1_2 = 1, tls1_3
4fb0: 3d 20 31 3b 0a 20 20 20 20 69 6e 74 20 70 72 6f = 1;. int pro
4fc0: 74 6f 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 to = 0;. int
4fd0: 76 65 72 69 66 79 20 3d 20 30 2c 20 72 65 71 75 verify = 0, requ
4fe0: 69 72 65 20 3d 20 30 2c 20 72 65 71 75 65 73 74 ire = 0, request
4ff0: 20 3d 20 31 3b 0a 0a 20 20 20 20 64 70 72 69 6e = 1;.. dprin
5000: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 23 tf("Called");..#
5010: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c if defined(NO_TL
5020: 53 31 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e S1) && defined(N
5030: 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 64 65 66 O_TLS1_1) && def
5040: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 ined(NO_TLS1_2)
5050: 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 && defined(NO_SS
5060: 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 L3) && !defined(
5070: 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 73 73 6c NO_SSL2). ssl
5080: 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 2 = 1;.#endif.#i
5090: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
50a0: 31 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 1) && defined(NO
50b0: 5f 54 4c 53 31 5f 31 29 20 26 26 20 64 65 66 69 _TLS1_1) && defi
50c0: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 ned(NO_TLS1_2) &
50d0: 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c & defined(NO_SSL
50e0: 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e 2) && !defined(N
50f0: 4f 5f 53 53 4c 33 29 0a 20 20 20 20 73 73 6c 33 O_SSL3). ssl3
5100: 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 = 1;.#endif.#if
5110: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
5120: 29 0a 20 20 20 20 74 6c 73 31 20 3d 20 30 3b 0a ). tls1 = 0;.
5130: 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e #endif.#if defin
5140: 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a 20 20 ed(NO_TLS1_1).
5150: 20 20 74 6c 73 31 5f 31 20 3d 20 30 3b 0a 23 65 tls1_1 = 0;.#e
5160: 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 ndif.#if defined
5170: 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20 20 20 20 (NO_TLS1_2).
5180: 74 6c 73 31 5f 32 20 3d 20 30 3b 0a 23 65 6e 64 tls1_2 = 0;.#end
5190: 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e if.#if defined(N
51a0: 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 20 74 6c O_TLS1_3). tl
51b0: 73 31 5f 33 20 3d 20 30 3b 0a 23 65 6e 64 69 66 s1_3 = 0;.#endif
51c0: 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c .. if (objc <
51d0: 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 2) {..Tcl_Wrong
51e0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
51f0: 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 1, objv, "channe
5200: 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a 09 l ?options?");..
5210: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5220: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 ;. }.. cha
5230: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
5240: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
5250: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
5260: 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 ), NULL);. if
5270: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
5280: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
5290: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
52a0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
52b0: 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 . * Make sur
52c0: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
52d0: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
52e0: 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 nel. */.
52f0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
5300: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
5310: 0a 20 20 20 20 66 6f 72 20 28 69 64 78 20 3d 20 . for (idx =
5320: 32 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 69 2; idx < objc; i
5330: 64 78 2b 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f dx++) {..char *o
5340: 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 pt = Tcl_GetStri
5350: 6e 67 28 6f 62 6a 76 5b 69 64 78 5d 29 3b 0a 0a ng(objv[idx]);..
5360: 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 .if (opt[0] != '
5370: 2d 27 29 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a -').. break;.
5380: 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 64 69 ..OPTSTR( "-cadi
5390: 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 4f 50 54 r", CAdir);..OPT
53a0: 53 54 52 28 20 22 2d 63 61 66 69 6c 65 22 2c 20 STR( "-cafile",
53b0: 43 41 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 CAfile);..OPTSTR
53c0: 28 20 22 2d 63 65 72 74 66 69 6c 65 22 2c 20 63 ( "-certfile", c
53d0: 65 72 74 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 ertfile);..OPTST
53e0: 52 28 20 22 2d 63 69 70 68 65 72 22 2c 20 63 69 R( "-cipher", ci
53f0: 70 68 65 72 73 29 3b 0a 09 4f 50 54 4f 42 4a 28 phers);..OPTOBJ(
5400: 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 63 72 "-command", scr
5410: 69 70 74 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 ipt);..OPTSTR( "
5420: 2d 64 68 70 61 72 61 6d 73 22 2c 20 44 48 70 61 -dhparams", DHpa
5430: 72 61 6d 73 29 3b 0a 09 4f 50 54 53 54 52 28 20 rams);..OPTSTR(
5440: 22 2d 6b 65 79 66 69 6c 65 22 2c 20 6b 65 79 66 "-keyfile", keyf
5450: 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 ile);..OPTSTR( "
5460: 2d 6d 6f 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 3b -model", model);
5470: 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 70 61 73 73 ..OPTOBJ( "-pass
5480: 77 6f 72 64 22 2c 20 70 61 73 73 77 6f 72 64 29 word", password)
5490: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 65 ;..OPTBOOL( "-re
54a0: 71 75 69 72 65 22 2c 20 72 65 71 75 69 72 65 29 quire", require)
54b0: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 65 ;..OPTBOOL( "-re
54c0: 71 75 65 73 74 22 2c 20 72 65 71 75 65 73 74 29 quest", request)
54d0: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 65 ;..OPTBOOL( "-se
54e0: 72 76 65 72 22 2c 20 73 65 72 76 65 72 29 3b 0a rver", server);.
54f0: 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f #ifndef OPENSSL_
5500: 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 20 20 NO_TLSEXT.
5510: 20 20 4f 50 54 53 54 52 28 20 22 2d 73 65 72 76 OPTSTR( "-serv
5520: 65 72 6e 61 6d 65 22 2c 20 73 65 72 76 65 72 6e ername", servern
5530: 61 6d 65 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 4f ame);.#endif...O
5540: 50 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 32 22 2c PTBOOL( "-ssl2",
5550: 20 73 73 6c 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c ssl2);..OPTBOOL
5560: 28 20 22 2d 73 73 6c 33 22 2c 20 73 73 6c 33 29 ( "-ssl3", ssl3)
5570: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c ;..OPTBOOL( "-tl
5580: 73 31 22 2c 20 74 6c 73 31 29 3b 0a 09 4f 50 54 s1", tls1);..OPT
5590: 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 2e 31 22 2c BOOL( "-tls1.1",
55a0: 20 74 6c 73 31 5f 31 29 3b 0a 09 4f 50 54 42 4f tls1_1);..OPTBO
55b0: 4f 4c 28 20 22 2d 74 6c 73 31 2e 32 22 2c 20 74 OL( "-tls1.2", t
55c0: 6c 73 31 5f 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c ls1_2);..OPTBOOL
55d0: 28 20 22 2d 74 6c 73 31 2e 33 22 2c 20 74 6c 73 ( "-tls1.3", tls
55e0: 31 5f 33 29 3b 0a 20 20 4f 50 54 42 59 54 45 28 1_3);. OPTBYTE(
55f0: 22 2d 63 65 72 74 22 2c 20 63 65 72 74 2c 20 63 "-cert", cert, c
5600: 65 72 74 5f 6c 65 6e 29 3b 0a 20 20 4f 50 54 42 ert_len);. OPTB
5610: 59 54 45 28 22 2d 6b 65 79 22 2c 20 6b 65 79 2c YTE("-key", key,
5620: 20 6b 65 79 5f 6c 65 6e 29 3b 0a 0a 09 4f 50 54 key_len);...OPT
5630: 42 41 44 28 20 22 6f 70 74 69 6f 6e 22 2c 20 22 BAD( "option", "
5640: 2d 63 61 64 69 72 2c 20 2d 63 61 66 69 6c 65 2c -cadir, -cafile,
5650: 20 2d 63 65 72 74 2c 20 2d 63 65 72 74 66 69 6c -cert, -certfil
5660: 65 2c 20 2d 63 69 70 68 65 72 2c 20 2d 63 6f 6d e, -cipher, -com
5670: 6d 61 6e 64 2c 20 2d 64 68 70 61 72 61 6d 73 2c mand, -dhparams,
5680: 20 2d 6b 65 79 2c 20 2d 6b 65 79 66 69 6c 65 2c -key, -keyfile,
5690: 20 2d 6d 6f 64 65 6c 2c 20 2d 70 61 73 73 77 6f -model, -passwo
56a0: 72 64 2c 20 2d 72 65 71 75 69 72 65 2c 20 2d 72 rd, -require, -r
56b0: 65 71 75 65 73 74 2c 20 2d 73 65 72 76 65 72 2c equest, -server,
56c0: 20 2d 73 65 72 76 65 72 6e 61 6d 65 2c 20 2d 73 -servername, -s
56d0: 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 2d 74 6c 73 sl2, -ssl3, -tls
56e0: 31 2c 20 2d 74 6c 73 31 2e 31 2c 20 2d 74 6c 73 1, -tls1.1, -tls
56f0: 31 2e 32 2c 20 6f 72 20 74 6c 73 31 2e 33 22 29 1.2, or tls1.3")
5700: 3b 0a 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;...return TCL_E
5710: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
5720: 69 66 20 28 72 65 71 75 65 73 74 29 09 20 20 20 if (request).
5730: 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 verify |= SSL_V
5740: 45 52 49 46 59 5f 43 4c 49 45 4e 54 5f 4f 4e 43 ERIFY_CLIENT_ONC
5750: 45 20 7c 20 53 53 4c 5f 56 45 52 49 46 59 5f 50 E | SSL_VERIFY_P
5760: 45 45 52 3b 0a 20 20 20 20 69 66 20 28 72 65 71 EER;. if (req
5770: 75 65 73 74 20 26 26 20 72 65 71 75 69 72 65 29 uest && require)
5780: 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 verify |= SSL_V
5790: 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f ERIFY_FAIL_IF_NO
57a0: 5f 50 45 45 52 5f 43 45 52 54 3b 0a 20 20 20 20 _PEER_CERT;.
57b0: 69 66 20 28 76 65 72 69 66 79 20 3d 3d 20 30 29 if (verify == 0)
57c0: 09 76 65 72 69 66 79 20 3d 20 53 53 4c 5f 56 45 .verify = SSL_VE
57d0: 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a 20 20 20 20 RIFY_NONE;..
57e0: 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 32 20 3f proto |= (ssl2 ?
57f0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 20 TLS_PROTO_SSL2
5800: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 : 0);. proto
5810: 7c 3d 20 28 73 73 6c 33 20 3f 20 54 4c 53 5f 50 |= (ssl3 ? TLS_P
5820: 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 30 29 3b 0a ROTO_SSL3 : 0);.
5830: 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c proto |= (tl
5840: 73 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 s1 ? TLS_PROTO_T
5850: 4c 53 31 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 LS1 : 0);. pr
5860: 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 31 20 3f oto |= (tls1_1 ?
5870: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
5880: 31 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 1 : 0);. prot
5890: 6f 20 7c 3d 20 28 74 6c 73 31 5f 32 20 3f 20 54 o |= (tls1_2 ? T
58a0: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 20 LS_PROTO_TLS1_2
58b0: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 : 0);. proto
58c0: 7c 3d 20 28 74 6c 73 31 5f 33 20 3f 20 54 4c 53 |= (tls1_3 ? TLS
58d0: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 20 3a 20 _PROTO_TLS1_3 :
58e0: 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 72 65 73 65 0);.. /* rese
58f0: 74 20 74 6f 20 4e 55 4c 4c 20 69 66 20 62 6c 61 t to NULL if bla
5900: 6e 6b 20 73 74 72 69 6e 67 20 70 72 6f 76 69 64 nk string provid
5910: 65 64 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 ed */. if (ce
5920: 72 74 20 26 26 20 21 2a 63 65 72 74 29 09 09 20 rt && !*cert)..
5930: 20 20 20 20 20 20 20 63 65 72 74 09 20 20 20 20 cert.
5940: 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 = NULL;.
5950: 69 66 20 28 6b 65 79 20 26 26 20 21 2a 6b 65 79 if (key && !*key
5960: 29 09 09 20 20 20 20 20 20 20 20 6b 65 79 09 20 ).. key.
5970: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 = NULL;.
5980: 20 20 20 69 66 20 28 63 65 72 74 66 69 6c 65 20 if (certfile
5990: 26 26 20 21 2a 63 65 72 74 66 69 6c 65 29 20 20 && !*certfile)
59a0: 20 20 20 20 20 20 20 63 65 72 74 66 69 6c 65 09 certfile.
59b0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 = NULL;. if (
59c0: 6b 65 79 66 69 6c 65 20 26 26 20 21 2a 6b 65 79 keyfile && !*key
59d0: 66 69 6c 65 29 09 09 6b 65 79 66 69 6c 65 09 20 file)..keyfile.
59e0: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 = NULL;.
59f0: 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 26 if (ciphers &
5a00: 26 20 21 2a 63 69 70 68 65 72 73 29 09 20 20 20 & !*ciphers).
5a10: 20 20 20 20 20 63 69 70 68 65 72 73 09 20 20 20 ciphers.
5a20: 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 = NULL;.
5a30: 20 69 66 20 28 43 41 66 69 6c 65 20 26 26 20 21 if (CAfile && !
5a40: 2a 43 41 66 69 6c 65 29 09 20 20 20 20 20 20 20 *CAfile).
5a50: 20 43 41 66 69 6c 65 09 20 20 20 20 20 20 20 20 CAfile.
5a60: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 = NULL;. if (
5a70: 43 41 64 69 72 20 26 26 20 21 2a 43 41 64 69 72 CAdir && !*CAdir
5a80: 29 09 20 20 20 20 20 20 20 20 43 41 64 69 72 09 ). CAdir.
5a90: 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a = NULL;.
5aa0: 20 20 20 20 69 66 20 28 44 48 70 61 72 61 6d 73 if (DHparams
5ab0: 20 26 26 20 21 2a 44 48 70 61 72 61 6d 73 29 09 && !*DHparams).
5ac0: 20 20 20 20 20 20 20 20 44 48 70 61 72 61 6d 73 DHparams
5ad0: 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a = NULL;.
5ae0: 0a 20 20 20 20 2f 2a 20 6e 65 77 20 53 53 4c 20 . /* new SSL
5af0: 73 74 61 74 65 20 2a 2f 0a 20 20 20 20 73 74 61 state */. sta
5b00: 74 65 50 74 72 09 09 3d 20 28 53 74 61 74 65 20 tePtr..= (State
5b10: 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 *) ckalloc((unsi
5b20: 67 6e 65 64 29 20 73 69 7a 65 6f 66 28 53 74 61 gned) sizeof(Sta
5b30: 74 65 29 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74 te));. memset
5b40: 28 73 74 61 74 65 50 74 72 2c 20 30 2c 20 73 69 (statePtr, 0, si
5b50: 7a 65 6f 66 28 53 74 61 74 65 29 29 3b 0a 0a 20 zeof(State));..
5b60: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
5b70: 67 73 09 3d 20 66 6c 61 67 73 3b 0a 20 20 20 20 gs.= flags;.
5b80: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
5b90: 09 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 73 .= interp;. s
5ba0: 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 09 tatePtr->vflags.
5bb0: 3d 20 76 65 72 69 66 79 3b 0a 20 20 20 20 73 74 = verify;. st
5bc0: 61 74 65 50 74 72 2d 3e 65 72 72 09 3d 20 22 22 atePtr->err.= ""
5bd0: 3b 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 ;.. /* alloca
5be0: 74 65 20 73 63 72 69 70 74 20 2a 2f 0a 20 20 20 te script */.
5bf0: 20 69 66 20 28 73 63 72 69 70 74 29 20 7b 0a 09 if (script) {..
5c00: 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 74 53 74 (void) Tcl_GetSt
5c10: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 73 63 72 69 ringFromObj(scri
5c20: 70 74 2c 20 26 6c 65 6e 29 3b 0a 09 69 66 20 28 pt, &len);..if (
5c30: 6c 65 6e 29 20 7b 0a 09 20 20 20 20 73 74 61 74 len) {.. stat
5c40: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d ePtr->callback =
5c50: 20 73 63 72 69 70 74 3b 0a 09 20 20 20 20 54 63 script;.. Tc
5c60: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 73 l_IncrRefCount(s
5c70: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
5c80: 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 k);..}. }..
5c90: 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 70 61 /* allocate pa
5ca0: 73 73 77 6f 72 64 20 2a 2f 0a 20 20 20 20 69 66 ssword */. if
5cb0: 20 28 70 61 73 73 77 6f 72 64 29 20 7b 0a 09 28 (password) {..(
5cc0: 76 6f 69 64 29 20 54 63 6c 5f 47 65 74 53 74 72 void) Tcl_GetStr
5cd0: 69 6e 67 46 72 6f 6d 4f 62 6a 28 70 61 73 73 77 ingFromObj(passw
5ce0: 6f 72 64 2c 20 26 6c 65 6e 29 3b 0a 09 69 66 20 ord, &len);..if
5cf0: 28 6c 65 6e 29 20 7b 0a 09 20 20 20 20 73 74 61 (len) {.. sta
5d00: 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 20 tePtr->password
5d10: 3d 20 70 61 73 73 77 6f 72 64 3b 0a 09 20 20 20 = password;..
5d20: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
5d30: 74 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 t(statePtr->pass
5d40: 77 6f 72 64 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a word);..}. }.
5d50: 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 6c 20 21 . if (model !
5d60: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 6e 74 20 6d = NULL) {..int m
5d70: 6f 64 65 3b 0a 09 2f 2a 20 47 65 74 20 74 68 65 ode;../* Get the
5d80: 20 22 6d 6f 64 65 6c 22 20 63 6f 6e 74 65 78 74 "model" context
5d90: 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f */..chan = Tcl_
5da0: 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 GetChannel(inter
5db0: 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d 6f 64 65 29 p, model, &mode)
5dc0: 3b 0a 09 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 ;..if (chan == (
5dd0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
5de0: 4c 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 L) {.. Tls_Fr
5df0: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 ee((char *) stat
5e00: 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 ePtr);.. retu
5e10: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
5e20: 0a 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 .. /*.
5e30: 20 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 * Make sur
5e40: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
5e50: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
5e60: 6e 65 6c 0a 20 20 20 20 20 20 20 20 20 2a 2f 0a nel. */.
5e70: 20 20 20 20 20 20 20 20 63 68 61 6e 20 3d 20 54 chan = T
5e80: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c cl_GetTopChannel
5e90: 28 63 68 61 6e 29 3b 0a 09 69 66 20 28 54 63 6c (chan);..if (Tcl
5ea0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
5eb0: 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 chan) != Tls_Cha
5ec0: 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 20 nnelType()) {..
5ed0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
5ee0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 ult(interp, "bad
5ef0: 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a 09 09 channel \"",...
5f00: 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e Tcl_GetChann
5f10: 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 22 5c elName(chan), "\
5f20: 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 ": not a TLS cha
5f30: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 nnel", NULL);..
5f40: 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 Tls_Free((cha
5f50: 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a r *) statePtr);.
5f60: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
5f70: 45 52 52 4f 52 3b 0a 09 7d 0a 09 63 74 78 20 3d ERROR;..}..ctx =
5f80: 20 28 28 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 ((State *)Tcl_G
5f90: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
5fa0: 65 44 61 74 61 28 63 68 61 6e 29 29 2d 3e 63 74 eData(chan))->ct
5fb0: 78 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a x;. } else {.
5fc0: 09 69 66 20 28 28 63 74 78 20 3d 20 43 54 58 5f .if ((ctx = CTX_
5fd0: 49 6e 69 74 28 73 74 61 74 65 50 74 72 2c 20 73 Init(statePtr, s
5fe0: 65 72 76 65 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 erver, proto, ke
5ff0: 79 66 69 6c 65 2c 20 63 65 72 74 66 69 6c 65 2c yfile, certfile,
6000: 20 6b 65 79 2c 0a 20 20 20 20 63 65 72 74 2c 20 key,. cert,
6010: 6b 65 79 5f 6c 65 6e 2c 20 63 65 72 74 5f 6c 65 key_len, cert_le
6020: 6e 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c 65 n, CAdir, CAfile
6030: 2c 20 63 69 70 68 65 72 73 2c 0a 20 20 20 20 44 , ciphers,. D
6040: 48 70 61 72 61 6d 73 29 29 20 3d 3d 20 28 53 53 Hparams)) == (SS
6050: 4c 5f 43 54 58 2a 29 30 29 20 7b 0a 09 20 20 20 L_CTX*)0) {..
6060: 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 Tls_Free((char
6070: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20 *) statePtr);..
6080: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
6090: 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ROR;..}. }..
60a0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 statePtr->ctx
60b0: 20 3d 20 63 74 78 3b 0a 0a 20 20 20 20 2f 2a 0a = ctx;.. /*.
60c0: 20 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 * We need t
60d0: 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 o make sure that
60e0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 6f 72 the channel wor
60f0: 6b 73 20 69 6e 20 62 69 6e 61 72 79 20 28 66 6f ks in binary (fo
6100: 72 20 74 68 65 0a 20 20 20 20 20 2a 20 65 6e 63 r the. * enc
6110: 72 79 70 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 67 ryption not to g
6120: 65 74 20 67 6f 6f 66 65 64 20 75 70 29 2e 0a 20 et goofed up)..
6130: 20 20 20 20 2a 20 57 65 20 6f 6e 6c 79 20 77 61 * We only wa
6140: 6e 74 20 74 6f 20 61 64 6a 75 73 74 20 74 68 65 nt to adjust the
6150: 20 62 75 66 66 65 72 69 6e 67 20 69 6e 20 70 72 buffering in pr
6160: 65 2d 76 32 20 63 68 61 6e 6e 65 6c 73 2c 20 77 e-v2 channels, w
6170: 68 65 72 65 0a 20 20 20 20 20 2a 20 65 61 63 68 here. * each
6180: 20 63 68 61 6e 6e 65 6c 20 69 6e 20 74 68 65 20 channel in the
6190: 73 74 61 63 6b 20 6d 61 69 6e 74 61 69 6e 65 64 stack maintained
61a0: 20 69 74 73 20 6f 77 6e 20 62 75 66 66 65 72 73 its own buffers
61b0: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 .. */. Tc
61c0: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75 l_DStringInit(&u
61d0: 70 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 6e 73 pperChannelTrans
61e0: 6c 61 74 69 6f 6e 29 3b 0a 20 20 20 20 54 63 6c lation);. Tcl
61f0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75 70 _DStringInit(&up
6200: 70 65 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 perChannelBlocki
6210: 6e 67 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 ng);. Tcl_DSt
6220: 72 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 ringInit(&upperC
6230: 68 61 6e 6e 65 6c 45 4f 46 43 68 61 72 29 3b 0a hannelEOFChar);.
6240: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 Tcl_DStringI
6250: 6e 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 nit(&upperChanne
6260: 6c 45 6e 63 6f 64 69 6e 67 29 3b 0a 20 20 20 20 lEncoding);.
6270: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_GetChannelOp
6280: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 tion(interp, cha
6290: 6e 2c 20 22 2d 65 6f 66 63 68 61 72 22 2c 20 26 n, "-eofchar", &
62a0: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 upperChannelEOFC
62b0: 68 61 72 29 3b 0a 20 20 20 20 54 63 6c 5f 47 65 har);. Tcl_Ge
62c0: 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 tChannelOption(i
62d0: 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 65 nterp, chan, "-e
62e0: 6e 63 6f 64 69 6e 67 22 2c 20 26 75 70 70 65 72 ncoding", &upper
62f0: 43 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 29 ChannelEncoding)
6300: 3b 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 ;. Tcl_GetCha
6310: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
6320: 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 p, chan, "-trans
6330: 6c 61 74 69 6f 6e 22 2c 20 26 75 70 70 65 72 43 lation", &upperC
6340: 68 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f hannelTranslatio
6350: 6e 29 3b 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 n);. Tcl_GetC
6360: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
6370: 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 62 6c 6f erp, chan, "-blo
6380: 63 6b 69 6e 67 22 2c 20 26 75 70 70 65 72 43 68 cking", &upperCh
6390: 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 29 3b 0a annelBlocking);.
63a0: 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e Tcl_SetChann
63b0: 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c elOption(interp,
63c0: 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 chan, "-transla
63d0: 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 tion", "binary")
63e0: 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 ;. Tcl_SetCha
63f0: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
6400: 70 2c 20 63 68 61 6e 2c 20 22 2d 62 6c 6f 63 6b p, chan, "-block
6410: 69 6e 67 22 2c 20 22 74 72 75 65 22 29 3b 0a 20 ing", "true");.
6420: 20 20 20 64 70 72 69 6e 74 66 28 22 43 6f 6e 73 dprintf("Cons
6430: 75 6d 69 6e 67 20 54 63 6c 20 63 68 61 6e 6e 65 uming Tcl channe
6440: 6c 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 l %s", Tcl_GetCh
6450: 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 29 annelName(chan))
6460: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
6470: 73 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b self = Tcl_Stack
6480: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
6490: 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 Tls_ChannelType(
64a0: 29 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 ), (ClientData)
64b0: 73 74 61 74 65 50 74 72 2c 20 28 54 43 4c 5f 52 statePtr, (TCL_R
64c0: 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 EADABLE | TCL_WR
64d0: 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a ITABLE), chan);.
64e0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 72 65 dprintf("Cre
64f0: 61 74 65 64 20 63 68 61 6e 6e 65 6c 20 6e 61 6d ated channel nam
6500: 65 64 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 ed %s", Tcl_GetC
6510: 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 hannelName(state
6520: 50 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 20 20 20 Ptr->self));.
6530: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
6540: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
6550: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a nel) NULL) {../*
6560: 0a 09 20 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 .. * No use of T
6570: 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 cl_EventuallyFre
6580: 65 20 62 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 e because no pos
6590: 73 69 62 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 sible Tcl_Preser
65a0: 76 65 2e 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 ve... */..Tls_Fr
65b0: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 ee((char *) stat
65c0: 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 ePtr);..return T
65d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
65e0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e . Tcl_SetChan
65f0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
6600: 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 , statePtr->self
6610: 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 , "-translation"
6620: 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c , Tcl_DStringVal
6630: 75 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c ue(&upperChannel
6640: 54 72 61 6e 73 6c 61 74 69 6f 6e 29 29 3b 0a 20 Translation));.
6650: 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 Tcl_SetChanne
6660: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
6670: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 statePtr->self,
6680: 22 2d 65 6e 63 6f 64 69 6e 67 22 2c 20 54 63 6c "-encoding", Tcl
6690: 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 75 _DStringValue(&u
66a0: 70 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f 64 pperChannelEncod
66b0: 69 6e 67 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 ing));. Tcl_S
66c0: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
66d0: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
66e0: 2d 3e 73 65 6c 66 2c 20 22 2d 65 6f 66 63 68 61 ->self, "-eofcha
66f0: 72 22 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 r", Tcl_DStringV
6700: 61 6c 75 65 28 26 75 70 70 65 72 43 68 61 6e 6e alue(&upperChann
6710: 65 6c 45 4f 46 43 68 61 72 29 29 3b 0a 20 20 20 elEOFChar));.
6720: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f Tcl_SetChannelO
6730: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 74 ption(interp, st
6740: 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 2d atePtr->self, "-
6750: 62 6c 6f 63 6b 69 6e 67 22 2c 20 54 63 6c 5f 44 blocking", Tcl_D
6760: 53 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70 70 StringValue(&upp
6770: 65 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e erChannelBlockin
6780: 67 29 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 g));.. /*.
6790: 20 20 2a 20 53 53 4c 20 49 6e 69 74 69 61 6c 69 * SSL Initiali
67a0: 7a 61 74 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a 0a zation. */..
67b0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 73 statePtr->ss
67c0: 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 73 74 61 74 l = SSL_new(stat
67d0: 65 50 74 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 ePtr->ctx);.
67e0: 69 66 20 28 21 73 74 61 74 65 50 74 72 2d 3e 73 if (!statePtr->s
67f0: 73 6c 29 20 7b 0a 09 2f 2a 20 53 53 4c 20 6c 69 sl) {../* SSL li
6800: 62 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a 09 brary error */..
6810: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
6820: 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 6e (interp, "couldn
6830: 27 74 20 63 6f 6e 73 74 72 75 63 74 20 73 73 6c 't construct ssl
6840: 20 73 65 73 73 69 6f 6e 3a 20 22 2c 20 52 45 41 session: ", REA
6850: 53 4f 4e 28 29 2c 0a 09 09 28 63 68 61 72 20 2a SON(),...(char *
6860: 29 20 4e 55 4c 4c 29 3b 0a 09 54 6c 73 5f 46 72 ) NULL);..Tls_Fr
6870: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 ee((char *) stat
6880: 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 ePtr);..return T
6890: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
68a0: 0a 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c .#ifndef OPENSSL
68b0: 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 69 _NO_TLSEXT. i
68c0: 66 20 28 73 65 72 76 65 72 6e 61 6d 65 29 20 7b f (servername) {
68d0: 0a 20 20 20 20 20 20 20 20 69 66 20 28 21 53 53 . if (!SS
68e0: 4c 5f 73 65 74 5f 74 6c 73 65 78 74 5f 68 6f 73 L_set_tlsext_hos
68f0: 74 5f 6e 61 6d 65 28 73 74 61 74 65 50 74 72 2d t_name(statePtr-
6900: 3e 73 73 6c 2c 20 73 65 72 76 65 72 6e 61 6d 65 >ssl, servername
6910: 29 20 26 26 20 72 65 71 75 69 72 65 29 20 7b 0a ) && require) {.
6920: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
6930: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
6940: 65 72 70 2c 20 22 73 65 74 74 69 6e 67 20 54 4c erp, "setting TL
6950: 53 20 68 6f 73 74 20 6e 61 6d 65 20 65 78 74 65 S host name exte
6960: 6e 73 69 6f 6e 20 66 61 69 6c 65 64 22 2c 0a 20 nsion failed",.
6970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
6980: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 char *) NULL);.
6990: 20 20 20 20 20 20 20 20 20 20 20 54 6c 73 5f 46 Tls_F
69a0: 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 ree((char *) sta
69b0: 74 65 50 74 72 29 3b 0a 20 20 20 20 20 20 20 20 tePtr);.
69c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
69d0: 52 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a RROR;. }.
69e0: 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 }.#endif..
69f0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
6a00: 43 61 6c 6c 62 61 63 6b 73 0a 20 20 20 20 20 2a Callbacks. *
6a10: 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 61 /.. SSL_set_a
6a20: 70 70 5f 64 61 74 61 28 73 74 61 74 65 50 74 72 pp_data(statePtr
6a30: 2d 3e 73 73 6c 2c 20 28 76 6f 69 64 20 2a 29 73 ->ssl, (void *)s
6a40: 74 61 74 65 50 74 72 29 3b 09 2f 2a 20 70 6f 69 tatePtr);./* poi
6a50: 6e 74 20 62 61 63 6b 20 74 6f 20 75 73 20 2a 2f nt back to us */
6a60: 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 76 65 .. SSL_set_ve
6a70: 72 69 66 79 28 73 74 61 74 65 50 74 72 2d 3e 73 rify(statePtr->s
6a80: 73 6c 2c 20 76 65 72 69 66 79 2c 20 56 65 72 69 sl, verify, Veri
6a90: 66 79 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 fyCallback);..
6aa0: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 69 6e SSL_CTX_set_in
6ab0: 66 6f 5f 63 61 6c 6c 62 61 63 6b 28 73 74 61 74 fo_callback(stat
6ac0: 65 50 74 72 2d 3e 63 74 78 2c 20 49 6e 66 6f 43 ePtr->ctx, InfoC
6ad0: 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 2f allback);.. /
6ae0: 2a 20 43 72 65 61 74 65 20 54 63 6c 5f 43 68 61 * Create Tcl_Cha
6af0: 6e 6e 65 6c 20 42 49 4f 20 48 61 6e 64 6c 65 72 nnel BIO Handler
6b00: 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 */. statePtr
6b10: 2d 3e 70 5f 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 ->p_bio.= BIO_ne
6b20: 77 5f 74 63 6c 28 73 74 61 74 65 50 74 72 2c 20 w_tcl(statePtr,
6b30: 42 49 4f 5f 4e 4f 43 4c 4f 53 45 29 3b 0a 20 20 BIO_NOCLOSE);.
6b40: 20 20 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 09 statePtr->bio.
6b50: 3d 20 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 66 5f = BIO_new(BIO_f_
6b60: 73 73 6c 28 29 29 3b 0a 0a 20 20 20 20 69 66 20 ssl());.. if
6b70: 28 73 65 72 76 65 72 29 20 7b 0a 09 73 74 61 74 (server) {..stat
6b80: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
6b90: 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 3b 0a 09 LS_TCL_SERVER;..
6ba0: 53 53 4c 5f 73 65 74 5f 61 63 63 65 70 74 5f 73 SSL_set_accept_s
6bb0: 74 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 tate(statePtr->s
6bc0: 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 sl);. } else
6bd0: 7b 0a 09 53 53 4c 5f 73 65 74 5f 63 6f 6e 6e 65 {..SSL_set_conne
6be0: 63 74 5f 73 74 61 74 65 28 73 74 61 74 65 50 74 ct_state(statePt
6bf0: 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 0a 20 r->ssl);. }.
6c00: 20 20 20 53 53 4c 5f 73 65 74 5f 62 69 6f 28 73 SSL_set_bio(s
6c10: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 73 74 tatePtr->ssl, st
6c20: 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 73 atePtr->p_bio, s
6c30: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 29 3b tatePtr->p_bio);
6c40: 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 73 6c . BIO_set_ssl
6c50: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 (statePtr->bio,
6c60: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 42 statePtr->ssl, B
6c70: 49 4f 5f 4e 4f 43 4c 4f 53 45 29 3b 0a 0a 20 20 IO_NOCLOSE);..
6c80: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 45 6e 64 20 /*. * End
6c90: 6f 66 20 53 53 4c 20 49 6e 69 74 0a 20 20 20 20 of SSL Init.
6ca0: 20 2a 2f 0a 20 20 20 20 64 70 72 69 6e 74 66 28 */. dprintf(
6cb0: 22 52 65 74 75 72 6e 69 6e 67 20 25 73 22 2c 20 "Returning %s",
6cc0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
6cd0: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c me(statePtr->sel
6ce0: 66 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 f));. Tcl_Set
6cf0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 Result(interp, (
6d00: 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 43 char *) Tcl_GetC
6d10: 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 hannelName(state
6d20: 50 74 72 2d 3e 73 65 6c 66 29 2c 0a 09 20 20 20 Ptr->self),..
6d30: 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a TCL_VOLATILE);.
6d40: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
6d50: 4b 3b 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 K;. .clientDa
6d60: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b ta = clientData;
6d70: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
6d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
6dc0: 0a 20 2a 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 . * UnimportObjC
6dd0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 md --. *. *.This
6de0: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
6df0: 76 6f 6b 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 voked to remove
6e00: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
6e10: 6e 65 6c 20 66 69 6c 74 65 72 2e 0a 20 2a 0a 20 nel filter.. *.
6e20: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
6e30: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
6e40: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ult.. *. * Side
6e50: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 effects:. *.May
6e60: 6d 6f 64 69 66 79 20 74 68 65 20 62 65 68 61 76 modify the behav
6e70: 69 6f 72 20 6f 66 20 61 6e 20 49 4f 20 63 68 61 ior of an IO cha
6e80: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
6e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6ed0: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 55 */..static int.U
6ee0: 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 63 6c nimportObjCmd(cl
6ef0: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
6f00: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 , objc, objv).
6f10: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
6f20: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 entData;./* Not
6f30: 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c used. */. Tcl
6f40: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
6f50: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 . int objc;.
6f60: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 Tcl_Obj *cons
6f70: 74 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 t objv[];.{.
6f80: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
6f90: 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 ;../* The channe
6fa0: 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 l to set a mode
6fb0: 6f 6e 2e 20 2a 2f 0a 0a 20 20 20 20 64 70 72 69 on. */.. dpri
6fc0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
6fd0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 if (objc !=
6fe0: 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 2) {..Tcl_WrongN
6ff0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
7000: 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c , objv, "channel
7010: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
7020: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
7030: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
7040: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
7050: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
7060: 6a 76 5b 31 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 jv[1]), NULL);.
7070: 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 if (chan == (
7080: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
7090: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
70a0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
70b0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b /*. * Mak
70c0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
70d0: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
70e0: 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f channel. */
70f0: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
7100: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
7110: 61 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 54 63 an);.. if (Tc
7120: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
7130: 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 (chan) != Tls_Ch
7140: 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 annelType()) {..
7150: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
7160: 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 (interp, "bad ch
7170: 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 annel \"", Tcl_G
7180: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 etChannelName(ch
7190: 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 20 an),..."\": not
71a0: 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 a TLS channel",
71b0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
71c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
71d0: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 55 6e 73 . if (Tcl_Uns
71e0: 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 tackChannel(inte
71f0: 72 70 2c 20 63 68 61 6e 29 20 3d 3d 20 54 43 4c rp, chan) == TCL
7200: 5f 45 52 52 4f 52 29 20 7b 0a 09 72 65 74 75 72 _ERROR) {..retur
7210: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
7220: 20 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 54 }.. return T
7230: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 65 CL_OK;. .clie
7240: 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 ntData = clientD
7250: 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d ata;.}.../*. *--
7260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72a0: 2d 0a 20 2a 0a 20 2a 20 43 54 58 5f 49 6e 69 74 -. *. * CTX_Init
72b0: 20 2d 2d 20 63 6f 6e 73 74 72 75 63 74 20 61 20 -- construct a
72c0: 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 SSL_CTX instance
72d0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
72e0: 20 2a 09 41 20 76 61 6c 69 64 20 53 53 4c 5f 43 *.A valid SSL_C
72f0: 54 58 20 69 6e 73 74 61 6e 63 65 20 6f 72 20 4e TX instance or N
7300: 55 4c 4c 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ULL.. *. * Side
7310: 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 effects:. *.cons
7320: 74 72 75 63 74 73 20 53 53 4c 20 63 6f 6e 74 65 tructs SSL conte
7330: 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d xt (CTX). *. *--
7340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7380: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 53 53 -. */..static SS
7390: 4c 5f 43 54 58 20 2a 0a 43 54 58 5f 49 6e 69 74 L_CTX *.CTX_Init
73a0: 28 73 74 61 74 65 50 74 72 2c 20 69 73 53 65 72 (statePtr, isSer
73b0: 76 65 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 66 ver, proto, keyf
73c0: 69 6c 65 2c 20 63 65 72 74 66 69 6c 65 2c 20 6b ile, certfile, k
73d0: 65 79 2c 20 63 65 72 74 2c 0a 20 20 20 20 20 20 ey, cert,.
73e0: 20 20 20 6b 65 79 5f 6c 65 6e 2c 20 63 65 72 74 key_len, cert
73f0: 5f 6c 65 6e 2c 20 43 41 64 69 72 2c 20 43 41 66 _len, CAdir, CAf
7400: 69 6c 65 2c 20 63 69 70 68 65 72 73 2c 20 44 48 ile, ciphers, DH
7410: 70 61 72 61 6d 73 29 0a 20 20 20 20 53 74 61 74 params). Stat
7420: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
7430: 20 69 6e 74 20 69 73 53 65 72 76 65 72 3b 0a 20 int isServer;.
7440: 20 20 20 69 6e 74 20 70 72 6f 74 6f 3b 0a 20 20 int proto;.
7450: 20 20 63 68 61 72 20 2a 6b 65 79 66 69 6c 65 3b char *keyfile;
7460: 0a 20 20 20 20 63 68 61 72 20 2a 63 65 72 74 66 . char *certf
7470: 69 6c 65 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 ile;. unsigne
7480: 64 20 63 68 61 72 20 2a 6b 65 79 3b 0a 20 20 20 d char *key;.
7490: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
74a0: 63 65 72 74 3b 0a 20 20 20 20 69 6e 74 20 6b 65 cert;. int ke
74b0: 79 5f 6c 65 6e 3b 0a 20 20 20 20 69 6e 74 20 63 y_len;. int c
74c0: 65 72 74 5f 6c 65 6e 3b 0a 20 20 20 20 63 68 61 ert_len;. cha
74d0: 72 20 2a 43 41 64 69 72 3b 0a 20 20 20 20 63 68 r *CAdir;. ch
74e0: 61 72 20 2a 43 41 66 69 6c 65 3b 0a 20 20 20 20 ar *CAfile;.
74f0: 63 68 61 72 20 2a 63 69 70 68 65 72 73 3b 0a 20 char *ciphers;.
7500: 20 20 20 63 68 61 72 20 2a 44 48 70 61 72 61 6d char *DHparam
7510: 73 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 74 s;.{. Tcl_Int
7520: 65 72 70 20 2a 69 6e 74 65 72 70 20 3d 20 73 74 erp *interp = st
7530: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b 0a atePtr->interp;.
7540: 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 SSL_CTX *ctx
7550: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c = NULL;. Tcl
7560: 5f 44 53 74 72 69 6e 67 20 64 73 3b 0a 20 20 20 _DString ds;.
7570: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 31 Tcl_DString ds1
7580: 3b 0a 20 20 20 20 69 6e 74 20 6f 66 66 20 3d 20 ;. int off =
7590: 30 3b 0a 20 20 20 20 69 6e 74 20 6c 6f 61 64 5f 0;. int load_
75a0: 70 72 69 76 61 74 65 5f 6b 65 79 3b 0a 20 20 20 private_key;.
75b0: 20 63 6f 6e 73 74 20 53 53 4c 5f 4d 45 54 48 4f const SSL_METHO
75c0: 44 20 2a 6d 65 74 68 6f 64 3b 0a 0a 20 20 20 20 D *method;..
75d0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
75e0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 70 72 6f );.. if (!pro
75f0: 74 6f 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e to) {..Tcl_Appen
7600: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
7610: 22 6e 6f 20 76 61 6c 69 64 20 70 72 6f 74 6f 63 "no valid protoc
7620: 6f 6c 20 73 65 6c 65 63 74 65 64 22 2c 20 4e 55 ol selected", NU
7630: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 LL);..return (SS
7640: 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d L_CTX *)0;. }
7650: 0a 0a 20 20 20 20 2f 2a 20 63 72 65 61 74 65 20 .. /* create
7660: 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 23 SSL context */.#
7670: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
7680: 4c 32 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 L2). if (ENAB
7690: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
76a0: 52 4f 54 4f 5f 53 53 4c 32 29 29 20 7b 0a 09 54 ROTO_SSL2)) {..T
76b0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
76c0: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
76d0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
76e0: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
76f0: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 (SSL_CTX *)0;.
7700: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 }.#endif.#if
7710: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 defined(NO_SSL3)
7720: 0a 20 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 . if (ENABLED
7730: 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 (proto, TLS_PROT
7740: 4f 5f 53 53 4c 33 29 29 20 7b 0a 09 54 63 6c 5f O_SSL3)) {..Tcl_
7750: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
7760: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
7770: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
7780: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ULL);..return (S
7790: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 SL_CTX *)0;.
77a0: 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 }.#endif.#if def
77b0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 20 20 ined(NO_TLS1).
77c0: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 if (ENABLED(pr
77d0: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 oto, TLS_PROTO_T
77e0: 4c 53 31 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 LS1)) {..Tcl_App
77f0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
7800: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
7810: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
7820: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
7830: 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 23 CTX *)0;. }.#
7840: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
7850: 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a 20 20 20 d(NO_TLS1_1).
7860: 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f if (ENABLED(pro
7870: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c to, TLS_PROTO_TL
7880: 53 31 5f 31 29 29 20 7b 0a 09 54 63 6c 5f 41 70 S1_1)) {..Tcl_Ap
7890: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
78a0: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
78b0: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c supported", NUL
78c0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c L);..return (SSL
78d0: 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a _CTX *)0;. }.
78e0: 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e #endif.#if defin
78f0: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20 20 ed(NO_TLS1_2).
7900: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 if (ENABLED(pr
7910: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 oto, TLS_PROTO_T
7920: 4c 53 31 5f 32 29 29 20 7b 0a 09 54 63 6c 5f 41 LS1_2)) {..Tcl_A
7930: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7940: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
7950: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
7960: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 LL);..return (SS
7970: 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d L_CTX *)0;. }
7980: 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 .#endif.#if defi
7990: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 ned(NO_TLS1_3).
79a0: 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 if (ENABLED(p
79b0: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
79c0: 54 4c 53 31 5f 33 29 29 20 7b 0a 09 54 63 6c 5f TLS1_3)) {..Tcl_
79d0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
79e0: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
79f0: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
7a00: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ULL);..return (S
7a10: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 SL_CTX *)0;.
7a20: 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 73 77 }.#endif.. sw
7a30: 69 74 63 68 20 28 70 72 6f 74 6f 29 20 7b 0a 23 itch (proto) {.#
7a40: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 if !defined(NO_S
7a50: 53 4c 32 29 0a 20 20 20 20 63 61 73 65 20 54 4c SL2). case TL
7a60: 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 3a 0a 09 6d S_PROTO_SSL2:..m
7a70: 65 74 68 6f 64 20 3d 20 53 53 4c 76 32 5f 6d 65 ethod = SSLv2_me
7a80: 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b thod ();..break;
7a90: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
7aa0: 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 ined(NO_SSL3).
7ab0: 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f case TLS_PROTO
7ac0: 5f 53 53 4c 33 3a 0a 09 6d 65 74 68 6f 64 20 3d _SSL3:..method =
7ad0: 20 53 53 4c 76 33 5f 6d 65 74 68 6f 64 20 28 29 SSLv3_method ()
7ae0: 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 ;..break;.#endif
7af0: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f .#if !defined(NO
7b00: 5f 54 4c 53 31 29 0a 20 20 20 20 63 61 73 65 20 _TLS1). case
7b10: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 3a 0a TLS_PROTO_TLS1:.
7b20: 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 76 31 5f .method = TLSv1_
7b30: 6d 65 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 method ();..brea
7b40: 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 k;.#endif.#if !d
7b50: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 efined(NO_TLS1_1
7b60: 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 ). case TLS_P
7b70: 52 4f 54 4f 5f 54 4c 53 31 5f 31 3a 0a 09 6d 65 ROTO_TLS1_1:..me
7b80: 74 68 6f 64 20 3d 20 54 4c 53 76 31 5f 31 5f 6d thod = TLSv1_1_m
7b90: 65 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b ethod ();..break
7ba0: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 ;.#endif.#if !de
7bb0: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 fined(NO_TLS1_2)
7bc0: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 . case TLS_PR
7bd0: 4f 54 4f 5f 54 4c 53 31 5f 32 3a 0a 09 6d 65 74 OTO_TLS1_2:..met
7be0: 68 6f 64 20 3d 20 54 4c 53 76 31 5f 32 5f 6d 65 hod = TLSv1_2_me
7bf0: 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b thod ();..break;
7c00: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
7c10: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 0a ined(NO_TLS1_3).
7c20: 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f case TLS_PRO
7c30: 54 4f 5f 54 4c 53 31 5f 33 3a 0a 20 20 20 20 20 TO_TLS1_3:.
7c40: 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 20 20 2a /*. *
7c50: 20 54 68 65 20 76 65 72 73 69 6f 6e 20 72 61 6e The version ran
7c60: 67 65 20 69 73 20 63 6f 6e 73 74 72 61 69 6e 65 ge is constraine
7c70: 64 20 62 65 6c 6f 77 2c 0a 20 20 20 20 20 20 20 d below,.
7c80: 20 20 2a 20 61 66 74 65 72 20 74 68 65 20 63 6f * after the co
7c90: 6e 74 65 78 74 20 69 73 20 63 72 65 61 74 65 64 ntext is created
7ca0: 2e 20 20 55 73 65 20 74 68 65 0a 20 20 20 20 20 . Use the.
7cb0: 20 20 20 20 2a 20 67 65 6e 65 72 69 63 20 6d 65 * generic me
7cc0: 74 68 6f 64 20 68 65 72 65 2e 0a 20 20 20 20 20 thod here..
7cd0: 20 20 20 20 2a 2f 0a 09 6d 65 74 68 6f 64 20 3d */..method =
7ce0: 20 54 4c 53 5f 6d 65 74 68 6f 64 20 28 29 3b 0a TLS_method ();.
7cf0: 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 .break;.#endif.
7d00: 20 20 20 64 65 66 61 75 6c 74 3a 0a 23 69 66 64 default:.#ifd
7d10: 65 66 20 48 41 56 45 5f 54 4c 53 5f 4d 45 54 48 ef HAVE_TLS_METH
7d20: 4f 44 0a 20 20 20 20 20 20 20 20 6d 65 74 68 6f OD. metho
7d30: 64 20 3d 20 54 4c 53 5f 6d 65 74 68 6f 64 20 28 d = TLS_method (
7d40: 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 );.#else.
7d50: 20 6d 65 74 68 6f 64 20 3d 20 53 53 4c 76 32 33 method = SSLv23
7d60: 5f 6d 65 74 68 6f 64 20 28 29 3b 0a 23 65 6e 64 _method ();.#end
7d70: 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 if.#if !defined(
7d80: 4e 4f 5f 53 53 4c 32 29 0a 09 6f 66 66 20 7c 3d NO_SSL2)..off |=
7d90: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
7da0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 TLS_PROTO_SSL2)
7db0: 20 20 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f ? 0 : SSL_OP_
7dc0: 4e 4f 5f 53 53 4c 76 32 29 3b 0a 23 65 6e 64 69 NO_SSLv2);.#endi
7dd0: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
7de0: 4f 5f 53 53 4c 33 29 0a 09 6f 66 66 20 7c 3d 20 O_SSL3)..off |=
7df0: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
7e00: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 20 TLS_PROTO_SSL3)
7e10: 20 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e ? 0 : SSL_OP_N
7e20: 4f 5f 53 53 4c 76 33 29 3b 0a 23 65 6e 64 69 66 O_SSLv3);.#endif
7e30: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f .#if !defined(NO
7e40: 5f 54 4c 53 31 29 0a 09 6f 66 66 20 7c 3d 20 28 _TLS1)..off |= (
7e50: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
7e60: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 20 20 LS_PROTO_TLS1)
7e70: 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f ? 0 : SSL_OP_NO
7e80: 5f 54 4c 53 76 31 29 3b 0a 23 65 6e 64 69 66 0a _TLSv1);.#endif.
7e90: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
7ea0: 54 4c 53 31 5f 31 29 0a 09 6f 66 66 20 7c 3d 20 TLS1_1)..off |=
7eb0: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
7ec0: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 TLS_PROTO_TLS1_1
7ed0: 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e ) ? 0 : SSL_OP_N
7ee0: 4f 5f 54 4c 53 76 31 5f 31 29 3b 0a 23 65 6e 64 O_TLSv1_1);.#end
7ef0: 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 if.#if !defined(
7f00: 4e 4f 5f 54 4c 53 31 5f 32 29 0a 09 6f 66 66 20 NO_TLS1_2)..off
7f10: 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 |= (ENABLED(prot
7f20: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 o, TLS_PROTO_TLS
7f30: 31 5f 32 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 1_2) ? 0 : SSL_O
7f40: 50 5f 4e 4f 5f 54 4c 53 76 31 5f 32 29 3b 0a 23 P_NO_TLSv1_2);.#
7f50: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
7f60: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 6f ed(NO_TLS1_3)..o
7f70: 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 ff |= (ENABLED(p
7f80: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
7f90: 54 4c 53 31 5f 33 29 20 3f 20 30 20 3a 20 53 53 TLS1_3) ? 0 : SS
7fa0: 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 5f 33 29 L_OP_NO_TLSv1_3)
7fb0: 3b 0a 23 65 6e 64 69 66 0a 09 62 72 65 61 6b 3b ;.#endif..break;
7fc0: 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 20 20 . }. .
7fd0: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
7fe0: 77 20 28 6d 65 74 68 6f 64 29 3b 0a 0a 20 20 20 w (method);..
7ff0: 20 69 66 20 28 21 63 74 78 29 20 7b 0a 20 20 20 if (!ctx) {.
8000: 20 20 20 20 20 72 65 74 75 72 6e 28 4e 55 4c 4c return(NULL
8010: 29 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 20 21 64 );. }..#if !d
8020: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 efined(NO_TLS1_3
8030: 29 0a 20 20 20 20 69 66 20 28 70 72 6f 74 6f 20 ). if (proto
8040: 3d 3d 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 == TLS_PROTO_TLS
8050: 31 5f 33 29 20 7b 0a 20 20 20 20 20 20 20 20 53 1_3) {. S
8060: 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 6e 5f 70 SL_CTX_set_min_p
8070: 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 roto_version (ct
8080: 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f x, TLS1_3_VERSIO
8090: 4e 29 3b 0a 20 20 20 20 20 20 20 20 53 53 4c 5f N);. SSL_
80a0: 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f 74 CTX_set_max_prot
80b0: 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 78 2c 20 o_version (ctx,
80c0: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 29 3b TLS1_3_VERSION);
80d0: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 . }.#endif.
80e0: 20 20 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 . SSL_CTX_s
80f0: 65 74 5f 61 70 70 5f 64 61 74 61 28 20 63 74 78 et_app_data( ctx
8100: 2c 20 28 76 6f 69 64 2a 29 69 6e 74 65 72 70 29 , (void*)interp)
8110: 3b 09 2f 2a 20 72 65 6d 65 6d 62 65 72 20 74 68 ;./* remember th
8120: 65 20 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f e interpreter */
8130: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
8140: 5f 6f 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 53 _options( ctx, S
8150: 53 4c 5f 4f 50 5f 41 4c 4c 29 3b 09 2f 2a 20 61 SL_OP_ALL);./* a
8160: 6c 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 ll SSL bug worka
8170: 72 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 rounds */. SS
8180: 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e L_CTX_set_option
8190: 73 28 20 63 74 78 2c 20 6f 66 66 29 3b 09 2f 2a s( ctx, off);./*
81a0: 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 all SSL bug wor
81b0: 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 karounds */.
81c0: 53 53 4c 5f 43 54 58 5f 73 65 73 73 5f 73 65 74 SSL_CTX_sess_set
81d0: 5f 63 61 63 68 65 5f 73 69 7a 65 28 20 63 74 78 _cache_size( ctx
81e0: 2c 20 31 32 38 29 3b 0a 0a 20 20 20 20 69 66 20 , 128);.. if
81f0: 28 63 69 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c (ciphers != NULL
8200: 29 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 )..SSL_CTX_set_c
8210: 69 70 68 65 72 5f 6c 69 73 74 28 63 74 78 2c 20 ipher_list(ctx,
8220: 63 69 70 68 65 72 73 29 3b 0a 0a 20 20 20 20 2f ciphers);.. /
8230: 2a 20 73 65 74 20 73 6f 6d 65 20 63 61 6c 6c 62 * set some callb
8240: 61 63 6b 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f acks */. SSL_
8250: 43 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f CTX_set_default_
8260: 70 61 73 73 77 64 5f 63 62 28 63 74 78 2c 20 50 passwd_cb(ctx, P
8270: 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 29 asswordCallback)
8280: 3b 0a 0a 23 69 66 6e 64 65 66 20 42 53 41 46 45 ;..#ifndef BSAFE
8290: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
82a0: 5f 64 65 66 61 75 6c 74 5f 70 61 73 73 77 64 5f _default_passwd_
82b0: 63 62 5f 75 73 65 72 64 61 74 61 28 63 74 78 2c cb_userdata(ctx,
82c0: 20 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 (void *)statePt
82d0: 72 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 r);.#endif..
82e0: 2f 2a 20 72 65 61 64 20 61 20 44 69 66 66 69 65 /* read a Diffie
82f0: 2d 48 65 6c 6c 6d 61 6e 20 70 61 72 61 6d 65 74 -Hellman paramet
8300: 65 72 73 20 66 69 6c 65 2c 20 6f 72 20 75 73 65 ers file, or use
8310: 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 6f 6e the built-in on
8320: 65 20 2a 2f 0a 23 69 66 64 65 66 20 4f 50 45 4e e */.#ifdef OPEN
8330: 53 53 4c 5f 4e 4f 5f 44 48 0a 20 20 20 20 69 66 SSL_NO_DH. if
8340: 20 28 44 48 70 61 72 61 6d 73 20 21 3d 20 4e 55 (DHparams != NU
8350: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e LL) {..Tcl_Appen
8360: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
8370: 09 20 20 20 20 22 44 48 20 70 61 72 61 6d 65 74 . "DH paramet
8380: 65 72 20 73 75 70 70 6f 72 74 20 6e 6f 74 20 61 er support not a
8390: 76 61 69 6c 61 62 6c 65 22 2c 20 28 63 68 61 72 vailable", (char
83a0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f *) NULL);..SSL_
83b0: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
83c0: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
83d0: 2a 29 30 3b 0a 20 20 20 20 7d 0a 23 65 6c 73 65 *)0;. }.#else
83e0: 0a 20 20 20 20 7b 0a 09 44 48 2a 20 64 68 3b 0a . {..DH* dh;.
83f0: 09 69 66 20 28 44 48 70 61 72 61 6d 73 20 21 3d .if (DHparams !=
8400: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 42 49 NULL) {.. BI
8410: 4f 20 2a 62 69 6f 3b 0a 09 20 20 20 20 54 63 6c O *bio;.. Tcl
8420: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 _DStringInit(&ds
8430: 29 3b 0a 09 20 20 20 20 62 69 6f 20 3d 20 42 49 );.. bio = BI
8440: 4f 5f 6e 65 77 5f 66 69 6c 65 28 46 32 4e 28 44 O_new_file(F2N(D
8450: 48 70 61 72 61 6d 73 2c 20 26 64 73 29 2c 20 22 Hparams, &ds), "
8460: 72 22 29 3b 0a 09 20 20 20 20 69 66 20 28 21 62 r");.. if (!b
8470: 69 6f 29 20 7b 0a 09 09 54 63 6c 5f 44 53 74 72 io) {...Tcl_DStr
8480: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 09 ingFree(&ds);...
8490: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
84a0: 28 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 22 (interp,... "
84b0: 43 6f 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 44 Could not find D
84c0: 48 20 70 61 72 61 6d 65 74 65 72 73 20 66 69 6c H parameters fil
84d0: 65 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c e", (char *) NUL
84e0: 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 L);...SSL_CTX_fr
84f0: 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 ee(ctx);...retur
8500: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
8510: 09 20 20 20 20 7d 0a 09 20 20 20 20 0a 09 20 20 . }.. ..
8520: 20 20 64 68 20 3d 20 50 45 4d 5f 72 65 61 64 5f dh = PEM_read_
8530: 62 69 6f 5f 44 48 70 61 72 61 6d 73 28 62 69 6f bio_DHparams(bio
8540: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 , NULL, NULL, NU
8550: 4c 4c 29 3b 0a 09 20 20 20 20 42 49 4f 5f 66 72 LL);.. BIO_fr
8560: 65 65 28 62 69 6f 29 3b 0a 09 20 20 20 20 54 63 ee(bio);.. Tc
8570: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
8580: 73 29 3b 0a 09 20 20 20 20 69 66 20 28 21 64 68 s);.. if (!dh
8590: 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 ) {...Tcl_Append
85a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 Result(interp,..
85b0: 09 20 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 20 . "Could not
85c0: 72 65 61 64 20 44 48 20 70 61 72 61 6d 65 74 65 read DH paramete
85d0: 72 73 20 66 72 6f 6d 20 66 69 6c 65 22 2c 20 28 rs from file", (
85e0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
85f0: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
8600: 78 29 3b 0a 09 09 72 65 74 75 72 6e 20 28 53 53 x);...return (SS
8610: 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 20 20 20 20 L_CTX *)0;..
8620: 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 }..} else {..
8630: 20 64 68 20 3d 20 67 65 74 5f 64 68 50 61 72 61 dh = get_dhPara
8640: 6d 73 28 29 3b 0a 09 7d 0a 09 53 53 4c 5f 43 54 ms();..}..SSL_CT
8650: 58 5f 73 65 74 5f 74 6d 70 5f 64 68 28 63 74 78 X_set_tmp_dh(ctx
8660: 2c 20 64 68 29 3b 0a 09 44 48 5f 66 72 65 65 28 , dh);..DH_free(
8670: 64 68 29 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 dh);. }.#endi
8680: 66 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 6f 75 f.. /* set ou
8690: 72 20 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f r certificate */
86a0: 0a 20 20 20 20 6c 6f 61 64 5f 70 72 69 76 61 74 . load_privat
86b0: 65 5f 6b 65 79 20 3d 20 30 3b 0a 20 20 20 20 69 e_key = 0;. i
86c0: 66 20 28 63 65 72 74 66 69 6c 65 20 21 3d 20 4e f (certfile != N
86d0: 55 4c 4c 29 20 7b 0a 09 6c 6f 61 64 5f 70 72 69 ULL) {..load_pri
86e0: 76 61 74 65 5f 6b 65 79 20 3d 20 31 3b 0a 0a 09 vate_key = 1;...
86f0: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
8700: 26 64 73 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f &ds);...if (SSL_
8710: 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 63 CTX_use_certific
8720: 61 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 ate_file(ctx, F2
8730: 4e 28 20 63 65 72 74 66 69 6c 65 2c 20 26 64 73 N( certfile, &ds
8740: 29 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 ),......SSL_FILE
8750: 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 TYPE_PEM) <= 0)
8760: 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 {.. Tcl_DStri
8770: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 ngFree(&ds);..
8780: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
8790: 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 lt(interp,....
87a0: 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 "unable to se
87b0: 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 t certificate fi
87c0: 6c 65 20 22 2c 20 63 65 72 74 66 69 6c 65 2c 20 le ", certfile,
87d0: 22 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 ": ",.... RE
87e0: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
87f0: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c NULL);.. SSL
8800: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
8810: 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c . return (SSL
8820: 5f 43 54 58 20 2a 29 30 3b 0a 09 7d 0a 20 20 20 _CTX *)0;..}.
8830: 20 7d 20 65 6c 73 65 20 69 66 20 28 63 65 72 74 } else if (cert
8840: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6c 6f 61 != NULL) {..loa
8850: 64 5f 70 72 69 76 61 74 65 5f 6b 65 79 20 3d 20 d_private_key =
8860: 31 3b 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 1;..if (SSL_CTX_
8870: 75 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 5f use_certificate_
8880: 41 53 4e 31 28 63 74 78 2c 20 63 65 72 74 5f 6c ASN1(ctx, cert_l
8890: 65 6e 2c 20 63 65 72 74 29 20 3c 3d 20 30 29 20 en, cert) <= 0)
88a0: 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 {.. Tcl_DStri
88b0: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 ngFree(&ds);..
88c0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
88d0: 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 lt(interp,....
88e0: 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 "unable to se
88f0: 74 20 63 65 72 74 69 66 69 63 61 74 65 3a 20 22 t certificate: "
8900: 2c 0a 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e ,.... REASON
8910: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
8920: 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 L);.. SSL_CTX
8930: 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 _free(ctx);..
8940: 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 return (SSL_CTX
8950: 20 2a 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 *)0;..}. } e
8960: 6c 73 65 20 7b 0a 09 63 65 72 74 66 69 6c 65 20 lse {..certfile
8970: 3d 20 28 63 68 61 72 2a 29 58 35 30 39 5f 67 65 = (char*)X509_ge
8980: 74 5f 64 65 66 61 75 6c 74 5f 63 65 72 74 5f 66 t_default_cert_f
8990: 69 6c 65 28 29 3b 0a 0a 09 69 66 20 28 53 53 4c ile();...if (SSL
89a0: 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 _CTX_use_certifi
89b0: 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 63 cate_file(ctx, c
89c0: 65 72 74 66 69 6c 65 2c 0a 09 09 09 09 09 53 53 ertfile,......SS
89d0: 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 L_FILETYPE_PEM)
89e0: 3c 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 20 <= 0) {.#if 0..
89f0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
8a00: 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 ee(&ds);.. Tc
8a10: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
8a20: 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 nterp,.... "
8a30: 75 6e 61 62 6c 65 20 74 6f 20 75 73 65 20 64 65 unable to use de
8a40: 66 61 75 6c 74 20 63 65 72 74 69 66 69 63 61 74 fault certificat
8a50: 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 66 69 e file ", certfi
8a60: 6c 65 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 20 le, ": ",....
8a70: 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 REASON(), (cha
8a80: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 r *) NULL);..
8a90: 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 SSL_CTX_free(ct
8aa0: 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 x);.. return
8ab0: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 (SSL_CTX *)0;.#e
8ac0: 6e 64 69 66 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ndif..}. }..
8ad0: 20 20 20 2f 2a 20 73 65 74 20 6f 75 72 20 70 72 /* set our pr
8ae0: 69 76 61 74 65 20 6b 65 79 20 2a 2f 0a 20 20 20 ivate key */.
8af0: 20 69 66 20 28 6c 6f 61 64 5f 70 72 69 76 61 74 if (load_privat
8b00: 65 5f 6b 65 79 29 20 7b 0a 09 69 66 20 28 6b 65 e_key) {..if (ke
8b10: 79 66 69 6c 65 20 3d 3d 20 4e 55 4c 4c 20 26 26 yfile == NULL &&
8b20: 20 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a key == NULL) {.
8b30: 09 20 20 20 20 6b 65 79 66 69 6c 65 20 3d 20 63 . keyfile = c
8b40: 65 72 74 66 69 6c 65 3b 0a 09 7d 0a 0a 09 69 66 ertfile;..}...if
8b50: 20 28 6b 65 79 66 69 6c 65 20 21 3d 20 4e 55 4c (keyfile != NUL
8b60: 4c 29 20 7b 0a 09 20 20 20 20 2f 2a 20 67 65 74 L) {.. /* get
8b70: 20 74 68 65 20 70 72 69 76 61 74 65 20 6b 65 79 the private key
8b80: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
8b90: 20 74 68 69 73 20 63 65 72 74 69 66 69 63 61 74 this certificat
8ba0: 65 20 2a 2f 0a 09 20 20 20 20 69 66 20 28 6b 65 e */.. if (ke
8bb0: 79 66 69 6c 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b yfile == NULL) {
8bc0: 0a 09 09 6b 65 79 66 69 6c 65 20 3d 20 63 65 72 ...keyfile = cer
8bd0: 74 66 69 6c 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 tfile;.. }...
8be0: 20 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f if (SSL_CTX_
8bf0: 75 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f 66 use_PrivateKey_f
8c00: 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 6b 65 ile(ctx, F2N( ke
8c10: 79 66 69 6c 65 2c 20 26 64 73 29 2c 20 53 53 4c yfile, &ds), SSL
8c20: 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c _FILETYPE_PEM) <
8c30: 3d 20 30 29 20 7b 0a 09 09 54 63 6c 5f 44 53 74 = 0) {...Tcl_DSt
8c40: 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 ringFree(&ds);..
8c50: 09 2f 2a 20 66 6c 75 73 68 20 74 68 65 20 70 61 ./* flush the pa
8c60: 73 73 70 68 72 61 73 65 20 77 68 69 63 68 20 6d ssphrase which m
8c70: 69 67 68 74 20 62 65 20 6c 65 66 74 20 69 6e 20 ight be left in
8c80: 74 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a 09 09 the result */...
8c90: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
8ca0: 74 65 72 70 2c 20 4e 55 4c 4c 2c 20 54 43 4c 5f terp, NULL, TCL_
8cb0: 53 54 41 54 49 43 29 3b 0a 09 09 54 63 6c 5f 41 STATIC);...Tcl_A
8cc0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8cd0: 72 70 2c 0a 09 09 09 20 20 20 20 20 20 20 20 20 rp,....
8ce0: 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 70 "unable to set p
8cf0: 75 62 6c 69 63 20 6b 65 79 20 66 69 6c 65 20 22 ublic key file "
8d00: 2c 20 6b 65 79 66 69 6c 65 2c 20 22 20 22 2c 0a , keyfile, " ",.
8d10: 09 09 09 20 20 20 20 20 20 20 20 20 52 45 41 53 ... REAS
8d20: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e ON(), (char *) N
8d30: 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f ULL);...SSL_CTX_
8d40: 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 free(ctx);...ret
8d50: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
8d60: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 54 ;.. }... T
8d70: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
8d80: 64 73 29 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 ds);..} else if
8d90: 28 6b 65 79 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a (key != NULL) {.
8da0: 09 20 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 . if (SSL_CTX
8db0: 5f 75 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f _use_PrivateKey_
8dc0: 41 53 4e 31 28 45 56 50 5f 50 4b 45 59 5f 52 53 ASN1(EVP_PKEY_RS
8dd0: 41 2c 20 63 74 78 2c 20 6b 65 79 2c 6b 65 79 5f A, ctx, key,key_
8de0: 6c 65 6e 29 20 3c 3d 20 30 29 20 7b 0a 09 09 54 len) <= 0) {...T
8df0: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
8e00: 64 73 29 3b 0a 09 09 2f 2a 20 66 6c 75 73 68 20 ds);.../* flush
8e10: 74 68 65 20 70 61 73 73 70 68 72 61 73 65 20 77 the passphrase w
8e20: 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 6c 65 hich might be le
8e30: 66 74 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 ft in the result
8e40: 20 2a 2f 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 */...Tcl_SetRes
8e50: 75 6c 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c ult(interp, NULL
8e60: 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 09 , TCL_STATIC);..
8e70: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
8e80: 74 28 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 t(interp,...
8e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 6e "un
8ea0: 61 62 6c 65 20 74 6f 20 73 65 74 20 70 75 62 6c able to set publ
8eb0: 69 63 20 6b 65 79 3a 20 22 2c 0a 09 09 20 20 20 ic key: ",...
8ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
8ed0: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
8ee0: 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 NULL);...SSL_CT
8ef0: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 X_free(ctx);...r
8f00: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
8f10: 29 30 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 2f )0;.. }..}../
8f20: 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f 77 20 74 68 * Now we know th
8f30: 61 74 20 61 20 6b 65 79 20 61 6e 64 20 63 65 72 at a key and cer
8f40: 74 20 68 61 76 65 20 62 65 65 6e 20 73 65 74 20 t have been set
8f50: 61 67 61 69 6e 73 74 0a 09 20 2a 20 74 68 65 20 against.. * the
8f60: 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 SSL context */..
8f70: 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 63 68 65 if (!SSL_CTX_che
8f80: 63 6b 5f 70 72 69 76 61 74 65 5f 6b 65 79 28 63 ck_private_key(c
8f90: 74 78 29 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f tx)) {.. Tcl_
8fa0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
8fb0: 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 70 72 erp,.... "pr
8fc0: 69 76 61 74 65 20 6b 65 79 20 64 6f 65 73 20 6e ivate key does n
8fd0: 6f 74 20 6d 61 74 63 68 20 74 68 65 20 63 65 72 ot match the cer
8fe0: 74 69 66 69 63 61 74 65 20 70 75 62 6c 69 63 20 tificate public
8ff0: 6b 65 79 22 2c 0a 09 09 09 20 20 20 20 20 28 63 key",.... (c
9000: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
9010: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 SSL_CTX_free(
9020: 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ctx);.. retur
9030: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
9040: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a .}. }.. /*
9050: 20 53 65 74 20 76 65 72 69 66 69 63 61 74 69 6f Set verificatio
9060: 6e 20 43 41 73 20 2a 2f 0a 20 20 20 20 54 63 6c n CAs */. Tcl
9070: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 _DStringInit(&ds
9080: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 );. Tcl_DStri
9090: 6e 67 49 6e 69 74 28 26 64 73 31 29 3b 0a 20 20 ngInit(&ds1);.
90a0: 20 20 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 6c if (!SSL_CTX_l
90b0: 6f 61 64 5f 76 65 72 69 66 79 5f 6c 6f 63 61 74 oad_verify_locat
90c0: 69 6f 6e 73 28 63 74 78 2c 20 46 32 4e 28 43 41 ions(ctx, F2N(CA
90d0: 66 69 6c 65 2c 20 26 64 73 29 2c 20 46 32 4e 28 file, &ds), F2N(
90e0: 43 41 64 69 72 2c 20 26 64 73 31 29 29 20 7c 7c CAdir, &ds1)) ||
90f0: 0a 09 21 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 ..!SSL_CTX_set_d
9100: 65 66 61 75 6c 74 5f 76 65 72 69 66 79 5f 70 61 efault_verify_pa
9110: 74 68 73 28 63 74 78 29 29 20 7b 0a 23 69 66 20 ths(ctx)) {.#if
9120: 30 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 0..Tcl_DStringFr
9130: 65 65 28 26 64 73 29 3b 0a 09 54 63 6c 5f 44 53 ee(&ds);..Tcl_DS
9140: 74 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b tringFree(&ds1);
9150: 0a 09 2f 2a 20 44 6f 6e 27 74 20 63 75 72 72 65 ../* Don't curre
9160: 6e 74 6c 79 20 63 61 72 65 20 69 66 20 74 68 69 ntly care if thi
9170: 73 20 66 61 69 6c 73 20 2a 2f 0a 09 54 63 6c 5f s fails */..Tcl_
9180: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
9190: 65 72 70 2c 20 22 53 53 4c 20 64 65 66 61 75 6c erp, "SSL defaul
91a0: 74 20 76 65 72 69 66 79 20 70 61 74 68 73 3a 20 t verify paths:
91b0: 22 2c 0a 09 09 52 45 41 53 4f 4e 28 29 2c 20 28 ",...REASON(), (
91c0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
91d0: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
91e0: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
91f0: 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a CTX *)0;.#endif.
9200: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 68 74 }.. /* ht
9210: 74 70 73 3a 2f 2f 73 6f 75 72 63 65 66 6f 72 67 tps://sourceforg
9220: 65 2e 6e 65 74 2f 70 2f 74 6c 73 2f 62 75 67 73 e.net/p/tls/bugs
9230: 2f 35 37 2f 20 2a 2f 0a 20 20 20 20 2f 2a 20 58 /57/ */. /* X
9240: 58 58 3a 54 4f 44 4f 3a 20 4c 65 74 20 74 68 65 XX:TODO: Let the
9250: 20 75 73 65 72 20 73 75 70 70 6c 79 20 76 61 6c user supply val
9260: 75 65 73 20 68 65 72 65 20 69 6e 73 74 65 61 64 ues here instead
9270: 20 6f 66 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 of something th
9280: 61 74 20 65 78 69 73 74 73 20 6f 6e 20 74 68 65 at exists on the
9290: 20 66 69 6c 65 73 79 73 74 65 6d 20 2a 2f 0a 20 filesystem */.
92a0: 20 20 20 69 66 20 28 20 43 41 66 69 6c 65 20 21 if ( CAfile !
92b0: 3d 20 4e 55 4c 4c 20 29 20 7b 0a 20 20 20 20 20 = NULL ) {.
92c0: 20 20 20 53 54 41 43 4b 5f 4f 46 28 58 35 30 39 STACK_OF(X509
92d0: 5f 4e 41 4d 45 29 20 2a 63 65 72 74 4e 61 6d 65 _NAME) *certName
92e0: 73 20 3d 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c 69 s = SSL_load_cli
92f0: 65 6e 74 5f 43 41 5f 66 69 6c 65 28 20 46 32 4e ent_CA_file( F2N
9300: 28 43 41 66 69 6c 65 2c 20 26 64 73 29 20 29 3b (CAfile, &ds) );
9310: 0a 09 69 66 20 28 20 63 65 72 74 4e 61 6d 65 73 ..if ( certNames
9320: 20 21 3d 20 4e 55 4c 4c 20 29 20 7b 20 0a 09 20 != NULL ) { ..
9330: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 SSL_CTX_set_c
9340: 6c 69 65 6e 74 5f 43 41 5f 6c 69 73 74 28 63 74 lient_CA_list(ct
9350: 78 2c 20 63 65 72 74 4e 61 6d 65 73 20 29 3b 0a x, certNames );.
9360: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 .}. }.. Tc
9370: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
9380: 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 s);. Tcl_DStr
9390: 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b 0a 20 ingFree(&ds1);.
93a0: 20 20 20 72 65 74 75 72 6e 20 63 74 78 3b 0a 7d return ctx;.}
93b0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
93c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
9400: 2a 20 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 2d * StatusObjCmd -
9410: 2d 20 72 65 74 75 72 6e 20 63 65 72 74 69 66 69 - return certifi
9420: 63 61 74 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 cate for connect
9430: 65 64 20 70 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 ed peer.. *. * R
9440: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
9450: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
9460: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
9470: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
9480: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
9490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
94d0: 69 63 20 69 6e 74 0a 53 74 61 74 75 73 4f 62 6a ic int.StatusObj
94e0: 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 Cmd(clientData,
94f0: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 interp, objc, ob
9500: 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 jv). ClientDa
9510: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f ta clientData;./
9520: 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 * Not used. */.
9530: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
9540: 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f nterp;. int o
9550: 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a bjc;. Tcl_Obj
9560: 09 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 3b 0a .*const objv[];.
9570: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
9580: 74 65 50 74 72 3b 0a 20 20 20 20 58 35 30 39 20 tePtr;. X509
9590: 2a 70 65 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f *peer;. Tcl_O
95a0: 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 bj *objPtr;.
95b0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
95c0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 68 61 6e ;. char *chan
95d0: 6e 65 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 65 72 nelName, *cipher
95e0: 73 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b s;. int mode;
95f0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
9600: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 73 77 alled");.. sw
9610: 69 74 63 68 20 28 6f 62 6a 63 29 20 7b 0a 09 63 itch (objc) {..c
9620: 61 73 65 20 32 3a 0a 09 20 20 20 20 63 68 61 6e ase 2:.. chan
9630: 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 nelName = Tcl_Ge
9640: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 tString(objv[1])
9650: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 ;.. break;...
9660: 63 61 73 65 20 33 3a 0a 09 20 20 20 20 69 66 20 case 3:.. if
9670: 28 21 73 74 72 63 6d 70 20 28 54 63 6c 5f 47 65 (!strcmp (Tcl_Ge
9680: 74 53 74 72 69 6e 67 20 28 6f 62 6a 76 5b 31 5d tString (objv[1]
9690: 29 2c 20 22 2d 6c 6f 63 61 6c 22 29 29 20 7b 0a ), "-local")) {.
96a0: 09 09 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 ..channelName =
96b0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
96c0: 6a 76 5b 32 5d 29 3b 0a 09 09 62 72 65 61 6b 3b jv[2]);...break;
96d0: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 2f 2a 20 .. }.. /*
96e0: 65 6c 73 65 20 66 61 6c 6c 2e 2e 2e 20 2a 2f 0a else fall... */.
96f0: 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 54 .default:.. T
9700: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
9710: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
9720: 20 22 3f 2d 6c 6f 63 61 6c 3f 20 63 68 61 6e 6e "?-local? chann
9730: 65 6c 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 el");.. retur
9740: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
9750: 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 }.. chan = T
9760: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
9770: 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 4e 61 6d terp, channelNam
9780: 65 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 e, &mode);. i
9790: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
97a0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
97b0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
97c0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a OR;. }. /*
97d0: 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 . * Make sur
97e0: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
97f0: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
9800: 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 nel. */.
9810: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
9820: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
9830: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 if (Tcl_GetC
9840: 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 hannelType(chan)
9850: 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 != Tls_ChannelT
9860: 79 70 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 ype()) {..Tcl_Ap
9870: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
9880: 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 p, "bad channel
9890: 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e \"", Tcl_GetChan
98a0: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 nelName(chan),..
98b0: 09 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 ."\": not a TLS
98c0: 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b channel", NULL);
98d0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
98e0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 OR;. }. st
98f0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
9900: 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 *) Tcl_GetChanne
9910: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 lInstanceData(ch
9920: 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a an);. if (obj
9930: 63 20 3d 3d 20 32 29 20 7b 0a 09 70 65 65 72 20 c == 2) {..peer
9940: 3d 20 53 53 4c 5f 67 65 74 5f 70 65 65 72 5f 63 = SSL_get_peer_c
9950: 65 72 74 69 66 69 63 61 74 65 28 73 74 61 74 65 ertificate(state
9960: 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d Ptr->ssl);. }
9970: 20 65 6c 73 65 20 7b 0a 09 70 65 65 72 20 3d 20 else {..peer =
9980: 53 53 4c 5f 67 65 74 5f 63 65 72 74 69 66 69 63 SSL_get_certific
9990: 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ate(statePtr->ss
99a0: 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 l);. }. if
99b0: 20 28 70 65 65 72 29 20 7b 0a 09 6f 62 6a 50 74 (peer) {..objPt
99c0: 72 20 3d 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f r = Tls_NewX509O
99d0: 62 6a 28 69 6e 74 65 72 70 2c 20 70 65 65 72 29 bj(interp, peer)
99e0: 3b 0a 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 ;..if (objc == 2
99f0: 29 20 7b 20 58 35 30 39 5f 66 72 65 65 28 70 65 ) { X509_free(pe
9a00: 65 72 29 3b 20 7d 0a 20 20 20 20 7d 20 65 6c 73 er); }. } els
9a10: 65 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 63 e {..objPtr = Tc
9a20: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 l_NewListObj(0,
9a30: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 NULL);. }..
9a40: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
9a50: 65 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 endElement (inte
9a60: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 rp, objPtr,..
9a70: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
9a80: 6a 20 28 22 73 62 69 74 73 22 2c 20 2d 31 29 29 j ("sbits", -1))
9a90: 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ;. Tcl_ListOb
9aa0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 20 28 jAppendElement (
9ab0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
9ac0: 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f . Tcl_NewIntO
9ad0: 62 6a 20 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 bj (SSL_get_ciph
9ae0: 65 72 5f 62 69 74 73 20 28 73 74 61 74 65 50 74 er_bits (statePt
9af0: 72 2d 3e 73 73 6c 2c 20 4e 55 4c 4c 29 29 29 3b r->ssl, NULL)));
9b00: 0a 0a 20 20 20 20 63 69 70 68 65 72 73 20 3d 20 .. ciphers =
9b10: 28 63 68 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63 (char*)SSL_get_c
9b20: 69 70 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e ipher(statePtr->
9b30: 73 73 6c 29 3b 0a 20 20 20 20 69 66 20 28 63 69 ssl);. if (ci
9b40: 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c 20 26 26 phers != NULL &&
9b50: 20 73 74 72 63 6d 70 28 63 69 70 68 65 72 73 2c strcmp(ciphers,
9b60: 20 22 28 4e 4f 4e 45 29 22 29 21 3d 30 29 20 7b "(NONE)")!=0) {
9b70: 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ..Tcl_ListObjApp
9b80: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
9b90: 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c p, objPtr,...Tcl
9ba0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 _NewStringObj("c
9bb0: 69 70 68 65 72 22 2c 20 2d 31 29 29 3b 0a 09 54 ipher", -1));..T
9bc0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
9bd0: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
9be0: 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 objPtr,...Tcl_Ne
9bf0: 77 53 74 72 69 6e 67 4f 62 6a 28 53 53 4c 5f 67 wStringObj(SSL_g
9c00: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
9c10: 74 72 2d 3e 73 73 6c 29 2c 20 2d 31 29 29 3b 0a tr->ssl), -1));.
9c20: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c }.. Tcl_L
9c30: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
9c40: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ent(interp, objP
9c50: 74 72 2c 0a 09 54 63 6c 5f 4e 65 77 53 74 72 69 tr,..Tcl_NewStri
9c60: 6e 67 4f 62 6a 28 22 76 65 72 73 69 6f 6e 22 2c ngObj("version",
9c70: 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c -1));. Tcl_L
9c80: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
9c90: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ent(interp, objP
9ca0: 74 72 2c 0a 09 54 63 6c 5f 4e 65 77 53 74 72 69 tr,..Tcl_NewStri
9cb0: 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 76 65 ngObj(SSL_get_ve
9cc0: 72 73 69 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e rsion(statePtr->
9cd0: 73 73 6c 29 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 ssl), -1));..
9ce0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
9cf0: 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 t( interp, objPt
9d00: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 r);. return T
9d10: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 65 CL_OK;. .clie
9d20: 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 ntData = clientD
9d30: 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d ata;.}.../*. *--
9d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d80: 2d 0a 20 2a 0a 20 2a 20 56 65 72 73 69 6f 6e 4f -. *. * VersionO
9d90: 62 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 bjCmd -- return
9da0: 76 65 72 73 69 6f 6e 20 73 74 72 69 6e 67 20 66 version string f
9db0: 72 6f 6d 20 4f 70 65 6e 53 53 4c 2e 0a 20 2a 0a rom OpenSSL.. *.
9dc0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
9dd0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 standard Tcl re
9de0: 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 sult.. *. * Side
9df0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
9e00: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
9e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
9e50: 73 74 61 74 69 63 20 69 6e 74 0a 56 65 72 73 69 static int.Versi
9e60: 6f 6e 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 onObjCmd(clientD
9e70: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
9e80: 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 c, objv). Cli
9e90: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
9ea0: 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e ta;./* Not used.
9eb0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
9ec0: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 rp *interp;.
9ed0: 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 int objc;. Tc
9ee0: 6c 5f 4f 62 6a 09 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj.*const obj
9ef0: 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f v[];.{. Tcl_O
9f00: 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 bj *objPtr;..
9f10: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
9f20: 22 29 3b 0a 0a 20 20 20 20 6f 62 6a 50 74 72 20 ");.. objPtr
9f30: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f = Tcl_NewStringO
9f40: 62 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 bj(OPENSSL_VERSI
9f50: 4f 4e 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 0a 20 ON_TEXT, -1);..
9f60: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
9f70: 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ult(interp, objP
9f80: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 tr);. return
9f90: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 TCL_OK;. .cli
9fa0: 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 entData = client
9fb0: 44 61 74 61 3b 0a 20 20 20 20 09 6f 62 6a 63 20 Data;. .objc
9fc0: 3d 20 6f 62 6a 63 3b 0a 20 20 20 20 09 6f 62 6a = objc;. .obj
9fd0: 76 20 3d 20 6f 62 6a 76 3b 0a 7d 0a 0c 0a 2f 2a v = objv;.}.../*
9fe0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
9ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a020: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 73 ------. *. * Mis
a030: 63 4f 62 6a 43 6d 64 20 2d 2d 20 6d 69 73 63 20 cObjCmd -- misc
a040: 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 commands. *. * R
a050: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
a060: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
a070: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
a080: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
a090: 2a 0a 20 2a 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 2d 2d ----------------
a0c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a0d0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
a0e0: 69 63 20 69 6e 74 0a 4d 69 73 63 4f 62 6a 43 6d ic int.MiscObjCm
a0f0: 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e d(clientData, in
a100: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
a110: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ). ClientData
a120: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 clientData;./*
a130: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 Not used. */.
a140: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
a150: 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a erp;. int obj
a160: 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a c;. Tcl_Obj.*
a170: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a const objv[];.{.
a180: 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 static const
a190: 20 63 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 73 20 char *commands
a1a0: 5b 5d 20 3d 20 7b 20 22 72 65 71 22 2c 20 4e 55 [] = { "req", NU
a1b0: 4c 4c 20 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 63 LL };. enum c
a1c0: 6f 6d 6d 61 6e 64 20 7b 20 43 5f 52 45 51 2c 20 ommand { C_REQ,
a1d0: 43 5f 44 55 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 C_DUMMY };. i
a1e0: 6e 74 20 63 6d 64 3b 0a 0a 20 20 20 20 64 70 72 nt cmd;.. dpr
a1f0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
a200: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 . if (objc <
a210: 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 2) {..Tcl_WrongN
a220: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
a230: 2c 20 6f 62 6a 76 2c 20 22 73 75 62 63 6f 6d 6d , objv, "subcomm
a240: 61 6e 64 20 3f 61 72 67 73 3f 22 29 3b 0a 09 72 and ?args?");..r
a250: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a260: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 . }. if (T
a270: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f cl_GetIndexFromO
a280: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
a290: 31 5d 2c 20 63 6f 6d 6d 61 6e 64 73 2c 0a 09 20 1], commands,..
a2a0: 20 20 20 22 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c "command", 0,
a2b0: 26 63 6d 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 &cmd) != TCL_OK)
a2c0: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
a2d0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
a2e0: 20 73 77 69 74 63 68 20 28 28 65 6e 75 6d 20 63 switch ((enum c
a2f0: 6f 6d 6d 61 6e 64 29 20 63 6d 64 29 20 7b 0a 09 ommand) cmd) {..
a300: 63 61 73 65 20 43 5f 52 45 51 3a 20 7b 0a 09 20 case C_REQ: {..
a310: 20 20 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 EVP_PKEY *pke
a320: 79 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 58 35 30 y=NULL;.. X50
a330: 39 20 2a 63 65 72 74 3d 4e 55 4c 4c 3b 0a 09 20 9 *cert=NULL;..
a340: 20 20 20 58 35 30 39 5f 4e 41 4d 45 20 2a 6e 61 X509_NAME *na
a350: 6d 65 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 54 63 me=NULL;.. Tc
a360: 6c 5f 4f 62 6a 20 2a 2a 6c 69 73 74 76 3b 0a 09 l_Obj **listv;..
a370: 20 20 20 20 69 6e 74 20 6c 69 73 74 63 2c 69 3b int listc,i;
a380: 0a 0a 09 20 20 20 20 42 49 4f 20 2a 6f 75 74 3d ... BIO *out=
a390: 4e 55 4c 4c 3b 0a 0a 09 20 20 20 20 63 68 61 72 NULL;... char
a3a0: 20 2a 6b 5f 43 3d 22 22 2c 2a 6b 5f 53 54 3d 22 *k_C="",*k_ST="
a3b0: 22 2c 2a 6b 5f 4c 3d 22 22 2c 2a 6b 5f 4f 3d 22 ",*k_L="",*k_O="
a3c0: 22 2c 2a 6b 5f 4f 55 3d 22 22 2c 2a 6b 5f 43 4e ",*k_OU="",*k_CN
a3d0: 3d 22 22 2c 2a 6b 5f 45 6d 61 69 6c 3d 22 22 3b ="",*k_Email="";
a3e0: 0a 09 20 20 20 20 63 68 61 72 20 2a 6b 65 79 6f .. char *keyo
a3f0: 75 74 2c 2a 70 65 6d 6f 75 74 2c 2a 73 74 72 3b ut,*pemout,*str;
a400: 0a 09 20 20 20 20 69 6e 74 20 6b 65 79 73 69 7a .. int keysiz
a410: 65 2c 73 65 72 69 61 6c 3d 30 2c 64 61 79 73 3d e,serial=0,days=
a420: 33 36 35 3b 0a 09 20 20 20 20 0a 09 20 20 20 20 365;.. ..
a430: 69 66 20 28 28 6f 62 6a 63 3c 35 29 20 7c 7c 20 if ((objc<5) ||
a440: 28 6f 62 6a 63 3e 36 29 29 20 7b 0a 09 09 54 63 (objc>6)) {...Tc
a450: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
a460: 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 nterp, 2, objv,
a470: 22 6b 65 79 73 69 7a 65 20 6b 65 79 66 69 6c 65 "keysize keyfile
a480: 20 63 65 72 74 66 69 6c 65 20 3f 69 6e 66 6f 3f certfile ?info?
a490: 22 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c ");...return TCL
a4a0: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 0a _ERROR;.. }..
a4b0: 09 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
a4c0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
a4d0: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6b 65 79 p, objv[2], &key
a4e0: 73 69 7a 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 size) != TCL_OK)
a4f0: 20 7b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f {...return TCL_
a500: 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 20 ERROR;.. }..
a510: 20 20 20 6b 65 79 6f 75 74 3d 54 63 6c 5f 47 65 keyout=Tcl_Ge
a520: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 tString(objv[3])
a530: 3b 0a 09 20 20 20 20 70 65 6d 6f 75 74 3d 54 63 ;.. pemout=Tc
a540: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
a550: 5b 34 5d 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 [4]);... if (
a560: 6f 62 6a 63 3e 3d 36 29 20 7b 0a 09 09 69 66 20 objc>=6) {...if
a570: 28 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 (Tcl_ListObjGetE
a580: 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 lements(interp,
a590: 6f 62 6a 76 5b 35 5d 2c 0a 09 09 09 26 6c 69 73 objv[5],....&lis
a5a0: 74 63 2c 20 26 6c 69 73 74 76 29 20 21 3d 20 54 tc, &listv) != T
a5b0: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 CL_OK) {... r
a5c0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a5d0: 0a 09 09 7d 0a 0a 09 09 69 66 20 28 28 6c 69 73 ...}....if ((lis
a5e0: 74 63 25 32 29 20 21 3d 20 30 29 20 7b 0a 09 09 tc%2) != 0) {...
a5f0: 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
a600: 74 28 69 6e 74 65 72 70 2c 22 49 6e 66 6f 72 6d t(interp,"Inform
a610: 61 74 69 6f 6e 20 6c 69 73 74 20 6d 75 73 74 20 ation list must
a620: 68 61 76 65 20 65 76 65 6e 20 6e 75 6d 62 65 72 have even number
a630: 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 22 2c 4e of arguments",N
a640: 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72 65 74 75 ULL);... retu
a650: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 rn TCL_ERROR;...
a660: 7d 0a 09 09 66 6f 72 20 28 69 3d 30 3b 20 69 3c }...for (i=0; i<
a670: 6c 69 73 74 63 3b 20 69 2b 3d 32 29 20 7b 0a 09 listc; i+=2) {..
a680: 09 20 20 20 20 73 74 72 3d 54 63 6c 5f 47 65 74 . str=Tcl_Get
a690: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 5d 29 String(listv[i])
a6a0: 3b 0a 09 09 20 20 20 20 69 66 20 28 73 74 72 63 ;... if (strc
a6b0: 6d 70 28 73 74 72 2c 22 64 61 79 73 22 29 3d 3d mp(str,"days")==
a6c0: 30 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 0) {....if (Tcl_
a6d0: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
a6e0: 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c terp,listv[i+1],
a6f0: 26 64 61 79 73 29 21 3d 54 43 4c 5f 4f 4b 29 0a &days)!=TCL_OK).
a700: 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
a710: 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d L_ERROR;... }
a720: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
a730: 28 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d (str,"serial")==
a740: 30 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 0) {....if (Tcl_
a750: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
a760: 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c terp,listv[i+1],
a770: 26 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b &serial)!=TCL_OK
a780: 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 ).... return
a790: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 TCL_ERROR;...
a7a0: 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 } else if (strc
a7b0: 6d 70 28 73 74 72 2c 22 73 65 72 69 61 6c 22 29 mp(str,"serial")
a7c0: 3d 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 54 63 ==0) {....if (Tc
a7d0: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
a7e0: 69 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 interp,listv[i+1
a7f0: 5d 2c 26 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f ],&serial)!=TCL_
a800: 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 OK).... retur
a810: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 n TCL_ERROR;...
a820: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
a830: 72 63 6d 70 28 73 74 72 2c 22 43 22 29 3d 3d 30 rcmp(str,"C")==0
a840: 29 20 7b 0a 09 09 09 6b 5f 43 3d 54 63 6c 5f 47 ) {....k_C=Tcl_G
a850: 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 etString(listv[i
a860: 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c +1]);... } el
a870: 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 se if (strcmp(st
a880: 72 2c 22 53 54 22 29 3d 3d 30 29 20 7b 0a 09 09 r,"ST")==0) {...
a890: 09 6b 5f 53 54 3d 54 63 6c 5f 47 65 74 53 74 72 .k_ST=Tcl_GetStr
a8a0: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b ing(listv[i+1]);
a8b0: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
a8c0: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4c 22 (strcmp(str,"L"
a8d0: 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4c 3d 54 )==0) {....k_L=T
a8e0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 cl_GetString(lis
a8f0: 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 tv[i+1]);...
a900: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d } else if (strcm
a910: 70 28 73 74 72 2c 22 4f 22 29 3d 3d 30 29 20 7b p(str,"O")==0) {
a920: 0a 09 09 09 6b 5f 4f 3d 54 63 6c 5f 47 65 74 53 ....k_O=Tcl_GetS
a930: 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d tring(listv[i+1]
a940: 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 );... } else
a950: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 if (strcmp(str,"
a960: 4f 55 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f OU")==0) {....k_
a970: 4f 55 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 OU=Tcl_GetString
a980: 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 (listv[i+1]);...
a990: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 } else if (s
a9a0: 74 72 63 6d 70 28 73 74 72 2c 22 43 4e 22 29 3d trcmp(str,"CN")=
a9b0: 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 4e 3d 54 63 =0) {....k_CN=Tc
a9c0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
a9d0: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
a9e0: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
a9f0: 28 73 74 72 2c 22 45 6d 61 69 6c 22 29 3d 3d 30 (str,"Email")==0
aa00: 29 20 7b 0a 09 09 09 6b 5f 45 6d 61 69 6c 3d 54 ) {....k_Email=T
aa10: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 cl_GetString(lis
aa20: 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 tv[i+1]);...
aa30: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 54 63 6c 5f } else {....Tcl_
aa40: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
aa50: 2c 22 55 6e 6b 6e 6f 77 6e 20 70 61 72 61 6d 65 ,"Unknown parame
aa60: 74 65 72 22 2c 4e 55 4c 4c 29 3b 0a 09 09 09 72 ter",NULL);....r
aa70: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
aa80: 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 ... }...}..
aa90: 20 20 7d 0a 09 20 20 20 20 69 66 20 28 28 70 6b }.. if ((pk
aaa0: 65 79 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6e 65 ey = EVP_PKEY_ne
aab0: 77 28 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a w()) != NULL) {.
aac0: 09 09 69 66 20 28 21 45 56 50 5f 50 4b 45 59 5f ..if (!EVP_PKEY_
aad0: 61 73 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c assign_RSA(pkey,
aae0: 0a 09 09 09 52 53 41 5f 67 65 6e 65 72 61 74 65 ....RSA_generate
aaf0: 5f 6b 65 79 28 6b 65 79 73 69 7a 65 2c 20 30 78 _key(keysize, 0x
ab00: 31 30 30 30 31 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 10001, NULL, NUL
ab10: 4c 29 29 29 20 7b 0a 09 09 20 20 20 20 54 63 6c L))) {... Tcl
ab20: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
ab30: 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 p,"Error generat
ab40: 69 6e 67 20 70 72 69 76 61 74 65 20 6b 65 79 22 ing private key"
ab50: 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 ,NULL);... EV
ab60: 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 P_PKEY_free(pkey
ab70: 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 );... return
ab80: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 TCL_ERROR;...}..
ab90: 09 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f .out=BIO_new(BIO
aba0: 5f 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 _s_file());...BI
abb0: 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 O_write_filename
abc0: 28 6f 75 74 2c 6b 65 79 6f 75 74 29 3b 0a 09 09 (out,keyout);...
abd0: 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 50 72 PEM_write_bio_Pr
abe0: 69 76 61 74 65 4b 65 79 28 6f 75 74 2c 70 6b 65 ivateKey(out,pke
abf0: 79 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 y,NULL,NULL,0,NU
ac00: 4c 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 42 49 4f 5f LL,NULL);...BIO_
ac10: 66 72 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a free_all(out);..
ac20: 09 09 69 66 20 28 28 63 65 72 74 3d 58 35 30 39 ..if ((cert=X509
ac30: 5f 6e 65 77 28 29 29 3d 3d 4e 55 4c 4c 29 20 7b _new())==NULL) {
ac40: 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 ... Tcl_SetRe
ac50: 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 sult(interp,"Err
ac60: 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 63 65 or generating ce
ac70: 72 74 69 66 69 63 61 74 65 20 72 65 71 75 65 73 rtificate reques
ac80: 74 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 t",NULL);...
ac90: 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b EVP_PKEY_free(pk
aca0: 65 79 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 ey);... retur
acb0: 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 n(TCL_ERROR);...
acc0: 7d 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 76 65 }....X509_set_ve
acd0: 72 73 69 6f 6e 28 63 65 72 74 2c 32 29 3b 0a 09 rsion(cert,2);..
ace0: 09 41 53 4e 31 5f 49 4e 54 45 47 45 52 5f 73 65 .ASN1_INTEGER_se
acf0: 74 28 58 35 30 39 5f 67 65 74 5f 73 65 72 69 61 t(X509_get_seria
ad00: 6c 4e 75 6d 62 65 72 28 63 65 72 74 29 2c 73 65 lNumber(cert),se
ad10: 72 69 61 6c 29 3b 0a 09 09 58 35 30 39 5f 67 6d rial);...X509_gm
ad20: 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 time_adj(X509_ge
ad30: 74 5f 6e 6f 74 42 65 66 6f 72 65 28 63 65 72 74 t_notBefore(cert
ad40: 29 2c 30 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 ),0);...X509_gmt
ad50: 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 ime_adj(X509_get
ad60: 5f 6e 6f 74 41 66 74 65 72 28 63 65 72 74 29 2c _notAfter(cert),
ad70: 28 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 34 2a 64 (long)60*60*24*d
ad80: 61 79 73 29 3b 0a 09 09 58 35 30 39 5f 73 65 74 ays);...X509_set
ad90: 5f 70 75 62 6b 65 79 28 63 65 72 74 2c 70 6b 65 _pubkey(cert,pke
ada0: 79 29 3b 0a 09 09 0a 09 09 6e 61 6d 65 3d 58 35 y);......name=X5
adb0: 30 39 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 6e 09_get_subject_n
adc0: 61 6d 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 35 ame(cert);....X5
add0: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 09_NAME_add_entr
ade0: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43 y_by_txt(name,"C
adf0: 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c ", MBSTRING_ASC,
ae00: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 (unsigned char
ae10: 2a 29 20 6b 5f 43 2c 20 2d 31 2c 20 2d 31 2c 20 *) k_C, -1, -1,
ae20: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 0);...X509_NAME_
ae30: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 add_entry_by_txt
ae40: 28 6e 61 6d 65 2c 22 53 54 22 2c 20 4d 42 53 54 (name,"ST", MBST
ae50: 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 67 RING_ASC, (unsig
ae60: 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 53 54 ned char *) k_ST
ae70: 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 , -1, -1, 0);...
ae80: 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e X509_NAME_add_en
ae90: 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c try_by_txt(name,
aea0: 22 4c 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 "L", MBSTRING_AS
aeb0: 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 C, (unsigned cha
aec0: 72 20 2a 29 20 6b 5f 4c 2c 20 2d 31 2c 20 2d 31 r *) k_L, -1, -1
aed0: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d , 0);...X509_NAM
aee0: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 E_add_entry_by_t
aef0: 78 74 28 6e 61 6d 65 2c 22 4f 22 2c 20 4d 42 53 xt(name,"O", MBS
af00: 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 TRING_ASC, (unsi
af10: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 4f gned char *) k_O
af20: 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 , -1, -1, 0);...
af30: 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e X509_NAME_add_en
af40: 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c try_by_txt(name,
af50: 22 4f 55 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 "OU", MBSTRING_A
af60: 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 SC, (unsigned ch
af70: 61 72 20 2a 29 20 6b 5f 4f 55 2c 20 2d 31 2c 20 ar *) k_OU, -1,
af80: 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e -1, 0);...X509_N
af90: 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 AME_add_entry_by
afa0: 5f 74 78 74 28 6e 61 6d 65 2c 22 43 4e 22 2c 20 _txt(name,"CN",
afb0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 MBSTRING_ASC, (u
afc0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
afd0: 6b 5f 43 4e 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 k_CN, -1, -1, 0)
afe0: 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 ;...X509_NAME_ad
aff0: 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e d_entry_by_txt(n
b000: 61 6d 65 2c 22 45 6d 61 69 6c 22 2c 20 4d 42 53 ame,"Email", MBS
b010: 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 TRING_ASC, (unsi
b020: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 45 gned char *) k_E
b030: 6d 61 69 6c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 mail, -1, -1, 0)
b040: 3b 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 73 75 ;....X509_set_su
b050: 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 2c bject_name(cert,
b060: 6e 61 6d 65 29 3b 0a 0a 09 09 69 66 20 28 21 58 name);....if (!X
b070: 35 30 39 5f 73 69 67 6e 28 63 65 72 74 2c 70 6b 509_sign(cert,pk
b080: 65 79 2c 45 56 50 5f 6d 64 35 28 29 29 29 20 7b ey,EVP_md5())) {
b090: 0a 09 09 20 20 20 20 58 35 30 39 5f 66 72 65 65 ... X509_free
b0a0: 28 63 65 72 74 29 3b 0a 09 09 20 20 20 20 45 56 (cert);... EV
b0b0: 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 P_PKEY_free(pkey
b0c0: 29 3b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 );... Tcl_Set
b0d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 Result(interp,"E
b0e0: 72 72 6f 72 20 73 69 67 6e 69 6e 67 20 63 65 72 rror signing cer
b0f0: 74 69 66 69 63 61 74 65 22 2c 4e 55 4c 4c 29 3b tificate",NULL);
b100: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
b110: 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 L_ERROR;...}....
b120: 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f out=BIO_new(BIO_
b130: 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 4f s_file());...BIO
b140: 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 28 _write_filename(
b150: 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 0a 09 09 out,pemout);....
b160: 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 58 35 PEM_write_bio_X5
b170: 30 39 28 6f 75 74 2c 63 65 72 74 29 3b 0a 09 09 09(out,cert);...
b180: 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 74 BIO_free_all(out
b190: 29 3b 0a 0a 09 09 58 35 30 39 5f 66 72 65 65 28 );....X509_free(
b1a0: 63 65 72 74 29 3b 0a 09 09 45 56 50 5f 50 4b 45 cert);...EVP_PKE
b1b0: 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 20 Y_free(pkey);..
b1c0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 } else {...Tc
b1d0: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
b1e0: 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 rp,"Error genera
b1f0: 74 69 6e 67 20 70 72 69 76 61 74 65 20 6b 65 79 ting private key
b200: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 ",NULL);...retur
b210: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 n TCL_ERROR;..
b220: 20 20 7d 0a 09 7d 0a 09 62 72 65 61 6b 3b 0a 20 }..}..break;.
b230: 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 62 72 65 default:..bre
b240: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 ak;. }. re
b250: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
b260: 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 .clientData = c
b270: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f lientData;.}.../
b280: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
b290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b2a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b2b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b2c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
b2d0: 73 5f 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 s_Free --. *. *.
b2e0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 This procedure c
b2f0: 6c 65 61 6e 73 20 75 70 20 77 68 65 6e 20 61 20 leans up when a
b300: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
b310: 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 channel. *.is c
b320: 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 20 72 65 losed and its re
b330: 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 ference count fa
b340: 6c 6c 73 20 62 65 6c 6f 77 20 31 0a 20 2a 0a 20 lls below 1. *.
b350: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f * Results:. *.no
b360: 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ne. *. * Side ef
b370: 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 20 fects:. *.Frees
b380: 61 6c 6c 20 74 68 65 20 73 74 61 74 65 0a 20 2a all the state. *
b390: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
b3a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b3b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b3c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b3d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a ------. */.void.
b3e0: 54 6c 73 5f 46 72 65 65 28 20 63 68 61 72 20 2a Tls_Free( char *
b3f0: 62 6c 6f 63 6b 50 74 72 20 29 0a 7b 0a 20 20 20 blockPtr ).{.
b400: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
b410: 20 3d 20 28 53 74 61 74 65 20 2a 29 62 6c 6f 63 = (State *)bloc
b420: 6b 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e kPtr;.. dprin
b430: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
b440: 20 20 20 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 Tls_Clean(sta
b450: 74 65 50 74 72 29 3b 0a 20 20 20 20 63 6b 66 72 tePtr);. ckfr
b460: 65 65 28 62 6c 6f 63 6b 50 74 72 29 3b 0a 7d 0a ee(blockPtr);.}.
b470: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
b480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b4a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b4b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
b4c0: 20 54 6c 73 5f 43 6c 65 61 6e 20 2d 2d 0a 20 2a Tls_Clean --. *
b4d0: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
b4e0: 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 re cleans up whe
b4f0: 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 n a SSL socket b
b500: 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 ased channel. *.
b510: 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 is closed and it
b520: 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e s reference coun
b530: 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 2e t falls below 1.
b540: 20 20 54 68 69 73 20 73 68 6f 75 6c 64 0a 20 2a This should. *
b550: 09 62 65 20 63 61 6c 6c 65 64 20 73 79 6e 63 68 .be called synch
b560: 72 6f 6e 6f 75 73 6c 79 20 62 79 20 74 68 65 20 ronously by the
b570: 43 6c 6f 73 65 50 72 6f 63 2c 20 6e 6f 74 20 69 CloseProc, not i
b580: 6e 20 74 68 65 0a 20 2a 09 45 76 65 6e 74 75 61 n the. *.Eventua
b590: 6c 6c 79 46 72 65 65 20 63 61 6c 6c 62 61 63 6b llyFree callback
b5a0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
b5b0: 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 . *.none. *. * S
b5c0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
b5d0: 46 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 Frees all the st
b5e0: 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ate. *. *-------
b5f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
b630: 0a 76 6f 69 64 20 54 6c 73 5f 43 6c 65 61 6e 28 .void Tls_Clean(
b640: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 29 State *statePtr)
b650: 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 {. dprintf("
b660: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
b670: 2a 0a 20 20 20 20 20 2a 20 77 65 27 72 65 20 61 *. * we're a
b680: 73 73 75 6d 69 6e 67 20 68 65 72 65 20 74 68 61 ssuming here tha
b690: 74 20 77 65 27 72 65 20 73 69 6e 67 6c 65 2d 74 t we're single-t
b6a0: 68 72 65 61 64 65 64 0a 20 20 20 20 20 2a 2f 0a hreaded. */.
b6b0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
b6c0: 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f ->timer != (Tcl_
b6d0: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
b6e0: 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 ) {..Tcl_DeleteT
b6f0: 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 imerHandler(stat
b700: 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 ePtr->timer);..s
b710: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d tatePtr->timer =
b720: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 NULL;. }..
b730: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
b740: 62 69 6f 29 20 7b 0a 09 2f 2a 20 54 68 69 73 20 bio) {../* This
b750: 77 69 6c 6c 20 63 61 6c 6c 20 53 53 4c 5f 73 68 will call SSL_sh
b760: 75 74 64 6f 77 6e 2e 20 42 75 67 20 31 34 31 34 utdown. Bug 1414
b770: 30 34 35 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 045 */..dprintf(
b780: 22 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 25 70 "BIO_free_all(%p
b790: 29 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 62 69 )", statePtr->bi
b7a0: 6f 29 3b 0a 09 42 49 4f 5f 66 72 65 65 5f 61 6c o);..BIO_free_al
b7b0: 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 l(statePtr->bio)
b7c0: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 62 69 6f ;..statePtr->bio
b7d0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 = NULL;. }.
b7e0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
b7f0: 3e 73 73 6c 29 20 7b 0a 09 64 70 72 69 6e 74 66 >ssl) {..dprintf
b800: 28 22 53 53 4c 5f 66 72 65 65 28 25 70 29 22 2c ("SSL_free(%p)",
b810: 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b statePtr->ssl);
b820: 0a 09 53 53 4c 5f 66 72 65 65 28 73 74 61 74 65 ..SSL_free(state
b830: 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 73 74 61 74 Ptr->ssl);..stat
b840: 65 50 74 72 2d 3e 73 73 6c 20 3d 20 4e 55 4c 4c ePtr->ssl = NULL
b850: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
b860: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 29 20 7b statePtr->ctx) {
b870: 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 73 ..SSL_CTX_free(s
b880: 74 61 74 65 50 74 72 2d 3e 63 74 78 29 3b 0a 09 tatePtr->ctx);..
b890: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 statePtr->ctx =
b8a0: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
b8b0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 if (statePtr->ca
b8c0: 6c 6c 62 61 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 llback) {..Tcl_D
b8d0: 65 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 ecrRefCount(stat
b8e0: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b ePtr->callback);
b8f0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c ..statePtr->call
b900: 62 61 63 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 back = NULL;.
b910: 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }. if (state
b920: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 20 7b Ptr->password) {
b930: 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 ..Tcl_DecrRefCou
b940: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 nt(statePtr->pas
b950: 73 77 6f 72 64 29 3b 0a 09 73 74 61 74 65 50 74 sword);..statePt
b960: 72 2d 3e 70 61 73 73 77 6f 72 64 20 3d 20 4e 55 r->password = NU
b970: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 LL;. }.. d
b980: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e printf("Returnin
b990: 67 22 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d g");.}.../*. *--
b9a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b9b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b9c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b9d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b9e0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 -. *. * Tls_Init
b9f0: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 --. *. *.This i
ba00: 73 20 61 20 70 61 63 6b 61 67 65 20 69 6e 69 74 s a package init
ba10: 69 61 6c 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 ialization proce
ba20: 64 75 72 65 2c 20 77 68 69 63 68 20 69 73 20 63 dure, which is c
ba30: 61 6c 6c 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 alled. *.by Tcl
ba40: 77 68 65 6e 20 74 68 69 73 20 70 61 63 6b 61 67 when this packag
ba50: 65 20 69 73 20 74 6f 20 62 65 20 61 64 64 65 64 e is to be added
ba60: 20 74 6f 20 61 6e 20 69 6e 74 65 72 70 72 65 74 to an interpret
ba70: 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 er.. *. * Result
ba80: 73 3a 20 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 s: Ssl configur
ba90: 65 64 20 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a ed and loaded. *
baa0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
bab0: 3a 0a 20 2a 09 20 63 72 65 61 74 65 20 74 68 65 :. *. create the
bac0: 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e ssl command, in
bad0: 69 74 69 61 6c 69 73 65 20 73 73 6c 20 63 6f 6e itialise ssl con
bae0: 74 65 78 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d text. *. *------
baf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bb00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bb10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bb20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
bb30: 2f 0a 0a 44 4c 4c 45 58 50 4f 52 54 20 69 6e 74 /..DLLEXPORT int
bb40: 20 54 6c 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e Tls_Init(Tcl_In
bb50: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a terp *interp) {.
bb60: 09 63 6f 6e 73 74 20 63 68 61 72 20 74 6c 73 54 .const char tlsT
bb70: 63 6c 49 6e 69 74 53 63 72 69 70 74 5b 5d 20 3d clInitScript[] =
bb80: 20 7b 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 {.#include "tls
bb90: 2e 74 63 6c 2e 68 22 0a 20 20 20 20 20 20 20 20 .tcl.h".
bba0: 20 20 20 20 30 78 30 30 0a 09 7d 3b 0a 0a 20 20 0x00..};..
bbb0: 20 20 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 dprintf("C
bbc0: 61 6c 6c 65 64 22 29 3b 0a 0a 09 2f 2a 0a 09 20 alled");.../*..
bbd0: 2a 20 57 65 20 6f 6e 6c 79 20 73 75 70 70 6f 72 * We only suppor
bbe0: 74 20 54 63 6c 20 38 2e 34 20 6f 72 20 6e 65 77 t Tcl 8.4 or new
bbf0: 65 72 0a 09 20 2a 2f 0a 09 69 66 20 28 0a 23 69 er.. */..if (.#i
bc00: 66 64 65 66 20 55 53 45 5f 54 43 4c 5f 53 54 55 fdef USE_TCL_STU
bc10: 42 53 0a 09 20 20 20 20 54 63 6c 5f 49 6e 69 74 BS.. Tcl_Init
bc20: 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 22 38 Stubs(interp, "8
bc30: 2e 36 2d 22 2c 20 30 29 0a 23 65 6c 73 65 0a 09 .6-", 0).#else..
bc40: 20 20 20 20 54 63 6c 5f 50 6b 67 52 65 71 75 69 Tcl_PkgRequi
bc50: 72 65 28 69 6e 74 65 72 70 2c 20 22 54 63 6c 22 re(interp, "Tcl"
bc60: 2c 20 22 38 2e 36 2d 22 2c 20 30 29 0a 23 65 6e , "8.6-", 0).#en
bc70: 64 69 66 0a 09 20 20 20 20 20 3d 3d 20 4e 55 4c dif.. == NUL
bc80: 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 20 54 43 L) {...return TC
bc90: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 69 66 L_ERROR;..}...if
bca0: 20 28 54 6c 73 4c 69 62 49 6e 69 74 28 30 29 20 (TlsLibInit(0)
bcb0: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 54 != TCL_OK) {...T
bcc0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
bcd0: 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 20 6e interp, "could n
bce0: 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 53 53 ot initialize SS
bcf0: 4c 20 6c 69 62 72 61 72 79 22 2c 20 4e 55 4c 4c L library", NULL
bd00: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
bd10: 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 54 63 6c 5f ERROR;..}...Tcl_
bd20: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
bd30: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 (interp, "tls::c
bd40: 69 70 68 65 72 73 22 2c 20 43 69 70 68 65 72 73 iphers", Ciphers
bd50: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
bd60: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
bd70: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
bd80: 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 LL);..Tcl_Create
bd90: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
bda0: 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 73 68 61 p, "tls::handsha
bdb0: 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b 65 4f 62 ke", HandshakeOb
bdc0: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
bdd0: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
bde0: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
bdf0: 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 );..Tcl_CreateOb
be00: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
be10: 20 22 74 6c 73 3a 3a 69 6d 70 6f 72 74 22 2c 20 "tls::import",
be20: 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c 20 28 43 ImportObjCmd, (C
be30: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 lientData) 0, (T
be40: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
be50: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f *) NULL);..Tcl_
be60: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
be70: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 75 (interp, "tls::u
be80: 6e 69 6d 70 6f 72 74 22 2c 20 55 6e 69 6d 70 6f nimport", Unimpo
be90: 72 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e rtObjCmd, (Clien
bea0: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
beb0: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
bec0: 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 NULL);..Tcl_Crea
bed0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
bee0: 65 72 70 2c 20 22 74 6c 73 3a 3a 73 74 61 74 75 erp, "tls::statu
bef0: 73 22 2c 20 53 74 61 74 75 73 4f 62 6a 43 6d 64 s", StatusObjCmd
bf00: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
bf10: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
bf20: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 Proc *) NULL);..
bf30: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
bf40: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
bf50: 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 56 65 72 s::version", Ver
bf60: 73 69 6f 6e 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 sionObjCmd, (Cli
bf70: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
bf80: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
bf90: 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 ) NULL);..Tcl_Cr
bfa0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
bfb0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 69 73 nterp, "tls::mis
bfc0: 63 22 2c 20 4d 69 73 63 4f 62 6a 43 6d 64 2c 20 c", MiscObjCmd,
bfd0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
bfe0: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
bff0: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 09 69 oc *) NULL);...i
c000: 66 20 28 69 6e 74 65 72 70 29 20 7b 0a 09 09 54 f (interp) {...T
c010: 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 cl_Eval(interp,
c020: 74 6c 73 54 63 6c 49 6e 69 74 53 63 72 69 70 74 tlsTclInitScript
c030: 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 54 );..}...return(T
c040: 63 6c 5f 50 6b 67 50 72 6f 76 69 64 65 28 69 6e cl_PkgProvide(in
c050: 74 65 72 70 2c 20 22 74 6c 73 22 2c 20 50 41 43 terp, "tls", PAC
c060: 4b 41 47 45 5f 56 45 52 53 49 4f 4e 29 29 3b 0a KAGE_VERSION));.
c070: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
c080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
c0b0: 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 66 65 49 6e *. *.Tls_SafeIn
c0c0: 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d it --. *. *.----
c0d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
c100: 09 53 74 61 6e 64 61 72 64 20 70 72 6f 63 65 64 .Standard proced
c110: 75 72 65 20 72 65 71 75 69 72 65 64 20 62 79 20 ure required by
c120: 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 49 6e 69 74 'load'. . *.Init
c130: 69 61 6c 69 7a 65 73 20 74 68 69 73 20 65 78 74 ializes this ext
c140: 65 6e 73 69 6f 6e 20 66 6f 72 20 61 20 73 61 66 ension for a saf
c150: 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 e interpreter..
c160: 2a 09 2d 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 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 66 --*. *. *.Sideef
c1a0: 66 65 63 74 73 3a 0a 20 2a 09 09 41 73 20 6f 66 fects:. *..As of
c1b0: 20 27 54 6c 73 5f 49 6e 69 74 27 0a 20 2a 0a 20 'Tls_Init'. *.
c1c0: 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 41 20 *.Result:. *..A
c1d0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 65 72 72 standard Tcl err
c1e0: 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d or code.. *. *--
c1f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 2a 0a 20 2a 2f 0a 0a 44 4c 4c 45 58 ----*. */..DLLEX
c230: 50 4f 52 54 20 69 6e 74 20 54 6c 73 5f 53 61 66 PORT int Tls_Saf
c240: 65 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 eInit(Tcl_Interp
c250: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 09 64 70 72 *interp) {..dpr
c260: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
c270: 09 72 65 74 75 72 6e 28 54 6c 73 5f 49 6e 69 74 .return(Tls_Init
c280: 28 69 6e 74 65 72 70 29 29 3b 0a 7d 0a 0a 2f 2a (interp));.}../*
c290: 0a 20 2a 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 2d 2d 2d 2d 2d ----------------
c2c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
c2d0: 09 54 6c 73 4c 69 62 49 6e 69 74 20 2d 2d 0a 20 .TlsLibInit --.
c2e0: 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *.-----------
c2f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c310: 2d 2d 2d 2d 2d 2a 0a 20 2a 09 49 6e 69 74 69 61 -----*. *.Initia
c320: 6c 69 7a 65 73 20 53 53 4c 20 6c 69 62 72 61 72 lizes SSL librar
c330: 79 20 6f 6e 63 65 20 70 65 72 20 61 70 70 6c 69 y once per appli
c340: 63 61 74 69 6f 6e 0a 20 2a 09 2d 2d 2d 2d 2d 2d cation. *.------
c350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 ----------*. *.
c380: 2a 09 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a *.Side effects:.
c390: 20 2a 09 09 69 6e 69 74 69 6c 69 7a 65 73 20 53 *..initilizes S
c3a0: 53 4c 20 6c 69 62 72 61 72 79 0a 20 2a 0a 20 2a SL library. *. *
c3b0: 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 6e 6f 6e .Result:. *..non
c3c0: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
c3d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c3e0: 2d 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 2a 0a 20 -------------*.
c400: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c */.static int Tl
c410: 73 4c 69 62 49 6e 69 74 28 69 6e 74 20 75 6e 69 sLibInit(int uni
c420: 6e 69 74 69 61 6c 69 7a 65 29 20 7b 0a 09 73 74 nitialize) {..st
c430: 61 74 69 63 20 69 6e 74 20 69 6e 69 74 69 61 6c atic int initial
c440: 69 7a 65 64 20 3d 20 30 3b 0a 09 69 6e 74 20 73 ized = 0;..int s
c450: 74 61 74 75 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a tatus = TCL_OK;.
c460: 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e #if defined(OPEN
c470: 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 SSL_THREADS) &&
c480: 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 defined(TCL_THRE
c490: 41 44 53 29 0a 09 73 69 7a 65 5f 74 20 6e 75 6d ADS)..size_t num
c4a0: 5f 6c 6f 63 6b 73 3b 0a 23 65 6e 64 69 66 0a 0a _locks;.#endif..
c4b0: 09 69 66 20 28 75 6e 69 6e 69 74 69 61 6c 69 7a .if (uninitializ
c4c0: 65 29 20 7b 0a 09 09 69 66 20 28 21 69 6e 69 74 e) {...if (!init
c4d0: 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 09 64 70 ialized) {....dp
c4e0: 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 rintf("Asked to
c4f0: 75 6e 69 6e 69 74 69 61 6c 69 7a 65 2c 20 62 75 uninitialize, bu
c500: 74 20 77 65 20 61 72 65 20 6e 6f 74 20 69 6e 69 t we are not ini
c510: 74 69 61 6c 69 7a 65 64 22 29 3b 0a 0a 09 09 09 tialized");.....
c520: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a return(TCL_OK);.
c530: 09 09 7d 0a 0a 09 09 64 70 72 69 6e 74 66 28 22 ..}....dprintf("
c540: 41 73 6b 65 64 20 74 6f 20 75 6e 69 6e 69 74 69 Asked to uniniti
c550: 61 6c 69 7a 65 22 29 3b 0a 0a 23 69 66 20 64 65 alize");..#if de
c560: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 fined(OPENSSL_TH
c570: 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 READS) && define
c580: 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 d(TCL_THREADS)..
c590: 09 54 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 .Tcl_MutexLock(&
c5a0: 69 6e 69 74 5f 6d 78 29 3b 0a 0a 09 09 43 52 59 init_mx);....CRY
c5b0: 50 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f PTO_set_locking_
c5c0: 63 61 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a callback(NULL);.
c5d0: 09 09 43 52 59 50 54 4f 5f 73 65 74 5f 69 64 5f ..CRYPTO_set_id_
c5e0: 63 61 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a callback(NULL);.
c5f0: 0a 09 09 69 66 20 28 6c 6f 63 6b 73 29 20 7b 0a ...if (locks) {.
c600: 09 09 09 66 72 65 65 28 6c 6f 63 6b 73 29 3b 0a ...free(locks);.
c610: 09 09 09 6c 6f 63 6b 73 20 3d 20 4e 55 4c 4c 3b ...locks = NULL;
c620: 0a 09 09 09 6c 6f 63 6b 73 43 6f 75 6e 74 20 3d ....locksCount =
c630: 20 30 3b 0a 09 09 7d 0a 23 65 6e 64 69 66 0a 09 0;...}.#endif..
c640: 09 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 30 .initialized = 0
c650: 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f ;..#if defined(O
c660: 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 PENSSL_THREADS)
c670: 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 && defined(TCL_T
c680: 48 52 45 41 44 53 29 0a 09 09 54 63 6c 5f 4d 75 HREADS)...Tcl_Mu
c690: 74 65 78 55 6e 6c 6f 63 6b 28 26 69 6e 69 74 5f texUnlock(&init_
c6a0: 6d 78 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 09 72 mx);.#endif....r
c6b0: 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 09 eturn(TCL_OK);..
c6c0: 7d 0a 0a 09 69 66 20 28 69 6e 69 74 69 61 6c 69 }...if (initiali
c6d0: 7a 65 64 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 zed) {...dprintf
c6e0: 28 22 43 61 6c 6c 65 64 2c 20 62 75 74 20 75 73 ("Called, but us
c6f0: 69 6e 67 20 63 61 63 68 65 64 20 76 61 6c 75 65 ing cached value
c700: 22 29 3b 0a 09 09 72 65 74 75 72 6e 28 73 74 61 ");...return(sta
c710: 74 75 73 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e tus);..}...dprin
c720: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 23 tf("Called");..#
c730: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 if defined(OPENS
c740: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 SL_THREADS) && d
c750: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 efined(TCL_THREA
c760: 44 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78 4c 6f DS)..Tcl_MutexLo
c770: 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 ck(&init_mx);.#e
c780: 6e 64 69 66 0a 09 69 6e 69 74 69 61 6c 69 7a 65 ndif..initialize
c790: 64 20 3d 20 31 3b 0a 0a 23 69 66 20 64 65 66 69 d = 1;..#if defi
c7a0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 ned(OPENSSL_THRE
c7b0: 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 ADS) && defined(
c7c0: 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 6e 75 TCL_THREADS)..nu
c7d0: 6d 5f 6c 6f 63 6b 73 20 3d 20 43 52 59 50 54 4f m_locks = CRYPTO
c7e0: 5f 6e 75 6d 5f 6c 6f 63 6b 73 28 29 3b 0a 09 6c _num_locks();..l
c7f0: 6f 63 6b 73 43 6f 75 6e 74 20 3d 20 6e 75 6d 5f ocksCount = num_
c800: 6c 6f 63 6b 73 3b 0a 09 6c 6f 63 6b 73 20 3d 20 locks;..locks =
c810: 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 6c malloc(sizeof(*l
c820: 6f 63 6b 73 29 20 2a 20 6e 75 6d 5f 6c 6f 63 6b ocks) * num_lock
c830: 73 29 3b 0a 09 6d 65 6d 73 65 74 28 6c 6f 63 6b s);..memset(lock
c840: 73 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 6c 6f s, 0, sizeof(*lo
c850: 63 6b 73 29 20 2a 20 6e 75 6d 5f 6c 6f 63 6b 73 cks) * num_locks
c860: 29 3b 0a 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f );...CRYPTO_set_
c870: 6c 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b locking_callback
c880: 28 43 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 (CryptoThreadLoc
c890: 6b 43 61 6c 6c 62 61 63 6b 29 3b 0a 09 43 52 59 kCallback);..CRY
c8a0: 50 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c 6c 62 PTO_set_id_callb
c8b0: 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 64 ack(CryptoThread
c8c0: 49 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 23 65 6e IdCallback);.#en
c8d0: 64 69 66 0a 0a 09 69 66 20 28 53 53 4c 5f 6c 69 dif...if (SSL_li
c8e0: 62 72 61 72 79 5f 69 6e 69 74 28 29 20 21 3d 20 brary_init() !=
c8f0: 31 29 20 7b 0a 09 09 73 74 61 74 75 73 20 3d 20 1) {...status =
c900: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 TCL_ERROR;...got
c910: 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 0a 09 53 53 4c o done;..}...SSL
c920: 5f 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 72 69 _load_error_stri
c930: 6e 67 73 28 29 3b 0a 09 45 52 52 5f 6c 6f 61 64 ngs();..ERR_load
c940: 5f 63 72 79 70 74 6f 5f 73 74 72 69 6e 67 73 28 _crypto_strings(
c950: 29 3b 0a 0a 09 42 49 4f 5f 6e 65 77 5f 74 63 6c );...BIO_new_tcl
c960: 28 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 23 69 66 20 (NULL, 0);..#if
c970: 30 0a 09 2f 2a 0a 09 20 2a 20 58 58 58 3a 54 4f 0../*.. * XXX:TO
c980: 44 4f 3a 20 52 65 6d 6f 76 65 20 74 68 69 73 20 DO: Remove this
c990: 63 6f 64 65 20 61 6e 64 20 72 65 70 6c 61 63 65 code and replace
c9a0: 20 69 74 20 77 69 74 68 20 61 20 63 68 65 63 6b it with a check
c9b0: 0a 09 20 2a 20 66 6f 72 20 65 6e 6f 75 67 68 20 .. * for enough
c9c0: 65 6e 74 72 6f 70 79 20 61 6e 64 20 64 6f 20 6e entropy and do n
c9d0: 6f 74 20 74 72 79 20 74 6f 20 63 72 65 61 74 65 ot try to create
c9e0: 20 6f 75 72 20 6f 77 6e 0a 09 20 2a 20 74 65 72 our own.. * ter
c9f0: 72 69 62 6c 65 20 65 6e 74 72 6f 70 79 0a 09 20 rible entropy..
ca00: 2a 2f 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a */. /*. *
ca10: 20 53 65 65 64 20 74 68 65 20 72 61 6e 64 6f 6d Seed the random
ca20: 20 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 74 6f number generato
ca30: 72 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 r in the SSL lib
ca40: 72 61 72 79 2c 0a 20 20 20 20 20 2a 20 75 73 69 rary,. * usi
ca50: 6e 67 20 74 68 65 20 64 6f 2f 77 68 69 6c 65 20 ng the do/while
ca60: 63 6f 6e 73 74 72 75 63 74 20 62 65 63 61 75 73 construct becaus
ca70: 65 20 6f 66 20 74 68 65 20 62 75 67 20 6e 6f 74 e of the bug not
ca80: 65 20 69 6e 20 74 68 65 0a 20 20 20 20 20 2a 20 e in the. *
ca90: 4f 70 65 6e 53 53 4c 20 46 41 51 20 61 74 20 68 OpenSSL FAQ at h
caa0: 74 74 70 3a 2f 2f 77 77 77 2e 6f 70 65 6e 73 73 ttp://www.openss
cab0: 6c 2e 6f 72 67 2f 73 75 70 70 6f 72 74 2f 66 61 l.org/support/fa
cac0: 71 2e 68 74 6d 6c 23 55 53 45 52 31 0a 20 20 20 q.html#USER1.
cad0: 20 20 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 63 *. * The c
cae0: 72 75 78 20 6f 66 20 74 68 65 20 70 72 6f 62 6c rux of the probl
caf0: 65 6d 20 69 73 20 74 68 61 74 20 53 6f 6c 61 72 em is that Solar
cb00: 69 73 20 37 20 64 6f 65 73 20 6e 6f 74 20 68 61 is 7 does not ha
cb10: 76 65 20 61 20 0a 20 20 20 20 20 2a 20 2f 64 65 ve a . * /de
cb20: 76 2f 72 61 6e 64 6f 6d 20 6f 72 20 2f 64 65 76 v/random or /dev
cb30: 2f 75 72 61 6e 64 6f 6d 20 64 65 76 69 63 65 20 /urandom device
cb40: 73 6f 20 69 74 20 63 61 6e 6e 6f 74 20 67 61 74 so it cannot gat
cb50: 68 65 72 20 65 6e 6f 75 67 68 0a 20 20 20 20 20 her enough.
cb60: 2a 20 65 6e 74 72 6f 70 79 20 66 72 6f 6d 20 74 * entropy from t
cb70: 68 65 20 52 41 4e 44 5f 73 65 65 64 28 29 20 77 he RAND_seed() w
cb80: 68 65 6e 20 54 4c 53 20 69 6e 69 74 69 61 6c 69 hen TLS initiali
cb90: 7a 65 73 20 61 6e 64 20 72 65 66 75 73 65 73 0a zes and refuses.
cba0: 20 20 20 20 20 2a 20 74 6f 20 67 6f 20 66 75 72 * to go fur
cbb0: 74 68 65 72 2e 20 45 61 72 6c 69 65 72 20 76 65 ther. Earlier ve
cbc0: 72 73 69 6f 6e 73 20 6f 66 20 4f 70 65 6e 53 53 rsions of OpenSS
cbd0: 4c 20 63 61 72 72 69 65 64 20 6f 6e 20 72 65 67 L carried on reg
cbe0: 61 72 64 6c 65 73 73 2e 0a 20 20 20 20 20 2a 2f ardless.. */
cbf0: 0a 20 20 20 20 73 72 61 6e 64 28 28 75 6e 73 69 . srand((unsi
cc00: 67 6e 65 64 20 69 6e 74 29 20 74 69 6d 65 28 28 gned int) time((
cc10: 74 69 6d 65 5f 74 20 2a 29 20 4e 55 4c 4c 29 29 time_t *) NULL))
cc20: 3b 0a 20 20 20 20 64 6f 20 7b 0a 09 66 6f 72 20 ;. do {..for
cc30: 28 69 20 3d 20 30 3b 20 69 20 3c 20 31 36 3b 20 (i = 0; i < 16;
cc40: 69 2b 2b 29 20 7b 0a 09 20 20 20 20 72 6e 64 5f i++) {.. rnd_
cc50: 73 65 65 64 5b 69 5d 20 3d 20 31 20 2b 20 28 63 seed[i] = 1 + (c
cc60: 68 61 72 29 20 28 32 35 35 2e 30 20 2a 20 72 61 har) (255.0 * ra
cc70: 6e 64 28 29 2f 28 52 41 4e 44 5f 4d 41 58 2b 31 nd()/(RAND_MAX+1
cc80: 2e 30 29 29 3b 0a 09 7d 0a 09 52 41 4e 44 5f 73 .0));..}..RAND_s
cc90: 65 65 64 28 72 6e 64 5f 73 65 65 64 2c 20 73 69 eed(rnd_seed, si
cca0: 7a 65 6f 66 28 72 6e 64 5f 73 65 65 64 29 29 3b zeof(rnd_seed));
ccb0: 0a 20 20 20 20 7d 20 77 68 69 6c 65 20 28 52 41 . } while (RA
ccc0: 4e 44 5f 73 74 61 74 75 73 28 29 20 21 3d 20 31 ND_status() != 1
ccd0: 29 3b 0a 23 65 6e 64 69 66 0a 0a 64 6f 6e 65 3a );.#endif..done:
cce0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 .#if defined(OPE
ccf0: 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 NSSL_THREADS) &&
cd00: 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 defined(TCL_THR
cd10: 45 41 44 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78 EADS)..Tcl_Mutex
cd20: 55 6e 6c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 Unlock(&init_mx)
cd30: 3b 0a 23 65 6e 64 69 66 0a 0a 09 72 65 74 75 72 ;.#endif...retur
cd40: 6e 28 73 74 61 74 75 73 29 3b 0a 7d 0a n(status);.}.