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 0a 20 2a 20 24 poration. *. * $
00b0: 48 65 61 64 65 72 3a 20 2f 68 6f 6d 65 2f 72 6b Header: /home/rk
00c0: 65 65 6e 65 2f 74 6d 70 2f 63 76 73 32 66 6f 73 eene/tmp/cvs2fos
00d0: 73 69 6c 2f 2e 2e 2f 74 63 6c 74 6c 73 2f 74 6c sil/../tcltls/tl
00e0: 73 2f 74 6c 73 2f 74 6c 73 2e 63 2c 76 20 31 2e s/tls/tls.c,v 1.
00f0: 31 34 20 32 30 30 32 2f 30 32 2f 30 34 20 32 32 14 2002/02/04 22
0100: 3a 34 36 3a 33 31 20 68 6f 62 62 73 20 45 78 70 :46:31 hobbs Exp
0110: 20 24 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 6b $. *. * TLS (ak
0120: 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 2d a SSL) Channel -
0130: 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 64 20 can be layered
0140: 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 63 74 on any bi-direct
0150: 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 61 ional. * Tcl_Cha
0160: 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 75 nnel (Note: Requ
0170: 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 50 61 ires Trf Core Pa
0180: 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 20 tch). *. * This
0190: 77 61 73 20 62 75 69 6c 74 20 28 61 6c 6d 6f 73 was built (almos
01a0: 74 29 20 66 72 6f 6d 20 73 63 72 61 74 63 68 20 t) from scratch
01b0: 62 61 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 72 based upon obser
01c0: 76 61 74 69 6f 6e 20 6f 66 0a 20 2a 20 4f 70 65 vation of. * Ope
01d0: 6e 53 53 4c 20 30 2e 39 2e 32 42 0a 20 2a 0a 20 nSSL 0.9.2B. *.
01e0: 2a 20 41 64 64 69 74 69 6f 6e 20 63 72 65 64 69 * Addition credi
01f0: 74 20 69 73 20 64 75 65 20 66 6f 72 20 41 6e 64 t is due for And
0200: 72 65 61 73 20 4b 75 70 72 69 65 73 20 28 61 2e reas Kupries (a.
0210: 6b 75 70 72 69 65 73 40 77 65 73 74 65 6e 64 2e kupries@westend.
0220: 63 6f 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 72 6f com), for. * pro
0230: 76 69 64 69 6e 67 20 74 68 65 20 54 63 6c 5f 52 viding the Tcl_R
0240: 65 70 6c 61 63 65 43 68 61 6e 6e 65 6c 20 6d 65 eplaceChannel me
0250: 63 68 61 6e 69 73 6d 20 61 6e 64 20 77 6f 72 6b chanism and work
0260: 69 6e 67 20 63 6c 6f 73 65 6c 79 20 77 69 74 68 ing closely with
0270: 20 6d 65 0a 20 2a 20 74 6f 20 65 6e 68 61 6e 63 me. * to enhanc
0280: 65 20 69 74 20 74 6f 20 73 75 70 70 6f 72 74 20 e it to support
0290: 66 75 6c 6c 20 66 69 6c 65 65 76 65 6e 74 20 73 full fileevent s
02a0: 65 6d 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 2a 20 emantics.. *. *
02b0: 41 6c 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 20 62 Also work done b
02c0: 79 20 74 68 65 20 66 6f 6c 6c 6f 77 20 70 65 6f y the follow peo
02d0: 70 6c 65 20 70 72 6f 76 69 64 65 64 20 74 68 65 ple provided the
02e0: 20 69 6d 70 65 74 75 73 20 74 6f 20 64 6f 20 74 impetus to do t
02f0: 68 69 73 20 22 72 69 67 68 74 22 3a 0a 20 2a 09 his "right":. *.
0300: 74 63 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 4d 63 tclSSL (Colin Mc
0310: 43 6f 72 6d 61 63 6b 2c 20 53 68 61 72 65 64 20 Cormack, Shared
0320: 54 65 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a 09 53 Technology). *.S
0330: 53 4c 74 63 6c 20 28 50 65 74 65 72 20 41 6e 74 SLtcl (Peter Ant
0340: 6d 61 6e 29 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 6e man). *. */..#in
0350: 63 6c 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 clude "tlsInt.h"
0360: 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 4f 70 .#include "tclOp
0370: 74 73 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c ts.h".#include <
0380: 73 74 64 6c 69 62 2e 68 3e 0a 0a 2f 2a 0a 20 2a stdlib.h>../*. *
0390: 20 45 78 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 External functi
03a0: 6f 6e 73 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 46 ons. */../*. * F
03b0: 6f 72 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 orward declarati
03c0: 6f 6e 73 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 ons. */..#define
03d0: 20 46 32 4e 28 20 6b 65 79 2c 20 64 73 70 29 20 F2N( key, dsp)
03e0: 5c 0a 09 28 28 28 6b 65 79 29 20 3d 3d 20 4e 55 \..(((key) == NU
03f0: 4c 4c 29 20 3f 20 28 63 68 61 72 20 2a 29 20 4e LL) ? (char *) N
0400: 55 4c 4c 20 3a 20 5c 0a 09 09 54 63 6c 5f 54 72 ULL : \...Tcl_Tr
0410: 61 6e 73 6c 61 74 65 46 69 6c 65 4e 61 6d 65 28 anslateFileName(
0420: 69 6e 74 65 72 70 2c 20 28 6b 65 79 29 2c 20 28 interp, (key), (
0430: 64 73 70 29 29 29 0a 23 64 65 66 69 6e 65 20 52 dsp))).#define R
0440: 45 41 53 4f 4e 28 29 09 45 52 52 5f 72 65 61 73 EASON().ERR_reas
0450: 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 on_error_string(
0460: 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 29 ERR_get_error())
0470: 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 43 69 70 ..static int.Cip
0480: 68 65 72 73 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 hersObjCmd _ANSI
0490: 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 _ARGS_ ((ClientD
04a0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a ata clientData,.
04b0: 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ...Tcl_Interp *i
04c0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
04d0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
04e0: 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 objv[]));..stati
04f0: 63 20 69 6e 74 09 48 61 6e 64 73 68 61 6b 65 4f c int.HandshakeO
0500: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
0510: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
0520: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
0530: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0540: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
0550: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
0560: 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 ]));..static int
0570: 09 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 5f 41 .ImportObjCmd _A
0580: 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 NSI_ARGS_ ((Clie
0590: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
05a0: 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 a,....Tcl_Interp
05b0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
05c0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e jc, Tcl_Obj *CON
05d0: 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 ST objv[]));..st
05e0: 61 74 69 63 20 69 6e 74 09 53 74 61 74 75 73 4f atic int.StatusO
05f0: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
0600: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
0610: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
0620: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0630: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
0640: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
0650: 5d 29 29 3b 0a 73 74 61 74 69 63 20 53 53 4c 5f ]));.static SSL_
0660: 43 54 58 20 2a 43 54 58 5f 49 6e 69 74 20 5f 41 CTX *CTX_Init _A
0670: 4e 53 49 5f 41 52 47 53 5f 28 28 54 63 6c 5f 49 NSI_ARGS_((Tcl_I
0680: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
0690: 6e 74 20 70 72 6f 74 6f 2c 20 63 68 61 72 20 2a nt proto, char *
06a0: 6b 65 79 2c 0a 09 09 09 63 68 61 72 20 2a 63 65 key,....char *ce
06b0: 72 74 2c 20 63 68 61 72 20 2a 43 41 64 69 72 2c rt, char *CAdir,
06c0: 20 63 68 61 72 20 2a 43 41 66 69 6c 65 2c 20 63 char *CAfile, c
06d0: 68 61 72 20 2a 63 69 70 68 65 72 73 29 29 3b 0a har *ciphers));.
06e0: 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f .#define TLS_PRO
06f0: 54 4f 5f 53 53 4c 32 09 30 78 30 31 0a 23 64 65 TO_SSL2.0x01.#de
0700: 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 fine TLS_PROTO_S
0710: 53 4c 33 09 30 78 30 32 0a 23 64 65 66 69 6e 65 SL3.0x02.#define
0720: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 09 TLS_PROTO_TLS1.
0730: 30 78 30 34 0a 23 64 65 66 69 6e 65 20 45 4e 41 0x04.#define ENA
0740: 42 4c 45 44 28 66 6c 61 67 2c 20 6d 61 73 6b 29 BLED(flag, mask)
0750: 09 28 28 28 66 6c 61 67 29 20 26 20 28 6d 61 73 .(((flag) & (mas
0760: 6b 29 29 20 3d 3d 20 28 6d 61 73 6b 29 29 0a 0a k)) == (mask))..
0770: 2f 2a 0a 20 2a 20 53 74 61 74 69 63 20 64 61 74 /*. * Static dat
0780: 61 20 73 74 72 75 63 74 75 72 65 73 0a 20 2a 2f a structures. */
0790: 0a 0a 23 69 66 6e 64 65 66 20 4e 4f 5f 44 48 0a ..#ifndef NO_DH.
07a0: 2f 2a 20 66 72 6f 6d 20 6f 70 65 6e 73 73 6c 2f /* from openssl/
07b0: 61 70 70 73 2f 73 5f 73 65 72 76 65 72 2e 63 20 apps/s_server.c
07c0: 2a 2f 0a 0a 73 74 61 74 69 63 20 75 6e 73 69 67 */..static unsig
07d0: 6e 65 64 20 63 68 61 72 20 64 68 35 31 32 5f 70 ned char dh512_p
07e0: 5b 5d 3d 7b 0a 20 20 20 20 20 20 20 20 30 78 44 []={. 0xD
07f0: 41 2c 30 78 35 38 2c 30 78 33 43 2c 30 78 31 36 A,0x58,0x3C,0x16
0800: 2c 30 78 44 39 2c 30 78 38 35 2c 30 78 32 32 2c ,0xD9,0x85,0x22,
0810: 30 78 38 39 2c 30 78 44 30 2c 30 78 45 34 2c 30 0x89,0xD0,0xE4,0
0820: 78 41 46 2c 30 78 37 35 2c 0a 20 20 20 20 20 20 xAF,0x75,.
0830: 20 20 30 78 36 46 2c 30 78 34 43 2c 30 78 43 41 0x6F,0x4C,0xCA
0840: 2c 30 78 39 32 2c 30 78 44 44 2c 30 78 34 42 2c ,0x92,0xDD,0x4B,
0850: 30 78 45 35 2c 30 78 33 33 2c 30 78 42 38 2c 30 0xE5,0x33,0xB8,0
0860: 78 30 34 2c 30 78 46 42 2c 30 78 30 46 2c 0a 20 x04,0xFB,0x0F,.
0870: 20 20 20 20 20 20 20 30 78 45 44 2c 30 78 39 34 0xED,0x94
0880: 2c 30 78 45 46 2c 30 78 39 43 2c 30 78 38 41 2c ,0xEF,0x9C,0x8A,
0890: 30 78 34 34 2c 30 78 30 33 2c 30 78 45 44 2c 30 0x44,0x03,0xED,0
08a0: 78 35 37 2c 30 78 34 36 2c 30 78 35 30 2c 30 78 x57,0x46,0x50,0x
08b0: 44 33 2c 0a 20 20 20 20 20 20 20 20 30 78 36 39 D3,. 0x69
08c0: 2c 30 78 39 39 2c 30 78 44 42 2c 30 78 32 39 2c ,0x99,0xDB,0x29,
08d0: 30 78 44 37 2c 30 78 37 36 2c 30 78 32 37 2c 30 0xD7,0x76,0x27,0
08e0: 78 36 42 2c 30 78 41 32 2c 30 78 44 33 2c 30 78 x6B,0xA2,0xD3,0x
08f0: 44 34 2c 30 78 31 32 2c 0a 20 20 20 20 20 20 20 D4,0x12,.
0900: 20 30 78 45 32 2c 30 78 31 38 2c 30 78 46 34 2c 0xE2,0x18,0xF4,
0910: 30 78 44 44 2c 30 78 31 45 2c 30 78 30 38 2c 30 0xDD,0x1E,0x08,0
0920: 78 34 43 2c 30 78 46 36 2c 30 78 44 38 2c 30 78 x4C,0xF6,0xD8,0x
0930: 30 30 2c 30 78 33 45 2c 30 78 37 43 2c 0a 20 20 00,0x3E,0x7C,.
0940: 20 20 20 20 20 20 30 78 34 37 2c 30 78 37 34 2c 0x47,0x74,
0950: 30 78 45 38 2c 30 78 33 33 2c 0a 20 20 20 20 20 0xE8,0x33,.
0960: 20 20 20 7d 3b 0a 73 74 61 74 69 63 20 75 6e 73 };.static uns
0970: 69 67 6e 65 64 20 63 68 61 72 20 64 68 35 31 32 igned char dh512
0980: 5f 67 5b 5d 3d 7b 0a 09 30 78 30 32 2c 0a 7d 3b _g[]={..0x02,.};
0990: 0a 0a 73 74 61 74 69 63 20 44 48 20 2a 67 65 74 ..static DH *get
09a0: 5f 64 68 35 31 32 28 29 0a 7b 0a 20 20 20 20 44 _dh512().{. D
09b0: 48 20 2a 64 68 3d 4e 55 4c 4c 3b 0a 0a 20 20 20 H *dh=NULL;..
09c0: 20 69 66 20 28 28 64 68 3d 44 48 5f 6e 65 77 28 if ((dh=DH_new(
09d0: 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 72 65 74 75 )) == NULL) retu
09e0: 72 6e 28 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 64 rn(NULL);.. d
09f0: 68 2d 3e 70 3d 42 4e 5f 62 69 6e 32 62 6e 28 64 h->p=BN_bin2bn(d
0a00: 68 35 31 32 5f 70 2c 73 69 7a 65 6f 66 28 64 68 h512_p,sizeof(dh
0a10: 35 31 32 5f 70 29 2c 4e 55 4c 4c 29 3b 0a 20 20 512_p),NULL);.
0a20: 20 20 64 68 2d 3e 67 3d 42 4e 5f 62 69 6e 32 62 dh->g=BN_bin2b
0a30: 6e 28 64 68 35 31 32 5f 67 2c 73 69 7a 65 6f 66 n(dh512_g,sizeof
0a40: 28 64 68 35 31 32 5f 67 29 2c 4e 55 4c 4c 29 3b (dh512_g),NULL);
0a50: 0a 0a 20 20 20 20 69 66 20 28 28 64 68 2d 3e 70 .. if ((dh->p
0a60: 20 3d 3d 20 4e 55 4c 4c 29 20 7c 7c 20 28 64 68 == NULL) || (dh
0a70: 2d 3e 67 20 3d 3d 20 4e 55 4c 4c 29 29 0a 09 72 ->g == NULL))..r
0a80: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 20 eturn(NULL);.
0a90: 20 72 65 74 75 72 6e 28 64 68 29 3b 0a 7d 0a 23 return(dh);.}.#
0aa0: 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 44 65 66 endif../*. * Def
0ab0: 69 6e 65 64 20 69 6e 20 54 6c 73 5f 49 6e 69 74 ined in Tls_Init
0ac0: 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 77 68 to determine wh
0ad0: 61 74 20 6b 69 6e 64 20 6f 66 20 63 68 61 6e 6e at kind of chann
0ae0: 65 6c 73 20 77 65 20 61 72 65 20 75 73 69 6e 67 els we are using
0af0: 0a 20 2a 20 28 6f 6c 64 2d 73 74 79 6c 65 20 38 . * (old-style 8
0b00: 2e 32 2e 30 2d 38 2e 33 2e 31 20 6f 72 20 6e 65 .2.0-8.3.1 or ne
0b10: 77 2d 73 74 79 6c 65 20 38 2e 33 2e 32 2b 29 2e w-style 8.3.2+).
0b20: 0a 20 2a 2f 0a 69 6e 74 20 63 68 61 6e 6e 65 6c . */.int channel
0b30: 54 79 70 65 56 65 72 73 69 6f 6e 3b 0a 0a 2f 2a TypeVersion;../*
0b40: 0a 20 2a 20 57 65 20 6c 6f 73 65 20 74 68 65 20 . * We lose the
0b50: 74 63 6c 20 70 61 73 73 77 6f 72 64 20 63 61 6c tcl password cal
0b60: 6c 62 61 63 6b 20 77 68 65 6e 20 77 65 20 75 73 lback when we us
0b70: 65 20 74 68 65 20 52 53 41 20 42 53 41 46 45 20 e the RSA BSAFE
0b80: 53 53 4c 2d 43 20 31 2e 31 2e 32 0a 20 2a 20 6c SSL-C 1.1.2. * l
0b90: 69 62 72 61 72 69 65 73 20 69 6e 73 74 65 61 64 ibraries instead
0ba0: 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 of the current
0bb0: 4f 70 65 6e 53 53 4c 20 6c 69 62 72 61 72 69 65 OpenSSL librarie
0bc0: 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 65 66 20 42 s.. */..#ifdef B
0bd0: 53 41 46 45 0a 23 64 65 66 69 6e 65 20 50 52 45 SAFE.#define PRE
0be0: 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 20 31 _OPENSSL_0_9_4 1
0bf0: 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 50 .#endif../*. * P
0c00: 65 72 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 34 er OpenSSL 0.9.4
0c10: 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a 0a 23 69 66 Compat. */..#if
0c20: 6e 64 65 66 20 53 54 41 43 4b 5f 4f 46 0a 23 64 ndef STACK_OF.#d
0c30: 65 66 69 6e 65 20 53 54 41 43 4b 5f 4f 46 28 78 efine STACK_OF(x
0c40: 29 09 09 09 53 54 41 43 4b 0a 23 64 65 66 69 6e )...STACK.#defin
0c50: 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f e sk_SSL_CIPHER_
0c60: 6e 75 6d 28 73 6b 29 09 09 73 6b 5f 6e 75 6d 28 num(sk)..sk_num(
0c70: 28 73 6b 29 29 0a 23 64 65 66 69 6e 65 20 73 6b (sk)).#define sk
0c80: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 _SSL_CIPHER_valu
0c90: 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 09 28 53 e( sk, index).(S
0ca0: 53 4c 5f 43 49 50 48 45 52 2a 29 73 6b 5f 76 61 SL_CIPHER*)sk_va
0cb0: 6c 75 65 28 28 73 6b 29 2c 20 28 69 6e 64 65 78 lue((sk), (index
0cc0: 29 29 0a 23 65 6e 64 69 66 0a 0a 0c 0a 2f 2a 0a )).#endif..../*.
0cd0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d10: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6e 66 6f -----. *. * Info
0d20: 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 Callback --. *.
0d30: 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 53 4c 20 63 *.monitors SSL c
0d40: 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 onnection proces
0d50: 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a s. *. * Results:
0d60: 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 . *.None. *. * S
0d70: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
0d80: 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 28 Calls callback (
0d90: 69 66 20 64 65 66 69 6e 65 64 29 0a 20 2a 2d 2d if defined). *--
0da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0de0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 -. */.static voi
0df0: 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 53 d.InfoCallback(S
0e00: 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20 77 68 65 SL *ssl, int whe
0e10: 72 65 2c 20 69 6e 74 20 72 65 74 29 0a 7b 0a 20 re, int ret).{.
0e20: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
0e30: 74 72 20 3d 20 28 53 74 61 74 65 2a 29 53 53 4c tr = (State*)SSL
0e40: 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 28 73 73 _get_app_data(ss
0e50: 6c 29 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 l);. Tcl_Obj
0e60: 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 63 68 61 *cmdPtr;. cha
0e70: 72 20 2a 6d 61 6a 6f 72 3b 20 63 68 61 72 20 2a r *major; char *
0e80: 6d 69 6e 6f 72 3b 0a 0a 20 20 20 20 69 66 20 28 minor;.. if (
0e90: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
0ea0: 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 ck == (Tcl_Obj*)
0eb0: 4e 55 4c 4c 29 0a 09 72 65 74 75 72 6e 3b 0a 0a NULL)..return;..
0ec0: 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c cmdPtr = Tcl
0ed0: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 _DuplicateObj(st
0ee0: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b atePtr->callback
0ef0: 29 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 69 66 );..#if 0. if
0f00: 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 (where & SSL_CB
0f10: 5f 41 4c 45 52 54 29 20 7b 0a 09 73 65 76 20 3d _ALERT) {..sev =
0f20: 20 53 53 4c 5f 61 6c 65 72 74 5f 74 79 70 65 5f SSL_alert_type_
0f30: 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 string_long(ret)
0f40: 3b 0a 09 69 66 20 28 73 74 72 63 6d 70 28 20 73 ;..if (strcmp( s
0f50: 65 76 2c 20 22 66 61 74 61 6c 22 29 3d 3d 30 29 ev, "fatal")==0)
0f60: 20 7b 09 2f 2a 20 4d 61 70 20 74 6f 20 65 72 72 {./* Map to err
0f70: 6f 72 20 2a 2f 0a 09 20 20 20 20 54 6c 73 5f 45 or */.. Tls_E
0f80: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 53 rror(statePtr, S
0f90: 53 4c 5f 45 52 52 4f 52 28 73 73 6c 2c 20 30 29 SL_ERROR(ssl, 0)
0fa0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 3b 0a );.. return;.
0fb0: 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a .}. }.#endif.
0fc0: 20 20 20 20 69 66 20 28 77 68 65 72 65 20 26 20 if (where &
0fd0: 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b 45 SSL_CB_HANDSHAKE
0fe0: 5f 53 54 41 52 54 29 20 7b 0a 09 6d 61 6a 6f 72 _START) {..major
0ff0: 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a = "handshake";.
1000: 09 6d 69 6e 6f 72 20 3d 20 22 73 74 61 72 74 22 .minor = "start"
1010: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
1020: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
1030: 48 41 4e 44 53 48 41 4b 45 5f 44 4f 4e 45 29 20 HANDSHAKE_DONE)
1040: 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64 {..major = "hand
1050: 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d shake";..minor =
1060: 20 22 64 6f 6e 65 22 3b 0a 20 20 20 20 7d 20 65 "done";. } e
1070: 6c 73 65 20 7b 0a 09 69 66 20 28 77 68 65 72 65 lse {..if (where
1080: 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 & SSL_CB_ALERT)
1090: 09 09 6d 61 6a 6f 72 20 3d 20 22 61 6c 65 72 74 ..major = "alert
10a0: 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 ";..else if (whe
10b0: 72 65 20 26 20 53 53 4c 5f 53 54 5f 43 4f 4e 4e re & SSL_ST_CONN
10c0: 45 43 54 29 09 6d 61 6a 6f 72 20 3d 20 22 63 6f ECT).major = "co
10d0: 6e 6e 65 63 74 22 3b 0a 09 65 6c 73 65 20 69 66 nnect";..else if
10e0: 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 53 54 (where & SSL_ST
10f0: 5f 41 43 43 45 50 54 29 09 09 6d 61 6a 6f 72 20 _ACCEPT)..major
1100: 3d 20 22 61 63 63 65 70 74 22 3b 0a 09 65 6c 73 = "accept";..els
1110: 65 09 09 09 09 09 6d 61 6a 6f 72 20 3d 20 22 75 e.....major = "u
1120: 6e 6b 6e 6f 77 6e 22 3b 0a 0a 09 69 66 20 28 77 nknown";...if (w
1130: 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 52 45 here & SSL_CB_RE
1140: 41 44 29 09 09 6d 69 6e 6f 72 20 3d 20 22 72 65 AD)..minor = "re
1150: 61 64 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 ad";..else if (w
1160: 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 57 52 here & SSL_CB_WR
1170: 49 54 45 29 09 09 6d 69 6e 6f 72 20 3d 20 22 77 ITE)..minor = "w
1180: 72 69 74 65 22 3b 0a 09 65 6c 73 65 20 69 66 20 rite";..else if
1190: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
11a0: 4c 4f 4f 50 29 09 09 6d 69 6e 6f 72 20 3d 20 22 LOOP)..minor = "
11b0: 6c 6f 6f 70 22 3b 0a 09 65 6c 73 65 20 69 66 20 loop";..else if
11c0: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
11d0: 45 58 49 54 29 09 09 6d 69 6e 6f 72 20 3d 20 22 EXIT)..minor = "
11e0: 65 78 69 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 exit";..else....
11f0: 09 6d 69 6e 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 .minor = "unknow
1200: 6e 22 3b 0a 20 20 20 20 7d 0a 0a 0a 20 20 20 20 n";. }...
1210: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1220: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
1230: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1240: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 tr, .. Tcl_Ne
1250: 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 69 6e 66 wStringObj( "inf
1260: 6f 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 o", -1));.. T
1270: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1280: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
1290: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
12a0: 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 r, .. Tcl_New
12b0: 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c 5f 47 StringObj( Tcl_G
12c0: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
12d0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d atePtr->self), -
12e0: 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 1) );.. Tcl_L
12f0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1300: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1310: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, cmdPtr,..
1320: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
1330: 67 4f 62 6a 28 20 6d 61 6a 6f 72 2c 20 2d 31 29 gObj( major, -1)
1340: 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 );.. Tcl_Lis
1350: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
1360: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
1370: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
1380: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1390: 62 6a 28 20 6d 69 6e 6f 72 2c 20 2d 31 29 20 29 bj( minor, -1) )
13a0: 3b 0a 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 ;.. if (where
13b0: 20 26 20 28 53 53 4c 5f 43 42 5f 4c 4f 4f 50 7c & (SSL_CB_LOOP|
13c0: 53 53 4c 5f 43 42 5f 45 58 49 54 29 29 20 7b 0a SSL_CB_EXIT)) {.
13d0: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
13e0: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
13f0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1400: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1410: 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f wStringObj( SSL_
1420: 73 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e state_string_lon
1430: 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 g(ssl), -1) );.
1440: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 77 68 } else if (wh
1450: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 ere & SSL_CB_ALE
1460: 52 54 29 20 7b 0a 09 63 68 61 72 20 2a 63 70 20 RT) {..char *cp
1470: 3d 20 53 53 4c 5f 61 6c 65 72 74 5f 64 65 73 63 = SSL_alert_desc
1480: 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 _string_long(ret
1490: 29 3b 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a );...Tcl_ListObj
14a0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
14b0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
14c0: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
14d0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
14e0: 63 70 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d cp, -1) );. }
14f0: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 4c 69 73 else {..Tcl_Lis
1500: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
1510: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
1520: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
1530: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1540: 62 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 74 bj( SSL_state_st
1550: 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 ring_long(ssl),
1560: 2d 31 29 20 29 3b 0a 20 20 20 20 7d 0a 20 20 20 -1) );. }.
1570: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 Tcl_Preserve( (
1580: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
1590: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 ePtr->interp);.
15a0: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 Tcl_Preserve(
15b0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
15c0: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 atePtr);.. Tc
15d0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 l_IncrRefCount(
15e0: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 28 76 6f cmdPtr);. (vo
15f0: 69 64 29 20 54 63 6c 5f 47 6c 6f 62 61 6c 45 76 id) Tcl_GlobalEv
1600: 61 6c 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e alObj(statePtr->
1610: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 29 3b interp, cmdPtr);
1620: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 . Tcl_DecrRef
1630: 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a Count( cmdPtr);.
1640: 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 . Tcl_Release
1650: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 ( (ClientData) s
1660: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 tatePtr);. Tc
1670: 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 l_Release( (Clie
1680: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
1690: 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 7d 0a 0c 0a ->interp);..}...
16a0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
16b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 --------. *. * V
16f0: 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 20 2d 2d erifyCallback --
1700: 0a 20 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 . *. *.monitors
1710: 53 53 4c 20 63 65 72 69 66 69 63 61 74 65 20 76 SSL cerificate v
1720: 61 6c 69 64 61 74 69 6f 6e 20 70 72 6f 63 65 73 alidation proces
1730: 73 0a 20 2a 09 54 68 69 73 20 69 73 20 63 61 6c s. *.This is cal
1740: 6c 65 64 20 77 68 65 6e 65 76 65 72 20 61 20 63 led whenever a c
1750: 65 72 74 69 66 69 63 61 74 65 20 69 73 20 69 6e ertificate is in
1760: 73 70 65 63 74 65 64 0a 20 2a 09 20 6f 72 20 64 spected. *. or d
1770: 65 63 69 64 65 64 20 69 6e 76 61 6c 69 64 0a 20 ecided invalid.
1780: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
1790: 09 6f 6b 20 2d 20 6c 65 74 20 53 53 4c 20 68 61 .ok - let SSL ha
17a0: 6e 64 6c 65 20 69 74 0a 20 2a 0a 20 2a 20 53 69 ndle it. *. * Si
17b0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 de effects:. *.T
17c0: 68 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 20 he err field of
17d0: 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 70 the currently op
17e0: 65 72 61 74 69 76 65 20 53 74 61 74 65 20 69 73 erative State is
17f0: 20 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 73 set. *. to a s
1800: 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 tring describing
1810: 20 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 the SSL negotia
1820: 74 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 61 tion failure rea
1830: 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d son. *----------
1840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
1880: 61 74 69 63 20 69 6e 74 0a 56 65 72 69 66 79 43 atic int.VerifyC
1890: 61 6c 6c 62 61 63 6b 28 69 6e 74 20 6f 6b 2c 20 allback(int ok,
18a0: 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 20 2a X509_STORE_CTX *
18b0: 63 74 78 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f ctx).{. Tcl_O
18c0: 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 bj *cmdPtr;.
18d0: 63 68 61 72 20 2a 65 72 72 53 74 72 3b 0a 20 20 char *errStr;.
18e0: 20 20 53 53 4c 20 20 20 2a 73 73 6c 09 09 3d 20 SSL *ssl..=
18f0: 28 53 53 4c 2a 29 58 35 30 39 5f 53 54 4f 52 45 (SSL*)X509_STORE
1900: 5f 43 54 58 5f 67 65 74 5f 61 70 70 5f 64 61 74 _CTX_get_app_dat
1910: 61 28 63 74 78 29 3b 0a 20 20 20 20 58 35 30 39 a(ctx);. X509
1920: 20 20 2a 63 65 72 74 09 09 3d 20 58 35 30 39 5f *cert..= X509_
1930: 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 63 75 STORE_CTX_get_cu
1940: 72 72 65 6e 74 5f 63 65 72 74 28 63 74 78 29 3b rrent_cert(ctx);
1950: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
1960: 65 50 74 72 09 3d 20 28 53 74 61 74 65 2a 29 53 ePtr.= (State*)S
1970: 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 28 SL_get_app_data(
1980: 73 73 6c 29 3b 0a 20 20 20 20 69 6e 74 20 64 65 ssl);. int de
1990: 70 74 68 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 pth..= X509_STOR
19a0: 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 5f E_CTX_get_error_
19b0: 64 65 70 74 68 28 63 74 78 29 3b 0a 20 20 20 20 depth(ctx);.
19c0: 69 6e 74 20 65 72 72 09 09 3d 20 58 35 30 39 5f int err..= X509_
19d0: 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 STORE_CTX_get_er
19e0: 72 6f 72 28 63 74 78 29 3b 0a 0a 20 20 20 20 64 ror(ctx);.. d
19f0: 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 printf(stderr, "
1a00: 56 65 72 69 66 79 3a 20 25 64 5c 6e 22 2c 20 6f Verify: %d\n", o
1a10: 6b 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 6f 6b k);.. if (!ok
1a20: 29 20 7b 0a 09 65 72 72 53 74 72 20 3d 20 28 63 ) {..errStr = (c
1a30: 68 61 72 2a 29 58 35 30 39 5f 76 65 72 69 66 79 har*)X509_verify
1a40: 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 _cert_error_stri
1a50: 6e 67 28 65 72 72 29 3b 0a 20 20 20 20 7d 20 65 ng(err);. } e
1a60: 6c 73 65 20 7b 0a 09 65 72 72 53 74 72 20 3d 20 lse {..errStr =
1a70: 28 63 68 61 72 20 2a 29 30 3b 0a 20 20 20 20 7d (char *)0;. }
1a80: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
1a90: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 tr->callback ==
1aa0: 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 20 (Tcl_Obj*)NULL)
1ab0: 7b 0a 09 69 66 20 28 73 74 61 74 65 50 74 72 2d {..if (statePtr-
1ac0: 3e 76 66 6c 61 67 73 20 26 20 53 53 4c 5f 56 45 >vflags & SSL_VE
1ad0: 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f RIFY_FAIL_IF_NO_
1ae0: 50 45 45 52 5f 43 45 52 54 29 20 7b 0a 09 20 20 PEER_CERT) {..
1af0: 20 20 72 65 74 75 72 6e 20 6f 6b 3b 0a 09 7d 20 return ok;..}
1b00: 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 74 75 else {.. retu
1b10: 72 6e 20 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 rn 1;..}. }.
1b20: 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f cmdPtr = Tcl_
1b30: 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 DuplicateObj(sta
1b40: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 tePtr->callback)
1b50: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
1b60: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1b70: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1b80: 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 p, cmdPtr, ..
1b90: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
1ba0: 6a 28 20 22 76 65 72 69 66 79 22 2c 20 2d 31 29 j( "verify", -1)
1bb0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1bc0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1bd0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1be0: 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 rp, cmdPtr, ..
1bf0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1c00: 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e bj( Tcl_GetChann
1c10: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
1c20: 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a >self), -1) );..
1c30: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1c40: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1c50: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1c60: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1c70: 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 64 65 70 74 _NewIntObj( dept
1c80: 68 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c h) );.. Tcl_L
1c90: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1ca0: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1cb0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, cmdPtr,..
1cc0: 20 20 20 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f Tls_NewX509O
1cd0: 62 6a 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e bj( statePtr->in
1ce0: 74 65 72 70 2c 20 63 65 72 74 29 20 29 3b 0a 0a terp, cert) );..
1cf0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1d00: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1d10: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1d20: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1d30: 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 6f 6b 29 20 _NewIntObj( ok)
1d40: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1d50: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1d60: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1d70: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
1d80: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
1d90: 6a 28 20 65 72 72 53 74 72 20 3f 20 65 72 72 53 j( errStr ? errS
1da0: 74 72 20 3a 20 22 22 2c 20 2d 31 29 20 29 3b 0a tr : "", -1) );.
1db0: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
1dc0: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 e( (ClientData)
1dd0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1de0: 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 );. Tcl_Prese
1df0: 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 rve( (ClientData
1e00: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 ) statePtr);..
1e10: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
1e20: 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 nt( cmdPtr);.
1e30: 20 69 66 20 28 54 63 6c 5f 47 6c 6f 62 61 6c 45 if (Tcl_GlobalE
1e40: 76 61 6c 4f 62 6a 28 73 74 61 74 65 50 74 72 2d valObj(statePtr-
1e50: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 29 >interp, cmdPtr)
1e60: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 2f != TCL_OK) {../
1e70: 2a 20 69 74 20 67 6f 74 20 61 6e 20 65 72 72 6f * it got an erro
1e80: 72 20 2d 20 72 65 6a 65 63 74 20 74 68 65 20 63 r - reject the c
1e90: 65 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 09 54 ertificate */..T
1ea0: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 cl_BackgroundErr
1eb0: 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e or( statePtr->in
1ec0: 74 65 72 70 29 3b 0a 09 6f 6b 20 3d 20 30 3b 0a terp);..ok = 0;.
1ed0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69 66 } else {..if
1ee0: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d (Tcl_GetIntFrom
1ef0: 4f 62 6a 28 20 73 74 61 74 65 50 74 72 2d 3e 69 Obj( statePtr->i
1f00: 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 54 63 6c nterp,... Tcl
1f10: 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 73 _GetObjResult( s
1f20: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
1f30: 2c 20 26 6f 6b 29 20 21 3d 20 54 43 4c 5f 4f 4b , &ok) != TCL_OK
1f40: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 42 61 63 ) {.. Tcl_Bac
1f50: 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 20 73 74 kgroundError( st
1f60: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
1f70: 0a 09 20 20 20 20 6f 6b 20 3d 20 30 3b 0a 09 7d .. ok = 0;..}
1f80: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 . }. Tcl_D
1f90: 65 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 ecrRefCount( cmd
1fa0: 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 Ptr);.. Tcl_R
1fb0: 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 elease( (ClientD
1fc0: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
1fd0: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
1fe0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
1ff0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
2000: 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 6f 6b 29 .. return(ok)
2010: 3b 09 2f 2a 20 6c 65 61 76 65 20 74 68 65 20 64 ;./* leave the d
2020: 69 73 70 6f 73 69 74 69 6f 6e 20 61 73 20 53 53 isposition as SS
2030: 4c 20 73 65 74 20 69 74 20 2a 2f 0a 7d 0a 0c 0a L set it */.}...
2040: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
2050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 --------. *. * T
2090: 6c 73 5f 45 72 72 6f 72 20 2d 2d 0a 20 2a 0a 20 ls_Error --. *.
20a0: 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b *.Calls callback
20b0: 20 77 69 74 68 20 24 66 64 20 61 6e 64 20 24 6d with $fd and $m
20c0: 73 67 20 2d 20 73 6f 20 74 68 65 20 63 61 6c 6c sg - so the call
20d0: 62 61 63 6b 20 63 61 6e 20 64 65 63 69 64 65 0a back can decide.
20e0: 20 2a 09 77 68 61 74 20 74 6f 20 64 6f 20 77 69 *.what to do wi
20f0: 74 68 20 65 72 72 6f 72 73 2e 0a 20 2a 0a 20 2a th errors.. *. *
2100: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6f 6b 20 Results:. *.ok
2110: 2d 20 6c 65 74 20 53 53 4c 20 68 61 6e 64 6c 65 - let SSL handle
2120: 20 69 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 it. *. * Side e
2130: 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 ffects:. *.The e
2140: 72 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 rr field of the
2150: 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 currently operat
2160: 69 76 65 20 53 74 61 74 65 20 69 73 20 73 65 74 ive State is set
2170: 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 72 69 6e . *. to a strin
2180: 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 g describing the
2190: 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e SSL negotiation
21a0: 20 66 61 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a failure reason.
21b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
21c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21f0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 -----. */.void.T
2200: 6c 73 5f 45 72 72 6f 72 28 53 74 61 74 65 20 2a ls_Error(State *
2210: 73 74 61 74 65 50 74 72 2c 20 63 68 61 72 20 2a statePtr, char *
2220: 6d 73 67 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f msg).{. Tcl_O
2230: 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 0a 20 20 20 bj *cmdPtr;..
2240: 20 69 66 20 28 6d 73 67 20 26 26 20 2a 6d 73 67 if (msg && *msg
2250: 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f ) {..Tcl_SetErro
2260: 72 43 6f 64 65 28 73 74 61 74 65 50 74 72 2d 3e rCode(statePtr->
2270: 69 6e 74 65 72 70 2c 20 22 53 53 4c 22 2c 20 6d interp, "SSL", m
2280: 73 67 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c sg, (char *)NULL
2290: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
22a0: 09 6d 73 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 .msg = Tcl_GetSt
22b0: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 54 63 6c 5f ringFromObj(Tcl_
22c0: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 GetObjResult(sta
22d0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 2c 20 tePtr->interp),
22e0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL);. }.
22f0: 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 20 3d statePtr->err =
2300: 20 6d 73 67 3b 0a 0a 20 20 20 20 69 66 20 28 73 msg;.. if (s
2310: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
2320: 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e k == (Tcl_Obj*)N
2330: 55 4c 4c 29 20 7b 0a 09 63 68 61 72 20 62 75 66 ULL) {..char buf
2340: 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 70 72 69 6e [BUFSIZ];..sprin
2350: 74 66 28 62 75 66 2c 20 22 53 53 4c 20 63 68 61 tf(buf, "SSL cha
2360: 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a 20 65 72 72 nnel \"%s\": err
2370: 6f 72 3a 20 25 73 22 2c 0a 09 20 20 20 20 54 63 or: %s",.. Tc
2380: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
2390: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
23a0: 2c 20 6d 73 67 29 3b 0a 09 54 63 6c 5f 53 65 74 , msg);..Tcl_Set
23b0: 52 65 73 75 6c 74 28 20 73 74 61 74 65 50 74 72 Result( statePtr
23c0: 2d 3e 69 6e 74 65 72 70 2c 20 62 75 66 2c 20 54 ->interp, buf, T
23d0: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 09 54 CL_VOLATILE);..T
23e0: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 cl_BackgroundErr
23f0: 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e or( statePtr->in
2400: 74 65 72 70 29 3b 0a 09 72 65 74 75 72 6e 3b 0a terp);..return;.
2410: 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 74 72 }. cmdPtr
2420: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
2430: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 Obj(statePtr->ca
2440: 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63 llback);.. Tc
2450: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2460: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d lement(statePtr-
2470: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
2480: 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 .. Tcl_NewSt
2490: 72 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72 22 2c ringObj("error",
24a0: 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1));.. Tcl_
24b0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
24c0: 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 ment(statePtr->i
24d0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a nterp, cmdPtr, .
24e0: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
24f0: 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 74 43 68 61 ngObj(Tcl_GetCha
2500: 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 nnelName(statePt
2510: 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 29 3b 0a r->self), -1));.
2520: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
2530: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 AppendElement(st
2540: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2550: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
2560: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 6d 73 _NewStringObj(ms
2570: 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 g, -1));.. Tc
2580: 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 l_Preserve((Clie
2590: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
25a0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 ->interp);. T
25b0: 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 cl_Preserve((Cli
25c0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
25d0: 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 r);.. Tcl_Inc
25e0: 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 rRefCount(cmdPtr
25f0: 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 );. if (Tcl_G
2600: 6c 6f 62 61 6c 45 76 61 6c 4f 62 6a 28 73 74 61 lobalEvalObj(sta
2610: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
2620: 6d 64 50 74 72 29 20 21 3d 20 54 43 4c 5f 4f 4b mdPtr) != TCL_OK
2630: 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f ) {..Tcl_Backgro
2640: 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 undError(statePt
2650: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 r->interp);.
2660: 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 }. Tcl_DecrRe
2670: 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a fCount(cmdPtr);.
2680: 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 . Tcl_Release
2690: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
26a0: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c atePtr);. Tcl
26b0: 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 _Release((Client
26c0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e Data) statePtr->
26d0: 69 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a interp);.}.../*.
26e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
26f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2720: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 61 73 73 -----. *. * Pass
2730: 77 6f 72 64 43 61 6c 6c 62 61 63 6b 20 2d 2d 20 wordCallback --
2740: 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 77 68 . *. *.Called wh
2750: 65 6e 20 61 20 70 61 73 73 77 6f 72 64 20 69 73 en a password is
2760: 20 6e 65 65 64 65 64 20 74 6f 20 75 6e 70 61 63 needed to unpac
2770: 6b 20 52 53 41 20 61 6e 64 20 50 45 4d 20 6b 65 k RSA and PEM ke
2780: 79 73 0a 20 2a 09 45 76 61 6c 73 20 74 68 65 20 ys. *.Evals the
2790: 74 63 6c 20 70 72 6f 63 3a 20 20 74 6c 73 3a 3a tcl proc: tls::
27a0: 70 61 73 73 77 6f 72 64 20 61 6e 64 20 72 65 74 password and ret
27b0: 75 72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 urns the result
27c0: 61 73 0a 20 2a 09 74 68 65 20 70 61 73 73 77 6f as. *.the passwo
27d0: 72 64 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d rd. *-----------
27e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2810: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66 --------. */.#if
2820: 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f def PRE_OPENSSL_
2830: 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e 6f 20 77 0_9_4./*. * No w
2840: 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 75 73 65 ay to handle use
2850: 72 2d 64 61 74 61 20 74 68 65 72 65 66 6f 72 65 r-data therefore
2860: 20 6e 6f 20 77 61 79 20 77 69 74 68 6f 75 74 20 no way without
2870: 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 61 72 69 a global. * vari
2880: 61 62 6c 65 20 74 6f 20 61 63 63 65 73 73 20 74 able to access t
2890: 68 65 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 he Tcl interpret
28a0: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e er..*/.static in
28b0: 74 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 t.PasswordCallba
28c0: 63 6b 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e ck(char *buf, in
28d0: 74 20 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 t size, int veri
28e0: 66 79 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e fy).{. return
28f0: 20 2d 31 3b 0a 7d 0a 23 65 6c 73 65 0a 73 74 61 -1;.}.#else.sta
2900: 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 tic int.Password
2910: 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 Callback(char *b
2920: 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e uf, int size, in
2930: 74 20 76 65 72 69 66 79 2c 20 76 6f 69 64 20 2a t verify, void *
2940: 75 64 61 74 61 29 0a 7b 0a 20 20 20 20 54 63 6c udata).{. Tcl
2950: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20 _Interp *interp
2960: 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70 2a 29 75 = (Tcl_Interp*)u
2970: 64 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 28 54 data;.. if (T
2980: 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 cl_Eval(interp,
2990: 22 74 6c 73 3a 3a 70 61 73 73 77 6f 72 64 22 29 "tls::password")
29a0: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 43 == TCL_OK) {..C
29b0: 4f 4e 53 54 20 63 68 61 72 20 2a 72 65 74 20 3d ONST char *ret =
29c0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 Tcl_GetStringRe
29d0: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
29e0: 20 20 20 20 20 20 73 74 72 6e 63 70 79 28 62 75 strncpy(bu
29f0: 66 2c 20 72 65 74 2c 20 73 69 7a 65 29 3b 0a 09 f, ret, size);..
2a00: 72 65 74 75 72 6e 20 73 74 72 6c 65 6e 28 72 65 return strlen(re
2a10: 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b t);. } else {
2a20: 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 ..return -1;.
2a30: 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a }.}.#endif.../*
2a40: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a80: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 ------. *. * Cip
2a90: 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 hersObjCmd -- li
2aa0: 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 st available cip
2ab0: 68 65 72 73 0a 20 2a 0a 20 2a 09 54 68 69 73 20 hers. *. *.This
2ac0: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
2ad0: 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 oked to process
2ae0: 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 the "tls::cipher
2af0: 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f s" command. *.to
2b00: 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 list available
2b10: 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 75 ciphers, based u
2b20: 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c pon protocol sel
2b30: 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 ected.. *. * Res
2b40: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
2b50: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c ard Tcl result l
2b60: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
2b70: 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 effects:. *.cons
2b80: 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 72 tructs and destr
2b90: 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 oys SSL context
2ba0: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d (CTX). *. *-----
2bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2bf0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 43 69 */.static int.Ci
2c00: 70 68 65 72 73 4f 62 6a 43 6d 64 28 63 6c 69 65 phersObjCmd(clie
2c10: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
2c20: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
2c30: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
2c40: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
2c50: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
2c60: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
2c70: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
2c80: 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 Tcl_Obj.*CONST
2c90: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 objv[];.{. st
2ca0: 61 74 69 63 20 43 4f 4e 53 54 20 63 68 61 72 20 atic CONST char
2cb0: 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b *protocols[] = {
2cc0: 0a 09 22 73 73 6c 32 22 2c 09 22 73 73 6c 33 22 .."ssl2",."ssl3"
2cd0: 2c 09 22 74 6c 73 31 22 2c 09 4e 55 4c 4c 0a 20 ,."tls1",.NULL.
2ce0: 20 20 20 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 70 };. enum p
2cf0: 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 4c 53 5f 53 rotocol {..TLS_S
2d00: 53 4c 32 2c 20 54 4c 53 5f 53 53 4c 33 2c 20 54 SL2, TLS_SSL3, T
2d10: 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 5f 4e 4f 4e LS_TLS1, TLS_NON
2d20: 45 0a 20 20 20 20 7d 3b 0a 20 20 20 20 54 63 6c E. };. Tcl
2d30: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 _Obj *objPtr;.
2d40: 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d SSL_CTX *ctx =
2d50: 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a NULL;. SSL *
2d60: 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ssl = NULL;.
2d70: 53 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 STACK_OF(SSL_CIP
2d80: 48 45 52 29 20 2a 73 6b 3b 0a 20 20 20 20 63 68 HER) *sk;. ch
2d90: 61 72 20 2a 63 70 2c 20 62 75 66 5b 42 55 46 53 ar *cp, buf[BUFS
2da0: 49 5a 5d 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 IZ];. int ind
2db0: 65 78 2c 20 76 65 72 62 6f 73 65 20 3d 20 30 3b ex, verbose = 0;
2dc0: 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c .. if (objc <
2dd0: 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 2 || objc > 3)
2de0: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
2df0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
2e00: 62 6a 76 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 3f bjv, "protocol ?
2e10: 76 65 72 62 6f 73 65 3f 22 29 3b 0a 20 20 20 20 verbose?");.
2e20: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
2e30: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
2e40: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 if (Tcl_GetIndex
2e50: 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c FromObj( interp,
2e60: 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 objv[1], protoc
2e70: 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c ols, "protocol",
2e80: 20 30 2c 0a 09 26 69 6e 64 65 78 29 20 21 3d 20 0,..&index) !=
2e90: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 TCL_OK) {..retur
2ea0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
2eb0: 20 7d 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 }. if (objc
2ec0: 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 74 42 6f > 2 && Tcl_GetBo
2ed0: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 20 69 6e oleanFromObj( in
2ee0: 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 0a 09 terp, objv[2],..
2ef0: 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 4c &verbose) != TCL
2f00: 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 _OK) {..return T
2f10: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
2f20: 20 20 20 20 73 77 69 74 63 68 20 28 28 65 6e 75 switch ((enu
2f30: 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78 m protocol)index
2f40: 29 20 7b 0a 20 20 20 20 63 61 73 65 20 54 4c 53 ) {. case TLS
2f50: 5f 53 53 4c 32 3a 0a 23 69 66 20 64 65 66 69 6e _SSL2:.#if defin
2f60: 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 09 54 63 ed(NO_SSL2)...Tc
2f70: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
2f80: 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c nterp, "protocol
2f90: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
2fa0: 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e NULL);...return
2fb0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 TCL_ERROR;.#els
2fc0: 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 e...ctx = SSL_CT
2fd0: 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d 65 74 68 X_new(SSLv2_meth
2fe0: 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 od()); break;.#e
2ff0: 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 4c ndif. case TL
3000: 53 5f 53 53 4c 33 3a 0a 23 69 66 20 64 65 66 69 S_SSL3:.#if defi
3010: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 09 54 ned(NO_SSL3)...T
3020: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3030: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
3040: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
3050: 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 , NULL);...retur
3060: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c n TCL_ERROR;.#el
3070: 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 se...ctx = SSL_C
3080: 54 58 5f 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74 TX_new(SSLv3_met
3090: 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 hod()); break;.#
30a0: 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 endif. case T
30b0: 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 66 LS_TLS1:.#if def
30c0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 09 09 ined(NO_TLS1)...
30d0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
30e0: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
30f0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
3100: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 ", NULL);...retu
3110: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 rn TCL_ERROR;.#e
3120: 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f lse...ctx = SSL_
3130: 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 6d 65 CTX_new(TLSv1_me
3140: 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a thod()); break;.
3150: 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 20 20 #endif. }.
3160: 20 69 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c 4c if (ctx == NULL
3170: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
3180: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 esult(interp, RE
3190: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
31a0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
31b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
31c0: 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 4c 5f 6e . ssl = SSL_n
31d0: 65 77 28 63 74 78 29 3b 0a 20 20 20 20 69 66 20 ew(ctx);. if
31e0: 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a (ssl == NULL) {.
31f0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
3200: 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f 4e t(interp, REASON
3210: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
3220: 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 L);..SSL_CTX_fre
3230: 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 e(ctx);..return
3240: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
3250: 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 . objPtr = Tc
3260: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 2c l_NewListObj( 0,
3270: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 NULL);.. if
3280: 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 6f (!verbose) {..fo
3290: 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b 20 r (index = 0; ;
32a0: 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 index++) {..
32b0: 63 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f cp = (char*)SSL_
32c0: 67 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 get_cipher_list(
32d0: 20 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 20 ssl, index);..
32e0: 20 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 4c if (cp == NUL
32f0: 4c 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 54 L) break;.. T
3300: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
3310: 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c Element( interp,
3320: 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e objPtr,...Tcl_N
3330: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c ewStringObj( cp,
3340: 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d -1) );..}. }
3350: 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 53 else {..sk = SS
3360: 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 73 L_get_ciphers(ss
3370: 6c 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 78 l);...for (index
3380: 20 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 6b = 0; index < sk
3390: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 _SSL_CIPHER_num(
33a0: 73 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b 0a sk); index++) {.
33b0: 09 20 20 20 20 72 65 67 69 73 74 65 72 20 69 6e . register in
33c0: 74 20 69 3b 0a 09 20 20 20 20 53 53 4c 5f 43 49 t i;.. SSL_CI
33d0: 50 48 45 52 5f 64 65 73 63 72 69 70 74 69 6f 6e PHER_description
33e0: 28 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f ( sk_SSL_CIPHER_
33f0: 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 value( sk, index
3400: 29 2c 0a 09 09 09 09 20 20 20 20 62 75 66 2c 20 ),..... buf,
3410: 73 69 7a 65 6f 66 28 62 75 66 29 29 3b 0a 09 20 sizeof(buf));..
3420: 20 20 20 66 6f 72 20 28 69 20 3d 20 73 74 72 6c for (i = strl
3430: 65 6e 28 62 75 66 29 20 2d 20 31 3b 20 69 20 3b en(buf) - 1; i ;
3440: 20 69 2d 2d 29 20 7b 0a 09 09 69 66 20 28 62 75 i--) {...if (bu
3450: 66 5b 69 5d 20 3d 3d 20 27 20 27 20 7c 7c 20 62 f[i] == ' ' || b
3460: 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e 27 20 7c 7c uf[i] == '\n' ||
3470: 0a 09 09 20 20 20 20 62 75 66 5b 69 5d 20 3d 3d ... buf[i] ==
3480: 20 27 5c 72 27 20 7c 7c 20 62 75 66 5b 69 5d 20 '\r' || buf[i]
3490: 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 09 20 20 20 == '\t') {...
34a0: 20 62 75 66 5b 69 5d 20 3d 20 27 5c 30 27 3b 0a buf[i] = '\0';.
34b0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 ..} else {...
34c0: 20 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 20 20 20 break;...}..
34d0: 20 7d 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 }.. Tcl_List
34e0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
34f0: 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 ( interp, objPtr
3500: 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e ,...Tcl_NewStrin
3510: 67 4f 62 6a 28 20 62 75 66 2c 20 2d 31 29 20 29 gObj( buf, -1) )
3520: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 53 ;..}. }. S
3530: 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 20 SL_free(ssl);.
3540: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
3550: 74 78 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 tx);.. Tcl_Se
3560: 74 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 tObjResult( inte
3570: 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 rp, objPtr);.
3580: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
3590: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
35a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
35e0: 20 2a 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 * HandshakeObjC
35f0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 md --. *. *.This
3600: 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 command is used
3610: 20 74 6f 20 76 65 72 69 66 79 20 77 68 65 74 68 to verify wheth
3620: 65 72 20 74 68 65 20 68 61 6e 64 73 68 61 6b 65 er the handshake
3630: 20 69 73 20 63 6f 6d 70 6c 65 74 65 0a 20 2a 09 is complete. *.
3640: 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 52 65 or not.. *. * Re
3650: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
3660: 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e dard Tcl result.
3670: 20 31 20 6d 65 61 6e 73 20 68 61 6e 64 73 68 61 1 means handsha
3680: 6b 65 20 63 6f 6d 70 6c 65 74 65 2c 20 30 20 6d ke complete, 0 m
3690: 65 61 6e 73 20 70 65 6e 64 69 6e 67 2e 0a 20 2a eans pending.. *
36a0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
36b0: 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 63 65 20 53 :. *.May force S
36c0: 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 74 SL negotiation t
36d0: 6f 20 74 61 6b 65 20 70 6c 61 63 65 2e 0a 20 2a o take place.. *
36e0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3720: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
3730: 69 63 20 69 6e 74 0a 48 61 6e 64 73 68 61 6b 65 ic int.Handshake
3740: 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 ObjCmd(clientDat
3750: 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c a, interp, objc,
3760: 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e objv). Clien
3770: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
3780: 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a ;./* Not used. *
3790: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
37a0: 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e *interp;. in
37b0: 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f t objc;. Tcl_
37c0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
37d0: 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 ];.{. Tcl_Cha
37e0: 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 nnel chan;../* T
37f0: 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 he channel to se
3800: 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a t a mode on. */.
3810: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
3820: 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 Ptr;../* client
3830: 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 73 6f state for ssl so
3840: 63 6b 65 74 20 2a 2f 0a 20 20 20 20 69 6e 74 20 cket */. int
3850: 72 65 74 20 3d 20 31 3b 0a 0a 20 20 20 20 69 66 ret = 1;.. if
3860: 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 (objc != 2) {..
3870: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
3880: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
3890: 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 20 20 , "channel");.
38a0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
38b0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
38c0: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
38d0: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c tChannel(interp,
38e0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
38f0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e omObj(objv[1], N
3900: 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 ULL), NULL);.
3910: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 if (chan == (Tc
3920: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
3930: 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 {. retur
3940: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
3950: 20 7d 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e }. if (chann
3960: 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d elTypeVersion ==
3970: 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TLS_CHANNEL_VER
3980: 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 SION_2) {../*..
3990: 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f * Make sure to o
39a0: 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f perate on the to
39b0: 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 pmost channel..
39c0: 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 */..chan = Tcl_G
39d0: 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 etTopChannel(cha
39e0: 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 n);. }. if
39f0: 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c (Tcl_GetChannel
3a00: 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c Type(chan) != Tl
3a10: 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 s_ChannelType())
3a20: 20 7b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 {. Tcl_A
3a30: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3a40: 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c rp, "bad channel
3a50: 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 \"", Tcl_GetCha
3a60: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a nnelName(chan),.
3a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3a80: 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 "\": not a TLS c
3a90: 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a hannel", NULL);.
3aa0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 return T
3ab0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
3ac0: 20 20 20 20 73 74 61 74 65 50 74 72 20 3d 20 28 statePtr = (
3ad0: 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 65 74 43 State *)Tcl_GetC
3ae0: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
3af0: 74 61 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 69 ta(chan);.. i
3b00: 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e 69 74 5f f (!SSL_is_init_
3b10: 66 69 6e 69 73 68 65 64 28 73 74 61 74 65 50 74 finished(statePt
3b20: 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 69 6e 74 20 r->ssl)) {..int
3b30: 65 72 72 3b 0a 09 72 65 74 20 3d 20 54 6c 73 5f err;..ret = Tls_
3b40: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 WaitForConnect(s
3b50: 74 61 74 65 50 74 72 2c 20 26 65 72 72 29 3b 0a tatePtr, &err);.
3b60: 09 69 66 20 28 72 65 74 20 3c 20 30 29 20 7b 0a .if (ret < 0) {.
3b70: 09 20 20 20 20 43 4f 4e 53 54 20 63 68 61 72 20 . CONST char
3b80: 2a 65 72 72 53 74 72 20 3d 20 73 74 61 74 65 50 *errStr = stateP
3b90: 74 72 2d 3e 65 72 72 3b 0a 09 20 20 20 20 54 63 tr->err;.. Tc
3ba0: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
3bb0: 74 65 72 70 29 3b 0a 09 20 20 20 20 54 63 6c 5f terp);.. Tcl_
3bc0: 53 65 74 45 72 72 6e 6f 28 65 72 72 29 3b 0a 0a SetErrno(err);..
3bd0: 09 20 20 20 20 69 66 20 28 21 65 72 72 53 74 72 . if (!errStr
3be0: 20 7c 7c 20 2a 65 72 72 53 74 72 20 3d 3d 20 30 || *errStr == 0
3bf0: 29 20 7b 0a 09 20 20 20 20 20 20 20 20 65 72 72 ) {.. err
3c00: 53 74 72 20 3d 20 54 63 6c 5f 50 6f 73 69 78 45 Str = Tcl_PosixE
3c10: 72 72 6f 72 28 69 6e 74 65 72 70 29 3b 0a 09 20 rror(interp);..
3c20: 20 20 20 7d 0a 0a 09 20 20 20 20 54 63 6c 5f 41 }... Tcl_A
3c30: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3c40: 72 70 2c 20 22 68 61 6e 64 73 68 61 6b 65 20 66 rp, "handshake f
3c50: 61 69 6c 65 64 3a 20 22 2c 20 65 72 72 53 74 72 ailed: ", errStr
3c60: 2c 0a 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 ,... (char *)
3c70: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
3c80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
3c90: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c }. }.. Tcl
3ca0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
3cb0: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
3cc0: 4f 62 6a 28 72 65 74 29 29 3b 0a 20 20 20 20 72 Obj(ret));. r
3cd0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
3ce0: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
3cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
3d30: 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d ImportObjCmd --
3d40: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 . *. *.This proc
3d50: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
3d60: 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 to process the
3d70: 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a "ssl" command. *
3d80: 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 6f 6d 6d . *.The ssl comm
3d90: 61 6e 64 20 70 75 73 68 65 73 20 53 53 4c 20 6f and pushes SSL o
3da0: 76 65 72 20 61 20 28 6e 65 77 6c 79 20 63 6f 6e ver a (newly con
3db0: 6e 65 63 74 65 64 29 20 74 63 70 20 73 6f 63 6b nected) tcp sock
3dc0: 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 et. *. * Results
3dd0: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
3de0: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
3df0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3e00: 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 *.May modify th
3e10: 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e e behavior of an
3e20: 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a IO channel.. *.
3e30: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e70: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
3e80: 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 c int.ImportObjC
3e90: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 md(clientData, i
3ea0: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
3eb0: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 v). ClientDat
3ec0: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a a clientData;./*
3ed0: 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 Not used. */.
3ee0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
3ef0: 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 terp;. int ob
3f00: 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 jc;. Tcl_Obj
3f10: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b *CONST objv[];.{
3f20: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
3f30: 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 chan;../* The c
3f40: 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 hannel to set a
3f50: 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 mode on. */.
3f60: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
3f70: 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 ../* client stat
3f80: 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 e for ssl socket
3f90: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 */. SSL_CTX
3fa0: 2a 63 74 78 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 *ctx.= NULL;.
3fb0: 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70 74 Tcl_Obj *script
3fc0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 .= NULL;. int
3fd0: 20 69 64 78 3b 0a 20 20 20 20 69 6e 74 20 66 6c idx;. int fl
3fe0: 61 67 73 09 09 3d 20 54 4c 53 5f 54 43 4c 5f 49 ags..= TLS_TCL_I
3ff0: 4e 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 NIT;. int ser
4000: 76 65 72 09 09 3d 20 30 3b 09 2f 2a 20 69 73 20 ver..= 0;./* is
4010: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d connection incom
4020: 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f ing or outgoing?
4030: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 */. char *ke
4040: 79 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 y..= NULL;. c
4050: 68 61 72 20 2a 63 65 72 74 09 09 3d 20 4e 55 4c har *cert..= NUL
4060: 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 L;. char *cip
4070: 68 65 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 hers.= NULL;.
4080: 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 3d 20 char *CAfile.=
4090: 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a NULL;. char *
40a0: 43 41 64 69 72 09 09 3d 20 4e 55 4c 4c 3b 0a 20 CAdir..= NULL;.
40b0: 20 20 20 63 68 61 72 20 2a 6d 6f 64 65 6c 09 09 char *model..
40c0: 3d 20 4e 55 4c 4c 3b 0a 23 69 66 20 64 65 66 69 = NULL;.#if defi
40d0: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 ned(NO_SSL2).
40e0: 20 69 6e 74 20 73 73 6c 32 20 3d 20 30 3b 0a 23 int ssl2 = 0;.#
40f0: 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 73 6c else. int ssl
4100: 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 2 = 1;.#endif.#i
4110: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c f defined(NO_SSL
4120: 33 29 0a 20 20 20 20 69 6e 74 20 73 73 6c 33 20 3). int ssl3
4130: 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 20 69 = 0;.#else. i
4140: 6e 74 20 73 73 6c 33 20 3d 20 31 3b 0a 23 65 6e nt ssl3 = 1;.#en
4150: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 dif.#if defined(
4160: 4e 4f 5f 53 53 4c 32 29 20 26 26 20 64 65 66 69 NO_SSL2) && defi
4170: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 ned(NO_SSL3).
4180: 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 3b 0a 23 int tls1 = 1;.#
4190: 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 74 6c 73 else. int tls
41a0: 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 20 20 1 = 0;.#endif.
41b0: 20 20 69 6e 74 20 70 72 6f 74 6f 20 3d 20 30 3b int proto = 0;
41c0: 0a 20 20 20 20 69 6e 74 20 76 65 72 69 66 79 20 . int verify
41d0: 3d 20 30 2c 20 72 65 71 75 69 72 65 20 3d 20 30 = 0, require = 0
41e0: 2c 20 72 65 71 75 65 73 74 20 3d 20 31 3b 0a 0a , request = 1;..
41f0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 if (objc < 2
4200: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
4210: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
4220: 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 20 objv, "channel
4230: 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a 20 20 20 ?options?");.
4240: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
4250: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
4260: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
4270: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
4280: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
4290: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 mObj(objv[1], NU
42a0: 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 LL), NULL);.
42b0: 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c if (chan == (Tcl
42c0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
42d0: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
42e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
42f0: 7d 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 }. if (channe
4300: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 lTypeVersion ==
4310: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
4320: 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a ION_2) {../*.. *
4330: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
4340: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
4350: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a most channel.. *
4360: 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 /..chan = Tcl_Ge
4370: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
4380: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f );. }.. fo
4390: 72 20 28 69 64 78 20 3d 20 32 3b 20 69 64 78 20 r (idx = 2; idx
43a0: 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 20 7b < objc; idx++) {
43b0: 0a 09 63 68 61 72 20 2a 6f 70 74 20 3d 20 54 63 ..char *opt = Tc
43c0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
43d0: 62 6a 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 4e 55 bj(objv[idx], NU
43e0: 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f 70 74 5b 30 LL);...if (opt[0
43f0: 5d 20 21 3d 20 27 2d 27 29 0a 09 20 20 20 20 62 ] != '-').. b
4400: 72 65 61 6b 3b 0a 0a 09 4f 50 54 53 54 52 28 20 reak;...OPTSTR(
4410: 22 2d 63 61 66 69 6c 65 22 2c 20 43 41 66 69 6c "-cafile", CAfil
4420: 65 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 e);..OPTSTR( "-c
4430: 61 64 69 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 adir", CAdir);..
4440: 4f 50 54 53 54 52 28 20 22 2d 63 65 72 74 66 69 OPTSTR( "-certfi
4450: 6c 65 22 2c 20 63 65 72 74 29 3b 0a 09 4f 50 54 le", cert);..OPT
4460: 53 54 52 28 20 22 2d 63 69 70 68 65 72 22 2c 20 STR( "-cipher",
4470: 63 69 70 68 65 72 73 29 3b 0a 09 4f 50 54 4f 42 ciphers);..OPTOB
4480: 4a 28 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 J( "-command", s
4490: 63 72 69 70 74 29 3b 0a 09 4f 50 54 53 54 52 28 cript);..OPTSTR(
44a0: 20 22 2d 6b 65 79 66 69 6c 65 22 2c 20 6b 65 79 "-keyfile", key
44b0: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 6d 6f );..OPTSTR( "-mo
44c0: 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 3b 0a 09 4f del", model);..O
44d0: 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 69 72 PTBOOL( "-requir
44e0: 65 22 2c 20 72 65 71 75 69 72 65 29 3b 0a 09 4f e", require);..O
44f0: 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 65 73 PTBOOL( "-reques
4500: 74 22 2c 20 72 65 71 75 65 73 74 29 3b 0a 09 4f t", request);..O
4510: 50 54 42 4f 4f 4c 28 20 22 2d 73 65 72 76 65 72 PTBOOL( "-server
4520: 22 2c 20 73 65 72 76 65 72 29 3b 0a 0a 09 4f 50 ", server);...OP
4530: 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 32 22 2c 20 TBOOL( "-ssl2",
4540: 73 73 6c 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 ssl2);..OPTBOOL(
4550: 20 22 2d 73 73 6c 33 22 2c 20 73 73 6c 33 29 3b "-ssl3", ssl3);
4560: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 ..OPTBOOL( "-tls
4570: 31 22 2c 20 74 6c 73 31 29 3b 0a 0a 09 4f 50 54 1", tls1);...OPT
4580: 42 41 44 28 20 22 6f 70 74 69 6f 6e 22 2c 20 22 BAD( "option", "
4590: 2d 63 61 66 69 6c 65 2c 20 2d 63 61 64 69 72 2c -cafile, -cadir,
45a0: 20 2d 63 65 72 74 66 69 6c 65 2c 20 2d 63 69 70 -certfile, -cip
45b0: 68 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d her, -command, -
45c0: 6b 65 79 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c keyfile, -model,
45d0: 20 2d 72 65 71 75 69 72 65 2c 20 2d 72 65 71 75 -require, -requ
45e0: 65 73 74 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 6c est, -ssl2, -ssl
45f0: 33 2c 20 2d 73 65 72 76 65 72 2c 20 6f 72 20 2d 3, -server, or -
4600: 74 6c 73 31 22 29 3b 0a 0a 09 72 65 74 75 72 6e tls1");...return
4610: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4620: 7d 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 }. if (reques
4630: 74 29 20 20 20 20 20 20 20 20 20 20 20 20 76 65 t) ve
4640: 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 49 rify |= SSL_VERI
4650: 46 59 5f 43 4c 49 45 4e 54 5f 4f 4e 43 45 20 7c FY_CLIENT_ONCE |
4660: 20 53 53 4c 5f 56 45 52 49 46 59 5f 50 45 45 52 SSL_VERIFY_PEER
4670: 3b 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 ;. if (reques
4680: 74 20 26 26 20 72 65 71 75 69 72 65 29 20 76 65 t && require) ve
4690: 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 49 rify |= SSL_VERI
46a0: 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 FY_FAIL_IF_NO_PE
46b0: 45 52 5f 43 45 52 54 3b 0a 20 20 20 20 69 66 20 ER_CERT;. if
46c0: 28 76 65 72 69 66 79 20 3d 3d 20 30 29 20 20 20 (verify == 0)
46d0: 20 20 20 20 20 76 65 72 69 66 79 20 3d 20 53 53 verify = SS
46e0: 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a L_VERIFY_NONE;..
46f0: 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 proto |= (ss
4700: 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 l2 ? TLS_PROTO_S
4710: 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 SL2 : 0);. pr
4720: 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f 20 54 oto |= (ssl3 ? T
4730: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 LS_PROTO_SSL3 :
4740: 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 0);. proto |=
4750: 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 52 4f (tls1 ? TLS_PRO
4760: 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a 0a 20 TO_TLS1 : 0);..
4770: 20 20 20 2f 2a 20 72 65 73 65 74 20 74 6f 20 4e /* reset to N
4780: 55 4c 4c 20 69 66 20 62 6c 61 6e 6b 20 73 74 72 ULL if blank str
4790: 69 6e 67 20 70 72 6f 76 69 64 65 64 20 2a 2f 0a ing provided */.
47a0: 20 20 20 20 69 66 20 28 63 65 72 74 20 26 26 20 if (cert &&
47b0: 21 2a 63 65 72 74 29 09 09 63 65 72 74 09 3d 20 !*cert)..cert.=
47c0: 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 6b 65 NULL;. if (ke
47d0: 79 20 26 26 20 21 2a 6b 65 79 29 09 09 6b 65 79 y && !*key)..key
47e0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 .= NULL;. if
47f0: 28 63 69 70 68 65 72 73 20 26 26 20 21 2a 63 69 (ciphers && !*ci
4800: 70 68 65 72 73 29 09 63 69 70 68 65 72 73 09 3d phers).ciphers.=
4810: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 NULL;. if (C
4820: 41 66 69 6c 65 20 26 26 20 21 2a 43 41 66 69 6c Afile && !*CAfil
4830: 65 29 09 43 41 66 69 6c 65 09 3d 20 4e 55 4c 4c e).CAfile.= NULL
4840: 3b 0a 20 20 20 20 69 66 20 28 43 41 64 69 72 20 ;. if (CAdir
4850: 26 26 20 21 2a 43 41 64 69 72 29 09 43 41 64 69 && !*CAdir).CAdi
4860: 72 09 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 69 r.= NULL;.. i
4870: 66 20 28 6d 6f 64 65 6c 20 21 3d 20 4e 55 4c 4c f (model != NULL
4880: 29 20 7b 0a 09 69 6e 74 20 6d 6f 64 65 3b 0a 09 ) {..int mode;..
4890: 2f 2a 20 47 65 74 20 74 68 65 20 22 6d 6f 64 65 /* Get the "mode
48a0: 6c 22 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 63 l" context */..c
48b0: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 han = Tcl_GetCha
48c0: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6d 6f 64 nnel(interp, mod
48d0: 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 09 69 66 20 el, &mode);..if
48e0: 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 (chan == (Tcl_Ch
48f0: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
4900: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
4910: 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 20 28 63 68 RROR;..}..if (ch
4920: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
4930: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
4940: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 20 20 VERSION_2) {..
4950: 20 20 2f 2a 0a 09 20 20 20 20 20 2a 20 4d 61 6b /*.. * Mak
4960: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
4970: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
4980: 20 63 68 61 6e 6e 65 6c 0a 09 20 20 20 20 20 2a channel.. *
4990: 2f 0a 09 20 20 20 20 63 68 61 6e 20 3d 20 54 63 /.. chan = Tc
49a0: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
49b0: 63 68 61 6e 29 3b 0a 09 7d 0a 09 69 66 20 28 54 chan);..}..if (T
49c0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
49d0: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 e(chan) != Tls_C
49e0: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a hannelType()) {.
49f0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
4a00: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
4a10: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a ad channel \"",.
4a20: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 .. Tcl_GetCha
4a30: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 nnelName(chan),
4a40: 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 "\": not a TLS c
4a50: 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a hannel", NULL);.
4a60: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4a70: 45 52 52 4f 52 3b 0a 09 7d 0a 09 73 74 61 74 65 ERROR;..}..state
4a80: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
4a90: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
4aa0: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 stanceData(chan)
4ab0: 3b 0a 09 63 74 78 20 3d 20 73 74 61 74 65 50 74 ;..ctx = statePt
4ac0: 72 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c r->ctx;. } el
4ad0: 73 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 3d se {..if ((ctx =
4ae0: 20 43 54 58 5f 49 6e 69 74 28 69 6e 74 65 72 70 CTX_Init(interp
4af0: 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 , proto, key, ce
4b00: 72 74 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c rt, CAdir, CAfil
4b10: 65 2c 20 63 69 70 68 65 72 73 29 29 0a 09 20 20 e, ciphers))..
4b20: 20 20 3d 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 == (SSL_CTX*)0
4b30: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ) {.. return
4b40: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 TCL_ERROR;..}.
4b50: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 }.. /* new
4b60: 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 SSL state */.
4b70: 20 73 74 61 74 65 50 74 72 09 09 3d 20 28 53 74 statePtr..= (St
4b80: 61 74 65 20 2a 29 20 54 63 6c 5f 41 6c 6c 6f 63 ate *) Tcl_Alloc
4b90: 28 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 ((unsigned) size
4ba0: 6f 66 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 of(State));.
4bb0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 3d statePtr->self.=
4bc0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 4e 55 (Tcl_Channel)NU
4bd0: 4c 4c 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 LL;. statePtr
4be0: 2d 3e 74 69 6d 65 72 09 3d 20 28 54 63 6c 5f 54 ->timer.= (Tcl_T
4bf0: 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 3b 0a imerToken)NULL;.
4c00: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 . statePtr->f
4c10: 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b 0a 20 20 lags.= flags;.
4c20: 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 statePtr->watc
4c30: 68 4d 61 73 6b 09 3d 20 30 3b 0a 20 20 20 20 73 hMask.= 0;. s
4c40: 74 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 tatePtr->mode.=
4c50: 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 0;.. statePtr
4c60: 2d 3e 69 6e 74 65 72 70 09 3d 20 69 6e 74 65 72 ->interp.= inter
4c70: 70 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d p;. statePtr-
4c80: 3e 63 61 6c 6c 62 61 63 6b 09 3d 20 28 54 63 6c >callback.= (Tcl
4c90: 5f 4f 62 6a 20 2a 29 30 3b 0a 0a 20 20 20 20 73 _Obj *)0;.. s
4ca0: 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 09 tatePtr->vflags.
4cb0: 3d 20 76 65 72 69 66 79 3b 0a 20 20 20 20 73 74 = verify;. st
4cc0: 61 74 65 50 74 72 2d 3e 73 73 6c 09 3d 20 28 53 atePtr->ssl.= (S
4cd0: 53 4c 2a 29 30 3b 0a 20 20 20 20 73 74 61 74 65 SL*)0;. state
4ce0: 50 74 72 2d 3e 63 74 78 09 3d 20 63 74 78 3b 0a Ptr->ctx.= ctx;.
4cf0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 62 69 statePtr->bi
4d00: 6f 09 3d 20 28 42 49 4f 2a 29 30 3b 0a 20 20 20 o.= (BIO*)0;.
4d10: 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f statePtr->p_bio
4d20: 09 3d 20 28 42 49 4f 2a 29 30 3b 0a 0a 20 20 20 .= (BIO*)0;..
4d30: 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 09 3d statePtr->err.=
4d40: 20 22 22 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 "";.. /*.
4d50: 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 6d * We need to m
4d60: 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 74 68 ake sure that th
4d70: 65 20 63 68 61 6e 6e 65 6c 20 77 6f 72 6b 73 20 e channel works
4d80: 69 6e 20 62 69 6e 61 72 79 20 28 66 6f 72 20 74 in binary (for t
4d90: 68 65 0a 20 20 20 20 20 2a 20 65 6e 63 72 79 70 he. * encryp
4da0: 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 67 65 74 20 tion not to get
4db0: 67 6f 6f 66 65 64 20 75 70 29 2e 0a 20 20 20 20 goofed up)..
4dc0: 20 2a 20 57 65 20 6f 6e 6c 79 20 77 61 6e 74 20 * We only want
4dd0: 74 6f 20 61 64 6a 75 73 74 20 74 68 65 20 62 75 to adjust the bu
4de0: 66 66 65 72 69 6e 67 20 69 6e 20 70 72 65 2d 76 ffering in pre-v
4df0: 32 20 63 68 61 6e 6e 65 6c 73 2c 20 77 68 65 72 2 channels, wher
4e00: 65 0a 20 20 20 20 20 2a 20 65 61 63 68 20 63 68 e. * each ch
4e10: 61 6e 6e 65 6c 20 69 6e 20 74 68 65 20 73 74 61 annel in the sta
4e20: 63 6b 20 6d 61 69 6e 74 61 69 6e 65 64 20 69 74 ck maintained it
4e30: 73 20 6f 77 6e 20 62 75 66 66 65 72 73 2e 0a 20 s own buffers..
4e40: 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 */. Tcl_S
4e50: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
4e60: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
4e70: 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 translation", "b
4e80: 69 6e 61 72 79 22 29 3b 0a 20 20 20 20 69 66 20 inary");. if
4e90: 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 (channelTypeVers
4ea0: 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e ion == TLS_CHANN
4eb0: 45 4c 5f 56 45 52 53 49 4f 4e 5f 31 29 20 7b 0a EL_VERSION_1) {.
4ec0: 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f .Tcl_SetChannelO
4ed0: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 ption(interp, ch
4ee0: 61 6e 2c 20 22 2d 62 75 66 66 65 72 69 6e 67 22 an, "-buffering"
4ef0: 2c 20 22 6e 6f 6e 65 22 29 3b 0a 20 20 20 20 7d , "none");. }
4f00: 0a 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 .. if (channe
4f10: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 lTypeVersion ==
4f20: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
4f30: 49 4f 4e 5f 32 29 20 7b 0a 09 73 74 61 74 65 50 ION_2) {..stateP
4f40: 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f 53 tr->self = Tcl_S
4f50: 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 tackChannel(inte
4f60: 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 rp, Tls_ChannelT
4f70: 79 70 65 28 29 2c 0a 09 09 28 43 6c 69 65 6e 74 ype(),...(Client
4f80: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 Data) statePtr,
4f90: 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 7c 20 (TCL_READABLE |
4fa0: 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 2c 20 63 TCL_WRITABLE), c
4fb0: 68 61 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 han);. } else
4fc0: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 65 {..statePtr->se
4fd0: 6c 66 20 3d 20 63 68 61 6e 3b 0a 09 54 63 6c 5f lf = chan;..Tcl_
4fe0: 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 StackChannel(int
4ff0: 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e 65 6c erp, Tls_Channel
5000: 54 79 70 65 28 29 2c 0a 09 09 28 43 6c 69 65 6e Type(),...(Clien
5010: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c tData) statePtr,
5020: 20 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 7c (TCL_READABLE |
5030: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 2c 20 TCL_WRITABLE),
5040: 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 chan);. }.
5050: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
5060: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
5070: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a nel) NULL) {../*
5080: 0a 09 20 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 .. * No use of T
5090: 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 cl_EventuallyFre
50a0: 65 20 62 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 e because no pos
50b0: 73 69 62 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 sible Tcl_Preser
50c0: 76 65 2e 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 ve... */..Tls_Fr
50d0: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 ee((char *) stat
50e0: 65 50 74 72 29 3b 0a 20 20 20 20 20 20 20 20 72 ePtr);. r
50f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5100: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 61 . }.. /* a
5110: 6c 6c 6f 63 61 74 65 20 73 63 72 69 70 74 20 2a llocate script *
5120: 2f 0a 20 20 20 20 69 66 20 28 73 63 72 69 70 74 /. if (script
5130: 29 20 7b 0a 09 63 68 61 72 20 2a 74 6d 70 20 3d ) {..char *tmp =
5140: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
5150: 6f 6d 4f 62 6a 28 73 63 72 69 70 74 2c 20 4e 55 omObj(script, NU
5160: 4c 4c 29 3b 0a 09 69 66 20 28 74 6d 70 20 26 26 LL);..if (tmp &&
5170: 20 2a 74 6d 70 29 20 7b 0a 09 20 20 20 20 73 74 *tmp) {.. st
5180: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b atePtr->callback
5190: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
51a0: 4f 62 6a 28 73 63 72 69 70 74 29 3b 0a 09 20 20 Obj(script);..
51b0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
51c0: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c nt(statePtr->cal
51d0: 6c 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d lback);..}. }
51e0: 0a 20 20 20 20 2f 2a 20 54 68 69 73 20 69 73 20 . /* This is
51f0: 6f 6e 6c 79 20 6e 65 65 64 65 64 20 62 65 63 61 only needed beca
5200: 75 73 65 20 6f 66 20 61 20 62 75 67 20 69 6e 20 use of a bug in
5210: 4f 70 65 6e 53 53 4c 2c 20 77 68 65 72 65 20 74 OpenSSL, where t
5220: 68 65 0a 20 20 20 20 20 2a 20 73 73 6c 2d 3e 76 he. * ssl->v
5230: 65 72 69 66 79 5f 63 61 6c 6c 62 61 63 6b 20 69 erify_callback i
5240: 73 20 6e 6f 74 20 72 65 66 65 72 65 6e 63 65 64 s not referenced
5250: 21 21 21 20 28 4d 75 73 74 20 62 65 20 64 6f 6e !!! (Must be don
5260: 65 0a 20 20 20 20 20 2a 20 2a 62 65 66 6f 72 65 e. * *before
5270: 2a 20 53 53 4c 5f 6e 65 77 28 29 20 69 73 20 63 * SSL_new() is c
5280: 61 6c 6c 65 64 21 0a 20 20 20 20 20 2a 2f 0a 20 alled!. */.
5290: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 76 SSL_CTX_set_v
52a0: 65 72 69 66 79 28 73 74 61 74 65 50 74 72 2d 3e erify(statePtr->
52b0: 63 74 78 2c 20 76 65 72 69 66 79 2c 20 56 65 72 ctx, verify, Ver
52c0: 69 66 79 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 ifyCallback);..
52d0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c /*. * SSL
52e0: 20 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a Initialization.
52f0: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 73 74 61 */.. sta
5300: 74 65 50 74 72 2d 3e 73 73 6c 20 3d 20 53 53 4c tePtr->ssl = SSL
5310: 5f 6e 65 77 28 73 74 61 74 65 50 74 72 2d 3e 63 _new(statePtr->c
5320: 74 78 29 3b 0a 20 20 20 20 69 66 20 28 21 73 74 tx);. if (!st
5330: 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 20 atePtr->ssl) {.
5340: 20 20 20 20 20 20 20 2f 2a 20 53 53 4c 20 6c 69 /* SSL li
5350: 62 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a 20 brary error */.
5360: 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e Tcl_Appen
5370: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
5380: 22 63 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 72 "couldn't constr
5390: 75 63 74 20 73 73 6c 20 73 65 73 73 69 6f 6e 3a uct ssl session:
53a0: 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 09 ", REASON(),...
53b0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
53c0: 09 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 .Tls_Free((char
53d0: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 *) statePtr);.
53e0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
53f0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5400: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c /*. * SSL
5410: 20 43 61 6c 6c 62 61 63 6b 73 0a 20 20 20 20 20 Callbacks.
5420: 2a 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f */.. SSL_set_
5430: 61 70 70 5f 64 61 74 61 28 73 74 61 74 65 50 74 app_data(statePt
5440: 72 2d 3e 73 73 6c 2c 20 28 56 4f 49 44 20 2a 29 r->ssl, (VOID *)
5450: 73 74 61 74 65 50 74 72 29 3b 09 2f 2a 20 70 6f statePtr);./* po
5460: 69 6e 74 20 62 61 63 6b 20 74 6f 20 75 73 20 2a int back to us *
5470: 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a /.. /*. *
5480: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 The following i
5490: 73 20 62 72 6f 6b 65 6e 20 2d 20 77 65 20 6e 65 s broken - we ne
54a0: 65 64 20 69 73 20 74 6f 20 73 65 74 20 74 68 65 ed is to set the
54b0: 0a 20 20 20 20 20 2a 20 76 65 72 69 66 79 5f 6d . * verify_m
54c0: 6f 64 65 2c 20 62 75 74 20 74 68 65 20 6c 69 62 ode, but the lib
54d0: 72 61 72 79 20 69 67 6e 6f 72 65 73 20 74 68 65 rary ignores the
54e0: 20 76 65 72 69 66 79 5f 63 61 6c 6c 62 61 63 6b verify_callback
54f0: 21 21 21 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 !!!. */.
5500: 2f 2a 53 53 4c 5f 73 65 74 5f 76 65 72 69 66 79 /*SSL_set_verify
5510: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
5520: 76 65 72 69 66 79 2c 20 56 65 72 69 66 79 43 61 verify, VerifyCa
5530: 6c 6c 62 61 63 6b 29 3b 2a 2f 0a 0a 20 20 20 20 llback);*/..
5540: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 69 6e 66 6f SSL_CTX_set_info
5550: 5f 63 61 6c 6c 62 61 63 6b 28 73 74 61 74 65 50 _callback(stateP
5560: 74 72 2d 3e 63 74 78 2c 20 49 6e 66 6f 43 61 6c tr->ctx, InfoCal
5570: 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 lback);.. /*
5580: 43 72 65 61 74 65 20 54 63 6c 5f 43 68 61 6e 6e Create Tcl_Chann
5590: 65 6c 20 42 49 4f 20 48 61 6e 64 6c 65 72 20 2a el BIO Handler *
55a0: 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e /. statePtr->
55b0: 70 5f 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 5f p_bio.= BIO_new_
55c0: 74 63 6c 28 73 74 61 74 65 50 74 72 2c 20 42 49 tcl(statePtr, BI
55d0: 4f 5f 43 4c 4f 53 45 29 3b 0a 20 20 20 20 73 74 O_CLOSE);. st
55e0: 61 74 65 50 74 72 2d 3e 62 69 6f 09 3d 20 42 49 atePtr->bio.= BI
55f0: 4f 5f 6e 65 77 28 42 49 4f 5f 66 5f 73 73 6c 28 O_new(BIO_f_ssl(
5600: 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 65 72 ));.. if (ser
5610: 76 65 72 29 20 7b 0a 09 73 74 61 74 65 50 74 72 ver) {..statePtr
5620: 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 ->flags |= TLS_T
5630: 43 4c 5f 53 45 52 56 45 52 3b 0a 09 53 53 4c 5f CL_SERVER;..SSL_
5640: 73 65 74 5f 61 63 63 65 70 74 5f 73 74 61 74 65 set_accept_state
5650: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
5660: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 53 . } else {..S
5670: 53 4c 5f 73 65 74 5f 63 6f 6e 6e 65 63 74 5f 73 SL_set_connect_s
5680: 74 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 tate(statePtr->s
5690: 73 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 53 sl);. }. S
56a0: 53 4c 5f 73 65 74 5f 62 69 6f 28 73 74 61 74 65 SL_set_bio(state
56b0: 50 74 72 2d 3e 73 73 6c 2c 20 73 74 61 74 65 50 Ptr->ssl, stateP
56c0: 74 72 2d 3e 70 5f 62 69 6f 2c 20 73 74 61 74 65 tr->p_bio, state
56d0: 50 74 72 2d 3e 70 5f 62 69 6f 29 3b 0a 20 20 20 Ptr->p_bio);.
56e0: 20 42 49 4f 5f 73 65 74 5f 73 73 6c 28 73 74 61 BIO_set_ssl(sta
56f0: 74 65 50 74 72 2d 3e 62 69 6f 2c 20 73 74 61 74 tePtr->bio, stat
5700: 65 50 74 72 2d 3e 73 73 6c 2c 20 42 49 4f 5f 43 ePtr->ssl, BIO_C
5710: 4c 4f 53 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 LOSE);.. /*.
5720: 20 20 20 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c * End of SSL
5730: 20 49 6e 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 Init. */.
5740: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
5750: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
5760: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
5770: 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ame(statePtr->se
5780: 6c 66 29 2c 0a 09 20 20 20 20 54 43 4c 5f 56 4f lf),.. TCL_VO
5790: 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 LATILE);. ret
57a0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a urn TCL_OK;.}...
57b0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
57c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57f0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 --------. *. * C
5800: 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 74 TX_Init -- const
5810: 72 75 63 74 20 61 20 53 53 4c 5f 43 54 58 20 69 ruct a SSL_CTX i
5820: 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 65 nstance. *. * Re
5830: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c 69 sults:. *.A vali
5840: 64 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e d SSL_CTX instan
5850: 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20 ce or NULL.. *.
5860: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
5870: 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 53 53 *.constructs SS
5880: 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a L context (CTX).
5890: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
58a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
58b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
58c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
58d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
58e0: 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a 43 atic SSL_CTX *.C
58f0: 54 58 5f 49 6e 69 74 28 69 6e 74 65 72 70 2c 20 TX_Init(interp,
5900: 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 72 74 proto, key, cert
5910: 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c 65 2c , CAdir, CAfile,
5920: 20 63 69 70 68 65 72 73 29 0a 20 20 20 20 54 63 ciphers). Tc
5930: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
5940: 3b 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 6f 3b ;. int proto;
5950: 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 3b 0a . char *key;.
5960: 20 20 20 20 63 68 61 72 20 2a 63 65 72 74 3b 0a char *cert;.
5970: 20 20 20 20 63 68 61 72 20 2a 43 41 64 69 72 3b char *CAdir;
5980: 0a 20 20 20 20 63 68 61 72 20 2a 43 41 66 69 6c . char *CAfil
5990: 65 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 e;. char *cip
59a0: 68 65 72 73 3b 0a 7b 0a 20 20 20 20 53 53 4c 5f hers;.{. SSL_
59b0: 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b CTX *ctx = NULL;
59c0: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
59d0: 20 64 73 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 ds;. Tcl_DSt
59e0: 72 69 6e 67 20 64 73 31 3b 0a 20 20 20 20 69 6e ring ds1;. in
59f0: 74 20 6f 66 66 20 3d 20 30 3b 0a 0a 20 20 20 20 t off = 0;..
5a00: 2f 2a 20 63 72 65 61 74 65 20 53 53 4c 20 63 6f /* create SSL co
5a10: 6e 74 65 78 74 20 2a 2f 0a 23 69 66 20 21 64 65 ntext */.#if !de
5a20: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 26 fined(NO_SSL2) &
5a30: 26 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 & !defined(NO_SS
5a40: 4c 33 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 L3). if (ENAB
5a50: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
5a60: 52 4f 54 4f 5f 53 53 4c 32 29 20 26 26 0a 09 45 ROTO_SSL2) &&..E
5a70: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c NABLED(proto, TL
5a80: 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b S_PROTO_SSL3)) {
5a90: 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
5aa0: 6e 65 77 28 53 53 4c 76 32 33 5f 6d 65 74 68 6f new(SSLv23_metho
5ab0: 64 28 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 d());. } else
5ac0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28 .#endif. if (
5ad0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
5ae0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 29 20 LS_PROTO_SSL2))
5af0: 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f {.#if defined(NO
5b00: 5f 53 53 4c 32 29 0a 09 54 63 6c 5f 41 70 70 65 _SSL2)..Tcl_Appe
5b10: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
5b20: 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 "protocol not s
5b30: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
5b40: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 ;..return (SSL_C
5b50: 54 58 20 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 TX *)0;.#else..c
5b60: 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 tx = SSL_CTX_new
5b70: 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 (SSLv2_method())
5b80: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 ;.#endif. } e
5b90: 6c 73 65 20 69 66 20 28 45 4e 41 42 4c 45 44 28 lse if (ENABLED(
5ba0: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
5bb0: 5f 54 4c 53 31 29 29 20 7b 0a 09 63 74 78 20 3d _TLS1)) {..ctx =
5bc0: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 SSL_CTX_new(TLS
5bd0: 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 20 v1_method());.
5be0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 4e 41 } else if (ENA
5bf0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
5c00: 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b 0a 23 PROTO_SSL3)) {.#
5c10: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
5c20: 4c 33 29 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 L3)..Tcl_AppendR
5c30: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
5c40: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
5c50: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
5c60: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
5c70: 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 74 78 20 *)0;.#else..ctx
5c80: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 = SSL_CTX_new(SS
5c90: 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 23 Lv3_method());.#
5ca0: 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 6c 73 65 endif. } else
5cb0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
5cc0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f sult(interp, "no
5cd0: 20 76 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c 20 valid protocol
5ce0: 73 65 6c 65 63 74 65 64 22 2c 20 4e 55 4c 4c 29 selected", NULL)
5cf0: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 ;..return (SSL_C
5d00: 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 20 20 TX *)0;. }.
5d10: 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 off |= (ENABLE
5d20: 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f D(proto, TLS_PRO
5d30: 54 4f 5f 54 4c 53 31 29 20 3f 20 30 20 3a 20 53 TO_TLS1) ? 0 : S
5d40: 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 29 3b SL_OP_NO_TLSv1);
5d50: 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 . off |= (ENA
5d60: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
5d70: 50 52 4f 54 4f 5f 53 53 4c 32 29 20 3f 20 30 20 PROTO_SSL2) ? 0
5d80: 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 : SSL_OP_NO_SSLv
5d90: 32 29 3b 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 2);. off |= (
5da0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
5db0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 20 3f LS_PROTO_SSL3) ?
5dc0: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 0 : SSL_OP_NO_S
5dd0: 53 4c 76 33 29 3b 0a 0a 20 20 20 20 53 53 4c 5f SLv3);.. SSL_
5de0: 43 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 CTX_set_app_data
5df0: 28 20 63 74 78 2c 20 28 56 4f 49 44 2a 29 69 6e ( ctx, (VOID*)in
5e00: 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d 62 terp);./* rememb
5e10: 65 72 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 er the interpret
5e20: 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 er */. SSL_CT
5e30: 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 X_set_options( c
5e40: 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 3b tx, SSL_OP_ALL);
5e50: 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 ./* all SSL bug
5e60: 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 workarounds */.
5e70: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f SSL_CTX_set_o
5e80: 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f 66 66 ptions( ctx, off
5e90: 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 );./* all SSL bu
5ea0: 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f g workarounds */
5eb0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 73 . SSL_CTX_ses
5ec0: 73 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 s_set_cache_size
5ed0: 28 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a 20 20 ( ctx, 128);..
5ee0: 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 3d if (ciphers !=
5ef0: 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 58 5f NULL)..SSL_CTX_
5f00: 73 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 set_cipher_list(
5f10: 63 74 78 2c 20 63 69 70 68 65 72 73 29 3b 0a 0a ctx, ciphers);..
5f20: 20 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d 65 20 /* set some
5f30: 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 20 20 callbacks */.
5f40: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 SSL_CTX_set_def
5f50: 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 28 63 ault_passwd_cb(c
5f60: 74 78 2c 20 50 61 73 73 77 6f 72 64 43 61 6c 6c tx, PasswordCall
5f70: 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 66 20 back);..#ifndef
5f80: 42 53 41 46 45 0a 20 20 20 20 53 53 4c 5f 43 54 BSAFE. SSL_CT
5f90: 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 X_set_default_pa
5fa0: 73 73 77 64 5f 63 62 5f 75 73 65 72 64 61 74 61 sswd_cb_userdata
5fb0: 28 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 69 6e (ctx, (void *)in
5fc0: 74 65 72 70 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 terp);.#endif..#
5fd0: 69 66 6e 64 65 66 20 4e 4f 5f 44 48 0a 20 20 20 ifndef NO_DH.
5fe0: 20 7b 0a 09 44 48 2a 20 64 68 20 3d 20 67 65 74 {..DH* dh = get
5ff0: 5f 64 68 35 31 32 28 29 3b 0a 09 53 53 4c 5f 43 _dh512();..SSL_C
6000: 54 58 5f 73 65 74 5f 74 6d 70 5f 64 68 28 63 74 TX_set_tmp_dh(ct
6010: 78 2c 20 64 68 29 3b 0a 09 44 48 5f 66 72 65 65 x, dh);..DH_free
6020: 28 64 68 29 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 (dh);. }.#end
6030: 69 66 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 6f if.. /* set o
6040: 75 72 20 63 65 72 74 69 66 69 63 61 74 65 20 2a ur certificate *
6050: 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 20 21 /. if (cert !
6060: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 = NULL) {..Tcl_D
6070: 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 3b StringInit(&ds);
6080: 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 53 53 .. if (SS
6090: 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 L_CTX_use_certif
60a0: 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 icate_file(ctx,
60b0: 46 32 4e 28 20 63 65 72 74 2c 20 26 64 73 29 2c F2N( cert, &ds),
60c0: 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 ......SSL_FILETY
60d0: 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a PE_PEM) <= 0) {.
60e0: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
60f0: 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 20 Free(&ds);.
6100: 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e Tcl_Appen
6110: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
6120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6130: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 6e "un
6140: 61 62 6c 65 20 74 6f 20 73 65 74 20 63 65 72 74 able to set cert
6150: 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 ificate file ",
6160: 63 65 72 74 2c 20 22 3a 20 22 2c 0a 20 20 20 20 cert, ": ",.
6170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6180: 20 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e 28 REASON(
6190: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ), (char *) NULL
61a0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 );. S
61b0: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
61c0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 ;. re
61d0: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 turn (SSL_CTX *)
61e0: 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 0;. }..
61f0: 20 20 20 20 20 20 2f 2a 20 67 65 74 20 74 68 65 /* get the
6200: 20 70 72 69 76 61 74 65 20 6b 65 79 20 61 73 73 private key ass
6210: 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 ociated with thi
6220: 73 20 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f s certificate */
6230: 0a 20 20 20 20 20 20 20 20 69 66 20 28 6b 65 79 . if (key
6240: 20 3d 3d 20 4e 55 4c 4c 29 20 6b 65 79 3d 63 65 == NULL) key=ce
6250: 72 74 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 rt;.. if
6260: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 72 69 (SSL_CTX_use_Pri
6270: 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 63 74 78 vateKey_file(ctx
6280: 2c 20 46 32 4e 28 20 6b 65 79 2c 20 26 64 73 29 , F2N( key, &ds)
6290: 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 ,......SSL_FILET
62a0: 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b YPE_PEM) <= 0) {
62b0: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
62c0: 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 gFree(&ds);.
62d0: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 Tcl_Appe
62e0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
62f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
6300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 "u
6310: 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 70 75 62 nable to set pub
6320: 6c 69 63 20 6b 65 79 20 66 69 6c 65 20 22 2c 20 lic key file ",
6330: 6b 65 79 2c 20 22 20 22 2c 0a 20 20 20 20 20 20 key, " ",.
6340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6350: 20 20 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c REASON(),
6360: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
6370: 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 53 4c . SSL
6380: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
6390: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 retu
63a0: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b rn (SSL_CTX *)0;
63b0: 0a 20 20 20 20 20 20 20 20 7d 0a 09 54 63 6c 5f . }..Tcl_
63c0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
63d0: 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f 77 ;. /* Now
63e0: 20 77 65 20 6b 6e 6f 77 20 74 68 61 74 20 61 20 we know that a
63f0: 6b 65 79 20 61 6e 64 20 63 65 72 74 20 68 61 76 key and cert hav
6400: 65 20 62 65 65 6e 20 73 65 74 20 61 67 61 69 6e e been set again
6410: 73 74 0a 20 20 20 20 20 20 20 20 20 2a 20 74 68 st. * th
6420: 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f e SSL context */
6430: 0a 20 20 20 20 20 20 20 20 69 66 20 28 21 53 53 . if (!SS
6440: 4c 5f 43 54 58 5f 63 68 65 63 6b 5f 70 72 69 76 L_CTX_check_priv
6450: 61 74 65 5f 6b 65 79 28 63 74 78 29 29 20 7b 0a ate_key(ctx)) {.
6460: 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f Tcl_
6470: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
6480: 65 72 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 erp,.
6490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
64a0: 20 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 64 "private key d
64b0: 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 oes not match th
64c0: 65 20 63 65 72 74 69 66 69 63 61 74 65 20 70 75 e certificate pu
64d0: 62 6c 69 63 20 6b 65 79 22 2c 0a 20 20 20 20 20 blic key",.
64e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
64f0: 20 20 20 20 20 20 20 20 28 63 68 61 72 20 2a 29 (char *)
6500: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 NULL);.
6510: 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 SSL_CTX_free
6520: 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 20 20 (ctx);.
6530: 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 return (SSL_C
6540: 54 58 20 2a 29 30 3b 0a 20 20 20 20 20 20 20 20 TX *)0;.
6550: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 }. } else {.
6560: 20 20 20 20 20 20 20 63 65 72 74 20 3d 20 28 63 cert = (c
6570: 68 61 72 2a 29 58 35 30 39 5f 67 65 74 5f 64 65 har*)X509_get_de
6580: 66 61 75 6c 74 5f 63 65 72 74 5f 66 69 6c 65 28 fault_cert_file(
6590: 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 );.. if (
65a0: 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 SSL_CTX_use_cert
65b0: 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 ificate_file(ctx
65c0: 2c 20 63 65 72 74 2c 0a 09 09 09 09 09 53 53 4c , cert,......SSL
65d0: 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c _FILETYPE_PEM) <
65e0: 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 20 20 = 0) {.#if 0..
65f0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 Tcl_DStringFre
6600: 65 28 26 64 73 29 3b 0a 20 20 20 20 20 20 20 20 e(&ds);.
6610: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
6620: 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 20 20 20 sult(interp,.
6630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6640: 20 20 20 20 20 20 20 20 20 20 22 75 6e 61 62 6c "unabl
6650: 65 20 74 6f 20 75 73 65 20 64 65 66 61 75 6c 74 e to use default
6660: 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 6c certificate fil
6670: 65 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 22 2c e ", cert, ": ",
6680: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
6690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
66a0: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
66b0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 NULL);.
66c0: 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 SSL_CTX_free
66d0: 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 20 20 (ctx);.
66e0: 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 return (SSL_C
66f0: 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a 20 TX *)0;.#endif.
6700: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 09 }. }..
6710: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
6720: 49 6e 69 74 28 26 64 73 29 3b 0a 20 20 20 20 54 Init(&ds);. T
6730: 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 cl_DStringInit(&
6740: 64 73 31 29 3b 0a 20 20 20 20 69 66 20 28 21 53 ds1);. if (!S
6750: 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f 76 65 72 69 SL_CTX_load_veri
6760: 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 28 63 74 78 fy_locations(ctx
6770: 2c 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 64 , F2N(CAfile, &d
6780: 73 29 2c 20 46 32 4e 28 43 41 64 69 72 2c 20 26 s), F2N(CAdir, &
6790: 64 73 31 29 29 20 7c 7c 0a 20 20 20 20 20 20 20 ds1)) ||.
67a0: 20 21 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 !SSL_CTX_set_de
67b0: 66 61 75 6c 74 5f 76 65 72 69 66 79 5f 70 61 74 fault_verify_pat
67c0: 68 73 28 63 74 78 29 29 20 7b 0a 23 69 66 20 30 hs(ctx)) {.#if 0
67d0: 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 ..Tcl_DStringFre
67e0: 65 28 26 64 73 29 3b 0a 09 54 63 6c 5f 44 53 74 e(&ds);..Tcl_DSt
67f0: 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b 0a ringFree(&ds1);.
6800: 09 2f 2a 20 44 6f 6e 27 74 20 63 75 72 72 65 6e ./* Don't curren
6810: 74 6c 79 20 63 61 72 65 20 69 66 20 74 68 69 73 tly care if this
6820: 20 66 61 69 6c 73 20 2a 2f 0a 09 54 63 6c 5f 41 fails */..Tcl_A
6830: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6840: 72 70 2c 20 22 53 53 4c 20 64 65 66 61 75 6c 74 rp, "SSL default
6850: 20 76 65 72 69 66 79 20 70 61 74 68 73 3a 20 22 verify paths: "
6860: 2c 0a 09 09 52 45 41 53 4f 4e 28 29 2c 20 28 63 ,...REASON(), (c
6870: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 har *) NULL);..S
6880: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
6890: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 ;..return (SSL_C
68a0: 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a 20 TX *)0;.#endif.
68b0: 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 43 54 58 }. SSL_CTX
68c0: 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 43 41 5f 6c _set_client_CA_l
68d0: 69 73 74 28 63 74 78 2c 20 53 53 4c 5f 6c 6f 61 ist(ctx, SSL_loa
68e0: 64 5f 63 6c 69 65 6e 74 5f 43 41 5f 66 69 6c 65 d_client_CA_file
68f0: 28 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 64 ( F2N(CAfile, &d
6900: 73 29 20 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f s) ));.. Tcl_
6910: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
6920: 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e ;. Tcl_DStrin
6930: 67 46 72 65 65 28 26 64 73 31 29 3b 0a 20 20 20 gFree(&ds1);.
6940: 20 72 65 74 75 72 6e 20 63 74 78 3b 0a 7d 0a 0c return ctx;.}..
6950: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
6960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
69a0: 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 2d 2d 20 StatusObjCmd --
69b0: 72 65 74 75 72 6e 20 63 65 72 74 69 66 69 63 61 return certifica
69c0: 74 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 65 64 te for connected
69d0: 20 70 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 peer.. *. * Res
69e0: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
69f0: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a ard Tcl result..
6a00: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
6a10: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
6a20: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a60: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
6a70: 20 69 6e 74 0a 53 74 61 74 75 73 4f 62 6a 43 6d int.StatusObjCm
6a80: 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e d(clientData, in
6a90: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
6aa0: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ). ClientData
6ab0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 clientData;./*
6ac0: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 Not used. */.
6ad0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
6ae0: 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a erp;. int obj
6af0: 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a c;. Tcl_Obj.*
6b00: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a CONST objv[];.{.
6b10: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
6b20: 50 74 72 3b 0a 20 20 20 20 58 35 30 39 20 2a 70 Ptr;. X509 *p
6b30: 65 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a eer;. Tcl_Obj
6b40: 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 54 63 *objPtr;. Tc
6b50: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a l_Channel chan;.
6b60: 20 20 20 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 char *channe
6b70: 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 65 72 73 3b lName, *ciphers;
6b80: 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b 0a 0a . int mode;..
6b90: 20 20 20 20 73 77 69 74 63 68 20 28 6f 62 6a 63 switch (objc
6ba0: 29 20 7b 0a 09 63 61 73 65 20 32 3a 0a 09 20 20 ) {..case 2:..
6bb0: 20 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 channelName =
6bc0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
6bd0: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 mObj(objv[1], NU
6be0: 4c 4c 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b LL);.. break;
6bf0: 0a 0a 09 63 61 73 65 20 33 3a 0a 09 20 20 20 20 ...case 3:..
6c00: 69 66 20 28 21 73 74 72 63 6d 70 20 28 54 63 6c if (!strcmp (Tcl
6c10: 5f 47 65 74 53 74 72 69 6e 67 20 28 6f 62 6a 76 _GetString (objv
6c20: 5b 31 5d 29 2c 20 22 2d 6c 6f 63 61 6c 22 29 29 [1]), "-local"))
6c30: 20 7b 0a 09 09 63 68 61 6e 6e 65 6c 4e 61 6d 65 {...channelName
6c40: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
6c50: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c FromObj(objv[2],
6c60: 20 4e 55 4c 4c 29 3b 0a 09 09 62 72 65 61 6b 3b NULL);...break;
6c70: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 2f 2a 20 .. }.. /*
6c80: 65 6c 73 65 20 66 61 6c 6c 2e 2e 2e 20 2a 2f 0a else fall... */.
6c90: 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 54 .default:.. T
6ca0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
6cb0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
6cc0: 20 22 3f 2d 6c 6f 63 61 6c 3f 20 63 68 61 6e 6e "?-local? chann
6cd0: 65 6c 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 el");.. retur
6ce0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
6cf0: 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 }.. chan = T
6d00: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
6d10: 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 4e 61 6d terp, channelNam
6d20: 65 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 e, &mode);. i
6d30: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
6d40: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
6d50: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6d60: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 OR;. }. if
6d70: 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 (channelTypeVer
6d80: 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e sion == TLS_CHAN
6d90: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b NEL_VERSION_2) {
6da0: 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6b 65 20 73 75 ../*.. * Make su
6db0: 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e re to operate on
6dc0: 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 the topmost cha
6dd0: 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 nnel.. */..chan
6de0: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e = Tcl_GetTopChan
6df0: 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 20 20 20 7d nel(chan);. }
6e00: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
6e10: 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e ChannelType(chan
6e20: 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c ) != Tls_Channel
6e30: 54 79 70 65 28 29 29 20 7b 0a 20 20 20 20 20 20 Type()) {.
6e40: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
6e50: 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 lt(interp, "bad
6e60: 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c channel \"", Tcl
6e70: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
6e80: 63 68 61 6e 29 2c 0a 20 20 20 20 20 20 20 20 20 chan),.
6e90: 20 20 20 20 20 20 20 22 5c 22 3a 20 6e 6f 74 20 "\": not
6ea0: 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 a TLS channel",
6eb0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 72 NULL);. r
6ec0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6ed0: 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 . }. state
6ee0: 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr.= (State *)
6ef0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
6f00: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 stanceData(chan)
6f10: 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d ;. if (objc =
6f20: 3d 20 32 29 0a 09 70 65 65 72 09 3d 20 53 53 4c = 2)..peer.= SSL
6f30: 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 69 66 _get_peer_certif
6f40: 69 63 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e icate(statePtr->
6f50: 73 73 6c 29 3b 0a 20 20 20 20 65 6c 73 65 0a 09 ssl);. else..
6f60: 70 65 65 72 09 3d 20 53 53 4c 5f 67 65 74 5f 63 peer.= SSL_get_c
6f70: 65 72 74 69 66 69 63 61 74 65 28 73 74 61 74 65 ertificate(state
6f80: 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 69 Ptr->ssl);. i
6f90: 66 20 28 70 65 65 72 29 20 7b 0a 09 6f 62 6a 50 f (peer) {..objP
6fa0: 74 72 20 3d 20 54 6c 73 5f 4e 65 77 58 35 30 39 tr = Tls_NewX509
6fb0: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 70 65 65 72 Obj(interp, peer
6fc0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
6fd0: 09 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 .objPtr = Tcl_Ne
6fe0: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
6ff0: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 );. }.. Tc
7000: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
7010: 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 lement (interp,
7020: 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 objPtr, Tcl_NewS
7030: 74 72 69 6e 67 4f 62 6a 20 28 22 73 62 69 74 73 tringObj ("sbits
7040: 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c ", -1));. Tcl
7050: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
7060: 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f ement (interp, o
7070: 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f bjPtr,.. Tcl_
7080: 4e 65 77 49 6e 74 4f 62 6a 20 28 53 53 4c 5f 67 NewIntObj (SSL_g
7090: 65 74 5f 63 69 70 68 65 72 5f 62 69 74 73 20 28 et_cipher_bits (
70a0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 4e statePtr->ssl, N
70b0: 55 4c 4c 29 29 29 3b 0a 0a 20 20 20 20 63 69 70 ULL)));.. cip
70c0: 68 65 72 73 20 3d 20 28 63 68 61 72 2a 29 53 53 hers = (char*)SS
70d0: 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74 61 L_get_cipher(sta
70e0: 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 tePtr->ssl);.
70f0: 20 69 66 20 28 63 69 70 68 65 72 73 20 21 3d 20 if (ciphers !=
7100: 4e 55 4c 4c 20 26 26 20 73 74 72 63 6d 70 28 63 NULL && strcmp(c
7110: 69 70 68 65 72 73 2c 20 22 28 4e 4f 4e 45 29 22 iphers, "(NONE)"
7120: 29 21 3d 30 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 )!=0) {..Tcl_Lis
7130: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
7140: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 t(interp, objPtr
7150: 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e ,...Tcl_NewStrin
7160: 67 4f 62 6a 28 22 63 69 70 68 65 72 22 2c 20 2d gObj("cipher", -
7170: 31 29 29 3b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 1));..Tcl_ListOb
7180: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
7190: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 nterp, objPtr,..
71a0: 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 .Tcl_NewStringOb
71b0: 6a 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 j(SSL_get_cipher
71c0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c (statePtr->ssl),
71d0: 20 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 -1));. }.
71e0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
71f0: 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 t( interp, objPt
7200: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 r);. return T
7210: 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a CL_OK;.}.../*. *
7220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7260: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 46 72 ---. *. * Tls_Fr
7270: 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 ee --. *. *.This
7280: 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e procedure clean
7290: 73 20 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 s up when a SSL
72a0: 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 socket based cha
72b0: 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 nnel. *.is close
72c0: 64 20 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 d and its refere
72d0: 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 nce count falls
72e0: 62 65 6c 6f 77 20 31 0a 20 2a 0a 20 2a 20 52 65 below 1. *. * Re
72f0: 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 sults:. *.none.
7300: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7310: 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 s:. *.Frees all
7320: 74 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d the state. *. *-
7330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7370: 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f --. */.void.Tls_
7380: 46 72 65 65 28 20 63 68 61 72 20 2a 62 6c 6f 63 Free( char *bloc
7390: 6b 50 74 72 20 29 0a 7b 0a 20 20 20 20 53 74 61 kPtr ).{. Sta
73a0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
73b0: 53 74 61 74 65 20 2a 29 62 6c 6f 63 6b 50 74 72 State *)blockPtr
73c0: 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e ;.. Tls_Clean
73d0: 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 (statePtr);.
73e0: 54 63 6c 5f 46 72 65 65 28 62 6c 6f 63 6b 50 74 Tcl_Free(blockPt
73f0: 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d r);.}.../*. *---
7400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7440: 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 61 6e . *. * Tls_Clean
7450: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
7460: 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 rocedure cleans
7470: 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f up when a SSL so
7480: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e cket based chann
7490: 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 el. *.is closed
74a0: 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 and its referenc
74b0: 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 e count falls be
74c0: 6c 6f 77 20 31 2e 20 20 54 68 69 73 20 73 68 6f low 1. This sho
74d0: 75 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c 65 64 uld. *.be called
74e0: 20 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 62 synchronously b
74f0: 79 20 74 68 65 20 43 6c 6f 73 65 50 72 6f 63 2c y the CloseProc,
7500: 20 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a 09 45 not in the. *.E
7510: 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 63 61 ventuallyFree ca
7520: 6c 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65 llback.. *. * Re
7530: 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 sults:. *.none.
7540: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7550: 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 s:. *.Frees all
7560: 74 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d the state. *. *-
7570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75b0: 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f --. */.void.Tls_
75c0: 43 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 74 61 Clean(State *sta
75d0: 74 65 50 74 72 29 0a 7b 0a 20 20 20 20 2f 2a 0a tePtr).{. /*.
75e0: 20 20 20 20 20 2a 20 77 65 27 72 65 20 61 73 73 * we're ass
75f0: 75 6d 69 6e 67 20 68 65 72 65 20 74 68 61 74 20 uming here that
7600: 77 65 27 72 65 20 73 69 6e 67 6c 65 2d 74 68 72 we're single-thr
7610: 65 61 64 65 64 0a 20 20 20 20 20 2a 2f 0a 0a 20 eaded. */..
7620: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
7630: 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 >timer != (Tcl_T
7640: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 imerToken) NULL)
7650: 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 {..Tcl_DeleteTi
7660: 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 merHandler(state
7670: 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 Ptr->timer);..st
7680: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 atePtr->timer =
7690: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 NULL;. }..
76a0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
76b0: 73 6c 29 20 7b 0a 09 53 53 4c 5f 73 68 75 74 64 sl) {..SSL_shutd
76c0: 6f 77 6e 28 73 74 61 74 65 50 74 72 2d 3e 73 73 own(statePtr->ss
76d0: 6c 29 3b 0a 09 53 53 4c 5f 66 72 65 65 28 73 74 l);..SSL_free(st
76e0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 73 atePtr->ssl);..s
76f0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d 20 4e tatePtr->ssl = N
7700: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ULL;. }. i
7710: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c f (statePtr->cal
7720: 6c 62 61 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 65 lback) {..Tcl_De
7730: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 crRefCount(state
7740: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a Ptr->callback);.
7750: 09 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 .statePtr->callb
7760: 61 63 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ack = NULL;.
7770: 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d }.}.../*. *-----
7780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
77c0: 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 20 2d 2d *. * Tls_Init --
77d0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 73 20 61 . *. *.This is a
77e0: 20 70 61 63 6b 61 67 65 20 69 6e 69 74 69 61 6c package initial
77f0: 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 ization procedur
7800: 65 2c 20 77 68 69 63 68 20 69 73 20 63 61 6c 6c e, which is call
7810: 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 77 68 65 ed. *.by Tcl whe
7820: 6e 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 n this package i
7830: 73 20 74 6f 20 62 65 20 61 64 64 65 64 20 74 6f s to be added to
7840: 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 2e an interpreter.
7850: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 20 . *. * Results:
7860: 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 65 64 20 Ssl configured
7870: 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a and loaded. *. *
7880: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
7890: 2a 09 20 63 72 65 61 74 65 20 74 68 65 20 73 73 *. create the ss
78a0: 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 l command, initi
78b0: 61 6c 69 73 65 20 73 73 6c 20 63 6f 6e 74 65 78 alise ssl contex
78c0: 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d t. *. *---------
78d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
7910: 69 6e 74 0a 54 6c 73 5f 49 6e 69 74 28 54 63 6c int.Tls_Init(Tcl
7920: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
7930: 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 ../* Interpreter
7940: 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 70 61 in which the pa
7950: 63 6b 61 67 65 20 69 73 0a 20 20 20 20 20 20 20 ckage is.
7960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7980: 20 20 2a 20 74 6f 20 62 65 20 6d 61 64 65 20 61 * to be made a
7990: 76 61 69 6c 61 62 6c 65 2e 20 2a 2f 0a 7b 0a 20 vailable. */.{.
79a0: 20 20 20 69 6e 74 20 6d 61 6a 6f 72 2c 20 6d 69 int major, mi
79b0: 6e 6f 72 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c nor, patchlevel,
79c0: 20 72 65 6c 65 61 73 65 2c 20 69 3b 0a 20 20 20 release, i;.
79d0: 20 63 68 61 72 20 72 6e 64 5f 73 65 65 64 5b 31 char rnd_seed[1
79e0: 36 5d 20 3d 20 22 47 72 7a 53 6c 70 6c 4b 71 55 6] = "GrzSlplKqU
79f0: 64 6e 6e 7a 50 21 22 3b 09 2f 2a 20 31 36 20 62 dnnzP!";./* 16 b
7a00: 79 74 65 73 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a ytes */.. /*.
7a10: 20 20 20 20 20 2a 20 54 68 65 20 6f 72 69 67 69 * The origi
7a20: 6e 61 6c 20 38 2e 32 2e 30 20 73 74 61 63 6b 65 nal 8.2.0 stacke
7a30: 64 20 63 68 61 6e 6e 65 6c 20 69 6d 70 6c 65 6d d channel implem
7a40: 65 6e 74 61 74 69 6f 6e 20 28 61 6e 64 20 74 68 entation (and th
7a50: 65 20 70 61 74 63 68 0a 20 20 20 20 20 2a 20 74 e patch. * t
7a60: 68 61 74 20 70 72 65 63 65 64 65 64 20 69 74 29 hat preceded it)
7a70: 20 68 61 64 20 70 72 6f 62 6c 65 6d 73 20 77 69 had problems wi
7a80: 74 68 20 73 63 61 6c 61 62 69 6c 69 74 79 20 61 th scalability a
7a90: 6e 64 20 72 6f 62 75 73 74 6e 65 73 73 2e 0a 20 nd robustness..
7aa0: 20 20 20 20 2a 20 54 68 65 73 65 20 77 65 72 65 * These were
7ab0: 20 61 64 64 72 65 73 73 20 69 6e 20 38 2e 33 2e address in 8.3.
7ac0: 32 20 2f 20 38 2e 34 61 32 2c 20 73 6f 20 77 65 2 / 8.4a2, so we
7ad0: 20 6e 6f 77 20 72 65 71 75 69 72 65 20 74 68 61 now require tha
7ae0: 74 20 61 73 20 61 0a 20 20 20 20 20 2a 20 6d 69 t as a. * mi
7af0: 6e 69 6d 75 6d 20 66 6f 72 20 54 4c 53 20 31 2e nimum for TLS 1.
7b00: 34 2b 2e 20 20 57 65 20 6f 6e 6c 79 20 73 75 70 4+. We only sup
7b10: 70 6f 72 74 20 38 2e 32 2b 20 6e 6f 77 20 28 38 port 8.2+ now (8
7b20: 2e 33 2e 32 2b 20 70 72 65 66 65 72 72 65 64 29 .3.2+ preferred)
7b30: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 .. */. if
7b40: 20 28 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 (.#ifdef USE_TC
7b50: 4c 5f 53 54 55 42 53 0a 09 54 63 6c 5f 49 6e 69 L_STUBS..Tcl_Ini
7b60: 74 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 22 tStubs(interp, "
7b70: 38 2e 32 22 2c 20 30 29 0a 23 65 6c 73 65 0a 09 8.2", 0).#else..
7b80: 54 63 6c 5f 50 6b 67 52 65 71 75 69 72 65 28 69 Tcl_PkgRequire(i
7b90: 6e 74 65 72 70 2c 20 22 54 63 6c 22 2c 20 22 38 nterp, "Tcl", "8
7ba0: 2e 32 22 2c 20 30 29 0a 23 65 6e 64 69 66 0a 09 .2", 0).#endif..
7bb0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 == NULL) {.
7bc0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
7bd0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7be0: 2f 2a 0a 20 20 20 20 20 2a 20 47 65 74 20 74 68 /*. * Get th
7bf0: 65 20 76 65 72 73 69 6f 6e 20 73 6f 20 77 65 20 e version so we
7c00: 63 61 6e 20 72 75 6e 74 69 6d 65 20 73 77 69 74 can runtime swit
7c10: 63 68 20 6f 6e 20 61 76 61 69 6c 61 62 6c 65 20 ch on available
7c20: 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2e 0a 20 functionality..
7c30: 20 20 20 20 2a 20 54 4c 53 20 73 68 6f 75 6c 64 * TLS should
7c40: 20 72 65 61 6c 6c 79 20 6f 6e 6c 79 20 62 65 20 really only be
7c50: 75 73 65 64 20 69 6e 20 38 2e 33 2e 32 2b 2c 20 used in 8.3.2+,
7c60: 62 75 74 20 74 68 65 20 6f 74 68 65 72 20 77 6f but the other wo
7c70: 72 6b 73 20 66 6f 72 0a 20 20 20 20 20 2a 20 73 rks for. * s
7c80: 6f 6d 65 20 6c 69 6d 69 74 65 64 20 66 75 6e 63 ome limited func
7c90: 74 69 6f 6e 61 6c 69 74 79 2c 20 73 6f 20 61 6e tionality, so an
7ca0: 20 61 74 74 65 6d 70 74 20 61 74 20 73 75 70 70 attempt at supp
7cb0: 6f 72 74 20 69 73 20 6d 61 64 65 2e 0a 20 20 20 ort is made..
7cc0: 20 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 47 65 74 */. Tcl_Get
7cd0: 56 65 72 73 69 6f 6e 28 26 6d 61 6a 6f 72 2c 20 Version(&major,
7ce0: 26 6d 69 6e 6f 72 2c 20 26 70 61 74 63 68 6c 65 &minor, &patchle
7cf0: 76 65 6c 2c 20 26 72 65 6c 65 61 73 65 29 3b 0a vel, &release);.
7d00: 20 20 20 20 69 66 20 28 28 6d 61 6a 6f 72 20 3e if ((major >
7d10: 20 38 29 20 7c 7c 20 28 28 6d 61 6a 6f 72 20 3d 8) || ((major =
7d20: 3d 20 38 29 20 26 26 20 28 28 6d 69 6e 6f 72 20 = 8) && ((minor
7d30: 3e 20 33 29 20 7c 7c 20 28 28 6d 69 6e 6f 72 20 > 3) || ((minor
7d40: 3d 3d 20 33 29 20 26 26 0a 09 20 20 20 20 28 72 == 3) &&.. (r
7d50: 65 6c 65 61 73 65 20 3d 3d 20 54 43 4c 5f 46 49 elease == TCL_FI
7d60: 4e 41 4c 5f 52 45 4c 45 41 53 45 29 20 26 26 20 NAL_RELEASE) &&
7d70: 28 70 61 74 63 68 6c 65 76 65 6c 20 3e 3d 20 32 (patchlevel >= 2
7d80: 29 29 29 29 29 20 7b 0a 09 2f 2a 20 38 2e 33 2e ))))) {../* 8.3.
7d90: 32 2b 20 2a 2f 0a 09 63 68 61 6e 6e 65 6c 54 79 2+ */..channelTy
7da0: 70 65 56 65 72 73 69 6f 6e 20 3d 20 54 4c 53 5f peVersion = TLS_
7db0: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f CHANNEL_VERSION_
7dc0: 32 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2;. } else {.
7dd0: 09 2f 2a 20 38 2e 32 2e 30 20 2d 20 38 2e 33 2e ./* 8.2.0 - 8.3.
7de0: 31 20 2a 2f 0a 09 63 68 61 6e 6e 65 6c 54 79 70 1 */..channelTyp
7df0: 65 56 65 72 73 69 6f 6e 20 3d 20 54 4c 53 5f 43 eVersion = TLS_C
7e00: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 31 HANNEL_VERSION_1
7e10: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
7e20: 28 53 53 4c 5f 6c 69 62 72 61 72 79 5f 69 6e 69 (SSL_library_ini
7e30: 74 28 29 20 21 3d 20 31 29 20 7b 0a 20 20 20 20 t() != 1) {.
7e40: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
7e50: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f sult(interp, "co
7e60: 75 6c 64 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 uld not initiali
7e70: 7a 65 20 53 53 4c 20 6c 69 62 72 61 72 79 22 2c ze SSL library",
7e80: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
7e90: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
7ea0: 0a 20 20 20 20 53 53 4c 5f 6c 6f 61 64 5f 65 72 . SSL_load_er
7eb0: 72 6f 72 5f 73 74 72 69 6e 67 73 28 29 3b 0a 20 ror_strings();.
7ec0: 20 20 20 45 52 52 5f 6c 6f 61 64 5f 63 72 79 70 ERR_load_cryp
7ed0: 74 6f 5f 73 74 72 69 6e 67 73 28 29 3b 0a 0a 20 to_strings();..
7ee0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 65 65 /*. * See
7ef0: 64 20 74 68 65 20 72 61 6e 64 6f 6d 20 6e 75 6d d the random num
7f00: 62 65 72 20 67 65 6e 65 72 61 74 6f 72 20 69 6e ber generator in
7f10: 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 the SSL library
7f20: 2c 0a 20 20 20 20 20 2a 20 75 73 69 6e 67 20 74 ,. * using t
7f30: 68 65 20 64 6f 2f 77 68 69 6c 65 20 63 6f 6e 73 he do/while cons
7f40: 74 72 75 63 74 20 62 65 63 61 75 73 65 20 6f 66 truct because of
7f50: 20 74 68 65 20 62 75 67 20 6e 6f 74 65 20 69 6e the bug note in
7f60: 20 74 68 65 0a 20 20 20 20 20 2a 20 4f 70 65 6e the. * Open
7f70: 53 53 4c 20 46 41 51 20 61 74 20 68 74 74 70 3a SSL FAQ at http:
7f80: 2f 2f 77 77 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 //www.openssl.or
7f90: 67 2f 73 75 70 70 6f 72 74 2f 66 61 71 2e 68 74 g/support/faq.ht
7fa0: 6d 6c 23 55 53 45 52 31 0a 20 20 20 20 20 2a 0a ml#USER1. *.
7fb0: 20 20 20 20 20 2a 20 54 68 65 20 63 72 75 78 20 * The crux
7fc0: 6f 66 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 69 of the problem i
7fd0: 73 20 74 68 61 74 20 53 6f 6c 61 72 69 73 20 37 s that Solaris 7
7fe0: 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 does not have a
7ff0: 20 0a 20 20 20 20 20 2a 20 2f 64 65 76 2f 72 61 . * /dev/ra
8000: 6e 64 6f 6d 20 6f 72 20 2f 64 65 76 2f 75 72 61 ndom or /dev/ura
8010: 6e 64 6f 6d 20 64 65 76 69 63 65 20 73 6f 20 69 ndom device so i
8020: 74 20 63 61 6e 6e 6f 74 20 67 61 74 68 65 72 20 t cannot gather
8030: 65 6e 6f 75 67 68 0a 20 20 20 20 20 2a 20 65 6e enough. * en
8040: 74 72 6f 70 79 20 66 72 6f 6d 20 74 68 65 20 52 tropy from the R
8050: 41 4e 44 5f 73 65 65 64 28 29 20 77 68 65 6e 20 AND_seed() when
8060: 54 4c 53 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 TLS initializes
8070: 61 6e 64 20 72 65 66 75 73 65 73 0a 20 20 20 20 and refuses.
8080: 20 2a 20 74 6f 20 67 6f 20 66 75 72 74 68 65 72 * to go further
8090: 2e 20 45 61 72 6c 69 65 72 20 76 65 72 73 69 6f . Earlier versio
80a0: 6e 73 20 6f 66 20 4f 70 65 6e 53 53 4c 20 63 61 ns of OpenSSL ca
80b0: 72 72 69 65 64 20 6f 6e 20 72 65 67 61 72 64 6c rried on regardl
80c0: 65 73 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 ess.. */.
80d0: 20 73 72 61 6e 64 28 28 75 6e 73 69 67 6e 65 64 srand((unsigned
80e0: 20 69 6e 74 29 20 74 69 6d 65 28 28 74 69 6d 65 int) time((time
80f0: 5f 74 20 2a 29 20 4e 55 4c 4c 29 29 3b 0a 20 20 _t *) NULL));.
8100: 20 20 64 6f 20 7b 0a 09 66 6f 72 20 28 69 20 3d do {..for (i =
8110: 20 30 3b 20 69 20 3c 20 31 36 3b 20 69 2b 2b 29 0; i < 16; i++)
8120: 20 7b 0a 09 20 20 20 20 72 6e 64 5f 73 65 65 64 {.. rnd_seed
8130: 5b 69 5d 20 3d 20 31 20 2b 20 28 63 68 61 72 29 [i] = 1 + (char)
8140: 20 28 32 35 35 2e 30 20 2a 20 72 61 6e 64 28 29 (255.0 * rand()
8150: 2f 28 52 41 4e 44 5f 4d 41 58 2b 31 2e 30 29 29 /(RAND_MAX+1.0))
8160: 3b 0a 09 7d 0a 09 52 41 4e 44 5f 73 65 65 64 28 ;..}..RAND_seed(
8170: 72 6e 64 5f 73 65 65 64 2c 20 73 69 7a 65 6f 66 rnd_seed, sizeof
8180: 28 72 6e 64 5f 73 65 65 64 29 29 3b 0a 20 20 20 (rnd_seed));.
8190: 20 7d 20 77 68 69 6c 65 20 28 52 41 4e 44 5f 73 } while (RAND_s
81a0: 74 61 74 75 73 28 29 20 21 3d 20 31 29 3b 0a 0a tatus() != 1);..
81b0: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
81c0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
81d0: 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c "tls::ciphers",
81e0: 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 0a CiphersObjCmd,.
81f0: 09 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 . (ClientData
8200: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
8210: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
8220: 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 ;.. Tcl_Creat
8230: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
8240: 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 73 68 rp, "tls::handsh
8250: 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b 65 4f ake", HandshakeO
8260: 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 bjCmd,.. (Cli
8270: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
8280: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
8290: 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 ) NULL);.. Tc
82a0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
82b0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
82c0: 3a 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 :import", Import
82d0: 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c ObjCmd,.. (Cl
82e0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
82f0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
8300: 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 *) NULL);.. T
8310: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
8320: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
8330: 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 61 74 75 ::status", Statu
8340: 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 sObjCmd,.. (C
8350: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 lientData) 0, (T
8360: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
8370: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 *) NULL);..
8380: 72 65 74 75 72 6e 20 54 63 6c 5f 50 6b 67 50 72 return Tcl_PkgPr
8390: 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20 50 41 ovide(interp, PA
83a0: 43 4b 41 47 45 2c 20 56 45 52 53 49 4f 4e 29 3b CKAGE, VERSION);
83b0: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
83c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83f0: 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 66 65 *. *. *.Tls_Safe
8400: 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d Init --. *. *.--
8410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
8440: 20 2a 09 53 74 61 6e 64 61 72 64 20 70 72 6f 63 *.Standard proc
8450: 65 64 75 72 65 20 72 65 71 75 69 72 65 64 20 62 edure required b
8460: 79 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 49 6e y 'load'. . *.In
8470: 69 74 69 61 6c 69 7a 65 73 20 74 68 69 73 20 65 itializes this e
8480: 78 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 20 73 xtension for a s
8490: 61 66 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e afe interpreter.
84a0: 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *.------------
84b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84d0: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 ----*. *. *.Side
84e0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 41 73 20 effects:. *..As
84f0: 6f 66 20 27 54 6c 73 5f 49 6e 69 74 27 0a 20 2a of 'Tls_Init'. *
8500: 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 . *.Result:. *..
8510: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 65 A standard Tcl e
8520: 72 72 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a 20 2a rror code.. *. *
8530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8560: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 69 6e 74 ------*. */..int
8570: 0a 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 28 54 .Tls_SafeInit (T
8580: 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 cl_Interp* inter
8590: 70 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 p).{. return
85a0: 54 6c 73 5f 49 6e 69 74 20 28 69 6e 74 65 72 70 Tls_Init (interp
85b0: 29 3b 0a 7d 0a );.}.