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 24 48 65 61 64 65 72 3a 20 . *. * $Header:
00e0: 2f 68 6f 6d 65 2f 72 6b 65 65 6e 65 2f 74 6d 70 /home/rkeene/tmp
00f0: 2f 63 76 73 32 66 6f 73 73 69 6c 2f 2e 2e 2f 74 /cvs2fossil/../t
0100: 63 6c 74 6c 73 2f 74 6c 73 2f 74 6c 73 2f 74 6c cltls/tls/tls/tl
0110: 73 2e 63 2c 76 20 31 2e 33 31 20 32 30 31 30 2f s.c,v 1.31 2010/
0120: 30 38 2f 31 31 20 31 39 3a 35 30 3a 35 30 20 68 08/11 19:50:50 h
0130: 6f 62 62 73 32 20 45 78 70 20 24 0a 20 2a 0a 20 obbs2 Exp $. *.
0140: 2a 20 54 4c 53 20 28 61 6b 61 20 53 53 4c 29 20 * TLS (aka SSL)
0150: 43 68 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 65 Channel - can be
0160: 20 6c 61 79 65 72 65 64 20 6f 6e 20 61 6e 79 20 layered on any
0170: 62 69 2d 64 69 72 65 63 74 69 6f 6e 61 6c 0a 20 bi-directional.
0180: 2a 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 4e * Tcl_Channel (N
0190: 6f 74 65 3a 20 52 65 71 75 69 72 65 73 20 54 72 ote: Requires Tr
01a0: 66 20 43 6f 72 65 20 50 61 74 63 68 29 0a 20 2a f Core Patch). *
01b0: 0a 20 2a 20 54 68 69 73 20 77 61 73 20 62 75 69 . * This was bui
01c0: 6c 74 20 28 61 6c 6d 6f 73 74 29 20 66 72 6f 6d lt (almost) from
01d0: 20 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 scratch based u
01e0: 70 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 pon observation
01f0: 6f 66 0a 20 2a 20 4f 70 65 6e 53 53 4c 20 30 2e of. * OpenSSL 0.
0200: 39 2e 32 42 0a 20 2a 0a 20 2a 20 41 64 64 69 74 9.2B. *. * Addit
0210: 69 6f 6e 20 63 72 65 64 69 74 20 69 73 20 64 75 ion credit is du
0220: 65 20 66 6f 72 20 41 6e 64 72 65 61 73 20 4b 75 e for Andreas Ku
0230: 70 72 69 65 73 20 28 61 2e 6b 75 70 72 69 65 73 pries (a.kupries
0240: 40 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 @westend.com), f
0250: 6f 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e 67 20 or. * providing
0260: 74 68 65 20 54 63 6c 5f 52 65 70 6c 61 63 65 43 the Tcl_ReplaceC
0270: 68 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69 73 6d hannel mechanism
0280: 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63 6c 6f and working clo
0290: 73 65 6c 79 20 77 69 74 68 20 6d 65 0a 20 2a 20 sely with me. *
02a0: 74 6f 20 65 6e 68 61 6e 63 65 20 69 74 20 74 6f to enhance it to
02b0: 20 73 75 70 70 6f 72 74 20 66 75 6c 6c 20 66 69 support full fi
02c0: 6c 65 65 76 65 6e 74 20 73 65 6d 61 6e 74 69 63 leevent semantic
02d0: 73 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f s.. *. * Also wo
02e0: 72 6b 20 64 6f 6e 65 20 62 79 20 74 68 65 20 66 rk done by the f
02f0: 6f 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70 72 6f ollow people pro
0300: 76 69 64 65 64 20 74 68 65 20 69 6d 70 65 74 75 vided the impetu
0310: 73 20 74 6f 20 64 6f 20 74 68 69 73 20 22 72 69 s to do this "ri
0320: 67 68 74 22 3a 0a 20 2a 09 74 63 6c 53 53 4c 20 ght":. *.tclSSL
0330: 28 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b (Colin McCormack
0340: 2c 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c , Shared Technol
0350: 6f 67 79 29 0a 20 2a 09 53 53 4c 74 63 6c 20 28 ogy). *.SSLtcl (
0360: 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a 20 2a Peter Antman). *
0370: 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 . */..#include "
0380: 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 tlsInt.h".#inclu
0390: 64 65 20 22 74 63 6c 4f 70 74 73 2e 68 22 0a 23 de "tclOpts.h".#
03a0: 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e include <stdlib.
03b0: 68 3e 0a 0a 2f 2a 0a 20 2a 20 45 78 74 65 72 6e h>../*. * Extern
03c0: 61 6c 20 66 75 6e 63 74 69 6f 6e 73 0a 20 2a 2f al functions. */
03d0: 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 ../*. * Forward
03e0: 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a 2f declarations. */
03f0: 0a 0a 23 64 65 66 69 6e 65 20 46 32 4e 28 20 6b ..#define F2N( k
0400: 65 79 2c 20 64 73 70 29 20 5c 0a 09 28 28 28 6b ey, dsp) \..(((k
0410: 65 79 29 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 28 ey) == NULL) ? (
0420: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 20 3a 20 5c char *) NULL : \
0430: 0a 09 09 54 63 6c 5f 54 72 61 6e 73 6c 61 74 65 ...Tcl_Translate
0440: 46 69 6c 65 4e 61 6d 65 28 69 6e 74 65 72 70 2c FileName(interp,
0450: 20 28 6b 65 79 29 2c 20 28 64 73 70 29 29 29 0a (key), (dsp))).
0460: 23 64 65 66 69 6e 65 20 52 45 41 53 4f 4e 28 29 #define REASON()
0470: 09 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f .ERR_reason_erro
0480: 72 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 74 r_string(ERR_get
0490: 5f 65 72 72 6f 72 28 29 29 0a 0a 73 74 61 74 69 _error())..stati
04a0: 63 20 76 6f 69 64 09 49 6e 66 6f 43 61 6c 6c 62 c void.InfoCallb
04b0: 61 63 6b 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 ack _ANSI_ARGS_
04c0: 28 28 43 4f 4e 53 54 20 53 53 4c 20 2a 73 73 6c ((CONST SSL *ssl
04d0: 2c 20 69 6e 74 20 77 68 65 72 65 2c 20 69 6e 74 , int where, int
04e0: 20 72 65 74 29 29 3b 0a 0a 73 74 61 74 69 63 20 ret));..static
04f0: 69 6e 74 09 43 69 70 68 65 72 73 4f 62 6a 43 6d int.CiphersObjCm
0500: 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 d _ANSI_ARGS_ ((
0510: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
0520: 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e tData,....Tcl_In
0530: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
0540: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
0550: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b *CONST objv[]));
0560: 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 48 61 6e ..static int.Han
0570: 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 5f 41 4e dshakeObjCmd _AN
0580: 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e SI_ARGS_ ((Clien
0590: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
05a0: 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 ,....Tcl_Interp
05b0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
05c0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 c, Tcl_Obj *CONS
05d0: 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 T objv[]));..sta
05e0: 74 69 63 20 69 6e 74 09 49 6d 70 6f 72 74 4f 62 tic int.ImportOb
05f0: 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f jCmd _ANSI_ARGS_
0600: 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ((ClientData cl
0610: 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c ientData,....Tcl
0620: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
0630: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
0640: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
0650: 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 ));..static int.
0660: 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 5f 41 4e StatusObjCmd _AN
0670: 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e SI_ARGS_ ((Clien
0680: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
0690: 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 ,....Tcl_Interp
06a0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
06b0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 c, Tcl_Obj *CONS
06c0: 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 T objv[]));..sta
06d0: 74 69 63 20 69 6e 74 09 56 65 72 73 69 6f 6e 4f tic int.VersionO
06e0: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
06f0: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
0700: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
0710: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0720: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
0730: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
0740: 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 ]));..static int
0750: 09 4d 69 73 63 4f 62 6a 43 6d 64 20 5f 41 4e 53 .MiscObjCmd _ANS
0760: 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 I_ARGS_ ((Client
0770: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
0780: 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a ....Tcl_Interp *
0790: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
07a0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 , Tcl_Obj *CONST
07b0: 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 objv[]));..stat
07c0: 69 63 20 69 6e 74 09 55 6e 69 6d 70 6f 72 74 4f ic int.UnimportO
07d0: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
07e0: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
07f0: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
0800: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
0810: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
0820: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
0830: 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 53 53 4c ]));..static SSL
0840: 5f 43 54 58 20 2a 43 54 58 5f 49 6e 69 74 20 5f _CTX *CTX_Init _
0850: 41 4e 53 49 5f 41 52 47 53 5f 28 28 53 74 61 74 ANSI_ARGS_((Stat
0860: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74 e *statePtr, int
0870: 20 70 72 6f 74 6f 2c 20 63 68 61 72 20 2a 6b 65 proto, char *ke
0880: 79 2c 0a 09 09 09 63 68 61 72 20 2a 63 65 72 74 y,....char *cert
0890: 2c 20 63 68 61 72 20 2a 43 41 64 69 72 2c 20 63 , char *CAdir, c
08a0: 68 61 72 20 2a 43 41 66 69 6c 65 2c 20 63 68 61 har *CAfile, cha
08b0: 72 20 2a 63 69 70 68 65 72 73 29 29 3b 0a 0a 23 r *ciphers));..#
08c0: 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f define TLS_PROTO
08d0: 5f 53 53 4c 32 09 30 78 30 31 0a 23 64 65 66 69 _SSL2.0x01.#defi
08e0: 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c ne TLS_PROTO_SSL
08f0: 33 09 30 78 30 32 0a 23 64 65 66 69 6e 65 20 54 3.0x02.#define T
0900: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 09 30 78 LS_PROTO_TLS1.0x
0910: 30 34 0a 23 64 65 66 69 6e 65 20 45 4e 41 42 4c 04.#define ENABL
0920: 45 44 28 66 6c 61 67 2c 20 6d 61 73 6b 29 09 28 ED(flag, mask).(
0930: 28 28 66 6c 61 67 29 20 26 20 28 6d 61 73 6b 29 ((flag) & (mask)
0940: 29 20 3d 3d 20 28 6d 61 73 6b 29 29 0a 0a 2f 2a ) == (mask))../*
0950: 0a 20 2a 20 53 74 61 74 69 63 20 64 61 74 61 20 . * Static data
0960: 73 74 72 75 63 74 75 72 65 73 0a 20 2a 2f 0a 0a structures. */..
0970: 23 69 66 6e 64 65 66 20 4e 4f 5f 44 48 0a 2f 2a #ifndef NO_DH./*
0980: 20 66 72 6f 6d 20 6f 70 65 6e 73 73 6c 2f 61 70 from openssl/ap
0990: 70 73 2f 73 5f 73 65 72 76 65 72 2e 63 20 2a 2f ps/s_server.c */
09a0: 0a 0a 73 74 61 74 69 63 20 75 6e 73 69 67 6e 65 ..static unsigne
09b0: 64 20 63 68 61 72 20 64 68 35 31 32 5f 70 5b 5d d char dh512_p[]
09c0: 3d 7b 0a 09 30 78 44 41 2c 30 78 35 38 2c 30 78 ={..0xDA,0x58,0x
09d0: 33 43 2c 30 78 31 36 2c 30 78 44 39 2c 30 78 38 3C,0x16,0xD9,0x8
09e0: 35 2c 30 78 32 32 2c 30 78 38 39 2c 30 78 44 30 5,0x22,0x89,0xD0
09f0: 2c 30 78 45 34 2c 30 78 41 46 2c 30 78 37 35 2c ,0xE4,0xAF,0x75,
0a00: 0a 09 30 78 36 46 2c 30 78 34 43 2c 30 78 43 41 ..0x6F,0x4C,0xCA
0a10: 2c 30 78 39 32 2c 30 78 44 44 2c 30 78 34 42 2c ,0x92,0xDD,0x4B,
0a20: 30 78 45 35 2c 30 78 33 33 2c 30 78 42 38 2c 30 0xE5,0x33,0xB8,0
0a30: 78 30 34 2c 30 78 46 42 2c 30 78 30 46 2c 0a 09 x04,0xFB,0x0F,..
0a40: 30 78 45 44 2c 30 78 39 34 2c 30 78 45 46 2c 30 0xED,0x94,0xEF,0
0a50: 78 39 43 2c 30 78 38 41 2c 30 78 34 34 2c 30 78 x9C,0x8A,0x44,0x
0a60: 30 33 2c 30 78 45 44 2c 30 78 35 37 2c 30 78 34 03,0xED,0x57,0x4
0a70: 36 2c 30 78 35 30 2c 30 78 44 33 2c 0a 09 30 78 6,0x50,0xD3,..0x
0a80: 36 39 2c 30 78 39 39 2c 30 78 44 42 2c 30 78 32 69,0x99,0xDB,0x2
0a90: 39 2c 30 78 44 37 2c 30 78 37 36 2c 30 78 32 37 9,0xD7,0x76,0x27
0aa0: 2c 30 78 36 42 2c 30 78 41 32 2c 30 78 44 33 2c ,0x6B,0xA2,0xD3,
0ab0: 30 78 44 34 2c 30 78 31 32 2c 0a 09 30 78 45 32 0xD4,0x12,..0xE2
0ac0: 2c 30 78 31 38 2c 30 78 46 34 2c 30 78 44 44 2c ,0x18,0xF4,0xDD,
0ad0: 30 78 31 45 2c 30 78 30 38 2c 30 78 34 43 2c 30 0x1E,0x08,0x4C,0
0ae0: 78 46 36 2c 30 78 44 38 2c 30 78 30 30 2c 30 78 xF6,0xD8,0x00,0x
0af0: 33 45 2c 30 78 37 43 2c 0a 09 30 78 34 37 2c 30 3E,0x7C,..0x47,0
0b00: 78 37 34 2c 30 78 45 38 2c 30 78 33 33 2c 0a 09 x74,0xE8,0x33,..
0b10: 7d 3b 0a 73 74 61 74 69 63 20 75 6e 73 69 67 6e };.static unsign
0b20: 65 64 20 63 68 61 72 20 64 68 35 31 32 5f 67 5b ed char dh512_g[
0b30: 5d 3d 7b 0a 09 30 78 30 32 2c 0a 7d 3b 0a 0a 73 ]={..0x02,.};..s
0b40: 74 61 74 69 63 20 44 48 20 2a 67 65 74 5f 64 68 tatic DH *get_dh
0b50: 35 31 32 28 29 0a 7b 0a 20 20 20 20 44 48 20 2a 512().{. DH *
0b60: 64 68 3d 4e 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 dh=NULL;.. if
0b70: 20 28 28 64 68 3d 44 48 5f 6e 65 77 28 29 29 20 ((dh=DH_new())
0b80: 3d 3d 20 4e 55 4c 4c 29 20 72 65 74 75 72 6e 28 == NULL) return(
0b90: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 64 68 2d 3e NULL);.. dh->
0ba0: 70 3d 42 4e 5f 62 69 6e 32 62 6e 28 64 68 35 31 p=BN_bin2bn(dh51
0bb0: 32 5f 70 2c 73 69 7a 65 6f 66 28 64 68 35 31 32 2_p,sizeof(dh512
0bc0: 5f 70 29 2c 4e 55 4c 4c 29 3b 0a 20 20 20 20 64 _p),NULL);. d
0bd0: 68 2d 3e 67 3d 42 4e 5f 62 69 6e 32 62 6e 28 64 h->g=BN_bin2bn(d
0be0: 68 35 31 32 5f 67 2c 73 69 7a 65 6f 66 28 64 68 h512_g,sizeof(dh
0bf0: 35 31 32 5f 67 29 2c 4e 55 4c 4c 29 3b 0a 0a 20 512_g),NULL);..
0c00: 20 20 20 69 66 20 28 28 64 68 2d 3e 70 20 3d 3d if ((dh->p ==
0c10: 20 4e 55 4c 4c 29 20 7c 7c 20 28 64 68 2d 3e 67 NULL) || (dh->g
0c20: 20 3d 3d 20 4e 55 4c 4c 29 29 0a 09 72 65 74 75 == NULL))..retu
0c30: 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 rn(NULL);. re
0c40: 74 75 72 6e 28 64 68 29 3b 0a 7d 0a 23 65 6e 64 turn(dh);.}.#end
0c50: 69 66 0a 0a 2f 2a 0a 20 2a 20 44 65 66 69 6e 65 if../*. * Define
0c60: 64 20 69 6e 20 54 6c 73 5f 49 6e 69 74 20 74 6f d in Tls_Init to
0c70: 20 64 65 74 65 72 6d 69 6e 65 20 77 68 61 74 20 determine what
0c80: 6b 69 6e 64 20 6f 66 20 63 68 61 6e 6e 65 6c 73 kind of channels
0c90: 20 77 65 20 61 72 65 20 75 73 69 6e 67 0a 20 2a we are using. *
0ca0: 20 28 6f 6c 64 2d 73 74 79 6c 65 20 38 2e 32 2e (old-style 8.2.
0cb0: 30 2d 38 2e 33 2e 31 20 6f 72 20 6e 65 77 2d 73 0-8.3.1 or new-s
0cc0: 74 79 6c 65 20 38 2e 33 2e 32 2b 29 2e 0a 20 2a tyle 8.3.2+).. *
0cd0: 2f 0a 69 6e 74 20 63 68 61 6e 6e 65 6c 54 79 70 /.int channelTyp
0ce0: 65 56 65 72 73 69 6f 6e 3b 0a 0a 2f 2a 0a 20 2a eVersion;../*. *
0cf0: 20 57 65 20 6c 6f 73 65 20 74 68 65 20 74 63 6c We lose the tcl
0d00: 20 70 61 73 73 77 6f 72 64 20 63 61 6c 6c 62 61 password callba
0d10: 63 6b 20 77 68 65 6e 20 77 65 20 75 73 65 20 74 ck when we use t
0d20: 68 65 20 52 53 41 20 42 53 41 46 45 20 53 53 4c he RSA BSAFE SSL
0d30: 2d 43 20 31 2e 31 2e 32 0a 20 2a 20 6c 69 62 72 -C 1.1.2. * libr
0d40: 61 72 69 65 73 20 69 6e 73 74 65 61 64 20 6f 66 aries instead of
0d50: 20 74 68 65 20 63 75 72 72 65 6e 74 20 4f 70 65 the current Ope
0d60: 6e 53 53 4c 20 6c 69 62 72 61 72 69 65 73 2e 0a nSSL libraries..
0d70: 20 2a 2f 0a 0a 23 69 66 64 65 66 20 42 53 41 46 */..#ifdef BSAF
0d80: 45 0a 23 64 65 66 69 6e 65 20 50 52 45 5f 4f 50 E.#define PRE_OP
0d90: 45 4e 53 53 4c 5f 30 5f 39 5f 34 20 31 0a 23 65 ENSSL_0_9_4 1.#e
0da0: 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 50 72 65 20 ndif../*. * Pre
0db0: 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 34 20 43 6f OpenSSL 0.9.4 Co
0dc0: 6d 70 61 74 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 mpat. */..#ifnde
0dd0: 66 20 53 54 41 43 4b 5f 4f 46 0a 23 64 65 66 69 f STACK_OF.#defi
0de0: 6e 65 20 53 54 41 43 4b 5f 4f 46 28 78 29 09 09 ne STACK_OF(x)..
0df0: 09 53 54 41 43 4b 0a 23 64 65 66 69 6e 65 20 73 .STACK.#define s
0e00: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d k_SSL_CIPHER_num
0e10: 28 73 6b 29 09 09 73 6b 5f 6e 75 6d 28 28 73 6b (sk)..sk_num((sk
0e20: 29 29 0a 23 64 65 66 69 6e 65 20 73 6b 5f 53 53 )).#define sk_SS
0e30: 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 20 L_CIPHER_value(
0e40: 73 6b 2c 20 69 6e 64 65 78 29 09 28 53 53 4c 5f sk, index).(SSL_
0e50: 43 49 50 48 45 52 2a 29 73 6b 5f 76 61 6c 75 65 CIPHER*)sk_value
0e60: 28 28 73 6b 29 2c 20 28 69 6e 64 65 78 29 29 0a ((sk), (index)).
0e70: 23 65 6e 64 69 66 0a 0a 0c 0a 2f 2a 0a 20 2a 2d #endif..../*. *-
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ec0: 2d 2d 0a 20 2a 0a 20 2a 20 49 6e 66 6f 43 61 6c --. *. * InfoCal
0ed0: 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 6d lback --. *. *.m
0ee0: 6f 6e 69 74 6f 72 73 20 53 53 4c 20 63 6f 6e 6e onitors SSL conn
0ef0: 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 0a 20 ection process.
0f00: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
0f10: 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 .None. *. * Side
0f20: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 6c effects:. *.Cal
0f30: 6c 73 20 63 61 6c 6c 62 61 63 6b 20 28 69 66 20 ls callback (if
0f40: 64 65 66 69 6e 65 64 29 0a 20 2a 2d 2d 2d 2d 2d defined). *-----
0f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0f90: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 49 */.static void.I
0fa0: 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 43 4f 4e 53 nfoCallback(CONS
0fb0: 54 20 53 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20 T SSL *ssl, int
0fc0: 77 68 65 72 65 2c 20 69 6e 74 20 72 65 74 29 0a where, int ret).
0fd0: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
0fe0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 2a 29 tePtr = (State*)
0ff0: 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 SSL_get_app_data
1000: 28 28 53 53 4c 20 2a 29 73 73 6c 29 3b 0a 20 20 ((SSL *)ssl);.
1010: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 Tcl_Obj *cmdPt
1020: 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 6d 61 6a r;. char *maj
1030: 6f 72 3b 20 63 68 61 72 20 2a 6d 69 6e 6f 72 3b or; char *minor;
1040: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
1050: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 tr->callback ==
1060: 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 0a (Tcl_Obj*)NULL).
1070: 09 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 63 6d .return;.. cm
1080: 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 dPtr = Tcl_Dupli
1090: 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 cateObj(statePtr
10a0: 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 ->callback);..#i
10b0: 66 20 30 0a 20 20 20 20 69 66 20 28 77 68 65 72 f 0. if (wher
10c0: 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 e & SSL_CB_ALERT
10d0: 29 20 7b 0a 09 73 65 76 20 3d 20 53 53 4c 5f 61 ) {..sev = SSL_a
10e0: 6c 65 72 74 5f 74 79 70 65 5f 73 74 72 69 6e 67 lert_type_string
10f0: 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a 09 69 66 20 _long(ret);..if
1100: 28 73 74 72 63 6d 70 28 20 73 65 76 2c 20 22 66 (strcmp( sev, "f
1110: 61 74 61 6c 22 29 3d 3d 30 29 20 7b 09 2f 2a 20 atal")==0) {./*
1120: 4d 61 70 20 74 6f 20 65 72 72 6f 72 20 2a 2f 0a Map to error */.
1130: 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 . Tls_Error(s
1140: 74 61 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 52 tatePtr, SSL_ERR
1150: 4f 52 28 73 73 6c 2c 20 30 29 29 3b 0a 09 20 20 OR(ssl, 0));..
1160: 20 20 72 65 74 75 72 6e 3b 0a 09 7d 0a 20 20 20 return;..}.
1170: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 }.#endif. if
1180: 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 (where & SSL_CB
1190: 5f 48 41 4e 44 53 48 41 4b 45 5f 53 54 41 52 54 _HANDSHAKE_START
11a0: 29 20 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 ) {..major = "ha
11b0: 6e 64 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 ndshake";..minor
11c0: 20 3d 20 22 73 74 61 72 74 22 3b 0a 20 20 20 20 = "start";.
11d0: 7d 20 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 } else if (where
11e0: 20 26 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 & SSL_CB_HANDSH
11f0: 41 4b 45 5f 44 4f 4e 45 29 20 7b 0a 09 6d 61 6a AKE_DONE) {..maj
1200: 6f 72 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 or = "handshake"
1210: 3b 0a 09 6d 69 6e 6f 72 20 3d 20 22 64 6f 6e 65 ;..minor = "done
1220: 22 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ";. } else {.
1230: 09 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c .if (where & SSL
1240: 5f 43 42 5f 41 4c 45 52 54 29 09 09 6d 61 6a 6f _CB_ALERT)..majo
1250: 72 20 3d 20 22 61 6c 65 72 74 22 3b 0a 09 65 6c r = "alert";..el
1260: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
1270: 53 4c 5f 53 54 5f 43 4f 4e 4e 45 43 54 29 09 6d SL_ST_CONNECT).m
1280: 61 6a 6f 72 20 3d 20 22 63 6f 6e 6e 65 63 74 22 ajor = "connect"
1290: 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 ;..else if (wher
12a0: 65 20 26 20 53 53 4c 5f 53 54 5f 41 43 43 45 50 e & SSL_ST_ACCEP
12b0: 54 29 09 09 6d 61 6a 6f 72 20 3d 20 22 61 63 63 T)..major = "acc
12c0: 65 70 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 ept";..else.....
12d0: 6d 61 6a 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e major = "unknown
12e0: 22 3b 0a 0a 09 69 66 20 28 77 68 65 72 65 20 26 ";...if (where &
12f0: 20 53 53 4c 5f 43 42 5f 52 45 41 44 29 09 09 6d SSL_CB_READ)..m
1300: 69 6e 6f 72 20 3d 20 22 72 65 61 64 22 3b 0a 09 inor = "read";..
1310: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
1320: 20 53 53 4c 5f 43 42 5f 57 52 49 54 45 29 09 09 SSL_CB_WRITE)..
1330: 6d 69 6e 6f 72 20 3d 20 22 77 72 69 74 65 22 3b minor = "write";
1340: 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 ..else if (where
1350: 20 26 20 53 53 4c 5f 43 42 5f 4c 4f 4f 50 29 09 & SSL_CB_LOOP).
1360: 09 6d 69 6e 6f 72 20 3d 20 22 6c 6f 6f 70 22 3b .minor = "loop";
1370: 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 ..else if (where
1380: 20 26 20 53 53 4c 5f 43 42 5f 45 58 49 54 29 09 & SSL_CB_EXIT).
1390: 09 6d 69 6e 6f 72 20 3d 20 22 65 78 69 74 22 3b .minor = "exit";
13a0: 0a 09 65 6c 73 65 09 09 09 09 09 6d 69 6e 6f 72 ..else.....minor
13b0: 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 20 20 = "unknown";.
13c0: 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 }.. Tcl_Lis
13d0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
13e0: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
13f0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 erp, cmdPtr, ..
1400: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1410: 4f 62 6a 28 20 22 69 6e 66 6f 22 2c 20 2d 31 29 Obj( "info", -1)
1420: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1430: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1440: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1450: 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 rp, cmdPtr, ..
1460: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1470: 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e bj( Tcl_GetChann
1480: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
1490: 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a >self), -1) );..
14a0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
14b0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
14c0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
14d0: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
14e0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d _NewStringObj( m
14f0: 61 6a 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 ajor, -1) );..
1500: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1510: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
1520: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1530: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
1540: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d 69 6e ewStringObj( min
1550: 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 or, -1) );..
1560: 69 66 20 28 77 68 65 72 65 20 26 20 28 53 53 4c if (where & (SSL
1570: 5f 43 42 5f 4c 4f 4f 50 7c 53 53 4c 5f 43 42 5f _CB_LOOP|SSL_CB_
1580: 45 58 49 54 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 EXIT)) {..Tcl_Li
1590: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
15a0: 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e nt( statePtr->in
15b0: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 terp, cmdPtr,..
15c0: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
15d0: 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 Obj( SSL_state_s
15e0: 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c tring_long(ssl),
15f0: 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c -1) );. } el
1600: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
1610: 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a 09 SL_CB_ALERT) {..
1620: 43 4f 4e 53 54 20 63 68 61 72 20 2a 63 70 20 3d CONST char *cp =
1630: 20 28 63 68 61 72 20 2a 29 20 53 53 4c 5f 61 6c (char *) SSL_al
1640: 65 72 74 5f 64 65 73 63 5f 73 74 72 69 6e 67 5f ert_desc_string_
1650: 6c 6f 6e 67 28 72 65 74 29 3b 0a 0a 09 54 63 6c long(ret);...Tcl
1660: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1670: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1680: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1690: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
16a0: 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20 ingObj( cp, -1)
16b0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
16c0: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
16d0: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
16e0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
16f0: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1700: 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f wStringObj( SSL_
1710: 73 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e state_string_lon
1720: 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 g(ssl), -1) );.
1730: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 50 72 65 }. Tcl_Pre
1740: 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 serve( (ClientDa
1750: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
1760: 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 terp);. Tcl_P
1770: 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 reserve( (Client
1780: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
1790: 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
17a0: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
17b0: 0a 20 20 20 20 28 76 6f 69 64 29 20 54 63 6c 5f . (void) Tcl_
17c0: 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 EvalObjEx(stateP
17d0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
17e0: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f tr, TCL_EVAL_GLO
17f0: 42 41 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 BAL);. Tcl_De
1800: 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 crRefCount( cmdP
1810: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 tr);.. Tcl_Re
1820: 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 lease( (ClientDa
1830: 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 ta) statePtr);.
1840: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 Tcl_Release(
1850: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
1860: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
1870: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
1880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
18c0: 0a 20 2a 20 56 65 72 69 66 79 43 61 6c 6c 62 61 . * VerifyCallba
18d0: 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 4d 6f 6e 69 ck --. *. *.Moni
18e0: 74 6f 72 73 20 53 53 4c 20 63 65 72 74 69 66 69 tors SSL certifi
18f0: 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 20 cate validation
1900: 70 72 6f 63 65 73 73 2e 0a 20 2a 09 54 68 69 73 process.. *.This
1910: 20 69 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 is called whene
1920: 76 65 72 20 61 20 63 65 72 74 69 66 69 63 61 74 ver a certificat
1930: 65 20 69 73 20 69 6e 73 70 65 63 74 65 64 0a 20 e is inspected.
1940: 2a 09 6f 72 20 64 65 63 69 64 65 64 20 69 6e 76 *.or decided inv
1950: 61 6c 69 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 alid.. *. * Resu
1960: 6c 74 73 3a 0a 20 2a 09 41 20 63 61 6c 6c 62 61 lts:. *.A callba
1970: 63 6b 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 ck bound to the
1980: 73 6f 63 6b 65 74 20 6d 61 79 20 72 65 74 75 72 socket may retur
1990: 6e 20 6f 6e 65 20 6f 66 3a 0a 20 2a 09 20 20 20 n one of:. *.
19a0: 20 30 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 0...- the certi
19b0: 66 69 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 ficate is deemed
19c0: 20 69 6e 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 invalid. *.
19d0: 31 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 1...- the certif
19e0: 69 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 icate is deemed
19f0: 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 65 6d 70 valid. *. emp
1a00: 74 79 20 73 74 72 69 6e 67 09 2d 20 6e 6f 20 63 ty string.- no c
1a10: 68 61 6e 67 65 20 74 6f 20 63 65 72 74 69 66 69 hange to certifi
1a20: 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 0a cate validation.
1a30: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1a40: 74 73 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 66 ts:. *.The err f
1a50: 69 65 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 ield of the curr
1a60: 65 6e 74 6c 79 20 6f 70 65 72 61 74 69 76 65 20 ently operative
1a70: 53 74 61 74 65 20 69 73 20 73 65 74 0a 20 2a 09 State is set. *.
1a80: 20 20 74 6f 20 61 20 73 74 72 69 6e 67 20 64 65 to a string de
1a90: 73 63 72 69 62 69 6e 67 20 74 68 65 20 53 53 4c scribing the SSL
1aa0: 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 negotiation fai
1ab0: 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d lure reason. *--
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b00: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
1b10: 0a 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 28 .VerifyCallback(
1b20: 69 6e 74 20 6f 6b 2c 20 58 35 30 39 5f 53 54 4f int ok, X509_STO
1b30: 52 45 5f 43 54 58 20 2a 63 74 78 29 0a 7b 0a 20 RE_CTX *ctx).{.
1b40: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 Tcl_Obj *cmdP
1b50: 74 72 2c 20 2a 72 65 73 75 6c 74 3b 0a 20 20 20 tr, *result;.
1b60: 20 63 68 61 72 20 2a 65 72 72 53 74 72 2c 20 2a char *errStr, *
1b70: 73 74 72 69 6e 67 3b 0a 20 20 20 20 69 6e 74 20 string;. int
1b80: 6c 65 6e 67 74 68 3b 0a 20 20 20 20 53 53 4c 20 length;. SSL
1b90: 20 20 2a 73 73 6c 09 09 3d 20 28 53 53 4c 2a 29 *ssl..= (SSL*)
1ba0: 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 X509_STORE_CTX_g
1bb0: 65 74 5f 61 70 70 5f 64 61 74 61 28 63 74 78 29 et_app_data(ctx)
1bc0: 3b 0a 20 20 20 20 58 35 30 39 20 20 2a 63 65 72 ;. X509 *cer
1bd0: 74 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f t..= X509_STORE_
1be0: 43 54 58 5f 67 65 74 5f 63 75 72 72 65 6e 74 5f CTX_get_current_
1bf0: 63 65 72 74 28 63 74 78 29 3b 0a 20 20 20 20 53 cert(ctx);. S
1c00: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d tate *statePtr.=
1c10: 20 28 53 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 (State*)SSL_get
1c20: 5f 61 70 70 5f 64 61 74 61 28 73 73 6c 29 3b 0a _app_data(ssl);.
1c30: 20 20 20 20 69 6e 74 20 64 65 70 74 68 09 09 3d int depth..=
1c40: 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f X509_STORE_CTX_
1c50: 67 65 74 5f 65 72 72 6f 72 5f 64 65 70 74 68 28 get_error_depth(
1c60: 63 74 78 29 3b 0a 20 20 20 20 69 6e 74 20 65 72 ctx);. int er
1c70: 72 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f r..= X509_STORE_
1c80: 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 28 63 74 CTX_get_error(ct
1c90: 78 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 x);.. dprintf
1ca0: 28 73 74 64 65 72 72 2c 20 22 56 65 72 69 66 79 (stderr, "Verify
1cb0: 3a 20 25 64 5c 6e 22 2c 20 6f 6b 29 3b 0a 0a 20 : %d\n", ok);..
1cc0: 20 20 20 69 66 20 28 21 6f 6b 29 20 7b 0a 09 65 if (!ok) {..e
1cd0: 72 72 53 74 72 20 3d 20 28 63 68 61 72 2a 29 58 rrStr = (char*)X
1ce0: 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 509_verify_cert_
1cf0: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 error_string(err
1d00: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
1d10: 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 72 20 .errStr = (char
1d20: 2a 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 *)0;. }..
1d30: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 if (statePtr->ca
1d40: 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f llback == (Tcl_O
1d50: 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 bj*)NULL) {..if
1d60: 28 73 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 (statePtr->vflag
1d70: 73 20 26 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 s & SSL_VERIFY_F
1d80: 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 AIL_IF_NO_PEER_C
1d90: 45 52 54 29 20 7b 0a 09 20 20 20 20 72 65 74 75 ERT) {.. retu
1da0: 72 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 65 20 7b rn ok;..} else {
1db0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a .. return 1;.
1dc0: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 .}. }. cmd
1dd0: 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 Ptr = Tcl_Duplic
1de0: 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d ateObj(statePtr-
1df0: 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 >callback);..
1e00: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1e10: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1e20: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1e30: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e Ptr, .. Tcl_N
1e40: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 76 65 ewStringObj( "ve
1e50: 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 rify", -1));..
1e60: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1e70: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
1e80: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1e90: 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f dPtr, .. Tcl_
1ea0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 NewStringObj( Tc
1eb0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
1ec0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
1ed0: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
1ee0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1ef0: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1f00: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1f10: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e ,.. Tcl_NewIn
1f20: 74 4f 62 6a 28 20 64 65 70 74 68 29 20 29 3b 0a tObj( depth) );.
1f30: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1f40: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1f50: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1f60: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 6c cmdPtr,.. Tl
1f70: 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 73 74 s_NewX509Obj( st
1f80: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1f90: 63 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 54 63 cert) );.. Tc
1fa0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1fb0: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1fc0: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1fd0: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e ,.. Tcl_NewIn
1fe0: 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a 20 20 tObj( ok) );..
1ff0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
2000: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
2010: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
2020: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
2030: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 72 72 ewStringObj( err
2040: 53 74 72 20 3f 20 65 72 72 53 74 72 20 3a 20 22 Str ? errStr : "
2050: 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 ", -1) );.. T
2060: 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c cl_Preserve( (Cl
2070: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
2080: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 tr->interp);.
2090: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 Tcl_Preserve( (
20a0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
20b0: 65 50 74 72 29 3b 0a 0a 20 20 20 20 73 74 61 74 ePtr);.. stat
20c0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
20d0: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 3b LS_TCL_CALLBACK;
20e0: 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
20f0: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
2100: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 45 76 61 . if (Tcl_Eva
2110: 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72 2d lObjEx(statePtr-
2120: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
2130: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c TCL_EVAL_GLOBAL
2140: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
2150: 2f 2a 20 49 74 20 67 6f 74 20 61 6e 20 65 72 72 /* It got an err
2160: 6f 72 20 2d 20 72 65 6a 65 63 74 20 74 68 65 20 or - reject the
2170: 63 65 72 74 69 66 69 63 61 74 65 2e 09 09 2a 2f certificate...*/
2180: 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 ..Tcl_Background
2190: 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d Error( statePtr-
21a0: 3e 69 6e 74 65 72 70 29 3b 0a 09 6f 6b 20 3d 20 >interp);..ok =
21b0: 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 0;. } else {.
21c0: 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 .result = Tcl_Ge
21d0: 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 74 65 tObjResult(state
21e0: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 73 Ptr->interp);..s
21f0: 74 72 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 tring = Tcl_GetS
2200: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 72 65 73 tringFromObj(res
2210: 75 6c 74 2c 20 26 6c 65 6e 67 74 68 29 3b 0a 09 ult, &length);..
2220: 2f 2a 20 41 6e 20 65 6d 70 74 79 20 72 65 73 75 /* An empty resu
2230: 6c 74 20 6c 65 61 76 65 73 20 76 65 72 69 66 69 lt leaves verifi
2240: 63 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 cation unchanged
2250: 2e 09 2a 2f 0a 09 69 66 20 28 6c 65 6e 67 74 68 ..*/..if (length
2260: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 20 > 0) {.. if
2270: 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f (Tcl_GetIntFromO
2280: 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 bj(statePtr->int
2290: 65 72 70 2c 20 72 65 73 75 6c 74 2c 20 26 6f 6b erp, result, &ok
22a0: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
22b0: 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 .Tcl_BackgroundE
22c0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 69 rror(statePtr->i
22d0: 6e 74 65 72 70 29 3b 0a 09 09 6f 6b 20 3d 20 30 nterp);...ok = 0
22e0: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 ;.. }..}.
22f0: 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 }. Tcl_DecrRe
2300: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
2310: 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
2320: 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 flags &= ~(TLS_T
2330: 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 3b 0a 0a 20 CL_CALLBACK);..
2340: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 Tcl_Release(
2350: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
2360: 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f tePtr);. Tcl_
2370: 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 Release( (Client
2380: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e Data) statePtr->
2390: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 72 65 interp);.. re
23a0: 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a 20 42 79 20 turn(ok);./* By
23b0: 64 65 66 61 75 6c 74 2c 20 6c 65 61 76 65 20 76 default, leave v
23c0: 65 72 69 66 69 63 61 74 69 6f 6e 20 75 6e 63 68 erification unch
23d0: 61 6e 67 65 64 2e 09 2a 2f 0a 7d 0a 0c 0a 2f 2a anged..*/.}.../*
23e0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2420: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
2430: 5f 45 72 72 6f 72 20 2d 2d 0a 20 2a 0a 20 2a 09 _Error --. *. *.
2440: 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 77 Calls callback w
2450: 69 74 68 20 24 66 64 20 61 6e 64 20 24 6d 73 67 ith $fd and $msg
2460: 20 2d 20 73 6f 20 74 68 65 20 63 61 6c 6c 62 61 - so the callba
2470: 63 6b 20 63 61 6e 20 64 65 63 69 64 65 0a 20 2a ck can decide. *
2480: 09 77 68 61 74 20 74 6f 20 64 6f 20 77 69 74 68 .what to do with
2490: 20 65 72 72 6f 72 73 2e 0a 20 2a 0a 20 2a 20 53 errors.. *. * S
24a0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
24b0: 54 68 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 The err field of
24c0: 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f the currently o
24d0: 70 65 72 61 74 69 76 65 20 53 74 61 74 65 20 69 perative State i
24e0: 73 20 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 s set. *. to a
24f0: 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e string describin
2500: 67 20 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 g the SSL negoti
2510: 61 74 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 ation failure re
2520: 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ason. *---------
2530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 ----------. */.v
2570: 6f 69 64 0a 54 6c 73 5f 45 72 72 6f 72 28 53 74 oid.Tls_Error(St
2580: 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 ate *statePtr, c
2590: 68 61 72 20 2a 6d 73 67 29 0a 7b 0a 20 20 20 20 har *msg).{.
25a0: 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b Tcl_Obj *cmdPtr;
25b0: 0a 0a 20 20 20 20 69 66 20 28 6d 73 67 20 26 26 .. if (msg &&
25c0: 20 2a 6d 73 67 29 20 7b 0a 09 54 63 6c 5f 53 65 *msg) {..Tcl_Se
25d0: 74 45 72 72 6f 72 43 6f 64 65 28 73 74 61 74 65 tErrorCode(state
25e0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 22 53 53 Ptr->interp, "SS
25f0: 4c 22 2c 20 6d 73 67 2c 20 28 63 68 61 72 20 2a L", msg, (char *
2600: 29 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c )NULL);. } el
2610: 73 65 20 7b 0a 09 6d 73 67 20 3d 20 54 63 6c 5f se {..msg = Tcl_
2620: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
2630: 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c (Tcl_GetObjResul
2640: 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 t(statePtr->inte
2650: 72 70 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 rp), NULL);.
2660: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e }. statePtr->
2670: 65 72 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 err = msg;..
2680: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 if (statePtr->ca
2690: 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f llback == (Tcl_O
26a0: 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 bj*)NULL) {..cha
26b0: 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 r buf[BUFSIZ];..
26c0: 73 70 72 69 6e 74 66 28 62 75 66 2c 20 22 53 53 sprintf(buf, "SS
26d0: 4c 20 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 L channel \"%s\"
26e0: 3a 20 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 : error: %s",..
26f0: 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 Tcl_GetChanne
2700: 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e lName(statePtr->
2710: 73 65 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 self), msg);..Tc
2720: 6c 5f 53 65 74 52 65 73 75 6c 74 28 20 73 74 61 l_SetResult( sta
2730: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 tePtr->interp, b
2740: 75 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 uf, TCL_VOLATILE
2750: 29 3b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 );..Tcl_Backgrou
2760: 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 ndError( statePt
2770: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 72 65 74 r->interp);..ret
2780: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 urn;. }. c
2790: 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c mdPtr = Tcl_Dupl
27a0: 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 icateObj(statePt
27b0: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 r->callback);..
27c0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
27d0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 pendElement(stat
27e0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
27f0: 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f dPtr, .. Tcl_
2800: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 65 72 NewStringObj("er
2810: 72 6f 72 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 ror", -1));..
2820: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
2830: 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 ndElement(stateP
2840: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
2850: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 tr, .. Tcl_Ne
2860: 77 53 74 72 69 6e 67 4f 62 6a 28 54 63 6c 5f 47 wStringObj(Tcl_G
2870: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
2880: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d atePtr->self), -
2890: 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 1));.. Tcl_Li
28a0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
28b0: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 nt(statePtr->int
28c0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
28d0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
28e0: 62 6a 28 6d 73 67 2c 20 2d 31 29 29 3b 0a 0a 20 bj(msg, -1));..
28f0: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 Tcl_Preserve(
2900: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
2910: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
2920: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
2930: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
2940: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 atePtr);.. Tc
2950: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 63 l_IncrRefCount(c
2960: 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 28 mdPtr);. if (
2970: 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 Tcl_EvalObjEx(st
2980: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2990: 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c cmdPtr, TCL_EVAL
29a0: 5f 47 4c 4f 42 41 4c 29 20 21 3d 20 54 43 4c 5f _GLOBAL) != TCL_
29b0: 4f 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 OK) {..Tcl_Backg
29c0: 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 roundError(state
29d0: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 Ptr->interp);.
29e0: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 }. Tcl_Decr
29f0: 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 RefCount(cmdPtr)
2a00: 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 ;.. Tcl_Relea
2a10: 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 se((ClientData)
2a20: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 statePtr);. T
2a30: 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 cl_Release((Clie
2a40: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
2a50: 2d 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f ->interp);.}.../
2a60: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a80: 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 50 61 -------. *. * Pa
2ab0: 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 20 2d sswordCallback -
2ac0: 2d 20 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 - . *. *.Called
2ad0: 77 68 65 6e 20 61 20 70 61 73 73 77 6f 72 64 20 when a password
2ae0: 69 73 20 6e 65 65 64 65 64 20 74 6f 20 75 6e 70 is needed to unp
2af0: 61 63 6b 20 52 53 41 20 61 6e 64 20 50 45 4d 20 ack RSA and PEM
2b00: 6b 65 79 73 2e 0a 20 2a 09 45 76 61 6c 73 20 61 keys.. *.Evals a
2b10: 6e 79 20 62 6f 75 6e 64 20 70 61 73 73 77 6f 72 ny bound passwor
2b20: 64 20 73 63 72 69 70 74 20 61 6e 64 20 72 65 74 d script and ret
2b30: 75 72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 urns the result
2b40: 61 73 0a 20 2a 09 74 68 65 20 70 61 73 73 77 6f as. *.the passwo
2b50: 72 64 20 73 74 72 69 6e 67 2e 0a 20 2a 2d 2d 2d rd string.. *---
2b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ba0: 0a 20 2a 2f 0a 23 69 66 64 65 66 20 50 52 45 5f . */.#ifdef PRE_
2bb0: 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f 2a OPENSSL_0_9_4./*
2bc0: 0a 20 2a 20 4e 6f 20 77 61 79 20 74 6f 20 68 61 . * No way to ha
2bd0: 6e 64 6c 65 20 75 73 65 72 2d 64 61 74 61 20 74 ndle user-data t
2be0: 68 65 72 65 66 6f 72 65 20 6e 6f 20 77 61 79 20 herefore no way
2bf0: 77 69 74 68 6f 75 74 20 61 20 67 6c 6f 62 61 6c without a global
2c00: 0a 20 2a 20 76 61 72 69 61 62 6c 65 20 74 6f 20 . * variable to
2c10: 61 63 63 65 73 73 20 74 68 65 20 54 63 6c 20 69 access the Tcl i
2c20: 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 73 nterpreter..*/.s
2c30: 74 61 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f tatic int.Passwo
2c40: 72 64 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 rdCallback(char
2c50: 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 *buf, int size,
2c60: 69 6e 74 20 76 65 72 69 66 79 29 0a 7b 0a 20 20 int verify).{.
2c70: 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 return -1;.}.#
2c80: 65 6c 73 65 0a 73 74 61 74 69 63 20 69 6e 74 0a else.static int.
2c90: 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b PasswordCallback
2ca0: 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 (char *buf, int
2cb0: 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 66 79 size, int verify
2cc0: 2c 20 76 6f 69 64 20 2a 75 64 61 74 61 29 0a 7b , void *udata).{
2cd0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
2ce0: 65 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a 29 ePtr.= (State *)
2cf0: 20 75 64 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f udata;. Tcl_
2d00: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 09 3d Interp *interp.=
2d10: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
2d20: 70 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a p;. Tcl_Obj *
2d30: 63 6d 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 cmdPtr;. int
2d40: 72 65 73 75 6c 74 3b 0a 0a 20 20 20 20 69 66 20 result;.. if
2d50: 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 (statePtr->passw
2d60: 6f 72 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ord == NULL) {..
2d70: 69 66 20 28 54 63 6c 5f 45 76 61 6c 45 78 28 69 if (Tcl_EvalEx(i
2d80: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 61 73 nterp, "tls::pas
2d90: 73 77 6f 72 64 22 2c 20 2d 31 2c 20 54 43 4c 5f sword", -1, TCL_
2da0: 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 0a 09 09 3d EVAL_GLOBAL)...=
2db0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 = TCL_OK) {..
2dc0: 20 63 68 61 72 20 2a 72 65 74 20 3d 20 28 63 68 char *ret = (ch
2dd0: 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 ar *) Tcl_GetStr
2de0: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ingResult(interp
2df0: 29 3b 0a 09 20 20 20 20 73 74 72 6e 63 70 79 28 );.. strncpy(
2e00: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f buf, ret, (size_
2e10: 74 29 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 72 t) size);.. r
2e20: 65 74 75 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 eturn (int)strle
2e30: 6e 28 72 65 74 29 3b 0a 09 7d 20 65 6c 73 65 20 n(ret);..} else
2e40: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 {.. return -1
2e50: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ;..}. }..
2e60: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
2e70: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
2e80: 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 0a tr->password);..
2e90: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
2ea0: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
2eb0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
2ec0: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
2ed0: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
2ee0: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 tatePtr);.. T
2ef0: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
2f00: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 72 65 73 cmdPtr);. res
2f10: 75 6c 74 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 ult = Tcl_EvalOb
2f20: 6a 45 78 28 69 6e 74 65 72 70 2c 20 63 6d 64 50 jEx(interp, cmdP
2f30: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f tr, TCL_EVAL_GLO
2f40: 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 BAL);. if (re
2f50: 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 sult != TCL_OK)
2f60: 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e {..Tcl_Backgroun
2f70: 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d dError(statePtr-
2f80: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a >interp);. }.
2f90: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
2fa0: 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a 20 ount(cmdPtr);..
2fb0: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 Tcl_Release((
2fc0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
2fd0: 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 ePtr);. Tcl_R
2fe0: 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 elease((ClientDa
2ff0: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
3000: 74 65 72 70 29 3b 0a 0a 20 20 20 20 69 66 20 28 terp);.. if (
3010: 72 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f 4f 4b result == TCL_OK
3020: 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 74 20 3d ) {..char *ret =
3030: 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 (char *) Tcl_Ge
3040: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e tStringResult(in
3050: 74 65 72 70 29 3b 0a 09 73 74 72 6e 63 70 79 28 terp);..strncpy(
3060: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f buf, ret, (size_
3070: 74 29 20 73 69 7a 65 29 3b 0a 09 72 65 74 75 72 t) size);..retur
3080: 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 72 65 n (int)strlen(re
3090: 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b t);. } else {
30a0: 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 ..return -1;.
30b0: 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a }.}.#endif.../*
30c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
30d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3100: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 ------. *. * Cip
3110: 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 hersObjCmd -- li
3120: 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 st available cip
3130: 68 65 72 73 0a 20 2a 0a 20 2a 09 54 68 69 73 20 hers. *. *.This
3140: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
3150: 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 oked to process
3160: 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 the "tls::cipher
3170: 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f s" command. *.to
3180: 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 list available
3190: 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 75 ciphers, based u
31a0: 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c pon protocol sel
31b0: 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 ected.. *. * Res
31c0: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
31d0: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c ard Tcl result l
31e0: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
31f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 effects:. *.cons
3200: 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 72 tructs and destr
3210: 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 oys SSL context
3220: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d (CTX). *. *-----
3230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3270: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 43 69 */.static int.Ci
3280: 70 68 65 72 73 4f 62 6a 43 6d 64 28 63 6c 69 65 phersObjCmd(clie
3290: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
32a0: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
32b0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
32c0: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
32d0: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
32e0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
32f0: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
3300: 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 Tcl_Obj.*CONST
3310: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 objv[];.{. st
3320: 61 74 69 63 20 43 4f 4e 53 54 38 34 20 63 68 61 atic CONST84 cha
3330: 72 20 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d r *protocols[] =
3340: 20 7b 0a 09 22 73 73 6c 32 22 2c 09 22 73 73 6c {.."ssl2",."ssl
3350: 33 22 2c 09 22 74 6c 73 31 22 2c 09 4e 55 4c 4c 3",."tls1",.NULL
3360: 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 6e 75 6d . };. enum
3370: 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 4c 53 protocol {..TLS
3380: 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c 33 2c _SSL2, TLS_SSL3,
3390: 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 5f 4e TLS_TLS1, TLS_N
33a0: 4f 4e 45 0a 20 20 20 20 7d 3b 0a 20 20 20 20 54 ONE. };. T
33b0: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a cl_Obj *objPtr;.
33c0: 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 SSL_CTX *ctx
33d0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c = NULL;. SSL
33e0: 20 2a 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *ssl = NULL;.
33f0: 20 20 53 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 STACK_OF(SSL_C
3400: 49 50 48 45 52 29 20 2a 73 6b 3b 0a 20 20 20 20 IPHER) *sk;.
3410: 63 68 61 72 20 2a 63 70 2c 20 62 75 66 5b 42 55 char *cp, buf[BU
3420: 46 53 49 5a 5d 3b 0a 20 20 20 20 69 6e 74 20 69 FSIZ];. int i
3430: 6e 64 65 78 2c 20 76 65 72 62 6f 73 65 20 3d 20 ndex, verbose =
3440: 30 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 0;.. if (objc
3450: 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 < 2 || objc > 3
3460: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
3470: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
3480: 20 6f 62 6a 76 2c 20 22 70 72 6f 74 6f 63 6f 6c objv, "protocol
3490: 20 3f 76 65 72 62 6f 73 65 3f 22 29 3b 0a 09 72 ?verbose?");..r
34a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
34b0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 . }. if (T
34c0: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f cl_GetIndexFromO
34d0: 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 bj( interp, objv
34e0: 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 [1], protocols,
34f0: 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c 0a 09 "protocol", 0,..
3500: 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f &index) != TCL_O
3510: 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c K) {..return TCL
3520: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
3530: 20 20 69 66 20 28 6f 62 6a 63 20 3e 20 32 20 26 if (objc > 2 &
3540: 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e & Tcl_GetBoolean
3550: 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c FromObj( interp,
3560: 20 6f 62 6a 76 5b 32 5d 2c 0a 09 26 76 65 72 62 objv[2],..&verb
3570: 6f 73 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ose) != TCL_OK)
3580: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
3590: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 ROR;. }. s
35a0: 77 69 74 63 68 20 28 28 65 6e 75 6d 20 70 72 6f witch ((enum pro
35b0: 74 6f 63 6f 6c 29 69 6e 64 65 78 29 20 7b 0a 20 tocol)index) {.
35c0: 20 20 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 32 case TLS_SSL2
35d0: 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f :.#if defined(NO
35e0: 5f 53 53 4c 32 29 0a 09 09 54 63 6c 5f 41 70 70 _SSL2)...Tcl_App
35f0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
3600: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
3610: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
3620: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
3630: 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 ERROR;.#else...c
3640: 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 tx = SSL_CTX_new
3650: 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 (SSLv2_method())
3660: 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a ; break;.#endif.
3670: 20 20 20 20 63 61 73 65 20 54 4c 53 5f 53 53 4c case TLS_SSL
3680: 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 3:.#if defined(N
3690: 4f 5f 53 53 4c 33 29 0a 09 09 54 63 6c 5f 41 70 O_SSL3)...Tcl_Ap
36a0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
36b0: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
36c0: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c supported", NUL
36d0: 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c L);...return TCL
36e0: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 _ERROR;.#else...
36f0: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
3700: 77 28 53 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 w(SSLv3_method()
3710: 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 ); break;.#endif
3720: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c . case TLS_TL
3730: 53 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 S1:.#if defined(
3740: 4e 4f 5f 54 4c 53 31 29 0a 09 09 54 63 6c 5f 41 NO_TLS1)...Tcl_A
3750: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3760: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
3770: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
3780: 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 LL);...return TC
3790: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 L_ERROR;.#else..
37a0: 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e .ctx = SSL_CTX_n
37b0: 65 77 28 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 ew(TLSv1_method(
37c0: 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 )); break;.#endi
37d0: 66 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 f. default:..
37e0: 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 .break;. }.
37f0: 20 20 69 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c if (ctx == NUL
3800: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
3810: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 Result(interp, R
3820: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
3830: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
3840: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3850: 7d 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 4c 5f }. ssl = SSL_
3860: 6e 65 77 28 63 74 78 29 3b 0a 20 20 20 20 69 66 new(ctx);. if
3870: 20 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b (ssl == NULL) {
3880: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
3890: 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f lt(interp, REASO
38a0: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 N(), (char *) NU
38b0: 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 LL);..SSL_CTX_fr
38c0: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
38d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
38e0: 7d 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 }. objPtr = T
38f0: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 cl_NewListObj( 0
3900: 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 , NULL);.. if
3910: 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 (!verbose) {..f
3920: 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b or (index = 0; ;
3930: 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 index++) {..
3940: 20 63 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c cp = (char*)SSL
3950: 5f 67 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 _get_cipher_list
3960: 28 20 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 ( ssl, index);..
3970: 20 20 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 if (cp == NU
3980: 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 LL) break;..
3990: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
39a0: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
39b0: 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f , objPtr,...Tcl_
39c0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 NewStringObj( cp
39d0: 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 , -1) );..}.
39e0: 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 } else {..sk = S
39f0: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 SL_get_ciphers(s
3a00: 73 6c 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 sl);...for (inde
3a10: 78 20 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 x = 0; index < s
3a20: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d k_SSL_CIPHER_num
3a30: 28 73 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b (sk); index++) {
3a40: 0a 09 20 20 20 20 72 65 67 69 73 74 65 72 20 73 .. register s
3a50: 69 7a 65 5f 74 20 69 3b 0a 09 20 20 20 20 53 53 ize_t i;.. SS
3a60: 4c 5f 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 L_CIPHER_descrip
3a70: 74 69 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 tion( sk_SSL_CIP
3a80: 48 45 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 HER_value( sk, i
3a90: 6e 64 65 78 29 2c 0a 09 09 09 09 20 20 20 20 62 ndex),..... b
3aa0: 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 uf, sizeof(buf))
3ab0: 3b 0a 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 ;.. for (i =
3ac0: 73 74 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b strlen(buf) - 1;
3ad0: 20 69 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 i ; i--) {...if
3ae0: 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 20 (buf[i] == ' '
3af0: 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e || buf[i] == '\n
3b00: 27 20 7c 7c 0a 09 09 20 20 20 20 62 75 66 5b 69 ' ||... buf[i
3b10: 5d 20 3d 3d 20 27 5c 72 27 20 7c 7c 20 62 75 66 ] == '\r' || buf
3b20: 5b 69 5d 20 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 [i] == '\t') {..
3b30: 09 20 20 20 20 62 75 66 5b 69 5d 20 3d 20 27 5c . buf[i] = '\
3b40: 30 27 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 0';...} else {..
3b50: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a . break;...}.
3b60: 09 20 20 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f . }.. Tcl_
3b70: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
3b80: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 ment( interp, ob
3b90: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
3ba0: 74 72 69 6e 67 4f 62 6a 28 20 62 75 66 2c 20 2d tringObj( buf, -
3bb0: 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 1) );..}. }.
3bc0: 20 20 20 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 SSL_free(ssl)
3bd0: 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 ;. SSL_CTX_fr
3be0: 65 65 28 63 74 78 29 3b 0a 0a 20 20 20 20 54 63 ee(ctx);.. Tc
3bf0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 l_SetObjResult(
3c00: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
3c10: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
3c20: 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d OK;.}.../*. *---
3c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c70: 0a 20 2a 0a 20 2a 20 48 61 6e 64 73 68 61 6b 65 . *. * Handshake
3c80: 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 ObjCmd --. *. *.
3c90: 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 This command is
3ca0: 75 73 65 64 20 74 6f 20 76 65 72 69 66 79 20 77 used to verify w
3cb0: 68 65 74 68 65 72 20 74 68 65 20 68 61 6e 64 73 hether the hands
3cc0: 68 61 6b 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 hake is complete
3cd0: 0a 20 2a 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 . *.or not.. *.
3ce0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
3cf0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
3d00: 75 6c 74 2e 20 31 20 6d 65 61 6e 73 20 68 61 6e ult. 1 means han
3d10: 64 73 68 61 6b 65 20 63 6f 6d 70 6c 65 74 65 2c dshake complete,
3d20: 20 30 20 6d 65 61 6e 73 20 70 65 6e 64 69 6e 67 0 means pending
3d30: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
3d40: 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 ects:. *.May for
3d50: 63 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 ce SSL negotiati
3d60: 6f 6e 20 74 6f 20 74 61 6b 65 20 70 6c 61 63 65 on to take place
3d70: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
3d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
3dc0: 73 74 61 74 69 63 20 69 6e 74 0a 48 61 6e 64 73 static int.Hands
3dd0: 68 61 6b 65 4f 62 6a 43 6d 64 28 63 6c 69 65 6e hakeObjCmd(clien
3de0: 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f tData, interp, o
3df0: 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 bjc, objv). C
3e00: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
3e10: 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 Data;./* Not use
3e20: 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e d. */. Tcl_In
3e30: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 terp *interp;.
3e40: 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 int objc;.
3e50: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
3e60: 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c bjv[];.{. Tcl
3e70: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 _Channel chan;..
3e80: 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 /* The channel t
3e90: 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e o set a mode on.
3ea0: 20 2a 2f 0a 20 20 20 20 53 74 61 74 65 20 2a 73 */. State *s
3eb0: 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 tatePtr;../* cli
3ec0: 65 6e 74 20 73 74 61 74 65 20 66 6f 72 20 73 73 ent state for ss
3ed0: 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 20 l socket */.
3ee0: 69 6e 74 20 72 65 74 20 3d 20 31 3b 0a 0a 20 20 int ret = 1;..
3ef0: 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 if (objc != 2)
3f00: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
3f10: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
3f20: 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 objv, "channel")
3f30: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
3f40: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
3f50: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
3f60: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 annel(interp, Tc
3f70: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
3f80: 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c bj(objv[1], NULL
3f90: 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 ), NULL);. if
3fa0: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
3fb0: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
3fc0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3fd0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 R;. }. if
3fe0: 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 (channelTypeVers
3ff0: 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e ion == TLS_CHANN
4000: 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a EL_VERSION_2) {.
4010: 09 2f 2a 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 ./*.. * Make sur
4020: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
4030: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
4040: 6e 65 6c 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d nel.. */..chan =
4050: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
4060: 65 6c 28 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a el(chan);. }.
4070: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 if (Tcl_GetC
4080: 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 hannelType(chan)
4090: 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 != Tls_ChannelT
40a0: 79 70 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 ype()) {..Tcl_Ap
40b0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
40c0: 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 p, "bad channel
40d0: 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e \"", Tcl_GetChan
40e0: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 nelName(chan),..
40f0: 09 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 ."\": not a TLS
4100: 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b channel", NULL);
4110: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
4120: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 OR;. }. st
4130: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
4140: 2a 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c *)Tcl_GetChannel
4150: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 InstanceData(cha
4160: 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 53 53 n);.. if (!SS
4170: 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 L_is_init_finish
4180: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ed(statePtr->ssl
4190: 29 29 20 7b 0a 09 69 6e 74 20 65 72 72 3b 0a 09 )) {..int err;..
41a0: 72 65 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f ret = Tls_WaitFo
41b0: 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 rConnect(statePt
41c0: 72 2c 20 26 65 72 72 29 3b 0a 09 69 66 20 28 28 r, &err);..if ((
41d0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
41e0: 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 & TLS_TCL_ASYNC)
41f0: 20 26 26 20 65 72 72 20 3d 3d 20 45 41 47 41 49 && err == EAGAI
4200: 4e 29 20 7b 0a 09 20 20 20 20 72 65 74 20 3d 20 N) {.. ret =
4210: 30 3b 0a 09 7d 0a 09 69 66 20 28 72 65 74 20 3c 0;..}..if (ret <
4220: 20 30 29 20 7b 0a 09 20 20 20 20 43 4f 4e 53 54 0) {.. CONST
4230: 20 63 68 61 72 20 2a 65 72 72 53 74 72 20 3d 20 char *errStr =
4240: 73 74 61 74 65 50 74 72 2d 3e 65 72 72 3b 0a 09 statePtr->err;..
4250: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
4260: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 ult(interp);..
4270: 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 65 Tcl_SetErrno(e
4280: 72 72 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 21 rr);... if (!
4290: 65 72 72 53 74 72 20 7c 7c 20 2a 65 72 72 53 74 errStr || *errSt
42a0: 72 20 3d 3d 20 30 29 20 7b 0a 09 09 65 72 72 53 r == 0) {...errS
42b0: 74 72 20 3d 20 54 63 6c 5f 50 6f 73 69 78 45 72 tr = Tcl_PosixEr
42c0: 72 6f 72 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 ror(interp);..
42d0: 20 20 7d 0a 0a 09 20 20 20 20 54 63 6c 5f 41 70 }... Tcl_Ap
42e0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
42f0: 70 2c 20 22 68 61 6e 64 73 68 61 6b 65 20 66 61 p, "handshake fa
4300: 69 6c 65 64 3a 20 22 2c 20 65 72 72 53 74 72 2c iled: ", errStr,
4310: 0a 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 20 ... (char *)
4320: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 NULL);.. retu
4330: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
4340: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f . }.. Tcl_
4350: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
4360: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f erp, Tcl_NewIntO
4370: 62 6a 28 72 65 74 29 29 3b 0a 20 20 20 20 72 65 bj(ret));. re
4380: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c turn TCL_OK;.}..
4390: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
43a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
43e0: 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a ImportObjCmd --.
43f0: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
4400: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
4410: 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 22 to process the "
4420: 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 0a ssl" command. *.
4430: 20 2a 09 54 68 65 20 73 73 6c 20 63 6f 6d 6d 61 *.The ssl comma
4440: 6e 64 20 70 75 73 68 65 73 20 53 53 4c 20 6f 76 nd pushes SSL ov
4450: 65 72 20 61 20 28 6e 65 77 6c 79 20 63 6f 6e 6e er a (newly conn
4460: 65 63 74 65 64 29 20 74 63 70 20 73 6f 63 6b 65 ected) tcp socke
4470: 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a t. *. * Results:
4480: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
4490: 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a cl result.. *. *
44a0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
44b0: 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 65 *.May modify the
44c0: 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e 20 behavior of an
44d0: 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 IO channel.. *.
44e0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
44f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4520: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
4530: 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 6d int.ImportObjCm
4540: 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e d(clientData, in
4550: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
4560: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ). ClientData
4570: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 clientData;./*
4580: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 Not used. */.
4590: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
45a0: 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a erp;. int obj
45b0: 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a c;. Tcl_Obj *
45c0: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a CONST objv[];.{.
45d0: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
45e0: 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 chan;../* The ch
45f0: 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 6d annel to set a m
4600: 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 53 ode on. */. S
4610: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 09 tate *statePtr;.
4620: 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 65 ./* client state
4630: 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 20 for ssl socket
4640: 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a */. SSL_CTX *
4650: 63 74 78 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ctx.= NULL;.
4660: 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70 74 09 Tcl_Obj *script.
4670: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
4680: 4f 62 6a 20 2a 70 61 73 73 77 6f 72 64 09 3d 20 Obj *password.=
4690: 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 69 64 NULL;. int id
46a0: 78 2c 20 6c 65 6e 3b 0a 20 20 20 20 69 6e 74 20 x, len;. int
46b0: 66 6c 61 67 73 09 09 3d 20 54 4c 53 5f 54 43 4c flags..= TLS_TCL
46c0: 5f 49 4e 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 _INIT;. int s
46d0: 65 72 76 65 72 09 09 3d 20 30 3b 09 2f 2a 20 69 erver..= 0;./* i
46e0: 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 s connection inc
46f0: 6f 6d 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e oming or outgoin
4700: 67 3f 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a g? */. char *
4710: 6b 65 79 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 key..= NULL;.
4720: 20 63 68 61 72 20 2a 63 65 72 74 09 09 3d 20 4e char *cert..= N
4730: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 ULL;. char *c
4740: 69 70 68 65 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 iphers.= NULL;.
4750: 20 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 char *CAfile.
4760: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 = NULL;. char
4770: 20 2a 43 41 64 69 72 09 09 3d 20 4e 55 4c 4c 3b *CAdir..= NULL;
4780: 0a 20 20 20 20 63 68 61 72 20 2a 6d 6f 64 65 6c . char *model
4790: 09 09 3d 20 4e 55 4c 4c 3b 0a 23 69 66 20 64 65 ..= NULL;.#if de
47a0: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 fined(NO_SSL2).
47b0: 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 30 3b int ssl2 = 0;
47c0: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 .#else. int s
47d0: 73 6c 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a sl2 = 1;.#endif.
47e0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
47f0: 53 4c 33 29 0a 20 20 20 20 69 6e 74 20 73 73 6c SL3). int ssl
4800: 33 20 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 3 = 0;.#else.
4810: 20 69 6e 74 20 73 73 6c 33 20 3d 20 31 3b 0a 23 int ssl3 = 1;.#
4820: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
4830: 64 28 4e 4f 5f 53 53 4c 32 29 20 26 26 20 64 65 d(NO_SSL2) && de
4840: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 fined(NO_SSL3).
4850: 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 3b int tls1 = 1;
4860: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 74 .#else. int t
4870: 6c 73 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a ls1 = 0;.#endif.
4880: 20 20 20 20 69 6e 74 20 70 72 6f 74 6f 20 3d 20 int proto =
4890: 30 3b 0a 20 20 20 20 69 6e 74 20 76 65 72 69 66 0;. int verif
48a0: 79 20 3d 20 30 2c 20 72 65 71 75 69 72 65 20 3d y = 0, require =
48b0: 20 30 2c 20 72 65 71 75 65 73 74 20 3d 20 31 3b 0, request = 1;
48c0: 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c .. if (objc <
48d0: 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 2) {..Tcl_Wrong
48e0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
48f0: 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 1, objv, "channe
4900: 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a 09 l ?options?");..
4910: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4920: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 ;. }.. cha
4930: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
4940: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
4950: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
4960: 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 objv[1], NULL),
4970: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 NULL);. if (c
4980: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
4990: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
49a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
49b0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 68 }. if (ch
49c0: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
49d0: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
49e0: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a VERSION_2) {../*
49f0: 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 .. * Make sure t
4a00: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
4a10: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
4a20: 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 .. */..chan = Tc
4a30: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
4a40: 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 chan);. }..
4a50: 20 20 66 6f 72 20 28 69 64 78 20 3d 20 32 3b 20 for (idx = 2;
4a60: 69 64 78 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b idx < objc; idx+
4a70: 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f 70 74 20 +) {..char *opt
4a80: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
4a90: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d romObj(objv[idx]
4aa0: 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f , NULL);...if (o
4ab0: 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 0a 09 20 pt[0] != '-')..
4ac0: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 4f 50 54 53 break;...OPTS
4ad0: 54 52 28 20 22 2d 63 61 64 69 72 22 2c 20 43 41 TR( "-cadir", CA
4ae0: 64 69 72 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 dir);..OPTSTR( "
4af0: 2d 63 61 66 69 6c 65 22 2c 20 43 41 66 69 6c 65 -cafile", CAfile
4b00: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 65 );..OPTSTR( "-ce
4b10: 72 74 66 69 6c 65 22 2c 20 63 65 72 74 29 3b 0a rtfile", cert);.
4b20: 09 4f 50 54 53 54 52 28 20 22 2d 63 69 70 68 65 .OPTSTR( "-ciphe
4b30: 72 22 2c 20 63 69 70 68 65 72 73 29 3b 0a 09 4f r", ciphers);..O
4b40: 50 54 4f 42 4a 28 20 22 2d 63 6f 6d 6d 61 6e 64 PTOBJ( "-command
4b50: 22 2c 20 73 63 72 69 70 74 29 3b 0a 09 4f 50 54 ", script);..OPT
4b60: 53 54 52 28 20 22 2d 6b 65 79 66 69 6c 65 22 2c STR( "-keyfile",
4b70: 20 6b 65 79 29 3b 0a 09 4f 50 54 53 54 52 28 20 key);..OPTSTR(
4b80: 22 2d 6d 6f 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 "-model", model)
4b90: 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 70 61 73 ;..OPTOBJ( "-pas
4ba0: 73 77 6f 72 64 22 2c 20 70 61 73 73 77 6f 72 64 sword", password
4bb0: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
4bc0: 65 71 75 69 72 65 22 2c 20 72 65 71 75 69 72 65 equire", require
4bd0: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
4be0: 65 71 75 65 73 74 22 2c 20 72 65 71 75 65 73 74 equest", request
4bf0: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 );..OPTBOOL( "-s
4c00: 65 72 76 65 72 22 2c 20 73 65 72 76 65 72 29 3b erver", server);
4c10: 0a 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 ...OPTBOOL( "-ss
4c20: 6c 32 22 2c 20 73 73 6c 32 29 3b 0a 09 4f 50 54 l2", ssl2);..OPT
4c30: 42 4f 4f 4c 28 20 22 2d 73 73 6c 33 22 2c 20 73 BOOL( "-ssl3", s
4c40: 73 6c 33 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 sl3);..OPTBOOL(
4c50: 22 2d 74 6c 73 31 22 2c 20 74 6c 73 31 29 3b 0a "-tls1", tls1);.
4c60: 0a 09 4f 50 54 42 41 44 28 20 22 6f 70 74 69 6f ..OPTBAD( "optio
4c70: 6e 22 2c 20 22 2d 63 61 64 69 72 2c 20 2d 63 61 n", "-cadir, -ca
4c80: 66 69 6c 65 2c 20 2d 63 65 72 74 66 69 6c 65 2c file, -certfile,
4c90: 20 2d 63 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 -cipher, -comma
4ca0: 6e 64 2c 20 2d 6b 65 79 66 69 6c 65 2c 20 2d 6d nd, -keyfile, -m
4cb0: 6f 64 65 6c 2c 20 2d 70 61 73 73 77 6f 72 64 2c odel, -password,
4cc0: 20 2d 72 65 71 75 69 72 65 2c 20 2d 72 65 71 75 -require, -requ
4cd0: 65 73 74 2c 20 2d 73 65 72 76 65 72 2c 20 2d 73 est, -server, -s
4ce0: 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 6f 72 20 2d sl2, -ssl3, or -
4cf0: 74 6c 73 31 22 29 3b 0a 0a 09 72 65 74 75 72 6e tls1");...return
4d00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4d10: 7d 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 }. if (reques
4d20: 74 29 09 20 20 20 20 76 65 72 69 66 79 20 7c 3d t). verify |=
4d30: 20 53 53 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45 SSL_VERIFY_CLIE
4d40: 4e 54 5f 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45 NT_ONCE | SSL_VE
4d50: 52 49 46 59 5f 50 45 45 52 3b 0a 20 20 20 20 69 RIFY_PEER;. i
4d60: 66 20 28 72 65 71 75 65 73 74 20 26 26 20 72 65 f (request && re
4d70: 71 75 69 72 65 29 20 76 65 72 69 66 79 20 7c 3d quire) verify |=
4d80: 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c SSL_VERIFY_FAIL
4d90: 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 _IF_NO_PEER_CERT
4da0: 3b 0a 20 20 20 20 69 66 20 28 76 65 72 69 66 79 ;. if (verify
4db0: 20 3d 3d 20 30 29 09 76 65 72 69 66 79 20 3d 20 == 0).verify =
4dc0: 53 53 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b SSL_VERIFY_NONE;
4dd0: 0a 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 .. proto |= (
4de0: 73 73 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f ssl2 ? TLS_PROTO
4df0: 5f 53 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 _SSL2 : 0);.
4e00: 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f proto |= (ssl3 ?
4e10: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 TLS_PROTO_SSL3
4e20: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 : 0);. proto
4e30: 7c 3d 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 |= (tls1 ? TLS_P
4e40: 52 4f 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a ROTO_TLS1 : 0);.
4e50: 0a 20 20 20 20 2f 2a 20 72 65 73 65 74 20 74 6f . /* reset to
4e60: 20 4e 55 4c 4c 20 69 66 20 62 6c 61 6e 6b 20 73 NULL if blank s
4e70: 74 72 69 6e 67 20 70 72 6f 76 69 64 65 64 20 2a tring provided *
4e80: 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 20 26 /. if (cert &
4e90: 26 20 21 2a 63 65 72 74 29 09 09 63 65 72 74 09 & !*cert)..cert.
4ea0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 = NULL;. if (
4eb0: 6b 65 79 20 26 26 20 21 2a 6b 65 79 29 09 09 6b key && !*key)..k
4ec0: 65 79 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 ey.= NULL;. i
4ed0: 66 20 28 63 69 70 68 65 72 73 20 26 26 20 21 2a f (ciphers && !*
4ee0: 63 69 70 68 65 72 73 29 09 63 69 70 68 65 72 73 ciphers).ciphers
4ef0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 .= NULL;. if
4f00: 28 43 41 66 69 6c 65 20 26 26 20 21 2a 43 41 66 (CAfile && !*CAf
4f10: 69 6c 65 29 09 43 41 66 69 6c 65 09 3d 20 4e 55 ile).CAfile.= NU
4f20: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 64 69 LL;. if (CAdi
4f30: 72 20 26 26 20 21 2a 43 41 64 69 72 29 09 43 41 r && !*CAdir).CA
4f40: 64 69 72 09 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 dir.= NULL;..
4f50: 20 2f 2a 20 6e 65 77 20 53 53 4c 20 73 74 61 74 /* new SSL stat
4f60: 65 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 e */. statePt
4f70: 72 09 09 3d 20 28 53 74 61 74 65 20 2a 29 20 63 r..= (State *) c
4f80: 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 kalloc((unsigned
4f90: 29 20 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 ) sizeof(State))
4fa0: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 73 74 61 ;. memset(sta
4fb0: 74 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 tePtr, 0, sizeof
4fc0: 28 53 74 61 74 65 29 29 3b 0a 0a 20 20 20 20 73 (State));.. s
4fd0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 09 3d tatePtr->flags.=
4fe0: 20 66 6c 61 67 73 3b 0a 20 20 20 20 73 74 61 74 flags;. stat
4ff0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 09 3d 20 69 ePtr->interp.= i
5000: 6e 74 65 72 70 3b 0a 20 20 20 20 73 74 61 74 65 nterp;. state
5010: 50 74 72 2d 3e 76 66 6c 61 67 73 09 3d 20 76 65 Ptr->vflags.= ve
5020: 72 69 66 79 3b 0a 20 20 20 20 73 74 61 74 65 50 rify;. stateP
5030: 74 72 2d 3e 65 72 72 09 3d 20 22 22 3b 0a 0a 20 tr->err.= "";..
5040: 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 73 /* allocate s
5050: 63 72 69 70 74 20 2a 2f 0a 20 20 20 20 69 66 20 cript */. if
5060: 28 73 63 72 69 70 74 29 20 7b 0a 09 28 76 6f 69 (script) {..(voi
5070: 64 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 d) Tcl_GetString
5080: 46 72 6f 6d 4f 62 6a 28 73 63 72 69 70 74 2c 20 FromObj(script,
5090: 26 6c 65 6e 29 3b 0a 09 69 66 20 28 6c 65 6e 29 &len);..if (len)
50a0: 20 7b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 {.. statePtr
50b0: 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 73 63 72 ->callback = scr
50c0: 69 70 74 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e ipt;.. Tcl_In
50d0: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 crRefCount(state
50e0: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a Ptr->callback);.
50f0: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a .}. }.. /*
5100: 20 61 6c 6c 6f 63 61 74 65 20 70 61 73 73 77 6f allocate passwo
5110: 72 64 20 2a 2f 0a 20 20 20 20 69 66 20 28 70 61 rd */. if (pa
5120: 73 73 77 6f 72 64 29 20 7b 0a 09 28 76 6f 69 64 ssword) {..(void
5130: 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 ) Tcl_GetStringF
5140: 72 6f 6d 4f 62 6a 28 70 61 73 73 77 6f 72 64 2c romObj(password,
5150: 20 26 6c 65 6e 29 3b 0a 09 69 66 20 28 6c 65 6e &len);..if (len
5160: 29 20 7b 0a 09 20 20 20 20 73 74 61 74 65 50 74 ) {.. statePt
5170: 72 2d 3e 70 61 73 73 77 6f 72 64 20 3d 20 70 61 r->password = pa
5180: 73 73 77 6f 72 64 3b 0a 09 20 20 20 20 54 63 6c ssword;.. Tcl
5190: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 73 74 _IncrRefCount(st
51a0: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
51b0: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 );..}. }..
51c0: 20 69 66 20 28 6d 6f 64 65 6c 20 21 3d 20 4e 55 if (model != NU
51d0: 4c 4c 29 20 7b 0a 09 69 6e 74 20 6d 6f 64 65 3b LL) {..int mode;
51e0: 0a 09 2f 2a 20 47 65 74 20 74 68 65 20 22 6d 6f ../* Get the "mo
51f0: 64 65 6c 22 20 63 6f 6e 74 65 78 74 20 2a 2f 0a del" context */.
5200: 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 .chan = Tcl_GetC
5210: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6d hannel(interp, m
5220: 6f 64 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 09 69 odel, &mode);..i
5230: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
5240: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
5250: 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 .. Tls_Free((
5260: 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 char *) statePtr
5270: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
5280: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 CL_ERROR;..}..if
5290: 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 (channelTypeVer
52a0: 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e sion == TLS_CHAN
52b0: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b NEL_VERSION_2) {
52c0: 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a .. /*.. *
52d0: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
52e0: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
52f0: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 20 most channel..
5300: 20 20 20 2a 2f 0a 09 20 20 20 20 63 68 61 6e 20 */.. chan
5310: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e = Tcl_GetTopChan
5320: 6e 65 6c 28 63 68 61 6e 29 3b 0a 09 7d 0a 09 69 nel(chan);..}..i
5330: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 f (Tcl_GetChanne
5340: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 lType(chan) != T
5350: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
5360: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 ) {.. Tcl_App
5370: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
5380: 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c , "bad channel \
5390: 22 22 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 "",... Tcl_Ge
53a0: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 tChannelName(cha
53b0: 6e 29 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 n), "\": not a T
53c0: 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c LS channel", NUL
53d0: 4c 29 3b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 L);.. Tls_Fre
53e0: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
53f0: 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 Ptr);.. retur
5400: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
5410: 09 63 74 78 20 3d 20 28 28 53 74 61 74 65 20 2a .ctx = ((State *
5420: 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 )Tcl_GetChannelI
5430: 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e nstanceData(chan
5440: 29 29 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 ))->ctx;. } e
5450: 6c 73 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 lse {..if ((ctx
5460: 3d 20 43 54 58 5f 49 6e 69 74 28 73 74 61 74 65 = CTX_Init(state
5470: 50 74 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c Ptr, proto, key,
5480: 20 63 65 72 74 2c 20 43 41 64 69 72 2c 20 43 41 cert, CAdir, CA
5490: 66 69 6c 65 2c 20 63 69 70 68 65 72 73 29 29 0a file, ciphers)).
54a0: 09 09 3d 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 ..== (SSL_CTX*)0
54b0: 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 ) {.. Tls_Fre
54c0: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
54d0: 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 Ptr);.. retur
54e0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
54f0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 }.. state
5500: 50 74 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b 0a Ptr->ctx = ctx;.
5510: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 . /*. * W
5520: 65 20 6e 65 65 64 20 74 6f 20 6d 61 6b 65 20 73 e need to make s
5530: 75 72 65 20 74 68 61 74 20 74 68 65 20 63 68 61 ure that the cha
5540: 6e 6e 65 6c 20 77 6f 72 6b 73 20 69 6e 20 62 69 nnel works in bi
5550: 6e 61 72 79 20 28 66 6f 72 20 74 68 65 0a 20 20 nary (for the.
5560: 20 20 20 2a 20 65 6e 63 72 79 70 74 69 6f 6e 20 * encryption
5570: 6e 6f 74 20 74 6f 20 67 65 74 20 67 6f 6f 66 65 not to get goofe
5580: 64 20 75 70 29 2e 0a 20 20 20 20 20 2a 20 57 65 d up).. * We
5590: 20 6f 6e 6c 79 20 77 61 6e 74 20 74 6f 20 61 64 only want to ad
55a0: 6a 75 73 74 20 74 68 65 20 62 75 66 66 65 72 69 just the bufferi
55b0: 6e 67 20 69 6e 20 70 72 65 2d 76 32 20 63 68 61 ng in pre-v2 cha
55c0: 6e 6e 65 6c 73 2c 20 77 68 65 72 65 0a 20 20 20 nnels, where.
55d0: 20 20 2a 20 65 61 63 68 20 63 68 61 6e 6e 65 6c * each channel
55e0: 20 69 6e 20 74 68 65 20 73 74 61 63 6b 20 6d 61 in the stack ma
55f0: 69 6e 74 61 69 6e 65 64 20 69 74 73 20 6f 77 6e intained its own
5600: 20 62 75 66 66 65 72 73 2e 0a 20 20 20 20 20 2a buffers.. *
5610: 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 /. Tcl_SetCha
5620: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
5630: 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 p, chan, "-trans
5640: 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 lation", "binary
5650: 22 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e ");. if (chan
5660: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
5670: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
5680: 52 53 49 4f 4e 5f 31 29 20 7b 0a 09 54 63 6c 5f RSION_1) {..Tcl_
5690: 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e SetChannelOption
56a0: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 (interp, chan, "
56b0: 2d 62 75 66 66 65 72 69 6e 67 22 2c 20 22 6e 6f -buffering", "no
56c0: 6e 65 22 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 ne");. }..
56d0: 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 if (channelType
56e0: 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 Version == TLS_C
56f0: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 HANNEL_VERSION_2
5700: 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 ) {..statePtr->s
5710: 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 elf = Tcl_StackC
5720: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 hannel(interp, T
5730: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
5740: 2c 0a 09 09 28 43 6c 69 65 6e 74 44 61 74 61 29 ,...(ClientData)
5750: 20 73 74 61 74 65 50 74 72 2c 20 28 54 43 4c 5f statePtr, (TCL_
5760: 52 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 READABLE | TCL_W
5770: 52 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b RITABLE), chan);
5780: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 . } else {..s
5790: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 tatePtr->self =
57a0: 63 68 61 6e 3b 0a 09 54 63 6c 5f 53 74 61 63 6b chan;..Tcl_Stack
57b0: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
57c0: 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 Tls_ChannelType(
57d0: 29 2c 0a 09 09 28 43 6c 69 65 6e 74 44 61 74 61 ),...(ClientData
57e0: 29 20 73 74 61 74 65 50 74 72 2c 20 28 54 43 4c ) statePtr, (TCL
57f0: 5f 52 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f _READABLE | TCL_
5800: 57 52 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 WRITABLE), chan)
5810: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
5820: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
5830: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
5840: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 NULL) {../*.. *
5850: 4e 6f 20 75 73 65 20 6f 66 20 54 63 6c 5f 45 76 No use of Tcl_Ev
5860: 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 62 65 63 entuallyFree bec
5870: 61 75 73 65 20 6e 6f 20 70 6f 73 73 69 62 6c 65 ause no possible
5880: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 2e 0a 09 Tcl_Preserve...
5890: 20 2a 2f 0a 09 54 6c 73 5f 46 72 65 65 28 28 63 */..Tls_Free((c
58a0: 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 har *) statePtr)
58b0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
58c0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
58d0: 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 49 6e /*. * SSL In
58e0: 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 20 20 itialization.
58f0: 20 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 65 50 */.. stateP
5900: 74 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 tr->ssl = SSL_ne
5910: 77 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 29 w(statePtr->ctx)
5920: 3b 0a 20 20 20 20 69 66 20 28 21 73 74 61 74 65 ;. if (!state
5930: 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 2f 2a 20 Ptr->ssl) {../*
5940: 53 53 4c 20 6c 69 62 72 61 72 79 20 65 72 72 6f SSL library erro
5950: 72 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e 64 r */..Tcl_Append
5960: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5970: 63 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 72 75 couldn't constru
5980: 63 74 20 73 73 6c 20 73 65 73 73 69 6f 6e 3a 20 ct ssl session:
5990: 22 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 09 28 ", REASON(),...(
59a0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
59b0: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
59c0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 ) statePtr);..re
59d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
59e0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 }.. /*.
59f0: 20 20 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 * SSL Callbac
5a00: 6b 73 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 ks. */..
5a10: 53 53 4c 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 SSL_set_app_data
5a20: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
5a30: 28 56 4f 49 44 20 2a 29 73 74 61 74 65 50 74 72 (VOID *)statePtr
5a40: 29 3b 09 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b );./* point back
5a50: 20 74 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 20 53 to us */.. S
5a60: 53 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 73 74 SL_set_verify(st
5a70: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 65 72 atePtr->ssl, ver
5a80: 69 66 79 2c 20 56 65 72 69 66 79 43 61 6c 6c 62 ify, VerifyCallb
5a90: 61 63 6b 29 3b 0a 0a 20 20 20 20 53 53 4c 5f 43 ack);.. SSL_C
5aa0: 54 58 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c TX_set_info_call
5ab0: 62 61 63 6b 28 73 74 61 74 65 50 74 72 2d 3e 63 back(statePtr->c
5ac0: 74 78 2c 20 49 6e 66 6f 43 61 6c 6c 62 61 63 6b tx, InfoCallback
5ad0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 );.. /* Creat
5ae0: 65 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 42 49 e Tcl_Channel BI
5af0: 4f 20 48 61 6e 64 6c 65 72 20 2a 2f 0a 20 20 20 O Handler */.
5b00: 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f statePtr->p_bio
5b10: 09 3d 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 73 .= BIO_new_tcl(s
5b20: 74 61 74 65 50 74 72 2c 20 42 49 4f 5f 43 4c 4f tatePtr, BIO_CLO
5b30: 53 45 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 SE);. statePt
5b40: 72 2d 3e 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 r->bio.= BIO_new
5b50: 28 42 49 4f 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a (BIO_f_ssl());..
5b60: 20 20 20 20 69 66 20 28 73 65 72 76 65 72 29 20 if (server)
5b70: 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 {..statePtr->fla
5b80: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 53 45 gs |= TLS_TCL_SE
5b90: 52 56 45 52 3b 0a 09 53 53 4c 5f 73 65 74 5f 61 RVER;..SSL_set_a
5ba0: 63 63 65 70 74 5f 73 74 61 74 65 28 73 74 61 74 ccept_state(stat
5bb0: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 ePtr->ssl);.
5bc0: 7d 20 65 6c 73 65 20 7b 0a 09 53 53 4c 5f 73 65 } else {..SSL_se
5bd0: 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 61 74 65 28 t_connect_state(
5be0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
5bf0: 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 73 65 }. SSL_se
5c00: 74 5f 62 69 6f 28 73 74 61 74 65 50 74 72 2d 3e t_bio(statePtr->
5c10: 73 73 6c 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 ssl, statePtr->p
5c20: 5f 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e _bio, statePtr->
5c30: 70 5f 62 69 6f 29 3b 0a 20 20 20 20 42 49 4f 5f p_bio);. BIO_
5c40: 73 65 74 5f 73 73 6c 28 73 74 61 74 65 50 74 72 set_ssl(statePtr
5c50: 2d 3e 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d ->bio, statePtr-
5c60: 3e 73 73 6c 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 >ssl, BIO_NOCLOS
5c70: 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 E);.. /*.
5c80: 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 49 6e * End of SSL In
5c90: 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 it. */. T
5ca0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
5cb0: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 63 erp, (char *) Tc
5cc0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
5cd0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
5ce0: 2c 0a 09 20 20 20 20 54 43 4c 5f 56 4f 4c 41 54 ,.. TCL_VOLAT
5cf0: 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ILE);. return
5d00: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a TCL_OK;.}.../*.
5d10: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
5d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d50: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 69 6d -----. *. * Unim
5d60: 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a portObjCmd --. *
5d70: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
5d80: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f re is invoked to
5d90: 20 72 65 6d 6f 76 65 20 74 68 65 20 74 6f 70 6d remove the topm
5da0: 6f 73 74 20 63 68 61 6e 6e 65 6c 20 66 69 6c 74 ost channel filt
5db0: 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 er.. *. * Result
5dc0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
5dd0: 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a Tcl result.. *.
5de0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
5df0: 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 . *.May modify t
5e00: 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 he behavior of a
5e10: 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a n IO channel.. *
5e20: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e60: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
5e70: 69 63 20 69 6e 74 0a 55 6e 69 6d 70 6f 72 74 4f ic int.UnimportO
5e80: 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 bjCmd(clientData
5e90: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
5ea0: 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 objv). Client
5eb0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b Data clientData;
5ec0: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f ./* Not used. */
5ed0: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
5ee0: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 *interp;. int
5ef0: 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f objc;. Tcl_O
5f00: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
5f10: 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ;.{. Tcl_Chan
5f20: 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 nel chan;../* Th
5f30: 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 e channel to set
5f40: 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 0a a mode on. */..
5f50: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 if (objc !=
5f60: 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 2) {..Tcl_WrongN
5f70: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
5f80: 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c , objv, "channel
5f90: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
5fa0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5fb0: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
5fc0: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
5fd0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
5fe0: 6a 76 5b 31 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 jv[1]), NULL);.
5ff0: 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 if (chan == (
6000: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
6010: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
6020: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6030: 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 if (channelTy
6040: 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 peVersion == TLS
6050: 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e _CHANNEL_VERSION
6060: 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4d 61 _2) {../*.. * Ma
6070: 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 ke sure to opera
6080: 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 te on the topmos
6090: 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 t channel.. */..
60a0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
60b0: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
60c0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 54 }.. if (T
60d0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
60e0: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 e(chan) != Tls_C
60f0: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a hannelType()) {.
6100: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
6110: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 t(interp, "bad c
6120: 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f hannel \"", Tcl_
6130: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 GetChannelName(c
6140: 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 han),..."\": not
6150: 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c a TLS channel",
6160: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
6170: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6180: 0a 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 55 6e .. if (Tcl_Un
6190: 73 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 stackChannel(int
61a0: 65 72 70 2c 20 63 68 61 6e 29 20 3d 3d 20 54 43 erp, chan) == TC
61b0: 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 72 65 74 75 L_ERROR) {..retu
61c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
61d0: 20 20 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 }.. return
61e0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 TCL_OK;.}.../*.
61f0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6230: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 54 58 5f 49 ----. *. * CTX_I
6240: 6e 69 74 20 2d 2d 20 63 6f 6e 73 74 72 75 63 74 nit -- construct
6250: 20 61 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 a SSL_CTX insta
6260: 6e 63 65 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 nce. *. * Result
6270: 73 3a 0a 20 2a 09 41 20 76 61 6c 69 64 20 53 53 s:. *.A valid SS
6280: 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 20 6f L_CTX instance o
6290: 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20 2a 20 53 69 r NULL.. *. * Si
62a0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 de effects:. *.c
62b0: 6f 6e 73 74 72 75 63 74 73 20 53 53 4c 20 63 6f onstructs SSL co
62c0: 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 ntext (CTX). *.
62d0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
62e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
62f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6310: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
6320: 20 53 53 4c 5f 43 54 58 20 2a 0a 43 54 58 5f 49 SSL_CTX *.CTX_I
6330: 6e 69 74 28 73 74 61 74 65 50 74 72 2c 20 70 72 nit(statePtr, pr
6340: 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 72 74 2c 20 oto, key, cert,
6350: 43 41 64 69 72 2c 20 43 41 66 69 6c 65 2c 20 63 CAdir, CAfile, c
6360: 69 70 68 65 72 73 29 0a 20 20 20 20 53 74 61 74 iphers). Stat
6370: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
6380: 20 69 6e 74 20 70 72 6f 74 6f 3b 0a 20 20 20 20 int proto;.
6390: 63 68 61 72 20 2a 6b 65 79 3b 0a 20 20 20 20 63 char *key;. c
63a0: 68 61 72 20 2a 63 65 72 74 3b 0a 20 20 20 20 63 har *cert;. c
63b0: 68 61 72 20 2a 43 41 64 69 72 3b 0a 20 20 20 20 har *CAdir;.
63c0: 63 68 61 72 20 2a 43 41 66 69 6c 65 3b 0a 20 20 char *CAfile;.
63d0: 20 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 3b char *ciphers;
63e0: 0a 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 .{. Tcl_Inter
63f0: 70 20 2a 69 6e 74 65 72 70 20 3d 20 73 74 61 74 p *interp = stat
6400: 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 ePtr->interp;.
6410: 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d SSL_CTX *ctx =
6420: 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 44 NULL;. Tcl_D
6430: 53 74 72 69 6e 67 20 64 73 3b 0a 20 20 20 20 54 String ds;. T
6440: 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 31 3b 0a cl_DString ds1;.
6450: 20 20 20 20 69 6e 74 20 6f 66 66 20 3d 20 30 3b int off = 0;
6460: 0a 0a 20 20 20 20 2f 2a 20 63 72 65 61 74 65 20 .. /* create
6470: 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 23 SSL context */.#
6480: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 if !defined(NO_S
6490: 53 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 SL2) && !defined
64a0: 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 66 (NO_SSL3). if
64b0: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
64c0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 TLS_PROTO_SSL2)
64d0: 20 26 26 0a 09 45 4e 41 42 4c 45 44 28 70 72 6f &&..ENABLED(pro
64e0: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 to, TLS_PROTO_SS
64f0: 4c 33 29 29 20 7b 0a 09 63 74 78 20 3d 20 53 53 L3)) {..ctx = SS
6500: 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 33 L_CTX_new(SSLv23
6510: 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 20 20 20 _method());.
6520: 7d 20 65 6c 73 65 0a 23 65 6e 64 69 66 0a 20 20 } else.#endif.
6530: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 if (ENABLED(pr
6540: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
6550: 53 4c 32 29 29 20 7b 0a 23 69 66 20 64 65 66 69 SL2)) {.#if defi
6560: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 54 63 ned(NO_SSL2)..Tc
6570: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
6580: 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c nterp, "protocol
6590: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
65a0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
65b0: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 (SSL_CTX *)0;.#e
65c0: 6c 73 65 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 lse..ctx = SSL_C
65d0: 54 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d 65 74 TX_new(SSLv2_met
65e0: 68 6f 64 28 29 29 3b 0a 23 65 6e 64 69 66 0a 20 hod());.#endif.
65f0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 4e } else if (EN
6600: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
6610: 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 20 7b 0a _PROTO_TLS1)) {.
6620: 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e .ctx = SSL_CTX_n
6630: 65 77 28 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 ew(TLSv1_method(
6640: 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 ));. } else i
6650: 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f f (ENABLED(proto
6660: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 , TLS_PROTO_SSL3
6670: 29 29 20 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 )) {.#if defined
6680: 28 4e 4f 5f 53 53 4c 33 29 0a 09 54 63 6c 5f 41 (NO_SSL3)..Tcl_A
6690: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
66a0: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
66b0: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
66c0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 LL);..return (SS
66d0: 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6c 73 65 L_CTX *)0;.#else
66e0: 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
66f0: 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74 68 6f 64 new(SSLv3_method
6700: 28 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 ());.#endif.
6710: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 } else {..Tcl_Ap
6720: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
6730: 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 70 72 6f p, "no valid pro
6740: 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 22 2c tocol selected",
6750: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
6760: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 (SSL_CTX *)0;.
6770: 20 20 7d 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 }. off |= (
6780: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
6790: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 20 3f LS_PROTO_TLS1) ?
67a0: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 0 : SSL_OP_NO_T
67b0: 4c 53 76 31 29 3b 0a 20 20 20 20 6f 66 66 20 7c LSv1);. off |
67c0: 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f = (ENABLED(proto
67d0: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 , TLS_PROTO_SSL2
67e0: 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e ) ? 0 : SSL_OP_N
67f0: 4f 5f 53 53 4c 76 32 29 3b 0a 20 20 20 20 6f 66 O_SSLv2);. of
6800: 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 f |= (ENABLED(pr
6810: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
6820: 53 4c 33 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f SL3) ? 0 : SSL_O
6830: 50 5f 4e 4f 5f 53 53 4c 76 33 29 3b 0a 0a 20 20 P_NO_SSLv3);..
6840: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 61 70 SSL_CTX_set_ap
6850: 70 5f 64 61 74 61 28 20 63 74 78 2c 20 28 56 4f p_data( ctx, (VO
6860: 49 44 2a 29 69 6e 74 65 72 70 29 3b 09 2f 2a 20 ID*)interp);./*
6870: 72 65 6d 65 6d 62 65 72 20 74 68 65 20 69 6e 74 remember the int
6880: 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 20 20 erpreter */.
6890: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 SSL_CTX_set_opti
68a0: 6f 6e 73 28 20 63 74 78 2c 20 53 53 4c 5f 4f 50 ons( ctx, SSL_OP
68b0: 5f 41 4c 4c 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 _ALL);./* all SS
68c0: 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 L bug workaround
68d0: 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 s */. SSL_CTX
68e0: 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 74 _set_options( ct
68f0: 78 2c 20 6f 66 66 29 3b 09 2f 2a 20 61 6c 6c 20 x, off);./* all
6900: 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 SSL bug workarou
6910: 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 nds */. SSL_C
6920: 54 58 5f 73 65 73 73 5f 73 65 74 5f 63 61 63 68 TX_sess_set_cach
6930: 65 5f 73 69 7a 65 28 20 63 74 78 2c 20 31 32 38 e_size( ctx, 128
6940: 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 69 70 68 );.. if (ciph
6950: 65 72 73 20 21 3d 20 4e 55 4c 4c 29 0a 09 53 53 ers != NULL)..SS
6960: 4c 5f 43 54 58 5f 73 65 74 5f 63 69 70 68 65 72 L_CTX_set_cipher
6970: 5f 6c 69 73 74 28 63 74 78 2c 20 63 69 70 68 65 _list(ctx, ciphe
6980: 72 73 29 3b 0a 0a 20 20 20 20 2f 2a 20 73 65 74 rs);.. /* set
6990: 20 73 6f 6d 65 20 63 61 6c 6c 62 61 63 6b 73 20 some callbacks
69a0: 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 */. SSL_CTX_s
69b0: 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 73 73 77 et_default_passw
69c0: 64 5f 63 62 28 63 74 78 2c 20 50 61 73 73 77 6f d_cb(ctx, Passwo
69d0: 72 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 rdCallback);..#i
69e0: 66 6e 64 65 66 20 42 53 41 46 45 0a 20 20 20 20 fndef BSAFE.
69f0: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 61 SSL_CTX_set_defa
6a00: 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 5f 75 73 ult_passwd_cb_us
6a10: 65 72 64 61 74 61 28 63 74 78 2c 20 28 76 6f 69 erdata(ctx, (voi
6a20: 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b 0a 23 d *)statePtr);.#
6a30: 65 6e 64 69 66 0a 0a 23 69 66 6e 64 65 66 20 4e endif..#ifndef N
6a40: 4f 5f 44 48 0a 20 20 20 20 7b 0a 09 44 48 2a 20 O_DH. {..DH*
6a50: 64 68 20 3d 20 67 65 74 5f 64 68 35 31 32 28 29 dh = get_dh512()
6a60: 3b 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 74 ;..SSL_CTX_set_t
6a70: 6d 70 5f 64 68 28 63 74 78 2c 20 64 68 29 3b 0a mp_dh(ctx, dh);.
6a80: 09 44 48 5f 66 72 65 65 28 64 68 29 3b 0a 20 20 .DH_free(dh);.
6a90: 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 }.#endif..
6aa0: 2f 2a 20 73 65 74 20 6f 75 72 20 63 65 72 74 69 /* set our certi
6ab0: 66 69 63 61 74 65 20 2a 2f 0a 20 20 20 20 69 66 ficate */. if
6ac0: 20 28 63 65 72 74 20 21 3d 20 4e 55 4c 4c 29 20 (cert != NULL)
6ad0: 7b 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e {..Tcl_DStringIn
6ae0: 69 74 28 26 64 73 29 3b 0a 0a 09 69 66 20 28 53 it(&ds);...if (S
6af0: 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 SL_CTX_use_certi
6b00: 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c ficate_file(ctx,
6b10: 20 46 32 4e 28 20 63 65 72 74 2c 20 26 64 73 29 F2N( cert, &ds)
6b20: 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 ,......SSL_FILET
6b30: 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b YPE_PEM) <= 0) {
6b40: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
6b50: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 gFree(&ds);..
6b60: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
6b70: 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 t(interp,....
6b80: 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 "unable to set
6b90: 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 6c certificate fil
6ba0: 65 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 22 2c e ", cert, ": ",
6bb0: 0a 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e 28 .... REASON(
6bc0: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ), (char *) NULL
6bd0: 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f );.. SSL_CTX_
6be0: 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 free(ctx);..
6bf0: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
6c00: 2a 29 30 3b 0a 09 7d 0a 0a 09 2f 2a 20 67 65 74 *)0;..}.../* get
6c10: 20 74 68 65 20 70 72 69 76 61 74 65 20 6b 65 79 the private key
6c20: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
6c30: 20 74 68 69 73 20 63 65 72 74 69 66 69 63 61 74 this certificat
6c40: 65 20 2a 2f 0a 09 69 66 20 28 6b 65 79 20 3d 3d e */..if (key ==
6c50: 20 4e 55 4c 4c 29 20 6b 65 79 3d 63 65 72 74 3b NULL) key=cert;
6c60: 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 ...if (SSL_CTX_u
6c70: 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f 66 69 se_PrivateKey_fi
6c80: 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 6b 65 79 le(ctx, F2N( key
6c90: 2c 20 26 64 73 29 2c 0a 09 09 09 09 09 53 53 4c , &ds),......SSL
6ca0: 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c _FILETYPE_PEM) <
6cb0: 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f = 0) {.. Tcl_
6cc0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
6cd0: 3b 0a 09 20 20 20 20 2f 2a 20 66 6c 75 73 68 20 ;.. /* flush
6ce0: 74 68 65 20 70 61 73 73 70 68 72 61 73 65 20 77 the passphrase w
6cf0: 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 6c 65 hich might be le
6d00: 66 74 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 ft in the result
6d10: 20 2a 2f 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 */.. Tcl_Set
6d20: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 4e Result(interp, N
6d30: 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 ULL, TCL_STATIC)
6d40: 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ;.. Tcl_Appen
6d50: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
6d60: 09 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 ... "unable
6d70: 74 6f 20 73 65 74 20 70 75 62 6c 69 63 20 6b 65 to set public ke
6d80: 79 20 66 69 6c 65 20 22 2c 20 6b 65 79 2c 20 22 y file ", key, "
6d90: 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 41 53 ",.... REAS
6da0: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e ON(), (char *) N
6db0: 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 ULL);.. SSL_C
6dc0: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 TX_free(ctx);..
6dd0: 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 return (SSL_C
6de0: 54 58 20 2a 29 30 3b 0a 09 7d 0a 09 54 63 6c 5f TX *)0;..}..Tcl_
6df0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
6e00: 3b 0a 09 2f 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f ;../* Now we kno
6e10: 77 20 74 68 61 74 20 61 20 6b 65 79 20 61 6e 64 w that a key and
6e20: 20 63 65 72 74 20 68 61 76 65 20 62 65 65 6e 20 cert have been
6e30: 73 65 74 20 61 67 61 69 6e 73 74 0a 09 20 2a 20 set against.. *
6e40: 74 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 the SSL context
6e50: 2a 2f 0a 09 69 66 20 28 21 53 53 4c 5f 43 54 58 */..if (!SSL_CTX
6e60: 5f 63 68 65 63 6b 5f 70 72 69 76 61 74 65 5f 6b _check_private_k
6e70: 65 79 28 63 74 78 29 29 20 7b 0a 09 20 20 20 20 ey(ctx)) {..
6e80: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
6e90: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 (interp,....
6ea0: 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 64 6f "private key do
6eb0: 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 es not match the
6ec0: 20 63 65 72 74 69 66 69 63 61 74 65 20 70 75 62 certificate pub
6ed0: 6c 69 63 20 6b 65 79 22 2c 0a 09 09 09 20 20 20 lic key",....
6ee0: 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 (char *) NULL)
6ef0: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 ;.. SSL_CTX_f
6f00: 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 ree(ctx);.. r
6f10: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
6f20: 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 )0;..}. } els
6f30: 65 20 7b 0a 09 63 65 72 74 20 3d 20 28 63 68 61 e {..cert = (cha
6f40: 72 2a 29 58 35 30 39 5f 67 65 74 5f 64 65 66 61 r*)X509_get_defa
6f50: 75 6c 74 5f 63 65 72 74 5f 66 69 6c 65 28 29 3b ult_cert_file();
6f60: 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 ...if (SSL_CTX_u
6f70: 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 5f 66 se_certificate_f
6f80: 69 6c 65 28 63 74 78 2c 20 63 65 72 74 2c 0a 09 ile(ctx, cert,..
6f90: 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 ....SSL_FILETYPE
6fa0: 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 23 69 _PEM) <= 0) {.#i
6fb0: 66 20 30 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 f 0.. Tcl_DSt
6fc0: 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 ringFree(&ds);..
6fd0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
6fe0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 sult(interp,....
6ff0: 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 "unable to
7000: 75 73 65 20 64 65 66 61 75 6c 74 20 63 65 72 74 use default cert
7010: 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 ificate file ",
7020: 63 65 72 74 2c 20 22 3a 20 22 2c 0a 09 09 09 20 cert, ": ",....
7030: 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 REASON(), (c
7040: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
7050: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 SSL_CTX_free(
7060: 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ctx);.. retur
7070: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
7080: 23 65 6e 64 69 66 0a 09 7d 0a 20 20 20 20 7d 0a #endif..}. }.
7090: 09 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
70a0: 67 49 6e 69 74 28 26 64 73 29 3b 0a 20 20 20 20 gInit(&ds);.
70b0: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
70c0: 26 64 73 31 29 3b 0a 20 20 20 20 69 66 20 28 21 &ds1);. if (!
70d0: 53 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f 76 65 72 SSL_CTX_load_ver
70e0: 69 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 28 63 74 ify_locations(ct
70f0: 78 2c 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 x, F2N(CAfile, &
7100: 64 73 29 2c 20 46 32 4e 28 43 41 64 69 72 2c 20 ds), F2N(CAdir,
7110: 26 64 73 31 29 29 20 7c 7c 0a 09 21 53 53 4c 5f &ds1)) ||..!SSL_
7120: 43 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f CTX_set_default_
7130: 76 65 72 69 66 79 5f 70 61 74 68 73 28 63 74 78 verify_paths(ctx
7140: 29 29 20 7b 0a 23 69 66 20 30 0a 09 54 63 6c 5f )) {.#if 0..Tcl_
7150: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
7160: 3b 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 ;..Tcl_DStringFr
7170: 65 65 28 26 64 73 31 29 3b 0a 09 2f 2a 20 44 6f ee(&ds1);../* Do
7180: 6e 27 74 20 63 75 72 72 65 6e 74 6c 79 20 63 61 n't currently ca
7190: 72 65 20 69 66 20 74 68 69 73 20 66 61 69 6c 73 re if this fails
71a0: 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 */..Tcl_AppendR
71b0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 53 esult(interp, "S
71c0: 53 4c 20 64 65 66 61 75 6c 74 20 76 65 72 69 66 SL default verif
71d0: 79 20 70 61 74 68 73 3a 20 22 2c 0a 09 09 52 45 y paths: ",...RE
71e0: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
71f0: 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 NULL);..SSL_CTX
7200: 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 _free(ctx);..ret
7210: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
7220: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 ;.#endif. }.
7230: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 SSL_CTX_set_c
7240: 6c 69 65 6e 74 5f 43 41 5f 6c 69 73 74 28 63 74 lient_CA_list(ct
7250: 78 2c 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c 69 65 x, SSL_load_clie
7260: 6e 74 5f 43 41 5f 66 69 6c 65 28 20 46 32 4e 28 nt_CA_file( F2N(
7270: 43 41 66 69 6c 65 2c 20 26 64 73 29 20 29 29 3b CAfile, &ds) ));
7280: 0a 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
7290: 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 gFree(&ds);.
72a0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
72b0: 26 64 73 31 29 3b 0a 20 20 20 20 72 65 74 75 72 &ds1);. retur
72c0: 6e 20 63 74 78 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a n ctx;.}.../*. *
72d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
72f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7310: 2d 2d 2d 0a 20 2a 0a 20 2a 20 53 74 61 74 75 73 ---. *. * Status
7320: 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e ObjCmd -- return
7330: 20 63 65 72 74 69 66 69 63 61 74 65 20 66 6f 72 certificate for
7340: 20 63 6f 6e 6e 65 63 74 65 64 20 70 65 65 72 2e connected peer.
7350: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
7360: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
7370: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
7380: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
7390: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
73a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
73e0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 53 */.static int.S
73f0: 74 61 74 75 73 4f 62 6a 43 6d 64 28 63 6c 69 65 tatusObjCmd(clie
7400: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
7410: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
7420: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
7430: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
7440: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
7450: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
7460: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
7470: 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 Tcl_Obj.*CONST
7480: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 53 74 objv[];.{. St
7490: 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 ate *statePtr;.
74a0: 20 20 20 58 35 30 39 20 2a 70 65 65 72 3b 0a 20 X509 *peer;.
74b0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 Tcl_Obj *objP
74c0: 74 72 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e tr;. Tcl_Chan
74d0: 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 63 68 nel chan;. ch
74e0: 61 72 20 2a 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c ar *channelName,
74f0: 20 2a 63 69 70 68 65 72 73 3b 0a 20 20 20 20 69 *ciphers;. i
7500: 6e 74 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 73 77 nt mode;.. sw
7510: 69 74 63 68 20 28 6f 62 6a 63 29 20 7b 0a 09 63 itch (objc) {..c
7520: 61 73 65 20 32 3a 0a 09 20 20 20 20 63 68 61 6e ase 2:.. chan
7530: 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 nelName = Tcl_Ge
7540: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
7550: 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 bjv[1], NULL);..
7560: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
7570: 65 20 33 3a 0a 09 20 20 20 20 69 66 20 28 21 73 e 3:.. if (!s
7580: 74 72 63 6d 70 20 28 54 63 6c 5f 47 65 74 53 74 trcmp (Tcl_GetSt
7590: 72 69 6e 67 20 28 6f 62 6a 76 5b 31 5d 29 2c 20 ring (objv[1]),
75a0: 22 2d 6c 6f 63 61 6c 22 29 29 20 7b 0a 09 09 63 "-local")) {...c
75b0: 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c hannelName = Tcl
75c0: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
75d0: 6a 28 6f 62 6a 76 5b 32 5d 2c 20 4e 55 4c 4c 29 j(objv[2], NULL)
75e0: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 ;...break;..
75f0: 7d 0a 09 20 20 20 20 2f 2a 20 65 6c 73 65 20 66 }.. /* else f
7600: 61 6c 6c 2e 2e 2e 20 2a 2f 0a 09 64 65 66 61 75 all... */..defau
7610: 6c 74 3a 0a 09 20 20 20 20 54 63 6c 5f 57 72 6f lt:.. Tcl_Wro
7620: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
7630: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6c 6f , 1, objv, "?-lo
7640: 63 61 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 3b 0a cal? channel");.
7650: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
7660: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
7670: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
7680: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
7690: 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 6d 6f channelName, &mo
76a0: 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 de);. if (cha
76b0: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
76c0: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
76d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
76e0: 20 20 7d 0a 20 20 20 20 69 66 20 28 63 68 61 6e }. if (chan
76f0: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
7700: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
7710: 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 RSION_2) {../*..
7720: 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 * Make sure to
7730: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
7740: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 opmost channel..
7750: 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f */..chan = Tcl_
7760: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
7770: 61 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 an);. }. i
7780: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 f (Tcl_GetChanne
7790: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 lType(chan) != T
77a0: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
77b0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
77c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
77d0: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 ad channel \"",
77e0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
77f0: 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a me(chan),..."\":
7800: 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e not a TLS chann
7810: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 el", NULL);..ret
7820: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7830: 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 }. statePt
7840: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 54 63 r = (State *) Tc
7850: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
7860: 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a anceData(chan);.
7870: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 if (objc ==
7880: 32 29 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 2) {..peer = SSL
7890: 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 69 66 _get_peer_certif
78a0: 69 63 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e icate(statePtr->
78b0: 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 ssl);. } else
78c0: 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 {..peer = SSL_g
78d0: 65 74 5f 63 65 72 74 69 66 69 63 61 74 65 28 73 et_certificate(s
78e0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 tatePtr->ssl);.
78f0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 70 65 65 }. if (pee
7900: 72 29 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 r) {..objPtr = T
7910: 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e ls_NewX509Obj(in
7920: 74 65 72 70 2c 20 70 65 65 72 29 3b 0a 09 69 66 terp, peer);..if
7930: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 20 58 (objc == 2) { X
7940: 35 30 39 5f 66 72 65 65 28 70 65 65 72 29 3b 20 509_free(peer);
7950: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 }. } else {..
7960: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 objPtr = Tcl_New
7970: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
7980: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c ;. }.. Tcl
7990: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
79a0: 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f ement (interp, o
79b0: 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f bjPtr,.. Tcl_
79c0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 20 28 22 73 NewStringObj ("s
79d0: 62 69 74 73 22 2c 20 2d 31 29 29 3b 0a 20 20 20 bits", -1));.
79e0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
79f0: 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 ndElement (inter
7a00: 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 p, objPtr,..
7a10: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 20 28 53 Tcl_NewIntObj (S
7a20: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f 62 69 SL_get_cipher_bi
7a30: 74 73 20 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ts (statePtr->ss
7a40: 6c 2c 20 4e 55 4c 4c 29 29 29 3b 0a 0a 20 20 20 l, NULL)));..
7a50: 20 63 69 70 68 65 72 73 20 3d 20 28 63 68 61 72 ciphers = (char
7a60: 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 *)SSL_get_cipher
7a70: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
7a80: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73 . if (ciphers
7a90: 20 21 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 63 != NULL && strc
7aa0: 6d 70 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f mp(ciphers, "(NO
7ab0: 4e 45 29 22 29 21 3d 30 29 20 7b 0a 09 54 63 6c NE)")!=0) {..Tcl
7ac0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
7ad0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 ement(interp, ob
7ae0: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
7af0: 74 72 69 6e 67 4f 62 6a 28 22 63 69 70 68 65 72 tringObj("cipher
7b00: 22 2c 20 2d 31 29 29 3b 0a 09 54 63 6c 5f 4c 69 ", -1));..Tcl_Li
7b10: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
7b20: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 nt(interp, objPt
7b30: 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 r,...Tcl_NewStri
7b40: 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 63 69 ngObj(SSL_get_ci
7b50: 70 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73 pher(statePtr->s
7b60: 73 6c 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d sl), -1));. }
7b70: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
7b80: 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f esult( interp, o
7b90: 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 bjPtr);. retu
7ba0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f rn TCL_OK;.}.../
7bb0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
7bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7bf0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 -------. *. * Ve
7c00: 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 20 72 rsionObjCmd -- r
7c10: 65 74 75 72 6e 20 76 65 72 73 69 6f 6e 20 73 74 eturn version st
7c20: 72 69 6e 67 20 66 72 6f 6d 20 4f 70 65 6e 53 53 ring from OpenSS
7c30: 4c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 L.. *. * Results
7c40: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
7c50: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
7c60: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
7c70: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
7c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7cc0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
7cd0: 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 63 .VersionObjCmd(c
7ce0: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 lientData, inter
7cf0: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 p, objc, objv).
7d00: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
7d10: 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 ientData;./* Not
7d20: 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 used. */. Tc
7d30: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7d40: 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a ;. int objc;.
7d50: 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e Tcl_Obj.*CON
7d60: 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 ST objv[];.{.
7d70: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 Tcl_Obj *objPtr
7d80: 3b 0a 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 ;.. objPtr =
7d90: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
7da0: 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e (OPENSSL_VERSION
7db0: 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 0a 20 20 20 _TEXT, -1);..
7dc0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
7dd0: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 t(interp, objPtr
7de0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
7df0: 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d L_OK;.}.../*. *-
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 2d 2d 2d 2d 2d 2d 2d ----------------
7e40: 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 73 63 4f 62 6a --. *. * MiscObj
7e50: 43 6d 64 20 2d 2d 20 6d 69 73 63 20 63 6f 6d 6d Cmd -- misc comm
7e60: 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ands. *. * Resul
7e70: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
7e80: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
7e90: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
7ea0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
7eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ec0: 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
7f00: 6e 74 0a 4d 69 73 63 4f 62 6a 43 6d 64 28 63 6c nt.MiscObjCmd(cl
7f10: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
7f20: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 , objc, objv).
7f30: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
7f40: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 entData;./* Not
7f50: 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c used. */. Tcl
7f60: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
7f70: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 . int objc;.
7f80: 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 Tcl_Obj.*CONS
7f90: 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 T objv[];.{.
7fa0: 43 4f 4e 53 54 38 34 20 63 68 61 72 20 2a 63 6f CONST84 char *co
7fb0: 6d 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b 20 22 72 mmands [] = { "r
7fc0: 65 71 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 20 20 20 eq", NULL };.
7fd0: 20 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 20 7b 20 enum command {
7fe0: 43 5f 52 45 51 2c 20 43 5f 44 55 4d 4d 59 20 7d C_REQ, C_DUMMY }
7ff0: 3b 0a 20 20 20 20 69 6e 74 20 63 6d 64 3b 0a 0a ;. int cmd;..
8000: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 if (objc < 2
8010: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
8020: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
8030: 20 6f 62 6a 76 2c 20 22 73 75 62 63 6f 6d 6d 61 objv, "subcomma
8040: 6e 64 20 3f 61 72 67 73 3f 22 29 3b 0a 09 72 65 nd ?args?");..re
8050: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8060: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 }. if (Tc
8070: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 l_GetIndexFromOb
8080: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 j(interp, objv[1
8090: 5d 2c 20 63 6f 6d 6d 61 6e 64 73 2c 0a 09 20 20 ], commands,..
80a0: 20 20 22 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c 26 "command", 0,&
80b0: 63 6d 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 cmd) != TCL_OK)
80c0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
80d0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
80e0: 73 77 69 74 63 68 20 28 28 65 6e 75 6d 20 63 6f switch ((enum co
80f0: 6d 6d 61 6e 64 29 20 63 6d 64 29 20 7b 0a 09 63 mmand) cmd) {..c
8100: 61 73 65 20 43 5f 52 45 51 3a 20 7b 0a 09 20 20 ase C_REQ: {..
8110: 20 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 EVP_PKEY *pkey
8120: 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 =NULL;.. X509
8130: 20 2a 63 65 72 74 3d 4e 55 4c 4c 3b 0a 09 20 20 *cert=NULL;..
8140: 20 20 58 35 30 39 5f 4e 41 4d 45 20 2a 6e 61 6d X509_NAME *nam
8150: 65 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 54 63 6c e=NULL;.. Tcl
8160: 5f 4f 62 6a 20 2a 2a 6c 69 73 74 76 3b 0a 09 20 _Obj **listv;..
8170: 20 20 20 69 6e 74 20 6c 69 73 74 63 2c 69 3b 0a int listc,i;.
8180: 0a 09 20 20 20 20 42 49 4f 20 2a 6f 75 74 3d 4e .. BIO *out=N
8190: 55 4c 4c 3b 0a 0a 09 20 20 20 20 63 68 61 72 20 ULL;... char
81a0: 2a 6b 5f 43 3d 22 22 2c 2a 6b 5f 53 54 3d 22 22 *k_C="",*k_ST=""
81b0: 2c 2a 6b 5f 4c 3d 22 22 2c 2a 6b 5f 4f 3d 22 22 ,*k_L="",*k_O=""
81c0: 2c 2a 6b 5f 4f 55 3d 22 22 2c 2a 6b 5f 43 4e 3d ,*k_OU="",*k_CN=
81d0: 22 22 2c 2a 6b 5f 45 6d 61 69 6c 3d 22 22 3b 0a "",*k_Email="";.
81e0: 09 20 20 20 20 63 68 61 72 20 2a 6b 65 79 6f 75 . char *keyou
81f0: 74 2c 2a 70 65 6d 6f 75 74 2c 2a 73 74 72 3b 0a t,*pemout,*str;.
8200: 09 20 20 20 20 69 6e 74 20 6b 65 79 73 69 7a 65 . int keysize
8210: 2c 73 65 72 69 61 6c 3d 30 2c 64 61 79 73 3d 33 ,serial=0,days=3
8220: 36 35 3b 0a 09 20 20 20 20 0a 09 20 20 20 20 69 65;.. .. i
8230: 66 20 28 28 6f 62 6a 63 3c 35 29 20 7c 7c 20 28 f ((objc<5) || (
8240: 6f 62 6a 63 3e 36 29 29 20 7b 0a 09 09 54 63 6c objc>6)) {...Tcl
8250: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
8260: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 terp, 2, objv, "
8270: 6b 65 79 73 69 7a 65 20 6b 65 79 66 69 6c 65 20 keysize keyfile
8280: 63 65 72 74 66 69 6c 65 20 3f 69 6e 66 6f 3f 22 certfile ?info?"
8290: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
82a0: 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 0a 09 ERROR;.. }...
82b0: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 if (Tcl_GetI
82c0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
82d0: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6b 65 79 73 , objv[2], &keys
82e0: 69 7a 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ize) != TCL_OK)
82f0: 7b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {...return TCL_E
8300: 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 20 20 RROR;.. }..
8310: 20 20 6b 65 79 6f 75 74 3d 54 63 6c 5f 47 65 74 keyout=Tcl_Get
8320: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b String(objv[3]);
8330: 0a 09 20 20 20 20 70 65 6d 6f 75 74 3d 54 63 6c .. pemout=Tcl
8340: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
8350: 34 5d 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 6f 4]);... if (o
8360: 62 6a 63 3e 3d 36 29 20 7b 0a 09 09 69 66 20 28 bjc>=6) {...if (
8370: 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c Tcl_ListObjGetEl
8380: 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f ements(interp, o
8390: 62 6a 76 5b 35 5d 2c 0a 09 09 09 26 6c 69 73 74 bjv[5],....&list
83a0: 63 2c 20 26 6c 69 73 74 76 29 20 21 3d 20 54 43 c, &listv) != TC
83b0: 4c 5f 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 65 L_OK) {... re
83c0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
83d0: 09 09 7d 0a 0a 09 09 69 66 20 28 28 6c 69 73 74 ..}....if ((list
83e0: 63 25 32 29 20 21 3d 20 30 29 20 7b 0a 09 09 20 c%2) != 0) {...
83f0: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
8400: 28 69 6e 74 65 72 70 2c 22 49 6e 66 6f 72 6d 61 (interp,"Informa
8410: 74 69 6f 6e 20 6c 69 73 74 20 6d 75 73 74 20 68 tion list must h
8420: 61 76 65 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 ave even number
8430: 6f 66 20 61 72 67 75 6d 65 6e 74 73 22 2c 4e 55 of arguments",NU
8440: 4c 4c 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 LL);... retur
8450: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d n TCL_ERROR;...}
8460: 0a 09 09 66 6f 72 20 28 69 3d 30 3b 20 69 3c 6c ...for (i=0; i<l
8470: 69 73 74 63 3b 20 69 2b 3d 32 29 20 7b 0a 09 09 istc; i+=2) {...
8480: 20 20 20 20 73 74 72 3d 54 63 6c 5f 47 65 74 53 str=Tcl_GetS
8490: 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 5d 29 3b tring(listv[i]);
84a0: 0a 09 09 20 20 20 20 69 66 20 28 73 74 72 63 6d ... if (strcm
84b0: 70 28 73 74 72 2c 22 64 61 79 73 22 29 3d 3d 30 p(str,"days")==0
84c0: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 ) {....if (Tcl_G
84d0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
84e0: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 erp,listv[i+1],&
84f0: 64 61 79 73 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 days)!=TCL_OK)..
8500: 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
8510: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 _ERROR;... }
8520: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
8530: 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d 30 str,"serial")==0
8540: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 ) {....if (Tcl_G
8550: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
8560: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 erp,listv[i+1],&
8570: 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29 serial)!=TCL_OK)
8580: 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 .... return T
8590: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 CL_ERROR;...
85a0: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d } else if (strcm
85b0: 70 28 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d p(str,"serial")=
85c0: 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c =0) {....if (Tcl
85d0: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
85e0: 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d nterp,listv[i+1]
85f0: 2c 26 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f ,&serial)!=TCL_O
8600: 4b 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e K).... return
8610: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 TCL_ERROR;...
8620: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
8630: 63 6d 70 28 73 74 72 2c 22 43 22 29 3d 3d 30 29 cmp(str,"C")==0)
8640: 20 7b 0a 09 09 09 6b 5f 43 3d 54 63 6c 5f 47 65 {....k_C=Tcl_Ge
8650: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
8660: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
8670: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 e if (strcmp(str
8680: 2c 22 53 54 22 29 3d 3d 30 29 20 7b 0a 09 09 09 ,"ST")==0) {....
8690: 6b 5f 53 54 3d 54 63 6c 5f 47 65 74 53 74 72 69 k_ST=Tcl_GetStri
86a0: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
86b0: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
86c0: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4c 22 29 (strcmp(str,"L")
86d0: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4c 3d 54 63 ==0) {....k_L=Tc
86e0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
86f0: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
8700: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
8710: 28 73 74 72 2c 22 4f 22 29 3d 3d 30 29 20 7b 0a (str,"O")==0) {.
8720: 09 09 09 6b 5f 4f 3d 54 63 6c 5f 47 65 74 53 74 ...k_O=Tcl_GetSt
8730: 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 ring(listv[i+1])
8740: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 ;... } else i
8750: 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f f (strcmp(str,"O
8760: 55 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f U")==0) {....k_O
8770: 55 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 U=Tcl_GetString(
8780: 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 listv[i+1]);...
8790: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
87a0: 72 63 6d 70 28 73 74 72 2c 22 43 4e 22 29 3d 3d rcmp(str,"CN")==
87b0: 30 29 20 7b 0a 09 09 09 6b 5f 43 4e 3d 54 63 6c 0) {....k_CN=Tcl
87c0: 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 _GetString(listv
87d0: 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 [i+1]);... }
87e0: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
87f0: 73 74 72 2c 22 45 6d 61 69 6c 22 29 3d 3d 30 29 str,"Email")==0)
8800: 20 7b 0a 09 09 09 6b 5f 45 6d 61 69 6c 3d 54 63 {....k_Email=Tc
8810: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
8820: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
8830: 20 65 6c 73 65 20 7b 0a 09 09 09 54 63 6c 5f 53 else {....Tcl_S
8840: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
8850: 22 55 6e 6b 6e 6f 77 6e 20 70 61 72 61 6d 65 74 "Unknown paramet
8860: 65 72 22 2c 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 er",NULL);....re
8870: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8880: 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 .. }...}..
8890: 20 7d 0a 09 20 20 20 20 69 66 20 28 28 70 6b 65 }.. if ((pke
88a0: 79 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6e 65 77 y = EVP_PKEY_new
88b0: 28 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ()) != NULL) {..
88c0: 09 69 66 20 28 21 45 56 50 5f 50 4b 45 59 5f 61 .if (!EVP_PKEY_a
88d0: 73 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 0a ssign_RSA(pkey,.
88e0: 09 09 09 52 53 41 5f 67 65 6e 65 72 61 74 65 5f ...RSA_generate_
88f0: 6b 65 79 28 6b 65 79 73 69 7a 65 2c 20 30 78 31 key(keysize, 0x1
8900: 30 30 30 31 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 0001, NULL, NULL
8910: 29 29 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f ))) {... Tcl_
8920: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
8930: 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 69 ,"Error generati
8940: 6e 67 20 70 72 69 76 61 74 65 20 6b 65 79 22 2c ng private key",
8950: 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 50 NULL);... EVP
8960: 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 _PKEY_free(pkey)
8970: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 ;... return T
8980: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 CL_ERROR;...}...
8990: 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f out=BIO_new(BIO_
89a0: 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 4f s_file());...BIO
89b0: 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 28 _write_filename(
89c0: 6f 75 74 2c 6b 65 79 6f 75 74 29 3b 0a 09 09 50 out,keyout);...P
89d0: 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 50 72 69 EM_write_bio_Pri
89e0: 76 61 74 65 4b 65 79 28 6f 75 74 2c 70 6b 65 79 vateKey(out,pkey
89f0: 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 4c ,NULL,NULL,0,NUL
8a00: 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 42 49 4f 5f 66 L,NULL);...BIO_f
8a10: 72 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 ree_all(out);...
8a20: 09 69 66 20 28 28 63 65 72 74 3d 58 35 30 39 5f .if ((cert=X509_
8a30: 6e 65 77 28 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a new())==NULL) {.
8a40: 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 .. Tcl_SetRes
8a50: 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f ult(interp,"Erro
8a60: 72 20 67 65 6e 65 72 61 74 69 6e 67 20 63 65 72 r generating cer
8a70: 74 69 66 69 63 61 74 65 20 72 65 71 75 65 73 74 tificate request
8a80: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 ",NULL);... E
8a90: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
8aa0: 79 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e y);... return
8ab0: 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 7d (TCL_ERROR);...}
8ac0: 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 76 65 72 ....X509_set_ver
8ad0: 73 69 6f 6e 28 63 65 72 74 2c 32 29 3b 0a 09 09 sion(cert,2);...
8ae0: 41 53 4e 31 5f 49 4e 54 45 47 45 52 5f 73 65 74 ASN1_INTEGER_set
8af0: 28 58 35 30 39 5f 67 65 74 5f 73 65 72 69 61 6c (X509_get_serial
8b00: 4e 75 6d 62 65 72 28 63 65 72 74 29 2c 73 65 72 Number(cert),ser
8b10: 69 61 6c 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 ial);...X509_gmt
8b20: 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 ime_adj(X509_get
8b30: 5f 6e 6f 74 42 65 66 6f 72 65 28 63 65 72 74 29 _notBefore(cert)
8b40: 2c 30 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 ,0);...X509_gmti
8b50: 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 5f me_adj(X509_get_
8b60: 6e 6f 74 41 66 74 65 72 28 63 65 72 74 29 2c 28 notAfter(cert),(
8b70: 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 34 2a 64 61 long)60*60*24*da
8b80: 79 73 29 3b 0a 09 09 58 35 30 39 5f 73 65 74 5f ys);...X509_set_
8b90: 70 75 62 6b 65 79 28 63 65 72 74 2c 70 6b 65 79 pubkey(cert,pkey
8ba0: 29 3b 0a 09 09 0a 09 09 6e 61 6d 65 3d 58 35 30 );......name=X50
8bb0: 39 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 9_get_subject_na
8bc0: 6d 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 35 30 me(cert);....X50
8bd0: 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 9_NAME_add_entry
8be0: 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43 22 _by_txt(name,"C"
8bf0: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 , MBSTRING_ASC,
8c00: 6b 5f 43 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b k_C, -1, -1, 0);
8c10: 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 ...X509_NAME_add
8c20: 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 _entry_by_txt(na
8c30: 6d 65 2c 22 53 54 22 2c 20 4d 42 53 54 52 49 4e me,"ST", MBSTRIN
8c40: 47 5f 41 53 43 2c 20 6b 5f 53 54 2c 20 2d 31 2c G_ASC, k_ST, -1,
8c50: 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f -1, 0);...X509_
8c60: 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 NAME_add_entry_b
8c70: 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4c 22 2c 20 y_txt(name,"L",
8c80: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
8c90: 4c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 L, -1, -1, 0);..
8ca0: 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 .X509_NAME_add_e
8cb0: 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 ntry_by_txt(name
8cc0: 2c 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 ,"O", MBSTRING_A
8cd0: 53 43 2c 20 6b 5f 4f 2c 20 2d 31 2c 20 2d 31 2c SC, k_O, -1, -1,
8ce0: 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 0);...X509_NAME
8cf0: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
8d00: 74 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d 42 53 t(name,"OU", MBS
8d10: 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 4f 55 2c TRING_ASC, k_OU,
8d20: 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 -1, -1, 0);...X
8d30: 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 509_NAME_add_ent
8d40: 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 ry_by_txt(name,"
8d50: 43 4e 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 CN", MBSTRING_AS
8d60: 43 2c 20 6b 5f 43 4e 2c 20 2d 31 2c 20 2d 31 2c C, k_CN, -1, -1,
8d70: 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 0);...X509_NAME
8d80: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
8d90: 74 28 6e 61 6d 65 2c 22 45 6d 61 69 6c 22 2c 20 t(name,"Email",
8da0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
8db0: 45 6d 61 69 6c 2c 20 2d 31 2c 20 2d 31 2c 20 30 Email, -1, -1, 0
8dc0: 29 3b 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 73 );....X509_set_s
8dd0: 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 ubject_name(cert
8de0: 2c 6e 61 6d 65 29 3b 0a 0a 09 09 69 66 20 28 21 ,name);....if (!
8df0: 58 35 30 39 5f 73 69 67 6e 28 63 65 72 74 2c 70 X509_sign(cert,p
8e00: 6b 65 79 2c 45 56 50 5f 6d 64 35 28 29 29 29 20 key,EVP_md5()))
8e10: 7b 0a 09 09 20 20 20 20 58 35 30 39 5f 66 72 65 {... X509_fre
8e20: 65 28 63 65 72 74 29 3b 0a 09 09 20 20 20 20 45 e(cert);... E
8e30: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
8e40: 79 29 3b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 y);... Tcl_Se
8e50: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
8e60: 45 72 72 6f 72 20 73 69 67 6e 69 6e 67 20 63 65 Error signing ce
8e70: 72 74 69 66 69 63 61 74 65 22 2c 4e 55 4c 4c 29 rtificate",NULL)
8e80: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 ;... return T
8e90: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 CL_ERROR;...}...
8ea0: 09 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f .out=BIO_new(BIO
8eb0: 5f 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 _s_file());...BI
8ec0: 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 O_write_filename
8ed0: 28 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 0a 09 (out,pemout);...
8ee0: 09 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 58 .PEM_write_bio_X
8ef0: 35 30 39 28 6f 75 74 2c 63 65 72 74 29 3b 0a 09 509(out,cert);..
8f00: 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 .BIO_free_all(ou
8f10: 74 29 3b 0a 0a 09 09 58 35 30 39 5f 66 72 65 65 t);....X509_free
8f20: 28 63 65 72 74 29 3b 0a 09 09 45 56 50 5f 50 4b (cert);...EVP_PK
8f30: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 EY_free(pkey);..
8f40: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 } else {...T
8f50: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
8f60: 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 erp,"Error gener
8f70: 61 74 69 6e 67 20 70 72 69 76 61 74 65 20 6b 65 ating private ke
8f80: 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 y",NULL);...retu
8f90: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 rn TCL_ERROR;..
8fa0: 20 20 20 7d 0a 09 7d 0a 09 62 72 65 61 6b 3b 0a }..}..break;.
8fb0: 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 62 72 default:..br
8fc0: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 eak;. }. r
8fd0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
8fe0: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
8ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
9030: 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 2a 0a Tls_Free --. *.
9040: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
9050: 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 6e e cleans up when
9060: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 a SSL socket ba
9070: 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 sed channel. *.i
9080: 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 s closed and its
9090: 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 reference count
90a0: 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 0a 20 falls below 1.
90b0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
90c0: 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 .none. *. * Side
90d0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 effects:. *.Fre
90e0: 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 es all the state
90f0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
9100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f ---------. */.vo
9140: 69 64 0a 54 6c 73 5f 46 72 65 65 28 20 63 68 61 id.Tls_Free( cha
9150: 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a 7b 0a r *blockPtr ).{.
9160: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
9170: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 62 Ptr = (State *)b
9180: 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 54 6c lockPtr;.. Tl
9190: 73 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 74 72 s_Clean(statePtr
91a0: 29 3b 0a 20 20 20 20 63 6b 66 72 65 65 28 62 6c );. ckfree(bl
91b0: 6f 63 6b 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a ockPtr);.}.../*.
91c0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
91d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9200: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
9210: 43 6c 65 61 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 54 Clean --. *. *.T
9220: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 6c his procedure cl
9230: 65 61 6e 73 20 75 70 20 77 68 65 6e 20 61 20 53 eans up when a S
9240: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
9250: 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c channel. *.is cl
9260: 6f 73 65 64 20 61 6e 64 20 69 74 73 20 72 65 66 osed and its ref
9270: 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c erence count fal
9280: 6c 73 20 62 65 6c 6f 77 20 31 2e 20 20 54 68 69 ls below 1. Thi
9290: 73 20 73 68 6f 75 6c 64 0a 20 2a 09 62 65 20 63 s should. *.be c
92a0: 61 6c 6c 65 64 20 73 79 6e 63 68 72 6f 6e 6f 75 alled synchronou
92b0: 73 6c 79 20 62 79 20 74 68 65 20 43 6c 6f 73 65 sly by the Close
92c0: 50 72 6f 63 2c 20 6e 6f 74 20 69 6e 20 74 68 65 Proc, not in the
92d0: 0a 20 2a 09 45 76 65 6e 74 75 61 6c 6c 79 46 72 . *.EventuallyFr
92e0: 65 65 20 63 61 6c 6c 62 61 63 6b 2e 0a 20 2a 0a ee callback.. *.
92f0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e * Results:. *.n
9300: 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 one. *. * Side e
9310: 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 ffects:. *.Frees
9320: 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 0a 20 all the state.
9330: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
9340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9370: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 -------. */.void
9380: 0a 54 6c 73 5f 43 6c 65 61 6e 28 53 74 61 74 65 .Tls_Clean(State
9390: 20 2a 73 74 61 74 65 50 74 72 29 0a 7b 0a 20 20 *statePtr).{.
93a0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 77 65 27 72 /*. * we'r
93b0: 65 20 61 73 73 75 6d 69 6e 67 20 68 65 72 65 20 e assuming here
93c0: 74 68 61 74 20 77 65 27 72 65 20 73 69 6e 67 6c that we're singl
93d0: 65 2d 74 68 72 65 61 64 65 64 0a 20 20 20 20 20 e-threaded.
93e0: 2a 2f 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 */.. if (stat
93f0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
9400: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
9410: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c NULL) {..Tcl_Del
9420: 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 eteTimerHandler(
9430: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 statePtr->timer)
9440: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d ;..statePtr->tim
9450: 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d er = NULL;. }
9460: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
9470: 74 72 2d 3e 62 69 6f 29 20 7b 0a 09 2f 2a 20 54 tr->bio) {../* T
9480: 68 69 73 20 77 69 6c 6c 20 63 61 6c 6c 20 53 53 his will call SS
9490: 4c 5f 73 68 75 74 64 6f 77 6e 2e 20 42 75 67 20 L_shutdown. Bug
94a0: 31 34 31 34 30 34 35 20 2a 2f 0a 09 64 70 72 69 1414045 */..dpri
94b0: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 42 49 4f ntf(stderr, "BIO
94c0: 5f 66 72 65 65 5f 61 6c 6c 28 25 70 29 5c 6e 22 _free_all(%p)\n"
94d0: 2c 20 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 , statePtr->bio)
94e0: 3b 0a 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 ;..BIO_free_all(
94f0: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
9500: 09 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 20 3d .statePtr->bio =
9510: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL;. }.
9520: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
9530: 73 6c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 73 sl) {..dprintf(s
9540: 74 64 65 72 72 2c 20 22 53 53 4c 5f 66 72 65 65 tderr, "SSL_free
9550: 28 25 70 29 5c 6e 22 2c 20 73 74 61 74 65 50 74 (%p)\n", statePt
9560: 72 2d 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 r->ssl);..SSL_fr
9570: 65 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ee(statePtr->ssl
9580: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 73 );..statePtr->ss
9590: 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a l = NULL;. }.
95a0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
95b0: 2d 3e 63 74 78 29 20 7b 0a 09 53 53 4c 5f 43 54 ->ctx) {..SSL_CT
95c0: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
95d0: 3e 63 74 78 29 3b 0a 09 73 74 61 74 65 50 74 72 >ctx);..statePtr
95e0: 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ->ctx = NULL;.
95f0: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 }. if (stat
9600: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 ePtr->callback)
9610: 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f {..Tcl_DecrRefCo
9620: 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 unt(statePtr->ca
9630: 6c 6c 62 61 63 6b 29 3b 0a 09 73 74 61 74 65 50 llback);..stateP
9640: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 4e tr->callback = N
9650: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ULL;. }. i
9660: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 f (statePtr->pas
9670: 73 77 6f 72 64 29 20 7b 0a 09 54 63 6c 5f 44 65 sword) {..Tcl_De
9680: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 crRefCount(state
9690: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a Ptr->password);.
96a0: 09 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 .statePtr->passw
96b0: 6f 72 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ord = NULL;.
96c0: 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d }.}.../*. *-----
96d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
96e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
96f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
9710: 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 20 2d 2d *. * Tls_Init --
9720: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 73 20 61 . *. *.This is a
9730: 20 70 61 63 6b 61 67 65 20 69 6e 69 74 69 61 6c package initial
9740: 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 ization procedur
9750: 65 2c 20 77 68 69 63 68 20 69 73 20 63 61 6c 6c e, which is call
9760: 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 77 68 65 ed. *.by Tcl whe
9770: 6e 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 n this package i
9780: 73 20 74 6f 20 62 65 20 61 64 64 65 64 20 74 6f s to be added to
9790: 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 2e an interpreter.
97a0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 20 . *. * Results:
97b0: 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 65 64 20 Ssl configured
97c0: 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a and loaded. *. *
97d0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
97e0: 2a 09 20 63 72 65 61 74 65 20 74 68 65 20 73 73 *. create the ss
97f0: 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 l command, initi
9800: 61 6c 69 73 65 20 73 73 6c 20 63 6f 6e 74 65 78 alise ssl contex
9810: 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d t. *. *---------
9820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
9860: 69 6e 74 0a 54 6c 73 5f 49 6e 69 74 28 54 63 6c int.Tls_Init(Tcl
9870: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
9880: 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 ../* Interpreter
9890: 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 70 61 in which the pa
98a0: 63 6b 61 67 65 20 69 73 0a 09 09 09 09 09 20 2a ckage is...... *
98b0: 20 74 6f 20 62 65 20 6d 61 64 65 20 61 76 61 69 to be made avai
98c0: 6c 61 62 6c 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 lable. */.{.
98d0: 69 6e 74 20 6d 61 6a 6f 72 2c 20 6d 69 6e 6f 72 int major, minor
98e0: 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 72 65 , patchlevel, re
98f0: 6c 65 61 73 65 2c 20 69 3b 0a 20 20 20 20 63 68 lease, i;. ch
9900: 61 72 20 72 6e 64 5f 73 65 65 64 5b 31 36 5d 20 ar rnd_seed[16]
9910: 3d 20 22 47 72 7a 53 6c 70 6c 4b 71 55 64 6e 6e = "GrzSlplKqUdnn
9920: 7a 50 21 22 3b 09 2f 2a 20 31 36 20 62 79 74 65 zP!";./* 16 byte
9930: 73 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 s */.. /*.
9940: 20 20 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 6c * The original
9950: 20 38 2e 32 2e 30 20 73 74 61 63 6b 65 64 20 63 8.2.0 stacked c
9960: 68 61 6e 6e 65 6c 20 69 6d 70 6c 65 6d 65 6e 74 hannel implement
9970: 61 74 69 6f 6e 20 28 61 6e 64 20 74 68 65 20 70 ation (and the p
9980: 61 74 63 68 0a 20 20 20 20 20 2a 20 74 68 61 74 atch. * that
9990: 20 70 72 65 63 65 64 65 64 20 69 74 29 20 68 61 preceded it) ha
99a0: 64 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 d problems with
99b0: 73 63 61 6c 61 62 69 6c 69 74 79 20 61 6e 64 20 scalability and
99c0: 72 6f 62 75 73 74 6e 65 73 73 2e 0a 20 20 20 20 robustness..
99d0: 20 2a 20 54 68 65 73 65 20 77 65 72 65 20 61 64 * These were ad
99e0: 64 72 65 73 73 20 69 6e 20 38 2e 33 2e 32 20 2f dress in 8.3.2 /
99f0: 20 38 2e 34 61 32 2c 20 73 6f 20 77 65 20 6e 6f 8.4a2, so we no
9a00: 77 20 72 65 71 75 69 72 65 20 74 68 61 74 20 61 w require that a
9a10: 73 20 61 0a 20 20 20 20 20 2a 20 6d 69 6e 69 6d s a. * minim
9a20: 75 6d 20 66 6f 72 20 54 4c 53 20 31 2e 34 2b 2e um for TLS 1.4+.
9a30: 20 20 57 65 20 6f 6e 6c 79 20 73 75 70 70 6f 72 We only suppor
9a40: 74 20 38 2e 32 2b 20 6e 6f 77 20 28 38 2e 33 2e t 8.2+ now (8.3.
9a50: 32 2b 20 70 72 65 66 65 72 72 65 64 29 2e 0a 20 2+ preferred)..
9a60: 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 0a */. if (.
9a70: 23 69 66 64 65 66 20 55 53 45 5f 54 43 4c 5f 53 #ifdef USE_TCL_S
9a80: 54 55 42 53 0a 09 54 63 6c 5f 49 6e 69 74 53 74 TUBS..Tcl_InitSt
9a90: 75 62 73 28 69 6e 74 65 72 70 2c 20 22 38 2e 32 ubs(interp, "8.2
9aa0: 22 2c 20 30 29 0a 23 65 6c 73 65 0a 09 54 63 6c ", 0).#else..Tcl
9ab0: 5f 50 6b 67 52 65 71 75 69 72 65 28 69 6e 74 65 _PkgRequire(inte
9ac0: 72 70 2c 20 22 54 63 6c 22 2c 20 22 38 2e 32 22 rp, "Tcl", "8.2"
9ad0: 2c 20 30 29 0a 23 65 6e 64 69 66 0a 09 3d 3d 20 , 0).#endif..==
9ae0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
9af0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
9b00: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
9b10: 47 65 74 20 74 68 65 20 76 65 72 73 69 6f 6e 20 Get the version
9b20: 73 6f 20 77 65 20 63 61 6e 20 72 75 6e 74 69 6d so we can runtim
9b30: 65 20 73 77 69 74 63 68 20 6f 6e 20 61 76 61 69 e switch on avai
9b40: 6c 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 61 6c lable functional
9b50: 69 74 79 2e 0a 20 20 20 20 20 2a 20 54 4c 53 20 ity.. * TLS
9b60: 73 68 6f 75 6c 64 20 72 65 61 6c 6c 79 20 6f 6e should really on
9b70: 6c 79 20 62 65 20 75 73 65 64 20 69 6e 20 38 2e ly be used in 8.
9b80: 33 2e 32 2b 2c 20 62 75 74 20 74 68 65 20 6f 74 3.2+, but the ot
9b90: 68 65 72 20 77 6f 72 6b 73 20 66 6f 72 0a 20 20 her works for.
9ba0: 20 20 20 2a 20 73 6f 6d 65 20 6c 69 6d 69 74 65 * some limite
9bb0: 64 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2c d functionality,
9bc0: 20 73 6f 20 61 6e 20 61 74 74 65 6d 70 74 20 61 so an attempt a
9bd0: 74 20 73 75 70 70 6f 72 74 20 69 73 20 6d 61 64 t support is mad
9be0: 65 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 e.. */. T
9bf0: 63 6c 5f 47 65 74 56 65 72 73 69 6f 6e 28 26 6d cl_GetVersion(&m
9c00: 61 6a 6f 72 2c 20 26 6d 69 6e 6f 72 2c 20 26 70 ajor, &minor, &p
9c10: 61 74 63 68 6c 65 76 65 6c 2c 20 26 72 65 6c 65 atchlevel, &rele
9c20: 61 73 65 29 3b 0a 20 20 20 20 69 66 20 28 28 6d ase);. if ((m
9c30: 61 6a 6f 72 20 3e 20 38 29 20 7c 7c 20 28 28 6d ajor > 8) || ((m
9c40: 61 6a 6f 72 20 3d 3d 20 38 29 20 26 26 20 28 28 ajor == 8) && ((
9c50: 6d 69 6e 6f 72 20 3e 20 33 29 20 7c 7c 20 28 28 minor > 3) || ((
9c60: 6d 69 6e 6f 72 20 3d 3d 20 33 29 20 26 26 0a 09 minor == 3) &&..
9c70: 20 20 20 20 28 72 65 6c 65 61 73 65 20 3d 3d 20 (release ==
9c80: 54 43 4c 5f 46 49 4e 41 4c 5f 52 45 4c 45 41 53 TCL_FINAL_RELEAS
9c90: 45 29 20 26 26 20 28 70 61 74 63 68 6c 65 76 65 E) && (patchleve
9ca0: 6c 20 3e 3d 20 32 29 29 29 29 29 20 7b 0a 09 2f l >= 2))))) {../
9cb0: 2a 20 38 2e 33 2e 32 2b 20 2a 2f 0a 09 63 68 61 * 8.3.2+ */..cha
9cc0: 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 nnelTypeVersion
9cd0: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
9ce0: 52 53 49 4f 4e 5f 32 3b 0a 20 20 20 20 7d 20 65 RSION_2;. } e
9cf0: 6c 73 65 20 7b 0a 09 2f 2a 20 38 2e 32 2e 30 20 lse {../* 8.2.0
9d00: 2d 20 38 2e 33 2e 31 20 2a 2f 0a 09 63 68 61 6e - 8.3.1 */..chan
9d10: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
9d20: 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TLS_CHANNEL_VER
9d30: 53 49 4f 4e 5f 31 3b 0a 20 20 20 20 7d 0a 0a 20 SION_1;. }..
9d40: 20 20 20 69 66 20 28 53 53 4c 5f 6c 69 62 72 61 if (SSL_libra
9d50: 72 79 5f 69 6e 69 74 28 29 20 21 3d 20 31 29 20 ry_init() != 1)
9d60: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
9d70: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 ult(interp, "cou
9d80: 6c 64 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a ld not initializ
9d90: 65 20 53 53 4c 20 6c 69 62 72 61 72 79 22 2c 20 e SSL library",
9da0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
9db0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
9dc0: 20 20 20 20 53 53 4c 5f 6c 6f 61 64 5f 65 72 72 SSL_load_err
9dd0: 6f 72 5f 73 74 72 69 6e 67 73 28 29 3b 0a 20 20 or_strings();.
9de0: 20 20 45 52 52 5f 6c 6f 61 64 5f 63 72 79 70 74 ERR_load_crypt
9df0: 6f 5f 73 74 72 69 6e 67 73 28 29 3b 0a 0a 20 20 o_strings();..
9e00: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 65 65 64 /*. * Seed
9e10: 20 74 68 65 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 the random numb
9e20: 65 72 20 67 65 6e 65 72 61 74 6f 72 20 69 6e 20 er generator in
9e30: 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 2c the SSL library,
9e40: 0a 20 20 20 20 20 2a 20 75 73 69 6e 67 20 74 68 . * using th
9e50: 65 20 64 6f 2f 77 68 69 6c 65 20 63 6f 6e 73 74 e do/while const
9e60: 72 75 63 74 20 62 65 63 61 75 73 65 20 6f 66 20 ruct because of
9e70: 74 68 65 20 62 75 67 20 6e 6f 74 65 20 69 6e 20 the bug note in
9e80: 74 68 65 0a 20 20 20 20 20 2a 20 4f 70 65 6e 53 the. * OpenS
9e90: 53 4c 20 46 41 51 20 61 74 20 68 74 74 70 3a 2f SL FAQ at http:/
9ea0: 2f 77 77 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 /www.openssl.org
9eb0: 2f 73 75 70 70 6f 72 74 2f 66 61 71 2e 68 74 6d /support/faq.htm
9ec0: 6c 23 55 53 45 52 31 0a 20 20 20 20 20 2a 0a 20 l#USER1. *.
9ed0: 20 20 20 20 2a 20 54 68 65 20 63 72 75 78 20 6f * The crux o
9ee0: 66 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 69 73 f the problem is
9ef0: 20 74 68 61 74 20 53 6f 6c 61 72 69 73 20 37 20 that Solaris 7
9f00: 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 20 does not have a
9f10: 0a 20 20 20 20 20 2a 20 2f 64 65 76 2f 72 61 6e . * /dev/ran
9f20: 64 6f 6d 20 6f 72 20 2f 64 65 76 2f 75 72 61 6e dom or /dev/uran
9f30: 64 6f 6d 20 64 65 76 69 63 65 20 73 6f 20 69 74 dom device so it
9f40: 20 63 61 6e 6e 6f 74 20 67 61 74 68 65 72 20 65 cannot gather e
9f50: 6e 6f 75 67 68 0a 20 20 20 20 20 2a 20 65 6e 74 nough. * ent
9f60: 72 6f 70 79 20 66 72 6f 6d 20 74 68 65 20 52 41 ropy from the RA
9f70: 4e 44 5f 73 65 65 64 28 29 20 77 68 65 6e 20 54 ND_seed() when T
9f80: 4c 53 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 61 LS initializes a
9f90: 6e 64 20 72 65 66 75 73 65 73 0a 20 20 20 20 20 nd refuses.
9fa0: 2a 20 74 6f 20 67 6f 20 66 75 72 74 68 65 72 2e * to go further.
9fb0: 20 45 61 72 6c 69 65 72 20 76 65 72 73 69 6f 6e Earlier version
9fc0: 73 20 6f 66 20 4f 70 65 6e 53 53 4c 20 63 61 72 s of OpenSSL car
9fd0: 72 69 65 64 20 6f 6e 20 72 65 67 61 72 64 6c 65 ried on regardle
9fe0: 73 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 ss.. */.
9ff0: 73 72 61 6e 64 28 28 75 6e 73 69 67 6e 65 64 20 srand((unsigned
a000: 69 6e 74 29 20 74 69 6d 65 28 28 74 69 6d 65 5f int) time((time_
a010: 74 20 2a 29 20 4e 55 4c 4c 29 29 3b 0a 20 20 20 t *) NULL));.
a020: 20 64 6f 20 7b 0a 09 66 6f 72 20 28 69 20 3d 20 do {..for (i =
a030: 30 3b 20 69 20 3c 20 31 36 3b 20 69 2b 2b 29 20 0; i < 16; i++)
a040: 7b 0a 09 20 20 20 20 72 6e 64 5f 73 65 65 64 5b {.. rnd_seed[
a050: 69 5d 20 3d 20 31 20 2b 20 28 63 68 61 72 29 20 i] = 1 + (char)
a060: 28 32 35 35 2e 30 20 2a 20 72 61 6e 64 28 29 2f (255.0 * rand()/
a070: 28 52 41 4e 44 5f 4d 41 58 2b 31 2e 30 29 29 3b (RAND_MAX+1.0));
a080: 0a 09 7d 0a 09 52 41 4e 44 5f 73 65 65 64 28 72 ..}..RAND_seed(r
a090: 6e 64 5f 73 65 65 64 2c 20 73 69 7a 65 6f 66 28 nd_seed, sizeof(
a0a0: 72 6e 64 5f 73 65 65 64 29 29 3b 0a 20 20 20 20 rnd_seed));.
a0b0: 7d 20 77 68 69 6c 65 20 28 52 41 4e 44 5f 73 74 } while (RAND_st
a0c0: 61 74 75 73 28 29 20 21 3d 20 31 29 3b 0a 0a 20 atus() != 1);..
a0d0: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
a0e0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
a0f0: 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 "tls::ciphers",
a100: 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 0a 09 CiphersObjCmd,..
a110: 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 (ClientData)
a120: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
a130: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
a140: 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 .. Tcl_Create
a150: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
a160: 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 73 68 61 p, "tls::handsha
a170: 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b 65 4f 62 ke", HandshakeOb
a180: 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 jCmd,.. (Clie
a190: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f ntData) 0, (Tcl_
a1a0: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
a1b0: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c NULL);.. Tcl
a1c0: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
a1d0: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
a1e0: 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 4f import", ImportO
a1f0: 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 bjCmd,.. (Cli
a200: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
a210: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
a220: 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 ) NULL);.. Tc
a230: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
a240: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
a250: 3a 75 6e 69 6d 70 6f 72 74 22 2c 20 55 6e 69 6d :unimport", Unim
a260: 70 6f 72 74 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 portObjCmd,..
a270: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
a280: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
a290: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
a2a0: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
a2b0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
a2c0: 22 74 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 "tls::status", S
a2d0: 74 61 74 75 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 tatusObjCmd,..
a2e0: 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 (ClientData) 0
a2f0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
a300: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a Proc *) NULL);..
a310: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
a320: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
a330: 20 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c "tls::version",
a340: 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 0a VersionObjCmd,.
a350: 09 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 . (ClientData
a360: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
a370: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
a380: 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 ;.. Tcl_Creat
a390: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
a3a0: 72 70 2c 20 22 74 6c 73 3a 3a 6d 69 73 63 22 2c rp, "tls::misc",
a3b0: 20 4d 69 73 63 4f 62 6a 43 6d 64 2c 0a 09 20 20 MiscObjCmd,..
a3c0: 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 (ClientData) 0
a3d0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
a3e0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a Proc *) NULL);..
a3f0: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 50 return Tcl_P
a400: 6b 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 kgProvide(interp
a410: 2c 20 50 41 43 4b 41 47 45 5f 4e 41 4d 45 2c 20 , PACKAGE_NAME,
a420: 50 41 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 29 PACKAGE_VERSION)
a430: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
a440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a470: 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 66 -*. *. *.Tls_Saf
a480: 65 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d eInit --. *. *.-
a490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a4a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a4b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
a4c0: 0a 20 2a 09 53 74 61 6e 64 61 72 64 20 70 72 6f . *.Standard pro
a4d0: 63 65 64 75 72 65 20 72 65 71 75 69 72 65 64 20 cedure required
a4e0: 62 79 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 49 by 'load'. . *.I
a4f0: 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 69 73 20 nitializes this
a500: 65 78 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 20 extension for a
a510: 73 61 66 65 20 69 6e 74 65 72 70 72 65 74 65 72 safe interpreter
a520: 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *.-----------
a530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a550: 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 -----*. *. *.Sid
a560: 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 41 73 eeffects:. *..As
a570: 20 6f 66 20 27 54 6c 73 5f 49 6e 69 74 27 0a 20 of 'Tls_Init'.
a580: 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 *. *.Result:. *.
a590: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
a5a0: 65 72 72 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a 20 error code.. *.
a5b0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
a5c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a5d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a5e0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 69 6e -------*. */..in
a5f0: 74 0a 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 28 t.Tls_SafeInit (
a600: 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 Tcl_Interp* inte
a610: 72 70 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e rp).{. return
a620: 20 54 6c 73 5f 49 6e 69 74 20 28 69 6e 74 65 72 Tls_Init (inter
a630: 70 29 3b 0a 7d 0a p);.}.