0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 31 39 39 39 20 4d 61 (C) 1997-1999 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 73 6f 6d 65 20 6d 6f 64 69 66 69 63 61 74 69 some modificati
0050: 6f 6e 73 3a 0a 20 2a 09 43 6f 70 79 72 69 67 68 ons:. *.Copyrigh
0060: 74 20 28 43 29 20 32 30 30 30 20 41 6a 75 62 61 t (C) 2000 Ajuba
0070: 20 53 6f 6c 75 74 69 6f 6e 73 0a 20 2a 09 43 6f Solutions. *.Co
0080: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 32 pyright (C) 2002
0090: 20 41 63 74 69 76 65 53 74 61 74 65 20 43 6f 72 ActiveState Cor
00a0: 70 6f 72 61 74 69 6f 6e 0a 20 2a 09 43 6f 70 79 poration. *.Copy
00b0: 72 69 67 68 74 20 28 43 29 20 32 30 30 34 20 53 right (C) 2004 S
00c0: 74 61 72 66 69 73 68 20 53 79 73 74 65 6d 73 20 tarfish Systems
00d0: 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 6b 61 20 . *. * TLS (aka
00e0: 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 2d 20 63 SSL) Channel - c
00f0: 61 6e 20 62 65 20 6c 61 79 65 72 65 64 20 6f 6e an be layered on
0100: 20 61 6e 79 20 62 69 2d 64 69 72 65 63 74 69 6f any bi-directio
0110: 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 61 6e 6e nal. * Tcl_Chann
0120: 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 75 69 72 el (Note: Requir
0130: 65 73 20 54 72 66 20 43 6f 72 65 20 50 61 74 63 es Trf Core Patc
0140: 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 20 77 61 h). *. * This wa
0150: 73 20 62 75 69 6c 74 20 28 61 6c 6d 6f 73 74 29 s built (almost)
0160: 20 66 72 6f 6d 20 73 63 72 61 74 63 68 20 62 61 from scratch ba
0170: 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 72 76 61 sed upon observa
0180: 74 69 6f 6e 20 6f 66 0a 20 2a 20 4f 70 65 6e 53 tion of. * OpenS
0190: 53 4c 20 30 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20 SL 0.9.2B. *. *
01a0: 41 64 64 69 74 69 6f 6e 20 63 72 65 64 69 74 20 Addition credit
01b0: 69 73 20 64 75 65 20 66 6f 72 20 41 6e 64 72 65 is due for Andre
01c0: 61 73 20 4b 75 70 72 69 65 73 20 28 61 2e 6b 75 as Kupries (a.ku
01d0: 70 72 69 65 73 40 77 65 73 74 65 6e 64 2e 63 6f pries@westend.co
01e0: 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 72 6f 76 69 m), for. * provi
01f0: 64 69 6e 67 20 74 68 65 20 54 63 6c 5f 52 65 70 ding the Tcl_Rep
0200: 6c 61 63 65 43 68 61 6e 6e 65 6c 20 6d 65 63 68 laceChannel mech
0210: 61 6e 69 73 6d 20 61 6e 64 20 77 6f 72 6b 69 6e anism and workin
0220: 67 20 63 6c 6f 73 65 6c 79 20 77 69 74 68 20 6d g closely with m
0230: 65 0a 20 2a 20 74 6f 20 65 6e 68 61 6e 63 65 20 e. * to enhance
0240: 69 74 20 74 6f 20 73 75 70 70 6f 72 74 20 66 75 it to support fu
0250: 6c 6c 20 66 69 6c 65 65 76 65 6e 74 20 73 65 6d ll fileevent sem
0260: 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c antics.. *. * Al
0270: 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 20 62 79 20 so work done by
0280: 74 68 65 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c the follow peopl
0290: 65 20 70 72 6f 76 69 64 65 64 20 74 68 65 20 69 e provided the i
02a0: 6d 70 65 74 75 73 20 74 6f 20 64 6f 20 74 68 69 mpetus to do thi
02b0: 73 20 22 72 69 67 68 74 22 3a 0a 20 2a 09 74 63 s "right":. *.tc
02c0: 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 4d 63 43 6f lSSL (Colin McCo
02d0: 72 6d 61 63 6b 2c 20 53 68 61 72 65 64 20 54 65 rmack, Shared Te
02e0: 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a 09 53 53 4c chnology). *.SSL
02f0: 74 63 6c 20 28 50 65 74 65 72 20 41 6e 74 6d 61 tcl (Peter Antma
0300: 6e 29 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c n). *. */..#incl
0310: 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23 ude "tlsInt.h".#
0320: 69 6e 63 6c 75 64 65 20 22 74 63 6c 4f 70 74 73 include "tclOpts
0330: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 .h".#include <st
0340: 64 6c 69 62 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 45 dlib.h>../*. * E
0350: 78 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 6f 6e xternal function
0360: 73 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 s. */../*. * For
0370: 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e ward declaration
0380: 73 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 46 s. */..#define F
0390: 32 4e 28 20 6b 65 79 2c 20 64 73 70 29 20 5c 0a 2N( key, dsp) \.
03a0: 09 28 28 28 6b 65 79 29 20 3d 3d 20 4e 55 4c 4c .(((key) == NULL
03b0: 29 20 3f 20 28 63 68 61 72 20 2a 29 20 4e 55 4c ) ? (char *) NUL
03c0: 4c 20 3a 20 5c 0a 09 09 54 63 6c 5f 54 72 61 6e L : \...Tcl_Tran
03d0: 73 6c 61 74 65 46 69 6c 65 4e 61 6d 65 28 69 6e slateFileName(in
03e0: 74 65 72 70 2c 20 28 6b 65 79 29 2c 20 28 64 73 terp, (key), (ds
03f0: 70 29 29 29 0a 23 64 65 66 69 6e 65 20 52 45 41 p))).#define REA
0400: 53 4f 4e 28 29 09 45 52 52 5f 72 65 61 73 6f 6e SON().ERR_reason
0410: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 45 52 _error_string(ER
0420: 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 29 0a 0a R_get_error())..
0430: 73 74 61 74 69 63 20 76 6f 69 64 09 49 6e 66 6f static void.Info
0440: 43 61 6c 6c 62 61 63 6b 28 43 4f 4e 53 54 20 53 Callback(CONST S
0450: 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20 77 68 65 SL *ssl, int whe
0460: 72 65 2c 20 69 6e 74 20 72 65 74 29 3b 0a 0a 73 re, int ret);..s
0470: 74 61 74 69 63 20 69 6e 74 09 43 69 70 68 65 72 tatic int.Cipher
0480: 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 sObjCmd(ClientDa
0490: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 ta clientData,..
04a0: 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ..Tcl_Interp *in
04b0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
04c0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
04d0: 62 6a 76 5b 5d 29 3b 0a 0a 73 74 61 74 69 63 20 bjv[]);..static
04e0: 69 6e 74 09 48 61 6e 64 73 68 61 6b 65 4f 62 6a int.HandshakeObj
04f0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
0500: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
0510: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0520: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
0530: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
0540: 5d 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 ]);..static int.
0550: 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 43 6c 69 ImportObjCmd(Cli
0560: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
0570: 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 ta,....Tcl_Inter
0580: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
0590: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f bjc, Tcl_Obj *CO
05a0: 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b 0a 0a 73 74 NST objv[]);..st
05b0: 61 74 69 63 20 69 6e 74 09 53 74 61 74 75 73 4f atic int.StatusO
05c0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
05d0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 clientData,....
05e0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
05f0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
0600: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
0610: 76 5b 5d 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e v[]);..static in
0620: 74 09 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 t.VersionObjCmd(
0630: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
0640: 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e tData,....Tcl_In
0650: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
0660: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
0670: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b 0a *CONST objv[]);.
0680: 0a 73 74 61 74 69 63 20 69 6e 74 09 4d 69 73 63 .static int.Misc
0690: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
06a0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 a clientData,...
06b0: 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 .Tcl_Interp *int
06c0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
06d0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
06e0: 6a 76 5b 5d 29 3b 0a 0a 73 74 61 74 69 63 20 69 jv[]);..static i
06f0: 6e 74 09 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d nt.UnimportObjCm
0700: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
0710: 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f entData,....Tcl_
0720: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
0730: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
0740: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 j *CONST objv[])
0750: 3b 0a 0a 73 74 61 74 69 63 20 53 53 4c 5f 43 54 ;..static SSL_CT
0760: 58 20 2a 43 54 58 5f 49 6e 69 74 28 53 74 61 74 X *CTX_Init(Stat
0770: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 e *statePtr, int
0780: 20 70 72 6f 74 6f 2c 20 63 68 61 72 20 2a 6b 65 proto, char *ke
0790: 79 2c 0a 09 09 09 63 68 61 72 20 2a 63 65 72 74 y,....char *cert
07a0: 2c 20 63 68 61 72 20 2a 43 41 64 69 72 2c 20 63 , char *CAdir, c
07b0: 68 61 72 20 2a 43 41 66 69 6c 65 2c 20 63 68 61 har *CAfile, cha
07c0: 72 20 2a 63 69 70 68 65 72 73 2c 0a 09 09 09 63 r *ciphers,....c
07d0: 68 61 72 20 2a 44 48 70 61 72 61 6d 73 29 3b 0a har *DHparams);.
07e0: 0a 73 74 61 74 69 63 20 69 6e 74 09 54 6c 73 4c .static int.TlsL
07f0: 69 62 49 6e 69 74 28 69 6e 74 20 75 6e 69 6e 69 ibInit(int unini
0800: 74 69 61 6c 69 7a 65 29 3b 0a 0a 23 64 65 66 69 tialize);..#defi
0810: 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c ne TLS_PROTO_SSL
0820: 32 09 09 30 78 30 31 0a 23 64 65 66 69 6e 65 20 2..0x01.#define
0830: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 09 09 TLS_PROTO_SSL3..
0840: 30 78 30 32 0a 23 64 65 66 69 6e 65 20 54 4c 53 0x02.#define TLS
0850: 5f 50 52 4f 54 4f 5f 54 4c 53 31 09 09 30 78 30 _PROTO_TLS1..0x0
0860: 34 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4.#define TLS_PR
0870: 4f 54 4f 5f 54 4c 53 31 5f 31 09 30 78 30 38 0a OTO_TLS1_1.0x08.
0880: 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 #define TLS_PROT
0890: 4f 5f 54 4c 53 31 5f 32 09 30 78 31 30 0a 23 64 O_TLS1_2.0x10.#d
08a0: 65 66 69 6e 65 20 45 4e 41 42 4c 45 44 28 66 6c efine ENABLED(fl
08b0: 61 67 2c 20 6d 61 73 6b 29 09 28 28 28 66 6c 61 ag, mask).(((fla
08c0: 67 29 20 26 20 28 6d 61 73 6b 29 29 20 3d 3d 20 g) & (mask)) ==
08d0: 28 6d 61 73 6b 29 29 0a 0a 2f 2a 0a 20 2a 20 53 (mask))../*. * S
08e0: 74 61 74 69 63 20 64 61 74 61 20 73 74 72 75 63 tatic data struc
08f0: 74 75 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 6e 64 tures. */..#ifnd
0900: 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44 48 ef OPENSSL_NO_DH
0910: 0a 23 69 6e 63 6c 75 64 65 20 22 64 68 5f 70 61 .#include "dh_pa
0920: 72 61 6d 73 2e 68 22 0a 23 65 6e 64 69 66 0a 0a rams.h".#endif..
0930: 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 74 68 /*. * We lose th
0940: 65 20 74 63 6c 20 70 61 73 73 77 6f 72 64 20 63 e tcl password c
0950: 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 65 20 allback when we
0960: 75 73 65 20 74 68 65 20 52 53 41 20 42 53 41 46 use the RSA BSAF
0970: 45 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a 20 2a E SSL-C 1.1.2. *
0980: 20 6c 69 62 72 61 72 69 65 73 20 69 6e 73 74 65 libraries inste
0990: 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e ad of the curren
09a0: 74 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 61 72 t OpenSSL librar
09b0: 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 65 66 ies.. */..#ifdef
09c0: 20 42 53 41 46 45 0a 23 64 65 66 69 6e 65 20 50 BSAFE.#define P
09d0: 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 RE_OPENSSL_0_9_4
09e0: 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 1.#endif../*. *
09f0: 20 50 72 65 20 4f 70 65 6e 53 53 4c 20 30 2e 39 Pre OpenSSL 0.9
0a00: 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a 0a 23 .4 Compat. */..#
0a10: 69 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f 46 0a ifndef STACK_OF.
0a20: 23 64 65 66 69 6e 65 20 53 54 41 43 4b 5f 4f 46 #define STACK_OF
0a30: 28 78 29 09 09 09 53 54 41 43 4b 0a 23 64 65 66 (x)...STACK.#def
0a40: 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 ine sk_SSL_CIPHE
0a50: 52 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f 6e 75 R_num(sk)..sk_nu
0a60: 6d 28 28 73 6b 29 29 0a 23 64 65 66 69 6e 65 20 m((sk)).#define
0a70: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 sk_SSL_CIPHER_va
0a80: 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 09 lue( sk, index).
0a90: 28 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 6b 5f (SSL_CIPHER*)sk_
0aa0: 76 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 6e 64 value((sk), (ind
0ab0: 65 78 29 29 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a ex)).#endif../*.
0ac0: 20 2a 20 54 68 72 65 61 64 2d 53 61 66 65 20 54 * Thread-Safe T
0ad0: 4c 53 20 43 6f 64 65 0a 20 2a 2f 0a 0a 23 69 66 LS Code. */..#if
0ae0: 64 65 66 20 54 43 4c 5f 54 48 52 45 41 44 53 0a def TCL_THREADS.
0af0: 23 64 65 66 69 6e 65 20 4f 50 45 4e 53 53 4c 5f #define OPENSSL_
0b00: 54 48 52 45 41 44 5f 44 45 46 49 4e 45 53 0a 23 THREAD_DEFINES.#
0b10: 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c include <openssl
0b20: 2f 6f 70 65 6e 73 73 6c 63 6f 6e 66 2e 68 3e 0a /opensslconf.h>.
0b30: 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 53 4c 5f .#ifdef OPENSSL_
0b40: 54 48 52 45 41 44 53 0a 23 69 6e 63 6c 75 64 65 THREADS.#include
0b50: 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 70 74 6f <openssl/crypto
0b60: 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 54 68 72 65 61 .h>../*. * Threa
0b70: 64 65 64 20 6f 70 65 72 61 74 69 6f 6e 20 72 65 ded operation re
0b80: 71 75 69 72 65 73 20 6c 6f 63 6b 69 6e 67 20 63 quires locking c
0b90: 61 6c 6c 62 61 63 6b 73 0a 20 2a 20 42 61 73 65 allbacks. * Base
0ba0: 64 20 66 72 6f 6d 20 2f 63 72 79 70 74 6f 2f 63 d from /crypto/c
0bb0: 72 79 70 74 6c 69 62 2e 63 20 6f 66 20 4f 70 65 ryptlib.c of Ope
0bc0: 6e 53 53 4c 20 61 6e 64 20 4e 53 4f 70 65 6e 53 nSSL and NSOpenS
0bd0: 53 4c 2e 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 SL.. */..static
0be0: 54 63 6c 5f 4d 75 74 65 78 20 2a 6c 6f 63 6b 73 Tcl_Mutex *locks
0bf0: 20 3d 20 4e 55 4c 4c 3b 0a 73 74 61 74 69 63 20 = NULL;.static
0c00: 54 63 6c 5f 4d 75 74 65 78 20 69 6e 69 74 5f 6d Tcl_Mutex init_m
0c10: 78 3b 0a 0a 76 6f 69 64 20 43 72 79 70 74 6f 54 x;..void CryptoT
0c20: 68 72 65 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 hreadLockCallbac
0c30: 6b 28 69 6e 74 20 6d 6f 64 65 2c 20 69 6e 74 20 k(int mode, int
0c40: 6e 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 n, const char *f
0c50: 69 6c 65 2c 20 69 6e 74 20 6c 69 6e 65 29 20 7b ile, int line) {
0c60: 0a 09 69 66 20 28 6d 6f 64 65 20 26 20 43 52 59 ..if (mode & CRY
0c70: 50 54 4f 5f 4c 4f 43 4b 29 20 7b 0a 09 09 54 63 PTO_LOCK) {...Tc
0c80: 6c 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 6c 6f 63 l_MutexLock(&loc
0c90: 6b 73 5b 6e 5d 29 3b 0a 09 7d 20 65 6c 73 65 20 ks[n]);..} else
0ca0: 7b 0a 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c {...Tcl_MutexUnl
0cb0: 6f 63 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a ock(&locks[n]);.
0cc0: 09 7d 0a 7d 0a 0a 75 6e 73 69 67 6e 65 64 20 6c .}.}..unsigned l
0cd0: 6f 6e 67 20 43 72 79 70 74 6f 54 68 72 65 61 64 ong CryptoThread
0ce0: 49 64 43 61 6c 6c 62 61 63 6b 28 76 6f 69 64 29 IdCallback(void)
0cf0: 20 7b 0a 09 72 65 74 75 72 6e 20 28 75 6e 73 69 {..return (unsi
0d00: 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 gned long) Tcl_G
0d10: 65 74 43 75 72 72 65 6e 74 54 68 72 65 61 64 28 etCurrentThread(
0d20: 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 4f );.}.#endif /* O
0d30: 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 20 2a PENSSL_THREADS *
0d40: 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 54 43 4c 5f /.#endif /* TCL_
0d50: 54 48 52 45 41 44 53 20 2a 2f 0a 0a 0c 0a 2f 2a THREADS */..../*
0d60: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
0d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0da0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6e 66 ------. *. * Inf
0db0: 6f 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a oCallback --. *.
0dc0: 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 53 4c 20 *.monitors SSL
0dd0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 63 65 connection proce
0de0: 73 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 ss. *. * Results
0df0: 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 :. *.None. *. *
0e00: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
0e10: 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 .Calls callback
0e20: 28 69 66 20 64 65 66 69 6e 65 64 29 0a 20 2a 2d (if defined). *-
0e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e70: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f --. */.static vo
0e80: 69 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 id.InfoCallback(
0e90: 43 4f 4e 53 54 20 53 53 4c 20 2a 73 73 6c 2c 20 CONST SSL *ssl,
0ea0: 69 6e 74 20 77 68 65 72 65 2c 20 69 6e 74 20 72 int where, int r
0eb0: 65 74 29 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 et).{. State
0ec0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 *statePtr = (Sta
0ed0: 74 65 2a 29 53 53 4c 5f 67 65 74 5f 61 70 70 5f te*)SSL_get_app_
0ee0: 64 61 74 61 28 28 53 53 4c 20 2a 29 73 73 6c 29 data((SSL *)ssl)
0ef0: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 ;. Tcl_Obj *c
0f00: 6d 64 50 74 72 3b 0a 20 20 20 20 63 68 61 72 20 mdPtr;. char
0f10: 2a 6d 61 6a 6f 72 3b 20 63 68 61 72 20 2a 6d 69 *major; char *mi
0f20: 6e 6f 72 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 nor;.. if (st
0f30: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b atePtr->callback
0f40: 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 == (Tcl_Obj*)NU
0f50: 4c 4c 29 0a 09 72 65 74 75 72 6e 3b 0a 0a 20 20 LL)..return;..
0f60: 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 cmdPtr = Tcl_D
0f70: 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 uplicateObj(stat
0f80: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b ePtr->callback);
0f90: 0a 0a 23 69 66 20 30 0a 20 20 20 20 69 66 20 28 ..#if 0. if (
0fa0: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 where & SSL_CB_A
0fb0: 4c 45 52 54 29 20 7b 0a 09 73 65 76 20 3d 20 53 LERT) {..sev = S
0fc0: 53 4c 5f 61 6c 65 72 74 5f 74 79 70 65 5f 73 74 SL_alert_type_st
0fd0: 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a ring_long(ret);.
0fe0: 09 69 66 20 28 73 74 72 63 6d 70 28 20 73 65 76 .if (strcmp( sev
0ff0: 2c 20 22 66 61 74 61 6c 22 29 3d 3d 30 29 20 7b , "fatal")==0) {
1000: 09 2f 2a 20 4d 61 70 20 74 6f 20 65 72 72 6f 72 ./* Map to error
1010: 20 2a 2f 0a 09 20 20 20 20 54 6c 73 5f 45 72 72 */.. Tls_Err
1020: 6f 72 28 73 74 61 74 65 50 74 72 2c 20 53 53 4c or(statePtr, SSL
1030: 5f 45 52 52 4f 52 28 73 73 6c 2c 20 30 29 29 3b _ERROR(ssl, 0));
1040: 0a 09 20 20 20 20 72 65 74 75 72 6e 3b 0a 09 7d .. return;..}
1050: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 . }.#endif.
1060: 20 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 if (where & SS
1070: 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b 45 5f 53 L_CB_HANDSHAKE_S
1080: 54 41 52 54 29 20 7b 0a 09 6d 61 6a 6f 72 20 3d TART) {..major =
1090: 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a 09 6d "handshake";..m
10a0: 69 6e 6f 72 20 3d 20 22 73 74 61 72 74 22 3b 0a inor = "start";.
10b0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 77 } else if (w
10c0: 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 48 41 here & SSL_CB_HA
10d0: 4e 44 53 48 41 4b 45 5f 44 4f 4e 45 29 20 7b 0a NDSHAKE_DONE) {.
10e0: 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64 73 68 .major = "handsh
10f0: 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d 20 22 ake";..minor = "
1100: 64 6f 6e 65 22 3b 0a 20 20 20 20 7d 20 65 6c 73 done";. } els
1110: 65 20 7b 0a 09 69 66 20 28 77 68 65 72 65 20 26 e {..if (where &
1120: 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 09 09 SSL_CB_ALERT)..
1130: 6d 61 6a 6f 72 20 3d 20 22 61 6c 65 72 74 22 3b major = "alert";
1140: 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 ..else if (where
1150: 20 26 20 53 53 4c 5f 53 54 5f 43 4f 4e 4e 45 43 & SSL_ST_CONNEC
1160: 54 29 09 6d 61 6a 6f 72 20 3d 20 22 63 6f 6e 6e T).major = "conn
1170: 65 63 74 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 ect";..else if (
1180: 77 68 65 72 65 20 26 20 53 53 4c 5f 53 54 5f 41 where & SSL_ST_A
1190: 43 43 45 50 54 29 09 09 6d 61 6a 6f 72 20 3d 20 CCEPT)..major =
11a0: 22 61 63 63 65 70 74 22 3b 0a 09 65 6c 73 65 09 "accept";..else.
11b0: 09 09 09 09 6d 61 6a 6f 72 20 3d 20 22 75 6e 6b ....major = "unk
11c0: 6e 6f 77 6e 22 3b 0a 0a 09 69 66 20 28 77 68 65 nown";...if (whe
11d0: 72 65 20 26 20 53 53 4c 5f 43 42 5f 52 45 41 44 re & SSL_CB_READ
11e0: 29 09 09 6d 69 6e 6f 72 20 3d 20 22 72 65 61 64 )..minor = "read
11f0: 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 ";..else if (whe
1200: 72 65 20 26 20 53 53 4c 5f 43 42 5f 57 52 49 54 re & SSL_CB_WRIT
1210: 45 29 09 09 6d 69 6e 6f 72 20 3d 20 22 77 72 69 E)..minor = "wri
1220: 74 65 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 te";..else if (w
1230: 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 4c 4f here & SSL_CB_LO
1240: 4f 50 29 09 09 6d 69 6e 6f 72 20 3d 20 22 6c 6f OP)..minor = "lo
1250: 6f 70 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 op";..else if (w
1260: 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 45 58 here & SSL_CB_EX
1270: 49 54 29 09 09 6d 69 6e 6f 72 20 3d 20 22 65 78 IT)..minor = "ex
1280: 69 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 6d it";..else.....m
1290: 69 6e 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 inor = "unknown"
12a0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c ;. }.. Tcl
12b0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
12c0: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
12d0: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
12e0: 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 .. Tcl_NewSt
12f0: 72 69 6e 67 4f 62 6a 28 20 22 69 6e 66 6f 22 2c ringObj( "info",
1300: 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1));.. Tcl_
1310: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1320: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e ment( statePtr->
1330: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 interp, cmdPtr,
1340: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
1350: 69 6e 67 4f 62 6a 28 20 54 63 6c 5f 47 65 74 43 ingObj( Tcl_GetC
1360: 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 hannelName(state
1370: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 20 Ptr->self), -1)
1380: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1390: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
13a0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
13b0: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
13c0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
13d0: 6a 28 20 6d 61 6a 6f 72 2c 20 2d 31 29 20 29 3b j( major, -1) );
13e0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
13f0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
1400: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1410: 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 , cmdPtr,.. T
1420: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1430: 20 6d 69 6e 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a minor, -1) );..
1440: 20 20 20 20 69 66 20 28 77 68 65 72 65 20 26 20 if (where &
1450: 28 53 53 4c 5f 43 42 5f 4c 4f 4f 50 7c 53 53 4c (SSL_CB_LOOP|SSL
1460: 5f 43 42 5f 45 58 49 54 29 29 20 7b 0a 09 54 63 _CB_EXIT)) {..Tc
1470: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1480: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1490: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
14a0: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 ,.. Tcl_NewSt
14b0: 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 74 61 ringObj( SSL_sta
14c0: 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 te_string_long(s
14d0: 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 sl), -1) );.
14e0: 7d 20 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 } else if (where
14f0: 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 & SSL_CB_ALERT)
1500: 20 7b 0a 09 43 4f 4e 53 54 20 63 68 61 72 20 2a {..CONST char *
1510: 63 70 20 3d 20 28 63 68 61 72 20 2a 29 20 53 53 cp = (char *) SS
1520: 4c 5f 61 6c 65 72 74 5f 64 65 73 63 5f 73 74 72 L_alert_desc_str
1530: 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a 0a ing_long(ret);..
1540: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
1550: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1560: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1570: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1580: 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 wStringObj( cp,
1590: 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 -1) );. } els
15a0: 65 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a e {..Tcl_ListObj
15b0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
15c0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
15d0: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
15e0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
15f0: 53 53 4c 5f 73 74 61 74 65 5f 73 74 72 69 6e 67 SSL_state_string
1600: 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d 31 29 20 _long(ssl), -1)
1610: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c );. }. Tcl
1620: 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 _Preserve( (Clie
1630: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
1640: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 ->interp);. T
1650: 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c cl_Preserve( (Cl
1660: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
1670: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e tr);.. Tcl_In
1680: 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 crRefCount( cmdP
1690: 74 72 29 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 tr);. (void)
16a0: 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 Tcl_EvalObjEx(st
16b0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
16c0: 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c cmdPtr, TCL_EVAL
16d0: 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 20 20 54 63 _GLOBAL);. Tc
16e0: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 20 l_DecrRefCount(
16f0: 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 cmdPtr);.. Tc
1700: 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 l_Release( (Clie
1710: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
1720: 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 );. Tcl_Relea
1730: 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 se( (ClientData)
1740: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1750: 70 29 3b 0a 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d p);..}.../*. *--
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17a0: 2d 0a 20 2a 0a 20 2a 20 56 65 72 69 66 79 43 61 -. *. * VerifyCa
17b0: 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 llback --. *. *.
17c0: 4d 6f 6e 69 74 6f 72 73 20 53 53 4c 20 63 65 72 Monitors SSL cer
17d0: 74 69 66 69 63 61 74 65 20 76 61 6c 69 64 61 74 tificate validat
17e0: 69 6f 6e 20 70 72 6f 63 65 73 73 2e 0a 20 2a 09 ion process.. *.
17f0: 54 68 69 73 20 69 73 20 63 61 6c 6c 65 64 20 77 This is called w
1800: 68 65 6e 65 76 65 72 20 61 20 63 65 72 74 69 66 henever a certif
1810: 69 63 61 74 65 20 69 73 20 69 6e 73 70 65 63 74 icate is inspect
1820: 65 64 0a 20 2a 09 6f 72 20 64 65 63 69 64 65 64 ed. *.or decided
1830: 20 69 6e 76 61 6c 69 64 2e 0a 20 2a 0a 20 2a 20 invalid.. *. *
1840: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 63 61 Results:. *.A ca
1850: 6c 6c 62 61 63 6b 20 62 6f 75 6e 64 20 74 6f 20 llback bound to
1860: 74 68 65 20 73 6f 63 6b 65 74 20 6d 61 79 20 72 the socket may r
1870: 65 74 75 72 6e 20 6f 6e 65 20 6f 66 3a 0a 20 2a eturn one of:. *
1880: 09 20 20 20 20 30 09 09 09 2d 20 74 68 65 20 63 . 0...- the c
1890: 65 72 74 69 66 69 63 61 74 65 20 69 73 20 64 65 ertificate is de
18a0: 65 6d 65 64 20 69 6e 76 61 6c 69 64 0a 20 2a 09 emed invalid. *.
18b0: 20 20 20 20 31 09 09 09 2d 20 74 68 65 20 63 65 1...- the ce
18c0: 72 74 69 66 69 63 61 74 65 20 69 73 20 64 65 65 rtificate is dee
18d0: 6d 65 64 20 76 61 6c 69 64 0a 20 2a 09 20 20 20 med valid. *.
18e0: 20 65 6d 70 74 79 20 73 74 72 69 6e 67 09 2d 20 empty string.-
18f0: 6e 6f 20 63 68 61 6e 67 65 20 74 6f 20 63 65 72 no change to cer
1900: 74 69 66 69 63 61 74 65 20 76 61 6c 69 64 61 74 tificate validat
1910: 69 6f 6e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ion. *. * Side e
1920: 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 ffects:. *.The e
1930: 72 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 rr field of the
1940: 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 currently operat
1950: 69 76 65 20 53 74 61 74 65 20 69 73 20 73 65 74 ive State is set
1960: 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 72 69 6e . *. to a strin
1970: 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 g describing the
1980: 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e SSL negotiation
1990: 20 66 61 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a failure reason.
19a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
19b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19e0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
19f0: 20 69 6e 74 0a 56 65 72 69 66 79 43 61 6c 6c 62 int.VerifyCallb
1a00: 61 63 6b 28 69 6e 74 20 6f 6b 2c 20 58 35 30 39 ack(int ok, X509
1a10: 5f 53 54 4f 52 45 5f 43 54 58 20 2a 63 74 78 29 _STORE_CTX *ctx)
1a20: 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a .{. Tcl_Obj *
1a30: 63 6d 64 50 74 72 2c 20 2a 72 65 73 75 6c 74 3b cmdPtr, *result;
1a40: 0a 20 20 20 20 63 68 61 72 20 2a 65 72 72 53 74 . char *errSt
1a50: 72 2c 20 2a 73 74 72 69 6e 67 3b 0a 20 20 20 20 r, *string;.
1a60: 69 6e 74 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 int length;.
1a70: 53 53 4c 20 20 20 2a 73 73 6c 09 09 3d 20 28 53 SSL *ssl..= (S
1a80: 53 4c 2a 29 58 35 30 39 5f 53 54 4f 52 45 5f 43 SL*)X509_STORE_C
1a90: 54 58 5f 67 65 74 5f 65 78 5f 64 61 74 61 28 63 TX_get_ex_data(c
1aa0: 74 78 2c 20 53 53 4c 5f 67 65 74 5f 65 78 5f 64 tx, SSL_get_ex_d
1ab0: 61 74 61 5f 58 35 30 39 5f 53 54 4f 52 45 5f 43 ata_X509_STORE_C
1ac0: 54 58 5f 69 64 78 28 29 29 3b 0a 20 20 20 20 58 TX_idx());. X
1ad0: 35 30 39 20 20 2a 63 65 72 74 09 09 3d 20 58 35 509 *cert..= X5
1ae0: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 09_STORE_CTX_get
1af0: 5f 63 75 72 72 65 6e 74 5f 63 65 72 74 28 63 74 _current_cert(ct
1b00: 78 29 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 x);. State *s
1b10: 74 61 74 65 50 74 72 09 3d 20 28 53 74 61 74 65 tatePtr.= (State
1b20: 2a 29 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 *)SSL_get_app_da
1b30: 74 61 28 73 73 6c 29 3b 0a 20 20 20 20 69 6e 74 ta(ssl);. int
1b40: 20 64 65 70 74 68 09 09 3d 20 58 35 30 39 5f 53 depth..= X509_S
1b50: 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 TORE_CTX_get_err
1b60: 6f 72 5f 64 65 70 74 68 28 63 74 78 29 3b 0a 20 or_depth(ctx);.
1b70: 20 20 20 69 6e 74 20 65 72 72 09 09 3d 20 58 35 int err..= X5
1b80: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 09_STORE_CTX_get
1b90: 5f 65 72 72 6f 72 28 63 74 78 29 3b 0a 0a 20 20 _error(ctx);..
1ba0: 20 20 64 70 72 69 6e 74 66 28 22 56 65 72 69 66 dprintf("Verif
1bb0: 79 3a 20 25 64 22 2c 20 6f 6b 29 3b 0a 0a 20 20 y: %d", ok);..
1bc0: 20 20 69 66 20 28 21 6f 6b 29 20 7b 0a 09 65 72 if (!ok) {..er
1bd0: 72 53 74 72 20 3d 20 28 63 68 61 72 2a 29 58 35 rStr = (char*)X5
1be0: 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 09_verify_cert_e
1bf0: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
1c00: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
1c10: 65 72 72 53 74 72 20 3d 20 28 63 68 61 72 20 2a errStr = (char *
1c20: 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 )0;. }.. i
1c30: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c f (statePtr->cal
1c40: 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 lback == (Tcl_Ob
1c50: 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 j*)NULL) {..if (
1c60: 73 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 statePtr->vflags
1c70: 20 26 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 & SSL_VERIFY_FA
1c80: 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 IL_IF_NO_PEER_CE
1c90: 52 54 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 RT) {.. retur
1ca0: 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a n ok;..} else {.
1cb0: 09 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 09 . return 1;..
1cc0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 }. }. cmdP
1cd0: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 tr = Tcl_Duplica
1ce0: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e teObj(statePtr->
1cf0: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 callback);..
1d00: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1d10: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
1d20: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1d30: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 tr, .. Tcl_Ne
1d40: 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 76 65 72 wStringObj( "ver
1d50: 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 ify", -1));..
1d60: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1d70: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1d80: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1d90: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e Ptr, .. Tcl_N
1da0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c ewStringObj( Tcl
1db0: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
1dc0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
1dd0: 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c -1) );.. Tcl
1de0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1df0: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1e00: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1e10: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 .. Tcl_NewInt
1e20: 4f 62 6a 28 20 64 65 70 74 68 29 20 29 3b 0a 0a Obj( depth) );..
1e30: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1e40: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1e50: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1e60: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 6c 73 cmdPtr,.. Tls
1e70: 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 73 74 61 _NewX509Obj( sta
1e80: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
1e90: 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c ert) );.. Tcl
1ea0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1eb0: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1ec0: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1ed0: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 .. Tcl_NewInt
1ee0: 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a 20 20 20 Obj( ok) );..
1ef0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1f00: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1f10: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1f20: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1f30: 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 72 72 53 wStringObj( errS
1f40: 74 72 20 3f 20 65 72 72 53 74 72 20 3a 20 22 22 tr ? errStr : ""
1f50: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
1f60: 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 l_Preserve( (Cli
1f70: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
1f80: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 r->interp);.
1f90: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
1fa0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1fb0: 50 74 72 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 Ptr);.. state
1fc0: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c Ptr->flags |= TL
1fd0: 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 3b 0a S_TCL_CALLBACK;.
1fe0: 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 . Tcl_IncrRef
1ff0: 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a Count( cmdPtr);.
2000: 20 20 20 20 69 66 20 28 54 63 6c 5f 45 76 61 6c if (Tcl_Eval
2010: 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72 2d 3e ObjEx(statePtr->
2020: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 interp, cmdPtr,
2030: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 TCL_EVAL_GLOBAL)
2040: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 2f != TCL_OK) {../
2050: 2a 20 49 74 20 67 6f 74 20 61 6e 20 65 72 72 6f * It got an erro
2060: 72 20 2d 20 72 65 6a 65 63 74 20 74 68 65 20 63 r - reject the c
2070: 65 72 74 69 66 69 63 61 74 65 2e 09 09 2a 2f 0a ertificate...*/.
2080: 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 .Tcl_BackgroundE
2090: 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e rror( statePtr->
20a0: 69 6e 74 65 72 70 29 3b 0a 09 6f 6b 20 3d 20 30 interp);..ok = 0
20b0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
20c0: 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 result = Tcl_Get
20d0: 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 74 65 50 ObjResult(stateP
20e0: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 73 74 tr->interp);..st
20f0: 72 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 ring = Tcl_GetSt
2100: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 72 65 73 75 ringFromObj(resu
2110: 6c 74 2c 20 26 6c 65 6e 67 74 68 29 3b 0a 09 2f lt, &length);../
2120: 2a 20 41 6e 20 65 6d 70 74 79 20 72 65 73 75 6c * An empty resul
2130: 74 20 6c 65 61 76 65 73 20 76 65 72 69 66 69 63 t leaves verific
2140: 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 2e ation unchanged.
2150: 09 2a 2f 0a 09 69 66 20 28 73 74 72 69 6e 67 20 .*/..if (string
2160: 21 3d 20 4e 55 4c 4c 20 26 26 20 6c 65 6e 67 74 != NULL && lengt
2170: 68 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 h > 0) {.. if
2180: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d (Tcl_GetIntFrom
2190: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 69 6e Obj(statePtr->in
21a0: 74 65 72 70 2c 20 72 65 73 75 6c 74 2c 20 26 6f terp, result, &o
21b0: 6b 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a k) != TCL_OK) {.
21c0: 09 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 ..Tcl_Background
21d0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e Error(statePtr->
21e0: 69 6e 74 65 72 70 29 3b 0a 09 09 6f 6b 20 3d 20 interp);...ok =
21f0: 30 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 0;.. }..}.
2200: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 }. Tcl_DecrR
2210: 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 efCount( cmdPtr)
2220: 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
2230: 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 5f >flags &= ~(TLS_
2240: 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 3b 0a 0a TCL_CALLBACK);..
2250: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
2260: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
2270: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c atePtr);. Tcl
2280: 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e _Release( (Clien
2290: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d tData) statePtr-
22a0: 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 72 >interp);.. r
22b0: 65 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a 20 42 79 eturn(ok);./* By
22c0: 20 64 65 66 61 75 6c 74 2c 20 6c 65 61 76 65 20 default, leave
22d0: 76 65 72 69 66 69 63 61 74 69 6f 6e 20 75 6e 63 verification unc
22e0: 68 61 6e 67 65 64 2e 09 2a 2f 0a 7d 0a 0c 0a 2f hanged..*/.}.../
22f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2330: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
2340: 73 5f 45 72 72 6f 72 20 2d 2d 0a 20 2a 0a 20 2a s_Error --. *. *
2350: 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 .Calls callback
2360: 77 69 74 68 20 24 66 64 20 61 6e 64 20 24 6d 73 with $fd and $ms
2370: 67 20 2d 20 73 6f 20 74 68 65 20 63 61 6c 6c 62 g - so the callb
2380: 61 63 6b 20 63 61 6e 20 64 65 63 69 64 65 0a 20 ack can decide.
2390: 2a 09 77 68 61 74 20 74 6f 20 64 6f 20 77 69 74 *.what to do wit
23a0: 68 20 65 72 72 6f 72 73 2e 0a 20 2a 0a 20 2a 20 h errors.. *. *
23b0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
23c0: 09 54 68 65 20 65 72 72 20 66 69 65 6c 64 20 6f .The err field o
23d0: 66 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 f the currently
23e0: 6f 70 65 72 61 74 69 76 65 20 53 74 61 74 65 20 operative State
23f0: 69 73 20 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 is set. *. to a
2400: 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 string describi
2410: 6e 67 20 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 ng the SSL negot
2420: 69 61 74 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 iation failure r
2430: 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d eason. *--------
2440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
2480: 76 6f 69 64 0a 54 6c 73 5f 45 72 72 6f 72 28 53 void.Tls_Error(S
2490: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 tate *statePtr,
24a0: 63 68 61 72 20 2a 6d 73 67 29 0a 7b 0a 20 20 20 char *msg).{.
24b0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 Tcl_Obj *cmdPtr
24c0: 3b 0a 0a 20 20 20 20 69 66 20 28 6d 73 67 20 26 ;.. if (msg &
24d0: 26 20 2a 6d 73 67 29 20 7b 0a 09 54 63 6c 5f 53 & *msg) {..Tcl_S
24e0: 65 74 45 72 72 6f 72 43 6f 64 65 28 73 74 61 74 etErrorCode(stat
24f0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 22 53 ePtr->interp, "S
2500: 53 4c 22 2c 20 6d 73 67 2c 20 28 63 68 61 72 20 SL", msg, (char
2510: 2a 29 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 *)NULL);. } e
2520: 6c 73 65 20 7b 0a 09 6d 73 67 20 3d 20 54 63 6c lse {..msg = Tcl
2530: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
2540: 6a 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 j(Tcl_GetObjResu
2550: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 lt(statePtr->int
2560: 65 72 70 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 erp), NULL);.
2570: 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d }. statePtr-
2580: 3e 65 72 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 >err = msg;..
2590: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 if (statePtr->c
25a0: 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f allback == (Tcl_
25b0: 4f 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 Obj*)NULL) {..ch
25c0: 61 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a ar buf[BUFSIZ];.
25d0: 09 73 70 72 69 6e 74 66 28 62 75 66 2c 20 22 53 .sprintf(buf, "S
25e0: 53 4c 20 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c SL channel \"%s\
25f0: 22 3a 20 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 ": error: %s",..
2600: 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e Tcl_GetChann
2610: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
2620: 3e 73 65 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 >self), msg);..T
2630: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 20 73 74 cl_SetResult( st
2640: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2650: 62 75 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c buf, TCL_VOLATIL
2660: 45 29 3b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f E);..Tcl_Backgro
2670: 75 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 undError( stateP
2680: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 72 65 tr->interp);..re
2690: 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 turn;. }.
26a0: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
26b0: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
26c0: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a tr->callback);..
26d0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
26e0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 ppendElement(sta
26f0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
2700: 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c mdPtr, .. Tcl
2710: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 65 _NewStringObj("e
2720: 72 72 6f 72 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 rror", -1));..
2730: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
2740: 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 endElement(state
2750: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
2760: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e Ptr, .. Tcl_N
2770: 65 77 53 74 72 69 6e 67 4f 62 6a 28 54 63 6c 5f ewStringObj(Tcl_
2780: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 GetChannelName(s
2790: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 tatePtr->self),
27a0: 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c -1));.. Tcl_L
27b0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
27c0: 65 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ent(statePtr->in
27d0: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 terp, cmdPtr,..
27e0: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
27f0: 4f 62 6a 28 6d 73 67 2c 20 2d 31 29 29 3b 0a 0a Obj(msg, -1));..
2800: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
2810: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
2820: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
2830: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
2840: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
2850: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 tatePtr);.. T
2860: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
2870: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 cmdPtr);. if
2880: 28 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 (Tcl_EvalObjEx(s
2890: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
28a0: 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 cmdPtr, TCL_EVA
28b0: 4c 5f 47 4c 4f 42 41 4c 29 20 21 3d 20 54 43 4c L_GLOBAL) != TCL
28c0: 5f 4f 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b _OK) {..Tcl_Back
28d0: 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74 groundError(stat
28e0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 ePtr->interp);.
28f0: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 }. Tcl_Dec
2900: 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 rRefCount(cmdPtr
2910: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 );.. Tcl_Rele
2920: 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 ase((ClientData)
2930: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
2940: 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 Tcl_Release((Cli
2950: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
2960: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a r->interp);.}...
2970: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
2980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
29a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
29b0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 --------. *. * P
29c0: 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 20 asswordCallback
29d0: 2d 2d 20 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 -- . *. *.Called
29e0: 20 77 68 65 6e 20 61 20 70 61 73 73 77 6f 72 64 when a password
29f0: 20 69 73 20 6e 65 65 64 65 64 20 74 6f 20 75 6e is needed to un
2a00: 70 61 63 6b 20 52 53 41 20 61 6e 64 20 50 45 4d pack RSA and PEM
2a10: 20 6b 65 79 73 2e 0a 20 2a 09 45 76 61 6c 73 20 keys.. *.Evals
2a20: 61 6e 79 20 62 6f 75 6e 64 20 70 61 73 73 77 6f any bound passwo
2a30: 72 64 20 73 63 72 69 70 74 20 61 6e 64 20 72 65 rd script and re
2a40: 74 75 72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 turns the result
2a50: 20 61 73 0a 20 2a 09 74 68 65 20 70 61 73 73 77 as. *.the passw
2a60: 6f 72 64 20 73 74 72 69 6e 67 2e 0a 20 2a 2d 2d ord string.. *--
2a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 0a 20 2a 2f 0a 23 69 66 64 65 66 20 50 52 45 -. */.#ifdef PRE
2ac0: 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f _OPENSSL_0_9_4./
2ad0: 2a 0a 20 2a 20 4e 6f 20 77 61 79 20 74 6f 20 68 *. * No way to h
2ae0: 61 6e 64 6c 65 20 75 73 65 72 2d 64 61 74 61 20 andle user-data
2af0: 74 68 65 72 65 66 6f 72 65 20 6e 6f 20 77 61 79 therefore no way
2b00: 20 77 69 74 68 6f 75 74 20 61 20 67 6c 6f 62 61 without a globa
2b10: 6c 0a 20 2a 20 76 61 72 69 61 62 6c 65 20 74 6f l. * variable to
2b20: 20 61 63 63 65 73 73 20 74 68 65 20 54 63 6c 20 access the Tcl
2b30: 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a interpreter..*/.
2b40: 73 74 61 74 69 63 20 69 6e 74 0a 50 61 73 73 77 static int.Passw
2b50: 6f 72 64 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 ordCallback(char
2b60: 20 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c *buf, int size,
2b70: 20 69 6e 74 20 76 65 72 69 66 79 29 0a 7b 0a 20 int verify).{.
2b80: 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 7d 0a return -1;.}.
2b90: 23 65 6c 73 65 0a 73 74 61 74 69 63 20 69 6e 74 #else.static int
2ba0: 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 .PasswordCallbac
2bb0: 6b 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 k(char *buf, int
2bc0: 20 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 66 size, int verif
2bd0: 79 2c 20 76 6f 69 64 20 2a 75 64 61 74 61 29 0a y, void *udata).
2be0: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
2bf0: 74 65 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a tePtr.= (State *
2c00: 29 20 75 64 61 74 61 3b 0a 20 20 20 20 54 63 6c ) udata;. Tcl
2c10: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 09 _Interp *interp.
2c20: 3d 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 = statePtr->inte
2c30: 72 70 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 rp;. Tcl_Obj
2c40: 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 *cmdPtr;. int
2c50: 20 72 65 73 75 6c 74 3b 0a 0a 20 20 20 20 69 66 result;.. if
2c60: 20 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 (statePtr->pass
2c70: 77 6f 72 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a word == NULL) {.
2c80: 09 69 66 20 28 54 63 6c 5f 45 76 61 6c 45 78 28 .if (Tcl_EvalEx(
2c90: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 61 interp, "tls::pa
2ca0: 73 73 77 6f 72 64 22 2c 20 2d 31 2c 20 54 43 4c ssword", -1, TCL
2cb0: 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 0a 09 09 _EVAL_GLOBAL)...
2cc0: 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 == TCL_OK) {..
2cd0: 20 20 63 68 61 72 20 2a 72 65 74 20 3d 20 28 63 char *ret = (c
2ce0: 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 har *) Tcl_GetSt
2cf0: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 ringResult(inter
2d00: 70 29 3b 0a 09 20 20 20 20 73 74 72 6e 63 70 79 p);.. strncpy
2d10: 28 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 (buf, ret, (size
2d20: 5f 74 29 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 _t) size);..
2d30: 72 65 74 75 72 6e 20 28 69 6e 74 29 73 74 72 6c return (int)strl
2d40: 65 6e 28 72 65 74 29 3b 0a 09 7d 20 65 6c 73 65 en(ret);..} else
2d50: 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d {.. return -
2d60: 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 1;..}. }..
2d70: 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 cmdPtr = Tcl_Du
2d80: 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 plicateObj(state
2d90: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a Ptr->password);.
2da0: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
2db0: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
2dc0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
2dd0: 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 ;. Tcl_Preser
2de0: 76 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 ve((ClientData)
2df0: 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 statePtr);..
2e00: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
2e10: 28 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 72 65 (cmdPtr);. re
2e20: 73 75 6c 74 20 3d 20 54 63 6c 5f 45 76 61 6c 4f sult = Tcl_EvalO
2e30: 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 63 6d 64 bjEx(interp, cmd
2e40: 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c Ptr, TCL_EVAL_GL
2e50: 4f 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 OBAL);. if (r
2e60: 65 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 esult != TCL_OK)
2e70: 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 {..Tcl_Backgrou
2e80: 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 ndError(statePtr
2e90: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d ->interp);. }
2ea0: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 . Tcl_DecrRef
2eb0: 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a Count(cmdPtr);..
2ec0: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
2ed0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
2ee0: 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f tePtr);. Tcl_
2ef0: 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 Release((ClientD
2f00: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 ata) statePtr->i
2f10: 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 69 66 20 nterp);.. if
2f20: 28 72 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f 4f (result == TCL_O
2f30: 4b 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 74 20 K) {..char *ret
2f40: 3d 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 = (char *) Tcl_G
2f50: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 etStringResult(i
2f60: 6e 74 65 72 70 29 3b 0a 09 73 74 72 6e 63 70 79 nterp);..strncpy
2f70: 28 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 (buf, ret, (size
2f80: 5f 74 29 20 73 69 7a 65 29 3b 0a 09 72 65 74 75 _t) size);..retu
2f90: 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 72 rn (int)strlen(r
2fa0: 65 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 et);. } else
2fb0: 7b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 {..return -1;.
2fc0: 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f }.}.#endif.../
2fd0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 -------. *. * Ci
3020: 70 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c phersObjCmd -- l
3030: 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 ist available ci
3040: 70 68 65 72 73 0a 20 2a 0a 20 2a 09 54 68 69 73 phers. *. *.This
3050: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
3060: 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 voked to process
3070: 20 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 the "tls::ciphe
3080: 72 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 rs" command. *.t
3090: 6f 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 o list available
30a0: 20 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 ciphers, based
30b0: 75 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 upon protocol se
30c0: 6c 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 lected.. *. * Re
30d0: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
30e0: 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 dard Tcl result
30f0: 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 list.. *. * Side
3100: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e effects:. *.con
3110: 73 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 structs and dest
3120: 72 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 roys SSL context
3130: 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d (CTX). *. *----
3140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3180: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 43 */.static int.C
3190: 69 70 68 65 72 73 4f 62 6a 43 6d 64 28 63 6c 69 iphersObjCmd(cli
31a0: 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c entData, interp,
31b0: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 objc, objv).
31c0: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 ClientData clie
31d0: 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 ntData;./* Not u
31e0: 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f sed. */. Tcl_
31f0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a Interp *interp;.
3200: 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 int objc;.
3210: 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 Tcl_Obj.*CONST
3220: 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 objv[];.{. s
3230: 74 61 74 69 63 20 43 4f 4e 53 54 38 34 20 63 68 tatic CONST84 ch
3240: 61 72 20 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 ar *protocols[]
3250: 3d 20 7b 0a 09 22 73 73 6c 32 22 2c 09 22 73 73 = {.."ssl2",."ss
3260: 6c 33 22 2c 09 22 74 6c 73 31 22 2c 09 22 74 6c l3",."tls1",."tl
3270: 73 31 2e 31 22 2c 20 22 74 6c 73 31 2e 32 22 2c s1.1", "tls1.2",
3280: 20 4e 55 4c 4c 0a 20 20 20 20 7d 3b 0a 20 20 20 NULL. };.
3290: 20 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b enum protocol {
32a0: 0a 09 54 4c 53 5f 53 53 4c 32 2c 20 54 4c 53 5f ..TLS_SSL2, TLS_
32b0: 53 53 4c 33 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 SSL3, TLS_TLS1,
32c0: 54 4c 53 5f 54 4c 53 31 5f 31 2c 20 54 4c 53 5f TLS_TLS1_1, TLS_
32d0: 54 4c 53 31 5f 32 2c 20 54 4c 53 5f 4e 4f 4e 45 TLS1_2, TLS_NONE
32e0: 0a 20 20 20 20 7d 3b 0a 20 20 20 20 54 63 6c 5f . };. Tcl_
32f0: 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 Obj *objPtr;.
3300: 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 SSL_CTX *ctx =
3310: 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 NULL;. SSL *s
3320: 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 sl = NULL;. S
3330: 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 TACK_OF(SSL_CIPH
3340: 45 52 29 20 2a 73 6b 3b 0a 20 20 20 20 63 68 61 ER) *sk;. cha
3350: 72 20 2a 63 70 2c 20 62 75 66 5b 42 55 46 53 49 r *cp, buf[BUFSI
3360: 5a 5d 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 Z];. int inde
3370: 78 2c 20 76 65 72 62 6f 73 65 20 3d 20 30 3b 0a x, verbose = 0;.
3380: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 . if (objc <
3390: 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 2 || objc > 3) {
33a0: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
33b0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
33c0: 6a 76 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 3f 76 jv, "protocol ?v
33d0: 65 72 62 6f 73 65 3f 22 29 3b 0a 09 72 65 74 75 erbose?");..retu
33e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
33f0: 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c 5f }. if (Tcl_
3400: 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 GetIndexFromObj(
3410: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d interp, objv[1]
3420: 2c 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 , protocols, "pr
3430: 6f 74 6f 63 6f 6c 22 2c 20 30 2c 0a 09 26 69 6e otocol", 0,..&in
3440: 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 dex) != TCL_OK)
3450: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
3460: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ROR;. }. i
3470: 66 20 28 6f 62 6a 63 20 3e 20 32 20 26 26 20 54 f (objc > 2 && T
3480: 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f cl_GetBooleanFro
3490: 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 mObj( interp, ob
34a0: 6a 76 5b 32 5d 2c 0a 09 26 76 65 72 62 6f 73 65 jv[2],..&verbose
34b0: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
34c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
34d0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 77 69 74 ;. }. swit
34e0: 63 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 ch ((enum protoc
34f0: 6f 6c 29 69 6e 64 65 78 29 20 7b 0a 20 20 20 20 ol)index) {.
3500: 63 61 73 65 20 54 4c 53 5f 53 53 4c 32 3a 0a 23 case TLS_SSL2:.#
3510: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
3520: 4c 32 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 L2)...Tcl_Append
3530: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
3540: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
3550: 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a ported", NULL);.
3560: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3570: 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 OR;.#else...ctx
3580: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 = SSL_CTX_new(SS
3590: 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 Lv2_method()); b
35a0: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 reak;.#endif.
35b0: 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a case TLS_SSL3:.
35c0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
35d0: 53 4c 33 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e SL3)...Tcl_Appen
35e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
35f0: 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 "protocol not su
3600: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
3610: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
3620: 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 ROR;.#else...ctx
3630: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 = SSL_CTX_new(S
3640: 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 20 SLv3_method());
3650: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 break;.#endif.
3660: 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a case TLS_TLS1:
3670: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
3680: 54 4c 53 31 29 0a 09 09 54 63 6c 5f 41 70 70 65 TLS1)...Tcl_Appe
3690: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
36a0: 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 "protocol not s
36b0: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
36c0: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;...return TCL_E
36d0: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 RROR;.#else...ct
36e0: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 x = SSL_CTX_new(
36f0: 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b TLSv1_method());
3700: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 break;.#endif.
3710: 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 case TLS_TLS1
3720: 5f 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 _1:.#if defined(
3730: 4e 4f 5f 54 4c 53 31 5f 31 29 0a 09 09 54 63 6c NO_TLS1_1)...Tcl
3740: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
3750: 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 terp, "protocol
3760: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
3770: 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 NULL);...return
3780: 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 TCL_ERROR;.#else
3790: 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 ...ctx = SSL_CTX
37a0: 5f 6e 65 77 28 54 4c 53 76 31 5f 31 5f 6d 65 74 _new(TLSv1_1_met
37b0: 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 hod()); break;.#
37c0: 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 endif. case T
37d0: 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 66 20 64 LS_TLS1_2:.#if d
37e0: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 efined(NO_TLS1_2
37f0: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 )...Tcl_AppendRe
3800: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
3810: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
3820: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 rted", NULL);...
3830: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3840: 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 ;.#else...ctx =
3850: 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 76 SSL_CTX_new(TLSv
3860: 31 5f 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 1_2_method()); b
3870: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 reak;.#endif.
3880: 20 64 65 66 61 75 6c 74 3a 0a 09 09 62 72 65 61 default:...brea
3890: 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 k;. }. if
38a0: 28 63 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a (ctx == NULL) {.
38b0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
38c0: 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f 4e t(interp, REASON
38d0: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
38e0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
38f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
3900: 20 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 63 ssl = SSL_new(c
3910: 74 78 29 3b 0a 20 20 20 20 69 66 20 28 73 73 6c tx);. if (ssl
3920: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
3930: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
3940: 74 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 terp, REASON(),
3950: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
3960: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
3970: 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f x);..return TCL_
3980: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
3990: 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 objPtr = Tcl_Ne
39a0: 77 4c 69 73 74 4f 62 6a 28 20 30 2c 20 4e 55 4c wListObj( 0, NUL
39b0: 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 76 65 L);.. if (!ve
39c0: 72 62 6f 73 65 29 20 7b 0a 09 66 6f 72 20 28 69 rbose) {..for (i
39d0: 6e 64 65 78 20 3d 20 30 3b 20 3b 20 69 6e 64 65 ndex = 0; ; inde
39e0: 78 2b 2b 29 20 7b 0a 09 20 20 20 20 63 70 20 3d x++) {.. cp =
39f0: 20 28 63 68 61 72 2a 29 53 53 4c 5f 67 65 74 5f (char*)SSL_get_
3a00: 63 69 70 68 65 72 5f 6c 69 73 74 28 20 73 73 6c cipher_list( ssl
3a10: 2c 20 69 6e 64 65 78 29 3b 0a 09 20 20 20 20 69 , index);.. i
3a20: 66 20 28 63 70 20 3d 3d 20 4e 55 4c 4c 29 20 62 f (cp == NULL) b
3a30: 72 65 61 6b 3b 0a 09 20 20 20 20 54 63 6c 5f 4c reak;.. Tcl_L
3a40: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
3a50: 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a ent( interp, obj
3a60: 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 Ptr,...Tcl_NewSt
3a70: 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 ringObj( cp, -1)
3a80: 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 );..}. } els
3a90: 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 e {..sk = SSL_ge
3aa0: 74 5f 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a t_ciphers(ssl);.
3ab0: 0a 09 66 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 ..for (index = 0
3ac0: 3b 20 69 6e 64 65 78 20 3c 20 73 6b 5f 53 53 4c ; index < sk_SSL
3ad0: 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b _CIPHER_num(sk);
3ae0: 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 index++) {..
3af0: 20 72 65 67 69 73 74 65 72 20 73 69 7a 65 5f 74 register size_t
3b00: 20 69 3b 0a 09 20 20 20 20 53 53 4c 5f 43 49 50 i;.. SSL_CIP
3b10: 48 45 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 HER_description(
3b20: 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 sk_SSL_CIPHER_v
3b30: 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 alue( sk, index)
3b40: 2c 0a 09 09 09 09 20 20 20 20 62 75 66 2c 20 73 ,..... buf, s
3b50: 69 7a 65 6f 66 28 62 75 66 29 29 3b 0a 09 20 20 izeof(buf));..
3b60: 20 20 66 6f 72 20 28 69 20 3d 20 73 74 72 6c 65 for (i = strle
3b70: 6e 28 62 75 66 29 20 2d 20 31 3b 20 69 20 3b 20 n(buf) - 1; i ;
3b80: 69 2d 2d 29 20 7b 0a 09 09 69 66 20 28 62 75 66 i--) {...if (buf
3b90: 5b 69 5d 20 3d 3d 20 27 20 27 20 7c 7c 20 62 75 [i] == ' ' || bu
3ba0: 66 5b 69 5d 20 3d 3d 20 27 5c 6e 27 20 7c 7c 0a f[i] == '\n' ||.
3bb0: 09 09 20 20 20 20 62 75 66 5b 69 5d 20 3d 3d 20 .. buf[i] ==
3bc0: 27 5c 72 27 20 7c 7c 20 62 75 66 5b 69 5d 20 3d '\r' || buf[i] =
3bd0: 3d 20 27 5c 74 27 29 20 7b 0a 09 09 20 20 20 20 = '\t') {...
3be0: 62 75 66 5b 69 5d 20 3d 20 27 5c 30 27 3b 0a 09 buf[i] = '\0';..
3bf0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 .} else {...
3c00: 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 20 20 20 20 break;...}..
3c10: 7d 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f }.. Tcl_ListO
3c20: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
3c30: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c interp, objPtr,
3c40: 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 ...Tcl_NewString
3c50: 4f 62 6a 28 20 62 75 66 2c 20 2d 31 29 20 29 3b Obj( buf, -1) );
3c60: 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 ..}. }. SS
3c70: 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 20 20 L_free(ssl);.
3c80: 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 SSL_CTX_free(ct
3c90: 78 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 x);.. Tcl_Set
3ca0: 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 72 ObjResult( inter
3cb0: 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 p, objPtr);.
3cc0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
3cd0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
3ce0: 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 -----------. *.
3d20: 2a 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d * HandshakeObjCm
3d30: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 d --. *. *.This
3d40: 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 command is used
3d50: 74 6f 20 76 65 72 69 66 79 20 77 68 65 74 68 65 to verify whethe
3d60: 72 20 74 68 65 20 68 61 6e 64 73 68 61 6b 65 20 r the handshake
3d70: 69 73 20 63 6f 6d 70 6c 65 74 65 0a 20 2a 09 6f is complete. *.o
3d80: 72 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 r not.. *. * Res
3d90: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
3da0: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 20 ard Tcl result.
3db0: 31 20 6d 65 61 6e 73 20 68 61 6e 64 73 68 61 6b 1 means handshak
3dc0: 65 20 63 6f 6d 70 6c 65 74 65 2c 20 30 20 6d 65 e complete, 0 me
3dd0: 61 6e 73 20 70 65 6e 64 69 6e 67 2e 0a 20 2a 0a ans pending.. *.
3de0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
3df0: 0a 20 2a 09 4d 61 79 20 66 6f 72 63 65 20 53 53 . *.May force SS
3e00: 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 74 6f L negotiation to
3e10: 20 74 61 6b 65 20 70 6c 61 63 65 2e 0a 20 2a 0a take place.. *.
3e20: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3e30: 2d 2d 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 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
3e70: 63 20 69 6e 74 0a 48 61 6e 64 73 68 61 6b 65 4f c int.HandshakeO
3e80: 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 bjCmd(clientData
3e90: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
3ea0: 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 objv). Client
3eb0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b Data clientData;
3ec0: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f ./* Not used. */
3ed0: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
3ee0: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 *interp;. int
3ef0: 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f objc;. Tcl_O
3f00: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
3f10: 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ;.{. Tcl_Chan
3f20: 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 nel chan;../* Th
3f30: 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 e channel to set
3f40: 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 a mode on. */.
3f50: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
3f60: 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 tr;../* client s
3f70: 74 61 74 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 tate for ssl soc
3f80: 6b 65 74 20 2a 2f 0a 20 20 20 20 69 6e 74 20 72 ket */. int r
3f90: 65 74 20 3d 20 31 3b 0a 0a 20 20 20 20 69 66 20 et = 1;.. if
3fa0: 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 (objc != 2) {..T
3fb0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
3fc0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
3fd0: 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 "channel");..re
3fe0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3ff0: 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 }.. chan
4000: 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c = Tcl_GetChannel
4010: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 (interp, Tcl_Get
4020: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
4030: 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 jv[1], NULL), NU
4040: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 LL);. if (cha
4050: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
4060: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
4070: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
4080: 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 }.. /*.
4090: 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 * Make sure to
40a0: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
40b0: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 opmost channel.
40c0: 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 */. chan
40d0: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e = Tcl_GetTopChan
40e0: 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 nel(chan);. i
40f0: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 f (Tcl_GetChanne
4100: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 lType(chan) != T
4110: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
4120: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
4130: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
4140: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 ad channel \"",
4150: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
4160: 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a me(chan),..."\":
4170: 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e not a TLS chann
4180: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 el", NULL);..ret
4190: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
41a0: 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 }. statePt
41b0: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 54 63 6c r = (State *)Tcl
41c0: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
41d0: 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 0a nceData(chan);..
41e0: 20 20 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f if (!SSL_is_
41f0: 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 init_finished(st
4200: 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a atePtr->ssl)) {.
4210: 09 69 6e 74 20 65 72 72 20 3d 20 30 3b 0a 20 20 .int err = 0;.
4220: 20 20 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 dprintf("C
4230: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46 alling Tls_WaitF
4240: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 72 65 orConnect");..re
4250: 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 t = Tls_WaitForC
4260: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c onnect(statePtr,
4270: 20 26 65 72 72 29 3b 0a 20 20 20 20 20 20 20 20 &err);.
4280: 64 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 69 dprintf("Tls_Wai
4290: 74 46 6f 72 43 6f 6e 6e 65 63 74 20 72 65 74 75 tForConnect retu
42a0: 72 6e 65 64 3a 20 25 69 22 2c 20 72 65 74 29 3b rned: %i", ret);
42b0: 0a 0a 09 69 66 20 28 28 73 74 61 74 65 50 74 72 ...if ((statePtr
42c0: 2d 3e 66 6c 61 67 73 20 26 20 54 4c 53 5f 54 43 ->flags & TLS_TC
42d0: 4c 5f 41 53 59 4e 43 29 20 26 26 20 65 72 72 20 L_ASYNC) && err
42e0: 3d 3d 20 45 41 47 41 49 4e 29 20 7b 0a 20 20 20 == EAGAIN) {.
42f0: 20 20 20 20 20 20 20 20 20 64 70 72 69 6e 74 66 dprintf
4300: 28 22 41 73 79 6e 63 20 73 65 74 20 61 6e 64 20 ("Async set and
4310: 65 72 72 20 3d 20 45 41 47 41 49 4e 22 29 3b 0a err = EAGAIN");.
4320: 09 20 20 20 20 72 65 74 20 3d 20 30 3b 0a 09 7d . ret = 0;..}
4330: 0a 0a 09 69 66 20 28 72 65 74 20 3c 20 30 29 20 ...if (ret < 0)
4340: 7b 0a 09 20 20 20 20 43 4f 4e 53 54 20 63 68 61 {.. CONST cha
4350: 72 20 2a 65 72 72 53 74 72 20 3d 20 73 74 61 74 r *errStr = stat
4360: 65 50 74 72 2d 3e 65 72 72 3b 0a 09 20 20 20 20 ePtr->err;..
4370: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
4380: 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 54 63 interp);.. Tc
4390: 6c 5f 53 65 74 45 72 72 6e 6f 28 65 72 72 29 3b l_SetErrno(err);
43a0: 0a 0a 09 20 20 20 20 69 66 20 28 21 65 72 72 53 ... if (!errS
43b0: 74 72 20 7c 7c 20 2a 65 72 72 53 74 72 20 3d 3d tr || *errStr ==
43c0: 20 30 29 20 7b 0a 09 09 65 72 72 53 74 72 20 3d 0) {...errStr =
43d0: 20 54 63 6c 5f 50 6f 73 69 78 45 72 72 6f 72 28 Tcl_PosixError(
43e0: 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 7d 0a interp);.. }.
43f0: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
4400: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
4410: 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c 65 64 handshake failed
4420: 3a 20 22 2c 20 65 72 72 53 74 72 2c 0a 09 09 20 : ", errStr,...
4430: 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c (char *) NULL
4440: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
4450: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 CL_ERROR;..}.
4460: 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f }.. Tcl_SetO
4470: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
4480: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 Tcl_NewIntObj(r
4490: 65 74 29 29 3b 0a 20 20 20 20 72 65 74 75 72 6e et));. return
44a0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a TCL_OK;.}.../*.
44b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
44c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44f0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6d 70 6f -----. *. * Impo
4500: 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 rtObjCmd --. *.
4510: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
4520: 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 is invoked to p
4530: 72 6f 63 65 73 73 20 74 68 65 20 22 73 73 6c 22 rocess the "ssl"
4540: 20 63 6f 6d 6d 61 6e 64 0a 20 2a 0a 20 2a 09 54 command. *. *.T
4550: 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 20 70 he ssl command p
4560: 75 73 68 65 73 20 53 53 4c 20 6f 76 65 72 20 61 ushes SSL over a
4570: 20 28 6e 65 77 6c 79 20 63 6f 6e 6e 65 63 74 65 (newly connecte
4580: 64 29 20 74 63 70 20 73 6f 63 6b 65 74 0a 20 2a d) tcp socket. *
4590: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
45a0: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 A standard Tcl r
45b0: 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 esult.. *. * Sid
45c0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 e effects:. *.Ma
45d0: 79 20 6d 6f 64 69 66 79 20 74 68 65 20 62 65 68 y modify the beh
45e0: 61 76 69 6f 72 20 6f 66 20 61 6e 20 49 4f 20 63 avior of an IO c
45f0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d hannel.. *. *---
4600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4640: 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 . */..static int
4650: 0a 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 63 6c .ImportObjCmd(cl
4660: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
4670: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 , objc, objv).
4680: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
4690: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 entData;./* Not
46a0: 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c used. */. Tcl
46b0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
46c0: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 . int objc;.
46d0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 Tcl_Obj *CONS
46e0: 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 T objv[];.{.
46f0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
4700: 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 ;../* The channe
4710: 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 l to set a mode
4720: 6f 6e 2e 20 2a 2f 0a 20 20 20 20 53 74 61 74 65 on. */. State
4730: 20 2a 73 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 *statePtr;../*
4740: 63 6c 69 65 6e 74 20 73 74 61 74 65 20 66 6f 72 client state for
4750: 20 73 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 ssl socket */.
4760: 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 09 SSL_CTX *ctx.
4770: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
4780: 4f 62 6a 20 2a 73 63 72 69 70 74 09 3d 20 4e 55 Obj *script.= NU
4790: 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 LL;. Tcl_Obj
47a0: 2a 70 61 73 73 77 6f 72 64 09 3d 20 4e 55 4c 4c *password.= NULL
47b0: 3b 0a 20 20 20 20 69 6e 74 20 69 64 78 2c 20 6c ;. int idx, l
47c0: 65 6e 3b 0a 20 20 20 20 69 6e 74 20 66 6c 61 67 en;. int flag
47d0: 73 09 09 3d 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 s..= TLS_TCL_INI
47e0: 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 76 65 T;. int serve
47f0: 72 09 09 3d 20 30 3b 09 2f 2a 20 69 73 20 63 6f r..= 0;./* is co
4800: 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d 69 6e nnection incomin
4810: 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f 20 2a g or outgoing? *
4820: 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 09 /. char *key.
4830: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 .= NULL;. cha
4840: 72 20 2a 63 65 72 74 09 09 3d 20 4e 55 4c 4c 3b r *cert..= NULL;
4850: 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 65 . char *ciphe
4860: 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 rs.= NULL;. c
4870: 68 61 72 20 2a 43 41 66 69 6c 65 09 3d 20 4e 55 har *CAfile.= NU
4880: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41 LL;. char *CA
4890: 64 69 72 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 dir..= NULL;.
48a0: 20 63 68 61 72 20 2a 44 48 70 61 72 61 6d 73 09 char *DHparams.
48b0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 = NULL;. char
48c0: 20 2a 6d 6f 64 65 6c 09 09 3d 20 4e 55 4c 4c 3b *model..= NULL;
48d0: 0a 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c .#ifndef OPENSSL
48e0: 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 63 _NO_TLSEXT. c
48f0: 68 61 72 20 2a 73 65 72 76 65 72 6e 61 6d 65 09 har *servername.
4900: 3d 20 4e 55 4c 4c 3b 09 2f 2a 20 68 6f 73 74 6e = NULL;./* hostn
4910: 61 6d 65 20 66 6f 72 20 53 65 72 76 65 72 20 4e ame for Server N
4920: 61 6d 65 20 49 6e 64 69 63 61 74 69 6f 6e 20 2a ame Indication *
4930: 2f 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 /.#endif.#if def
4940: 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 ined(NO_SSL2).
4950: 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 30 3b 0a int ssl2 = 0;.
4960: 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 73 #else. int ss
4970: 6c 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 l2 = 1;.#endif.#
4980: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
4990: 4c 33 29 0a 20 20 20 20 69 6e 74 20 73 73 6c 33 L3). int ssl3
49a0: 20 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 20 = 0;.#else.
49b0: 69 6e 74 20 73 73 6c 33 20 3d 20 31 3b 0a 23 65 int ssl3 = 1;.#e
49c0: 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 ndif.#if defined
49d0: 28 4e 4f 5f 54 4c 53 31 29 0a 20 20 20 20 69 6e (NO_TLS1). in
49e0: 74 20 74 6c 73 31 20 3d 20 30 3b 0a 23 65 6c 73 t tls1 = 0;.#els
49f0: 65 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 20 3d e. int tls1 =
4a00: 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 1;.#endif.#if d
4a10: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 efined(NO_TLS1_1
4a20: 29 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 5f 31 ). int tls1_1
4a30: 20 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 20 = 0;.#else.
4a40: 69 6e 74 20 74 6c 73 31 5f 31 20 3d 20 31 3b 0a int tls1_1 = 1;.
4a50: 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e #endif.#if defin
4a60: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20 20 ed(NO_TLS1_2).
4a70: 20 20 69 6e 74 20 74 6c 73 31 5f 32 20 3d 20 30 int tls1_2 = 0
4a80: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 ;.#else. int
4a90: 74 6c 73 31 5f 32 20 3d 20 31 3b 0a 23 65 6e 64 tls1_2 = 1;.#end
4aa0: 69 66 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 6f if. int proto
4ab0: 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 76 65 = 0;. int ve
4ac0: 72 69 66 79 20 3d 20 30 2c 20 72 65 71 75 69 72 rify = 0, requir
4ad0: 65 20 3d 20 30 2c 20 72 65 71 75 65 73 74 20 3d e = 0, request =
4ae0: 20 31 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 1;.. if (obj
4af0: 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 c < 2) {..Tcl_Wr
4b00: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
4b10: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 p, 1, objv, "cha
4b20: 6e 6e 65 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 29 nnel ?options?")
4b30: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
4b40: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
4b50: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
4b60: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 annel(interp, Tc
4b70: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
4b80: 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c bj(objv[1], NULL
4b90: 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 ), NULL);. if
4ba0: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
4bb0: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
4bc0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
4bd0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
4be0: 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 . * Make sur
4bf0: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
4c00: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
4c10: 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 nel. */.
4c20: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
4c30: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
4c40: 0a 20 20 20 20 66 6f 72 20 28 69 64 78 20 3d 20 . for (idx =
4c50: 32 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 69 2; idx < objc; i
4c60: 64 78 2b 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f dx++) {..char *o
4c70: 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 pt = Tcl_GetStri
4c80: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 ngFromObj(objv[i
4c90: 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 dx], NULL);...if
4ca0: 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 (opt[0] != '-')
4cb0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 4f .. break;...O
4cc0: 50 54 53 54 52 28 20 22 2d 63 61 64 69 72 22 2c PTSTR( "-cadir",
4cd0: 20 43 41 64 69 72 29 3b 0a 09 4f 50 54 53 54 52 CAdir);..OPTSTR
4ce0: 28 20 22 2d 63 61 66 69 6c 65 22 2c 20 43 41 66 ( "-cafile", CAf
4cf0: 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 ile);..OPTSTR( "
4d00: 2d 63 65 72 74 66 69 6c 65 22 2c 20 63 65 72 74 -certfile", cert
4d10: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 69 );..OPTSTR( "-ci
4d20: 70 68 65 72 22 2c 20 63 69 70 68 65 72 73 29 3b pher", ciphers);
4d30: 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 63 6f 6d 6d ..OPTOBJ( "-comm
4d40: 61 6e 64 22 2c 20 73 63 72 69 70 74 29 3b 0a 09 and", script);..
4d50: 4f 50 54 53 54 52 28 20 22 2d 64 68 70 61 72 61 OPTSTR( "-dhpara
4d60: 6d 73 22 2c 20 44 48 70 61 72 61 6d 73 29 3b 0a ms", DHparams);.
4d70: 09 4f 50 54 53 54 52 28 20 22 2d 6b 65 79 66 69 .OPTSTR( "-keyfi
4d80: 6c 65 22 2c 20 6b 65 79 29 3b 0a 09 4f 50 54 53 le", key);..OPTS
4d90: 54 52 28 20 22 2d 6d 6f 64 65 6c 22 2c 20 6d 6f TR( "-model", mo
4da0: 64 65 6c 29 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 del);..OPTOBJ( "
4db0: 2d 70 61 73 73 77 6f 72 64 22 2c 20 70 61 73 73 -password", pass
4dc0: 77 6f 72 64 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 word);..OPTBOOL(
4dd0: 20 22 2d 72 65 71 75 69 72 65 22 2c 20 72 65 71 "-require", req
4de0: 75 69 72 65 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 uire);..OPTBOOL(
4df0: 20 22 2d 72 65 71 75 65 73 74 22 2c 20 72 65 71 "-request", req
4e00: 75 65 73 74 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 uest);..OPTBOOL(
4e10: 20 22 2d 73 65 72 76 65 72 22 2c 20 73 65 72 76 "-server", serv
4e20: 65 72 29 3b 0a 23 69 66 6e 64 65 66 20 4f 50 45 er);.#ifndef OPE
4e30: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 NSSL_NO_TLSEXT.
4e40: 20 20 20 20 20 20 20 4f 50 54 53 54 52 28 20 22 OPTSTR( "
4e50: 2d 73 65 72 76 65 72 6e 61 6d 65 22 2c 20 73 65 -servername", se
4e60: 72 76 65 72 6e 61 6d 65 29 3b 0a 23 65 6e 64 69 rvername);.#endi
4e70: 66 0a 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 f...OPTBOOL( "-s
4e80: 73 6c 32 22 2c 20 73 73 6c 32 29 3b 0a 09 4f 50 sl2", ssl2);..OP
4e90: 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 33 22 2c 20 TBOOL( "-ssl3",
4ea0: 73 73 6c 33 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 ssl3);..OPTBOOL(
4eb0: 20 22 2d 74 6c 73 31 22 2c 20 74 6c 73 31 29 3b "-tls1", tls1);
4ec0: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 ..OPTBOOL( "-tls
4ed0: 31 2e 31 22 2c 20 74 6c 73 31 5f 31 29 3b 0a 09 1.1", tls1_1);..
4ee0: 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 2e OPTBOOL( "-tls1.
4ef0: 32 22 2c 20 74 6c 73 31 5f 32 29 3b 0a 0a 09 4f 2", tls1_2);...O
4f00: 50 54 42 41 44 28 20 22 6f 70 74 69 6f 6e 22 2c PTBAD( "option",
4f10: 20 22 2d 63 61 64 69 72 2c 20 2d 63 61 66 69 6c "-cadir, -cafil
4f20: 65 2c 20 2d 63 65 72 74 66 69 6c 65 2c 20 2d 63 e, -certfile, -c
4f30: 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64 2c ipher, -command,
4f40: 20 2d 64 68 70 61 72 61 6d 73 2c 20 2d 6b 65 79 -dhparams, -key
4f50: 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c 20 2d 70 file, -model, -p
4f60: 61 73 73 77 6f 72 64 2c 20 2d 72 65 71 75 69 72 assword, -requir
4f70: 65 2c 20 2d 72 65 71 75 65 73 74 2c 20 2d 73 65 e, -request, -se
4f80: 72 76 65 72 2c 20 2d 73 65 72 76 65 72 6e 61 6d rver, -servernam
4f90: 65 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 6c 33 2c e, -ssl2, -ssl3,
4fa0: 20 2d 74 6c 73 31 2c 20 2d 74 6c 73 31 2e 31 20 -tls1, -tls1.1
4fb0: 6f 72 20 2d 74 6c 73 31 2e 32 22 29 3b 0a 0a 09 or -tls1.2");...
4fc0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4fd0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
4fe0: 72 65 71 75 65 73 74 29 09 20 20 20 20 76 65 72 request). ver
4ff0: 69 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 49 46 ify |= SSL_VERIF
5000: 59 5f 43 4c 49 45 4e 54 5f 4f 4e 43 45 20 7c 20 Y_CLIENT_ONCE |
5010: 53 53 4c 5f 56 45 52 49 46 59 5f 50 45 45 52 3b SSL_VERIFY_PEER;
5020: 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 74 . if (request
5030: 20 26 26 20 72 65 71 75 69 72 65 29 20 76 65 72 && require) ver
5040: 69 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 49 46 ify |= SSL_VERIF
5050: 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 Y_FAIL_IF_NO_PEE
5060: 52 5f 43 45 52 54 3b 0a 20 20 20 20 69 66 20 28 R_CERT;. if (
5070: 76 65 72 69 66 79 20 3d 3d 20 30 29 09 76 65 72 verify == 0).ver
5080: 69 66 79 20 3d 20 53 53 4c 5f 56 45 52 49 46 59 ify = SSL_VERIFY
5090: 5f 4e 4f 4e 45 3b 0a 0a 20 20 20 20 70 72 6f 74 _NONE;.. prot
50a0: 6f 20 7c 3d 20 28 73 73 6c 32 20 3f 20 54 4c 53 o |= (ssl2 ? TLS
50b0: 5f 50 52 4f 54 4f 5f 53 53 4c 32 20 3a 20 30 29 _PROTO_SSL2 : 0)
50c0: 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 ;. proto |= (
50d0: 73 73 6c 33 20 3f 20 54 4c 53 5f 50 52 4f 54 4f ssl3 ? TLS_PROTO
50e0: 5f 53 53 4c 33 20 3a 20 30 29 3b 0a 20 20 20 20 _SSL3 : 0);.
50f0: 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 20 3f proto |= (tls1 ?
5100: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 20 TLS_PROTO_TLS1
5110: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 : 0);. proto
5120: 7c 3d 20 28 74 6c 73 31 5f 31 20 3f 20 54 4c 53 |= (tls1_1 ? TLS
5130: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 20 3a 20 _PROTO_TLS1_1 :
5140: 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 0);. proto |=
5150: 20 28 74 6c 73 31 5f 32 20 3f 20 54 4c 53 5f 50 (tls1_2 ? TLS_P
5160: 52 4f 54 4f 5f 54 4c 53 31 5f 32 20 3a 20 30 29 ROTO_TLS1_2 : 0)
5170: 3b 0a 0a 20 20 20 20 2f 2a 20 72 65 73 65 74 20 ;.. /* reset
5180: 74 6f 20 4e 55 4c 4c 20 69 66 20 62 6c 61 6e 6b to NULL if blank
5190: 20 73 74 72 69 6e 67 20 70 72 6f 76 69 64 65 64 string provided
51a0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 */. if (cert
51b0: 20 26 26 20 21 2a 63 65 72 74 29 09 09 63 65 72 && !*cert)..cer
51c0: 74 09 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 t. = NULL;. i
51d0: 66 20 28 6b 65 79 20 26 26 20 21 2a 6b 65 79 29 f (key && !*key)
51e0: 09 09 6b 65 79 09 20 3d 20 4e 55 4c 4c 3b 0a 20 ..key. = NULL;.
51f0: 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 26 if (ciphers &
5200: 26 20 21 2a 63 69 70 68 65 72 73 29 09 63 69 70 & !*ciphers).cip
5210: 68 65 72 73 09 20 3d 20 4e 55 4c 4c 3b 0a 20 20 hers. = NULL;.
5220: 20 20 69 66 20 28 43 41 66 69 6c 65 20 26 26 20 if (CAfile &&
5230: 21 2a 43 41 66 69 6c 65 29 09 43 41 66 69 6c 65 !*CAfile).CAfile
5240: 09 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 . = NULL;. if
5250: 20 28 43 41 64 69 72 20 26 26 20 21 2a 43 41 64 (CAdir && !*CAd
5260: 69 72 29 09 43 41 64 69 72 09 20 3d 20 4e 55 4c ir).CAdir. = NUL
5270: 4c 3b 0a 20 20 20 20 69 66 20 28 44 48 70 61 72 L;. if (DHpar
5280: 61 6d 73 20 26 26 20 21 2a 44 48 70 61 72 61 6d ams && !*DHparam
5290: 73 29 09 44 48 70 61 72 61 6d 73 20 3d 20 4e 55 s).DHparams = NU
52a0: 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 LL;.. /* new
52b0: 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 SSL state */.
52c0: 20 73 74 61 74 65 50 74 72 09 09 3d 20 28 53 74 statePtr..= (St
52d0: 61 74 65 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 ate *) ckalloc((
52e0: 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 6f 66 unsigned) sizeof
52f0: 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 6d 65 (State));. me
5300: 6d 73 65 74 28 73 74 61 74 65 50 74 72 2c 20 30 mset(statePtr, 0
5310: 2c 20 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 , sizeof(State))
5320: 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
5330: 3e 66 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b 0a >flags.= flags;.
5340: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 69 6e statePtr->in
5350: 74 65 72 70 09 3d 20 69 6e 74 65 72 70 3b 0a 20 terp.= interp;.
5360: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 76 66 6c statePtr->vfl
5370: 61 67 73 09 3d 20 76 65 72 69 66 79 3b 0a 20 20 ags.= verify;.
5380: 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 09 statePtr->err.
5390: 3d 20 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 61 6c = "";.. /* al
53a0: 6c 6f 63 61 74 65 20 73 63 72 69 70 74 20 2a 2f locate script */
53b0: 0a 20 20 20 20 69 66 20 28 73 63 72 69 70 74 29 . if (script)
53c0: 20 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 {..(void) Tcl_G
53d0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
53e0: 73 63 72 69 70 74 2c 20 26 6c 65 6e 29 3b 0a 09 script, &len);..
53f0: 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 20 if (len) {..
5400: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
5410: 63 6b 20 3d 20 73 63 72 69 70 74 3b 0a 09 20 20 ck = script;..
5420: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
5430: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c nt(statePtr->cal
5440: 6c 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d lback);..}. }
5450: 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 .. /* allocat
5460: 65 20 70 61 73 73 77 6f 72 64 20 2a 2f 0a 20 20 e password */.
5470: 20 20 69 66 20 28 70 61 73 73 77 6f 72 64 29 20 if (password)
5480: 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 {..(void) Tcl_Ge
5490: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 70 tStringFromObj(p
54a0: 61 73 73 77 6f 72 64 2c 20 26 6c 65 6e 29 3b 0a assword, &len);.
54b0: 09 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 .if (len) {..
54c0: 20 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 statePtr->passw
54d0: 6f 72 64 20 3d 20 70 61 73 73 77 6f 72 64 3b 0a ord = password;.
54e0: 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 . Tcl_IncrRef
54f0: 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e Count(statePtr->
5500: 70 61 73 73 77 6f 72 64 29 3b 0a 09 7d 0a 20 20 password);..}.
5510: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 }.. if (mod
5520: 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 el != NULL) {..i
5530: 6e 74 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 65 74 nt mode;../* Get
5540: 20 74 68 65 20 22 6d 6f 64 65 6c 22 20 63 6f 6e the "model" con
5550: 74 65 78 74 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 text */..chan =
5560: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
5570: 6e 74 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d nterp, model, &m
5580: 6f 64 65 29 3b 0a 09 69 66 20 28 63 68 61 6e 20 ode);..if (chan
5590: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
55a0: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 6c NULL) {.. Tl
55b0: 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 s_Free((char *)
55c0: 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 statePtr);..
55d0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
55e0: 3b 0a 09 7d 0a 0a 20 20 20 20 20 20 20 20 2f 2a ;..}.. /*
55f0: 0a 20 20 20 20 20 20 20 20 20 2a 20 4d 61 6b 65 . * Make
5600: 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 sure to operate
5610: 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 on the topmost
5620: 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 20 20 20 channel.
5630: 20 2a 2f 0a 20 20 20 20 20 20 20 20 63 68 61 6e */. chan
5640: 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 = Tcl_GetTopCha
5650: 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 09 69 66 20 nnel(chan);..if
5660: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
5670: 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 ype(chan) != Tls
5680: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 _ChannelType())
5690: 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e {.. Tcl_Appen
56a0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
56b0: 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 "bad channel \""
56c0: 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 74 43 ,... Tcl_GetC
56d0: 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 hannelName(chan)
56e0: 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 , "\": not a TLS
56f0: 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 channel", NULL)
5700: 3b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 ;.. Tls_Free(
5710: 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 (char *) statePt
5720: 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 r);.. return
5730: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 63 TCL_ERROR;..}..c
5740: 74 78 20 3d 20 28 28 53 74 61 74 65 20 2a 29 54 tx = ((State *)T
5750: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
5760: 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 29 tanceData(chan))
5770: 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c 73 ->ctx;. } els
5780: 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 3d 20 e {..if ((ctx =
5790: 43 54 58 5f 49 6e 69 74 28 73 74 61 74 65 50 74 CTX_Init(statePt
57a0: 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 r, proto, key, c
57b0: 65 72 74 2c 20 43 41 64 69 72 2c 20 43 41 66 69 ert, CAdir, CAfi
57c0: 6c 65 2c 20 63 69 70 68 65 72 73 2c 0a 09 09 44 le, ciphers,...D
57d0: 48 70 61 72 61 6d 73 29 29 20 3d 3d 20 28 53 53 Hparams)) == (SS
57e0: 4c 5f 43 54 58 2a 29 30 29 20 7b 0a 09 20 20 20 L_CTX*)0) {..
57f0: 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 Tls_Free((char
5800: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20 *) statePtr);..
5810: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
5820: 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ROR;..}. }..
5830: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 statePtr->ctx
5840: 20 3d 20 63 74 78 3b 0a 0a 20 20 20 20 2f 2a 0a = ctx;.. /*.
5850: 20 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 * We need t
5860: 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 o make sure that
5870: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 6f 72 the channel wor
5880: 6b 73 20 69 6e 20 62 69 6e 61 72 79 20 28 66 6f ks in binary (fo
5890: 72 20 74 68 65 0a 20 20 20 20 20 2a 20 65 6e 63 r the. * enc
58a0: 72 79 70 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 67 ryption not to g
58b0: 65 74 20 67 6f 6f 66 65 64 20 75 70 29 2e 0a 20 et goofed up)..
58c0: 20 20 20 20 2a 20 57 65 20 6f 6e 6c 79 20 77 61 * We only wa
58d0: 6e 74 20 74 6f 20 61 64 6a 75 73 74 20 74 68 65 nt to adjust the
58e0: 20 62 75 66 66 65 72 69 6e 67 20 69 6e 20 70 72 buffering in pr
58f0: 65 2d 76 32 20 63 68 61 6e 6e 65 6c 73 2c 20 77 e-v2 channels, w
5900: 68 65 72 65 0a 20 20 20 20 20 2a 20 65 61 63 68 here. * each
5910: 20 63 68 61 6e 6e 65 6c 20 69 6e 20 74 68 65 20 channel in the
5920: 73 74 61 63 6b 20 6d 61 69 6e 74 61 69 6e 65 64 stack maintained
5930: 20 69 74 73 20 6f 77 6e 20 62 75 66 66 65 72 73 its own buffers
5940: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 .. */. Tc
5950: 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 l_SetChannelOpti
5960: 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c on(interp, chan,
5970: 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c "-translation",
5980: 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 20 20 "binary");.
5990: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
59a0: 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 Tcl_StackChanne
59b0: 6c 28 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 l(interp, Tls_Ch
59c0: 61 6e 6e 65 6c 54 79 70 65 28 29 2c 20 28 43 6c annelType(), (Cl
59d0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
59e0: 74 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c tr, (TCL_READABL
59f0: 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 E | TCL_WRITABLE
5a00: 29 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 ), chan);. if
5a10: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 (statePtr->self
5a20: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
5a30: 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 ) NULL) {../*..
5a40: 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 63 6c 5f * No use of Tcl_
5a50: 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 62 EventuallyFree b
5a60: 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 73 69 62 ecause no possib
5a70: 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 76 65 2e le Tcl_Preserve.
5a80: 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 65 65 28 .. */..Tls_Free(
5a90: 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 (char *) statePt
5aa0: 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f r);..return TCL_
5ab0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5ac0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
5ad0: 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 Initialization.
5ae0: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 */.. stat
5af0: 65 50 74 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f ePtr->ssl = SSL_
5b00: 6e 65 77 28 73 74 61 74 65 50 74 72 2d 3e 63 74 new(statePtr->ct
5b10: 78 29 3b 0a 20 20 20 20 69 66 20 28 21 73 74 61 x);. if (!sta
5b20: 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 2f tePtr->ssl) {../
5b30: 2a 20 53 53 4c 20 6c 69 62 72 61 72 79 20 65 72 * SSL library er
5b40: 72 6f 72 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 ror */..Tcl_Appe
5b50: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
5b60: 20 22 63 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 "couldn't const
5b70: 72 75 63 74 20 73 73 6c 20 73 65 73 73 69 6f 6e ruct ssl session
5b80: 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 : ", REASON(),..
5b90: 09 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b .(char *) NULL);
5ba0: 0a 09 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 ..Tls_Free((char
5bb0: 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 *) statePtr);..
5bc0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5bd0: 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 6e 64 65 66 ;. }..#ifndef
5be0: 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 OPENSSL_NO_TLSE
5bf0: 58 54 0a 20 20 20 20 69 66 20 28 73 65 72 76 65 XT. if (serve
5c00: 72 6e 61 6d 65 29 20 7b 0a 20 20 20 20 20 20 20 rname) {.
5c10: 20 69 66 20 28 21 53 53 4c 5f 73 65 74 5f 74 6c if (!SSL_set_tl
5c20: 73 65 78 74 5f 68 6f 73 74 5f 6e 61 6d 65 28 73 sext_host_name(s
5c30: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 73 65 tatePtr->ssl, se
5c40: 72 76 65 72 6e 61 6d 65 29 20 26 26 20 72 65 71 rvername) && req
5c50: 75 69 72 65 29 20 7b 0a 20 20 20 20 20 20 20 20 uire) {.
5c60: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
5c70: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 73 65 sult(interp, "se
5c80: 74 74 69 6e 67 20 54 4c 53 20 68 6f 73 74 20 6e tting TLS host n
5c90: 61 6d 65 20 65 78 74 65 6e 73 69 6f 6e 20 66 61 ame extension fa
5ca0: 69 6c 65 64 22 2c 0a 20 20 20 20 20 20 20 20 20 iled",.
5cb0: 20 20 20 20 20 20 20 28 63 68 61 72 20 2a 29 20 (char *)
5cc0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 20 NULL);.
5cd0: 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 Tls_Free((cha
5ce0: 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a r *) statePtr);.
5cf0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 retu
5d00: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
5d10: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 23 65 }. }.#e
5d20: 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 ndif.. /*.
5d30: 20 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 6b * SSL Callback
5d40: 73 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 53 s. */.. S
5d50: 53 4c 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28 SL_set_app_data(
5d60: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 statePtr->ssl, (
5d70: 56 4f 49 44 20 2a 29 73 74 61 74 65 50 74 72 29 VOID *)statePtr)
5d80: 3b 09 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b 20 ;./* point back
5d90: 74 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 20 53 53 to us */.. SS
5da0: 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 73 74 61 L_set_verify(sta
5db0: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 65 72 69 tePtr->ssl, veri
5dc0: 66 79 2c 20 56 65 72 69 66 79 43 61 6c 6c 62 61 fy, VerifyCallba
5dd0: 63 6b 29 3b 0a 0a 20 20 20 20 53 53 4c 5f 43 54 ck);.. SSL_CT
5de0: 58 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 X_set_info_callb
5df0: 61 63 6b 28 73 74 61 74 65 50 74 72 2d 3e 63 74 ack(statePtr->ct
5e00: 78 2c 20 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 x, InfoCallback)
5e10: 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 ;.. /* Create
5e20: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 42 49 4f Tcl_Channel BIO
5e30: 20 48 61 6e 64 6c 65 72 20 2a 2f 0a 20 20 20 20 Handler */.
5e40: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 09 statePtr->p_bio.
5e50: 3d 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 73 74 = BIO_new_tcl(st
5e60: 61 74 65 50 74 72 2c 20 42 49 4f 5f 43 4c 4f 53 atePtr, BIO_CLOS
5e70: 45 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 E);. statePtr
5e80: 2d 3e 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 28 ->bio.= BIO_new(
5e90: 42 49 4f 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a 20 BIO_f_ssl());..
5ea0: 20 20 20 69 66 20 28 73 65 72 76 65 72 29 20 7b if (server) {
5eb0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
5ec0: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 53 45 52 s |= TLS_TCL_SER
5ed0: 56 45 52 3b 0a 09 53 53 4c 5f 73 65 74 5f 61 63 VER;..SSL_set_ac
5ee0: 63 65 70 74 5f 73 74 61 74 65 28 73 74 61 74 65 cept_state(state
5ef0: 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d Ptr->ssl);. }
5f00: 20 65 6c 73 65 20 7b 0a 09 53 53 4c 5f 73 65 74 else {..SSL_set
5f10: 5f 63 6f 6e 6e 65 63 74 5f 73 74 61 74 65 28 73 _connect_state(s
5f20: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 tatePtr->ssl);.
5f30: 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 73 65 74 }. SSL_set
5f40: 5f 62 69 6f 28 73 74 61 74 65 50 74 72 2d 3e 73 _bio(statePtr->s
5f50: 73 6c 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 5f sl, statePtr->p_
5f60: 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 bio, statePtr->p
5f70: 5f 62 69 6f 29 3b 0a 20 20 20 20 42 49 4f 5f 73 _bio);. BIO_s
5f80: 65 74 5f 73 73 6c 28 73 74 61 74 65 50 74 72 2d et_ssl(statePtr-
5f90: 3e 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e >bio, statePtr->
5fa0: 73 73 6c 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 45 ssl, BIO_NOCLOSE
5fb0: 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 );.. /*.
5fc0: 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 49 6e 69 * End of SSL Ini
5fd0: 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 t. */. Tc
5fe0: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
5ff0: 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 63 6c rp, (char *) Tcl
6000: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
6010: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
6020: 0a 09 20 20 20 20 54 43 4c 5f 56 4f 4c 41 54 49 .. TCL_VOLATI
6030: 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 LE);. return
6040: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 TCL_OK;.}.../*.
6050: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6090: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 69 6d 70 ----. *. * Unimp
60a0: 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a ortObjCmd --. *.
60b0: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
60c0: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 e is invoked to
60d0: 72 65 6d 6f 76 65 20 74 68 65 20 74 6f 70 6d 6f remove the topmo
60e0: 73 74 20 63 68 61 6e 6e 65 6c 20 66 69 6c 74 65 st channel filte
60f0: 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 r.. *. * Results
6100: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
6110: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
6120: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
6130: 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 *.May modify th
6140: 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e e behavior of an
6150: 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a IO channel.. *.
6160: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61a0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
61b0: 63 20 69 6e 74 0a 55 6e 69 6d 70 6f 72 74 4f 62 c int.UnimportOb
61c0: 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c jCmd(clientData,
61d0: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f interp, objc, o
61e0: 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 bjv). ClientD
61f0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 ata clientData;.
6200: 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a /* Not used. */.
6210: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a Tcl_Interp *
6220: 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 interp;. int
6230: 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 objc;. Tcl_Ob
6240: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b j *CONST objv[];
6250: 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e .{. Tcl_Chann
6260: 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 el chan;../* The
6270: 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 channel to set
6280: 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 0a 20 a mode on. */..
6290: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 if (objc != 2
62a0: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
62b0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
62c0: 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 objv, "channel"
62d0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
62e0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
62f0: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 chan = Tcl_GetC
6300: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 hannel(interp, T
6310: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a cl_GetString(obj
6320: 76 5b 31 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 v[1]), NULL);.
6330: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 if (chan == (T
6340: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
6350: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
6360: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
6370: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b 65 /*. * Make
6380: 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 sure to operate
6390: 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 on the topmost
63a0: 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a channel. */.
63b0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 chan = Tcl_G
63c0: 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 etTopChannel(cha
63d0: 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 54 63 6c n);.. if (Tcl
63e0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
63f0: 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 chan) != Tls_Cha
6400: 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 54 nnelType()) {..T
6410: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6420: 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 interp, "bad cha
6430: 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 nnel \"", Tcl_Ge
6440: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 tChannelName(cha
6450: 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 20 61 n),..."\": not a
6460: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e TLS channel", N
6470: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
6480: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
6490: 20 20 20 20 69 66 20 28 54 63 6c 5f 55 6e 73 74 if (Tcl_Unst
64a0: 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 ackChannel(inter
64b0: 70 2c 20 63 68 61 6e 29 20 3d 3d 20 54 43 4c 5f p, chan) == TCL_
64c0: 45 52 52 4f 52 29 20 7b 0a 09 72 65 74 75 72 6e ERROR) {..return
64d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
64e0: 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 }.. return TC
64f0: 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d L_OK;.}.../*. *-
6500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 0a 20 2a 0a 20 2a 20 43 54 58 5f 49 6e 69 --. *. * CTX_Ini
6550: 74 20 2d 2d 20 63 6f 6e 73 74 72 75 63 74 20 61 t -- construct a
6560: 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 SSL_CTX instanc
6570: 65 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a e. *. * Results:
6580: 0a 20 2a 09 41 20 76 61 6c 69 64 20 53 53 4c 5f . *.A valid SSL_
6590: 43 54 58 20 69 6e 73 74 61 6e 63 65 20 6f 72 20 CTX instance or
65a0: 4e 55 4c 4c 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 NULL.. *. * Side
65b0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e effects:. *.con
65c0: 73 74 72 75 63 74 73 20 53 53 4c 20 63 6f 6e 74 structs SSL cont
65d0: 65 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d ext (CTX). *. *-
65e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6620: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 53 --. */..static S
6630: 53 4c 5f 43 54 58 20 2a 0a 43 54 58 5f 49 6e 69 SL_CTX *.CTX_Ini
6640: 74 28 73 74 61 74 65 50 74 72 2c 20 70 72 6f 74 t(statePtr, prot
6650: 6f 2c 20 6b 65 79 2c 20 63 65 72 74 2c 20 43 41 o, key, cert, CA
6660: 64 69 72 2c 20 43 41 66 69 6c 65 2c 20 63 69 70 dir, CAfile, cip
6670: 68 65 72 73 2c 20 44 48 70 61 72 61 6d 73 29 0a hers, DHparams).
6680: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
6690: 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 70 72 6f Ptr;. int pro
66a0: 74 6f 3b 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 to;. char *ke
66b0: 79 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 65 72 y;. char *cer
66c0: 74 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41 64 t;. char *CAd
66d0: 69 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41 ir;. char *CA
66e0: 66 69 6c 65 3b 0a 20 20 20 20 63 68 61 72 20 2a file;. char *
66f0: 63 69 70 68 65 72 73 3b 0a 20 20 20 20 63 68 61 ciphers;. cha
6700: 72 20 2a 44 48 70 61 72 61 6d 73 3b 0a 7b 0a 20 r *DHparams;.{.
6710: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
6720: 6e 74 65 72 70 20 3d 20 73 74 61 74 65 50 74 72 nterp = statePtr
6730: 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20 20 53 53 ->interp;. SS
6740: 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c L_CTX *ctx = NUL
6750: 4c 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 L;. Tcl_DStri
6760: 6e 67 20 64 73 3b 0a 20 20 20 20 54 63 6c 5f 44 ng ds;. Tcl_D
6770: 53 74 72 69 6e 67 20 64 73 31 3b 0a 20 20 20 20 String ds1;.
6780: 69 6e 74 20 6f 66 66 20 3d 20 30 3b 0a 20 20 20 int off = 0;.
6790: 20 63 6f 6e 73 74 20 53 53 4c 5f 4d 45 54 48 4f const SSL_METHO
67a0: 44 20 2a 6d 65 74 68 6f 64 3b 0a 0a 20 20 20 20 D *method;..
67b0: 69 66 20 28 21 70 72 6f 74 6f 29 20 7b 0a 09 54 if (!proto) {..T
67c0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
67d0: 69 6e 74 65 72 70 2c 20 22 6e 6f 20 76 61 6c 69 interp, "no vali
67e0: 64 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 d protocol selec
67f0: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 ted", NULL);..re
6800: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 turn (SSL_CTX *)
6810: 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0;. }.. /*
6820: 20 63 72 65 61 74 65 20 53 53 4c 20 63 6f 6e 74 create SSL cont
6830: 65 78 74 20 2a 2f 0a 23 69 66 20 64 65 66 69 6e ext */.#if defin
6840: 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 ed(NO_SSL2).
6850: 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 if (ENABLED(prot
6860: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c o, TLS_PROTO_SSL
6870: 32 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 2)) {..Tcl_Appen
6880: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
6890: 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 "protocol not su
68a0: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
68b0: 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 ..return (SSL_CT
68c0: 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 23 65 6e X *)0;. }.#en
68d0: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 dif.#if defined(
68e0: 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 66 20 NO_SSL3). if
68f0: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
6900: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 TLS_PROTO_SSL3))
6910: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
6920: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
6930: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
6940: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 rted", NULL);..r
6950: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
6960: 29 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 )0;. }.#endif
6970: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
6980: 54 4c 53 31 29 0a 20 20 20 20 69 66 20 28 45 4e TLS1). if (EN
6990: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
69a0: 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 20 7b 0a _PROTO_TLS1)) {.
69b0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
69c0: 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f t(interp, "proto
69d0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
69e0: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 d", NULL);..retu
69f0: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b rn (SSL_CTX *)0;
6a00: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 . }.#endif.#i
6a10: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
6a20: 31 5f 31 29 0a 20 20 20 20 69 66 20 28 45 4e 41 1_1). if (ENA
6a30: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
6a40: 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 29 20 7b PROTO_TLS1_1)) {
6a50: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
6a60: 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 lt(interp, "prot
6a70: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 ocol not support
6a80: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 ed", NULL);..ret
6a90: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
6aa0: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 ;. }.#endif.#
6ab0: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c if defined(NO_TL
6ac0: 53 31 5f 32 29 0a 20 20 20 20 69 66 20 28 45 4e S1_2). if (EN
6ad0: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
6ae0: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29 29 20 _PROTO_TLS1_2))
6af0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
6b00: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f ult(interp, "pro
6b10: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
6b20: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 ted", NULL);..re
6b30: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 turn (SSL_CTX *)
6b40: 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0;. }.#endif.
6b50: 0a 20 20 20 20 73 77 69 74 63 68 20 28 70 72 6f . switch (pro
6b60: 74 6f 29 20 7b 0a 23 69 66 20 21 64 65 66 69 6e to) {.#if !defin
6b70: 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 ed(NO_SSL2).
6b80: 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 case TLS_PROTO_S
6b90: 53 4c 32 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 53 SL2:..method = S
6ba0: 53 4c 76 32 5f 6d 65 74 68 6f 64 20 28 29 3b 0a SLv2_method ();.
6bb0: 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 .break;.#endif.#
6bc0: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 if !defined(NO_S
6bd0: 53 4c 33 29 0a 20 20 20 20 63 61 73 65 20 54 4c SL3). case TL
6be0: 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 3a 0a 09 6d S_PROTO_SSL3:..m
6bf0: 65 74 68 6f 64 20 3d 20 53 53 4c 76 33 5f 6d 65 ethod = SSLv3_me
6c00: 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b thod ();..break;
6c10: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
6c20: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 20 20 ined(NO_TLS1).
6c30: 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f case TLS_PROTO
6c40: 5f 54 4c 53 31 3a 0a 09 6d 65 74 68 6f 64 20 3d _TLS1:..method =
6c50: 20 54 4c 53 76 31 5f 6d 65 74 68 6f 64 20 28 29 TLSv1_method ()
6c60: 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 ;..break;.#endif
6c70: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f .#if !defined(NO
6c80: 5f 54 4c 53 31 5f 31 29 0a 20 20 20 20 63 61 73 _TLS1_1). cas
6c90: 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 e TLS_PROTO_TLS1
6ca0: 5f 31 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c _1:..method = TL
6cb0: 53 76 31 5f 31 5f 6d 65 74 68 6f 64 20 28 29 3b Sv1_1_method ();
6cc0: 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a ..break;.#endif.
6cd0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
6ce0: 54 4c 53 31 5f 32 29 0a 20 20 20 20 63 61 73 65 TLS1_2). case
6cf0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
6d00: 32 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 2:..method = TLS
6d10: 76 31 5f 32 5f 6d 65 74 68 6f 64 20 28 29 3b 0a v1_2_method ();.
6d20: 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 .break;.#endif.
6d30: 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 default:.
6d40: 20 20 20 20 6d 65 74 68 6f 64 20 3d 20 53 53 4c method = SSL
6d50: 76 32 33 5f 6d 65 74 68 6f 64 20 28 29 3b 0a 23 v23_method ();.#
6d60: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 if !defined(NO_S
6d70: 53 4c 32 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e SL2)..off |= (EN
6d80: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
6d90: 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 20 20 20 3f _PROTO_SSL2) ?
6da0: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 0 : SSL_OP_NO_S
6db0: 53 4c 76 32 29 3b 0a 23 65 6e 64 69 66 0a 23 69 SLv2);.#endif.#i
6dc0: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 f !defined(NO_SS
6dd0: 4c 33 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 L3)..off |= (ENA
6de0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
6df0: 50 52 4f 54 4f 5f 53 53 4c 33 29 20 20 20 3f 20 PROTO_SSL3) ?
6e00: 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 53 0 : SSL_OP_NO_SS
6e10: 4c 76 33 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 Lv3);.#endif.#if
6e20: 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 !defined(NO_TLS
6e30: 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 42 1)..off |= (ENAB
6e40: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
6e50: 52 4f 54 4f 5f 54 4c 53 31 29 20 20 20 3f 20 30 ROTO_TLS1) ? 0
6e60: 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 : SSL_OP_NO_TLS
6e70: 76 31 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 v1);.#endif.#if
6e80: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
6e90: 5f 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 _1)..off |= (ENA
6ea0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
6eb0: 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 20 3f 20 PROTO_TLS1_1) ?
6ec0: 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 0 : SSL_OP_NO_TL
6ed0: 53 76 31 5f 31 29 3b 0a 23 65 6e 64 69 66 0a 23 Sv1_1);.#endif.#
6ee0: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 if !defined(NO_T
6ef0: 4c 53 31 5f 32 29 0a 09 6f 66 66 20 7c 3d 20 28 LS1_2)..off |= (
6f00: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
6f10: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29 LS_PROTO_TLS1_2)
6f20: 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f ? 0 : SSL_OP_NO
6f30: 5f 54 4c 53 76 31 5f 32 29 3b 0a 23 65 6e 64 69 _TLSv1_2);.#endi
6f40: 66 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a f..break;. }.
6f50: 20 20 20 20 0a 20 20 20 20 63 74 78 20 3d 20 53 . ctx = S
6f60: 53 4c 5f 43 54 58 5f 6e 65 77 20 28 6d 65 74 68 SL_CTX_new (meth
6f70: 6f 64 29 3b 0a 20 20 20 20 0a 20 20 20 20 53 53 od);. . SS
6f80: 4c 5f 43 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 L_CTX_set_app_da
6f90: 74 61 28 20 63 74 78 2c 20 28 56 4f 49 44 2a 29 ta( ctx, (VOID*)
6fa0: 69 6e 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 interp);./* reme
6fb0: 6d 62 65 72 20 74 68 65 20 69 6e 74 65 72 70 72 mber the interpr
6fc0: 65 74 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f eter */. SSL_
6fd0: 43 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 CTX_set_options(
6fe0: 20 63 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c ctx, SSL_OP_ALL
6ff0: 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 );./* all SSL bu
7000: 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f g workarounds */
7010: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
7020: 5f 6f 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f _options( ctx, o
7030: 66 66 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 ff);./* all SSL
7040: 62 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 bug workarounds
7050: 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 */. SSL_CTX_s
7060: 65 73 73 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 ess_set_cache_si
7070: 7a 65 28 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a ze( ctx, 128);..
7080: 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 if (ciphers
7090: 21 3d 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 != NULL)..SSL_CT
70a0: 58 5f 73 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 X_set_cipher_lis
70b0: 74 28 63 74 78 2c 20 63 69 70 68 65 72 73 29 3b t(ctx, ciphers);
70c0: 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d .. /* set som
70d0: 65 20 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 e callbacks */.
70e0: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 SSL_CTX_set_d
70f0: 65 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 efault_passwd_cb
7100: 28 63 74 78 2c 20 50 61 73 73 77 6f 72 64 43 61 (ctx, PasswordCa
7110: 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 llback);..#ifnde
7120: 66 20 42 53 41 46 45 0a 20 20 20 20 53 53 4c 5f f BSAFE. SSL_
7130: 43 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f CTX_set_default_
7140: 70 61 73 73 77 64 5f 63 62 5f 75 73 65 72 64 61 passwd_cb_userda
7150: 74 61 28 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 ta(ctx, (void *)
7160: 73 74 61 74 65 50 74 72 29 3b 0a 23 65 6e 64 69 statePtr);.#endi
7170: 66 0a 0a 20 20 20 20 2f 2a 20 72 65 61 64 20 61 f.. /* read a
7180: 20 44 69 66 66 69 65 2d 48 65 6c 6c 6d 61 6e 20 Diffie-Hellman
7190: 70 61 72 61 6d 65 74 65 72 73 20 66 69 6c 65 2c parameters file,
71a0: 20 6f 72 20 75 73 65 20 74 68 65 20 62 75 69 6c or use the buil
71b0: 74 2d 69 6e 20 6f 6e 65 20 2a 2f 0a 23 69 66 64 t-in one */.#ifd
71c0: 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44 48 ef OPENSSL_NO_DH
71d0: 0a 20 20 20 20 69 66 20 28 44 48 70 61 72 61 6d . if (DHparam
71e0: 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 s != NULL) {..Tc
71f0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7200: 6e 74 65 72 70 2c 0a 09 20 20 20 20 22 44 48 20 nterp,.. "DH
7210: 70 61 72 61 6d 65 74 65 72 20 73 75 70 70 6f 72 parameter suppor
7220: 74 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 22 t not available"
7230: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
7240: 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 ;..SSL_CTX_free(
7250: 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ctx);..return (S
7260: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 SL_CTX *)0;.
7270: 7d 0a 23 65 6c 73 65 0a 20 20 20 20 7b 0a 09 44 }.#else. {..D
7280: 48 2a 20 64 68 3b 0a 09 69 66 20 28 44 48 70 61 H* dh;..if (DHpa
7290: 72 61 6d 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a rams != NULL) {.
72a0: 09 20 20 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 09 . BIO *bio;..
72b0: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 Tcl_DStringI
72c0: 6e 69 74 28 26 64 73 29 3b 0a 09 20 20 20 20 62 nit(&ds);.. b
72d0: 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 5f 66 69 6c io = BIO_new_fil
72e0: 65 28 46 32 4e 28 44 48 70 61 72 61 6d 73 2c 20 e(F2N(DHparams,
72f0: 26 64 73 29 2c 20 22 72 22 29 3b 0a 09 20 20 20 &ds), "r");..
7300: 20 69 66 20 28 21 62 69 6f 29 20 7b 0a 09 09 54 if (!bio) {...T
7310: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
7320: 64 73 29 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e ds);...Tcl_Appen
7330: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
7340: 09 09 20 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 .. "Could not
7350: 20 66 69 6e 64 20 44 48 20 70 61 72 61 6d 65 74 find DH paramet
7360: 65 72 73 20 66 69 6c 65 22 2c 20 28 63 68 61 72 ers file", (char
7370: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c *) NULL);...SSL
7380: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
7390: 09 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 ..return (SSL_CT
73a0: 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a 09 20 X *)0;.. }..
73b0: 20 20 20 0a 09 20 20 20 20 64 68 20 3d 20 50 45 .. dh = PE
73c0: 4d 5f 72 65 61 64 5f 62 69 6f 5f 44 48 70 61 72 M_read_bio_DHpar
73d0: 61 6d 73 28 62 69 6f 2c 20 4e 55 4c 4c 2c 20 4e ams(bio, NULL, N
73e0: 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 ULL, NULL);..
73f0: 20 42 49 4f 5f 66 72 65 65 28 62 69 6f 29 3b 0a BIO_free(bio);.
7400: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
7410: 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 Free(&ds);..
7420: 69 66 20 28 21 64 68 29 20 7b 0a 09 09 54 63 6c if (!dh) {...Tcl
7430: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
7440: 74 65 72 70 2c 0a 09 09 20 20 20 20 22 43 6f 75 terp,... "Cou
7450: 6c 64 20 6e 6f 74 20 72 65 61 64 20 44 48 20 70 ld not read DH p
7460: 61 72 61 6d 65 74 65 72 73 20 66 72 6f 6d 20 66 arameters from f
7470: 69 6c 65 22 2c 20 28 63 68 61 72 20 2a 29 20 4e ile", (char *) N
7480: 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f ULL);...SSL_CTX_
7490: 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 free(ctx);...ret
74a0: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
74b0: 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 ;.. }..} else
74c0: 20 7b 0a 09 20 20 20 20 64 68 20 3d 20 67 65 74 {.. dh = get
74d0: 5f 64 68 32 30 34 38 28 29 3b 0a 09 7d 0a 09 53 _dh2048();..}..S
74e0: 53 4c 5f 43 54 58 5f 73 65 74 5f 74 6d 70 5f 64 SL_CTX_set_tmp_d
74f0: 68 28 63 74 78 2c 20 64 68 29 3b 0a 09 44 48 5f h(ctx, dh);..DH_
7500: 66 72 65 65 28 64 68 29 3b 0a 20 20 20 20 7d 0a free(dh);. }.
7510: 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 20 73 #endif.. /* s
7520: 65 74 20 6f 75 72 20 63 65 72 74 69 66 69 63 61 et our certifica
7530: 74 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 te */. if (ce
7540: 72 74 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 rt != NULL) {..T
7550: 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 cl_DStringInit(&
7560: 64 73 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 ds);...if (SSL_C
7570: 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 TX_use_certifica
7580: 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 4e te_file(ctx, F2N
7590: 28 20 63 65 72 74 2c 20 26 64 73 29 2c 0a 09 09 ( cert, &ds),...
75a0: 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f ...SSL_FILETYPE_
75b0: 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 09 20 20 PEM) <= 0) {..
75c0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 Tcl_DStringFre
75d0: 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 6c e(&ds);.. Tcl
75e0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
75f0: 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 75 terp,.... "u
7600: 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 63 65 72 nable to set cer
7610: 74 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c tificate file ",
7620: 20 63 65 72 74 2c 20 22 3a 20 22 2c 0a 09 09 09 cert, ": ",....
7630: 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 REASON(), (
7640: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
7650: 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 SSL_CTX_free
7660: 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 (ctx);.. retu
7670: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b rn (SSL_CTX *)0;
7680: 0a 09 7d 0a 0a 09 2f 2a 20 67 65 74 20 74 68 65 ..}.../* get the
7690: 20 70 72 69 76 61 74 65 20 6b 65 79 20 61 73 73 private key ass
76a0: 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 69 ociated with thi
76b0: 73 20 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f s certificate */
76c0: 0a 09 69 66 20 28 6b 65 79 20 3d 3d 20 4e 55 4c ..if (key == NUL
76d0: 4c 29 20 6b 65 79 3d 63 65 72 74 3b 0a 0a 09 69 L) key=cert;...i
76e0: 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 f (SSL_CTX_use_P
76f0: 72 69 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 63 rivateKey_file(c
7700: 74 78 2c 20 46 32 4e 28 20 6b 65 79 2c 20 26 64 tx, F2N( key, &d
7710: 73 29 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c s),......SSL_FIL
7720: 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 ETYPE_PEM) <= 0)
7730: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 {.. Tcl_DStr
7740: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 ingFree(&ds);..
7750: 20 20 20 2f 2a 20 66 6c 75 73 68 20 74 68 65 20 /* flush the
7760: 70 61 73 73 70 68 72 61 73 65 20 77 68 69 63 68 passphrase which
7770: 20 6d 69 67 68 74 20 62 65 20 6c 65 66 74 20 69 might be left i
7780: 6e 20 74 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a n the result */.
7790: 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
77a0: 6c 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 2c lt(interp, NULL,
77b0: 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 09 20 TCL_STATIC);..
77c0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
77d0: 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 ult(interp,....
77e0: 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 "unable to s
77f0: 65 74 20 70 75 62 6c 69 63 20 6b 65 79 20 66 69 et public key fi
7800: 6c 65 20 22 2c 20 6b 65 79 2c 20 22 20 22 2c 0a le ", key, " ",.
7810: 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 ... REASON()
7820: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
7830: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 ;.. SSL_CTX_f
7840: 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 ree(ctx);.. r
7850: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
7860: 29 30 3b 0a 09 7d 0a 09 54 63 6c 5f 44 53 74 72 )0;..}..Tcl_DStr
7870: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 2f ingFree(&ds);../
7880: 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f 77 20 74 68 * Now we know th
7890: 61 74 20 61 20 6b 65 79 20 61 6e 64 20 63 65 72 at a key and cer
78a0: 74 20 68 61 76 65 20 62 65 65 6e 20 73 65 74 20 t have been set
78b0: 61 67 61 69 6e 73 74 0a 09 20 2a 20 74 68 65 20 against.. * the
78c0: 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 SSL context */..
78d0: 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 63 68 65 if (!SSL_CTX_che
78e0: 63 6b 5f 70 72 69 76 61 74 65 5f 6b 65 79 28 63 ck_private_key(c
78f0: 74 78 29 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f tx)) {.. Tcl_
7900: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
7910: 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 70 72 erp,.... "pr
7920: 69 76 61 74 65 20 6b 65 79 20 64 6f 65 73 20 6e ivate key does n
7930: 6f 74 20 6d 61 74 63 68 20 74 68 65 20 63 65 72 ot match the cer
7940: 74 69 66 69 63 61 74 65 20 70 75 62 6c 69 63 20 tificate public
7950: 6b 65 79 22 2c 0a 09 09 09 20 20 20 20 20 28 63 key",.... (c
7960: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
7970: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 SSL_CTX_free(
7980: 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ctx);.. retur
7990: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
79a0: 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a .}. } else {.
79b0: 09 63 65 72 74 20 3d 20 28 63 68 61 72 2a 29 58 .cert = (char*)X
79c0: 35 30 39 5f 67 65 74 5f 64 65 66 61 75 6c 74 5f 509_get_default_
79d0: 63 65 72 74 5f 66 69 6c 65 28 29 3b 0a 0a 09 69 cert_file();...i
79e0: 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 f (SSL_CTX_use_c
79f0: 65 72 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 ertificate_file(
7a00: 63 74 78 2c 20 63 65 72 74 2c 0a 09 09 09 09 09 ctx, cert,......
7a10: 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d SSL_FILETYPE_PEM
7a20: 29 20 3c 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a ) <= 0) {.#if 0.
7a30: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
7a40: 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 Free(&ds);..
7a50: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
7a60: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 (interp,....
7a70: 20 22 75 6e 61 62 6c 65 20 74 6f 20 75 73 65 20 "unable to use
7a80: 64 65 66 61 75 6c 74 20 63 65 72 74 69 66 69 63 default certific
7a90: 61 74 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 ate file ", cert
7aa0: 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 , ": ",....
7ab0: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 REASON(), (char
7ac0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 *) NULL);.. S
7ad0: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
7ae0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 ;.. return (S
7af0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 SL_CTX *)0;.#end
7b00: 69 66 0a 09 7d 0a 20 20 20 20 7d 0a 09 0a 20 20 if..}. }...
7b10: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
7b20: 74 28 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f t(&ds);. Tcl_
7b30: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 31 DStringInit(&ds1
7b40: 29 3b 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f );. if (!SSL_
7b50: 43 54 58 5f 6c 6f 61 64 5f 76 65 72 69 66 79 5f CTX_load_verify_
7b60: 6c 6f 63 61 74 69 6f 6e 73 28 63 74 78 2c 20 46 locations(ctx, F
7b70: 32 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 2c 2N(CAfile, &ds),
7b80: 20 46 32 4e 28 43 41 64 69 72 2c 20 26 64 73 31 F2N(CAdir, &ds1
7b90: 29 29 20 7c 7c 0a 09 21 53 53 4c 5f 43 54 58 5f )) ||..!SSL_CTX_
7ba0: 73 65 74 5f 64 65 66 61 75 6c 74 5f 76 65 72 69 set_default_veri
7bb0: 66 79 5f 70 61 74 68 73 28 63 74 78 29 29 20 7b fy_paths(ctx)) {
7bc0: 0a 23 69 66 20 30 0a 09 54 63 6c 5f 44 53 74 72 .#if 0..Tcl_DStr
7bd0: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 54 ingFree(&ds);..T
7be0: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
7bf0: 64 73 31 29 3b 0a 09 2f 2a 20 44 6f 6e 27 74 20 ds1);../* Don't
7c00: 63 75 72 72 65 6e 74 6c 79 20 63 61 72 65 20 69 currently care i
7c10: 66 20 74 68 69 73 20 66 61 69 6c 73 20 2a 2f 0a f this fails */.
7c20: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
7c30: 74 28 69 6e 74 65 72 70 2c 20 22 53 53 4c 20 64 t(interp, "SSL d
7c40: 65 66 61 75 6c 74 20 76 65 72 69 66 79 20 70 61 efault verify pa
7c50: 74 68 73 3a 20 22 2c 0a 09 09 52 45 41 53 4f 4e ths: ",...REASON
7c60: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
7c70: 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 L);..SSL_CTX_fre
7c80: 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 e(ctx);..return
7c90: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 (SSL_CTX *)0;.#e
7ca0: 6e 64 69 66 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ndif. }..
7cb0: 2f 2a 20 68 74 74 70 73 3a 2f 2f 73 6f 75 72 63 /* https://sourc
7cc0: 65 66 6f 72 67 65 2e 6e 65 74 2f 70 2f 74 6c 73 eforge.net/p/tls
7cd0: 2f 62 75 67 73 2f 35 37 2f 20 2a 2f 0a 20 20 20 /bugs/57/ */.
7ce0: 20 69 66 20 28 20 43 41 66 69 6c 65 20 21 3d 20 if ( CAfile !=
7cf0: 4e 55 4c 4c 20 29 20 7b 0a 20 20 20 20 20 20 20 NULL ) {.
7d00: 20 53 54 41 43 4b 5f 4f 46 28 58 35 30 39 5f 4e STACK_OF(X509_N
7d10: 41 4d 45 29 20 2a 63 65 72 74 4e 61 6d 65 73 20 AME) *certNames
7d20: 3d 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c 69 65 6e = SSL_load_clien
7d30: 74 5f 43 41 5f 66 69 6c 65 28 20 46 32 4e 28 43 t_CA_file( F2N(C
7d40: 41 66 69 6c 65 2c 20 26 64 73 29 20 29 3b 0a 09 Afile, &ds) );..
7d50: 69 66 20 28 20 63 65 72 74 4e 61 6d 65 73 20 21 if ( certNames !
7d60: 3d 20 4e 55 4c 4c 20 29 20 7b 20 0a 09 20 20 20 = NULL ) { ..
7d70: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 SSL_CTX_set_cli
7d80: 65 6e 74 5f 43 41 5f 6c 69 73 74 28 63 74 78 2c ent_CA_list(ctx,
7d90: 20 63 65 72 74 4e 61 6d 65 73 20 29 3b 0a 09 7d certNames );..}
7da0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f . }.. Tcl_
7db0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
7dc0: 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e ;. Tcl_DStrin
7dd0: 67 46 72 65 65 28 26 64 73 31 29 3b 0a 20 20 20 gFree(&ds1);.
7de0: 20 72 65 74 75 72 6e 20 63 74 78 3b 0a 7d 0a 0c return ctx;.}..
7df0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
7e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
7e40: 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 2d 2d 20 StatusObjCmd --
7e50: 72 65 74 75 72 6e 20 63 65 72 74 69 66 69 63 61 return certifica
7e60: 74 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 65 64 te for connected
7e70: 20 70 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 peer.. *. * Res
7e80: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
7e90: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a ard Tcl result..
7ea0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
7eb0: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
7ec0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f00: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
7f10: 20 69 6e 74 0a 53 74 61 74 75 73 4f 62 6a 43 6d int.StatusObjCm
7f20: 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e d(clientData, in
7f30: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
7f40: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ). ClientData
7f50: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 clientData;./*
7f60: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 Not used. */.
7f70: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
7f80: 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a erp;. int obj
7f90: 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a c;. Tcl_Obj.*
7fa0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a CONST objv[];.{.
7fb0: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
7fc0: 50 74 72 3b 0a 20 20 20 20 58 35 30 39 20 2a 70 Ptr;. X509 *p
7fd0: 65 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a eer;. Tcl_Obj
7fe0: 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 54 63 *objPtr;. Tc
7ff0: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a l_Channel chan;.
8000: 20 20 20 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 char *channe
8010: 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 65 72 73 3b lName, *ciphers;
8020: 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b 0a 0a . int mode;..
8030: 20 20 20 20 73 77 69 74 63 68 20 28 6f 62 6a 63 switch (objc
8040: 29 20 7b 0a 09 63 61 73 65 20 32 3a 0a 09 20 20 ) {..case 2:..
8050: 20 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 channelName =
8060: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
8070: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 mObj(objv[1], NU
8080: 4c 4c 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b LL);.. break;
8090: 0a 0a 09 63 61 73 65 20 33 3a 0a 09 20 20 20 20 ...case 3:..
80a0: 69 66 20 28 21 73 74 72 63 6d 70 20 28 54 63 6c if (!strcmp (Tcl
80b0: 5f 47 65 74 53 74 72 69 6e 67 20 28 6f 62 6a 76 _GetString (objv
80c0: 5b 31 5d 29 2c 20 22 2d 6c 6f 63 61 6c 22 29 29 [1]), "-local"))
80d0: 20 7b 0a 09 09 63 68 61 6e 6e 65 6c 4e 61 6d 65 {...channelName
80e0: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
80f0: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c FromObj(objv[2],
8100: 20 4e 55 4c 4c 29 3b 0a 09 09 62 72 65 61 6b 3b NULL);...break;
8110: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 2f 2a 20 .. }.. /*
8120: 65 6c 73 65 20 66 61 6c 6c 2e 2e 2e 20 2a 2f 0a else fall... */.
8130: 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 54 .default:.. T
8140: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
8150: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
8160: 20 22 3f 2d 6c 6f 63 61 6c 3f 20 63 68 61 6e 6e "?-local? chann
8170: 65 6c 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 el");.. retur
8180: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
8190: 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 }.. chan = T
81a0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
81b0: 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 4e 61 6d terp, channelNam
81c0: 65 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 e, &mode);. i
81d0: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
81e0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
81f0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
8200: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a OR;. }. /*
8210: 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 . * Make sur
8220: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
8230: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
8240: 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 nel. */.
8250: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
8260: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
8270: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 if (Tcl_GetC
8280: 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 hannelType(chan)
8290: 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 != Tls_ChannelT
82a0: 79 70 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 ype()) {..Tcl_Ap
82b0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
82c0: 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 p, "bad channel
82d0: 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e \"", Tcl_GetChan
82e0: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 nelName(chan),..
82f0: 09 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 ."\": not a TLS
8300: 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b channel", NULL);
8310: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
8320: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 OR;. }. st
8330: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
8340: 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 *) Tcl_GetChanne
8350: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 lInstanceData(ch
8360: 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a an);. if (obj
8370: 63 20 3d 3d 20 32 29 20 7b 0a 09 70 65 65 72 20 c == 2) {..peer
8380: 3d 20 53 53 4c 5f 67 65 74 5f 70 65 65 72 5f 63 = SSL_get_peer_c
8390: 65 72 74 69 66 69 63 61 74 65 28 73 74 61 74 65 ertificate(state
83a0: 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d Ptr->ssl);. }
83b0: 20 65 6c 73 65 20 7b 0a 09 70 65 65 72 20 3d 20 else {..peer =
83c0: 53 53 4c 5f 67 65 74 5f 63 65 72 74 69 66 69 63 SSL_get_certific
83d0: 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ate(statePtr->ss
83e0: 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 l);. }. if
83f0: 20 28 70 65 65 72 29 20 7b 0a 09 6f 62 6a 50 74 (peer) {..objPt
8400: 72 20 3d 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f r = Tls_NewX509O
8410: 62 6a 28 69 6e 74 65 72 70 2c 20 70 65 65 72 29 bj(interp, peer)
8420: 3b 0a 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 ;..if (objc == 2
8430: 29 20 7b 20 58 35 30 39 5f 66 72 65 65 28 70 65 ) { X509_free(pe
8440: 65 72 29 3b 20 7d 0a 20 20 20 20 7d 20 65 6c 73 er); }. } els
8450: 65 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 63 e {..objPtr = Tc
8460: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 l_NewListObj(0,
8470: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 NULL);. }..
8480: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
8490: 65 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 endElement (inte
84a0: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 rp, objPtr,..
84b0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
84c0: 6a 20 28 22 73 62 69 74 73 22 2c 20 2d 31 29 29 j ("sbits", -1))
84d0: 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ;. Tcl_ListOb
84e0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 20 28 jAppendElement (
84f0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
8500: 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f . Tcl_NewIntO
8510: 62 6a 20 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 bj (SSL_get_ciph
8520: 65 72 5f 62 69 74 73 20 28 73 74 61 74 65 50 74 er_bits (statePt
8530: 72 2d 3e 73 73 6c 2c 20 4e 55 4c 4c 29 29 29 3b r->ssl, NULL)));
8540: 0a 0a 20 20 20 20 63 69 70 68 65 72 73 20 3d 20 .. ciphers =
8550: 28 63 68 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63 (char*)SSL_get_c
8560: 69 70 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e ipher(statePtr->
8570: 73 73 6c 29 3b 0a 20 20 20 20 69 66 20 28 63 69 ssl);. if (ci
8580: 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c 20 26 26 phers != NULL &&
8590: 20 73 74 72 63 6d 70 28 63 69 70 68 65 72 73 2c strcmp(ciphers,
85a0: 20 22 28 4e 4f 4e 45 29 22 29 21 3d 30 29 20 7b "(NONE)")!=0) {
85b0: 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ..Tcl_ListObjApp
85c0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
85d0: 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c p, objPtr,...Tcl
85e0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 _NewStringObj("c
85f0: 69 70 68 65 72 22 2c 20 2d 31 29 29 3b 0a 09 54 ipher", -1));..T
8600: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
8610: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
8620: 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 objPtr,...Tcl_Ne
8630: 77 53 74 72 69 6e 67 4f 62 6a 28 53 53 4c 5f 67 wStringObj(SSL_g
8640: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
8650: 74 72 2d 3e 73 73 6c 29 2c 20 2d 31 29 29 3b 0a tr->ssl), -1));.
8660: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 }. Tcl_Se
8670: 74 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 tObjResult( inte
8680: 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 rp, objPtr);.
8690: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
86a0: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
86b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
86c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
86d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
86e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
86f0: 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 * VersionObjCmd
8700: 20 2d 2d 20 72 65 74 75 72 6e 20 76 65 72 73 69 -- return versi
8710: 6f 6e 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 4f on string from O
8720: 70 65 6e 53 53 4c 2e 0a 20 2a 0a 20 2a 20 52 65 penSSL.. *. * Re
8730: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
8740: 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e dard Tcl result.
8750: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
8760: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
8770: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
8780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
87a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
87b0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
87c0: 63 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f 62 6a c int.VersionObj
87d0: 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 Cmd(clientData,
87e0: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 interp, objc, ob
87f0: 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 jv). ClientDa
8800: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f ta clientData;./
8810: 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 * Not used. */.
8820: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
8830: 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f nterp;. int o
8840: 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a bjc;. Tcl_Obj
8850: 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a .*CONST objv[];.
8860: 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f {. Tcl_Obj *o
8870: 62 6a 50 74 72 3b 0a 0a 20 20 20 20 6f 62 6a 50 bjPtr;.. objP
8880: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 tr = Tcl_NewStri
8890: 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 ngObj(OPENSSL_VE
88a0: 52 53 49 4f 4e 5f 54 45 58 54 2c 20 2d 31 29 3b RSION_TEXT, -1);
88b0: 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a .. Tcl_SetObj
88c0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f Result(interp, o
88d0: 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 bjPtr);. retu
88e0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f rn TCL_OK;.}.../
88f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
8900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8930: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 -------. *. * Mi
8940: 73 63 4f 62 6a 43 6d 64 20 2d 2d 20 6d 69 73 63 scObjCmd -- misc
8950: 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 commands. *. *
8960: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
8970: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
8980: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
8990: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
89a0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
89b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
89c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
89d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
89e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
89f0: 74 69 63 20 69 6e 74 0a 4d 69 73 63 4f 62 6a 43 tic int.MiscObjC
8a00: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 md(clientData, i
8a10: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
8a20: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 v). ClientDat
8a30: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a a clientData;./*
8a40: 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 Not used. */.
8a50: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
8a60: 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 terp;. int ob
8a70: 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 jc;. Tcl_Obj.
8a80: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b *CONST objv[];.{
8a90: 0a 20 20 20 20 73 74 61 74 69 63 20 43 4f 4e 53 . static CONS
8aa0: 54 38 34 20 63 68 61 72 20 2a 63 6f 6d 6d 61 6e T84 char *comman
8ab0: 64 73 20 5b 5d 20 3d 20 7b 20 22 72 65 71 22 2c ds [] = { "req",
8ac0: 20 4e 55 4c 4c 20 7d 3b 0a 20 20 20 20 65 6e 75 NULL };. enu
8ad0: 6d 20 63 6f 6d 6d 61 6e 64 20 7b 20 43 5f 52 45 m command { C_RE
8ae0: 51 2c 20 43 5f 44 55 4d 4d 59 20 7d 3b 0a 20 20 Q, C_DUMMY };.
8af0: 20 20 69 6e 74 20 63 6d 64 3b 0a 0a 20 20 20 20 int cmd;..
8b00: 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a if (objc < 2) {.
8b10: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
8b20: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
8b30: 76 2c 20 22 73 75 62 63 6f 6d 6d 61 6e 64 20 3f v, "subcommand ?
8b40: 61 72 67 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e args?");..return
8b50: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
8b60: 7d 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 }. if (Tcl_Ge
8b70: 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e tIndexFromObj(in
8b80: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 63 terp, objv[1], c
8b90: 6f 6d 6d 61 6e 64 73 2c 0a 09 20 20 20 20 22 63 ommands,.. "c
8ba0: 6f 6d 6d 61 6e 64 22 2c 20 30 2c 26 63 6d 64 29 ommand", 0,&cmd)
8bb0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 != TCL_OK) {..r
8bc0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8bd0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 . }.. swit
8be0: 63 68 20 28 28 65 6e 75 6d 20 63 6f 6d 6d 61 6e ch ((enum comman
8bf0: 64 29 20 63 6d 64 29 20 7b 0a 09 63 61 73 65 20 d) cmd) {..case
8c00: 43 5f 52 45 51 3a 20 7b 0a 09 20 20 20 20 45 56 C_REQ: {.. EV
8c10: 50 5f 50 4b 45 59 20 2a 70 6b 65 79 3d 4e 55 4c P_PKEY *pkey=NUL
8c20: 4c 3b 0a 09 20 20 20 20 58 35 30 39 20 2a 63 65 L;.. X509 *ce
8c30: 72 74 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 58 35 rt=NULL;.. X5
8c40: 30 39 5f 4e 41 4d 45 20 2a 6e 61 6d 65 3d 4e 55 09_NAME *name=NU
8c50: 4c 4c 3b 0a 09 20 20 20 20 54 63 6c 5f 4f 62 6a LL;.. Tcl_Obj
8c60: 20 2a 2a 6c 69 73 74 76 3b 0a 09 20 20 20 20 69 **listv;.. i
8c70: 6e 74 20 6c 69 73 74 63 2c 69 3b 0a 0a 09 20 20 nt listc,i;...
8c80: 20 20 42 49 4f 20 2a 6f 75 74 3d 4e 55 4c 4c 3b BIO *out=NULL;
8c90: 0a 0a 09 20 20 20 20 63 68 61 72 20 2a 6b 5f 43 ... char *k_C
8ca0: 3d 22 22 2c 2a 6b 5f 53 54 3d 22 22 2c 2a 6b 5f ="",*k_ST="",*k_
8cb0: 4c 3d 22 22 2c 2a 6b 5f 4f 3d 22 22 2c 2a 6b 5f L="",*k_O="",*k_
8cc0: 4f 55 3d 22 22 2c 2a 6b 5f 43 4e 3d 22 22 2c 2a OU="",*k_CN="",*
8cd0: 6b 5f 45 6d 61 69 6c 3d 22 22 3b 0a 09 20 20 20 k_Email="";..
8ce0: 20 63 68 61 72 20 2a 6b 65 79 6f 75 74 2c 2a 70 char *keyout,*p
8cf0: 65 6d 6f 75 74 2c 2a 73 74 72 3b 0a 09 20 20 20 emout,*str;..
8d00: 20 69 6e 74 20 6b 65 79 73 69 7a 65 2c 73 65 72 int keysize,ser
8d10: 69 61 6c 3d 30 2c 64 61 79 73 3d 33 36 35 3b 0a ial=0,days=365;.
8d20: 09 20 20 20 20 0a 09 20 20 20 20 69 66 20 28 28 . .. if ((
8d30: 6f 62 6a 63 3c 35 29 20 7c 7c 20 28 6f 62 6a 63 objc<5) || (objc
8d40: 3e 36 29 29 20 7b 0a 09 09 54 63 6c 5f 57 72 6f >6)) {...Tcl_Wro
8d50: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
8d60: 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 6b 65 79 73 , 2, objv, "keys
8d70: 69 7a 65 20 6b 65 79 66 69 6c 65 20 63 65 72 74 ize keyfile cert
8d80: 66 69 6c 65 20 3f 69 6e 66 6f 3f 22 29 3b 0a 09 file ?info?");..
8d90: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
8da0: 52 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 R;.. }...
8db0: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
8dc0: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 omObj(interp, ob
8dd0: 6a 76 5b 32 5d 2c 20 26 6b 65 79 73 69 7a 65 29 jv[2], &keysize)
8de0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 != TCL_OK) {...
8df0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8e00: 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 6b 65 ;.. }.. ke
8e10: 79 6f 75 74 3d 54 63 6c 5f 47 65 74 53 74 72 69 yout=Tcl_GetStri
8e20: 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 09 20 20 ng(objv[3]);..
8e30: 20 20 70 65 6d 6f 75 74 3d 54 63 6c 5f 47 65 74 pemout=Tcl_Get
8e40: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d 29 3b String(objv[4]);
8e50: 0a 0a 09 20 20 20 20 69 66 20 28 6f 62 6a 63 3e ... if (objc>
8e60: 3d 36 29 20 7b 0a 09 09 69 66 20 28 54 63 6c 5f =6) {...if (Tcl_
8e70: 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e ListObjGetElemen
8e80: 74 73 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b ts(interp, objv[
8e90: 35 5d 2c 0a 09 09 09 26 6c 69 73 74 63 2c 20 26 5],....&listc, &
8ea0: 6c 69 73 74 76 29 20 21 3d 20 54 43 4c 5f 4f 4b listv) != TCL_OK
8eb0: 29 20 7b 0a 09 09 20 20 20 20 72 65 74 75 72 6e ) {... return
8ec0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a TCL_ERROR;...}.
8ed0: 0a 09 09 69 66 20 28 28 6c 69 73 74 63 25 32 29 ...if ((listc%2)
8ee0: 20 21 3d 20 30 29 20 7b 0a 09 09 20 20 20 20 54 != 0) {... T
8ef0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
8f00: 65 72 70 2c 22 49 6e 66 6f 72 6d 61 74 69 6f 6e erp,"Information
8f10: 20 6c 69 73 74 20 6d 75 73 74 20 68 61 76 65 20 list must have
8f20: 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f 66 20 61 even number of a
8f30: 72 67 75 6d 65 6e 74 73 22 2c 4e 55 4c 4c 29 3b rguments",NULL);
8f40: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
8f50: 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 66 L_ERROR;...}...f
8f60: 6f 72 20 28 69 3d 30 3b 20 69 3c 6c 69 73 74 63 or (i=0; i<listc
8f70: 3b 20 69 2b 3d 32 29 20 7b 0a 09 09 20 20 20 20 ; i+=2) {...
8f80: 73 74 72 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e str=Tcl_GetStrin
8f90: 67 28 6c 69 73 74 76 5b 69 5d 29 3b 0a 09 09 20 g(listv[i]);...
8fa0: 20 20 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 if (strcmp(st
8fb0: 72 2c 22 64 61 79 73 22 29 3d 3d 30 29 20 7b 0a r,"days")==0) {.
8fc0: 09 09 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e ...if (Tcl_GetIn
8fd0: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
8fe0: 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 64 61 79 73 listv[i+1],&days
8ff0: 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 )!=TCL_OK)....
9000: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
9010: 4f 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 OR;... } else
9020: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
9030: 22 73 65 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a "serial")==0) {.
9040: 09 09 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e ...if (Tcl_GetIn
9050: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
9060: 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 listv[i+1],&seri
9070: 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 al)!=TCL_OK)....
9080: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
9090: 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c RROR;... } el
90a0: 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 se if (strcmp(st
90b0: 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d 30 29 20 r,"serial")==0)
90c0: 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 65 74 {....if (Tcl_Get
90d0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
90e0: 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 73 65 p,listv[i+1],&se
90f0: 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 rial)!=TCL_OK)..
9100: 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
9110: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 _ERROR;... }
9120: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
9130: 73 74 72 2c 22 43 22 29 3d 3d 30 29 20 7b 0a 09 str,"C")==0) {..
9140: 09 09 6b 5f 43 3d 54 63 6c 5f 47 65 74 53 74 72 ..k_C=Tcl_GetStr
9150: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b ing(listv[i+1]);
9160: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
9170: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 53 54 (strcmp(str,"ST
9180: 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 53 54 ")==0) {....k_ST
9190: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
91a0: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 istv[i+1]);...
91b0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
91c0: 63 6d 70 28 73 74 72 2c 22 4c 22 29 3d 3d 30 29 cmp(str,"L")==0)
91d0: 20 7b 0a 09 09 09 6b 5f 4c 3d 54 63 6c 5f 47 65 {....k_L=Tcl_Ge
91e0: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
91f0: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
9200: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 e if (strcmp(str
9210: 2c 22 4f 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b ,"O")==0) {....k
9220: 5f 4f 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 _O=Tcl_GetString
9230: 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 (listv[i+1]);...
9240: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 } else if (s
9250: 74 72 63 6d 70 28 73 74 72 2c 22 4f 55 22 29 3d trcmp(str,"OU")=
9260: 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 55 3d 54 63 =0) {....k_OU=Tc
9270: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
9280: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
9290: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
92a0: 28 73 74 72 2c 22 43 4e 22 29 3d 3d 30 29 20 7b (str,"CN")==0) {
92b0: 0a 09 09 09 6b 5f 43 4e 3d 54 63 6c 5f 47 65 74 ....k_CN=Tcl_Get
92c0: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 String(listv[i+1
92d0: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 ]);... } else
92e0: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
92f0: 22 45 6d 61 69 6c 22 29 3d 3d 30 29 20 7b 0a 09 "Email")==0) {..
9300: 09 09 6b 5f 45 6d 61 69 6c 3d 54 63 6c 5f 47 65 ..k_Email=Tcl_Ge
9310: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
9320: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
9330: 65 20 7b 0a 09 09 09 54 63 6c 5f 53 65 74 52 65 e {....Tcl_SetRe
9340: 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 55 6e 6b sult(interp,"Unk
9350: 6e 6f 77 6e 20 70 61 72 61 6d 65 74 65 72 22 2c nown parameter",
9360: 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 74 75 72 6e NULL);....return
9370: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 TCL_ERROR;...
9380: 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 }...}.. }..
9390: 20 20 20 20 69 66 20 28 28 70 6b 65 79 20 3d 20 if ((pkey =
93a0: 45 56 50 5f 50 4b 45 59 5f 6e 65 77 28 29 29 20 EVP_PKEY_new())
93b0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 69 66 20 != NULL) {...if
93c0: 28 21 45 56 50 5f 50 4b 45 59 5f 61 73 73 69 67 (!EVP_PKEY_assig
93d0: 6e 5f 52 53 41 28 70 6b 65 79 2c 0a 09 09 09 52 n_RSA(pkey,....R
93e0: 53 41 5f 67 65 6e 65 72 61 74 65 5f 6b 65 79 28 SA_generate_key(
93f0: 6b 65 79 73 69 7a 65 2c 20 30 78 31 30 30 30 31 keysize, 0x10001
9400: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 29 29 20 , NULL, NULL)))
9410: 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 {... Tcl_SetR
9420: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 esult(interp,"Er
9430: 72 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 70 ror generating p
9440: 72 69 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c rivate key",NULL
9450: 29 3b 0a 09 09 20 20 20 20 45 56 50 5f 50 4b 45 );... EVP_PKE
9460: 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 Y_free(pkey);...
9470: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
9480: 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 6f 75 74 3d RROR;...}...out=
9490: 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 66 69 BIO_new(BIO_s_fi
94a0: 6c 65 28 29 29 3b 0a 09 09 42 49 4f 5f 77 72 69 le());...BIO_wri
94b0: 74 65 5f 66 69 6c 65 6e 61 6d 65 28 6f 75 74 2c te_filename(out,
94c0: 6b 65 79 6f 75 74 29 3b 0a 09 09 50 45 4d 5f 77 keyout);...PEM_w
94d0: 72 69 74 65 5f 62 69 6f 5f 50 72 69 76 61 74 65 rite_bio_Private
94e0: 4b 65 79 28 6f 75 74 2c 70 6b 65 79 2c 4e 55 4c Key(out,pkey,NUL
94f0: 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 L,NULL,0,NULL,NU
9500: 4c 4c 29 3b 0a 09 09 42 49 4f 5f 66 72 65 65 5f LL);...BIO_free_
9510: 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 69 66 20 all(out);....if
9520: 28 28 63 65 72 74 3d 58 35 30 39 5f 6e 65 77 28 ((cert=X509_new(
9530: 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a 09 09 20 20 ))==NULL) {...
9540: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
9550: 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67 65 interp,"Error ge
9560: 6e 65 72 61 74 69 6e 67 20 63 65 72 74 69 66 69 nerating certifi
9570: 63 61 74 65 20 72 65 71 75 65 73 74 22 2c 4e 55 cate request",NU
9580: 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 50 5f 50 LL);... EVP_P
9590: 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a KEY_free(pkey);.
95a0: 09 09 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c .. return(TCL
95b0: 5f 45 52 52 4f 52 29 3b 0a 09 09 7d 0a 0a 09 09 _ERROR);...}....
95c0: 58 35 30 39 5f 73 65 74 5f 76 65 72 73 69 6f 6e X509_set_version
95d0: 28 63 65 72 74 2c 32 29 3b 0a 09 09 41 53 4e 31 (cert,2);...ASN1
95e0: 5f 49 4e 54 45 47 45 52 5f 73 65 74 28 58 35 30 _INTEGER_set(X50
95f0: 39 5f 67 65 74 5f 73 65 72 69 61 6c 4e 75 6d 62 9_get_serialNumb
9600: 65 72 28 63 65 72 74 29 2c 73 65 72 69 61 6c 29 er(cert),serial)
9610: 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f ;...X509_gmtime_
9620: 61 64 6a 28 58 35 30 39 5f 67 65 74 5f 6e 6f 74 adj(X509_get_not
9630: 42 65 66 6f 72 65 28 63 65 72 74 29 2c 30 29 3b Before(cert),0);
9640: 0a 09 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 ...X509_gmtime_a
9650: 64 6a 28 58 35 30 39 5f 67 65 74 5f 6e 6f 74 41 dj(X509_get_notA
9660: 66 74 65 72 28 63 65 72 74 29 2c 28 6c 6f 6e 67 fter(cert),(long
9670: 29 36 30 2a 36 30 2a 32 34 2a 64 61 79 73 29 3b )60*60*24*days);
9680: 0a 09 09 58 35 30 39 5f 73 65 74 5f 70 75 62 6b ...X509_set_pubk
9690: 65 79 28 63 65 72 74 2c 70 6b 65 79 29 3b 0a 09 ey(cert,pkey);..
96a0: 09 0a 09 09 6e 61 6d 65 3d 58 35 30 39 5f 67 65 ....name=X509_ge
96b0: 74 5f 73 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 t_subject_name(c
96c0: 65 72 74 29 3b 0a 0a 09 09 58 35 30 39 5f 4e 41 ert);....X509_NA
96d0: 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f ME_add_entry_by_
96e0: 74 78 74 28 6e 61 6d 65 2c 22 43 22 2c 20 4d 42 txt(name,"C", MB
96f0: 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 STRING_ASC, (uns
9700: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f igned char *) k_
9710: 43 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 C, -1, -1, 0);..
9720: 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 .X509_NAME_add_e
9730: 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 ntry_by_txt(name
9740: 2c 22 53 54 22 2c 20 4d 42 53 54 52 49 4e 47 5f ,"ST", MBSTRING_
9750: 41 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 ASC, (unsigned c
9760: 68 61 72 20 2a 29 20 6b 5f 53 54 2c 20 2d 31 2c har *) k_ST, -1,
9770: 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f -1, 0);...X509_
9780: 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 NAME_add_entry_b
9790: 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4c 22 2c 20 y_txt(name,"L",
97a0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 MBSTRING_ASC, (u
97b0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
97c0: 6b 5f 4c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b k_L, -1, -1, 0);
97d0: 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 ...X509_NAME_add
97e0: 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 _entry_by_txt(na
97f0: 6d 65 2c 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 me,"O", MBSTRING
9800: 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 _ASC, (unsigned
9810: 63 68 61 72 20 2a 29 20 6b 5f 4f 2c 20 2d 31 2c char *) k_O, -1,
9820: 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f -1, 0);...X509_
9830: 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 NAME_add_entry_b
9840: 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4f 55 22 2c y_txt(name,"OU",
9850: 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 MBSTRING_ASC, (
9860: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
9870: 20 6b 5f 4f 55 2c 20 2d 31 2c 20 2d 31 2c 20 30 k_OU, -1, -1, 0
9880: 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 );...X509_NAME_a
9890: 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 dd_entry_by_txt(
98a0: 6e 61 6d 65 2c 22 43 4e 22 2c 20 4d 42 53 54 52 name,"CN", MBSTR
98b0: 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e ING_ASC, (unsign
98c0: 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 43 4e 2c ed char *) k_CN,
98d0: 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 -1, -1, 0);...X
98e0: 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 509_NAME_add_ent
98f0: 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 ry_by_txt(name,"
9900: 45 6d 61 69 6c 22 2c 20 4d 42 53 54 52 49 4e 47 Email", MBSTRING
9910: 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 _ASC, (unsigned
9920: 63 68 61 72 20 2a 29 20 6b 5f 45 6d 61 69 6c 2c char *) k_Email,
9930: 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 0a 09 09 -1, -1, 0);....
9940: 58 35 30 39 5f 73 65 74 5f 73 75 62 6a 65 63 74 X509_set_subject
9950: 5f 6e 61 6d 65 28 63 65 72 74 2c 6e 61 6d 65 29 _name(cert,name)
9960: 3b 0a 0a 09 09 69 66 20 28 21 58 35 30 39 5f 73 ;....if (!X509_s
9970: 69 67 6e 28 63 65 72 74 2c 70 6b 65 79 2c 45 56 ign(cert,pkey,EV
9980: 50 5f 6d 64 35 28 29 29 29 20 7b 0a 09 09 20 20 P_md5())) {...
9990: 20 20 58 35 30 39 5f 66 72 65 65 28 63 65 72 74 X509_free(cert
99a0: 29 3b 0a 09 09 20 20 20 20 45 56 50 5f 50 4b 45 );... EVP_PKE
99b0: 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 Y_free(pkey);...
99c0: 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
99d0: 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 t(interp,"Error
99e0: 73 69 67 6e 69 6e 67 20 63 65 72 74 69 66 69 63 signing certific
99f0: 61 74 65 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 ate",NULL);...
9a00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
9a10: 4f 52 3b 0a 09 09 7d 0a 0a 09 09 6f 75 74 3d 42 OR;...}....out=B
9a20: 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 66 69 6c IO_new(BIO_s_fil
9a30: 65 28 29 29 3b 0a 09 09 42 49 4f 5f 77 72 69 74 e());...BIO_writ
9a40: 65 5f 66 69 6c 65 6e 61 6d 65 28 6f 75 74 2c 70 e_filename(out,p
9a50: 65 6d 6f 75 74 29 3b 0a 0a 09 09 50 45 4d 5f 77 emout);....PEM_w
9a60: 72 69 74 65 5f 62 69 6f 5f 58 35 30 39 28 6f 75 rite_bio_X509(ou
9a70: 74 2c 63 65 72 74 29 3b 0a 09 09 42 49 4f 5f 66 t,cert);...BIO_f
9a80: 72 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 ree_all(out);...
9a90: 09 58 35 30 39 5f 66 72 65 65 28 63 65 72 74 29 .X509_free(cert)
9aa0: 3b 0a 09 09 45 56 50 5f 50 4b 45 59 5f 66 72 65 ;...EVP_PKEY_fre
9ab0: 65 28 70 6b 65 79 29 3b 0a 09 20 20 20 20 7d 20 e(pkey);.. }
9ac0: 65 6c 73 65 20 7b 0a 09 09 54 63 6c 5f 53 65 74 else {...Tcl_Set
9ad0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 Result(interp,"E
9ae0: 72 72 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 rror generating
9af0: 70 72 69 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c private key",NUL
9b00: 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c L);...return TCL
9b10: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 _ERROR;.. }..
9b20: 7d 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 }..break;. de
9b30: 66 61 75 6c 74 3a 0a 09 62 72 65 61 6b 3b 0a 20 fault:..break;.
9b40: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
9b50: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 TCL_OK;.}.../*.
9b60: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
9b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ba0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 46 ----. *. * Tls_F
9bb0: 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 ree --. *. *.Thi
9bc0: 73 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 s procedure clea
9bd0: 6e 73 20 75 70 20 77 68 65 6e 20 61 20 53 53 4c ns up when a SSL
9be0: 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 socket based ch
9bf0: 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 annel. *.is clos
9c00: 65 64 20 61 6e 64 20 69 74 73 20 72 65 66 65 72 ed and its refer
9c10: 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 ence count falls
9c20: 20 62 65 6c 6f 77 20 31 0a 20 2a 0a 20 2a 20 52 below 1. *. * R
9c30: 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a esults:. *.none.
9c40: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
9c50: 74 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c ts:. *.Frees all
9c60: 20 74 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a the state. *. *
9c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cb0: 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 ---. */.void.Tls
9cc0: 5f 46 72 65 65 28 20 63 68 61 72 20 2a 62 6c 6f _Free( char *blo
9cd0: 63 6b 50 74 72 20 29 0a 7b 0a 20 20 20 20 53 74 ckPtr ).{. St
9ce0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
9cf0: 28 53 74 61 74 65 20 2a 29 62 6c 6f 63 6b 50 74 (State *)blockPt
9d00: 72 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 r;.. Tls_Clea
9d10: 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 n(statePtr);.
9d20: 20 63 6b 66 72 65 65 28 62 6c 6f 63 6b 50 74 72 ckfree(blockPtr
9d30: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d );.}.../*. *----
9d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9d80: 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 61 6e 20 *. * Tls_Clean
9d90: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
9da0: 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 75 ocedure cleans u
9db0: 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 p when a SSL soc
9dc0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
9dd0: 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 l. *.is closed a
9de0: 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 65 nd its reference
9df0: 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c count falls bel
9e00: 6f 77 20 31 2e 20 20 54 68 69 73 20 73 68 6f 75 ow 1. This shou
9e10: 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c 65 64 20 ld. *.be called
9e20: 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 62 79 synchronously by
9e30: 20 74 68 65 20 43 6c 6f 73 65 50 72 6f 63 2c 20 the CloseProc,
9e40: 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a 09 45 76 not in the. *.Ev
9e50: 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 63 61 6c entuallyFree cal
9e60: 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65 73 lback.. *. * Res
9e70: 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ults:. *.none. *
9e80: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
9e90: 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 :. *.Frees all t
9ea0: 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d he state. *. *--
9eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ef0: 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 43 -. */.void.Tls_C
9f00: 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 74 61 74 lean(State *stat
9f10: 65 50 74 72 29 0a 7b 0a 20 20 20 20 2f 2a 0a 20 ePtr).{. /*.
9f20: 20 20 20 20 2a 20 77 65 27 72 65 20 61 73 73 75 * we're assu
9f30: 6d 69 6e 67 20 68 65 72 65 20 74 68 61 74 20 77 ming here that w
9f40: 65 27 72 65 20 73 69 6e 67 6c 65 2d 74 68 72 65 e're single-thre
9f50: 61 64 65 64 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 aded. */..
9f60: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
9f70: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
9f80: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
9f90: 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d {..Tcl_DeleteTim
9fa0: 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 erHandler(stateP
9fb0: 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 tr->timer);..sta
9fc0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 4e tePtr->timer = N
9fd0: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ULL;. }..
9fe0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 62 69 if (statePtr->bi
9ff0: 6f 29 20 7b 0a 09 2f 2a 20 54 68 69 73 20 77 69 o) {../* This wi
a000: 6c 6c 20 63 61 6c 6c 20 53 53 4c 5f 73 68 75 74 ll call SSL_shut
a010: 64 6f 77 6e 2e 20 42 75 67 20 31 34 31 34 30 34 down. Bug 141404
a020: 35 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 42 5 */..dprintf("B
a030: 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 25 70 29 22 IO_free_all(%p)"
a040: 2c 20 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 , statePtr->bio)
a050: 3b 0a 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 ;..BIO_free_all(
a060: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
a070: 09 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 20 3d .statePtr->bio =
a080: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL;. }.
a090: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
a0a0: 73 6c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 sl) {..dprintf("
a0b0: 53 53 4c 5f 66 72 65 65 28 25 70 29 22 2c 20 73 SSL_free(%p)", s
a0c0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 tatePtr->ssl);..
a0d0: 53 53 4c 5f 66 72 65 65 28 73 74 61 74 65 50 74 SSL_free(statePt
a0e0: 72 2d 3e 73 73 6c 29 3b 0a 09 73 74 61 74 65 50 r->ssl);..stateP
a0f0: 74 72 2d 3e 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a tr->ssl = NULL;.
a100: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 }. if (st
a110: 61 74 65 50 74 72 2d 3e 63 74 78 29 20 7b 0a 09 atePtr->ctx) {..
a120: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 73 74 61 SSL_CTX_free(sta
a130: 74 65 50 74 72 2d 3e 63 74 78 29 3b 0a 09 73 74 tePtr->ctx);..st
a140: 61 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 atePtr->ctx = NU
a150: 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 LL;. }. if
a160: 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c (statePtr->call
a170: 62 61 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 65 63 back) {..Tcl_Dec
a180: 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 rRefCount(stateP
a190: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 tr->callback);..
a1a0: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
a1b0: 63 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d ck = NULL;. }
a1c0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
a1d0: 72 2d 3e 70 61 73 73 77 6f 72 64 29 20 7b 0a 09 r->password) {..
a1e0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
a1f0: 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 (statePtr->passw
a200: 6f 72 64 29 3b 0a 09 73 74 61 74 65 50 74 72 2d ord);..statePtr-
a210: 3e 70 61 73 73 77 6f 72 64 20 3d 20 4e 55 4c 4c >password = NULL
a220: 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 ;. }.}.../*.
a230: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
a240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a270: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 ----. *. * Tls_I
a280: 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 nit --. *. *.Thi
a290: 73 20 69 73 20 61 20 70 61 63 6b 61 67 65 20 69 s is a package i
a2a0: 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 70 72 nitialization pr
a2b0: 6f 63 65 64 75 72 65 2c 20 77 68 69 63 68 20 69 ocedure, which i
a2c0: 73 20 63 61 6c 6c 65 64 0a 20 2a 09 62 79 20 54 s called. *.by T
a2d0: 63 6c 20 77 68 65 6e 20 74 68 69 73 20 70 61 63 cl when this pac
a2e0: 6b 61 67 65 20 69 73 20 74 6f 20 62 65 20 61 64 kage is to be ad
a2f0: 64 65 64 20 74 6f 20 61 6e 20 69 6e 74 65 72 70 ded to an interp
a300: 72 65 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 reter.. *. * Res
a310: 75 6c 74 73 3a 20 20 53 73 6c 20 63 6f 6e 66 69 ults: Ssl confi
a320: 67 75 72 65 64 20 61 6e 64 20 6c 6f 61 64 65 64 gured and loaded
a330: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
a340: 63 74 73 3a 0a 20 2a 09 20 63 72 65 61 74 65 20 cts:. *. create
a350: 74 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 2c the ssl command,
a360: 20 69 6e 69 74 69 61 6c 69 73 65 20 73 73 6c 20 initialise ssl
a370: 63 6f 6e 74 65 78 74 0a 20 2a 0a 20 2a 2d 2d 2d context. *. *---
a380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a3a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a3b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a3c0: 0a 20 2a 2f 0a 0a 69 6e 74 20 54 6c 73 5f 49 6e . */..int Tls_In
a3d0: 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 it(Tcl_Interp *i
a3e0: 6e 74 65 72 70 29 20 7b 0a 09 63 6f 6e 73 74 20 nterp) {..const
a3f0: 63 68 61 72 20 74 6c 73 54 63 6c 49 6e 69 74 53 char tlsTclInitS
a400: 63 72 69 70 74 5b 5d 20 3d 20 7b 0a 23 69 6e 63 cript[] = {.#inc
a410: 6c 75 64 65 20 22 74 6c 73 2e 74 63 6c 2e 68 22 lude "tls.tcl.h"
a420: 0a 09 7d 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 57 65 ..};.../*.. * We
a430: 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 20 54 63 only support Tc
a440: 6c 20 38 2e 34 20 6f 72 20 6e 65 77 65 72 0a 09 l 8.4 or newer..
a450: 20 2a 2f 0a 09 69 66 20 28 0a 23 69 66 64 65 66 */..if (.#ifdef
a460: 20 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 0a 09 USE_TCL_STUBS..
a470: 20 20 20 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 Tcl_InitStub
a480: 73 28 69 6e 74 65 72 70 2c 20 22 38 2e 34 22 2c s(interp, "8.4",
a490: 20 30 29 0a 23 65 6c 73 65 0a 09 20 20 20 20 54 0).#else.. T
a4a0: 63 6c 5f 50 6b 67 52 65 71 75 69 72 65 28 69 6e cl_PkgRequire(in
a4b0: 74 65 72 70 2c 20 22 54 63 6c 22 2c 20 22 38 2e terp, "Tcl", "8.
a4c0: 34 22 2c 20 30 29 0a 23 65 6e 64 69 66 0a 09 20 4", 0).#endif..
a4d0: 20 20 20 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 == NULL) {..
a4e0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
a4f0: 52 3b 0a 09 7d 0a 0a 09 69 66 20 28 54 6c 73 4c R;..}...if (TlsL
a500: 69 62 49 6e 69 74 28 30 29 20 21 3d 20 54 43 4c ibInit(0) != TCL
a510: 5f 4f 4b 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 _OK) {...Tcl_App
a520: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
a530: 2c 20 22 63 6f 75 6c 64 20 6e 6f 74 20 69 6e 69 , "could not ini
a540: 74 69 61 6c 69 7a 65 20 53 53 4c 20 6c 69 62 72 tialize SSL libr
a550: 61 72 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 ary", NULL);...r
a560: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a570: 0a 09 7d 0a 0a 09 54 63 6c 5f 43 72 65 61 74 65 ..}...Tcl_Create
a580: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
a590: 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 p, "tls::ciphers
a5a0: 22 2c 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 ", CiphersObjCmd
a5b0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
a5c0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
a5d0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 Proc *) NULL);..
a5e0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
a5f0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
a600: 73 3a 3a 68 61 6e 64 73 68 61 6b 65 22 2c 20 48 s::handshake", H
a610: 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 2c 20 andshakeObjCmd,
a620: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
a630: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
a640: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 oc *) NULL);..Tc
a650: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
a660: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
a670: 3a 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 :import", Import
a680: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
a690: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
a6a0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
a6b0: 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 LL);..Tcl_Create
a6c0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
a6d0: 70 2c 20 22 74 6c 73 3a 3a 75 6e 69 6d 70 6f 72 p, "tls::unimpor
a6e0: 74 22 2c 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 t", UnimportObjC
a6f0: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
a700: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
a710: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
a720: 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 ..Tcl_CreateObjC
a730: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
a740: 74 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 tls::status", St
a750: 61 74 75 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 atusObjCmd, (Cli
a760: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
a770: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
a780: 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 ) NULL);..Tcl_Cr
a790: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
a7a0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 76 65 72 nterp, "tls::ver
a7b0: 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f 6e 4f 62 sion", VersionOb
a7c0: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
a7d0: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
a7e0: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
a7f0: 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 );..Tcl_CreateOb
a800: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
a810: 20 22 74 6c 73 3a 3a 6d 69 73 63 22 2c 20 4d 69 "tls::misc", Mi
a820: 73 63 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e scObjCmd, (Clien
a830: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
a840: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
a850: 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 69 6e 74 NULL);...if (int
a860: 65 72 70 29 20 7b 0a 09 09 54 63 6c 5f 45 76 61 erp) {...Tcl_Eva
a870: 6c 28 69 6e 74 65 72 70 2c 20 74 6c 73 54 63 6c l(interp, tlsTcl
a880: 49 6e 69 74 53 63 72 69 70 74 29 3b 0a 09 7d 0a InitScript);..}.
a890: 0a 09 72 65 74 75 72 6e 28 54 63 6c 5f 50 6b 67 ..return(Tcl_Pkg
a8a0: 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20 Provide(interp,
a8b0: 22 74 6c 73 22 2c 20 50 41 43 4b 41 47 45 5f 56 "tls", PACKAGE_V
a8c0: 45 52 53 49 4f 4e 29 29 3b 0a 7d 0a 0a 2f 2a 0a ERSION));.}../*.
a8d0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
a8e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a8f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a900: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 --------*. *. *.
a910: 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0a Tls_SafeInit --.
a920: 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *.----------
a930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a950: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e 64 ------*. *.Stand
a960: 61 72 64 20 70 72 6f 63 65 64 75 72 65 20 72 65 ard procedure re
a970: 71 75 69 72 65 64 20 62 79 20 27 6c 6f 61 64 27 quired by 'load'
a980: 2e 20 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 . . *.Initialize
a990: 73 20 74 68 69 73 20 65 78 74 65 6e 73 69 6f 6e s this extension
a9a0: 20 66 6f 72 20 61 20 73 61 66 65 20 69 6e 74 65 for a safe inte
a9b0: 72 70 72 65 74 65 72 2e 0a 20 2a 09 2d 2d 2d 2d rpreter.. *.----
a9c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a9d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a9e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
a9f0: 0a 20 2a 09 53 69 64 65 65 66 66 65 63 74 73 3a . *.Sideeffects:
aa00: 0a 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73 5f . *..As of 'Tls_
aa10: 49 6e 69 74 27 0a 20 2a 0a 20 2a 09 52 65 73 75 Init'. *. *.Resu
aa20: 6c 74 3a 0a 20 2a 09 09 41 20 73 74 61 6e 64 61 lt:. *..A standa
aa30: 72 64 20 54 63 6c 20 65 72 72 6f 72 20 63 6f 64 rd Tcl error cod
aa40: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
aa50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
aa80: 20 2a 2f 0a 0a 69 6e 74 20 54 6c 73 5f 53 61 66 */..int Tls_Saf
aa90: 65 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 eInit(Tcl_Interp
aaa0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 09 72 65 74 *interp) {..ret
aab0: 75 72 6e 28 54 6c 73 5f 49 6e 69 74 28 69 6e 74 urn(Tls_Init(int
aac0: 65 72 70 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d erp));.}../*. *-
aad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aaf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab00: 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 -----*. *. *.Tls
ab10: 4c 69 62 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a LibInit --. *. *
ab20: 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .---------------
ab30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab50: 2d 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 -*. *.Initialize
ab60: 73 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 6e s SSL library on
ab70: 63 65 20 70 65 72 20 61 70 70 6c 69 63 61 74 69 ce per applicati
ab80: 6f 6e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d on. *.----------
ab90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
abb0: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 ------*. *. *.Si
abc0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 de effects:. *..
abd0: 69 6e 69 74 69 6c 69 7a 65 73 20 53 53 4c 20 6c initilizes SSL l
abe0: 69 62 72 61 72 79 0a 20 2a 0a 20 2a 09 52 65 73 ibrary. *. *.Res
abf0: 75 6c 74 3a 0a 20 2a 09 09 6e 6f 6e 65 0a 20 2a ult:. *..none. *
ac00: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
ac10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ac30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 73 ---------*. */.s
ac40: 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4c 69 62 tatic int TlsLib
ac50: 49 6e 69 74 28 69 6e 74 20 75 6e 69 6e 69 74 69 Init(int uniniti
ac60: 61 6c 69 7a 65 29 20 7b 0a 09 73 74 61 74 69 63 alize) {..static
ac70: 20 69 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 int initialized
ac80: 20 3d 20 30 3b 0a 09 69 6e 74 20 73 74 61 74 75 = 0;..int statu
ac90: 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 23 69 66 20 s = TCL_OK;.#if
aca0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
acb0: 54 48 52 45 41 44 53 29 20 26 26 20 64 65 66 69 THREADS) && defi
acc0: 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 ned(TCL_THREADS)
acd0: 0a 09 73 69 7a 65 5f 74 20 6e 75 6d 5f 6c 6f 63 ..size_t num_loc
ace0: 6b 73 3b 0a 23 65 6e 64 69 66 0a 0a 09 69 66 20 ks;.#endif...if
acf0: 28 75 6e 69 6e 69 74 69 61 6c 69 7a 65 29 20 7b (uninitialize) {
ad00: 0a 09 09 69 66 20 28 21 69 6e 69 74 69 61 6c 69 ...if (!initiali
ad10: 7a 65 64 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 zed) {....dprint
ad20: 66 28 22 41 73 6b 65 64 20 74 6f 20 75 6e 69 6e f("Asked to unin
ad30: 69 74 69 61 6c 69 7a 65 2c 20 62 75 74 20 77 65 itialize, but we
ad40: 20 61 72 65 20 6e 6f 74 20 69 6e 69 74 69 61 6c are not initial
ad50: 69 7a 65 64 22 29 3b 0a 0a 09 09 09 72 65 74 75 ized");.....retu
ad60: 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 09 09 7d 0a rn(TCL_OK);...}.
ad70: 0a 09 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 ...dprintf("Aske
ad80: 64 20 74 6f 20 75 6e 69 6e 69 74 69 61 6c 69 7a d to uninitializ
ad90: 65 22 29 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 e");..#if define
ada0: 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 d(OPENSSL_THREAD
adb0: 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 S) && defined(TC
adc0: 4c 5f 54 48 52 45 41 44 53 29 0a 09 09 54 63 6c L_THREADS)...Tcl
add0: 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 69 6e 69 74 _MutexLock(&init
ade0: 5f 6d 78 29 3b 0a 0a 09 09 43 52 59 50 54 4f 5f _mx);....CRYPTO_
adf0: 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 61 6c 6c set_locking_call
ae00: 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 09 09 43 52 back(NULL);...CR
ae10: 59 50 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c 6c YPTO_set_id_call
ae20: 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 0a 09 09 69 back(NULL);....i
ae30: 66 20 28 6c 6f 63 6b 73 29 20 7b 0a 09 09 09 66 f (locks) {....f
ae40: 72 65 65 28 6c 6f 63 6b 73 29 3b 0a 09 09 09 6c ree(locks);....l
ae50: 6f 63 6b 73 20 3d 20 4e 55 4c 4c 3b 0a 09 09 7d ocks = NULL;...}
ae60: 0a 23 65 6e 64 69 66 0a 09 09 69 6e 69 74 69 61 .#endif...initia
ae70: 6c 69 7a 65 64 20 3d 20 30 3b 0a 0a 23 69 66 20 lized = 0;..#if
ae80: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
ae90: 54 48 52 45 41 44 53 29 20 26 26 20 64 65 66 69 THREADS) && defi
aea0: 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 ned(TCL_THREADS)
aeb0: 0a 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f ...Tcl_MutexUnlo
aec0: 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 ck(&init_mx);.#e
aed0: 6e 64 69 66 0a 0a 09 09 72 65 74 75 72 6e 28 54 ndif....return(T
aee0: 43 4c 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 66 20 CL_OK);..}...if
aef0: 28 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a (initialized) {.
af00: 09 09 72 65 74 75 72 6e 28 73 74 61 74 75 73 29 ..return(status)
af10: 3b 0a 09 7d 0a 0a 23 69 66 20 64 65 66 69 6e 65 ;..}..#if define
af20: 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 d(OPENSSL_THREAD
af30: 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 S) && defined(TC
af40: 4c 5f 54 48 52 45 41 44 53 29 0a 09 54 63 6c 5f L_THREADS)..Tcl_
af50: 4d 75 74 65 78 4c 6f 63 6b 28 26 69 6e 69 74 5f MutexLock(&init_
af60: 6d 78 29 3b 0a 23 65 6e 64 69 66 0a 09 69 6e 69 mx);.#endif..ini
af70: 74 69 61 6c 69 7a 65 64 20 3d 20 31 3b 0a 0a 23 tialized = 1;..#
af80: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 if defined(OPENS
af90: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 SL_THREADS) && d
afa0: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 efined(TCL_THREA
afb0: 44 53 29 0a 09 6e 75 6d 5f 6c 6f 63 6b 73 20 3d DS)..num_locks =
afc0: 20 43 52 59 50 54 4f 5f 6e 75 6d 5f 6c 6f 63 6b CRYPTO_num_lock
afd0: 73 28 29 3b 0a 09 6c 6f 63 6b 73 20 3d 20 6d 61 s();..locks = ma
afe0: 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 6c 6f 63 lloc(sizeof(*loc
aff0: 6b 73 29 20 2a 20 6e 75 6d 5f 6c 6f 63 6b 73 29 ks) * num_locks)
b000: 3b 0a 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f 6c ;...CRYPTO_set_l
b010: 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28 ocking_callback(
b020: 43 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b CryptoThreadLock
b030: 43 61 6c 6c 62 61 63 6b 29 3b 0a 09 43 52 59 50 Callback);..CRYP
b040: 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c 6c 62 61 TO_set_id_callba
b050: 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 64 49 ck(CryptoThreadI
b060: 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 23 65 6e 64 dCallback);.#end
b070: 69 66 0a 0a 09 69 66 20 28 53 53 4c 5f 6c 69 62 if...if (SSL_lib
b080: 72 61 72 79 5f 69 6e 69 74 28 29 20 21 3d 20 31 rary_init() != 1
b090: 29 20 7b 0a 09 09 73 74 61 74 75 73 20 3d 20 54 ) {...status = T
b0a0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f CL_ERROR;...goto
b0b0: 20 64 6f 6e 65 3b 0a 09 7d 0a 0a 09 53 53 4c 5f done;..}...SSL_
b0c0: 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 72 69 6e load_error_strin
b0d0: 67 73 28 29 3b 0a 09 45 52 52 5f 6c 6f 61 64 5f gs();..ERR_load_
b0e0: 63 72 79 70 74 6f 5f 73 74 72 69 6e 67 73 28 29 crypto_strings()
b0f0: 3b 0a 0a 23 69 66 20 30 0a 09 2f 2a 0a 09 20 2a ;..#if 0../*.. *
b100: 20 58 58 58 3a 54 4f 44 4f 3a 20 52 65 6d 6f 76 XXX:TODO: Remov
b110: 65 20 74 68 69 73 20 63 6f 64 65 20 61 6e 64 20 e this code and
b120: 72 65 70 6c 61 63 65 20 69 74 20 77 69 74 68 20 replace it with
b130: 61 20 63 68 65 63 6b 0a 09 20 2a 20 66 6f 72 20 a check.. * for
b140: 65 6e 6f 75 67 68 20 65 6e 74 72 6f 70 79 20 61 enough entropy a
b150: 6e 64 20 64 6f 20 6e 6f 74 20 74 72 79 20 74 6f nd do not try to
b160: 20 63 72 65 61 74 65 20 6f 75 72 20 6f 77 6e 0a create our own.
b170: 09 20 2a 20 74 65 72 72 69 62 6c 65 20 65 6e 74 . * terrible ent
b180: 72 6f 70 79 0a 09 20 2a 2f 0a 20 20 20 20 2f 2a ropy.. */. /*
b190: 0a 20 20 20 20 20 2a 20 53 65 65 64 20 74 68 65 . * Seed the
b1a0: 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 67 random number g
b1b0: 65 6e 65 72 61 74 6f 72 20 69 6e 20 74 68 65 20 enerator in the
b1c0: 53 53 4c 20 6c 69 62 72 61 72 79 2c 0a 20 20 20 SSL library,.
b1d0: 20 20 2a 20 75 73 69 6e 67 20 74 68 65 20 64 6f * using the do
b1e0: 2f 77 68 69 6c 65 20 63 6f 6e 73 74 72 75 63 74 /while construct
b1f0: 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65 20 because of the
b200: 62 75 67 20 6e 6f 74 65 20 69 6e 20 74 68 65 0a bug note in the.
b210: 20 20 20 20 20 2a 20 4f 70 65 6e 53 53 4c 20 46 * OpenSSL F
b220: 41 51 20 61 74 20 68 74 74 70 3a 2f 2f 77 77 77 AQ at http://www
b230: 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 2f 73 75 70 .openssl.org/sup
b240: 70 6f 72 74 2f 66 61 71 2e 68 74 6d 6c 23 55 53 port/faq.html#US
b250: 45 52 31 0a 20 20 20 20 20 2a 0a 20 20 20 20 20 ER1. *.
b260: 2a 20 54 68 65 20 63 72 75 78 20 6f 66 20 74 68 * The crux of th
b270: 65 20 70 72 6f 62 6c 65 6d 20 69 73 20 74 68 61 e problem is tha
b280: 74 20 53 6f 6c 61 72 69 73 20 37 20 64 6f 65 73 t Solaris 7 does
b290: 20 6e 6f 74 20 68 61 76 65 20 61 20 0a 20 20 20 not have a .
b2a0: 20 20 2a 20 2f 64 65 76 2f 72 61 6e 64 6f 6d 20 * /dev/random
b2b0: 6f 72 20 2f 64 65 76 2f 75 72 61 6e 64 6f 6d 20 or /dev/urandom
b2c0: 64 65 76 69 63 65 20 73 6f 20 69 74 20 63 61 6e device so it can
b2d0: 6e 6f 74 20 67 61 74 68 65 72 20 65 6e 6f 75 67 not gather enoug
b2e0: 68 0a 20 20 20 20 20 2a 20 65 6e 74 72 6f 70 79 h. * entropy
b2f0: 20 66 72 6f 6d 20 74 68 65 20 52 41 4e 44 5f 73 from the RAND_s
b300: 65 65 64 28 29 20 77 68 65 6e 20 54 4c 53 20 69 eed() when TLS i
b310: 6e 69 74 69 61 6c 69 7a 65 73 20 61 6e 64 20 72 nitializes and r
b320: 65 66 75 73 65 73 0a 20 20 20 20 20 2a 20 74 6f efuses. * to
b330: 20 67 6f 20 66 75 72 74 68 65 72 2e 20 45 61 72 go further. Ear
b340: 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 20 6f 66 lier versions of
b350: 20 4f 70 65 6e 53 53 4c 20 63 61 72 72 69 65 64 OpenSSL carried
b360: 20 6f 6e 20 72 65 67 61 72 64 6c 65 73 73 2e 0a on regardless..
b370: 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 72 61 6e */. sran
b380: 64 28 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 d((unsigned int)
b390: 20 74 69 6d 65 28 28 74 69 6d 65 5f 74 20 2a 29 time((time_t *)
b3a0: 20 4e 55 4c 4c 29 29 3b 0a 20 20 20 20 64 6f 20 NULL));. do
b3b0: 7b 0a 09 66 6f 72 20 28 69 20 3d 20 30 3b 20 69 {..for (i = 0; i
b3c0: 20 3c 20 31 36 3b 20 69 2b 2b 29 20 7b 0a 09 20 < 16; i++) {..
b3d0: 20 20 20 72 6e 64 5f 73 65 65 64 5b 69 5d 20 3d rnd_seed[i] =
b3e0: 20 31 20 2b 20 28 63 68 61 72 29 20 28 32 35 35 1 + (char) (255
b3f0: 2e 30 20 2a 20 72 61 6e 64 28 29 2f 28 52 41 4e .0 * rand()/(RAN
b400: 44 5f 4d 41 58 2b 31 2e 30 29 29 3b 0a 09 7d 0a D_MAX+1.0));..}.
b410: 09 52 41 4e 44 5f 73 65 65 64 28 72 6e 64 5f 73 .RAND_seed(rnd_s
b420: 65 65 64 2c 20 73 69 7a 65 6f 66 28 72 6e 64 5f eed, sizeof(rnd_
b430: 73 65 65 64 29 29 3b 0a 20 20 20 20 7d 20 77 68 seed));. } wh
b440: 69 6c 65 20 28 52 41 4e 44 5f 73 74 61 74 75 73 ile (RAND_status
b450: 28 29 20 21 3d 20 31 29 3b 0a 23 65 6e 64 69 66 () != 1);.#endif
b460: 0a 0a 64 6f 6e 65 3a 0a 23 69 66 20 64 65 66 69 ..done:.#if defi
b470: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 ned(OPENSSL_THRE
b480: 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 ADS) && defined(
b490: 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 54 63 TCL_THREADS)..Tc
b4a0: 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 69 l_MutexUnlock(&i
b4b0: 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 69 66 0a nit_mx);.#endif.
b4c0: 0a 09 72 65 74 75 72 6e 28 73 74 61 74 75 73 29 ..return(status)
b4d0: 3b 0a 7d 0a ;.}.