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: 0a 20 2a 20 24 48 65 61 64 65 72 3a 20 2f 68 6f . * $Header: /ho
0050: 6d 65 2f 72 6b 65 65 6e 65 2f 74 6d 70 2f 63 76 me/rkeene/tmp/cv
0060: 73 32 66 6f 73 73 69 6c 2f 2e 2e 2f 74 63 6c 74 s2fossil/../tclt
0070: 6c 73 2f 74 6c 73 2f 74 6c 73 2f 74 6c 73 2e 63 ls/tls/tls/tls.c
0080: 2c 76 20 31 2e 36 2e 32 2e 31 20 32 30 30 30 2f ,v 1.6.2.1 2000/
0090: 30 37 2f 31 31 20 30 34 3a 35 38 3a 34 36 20 68 07/11 04:58:46 h
00a0: 6f 62 62 73 20 45 78 70 20 24 0a 20 2a 0a 20 2a obbs Exp $. *. *
00b0: 20 54 4c 53 20 28 61 6b 61 20 53 53 4c 29 20 43 TLS (aka SSL) C
00c0: 68 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 65 20 hannel - can be
00d0: 6c 61 79 65 72 65 64 20 6f 6e 20 61 6e 79 20 62 layered on any b
00e0: 69 2d 64 69 72 65 63 74 69 6f 6e 61 6c 0a 20 2a i-directional. *
00f0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 4e 6f Tcl_Channel (No
0100: 74 65 3a 20 52 65 71 75 69 72 65 73 20 54 72 66 te: Requires Trf
0110: 20 43 6f 72 65 20 50 61 74 63 68 29 0a 20 2a 0a Core Patch). *.
0120: 20 2a 20 54 68 69 73 20 77 61 73 20 62 75 69 6c * This was buil
0130: 74 20 28 61 6c 6d 6f 73 74 29 20 66 72 6f 6d 20 t (almost) from
0140: 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 70 scratch based up
0150: 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 6f on observation o
0160: 66 0a 20 2a 20 4f 70 65 6e 53 53 4c 20 30 2e 39 f. * OpenSSL 0.9
0170: 2e 32 42 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 .2B. *. * Additi
0180: 6f 6e 20 63 72 65 64 69 74 20 69 73 20 64 75 65 on credit is due
0190: 20 66 6f 72 20 41 6e 64 72 65 61 73 20 4b 75 70 for Andreas Kup
01a0: 72 69 65 73 20 28 61 2e 6b 75 70 72 69 65 73 40 ries (a.kupries@
01b0: 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f westend.com), fo
01c0: 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e 67 20 74 r. * providing t
01d0: 68 65 20 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 he Tcl_ReplaceCh
01e0: 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69 73 6d 20 annel mechanism
01f0: 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 and working clos
0200: 65 6c 79 20 77 69 74 68 20 6d 65 0a 20 2a 20 74 ely with me. * t
0210: 6f 20 65 6e 68 61 6e 63 65 20 69 74 20 74 6f 20 o enhance it to
0220: 73 75 70 70 6f 72 74 20 66 75 6c 6c 20 66 69 6c support full fil
0230: 65 65 76 65 6e 74 20 73 65 6d 61 6e 74 69 63 73 eevent semantics
0240: 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 .. *. * Also wor
0250: 6b 20 64 6f 6e 65 20 62 79 20 74 68 65 20 66 6f k done by the fo
0260: 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70 72 6f 76 llow people prov
0270: 69 64 65 64 20 74 68 65 20 69 6d 70 65 74 75 73 ided the impetus
0280: 20 74 6f 20 64 6f 20 74 68 69 73 20 22 72 69 67 to do this "rig
0290: 68 74 22 3a 0a 20 2a 09 74 63 6c 53 53 4c 20 28 ht":. *.tclSSL (
02a0: 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c Colin McCormack,
02b0: 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f Shared Technolo
02c0: 67 79 29 0a 20 2a 09 53 53 4c 74 63 6c 20 28 50 gy). *.SSLtcl (P
02d0: 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a 20 2a 0a eter Antman). *.
02e0: 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 */..#include "t
02f0: 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 lsInt.h".#includ
0300: 65 20 22 74 63 6c 4f 70 74 73 2e 68 22 0a 0a 2f e "tclOpts.h"../
0310: 2a 0a 20 2a 20 45 78 74 65 72 6e 61 6c 20 66 75 *. * External fu
0320: 6e 63 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 2f 2a 0a nctions. */../*.
0330: 20 2a 20 46 6f 72 77 61 72 64 20 64 65 63 6c 61 * Forward decla
0340: 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 23 64 65 rations. */..#de
0350: 66 69 6e 65 20 46 32 4e 28 20 6b 65 79 2c 20 64 fine F2N( key, d
0360: 73 70 29 20 5c 0a 09 28 28 28 6b 65 79 29 20 3d sp) \..(((key) =
0370: 3d 20 4e 55 4c 4c 29 3f 28 63 68 61 72 2a 29 4e = NULL)?(char*)N
0380: 55 4c 4c 3a 54 63 6c 5f 54 72 61 6e 73 6c 61 74 ULL:Tcl_Translat
0390: 65 46 69 6c 65 4e 61 6d 65 28 20 69 6e 74 65 72 eFileName( inter
03a0: 70 2c 20 28 6b 65 79 29 2c 20 28 64 73 70 29 29 p, (key), (dsp))
03b0: 29 0a 23 64 65 66 69 6e 65 20 52 45 41 53 4f 4e ).#define REASON
03c0: 28 29 09 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 ().ERR_reason_er
03d0: 72 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 ror_string(ERR_g
03e0: 65 74 5f 65 72 72 6f 72 28 29 29 0a 0a 73 74 61 et_error())..sta
03f0: 74 69 63 20 69 6e 74 09 43 69 70 68 65 72 73 4f tic int.CiphersO
0400: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
0410: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
0420: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 lientData, Tcl_I
0430: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 09 nterp *interp,..
0440: 09 09 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 54 .. int objc, T
0450: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
0460: 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 jv[]));..static
0470: 69 6e 74 09 48 61 6e 64 73 68 61 6b 65 4f 62 6a int.HandshakeObj
0480: 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 Cmd _ANSI_ARGS_
0490: 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ((ClientData cli
04a0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
04b0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 09 09 09 erp *interp,....
04c0: 20 20 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c int objc, Tcl
04d0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
04e0: 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e []));..static in
04f0: 74 09 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 5f t.ImportObjCmd _
0500: 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 ANSI_ARGS_ ((Cli
0510: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
0520: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
0530: 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 69 6e 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 53 74 61 ..static int.Sta
0570: 74 75 73 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 5f tusObjCmd _ANSI_
0580: 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 ARGS_ ((ClientDa
0590: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
05a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
05b0: 70 2c 0a 09 09 09 20 20 20 69 6e 74 20 6f 62 6a p,.... 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 73 74 61 74 T objv[]));.stat
05e0: 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 54 58 5f ic SSL_CTX *CTX_
05f0: 49 6e 69 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f Init _ANSI_ARGS_
0600: 28 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ((Tcl_Interp *in
0610: 74 65 72 70 2c 20 69 6e 74 20 70 72 6f 74 6f 2c terp, int proto,
0620: 20 63 68 61 72 20 2a 6b 65 79 2c 0a 09 09 09 20 char *key,....
0630: 20 20 20 63 68 61 72 20 2a 63 65 72 74 2c 20 63 char *cert, c
0640: 68 61 72 20 2a 43 41 64 69 72 2c 20 63 68 61 72 har *CAdir, char
0650: 20 2a 43 41 66 69 6c 65 2c 20 63 68 61 72 20 2a *CAfile, char *
0660: 63 69 70 68 65 72 73 29 29 3b 0a 0a 23 64 65 66 ciphers));..#def
0670: 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 ine TLS_PROTO_SS
0680: 4c 32 09 30 78 30 31 0a 23 64 65 66 69 6e 65 20 L2.0x01.#define
0690: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 09 30 TLS_PROTO_SSL3.0
06a0: 78 30 32 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f x02.#define TLS_
06b0: 50 52 4f 54 4f 5f 54 4c 53 31 09 30 78 30 34 0a PROTO_TLS1.0x04.
06c0: 23 64 65 66 69 6e 65 20 45 4e 41 42 4c 45 44 28 #define ENABLED(
06d0: 66 6c 61 67 2c 20 6d 61 73 6b 29 09 28 28 28 66 flag, mask).(((f
06e0: 6c 61 67 29 20 26 20 28 6d 61 73 6b 29 29 20 3d lag) & (mask)) =
06f0: 3d 20 28 6d 61 73 6b 29 29 0a 2f 2a 0a 20 2a 20 = (mask))./*. *
0700: 53 74 61 74 69 63 20 64 61 74 61 20 73 74 72 75 Static data stru
0710: 63 74 75 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 6e ctures. */..#ifn
0720: 64 65 66 20 4e 4f 5f 44 48 0a 2f 2a 20 66 72 6f def NO_DH./* fro
0730: 6d 20 6f 70 65 6e 73 73 6c 2f 61 70 70 73 2f 73 m openssl/apps/s
0740: 5f 73 65 72 76 65 72 2e 63 20 2a 2f 0a 0a 73 74 _server.c */..st
0750: 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 63 68 atic unsigned ch
0760: 61 72 20 64 68 35 31 32 5f 70 5b 5d 3d 7b 0a 20 ar dh512_p[]={.
0770: 20 20 20 20 20 20 20 30 78 44 41 2c 30 78 35 38 0xDA,0x58
0780: 2c 30 78 33 43 2c 30 78 31 36 2c 30 78 44 39 2c ,0x3C,0x16,0xD9,
0790: 30 78 38 35 2c 30 78 32 32 2c 30 78 38 39 2c 30 0x85,0x22,0x89,0
07a0: 78 44 30 2c 30 78 45 34 2c 30 78 41 46 2c 30 78 xD0,0xE4,0xAF,0x
07b0: 37 35 2c 0a 20 20 20 20 20 20 20 20 30 78 36 46 75,. 0x6F
07c0: 2c 30 78 34 43 2c 30 78 43 41 2c 30 78 39 32 2c ,0x4C,0xCA,0x92,
07d0: 30 78 44 44 2c 30 78 34 42 2c 30 78 45 35 2c 30 0xDD,0x4B,0xE5,0
07e0: 78 33 33 2c 30 78 42 38 2c 30 78 30 34 2c 30 78 x33,0xB8,0x04,0x
07f0: 46 42 2c 30 78 30 46 2c 0a 20 20 20 20 20 20 20 FB,0x0F,.
0800: 20 30 78 45 44 2c 30 78 39 34 2c 30 78 45 46 2c 0xED,0x94,0xEF,
0810: 30 78 39 43 2c 30 78 38 41 2c 30 78 34 34 2c 30 0x9C,0x8A,0x44,0
0820: 78 30 33 2c 30 78 45 44 2c 30 78 35 37 2c 30 78 x03,0xED,0x57,0x
0830: 34 36 2c 30 78 35 30 2c 30 78 44 33 2c 0a 20 20 46,0x50,0xD3,.
0840: 20 20 20 20 20 20 30 78 36 39 2c 30 78 39 39 2c 0x69,0x99,
0850: 30 78 44 42 2c 30 78 32 39 2c 30 78 44 37 2c 30 0xDB,0x29,0xD7,0
0860: 78 37 36 2c 30 78 32 37 2c 30 78 36 42 2c 30 78 x76,0x27,0x6B,0x
0870: 41 32 2c 30 78 44 33 2c 30 78 44 34 2c 30 78 31 A2,0xD3,0xD4,0x1
0880: 32 2c 0a 20 20 20 20 20 20 20 20 30 78 45 32 2c 2,. 0xE2,
0890: 30 78 31 38 2c 30 78 46 34 2c 30 78 44 44 2c 30 0x18,0xF4,0xDD,0
08a0: 78 31 45 2c 30 78 30 38 2c 30 78 34 43 2c 30 78 x1E,0x08,0x4C,0x
08b0: 46 36 2c 30 78 44 38 2c 30 78 30 30 2c 30 78 33 F6,0xD8,0x00,0x3
08c0: 45 2c 30 78 37 43 2c 0a 20 20 20 20 20 20 20 20 E,0x7C,.
08d0: 30 78 34 37 2c 30 78 37 34 2c 30 78 45 38 2c 30 0x47,0x74,0xE8,0
08e0: 78 33 33 2c 0a 20 20 20 20 20 20 20 20 7d 3b 0a x33,. };.
08f0: 73 74 61 74 69 63 20 75 6e 73 69 67 6e 65 64 20 static unsigned
0900: 63 68 61 72 20 64 68 35 31 32 5f 67 5b 5d 3d 7b char dh512_g[]={
0910: 0a 09 30 78 30 32 2c 0a 7d 3b 0a 0a 73 74 61 74 ..0x02,.};..stat
0920: 69 63 20 44 48 20 2a 67 65 74 5f 64 68 35 31 32 ic DH *get_dh512
0930: 28 29 0a 7b 0a 20 20 20 20 44 48 20 2a 64 68 3d ().{. DH *dh=
0940: 4e 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 28 28 NULL;.. if ((
0950: 64 68 3d 44 48 5f 6e 65 77 28 29 29 20 3d 3d 20 dh=DH_new()) ==
0960: 4e 55 4c 4c 29 20 72 65 74 75 72 6e 28 4e 55 4c NULL) return(NUL
0970: 4c 29 3b 0a 0a 20 20 20 20 64 68 2d 3e 70 3d 42 L);.. dh->p=B
0980: 4e 5f 62 69 6e 32 62 6e 28 64 68 35 31 32 5f 70 N_bin2bn(dh512_p
0990: 2c 73 69 7a 65 6f 66 28 64 68 35 31 32 5f 70 29 ,sizeof(dh512_p)
09a0: 2c 4e 55 4c 4c 29 3b 0a 20 20 20 20 64 68 2d 3e ,NULL);. dh->
09b0: 67 3d 42 4e 5f 62 69 6e 32 62 6e 28 64 68 35 31 g=BN_bin2bn(dh51
09c0: 32 5f 67 2c 73 69 7a 65 6f 66 28 64 68 35 31 32 2_g,sizeof(dh512
09d0: 5f 67 29 2c 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 _g),NULL);..
09e0: 69 66 20 28 28 64 68 2d 3e 70 20 3d 3d 20 4e 55 if ((dh->p == NU
09f0: 4c 4c 29 20 7c 7c 20 28 64 68 2d 3e 67 20 3d 3d LL) || (dh->g ==
0a00: 20 4e 55 4c 4c 29 29 0a 09 72 65 74 75 72 6e 28 NULL))..return(
0a10: 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 NULL);. retur
0a20: 6e 28 64 68 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a n(dh);.}.#endif.
0a30: 0a 0a 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 ../*. * We lose
0a40: 74 68 65 20 74 63 6c 20 70 61 73 73 77 6f 72 64 the tcl password
0a50: 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 callback when w
0a60: 65 20 75 73 65 20 74 68 65 20 52 53 41 20 42 53 e use the RSA BS
0a70: 41 46 45 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a AFE SSL-C 1.1.2.
0a80: 20 2a 20 6c 69 62 72 61 72 69 65 73 20 69 6e 73 * libraries ins
0a90: 74 65 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 tead of the curr
0aa0: 65 6e 74 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 ent OpenSSL libr
0ab0: 61 72 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 aries.. */..#ifd
0ac0: 65 66 20 42 53 41 46 45 0a 23 64 65 66 69 6e 65 ef BSAFE.#define
0ad0: 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 PRE_OPENSSL_0_9
0ae0: 5f 34 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a _4 1.#endif../*.
0af0: 20 2a 20 50 65 72 20 4f 70 65 6e 53 53 4c 20 30 * Per OpenSSL 0
0b00: 2e 39 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a .9.4 Compat. */.
0b10: 0a 23 69 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f .#ifndef STACK_O
0b20: 46 0a 23 64 65 66 69 6e 65 20 53 54 41 43 4b 5f F.#define STACK_
0b30: 4f 46 28 78 29 09 09 09 53 54 41 43 4b 0a 23 64 OF(x)...STACK.#d
0b40: 65 66 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 efine sk_SSL_CIP
0b50: 48 45 52 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f HER_num(sk)..sk_
0b60: 6e 75 6d 28 28 73 6b 29 29 0a 23 64 65 66 69 6e num((sk)).#defin
0b70: 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f e sk_SSL_CIPHER_
0b80: 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 value( sk, index
0b90: 29 09 28 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 ).(SSL_CIPHER*)s
0ba0: 6b 5f 76 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 k_value((sk), (i
0bb0: 6e 64 65 78 29 29 0a 23 65 6e 64 69 66 0a 0a 0c ndex)).#endif...
0bc0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
0c10: 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a InfoCallback --.
0c20: 20 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 *. *.monitors S
0c30: 53 4c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 SL connection pr
0c40: 6f 63 65 73 73 0a 20 2a 0a 20 2a 20 52 65 73 75 ocess. *. * Resu
0c50: 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a lts:. *.None. *.
0c60: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
0c70: 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 . *.Calls callba
0c80: 63 6b 20 28 69 66 20 64 65 66 69 6e 65 64 29 0a ck (if defined).
0c90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cd0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
0ce0: 20 76 6f 69 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 void.InfoCallba
0cf0: 63 6b 28 53 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 ck(SSL *ssl, int
0d00: 20 77 68 65 72 65 2c 20 69 6e 74 20 72 65 74 29 where, int ret)
0d10: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
0d20: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 2a atePtr = (State*
0d30: 29 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 )SSL_get_app_dat
0d40: 61 28 73 73 6c 29 3b 0a 20 20 20 20 54 63 6c 5f a(ssl);. Tcl_
0d50: 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 20 20 Obj *cmdPtr;.
0d60: 20 63 68 61 72 20 2a 6d 61 6a 6f 72 3b 20 63 68 char *major; ch
0d70: 61 72 20 2a 6d 69 6e 6f 72 3b 0a 20 20 20 20 69 ar *minor;. i
0d80: 6e 74 20 77 3b 0a 0a 20 20 20 20 69 66 20 28 73 nt w;.. if (s
0d90: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
0da0: 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e k == (Tcl_Obj*)N
0db0: 55 4c 4c 29 0a 09 72 65 74 75 72 6e 3b 0a 0a 20 ULL)..return;..
0dc0: 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f cmdPtr = Tcl_
0dd0: 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 DuplicateObj(sta
0de0: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 tePtr->callback)
0df0: 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 69 66 20 ;..#if 0. if
0e00: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
0e10: 41 4c 45 52 54 29 20 7b 0a 09 73 65 76 20 3d 20 ALERT) {..sev =
0e20: 53 53 4c 5f 61 6c 65 72 74 5f 74 79 70 65 5f 73 SSL_alert_type_s
0e30: 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 3b tring_long(ret);
0e40: 0a 09 69 66 20 28 73 74 72 63 6d 70 28 20 73 65 ..if (strcmp( se
0e50: 76 2c 20 22 66 61 74 61 6c 22 29 3d 3d 30 29 20 v, "fatal")==0)
0e60: 7b 09 2f 2a 20 4d 61 70 20 74 6f 20 65 72 72 6f {./* Map to erro
0e70: 72 20 2a 2f 0a 09 20 20 20 20 54 6c 73 5f 45 72 r */.. Tls_Er
0e80: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 53 53 ror(statePtr, SS
0e90: 4c 5f 45 52 52 4f 52 28 73 73 6c 2c 20 30 29 29 L_ERROR(ssl, 0))
0ea0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 3b 0a 09 ;.. return;..
0eb0: 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 }. }.#endif.
0ec0: 20 20 20 69 66 20 28 77 68 65 72 65 20 26 20 53 if (where & S
0ed0: 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b 45 5f SL_CB_HANDSHAKE_
0ee0: 53 54 41 52 54 29 20 7b 0a 09 6d 61 6a 6f 72 20 START) {..major
0ef0: 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a 09 = "handshake";..
0f00: 6d 69 6e 6f 72 20 3d 20 22 73 74 61 72 74 22 3b minor = "start";
0f10: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
0f20: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 48 where & SSL_CB_H
0f30: 41 4e 44 53 48 41 4b 45 5f 44 4f 4e 45 29 20 7b ANDSHAKE_DONE) {
0f40: 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64 73 ..major = "hands
0f50: 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d 20 hake";..minor =
0f60: 22 64 6f 6e 65 22 3b 0a 20 20 20 20 7d 20 65 6c "done";. } el
0f70: 73 65 20 7b 0a 09 69 66 20 28 77 68 65 72 65 20 se {..if (where
0f80: 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 09 & SSL_CB_ALERT).
0f90: 09 6d 61 6a 6f 72 20 3d 20 22 61 6c 65 72 74 22 .major = "alert"
0fa0: 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 ;..else if (wher
0fb0: 65 20 26 20 53 53 4c 5f 53 54 5f 43 4f 4e 4e 45 e & SSL_ST_CONNE
0fc0: 43 54 29 09 6d 61 6a 6f 72 20 3d 20 22 63 6f 6e CT).major = "con
0fd0: 6e 65 63 74 22 3b 0a 09 65 6c 73 65 20 69 66 20 nect";..else if
0fe0: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 53 54 5f (where & SSL_ST_
0ff0: 41 43 43 45 50 54 29 09 09 6d 61 6a 6f 72 20 3d ACCEPT)..major =
1000: 20 22 61 63 63 65 70 74 22 3b 0a 09 65 6c 73 65 "accept";..else
1010: 09 09 09 09 09 6d 61 6a 6f 72 20 3d 20 22 75 6e .....major = "un
1020: 6b 6e 6f 77 6e 22 3b 0a 0a 09 69 66 20 28 77 68 known";...if (wh
1030: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 52 45 41 ere & SSL_CB_REA
1040: 44 29 09 09 6d 69 6e 6f 72 20 3d 20 22 72 65 61 D)..minor = "rea
1050: 64 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 d";..else if (wh
1060: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 57 52 49 ere & SSL_CB_WRI
1070: 54 45 29 09 09 6d 69 6e 6f 72 20 3d 20 22 77 72 TE)..minor = "wr
1080: 69 74 65 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 ite";..else if (
1090: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 4c where & SSL_CB_L
10a0: 4f 4f 50 29 09 09 6d 69 6e 6f 72 20 3d 20 22 6c OOP)..minor = "l
10b0: 6f 6f 70 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 oop";..else if (
10c0: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 45 where & SSL_CB_E
10d0: 58 49 54 29 09 09 6d 69 6e 6f 72 20 3d 20 22 65 XIT)..minor = "e
10e0: 78 69 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 xit";..else.....
10f0: 6d 69 6e 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e minor = "unknown
1100: 22 3b 0a 20 20 20 20 7d 0a 0a 0a 20 20 20 20 54 ";. }... T
1110: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1120: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
1130: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
1140: 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 r, .. Tcl_New
1150: 53 74 72 69 6e 67 4f 62 6a 28 20 22 69 6e 66 6f StringObj( "info
1160: 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 ", -1));.. Tc
1170: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1180: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1190: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
11a0: 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 , .. Tcl_NewS
11b0: 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c 5f 47 65 tringObj( Tcl_Ge
11c0: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 tChannelName(sta
11d0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 tePtr->self), -1
11e0: 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 ) );.. Tcl_Li
11f0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
1200: 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e nt( statePtr->in
1210: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 terp, cmdPtr,..
1220: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1230: 4f 62 6a 28 20 6d 61 6a 6f 72 2c 20 2d 31 29 20 Obj( major, -1)
1240: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1250: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1260: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1270: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
1280: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
1290: 6a 28 20 6d 69 6e 6f 72 2c 20 2d 31 29 20 29 3b j( minor, -1) );
12a0: 0a 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 20 .. if (where
12b0: 26 20 28 53 53 4c 5f 43 42 5f 4c 4f 4f 50 7c 53 & (SSL_CB_LOOP|S
12c0: 53 4c 5f 43 42 5f 45 58 49 54 29 29 20 7b 0a 09 SL_CB_EXIT)) {..
12d0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
12e0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
12f0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1300: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
1310: 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 StringObj( SSL_s
1320: 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 tate_string_long
1330: 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 20 (ssl), -1) );.
1340: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 77 68 65 } else if (whe
1350: 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 re & SSL_CB_ALER
1360: 54 29 20 7b 0a 09 63 68 61 72 20 2a 63 70 20 3d T) {..char *cp =
1370: 20 53 53 4c 5f 61 6c 65 72 74 5f 64 65 73 63 5f SSL_alert_desc_
1380: 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 string_long(ret)
1390: 3b 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;...Tcl_ListObjA
13a0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
13b0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
13c0: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
13d0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 _NewStringObj( c
13e0: 70 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 p, -1) );. }
13f0: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 else {..Tcl_List
1400: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1410: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1420: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
1430: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
1440: 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 74 72 j( SSL_state_str
1450: 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d ing_long(ssl), -
1460: 31 29 20 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 1) );. }.
1470: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
1480: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1490: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 Ptr->interp);.
14a0: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 Tcl_Preserve(
14b0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
14c0: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c tePtr);.. Tcl
14d0: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 63 _IncrRefCount( c
14e0: 6d 64 50 74 72 29 3b 0a 20 20 20 20 28 76 6f 69 mdPtr);. (voi
14f0: 64 29 20 54 63 6c 5f 47 6c 6f 62 61 6c 45 76 61 d) Tcl_GlobalEva
1500: 6c 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 69 lObj(statePtr->i
1510: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 29 3b 0a nterp, cmdPtr);.
1520: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
1530: 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 0a ount( cmdPtr);..
1540: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
1550: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
1560: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c atePtr);. Tcl
1570: 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e _Release( (Clien
1580: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d tData) statePtr-
1590: 3e 69 6e 74 65 72 70 29 3b 0a 0a 7d 0a 0c 0a 2f >interp);..}.../
15a0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
15b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15e0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 -------. *. * Ve
15f0: 72 69 66 79 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a rifyCallback --.
1600: 20 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 *. *.monitors S
1610: 53 4c 20 63 65 72 69 66 69 63 61 74 65 20 76 61 SL cerificate va
1620: 6c 69 64 61 74 69 6f 6e 20 70 72 6f 63 65 73 73 lidation process
1630: 0a 20 2a 09 54 68 69 73 20 69 73 20 63 61 6c 6c . *.This is call
1640: 65 64 20 77 68 65 6e 65 76 65 72 20 61 20 63 65 ed whenever a ce
1650: 72 74 69 66 69 63 61 74 65 20 69 73 20 69 6e 73 rtificate is ins
1660: 70 65 63 74 65 64 0a 20 2a 09 20 6f 72 20 64 65 pected. *. or de
1670: 63 69 64 65 64 20 69 6e 76 61 6c 69 64 0a 20 2a cided invalid. *
1680: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
1690: 6f 6b 20 2d 20 6c 65 74 20 53 53 4c 20 68 61 6e ok - let SSL han
16a0: 64 6c 65 20 69 74 0a 20 2a 0a 20 2a 20 53 69 64 dle it. *. * Sid
16b0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 e effects:. *.Th
16c0: 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 20 74 e err field of t
16d0: 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 he currently ope
16e0: 72 61 74 69 76 65 20 53 74 61 74 65 20 69 73 20 rative State is
16f0: 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 set. *. to a st
1700: 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 ring describing
1710: 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 the SSL negotiat
1720: 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 61 73 ion failure reas
1730: 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d on. *-----------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
1780: 74 69 63 20 69 6e 74 0a 56 65 72 69 66 79 43 61 tic int.VerifyCa
1790: 6c 6c 62 61 63 6b 28 69 6e 74 20 6f 6b 2c 20 58 llback(int ok, X
17a0: 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 20 2a 63 509_STORE_CTX *c
17b0: 74 78 29 0a 7b 0a 20 20 20 20 53 53 4c 20 2a 73 tx).{. SSL *s
17c0: 73 6c 20 3d 20 28 53 53 4c 2a 29 58 35 30 39 5f sl = (SSL*)X509_
17d0: 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 61 70 STORE_CTX_get_ap
17e0: 70 5f 64 61 74 61 28 63 74 78 29 3b 0a 20 20 20 p_data(ctx);.
17f0: 20 58 35 30 39 20 2a 63 65 72 74 20 3d 20 58 35 X509 *cert = X5
1800: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 09_STORE_CTX_get
1810: 5f 63 75 72 72 65 6e 74 5f 63 65 72 74 28 63 74 _current_cert(ct
1820: 78 29 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 x);. State *s
1830: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
1840: 2a 29 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 *)SSL_get_app_da
1850: 74 61 28 73 73 6c 29 3b 0a 20 20 20 20 54 63 6c ta(ssl);. Tcl
1860: 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 20 _Obj *cmdPtr;.
1870: 20 20 69 6e 74 20 64 65 70 74 68 20 3d 20 58 35 int depth = X5
1880: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 09_STORE_CTX_get
1890: 5f 65 72 72 6f 72 5f 64 65 70 74 68 28 63 74 78 _error_depth(ctx
18a0: 29 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 20 3d );. int err =
18b0: 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f X509_STORE_CTX_
18c0: 67 65 74 5f 65 72 72 6f 72 28 63 74 78 29 3b 0a get_error(ctx);.
18d0: 20 20 20 20 63 68 61 72 20 2a 65 72 72 53 74 72 char *errStr
18e0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 73 ;.. dprintf(s
18f0: 74 64 65 72 72 2c 20 22 56 65 72 69 66 79 3a 20 tderr, "Verify:
1900: 25 64 5c 6e 22 2c 20 6f 6b 29 3b 0a 0a 20 20 20 %d\n", ok);..
1910: 20 69 66 20 28 21 6f 6b 29 0a 09 65 72 72 53 74 if (!ok)..errSt
1920: 72 20 3d 20 28 63 68 61 72 2a 29 58 35 30 39 5f r = (char*)X509_
1930: 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 72 6f verify_cert_erro
1940: 72 5f 73 74 72 69 6e 67 28 65 72 72 29 3b 0a 20 r_string(err);.
1950: 20 20 20 65 6c 73 65 0a 09 65 72 72 53 74 72 20 else..errStr
1960: 3d 20 28 63 68 61 72 20 2a 29 30 3b 0a 0a 20 20 = (char *)0;..
1970: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
1980: 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c callback == (Tcl
1990: 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 _Obj*)NULL) {..i
19a0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 76 66 6c f (statePtr->vfl
19b0: 61 67 73 20 26 20 53 53 4c 5f 56 45 52 49 46 59 ags & SSL_VERIFY
19c0: 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 _FAIL_IF_NO_PEER
19d0: 5f 43 45 52 54 29 0a 09 20 20 20 20 72 65 74 75 _CERT).. retu
19e0: 72 6e 20 6f 6b 3b 0a 09 65 6c 73 65 0a 09 20 20 rn ok;..else..
19f0: 20 20 72 65 74 75 72 6e 20 31 3b 0a 20 20 20 20 return 1;.
1a00: 7d 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 }. cmdPtr = T
1a10: 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 cl_DuplicateObj(
1a20: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
1a30: 63 6b 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 ck);.. Tcl_Li
1a40: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
1a50: 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e nt( statePtr->in
1a60: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 terp, cmdPtr, ..
1a70: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
1a80: 67 4f 62 6a 28 20 22 76 65 72 69 66 79 22 2c 20 gObj( "verify",
1a90: 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c -1));.. Tcl_L
1aa0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1ab0: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1ac0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a nterp, cmdPtr, .
1ad0: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
1ae0: 6e 67 4f 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 ngObj( Tcl_GetCh
1af0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
1b00: 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 tr->self), -1) )
1b10: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
1b20: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1b30: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1b40: 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 p, cmdPtr,..
1b50: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 64 Tcl_NewIntObj( d
1b60: 65 70 74 68 29 20 29 3b 0a 0a 20 20 20 20 54 63 epth) );.. Tc
1b70: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1b80: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1b90: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1ba0: 2c 0a 09 20 20 20 20 54 6c 73 5f 4e 65 77 58 35 ,.. Tls_NewX5
1bb0: 30 39 4f 62 6a 28 20 73 74 61 74 65 50 74 72 2d 09Obj( statePtr-
1bc0: 3e 69 6e 74 65 72 70 2c 20 63 65 72 74 29 20 29 >interp, cert) )
1bd0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
1be0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1bf0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1c00: 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 p, cmdPtr,..
1c10: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 6f Tcl_NewIntObj( o
1c20: 6b 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c k) );.. Tcl_L
1c30: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
1c40: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 ent( statePtr->i
1c50: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, cmdPtr,..
1c60: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
1c70: 67 4f 62 6a 28 20 65 72 72 53 74 72 20 3f 20 65 gObj( errStr ? e
1c80: 72 72 53 74 72 20 3a 20 22 22 2c 20 2d 31 29 20 rrStr : "", -1)
1c90: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 );.. Tcl_Pres
1ca0: 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 erve( (ClientDat
1cb0: 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 a) statePtr->int
1cc0: 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 erp);. Tcl_Pr
1cd0: 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 eserve( (ClientD
1ce0: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
1cf0: 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 . Tcl_IncrRef
1d00: 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a Count( cmdPtr);.
1d10: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 6c 6f 62 if (Tcl_Glob
1d20: 61 6c 45 76 61 6c 4f 62 6a 28 73 74 61 74 65 50 alEvalObj(stateP
1d30: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1d40: 74 72 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b tr) != TCL_OK) {
1d50: 0a 09 2f 2a 20 69 74 20 67 6f 74 20 61 6e 20 65 ../* it got an e
1d60: 72 72 6f 72 20 2d 20 72 65 6a 65 63 74 20 74 68 rror - reject th
1d70: 65 20 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f e certificate */
1d80: 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 ..Tcl_Background
1d90: 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d Error( statePtr-
1da0: 3e 69 6e 74 65 72 70 29 3b 0a 09 6f 6b 20 3d 20 >interp);..ok =
1db0: 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 0;. } else {.
1dc0: 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 .if (Tcl_GetIntF
1dd0: 72 6f 6d 4f 62 6a 28 20 73 74 61 74 65 50 74 72 romObj( statePtr
1de0: 2d 3e 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 ->interp,...
1df0: 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_GetObjResult
1e00: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1e10: 72 70 29 2c 20 26 6f 6b 29 20 21 3d 20 54 43 4c rp), &ok) != TCL
1e20: 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f _OK) {.. Tcl_
1e30: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 BackgroundError(
1e40: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1e50: 70 29 3b 0a 09 20 20 20 20 6f 6b 20 3d 20 30 3b p);.. ok = 0;
1e60: 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 ..}. }. Tc
1e70: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 20 l_DecrRefCount(
1e80: 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 cmdPtr);.. Tc
1e90: 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 l_Release( (Clie
1ea0: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
1eb0: 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 );. Tcl_Relea
1ec0: 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 se( (ClientData)
1ed0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1ee0: 70 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 p);.. return(
1ef0: 6f 6b 29 3b 09 2f 2a 20 6c 65 61 76 65 20 74 68 ok);./* leave th
1f00: 65 20 64 69 73 70 6f 73 69 74 69 6f 6e 20 61 73 e disposition as
1f10: 20 53 53 4c 20 73 65 74 20 69 74 20 2a 2f 0a 7d SSL set it */.}
1f20: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
1f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
1f70: 2a 20 54 6c 73 5f 45 72 72 6f 72 20 2d 2d 0a 20 * Tls_Error --.
1f80: 2a 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 *. *.Calls callb
1f90: 61 63 6b 20 77 69 74 68 20 24 66 64 20 61 6e 64 ack with $fd and
1fa0: 20 24 6d 73 67 20 2d 20 73 6f 20 74 68 65 20 63 $msg - so the c
1fb0: 61 6c 6c 62 61 63 6b 20 63 61 6e 20 64 65 63 69 allback can deci
1fc0: 64 65 0a 20 2a 09 77 68 61 74 20 74 6f 20 64 6f de. *.what to do
1fd0: 20 77 69 74 68 20 65 72 72 6f 72 73 2e 0a 20 2a with errors.. *
1fe0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
1ff0: 6f 6b 20 2d 20 6c 65 74 20 53 53 4c 20 68 61 6e ok - let SSL han
2000: 64 6c 65 20 69 74 0a 20 2a 0a 20 2a 20 53 69 64 dle it. *. * Sid
2010: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 e effects:. *.Th
2020: 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 20 74 e err field of t
2030: 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 he currently ope
2040: 72 61 74 69 76 65 20 53 74 61 74 65 20 69 73 20 rative State is
2050: 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 set. *. to a st
2060: 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67 20 ring describing
2070: 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 the SSL negotiat
2080: 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 61 73 ion failure reas
2090: 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d on. *-----------
20a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 --------. */.voi
20e0: 64 0a 54 6c 73 5f 45 72 72 6f 72 28 53 74 61 74 d.Tls_Error(Stat
20f0: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 68 61 e *statePtr, cha
2100: 72 20 2a 6d 73 67 29 0a 7b 0a 20 20 20 20 54 63 r *msg).{. Tc
2110: 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 0a l_Obj *cmdPtr;..
2120: 20 20 20 20 69 66 20 28 6d 73 67 20 26 26 20 2a if (msg && *
2130: 6d 73 67 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 msg) {..Tcl_SetE
2140: 72 72 6f 72 43 6f 64 65 28 20 73 74 61 74 65 50 rrorCode( stateP
2150: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 22 53 53 4c tr->interp, "SSL
2160: 22 2c 20 6d 73 67 2c 20 28 63 68 61 72 20 2a 29 ", msg, (char *)
2170: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 NULL);. } els
2180: 65 20 7b 0a 09 6d 73 67 20 3d 20 54 63 6c 5f 47 e {..msg = Tcl_G
2190: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
21a0: 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_GetObjResult
21b0: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
21c0: 70 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d p), NULL);. }
21d0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 . statePtr->e
21e0: 72 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 69 rr = msg;.. i
21f0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c f (statePtr->cal
2200: 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 lback == (Tcl_Ob
2210: 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 72 j*)NULL) {..char
2220: 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 buf[BUFSIZ];..s
2230: 70 72 69 6e 74 66 28 62 75 66 2c 20 22 53 53 4c printf(buf, "SSL
2240: 20 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a channel \"%s\":
2250: 20 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 20 error: %s",..
2260: 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c Tcl_GetChannel
2270: 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 Name(statePtr->s
2280: 65 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 6c elf), msg);..Tcl
2290: 5f 53 65 74 52 65 73 75 6c 74 28 20 73 74 61 74 _SetResult( stat
22a0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 75 ePtr->interp, bu
22b0: 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 f, TCL_VOLATILE)
22c0: 3b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e ;..Tcl_Backgroun
22d0: 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 dError( statePtr
22e0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 72 65 74 75 ->interp);..retu
22f0: 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d rn;. }. cm
2300: 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 dPtr = Tcl_Dupli
2310: 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 cateObj(statePtr
2320: 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 ->callback);..
2330: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
2340: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
2350: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
2360: 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f dPtr, .. Tcl_
2370: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 65 NewStringObj( "e
2380: 72 72 6f 72 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 rror", -1));..
2390: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
23a0: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
23b0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
23c0: 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f dPtr, .. Tcl_
23d0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 NewStringObj( Tc
23e0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
23f0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
2400: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
2410: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2420: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
2430: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
2440: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 ,.. Tcl_NewSt
2450: 72 69 6e 67 4f 62 6a 28 20 6d 73 67 2c 20 2d 31 ringObj( msg, -1
2460: 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 72 ) );.. Tcl_Pr
2470: 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 eserve( (ClientD
2480: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 ata) statePtr->i
2490: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f nterp);. Tcl_
24a0: 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e Preserve( (Clien
24b0: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 tData) statePtr)
24c0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
24d0: 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 efCount( cmdPtr)
24e0: 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 6c ;. if (Tcl_Gl
24f0: 6f 62 61 6c 45 76 61 6c 4f 62 6a 28 73 74 61 74 obalEvalObj(stat
2500: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
2510: 64 50 74 72 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 dPtr) != TCL_OK)
2520: 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 {..Tcl_Backgrou
2530: 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 ndError( statePt
2540: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 r->interp);.
2550: 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 }. Tcl_DecrRe
2560: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
2570: 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 .. Tcl_Releas
2580: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 e( (ClientData)
2590: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 statePtr);. T
25a0: 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 cl_Release( (Cli
25b0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
25c0: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a r->interp);.}...
25d0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
25e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2610: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 --------. *. * P
2620: 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 20 asswordCallback
2630: 2d 2d 20 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 -- . *. *.Called
2640: 20 77 68 65 6e 20 61 20 70 61 73 73 77 6f 72 64 when a password
2650: 20 69 73 20 6e 65 65 64 65 64 20 74 6f 20 75 6e is needed to un
2660: 70 61 63 6b 20 52 53 41 20 61 6e 64 20 50 45 4d pack RSA and PEM
2670: 20 6b 65 79 73 0a 20 2a 09 45 76 61 6c 73 20 74 keys. *.Evals t
2680: 68 65 20 74 63 6c 20 70 72 6f 63 3a 20 20 74 6c he tcl proc: tl
2690: 73 3a 3a 70 61 73 73 77 6f 72 64 20 61 6e 64 20 s::password and
26a0: 72 65 74 75 72 6e 73 20 74 68 65 20 72 65 73 75 returns the resu
26b0: 6c 74 20 61 73 0a 20 2a 09 74 68 65 20 70 61 73 lt as. *.the pas
26c0: 73 77 6f 72 64 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d sword. *--------
26d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
26e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
26f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
2710: 23 69 66 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 #ifdef PRE_OPENS
2720: 53 4c 5f 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e SL_0_9_4./*. * N
2730: 6f 20 77 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 o way to handle
2740: 75 73 65 72 2d 64 61 74 61 20 74 68 65 72 65 66 user-data theref
2750: 6f 72 65 20 6e 6f 20 77 61 79 20 77 69 74 68 6f ore no way witho
2760: 75 74 20 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 ut a global. * v
2770: 61 72 69 61 62 6c 65 20 74 6f 20 61 63 63 65 73 ariable to acces
2780: 73 20 74 68 65 20 54 63 6c 20 69 6e 74 65 72 70 s the Tcl interp
2790: 72 65 74 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 reter..*/.static
27a0: 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 43 61 6c int.PasswordCal
27b0: 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 75 66 2c lback(char *buf,
27c0: 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e 74 20 76 int size, int v
27d0: 65 72 69 66 79 29 0a 7b 0a 20 20 20 20 72 65 74 erify).{. ret
27e0: 75 72 6e 20 2d 31 3b 0a 7d 0a 23 65 6c 73 65 0a urn -1;.}.#else.
27f0: 73 74 61 74 69 63 20 69 6e 74 0a 50 61 73 73 77 static int.Passw
2800: 6f 72 64 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 ordCallback(char
2810: 20 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c *buf, int size,
2820: 20 69 6e 74 20 76 65 72 69 66 79 2c 20 76 6f 69 int verify, voi
2830: 64 20 2a 75 64 61 74 61 29 0a 7b 0a 20 20 20 20 d *udata).{.
2840: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
2850: 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72 70 rp = (Tcl_Interp
2860: 2a 29 75 64 61 74 61 3b 0a 0a 20 20 20 20 69 66 *)udata;.. if
2870: 20 28 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 (Tcl_Eval(inter
2880: 70 2c 20 22 74 6c 73 3a 3a 70 61 73 73 77 6f 72 p, "tls::passwor
2890: 64 22 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b d") == TCL_OK) {
28a0: 0a 09 63 68 61 72 20 2a 72 65 74 20 3d 20 54 63 ..char *ret = Tc
28b0: 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c l_GetStringResul
28c0: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 20 t(interp);.
28d0: 20 20 20 73 74 72 6e 63 70 79 28 62 75 66 2c 20 strncpy(buf,
28e0: 72 65 74 2c 20 73 69 7a 65 29 3b 0a 09 72 65 74 ret, size);..ret
28f0: 75 72 6e 20 73 74 72 6c 65 6e 28 72 65 74 29 3b urn strlen(ret);
2900: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 . } else {..r
2910: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a eturn -1;. }.
2920: 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a 0a 20 2a }.#endif.../*. *
2930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2970: 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 ---. *. * Cipher
2980: 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 73 74 20 sObjCmd -- list
2990: 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 available cipher
29a0: 73 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f s. *. *.This pro
29b0: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
29c0: 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 d to process the
29d0: 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 "tls::ciphers"
29e0: 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 command. *.to li
29f0: 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 st available cip
2a00: 68 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e hers, based upon
2a10: 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 protocol select
2a20: 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ed.. *. * Result
2a30: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
2a40: 20 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 Tcl result list
2a50: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
2a60: 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 ects:. *.constru
2a70: 63 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 cts and destroys
2a80: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 SSL context (CT
2a90: 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d X). *. *--------
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
2ae0: 73 74 61 74 69 63 20 69 6e 74 0a 43 69 70 68 65 static int.Ciphe
2af0: 72 73 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 rsObjCmd(clientD
2b00: 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a ata, interp, obj
2b10: 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 c, objv). Cli
2b20: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
2b30: 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e ta;./* Not used.
2b40: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 */. Tcl_Inte
2b50: 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 rp *interp;.
2b60: 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 int objc;. Tc
2b70: 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj.*CONST obj
2b80: 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 61 74 69 v[];.{. stati
2b90: 63 20 63 68 61 72 20 2a 70 72 6f 74 6f 63 6f 6c c char *protocol
2ba0: 73 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c 32 22 2c s[] = {.."ssl2",
2bb0: 0a 09 22 73 73 6c 33 22 2c 0a 09 22 74 6c 73 31 .."ssl3",.."tls1
2bc0: 22 2c 0a 09 4e 55 4c 4c 0a 20 20 20 20 7d 3b 0a ",..NULL. };.
2bd0: 20 20 20 20 65 6e 75 6d 20 70 72 6f 74 6f 63 6f enum protoco
2be0: 6c 20 7b 0a 09 54 4c 53 5f 53 53 4c 32 2c 0a 09 l {..TLS_SSL2,..
2bf0: 54 4c 53 5f 53 53 4c 33 2c 0a 09 54 4c 53 5f 54 TLS_SSL3,..TLS_T
2c00: 4c 53 31 2c 0a 09 54 4c 53 5f 4e 4f 4e 45 0a 20 LS1,..TLS_NONE.
2c10: 20 20 20 7d 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 };. Tcl_Ob
2c20: 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 53 j *objPtr;. S
2c30: 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 SL_CTX *ctx = NU
2c40: 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 6c LL;. SSL *ssl
2c50: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 41 = NULL;. STA
2c60: 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 52 CK_OF(SSL_CIPHER
2c70: 29 20 2a 73 6b 3b 0a 20 20 20 20 63 68 61 72 20 ) *sk;. char
2c80: 2a 63 70 2c 20 62 75 66 5b 42 55 46 53 49 5a 5d *cp, buf[BUFSIZ]
2c90: 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 78 2c ;. int index,
2ca0: 20 76 65 72 62 6f 73 65 20 3d 20 30 3b 0a 0a 20 verbose = 0;..
2cb0: 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 if (objc < 2
2cc0: 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 || objc > 3) {..
2cd0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
2ce0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
2cf0: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 3f 76 65 72 , "protocol ?ver
2d00: 62 6f 73 65 3f 22 29 3b 0a 20 20 20 20 20 20 20 bose?");.
2d10: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2d20: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 R;. }. if
2d30: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f (Tcl_GetIndexFro
2d40: 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 mObj( interp, ob
2d50: 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 jv[1], protocols
2d60: 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c , "protocol", 0,
2d70: 0a 09 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c ..&index) != TCL
2d80: 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 _OK) {..return T
2d90: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
2da0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3e 20 32 if (objc > 2
2db0: 20 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 && Tcl_GetBoole
2dc0: 61 6e 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 anFromObj( inter
2dd0: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 0a 09 26 76 65 p, objv[2],..&ve
2de0: 72 62 6f 73 65 29 20 21 3d 20 54 43 4c 5f 4f 4b rbose) != TCL_OK
2df0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
2e00: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
2e10: 20 73 77 69 74 63 68 20 28 28 65 6e 75 6d 20 70 switch ((enum p
2e20: 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78 29 20 7b rotocol)index) {
2e30: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 53 53 . case TLS_SS
2e40: 4c 32 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 L2:.#if defined(
2e50: 4e 4f 5f 53 53 4c 32 29 0a 09 09 54 63 6c 5f 41 NO_SSL2)...Tcl_A
2e60: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
2e70: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
2e80: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
2e90: 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 LL);...return TC
2ea0: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 L_ERROR;.#else..
2eb0: 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e .ctx = SSL_CTX_n
2ec0: 65 77 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 ew(SSLv2_method(
2ed0: 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 )); break;.#endi
2ee0: 66 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 53 f. case TLS_S
2ef0: 53 4c 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 SL3:.#if defined
2f00: 28 4e 4f 5f 53 53 4c 33 29 0a 09 09 54 63 6c 5f (NO_SSL3)...Tcl_
2f10: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2f20: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
2f30: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
2f40: 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 ULL);...return T
2f50: 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a CL_ERROR;.#else.
2f60: 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
2f70: 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74 68 6f 64 new(SSLv3_method
2f80: 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 ()); break;.#end
2f90: 69 66 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f if. case TLS_
2fa0: 54 4c 53 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 TLS1:.#if define
2fb0: 64 28 4e 4f 5f 54 4c 53 31 29 0a 09 09 54 63 6c d(NO_TLS1)...Tcl
2fc0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
2fd0: 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 terp, "protocol
2fe0: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
2ff0: 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 NULL);...return
3000: 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 TCL_ERROR;.#else
3010: 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 ...ctx = SSL_CTX
3020: 5f 6e 65 77 28 54 4c 53 76 31 5f 6d 65 74 68 6f _new(TLSv1_metho
3030: 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e d()); break;.#en
3040: 64 69 66 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 dif. }. if
3050: 20 28 63 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b (ctx == NULL) {
3060: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
3070: 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f lt(interp, REASO
3080: 4e 28 29 2c 0a 09 20 20 20 20 28 63 68 61 72 20 N(),.. (char
3090: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
30a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
30b0: 20 7d 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 4c }. ssl = SSL
30c0: 5f 6e 65 77 28 63 74 78 29 3b 0a 20 20 20 20 69 _new(ctx);. i
30d0: 66 20 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 f (ssl == NULL)
30e0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
30f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 ult(interp, REAS
3100: 4f 4e 28 29 2c 0a 09 20 20 20 20 28 63 68 61 72 ON(),.. (char
3110: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f *) NULL);..SSL_
3120: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
3130: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3140: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f 62 6a 50 ;. }. objP
3150: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 tr = Tcl_NewList
3160: 4f 62 6a 28 20 30 2c 20 4e 55 4c 4c 29 3b 0a 0a Obj( 0, NULL);..
3170: 20 20 20 20 69 66 20 28 21 76 65 72 62 6f 73 65 if (!verbose
3180: 29 20 7b 0a 09 66 6f 72 20 28 69 6e 64 65 78 20 ) {..for (index
3190: 3d 20 30 3b 20 3b 20 69 6e 64 65 78 2b 2b 29 20 = 0; ; index++)
31a0: 7b 0a 09 20 20 20 20 63 70 20 3d 20 28 63 68 61 {.. cp = (cha
31b0: 72 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 r*)SSL_get_ciphe
31c0: 72 5f 6c 69 73 74 28 20 73 73 6c 2c 20 69 6e 64 r_list( ssl, ind
31d0: 65 78 29 3b 0a 09 20 20 20 20 69 66 20 28 63 70 ex);.. if (cp
31e0: 20 3d 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b 3b == NULL) break;
31f0: 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
3200: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
3210: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
3220: 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f ..Tcl_NewStringO
3230: 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 3b 0a 09 bj( cp, -1) );..
3240: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 }. } else {..
3250: 73 6b 20 3d 20 53 53 4c 5f 67 65 74 5f 63 69 70 sk = SSL_get_cip
3260: 68 65 72 73 28 73 73 6c 29 3b 0a 0a 09 66 6f 72 hers(ssl);...for
3270: 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 69 6e 64 (index = 0; ind
3280: 65 78 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 48 ex < sk_SSL_CIPH
3290: 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 6e 64 65 ER_num(sk); inde
32a0: 78 2b 2b 29 20 7b 0a 09 20 20 20 20 72 65 67 69 x++) {.. regi
32b0: 73 74 65 72 20 69 6e 74 20 69 3b 0a 09 20 20 20 ster int i;..
32c0: 20 53 53 4c 5f 43 49 50 48 45 52 5f 64 65 73 63 SSL_CIPHER_desc
32d0: 72 69 70 74 69 6f 6e 28 20 73 6b 5f 53 53 4c 5f ription( sk_SSL_
32e0: 43 49 50 48 45 52 5f 76 61 6c 75 65 28 20 73 6b CIPHER_value( sk
32f0: 2c 20 69 6e 64 65 78 29 2c 0a 09 09 09 09 20 20 , index),.....
3300: 20 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 buf, sizeof(bu
3310: 66 29 29 3b 0a 09 20 20 20 20 66 6f 72 20 28 69 f));.. for (i
3320: 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 29 20 2d = strlen(buf) -
3330: 20 31 3b 20 69 20 3b 20 69 2d 2d 29 20 7b 0a 09 1; i ; i--) {..
3340: 09 69 66 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 .if (buf[i] == '
3350: 20 27 20 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 ' || buf[i] ==
3360: 27 5c 6e 27 20 7c 7c 0a 09 09 20 20 20 20 62 75 '\n' ||... bu
3370: 66 5b 69 5d 20 3d 3d 20 27 5c 72 27 20 7c 7c 20 f[i] == '\r' ||
3380: 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 74 27 29 20 buf[i] == '\t')
3390: 7b 0a 09 09 20 20 20 20 62 75 66 5b 69 5d 20 3d {... buf[i] =
33a0: 20 27 5c 30 27 3b 0a 09 09 7d 20 65 6c 73 65 20 '\0';...} else
33b0: 7b 0a 09 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 {... break;..
33c0: 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 54 .}.. }.. T
33d0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
33e0: 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c Element( interp,
33f0: 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e objPtr,...Tcl_N
3400: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 62 75 66 ewStringObj( buf
3410: 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 , -1) );..}.
3420: 7d 0a 20 20 20 20 53 53 4c 5f 66 72 65 65 28 73 }. SSL_free(s
3430: 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 sl);. SSL_CTX
3440: 5f 66 72 65 65 28 63 74 78 29 3b 0a 0a 20 20 20 _free(ctx);..
3450: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
3460: 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 t( interp, objPt
3470: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 r);. return T
3480: 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a CL_OK;.}.../*. *
3490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34d0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 48 61 6e 64 73 68 ---. *. * Handsh
34e0: 61 6b 65 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a akeObjCmd --. *.
34f0: 20 2a 09 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 *.This command
3500: 69 73 20 75 73 65 64 20 74 6f 20 76 65 72 69 66 is used to verif
3510: 79 20 77 68 65 74 68 65 72 20 74 68 65 20 68 61 y whether the ha
3520: 6e 64 73 68 61 6b 65 20 69 73 20 63 6f 6d 70 6c ndshake is compl
3530: 65 74 65 0a 20 2a 09 6f 72 20 6e 6f 74 2e 0a 20 ete. *.or not..
3540: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
3550: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
3560: 72 65 73 75 6c 74 2e 20 31 20 6d 65 61 6e 73 20 result. 1 means
3570: 68 61 6e 64 73 68 61 6b 65 20 63 6f 6d 70 6c 65 handshake comple
3580: 74 65 2c 20 30 20 6d 65 61 6e 73 20 70 65 6e 64 te, 0 means pend
3590: 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ing.. *. * Side
35a0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 effects:. *.May
35b0: 66 6f 72 63 65 20 53 53 4c 20 6e 65 67 6f 74 69 force SSL negoti
35c0: 61 74 69 6f 6e 20 74 6f 20 74 61 6b 65 20 70 6c ation to take pl
35d0: 61 63 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ace.. *. *------
35e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3620: 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 48 61 /..static int.Ha
3630: 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 28 63 6c ndshakeObjCmd(cl
3640: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
3650: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 , objc, objv).
3660: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
3670: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 entData;./* Not
3680: 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c used. */. Tcl
3690: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
36a0: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 . int objc;.
36b0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 Tcl_Obj *CONS
36c0: 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 T objv[];.{.
36d0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
36e0: 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 ;../* The channe
36f0: 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 l to set a mode
3700: 6f 6e 2e 20 2a 2f 0a 20 20 20 20 53 74 61 74 65 on. */. State
3710: 20 2a 73 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 *statePtr;../*
3720: 63 6c 69 65 6e 74 20 73 74 61 74 65 20 66 6f 72 client state for
3730: 20 73 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 ssl socket */.
3740: 20 20 20 69 6e 74 20 72 65 74 20 3d 20 31 3b 0a int ret = 1;.
3750: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d . if (objc !=
3760: 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 2) {..Tcl_Wrong
3770: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
3780: 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 1, objv, "channe
3790: 6c 22 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 l");. ret
37a0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
37b0: 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d }.. chan =
37c0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 Tcl_GetChannel(
37d0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
37e0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
37f0: 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c v[1], NULL), NUL
3800: 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e L);. if (chan
3810: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
3820: 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 ) NULL) {.
3830: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
3840: 4f 52 3b 0a 20 20 20 20 7d 0a 23 69 66 64 65 66 OR;. }.#ifdef
3850: 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TCL_CHANNEL_VER
3860: 53 49 4f 4e 5f 32 0a 20 20 20 20 2f 2a 0a 20 20 SION_2. /*.
3870: 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 * Make sure t
3880: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
3890: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
38a0: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 . */. cha
38b0: 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 n = Tcl_GetTopCh
38c0: 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 23 65 6e annel(chan);.#en
38d0: 64 69 66 0a 20 20 20 20 69 66 20 28 54 63 6c 5f dif. if (Tcl_
38e0: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 GetChannelType(c
38f0: 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e han) != Tls_Chan
3900: 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 20 20 20 nelType()) {.
3910: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 Tcl_AppendR
3920: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
3930: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 ad channel \"",
3940: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
3950: 6d 65 28 63 68 61 6e 29 2c 0a 20 20 20 20 20 20 me(chan),.
3960: 20 20 20 20 20 20 20 20 20 20 22 5c 22 3a 20 6e "\": n
3970: 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c ot a TLS channel
3980: 22 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 ", NULL);.
3990: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
39a0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 OR;. }. st
39b0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
39c0: 2a 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c *)Tcl_GetChannel
39d0: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 20 63 68 InstanceData( ch
39e0: 61 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 53 an);.. if (!S
39f0: 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 SL_is_init_finis
3a00: 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 hed(statePtr->ss
3a10: 6c 29 29 20 7b 0a 09 69 6e 74 20 65 72 72 3b 0a l)) {..int err;.
3a20: 09 72 65 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 .ret = Tls_WaitF
3a30: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 orConnect(stateP
3a40: 74 72 2c 20 26 65 72 72 29 3b 0a 09 69 66 20 28 tr, &err);..if (
3a50: 72 65 74 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 ret < 0) {..
3a60: 63 68 61 72 20 2a 65 72 72 53 74 72 20 3d 20 73 char *errStr = s
3a70: 74 61 74 65 50 74 72 2d 3e 65 72 72 3b 0a 09 20 tatePtr->err;..
3a80: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 Tcl_ResetResu
3a90: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 lt(interp);..
3aa0: 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 65 72 Tcl_SetErrno(er
3ab0: 72 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 21 65 r);... if (!e
3ac0: 72 72 53 74 72 20 7c 7c 20 2a 65 72 72 53 74 72 rrStr || *errStr
3ad0: 20 3d 3d 20 30 29 0a 09 20 20 20 20 20 20 20 20 == 0)..
3ae0: 65 72 72 53 74 72 20 3d 20 54 63 6c 5f 50 6f 73 errStr = Tcl_Pos
3af0: 69 78 45 72 72 6f 72 28 69 6e 74 65 72 70 29 3b ixError(interp);
3b00: 0a 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ... Tcl_Appen
3b10: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
3b20: 22 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c 65 "handshake faile
3b30: 64 3a 20 22 2c 20 65 72 72 53 74 72 2c 20 28 63 d: ", errStr, (c
3b40: 68 61 72 2a 29 4e 55 4c 4c 29 3b 0a 09 20 20 20 har*)NULL);..
3b50: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
3b60: 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 R;..}. }.
3b70: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
3b80: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
3b90: 49 6e 74 4f 62 6a 28 72 65 74 29 29 3b 0a 20 20 IntObj(ret));.
3ba0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3bb0: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
3bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3c00: 0a 20 2a 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 . * ImportObjCmd
3c10: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
3c20: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f rocedure is invo
3c30: 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 ked to process t
3c40: 68 65 20 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 he "ssl" command
3c50: 0a 20 2a 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 . *. *.The ssl c
3c60: 6f 6d 6d 61 6e 64 20 70 75 73 68 65 73 20 53 53 ommand pushes SS
3c70: 4c 20 6f 76 65 72 20 61 20 28 6e 65 77 6c 79 20 L over a (newly
3c80: 63 6f 6e 6e 65 63 74 65 64 29 20 74 63 70 20 73 connected) tcp s
3c90: 6f 63 6b 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 ocket. *. * Resu
3ca0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
3cb0: 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 rd Tcl result..
3cc0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3cd0: 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 s:. *.May modify
3ce0: 20 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 the behavior of
3cf0: 20 61 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a an IO channel..
3d00: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d40: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
3d50: 61 74 69 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f atic int.ImportO
3d60: 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 bjCmd(clientData
3d70: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
3d80: 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 objv). Client
3d90: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b Data clientData;
3da0: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f ./* Not used. */
3db0: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
3dc0: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 *interp;. int
3dd0: 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f objc;. Tcl_O
3de0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
3df0: 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ;.{. Tcl_Chan
3e00: 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 nel chan;../* Th
3e10: 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 e channel to set
3e20: 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 a mode on. */.
3e30: 20 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 20 20 20 BIO *bio;.
3e40: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
3e50: 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 ;../* client sta
3e60: 74 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 te for ssl socke
3e70: 74 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 t */. SSL_CTX
3e80: 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *ctx = NULL;.
3e90: 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70 Tcl_Obj *scrip
3ea0: 74 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e t = NULL;. in
3eb0: 74 20 69 64 78 3b 0a 20 20 20 20 69 6e 74 20 66 t idx;. int f
3ec0: 6c 61 67 73 20 3d 20 54 4c 53 5f 54 43 4c 5f 49 lags = TLS_TCL_I
3ed0: 4e 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 NIT;. int ser
3ee0: 76 65 72 20 3d 20 30 3b 09 09 2f 2a 20 69 73 20 ver = 0;../* is
3ef0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d connection incom
3f00: 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f ing or outgoing?
3f10: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 */. char *ke
3f20: 79 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 y = NULL;. ch
3f30: 61 72 20 2a 63 65 72 74 20 3d 20 4e 55 4c 4c 3b ar *cert = NULL;
3f40: 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 65 . char *ciphe
3f50: 72 73 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 rs = NULL;. c
3f60: 68 61 72 20 2a 43 41 66 69 6c 65 20 3d 20 4e 55 har *CAfile = NU
3f70: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41 LL;. char *CA
3f80: 64 69 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 dir = NULL;.
3f90: 63 68 61 72 20 2a 6d 6f 64 65 6c 20 3d 20 4e 55 char *model = NU
3fa0: 4c 4c 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 LL;.#if defined(
3fb0: 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 69 6e 74 NO_SSL2). int
3fc0: 20 73 73 6c 32 20 3d 20 30 3b 0a 23 65 6c 73 65 ssl2 = 0;.#else
3fd0: 0a 20 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 . int ssl2 =
3fe0: 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 1;.#endif.#if de
3ff0: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 fined(NO_SSL3).
4000: 20 20 20 69 6e 74 20 73 73 6c 33 20 3d 20 30 3b int ssl3 = 0;
4010: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 .#else. int s
4020: 73 6c 33 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a sl3 = 1;.#endif.
4030: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
4040: 53 4c 32 29 20 26 26 20 64 65 66 69 6e 65 64 28 SL2) && defined(
4050: 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 6e 74 NO_SSL3). int
4060: 20 74 6c 73 31 20 3d 20 31 3b 0a 23 65 6c 73 65 tls1 = 1;.#else
4070: 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 . int tls1 =
4080: 30 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 6e 0;.#endif. in
4090: 74 20 70 72 6f 74 6f 20 3d 20 30 3b 0a 20 20 20 t proto = 0;.
40a0: 20 69 6e 74 20 76 65 72 69 66 79 20 3d 20 30 2c int verify = 0,
40b0: 20 72 65 71 75 69 72 65 20 3d 20 30 2c 20 72 65 require = 0, re
40c0: 71 75 65 73 74 20 3d 20 31 3b 0a 0a 20 20 20 20 quest = 1;..
40d0: 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a if (objc < 2) {.
40e0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
40f0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
4100: 76 2c 20 22 63 68 61 6e 6e 65 6c 20 3f 6f 70 74 v, "channel ?opt
4110: 69 6f 6e 73 3f 22 29 3b 0a 20 20 20 20 20 20 20 ions?");.
4120: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4130: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 R;. }.. ch
4140: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
4150: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f nel(interp, Tcl_
4160: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
4170: 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c (objv[1], NULL),
4180: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 NULL);. if (
4190: 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 chan == (Tcl_Cha
41a0: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 20 20 nnel) NULL) {.
41b0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c return TCL
41c0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 23 69 _ERROR;. }.#i
41d0: 66 64 65 66 20 54 43 4c 5f 43 48 41 4e 4e 45 4c fdef TCL_CHANNEL
41e0: 5f 56 45 52 53 49 4f 4e 5f 32 0a 20 20 20 20 2f _VERSION_2. /
41f0: 2a 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 *. * Make su
4200: 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e re to operate on
4210: 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 the topmost cha
4220: 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 nnel. */.
4230: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 chan = Tcl_GetT
4240: 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b opChannel(chan);
4250: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 66 6f 72 .#endif.. for
4260: 20 28 69 64 78 20 3d 20 32 3b 20 69 64 78 20 3c (idx = 2; idx <
4270: 20 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 20 7b 0a objc; idx++) {.
4280: 09 63 68 61 72 20 2a 6f 70 74 20 3d 20 54 63 6c .char *opt = Tcl
4290: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
42a0: 6a 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c j(objv[idx], NUL
42b0: 4c 29 3b 0a 0a 09 69 66 20 28 6f 70 74 5b 30 5d L);...if (opt[0]
42c0: 20 21 3d 20 27 2d 27 29 0a 09 20 20 20 20 62 72 != '-').. br
42d0: 65 61 6b 3b 0a 0a 09 4f 50 54 53 54 52 28 20 22 eak;...OPTSTR( "
42e0: 2d 63 61 66 69 6c 65 22 2c 20 43 41 66 69 6c 65 -cafile", CAfile
42f0: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 );..OPTSTR( "-ca
4300: 64 69 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 4f dir", CAdir);..O
4310: 50 54 53 54 52 28 20 22 2d 63 65 72 74 66 69 6c PTSTR( "-certfil
4320: 65 22 2c 20 63 65 72 74 29 3b 0a 09 4f 50 54 53 e", cert);..OPTS
4330: 54 52 28 20 22 2d 63 69 70 68 65 72 22 2c 20 63 TR( "-cipher", c
4340: 69 70 68 65 72 73 29 3b 0a 09 4f 50 54 4f 42 4a iphers);..OPTOBJ
4350: 28 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 63 ( "-command", sc
4360: 72 69 70 74 29 3b 0a 09 4f 50 54 53 54 52 28 20 ript);..OPTSTR(
4370: 22 2d 6b 65 79 66 69 6c 65 22 2c 20 6b 65 79 29 "-keyfile", key)
4380: 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 6d 6f 64 ;..OPTSTR( "-mod
4390: 65 6c 22 2c 20 6d 6f 64 65 6c 29 3b 0a 09 4f 50 el", model);..OP
43a0: 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 69 72 65 TBOOL( "-require
43b0: 22 2c 20 72 65 71 75 69 72 65 29 3b 0a 09 4f 50 ", require);..OP
43c0: 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 65 73 74 TBOOL( "-request
43d0: 22 2c 20 72 65 71 75 65 73 74 29 3b 0a 09 4f 50 ", request);..OP
43e0: 54 42 4f 4f 4c 28 20 22 2d 73 65 72 76 65 72 22 TBOOL( "-server"
43f0: 2c 20 73 65 72 76 65 72 29 3b 0a 0a 09 4f 50 54 , server);...OPT
4400: 42 4f 4f 4c 28 20 22 2d 73 73 6c 32 22 2c 20 73 BOOL( "-ssl2", s
4410: 73 6c 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 sl2);..OPTBOOL(
4420: 22 2d 73 73 6c 33 22 2c 20 73 73 6c 33 29 3b 0a "-ssl3", ssl3);.
4430: 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 .OPTBOOL( "-tls1
4440: 22 2c 20 74 6c 73 31 29 3b 0a 0a 09 4f 50 54 42 ", tls1);...OPTB
4450: 41 44 28 20 22 6f 70 74 69 6f 6e 22 2c 20 22 2d AD( "option", "-
4460: 63 61 66 69 6c 65 2c 20 2d 63 61 64 69 72 2c 20 cafile, -cadir,
4470: 2d 63 65 72 74 66 69 6c 65 2c 20 2d 63 69 70 68 -certfile, -ciph
4480: 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 6b er, -command, -k
4490: 65 79 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c 20 eyfile, -model,
44a0: 2d 72 65 71 75 69 72 65 2c 20 2d 72 65 71 75 65 -require, -reque
44b0: 73 74 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 6c 33 st, -ssl2, -ssl3
44c0: 2c 20 2d 73 65 72 76 65 72 2c 20 6f 72 20 2d 74 , -server, or -t
44d0: 6c 73 31 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 ls1");...return
44e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
44f0: 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 74 . if (request
4500: 29 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f ) verify |= SSL_
4510: 56 45 52 49 46 59 5f 43 4c 49 45 4e 54 5f 4f 4e VERIFY_CLIENT_ON
4520: 43 45 20 7c 20 53 53 4c 5f 56 45 52 49 46 59 5f CE | SSL_VERIFY_
4530: 50 45 45 52 3b 0a 20 20 20 20 69 66 20 28 72 65 PEER;. if (re
4540: 71 75 65 73 74 20 26 26 20 72 65 71 75 69 72 65 quest && require
4550: 29 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f ) verify |= SSL_
4560: 56 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f 4e VERIFY_FAIL_IF_N
4570: 4f 5f 50 45 45 52 5f 43 45 52 54 3b 0a 20 20 20 O_PEER_CERT;.
4580: 20 69 66 20 28 76 65 72 69 66 79 20 3d 3d 20 30 if (verify == 0
4590: 29 20 76 65 72 69 66 79 20 3d 20 53 53 4c 5f 56 ) verify = SSL_V
45a0: 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a 20 20 20 ERIFY_NONE;..
45b0: 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 32 20 proto |= (ssl2
45c0: 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 ? TLS_PROTO_SSL2
45d0: 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f : 0);. proto
45e0: 20 7c 3d 20 28 73 73 6c 33 20 3f 20 54 4c 53 5f |= (ssl3 ? TLS_
45f0: 50 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 30 29 3b PROTO_SSL3 : 0);
4600: 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 . proto |= (t
4610: 6c 73 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f ls1 ? TLS_PROTO_
4620: 54 4c 53 31 20 3a 20 30 29 3b 0a 0a 20 20 20 20 TLS1 : 0);..
4630: 2f 2a 20 72 65 73 65 74 20 74 6f 20 4e 55 4c 4c /* reset to NULL
4640: 20 69 66 20 62 6c 61 6e 6b 20 73 74 72 69 6e 67 if blank string
4650: 20 70 72 6f 76 69 64 65 64 20 2a 2f 0a 20 20 20 provided */.
4660: 20 69 66 20 28 63 65 72 74 20 26 26 20 21 2a 63 if (cert && !*c
4670: 65 72 74 29 20 63 65 72 74 20 3d 20 4e 55 4c 4c ert) cert = NULL
4680: 3b 0a 20 20 20 20 69 66 20 28 6b 65 79 20 26 26 ;. if (key &&
4690: 20 21 2a 6b 65 79 29 20 6b 65 79 20 3d 20 4e 55 !*key) key = NU
46a0: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 63 69 70 68 LL;. if (ciph
46b0: 65 72 73 20 26 26 20 21 2a 63 69 70 68 65 72 73 ers && !*ciphers
46c0: 29 20 63 69 70 68 65 72 73 20 3d 20 4e 55 4c 4c ) ciphers = NULL
46d0: 3b 0a 20 20 20 20 69 66 20 28 43 41 66 69 6c 65 ;. if (CAfile
46e0: 20 26 26 20 21 2a 43 41 66 69 6c 65 29 20 43 41 && !*CAfile) CA
46f0: 66 69 6c 65 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 file = NULL;.
4700: 20 69 66 20 28 43 41 64 69 72 20 26 26 20 21 2a if (CAdir && !*
4710: 43 41 64 69 72 29 20 43 41 64 69 72 20 3d 20 4e CAdir) CAdir = N
4720: 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f ULL;.. if (mo
4730: 64 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 del != NULL) {..
4740: 69 6e 74 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 65 int mode;../* Ge
4750: 74 20 74 68 65 20 22 6d 6f 64 65 6c 22 20 63 6f t the "model" co
4760: 6e 74 65 78 74 20 2a 2f 0a 09 63 68 61 6e 20 3d ntext */..chan =
4770: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 Tcl_GetChannel(
4780: 20 69 6e 74 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 interp, model,
4790: 26 6d 6f 64 65 29 3b 0a 09 69 66 20 28 63 68 61 &mode);..if (cha
47a0: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
47b0: 6c 29 30 29 20 7b 0a 09 20 20 20 20 72 65 74 75 l)0) {.. retu
47c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
47d0: 0a 23 69 66 64 65 66 20 54 43 4c 5f 43 48 41 4e .#ifdef TCL_CHAN
47e0: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 0a 09 2f NEL_VERSION_2../
47f0: 2a 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 *.. * Make sure
4800: 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 to operate on th
4810: 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 e topmost channe
4820: 6c 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 l.. */..chan = T
4830: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c cl_GetTopChannel
4840: 28 63 68 61 6e 29 3b 0a 23 65 6e 64 69 66 0a 09 (chan);.#endif..
4850: 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e if (Tcl_GetChann
4860: 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 elType(chan) !=
4870: 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 Tls_ChannelType(
4880: 29 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 )) {.. Tcl_Ap
4890: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
48a0: 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 p, "bad channel
48b0: 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e \"", Tcl_GetChan
48c0: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 nelName(chan),..
48d0: 09 20 20 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 . "\": not a
48e0: 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 TLS channel", NU
48f0: 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e LL);.. return
4900: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 TCL_ERROR;..}..
4910: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
4920: 65 20 2a 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e e *)Tcl_GetChann
4930: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 20 elInstanceData(
4940: 63 68 61 6e 29 3b 0a 09 63 74 78 20 3d 20 73 74 chan);..ctx = st
4950: 61 74 65 50 74 72 2d 3e 63 74 78 3b 0a 20 20 20 atePtr->ctx;.
4960: 20 7d 20 65 6c 73 65 20 7b 0a 09 69 66 20 28 28 } else {..if ((
4970: 63 74 78 20 3d 20 43 54 58 5f 49 6e 69 74 28 20 ctx = CTX_Init(
4980: 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 2c 20 6b interp, proto, k
4990: 65 79 2c 20 63 65 72 74 2c 20 43 41 64 69 72 2c ey, cert, CAdir,
49a0: 20 43 41 66 69 6c 65 2c 20 63 69 70 68 65 72 73 CAfile, ciphers
49b0: 29 29 0a 09 20 20 20 20 3d 3d 20 28 53 53 4c 5f )).. == (SSL_
49c0: 43 54 58 2a 29 30 29 20 7b 0a 09 20 20 20 20 72 CTX*)0) {.. r
49d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
49e0: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ..}. }.. /
49f0: 2a 20 6e 65 77 20 53 53 4c 20 73 74 61 74 65 20 * new SSL state
4a00: 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 20 */. statePtr
4a10: 3d 20 28 53 74 61 74 65 20 2a 29 20 54 63 6c 5f = (State *) Tcl_
4a20: 41 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 Alloc((unsigned)
4a30: 20 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 3b sizeof(State));
4a40: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 . statePtr->s
4a50: 65 6c 66 20 3d 20 28 54 63 6c 5f 43 68 61 6e 6e elf = (Tcl_Chann
4a60: 65 6c 29 4e 55 4c 4c 3b 0a 20 20 20 20 73 74 61 el)NULL;. sta
4a70: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 tePtr->timer = (
4a80: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e Tcl_TimerToken)N
4a90: 55 4c 4c 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 ULL;.. stateP
4aa0: 74 72 2d 3e 66 6c 61 67 73 20 3d 20 66 6c 61 67 tr->flags = flag
4ab0: 73 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d s;. statePtr-
4ac0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 0a >watchMask = 0;.
4ad0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 6d 6f statePtr->mo
4ae0: 64 65 20 3d 20 30 3b 0a 0a 20 20 20 20 73 74 61 de = 0;.. sta
4af0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 20 3d 20 tePtr->interp =
4b00: 69 6e 74 65 72 70 3b 0a 20 20 20 20 73 74 61 74 interp;. stat
4b10: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d ePtr->callback =
4b20: 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 30 3b 0a 0a (Tcl_Obj *)0;..
4b30: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 76 66 statePtr->vf
4b40: 6c 61 67 73 20 3d 20 76 65 72 69 66 79 3b 0a 20 lags = verify;.
4b50: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c statePtr->ssl
4b60: 20 3d 20 28 53 53 4c 2a 29 30 3b 0a 20 20 20 20 = (SSL*)0;.
4b70: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 statePtr->ctx =
4b80: 63 74 78 3b 0a 20 20 20 20 73 74 61 74 65 50 74 ctx;. statePt
4b90: 72 2d 3e 62 69 6f 20 3d 20 28 42 49 4f 2a 29 30 r->bio = (BIO*)0
4ba0: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
4bb0: 70 5f 62 69 6f 20 3d 20 28 42 49 4f 2a 29 30 3b p_bio = (BIO*)0;
4bc0: 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
4bd0: 65 72 72 20 3d 20 22 22 3b 0a 0a 20 20 20 20 54 err = "";.. T
4be0: 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 cl_SetChannelOpt
4bf0: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e ion(interp, chan
4c00: 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 , "-translation"
4c10: 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 20 , "binary");.
4c20: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f Tcl_SetChannelO
4c30: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 ption(interp, ch
4c40: 61 6e 2c 20 22 2d 62 75 66 66 65 72 69 6e 67 22 an, "-buffering"
4c50: 2c 20 22 6e 6f 6e 65 22 29 3b 0a 0a 23 69 66 20 , "none");..#if
4c60: 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f TCL_MAJOR_VERSIO
4c70: 4e 20 3d 3d 20 38 20 26 26 20 54 43 4c 5f 4d 49 N == 8 && TCL_MI
4c80: 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 32 0a NOR_VERSION < 2.
4c90: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 61 statePtr->pa
4ca0: 72 65 6e 74 20 3d 20 63 68 61 6e 3b 0a 20 20 20 rent = chan;.
4cb0: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 statePtr->self
4cc0: 3d 20 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 61 = Tcl_ReplaceCha
4cd0: 6e 6e 65 6c 28 20 69 6e 74 65 72 70 2c 0a 09 09 nnel( interp,...
4ce0: 09 09 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 ..Tls_ChannelTyp
4cf0: 65 28 29 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 e(), (ClientData
4d00: 29 20 73 74 61 74 65 50 74 72 2c 0a 09 09 09 20 ) statePtr,....
4d10: 20 20 20 20 20 20 28 54 43 4c 5f 52 45 41 44 41 (TCL_READA
4d20: 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 BLE | TCL_WRITAB
4d30: 4c 45 29 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 LE), statePtr->p
4d40: 61 72 65 6e 74 29 3b 0a 23 65 6c 73 65 0a 23 69 arent);.#else.#i
4d50: 66 64 65 66 20 54 43 4c 5f 43 48 41 4e 4e 45 4c fdef TCL_CHANNEL
4d60: 5f 56 45 52 53 49 4f 4e 5f 32 0a 20 20 20 20 73 _VERSION_2. s
4d70: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 tatePtr->self =
4d80: 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c Tcl_StackChannel
4d90: 28 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 (interp, Tls_Cha
4da0: 6e 6e 65 6c 54 79 70 65 28 29 2c 0a 09 20 20 20 nnelType(),..
4db0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
4dc0: 61 74 65 50 74 72 2c 20 28 54 43 4c 5f 52 45 41 atePtr, (TCL_REA
4dd0: 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 DABLE | TCL_WRIT
4de0: 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 23 65 ABLE), chan);.#e
4df0: 6c 73 65 0a 20 20 20 20 73 74 61 74 65 50 74 72 lse. statePtr
4e00: 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a 20 ->self = chan;.
4e10: 20 20 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e Tcl_StackChan
4e20: 6e 65 6c 28 20 69 6e 74 65 72 70 2c 20 54 6c 73 nel( interp, Tls
4e30: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 2c 20 _ChannelType(),
4e40: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
4e50: 74 65 50 74 72 2c 0a 09 20 20 20 20 28 54 43 4c tePtr,.. (TCL
4e60: 5f 52 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f _READABLE | TCL_
4e70: 57 52 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 WRITABLE), chan)
4e80: 3b 0a 23 65 6e 64 69 66 0a 23 65 6e 64 69 66 0a ;.#endif.#endif.
4e90: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
4ea0: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
4eb0: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
4ec0: 09 2f 2a 0a 09 20 2a 20 4e 6f 20 75 73 65 20 6f ./*.. * No use o
4ed0: 66 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 f Tcl_Eventually
4ee0: 46 72 65 65 20 62 65 63 61 75 73 65 20 6e 6f 20 Free because no
4ef0: 70 6f 73 73 69 62 6c 65 20 54 63 6c 5f 50 72 65 possible Tcl_Pre
4f00: 73 65 72 76 65 2e 0a 09 20 2a 2f 0a 09 54 6c 73 serve... */..Tls
4f10: 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 _Free((char *) s
4f20: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 20 20 tatePtr);.
4f30: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
4f40: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
4f50: 2a 20 61 6c 6c 6f 63 61 74 65 20 73 63 72 69 70 * allocate scrip
4f60: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 63 72 t */. if (scr
4f70: 69 70 74 29 20 7b 0a 09 63 68 61 72 20 2a 20 74 ipt) {..char * t
4f80: 6d 70 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 mp = Tcl_GetStri
4f90: 6e 67 46 72 6f 6d 4f 62 6a 28 73 63 72 69 70 74 ngFromObj(script
4fa0: 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 74 6d , NULL);..if (tm
4fb0: 70 20 26 26 20 2a 74 6d 70 29 20 7b 0a 09 20 20 p && *tmp) {..
4fc0: 20 20 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c statePtr->call
4fd0: 62 61 63 6b 20 3d 20 54 63 6c 5f 44 75 70 6c 69 back = Tcl_Dupli
4fe0: 63 61 74 65 4f 62 6a 28 73 63 72 69 70 74 29 3b cateObj(script);
4ff0: 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
5000: 66 43 6f 75 6e 74 28 20 73 74 61 74 65 50 74 72 fCount( statePtr
5010: 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 7d 0a ->callback);..}.
5020: 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 54 68 69 }. /* Thi
5030: 73 20 69 73 20 6f 6e 6c 79 20 6e 65 65 64 65 64 s is only needed
5040: 20 62 65 63 61 75 73 65 20 6f 66 20 61 20 62 75 because of a bu
5050: 67 20 69 6e 20 4f 70 65 6e 53 53 4c 2c 20 77 68 g in OpenSSL, wh
5060: 65 72 65 20 74 68 65 0a 20 20 20 20 20 2a 20 73 ere the. * s
5070: 73 6c 2d 3e 76 65 72 69 66 79 5f 63 61 6c 6c 62 sl->verify_callb
5080: 61 63 6b 20 69 73 20 6e 6f 74 20 72 65 66 65 72 ack is not refer
5090: 65 6e 63 65 64 21 21 21 20 28 4d 75 73 74 20 62 enced!!! (Must b
50a0: 65 20 64 6f 6e 65 0a 20 20 20 20 20 2a 20 2a 62 e done. * *b
50b0: 65 66 6f 72 65 2a 20 53 53 4c 5f 6e 65 77 28 29 efore* SSL_new()
50c0: 20 69 73 20 63 61 6c 6c 65 64 21 0a 20 20 20 20 is called!.
50d0: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f */. SSL_CTX_
50e0: 73 65 74 5f 76 65 72 69 66 79 28 73 74 61 74 65 set_verify(state
50f0: 50 74 72 2d 3e 63 74 78 2c 20 76 65 72 69 66 79 Ptr->ctx, verify
5100: 2c 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b , VerifyCallback
5110: 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 );.. /*.
5120: 2a 20 53 53 4c 20 49 6e 69 74 69 61 6c 69 7a 61 * SSL Initializa
5130: 74 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 tion. */..
5140: 20 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 statePtr->ssl
5150: 3d 20 53 53 4c 5f 6e 65 77 28 73 74 61 74 65 50 = SSL_new(stateP
5160: 74 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 69 66 tr->ctx);. if
5170: 20 28 21 73 74 61 74 65 50 74 72 2d 3e 73 73 6c (!statePtr->ssl
5180: 29 20 7b 0a 20 20 20 20 20 20 20 20 2f 2a 20 53 ) {. /* S
5190: 53 4c 20 6c 69 62 72 61 72 79 20 65 72 72 6f 72 SL library error
51a0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 54 63 6c 5f */. Tcl_
51b0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
51c0: 65 72 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 erp,.
51d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 "c
51e0: 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 72 75 63 ouldn't construc
51f0: 74 20 73 73 6c 20 73 65 73 73 69 6f 6e 3a 20 22 t ssl session: "
5200: 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 20 20 20 20 , REASON(),.
5210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5220: 20 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 (char *) NU
5230: 4c 4c 29 3b 0a 09 54 6c 73 5f 46 72 65 65 28 28 LL);..Tls_Free((
5240: 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 char *) statePtr
5250: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 );. retur
5260: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5270: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }.. /*.
5280: 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 6b 73 0a * SSL Callbacks.
5290: 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 53 53 4c */.. SSL
52a0: 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28 73 74 _set_app_data(st
52b0: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 56 4f atePtr->ssl, (VO
52c0: 49 44 20 2a 29 73 74 61 74 65 50 74 72 29 3b 09 ID *)statePtr);.
52d0: 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 6f /* point back to
52e0: 20 75 73 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20 us */.. /*.
52f0: 20 20 20 20 2a 20 54 68 65 20 66 6f 6c 6c 6f 77 * The follow
5300: 69 6e 67 20 69 73 20 62 72 6f 6b 65 6e 20 2d 20 ing is broken -
5310: 77 65 20 6e 65 65 64 20 69 73 20 74 6f 20 73 65 we need is to se
5320: 74 20 74 68 65 0a 20 20 20 20 20 2a 20 76 65 72 t the. * ver
5330: 69 66 79 5f 6d 6f 64 65 2c 20 62 75 74 20 74 68 ify_mode, but th
5340: 65 20 6c 69 62 72 61 72 79 20 69 67 6e 6f 72 65 e library ignore
5350: 73 20 74 68 65 20 76 65 72 69 66 79 5f 63 61 6c s the verify_cal
5360: 6c 62 61 63 6b 21 21 21 0a 20 20 20 20 20 2a 2f lback!!!. */
5370: 0a 20 20 20 20 2f 2a 53 53 4c 5f 73 65 74 5f 76 . /*SSL_set_v
5380: 65 72 69 66 79 28 73 74 61 74 65 50 74 72 2d 3e erify(statePtr->
5390: 73 73 6c 2c 20 76 65 72 69 66 79 2c 20 56 65 72 ssl, verify, Ver
53a0: 69 66 79 43 61 6c 6c 62 61 63 6b 29 3b 2a 2f 0a ifyCallback);*/.
53b0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
53c0: 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 28 20 _info_callback(
53d0: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 49 statePtr->ctx, I
53e0: 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 nfoCallback);..
53f0: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 54 63 6c /* Create Tcl
5400: 5f 43 68 61 6e 6e 65 6c 20 42 49 4f 20 48 61 6e _Channel BIO Han
5410: 64 6c 65 72 20 2a 2f 0a 20 20 20 20 73 74 61 74 dler */. stat
5420: 65 50 74 72 2d 3e 70 5f 62 69 6f 20 3d 20 62 69 ePtr->p_bio = bi
5430: 6f 20 3d 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 o = BIO_new_tcl(
5440: 20 73 74 61 74 65 50 74 72 2c 20 42 49 4f 5f 43 statePtr, BIO_C
5450: 4c 4f 53 45 29 3b 0a 20 20 20 20 73 74 61 74 65 LOSE);. state
5460: 50 74 72 2d 3e 62 69 6f 20 3d 20 42 49 4f 5f 6e Ptr->bio = BIO_n
5470: 65 77 28 42 49 4f 5f 66 5f 73 73 6c 28 29 29 3b ew(BIO_f_ssl());
5480: 0a 0a 20 20 20 20 69 66 20 28 73 65 72 76 65 72 .. if (server
5490: 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 ) {..statePtr->f
54a0: 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f lags |= TLS_TCL_
54b0: 53 45 52 56 45 52 3b 0a 09 53 53 4c 5f 73 65 74 SERVER;..SSL_set
54c0: 5f 61 63 63 65 70 74 5f 73 74 61 74 65 28 73 74 _accept_state(st
54d0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 atePtr->ssl);.
54e0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 53 53 4c 5f } else {..SSL_
54f0: 73 65 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 61 74 set_connect_stat
5500: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 e(statePtr->ssl)
5510: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f ;. }. SSL_
5520: 73 65 74 5f 62 69 6f 28 73 74 61 74 65 50 74 72 set_bio(statePtr
5530: 2d 3e 73 73 6c 2c 20 62 69 6f 2c 20 62 69 6f 29 ->ssl, bio, bio)
5540: 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 73 ;. BIO_set_ss
5550: 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 2c l(statePtr->bio,
5560: 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 statePtr->ssl,
5570: 42 49 4f 5f 43 4c 4f 53 45 29 3b 0a 0a 20 20 20 BIO_CLOSE);..
5580: 20 2f 2a 0a 20 20 20 20 20 2a 20 45 6e 64 20 6f /*. * End o
5590: 66 20 53 53 4c 20 49 6e 69 74 0a 20 20 20 20 20 f SSL Init.
55a0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 */. Tcl_SetRe
55b0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c sult(interp, Tcl
55c0: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
55d0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
55e0: 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a TCL_VOLATILE);.
55f0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
5600: 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d K;.}.../*. *----
5610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5650: 20 2a 0a 20 2a 20 43 54 58 5f 49 6e 69 74 20 2d *. * CTX_Init -
5660: 2d 20 63 6f 6e 73 74 72 75 63 74 20 61 20 53 53 - construct a SS
5670: 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 0a 20 L_CTX instance.
5680: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
5690: 09 41 20 76 61 6c 69 64 20 53 53 4c 5f 43 54 58 .A valid SSL_CTX
56a0: 20 69 6e 73 74 61 6e 63 65 20 6f 72 20 4e 55 4c instance or NUL
56b0: 4c 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 L.. *. * Side ef
56c0: 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 fects:. *.constr
56d0: 75 63 74 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 ucts SSL context
56e0: 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d (CTX). *. *----
56f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5730: 20 2a 2f 0a 0a 73 74 61 74 69 63 20 53 53 4c 5f */..static SSL_
5740: 43 54 58 20 2a 0a 43 54 58 5f 49 6e 69 74 28 69 CTX *.CTX_Init(i
5750: 6e 74 65 72 70 2c 20 70 72 6f 74 6f 2c 20 6b 65 nterp, proto, ke
5760: 79 2c 20 63 65 72 74 2c 20 43 41 64 69 72 2c 20 y, cert, CAdir,
5770: 43 41 66 69 6c 65 2c 20 63 69 70 68 65 72 73 29 CAfile, ciphers)
5780: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
5790: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 *interp;. int
57a0: 20 70 72 6f 74 6f 3b 0a 20 20 20 20 63 68 61 72 proto;. char
57b0: 20 2a 6b 65 79 3b 0a 20 20 20 20 63 68 61 72 20 *key;. char
57c0: 2a 63 65 72 74 3b 0a 20 20 20 20 63 68 61 72 20 *cert;. char
57d0: 2a 43 41 64 69 72 3b 0a 20 20 20 20 63 68 61 72 *CAdir;. char
57e0: 20 2a 43 41 66 69 6c 65 3b 0a 20 20 20 20 63 68 *CAfile;. ch
57f0: 61 72 20 2a 63 69 70 68 65 72 73 3b 0a 7b 0a 20 ar *ciphers;.{.
5800: 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 SSL_CTX *ctx
5810: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
5820: 44 53 74 72 69 6e 67 20 64 73 3b 0a 20 20 20 20 DString ds;.
5830: 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 31 3b Tcl_DString ds1;
5840: 0a 20 20 20 20 69 6e 74 20 6f 66 66 20 3d 20 30 . int off = 0
5850: 3b 0a 0a 20 20 20 20 2f 2a 20 63 72 65 61 74 65 ;.. /* create
5860: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a SSL context */.
5870: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
5880: 53 53 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 SSL2) && !define
5890: 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 d(NO_SSL3). i
58a0: 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f f (ENABLED(proto
58b0: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 , TLS_PROTO_SSL2
58c0: 29 20 26 26 0a 09 45 4e 41 42 4c 45 44 28 70 72 ) &&..ENABLED(pr
58d0: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
58e0: 53 4c 33 29 29 20 7b 0a 09 63 74 78 20 3d 20 53 SL3)) {..ctx = S
58f0: 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 SL_CTX_new(SSLv2
5900: 33 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 20 20 3_method());.
5910: 20 7d 20 65 6c 73 65 0a 23 65 6e 64 69 66 0a 20 } else.#endif.
5920: 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 if (ENABLED(p
5930: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
5940: 53 53 4c 32 29 29 20 7b 0a 23 69 66 20 64 65 66 SSL2)) {.#if def
5950: 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 54 ined(NO_SSL2)..T
5960: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
5970: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
5980: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
5990: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
59a0: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 (SSL_CTX *)0;.#
59b0: 65 6c 73 65 0a 09 63 74 78 20 3d 20 53 53 4c 5f else..ctx = SSL_
59c0: 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d 65 CTX_new(SSLv2_me
59d0: 74 68 6f 64 28 29 29 3b 0a 23 65 6e 64 69 66 0a thod());.#endif.
59e0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 } else if (E
59f0: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c NABLED(proto, TL
5a00: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 20 7b S_PROTO_TLS1)) {
5a10: 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
5a20: 6e 65 77 28 54 4c 53 76 31 5f 6d 65 74 68 6f 64 new(TLSv1_method
5a30: 28 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ());. } else
5a40: 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 if (ENABLED(prot
5a50: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c o, TLS_PROTO_SSL
5a60: 33 29 29 20 7b 0a 23 69 66 20 64 65 66 69 6e 65 3)) {.#if define
5a70: 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 54 63 6c 5f d(NO_SSL3)..Tcl_
5a80: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
5a90: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
5aa0: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
5ab0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ULL);..return (S
5ac0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6c 73 SL_CTX *)0;.#els
5ad0: 65 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 e..ctx = SSL_CTX
5ae0: 5f 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74 68 6f _new(SSLv3_metho
5af0: 64 28 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 d());.#endif.
5b00: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 } else {..Tcl_A
5b10: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
5b20: 72 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 70 72 rp, "no valid pr
5b30: 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 22 otocol selected"
5b40: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
5b50: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 (SSL_CTX *)0;.
5b60: 20 20 20 7d 0a 20 20 20 20 6f 66 66 20 7c 3d 20 }. off |=
5b70: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
5b80: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 20 TLS_PROTO_TLS1)
5b90: 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f ? 0 : SSL_OP_NO_
5ba0: 54 4c 53 76 31 29 3b 0a 20 20 20 20 6f 66 66 20 TLSv1);. off
5bb0: 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 |= (ENABLED(prot
5bc0: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c o, TLS_PROTO_SSL
5bd0: 32 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 2) ? 0 : SSL_OP_
5be0: 4e 4f 5f 53 53 4c 76 32 29 3b 0a 20 20 20 20 6f NO_SSLv2);. o
5bf0: 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 ff |= (ENABLED(p
5c00: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
5c10: 53 53 4c 33 29 20 3f 20 30 20 3a 20 53 53 4c 5f SSL3) ? 0 : SSL_
5c20: 4f 50 5f 4e 4f 5f 53 53 4c 76 33 29 3b 0a 0a 20 OP_NO_SSLv3);..
5c30: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 61 SSL_CTX_set_a
5c40: 70 70 5f 64 61 74 61 28 20 63 74 78 2c 20 28 56 pp_data( ctx, (V
5c50: 4f 49 44 2a 29 69 6e 74 65 72 70 29 3b 09 2f 2a OID*)interp);./*
5c60: 20 72 65 6d 65 6d 62 65 72 20 74 68 65 20 69 6e remember the in
5c70: 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 20 terpreter */.
5c80: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 74 SSL_CTX_set_opt
5c90: 69 6f 6e 73 28 20 63 74 78 2c 20 53 53 4c 5f 4f ions( ctx, SSL_O
5ca0: 50 5f 41 4c 4c 29 3b 09 2f 2a 20 61 6c 6c 20 53 P_ALL);./* all S
5cb0: 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 6e SL bug workaroun
5cc0: 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 ds */. SSL_CT
5cd0: 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 X_set_options( c
5ce0: 74 78 2c 20 6f 66 66 29 3b 09 2f 2a 20 61 6c 6c tx, off);./* all
5cf0: 20 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f SSL bug workaro
5d00: 75 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f unds */. SSL_
5d10: 43 54 58 5f 73 65 73 73 5f 73 65 74 5f 63 61 63 CTX_sess_set_cac
5d20: 68 65 5f 73 69 7a 65 28 20 63 74 78 2c 20 31 32 he_size( ctx, 12
5d30: 38 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 69 70 8);.. if (cip
5d40: 68 65 72 73 20 21 3d 20 4e 55 4c 4c 29 0a 09 53 hers != NULL)..S
5d50: 53 4c 5f 43 54 58 5f 73 65 74 5f 63 69 70 68 65 SL_CTX_set_ciphe
5d60: 72 5f 6c 69 73 74 28 63 74 78 2c 20 63 69 70 68 r_list(ctx, ciph
5d70: 65 72 73 29 3b 0a 0a 20 20 20 20 2f 2a 20 73 65 ers);.. /* se
5d80: 74 20 73 6f 6d 65 20 63 61 6c 6c 62 61 63 6b 73 t some callbacks
5d90: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f */. SSL_CTX_
5da0: 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 73 73 set_default_pass
5db0: 77 64 5f 63 62 28 63 74 78 2c 20 50 61 73 73 77 wd_cb(ctx, Passw
5dc0: 6f 72 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 ordCallback);..#
5dd0: 69 66 6e 64 65 66 20 42 53 41 46 45 0a 20 20 20 ifndef BSAFE.
5de0: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 SSL_CTX_set_def
5df0: 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 5f 75 ault_passwd_cb_u
5e00: 73 65 72 64 61 74 61 28 63 74 78 2c 20 28 76 6f serdata(ctx, (vo
5e10: 69 64 20 2a 29 69 6e 74 65 72 70 29 3b 0a 23 65 id *)interp);.#e
5e20: 6e 64 69 66 0a 0a 23 69 66 6e 64 65 66 20 4e 4f ndif..#ifndef NO
5e30: 5f 44 48 0a 20 20 20 20 7b 0a 09 44 48 2a 20 64 _DH. {..DH* d
5e40: 68 20 3d 20 67 65 74 5f 64 68 35 31 32 28 29 3b h = get_dh512();
5e50: 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 74 6d ..SSL_CTX_set_tm
5e60: 70 5f 64 68 28 63 74 78 2c 20 64 68 29 3b 0a 09 p_dh(ctx, dh);..
5e70: 44 48 5f 66 72 65 65 28 64 68 29 3b 0a 20 20 20 DH_free(dh);.
5e80: 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f }.#endif.. /
5e90: 2a 20 73 65 74 20 6f 75 72 20 63 65 72 74 69 66 * set our certif
5ea0: 69 63 61 74 65 20 2a 2f 0a 20 20 20 20 69 66 20 icate */. if
5eb0: 28 63 65 72 74 20 21 3d 20 4e 55 4c 4c 29 20 7b (cert != NULL) {
5ec0: 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 ..Tcl_DStringIni
5ed0: 74 28 26 64 73 29 3b 0a 0a 20 20 20 20 20 20 20 t(&ds);..
5ee0: 20 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 if (SSL_CTX_use
5ef0: 5f 63 65 72 74 69 66 69 63 61 74 65 5f 66 69 6c _certificate_fil
5f00: 65 28 63 74 78 2c 20 46 32 4e 28 20 63 65 72 74 e(ctx, F2N( cert
5f10: 2c 20 26 64 73 29 2c 0a 09 09 09 09 09 53 53 4c , &ds),......SSL
5f20: 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c _FILETYPE_PEM) <
5f30: 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f = 0) {.. Tcl_
5f40: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
5f50: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 63 ;. Tc
5f60: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
5f70: 6e 74 65 72 70 2c 0a 20 20 20 20 20 20 20 20 20 nterp,.
5f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5f90: 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 "unable to s
5fa0: 65 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 et certificate f
5fb0: 69 6c 65 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 ile ", cert, ":
5fc0: 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ",.
5fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5fe0: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 REASON(), (char
5ff0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 *) NULL);.
6000: 20 20 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 SSL_CTX_fr
6010: 65 65 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 ee(ctx);.
6020: 20 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c return (SSL
6030: 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 20 20 _CTX *)0;.
6040: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 2f 2a 20 }.. /*
6050: 67 65 74 20 74 68 65 20 70 72 69 76 61 74 65 20 get the private
6060: 6b 65 79 20 61 73 73 6f 63 69 61 74 65 64 20 77 key associated w
6070: 69 74 68 20 74 68 69 73 20 63 65 72 74 69 66 69 ith this certifi
6080: 63 61 74 65 20 2a 2f 0a 20 20 20 20 20 20 20 20 cate */.
6090: 69 66 20 28 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 if (key == NULL)
60a0: 20 6b 65 79 3d 63 65 72 74 3b 0a 0a 20 20 20 20 key=cert;..
60b0: 20 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f if (SSL_CTX_
60c0: 75 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f 66 use_PrivateKey_f
60d0: 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 6b 65 ile(ctx, F2N( ke
60e0: 79 2c 20 26 64 73 29 2c 0a 09 09 09 09 09 53 53 y, &ds),......SS
60f0: 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 L_FILETYPE_PEM)
6100: 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c <= 0) {.. Tcl
6110: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
6120: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 );. T
6130: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6140: 69 6e 74 65 72 70 2c 0a 20 20 20 20 20 20 20 20 interp,.
6150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6160: 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 "unable to
6170: 73 65 74 20 70 75 62 6c 69 63 20 6b 65 79 20 66 set public key f
6180: 69 6c 65 20 22 2c 20 6b 65 79 2c 20 22 20 22 2c ile ", key, " ",
6190: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
61a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 RE
61b0: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
61c0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 NULL);.
61d0: 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 SSL_CTX_free
61e0: 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 20 20 (ctx);.
61f0: 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 return (SSL_C
6200: 54 58 20 2a 29 30 3b 0a 20 20 20 20 20 20 20 20 TX *)0;.
6210: 7d 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 }..Tcl_DStringFr
6220: 65 65 28 26 64 73 29 3b 0a 20 20 20 20 20 20 20 ee(&ds);.
6230: 20 2f 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f 77 20 /* Now we know
6240: 74 68 61 74 20 61 20 6b 65 79 20 61 6e 64 20 63 that a key and c
6250: 65 72 74 20 68 61 76 65 20 62 65 65 6e 20 73 65 ert have been se
6260: 74 20 61 67 61 69 6e 73 74 0a 20 20 20 20 20 20 t against.
6270: 20 20 20 2a 20 74 68 65 20 53 53 4c 20 63 6f 6e * the SSL con
6280: 74 65 78 74 20 2a 2f 0a 20 20 20 20 20 20 20 20 text */.
6290: 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 63 68 65 if (!SSL_CTX_che
62a0: 63 6b 5f 70 72 69 76 61 74 65 5f 6b 65 79 28 63 ck_private_key(c
62b0: 74 78 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 tx)) {.
62c0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
62d0: 75 6c 74 28 69 6e 74 65 72 70 2c 0a 20 20 20 20 ult(interp,.
62e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
62f0: 20 20 20 20 20 20 20 20 20 22 70 72 69 76 61 74 "privat
6300: 65 20 6b 65 79 20 64 6f 65 73 20 6e 6f 74 20 6d e key does not m
6310: 61 74 63 68 20 74 68 65 20 63 65 72 74 69 66 69 atch the certifi
6320: 63 61 74 65 20 70 75 62 6c 69 63 20 6b 65 79 22 cate public key"
6330: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
6340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
6350: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 char *) NULL);.
6360: 20 20 20 20 20 20 20 20 20 20 20 53 53 4c 5f 43 SSL_C
6370: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 TX_free(ctx);.
6380: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e return
6390: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 (SSL_CTX *)0;.
63a0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 20 65 }. } e
63b0: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 63 65 lse {. ce
63c0: 72 74 20 3d 20 28 63 68 61 72 2a 29 58 35 30 39 rt = (char*)X509
63d0: 5f 67 65 74 5f 64 65 66 61 75 6c 74 5f 63 65 72 _get_default_cer
63e0: 74 5f 66 69 6c 65 28 29 3b 0a 0a 20 20 20 20 20 t_file();..
63f0: 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 if (SSL_CTX_u
6400: 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 5f 66 se_certificate_f
6410: 69 6c 65 28 63 74 78 2c 20 63 65 72 74 2c 0a 09 ile(ctx, cert,..
6420: 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 ....SSL_FILETYPE
6430: 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 23 69 _PEM) <= 0) {.#i
6440: 66 20 30 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 f 0.. Tcl_DSt
6450: 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 20 ringFree(&ds);.
6460: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 Tcl_A
6470: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6480: 72 70 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 rp,.
6490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
64a0: 20 22 75 6e 61 62 6c 65 20 74 6f 20 75 73 65 20 "unable to use
64b0: 64 65 66 61 75 6c 74 20 63 65 72 74 69 66 69 63 default certific
64c0: 61 74 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 ate file ", cert
64d0: 2c 20 22 3a 20 22 2c 0a 20 20 20 20 20 20 20 20 , ": ",.
64e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
64f0: 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 REASON(), (
6500: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 char *) NULL);.
6510: 20 20 20 20 20 20 20 20 20 20 20 53 53 4c 5f 43 SSL_C
6520: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 TX_free(ctx);.
6530: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e return
6540: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 (SSL_CTX *)0;.#
6550: 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20 7d 0a endif. }.
6560: 20 20 20 20 7d 0a 09 0a 20 20 20 20 54 63 6c 5f }... Tcl_
6570: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 DStringInit(&ds)
6580: 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e ;. Tcl_DStrin
6590: 67 49 6e 69 74 28 26 64 73 31 29 3b 0a 20 20 20 gInit(&ds1);.
65a0: 20 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 6c 6f if (!SSL_CTX_lo
65b0: 61 64 5f 76 65 72 69 66 79 5f 6c 6f 63 61 74 69 ad_verify_locati
65c0: 6f 6e 73 28 63 74 78 2c 20 46 32 4e 28 43 41 66 ons(ctx, F2N(CAf
65d0: 69 6c 65 2c 20 26 64 73 29 2c 20 46 32 4e 28 43 ile, &ds), F2N(C
65e0: 41 64 69 72 2c 20 26 64 73 31 29 29 20 7c 7c 0a Adir, &ds1)) ||.
65f0: 20 20 20 20 20 20 20 20 21 53 53 4c 5f 43 54 58 !SSL_CTX
6600: 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 76 65 72 _set_default_ver
6610: 69 66 79 5f 70 61 74 68 73 28 63 74 78 29 29 20 ify_paths(ctx))
6620: 7b 0a 23 69 66 20 30 0a 09 54 63 6c 5f 44 53 74 {.#if 0..Tcl_DSt
6630: 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 ringFree(&ds);..
6640: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
6650: 26 64 73 31 29 3b 0a 09 2f 2a 20 44 6f 6e 27 74 &ds1);../* Don't
6660: 20 63 75 72 72 65 6e 74 6c 79 20 63 61 72 65 20 currently care
6670: 69 66 20 74 68 69 73 20 66 61 69 6c 73 20 2a 2f if this fails */
6680: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
6690: 6c 74 28 69 6e 74 65 72 70 2c 20 22 53 53 4c 20 lt(interp, "SSL
66a0: 64 65 66 61 75 6c 74 20 76 65 72 69 66 79 20 70 default verify p
66b0: 61 74 68 73 3a 20 22 2c 0a 20 20 20 20 20 20 20 aths: ",.
66c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
66d0: 20 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 REASON(),
66e0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
66f0: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
6700: 78 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c x);..return (SSL
6710: 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 _CTX *)0;.#endif
6720: 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 43 . }. SSL_C
6730: 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 43 41 TX_set_client_CA
6740: 5f 6c 69 73 74 28 63 74 78 2c 20 53 53 4c 5f 6c _list(ctx, SSL_l
6750: 6f 61 64 5f 63 6c 69 65 6e 74 5f 43 41 5f 66 69 oad_client_CA_fi
6760: 6c 65 28 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 le( F2N(CAfile,
6770: 26 64 73 29 20 29 29 3b 0a 0a 20 20 20 20 54 63 &ds) ));.. Tc
6780: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
6790: 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 s);. Tcl_DStr
67a0: 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b 0a 20 ingFree(&ds1);.
67b0: 20 20 20 72 65 74 75 72 6e 20 63 74 78 3b 0a 7d return ctx;.}
67c0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
67d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
6810: 2a 20 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 2d * StatusObjCmd -
6820: 2d 20 72 65 74 75 72 6e 20 63 65 72 74 69 66 69 - return certifi
6830: 63 61 74 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 cate for connect
6840: 65 64 20 70 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 ed peer.. *. * R
6850: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
6860: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
6870: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
6880: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
6890: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
68a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68d0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
68e0: 69 63 20 69 6e 74 0a 53 74 61 74 75 73 4f 62 6a ic int.StatusObj
68f0: 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 Cmd(clientData,
6900: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 interp, objc, ob
6910: 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 jv). ClientDa
6920: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f ta clientData;./
6930: 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 * Not used. */.
6940: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
6950: 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f nterp;. int o
6960: 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a bjc;. Tcl_Obj
6970: 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a .*CONST objv[];.
6980: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
6990: 74 65 50 74 72 3b 0a 20 20 20 20 58 35 30 39 20 tePtr;. X509
69a0: 2a 70 65 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f *peer;. Tcl_O
69b0: 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 bj *objPtr;.
69c0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
69d0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 68 61 6e ;. char *chan
69e0: 6e 65 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 65 72 nelName, *cipher
69f0: 73 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b s;. int mode;
6a00: 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 .. if (objc !
6a10: 3d 20 32 29 20 7b 0a 20 20 20 20 20 20 20 20 54 = 2) {. T
6a20: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
6a30: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
6a40: 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 20 20 20 "channel");.
6a50: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
6a60: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
6a70: 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 channelName = T
6a80: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
6a90: 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c Obj(objv[1], NUL
6aa0: 4c 29 3b 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 L);.. chan =
6ab0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 20 Tcl_GetChannel(
6ac0: 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 4e interp, channelN
6ad0: 61 6d 65 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 ame, &mode);.
6ae0: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 if (chan == (Tc
6af0: 6c 5f 43 68 61 6e 6e 65 6c 29 30 29 20 7b 0a 09 l_Channel)0) {..
6b00: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6b10: 3b 0a 20 20 20 20 7d 0a 23 69 66 64 65 66 20 54 ;. }.#ifdef T
6b20: 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 CL_CHANNEL_VERSI
6b30: 4f 4e 5f 32 0a 20 20 20 20 2f 2a 0a 20 20 20 20 ON_2. /*.
6b40: 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 * Make sure to
6b50: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
6b60: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 opmost channel.
6b70: 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 */. chan
6b80: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e = Tcl_GetTopChan
6b90: 6e 65 6c 28 63 68 61 6e 29 3b 0a 23 65 6e 64 69 nel(chan);.#endi
6ba0: 66 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 f. if (Tcl_Ge
6bb0: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 tChannelType(cha
6bc0: 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 n) != Tls_Channe
6bd0: 6c 54 79 70 65 28 29 29 20 7b 0a 20 20 20 20 20 lType()) {.
6be0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
6bf0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 ult(interp, "bad
6c00: 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 channel \"", Tc
6c10: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
6c20: 28 63 68 61 6e 29 2c 0a 20 20 20 20 20 20 20 20 (chan),.
6c30: 20 20 20 20 20 20 20 20 22 5c 22 3a 20 6e 6f 74 "\": not
6c40: 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c a TLS channel",
6c50: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 NULL);.
6c60: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6c70: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 ;. }. stat
6c80: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 ePtr = (State *)
6c90: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
6ca0: 73 74 61 6e 63 65 44 61 74 61 28 20 63 68 61 6e stanceData( chan
6cb0: 29 3b 0a 20 20 20 20 70 65 65 72 20 3d 20 53 53 );. peer = SS
6cc0: 4c 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 69 L_get_peer_certi
6cd0: 66 69 63 61 74 65 28 73 74 61 74 65 50 74 72 2d ficate(statePtr-
6ce0: 3e 73 73 6c 29 3b 0a 20 20 20 20 69 66 20 28 70 >ssl);. if (p
6cf0: 65 65 72 29 0a 09 6f 62 6a 50 74 72 20 3d 20 54 eer)..objPtr = T
6d00: 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 69 ls_NewX509Obj( i
6d10: 6e 74 65 72 70 2c 20 70 65 65 72 29 3b 0a 20 20 nterp, peer);.
6d20: 20 20 65 6c 73 65 0a 09 6f 62 6a 50 74 72 20 3d else..objPtr =
6d30: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
6d40: 20 30 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 0, NULL);..
6d50: 63 69 70 68 65 72 73 20 3d 20 28 63 68 61 72 2a ciphers = (char*
6d60: 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 )SSL_get_cipher(
6d70: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
6d80: 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 if (ciphers
6d90: 21 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 63 6d != NULL && strcm
6da0: 70 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f 4e p(ciphers, "(NON
6db0: 45 29 22 29 21 3d 30 29 20 7b 0a 09 54 63 6c 5f E)")!=0) {..Tcl_
6dc0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
6dd0: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 ment( interp, ob
6de0: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
6df0: 74 72 69 6e 67 4f 62 6a 28 20 22 63 69 70 68 65 tringObj( "ciphe
6e00: 72 22 2c 20 2d 31 29 20 29 3b 0a 09 54 63 6c 5f r", -1) );..Tcl_
6e10: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
6e20: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 ment( interp, ob
6e30: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
6e40: 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 67 65 tringObj( SSL_ge
6e50: 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 74 t_cipher(statePt
6e60: 72 2d 3e 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a r->ssl), -1) );.
6e70: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 }. Tcl_Se
6e80: 74 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 tObjResult( inte
6e90: 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 rp, objPtr);.
6ea0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
6eb0: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
6ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
6f00: 20 2a 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 * Tls_Free --.
6f10: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
6f20: 75 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 ure cleans up wh
6f30: 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 en a SSL socket
6f40: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a based channel. *
6f50: 09 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 .is closed and i
6f60: 74 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 ts reference cou
6f70: 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 nt falls below 1
6f80: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
6f90: 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 *.none. *. * Si
6fa0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 de effects:. *.F
6fb0: 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 rees all the sta
6fc0: 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d te. *. *--------
6fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
7010: 76 6f 69 64 0a 54 6c 73 5f 46 72 65 65 28 20 63 void.Tls_Free( c
7020: 68 61 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a har *blockPtr ).
7030: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
7040: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
7050: 29 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 )blockPtr;..
7060: 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 Tls_Clean(stateP
7070: 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 46 72 65 tr);. Tcl_Fre
7080: 65 28 62 6c 6f 63 6b 50 74 72 29 3b 0a 7d 0a 0c e(blockPtr);.}..
7090: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
70a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
70e0: 54 6c 73 5f 43 6c 65 61 6e 20 2d 2d 0a 20 2a 0a Tls_Clean --. *.
70f0: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
7100: 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 6e e cleans up when
7110: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 a SSL socket ba
7120: 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 sed channel. *.i
7130: 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 s closed and its
7140: 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 reference count
7150: 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 2e 20 falls below 1.
7160: 20 54 68 69 73 20 73 68 6f 75 6c 64 0a 20 2a 09 This should. *.
7170: 62 65 20 63 61 6c 6c 65 64 20 73 79 6e 63 68 72 be called synchr
7180: 6f 6e 6f 75 73 6c 79 20 62 79 20 74 68 65 20 43 onously by the C
7190: 6c 6f 73 65 50 72 6f 63 2c 20 6e 6f 74 20 69 6e loseProc, not in
71a0: 20 74 68 65 0a 20 2a 09 45 76 65 6e 74 75 61 6c the. *.Eventual
71b0: 6c 79 46 72 65 65 20 63 61 6c 6c 62 61 63 6b 2e lyFree callback.
71c0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
71d0: 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 *.none. *. * Si
71e0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 de effects:. *.F
71f0: 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 rees all the sta
7200: 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d te. *. *--------
7210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
7250: 76 6f 69 64 0a 54 6c 73 5f 43 6c 65 61 6e 28 53 void.Tls_Clean(S
7260: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 29 0a tate *statePtr).
7270: 7b 0a 20 20 20 20 2f 2a 20 77 65 27 72 65 20 61 {. /* we're a
7280: 73 73 75 6d 69 6e 67 20 68 65 72 65 20 74 68 61 ssuming here tha
7290: 74 20 77 65 27 72 65 20 73 69 6e 67 6c 65 2d 74 t we're single-t
72a0: 68 72 65 61 64 65 64 20 2a 2f 0a 20 20 20 20 69 hreaded */. i
72b0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c f (statePtr->ssl
72c0: 29 20 7b 0a 09 53 53 4c 5f 73 68 75 74 64 6f 77 ) {..SSL_shutdow
72d0: 6e 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 n(statePtr->ssl)
72e0: 3b 0a 09 53 53 4c 5f 66 72 65 65 28 73 74 61 74 ;..SSL_free(stat
72f0: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 73 74 61 ePtr->ssl);..sta
7300: 74 65 50 74 72 2d 3e 73 73 6c 20 3d 20 4e 55 4c tePtr->ssl = NUL
7310: 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 L;. }. if
7320: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
7330: 61 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 ack) {..Tcl_Decr
7340: 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 RefCount(statePt
7350: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 73 r->callback);..s
7360: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
7370: 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a k = NULL;. }.
7380: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
7390: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
73a0: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c _TimerToken)NULL
73b0: 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 ) {..Tcl_DeleteT
73c0: 69 6d 65 72 48 61 6e 64 6c 65 72 20 28 73 74 61 imerHandler (sta
73d0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
73e0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
73f0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 7d 0a = NULL;. }.}.
7400: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
7410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
7450: 20 54 6c 73 5f 49 6e 69 74 20 2d 2d 0a 20 2a 0a Tls_Init --. *.
7460: 20 2a 09 54 68 69 73 20 69 73 20 61 20 70 61 63 *.This is a pac
7470: 6b 61 67 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 kage initializat
7480: 69 6f 6e 20 70 72 6f 63 65 64 75 72 65 2c 20 77 ion procedure, w
7490: 68 69 63 68 20 69 73 20 63 61 6c 6c 65 64 0a 20 hich is called.
74a0: 2a 09 62 79 20 54 63 6c 20 77 68 65 6e 20 74 68 *.by Tcl when th
74b0: 69 73 20 70 61 63 6b 61 67 65 20 69 73 20 74 6f is package is to
74c0: 20 62 65 20 61 64 64 65 64 20 74 6f 20 61 6e 20 be added to an
74d0: 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 2a 0a interpreter.. *.
74e0: 20 2a 20 52 65 73 75 6c 74 73 3a 20 20 53 73 6c * Results: Ssl
74f0: 20 63 6f 6e 66 69 67 75 72 65 64 20 61 6e 64 20 configured and
7500: 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a 20 53 69 64 loaded. *. * Sid
7510: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 20 63 e effects:. *. c
7520: 72 65 61 74 65 20 74 68 65 20 73 73 6c 20 63 6f reate the ssl co
7530: 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 61 6c 69 73 mmand, initialis
7540: 65 20 73 73 6c 20 63 6f 6e 74 65 78 74 0a 20 2a e ssl context. *
7550: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
7560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7590: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 0a ------. */..int.
75a0: 54 6c 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 Tls_Init(Tcl_Int
75b0: 65 72 70 20 2a 69 6e 74 65 72 70 29 09 09 2f 2a erp *interp)../*
75c0: 20 49 6e 74 65 72 70 72 65 74 65 72 20 69 6e 20 Interpreter in
75d0: 77 68 69 63 68 20 74 68 65 20 70 61 63 6b 61 67 which the packag
75e0: 65 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 e is.
75f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 *
7610: 74 6f 20 62 65 20 6d 61 64 65 20 61 76 61 69 6c to be made avail
7620: 61 62 6c 65 2e 20 2a 2f 0a 7b 0a 23 69 66 20 54 able. */.{.#if T
7630: 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e CL_MAJOR_VERSION
7640: 20 3e 3d 20 38 20 26 26 20 54 43 4c 5f 4d 49 4e >= 8 && TCL_MIN
7650: 4f 52 5f 56 45 52 53 49 4f 4e 20 3e 3d 20 32 0a OR_VERSION >= 2.
7660: 20 20 20 20 69 66 20 28 21 54 63 6c 5f 49 6e 69 if (!Tcl_Ini
7670: 74 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 54 tStubs(interp, T
7680: 43 4c 5f 56 45 52 53 49 4f 4e 2c 20 30 29 29 20 CL_VERSION, 0))
7690: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
76a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
76b0: 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 53 53 4c }.#endif. SSL
76c0: 5f 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 72 69 _load_error_stri
76d0: 6e 67 73 28 29 3b 0a 20 20 20 20 45 52 52 5f 6c ngs();. ERR_l
76e0: 6f 61 64 5f 63 72 79 70 74 6f 5f 73 74 72 69 6e oad_crypto_strin
76f0: 67 73 28 29 3b 0a 20 20 20 20 53 53 4c 5f 6c 69 gs();. SSL_li
7700: 62 72 61 72 79 5f 69 6e 69 74 28 29 3b 0a 0a 20 brary_init();..
7710: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
7720: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
7730: 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 "tls::ciphers",
7740: 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 20 2c 20 CiphersObjCmd ,
7750: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 0a (ClientData) 0,.
7760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7770: 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 44 65 (Tcl_CmdDe
7780: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
7790: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 );.. Tcl_Crea
77a0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
77b0: 65 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 73 erp, "tls::hands
77c0: 68 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b 65 hake", Handshake
77d0: 4f 62 6a 43 6d 64 20 2c 20 28 43 6c 69 65 6e 74 ObjCmd , (Client
77e0: 44 61 74 61 29 20 30 2c 0a 20 20 20 20 20 20 20 Data) 0,.
77f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
7800: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
7810: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 c *) NULL);..
7820: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
7830: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
7840: 6c 73 3a 3a 69 6d 70 6f 72 74 22 2c 20 49 6d 70 ls::import", Imp
7850: 6f 72 74 4f 62 6a 43 6d 64 20 2c 20 28 43 6c 69 ortObjCmd , (Cli
7860: 65 6e 74 44 61 74 61 29 20 30 2c 0a 20 20 20 20 entData) 0,.
7870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7880: 20 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 (Tcl_CmdDelete
7890: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a Proc *) NULL);..
78a0: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
78b0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
78c0: 20 22 74 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 "tls::status",
78d0: 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 2c 20 28 StatusObjCmd , (
78e0: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 0a 20 ClientData) 0,.
78f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7900: 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 44 65 6c (Tcl_CmdDel
7910: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
7920: 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 ;.. return Tc
7930: 6c 5f 50 6b 67 50 72 6f 76 69 64 65 28 69 6e 74 l_PkgProvide(int
7940: 65 72 70 2c 20 50 41 43 4b 41 47 45 2c 20 56 45 erp, PACKAGE, VE
7950: 52 53 49 4f 4e 29 3b 0a 7d 0a 0a 0c 0a 2f 2a 0a RSION);.}..../*.
7960: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7990: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 --------*. *. *.
79a0: 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0a Tls_SafeInit --.
79b0: 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *.----------
79c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79e0: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e 64 ------*. *.Stand
79f0: 61 72 64 20 70 72 6f 63 65 64 75 72 65 20 72 65 ard procedure re
7a00: 71 75 69 72 65 64 20 62 79 20 27 6c 6f 61 64 27 quired by 'load'
7a10: 2e 20 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 . . *.Initialize
7a20: 73 20 74 68 69 73 20 65 78 74 65 6e 73 69 6f 6e s this extension
7a30: 20 66 6f 72 20 61 20 73 61 66 65 20 69 6e 74 65 for a safe inte
7a40: 72 70 72 65 74 65 72 2e 0a 20 2a 09 2d 2d 2d 2d rpreter.. *.----
7a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
7a80: 0a 20 2a 09 53 69 64 65 65 66 66 65 63 74 73 3a . *.Sideeffects:
7a90: 0a 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73 5f . *..As of 'Tls_
7aa0: 49 6e 69 74 27 0a 20 2a 0a 20 2a 09 52 65 73 75 Init'. *. *.Resu
7ab0: 6c 74 3a 0a 20 2a 09 09 41 20 73 74 61 6e 64 61 lt:. *..A standa
7ac0: 72 64 20 54 63 6c 20 65 72 72 6f 72 20 63 6f 64 rd Tcl error cod
7ad0: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
7ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
7b10: 20 2a 2f 0a 0a 69 6e 74 0a 54 6c 73 5f 53 61 66 */..int.Tls_Saf
7b20: 65 49 6e 69 74 20 28 54 63 6c 5f 49 6e 74 65 72 eInit (Tcl_Inter
7b30: 70 2a 20 69 6e 74 65 72 70 29 0a 7b 0a 20 20 20 p* interp).{.
7b40: 20 72 65 74 75 72 6e 20 54 6c 73 5f 49 6e 69 74 return Tls_Init
7b50: 20 28 69 6e 74 65 72 70 29 3b 0a 7d 0a (interp);.}.