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 2f 2a 0a 20 2a 20 45 dlib.h>../*. * E
0350: 78 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 6f 6e xternal function
0360: 73 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 s. */../*. * For
0370: 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e ward declaration
0380: 73 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 46 s. */..#define F
0390: 32 4e 28 20 6b 65 79 2c 20 64 73 70 29 20 5c 0a 2N( key, dsp) \.
03a0: 09 28 28 28 6b 65 79 29 20 3d 3d 20 4e 55 4c 4c .(((key) == NULL
03b0: 29 20 3f 20 28 63 68 61 72 20 2a 29 20 4e 55 4c ) ? (char *) NUL
03c0: 4c 20 3a 20 5c 0a 09 09 54 63 6c 5f 54 72 61 6e L : \...Tcl_Tran
03d0: 73 6c 61 74 65 46 69 6c 65 4e 61 6d 65 28 69 6e slateFileName(in
03e0: 74 65 72 70 2c 20 28 6b 65 79 29 2c 20 28 64 73 terp, (key), (ds
03f0: 70 29 29 29 0a 23 64 65 66 69 6e 65 20 52 45 41 p))).#define REA
0400: 53 4f 4e 28 29 09 45 52 52 5f 72 65 61 73 6f 6e SON().ERR_reason
0410: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 45 52 _error_string(ER
0420: 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 29 0a 0a R_get_error())..
0430: 73 74 61 74 69 63 20 76 6f 69 64 09 49 6e 66 6f static void.Info
0440: 43 61 6c 6c 62 61 63 6b 20 5f 41 4e 53 49 5f 41 Callback _ANSI_A
0450: 52 47 53 5f 20 28 28 43 4f 4e 53 54 20 53 53 4c RGS_ ((CONST SSL
0460: 20 2a 73 73 6c 2c 20 69 6e 74 20 77 68 65 72 65 *ssl, int where
0470: 2c 20 69 6e 74 20 72 65 74 29 29 3b 0a 0a 73 74 , int ret));..st
0480: 61 74 69 63 20 69 6e 74 09 43 69 70 68 65 72 73 atic int.Ciphers
0490: 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 ObjCmd _ANSI_ARG
04a0: 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 S_ ((ClientData
04b0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 clientData,....T
04c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
04d0: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
04e0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
04f0: 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e []));..static in
0500: 74 09 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d t.HandshakeObjCm
0510: 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 d _ANSI_ARGS_ ((
0520: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
0530: 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e tData,....Tcl_In
0540: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
0550: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
0560: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b *CONST objv[]));
0570: 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 49 6d 70 ..static int.Imp
0580: 6f 72 74 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 5f ortObjCmd _ANSI_
0590: 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 ARGS_ ((ClientDa
05a0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 ta clientData,..
05b0: 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ..Tcl_Interp *in
05c0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
05d0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
05e0: 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 bjv[]));..static
05f0: 20 69 6e 74 09 53 74 61 74 75 73 4f 62 6a 43 6d int.StatusObjCm
0600: 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 d _ANSI_ARGS_ ((
0610: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
0620: 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e tData,....Tcl_In
0630: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
0640: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
0650: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b *CONST objv[]));
0660: 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 56 65 72 ..static int.Ver
0670: 73 69 6f 6e 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 sionObjCmd _ANSI
0680: 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 _ARGS_ ((ClientD
0690: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a ata clientData,.
06a0: 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ...Tcl_Interp *i
06b0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
06c0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
06d0: 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 objv[]));..stati
06e0: 63 20 69 6e 74 09 4d 69 73 63 4f 62 6a 43 6d 64 c int.MiscObjCmd
06f0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 _ANSI_ARGS_ ((C
0700: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
0710: 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 Data,....Tcl_Int
0720: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
0730: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
0740: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a CONST objv[]));.
0750: 0a 73 74 61 74 69 63 20 69 6e 74 09 55 6e 69 6d .static int.Unim
0760: 70 6f 72 74 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 portObjCmd _ANSI
0770: 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 _ARGS_ ((ClientD
0780: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a ata clientData,.
0790: 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ...Tcl_Interp *i
07a0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
07b0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
07c0: 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 objv[]));..stati
07d0: 63 20 53 53 4c 5f 43 54 58 20 2a 43 54 58 5f 49 c SSL_CTX *CTX_I
07e0: 6e 69 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 nit _ANSI_ARGS_(
07f0: 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 (State *statePtr
0800: 2c 20 69 6e 74 20 70 72 6f 74 6f 2c 20 63 68 61 , int proto, cha
0810: 72 20 2a 6b 65 79 2c 0a 09 09 09 63 68 61 72 20 r *key,....char
0820: 2a 63 65 72 74 2c 20 63 68 61 72 20 2a 43 41 64 *cert, char *CAd
0830: 69 72 2c 20 63 68 61 72 20 2a 43 41 66 69 6c 65 ir, char *CAfile
0840: 2c 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 2c , char *ciphers,
0850: 0a 09 09 09 63 68 61 72 20 2a 44 48 70 61 72 61 ....char *DHpara
0860: 6d 73 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e ms));..static in
0870: 74 09 54 6c 73 4c 69 62 49 6e 69 74 20 5f 41 4e t.TlsLibInit _AN
0880: 53 49 5f 41 52 47 53 5f 20 28 28 76 6f 69 64 29 SI_ARGS_ ((void)
0890: 29 20 3b 0a 0a 23 64 65 66 69 6e 65 20 54 4c 53 ) ;..#define TLS
08a0: 5f 50 52 4f 54 4f 5f 53 53 4c 32 09 09 30 78 30 _PROTO_SSL2..0x0
08b0: 31 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 1.#define TLS_PR
08c0: 4f 54 4f 5f 53 53 4c 33 09 09 30 78 30 32 0a 23 OTO_SSL3..0x02.#
08d0: 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f define TLS_PROTO
08e0: 5f 54 4c 53 31 09 09 30 78 30 34 0a 23 64 65 66 _TLS1..0x04.#def
08f0: 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c ine TLS_PROTO_TL
0900: 53 31 5f 31 09 30 78 30 38 0a 23 64 65 66 69 6e S1_1.0x08.#defin
0910: 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 e TLS_PROTO_TLS1
0920: 5f 32 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 _2.0x10.#define
0930: 45 4e 41 42 4c 45 44 28 66 6c 61 67 2c 20 6d 61 ENABLED(flag, ma
0940: 73 6b 29 09 28 28 28 66 6c 61 67 29 20 26 20 28 sk).(((flag) & (
0950: 6d 61 73 6b 29 29 20 3d 3d 20 28 6d 61 73 6b 29 mask)) == (mask)
0960: 29 0a 0a 2f 2a 0a 20 2a 20 53 74 61 74 69 63 20 )../*. * Static
0970: 64 61 74 61 20 73 74 72 75 63 74 75 72 65 73 0a data structures.
0980: 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 4f 50 45 */..#ifndef OPE
0990: 4e 53 53 4c 5f 4e 4f 5f 44 48 0a 23 69 6e 63 6c NSSL_NO_DH.#incl
09a0: 75 64 65 20 22 64 68 5f 70 61 72 61 6d 73 2e 68 ude "dh_params.h
09b0: 22 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 ".#endif../*. *
09c0: 44 65 66 69 6e 65 64 20 69 6e 20 54 6c 73 5f 49 Defined in Tls_I
09d0: 6e 69 74 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 nit to determine
09e0: 20 77 68 61 74 20 6b 69 6e 64 20 6f 66 20 63 68 what kind of ch
09f0: 61 6e 6e 65 6c 73 20 77 65 20 61 72 65 20 75 73 annels we are us
0a00: 69 6e 67 0a 20 2a 20 28 6f 6c 64 2d 73 74 79 6c ing. * (old-styl
0a10: 65 20 38 2e 32 2e 30 2d 38 2e 33 2e 31 20 6f 72 e 8.2.0-8.3.1 or
0a20: 20 6e 65 77 2d 73 74 79 6c 65 20 38 2e 33 2e 32 new-style 8.3.2
0a30: 2b 29 2e 0a 20 2a 2f 0a 69 6e 74 20 63 68 61 6e +).. */.int chan
0a40: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 3b 0a nelTypeVersion;.
0a50: 0a 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 74 ./*. * We lose t
0a60: 68 65 20 74 63 6c 20 70 61 73 73 77 6f 72 64 20 he tcl password
0a70: 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 65 callback when we
0a80: 20 75 73 65 20 74 68 65 20 52 53 41 20 42 53 41 use the RSA BSA
0a90: 46 45 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a 20 FE SSL-C 1.1.2.
0aa0: 2a 20 6c 69 62 72 61 72 69 65 73 20 69 6e 73 74 * libraries inst
0ab0: 65 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 ead of the curre
0ac0: 6e 74 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 61 nt OpenSSL libra
0ad0: 72 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 65 ries.. */..#ifde
0ae0: 66 20 42 53 41 46 45 0a 23 64 65 66 69 6e 65 20 f BSAFE.#define
0af0: 50 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f PRE_OPENSSL_0_9_
0b00: 34 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 4 1.#endif../*.
0b10: 2a 20 50 72 65 20 4f 70 65 6e 53 53 4c 20 30 2e * Pre OpenSSL 0.
0b20: 39 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a 0a 9.4 Compat. */..
0b30: 23 69 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f 46 #ifndef STACK_OF
0b40: 0a 23 64 65 66 69 6e 65 20 53 54 41 43 4b 5f 4f .#define STACK_O
0b50: 46 28 78 29 09 09 09 53 54 41 43 4b 0a 23 64 65 F(x)...STACK.#de
0b60: 66 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 fine sk_SSL_CIPH
0b70: 45 52 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f 6e ER_num(sk)..sk_n
0b80: 75 6d 28 28 73 6b 29 29 0a 23 64 65 66 69 6e 65 um((sk)).#define
0b90: 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 sk_SSL_CIPHER_v
0ba0: 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 alue( sk, index)
0bb0: 09 28 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 6b .(SSL_CIPHER*)sk
0bc0: 5f 76 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 6e _value((sk), (in
0bd0: 64 65 78 29 29 0a 23 65 6e 64 69 66 0a 0a 2f 2a dex)).#endif../*
0be0: 0a 20 2a 20 54 68 72 65 61 64 2d 53 61 66 65 20 . * Thread-Safe
0bf0: 54 4c 53 20 43 6f 64 65 0a 20 2a 2f 0a 0a 23 69 TLS Code. */..#i
0c00: 66 64 65 66 20 54 43 4c 5f 54 48 52 45 41 44 53 fdef TCL_THREADS
0c10: 0a 23 64 65 66 69 6e 65 20 4f 50 45 4e 53 53 4c .#define OPENSSL
0c20: 5f 54 48 52 45 41 44 5f 44 45 46 49 4e 45 53 0a _THREAD_DEFINES.
0c30: 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 #include <openss
0c40: 6c 2f 6f 70 65 6e 73 73 6c 63 6f 6e 66 2e 68 3e l/opensslconf.h>
0c50: 0a 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 53 4c ..#ifdef OPENSSL
0c60: 5f 54 48 52 45 41 44 53 0a 23 69 6e 63 6c 75 64 _THREADS.#includ
0c70: 65 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 70 74 e <openssl/crypt
0c80: 6f 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 54 68 72 65 o.h>../*. * Thre
0c90: 61 64 65 64 20 6f 70 65 72 61 74 69 6f 6e 20 72 aded operation r
0ca0: 65 71 75 69 72 65 73 20 6c 6f 63 6b 69 6e 67 20 equires locking
0cb0: 63 61 6c 6c 62 61 63 6b 73 0a 20 2a 20 42 61 73 callbacks. * Bas
0cc0: 65 64 20 66 72 6f 6d 20 2f 63 72 79 70 74 6f 2f ed from /crypto/
0cd0: 63 72 79 70 74 6c 69 62 2e 63 20 6f 66 20 4f 70 cryptlib.c of Op
0ce0: 65 6e 53 53 4c 20 61 6e 64 20 4e 53 4f 70 65 6e enSSL and NSOpen
0cf0: 53 53 4c 2e 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 SSL.. */..static
0d00: 20 54 63 6c 5f 4d 75 74 65 78 20 6c 6f 63 6b 73 Tcl_Mutex locks
0d10: 5b 43 52 59 50 54 4f 5f 4e 55 4d 5f 4c 4f 43 4b [CRYPTO_NUM_LOCK
0d20: 53 5d 3b 0a 73 74 61 74 69 63 20 54 63 6c 5f 4d S];.static Tcl_M
0d30: 75 74 65 78 20 69 6e 69 74 5f 6d 78 3b 0a 0a 73 utex init_mx;..s
0d40: 74 61 74 69 63 20 76 6f 69 64 20 20 20 20 20 20 tatic void
0d50: 20 20 20 20 43 72 79 70 74 6f 54 68 72 65 61 64 CryptoThread
0d60: 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b 20 28 69 6e LockCallback (in
0d70: 74 20 6d 6f 64 65 2c 20 69 6e 74 20 6e 2c 20 63 t mode, int n, c
0d80: 6f 6e 73 74 20 63 68 61 72 20 2a 66 69 6c 65 2c onst char *file,
0d90: 20 69 6e 74 20 6c 69 6e 65 29 3b 0a 73 74 61 74 int line);.stat
0da0: 69 63 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 ic unsigned long
0db0: 20 43 72 79 70 74 6f 54 68 72 65 61 64 49 64 43 CryptoThreadIdC
0dc0: 61 6c 6c 62 61 63 6b 20 20 20 28 76 6f 69 64 29 allback (void)
0dd0: 3b 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 43 ;..static void.C
0de0: 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b 43 ryptoThreadLockC
0df0: 61 6c 6c 62 61 63 6b 28 69 6e 74 20 6d 6f 64 65 allback(int mode
0e00: 2c 20 69 6e 74 20 6e 2c 20 63 6f 6e 73 74 20 63 , int n, const c
0e10: 68 61 72 20 2a 66 69 6c 65 2c 20 69 6e 74 20 6c har *file, int l
0e20: 69 6e 65 29 0a 7b 0a 20 20 20 20 69 66 20 28 6d ine).{. if (m
0e30: 6f 64 65 20 26 20 43 52 59 50 54 4f 5f 4c 4f 43 ode & CRYPTO_LOC
0e40: 4b 29 20 7b 0a 20 20 20 20 20 20 20 54 63 6c 5f K) {. Tcl_
0e50: 4d 75 74 65 78 4c 6f 63 6b 28 26 6c 6f 63 6b 73 MutexLock(&locks
0e60: 5b 6e 5d 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 [n]);. } else
0e70: 20 7b 0a 20 20 20 20 20 20 20 54 63 6c 5f 4d 75 {. Tcl_Mu
0e80: 74 65 78 55 6e 6c 6f 63 6b 28 26 6c 6f 63 6b 73 texUnlock(&locks
0e90: 5b 6e 5d 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 73 [n]);. }.}..s
0ea0: 74 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 6c tatic unsigned l
0eb0: 6f 6e 67 0a 43 72 79 70 74 6f 54 68 72 65 61 64 ong.CryptoThread
0ec0: 49 64 43 61 6c 6c 62 61 63 6b 28 76 6f 69 64 29 IdCallback(void)
0ed0: 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 28 75 .{. return (u
0ee0: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 nsigned long) Tc
0ef0: 6c 5f 47 65 74 43 75 72 72 65 6e 74 54 68 72 65 l_GetCurrentThre
0f00: 61 64 28 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f ad();.}.#endif /
0f10: 2a 20 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 * OPENSSL_THREAD
0f20: 53 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 54 S */.#endif /* T
0f30: 43 4c 5f 54 48 52 45 41 44 53 20 2a 2f 0a 0a 0c CL_THREADS */...
0f40: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
0f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
0f90: 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a InfoCallback --.
0fa0: 20 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 *. *.monitors S
0fb0: 53 4c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 SL connection pr
0fc0: 6f 63 65 73 73 0a 20 2a 0a 20 2a 20 52 65 73 75 ocess. *. * Resu
0fd0: 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a lts:. *.None. *.
0fe0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
0ff0: 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 . *.Calls callba
1000: 63 6b 20 28 69 66 20 64 65 66 69 6e 65 64 29 0a ck (if defined).
1010: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1050: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
1060: 20 76 6f 69 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 void.InfoCallba
1070: 63 6b 28 43 4f 4e 53 54 20 53 53 4c 20 2a 73 73 ck(CONST SSL *ss
1080: 6c 2c 20 69 6e 74 20 77 68 65 72 65 2c 20 69 6e l, int where, in
1090: 74 20 72 65 74 29 0a 7b 0a 20 20 20 20 53 74 61 t ret).{. Sta
10a0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
10b0: 53 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f 61 State*)SSL_get_a
10c0: 70 70 5f 64 61 74 61 28 28 53 53 4c 20 2a 29 73 pp_data((SSL *)s
10d0: 73 6c 29 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a sl);. Tcl_Obj
10e0: 20 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 63 68 *cmdPtr;. ch
10f0: 61 72 20 2a 6d 61 6a 6f 72 3b 20 63 68 61 72 20 ar *major; char
1100: 2a 6d 69 6e 6f 72 3b 0a 0a 20 20 20 20 69 66 20 *minor;.. if
1110: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
1120: 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a ack == (Tcl_Obj*
1130: 29 4e 55 4c 4c 29 0a 09 72 65 74 75 72 6e 3b 0a )NULL)..return;.
1140: 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 . cmdPtr = Tc
1150: 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 l_DuplicateObj(s
1160: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
1170: 6b 29 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 69 k);..#if 0. i
1180: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 f (where & SSL_C
1190: 42 5f 41 4c 45 52 54 29 20 7b 0a 09 73 65 76 20 B_ALERT) {..sev
11a0: 3d 20 53 53 4c 5f 61 6c 65 72 74 5f 74 79 70 65 = SSL_alert_type
11b0: 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 _string_long(ret
11c0: 29 3b 0a 09 69 66 20 28 73 74 72 63 6d 70 28 20 );..if (strcmp(
11d0: 73 65 76 2c 20 22 66 61 74 61 6c 22 29 3d 3d 30 sev, "fatal")==0
11e0: 29 20 7b 09 2f 2a 20 4d 61 70 20 74 6f 20 65 72 ) {./* Map to er
11f0: 72 6f 72 20 2a 2f 0a 09 20 20 20 20 54 6c 73 5f ror */.. Tls_
1200: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 Error(statePtr,
1210: 53 53 4c 5f 45 52 52 4f 52 28 73 73 6c 2c 20 30 SSL_ERROR(ssl, 0
1220: 29 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 3b ));.. return;
1230: 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 ..}. }.#endif
1240: 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 20 26 . if (where &
1250: 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b SSL_CB_HANDSHAK
1260: 45 5f 53 54 41 52 54 29 20 7b 0a 09 6d 61 6a 6f E_START) {..majo
1270: 72 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b r = "handshake";
1280: 0a 09 6d 69 6e 6f 72 20 3d 20 22 73 74 61 72 74 ..minor = "start
1290: 22 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ";. } else if
12a0: 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 (where & SSL_CB
12b0: 5f 48 41 4e 44 53 48 41 4b 45 5f 44 4f 4e 45 29 _HANDSHAKE_DONE)
12c0: 20 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e {..major = "han
12d0: 64 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 dshake";..minor
12e0: 3d 20 22 64 6f 6e 65 22 3b 0a 20 20 20 20 7d 20 = "done";. }
12f0: 65 6c 73 65 20 7b 0a 09 69 66 20 28 77 68 65 72 else {..if (wher
1300: 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 e & SSL_CB_ALERT
1310: 29 09 09 6d 61 6a 6f 72 20 3d 20 22 61 6c 65 72 )..major = "aler
1320: 74 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 t";..else if (wh
1330: 65 72 65 20 26 20 53 53 4c 5f 53 54 5f 43 4f 4e ere & SSL_ST_CON
1340: 4e 45 43 54 29 09 6d 61 6a 6f 72 20 3d 20 22 63 NECT).major = "c
1350: 6f 6e 6e 65 63 74 22 3b 0a 09 65 6c 73 65 20 69 onnect";..else i
1360: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 53 f (where & SSL_S
1370: 54 5f 41 43 43 45 50 54 29 09 09 6d 61 6a 6f 72 T_ACCEPT)..major
1380: 20 3d 20 22 61 63 63 65 70 74 22 3b 0a 09 65 6c = "accept";..el
1390: 73 65 09 09 09 09 09 6d 61 6a 6f 72 20 3d 20 22 se.....major = "
13a0: 75 6e 6b 6e 6f 77 6e 22 3b 0a 0a 09 69 66 20 28 unknown";...if (
13b0: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 52 where & SSL_CB_R
13c0: 45 41 44 29 09 09 6d 69 6e 6f 72 20 3d 20 22 72 EAD)..minor = "r
13d0: 65 61 64 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 ead";..else if (
13e0: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 57 where & SSL_CB_W
13f0: 52 49 54 45 29 09 09 6d 69 6e 6f 72 20 3d 20 22 RITE)..minor = "
1400: 77 72 69 74 65 22 3b 0a 09 65 6c 73 65 20 69 66 write";..else if
1410: 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 (where & SSL_CB
1420: 5f 4c 4f 4f 50 29 09 09 6d 69 6e 6f 72 20 3d 20 _LOOP)..minor =
1430: 22 6c 6f 6f 70 22 3b 0a 09 65 6c 73 65 20 69 66 "loop";..else if
1440: 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 (where & SSL_CB
1450: 5f 45 58 49 54 29 09 09 6d 69 6e 6f 72 20 3d 20 _EXIT)..minor =
1460: 22 65 78 69 74 22 3b 0a 09 65 6c 73 65 09 09 09 "exit";..else...
1470: 09 09 6d 69 6e 6f 72 20 3d 20 22 75 6e 6b 6e 6f ..minor = "unkno
1480: 77 6e 22 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 wn";. }..
1490: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
14a0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
14b0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
14c0: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 tr, .. Tcl_Ne
14d0: 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 69 6e 66 wStringObj( "inf
14e0: 6f 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 o", -1));.. T
14f0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1500: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
1510: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
1520: 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 r, .. Tcl_New
1530: 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c 5f 47 StringObj( Tcl_G
1540: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
1550: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d atePtr->self), -
1560: 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 1) );.. Tcl_L
1570: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1580: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1590: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, 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 6d 61 6a 6f 72 2c 20 2d 31 29 gObj( major, -1)
15c0: 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 );.. Tcl_Lis
15d0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
15e0: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
15f0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
1600: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1610: 62 6a 28 20 6d 69 6e 6f 72 2c 20 2d 31 29 20 29 bj( minor, -1) )
1620: 3b 0a 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 ;.. if (where
1630: 20 26 20 28 53 53 4c 5f 43 42 5f 4c 4f 4f 50 7c & (SSL_CB_LOOP|
1640: 53 53 4c 5f 43 42 5f 45 58 49 54 29 29 20 7b 0a SSL_CB_EXIT)) {.
1650: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
1660: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1670: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1680: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1690: 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f wStringObj( SSL_
16a0: 73 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e state_string_lon
16b0: 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 g(ssl), -1) );.
16c0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 77 68 } else if (wh
16d0: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 ere & SSL_CB_ALE
16e0: 52 54 29 20 7b 0a 09 43 4f 4e 53 54 20 63 68 61 RT) {..CONST cha
16f0: 72 20 2a 63 70 20 3d 20 28 63 68 61 72 20 2a 29 r *cp = (char *)
1700: 20 53 53 4c 5f 61 6c 65 72 74 5f 64 65 73 63 5f SSL_alert_desc_
1710: 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 string_long(ret)
1720: 3b 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;...Tcl_ListObjA
1730: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1740: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1750: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1760: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 _NewStringObj( c
1770: 70 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 p, -1) );. }
1780: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 else {..Tcl_List
1790: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
17a0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
17b0: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
17c0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
17d0: 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 74 72 j( SSL_state_str
17e0: 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d ing_long(ssl), -
17f0: 31 29 20 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 1) );. }.
1800: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
1810: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1820: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 Ptr->interp);.
1830: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 Tcl_Preserve(
1840: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
1850: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c tePtr);.. Tcl
1860: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 63 _IncrRefCount( c
1870: 6d 64 50 74 72 29 3b 0a 20 20 20 20 28 76 6f 69 mdPtr);. (voi
1880: 64 29 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 d) Tcl_EvalObjEx
1890: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
18a0: 70 2c 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 p, cmdPtr, TCL_E
18b0: 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 20 VAL_GLOBAL);.
18c0: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
18d0: 74 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 t( cmdPtr);..
18e0: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 Tcl_Release( (C
18f0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1900: 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 Ptr);. Tcl_Re
1910: 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 lease( (ClientDa
1920: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
1930: 74 65 72 70 29 3b 0a 0a 7d 0a 0c 0a 2f 2a 0a 20 terp);..}.../*.
1940: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1980: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 72 69 66 ----. *. * Verif
1990: 79 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a yCallback --. *.
19a0: 20 2a 09 4d 6f 6e 69 74 6f 72 73 20 53 53 4c 20 *.Monitors SSL
19b0: 63 65 72 74 69 66 69 63 61 74 65 20 76 61 6c 69 certificate vali
19c0: 64 61 74 69 6f 6e 20 70 72 6f 63 65 73 73 2e 0a dation process..
19d0: 20 2a 09 54 68 69 73 20 69 73 20 63 61 6c 6c 65 *.This is calle
19e0: 64 20 77 68 65 6e 65 76 65 72 20 61 20 63 65 72 d whenever a cer
19f0: 74 69 66 69 63 61 74 65 20 69 73 20 69 6e 73 70 tificate is insp
1a00: 65 63 74 65 64 0a 20 2a 09 6f 72 20 64 65 63 69 ected. *.or deci
1a10: 64 65 64 20 69 6e 76 61 6c 69 64 2e 0a 20 2a 0a ded invalid.. *.
1a20: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
1a30: 20 63 61 6c 6c 62 61 63 6b 20 62 6f 75 6e 64 20 callback bound
1a40: 74 6f 20 74 68 65 20 73 6f 63 6b 65 74 20 6d 61 to the socket ma
1a50: 79 20 72 65 74 75 72 6e 20 6f 6e 65 20 6f 66 3a y return one of:
1a60: 0a 20 2a 09 20 20 20 20 30 09 09 09 2d 20 74 68 . *. 0...- th
1a70: 65 20 63 65 72 74 69 66 69 63 61 74 65 20 69 73 e certificate is
1a80: 20 64 65 65 6d 65 64 20 69 6e 76 61 6c 69 64 0a deemed invalid.
1a90: 20 2a 09 20 20 20 20 31 09 09 09 2d 20 74 68 65 *. 1...- the
1aa0: 20 63 65 72 74 69 66 69 63 61 74 65 20 69 73 20 certificate is
1ab0: 64 65 65 6d 65 64 20 76 61 6c 69 64 0a 20 2a 09 deemed valid. *.
1ac0: 20 20 20 20 65 6d 70 74 79 20 73 74 72 69 6e 67 empty string
1ad0: 09 2d 20 6e 6f 20 63 68 61 6e 67 65 20 74 6f 20 .- no change to
1ae0: 63 65 72 74 69 66 69 63 61 74 65 20 76 61 6c 69 certificate vali
1af0: 64 61 74 69 6f 6e 0a 20 2a 0a 20 2a 20 53 69 64 dation. *. * Sid
1b00: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 e effects:. *.Th
1b10: 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 20 74 e err field of t
1b20: 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 he currently ope
1b30: 72 61 74 69 76 65 20 53 74 61 74 65 20 69 73 20 rative State is
1b40: 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 set. *. to a st
1b50: 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 ring describing
1b60: 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 the SSL negotiat
1b70: 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 61 73 ion failure reas
1b80: 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d on. *-----------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bc0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
1bd0: 74 69 63 20 69 6e 74 0a 56 65 72 69 66 79 43 61 tic int.VerifyCa
1be0: 6c 6c 62 61 63 6b 28 69 6e 74 20 6f 6b 2c 20 58 llback(int ok, X
1bf0: 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 20 2a 63 509_STORE_CTX *c
1c00: 74 78 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 tx).{. Tcl_Ob
1c10: 6a 20 2a 63 6d 64 50 74 72 2c 20 2a 72 65 73 75 j *cmdPtr, *resu
1c20: 6c 74 3b 0a 20 20 20 20 63 68 61 72 20 2a 65 72 lt;. char *er
1c30: 72 53 74 72 2c 20 2a 73 74 72 69 6e 67 3b 0a 20 rStr, *string;.
1c40: 20 20 20 69 6e 74 20 6c 65 6e 67 74 68 3b 0a 20 int length;.
1c50: 20 20 20 53 53 4c 20 20 20 2a 73 73 6c 09 09 3d SSL *ssl..=
1c60: 20 28 53 53 4c 2a 29 58 35 30 39 5f 53 54 4f 52 (SSL*)X509_STOR
1c70: 45 5f 43 54 58 5f 67 65 74 5f 61 70 70 5f 64 61 E_CTX_get_app_da
1c80: 74 61 28 63 74 78 29 3b 0a 20 20 20 20 58 35 30 ta(ctx);. X50
1c90: 39 20 20 2a 63 65 72 74 09 09 3d 20 58 35 30 39 9 *cert..= X509
1ca0: 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 63 _STORE_CTX_get_c
1cb0: 75 72 72 65 6e 74 5f 63 65 72 74 28 63 74 78 29 urrent_cert(ctx)
1cc0: 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 ;. State *sta
1cd0: 74 65 50 74 72 09 3d 20 28 53 74 61 74 65 2a 29 tePtr.= (State*)
1ce0: 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 SSL_get_app_data
1cf0: 28 73 73 6c 29 3b 0a 20 20 20 20 69 6e 74 20 64 (ssl);. int d
1d00: 65 70 74 68 09 09 3d 20 58 35 30 39 5f 53 54 4f epth..= X509_STO
1d10: 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 RE_CTX_get_error
1d20: 5f 64 65 70 74 68 28 63 74 78 29 3b 0a 20 20 20 _depth(ctx);.
1d30: 20 69 6e 74 20 65 72 72 09 09 3d 20 58 35 30 39 int err..= X509
1d40: 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 65 _STORE_CTX_get_e
1d50: 72 72 6f 72 28 63 74 78 29 3b 0a 0a 20 20 20 20 rror(ctx);..
1d60: 64 70 72 69 6e 74 66 28 22 56 65 72 69 66 79 3a dprintf("Verify:
1d70: 20 25 64 22 2c 20 6f 6b 29 3b 0a 0a 20 20 20 20 %d", ok);..
1d80: 69 66 20 28 21 6f 6b 29 20 7b 0a 09 65 72 72 53 if (!ok) {..errS
1d90: 74 72 20 3d 20 28 63 68 61 72 2a 29 58 35 30 39 tr = (char*)X509
1da0: 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 72 _verify_cert_err
1db0: 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 3b 0a or_string(err);.
1dc0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 65 72 } else {..er
1dd0: 72 53 74 72 20 3d 20 28 63 68 61 72 20 2a 29 30 rStr = (char *)0
1de0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
1df0: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
1e00: 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a ack == (Tcl_Obj*
1e10: 29 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 73 74 )NULL) {..if (st
1e20: 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 20 26 atePtr->vflags &
1e30: 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c SSL_VERIFY_FAIL
1e40: 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 _IF_NO_PEER_CERT
1e50: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ) {.. return
1e60: 6f 6b 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 ok;..} else {..
1e70: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 09 7d 0a return 1;..}.
1e80: 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 74 72 }. cmdPtr
1e90: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
1ea0: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 Obj(statePtr->ca
1eb0: 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63 llback);.. Tc
1ec0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1ed0: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1ee0: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1ef0: 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 , .. Tcl_NewS
1f00: 74 72 69 6e 67 4f 62 6a 28 20 22 76 65 72 69 66 tringObj( "verif
1f10: 79 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 y", -1));.. T
1f20: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1f30: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
1f40: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
1f50: 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 r, .. Tcl_New
1f60: 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c 5f 47 StringObj( Tcl_G
1f70: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
1f80: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d atePtr->self), -
1f90: 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 1) );.. Tcl_L
1fa0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1fb0: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1fc0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, cmdPtr,..
1fd0: 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 Tcl_NewIntOb
1fe0: 6a 28 20 64 65 70 74 68 29 20 29 3b 0a 0a 20 20 j( depth) );..
1ff0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
2000: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
2010: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
2020: 64 50 74 72 2c 0a 09 20 20 20 20 54 6c 73 5f 4e dPtr,.. Tls_N
2030: 65 77 58 35 30 39 4f 62 6a 28 20 73 74 61 74 65 ewX509Obj( state
2040: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 65 72 Ptr->interp, cer
2050: 74 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c t) );.. Tcl_L
2060: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
2070: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
2080: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, cmdPtr,..
2090: 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 Tcl_NewIntOb
20a0: 6a 28 20 6f 6b 29 20 29 3b 0a 0a 20 20 20 20 54 j( ok) );.. T
20b0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
20c0: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
20d0: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
20e0: 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 r,.. Tcl_NewS
20f0: 74 72 69 6e 67 4f 62 6a 28 20 65 72 72 53 74 72 tringObj( errStr
2100: 20 3f 20 65 72 72 53 74 72 20 3a 20 22 22 2c 20 ? errStr : "",
2110: 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1) );.. Tcl_
2120: 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e Preserve( (Clien
2130: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d tData) statePtr-
2140: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 >interp);. Tc
2150: 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 l_Preserve( (Cli
2160: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
2170: 72 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 r);.. statePt
2180: 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f r->flags |= TLS_
2190: 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 3b 0a 0a 20 TCL_CALLBACK;..
21a0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
21b0: 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 20 20 unt( cmdPtr);.
21c0: 20 20 69 66 20 28 54 63 6c 5f 45 76 61 6c 4f 62 if (Tcl_EvalOb
21d0: 6a 45 78 28 73 74 61 74 65 50 74 72 2d 3e 69 6e jEx(statePtr->in
21e0: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 54 43 terp, cmdPtr, TC
21f0: 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 20 21 L_EVAL_GLOBAL) !
2200: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 = TCL_OK) {../*
2210: 49 74 20 67 6f 74 20 61 6e 20 65 72 72 6f 72 20 It got an error
2220: 2d 20 72 65 6a 65 63 74 20 74 68 65 20 63 65 72 - reject the cer
2230: 74 69 66 69 63 61 74 65 2e 09 09 2a 2f 0a 09 54 tificate...*/..T
2240: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 cl_BackgroundErr
2250: 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e or( statePtr->in
2260: 74 65 72 70 29 3b 0a 09 6f 6b 20 3d 20 30 3b 0a terp);..ok = 0;.
2270: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 } else {..re
2280: 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 4f 62 sult = Tcl_GetOb
2290: 6a 52 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 jResult(statePtr
22a0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 73 74 72 69 ->interp);..stri
22b0: 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 ng = Tcl_GetStri
22c0: 6e 67 46 72 6f 6d 4f 62 6a 28 72 65 73 75 6c 74 ngFromObj(result
22d0: 2c 20 26 6c 65 6e 67 74 68 29 3b 0a 09 2f 2a 20 , &length);../*
22e0: 41 6e 20 65 6d 70 74 79 20 72 65 73 75 6c 74 20 An empty result
22f0: 6c 65 61 76 65 73 20 76 65 72 69 66 69 63 61 74 leaves verificat
2300: 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 2e 09 2a ion unchanged..*
2310: 2f 0a 09 69 66 20 28 6c 65 6e 67 74 68 20 3e 20 /..if (length >
2320: 30 29 20 7b 0a 09 20 20 20 20 69 66 20 28 54 63 0) {.. if (Tc
2330: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
2340: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2350: 2c 20 72 65 73 75 6c 74 2c 20 26 6f 6b 29 20 21 , result, &ok) !
2360: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 54 63 = TCL_OK) {...Tc
2370: 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f l_BackgroundErro
2380: 72 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 r(statePtr->inte
2390: 72 70 29 3b 0a 09 09 6f 6b 20 3d 20 30 3b 0a 09 rp);...ok = 0;..
23a0: 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 }..}. }.
23b0: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f Tcl_DecrRefCo
23c0: 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 unt( cmdPtr);..
23d0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 statePtr->fla
23e0: 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f gs &= ~(TLS_TCL_
23f0: 43 41 4c 4c 42 41 43 4b 29 3b 0a 0a 20 20 20 20 CALLBACK);..
2400: 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c Tcl_Release( (Cl
2410: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
2420: 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c tr);. Tcl_Rel
2430: 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 ease( (ClientDat
2440: 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 a) statePtr->int
2450: 65 72 70 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 erp);.. retur
2460: 6e 28 6f 6b 29 3b 09 2f 2a 20 42 79 20 64 65 66 n(ok);./* By def
2470: 61 75 6c 74 2c 20 6c 65 61 76 65 20 76 65 72 69 ault, leave veri
2480: 66 69 63 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 fication unchang
2490: 65 64 2e 09 2a 2f 0a 7d 0a 0c 0a 2f 2a 0a 20 2a ed..*/.}.../*. *
24a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
24e0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 45 72 ---. *. * Tls_Er
24f0: 72 6f 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c ror --. *. *.Cal
2500: 6c 73 20 63 61 6c 6c 62 61 63 6b 20 77 69 74 68 ls callback with
2510: 20 24 66 64 20 61 6e 64 20 24 6d 73 67 20 2d 20 $fd and $msg -
2520: 73 6f 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 so the callback
2530: 63 61 6e 20 64 65 63 69 64 65 0a 20 2a 09 77 68 can decide. *.wh
2540: 61 74 20 74 6f 20 64 6f 20 77 69 74 68 20 65 72 at to do with er
2550: 72 6f 72 73 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 rors.. *. * Side
2560: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 effects:. *.The
2570: 20 65 72 72 20 66 69 65 6c 64 20 6f 66 20 74 68 err field of th
2580: 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 72 e currently oper
2590: 61 74 69 76 65 20 53 74 61 74 65 20 69 73 20 73 ative State is s
25a0: 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 72 et. *. to a str
25b0: 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 ing describing t
25c0: 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 he SSL negotiati
25d0: 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 61 73 6f on failure reaso
25e0: 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d n. *------------
25f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2620: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 -------. */.void
2630: 0a 54 6c 73 5f 45 72 72 6f 72 28 53 74 61 74 65 .Tls_Error(State
2640: 20 2a 73 74 61 74 65 50 74 72 2c 20 63 68 61 72 *statePtr, char
2650: 20 2a 6d 73 67 29 0a 7b 0a 20 20 20 20 54 63 6c *msg).{. Tcl
2660: 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 0a 20 _Obj *cmdPtr;..
2670: 20 20 20 69 66 20 28 6d 73 67 20 26 26 20 2a 6d if (msg && *m
2680: 73 67 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 sg) {..Tcl_SetEr
2690: 72 6f 72 43 6f 64 65 28 73 74 61 74 65 50 74 72 rorCode(statePtr
26a0: 2d 3e 69 6e 74 65 72 70 2c 20 22 53 53 4c 22 2c ->interp, "SSL",
26b0: 20 6d 73 67 2c 20 28 63 68 61 72 20 2a 29 4e 55 msg, (char *)NU
26c0: 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 LL);. } else
26d0: 7b 0a 09 6d 73 67 20 3d 20 54 63 6c 5f 47 65 74 {..msg = Tcl_Get
26e0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 54 63 StringFromObj(Tc
26f0: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 73 l_GetObjResult(s
2700: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
2710: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 , NULL);. }.
2720: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 statePtr->err
2730: 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 69 66 20 = msg;.. if
2740: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
2750: 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a ack == (Tcl_Obj*
2760: 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 72 20 62 )NULL) {..char b
2770: 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 70 72 uf[BUFSIZ];..spr
2780: 69 6e 74 66 28 62 75 66 2c 20 22 53 53 4c 20 63 intf(buf, "SSL c
2790: 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a 20 65 hannel \"%s\": e
27a0: 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 20 20 20 rror: %s",..
27b0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
27c0: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c me(statePtr->sel
27d0: 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 6c 5f 53 f), msg);..Tcl_S
27e0: 65 74 52 65 73 75 6c 74 28 20 73 74 61 74 65 50 etResult( stateP
27f0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 75 66 2c tr->interp, buf,
2800: 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a TCL_VOLATILE);.
2810: 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 .Tcl_BackgroundE
2820: 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e rror( statePtr->
2830: 69 6e 74 65 72 70 29 3b 0a 09 72 65 74 75 72 6e interp);..return
2840: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 ;. }. cmdP
2850: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 tr = Tcl_Duplica
2860: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e teObj(statePtr->
2870: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 callback);..
2880: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
2890: 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 dElement(statePt
28a0: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
28b0: 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 r, .. Tcl_New
28c0: 53 74 72 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72 StringObj("error
28d0: 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 ", -1));.. Tc
28e0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
28f0: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d lement(statePtr-
2900: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
2910: 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 .. Tcl_NewSt
2920: 72 69 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 74 43 ringObj(Tcl_GetC
2930: 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 hannelName(state
2940: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 29 Ptr->self), -1))
2950: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
2960: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
2970: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2980: 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 , cmdPtr,.. T
2990: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
29a0: 6d 73 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 msg, -1));..
29b0: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c Tcl_Preserve((Cl
29c0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
29d0: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 tr->interp);.
29e0: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 Tcl_Preserve((C
29f0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
2a00: 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 Ptr);.. Tcl_I
2a10: 6e 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 ncrRefCount(cmdP
2a20: 74 72 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c tr);. if (Tcl
2a30: 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 _EvalObjEx(state
2a40: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
2a50: 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c Ptr, TCL_EVAL_GL
2a60: 4f 42 41 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 OBAL) != TCL_OK)
2a70: 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 {..Tcl_Backgrou
2a80: 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 ndError(statePtr
2a90: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d ->interp);. }
2aa0: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 . Tcl_DecrRef
2ab0: 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a Count(cmdPtr);..
2ac0: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
2ad0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
2ae0: 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f tePtr);. Tcl_
2af0: 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 Release((ClientD
2b00: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 ata) statePtr->i
2b10: 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 nterp);.}.../*.
2b20: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b60: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 61 73 73 77 ----. *. * Passw
2b70: 6f 72 64 43 61 6c 6c 62 61 63 6b 20 2d 2d 20 0a ordCallback -- .
2b80: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 77 68 65 *. *.Called whe
2b90: 6e 20 61 20 70 61 73 73 77 6f 72 64 20 69 73 20 n a password is
2ba0: 6e 65 65 64 65 64 20 74 6f 20 75 6e 70 61 63 6b needed to unpack
2bb0: 20 52 53 41 20 61 6e 64 20 50 45 4d 20 6b 65 79 RSA and PEM key
2bc0: 73 2e 0a 20 2a 09 45 76 61 6c 73 20 61 6e 79 20 s.. *.Evals any
2bd0: 62 6f 75 6e 64 20 70 61 73 73 77 6f 72 64 20 73 bound password s
2be0: 63 72 69 70 74 20 61 6e 64 20 72 65 74 75 72 6e cript and return
2bf0: 73 20 74 68 65 20 72 65 73 75 6c 74 20 61 73 0a s the result as.
2c00: 20 2a 09 74 68 65 20 70 61 73 73 77 6f 72 64 20 *.the password
2c10: 73 74 72 69 6e 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d string.. *------
2c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2c60: 2f 0a 23 69 66 64 65 66 20 50 52 45 5f 4f 50 45 /.#ifdef PRE_OPE
2c70: 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f 2a 0a 20 2a NSSL_0_9_4./*. *
2c80: 20 4e 6f 20 77 61 79 20 74 6f 20 68 61 6e 64 6c No way to handl
2c90: 65 20 75 73 65 72 2d 64 61 74 61 20 74 68 65 72 e user-data ther
2ca0: 65 66 6f 72 65 20 6e 6f 20 77 61 79 20 77 69 74 efore no way wit
2cb0: 68 6f 75 74 20 61 20 67 6c 6f 62 61 6c 0a 20 2a hout a global. *
2cc0: 20 76 61 72 69 61 62 6c 65 20 74 6f 20 61 63 63 variable to acc
2cd0: 65 73 73 20 74 68 65 20 54 63 6c 20 69 6e 74 65 ess the Tcl inte
2ce0: 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 73 74 61 74 rpreter..*/.stat
2cf0: 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 43 ic int.PasswordC
2d00: 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 75 allback(char *bu
2d10: 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e 74 f, int size, int
2d20: 20 76 65 72 69 66 79 29 0a 7b 0a 20 20 20 20 72 verify).{. r
2d30: 65 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 65 6c 73 eturn -1;.}.#els
2d40: 65 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 61 73 e.static int.Pas
2d50: 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 28 63 68 swordCallback(ch
2d60: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a ar *buf, int siz
2d70: 65 2c 20 69 6e 74 20 76 65 72 69 66 79 2c 20 76 e, int verify, v
2d80: 6f 69 64 20 2a 75 64 61 74 61 29 0a 7b 0a 20 20 oid *udata).{.
2d90: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
2da0: 72 09 3d 20 28 53 74 61 74 65 20 2a 29 20 75 64 r.= (State *) ud
2db0: 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 74 ata;. Tcl_Int
2dc0: 65 72 70 20 2a 69 6e 74 65 72 70 09 3d 20 73 74 erp *interp.= st
2dd0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b 0a atePtr->interp;.
2de0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 Tcl_Obj *cmd
2df0: 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 Ptr;. int res
2e00: 75 6c 74 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 ult;.. if (st
2e10: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
2e20: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 == NULL) {..if
2e30: 28 54 63 6c 5f 45 76 61 6c 45 78 28 69 6e 74 65 (Tcl_EvalEx(inte
2e40: 72 70 2c 20 22 74 6c 73 3a 3a 70 61 73 73 77 6f rp, "tls::passwo
2e50: 72 64 22 2c 20 2d 31 2c 20 54 43 4c 5f 45 56 41 rd", -1, TCL_EVA
2e60: 4c 5f 47 4c 4f 42 41 4c 29 0a 09 09 3d 3d 20 54 L_GLOBAL)...== T
2e70: 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 63 68 CL_OK) {.. ch
2e80: 61 72 20 2a 72 65 74 20 3d 20 28 63 68 61 72 20 ar *ret = (char
2e90: 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 *) Tcl_GetString
2ea0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
2eb0: 09 20 20 20 20 73 74 72 6e 63 70 79 28 62 75 66 . strncpy(buf
2ec0: 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f 74 29 20 , ret, (size_t)
2ed0: 73 69 7a 65 29 3b 0a 09 20 20 20 20 72 65 74 75 size);.. retu
2ee0: 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 72 rn (int)strlen(r
2ef0: 65 74 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 et);..} else {..
2f00: 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 09 return -1;..
2f10: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 6d 64 }. }.. cmd
2f20: 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 Ptr = Tcl_Duplic
2f30: 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d ateObj(statePtr-
2f40: 3e 70 61 73 73 77 6f 72 64 29 3b 0a 0a 20 20 20 >password);..
2f50: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 Tcl_Preserve((C
2f60: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
2f70: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 Ptr->interp);.
2f80: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 Tcl_Preserve((
2f90: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
2fa0: 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f ePtr);.. Tcl_
2fb0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 IncrRefCount(cmd
2fc0: 50 74 72 29 3b 0a 20 20 20 20 72 65 73 75 6c 74 Ptr);. result
2fd0: 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 = Tcl_EvalObjEx
2fe0: 28 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c (interp, cmdPtr,
2ff0: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c TCL_EVAL_GLOBAL
3000: 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c );. if (resul
3010: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 t != TCL_OK) {..
3020: 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 Tcl_BackgroundEr
3030: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ror(statePtr->in
3040: 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 terp);. }.
3050: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
3060: 74 28 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 t(cmdPtr);..
3070: 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 Tcl_Release((Cli
3080: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
3090: 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 r);. Tcl_Rele
30a0: 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 ase((ClientData)
30b0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
30c0: 70 29 3b 0a 0a 20 20 20 20 69 66 20 28 72 65 73 p);.. if (res
30d0: 75 6c 74 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b ult == TCL_OK) {
30e0: 0a 09 63 68 61 72 20 2a 72 65 74 20 3d 20 28 63 ..char *ret = (c
30f0: 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 har *) Tcl_GetSt
3100: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 ringResult(inter
3110: 70 29 3b 0a 09 73 74 72 6e 63 70 79 28 62 75 66 p);..strncpy(buf
3120: 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f 74 29 20 , ret, (size_t)
3130: 73 69 7a 65 29 3b 0a 09 72 65 74 75 72 6e 20 28 size);..return (
3140: 69 6e 74 29 73 74 72 6c 65 6e 28 72 65 74 29 3b int)strlen(ret);
3150: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 . } else {..r
3160: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a eturn -1;. }.
3170: 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a 0a 20 2a }.#endif.../*. *
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31c0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 ---. *. * Cipher
31d0: 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 73 74 20 sObjCmd -- list
31e0: 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 available cipher
31f0: 73 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f s. *. *.This pro
3200: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
3210: 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 d to process the
3220: 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 "tls::ciphers"
3230: 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 command. *.to li
3240: 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 st available cip
3250: 68 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e hers, based upon
3260: 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 protocol select
3270: 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ed.. *. * Result
3280: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
3290: 20 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 Tcl result list
32a0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
32b0: 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 ects:. *.constru
32c0: 63 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 cts and destroys
32d0: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 SSL context (CT
32e0: 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d X). *. *--------
32f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3330: 73 74 61 74 69 63 20 69 6e 74 0a 43 69 70 68 65 static int.Ciphe
3340: 72 73 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 rsObjCmd(clientD
3350: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
3360: 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 c, objv). Cli
3370: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
3380: 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e ta;./* Not used.
3390: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
33a0: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 rp *interp;.
33b0: 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 int objc;. Tc
33c0: 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj.*CONST obj
33d0: 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 61 74 69 v[];.{. stati
33e0: 63 20 43 4f 4e 53 54 38 34 20 63 68 61 72 20 2a c CONST84 char *
33f0: 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b 0a protocols[] = {.
3400: 09 22 73 73 6c 32 22 2c 09 22 73 73 6c 33 22 2c ."ssl2",."ssl3",
3410: 09 22 74 6c 73 31 22 2c 09 22 74 6c 73 31 2e 31 ."tls1",."tls1.1
3420: 22 2c 20 22 74 6c 73 31 2e 32 22 2c 20 4e 55 4c ", "tls1.2", NUL
3430: 4c 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 6e 75 L. };. enu
3440: 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 4c m protocol {..TL
3450: 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c 33 S_SSL2, TLS_SSL3
3460: 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 5f , TLS_TLS1, TLS_
3470: 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53 31 TLS1_1, TLS_TLS1
3480: 5f 32 2c 20 54 4c 53 5f 4e 4f 4e 45 0a 20 20 20 _2, TLS_NONE.
3490: 20 7d 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 };. Tcl_Obj
34a0: 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 53 53 4c *objPtr;. SSL
34b0: 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c _CTX *ctx = NULL
34c0: 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d ;. SSL *ssl =
34d0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b NULL;. STACK
34e0: 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 52 29 20 _OF(SSL_CIPHER)
34f0: 2a 73 6b 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 *sk;. char *c
3500: 70 2c 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a p, buf[BUFSIZ];.
3510: 20 20 20 20 69 6e 74 20 69 6e 64 65 78 2c 20 76 int index, v
3520: 65 72 62 6f 73 65 20 3d 20 30 3b 0a 0a 20 20 20 erbose = 0;..
3530: 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 7c 7c if (objc < 2 ||
3540: 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 54 63 objc > 3) {..Tc
3550: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
3560: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
3570: 22 70 72 6f 74 6f 63 6f 6c 20 3f 76 65 72 62 6f "protocol ?verbo
3580: 73 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 se?");..return T
3590: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
35a0: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 if (Tcl_GetI
35b0: 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 ndexFromObj( int
35c0: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 erp, objv[1], pr
35d0: 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 otocols, "protoc
35e0: 6f 6c 22 2c 20 30 2c 0a 09 26 69 6e 64 65 78 29 ol", 0,..&index)
35f0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 != TCL_OK) {..r
3600: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3610: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 6f . }. if (o
3620: 62 6a 63 20 3e 20 32 20 26 26 20 54 63 6c 5f 47 bjc > 2 && Tcl_G
3630: 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a etBooleanFromObj
3640: 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 ( interp, objv[2
3650: 5d 2c 0a 09 26 76 65 72 62 6f 73 65 29 20 21 3d ],..&verbose) !=
3660: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 TCL_OK) {..retu
3670: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3680: 20 20 7d 0a 20 20 20 20 73 77 69 74 63 68 20 28 }. switch (
3690: 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 (enum protocol)i
36a0: 6e 64 65 78 29 20 7b 0a 20 20 20 20 63 61 73 65 ndex) {. case
36b0: 20 54 4c 53 5f 53 53 4c 32 3a 0a 23 69 66 20 64 TLS_SSL2:.#if d
36c0: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a efined(NO_SSL2).
36d0: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
36e0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 lt(interp, "prot
36f0: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 ocol not support
3700: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 ed", NULL);...re
3710: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3720: 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 #else...ctx = SS
3730: 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 5f L_CTX_new(SSLv2_
3740: 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b method()); break
3750: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 ;.#endif. cas
3760: 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 69 66 20 e TLS_SSL3:.#if
3770: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 defined(NO_SSL3)
3780: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 ...Tcl_AppendRes
3790: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f ult(interp, "pro
37a0: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
37b0: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 ted", NULL);...r
37c0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
37d0: 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 .#else...ctx = S
37e0: 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 33 SL_CTX_new(SSLv3
37f0: 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 _method()); brea
3800: 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 k;.#endif. ca
3810: 73 65 20 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 se TLS_TLS1:.#if
3820: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
3830: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 )...Tcl_AppendRe
3840: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
3850: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
3860: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 rted", NULL);...
3870: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3880: 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 ;.#else...ctx =
3890: 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 76 SSL_CTX_new(TLSv
38a0: 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 1_method()); bre
38b0: 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 ak;.#endif. c
38c0: 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a 0a ase TLS_TLS1_1:.
38d0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
38e0: 4c 53 31 5f 31 29 0a 09 09 54 63 6c 5f 41 70 70 LS1_1)...Tcl_App
38f0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
3900: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
3910: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
3920: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
3930: 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 ERROR;.#else...c
3940: 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 tx = SSL_CTX_new
3950: 28 54 4c 53 76 31 5f 31 5f 6d 65 74 68 6f 64 28 (TLSv1_1_method(
3960: 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 )); break;.#endi
3970: 66 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 54 f. case TLS_T
3980: 4c 53 31 5f 32 3a 0a 23 69 66 20 64 65 66 69 6e LS1_2:.#if defin
3990: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 09 09 ed(NO_TLS1_2)...
39a0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
39b0: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
39c0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
39d0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 ", NULL);...retu
39e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 rn TCL_ERROR;.#e
39f0: 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f lse...ctx = SSL_
3a00: 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 32 5f CTX_new(TLSv1_2_
3a10: 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b method()); break
3a20: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 64 65 66 ;.#endif. def
3a30: 61 75 6c 74 3a 0a 09 09 62 72 65 61 6b 3b 0a 20 ault:...break;.
3a40: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 74 78 }. if (ctx
3a50: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
3a60: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
3a70: 74 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 terp, REASON(),
3a80: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
3a90: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3aa0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 73 6c R;. }. ssl
3ab0: 20 3d 20 53 53 4c 5f 6e 65 77 28 63 74 78 29 3b = SSL_new(ctx);
3ac0: 0a 20 20 20 20 69 66 20 28 73 73 6c 20 3d 3d 20 . if (ssl ==
3ad0: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
3ae0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
3af0: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 , REASON(), (cha
3b00: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c r *) NULL);..SSL
3b10: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
3b20: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3b30: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f 62 6a R;. }. obj
3b40: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Ptr = Tcl_NewLis
3b50: 74 4f 62 6a 28 20 30 2c 20 4e 55 4c 4c 29 3b 0a tObj( 0, NULL);.
3b60: 0a 20 20 20 20 69 66 20 28 21 76 65 72 62 6f 73 . if (!verbos
3b70: 65 29 20 7b 0a 09 66 6f 72 20 28 69 6e 64 65 78 e) {..for (index
3b80: 20 3d 20 30 3b 20 3b 20 69 6e 64 65 78 2b 2b 29 = 0; ; index++)
3b90: 20 7b 0a 09 20 20 20 20 63 70 20 3d 20 28 63 68 {.. cp = (ch
3ba0: 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 ar*)SSL_get_ciph
3bb0: 65 72 5f 6c 69 73 74 28 20 73 73 6c 2c 20 69 6e er_list( ssl, in
3bc0: 64 65 78 29 3b 0a 09 20 20 20 20 69 66 20 28 63 dex);.. if (c
3bd0: 70 20 3d 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b p == NULL) break
3be0: 3b 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
3bf0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
3c00: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c interp, objPtr,
3c10: 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 ...Tcl_NewString
3c20: 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 3b 0a Obj( cp, -1) );.
3c30: 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a .}. } else {.
3c40: 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 5f 63 69 .sk = SSL_get_ci
3c50: 70 68 65 72 73 28 73 73 6c 29 3b 0a 0a 09 66 6f phers(ssl);...fo
3c60: 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 69 6e r (index = 0; in
3c70: 64 65 78 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 dex < sk_SSL_CIP
3c80: 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 6e 64 HER_num(sk); ind
3c90: 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 72 65 67 ex++) {.. reg
3ca0: 69 73 74 65 72 20 73 69 7a 65 5f 74 20 69 3b 0a ister size_t i;.
3cb0: 09 20 20 20 20 53 53 4c 5f 43 49 50 48 45 52 5f . SSL_CIPHER_
3cc0: 64 65 73 63 72 69 70 74 69 6f 6e 28 20 73 6b 5f description( sk_
3cd0: 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 SSL_CIPHER_value
3ce0: 28 20 73 6b 2c 20 69 6e 64 65 78 29 2c 0a 09 09 ( sk, index),...
3cf0: 09 09 20 20 20 20 62 75 66 2c 20 73 69 7a 65 6f .. buf, sizeo
3d00: 66 28 62 75 66 29 29 3b 0a 09 20 20 20 20 66 6f f(buf));.. fo
3d10: 72 20 28 69 20 3d 20 73 74 72 6c 65 6e 28 62 75 r (i = strlen(bu
3d20: 66 29 20 2d 20 31 3b 20 69 20 3b 20 69 2d 2d 29 f) - 1; i ; i--)
3d30: 20 7b 0a 09 09 69 66 20 28 62 75 66 5b 69 5d 20 {...if (buf[i]
3d40: 3d 3d 20 27 20 27 20 7c 7c 20 62 75 66 5b 69 5d == ' ' || buf[i]
3d50: 20 3d 3d 20 27 5c 6e 27 20 7c 7c 0a 09 09 20 20 == '\n' ||...
3d60: 20 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 72 27 buf[i] == '\r'
3d70: 20 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c || buf[i] == '\
3d80: 74 27 29 20 7b 0a 09 09 20 20 20 20 62 75 66 5b t') {... buf[
3d90: 69 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 7d 20 65 i] = '\0';...} e
3da0: 6c 73 65 20 7b 0a 09 09 20 20 20 20 62 72 65 61 lse {... brea
3db0: 6b 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 k;...}.. }..
3dc0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
3dd0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 pendElement( int
3de0: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 erp, objPtr,...T
3df0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
3e00: 20 62 75 66 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a buf, -1) );..}.
3e10: 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 66 72 }. SSL_fr
3e20: 65 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c ee(ssl);. SSL
3e30: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
3e40: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
3e50: 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f esult( interp, o
3e60: 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 bjPtr);. retu
3e70: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f rn TCL_OK;.}.../
3e80: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ec0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 48 61 -------. *. * Ha
3ed0: 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 2d 2d ndshakeObjCmd --
3ee0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 63 6f 6d 6d . *. *.This comm
3ef0: 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20 76 and is used to v
3f00: 65 72 69 66 79 20 77 68 65 74 68 65 72 20 74 68 erify whether th
3f10: 65 20 68 61 6e 64 73 68 61 6b 65 20 69 73 20 63 e handshake is c
3f20: 6f 6d 70 6c 65 74 65 0a 20 2a 09 6f 72 20 6e 6f omplete. *.or no
3f30: 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 t.. *. * Results
3f40: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
3f50: 54 63 6c 20 72 65 73 75 6c 74 2e 20 31 20 6d 65 Tcl result. 1 me
3f60: 61 6e 73 20 68 61 6e 64 73 68 61 6b 65 20 63 6f ans handshake co
3f70: 6d 70 6c 65 74 65 2c 20 30 20 6d 65 61 6e 73 20 mplete, 0 means
3f80: 70 65 6e 64 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 pending.. *. * S
3f90: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
3fa0: 4d 61 79 20 66 6f 72 63 65 20 53 53 4c 20 6e 65 May force SSL ne
3fb0: 67 6f 74 69 61 74 69 6f 6e 20 74 6f 20 74 61 6b gotiation to tak
3fc0: 65 20 70 6c 61 63 65 2e 0a 20 2a 0a 20 2a 2d 2d e place.. *. *--
3fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4010: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
4020: 74 0a 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d t.HandshakeObjCm
4030: 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e d(clientData, in
4040: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
4050: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ). ClientData
4060: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 clientData;./*
4070: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 Not used. */.
4080: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
4090: 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a erp;. int obj
40a0: 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a c;. Tcl_Obj *
40b0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a CONST objv[];.{.
40c0: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
40d0: 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 chan;../* The ch
40e0: 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 6d annel to set a m
40f0: 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 53 ode on. */. S
4100: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 09 tate *statePtr;.
4110: 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 65 ./* client state
4120: 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 20 for ssl socket
4130: 2a 2f 0a 20 20 20 20 69 6e 74 20 72 65 74 20 3d */. int ret =
4140: 20 31 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 1;.. if (obj
4150: 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 c != 2) {..Tcl_W
4160: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
4170: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 rp, 1, objv, "ch
4180: 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 74 75 72 6e annel");..return
4190: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
41a0: 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 }.. chan = Tc
41b0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 l_GetChannel(int
41c0: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
41d0: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 ngFromObj(objv[1
41e0: 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b ], NULL), NULL);
41f0: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d . if (chan ==
4200: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
4210: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
4220: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
4230: 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 if (channelT
4240: 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c ypeVersion == TL
4250: 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f S_CHANNEL_VERSIO
4260: 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4d N_2) {../*.. * M
4270: 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 ake sure to oper
4280: 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f ate on the topmo
4290: 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a st channel.. */.
42a0: 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 .chan = Tcl_GetT
42b0: 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b opChannel(chan);
42c0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 . }. if (T
42d0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
42e0: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 e(chan) != Tls_C
42f0: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a hannelType()) {.
4300: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
4310: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 t(interp, "bad c
4320: 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f hannel \"", Tcl_
4330: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 GetChannelName(c
4340: 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 han),..."\": not
4350: 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c a TLS channel",
4360: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
4370: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
4380: 0a 20 20 20 20 73 74 61 74 65 50 74 72 20 3d 20 . statePtr =
4390: 28 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 65 74 (State *)Tcl_Get
43a0: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 ChannelInstanceD
43b0: 61 74 61 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 ata(chan);..
43c0: 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e 69 74 if (!SSL_is_init
43d0: 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74 65 50 _finished(stateP
43e0: 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 69 6e 74 tr->ssl)) {..int
43f0: 20 65 72 72 3b 0a 09 72 65 74 20 3d 20 54 6c 73 err;..ret = Tls
4400: 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 _WaitForConnect(
4410: 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 29 3b statePtr, &err);
4420: 0a 09 69 66 20 28 28 73 74 61 74 65 50 74 72 2d ..if ((statePtr-
4430: 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 4c >flags & TLS_TCL
4440: 5f 41 53 59 4e 43 29 20 26 26 20 65 72 72 20 3d _ASYNC) && err =
4450: 3d 20 45 41 47 41 49 4e 29 20 7b 0a 09 20 20 20 = EAGAIN) {..
4460: 20 72 65 74 20 3d 20 30 3b 0a 09 7d 0a 09 69 66 ret = 0;..}..if
4470: 20 28 72 65 74 20 3c 20 30 29 20 7b 0a 09 20 20 (ret < 0) {..
4480: 20 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 65 72 CONST char *er
4490: 72 53 74 72 20 3d 20 73 74 61 74 65 50 74 72 2d rStr = statePtr-
44a0: 3e 65 72 72 3b 0a 09 20 20 20 20 54 63 6c 5f 52 >err;.. Tcl_R
44b0: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 esetResult(inter
44c0: 70 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 p);.. Tcl_Set
44d0: 45 72 72 6e 6f 28 65 72 72 29 3b 0a 0a 09 20 20 Errno(err);...
44e0: 20 20 69 66 20 28 21 65 72 72 53 74 72 20 7c 7c if (!errStr ||
44f0: 20 2a 65 72 72 53 74 72 20 3d 3d 20 30 29 20 7b *errStr == 0) {
4500: 0a 09 09 65 72 72 53 74 72 20 3d 20 54 63 6c 5f ...errStr = Tcl_
4510: 50 6f 73 69 78 45 72 72 6f 72 28 69 6e 74 65 72 PosixError(inter
4520: 70 29 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 p);.. }...
4530: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
4540: 74 28 69 6e 74 65 72 70 2c 20 22 68 61 6e 64 73 t(interp, "hands
4550: 68 61 6b 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 hake failed: ",
4560: 65 72 72 53 74 72 2c 0a 09 09 20 20 20 20 28 63 errStr,... (c
4570: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
4580: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
4590: 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ROR;..}. }..
45a0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
45b0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f ult(interp, Tcl_
45c0: 4e 65 77 49 6e 74 4f 62 6a 28 72 65 74 29 29 3b NewIntObj(ret));
45d0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
45e0: 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d OK;.}.../*. *---
45f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4630: 0a 20 2a 0a 20 2a 20 49 6d 70 6f 72 74 4f 62 6a . *. * ImportObj
4640: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 Cmd --. *. *.Thi
4650: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 s procedure is i
4660: 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 nvoked to proces
4670: 73 20 74 68 65 20 22 73 73 6c 22 20 63 6f 6d 6d s the "ssl" comm
4680: 61 6e 64 0a 20 2a 0a 20 2a 09 54 68 65 20 73 73 and. *. *.The ss
4690: 6c 20 63 6f 6d 6d 61 6e 64 20 70 75 73 68 65 73 l command pushes
46a0: 20 53 53 4c 20 6f 76 65 72 20 61 20 28 6e 65 77 SSL over a (new
46b0: 6c 79 20 63 6f 6e 6e 65 63 74 65 64 29 20 74 63 ly connected) tc
46c0: 70 20 73 6f 63 6b 65 74 0a 20 2a 0a 20 2a 20 52 p socket. *. * R
46d0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
46e0: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
46f0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
4700: 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 ects:. *.May mod
4710: 69 66 79 20 74 68 65 20 62 65 68 61 76 69 6f 72 ify the behavior
4720: 20 6f 66 20 61 6e 20 49 4f 20 63 68 61 6e 6e 65 of an IO channe
4730: 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d l.. *. *--------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
4780: 0a 73 74 61 74 69 63 20 69 6e 74 0a 49 6d 70 6f .static int.Impo
4790: 72 74 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 rtObjCmd(clientD
47a0: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
47b0: 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 c, objv). Cli
47c0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
47d0: 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e ta;./* Not used.
47e0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
47f0: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 rp *interp;.
4800: 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 int objc;. Tc
4810: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
4820: 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 v[];.{. Tcl_C
4830: 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a hannel chan;../*
4840: 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 The channel to
4850: 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a set a mode on. *
4860: 2f 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 /. State *sta
4870: 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e tePtr;../* clien
4880: 74 20 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 t state for ssl
4890: 73 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 20 53 53 socket */. SS
48a0: 4c 5f 43 54 58 20 2a 63 74 78 09 3d 20 4e 55 4c L_CTX *ctx.= NUL
48b0: 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a L;. Tcl_Obj *
48c0: 73 63 72 69 70 74 09 3d 20 4e 55 4c 4c 3b 0a 20 script.= NULL;.
48d0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 73 73 Tcl_Obj *pass
48e0: 77 6f 72 64 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 word.= NULL;.
48f0: 20 69 6e 74 20 69 64 78 2c 20 6c 65 6e 3b 0a 20 int idx, len;.
4900: 20 20 20 69 6e 74 20 66 6c 61 67 73 09 09 3d 20 int flags..=
4910: 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 20 20 TLS_TCL_INIT;.
4920: 20 20 69 6e 74 20 73 65 72 76 65 72 09 09 3d 20 int server..=
4930: 30 3b 09 2f 2a 20 69 73 20 63 6f 6e 6e 65 63 74 0;./* is connect
4940: 69 6f 6e 20 69 6e 63 6f 6d 69 6e 67 20 6f 72 20 ion incoming or
4950: 6f 75 74 67 6f 69 6e 67 3f 20 2a 2f 0a 20 20 20 outgoing? */.
4960: 20 63 68 61 72 20 2a 6b 65 79 09 09 3d 20 4e 55 char *key..= NU
4970: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 65 LL;. char *ce
4980: 72 74 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 rt..= NULL;.
4990: 63 68 61 72 20 2a 63 69 70 68 65 72 73 09 3d 20 char *ciphers.=
49a0: 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a NULL;. char *
49b0: 43 41 66 69 6c 65 09 3d 20 4e 55 4c 4c 3b 0a 20 CAfile.= NULL;.
49c0: 20 20 20 63 68 61 72 20 2a 43 41 64 69 72 09 09 char *CAdir..
49d0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 = NULL;. char
49e0: 20 2a 44 48 70 61 72 61 6d 73 09 3d 20 4e 55 4c *DHparams.= NUL
49f0: 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 6d 6f 64 L;. char *mod
4a00: 65 6c 09 09 3d 20 4e 55 4c 4c 3b 0a 23 69 66 6e el..= NULL;.#ifn
4a10: 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 def OPENSSL_NO_T
4a20: 4c 53 45 58 54 0a 20 20 20 20 63 68 61 72 20 2a LSEXT. char *
4a30: 73 65 72 76 65 72 6e 61 6d 65 09 3d 20 4e 55 4c servername.= NUL
4a40: 4c 3b 09 2f 2a 20 68 6f 73 74 6e 61 6d 65 20 66 L;./* hostname f
4a50: 6f 72 20 53 65 72 76 65 72 20 4e 61 6d 65 20 49 or Server Name I
4a60: 6e 64 69 63 61 74 69 6f 6e 20 2a 2f 0a 23 65 6e ndication */.#en
4a70: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 dif.#if defined(
4a80: 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 69 6e 74 NO_SSL2). int
4a90: 20 73 73 6c 32 20 3d 20 30 3b 0a 23 65 6c 73 65 ssl2 = 0;.#else
4aa0: 0a 20 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 . int ssl2 =
4ab0: 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 1;.#endif.#if de
4ac0: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 fined(NO_SSL3).
4ad0: 20 20 20 69 6e 74 20 73 73 6c 33 20 3d 20 30 3b int ssl3 = 0;
4ae0: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 .#else. int s
4af0: 73 6c 33 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a sl3 = 1;.#endif.
4b00: 20 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 int tls1 = 1
4b10: 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 5f 31 ;. int tls1_1
4b20: 20 3d 20 31 3b 0a 20 20 20 20 69 6e 74 20 74 6c = 1;. int tl
4b30: 73 31 5f 32 20 3d 20 31 3b 0a 20 20 20 20 69 6e s1_2 = 1;. in
4b40: 74 20 70 72 6f 74 6f 20 3d 20 30 3b 0a 20 20 20 t proto = 0;.
4b50: 20 69 6e 74 20 76 65 72 69 66 79 20 3d 20 30 2c int verify = 0,
4b60: 20 72 65 71 75 69 72 65 20 3d 20 30 2c 20 72 65 require = 0, re
4b70: 71 75 65 73 74 20 3d 20 31 3b 0a 0a 20 20 20 20 quest = 1;..
4b80: 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a if (objc < 2) {.
4b90: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
4ba0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
4bb0: 76 2c 20 22 63 68 61 6e 6e 65 6c 20 3f 6f 70 74 v, "channel ?opt
4bc0: 69 6f 6e 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e ions?");..return
4bd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4be0: 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 }.. chan = Tc
4bf0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 l_GetChannel(int
4c00: 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 erp, Tcl_GetStri
4c10: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 ngFromObj(objv[1
4c20: 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b ], NULL), NULL);
4c30: 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d . if (chan ==
4c40: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
4c50: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
4c60: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
4c70: 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 if (channelT
4c80: 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c ypeVersion == TL
4c90: 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f S_CHANNEL_VERSIO
4ca0: 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4d N_2) {../*.. * M
4cb0: 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 ake sure to oper
4cc0: 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f ate on the topmo
4cd0: 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a st channel.. */.
4ce0: 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 .chan = Tcl_GetT
4cf0: 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b opChannel(chan);
4d00: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 20 . }.. for
4d10: 28 69 64 78 20 3d 20 32 3b 20 69 64 78 20 3c 20 (idx = 2; idx <
4d20: 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 objc; idx++) {..
4d30: 63 68 61 72 20 2a 6f 70 74 20 3d 20 54 63 6c 5f char *opt = Tcl_
4d40: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
4d50: 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c (objv[idx], NULL
4d60: 29 3b 0a 0a 09 69 66 20 28 6f 70 74 5b 30 5d 20 );...if (opt[0]
4d70: 21 3d 20 27 2d 27 29 0a 09 20 20 20 20 62 72 65 != '-').. bre
4d80: 61 6b 3b 0a 0a 09 4f 50 54 53 54 52 28 20 22 2d ak;...OPTSTR( "-
4d90: 63 61 64 69 72 22 2c 20 43 41 64 69 72 29 3b 0a cadir", CAdir);.
4da0: 09 4f 50 54 53 54 52 28 20 22 2d 63 61 66 69 6c .OPTSTR( "-cafil
4db0: 65 22 2c 20 43 41 66 69 6c 65 29 3b 0a 09 4f 50 e", CAfile);..OP
4dc0: 54 53 54 52 28 20 22 2d 63 65 72 74 66 69 6c 65 TSTR( "-certfile
4dd0: 22 2c 20 63 65 72 74 29 3b 0a 09 4f 50 54 53 54 ", cert);..OPTST
4de0: 52 28 20 22 2d 63 69 70 68 65 72 22 2c 20 63 69 R( "-cipher", ci
4df0: 70 68 65 72 73 29 3b 0a 09 4f 50 54 4f 42 4a 28 phers);..OPTOBJ(
4e00: 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 63 72 "-command", scr
4e10: 69 70 74 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 ipt);..OPTSTR( "
4e20: 2d 64 68 70 61 72 61 6d 73 22 2c 20 44 48 70 61 -dhparams", DHpa
4e30: 72 61 6d 73 29 3b 0a 09 4f 50 54 53 54 52 28 20 rams);..OPTSTR(
4e40: 22 2d 6b 65 79 66 69 6c 65 22 2c 20 6b 65 79 29 "-keyfile", key)
4e50: 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 6d 6f 64 ;..OPTSTR( "-mod
4e60: 65 6c 22 2c 20 6d 6f 64 65 6c 29 3b 0a 09 4f 50 el", model);..OP
4e70: 54 4f 42 4a 28 20 22 2d 70 61 73 73 77 6f 72 64 TOBJ( "-password
4e80: 22 2c 20 70 61 73 73 77 6f 72 64 29 3b 0a 09 4f ", password);..O
4e90: 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 69 72 PTBOOL( "-requir
4ea0: 65 22 2c 20 72 65 71 75 69 72 65 29 3b 0a 09 4f e", require);..O
4eb0: 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 65 73 PTBOOL( "-reques
4ec0: 74 22 2c 20 72 65 71 75 65 73 74 29 3b 0a 09 4f t", request);..O
4ed0: 50 54 42 4f 4f 4c 28 20 22 2d 73 65 72 76 65 72 PTBOOL( "-server
4ee0: 22 2c 20 73 65 72 76 65 72 29 3b 0a 23 69 66 6e ", server);.#ifn
4ef0: 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 def OPENSSL_NO_T
4f00: 4c 53 45 58 54 0a 20 20 20 20 20 20 20 20 4f 50 LSEXT. OP
4f10: 54 53 54 52 28 20 22 2d 73 65 72 76 65 72 6e 61 TSTR( "-serverna
4f20: 6d 65 22 2c 20 73 65 72 76 65 72 6e 61 6d 65 29 me", servername)
4f30: 3b 0a 23 65 6e 64 69 66 0a 0a 09 4f 50 54 42 4f ;.#endif...OPTBO
4f40: 4f 4c 28 20 22 2d 73 73 6c 32 22 2c 20 73 73 6c OL( "-ssl2", ssl
4f50: 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 2);..OPTBOOL( "-
4f60: 73 73 6c 33 22 2c 20 73 73 6c 33 29 3b 0a 09 4f ssl3", ssl3);..O
4f70: 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 22 2c PTBOOL( "-tls1",
4f80: 20 74 6c 73 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c tls1);..OPTBOOL
4f90: 28 20 22 2d 74 6c 73 31 2e 31 22 2c 20 74 6c 73 ( "-tls1.1", tls
4fa0: 31 5f 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 1_1);..OPTBOOL(
4fb0: 22 2d 74 6c 73 31 2e 32 22 2c 20 74 6c 73 31 5f "-tls1.2", tls1_
4fc0: 32 29 3b 0a 0a 09 4f 50 54 42 41 44 28 20 22 6f 2);...OPTBAD( "o
4fd0: 70 74 69 6f 6e 22 2c 20 22 2d 63 61 64 69 72 2c ption", "-cadir,
4fe0: 20 2d 63 61 66 69 6c 65 2c 20 2d 63 65 72 74 66 -cafile, -certf
4ff0: 69 6c 65 2c 20 2d 63 69 70 68 65 72 2c 20 2d 63 ile, -cipher, -c
5000: 6f 6d 6d 61 6e 64 2c 20 2d 64 68 70 61 72 61 6d ommand, -dhparam
5010: 73 2c 20 2d 6b 65 79 66 69 6c 65 2c 20 2d 6d 6f s, -keyfile, -mo
5020: 64 65 6c 2c 20 2d 70 61 73 73 77 6f 72 64 2c 20 del, -password,
5030: 2d 72 65 71 75 69 72 65 2c 20 2d 72 65 71 75 65 -require, -reque
5040: 73 74 2c 20 2d 73 65 72 76 65 72 2c 20 2d 73 65 st, -server, -se
5050: 72 76 65 72 6e 61 6d 65 2c 20 2d 73 73 6c 32 2c rvername, -ssl2,
5060: 20 2d 73 73 6c 33 2c 20 2d 74 6c 73 31 2c 20 2d -ssl3, -tls1, -
5070: 74 6c 73 31 2e 31 20 6f 72 20 2d 74 6c 73 31 2e tls1.1 or -tls1.
5080: 32 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 54 43 2");...return TC
5090: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
50a0: 20 20 20 69 66 20 28 72 65 71 75 65 73 74 29 09 if (request).
50b0: 20 20 20 20 76 65 72 69 66 79 20 7c 3d 20 53 53 verify |= SS
50c0: 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45 4e 54 5f L_VERIFY_CLIENT_
50d0: 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45 52 49 46 ONCE | SSL_VERIF
50e0: 59 5f 50 45 45 52 3b 0a 20 20 20 20 69 66 20 28 Y_PEER;. if (
50f0: 72 65 71 75 65 73 74 20 26 26 20 72 65 71 75 69 request && requi
5100: 72 65 29 20 76 65 72 69 66 79 20 7c 3d 20 53 53 re) verify |= SS
5110: 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 L_VERIFY_FAIL_IF
5120: 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 3b 0a 20 _NO_PEER_CERT;.
5130: 20 20 20 69 66 20 28 76 65 72 69 66 79 20 3d 3d if (verify ==
5140: 20 30 29 09 76 65 72 69 66 79 20 3d 20 53 53 4c 0).verify = SSL
5150: 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a 20 _VERIFY_NONE;..
5160: 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c proto |= (ssl
5170: 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 2 ? TLS_PROTO_SS
5180: 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f L2 : 0);. pro
5190: 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f 20 54 4c to |= (ssl3 ? TL
51a0: 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 30 S_PROTO_SSL3 : 0
51b0: 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 );. proto |=
51c0: 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 52 4f 54 (tls1 ? TLS_PROT
51d0: 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a 20 20 20 O_TLS1 : 0);.
51e0: 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f proto |= (tls1_
51f0: 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 1 ? TLS_PROTO_TL
5200: 53 31 5f 31 20 3a 20 30 29 3b 0a 20 20 20 20 70 S1_1 : 0);. p
5210: 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 32 20 roto |= (tls1_2
5220: 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 ? TLS_PROTO_TLS1
5230: 5f 32 20 3a 20 30 29 3b 0a 0a 20 20 20 20 2f 2a _2 : 0);.. /*
5240: 20 72 65 73 65 74 20 74 6f 20 4e 55 4c 4c 20 69 reset to NULL i
5250: 66 20 62 6c 61 6e 6b 20 73 74 72 69 6e 67 20 70 f blank string p
5260: 72 6f 76 69 64 65 64 20 2a 2f 0a 20 20 20 20 69 rovided */. i
5270: 66 20 28 63 65 72 74 20 26 26 20 21 2a 63 65 72 f (cert && !*cer
5280: 74 29 09 09 63 65 72 74 09 20 3d 20 4e 55 4c 4c t)..cert. = NULL
5290: 3b 0a 20 20 20 20 69 66 20 28 6b 65 79 20 26 26 ;. if (key &&
52a0: 20 21 2a 6b 65 79 29 09 09 6b 65 79 09 20 3d 20 !*key)..key. =
52b0: 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 63 69 NULL;. if (ci
52c0: 70 68 65 72 73 20 26 26 20 21 2a 63 69 70 68 65 phers && !*ciphe
52d0: 72 73 29 09 63 69 70 68 65 72 73 09 20 3d 20 4e rs).ciphers. = N
52e0: 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 66 ULL;. if (CAf
52f0: 69 6c 65 20 26 26 20 21 2a 43 41 66 69 6c 65 29 ile && !*CAfile)
5300: 09 43 41 66 69 6c 65 09 20 3d 20 4e 55 4c 4c 3b .CAfile. = NULL;
5310: 0a 20 20 20 20 69 66 20 28 43 41 64 69 72 20 26 . if (CAdir &
5320: 26 20 21 2a 43 41 64 69 72 29 09 43 41 64 69 72 & !*CAdir).CAdir
5330: 09 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 . = NULL;. if
5340: 20 28 44 48 70 61 72 61 6d 73 20 26 26 20 21 2a (DHparams && !*
5350: 44 48 70 61 72 61 6d 73 29 09 44 48 70 61 72 61 DHparams).DHpara
5360: 6d 73 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 ms = NULL;..
5370: 2f 2a 20 6e 65 77 20 53 53 4c 20 73 74 61 74 65 /* new SSL state
5380: 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 */. statePtr
5390: 09 09 3d 20 28 53 74 61 74 65 20 2a 29 20 63 6b ..= (State *) ck
53a0: 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 alloc((unsigned)
53b0: 20 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 3b sizeof(State));
53c0: 0a 20 20 20 20 6d 65 6d 73 65 74 28 73 74 61 74 . memset(stat
53d0: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
53e0: 53 74 61 74 65 29 29 3b 0a 0a 20 20 20 20 73 74 State));.. st
53f0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 09 3d 20 atePtr->flags.=
5400: 66 6c 61 67 73 3b 0a 20 20 20 20 73 74 61 74 65 flags;. state
5410: 50 74 72 2d 3e 69 6e 74 65 72 70 09 3d 20 69 6e Ptr->interp.= in
5420: 74 65 72 70 3b 0a 20 20 20 20 73 74 61 74 65 50 terp;. stateP
5430: 74 72 2d 3e 76 66 6c 61 67 73 09 3d 20 76 65 72 tr->vflags.= ver
5440: 69 66 79 3b 0a 20 20 20 20 73 74 61 74 65 50 74 ify;. statePt
5450: 72 2d 3e 65 72 72 09 3d 20 22 22 3b 0a 0a 20 20 r->err.= "";..
5460: 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 73 63 /* allocate sc
5470: 72 69 70 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ript */. if (
5480: 73 63 72 69 70 74 29 20 7b 0a 09 28 76 6f 69 64 script) {..(void
5490: 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 ) Tcl_GetStringF
54a0: 72 6f 6d 4f 62 6a 28 73 63 72 69 70 74 2c 20 26 romObj(script, &
54b0: 6c 65 6e 29 3b 0a 09 69 66 20 28 6c 65 6e 29 20 len);..if (len)
54c0: 7b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 2d {.. statePtr-
54d0: 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 73 63 72 69 >callback = scri
54e0: 70 74 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 pt;.. Tcl_Inc
54f0: 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 rRefCount(stateP
5500: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 tr->callback);..
5510: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 }. }.. /*
5520: 61 6c 6c 6f 63 61 74 65 20 70 61 73 73 77 6f 72 allocate passwor
5530: 64 20 2a 2f 0a 20 20 20 20 69 66 20 28 70 61 73 d */. if (pas
5540: 73 77 6f 72 64 29 20 7b 0a 09 28 76 6f 69 64 29 sword) {..(void)
5550: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
5560: 6f 6d 4f 62 6a 28 70 61 73 73 77 6f 72 64 2c 20 omObj(password,
5570: 26 6c 65 6e 29 3b 0a 09 69 66 20 28 6c 65 6e 29 &len);..if (len)
5580: 20 7b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 {.. statePtr
5590: 2d 3e 70 61 73 73 77 6f 72 64 20 3d 20 70 61 73 ->password = pas
55a0: 73 77 6f 72 64 3b 0a 09 20 20 20 20 54 63 6c 5f sword;.. Tcl_
55b0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 IncrRefCount(sta
55c0: 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 tePtr->password)
55d0: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ;..}. }..
55e0: 69 66 20 28 6d 6f 64 65 6c 20 21 3d 20 4e 55 4c if (model != NUL
55f0: 4c 29 20 7b 0a 09 69 6e 74 20 6d 6f 64 65 3b 0a L) {..int mode;.
5600: 09 2f 2a 20 47 65 74 20 74 68 65 20 22 6d 6f 64 ./* Get the "mod
5610: 65 6c 22 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 el" context */..
5620: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
5630: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6d 6f annel(interp, mo
5640: 64 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 09 69 66 del, &mode);..if
5650: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
5660: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
5670: 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63 . Tls_Free((c
5680: 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 har *) statePtr)
5690: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
56a0: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 20 L_ERROR;..}..if
56b0: 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 (channelTypeVers
56c0: 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e ion == TLS_CHANN
56d0: 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a EL_VERSION_2) {.
56e0: 09 20 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a 20 . /*.. *
56f0: 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 Make sure to ope
5700: 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d rate on the topm
5710: 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 20 20 ost channel..
5720: 20 20 2a 2f 0a 09 20 20 20 20 63 68 61 6e 20 3d */.. chan =
5730: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
5740: 65 6c 28 63 68 61 6e 29 3b 0a 09 7d 0a 09 69 66 el(chan);..}..if
5750: 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c (Tcl_GetChannel
5760: 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c Type(chan) != Tl
5770: 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 s_ChannelType())
5780: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 {.. Tcl_Appe
5790: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
57a0: 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 "bad channel \"
57b0: 22 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 74 ",... Tcl_Get
57c0: 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e ChannelName(chan
57d0: 29 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c ), "\": not a TL
57e0: 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c S channel", NULL
57f0: 29 3b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 );.. Tls_Free
5800: 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 ((char *) stateP
5810: 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tr);.. return
5820: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 TCL_ERROR;..}..
5830: 63 74 78 20 3d 20 28 28 53 74 61 74 65 20 2a 29 ctx = ((State *)
5840: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
5850: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 stanceData(chan)
5860: 29 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c )->ctx;. } el
5870: 73 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 3d se {..if ((ctx =
5880: 20 43 54 58 5f 49 6e 69 74 28 73 74 61 74 65 50 CTX_Init(stateP
5890: 74 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 tr, proto, key,
58a0: 63 65 72 74 2c 20 43 41 64 69 72 2c 20 43 41 66 cert, CAdir, CAf
58b0: 69 6c 65 2c 20 63 69 70 68 65 72 73 2c 0a 09 09 ile, ciphers,...
58c0: 44 48 70 61 72 61 6d 73 29 29 20 3d 3d 20 28 53 DHparams)) == (S
58d0: 53 4c 5f 43 54 58 2a 29 30 29 20 7b 0a 09 20 20 SL_CTX*)0) {..
58e0: 20 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 Tls_Free((char
58f0: 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 *) statePtr);..
5900: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
5910: 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a RROR;..}. }..
5920: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 63 74 statePtr->ct
5930: 78 20 3d 20 63 74 78 3b 0a 0a 20 20 20 20 2f 2a x = ctx;.. /*
5940: 0a 20 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 . * We need
5950: 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 to make sure tha
5960: 74 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 6f t the channel wo
5970: 72 6b 73 20 69 6e 20 62 69 6e 61 72 79 20 28 66 rks in binary (f
5980: 6f 72 20 74 68 65 0a 20 20 20 20 20 2a 20 65 6e or the. * en
5990: 63 72 79 70 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 cryption not to
59a0: 67 65 74 20 67 6f 6f 66 65 64 20 75 70 29 2e 0a get goofed up)..
59b0: 20 20 20 20 20 2a 20 57 65 20 6f 6e 6c 79 20 77 * We only w
59c0: 61 6e 74 20 74 6f 20 61 64 6a 75 73 74 20 74 68 ant to adjust th
59d0: 65 20 62 75 66 66 65 72 69 6e 67 20 69 6e 20 70 e buffering in p
59e0: 72 65 2d 76 32 20 63 68 61 6e 6e 65 6c 73 2c 20 re-v2 channels,
59f0: 77 68 65 72 65 0a 20 20 20 20 20 2a 20 65 61 63 where. * eac
5a00: 68 20 63 68 61 6e 6e 65 6c 20 69 6e 20 74 68 65 h channel in the
5a10: 20 73 74 61 63 6b 20 6d 61 69 6e 74 61 69 6e 65 stack maintaine
5a20: 64 20 69 74 73 20 6f 77 6e 20 62 75 66 66 65 72 d its own buffer
5a30: 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 s.. */. T
5a40: 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 cl_SetChannelOpt
5a50: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e ion(interp, chan
5a60: 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 , "-translation"
5a70: 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 20 , "binary");.
5a80: 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 if (channelType
5a90: 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 Version == TLS_C
5aa0: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 31 HANNEL_VERSION_1
5ab0: 29 20 7b 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e ) {..Tcl_SetChan
5ac0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
5ad0: 2c 20 63 68 61 6e 2c 20 22 2d 62 75 66 66 65 72 , chan, "-buffer
5ae0: 69 6e 67 22 2c 20 22 6e 6f 6e 65 22 29 3b 0a 20 ing", "none");.
5af0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 63 68 }.. if (ch
5b00: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
5b10: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
5b20: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 73 74 VERSION_2) {..st
5b30: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 atePtr->self = T
5b40: 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 cl_StackChannel(
5b50: 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e interp, Tls_Chan
5b60: 6e 65 6c 54 79 70 65 28 29 2c 0a 09 09 28 43 6c nelType(),...(Cl
5b70: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
5b80: 74 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c tr, (TCL_READABL
5b90: 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 E | TCL_WRITABLE
5ba0: 29 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 7d 20 ), chan);. }
5bb0: 65 6c 73 65 20 7b 0a 09 73 74 61 74 65 50 74 72 else {..statePtr
5bc0: 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a 09 ->self = chan;..
5bd0: 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c Tcl_StackChannel
5be0: 28 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 (interp, Tls_Cha
5bf0: 6e 6e 65 6c 54 79 70 65 28 29 2c 0a 09 09 28 43 nnelType(),...(C
5c00: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
5c10: 50 74 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 Ptr, (TCL_READAB
5c20: 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c LE | TCL_WRITABL
5c30: 45 29 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 7d E), chan);. }
5c40: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
5c50: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
5c60: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
5c70: 0a 09 2f 2a 0a 09 20 2a 20 4e 6f 20 75 73 65 20 ../*.. * No use
5c80: 6f 66 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c of Tcl_Eventuall
5c90: 79 46 72 65 65 20 62 65 63 61 75 73 65 20 6e 6f yFree because no
5ca0: 20 70 6f 73 73 69 62 6c 65 20 54 63 6c 5f 50 72 possible Tcl_Pr
5cb0: 65 73 65 72 76 65 2e 0a 09 20 2a 2f 0a 09 54 6c eserve... */..Tl
5cc0: 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 s_Free((char *)
5cd0: 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 statePtr);..retu
5ce0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
5cf0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 }.. /*.
5d00: 20 2a 20 53 53 4c 20 49 6e 69 74 69 61 6c 69 7a * SSL Initializ
5d10: 61 74 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a 0a 20 ation. */..
5d20: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c statePtr->ssl
5d30: 20 3d 20 53 53 4c 5f 6e 65 77 28 73 74 61 74 65 = SSL_new(state
5d40: 50 74 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 69 Ptr->ctx);. i
5d50: 66 20 28 21 73 74 61 74 65 50 74 72 2d 3e 73 73 f (!statePtr->ss
5d60: 6c 29 20 7b 0a 09 2f 2a 20 53 53 4c 20 6c 69 62 l) {../* SSL lib
5d70: 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a 09 54 rary error */..T
5d80: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
5d90: 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 6e 27 interp, "couldn'
5da0: 74 20 63 6f 6e 73 74 72 75 63 74 20 73 73 6c 20 t construct ssl
5db0: 73 65 73 73 69 6f 6e 3a 20 22 2c 20 52 45 41 53 session: ", REAS
5dc0: 4f 4e 28 29 2c 0a 09 09 28 63 68 61 72 20 2a 29 ON(),...(char *)
5dd0: 20 4e 55 4c 4c 29 3b 0a 09 54 6c 73 5f 46 72 65 NULL);..Tls_Fre
5de0: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
5df0: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 Ptr);..return TC
5e00: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
5e10: 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f #ifndef OPENSSL_
5e20: 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 69 66 NO_TLSEXT. if
5e30: 20 28 73 65 72 76 65 72 6e 61 6d 65 29 20 7b 0a (servername) {.
5e40: 20 20 20 20 20 20 20 20 69 66 20 28 21 53 53 4c if (!SSL
5e50: 5f 73 65 74 5f 74 6c 73 65 78 74 5f 68 6f 73 74 _set_tlsext_host
5e60: 5f 6e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e _name(statePtr->
5e70: 73 73 6c 2c 20 73 65 72 76 65 72 6e 61 6d 65 29 ssl, servername)
5e80: 20 26 26 20 72 65 71 75 69 72 65 29 20 7b 0a 20 && require) {.
5e90: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 Tcl_A
5ea0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
5eb0: 72 70 2c 20 22 73 65 74 74 69 6e 67 20 54 4c 53 rp, "setting TLS
5ec0: 20 68 6f 73 74 20 6e 61 6d 65 20 65 78 74 65 6e host name exten
5ed0: 73 69 6f 6e 20 66 61 69 6c 65 64 22 2c 0a 20 20 sion failed",.
5ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 (c
5ef0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 har *) NULL);.
5f00: 20 20 20 20 20 20 20 20 20 20 54 6c 73 5f 46 72 Tls_Fr
5f10: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 ee((char *) stat
5f20: 65 50 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20 ePtr);.
5f30: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
5f40: 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 ROR;. }.
5f50: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 }.#endif..
5f60: 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 43 /*. * SSL C
5f70: 61 6c 6c 62 61 63 6b 73 0a 20 20 20 20 20 2a 2f allbacks. */
5f80: 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 61 70 .. SSL_set_ap
5f90: 70 5f 64 61 74 61 28 73 74 61 74 65 50 74 72 2d p_data(statePtr-
5fa0: 3e 73 73 6c 2c 20 28 56 4f 49 44 20 2a 29 73 74 >ssl, (VOID *)st
5fb0: 61 74 65 50 74 72 29 3b 09 2f 2a 20 70 6f 69 6e atePtr);./* poin
5fc0: 74 20 62 61 63 6b 20 74 6f 20 75 73 20 2a 2f 0a t back to us */.
5fd0: 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 76 65 72 . SSL_set_ver
5fe0: 69 66 79 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ify(statePtr->ss
5ff0: 6c 2c 20 76 65 72 69 66 79 2c 20 56 65 72 69 66 l, verify, Verif
6000: 79 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 yCallback);..
6010: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 69 6e 66 SSL_CTX_set_inf
6020: 6f 5f 63 61 6c 6c 62 61 63 6b 28 73 74 61 74 65 o_callback(state
6030: 50 74 72 2d 3e 63 74 78 2c 20 49 6e 66 6f 43 61 Ptr->ctx, InfoCa
6040: 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a llback);.. /*
6050: 20 43 72 65 61 74 65 20 54 63 6c 5f 43 68 61 6e Create Tcl_Chan
6060: 6e 65 6c 20 42 49 4f 20 48 61 6e 64 6c 65 72 20 nel BIO Handler
6070: 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d */. statePtr-
6080: 3e 70 5f 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 >p_bio.= BIO_new
6090: 5f 74 63 6c 28 73 74 61 74 65 50 74 72 2c 20 42 _tcl(statePtr, B
60a0: 49 4f 5f 43 4c 4f 53 45 29 3b 0a 20 20 20 20 73 IO_CLOSE);. s
60b0: 74 61 74 65 50 74 72 2d 3e 62 69 6f 09 3d 20 42 tatePtr->bio.= B
60c0: 49 4f 5f 6e 65 77 28 42 49 4f 5f 66 5f 73 73 6c IO_new(BIO_f_ssl
60d0: 28 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 65 ());.. if (se
60e0: 72 76 65 72 29 20 7b 0a 09 73 74 61 74 65 50 74 rver) {..statePt
60f0: 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f r->flags |= TLS_
6100: 54 43 4c 5f 53 45 52 56 45 52 3b 0a 09 53 53 4c TCL_SERVER;..SSL
6110: 5f 73 65 74 5f 61 63 63 65 70 74 5f 73 74 61 74 _set_accept_stat
6120: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 e(statePtr->ssl)
6130: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
6140: 53 53 4c 5f 73 65 74 5f 63 6f 6e 6e 65 63 74 5f SSL_set_connect_
6150: 73 74 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e state(statePtr->
6160: 73 73 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ssl);. }.
6170: 53 53 4c 5f 73 65 74 5f 62 69 6f 28 73 74 61 74 SSL_set_bio(stat
6180: 65 50 74 72 2d 3e 73 73 6c 2c 20 73 74 61 74 65 ePtr->ssl, state
6190: 50 74 72 2d 3e 70 5f 62 69 6f 2c 20 73 74 61 74 Ptr->p_bio, stat
61a0: 65 50 74 72 2d 3e 70 5f 62 69 6f 29 3b 0a 20 20 ePtr->p_bio);.
61b0: 20 20 42 49 4f 5f 73 65 74 5f 73 73 6c 28 73 74 BIO_set_ssl(st
61c0: 61 74 65 50 74 72 2d 3e 62 69 6f 2c 20 73 74 61 atePtr->bio, sta
61d0: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 42 49 4f 5f tePtr->ssl, BIO_
61e0: 4e 4f 43 4c 4f 53 45 29 3b 0a 0a 20 20 20 20 2f NOCLOSE);.. /
61f0: 2a 0a 20 20 20 20 20 2a 20 45 6e 64 20 6f 66 20 *. * End of
6200: 53 53 4c 20 49 6e 69 74 0a 20 20 20 20 20 2a 2f SSL Init. */
6210: 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
6220: 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 lt(interp, (char
6230: 20 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e *) Tcl_GetChann
6240: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
6250: 3e 73 65 6c 66 29 2c 0a 09 20 20 20 20 54 43 4c >self),.. TCL
6260: 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 _VOLATILE);.
6270: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
6280: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
6290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
62d0: 2a 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 * UnimportObjCmd
62e0: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
62f0: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f rocedure is invo
6300: 6b 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 ked to remove th
6310: 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 e topmost channe
6320: 6c 20 66 69 6c 74 65 72 2e 0a 20 2a 0a 20 2a 20 l filter.. *. *
6330: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
6340: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
6350: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
6360: 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f fects:. *.May mo
6370: 64 69 66 79 20 74 68 65 20 62 65 68 61 76 69 6f dify the behavio
6380: 72 20 6f 66 20 61 6e 20 49 4f 20 63 68 61 6e 6e r of an IO chann
6390: 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d el.. *. *-------
63a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
63e0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 55 6e 69 ..static int.Uni
63f0: 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 63 6c 69 65 mportObjCmd(clie
6400: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
6410: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
6420: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
6430: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
6440: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
6450: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
6460: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
6470: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
6480: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 objv[];.{. Tc
6490: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 l_Channel chan;.
64a0: 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 ./* The channel
64b0: 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e to set a mode on
64c0: 2e 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 6f 62 . */.. if (ob
64d0: 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f jc != 2) {..Tcl_
64e0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
64f0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 erp, 1, objv, "c
6500: 68 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 74 75 72 hannel");..retur
6510: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
6520: 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 }.. chan = T
6530: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
6540: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
6550: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 4e 55 ing(objv[1]), NU
6560: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 LL);. if (cha
6570: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
6580: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
6590: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
65a0: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 63 68 61 }.. if (cha
65b0: 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 nnelTypeVersion
65c0: 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 == TLS_CHANNEL_V
65d0: 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a ERSION_2) {../*.
65e0: 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f . * Make sure to
65f0: 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 operate on the
6600: 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a topmost channel.
6610: 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c . */..chan = Tcl
6620: 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 _GetTopChannel(c
6630: 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 han);. }..
6640: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e if (Tcl_GetChan
6650: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d nelType(chan) !=
6660: 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 Tls_ChannelType
6670: 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e ()) {..Tcl_Appen
6680: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
6690: 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 "bad channel \""
66a0: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c , Tcl_GetChannel
66b0: 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c Name(chan),..."\
66c0: 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 ": not a TLS cha
66d0: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 nnel", NULL);..r
66e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
66f0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
6700: 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e Tcl_UnstackChann
6710: 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 el(interp, chan)
6720: 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b == TCL_ERROR) {
6730: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6740: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 OR;. }.. r
6750: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
6760: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
67b0: 20 43 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e CTX_Init -- con
67c0: 73 74 72 75 63 74 20 61 20 53 53 4c 5f 43 54 58 struct a SSL_CTX
67d0: 20 69 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 instance. *. *
67e0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76 61 Results:. *.A va
67f0: 6c 69 64 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 lid SSL_CTX inst
6800: 61 6e 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a ance or NULL.. *
6810: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
6820: 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 :. *.constructs
6830: 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 SSL context (CTX
6840: 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ). *. *---------
6850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
6890: 73 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a static SSL_CTX *
68a0: 0a 43 54 58 5f 49 6e 69 74 28 73 74 61 74 65 50 .CTX_Init(stateP
68b0: 74 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 tr, proto, key,
68c0: 63 65 72 74 2c 20 43 41 64 69 72 2c 20 43 41 66 cert, CAdir, CAf
68d0: 69 6c 65 2c 20 63 69 70 68 65 72 73 2c 20 44 48 ile, ciphers, DH
68e0: 70 61 72 61 6d 73 29 0a 20 20 20 20 53 74 61 74 params). Stat
68f0: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
6900: 20 69 6e 74 20 70 72 6f 74 6f 3b 0a 20 20 20 20 int proto;.
6910: 63 68 61 72 20 2a 6b 65 79 3b 0a 20 20 20 20 63 char *key;. c
6920: 68 61 72 20 2a 63 65 72 74 3b 0a 20 20 20 20 63 har *cert;. c
6930: 68 61 72 20 2a 43 41 64 69 72 3b 0a 20 20 20 20 har *CAdir;.
6940: 63 68 61 72 20 2a 43 41 66 69 6c 65 3b 0a 20 20 char *CAfile;.
6950: 20 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 3b char *ciphers;
6960: 0a 20 20 20 20 63 68 61 72 20 2a 44 48 70 61 72 . char *DHpar
6970: 61 6d 73 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 49 ams;.{. Tcl_I
6980: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20 3d 20 nterp *interp =
6990: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
69a0: 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 ;. SSL_CTX *c
69b0: 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 tx = NULL;. T
69c0: 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 3b 0a 20 cl_DString ds;.
69d0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 Tcl_DString d
69e0: 73 31 3b 0a 20 20 20 20 69 6e 74 20 6f 66 66 20 s1;. int off
69f0: 3d 20 30 3b 0a 20 20 20 20 63 6f 6e 73 74 20 53 = 0;. const S
6a00: 53 4c 5f 4d 45 54 48 4f 44 20 2a 6d 65 74 68 6f SL_METHOD *metho
6a10: 64 3b 0a 0a 20 20 20 20 69 66 20 28 21 70 72 6f d;.. if (!pro
6a20: 74 6f 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e to) {..Tcl_Appen
6a30: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
6a40: 22 6e 6f 20 76 61 6c 69 64 20 70 72 6f 74 6f 63 "no valid protoc
6a50: 6f 6c 20 73 65 6c 65 63 74 65 64 22 2c 20 4e 55 ol selected", NU
6a60: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 LL);..return (SS
6a70: 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d L_CTX *)0;. }
6a80: 0a 0a 20 20 20 20 2f 2a 20 63 72 65 61 74 65 20 .. /* create
6a90: 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 23 SSL context */.#
6aa0: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
6ab0: 4c 32 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 L2). if (ENAB
6ac0: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
6ad0: 52 4f 54 4f 5f 53 53 4c 32 29 29 20 7b 0a 09 54 ROTO_SSL2)) {..T
6ae0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6af0: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
6b00: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
6b10: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
6b20: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 (SSL_CTX *)0;.
6b30: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 }.#endif.#if
6b40: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 defined(NO_SSL3)
6b50: 0a 20 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 . if (ENABLED
6b60: 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 (proto, TLS_PROT
6b70: 4f 5f 53 53 4c 33 29 29 20 7b 0a 09 54 63 6c 5f O_SSL3)) {..Tcl_
6b80: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
6b90: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
6ba0: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
6bb0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ULL);..return (S
6bc0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 SL_CTX *)0;.
6bd0: 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 }.#endif.#if def
6be0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 20 20 ined(NO_TLS1).
6bf0: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 if (ENABLED(pr
6c00: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 oto, TLS_PROTO_T
6c10: 4c 53 31 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 LS1)) {..Tcl_App
6c20: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6c30: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
6c40: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
6c50: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
6c60: 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 23 CTX *)0;. }.#
6c70: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
6c80: 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a 20 20 20 d(NO_TLS1_1).
6c90: 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f if (ENABLED(pro
6ca0: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c to, TLS_PROTO_TL
6cb0: 53 31 5f 31 29 29 20 7b 0a 09 54 63 6c 5f 41 70 S1_1)) {..Tcl_Ap
6cc0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
6cd0: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
6ce0: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c supported", NUL
6cf0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c L);..return (SSL
6d00: 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a _CTX *)0;. }.
6d10: 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e #endif.#if defin
6d20: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20 20 ed(NO_TLS1_2).
6d30: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 if (ENABLED(pr
6d40: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 oto, TLS_PROTO_T
6d50: 4c 53 31 5f 32 29 29 20 7b 0a 09 54 63 6c 5f 41 LS1_2)) {..Tcl_A
6d60: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6d70: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
6d80: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
6d90: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 LL);..return (SS
6da0: 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d L_CTX *)0;. }
6db0: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 73 77 69 .#endif.. swi
6dc0: 74 63 68 20 28 70 72 6f 74 6f 29 20 7b 0a 23 69 tch (proto) {.#i
6dd0: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 f !defined(NO_SS
6de0: 4c 32 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 L2). case TLS
6df0: 5f 50 52 4f 54 4f 5f 53 53 4c 32 3a 0a 09 6d 65 _PROTO_SSL2:..me
6e00: 74 68 6f 64 20 3d 20 53 53 4c 76 32 5f 6d 65 74 thod = SSLv2_met
6e10: 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b 0a hod ();..break;.
6e20: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
6e30: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 ned(NO_SSL3).
6e40: 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f case TLS_PROTO_
6e50: 53 53 4c 33 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 SSL3:..method =
6e60: 53 53 4c 76 33 5f 6d 65 74 68 6f 64 20 28 29 3b SSLv3_method ();
6e70: 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a ..break;.#endif.
6e80: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
6e90: 54 4c 53 31 29 0a 20 20 20 20 63 61 73 65 20 54 TLS1). case T
6ea0: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 3a 0a 09 LS_PROTO_TLS1:..
6eb0: 6d 65 74 68 6f 64 20 3d 20 54 4c 53 76 31 5f 6d method = TLSv1_m
6ec0: 65 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b ethod ();..break
6ed0: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 ;.#endif.#if !de
6ee0: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 fined(NO_TLS1_1)
6ef0: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 . case TLS_PR
6f00: 4f 54 4f 5f 54 4c 53 31 5f 31 3a 0a 09 6d 65 74 OTO_TLS1_1:..met
6f10: 68 6f 64 20 3d 20 54 4c 53 76 31 5f 31 5f 6d 65 hod = TLSv1_1_me
6f20: 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b thod ();..break;
6f30: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
6f40: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a ined(NO_TLS1_2).
6f50: 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f case TLS_PRO
6f60: 54 4f 5f 54 4c 53 31 5f 32 3a 0a 09 6d 65 74 68 TO_TLS1_2:..meth
6f70: 6f 64 20 3d 20 54 4c 53 76 31 5f 32 5f 6d 65 74 od = TLSv1_2_met
6f80: 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b 0a hod ();..break;.
6f90: 23 65 6e 64 69 66 0a 20 20 20 20 64 65 66 61 75 #endif. defau
6fa0: 6c 74 3a 0a 20 20 20 20 20 20 20 20 6d 65 74 68 lt:. meth
6fb0: 6f 64 20 3d 20 53 53 4c 76 32 33 5f 6d 65 74 68 od = SSLv23_meth
6fc0: 6f 64 20 28 29 3b 0a 23 69 66 20 21 64 65 66 69 od ();.#if !defi
6fd0: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 6f 66 ned(NO_SSL2)..of
6fe0: 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 f |= (ENABLED(pr
6ff0: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
7000: 53 4c 32 29 20 20 20 3f 20 30 20 3a 20 53 53 4c SL2) ? 0 : SSL
7010: 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 32 29 3b 0a 23 _OP_NO_SSLv2);.#
7020: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
7030: 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 6f 66 66 ed(NO_SSL3)..off
7040: 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f |= (ENABLED(pro
7050: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 to, TLS_PROTO_SS
7060: 4c 33 29 20 20 20 3f 20 30 20 3a 20 53 53 4c 5f L3) ? 0 : SSL_
7070: 4f 50 5f 4e 4f 5f 53 53 4c 76 33 29 3b 0a 23 65 OP_NO_SSLv3);.#e
7080: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 ndif.#if !define
7090: 64 28 4e 4f 5f 54 4c 53 31 29 0a 09 6f 66 66 20 d(NO_TLS1)..off
70a0: 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 |= (ENABLED(prot
70b0: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 o, TLS_PROTO_TLS
70c0: 31 29 20 20 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 1) ? 0 : SSL_O
70d0: 50 5f 4e 4f 5f 54 4c 53 76 31 29 3b 0a 23 65 6e P_NO_TLSv1);.#en
70e0: 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 dif.#if !defined
70f0: 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a 09 6f 66 66 (NO_TLS1_1)..off
7100: 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f |= (ENABLED(pro
7110: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c to, TLS_PROTO_TL
7120: 53 31 5f 31 29 20 3f 20 30 20 3a 20 53 53 4c 5f S1_1) ? 0 : SSL_
7130: 4f 50 5f 4e 4f 5f 54 4c 53 76 31 5f 31 29 3b 0a OP_NO_TLSv1_1);.
7140: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
7150: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 09 ned(NO_TLS1_2)..
7160: 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 off |= (ENABLED(
7170: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
7180: 5f 54 4c 53 31 5f 32 29 20 3f 20 30 20 3a 20 53 _TLS1_2) ? 0 : S
7190: 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 5f 32 SL_OP_NO_TLSv1_2
71a0: 29 3b 0a 23 65 6e 64 69 66 0a 09 62 72 65 61 6b );.#endif..break
71b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 20 ;. }. .
71c0: 20 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e ctx = SSL_CTX_n
71d0: 65 77 20 28 6d 65 74 68 6f 64 29 3b 0a 20 20 20 ew (method);.
71e0: 20 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 . SSL_CTX_se
71f0: 74 5f 61 70 70 5f 64 61 74 61 28 20 63 74 78 2c t_app_data( ctx,
7200: 20 28 56 4f 49 44 2a 29 69 6e 74 65 72 70 29 3b (VOID*)interp);
7210: 09 2f 2a 20 72 65 6d 65 6d 62 65 72 20 74 68 65 ./* remember the
7220: 20 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a interpreter */.
7230: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f SSL_CTX_set_
7240: 6f 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 53 53 options( ctx, SS
7250: 4c 5f 4f 50 5f 41 4c 4c 29 3b 09 2f 2a 20 61 6c L_OP_ALL);./* al
7260: 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 l SSL bug workar
7270: 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c ounds */. SSL
7280: 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 _CTX_set_options
7290: 28 20 63 74 78 2c 20 6f 66 66 29 3b 09 2f 2a 20 ( ctx, off);./*
72a0: 61 6c 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 6b all SSL bug work
72b0: 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 53 arounds */. S
72c0: 53 4c 5f 43 54 58 5f 73 65 73 73 5f 73 65 74 5f SL_CTX_sess_set_
72d0: 63 61 63 68 65 5f 73 69 7a 65 28 20 63 74 78 2c cache_size( ctx,
72e0: 20 31 32 38 29 3b 0a 0a 20 20 20 20 69 66 20 28 128);.. if (
72f0: 63 69 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c 29 ciphers != NULL)
7300: 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 69 ..SSL_CTX_set_ci
7310: 70 68 65 72 5f 6c 69 73 74 28 63 74 78 2c 20 63 pher_list(ctx, c
7320: 69 70 68 65 72 73 29 3b 0a 0a 20 20 20 20 2f 2a iphers);.. /*
7330: 20 73 65 74 20 73 6f 6d 65 20 63 61 6c 6c 62 61 set some callba
7340: 63 6b 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 cks */. SSL_C
7350: 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 TX_set_default_p
7360: 61 73 73 77 64 5f 63 62 28 63 74 78 2c 20 50 61 asswd_cb(ctx, Pa
7370: 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 29 3b sswordCallback);
7380: 0a 0a 23 69 66 6e 64 65 66 20 42 53 41 46 45 0a ..#ifndef BSAFE.
7390: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f SSL_CTX_set_
73a0: 64 65 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 default_passwd_c
73b0: 62 5f 75 73 65 72 64 61 74 61 28 63 74 78 2c 20 b_userdata(ctx,
73c0: 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 (void *)statePtr
73d0: 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f );.#endif.. /
73e0: 2a 20 72 65 61 64 20 61 20 44 69 66 66 69 65 2d * read a Diffie-
73f0: 48 65 6c 6c 6d 61 6e 20 70 61 72 61 6d 65 74 65 Hellman paramete
7400: 72 73 20 66 69 6c 65 2c 20 6f 72 20 75 73 65 20 rs file, or use
7410: 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 6f 6e 65 the built-in one
7420: 20 2a 2f 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 */.#ifdef OPENS
7430: 53 4c 5f 4e 4f 5f 44 48 0a 20 20 20 20 69 66 20 SL_NO_DH. if
7440: 28 44 48 70 61 72 61 6d 73 20 21 3d 20 4e 55 4c (DHparams != NUL
7450: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
7460: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 Result(interp,..
7470: 20 20 20 20 22 44 48 20 70 61 72 61 6d 65 74 65 "DH paramete
7480: 72 20 73 75 70 70 6f 72 74 20 6e 6f 74 20 61 76 r support not av
7490: 61 69 6c 61 62 6c 65 22 2c 20 28 63 68 61 72 20 ailable", (char
74a0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 *) NULL);..SSL_C
74b0: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 TX_free(ctx);..r
74c0: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
74d0: 29 30 3b 0a 20 20 20 20 7d 0a 23 65 6c 73 65 0a )0;. }.#else.
74e0: 20 20 20 20 7b 0a 09 44 48 2a 20 64 68 3b 0a 09 {..DH* dh;..
74f0: 69 66 20 28 44 48 70 61 72 61 6d 73 20 21 3d 20 if (DHparams !=
7500: 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 42 49 4f NULL) {.. BIO
7510: 20 2a 62 69 6f 3b 0a 09 20 20 20 20 54 63 6c 5f *bio;.. Tcl_
7520: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 DStringInit(&ds)
7530: 3b 0a 09 20 20 20 20 62 69 6f 20 3d 20 42 49 4f ;.. bio = BIO
7540: 5f 6e 65 77 5f 66 69 6c 65 28 46 32 4e 28 44 48 _new_file(F2N(DH
7550: 70 61 72 61 6d 73 2c 20 26 64 73 29 2c 20 22 72 params, &ds), "r
7560: 22 29 3b 0a 09 20 20 20 20 69 66 20 28 21 62 69 ");.. if (!bi
7570: 6f 29 20 7b 0a 09 09 54 63 6c 5f 44 53 74 72 69 o) {...Tcl_DStri
7580: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 09 54 ngFree(&ds);...T
7590: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
75a0: 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 22 43 interp,... "C
75b0: 6f 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 44 48 ould not find DH
75c0: 20 70 61 72 61 6d 65 74 65 72 73 20 66 69 6c 65 parameters file
75d0: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
75e0: 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 65 );...SSL_CTX_fre
75f0: 65 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 6e e(ctx);...return
7600: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 (SSL_CTX *)0;..
7610: 20 20 20 20 7d 0a 09 20 20 20 20 0a 09 20 20 20 }.. ..
7620: 20 64 68 20 3d 20 50 45 4d 5f 72 65 61 64 5f 62 dh = PEM_read_b
7630: 69 6f 5f 44 48 70 61 72 61 6d 73 28 62 69 6f 2c io_DHparams(bio,
7640: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c NULL, NULL, NUL
7650: 4c 29 3b 0a 09 20 20 20 20 42 49 4f 5f 66 72 65 L);.. BIO_fre
7660: 65 28 62 69 6f 29 3b 0a 09 20 20 20 20 54 63 6c e(bio);.. Tcl
7670: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
7680: 29 3b 0a 09 20 20 20 20 69 66 20 28 21 64 68 29 );.. if (!dh)
7690: 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 {...Tcl_AppendR
76a0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 esult(interp,...
76b0: 20 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 20 72 "Could not r
76c0: 65 61 64 20 44 48 20 70 61 72 61 6d 65 74 65 72 ead DH parameter
76d0: 73 20 66 72 6f 6d 20 66 69 6c 65 22 2c 20 28 63 s from file", (c
76e0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 har *) NULL);...
76f0: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
7700: 29 3b 0a 09 09 72 65 74 75 72 6e 20 28 53 53 4c );...return (SSL
7710: 5f 43 54 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d _CTX *)0;.. }
7720: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
7730: 64 68 20 3d 20 67 65 74 5f 64 68 32 30 34 38 28 dh = get_dh2048(
7740: 29 3b 0a 09 7d 0a 09 53 53 4c 5f 43 54 58 5f 73 );..}..SSL_CTX_s
7750: 65 74 5f 74 6d 70 5f 64 68 28 63 74 78 2c 20 64 et_tmp_dh(ctx, d
7760: 68 29 3b 0a 09 44 48 5f 66 72 65 65 28 64 68 29 h);..DH_free(dh)
7770: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a ;. }.#endif..
7780: 20 20 20 20 2f 2a 20 73 65 74 20 6f 75 72 20 63 /* set our c
7790: 65 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 20 20 ertificate */.
77a0: 20 20 69 66 20 28 63 65 72 74 20 21 3d 20 4e 55 if (cert != NU
77b0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 53 74 72 69 LL) {..Tcl_DStri
77c0: 6e 67 49 6e 69 74 28 26 64 73 29 3b 0a 0a 09 69 ngInit(&ds);...i
77d0: 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 f (SSL_CTX_use_c
77e0: 65 72 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 ertificate_file(
77f0: 63 74 78 2c 20 46 32 4e 28 20 63 65 72 74 2c 20 ctx, F2N( cert,
7800: 26 64 73 29 2c 0a 09 09 09 09 09 53 53 4c 5f 46 &ds),......SSL_F
7810: 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 ILETYPE_PEM) <=
7820: 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 0) {.. Tcl_DS
7830: 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a tringFree(&ds);.
7840: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
7850: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 esult(interp,...
7860: 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f . "unable to
7870: 20 73 65 74 20 63 65 72 74 69 66 69 63 61 74 65 set certificate
7880: 20 66 69 6c 65 20 22 2c 20 63 65 72 74 2c 20 22 file ", cert, "
7890: 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 41 : ",.... REA
78a0: 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 SON(), (char *)
78b0: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f NULL);.. SSL_
78c0: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
78d0: 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f return (SSL_
78e0: 43 54 58 20 2a 29 30 3b 0a 09 7d 0a 0a 09 2f 2a CTX *)0;..}.../*
78f0: 20 67 65 74 20 74 68 65 20 70 72 69 76 61 74 65 get the private
7900: 20 6b 65 79 20 61 73 73 6f 63 69 61 74 65 64 20 key associated
7910: 77 69 74 68 20 74 68 69 73 20 63 65 72 74 69 66 with this certif
7920: 69 63 61 74 65 20 2a 2f 0a 09 69 66 20 28 6b 65 icate */..if (ke
7930: 79 20 3d 3d 20 4e 55 4c 4c 29 20 6b 65 79 3d 63 y == NULL) key=c
7940: 65 72 74 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 ert;...if (SSL_C
7950: 54 58 5f 75 73 65 5f 50 72 69 76 61 74 65 4b 65 TX_use_PrivateKe
7960: 79 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 y_file(ctx, F2N(
7970: 20 6b 65 79 2c 20 26 64 73 29 2c 0a 09 09 09 09 key, &ds),.....
7980: 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 .SSL_FILETYPE_PE
7990: 4d 29 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 M) <= 0) {..
79a0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
79b0: 26 64 73 29 3b 0a 09 20 20 20 20 2f 2a 20 66 6c &ds);.. /* fl
79c0: 75 73 68 20 74 68 65 20 70 61 73 73 70 68 72 61 ush the passphra
79d0: 73 65 20 77 68 69 63 68 20 6d 69 67 68 74 20 62 se which might b
79e0: 65 20 6c 65 66 74 20 69 6e 20 74 68 65 20 72 65 e left in the re
79f0: 73 75 6c 74 20 2a 2f 0a 09 20 20 20 20 54 63 6c sult */.. Tcl
7a00: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
7a10: 70 2c 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 p, NULL, TCL_STA
7a20: 54 49 43 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 TIC);.. Tcl_A
7a30: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7a40: 72 70 2c 0a 09 09 09 20 20 20 20 20 22 75 6e 61 rp,.... "una
7a50: 62 6c 65 20 74 6f 20 73 65 74 20 70 75 62 6c 69 ble to set publi
7a60: 63 20 6b 65 79 20 66 69 6c 65 20 22 2c 20 6b 65 c key file ", ke
7a70: 79 2c 20 22 20 22 2c 0a 09 09 09 20 20 20 20 20 y, " ",....
7a80: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 REASON(), (char
7a90: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 *) NULL);.. S
7aa0: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
7ab0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 ;.. return (S
7ac0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 7d 0a 09 SL_CTX *)0;..}..
7ad0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
7ae0: 26 64 73 29 3b 0a 09 2f 2a 20 4e 6f 77 20 77 65 &ds);../* Now we
7af0: 20 6b 6e 6f 77 20 74 68 61 74 20 61 20 6b 65 79 know that a key
7b00: 20 61 6e 64 20 63 65 72 74 20 68 61 76 65 20 62 and cert have b
7b10: 65 65 6e 20 73 65 74 20 61 67 61 69 6e 73 74 0a een set against.
7b20: 09 20 2a 20 74 68 65 20 53 53 4c 20 63 6f 6e 74 . * the SSL cont
7b30: 65 78 74 20 2a 2f 0a 09 69 66 20 28 21 53 53 4c ext */..if (!SSL
7b40: 5f 43 54 58 5f 63 68 65 63 6b 5f 70 72 69 76 61 _CTX_check_priva
7b50: 74 65 5f 6b 65 79 28 63 74 78 29 29 20 7b 0a 09 te_key(ctx)) {..
7b60: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
7b70: 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 sult(interp,....
7b80: 20 20 20 20 20 22 70 72 69 76 61 74 65 20 6b 65 "private ke
7b90: 79 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 y does not match
7ba0: 20 74 68 65 20 63 65 72 74 69 66 69 63 61 74 65 the certificate
7bb0: 20 70 75 62 6c 69 63 20 6b 65 79 22 2c 0a 09 09 public key",...
7bc0: 09 20 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e . (char *) N
7bd0: 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 ULL);.. SSL_C
7be0: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 TX_free(ctx);..
7bf0: 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 return (SSL_C
7c00: 54 58 20 2a 29 30 3b 0a 09 7d 0a 20 20 20 20 7d TX *)0;..}. }
7c10: 20 65 6c 73 65 20 7b 0a 09 63 65 72 74 20 3d 20 else {..cert =
7c20: 28 63 68 61 72 2a 29 58 35 30 39 5f 67 65 74 5f (char*)X509_get_
7c30: 64 65 66 61 75 6c 74 5f 63 65 72 74 5f 66 69 6c default_cert_fil
7c40: 65 28 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 e();...if (SSL_C
7c50: 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 TX_use_certifica
7c60: 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 63 65 72 te_file(ctx, cer
7c70: 74 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 t,......SSL_FILE
7c80: 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 TYPE_PEM) <= 0)
7c90: 7b 0a 23 69 66 20 30 0a 09 20 20 20 20 54 63 6c {.#if 0.. Tcl
7ca0: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
7cb0: 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 );.. Tcl_Appe
7cc0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
7cd0: 0a 09 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 .... "unable
7ce0: 20 74 6f 20 75 73 65 20 64 65 66 61 75 6c 74 20 to use default
7cf0: 63 65 72 74 69 66 69 63 61 74 65 20 66 69 6c 65 certificate file
7d00: 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 22 2c 0a ", cert, ": ",.
7d10: 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 ... REASON()
7d20: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
7d30: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 ;.. SSL_CTX_f
7d40: 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 ree(ctx);.. r
7d50: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
7d60: 29 30 3b 0a 23 65 6e 64 69 66 0a 09 7d 0a 20 20 )0;.#endif..}.
7d70: 20 20 7d 0a 09 0a 20 20 20 20 54 63 6c 5f 44 53 }... Tcl_DS
7d80: 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 3b 0a tringInit(&ds);.
7d90: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 Tcl_DStringI
7da0: 6e 69 74 28 26 64 73 31 29 3b 0a 20 20 20 20 69 nit(&ds1);. i
7db0: 66 20 28 21 53 53 4c 5f 43 54 58 5f 6c 6f 61 64 f (!SSL_CTX_load
7dc0: 5f 76 65 72 69 66 79 5f 6c 6f 63 61 74 69 6f 6e _verify_location
7dd0: 73 28 63 74 78 2c 20 46 32 4e 28 43 41 66 69 6c s(ctx, F2N(CAfil
7de0: 65 2c 20 26 64 73 29 2c 20 46 32 4e 28 43 41 64 e, &ds), F2N(CAd
7df0: 69 72 2c 20 26 64 73 31 29 29 20 7c 7c 0a 09 21 ir, &ds1)) ||..!
7e00: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 61 SSL_CTX_set_defa
7e10: 75 6c 74 5f 76 65 72 69 66 79 5f 70 61 74 68 73 ult_verify_paths
7e20: 28 63 74 78 29 29 20 7b 0a 23 69 66 20 30 0a 09 (ctx)) {.#if 0..
7e30: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
7e40: 26 64 73 29 3b 0a 09 54 63 6c 5f 44 53 74 72 69 &ds);..Tcl_DStri
7e50: 6e 67 46 72 65 65 28 26 64 73 31 29 3b 0a 09 2f ngFree(&ds1);../
7e60: 2a 20 44 6f 6e 27 74 20 63 75 72 72 65 6e 74 6c * Don't currentl
7e70: 79 20 63 61 72 65 20 69 66 20 74 68 69 73 20 66 y care if this f
7e80: 61 69 6c 73 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 ails */..Tcl_App
7e90: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
7ea0: 2c 20 22 53 53 4c 20 64 65 66 61 75 6c 74 20 76 , "SSL default v
7eb0: 65 72 69 66 79 20 70 61 74 68 73 3a 20 22 2c 0a erify paths: ",.
7ec0: 09 09 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 ..REASON(), (cha
7ed0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c r *) NULL);..SSL
7ee0: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
7ef0: 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 .return (SSL_CTX
7f00: 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a 20 20 20 *)0;.#endif.
7f10: 20 7d 0a 0a 20 20 20 20 2f 2a 20 68 74 74 70 73 }.. /* https
7f20: 3a 2f 2f 73 6f 75 72 63 65 66 6f 72 67 65 2e 6e ://sourceforge.n
7f30: 65 74 2f 70 2f 74 6c 73 2f 62 75 67 73 2f 35 37 et/p/tls/bugs/57
7f40: 2f 20 2a 2f 0a 20 20 20 20 69 66 20 28 20 43 41 / */. if ( CA
7f50: 66 69 6c 65 20 21 3d 20 4e 55 4c 4c 20 29 20 7b file != NULL ) {
7f60: 0a 20 20 20 20 20 20 20 20 53 54 41 43 4b 5f 4f . STACK_O
7f70: 46 28 58 35 30 39 5f 4e 41 4d 45 29 20 2a 63 65 F(X509_NAME) *ce
7f80: 72 74 4e 61 6d 65 73 20 3d 20 53 53 4c 5f 6c 6f rtNames = SSL_lo
7f90: 61 64 5f 63 6c 69 65 6e 74 5f 43 41 5f 66 69 6c ad_client_CA_fil
7fa0: 65 28 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 e( F2N(CAfile, &
7fb0: 64 73 29 20 29 3b 0a 09 69 66 20 28 20 63 65 72 ds) );..if ( cer
7fc0: 74 4e 61 6d 65 73 20 21 3d 20 4e 55 4c 4c 20 29 tNames != NULL )
7fd0: 20 7b 20 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 { .. SSL_CTX
7fe0: 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 43 41 5f 6c _set_client_CA_l
7ff0: 69 73 74 28 63 74 78 2c 20 63 65 72 74 4e 61 6d ist(ctx, certNam
8000: 65 73 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a es );..}. }..
8010: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 Tcl_DStringF
8020: 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 54 63 ree(&ds);. Tc
8030: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
8040: 73 31 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 s1);. return
8050: 63 74 78 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d ctx;.}.../*. *--
8060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
80a0: 2d 0a 20 2a 0a 20 2a 20 53 74 61 74 75 73 4f 62 -. *. * StatusOb
80b0: 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 63 jCmd -- return c
80c0: 65 72 74 69 66 69 63 61 74 65 20 66 6f 72 20 63 ertificate for c
80d0: 6f 6e 6e 65 63 74 65 64 20 70 65 65 72 2e 0a 20 onnected peer..
80e0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
80f0: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
8100: 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 result.. *. * Si
8110: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
8120: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
8130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
8170: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 53 74 61 /.static int.Sta
8180: 74 75 73 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 tusObjCmd(client
8190: 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 Data, interp, ob
81a0: 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c jc, objv). Cl
81b0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
81c0: 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 ata;./* Not used
81d0: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 . */. Tcl_Int
81e0: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 erp *interp;.
81f0: 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 int objc;. T
8200: 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 cl_Obj.*CONST ob
8210: 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 53 74 61 74 jv[];.{. Stat
8220: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
8230: 20 58 35 30 39 20 2a 70 65 65 72 3b 0a 20 20 20 X509 *peer;.
8240: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 Tcl_Obj *objPtr
8250: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
8260: 6c 20 63 68 61 6e 3b 0a 20 20 20 20 63 68 61 72 l chan;. char
8270: 20 2a 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 2a *channelName, *
8280: 63 69 70 68 65 72 73 3b 0a 20 20 20 20 69 6e 74 ciphers;. int
8290: 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 73 77 69 74 mode;.. swit
82a0: 63 68 20 28 6f 62 6a 63 29 20 7b 0a 09 63 61 73 ch (objc) {..cas
82b0: 65 20 32 3a 0a 09 20 20 20 20 63 68 61 6e 6e 65 e 2:.. channe
82c0: 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 lName = Tcl_GetS
82d0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
82e0: 76 5b 31 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 v[1], NULL);..
82f0: 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 break;...case
8300: 33 3a 0a 09 20 20 20 20 69 66 20 28 21 73 74 72 3:.. if (!str
8310: 63 6d 70 20 28 54 63 6c 5f 47 65 74 53 74 72 69 cmp (Tcl_GetStri
8320: 6e 67 20 28 6f 62 6a 76 5b 31 5d 29 2c 20 22 2d ng (objv[1]), "-
8330: 6c 6f 63 61 6c 22 29 29 20 7b 0a 09 09 63 68 61 local")) {...cha
8340: 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 nnelName = Tcl_G
8350: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
8360: 6f 62 6a 76 5b 32 5d 2c 20 4e 55 4c 4c 29 3b 0a objv[2], NULL);.
8370: 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a ..break;.. }.
8380: 09 20 20 20 20 2f 2a 20 65 6c 73 65 20 66 61 6c . /* else fal
8390: 6c 2e 2e 2e 20 2a 2f 0a 09 64 65 66 61 75 6c 74 l... */..default
83a0: 3a 0a 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 :.. Tcl_Wrong
83b0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
83c0: 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6c 6f 63 61 1, objv, "?-loca
83d0: 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 20 l? channel");..
83e0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
83f0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
8400: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
8410: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 annel(interp, ch
8420: 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 6d 6f 64 65 annelName, &mode
8430: 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 );. if (chan
8440: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
8450: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
8460: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
8470: 7d 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 }. if (channe
8480: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 lTypeVersion ==
8490: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
84a0: 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a ION_2) {../*.. *
84b0: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
84c0: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
84d0: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a most channel.. *
84e0: 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 /..chan = Tcl_Ge
84f0: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
8500: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 );. }. if
8510: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
8520: 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 ype(chan) != Tls
8530: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 _ChannelType())
8540: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
8550: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 ult(interp, "bad
8560: 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 channel \"", Tc
8570: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
8580: 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e (chan),..."\": n
8590: 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c ot a TLS channel
85a0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
85b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
85c0: 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 20 }. statePtr
85d0: 3d 20 28 53 74 61 74 65 20 2a 29 20 54 63 6c 5f = (State *) Tcl_
85e0: 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e GetChannelInstan
85f0: 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 20 20 ceData(chan);.
8600: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 if (objc == 2)
8610: 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 {..peer = SSL_g
8620: 65 74 5f 70 65 65 72 5f 63 65 72 74 69 66 69 63 et_peer_certific
8630: 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ate(statePtr->ss
8640: 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b l);. } else {
8650: 0a 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 65 74 ..peer = SSL_get
8660: 5f 63 65 72 74 69 66 69 63 61 74 65 28 73 74 61 _certificate(sta
8670: 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 tePtr->ssl);.
8680: 20 7d 0a 20 20 20 20 69 66 20 28 70 65 65 72 29 }. if (peer)
8690: 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 6c 73 {..objPtr = Tls
86a0: 5f 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e 74 65 _NewX509Obj(inte
86b0: 72 70 2c 20 70 65 65 72 29 3b 0a 09 69 66 20 28 rp, peer);..if (
86c0: 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 20 58 35 30 objc == 2) { X50
86d0: 39 5f 66 72 65 65 28 70 65 65 72 29 3b 20 7d 0a 9_free(peer); }.
86e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6f 62 } else {..ob
86f0: 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 jPtr = Tcl_NewLi
8700: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
8710: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c }.. Tcl_L
8720: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
8730: 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f 62 6a ent (interp, obj
8740: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
8750: 77 53 74 72 69 6e 67 4f 62 6a 20 28 22 73 62 69 wStringObj ("sbi
8760: 74 73 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 ts", -1));. T
8770: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
8780: 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c Element (interp,
8790: 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 objPtr,.. Tc
87a0: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 20 28 53 53 4c l_NewIntObj (SSL
87b0: 5f 67 65 74 5f 63 69 70 68 65 72 5f 62 69 74 73 _get_cipher_bits
87c0: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c (statePtr->ssl,
87d0: 20 4e 55 4c 4c 29 29 29 3b 0a 0a 20 20 20 20 63 NULL)));.. c
87e0: 69 70 68 65 72 73 20 3d 20 28 63 68 61 72 2a 29 iphers = (char*)
87f0: 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 73 SSL_get_cipher(s
8800: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 tatePtr->ssl);.
8810: 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 if (ciphers !
8820: 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 63 6d 70 = NULL && strcmp
8830: 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f 4e 45 (ciphers, "(NONE
8840: 29 22 29 21 3d 30 29 20 7b 0a 09 54 63 6c 5f 4c )")!=0) {..Tcl_L
8850: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
8860: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ent(interp, objP
8870: 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 tr,...Tcl_NewStr
8880: 69 6e 67 4f 62 6a 28 22 63 69 70 68 65 72 22 2c ingObj("cipher",
8890: 20 2d 31 29 29 3b 0a 09 54 63 6c 5f 4c 69 73 74 -1));..Tcl_List
88a0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
88b0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
88c0: 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 ...Tcl_NewString
88d0: 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 Obj(SSL_get_ciph
88e0: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c er(statePtr->ssl
88f0: 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 20 ), -1));. }.
8900: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
8910: 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a ult( interp, obj
8920: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Ptr);. return
8930: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a TCL_OK;.}.../*.
8940: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
8950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8980: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 72 73 -----. *. * Vers
8990: 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 74 ionObjCmd -- ret
89a0: 75 72 6e 20 76 65 72 73 69 6f 6e 20 73 74 72 69 urn version stri
89b0: 6e 67 20 66 72 6f 6d 20 4f 70 65 6e 53 53 4c 2e ng from OpenSSL.
89c0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
89d0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
89e0: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
89f0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
8a00: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
8a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
8a50: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56 */.static int.V
8a60: 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 63 6c 69 ersionObjCmd(cli
8a70: 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c entData, interp,
8a80: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 objc, objv).
8a90: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
8aa0: 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 ntData;./* Not u
8ab0: 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f sed. */. Tcl_
8ac0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a Interp *interp;.
8ad0: 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 int objc;.
8ae0: 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 Tcl_Obj.*CONST
8af0: 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 objv[];.{. T
8b00: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a cl_Obj *objPtr;.
8b10: 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 . objPtr = Tc
8b20: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 4f l_NewStringObj(O
8b30: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 54 PENSSL_VERSION_T
8b40: 45 58 54 2c 20 2d 31 29 3b 0a 0a 20 20 20 20 54 EXT, -1);.. T
8b50: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
8b60: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
8b70: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
8b80: 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d OK;.}.../*. *---
8b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8bd0: 0a 20 2a 0a 20 2a 20 4d 69 73 63 4f 62 6a 43 6d . *. * MiscObjCm
8be0: 64 20 2d 2d 20 6d 69 73 63 20 63 6f 6d 6d 61 6e d -- misc comman
8bf0: 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 ds. *. * Results
8c00: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
8c10: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
8c20: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
8c30: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
8c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c80: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
8c90: 0a 4d 69 73 63 4f 62 6a 43 6d 64 28 63 6c 69 65 .MiscObjCmd(clie
8ca0: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
8cb0: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
8cc0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
8cd0: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
8ce0: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
8cf0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
8d00: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
8d10: 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 Tcl_Obj.*CONST
8d20: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 objv[];.{. st
8d30: 61 74 69 63 20 43 4f 4e 53 54 38 34 20 63 68 61 atic CONST84 cha
8d40: 72 20 2a 63 6f 6d 6d 61 6e 64 73 20 5b 5d 20 3d r *commands [] =
8d50: 20 7b 20 22 72 65 71 22 2c 20 4e 55 4c 4c 20 7d { "req", NULL }
8d60: 3b 0a 20 20 20 20 65 6e 75 6d 20 63 6f 6d 6d 61 ;. enum comma
8d70: 6e 64 20 7b 20 43 5f 52 45 51 2c 20 43 5f 44 55 nd { C_REQ, C_DU
8d80: 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 6e 74 20 63 MMY };. int c
8d90: 6d 64 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a md;.. if (obj
8da0: 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 c < 2) {..Tcl_Wr
8db0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
8dc0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 73 75 62 p, 1, objv, "sub
8dd0: 63 6f 6d 6d 61 6e 64 20 3f 61 72 67 73 3f 22 29 command ?args?")
8de0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
8df0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ROR;. }. i
8e00: 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 f (Tcl_GetIndexF
8e10: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
8e20: 62 6a 76 5b 31 5d 2c 20 63 6f 6d 6d 61 6e 64 73 bjv[1], commands
8e30: 2c 0a 09 20 20 20 20 22 63 6f 6d 6d 61 6e 64 22 ,.. "command"
8e40: 2c 20 30 2c 26 63 6d 64 29 20 21 3d 20 54 43 4c , 0,&cmd) != TCL
8e50: 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 _OK) {..return T
8e60: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
8e70: 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 65 6e . switch ((en
8e80: 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 63 6d 64 29 um command) cmd)
8e90: 20 7b 0a 09 63 61 73 65 20 43 5f 52 45 51 3a 20 {..case C_REQ:
8ea0: 7b 0a 09 20 20 20 20 45 56 50 5f 50 4b 45 59 20 {.. EVP_PKEY
8eb0: 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a 09 20 20 20 *pkey=NULL;..
8ec0: 20 58 35 30 39 20 2a 63 65 72 74 3d 4e 55 4c 4c X509 *cert=NULL
8ed0: 3b 0a 09 20 20 20 20 58 35 30 39 5f 4e 41 4d 45 ;.. X509_NAME
8ee0: 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b 0a 09 20 20 *name=NULL;..
8ef0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 73 74 Tcl_Obj **list
8f00: 76 3b 0a 09 20 20 20 20 69 6e 74 20 6c 69 73 74 v;.. int list
8f10: 63 2c 69 3b 0a 0a 09 20 20 20 20 42 49 4f 20 2a c,i;... BIO *
8f20: 6f 75 74 3d 4e 55 4c 4c 3b 0a 0a 09 20 20 20 20 out=NULL;...
8f30: 63 68 61 72 20 2a 6b 5f 43 3d 22 22 2c 2a 6b 5f char *k_C="",*k_
8f40: 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 22 2c 2a 6b ST="",*k_L="",*k
8f50: 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d 22 22 2c 2a _O="",*k_OU="",*
8f60: 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 6d 61 69 6c k_CN="",*k_Email
8f70: 3d 22 22 3b 0a 09 20 20 20 20 63 68 61 72 20 2a ="";.. char *
8f80: 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f 75 74 2c 2a keyout,*pemout,*
8f90: 73 74 72 3b 0a 09 20 20 20 20 69 6e 74 20 6b 65 str;.. int ke
8fa0: 79 73 69 7a 65 2c 73 65 72 69 61 6c 3d 30 2c 64 ysize,serial=0,d
8fb0: 61 79 73 3d 33 36 35 3b 0a 09 20 20 20 20 0a 09 ays=365;.. ..
8fc0: 20 20 20 20 69 66 20 28 28 6f 62 6a 63 3c 35 29 if ((objc<5)
8fd0: 20 7c 7c 20 28 6f 62 6a 63 3e 36 29 29 20 7b 0a || (objc>6)) {.
8fe0: 09 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
8ff0: 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 gs(interp, 2, ob
9000: 6a 76 2c 20 22 6b 65 79 73 69 7a 65 20 6b 65 79 jv, "keysize key
9010: 66 69 6c 65 20 63 65 72 74 66 69 6c 65 20 3f 69 file certfile ?i
9020: 6e 66 6f 3f 22 29 3b 0a 09 09 72 65 74 75 72 6e nfo?");...return
9030: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 TCL_ERROR;..
9040: 20 7d 0a 0a 09 20 20 20 20 69 66 20 28 54 63 6c }... if (Tcl
9050: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
9060: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 nterp, objv[2],
9070: 26 6b 65 79 73 69 7a 65 29 20 21 3d 20 54 43 4c &keysize) != TCL
9080: 5f 4f 4b 29 20 7b 0a 09 09 72 65 74 75 72 6e 20 _OK) {...return
9090: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 TCL_ERROR;..
90a0: 7d 0a 09 20 20 20 20 6b 65 79 6f 75 74 3d 54 63 }.. keyout=Tc
90b0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
90c0: 5b 33 5d 29 3b 0a 09 20 20 20 20 70 65 6d 6f 75 [3]);.. pemou
90d0: 74 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 t=Tcl_GetString(
90e0: 6f 62 6a 76 5b 34 5d 29 3b 0a 0a 09 20 20 20 20 objv[4]);...
90f0: 69 66 20 28 6f 62 6a 63 3e 3d 36 29 20 7b 0a 09 if (objc>=6) {..
9100: 09 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f 62 6a .if (Tcl_ListObj
9110: 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 GetElements(inte
9120: 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c 0a 09 09 09 rp, objv[5],....
9130: 26 6c 69 73 74 63 2c 20 26 6c 69 73 74 76 29 20 &listc, &listv)
9140: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 20 != TCL_OK) {...
9150: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
9160: 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 ROR;...}....if (
9170: 28 6c 69 73 74 63 25 32 29 20 21 3d 20 30 29 20 (listc%2) != 0)
9180: 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 {... Tcl_SetR
9190: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 49 6e esult(interp,"In
91a0: 66 6f 72 6d 61 74 69 6f 6e 20 6c 69 73 74 20 6d formation list m
91b0: 75 73 74 20 68 61 76 65 20 65 76 65 6e 20 6e 75 ust have even nu
91c0: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 mber of argument
91d0: 73 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 s",NULL);...
91e0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
91f0: 3b 0a 09 09 7d 0a 09 09 66 6f 72 20 28 69 3d 30 ;...}...for (i=0
9200: 3b 20 69 3c 6c 69 73 74 63 3b 20 69 2b 3d 32 29 ; i<listc; i+=2)
9210: 20 7b 0a 09 09 20 20 20 20 73 74 72 3d 54 63 6c {... str=Tcl
9220: 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 _GetString(listv
9230: 5b 69 5d 29 3b 0a 09 09 20 20 20 20 69 66 20 28 [i]);... if (
9240: 73 74 72 63 6d 70 28 73 74 72 2c 22 64 61 79 73 strcmp(str,"days
9250: 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 ")==0) {....if (
9260: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
9270: 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 j(interp,listv[i
9280: 2b 31 5d 2c 26 64 61 79 73 29 21 3d 54 43 4c 5f +1],&days)!=TCL_
9290: 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 OK).... retur
92a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 n TCL_ERROR;...
92b0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
92c0: 72 63 6d 70 28 73 74 72 2c 22 73 65 72 69 61 6c rcmp(str,"serial
92d0: 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 ")==0) {....if (
92e0: 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 Tcl_GetIntFromOb
92f0: 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 j(interp,listv[i
9300: 2b 31 5d 2c 26 73 65 72 69 61 6c 29 21 3d 54 43 +1],&serial)!=TC
9310: 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 74 L_OK).... ret
9320: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
9330: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
9340: 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 72 69 strcmp(str,"seri
9350: 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 al")==0) {....if
9360: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d (Tcl_GetIntFrom
9370: 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 Obj(interp,listv
9380: 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 21 3d [i+1],&serial)!=
9390: 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 TCL_OK).... r
93a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
93b0: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
93c0: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 43 22 (strcmp(str,"C"
93d0: 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 3d 54 )==0) {....k_C=T
93e0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 cl_GetString(lis
93f0: 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 tv[i+1]);...
9400: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d } else if (strcm
9410: 70 28 73 74 72 2c 22 53 54 22 29 3d 3d 30 29 20 p(str,"ST")==0)
9420: 7b 0a 09 09 09 6b 5f 53 54 3d 54 63 6c 5f 47 65 {....k_ST=Tcl_Ge
9430: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
9440: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
9450: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 e if (strcmp(str
9460: 2c 22 4c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b ,"L")==0) {....k
9470: 5f 4c 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 _L=Tcl_GetString
9480: 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 (listv[i+1]);...
9490: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 } else if (s
94a0: 74 72 63 6d 70 28 73 74 72 2c 22 4f 22 29 3d 3d trcmp(str,"O")==
94b0: 30 29 20 7b 0a 09 09 09 6b 5f 4f 3d 54 63 6c 5f 0) {....k_O=Tcl_
94c0: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b GetString(listv[
94d0: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 i+1]);... } e
94e0: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 lse if (strcmp(s
94f0: 74 72 2c 22 4f 55 22 29 3d 3d 30 29 20 7b 0a 09 tr,"OU")==0) {..
9500: 09 09 6b 5f 4f 55 3d 54 63 6c 5f 47 65 74 53 74 ..k_OU=Tcl_GetSt
9510: 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 ring(listv[i+1])
9520: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 ;... } else i
9530: 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 43 f (strcmp(str,"C
9540: 4e 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 N")==0) {....k_C
9550: 4e 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 N=Tcl_GetString(
9560: 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 listv[i+1]);...
9570: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
9580: 72 63 6d 70 28 73 74 72 2c 22 45 6d 61 69 6c 22 rcmp(str,"Email"
9590: 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 45 6d 61 )==0) {....k_Ema
95a0: 69 6c 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 il=Tcl_GetString
95b0: 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 (listv[i+1]);...
95c0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 } else {....
95d0: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
95e0: 74 65 72 70 2c 22 55 6e 6b 6e 6f 77 6e 20 70 61 terp,"Unknown pa
95f0: 72 61 6d 65 74 65 72 22 2c 4e 55 4c 4c 29 3b 0a rameter",NULL);.
9600: 09 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
9610: 52 4f 52 3b 0a 09 09 20 20 20 20 7d 0a 09 09 7d ROR;... }...}
9620: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 .. }.. if
9630: 28 28 70 6b 65 79 20 3d 20 45 56 50 5f 50 4b 45 ((pkey = EVP_PKE
9640: 59 5f 6e 65 77 28 29 29 20 21 3d 20 4e 55 4c 4c Y_new()) != NULL
9650: 29 20 7b 0a 09 09 69 66 20 28 21 45 56 50 5f 50 ) {...if (!EVP_P
9660: 4b 45 59 5f 61 73 73 69 67 6e 5f 52 53 41 28 70 KEY_assign_RSA(p
9670: 6b 65 79 2c 0a 09 09 09 52 53 41 5f 67 65 6e 65 key,....RSA_gene
9680: 72 61 74 65 5f 6b 65 79 28 6b 65 79 73 69 7a 65 rate_key(keysize
9690: 2c 20 30 78 31 30 30 30 31 2c 20 4e 55 4c 4c 2c , 0x10001, NULL,
96a0: 20 4e 55 4c 4c 29 29 29 20 7b 0a 09 09 20 20 20 NULL))) {...
96b0: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
96c0: 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e nterp,"Error gen
96d0: 65 72 61 74 69 6e 67 20 70 72 69 76 61 74 65 20 erating private
96e0: 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 key",NULL);...
96f0: 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 EVP_PKEY_free(
9700: 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 72 65 74 pkey);... ret
9710: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
9720: 09 7d 0a 09 09 6f 75 74 3d 42 49 4f 5f 6e 65 77 .}...out=BIO_new
9730: 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29 3b 0a (BIO_s_file());.
9740: 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 69 6c 65 ..BIO_write_file
9750: 6e 61 6d 65 28 6f 75 74 2c 6b 65 79 6f 75 74 29 name(out,keyout)
9760: 3b 0a 09 09 50 45 4d 5f 77 72 69 74 65 5f 62 69 ;...PEM_write_bi
9770: 6f 5f 50 72 69 76 61 74 65 4b 65 79 28 6f 75 74 o_PrivateKey(out
9780: 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c ,pkey,NULL,NULL,
9790: 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 0,NULL,NULL);...
97a0: 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 74 BIO_free_all(out
97b0: 29 3b 0a 0a 09 09 69 66 20 28 28 63 65 72 74 3d );....if ((cert=
97c0: 58 35 30 39 5f 6e 65 77 28 29 29 3d 3d 4e 55 4c X509_new())==NUL
97d0: 4c 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 L) {... Tcl_S
97e0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
97f0: 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 69 6e "Error generatin
9800: 67 20 63 65 72 74 69 66 69 63 61 74 65 20 72 65 g certificate re
9810: 71 75 65 73 74 22 2c 4e 55 4c 4c 29 3b 0a 09 09 quest",NULL);...
9820: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 EVP_PKEY_fre
9830: 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 72 e(pkey);... r
9840: 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 eturn(TCL_ERROR)
9850: 3b 0a 09 09 7d 0a 0a 09 09 58 35 30 39 5f 73 65 ;...}....X509_se
9860: 74 5f 76 65 72 73 69 6f 6e 28 63 65 72 74 2c 32 t_version(cert,2
9870: 29 3b 0a 09 09 41 53 4e 31 5f 49 4e 54 45 47 45 );...ASN1_INTEGE
9880: 52 5f 73 65 74 28 58 35 30 39 5f 67 65 74 5f 73 R_set(X509_get_s
9890: 65 72 69 61 6c 4e 75 6d 62 65 72 28 63 65 72 74 erialNumber(cert
98a0: 29 2c 73 65 72 69 61 6c 29 3b 0a 09 09 58 35 30 ),serial);...X50
98b0: 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 9_gmtime_adj(X50
98c0: 39 5f 67 65 74 5f 6e 6f 74 42 65 66 6f 72 65 28 9_get_notBefore(
98d0: 63 65 72 74 29 2c 30 29 3b 0a 09 09 58 35 30 39 cert),0);...X509
98e0: 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 _gmtime_adj(X509
98f0: 5f 67 65 74 5f 6e 6f 74 41 66 74 65 72 28 63 65 _get_notAfter(ce
9900: 72 74 29 2c 28 6c 6f 6e 67 29 36 30 2a 36 30 2a rt),(long)60*60*
9910: 32 34 2a 64 61 79 73 29 3b 0a 09 09 58 35 30 39 24*days);...X509
9920: 5f 73 65 74 5f 70 75 62 6b 65 79 28 63 65 72 74 _set_pubkey(cert
9930: 2c 70 6b 65 79 29 3b 0a 09 09 0a 09 09 6e 61 6d ,pkey);......nam
9940: 65 3d 58 35 30 39 5f 67 65 74 5f 73 75 62 6a 65 e=X509_get_subje
9950: 63 74 5f 6e 61 6d 65 28 63 65 72 74 29 3b 0a 0a ct_name(cert);..
9960: 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f ..X509_NAME_add_
9970: 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d entry_by_txt(nam
9980: 65 2c 22 43 22 2c 20 4d 42 53 54 52 49 4e 47 5f e,"C", MBSTRING_
9990: 41 53 43 2c 20 6b 5f 43 2c 20 2d 31 2c 20 2d 31 ASC, k_C, -1, -1
99a0: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d , 0);...X509_NAM
99b0: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 E_add_entry_by_t
99c0: 78 74 28 6e 61 6d 65 2c 22 53 54 22 2c 20 4d 42 xt(name,"ST", MB
99d0: 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 53 54 STRING_ASC, k_ST
99e0: 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 , -1, -1, 0);...
99f0: 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e X509_NAME_add_en
9a00: 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c try_by_txt(name,
9a10: 22 4c 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 "L", MBSTRING_AS
9a20: 43 2c 20 6b 5f 4c 2c 20 2d 31 2c 20 2d 31 2c 20 C, k_L, -1, -1,
9a30: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 0);...X509_NAME_
9a40: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 add_entry_by_txt
9a50: 28 6e 61 6d 65 2c 22 4f 22 2c 20 4d 42 53 54 52 (name,"O", MBSTR
9a60: 49 4e 47 5f 41 53 43 2c 20 6b 5f 4f 2c 20 2d 31 ING_ASC, k_O, -1
9a70: 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 , -1, 0);...X509
9a80: 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f _NAME_add_entry_
9a90: 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4f 55 22 by_txt(name,"OU"
9aa0: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 , MBSTRING_ASC,
9ab0: 6b 5f 4f 55 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 k_OU, -1, -1, 0)
9ac0: 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 ;...X509_NAME_ad
9ad0: 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e d_entry_by_txt(n
9ae0: 61 6d 65 2c 22 43 4e 22 2c 20 4d 42 53 54 52 49 ame,"CN", MBSTRI
9af0: 4e 47 5f 41 53 43 2c 20 6b 5f 43 4e 2c 20 2d 31 NG_ASC, k_CN, -1
9b00: 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 , -1, 0);...X509
9b10: 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f _NAME_add_entry_
9b20: 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 45 6d 61 by_txt(name,"Ema
9b30: 69 6c 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 il", MBSTRING_AS
9b40: 43 2c 20 6b 5f 45 6d 61 69 6c 2c 20 2d 31 2c 20 C, k_Email, -1,
9b50: 2d 31 2c 20 30 29 3b 0a 0a 09 09 58 35 30 39 5f -1, 0);....X509_
9b60: 73 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 6d 65 set_subject_name
9b70: 28 63 65 72 74 2c 6e 61 6d 65 29 3b 0a 0a 09 09 (cert,name);....
9b80: 69 66 20 28 21 58 35 30 39 5f 73 69 67 6e 28 63 if (!X509_sign(c
9b90: 65 72 74 2c 70 6b 65 79 2c 45 56 50 5f 6d 64 35 ert,pkey,EVP_md5
9ba0: 28 29 29 29 20 7b 0a 09 09 20 20 20 20 58 35 30 ())) {... X50
9bb0: 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 09 09 9_free(cert);...
9bc0: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 EVP_PKEY_fre
9bd0: 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 54 e(pkey);... T
9be0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
9bf0: 65 72 70 2c 22 45 72 72 6f 72 20 73 69 67 6e 69 erp,"Error signi
9c00: 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 22 2c ng certificate",
9c10: 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72 65 74 NULL);... ret
9c20: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
9c30: 09 7d 0a 0a 09 09 6f 75 74 3d 42 49 4f 5f 6e 65 .}....out=BIO_ne
9c40: 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29 3b w(BIO_s_file());
9c50: 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 69 6c ...BIO_write_fil
9c60: 65 6e 61 6d 65 28 6f 75 74 2c 70 65 6d 6f 75 74 ename(out,pemout
9c70: 29 3b 0a 0a 09 09 50 45 4d 5f 77 72 69 74 65 5f );....PEM_write_
9c80: 62 69 6f 5f 58 35 30 39 28 6f 75 74 2c 63 65 72 bio_X509(out,cer
9c90: 74 29 3b 0a 09 09 42 49 4f 5f 66 72 65 65 5f 61 t);...BIO_free_a
9ca0: 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 58 35 30 39 ll(out);....X509
9cb0: 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 09 09 45 _free(cert);...E
9cc0: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
9cd0: 79 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 y);.. } else
9ce0: 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c {...Tcl_SetResul
9cf0: 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 t(interp,"Error
9d00: 67 65 6e 65 72 61 74 69 6e 67 20 70 72 69 76 61 generating priva
9d10: 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 te key",NULL);..
9d20: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
9d30: 52 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 62 72 R;.. }..}..br
9d40: 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 eak;. default
9d50: 3a 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a :..break;. }.
9d60: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
9d70: 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d K;.}.../*. *----
9d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9dc0: 20 2a 0a 20 2a 20 54 6c 73 5f 46 72 65 65 20 2d *. * Tls_Free -
9dd0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
9de0: 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 75 70 cedure cleans up
9df0: 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b when a SSL sock
9e00: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c et based channel
9e10: 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 6e . *.is closed an
9e20: 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 65 20 d its reference
9e30: 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f count falls belo
9e40: 77 20 31 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 w 1. *. * Result
9e50: 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a s:. *.none. *. *
9e60: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
9e70: 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 68 65 20 *.Frees all the
9e80: 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d state. *. *-----
9e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
9ed0: 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 46 72 65 65 */.void.Tls_Free
9ee0: 28 20 63 68 61 72 20 2a 62 6c 6f 63 6b 50 74 72 ( char *blockPtr
9ef0: 20 29 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a ).{. State *
9f00: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
9f10: 65 20 2a 29 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 e *)blockPtr;..
9f20: 20 20 20 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 Tls_Clean(sta
9f30: 74 65 50 74 72 29 3b 0a 20 20 20 20 63 6b 66 72 tePtr);. ckfr
9f40: 65 65 28 62 6c 6f 63 6b 50 74 72 29 3b 0a 7d 0a ee(blockPtr);.}.
9f50: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
9f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
9fa0: 20 54 6c 73 5f 43 6c 65 61 6e 20 2d 2d 0a 20 2a Tls_Clean --. *
9fb0: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
9fc0: 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 re cleans up whe
9fd0: 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 n a SSL socket b
9fe0: 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 ased channel. *.
9ff0: 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 is closed and it
a000: 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e s reference coun
a010: 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 2e t falls below 1.
a020: 20 20 54 68 69 73 20 73 68 6f 75 6c 64 0a 20 2a This should. *
a030: 09 62 65 20 63 61 6c 6c 65 64 20 73 79 6e 63 68 .be called synch
a040: 72 6f 6e 6f 75 73 6c 79 20 62 79 20 74 68 65 20 ronously by the
a050: 43 6c 6f 73 65 50 72 6f 63 2c 20 6e 6f 74 20 69 CloseProc, not i
a060: 6e 20 74 68 65 0a 20 2a 09 45 76 65 6e 74 75 61 n the. *.Eventua
a070: 6c 6c 79 46 72 65 65 20 63 61 6c 6c 62 61 63 6b llyFree callback
a080: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
a090: 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 . *.none. *. * S
a0a0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
a0b0: 46 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 Frees all the st
a0c0: 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ate. *. *-------
a0d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a0e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a0f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
a110: 0a 76 6f 69 64 0a 54 6c 73 5f 43 6c 65 61 6e 28 .void.Tls_Clean(
a120: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 29 State *statePtr)
a130: 0a 7b 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a .{. /*. *
a140: 20 77 65 27 72 65 20 61 73 73 75 6d 69 6e 67 20 we're assuming
a150: 68 65 72 65 20 74 68 61 74 20 77 65 27 72 65 20 here that we're
a160: 73 69 6e 67 6c 65 2d 74 68 72 65 61 64 65 64 0a single-threaded.
a170: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 */.. if
a180: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
a190: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
a1a0: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ken) NULL) {..Tc
a1b0: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
a1c0: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
a1d0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
a1e0: 2d 3e 74 69 6d 65 72 20 3d 20 4e 55 4c 4c 3b 0a ->timer = NULL;.
a1f0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 }.. if (s
a200: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 7b 0a tatePtr->bio) {.
a210: 09 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 63 61 ./* This will ca
a220: 6c 6c 20 53 53 4c 5f 73 68 75 74 64 6f 77 6e 2e ll SSL_shutdown.
a230: 20 42 75 67 20 31 34 31 34 30 34 35 20 2a 2f 0a Bug 1414045 */.
a240: 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 66 72 .dprintf("BIO_fr
a250: 65 65 5f 61 6c 6c 28 25 70 29 22 2c 20 73 74 61 ee_all(%p)", sta
a260: 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 42 49 tePtr->bio);..BI
a270: 4f 5f 66 72 65 65 5f 61 6c 6c 28 73 74 61 74 65 O_free_all(state
a280: 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 73 74 61 74 Ptr->bio);..stat
a290: 65 50 74 72 2d 3e 62 69 6f 20 3d 20 4e 55 4c 4c ePtr->bio = NULL
a2a0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
a2b0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b statePtr->ssl) {
a2c0: 0a 09 64 70 72 69 6e 74 66 28 22 53 53 4c 5f 66 ..dprintf("SSL_f
a2d0: 72 65 65 28 25 70 29 22 2c 20 73 74 61 74 65 50 ree(%p)", stateP
a2e0: 74 72 2d 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 tr->ssl);..SSL_f
a2f0: 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ree(statePtr->ss
a300: 6c 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 l);..statePtr->s
a310: 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d sl = NULL;. }
a320: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
a330: 72 2d 3e 63 74 78 29 20 7b 0a 09 53 53 4c 5f 43 r->ctx) {..SSL_C
a340: 54 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 TX_free(statePtr
a350: 2d 3e 63 74 78 29 3b 0a 09 73 74 61 74 65 50 74 ->ctx);..statePt
a360: 72 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 r->ctx = NULL;.
a370: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 }. if (sta
a380: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 tePtr->callback)
a390: 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 {..Tcl_DecrRefC
a3a0: 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 ount(statePtr->c
a3b0: 61 6c 6c 62 61 63 6b 29 3b 0a 09 73 74 61 74 65 allback);..state
a3c0: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 Ptr->callback =
a3d0: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
a3e0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 70 61 if (statePtr->pa
a3f0: 73 73 77 6f 72 64 29 20 7b 0a 09 54 63 6c 5f 44 ssword) {..Tcl_D
a400: 65 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 ecrRefCount(stat
a410: 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b ePtr->password);
a420: 0a 09 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 ..statePtr->pass
a430: 77 6f 72 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 word = NULL;.
a440: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}.../*. *----
a450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
a490: 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 20 2d *. * Tls_Init -
a4a0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 73 20 -. *. *.This is
a4b0: 61 20 70 61 63 6b 61 67 65 20 69 6e 69 74 69 61 a package initia
a4c0: 6c 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 lization procedu
a4d0: 72 65 2c 20 77 68 69 63 68 20 69 73 20 63 61 6c re, which is cal
a4e0: 6c 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 77 68 led. *.by Tcl wh
a4f0: 65 6e 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 en this package
a500: 69 73 20 74 6f 20 62 65 20 61 64 64 65 64 20 74 is to be added t
a510: 6f 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 o an interpreter
a520: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
a530: 20 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 65 64 Ssl configured
a540: 20 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 and loaded. *.
a550: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
a560: 20 2a 09 20 63 72 65 61 74 65 20 74 68 65 20 73 *. create the s
a570: 73 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 sl command, init
a580: 69 61 6c 69 73 65 20 73 73 6c 20 63 6f 6e 74 65 ialise ssl conte
a590: 78 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d xt. *. *--------
a5a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a5b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a5c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a5d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
a5e0: 0a 69 6e 74 0a 54 6c 73 5f 49 6e 69 74 28 54 63 .int.Tls_Init(Tc
a5f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
a600: 29 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 )../* Interprete
a610: 72 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 70 r in which the p
a620: 61 63 6b 61 67 65 20 69 73 0a 09 09 09 09 09 20 ackage is......
a630: 2a 20 74 6f 20 62 65 20 6d 61 64 65 20 61 76 61 * to be made ava
a640: 69 6c 61 62 6c 65 2e 20 2a 2f 0a 7b 0a 20 20 20 ilable. */.{.
a650: 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 const unsigned
a660: 63 68 61 72 20 74 6c 73 54 63 6c 49 6e 69 74 53 char tlsTclInitS
a670: 63 72 69 70 74 5b 5d 20 3d 20 7b 0a 23 69 6e 63 cript[] = {.#inc
a680: 6c 75 64 65 20 22 74 6c 73 2e 74 63 6c 2e 68 22 lude "tls.tcl.h"
a690: 0a 20 20 20 20 7d 3b 0a 0a 20 20 20 20 69 6e 74 . };.. int
a6a0: 20 6d 61 6a 6f 72 2c 20 6d 69 6e 6f 72 2c 20 70 major, minor, p
a6b0: 61 74 63 68 6c 65 76 65 6c 2c 20 72 65 6c 65 61 atchlevel, relea
a6c0: 73 65 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 se;.. /*.
a6d0: 20 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 * The original
a6e0: 38 2e 32 2e 30 20 73 74 61 63 6b 65 64 20 63 68 8.2.0 stacked ch
a6f0: 61 6e 6e 65 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 annel implementa
a700: 74 69 6f 6e 20 28 61 6e 64 20 74 68 65 20 70 61 tion (and the pa
a710: 74 63 68 0a 20 20 20 20 20 2a 20 74 68 61 74 20 tch. * that
a720: 70 72 65 63 65 64 65 64 20 69 74 29 20 68 61 64 preceded it) had
a730: 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 73 problems with s
a740: 63 61 6c 61 62 69 6c 69 74 79 20 61 6e 64 20 72 calability and r
a750: 6f 62 75 73 74 6e 65 73 73 2e 0a 20 20 20 20 20 obustness..
a760: 2a 20 54 68 65 73 65 20 77 65 72 65 20 61 64 64 * These were add
a770: 72 65 73 73 20 69 6e 20 38 2e 33 2e 32 20 2f 20 ress in 8.3.2 /
a780: 38 2e 34 61 32 2c 20 73 6f 20 77 65 20 6e 6f 77 8.4a2, so we now
a790: 20 72 65 71 75 69 72 65 20 74 68 61 74 20 61 73 require that as
a7a0: 20 61 0a 20 20 20 20 20 2a 20 6d 69 6e 69 6d 75 a. * minimu
a7b0: 6d 20 66 6f 72 20 54 4c 53 20 31 2e 34 2b 2e 20 m for TLS 1.4+.
a7c0: 20 57 65 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 We only support
a7d0: 20 38 2e 32 2b 20 6e 6f 77 20 28 38 2e 33 2e 32 8.2+ now (8.3.2
a7e0: 2b 20 70 72 65 66 65 72 72 65 64 29 2e 0a 20 20 + preferred)..
a7f0: 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 0a 23 */. if (.#
a800: 69 66 64 65 66 20 55 53 45 5f 54 43 4c 5f 53 54 ifdef USE_TCL_ST
a810: 55 42 53 0a 09 54 63 6c 5f 49 6e 69 74 53 74 75 UBS..Tcl_InitStu
a820: 62 73 28 69 6e 74 65 72 70 2c 20 22 38 2e 32 22 bs(interp, "8.2"
a830: 2c 20 30 29 0a 23 65 6c 73 65 0a 09 54 63 6c 5f , 0).#else..Tcl_
a840: 50 6b 67 52 65 71 75 69 72 65 28 69 6e 74 65 72 PkgRequire(inter
a850: 70 2c 20 22 54 63 6c 22 2c 20 22 38 2e 32 22 2c p, "Tcl", "8.2",
a860: 20 30 29 0a 23 65 6e 64 69 66 0a 09 3d 3d 20 4e 0).#endif..== N
a870: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
a880: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
a890: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 47 . /*. * G
a8a0: 65 74 20 74 68 65 20 76 65 72 73 69 6f 6e 20 73 et the version s
a8b0: 6f 20 77 65 20 63 61 6e 20 72 75 6e 74 69 6d 65 o we can runtime
a8c0: 20 73 77 69 74 63 68 20 6f 6e 20 61 76 61 69 6c switch on avail
a8d0: 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 61 6c 69 able functionali
a8e0: 74 79 2e 0a 20 20 20 20 20 2a 20 54 4c 53 20 73 ty.. * TLS s
a8f0: 68 6f 75 6c 64 20 72 65 61 6c 6c 79 20 6f 6e 6c hould really onl
a900: 79 20 62 65 20 75 73 65 64 20 69 6e 20 38 2e 33 y be used in 8.3
a910: 2e 32 2b 2c 20 62 75 74 20 74 68 65 20 6f 74 68 .2+, but the oth
a920: 65 72 20 77 6f 72 6b 73 20 66 6f 72 0a 20 20 20 er works for.
a930: 20 20 2a 20 73 6f 6d 65 20 6c 69 6d 69 74 65 64 * some limited
a940: 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2c 20 functionality,
a950: 73 6f 20 61 6e 20 61 74 74 65 6d 70 74 20 61 74 so an attempt at
a960: 20 73 75 70 70 6f 72 74 20 69 73 20 6d 61 64 65 support is made
a970: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 .. */. Tc
a980: 6c 5f 47 65 74 56 65 72 73 69 6f 6e 28 26 6d 61 l_GetVersion(&ma
a990: 6a 6f 72 2c 20 26 6d 69 6e 6f 72 2c 20 26 70 61 jor, &minor, &pa
a9a0: 74 63 68 6c 65 76 65 6c 2c 20 26 72 65 6c 65 61 tchlevel, &relea
a9b0: 73 65 29 3b 0a 20 20 20 20 69 66 20 28 28 6d 61 se);. if ((ma
a9c0: 6a 6f 72 20 3e 20 38 29 20 7c 7c 20 28 28 6d 61 jor > 8) || ((ma
a9d0: 6a 6f 72 20 3d 3d 20 38 29 20 26 26 20 28 28 6d jor == 8) && ((m
a9e0: 69 6e 6f 72 20 3e 20 33 29 20 7c 7c 20 28 28 6d inor > 3) || ((m
a9f0: 69 6e 6f 72 20 3d 3d 20 33 29 20 26 26 0a 09 20 inor == 3) &&..
aa00: 20 20 20 28 72 65 6c 65 61 73 65 20 3d 3d 20 54 (release == T
aa10: 43 4c 5f 46 49 4e 41 4c 5f 52 45 4c 45 41 53 45 CL_FINAL_RELEASE
aa20: 29 20 26 26 20 28 70 61 74 63 68 6c 65 76 65 6c ) && (patchlevel
aa30: 20 3e 3d 20 32 29 29 29 29 29 20 7b 0a 09 2f 2a >= 2))))) {../*
aa40: 20 38 2e 33 2e 32 2b 20 2a 2f 0a 09 63 68 61 6e 8.3.2+ */..chan
aa50: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
aa60: 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TLS_CHANNEL_VER
aa70: 53 49 4f 4e 5f 32 3b 0a 20 20 20 20 7d 20 65 6c SION_2;. } el
aa80: 73 65 20 7b 0a 09 2f 2a 20 38 2e 32 2e 30 20 2d se {../* 8.2.0 -
aa90: 20 38 2e 33 2e 31 20 2a 2f 0a 09 63 68 61 6e 6e 8.3.1 */..chann
aaa0: 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 20 elTypeVersion =
aab0: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
aac0: 49 4f 4e 5f 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 ION_1;. }..
aad0: 20 20 69 66 20 28 54 6c 73 4c 69 62 49 6e 69 74 if (TlsLibInit
aae0: 28 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a () != TCL_OK) {.
aaf0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
ab00: 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 t(interp, "could
ab10: 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 not initialize
ab20: 53 53 4c 20 6c 69 62 72 61 72 79 22 2c 20 4e 55 SSL library", NU
ab30: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
ab40: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
ab50: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
ab60: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
ab70: 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 "tls::ciphers",
ab80: 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 0a 09 CiphersObjCmd,..
ab90: 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 (ClientData)
aba0: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
abb0: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
abc0: 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 .. Tcl_Create
abd0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
abe0: 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 73 68 61 p, "tls::handsha
abf0: 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b 65 4f 62 ke", HandshakeOb
ac00: 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 jCmd,.. (Clie
ac10: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f ntData) 0, (Tcl_
ac20: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
ac30: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c NULL);.. Tcl
ac40: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
ac50: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
ac60: 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 4f import", ImportO
ac70: 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 bjCmd,.. (Cli
ac80: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
ac90: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
aca0: 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 ) NULL);.. Tc
acb0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
acc0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
acd0: 3a 75 6e 69 6d 70 6f 72 74 22 2c 20 55 6e 69 6d :unimport", Unim
ace0: 70 6f 72 74 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 portObjCmd,..
acf0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
ad00: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
ad10: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
ad20: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
ad30: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
ad40: 22 74 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 "tls::status", S
ad50: 74 61 74 75 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 tatusObjCmd,..
ad60: 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 (ClientData) 0
ad70: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
ad80: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a Proc *) NULL);..
ad90: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
ada0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
adb0: 20 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c "tls::version",
adc0: 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 0a VersionObjCmd,.
add0: 09 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 . (ClientData
ade0: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
adf0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
ae00: 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 ;.. Tcl_Creat
ae10: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
ae20: 72 70 2c 20 22 74 6c 73 3a 3a 6d 69 73 63 22 2c rp, "tls::misc",
ae30: 20 4d 69 73 63 4f 62 6a 43 6d 64 2c 0a 09 20 20 MiscObjCmd,..
ae40: 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 (ClientData) 0
ae50: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
ae60: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a Proc *) NULL);..
ae70: 20 20 20 20 69 66 20 28 69 6e 74 65 72 70 29 20 if (interp)
ae80: 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 45 76 {. Tcl_Ev
ae90: 61 6c 28 69 6e 74 65 72 70 2c 20 74 6c 73 54 63 al(interp, tlsTc
aea0: 6c 49 6e 69 74 53 63 72 69 70 74 29 3b 0a 20 20 lInitScript);.
aeb0: 20 20 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 }.. return
aec0: 54 63 6c 5f 50 6b 67 50 72 6f 76 69 64 65 28 69 Tcl_PkgProvide(i
aed0: 6e 74 65 72 70 2c 20 22 74 6c 73 22 2c 20 50 41 nterp, "tls", PA
aee0: 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 29 3b 0a CKAGE_VERSION);.
aef0: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
af00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
af10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
af20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
af30: 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 66 65 49 . *. *.Tls_SafeI
af40: 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d nit --. *. *.---
af50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
af60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
af70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
af80: 2a 09 53 74 61 6e 64 61 72 64 20 70 72 6f 63 65 *.Standard proce
af90: 64 75 72 65 20 72 65 71 75 69 72 65 64 20 62 79 dure required by
afa0: 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 49 6e 69 'load'. . *.Ini
afb0: 74 69 61 6c 69 7a 65 73 20 74 68 69 73 20 65 78 tializes this ex
afc0: 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 20 73 61 tension for a sa
afd0: 66 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a fe interpreter..
afe0: 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.-------------
aff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b010: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 ---*. *. *.Sidee
b020: 66 66 65 63 74 73 3a 0a 20 2a 09 09 41 73 20 6f ffects:. *..As o
b030: 66 20 27 54 6c 73 5f 49 6e 69 74 27 0a 20 2a 0a f 'Tls_Init'. *.
b040: 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 41 *.Result:. *..A
b050: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 65 72 standard Tcl er
b060: 72 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a 20 2a 2d ror code.. *. *-
b070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b0a0: 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 69 6e 74 0a -----*. */..int.
b0b0: 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 28 54 63 Tls_SafeInit (Tc
b0c0: 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 l_Interp* interp
b0d0: 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ).{. return T
b0e0: 6c 73 5f 49 6e 69 74 20 28 69 6e 74 65 72 70 29 ls_Init (interp)
b0f0: 3b 0a 7d 0a 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ;.}..../*. *----
b100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b130: 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 4c 69 62 --*. *. *.TlsLib
b140: 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d Init --. *. *.--
b150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
b180: 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 53 *.Initializes S
b190: 53 4c 20 6c 69 62 72 61 72 79 20 6f 6e 63 65 20 SL library once
b1a0: 70 65 72 20 61 70 70 6c 69 63 61 74 69 6f 6e 0a per application.
b1b0: 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.-------------
b1c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b1d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b1e0: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 20 ---*. *. *.Side
b1f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 69 6e 69 effects:. *..ini
b200: 74 69 6c 69 7a 65 73 20 53 53 4c 20 6c 69 62 72 tilizes SSL libr
b210: 61 72 79 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 ary. *. *.Result
b220: 3a 0a 20 2a 09 09 6e 6f 6e 65 0a 20 2a 0a 20 2a :. *..none. *. *
b230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b260: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 ------*. */.stat
b270: 69 63 20 69 6e 74 20 54 6c 73 4c 69 62 49 6e 69 ic int TlsLibIni
b280: 74 20 28 76 6f 69 64 29 20 7b 0a 20 20 20 20 73 t (void) {. s
b290: 74 61 74 69 63 20 69 6e 74 20 69 6e 69 74 69 61 tatic int initia
b2a0: 6c 69 7a 65 64 20 3d 20 30 3b 0a 20 20 20 20 69 lized = 0;. i
b2b0: 6e 74 20 69 3b 0a 20 20 20 20 63 68 61 72 20 72 nt i;. char r
b2c0: 6e 64 5f 73 65 65 64 5b 31 36 5d 20 3d 20 22 47 nd_seed[16] = "G
b2d0: 72 7a 53 6c 70 6c 4b 71 55 64 6e 6e 7a 50 21 22 rzSlplKqUdnnzP!"
b2e0: 3b 09 2f 2a 20 31 36 20 62 79 74 65 73 20 2a 2f ;./* 16 bytes */
b2f0: 0a 20 20 20 20 69 6e 74 20 73 74 61 74 75 73 3d . int status=
b300: 54 43 4c 5f 4f 4b 3b 0a 0a 20 20 20 20 69 66 20 TCL_OK;.. if
b310: 28 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a (initialized) {.
b320: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 73 return s
b330: 74 61 74 75 73 3b 0a 20 20 20 20 7d 0a 20 20 20 tatus;. }.
b340: 20 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 31 initialized = 1
b350: 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f ;..#if defined(O
b360: 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 PENSSL_THREADS)
b370: 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 && defined(TCL_T
b380: 48 52 45 41 44 53 29 0a 20 20 20 20 73 69 7a 65 HREADS). size
b390: 5f 74 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 0a 20 _t num_locks;..
b3a0: 20 20 20 54 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b Tcl_MutexLock
b3b0: 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 (&init_mx);.#end
b3c0: 69 66 0a 0a 09 20 20 20 20 69 66 20 28 43 52 59 if... if (CRY
b3d0: 50 54 4f 5f 73 65 74 5f 6d 65 6d 5f 66 75 6e 63 PTO_set_mem_func
b3e0: 74 69 6f 6e 73 28 28 76 6f 69 64 20 2a 28 2a 29 tions((void *(*)
b3f0: 28 73 69 7a 65 5f 74 29 29 54 63 6c 5f 41 6c 6c (size_t))Tcl_All
b400: 6f 63 2c 0a 09 09 09 09 09 20 28 76 6f 69 64 20 oc,...... (void
b410: 2a 28 2a 29 28 76 6f 69 64 20 2a 2c 20 73 69 7a *(*)(void *, siz
b420: 65 5f 74 29 29 54 63 6c 5f 52 65 61 6c 6c 6f 63 e_t))Tcl_Realloc
b430: 2c 0a 09 09 09 09 09 20 28 76 6f 69 64 28 2a 29 ,...... (void(*)
b440: 28 76 6f 69 64 20 2a 29 29 54 63 6c 5f 46 72 65 (void *))Tcl_Fre
b450: 65 29 20 3d 3d 20 30 29 20 7b 0a 09 20 20 20 20 e) == 0) {..
b460: 20 20 20 2f 2a 20 4e 6f 74 20 75 73 69 6e 67 20 /* Not using
b470: 54 63 6c 27 73 20 6d 65 6d 20 66 75 6e 63 74 69 Tcl's mem functi
b480: 6f 6e 73 20 2e 2e 2e 20 6e 6f 74 20 63 72 69 74 ons ... not crit
b490: 69 63 61 6c 20 2a 2f 0a 09 20 20 20 20 7d 0a 0a ical */.. }..
b4a0: 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e #if defined(OPEN
b4b0: 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 SSL_THREADS) &&
b4c0: 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 defined(TCL_THRE
b4d0: 41 44 53 29 0a 09 20 20 20 20 2f 2a 20 73 68 6f ADS).. /* sho
b4e0: 75 6c 64 20 77 65 20 63 6f 6e 73 69 64 65 72 20 uld we consider
b4f0: 61 6c 6c 6f 63 61 74 69 6e 67 20 6d 75 74 65 78 allocating mutex
b500: 65 73 3f 20 2a 2f 0a 09 20 20 20 20 6e 75 6d 5f es? */.. num_
b510: 6c 6f 63 6b 73 20 3d 20 43 52 59 50 54 4f 5f 6e locks = CRYPTO_n
b520: 75 6d 5f 6c 6f 63 6b 73 28 29 3b 0a 09 20 20 20 um_locks();..
b530: 20 69 66 20 28 6e 75 6d 5f 6c 6f 63 6b 73 20 3e if (num_locks >
b540: 20 43 52 59 50 54 4f 5f 4e 55 4d 5f 4c 4f 43 4b CRYPTO_NUM_LOCK
b550: 53 29 20 7b 0a 09 09 73 74 61 74 75 73 3d 54 43 S) {...status=TC
b560: 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 L_ERROR;...goto
b570: 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 done;.. }...
b580: 20 20 20 43 52 59 50 54 4f 5f 73 65 74 5f 6c 6f CRYPTO_set_lo
b590: 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28 43 cking_callback(C
b5a0: 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b 43 ryptoThreadLockC
b5b0: 61 6c 6c 62 61 63 6b 29 3b 0a 09 20 20 20 20 43 allback);.. C
b5c0: 52 59 50 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c RYPTO_set_id_cal
b5d0: 6c 62 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65 lback(CryptoThre
b5e0: 61 64 49 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 23 adIdCallback);.#
b5f0: 65 6e 64 69 66 0a 0a 09 20 20 20 20 69 66 20 28 endif... if (
b600: 53 53 4c 5f 6c 69 62 72 61 72 79 5f 69 6e 69 74 SSL_library_init
b610: 28 29 20 21 3d 20 31 29 20 7b 0a 09 20 20 20 20 () != 1) {..
b620: 09 73 74 61 74 75 73 3d 54 43 4c 5f 45 52 52 4f .status=TCL_ERRO
b630: 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a R;...goto done;.
b640: 09 20 20 20 20 7d 0a 09 20 20 20 20 53 53 4c 5f . }.. SSL_
b650: 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 72 69 6e load_error_strin
b660: 67 73 28 29 3b 0a 09 20 20 20 20 45 52 52 5f 6c gs();.. ERR_l
b670: 6f 61 64 5f 63 72 79 70 74 6f 5f 73 74 72 69 6e oad_crypto_strin
b680: 67 73 28 29 3b 0a 0a 09 20 20 20 20 2f 2a 0a 09 gs();... /*..
b690: 20 20 20 20 20 2a 20 53 65 65 64 20 74 68 65 20 * Seed the
b6a0: 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 67 65 random number ge
b6b0: 6e 65 72 61 74 6f 72 20 69 6e 20 74 68 65 20 53 nerator in the S
b6c0: 53 4c 20 6c 69 62 72 61 72 79 2c 0a 09 20 20 20 SL library,..
b6d0: 20 20 2a 20 75 73 69 6e 67 20 74 68 65 20 64 6f * using the do
b6e0: 2f 77 68 69 6c 65 20 63 6f 6e 73 74 72 75 63 74 /while construct
b6f0: 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65 20 because of the
b700: 62 75 67 20 6e 6f 74 65 20 69 6e 20 74 68 65 0a bug note in the.
b710: 09 20 20 20 20 20 2a 20 4f 70 65 6e 53 53 4c 20 . * OpenSSL
b720: 46 41 51 20 61 74 20 68 74 74 70 3a 2f 2f 77 77 FAQ at http://ww
b730: 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 2f 73 75 w.openssl.org/su
b740: 70 70 6f 72 74 2f 66 61 71 2e 68 74 6d 6c 23 55 pport/faq.html#U
b750: 53 45 52 31 0a 09 20 20 20 20 20 2a 0a 09 20 20 SER1.. *..
b760: 20 20 20 2a 20 54 68 65 20 63 72 75 78 20 6f 66 * The crux of
b770: 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 69 73 20 the problem is
b780: 74 68 61 74 20 53 6f 6c 61 72 69 73 20 37 20 64 that Solaris 7 d
b790: 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 20 0a oes not have a .
b7a0: 09 20 20 20 20 20 2a 20 2f 64 65 76 2f 72 61 6e . * /dev/ran
b7b0: 64 6f 6d 20 6f 72 20 2f 64 65 76 2f 75 72 61 6e dom or /dev/uran
b7c0: 64 6f 6d 20 64 65 76 69 63 65 20 73 6f 20 69 74 dom device so it
b7d0: 20 63 61 6e 6e 6f 74 20 67 61 74 68 65 72 20 65 cannot gather e
b7e0: 6e 6f 75 67 68 0a 09 20 20 20 20 20 2a 20 65 6e nough.. * en
b7f0: 74 72 6f 70 79 20 66 72 6f 6d 20 74 68 65 20 52 tropy from the R
b800: 41 4e 44 5f 73 65 65 64 28 29 20 77 68 65 6e 20 AND_seed() when
b810: 54 4c 53 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 TLS initializes
b820: 61 6e 64 20 72 65 66 75 73 65 73 0a 09 20 20 20 and refuses..
b830: 20 20 2a 20 74 6f 20 67 6f 20 66 75 72 74 68 65 * to go furthe
b840: 72 2e 20 45 61 72 6c 69 65 72 20 76 65 72 73 69 r. Earlier versi
b850: 6f 6e 73 20 6f 66 20 4f 70 65 6e 53 53 4c 20 63 ons of OpenSSL c
b860: 61 72 72 69 65 64 20 6f 6e 20 72 65 67 61 72 64 arried on regard
b870: 6c 65 73 73 2e 0a 09 20 20 20 20 20 2a 2f 0a 09 less... */..
b880: 20 20 20 20 73 72 61 6e 64 28 28 75 6e 73 69 67 srand((unsig
b890: 6e 65 64 20 69 6e 74 29 20 74 69 6d 65 28 28 74 ned int) time((t
b8a0: 69 6d 65 5f 74 20 2a 29 20 4e 55 4c 4c 29 29 3b ime_t *) NULL));
b8b0: 0a 09 20 20 20 20 64 6f 20 7b 0a 09 09 66 6f 72 .. do {...for
b8c0: 20 28 69 20 3d 20 30 3b 20 69 20 3c 20 31 36 3b (i = 0; i < 16;
b8d0: 20 69 2b 2b 29 20 7b 0a 09 09 20 20 20 20 72 6e i++) {... rn
b8e0: 64 5f 73 65 65 64 5b 69 5d 20 3d 20 31 20 2b 20 d_seed[i] = 1 +
b8f0: 28 63 68 61 72 29 20 28 32 35 35 2e 30 20 2a 20 (char) (255.0 *
b900: 72 61 6e 64 28 29 2f 28 52 41 4e 44 5f 4d 41 58 rand()/(RAND_MAX
b910: 2b 31 2e 30 29 29 3b 0a 09 09 7d 0a 09 09 52 41 +1.0));...}...RA
b920: 4e 44 5f 73 65 65 64 28 72 6e 64 5f 73 65 65 64 ND_seed(rnd_seed
b930: 2c 20 73 69 7a 65 6f 66 28 72 6e 64 5f 73 65 65 , sizeof(rnd_see
b940: 64 29 29 3b 0a 09 20 20 20 20 7d 20 77 68 69 6c d));.. } whil
b950: 65 20 28 52 41 4e 44 5f 73 74 61 74 75 73 28 29 e (RAND_status()
b960: 20 21 3d 20 31 29 3b 0a 64 6f 6e 65 3a 0a 0a 23 != 1);.done:..#
b970: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 if defined(OPENS
b980: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 SL_THREADS) && d
b990: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 efined(TCL_THREA
b9a0: 44 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78 55 6e DS)..Tcl_MutexUn
b9b0: 6c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a lock(&init_mx);.
b9c0: 23 65 6e 64 69 66 0a 20 20 20 20 72 65 74 75 72 #endif. retur
b9d0: 6e 20 73 74 61 74 75 73 3b 0a 7d 0a n status;.}.