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 32 20 32 30 30 30 2f ,v 1.6.2.2 2000/
0090: 30 37 2f 32 31 20 30 35 3a 33 32 3a 35 36 20 68 07/21 05:32:56 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 20 3f 20 28 63 68 61 72 20 = NULL) ? (char
0380: 2a 29 20 4e 55 4c 4c 20 3a 20 5c 0a 09 09 54 63 *) NULL : \...Tc
0390: 6c 5f 54 72 61 6e 73 6c 61 74 65 46 69 6c 65 4e l_TranslateFileN
03a0: 61 6d 65 28 69 6e 74 65 72 70 2c 20 28 6b 65 79 ame(interp, (key
03b0: 29 2c 20 28 64 73 70 29 29 29 0a 23 64 65 66 69 ), (dsp))).#defi
03c0: 6e 65 20 52 45 41 53 4f 4e 28 29 09 45 52 52 5f ne REASON().ERR_
03d0: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
03e0: 69 6e 67 28 45 52 52 5f 67 65 74 5f 65 72 72 6f ing(ERR_get_erro
03f0: 72 28 29 29 0a 0a 73 74 61 74 69 63 20 69 6e 74 r())..static int
0400: 09 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 20 5f .CiphersObjCmd _
0410: 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 ANSI_ARGS_ ((Cli
0420: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
0430: 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 ta,....Tcl_Inter
0440: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
0450: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f bjc, Tcl_Obj *CO
0460: 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 NST objv[]));..s
0470: 74 61 74 69 63 20 69 6e 74 09 48 61 6e 64 73 68 tatic int.Handsh
0480: 61 6b 65 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 5f akeObjCmd _ANSI_
0490: 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 ARGS_ ((ClientDa
04a0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 ta clientData,..
04b0: 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ..Tcl_Interp *in
04c0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
04d0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
04e0: 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 bjv[]));..static
04f0: 20 69 6e 74 09 49 6d 70 6f 72 74 4f 62 6a 43 6d int.ImportObjCm
0500: 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 d _ANSI_ARGS_ ((
0510: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
0520: 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e tData,....Tcl_In
0530: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
0540: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
0550: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b *CONST objv[]));
0560: 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 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 0a 09 ta clientData,..
05a0: 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e ..Tcl_Interp *in
05b0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
05c0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
05d0: 62 6a 76 5b 5d 29 29 3b 0a 73 74 61 74 69 63 20 bjv[]));.static
05e0: 53 53 4c 5f 43 54 58 20 2a 43 54 58 5f 49 6e 69 SSL_CTX *CTX_Ini
05f0: 74 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 t _ANSI_ARGS_((T
0600: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0610: 70 2c 20 69 6e 74 20 70 72 6f 74 6f 2c 20 63 68 p, int proto, ch
0620: 61 72 20 2a 6b 65 79 2c 0a 09 09 09 63 68 61 72 ar *key,....char
0630: 20 2a 63 65 72 74 2c 20 63 68 61 72 20 2a 43 41 *cert, char *CA
0640: 64 69 72 2c 20 63 68 61 72 20 2a 43 41 66 69 6c dir, char *CAfil
0650: 65 2c 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 e, char *ciphers
0660: 29 29 3b 0a 0a 23 64 65 66 69 6e 65 20 54 4c 53 ));..#define TLS
0670: 5f 50 52 4f 54 4f 5f 53 53 4c 32 09 30 78 30 31 _PROTO_SSL2.0x01
0680: 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f .#define TLS_PRO
0690: 54 4f 5f 53 53 4c 33 09 30 78 30 32 0a 23 64 65 TO_SSL3.0x02.#de
06a0: 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 fine TLS_PROTO_T
06b0: 4c 53 31 09 30 78 30 34 0a 23 64 65 66 69 6e 65 LS1.0x04.#define
06c0: 20 45 4e 41 42 4c 45 44 28 66 6c 61 67 2c 20 6d ENABLED(flag, m
06d0: 61 73 6b 29 09 28 28 28 66 6c 61 67 29 20 26 20 ask).(((flag) &
06e0: 28 6d 61 73 6b 29 29 20 3d 3d 20 28 6d 61 73 6b (mask)) == (mask
06f0: 29 29 0a 0a 2f 2a 0a 20 2a 20 53 74 61 74 69 63 ))../*. * Static
0700: 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 73 data structures
0710: 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 4e 4f . */..#ifndef NO
0720: 5f 44 48 0a 2f 2a 20 66 72 6f 6d 20 6f 70 65 6e _DH./* from open
0730: 73 73 6c 2f 61 70 70 73 2f 73 5f 73 65 72 76 65 ssl/apps/s_serve
0740: 72 2e 63 20 2a 2f 0a 0a 73 74 61 74 69 63 20 75 r.c */..static u
0750: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 64 68 35 nsigned char dh5
0760: 31 32 5f 70 5b 5d 3d 7b 0a 20 20 20 20 20 20 20 12_p[]={.
0770: 20 30 78 44 41 2c 30 78 35 38 2c 30 78 33 43 2c 0xDA,0x58,0x3C,
0780: 30 78 31 36 2c 30 78 44 39 2c 30 78 38 35 2c 30 0x16,0xD9,0x85,0
0790: 78 32 32 2c 30 78 38 39 2c 30 78 44 30 2c 30 78 x22,0x89,0xD0,0x
07a0: 45 34 2c 30 78 41 46 2c 30 78 37 35 2c 0a 20 20 E4,0xAF,0x75,.
07b0: 20 20 20 20 20 20 30 78 36 46 2c 30 78 34 43 2c 0x6F,0x4C,
07c0: 30 78 43 41 2c 30 78 39 32 2c 30 78 44 44 2c 30 0xCA,0x92,0xDD,0
07d0: 78 34 42 2c 30 78 45 35 2c 30 78 33 33 2c 30 78 x4B,0xE5,0x33,0x
07e0: 42 38 2c 30 78 30 34 2c 30 78 46 42 2c 30 78 30 B8,0x04,0xFB,0x0
07f0: 46 2c 0a 20 20 20 20 20 20 20 20 30 78 45 44 2c F,. 0xED,
0800: 30 78 39 34 2c 30 78 45 46 2c 30 78 39 43 2c 30 0x94,0xEF,0x9C,0
0810: 78 38 41 2c 30 78 34 34 2c 30 78 30 33 2c 30 78 x8A,0x44,0x03,0x
0820: 45 44 2c 30 78 35 37 2c 30 78 34 36 2c 30 78 35 ED,0x57,0x46,0x5
0830: 30 2c 30 78 44 33 2c 0a 20 20 20 20 20 20 20 20 0,0xD3,.
0840: 30 78 36 39 2c 30 78 39 39 2c 30 78 44 42 2c 30 0x69,0x99,0xDB,0
0850: 78 32 39 2c 30 78 44 37 2c 30 78 37 36 2c 30 78 x29,0xD7,0x76,0x
0860: 32 37 2c 30 78 36 42 2c 30 78 41 32 2c 30 78 44 27,0x6B,0xA2,0xD
0870: 33 2c 30 78 44 34 2c 30 78 31 32 2c 0a 20 20 20 3,0xD4,0x12,.
0880: 20 20 20 20 20 30 78 45 32 2c 30 78 31 38 2c 30 0xE2,0x18,0
0890: 78 46 34 2c 30 78 44 44 2c 30 78 31 45 2c 30 78 xF4,0xDD,0x1E,0x
08a0: 30 38 2c 30 78 34 43 2c 30 78 46 36 2c 30 78 44 08,0x4C,0xF6,0xD
08b0: 38 2c 30 78 30 30 2c 30 78 33 45 2c 30 78 37 43 8,0x00,0x3E,0x7C
08c0: 2c 0a 20 20 20 20 20 20 20 20 30 78 34 37 2c 30 ,. 0x47,0
08d0: 78 37 34 2c 30 78 45 38 2c 30 78 33 33 2c 0a 20 x74,0xE8,0x33,.
08e0: 20 20 20 20 20 20 20 7d 3b 0a 73 74 61 74 69 63 };.static
08f0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 64 unsigned char d
0900: 68 35 31 32 5f 67 5b 5d 3d 7b 0a 09 30 78 30 32 h512_g[]={..0x02
0910: 2c 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 44 48 20 ,.};..static DH
0920: 2a 67 65 74 5f 64 68 35 31 32 28 29 0a 7b 0a 20 *get_dh512().{.
0930: 20 20 20 44 48 20 2a 64 68 3d 4e 55 4c 4c 3b 0a DH *dh=NULL;.
0940: 0a 20 20 20 20 69 66 20 28 28 64 68 3d 44 48 5f . if ((dh=DH_
0950: 6e 65 77 28 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 new()) == NULL)
0960: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 0a 20 return(NULL);..
0970: 20 20 20 64 68 2d 3e 70 3d 42 4e 5f 62 69 6e 32 dh->p=BN_bin2
0980: 62 6e 28 64 68 35 31 32 5f 70 2c 73 69 7a 65 6f bn(dh512_p,sizeo
0990: 66 28 64 68 35 31 32 5f 70 29 2c 4e 55 4c 4c 29 f(dh512_p),NULL)
09a0: 3b 0a 20 20 20 20 64 68 2d 3e 67 3d 42 4e 5f 62 ;. dh->g=BN_b
09b0: 69 6e 32 62 6e 28 64 68 35 31 32 5f 67 2c 73 69 in2bn(dh512_g,si
09c0: 7a 65 6f 66 28 64 68 35 31 32 5f 67 29 2c 4e 55 zeof(dh512_g),NU
09d0: 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 64 LL);.. if ((d
09e0: 68 2d 3e 70 20 3d 3d 20 4e 55 4c 4c 29 20 7c 7c h->p == NULL) ||
09f0: 20 28 64 68 2d 3e 67 20 3d 3d 20 4e 55 4c 4c 29 (dh->g == NULL)
0a00: 29 0a 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b )..return(NULL);
0a10: 0a 20 20 20 20 72 65 74 75 72 6e 28 64 68 29 3b . return(dh);
0a20: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 0a 2f 2a 0a 20 .}.#endif.../*.
0a30: 2a 20 57 65 20 6c 6f 73 65 20 74 68 65 20 74 63 * We lose the tc
0a40: 6c 20 70 61 73 73 77 6f 72 64 20 63 61 6c 6c 62 l password callb
0a50: 61 63 6b 20 77 68 65 6e 20 77 65 20 75 73 65 20 ack when we use
0a60: 74 68 65 20 52 53 41 20 42 53 41 46 45 20 53 53 the RSA BSAFE SS
0a70: 4c 2d 43 20 31 2e 31 2e 32 0a 20 2a 20 6c 69 62 L-C 1.1.2. * lib
0a80: 72 61 72 69 65 73 20 69 6e 73 74 65 61 64 20 6f raries instead o
0a90: 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 4f 70 f the current Op
0aa0: 65 6e 53 53 4c 20 6c 69 62 72 61 72 69 65 73 2e enSSL libraries.
0ab0: 0a 20 2a 2f 0a 0a 23 69 66 64 65 66 20 42 53 41 . */..#ifdef BSA
0ac0: 46 45 0a 23 64 65 66 69 6e 65 20 50 52 45 5f 4f FE.#define PRE_O
0ad0: 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 20 31 0a 23 PENSSL_0_9_4 1.#
0ae0: 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 50 65 72 endif../*. * Per
0af0: 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 34 20 43 OpenSSL 0.9.4 C
0b00: 6f 6d 70 61 74 0a 20 2a 2f 0a 0a 23 69 66 6e 64 ompat. */..#ifnd
0b10: 65 66 20 53 54 41 43 4b 5f 4f 46 0a 23 64 65 66 ef STACK_OF.#def
0b20: 69 6e 65 20 53 54 41 43 4b 5f 4f 46 28 78 29 09 ine STACK_OF(x).
0b30: 09 09 53 54 41 43 4b 0a 23 64 65 66 69 6e 65 20 ..STACK.#define
0b40: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 sk_SSL_CIPHER_nu
0b50: 6d 28 73 6b 29 09 09 73 6b 5f 6e 75 6d 28 28 73 m(sk)..sk_num((s
0b60: 6b 29 29 0a 23 64 65 66 69 6e 65 20 73 6b 5f 53 k)).#define sk_S
0b70: 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 SL_CIPHER_value(
0b80: 20 73 6b 2c 20 69 6e 64 65 78 29 09 28 53 53 4c sk, index).(SSL
0b90: 5f 43 49 50 48 45 52 2a 29 73 6b 5f 76 61 6c 75 _CIPHER*)sk_valu
0ba0: 65 28 28 73 6b 29 2c 20 28 69 6e 64 65 78 29 29 e((sk), (index))
0bb0: 0a 23 65 6e 64 69 66 0a 0a 0c 0a 2f 2a 0a 20 2a .#endif..../*. *
0bc0: 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 49 6e 66 6f 43 61 ---. *. * InfoCa
0c10: 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 llback --. *. *.
0c20: 6d 6f 6e 69 74 6f 72 73 20 53 53 4c 20 63 6f 6e monitors SSL con
0c30: 6e 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 0a nection process.
0c40: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
0c50: 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 *.None. *. * Sid
0c60: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 e effects:. *.Ca
0c70: 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 28 69 66 lls callback (if
0c80: 20 64 65 66 69 6e 65 64 29 0a 20 2a 2d 2d 2d 2d defined). *----
0c90: 2d 2d 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 0a ---------------.
0cd0: 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a */.static void.
0ce0: 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 53 53 4c InfoCallback(SSL
0cf0: 20 2a 73 73 6c 2c 20 69 6e 74 20 77 68 65 72 65 *ssl, int where
0d00: 2c 20 69 6e 74 20 72 65 74 29 0a 7b 0a 20 20 20 , int ret).{.
0d10: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
0d20: 20 3d 20 28 53 74 61 74 65 2a 29 53 53 4c 5f 67 = (State*)SSL_g
0d30: 65 74 5f 61 70 70 5f 64 61 74 61 28 73 73 6c 29 et_app_data(ssl)
0d40: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 ;. Tcl_Obj *c
0d50: 6d 64 50 74 72 3b 0a 20 20 20 20 63 68 61 72 20 mdPtr;. char
0d60: 2a 6d 61 6a 6f 72 3b 20 63 68 61 72 20 2a 6d 69 *major; char *mi
0d70: 6e 6f 72 3b 0a 20 20 20 20 69 6e 74 20 77 3b 0a nor;. int w;.
0d80: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
0d90: 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 r->callback == (
0da0: 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 0a 09 Tcl_Obj*)NULL)..
0db0: 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 63 6d 64 return;.. cmd
0dc0: 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 Ptr = Tcl_Duplic
0dd0: 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d ateObj(statePtr-
0de0: 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 >callback);..#if
0df0: 20 30 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 0. if (where
0e00: 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 & SSL_CB_ALERT)
0e10: 20 7b 0a 09 73 65 76 20 3d 20 53 53 4c 5f 61 6c {..sev = SSL_al
0e20: 65 72 74 5f 74 79 70 65 5f 73 74 72 69 6e 67 5f ert_type_string_
0e30: 6c 6f 6e 67 28 72 65 74 29 3b 0a 09 69 66 20 28 long(ret);..if (
0e40: 73 74 72 63 6d 70 28 20 73 65 76 2c 20 22 66 61 strcmp( sev, "fa
0e50: 74 61 6c 22 29 3d 3d 30 29 20 7b 09 2f 2a 20 4d tal")==0) {./* M
0e60: 61 70 20 74 6f 20 65 72 72 6f 72 20 2a 2f 0a 09 ap to error */..
0e70: 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 Tls_Error(st
0e80: 61 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 52 4f atePtr, SSL_ERRO
0e90: 52 28 73 73 6c 2c 20 30 29 29 3b 0a 09 20 20 20 R(ssl, 0));..
0ea0: 20 72 65 74 75 72 6e 3b 0a 09 7d 0a 20 20 20 20 return;..}.
0eb0: 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 }.#endif. if
0ec0: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
0ed0: 48 41 4e 44 53 48 41 4b 45 5f 53 54 41 52 54 29 HANDSHAKE_START)
0ee0: 20 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e {..major = "han
0ef0: 64 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 dshake";..minor
0f00: 3d 20 22 73 74 61 72 74 22 3b 0a 20 20 20 20 7d = "start";. }
0f10: 20 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 else if (where
0f20: 26 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 & SSL_CB_HANDSHA
0f30: 4b 45 5f 44 4f 4e 45 29 20 7b 0a 09 6d 61 6a 6f KE_DONE) {..majo
0f40: 72 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b r = "handshake";
0f50: 0a 09 6d 69 6e 6f 72 20 3d 20 22 64 6f 6e 65 22 ..minor = "done"
0f60: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
0f70: 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f if (where & SSL_
0f80: 43 42 5f 41 4c 45 52 54 29 09 09 6d 61 6a 6f 72 CB_ALERT)..major
0f90: 20 3d 20 22 61 6c 65 72 74 22 3b 0a 09 65 6c 73 = "alert";..els
0fa0: 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 e if (where & SS
0fb0: 4c 5f 53 54 5f 43 4f 4e 4e 45 43 54 29 09 6d 61 L_ST_CONNECT).ma
0fc0: 6a 6f 72 20 3d 20 22 63 6f 6e 6e 65 63 74 22 3b jor = "connect";
0fd0: 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 ..else if (where
0fe0: 20 26 20 53 53 4c 5f 53 54 5f 41 43 43 45 50 54 & SSL_ST_ACCEPT
0ff0: 29 09 09 6d 61 6a 6f 72 20 3d 20 22 61 63 63 65 )..major = "acce
1000: 70 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 6d pt";..else.....m
1010: 61 6a 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 ajor = "unknown"
1020: 3b 0a 0a 09 69 66 20 28 77 68 65 72 65 20 26 20 ;...if (where &
1030: 53 53 4c 5f 43 42 5f 52 45 41 44 29 09 09 6d 69 SSL_CB_READ)..mi
1040: 6e 6f 72 20 3d 20 22 72 65 61 64 22 3b 0a 09 65 nor = "read";..e
1050: 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 lse if (where &
1060: 53 53 4c 5f 43 42 5f 57 52 49 54 45 29 09 09 6d SSL_CB_WRITE)..m
1070: 69 6e 6f 72 20 3d 20 22 77 72 69 74 65 22 3b 0a inor = "write";.
1080: 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 .else if (where
1090: 26 20 53 53 4c 5f 43 42 5f 4c 4f 4f 50 29 09 09 & SSL_CB_LOOP)..
10a0: 6d 69 6e 6f 72 20 3d 20 22 6c 6f 6f 70 22 3b 0a minor = "loop";.
10b0: 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 .else if (where
10c0: 26 20 53 53 4c 5f 43 42 5f 45 58 49 54 29 09 09 & SSL_CB_EXIT)..
10d0: 6d 69 6e 6f 72 20 3d 20 22 65 78 69 74 22 3b 0a minor = "exit";.
10e0: 09 65 6c 73 65 09 09 09 09 09 6d 69 6e 6f 72 20 .else.....minor
10f0: 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 20 20 20 = "unknown";.
1100: 20 7d 0a 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 }... Tcl_Lis
1110: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
1120: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
1130: 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 erp, cmdPtr, ..
1140: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1150: 4f 62 6a 28 20 22 69 6e 66 6f 22 2c 20 2d 31 29 Obj( "info", -1)
1160: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1170: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1180: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1190: 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 rp, cmdPtr, ..
11a0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
11b0: 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e bj( Tcl_GetChann
11c0: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
11d0: 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a >self), -1) );..
11e0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
11f0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1200: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1210: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1220: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d _NewStringObj( m
1230: 61 6a 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 ajor, -1) );..
1240: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1250: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
1260: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1270: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
1280: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d 69 6e ewStringObj( min
1290: 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 or, -1) );..
12a0: 69 66 20 28 77 68 65 72 65 20 26 20 28 53 53 4c if (where & (SSL
12b0: 5f 43 42 5f 4c 4f 4f 50 7c 53 53 4c 5f 43 42 5f _CB_LOOP|SSL_CB_
12c0: 45 58 49 54 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 EXIT)) {..Tcl_Li
12d0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
12e0: 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e nt( statePtr->in
12f0: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 terp, cmdPtr,..
1300: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1310: 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 Obj( SSL_state_s
1320: 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c tring_long(ssl),
1330: 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c -1) );. } el
1340: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
1350: 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a 09 SL_CB_ALERT) {..
1360: 63 68 61 72 20 2a 63 70 20 3d 20 53 53 4c 5f 61 char *cp = SSL_a
1370: 6c 65 72 74 5f 64 65 73 63 5f 73 74 72 69 6e 67 lert_desc_string
1380: 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a 0a 09 54 63 _long(ret);...Tc
1390: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
13a0: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
13b0: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
13c0: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 ,.. Tcl_NewSt
13d0: 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 ringObj( cp, -1)
13e0: 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b );. } else {
13f0: 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ..Tcl_ListObjApp
1400: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
1410: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1420: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
1430: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c ewStringObj( SSL
1440: 5f 73 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f _state_string_lo
1450: 6e 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a ng(ssl), -1) );.
1460: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 50 72 }. Tcl_Pr
1470: 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 eserve( (ClientD
1480: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 ata) statePtr->i
1490: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f nterp);. Tcl_
14a0: 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e Preserve( (Clien
14b0: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 tData) statePtr)
14c0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
14d0: 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 efCount( cmdPtr)
14e0: 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 54 63 6c ;. (void) Tcl
14f0: 5f 47 6c 6f 62 61 6c 45 76 61 6c 4f 62 6a 28 73 _GlobalEvalObj(s
1500: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1510: 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 54 63 cmdPtr);. Tc
1520: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 20 l_DecrRefCount(
1530: 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 cmdPtr);.. Tc
1540: 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 l_Release( (Clie
1550: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
1560: 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 );. Tcl_Relea
1570: 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 se( (ClientData)
1580: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1590: 70 29 3b 0a 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d p);..}.../*. *--
15a0: 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 56 65 72 69 66 79 43 61 -. *. * VerifyCa
15f0: 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 llback --. *. *.
1600: 6d 6f 6e 69 74 6f 72 73 20 53 53 4c 20 63 65 72 monitors SSL cer
1610: 69 66 69 63 61 74 65 20 76 61 6c 69 64 61 74 69 ificate validati
1620: 6f 6e 20 70 72 6f 63 65 73 73 0a 20 2a 09 54 68 on process. *.Th
1630: 69 73 20 69 73 20 63 61 6c 6c 65 64 20 77 68 65 is is called whe
1640: 6e 65 76 65 72 20 61 20 63 65 72 74 69 66 69 63 never a certific
1650: 61 74 65 20 69 73 20 69 6e 73 70 65 63 74 65 64 ate is inspected
1660: 0a 20 2a 09 20 6f 72 20 64 65 63 69 64 65 64 20 . *. or decided
1670: 69 6e 76 61 6c 69 64 0a 20 2a 0a 20 2a 20 52 65 invalid. *. * Re
1680: 73 75 6c 74 73 3a 0a 20 2a 09 6f 6b 20 2d 20 6c sults:. *.ok - l
1690: 65 74 20 53 53 4c 20 68 61 6e 64 6c 65 20 69 74 et SSL handle it
16a0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
16b0: 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 cts:. *.The err
16c0: 66 69 65 6c 64 20 6f 66 20 74 68 65 20 63 75 72 field of the cur
16d0: 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 69 76 65 rently operative
16e0: 20 53 74 61 74 65 20 69 73 20 73 65 74 0a 20 2a State is set. *
16f0: 09 20 20 74 6f 20 61 20 73 74 72 69 6e 67 20 64 . to a string d
1700: 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 53 53 escribing the SS
1710: 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 L negotiation fa
1720: 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d ilure reason. *-
1730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
1780: 74 0a 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b t.VerifyCallback
1790: 28 69 6e 74 20 6f 6b 2c 20 58 35 30 39 5f 53 54 (int ok, X509_ST
17a0: 4f 52 45 5f 43 54 58 20 2a 63 74 78 29 0a 7b 0a ORE_CTX *ctx).{.
17b0: 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 28 SSL *ssl = (
17c0: 53 53 4c 2a 29 58 35 30 39 5f 53 54 4f 52 45 5f SSL*)X509_STORE_
17d0: 43 54 58 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 CTX_get_app_data
17e0: 28 63 74 78 29 3b 0a 20 20 20 20 58 35 30 39 20 (ctx);. X509
17f0: 2a 63 65 72 74 20 3d 20 58 35 30 39 5f 53 54 4f *cert = X509_STO
1800: 52 45 5f 43 54 58 5f 67 65 74 5f 63 75 72 72 65 RE_CTX_get_curre
1810: 6e 74 5f 63 65 72 74 28 63 74 78 29 3b 0a 20 20 nt_cert(ctx);.
1820: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 State *statePt
1830: 72 20 3d 20 28 53 74 61 74 65 2a 29 53 53 4c 5f r = (State*)SSL_
1840: 67 65 74 5f 61 70 70 5f 64 61 74 61 28 73 73 6c get_app_data(ssl
1850: 29 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a );. Tcl_Obj *
1860: 63 6d 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 cmdPtr;. int
1870: 64 65 70 74 68 20 3d 20 58 35 30 39 5f 53 54 4f depth = X509_STO
1880: 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 RE_CTX_get_error
1890: 5f 64 65 70 74 68 28 63 74 78 29 3b 0a 20 20 20 _depth(ctx);.
18a0: 20 69 6e 74 20 65 72 72 20 3d 20 58 35 30 39 5f int err = X509_
18b0: 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 STORE_CTX_get_er
18c0: 72 6f 72 28 63 74 78 29 3b 0a 20 20 20 20 63 68 ror(ctx);. ch
18d0: 61 72 20 2a 65 72 72 53 74 72 3b 0a 0a 20 20 20 ar *errStr;..
18e0: 20 64 70 72 69 6e 74 66 28 73 74 64 65 72 72 2c dprintf(stderr,
18f0: 20 22 56 65 72 69 66 79 3a 20 25 64 5c 6e 22 2c "Verify: %d\n",
1900: 20 6f 6b 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 ok);.. if (!
1910: 6f 6b 29 0a 09 65 72 72 53 74 72 20 3d 20 28 63 ok)..errStr = (c
1920: 68 61 72 2a 29 58 35 30 39 5f 76 65 72 69 66 79 har*)X509_verify
1930: 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 _cert_error_stri
1940: 6e 67 28 65 72 72 29 3b 0a 20 20 20 20 65 6c 73 ng(err);. els
1950: 65 0a 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 e..errStr = (cha
1960: 72 20 2a 29 30 3b 0a 0a 20 20 20 20 69 66 20 28 r *)0;.. if (
1970: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
1980: 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 ck == (Tcl_Obj*)
1990: 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 73 74 61 NULL) {..if (sta
19a0: 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 20 26 20 tePtr->vflags &
19b0: 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c 5f SSL_VERIFY_FAIL_
19c0: 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 29 IF_NO_PEER_CERT)
19d0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 6f 6b 3b .. return ok;
19e0: 0a 09 65 6c 73 65 0a 09 20 20 20 20 72 65 74 75 ..else.. retu
19f0: 72 6e 20 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 rn 1;. }.
1a00: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
1a10: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
1a20: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a tr->callback);..
1a30: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1a40: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1a50: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1a60: 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 cmdPtr, .. Tc
1a70: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
1a80: 22 76 65 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a "verify", -1));.
1a90: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1aa0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1ab0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1ac0: 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 cmdPtr, .. T
1ad0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1ae0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
1af0: 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ame(statePtr->se
1b00: 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 lf), -1) );..
1b10: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1b20: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1b30: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1b40: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1b50: 77 49 6e 74 4f 62 6a 28 20 64 65 70 74 68 29 20 wIntObj( depth)
1b60: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1b70: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1b80: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1b90: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
1ba0: 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 Tls_NewX509Obj(
1bb0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1bc0: 70 2c 20 63 65 72 74 29 20 29 3b 0a 0a 20 20 20 p, cert) );..
1bd0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1be0: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1bf0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1c00: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1c10: 77 49 6e 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a wIntObj( ok) );.
1c20: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1c30: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1c40: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1c50: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
1c60: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
1c70: 65 72 72 53 74 72 20 3f 20 65 72 72 53 74 72 20 errStr ? errStr
1c80: 3a 20 22 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 : "", -1) );..
1c90: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 Tcl_Preserve(
1ca0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
1cb0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
1cc0: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
1cd0: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 ( (ClientData) s
1ce0: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 tatePtr);.. T
1cf0: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
1d00: 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 cmdPtr);. if
1d10: 20 28 54 63 6c 5f 47 6c 6f 62 61 6c 45 76 61 6c (Tcl_GlobalEval
1d20: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 69 6e Obj(statePtr->in
1d30: 74 65 72 70 2c 20 63 6d 64 50 74 72 29 20 21 3d terp, cmdPtr) !=
1d40: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 69 TCL_OK) {../* i
1d50: 74 20 67 6f 74 20 61 6e 20 65 72 72 6f 72 20 2d t got an error -
1d60: 20 72 65 6a 65 63 74 20 74 68 65 20 63 65 72 74 reject the cert
1d70: 69 66 69 63 61 74 65 20 2a 2f 0a 09 54 63 6c 5f ificate */..Tcl_
1d80: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 BackgroundError(
1d90: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1da0: 70 29 3b 0a 09 6f 6b 20 3d 20 30 3b 0a 20 20 20 p);..ok = 0;.
1db0: 20 7d 20 65 6c 73 65 20 7b 0a 09 69 66 20 28 54 } else {..if (T
1dc0: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
1dd0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
1de0: 72 70 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 rp,... Tcl_Ge
1df0: 74 4f 62 6a 52 65 73 75 6c 74 28 20 73 74 61 74 tObjResult( stat
1e00: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 2c 20 26 ePtr->interp), &
1e10: 6f 6b 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ok) != TCL_OK) {
1e20: 0a 09 20 20 20 20 54 63 6c 5f 42 61 63 6b 67 72 .. Tcl_Backgr
1e30: 6f 75 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 oundError( state
1e40: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 20 Ptr->interp);..
1e50: 20 20 20 6f 6b 20 3d 20 30 3b 0a 09 7d 0a 20 20 ok = 0;..}.
1e60: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 }. Tcl_Decr
1e70: 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 RefCount( cmdPtr
1e80: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 );.. Tcl_Rele
1e90: 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 ase( (ClientData
1ea0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
1eb0: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 Tcl_Release( (C
1ec0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1ed0: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 Ptr->interp);..
1ee0: 20 20 20 72 65 74 75 72 6e 28 6f 6b 29 3b 09 2f return(ok);./
1ef0: 2a 20 6c 65 61 76 65 20 74 68 65 20 64 69 73 70 * leave the disp
1f00: 6f 73 69 74 69 6f 6e 20 61 73 20 53 53 4c 20 73 osition as SSL s
1f10: 65 74 20 69 74 20 2a 2f 0a 7d 0a 0c 0a 2f 2a 0a et it */.}.../*.
1f20: 20 2a 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
1f70: 45 72 72 6f 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 Error --. *. *.C
1f80: 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 77 69 alls callback wi
1f90: 74 68 20 24 66 64 20 61 6e 64 20 24 6d 73 67 20 th $fd and $msg
1fa0: 2d 20 73 6f 20 74 68 65 20 63 61 6c 6c 62 61 63 - so the callbac
1fb0: 6b 20 63 61 6e 20 64 65 63 69 64 65 0a 20 2a 09 k can decide. *.
1fc0: 77 68 61 74 20 74 6f 20 64 6f 20 77 69 74 68 20 what to do with
1fd0: 65 72 72 6f 72 73 2e 0a 20 2a 0a 20 2a 20 52 65 errors.. *. * Re
1fe0: 73 75 6c 74 73 3a 0a 20 2a 09 6f 6b 20 2d 20 6c sults:. *.ok - l
1ff0: 65 74 20 53 53 4c 20 68 61 6e 64 6c 65 20 69 74 et SSL handle it
2000: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
2010: 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 cts:. *.The err
2020: 66 69 65 6c 64 20 6f 66 20 74 68 65 20 63 75 72 field of the cur
2030: 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 69 76 65 rently operative
2040: 20 53 74 61 74 65 20 69 73 20 73 65 74 0a 20 2a State is set. *
2050: 09 20 20 74 6f 20 61 20 73 74 72 69 6e 67 20 64 . to a string d
2060: 65 73 63 72 69 62 69 6e 67 20 74 68 65 20 53 53 escribing the SS
2070: 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 L negotiation fa
2080: 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d ilure reason. *-
2090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f --. */.void.Tls_
20e0: 45 72 72 6f 72 28 53 74 61 74 65 20 2a 73 74 61 Error(State *sta
20f0: 74 65 50 74 72 2c 20 63 68 61 72 20 2a 6d 73 67 tePtr, char *msg
2100: 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ).{. Tcl_Obj
2110: 2a 63 6d 64 50 74 72 3b 0a 0a 20 20 20 20 69 66 *cmdPtr;.. if
2120: 20 28 6d 73 67 20 26 26 20 2a 6d 73 67 29 20 7b (msg && *msg) {
2130: 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f ..Tcl_SetErrorCo
2140: 64 65 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e de( statePtr->in
2150: 74 65 72 70 2c 20 22 53 53 4c 22 2c 20 6d 73 67 terp, "SSL", msg
2160: 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b , (char *)NULL);
2170: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6d . } else {..m
2180: 73 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 sg = Tcl_GetStri
2190: 6e 67 46 72 6f 6d 4f 62 6a 28 54 63 6c 5f 47 65 ngFromObj(Tcl_Ge
21a0: 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 74 65 tObjResult(state
21b0: 50 74 72 2d 3e 69 6e 74 65 72 70 29 2c 20 4e 55 Ptr->interp), NU
21c0: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 LL);. }. s
21d0: 74 61 74 65 50 74 72 2d 3e 65 72 72 20 3d 20 6d tatePtr->err = m
21e0: 73 67 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 sg;.. if (sta
21f0: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 tePtr->callback
2200: 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c == (Tcl_Obj*)NUL
2210: 4c 29 20 7b 0a 09 63 68 61 72 20 62 75 66 5b 42 L) {..char buf[B
2220: 55 46 53 49 5a 5d 3b 0a 09 73 70 72 69 6e 74 66 UFSIZ];..sprintf
2230: 28 62 75 66 2c 20 22 53 53 4c 20 63 68 61 6e 6e (buf, "SSL chann
2240: 65 6c 20 5c 22 25 73 5c 22 3a 20 65 72 72 6f 72 el \"%s\": error
2250: 3a 20 25 73 22 2c 0a 09 20 20 20 20 54 63 6c 5f : %s",.. Tcl_
2260: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 GetChannelName(s
2270: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 tatePtr->self),
2280: 6d 73 67 29 3b 0a 09 54 63 6c 5f 53 65 74 52 65 msg);..Tcl_SetRe
2290: 73 75 6c 74 28 20 73 74 61 74 65 50 74 72 2d 3e sult( statePtr->
22a0: 69 6e 74 65 72 70 2c 20 62 75 66 2c 20 54 43 4c interp, buf, TCL
22b0: 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 09 54 63 6c _VOLATILE);..Tcl
22c0: 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 _BackgroundError
22d0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
22e0: 72 70 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 rp);..return;.
22f0: 20 20 7d 0a 20 20 20 20 63 6d 64 50 74 72 20 3d }. cmdPtr =
2300: 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 Tcl_DuplicateOb
2310: 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c j(statePtr->call
2320: 62 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63 6c 5f back);.. Tcl_
2330: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
2340: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e ment( statePtr->
2350: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 interp, cmdPtr,
2360: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
2370: 69 6e 67 4f 62 6a 28 20 22 65 72 72 6f 72 22 2c ingObj( "error",
2380: 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1));.. Tcl_
2390: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
23a0: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e ment( statePtr->
23b0: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 interp, cmdPtr,
23c0: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
23d0: 69 6e 67 4f 62 6a 28 20 54 63 6c 5f 47 65 74 43 ingObj( Tcl_GetC
23e0: 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 hannelName(state
23f0: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 20 Ptr->self), -1)
2400: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
2410: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
2420: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
2430: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
2440: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
2450: 6a 28 20 6d 73 67 2c 20 2d 31 29 20 29 3b 0a 0a j( msg, -1) );..
2460: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
2470: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 ( (ClientData) s
2480: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
2490: 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 ;. Tcl_Preser
24a0: 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 ve( (ClientData)
24b0: 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 statePtr);..
24c0: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
24d0: 74 28 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 t( cmdPtr);.
24e0: 69 66 20 28 54 63 6c 5f 47 6c 6f 62 61 6c 45 76 if (Tcl_GlobalEv
24f0: 61 6c 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e alObj(statePtr->
2500: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 29 20 interp, cmdPtr)
2510: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 63 != TCL_OK) {..Tc
2520: 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f l_BackgroundErro
2530: 72 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 r( statePtr->int
2540: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 erp);. }.
2550: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
2560: 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 ( cmdPtr);..
2570: 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c Tcl_Release( (Cl
2580: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
2590: 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c tr);. Tcl_Rel
25a0: 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 ease( (ClientDat
25b0: 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 a) statePtr->int
25c0: 65 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d erp);.}.../*. *-
25d0: 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 50 61 73 73 77 6f 72 --. *. * Passwor
2620: 64 43 61 6c 6c 62 61 63 6b 20 2d 2d 20 0a 20 2a dCallback -- . *
2630: 0a 20 2a 09 43 61 6c 6c 65 64 20 77 68 65 6e 20 . *.Called when
2640: 61 20 70 61 73 73 77 6f 72 64 20 69 73 20 6e 65 a password is ne
2650: 65 64 65 64 20 74 6f 20 75 6e 70 61 63 6b 20 52 eded to unpack R
2660: 53 41 20 61 6e 64 20 50 45 4d 20 6b 65 79 73 0a SA and PEM keys.
2670: 20 2a 09 45 76 61 6c 73 20 74 68 65 20 74 63 6c *.Evals the tcl
2680: 20 70 72 6f 63 3a 20 20 74 6c 73 3a 3a 70 61 73 proc: tls::pas
2690: 73 77 6f 72 64 20 61 6e 64 20 72 65 74 75 72 6e sword and return
26a0: 73 20 74 68 65 20 72 65 73 75 6c 74 20 61 73 0a s the result as.
26b0: 20 2a 09 74 68 65 20 70 61 73 73 77 6f 72 64 0a *.the password.
26c0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
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 0a 20 2a 2f 0a 23 69 66 64 65 66 -----. */.#ifdef
2710: 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 PRE_OPENSSL_0_9
2720: 5f 34 0a 2f 2a 0a 20 2a 20 4e 6f 20 77 61 79 20 _4./*. * No way
2730: 74 6f 20 68 61 6e 64 6c 65 20 75 73 65 72 2d 64 to handle user-d
2740: 61 74 61 20 74 68 65 72 65 66 6f 72 65 20 6e 6f ata therefore no
2750: 20 77 61 79 20 77 69 74 68 6f 75 74 20 61 20 67 way without a g
2760: 6c 6f 62 61 6c 0a 20 2a 20 76 61 72 69 61 62 6c lobal. * variabl
2770: 65 20 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 e to access the
2780: 54 63 6c 20 69 6e 74 65 72 70 72 65 74 65 72 2e Tcl interpreter.
2790: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 .*/.static int.P
27a0: 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 28 asswordCallback(
27b0: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 73 char *buf, int s
27c0: 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 66 79 29 ize, int verify)
27d0: 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 2d 31 .{. return -1
27e0: 3b 0a 7d 0a 23 65 6c 73 65 0a 73 74 61 74 69 63 ;.}.#else.static
27f0: 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 43 61 6c int.PasswordCal
2800: 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 75 66 2c lback(char *buf,
2810: 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e 74 20 76 int size, int v
2820: 65 72 69 66 79 2c 20 76 6f 69 64 20 2a 75 64 61 erify, void *uda
2830: 74 61 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 49 6e ta).{. Tcl_In
2840: 74 65 72 70 20 2a 69 6e 74 65 72 70 20 3d 20 28 terp *interp = (
2850: 54 63 6c 5f 49 6e 74 65 72 70 2a 29 75 64 61 74 Tcl_Interp*)udat
2860: 61 3b 0a 0a 20 20 20 20 69 66 20 28 54 63 6c 5f a;.. if (Tcl_
2870: 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 22 74 6c Eval(interp, "tl
2880: 73 3a 3a 70 61 73 73 77 6f 72 64 22 29 20 3d 3d s::password") ==
2890: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 63 68 61 72 TCL_OK) {..char
28a0: 20 2a 72 65 74 20 3d 20 54 63 6c 5f 47 65 74 53 *ret = Tcl_GetS
28b0: 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 tringResult(inte
28c0: 72 70 29 3b 0a 20 20 20 20 20 20 20 20 73 74 72 rp);. str
28d0: 6e 63 70 79 28 62 75 66 2c 20 72 65 74 2c 20 73 ncpy(buf, ret, s
28e0: 69 7a 65 29 3b 0a 09 72 65 74 75 72 6e 20 73 74 ize);..return st
28f0: 72 6c 65 6e 28 72 65 74 29 3b 0a 20 20 20 20 7d rlen(ret);. }
2900: 20 65 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e 20 else {..return
2910: 2d 31 3b 0a 20 20 20 20 7d 0a 7d 0a 23 65 6e 64 -1;. }.}.#end
2920: 69 66 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d if.../*. *------
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 0a 20 2a -------------. *
2970: 0a 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d . * CiphersObjCm
2980: 64 20 2d 2d 20 6c 69 73 74 20 61 76 61 69 6c 61 d -- list availa
2990: 62 6c 65 20 63 69 70 68 65 72 73 0a 20 2a 0a 20 ble ciphers. *.
29a0: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
29b0: 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 is invoked to p
29c0: 72 6f 63 65 73 73 20 74 68 65 20 22 74 6c 73 3a rocess the "tls:
29d0: 3a 63 69 70 68 65 72 73 22 20 63 6f 6d 6d 61 6e :ciphers" comman
29e0: 64 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 76 61 d. *.to list ava
29f0: 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 2c 20 ilable ciphers,
2a00: 62 61 73 65 64 20 75 70 6f 6e 20 70 72 6f 74 6f based upon proto
2a10: 63 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a 20 2a col selected.. *
2a20: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
2a30: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 A standard Tcl r
2a40: 65 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 esult list.. *.
2a50: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
2a60: 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 61 6e *.constructs an
2a70: 64 20 64 65 73 74 72 6f 79 73 20 53 53 4c 20 63 d destroys SSL c
2a80: 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a ontext (CTX). *.
2a90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
2ae0: 20 69 6e 74 0a 43 69 70 68 65 72 73 4f 62 6a 43 int.CiphersObjC
2af0: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 md(clientData, i
2b00: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
2b10: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 v). ClientDat
2b20: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a a clientData;./*
2b30: 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 Not used. */.
2b40: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
2b50: 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 terp;. int ob
2b60: 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 jc;. Tcl_Obj.
2b70: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b *CONST objv[];.{
2b80: 0a 20 20 20 20 73 74 61 74 69 63 20 63 68 61 72 . static char
2b90: 20 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 *protocols[] =
2ba0: 7b 0a 09 22 73 73 6c 32 22 2c 0a 09 22 73 73 6c {.."ssl2",.."ssl
2bb0: 33 22 2c 0a 09 22 74 6c 73 31 22 2c 0a 09 4e 55 3",.."tls1",..NU
2bc0: 4c 4c 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 6e LL. };. en
2bd0: 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 um protocol {..T
2be0: 4c 53 5f 53 53 4c 32 2c 0a 09 54 4c 53 5f 53 53 LS_SSL2,..TLS_SS
2bf0: 4c 33 2c 0a 09 54 4c 53 5f 54 4c 53 31 2c 0a 09 L3,..TLS_TLS1,..
2c00: 54 4c 53 5f 4e 4f 4e 45 0a 20 20 20 20 7d 3b 0a TLS_NONE. };.
2c10: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a Tcl_Obj *obj
2c20: 50 74 72 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 Ptr;. SSL_CTX
2c30: 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *ctx = NULL;.
2c40: 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e 55 4c SSL *ssl = NUL
2c50: 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f 46 28 L;. STACK_OF(
2c60: 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 6b 3b SSL_CIPHER) *sk;
2c70: 0a 20 20 20 20 63 68 61 72 20 2a 63 70 2c 20 62 . char *cp, b
2c80: 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 20 20 uf[BUFSIZ];.
2c90: 69 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 62 6f int index, verbo
2ca0: 73 65 20 3d 20 30 3b 0a 0a 20 20 20 20 69 66 20 se = 0;.. if
2cb0: 28 6f 62 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 6a (objc < 2 || obj
2cc0: 63 20 3e 20 33 29 20 7b 0a 09 54 63 6c 5f 57 72 c > 3) {..Tcl_Wr
2cd0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
2ce0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 70 72 6f p, 1, objv, "pro
2cf0: 74 6f 63 6f 6c 20 3f 76 65 72 62 6f 73 65 3f 22 tocol ?verbose?"
2d00: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 );. retur
2d10: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
2d20: 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 }. if (Tcl_G
2d30: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 20 etIndexFromObj(
2d40: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
2d50: 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f protocols, "pro
2d60: 74 6f 63 6f 6c 22 2c 20 30 2c 0a 09 26 69 6e 64 tocol", 0,..&ind
2d70: 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ex) != TCL_OK) {
2d80: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
2d90: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 OR;. }. if
2da0: 20 28 6f 62 6a 63 20 3e 20 32 20 26 26 20 54 63 (objc > 2 && Tc
2db0: 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d l_GetBooleanFrom
2dc0: 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a Obj( interp, obj
2dd0: 76 5b 32 5d 2c 0a 09 26 76 65 72 62 6f 73 65 29 v[2],..&verbose)
2de0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 != TCL_OK) {..r
2df0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2e00: 0a 20 20 20 20 7d 0a 20 20 20 20 73 77 69 74 63 . }. switc
2e10: 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f h ((enum protoco
2e20: 6c 29 69 6e 64 65 78 29 20 7b 0a 20 20 20 20 63 l)index) {. c
2e30: 61 73 65 20 54 4c 53 5f 53 53 4c 32 3a 0a 23 69 ase TLS_SSL2:.#i
2e40: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c f defined(NO_SSL
2e50: 32 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 2)...Tcl_AppendR
2e60: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
2e70: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
2e80: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
2e90: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
2ea0: 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d R;.#else...ctx =
2eb0: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c SSL_CTX_new(SSL
2ec0: 76 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 v2_method()); br
2ed0: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 eak;.#endif.
2ee0: 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 case TLS_SSL3:.#
2ef0: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
2f00: 4c 33 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 L3)...Tcl_Append
2f10: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
2f20: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
2f30: 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a ported", NULL);.
2f40: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
2f50: 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 OR;.#else...ctx
2f60: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 = SSL_CTX_new(SS
2f70: 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 Lv3_method()); b
2f80: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 reak;.#endif.
2f90: 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a 0a case TLS_TLS1:.
2fa0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
2fb0: 4c 53 31 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e LS1)...Tcl_Appen
2fc0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
2fd0: 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 "protocol not su
2fe0: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
2ff0: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
3000: 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 ROR;.#else...ctx
3010: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 = SSL_CTX_new(T
3020: 4c 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20 LSv1_method());
3030: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 break;.#endif.
3040: 20 20 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 }. if (ctx
3050: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
3060: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3070: 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 erp, REASON(),..
3080: 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (char *) NUL
3090: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
30a0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
30b0: 20 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 63 ssl = SSL_new(c
30c0: 74 78 29 3b 0a 20 20 20 20 69 66 20 28 73 73 6c tx);. if (ssl
30d0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
30e0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
30f0: 74 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 0a terp, REASON(),.
3100: 09 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 . (char *) NU
3110: 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 LL);..SSL_CTX_fr
3120: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
3130: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3140: 7d 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 }. objPtr = T
3150: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 cl_NewListObj( 0
3160: 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 , NULL);.. if
3170: 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 (!verbose) {..f
3180: 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b or (index = 0; ;
3190: 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 index++) {..
31a0: 20 63 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c cp = (char*)SSL
31b0: 5f 67 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 _get_cipher_list
31c0: 28 20 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 ( ssl, index);..
31d0: 20 20 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 if (cp == NU
31e0: 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 LL) break;..
31f0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
3200: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
3210: 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f , objPtr,...Tcl_
3220: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 NewStringObj( cp
3230: 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 , -1) );..}.
3240: 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 } else {..sk = S
3250: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 SL_get_ciphers(s
3260: 73 6c 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 sl);...for (inde
3270: 78 20 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 x = 0; index < s
3280: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d k_SSL_CIPHER_num
3290: 28 73 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b (sk); index++) {
32a0: 0a 09 20 20 20 20 72 65 67 69 73 74 65 72 20 69 .. register i
32b0: 6e 74 20 69 3b 0a 09 20 20 20 20 53 53 4c 5f 43 nt i;.. SSL_C
32c0: 49 50 48 45 52 5f 64 65 73 63 72 69 70 74 69 6f IPHER_descriptio
32d0: 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 n( sk_SSL_CIPHER
32e0: 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 _value( sk, inde
32f0: 78 29 2c 0a 09 09 09 09 20 20 20 20 62 75 66 2c x),..... buf,
3300: 20 73 69 7a 65 6f 66 28 62 75 66 29 29 3b 0a 09 sizeof(buf));..
3310: 20 20 20 20 66 6f 72 20 28 69 20 3d 20 73 74 72 for (i = str
3320: 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b 20 69 20 len(buf) - 1; i
3330: 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 20 28 62 ; i--) {...if (b
3340: 75 66 5b 69 5d 20 3d 3d 20 27 20 27 20 7c 7c 20 uf[i] == ' ' ||
3350: 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e 27 20 7c buf[i] == '\n' |
3360: 7c 0a 09 09 20 20 20 20 62 75 66 5b 69 5d 20 3d |... buf[i] =
3370: 3d 20 27 5c 72 27 20 7c 7c 20 62 75 66 5b 69 5d = '\r' || buf[i]
3380: 20 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 09 20 20 == '\t') {...
3390: 20 20 62 75 66 5b 69 5d 20 3d 20 27 5c 30 27 3b buf[i] = '\0';
33a0: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 ...} else {...
33b0: 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 20 20 break;...}..
33c0: 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 }.. Tcl_Lis
33d0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
33e0: 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 t( interp, objPt
33f0: 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 r,...Tcl_NewStri
3400: 6e 67 4f 62 6a 28 20 62 75 66 2c 20 2d 31 29 20 ngObj( buf, -1)
3410: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 );..}. }.
3420: 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 SSL_free(ssl);.
3430: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 SSL_CTX_free(
3440: 63 74 78 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 ctx);.. Tcl_S
3450: 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 etObjResult( int
3460: 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 erp, objPtr);.
3470: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3480: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
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 0a 20 2a -------------. *
34d0: 0a 20 2a 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a . * HandshakeObj
34e0: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 Cmd --. *. *.Thi
34f0: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 s command is use
3500: 64 20 74 6f 20 76 65 72 69 66 79 20 77 68 65 74 d to verify whet
3510: 68 65 72 20 74 68 65 20 68 61 6e 64 73 68 61 6b her the handshak
3520: 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 0a 20 2a e is complete. *
3530: 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 52 .or not.. *. * R
3540: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
3550: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
3560: 2e 20 31 20 6d 65 61 6e 73 20 68 61 6e 64 73 68 . 1 means handsh
3570: 61 6b 65 20 63 6f 6d 70 6c 65 74 65 2c 20 30 20 ake complete, 0
3580: 6d 65 61 6e 73 20 70 65 6e 64 69 6e 67 2e 0a 20 means pending..
3590: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
35a0: 73 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 63 65 20 s:. *.May force
35b0: 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 SSL negotiation
35c0: 74 6f 20 74 61 6b 65 20 70 6c 61 63 65 2e 0a 20 to take place..
35d0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
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 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
3620: 74 69 63 20 69 6e 74 0a 48 61 6e 64 73 68 61 6b tic int.Handshak
3630: 65 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 eObjCmd(clientDa
3640: 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 ta, interp, objc
3650: 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 , objv). Clie
3660: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
3670: 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 a;./* Not used.
3680: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
3690: 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 p *interp;. i
36a0: 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c nt objc;. Tcl
36b0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
36c0: 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 [];.{. Tcl_Ch
36d0: 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 annel chan;../*
36e0: 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 The channel to s
36f0: 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f et a mode on. */
3700: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
3710: 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 ePtr;../* client
3720: 20 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 73 state for ssl s
3730: 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 20 69 6e 74 ocket */. int
3740: 20 72 65 74 20 3d 20 31 3b 0a 0a 20 20 20 20 69 ret = 1;.. i
3750: 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a f (objc != 2) {.
3760: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
3770: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
3780: 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 20 v, "channel");.
3790: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 return TC
37a0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
37b0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 chan = Tcl_G
37c0: 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 etChannel(interp
37d0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 , Tcl_GetStringF
37e0: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 romObj(objv[1],
37f0: 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 NULL), NULL);.
3800: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 if (chan == (T
3810: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
3820: 29 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 ) {. retu
3830: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3840: 20 20 7d 0a 23 69 66 64 65 66 20 54 43 4c 5f 43 }.#ifdef TCL_C
3850: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 HANNEL_VERSION_2
3860: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d . /*. * M
3870: 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 ake sure to oper
3880: 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f ate on the topmo
3890: 73 74 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 st channel.
38a0: 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 */. chan = Tc
38b0: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
38c0: 63 68 61 6e 29 3b 0a 23 65 6e 64 69 66 0a 20 20 chan);.#endif.
38d0: 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 if (Tcl_GetCha
38e0: 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 nnelType(chan) !
38f0: 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 = Tls_ChannelTyp
3900: 65 28 29 29 20 7b 0a 20 20 20 20 20 20 20 20 54 e()) {. T
3910: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3920: 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 interp, "bad cha
3930: 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 nnel \"", Tcl_Ge
3940: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 tChannelName(cha
3950: 6e 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 n),.
3960: 20 20 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 "\": not a T
3970: 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c LS channel", NUL
3980: 4c 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 L);. retu
3990: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
39a0: 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 }. statePtr
39b0: 20 3d 20 28 53 74 61 74 65 20 2a 29 54 63 6c 5f = (State *)Tcl_
39c0: 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e GetChannelInstan
39d0: 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 0a 20 ceData(chan);..
39e0: 20 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 if (!SSL_is_i
39f0: 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 nit_finished(sta
3a00: 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 tePtr->ssl)) {..
3a10: 69 6e 74 20 65 72 72 3b 0a 09 72 65 74 20 3d 20 int err;..ret =
3a20: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 Tls_WaitForConne
3a30: 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 ct(statePtr, &er
3a40: 72 29 3b 0a 09 69 66 20 28 72 65 74 20 3c 20 30 r);..if (ret < 0
3a50: 29 20 7b 0a 09 20 20 20 20 63 68 61 72 20 2a 65 ) {.. char *e
3a60: 72 72 53 74 72 20 3d 20 73 74 61 74 65 50 74 72 rrStr = statePtr
3a70: 2d 3e 65 72 72 3b 0a 09 20 20 20 20 54 63 6c 5f ->err;.. Tcl_
3a80: 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 ResetResult(inte
3a90: 72 70 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 rp);.. Tcl_Se
3aa0: 74 45 72 72 6e 6f 28 65 72 72 29 3b 0a 0a 09 20 tErrno(err);...
3ab0: 20 20 20 69 66 20 28 21 65 72 72 53 74 72 20 7c if (!errStr |
3ac0: 7c 20 2a 65 72 72 53 74 72 20 3d 3d 20 30 29 20 | *errStr == 0)
3ad0: 7b 0a 09 20 20 20 20 20 20 20 20 65 72 72 53 74 {.. errSt
3ae0: 72 20 3d 20 54 63 6c 5f 50 6f 73 69 78 45 72 72 r = Tcl_PosixErr
3af0: 6f 72 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 or(interp);..
3b00: 20 7d 0a 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 }... Tcl_App
3b10: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
3b20: 2c 20 22 68 61 6e 64 73 68 61 6b 65 20 66 61 69 , "handshake fai
3b30: 6c 65 64 3a 20 22 2c 20 65 72 72 53 74 72 2c 0a led: ", errStr,.
3b40: 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e .. (char *) N
3b50: 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ULL);.. retur
3b60: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
3b70: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 }. Tcl_Se
3b80: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
3b90: 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a p, Tcl_NewIntObj
3ba0: 28 72 65 74 29 29 3b 0a 20 20 20 20 72 65 74 75 (ret));. retu
3bb0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f rn TCL_OK;.}.../
3bc0: 2a 0a 20 2a 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 2d 2d 2d ----------------
3c00: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6d -------. *. * Im
3c10: 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a portObjCmd --. *
3c20: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
3c30: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f re is invoked to
3c40: 20 70 72 6f 63 65 73 73 20 74 68 65 20 22 73 73 process the "ss
3c50: 6c 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 0a 20 2a l" command. *. *
3c60: 09 54 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 .The ssl command
3c70: 20 70 75 73 68 65 73 20 53 53 4c 20 6f 76 65 72 pushes SSL over
3c80: 20 61 20 28 6e 65 77 6c 79 20 63 6f 6e 6e 65 63 a (newly connec
3c90: 74 65 64 29 20 74 63 70 20 73 6f 63 6b 65 74 0a ted) tcp socket.
3ca0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
3cb0: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
3cc0: 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 result.. *. * S
3cd0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
3ce0: 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 65 20 62 May modify the b
3cf0: 65 68 61 76 69 6f 72 20 6f 66 20 61 6e 20 49 4f ehavior of an IO
3d00: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d channel.. *. *-
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d50: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 --. */..static i
3d60: 6e 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 nt.ImportObjCmd(
3d70: 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 clientData, inte
3d80: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a rp, objc, objv).
3d90: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 ClientData c
3da0: 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f lientData;./* No
3db0: 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 t used. */. T
3dc0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
3dd0: 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b p;. int objc;
3de0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f . Tcl_Obj *CO
3df0: 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 NST objv[];.{.
3e00: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 Tcl_Channel ch
3e10: 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e an;../* The chan
3e20: 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 nel to set a mod
3e30: 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 42 49 4f e on. */. BIO
3e40: 20 2a 62 69 6f 3b 0a 20 20 20 20 53 74 61 74 65 *bio;. State
3e50: 20 2a 73 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 *statePtr;../*
3e60: 63 6c 69 65 6e 74 20 73 74 61 74 65 20 66 6f 72 client state for
3e70: 20 73 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 ssl socket */.
3e80: 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 SSL_CTX *ctx
3e90: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
3ea0: 4f 62 6a 20 2a 73 63 72 69 70 74 20 3d 20 4e 55 Obj *script = NU
3eb0: 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 69 64 78 3b LL;. int idx;
3ec0: 0a 20 20 20 20 69 6e 74 20 66 6c 61 67 73 20 3d . int flags =
3ed0: 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 20 TLS_TCL_INIT;.
3ee0: 20 20 20 69 6e 74 20 73 65 72 76 65 72 20 3d 20 int server =
3ef0: 30 3b 09 09 2f 2a 20 69 73 20 63 6f 6e 6e 65 63 0;../* is connec
3f00: 74 69 6f 6e 20 69 6e 63 6f 6d 69 6e 67 20 6f 72 tion incoming or
3f10: 20 6f 75 74 67 6f 69 6e 67 3f 20 2a 2f 0a 20 20 outgoing? */.
3f20: 20 20 63 68 61 72 20 2a 6b 65 79 20 3d 20 4e 55 char *key = NU
3f30: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 65 LL;. char *ce
3f40: 72 74 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 rt = NULL;. c
3f50: 68 61 72 20 2a 63 69 70 68 65 72 73 20 3d 20 4e har *ciphers = N
3f60: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 ULL;. char *C
3f70: 41 66 69 6c 65 20 3d 20 4e 55 4c 4c 3b 0a 20 20 Afile = NULL;.
3f80: 20 20 63 68 61 72 20 2a 43 41 64 69 72 20 3d 20 char *CAdir =
3f90: 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a NULL;. char *
3fa0: 6d 6f 64 65 6c 20 3d 20 4e 55 4c 4c 3b 0a 23 69 model = NULL;.#i
3fb0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c f defined(NO_SSL
3fc0: 32 29 0a 20 20 20 20 69 6e 74 20 73 73 6c 32 20 2). int ssl2
3fd0: 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 20 69 = 0;.#else. i
3fe0: 6e 74 20 73 73 6c 32 20 3d 20 31 3b 0a 23 65 6e nt ssl2 = 1;.#en
3ff0: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 dif.#if defined(
4000: 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 6e 74 NO_SSL3). int
4010: 20 73 73 6c 33 20 3d 20 30 3b 0a 23 65 6c 73 65 ssl3 = 0;.#else
4020: 0a 20 20 20 20 69 6e 74 20 73 73 6c 33 20 3d 20 . int ssl3 =
4030: 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 1;.#endif.#if de
4040: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 26 fined(NO_SSL2) &
4050: 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c & defined(NO_SSL
4060: 33 29 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 20 3). int tls1
4070: 3d 20 31 3b 0a 23 65 6c 73 65 0a 20 20 20 20 69 = 1;.#else. i
4080: 6e 74 20 74 6c 73 31 20 3d 20 30 3b 0a 23 65 6e nt tls1 = 0;.#en
4090: 64 69 66 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 dif. int prot
40a0: 6f 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 76 o = 0;. int v
40b0: 65 72 69 66 79 20 3d 20 30 2c 20 72 65 71 75 69 erify = 0, requi
40c0: 72 65 20 3d 20 30 2c 20 72 65 71 75 65 73 74 20 re = 0, request
40d0: 3d 20 31 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 = 1;.. if (ob
40e0: 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f 57 jc < 2) {..Tcl_W
40f0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
4100: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 rp, 1, objv, "ch
4110: 61 6e 6e 65 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 annel ?options?"
4120: 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 );. retur
4130: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
4140: 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 }.. chan = T
4150: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
4160: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
4170: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
4180: 31 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 1], NULL), NULL)
4190: 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d ;. if (chan =
41a0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
41b0: 4e 55 4c 4c 29 20 7b 0a 20 20 20 20 20 20 20 20 NULL) {.
41c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
41d0: 3b 0a 20 20 20 20 7d 0a 23 69 66 64 65 66 20 54 ;. }.#ifdef T
41e0: 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 CL_CHANNEL_VERSI
41f0: 4f 4e 5f 32 0a 20 20 20 20 2f 2a 0a 20 20 20 20 ON_2. /*.
4200: 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 * Make sure to
4210: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
4220: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 opmost channel.
4230: 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 */. chan
4240: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e = Tcl_GetTopChan
4250: 6e 65 6c 28 63 68 61 6e 29 3b 0a 23 65 6e 64 69 nel(chan);.#endi
4260: 66 0a 0a 20 20 20 20 66 6f 72 20 28 69 64 78 20 f.. for (idx
4270: 3d 20 32 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b = 2; idx < objc;
4280: 20 69 64 78 2b 2b 29 20 7b 0a 09 63 68 61 72 20 idx++) {..char
4290: 2a 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 *opt = Tcl_GetSt
42a0: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
42b0: 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 [idx], NULL);...
42c0: 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d if (opt[0] != '-
42d0: 27 29 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a ').. break;..
42e0: 09 4f 50 54 53 54 52 28 20 22 2d 63 61 66 69 6c .OPTSTR( "-cafil
42f0: 65 22 2c 20 43 41 66 69 6c 65 29 3b 0a 09 4f 50 e", CAfile);..OP
4300: 54 53 54 52 28 20 22 2d 63 61 64 69 72 22 2c 20 TSTR( "-cadir",
4310: 43 41 64 69 72 29 3b 0a 09 4f 50 54 53 54 52 28 CAdir);..OPTSTR(
4320: 20 22 2d 63 65 72 74 66 69 6c 65 22 2c 20 63 65 "-certfile", ce
4330: 72 74 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d rt);..OPTSTR( "-
4340: 63 69 70 68 65 72 22 2c 20 63 69 70 68 65 72 73 cipher", ciphers
4350: 29 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 63 6f );..OPTOBJ( "-co
4360: 6d 6d 61 6e 64 22 2c 20 73 63 72 69 70 74 29 3b mmand", script);
4370: 0a 09 4f 50 54 53 54 52 28 20 22 2d 6b 65 79 66 ..OPTSTR( "-keyf
4380: 69 6c 65 22 2c 20 6b 65 79 29 3b 0a 09 4f 50 54 ile", key);..OPT
4390: 53 54 52 28 20 22 2d 6d 6f 64 65 6c 22 2c 20 6d STR( "-model", m
43a0: 6f 64 65 6c 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 odel);..OPTBOOL(
43b0: 20 22 2d 72 65 71 75 69 72 65 22 2c 20 72 65 71 "-require", req
43c0: 75 69 72 65 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 uire);..OPTBOOL(
43d0: 20 22 2d 72 65 71 75 65 73 74 22 2c 20 72 65 71 "-request", req
43e0: 75 65 73 74 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 uest);..OPTBOOL(
43f0: 20 22 2d 73 65 72 76 65 72 22 2c 20 73 65 72 76 "-server", serv
4400: 65 72 29 3b 0a 0a 09 4f 50 54 42 4f 4f 4c 28 20 er);...OPTBOOL(
4410: 22 2d 73 73 6c 32 22 2c 20 73 73 6c 32 29 3b 0a "-ssl2", ssl2);.
4420: 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 33 .OPTBOOL( "-ssl3
4430: 22 2c 20 73 73 6c 33 29 3b 0a 09 4f 50 54 42 4f ", ssl3);..OPTBO
4440: 4f 4c 28 20 22 2d 74 6c 73 31 22 2c 20 74 6c 73 OL( "-tls1", tls
4450: 31 29 3b 0a 0a 09 4f 50 54 42 41 44 28 20 22 6f 1);...OPTBAD( "o
4460: 70 74 69 6f 6e 22 2c 20 22 2d 63 61 66 69 6c 65 ption", "-cafile
4470: 2c 20 2d 63 61 64 69 72 2c 20 2d 63 65 72 74 66 , -cadir, -certf
4480: 69 6c 65 2c 20 2d 63 69 70 68 65 72 2c 20 2d 63 ile, -cipher, -c
4490: 6f 6d 6d 61 6e 64 2c 20 2d 6b 65 79 66 69 6c 65 ommand, -keyfile
44a0: 2c 20 2d 6d 6f 64 65 6c 2c 20 2d 72 65 71 75 69 , -model, -requi
44b0: 72 65 2c 20 2d 72 65 71 75 65 73 74 2c 20 2d 73 re, -request, -s
44c0: 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 2d 73 65 72 sl2, -ssl3, -ser
44d0: 76 65 72 2c 20 6f 72 20 2d 74 6c 73 31 22 29 3b ver, or -tls1");
44e0: 0a 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
44f0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ROR;. }. i
4500: 66 20 28 72 65 71 75 65 73 74 29 20 76 65 72 69 f (request) veri
4510: 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 49 46 59 fy |= SSL_VERIFY
4520: 5f 43 4c 49 45 4e 54 5f 4f 4e 43 45 20 7c 20 53 _CLIENT_ONCE | S
4530: 53 4c 5f 56 45 52 49 46 59 5f 50 45 45 52 3b 0a SL_VERIFY_PEER;.
4540: 20 20 20 20 69 66 20 28 72 65 71 75 65 73 74 20 if (request
4550: 26 26 20 72 65 71 75 69 72 65 29 20 76 65 72 69 && require) veri
4560: 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 49 46 59 fy |= SSL_VERIFY
4570: 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 _FAIL_IF_NO_PEER
4580: 5f 43 45 52 54 3b 0a 20 20 20 20 69 66 20 28 76 _CERT;. if (v
4590: 65 72 69 66 79 20 3d 3d 20 30 29 20 76 65 72 69 erify == 0) veri
45a0: 66 79 20 3d 20 53 53 4c 5f 56 45 52 49 46 59 5f fy = SSL_VERIFY_
45b0: 4e 4f 4e 45 3b 0a 0a 20 20 20 20 70 72 6f 74 6f NONE;.. proto
45c0: 20 7c 3d 20 28 73 73 6c 32 20 3f 20 54 4c 53 5f |= (ssl2 ? TLS_
45d0: 50 52 4f 54 4f 5f 53 53 4c 32 20 3a 20 30 29 3b PROTO_SSL2 : 0);
45e0: 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 . proto |= (s
45f0: 73 6c 33 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f sl3 ? TLS_PROTO_
4600: 53 53 4c 33 20 3a 20 30 29 3b 0a 20 20 20 20 70 SSL3 : 0);. p
4610: 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 20 3f 20 roto |= (tls1 ?
4620: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 20 3a TLS_PROTO_TLS1 :
4630: 20 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 72 65 73 0);.. /* res
4640: 65 74 20 74 6f 20 4e 55 4c 4c 20 69 66 20 62 6c et to NULL if bl
4650: 61 6e 6b 20 73 74 72 69 6e 67 20 70 72 6f 76 69 ank string provi
4660: 64 65 64 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 ded */. if (c
4670: 65 72 74 20 26 26 20 21 2a 63 65 72 74 29 20 63 ert && !*cert) c
4680: 65 72 74 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ert = NULL;.
4690: 69 66 20 28 6b 65 79 20 26 26 20 21 2a 6b 65 79 if (key && !*key
46a0: 29 20 6b 65 79 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ) key = NULL;.
46b0: 20 20 69 66 20 28 63 69 70 68 65 72 73 20 26 26 if (ciphers &&
46c0: 20 21 2a 63 69 70 68 65 72 73 29 20 63 69 70 68 !*ciphers) ciph
46d0: 65 72 73 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ers = NULL;.
46e0: 69 66 20 28 43 41 66 69 6c 65 20 26 26 20 21 2a if (CAfile && !*
46f0: 43 41 66 69 6c 65 29 20 43 41 66 69 6c 65 20 3d CAfile) CAfile =
4700: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 NULL;. if (C
4710: 41 64 69 72 20 26 26 20 21 2a 43 41 64 69 72 29 Adir && !*CAdir)
4720: 20 43 41 64 69 72 20 3d 20 4e 55 4c 4c 3b 0a 0a CAdir = NULL;..
4730: 20 20 20 20 69 66 20 28 6d 6f 64 65 6c 20 21 3d if (model !=
4740: 20 4e 55 4c 4c 29 20 7b 0a 09 69 6e 74 20 6d 6f NULL) {..int mo
4750: 64 65 3b 0a 09 2f 2a 20 47 65 74 20 74 68 65 20 de;../* Get the
4760: 22 6d 6f 64 65 6c 22 20 63 6f 6e 74 65 78 74 20 "model" context
4770: 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 */..chan = Tcl_G
4780: 65 74 43 68 61 6e 6e 65 6c 28 20 69 6e 74 65 72 etChannel( inter
4790: 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d 6f 64 65 29 p, model, &mode)
47a0: 3b 0a 09 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 ;..if (chan == (
47b0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 30 29 20 7b Tcl_Channel)0) {
47c0: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
47d0: 5f 45 52 52 4f 52 3b 0a 09 7d 0a 23 69 66 64 65 _ERROR;..}.#ifde
47e0: 66 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 f TCL_CHANNEL_VE
47f0: 52 53 49 4f 4e 5f 32 0a 09 2f 2a 0a 09 20 2a 20 RSION_2../*.. *
4800: 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 Make sure to ope
4810: 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d rate on the topm
4820: 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f ost channel.. */
4830: 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 ..chan = Tcl_Get
4840: 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 TopChannel(chan)
4850: 3b 0a 23 65 6e 64 69 66 0a 09 69 66 20 28 54 63 ;.#endif..if (Tc
4860: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
4870: 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 (chan) != Tls_Ch
4880: 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 annelType()) {..
4890: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
48a0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 sult(interp, "ba
48b0: 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 d channel \"", T
48c0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d cl_GetChannelNam
48d0: 65 28 63 68 61 6e 29 2c 0a 09 09 20 20 20 20 22 e(chan),... "
48e0: 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 \": not a TLS ch
48f0: 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 annel", NULL);..
4900: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
4910: 52 52 4f 52 3b 0a 09 7d 0a 09 73 74 61 74 65 50 RROR;..}..stateP
4920: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 54 63 tr = (State *)Tc
4930: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
4940: 61 6e 63 65 44 61 74 61 28 20 63 68 61 6e 29 3b anceData( chan);
4950: 0a 09 63 74 78 20 3d 20 73 74 61 74 65 50 74 72 ..ctx = statePtr
4960: 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c 73 ->ctx;. } els
4970: 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 3d 20 e {..if ((ctx =
4980: 43 54 58 5f 49 6e 69 74 28 20 69 6e 74 65 72 70 CTX_Init( interp
4990: 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 , proto, key, ce
49a0: 72 74 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c rt, CAdir, CAfil
49b0: 65 2c 20 63 69 70 68 65 72 73 29 29 0a 09 20 20 e, ciphers))..
49c0: 20 20 3d 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 == (SSL_CTX*)0
49d0: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ) {.. return
49e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 TCL_ERROR;..}.
49f0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 }.. /* new
4a00: 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 SSL state */.
4a10: 20 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 statePtr = (Sta
4a20: 74 65 20 2a 29 20 54 63 6c 5f 41 6c 6c 6f 63 28 te *) Tcl_Alloc(
4a30: 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 6f (unsigned) sizeo
4a40: 66 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 73 f(State));. s
4a50: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 tatePtr->self =
4a60: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 4e 55 4c (Tcl_Channel)NUL
4a70: 4c 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d L;. statePtr-
4a80: 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 >timer = (Tcl_Ti
4a90: 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 3b 0a 0a merToken)NULL;..
4aa0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c statePtr->fl
4ab0: 61 67 73 20 3d 20 66 6c 61 67 73 3b 0a 20 20 20 ags = flags;.
4ac0: 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 statePtr->watch
4ad0: 4d 61 73 6b 20 3d 20 30 3b 0a 20 20 20 20 73 74 Mask = 0;. st
4ae0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 20 3d 20 30 atePtr->mode = 0
4af0: 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
4b00: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
4b10: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
4b20: 63 61 6c 6c 62 61 63 6b 20 3d 20 28 54 63 6c 5f callback = (Tcl_
4b30: 4f 62 6a 20 2a 29 30 3b 0a 0a 20 20 20 20 73 74 Obj *)0;.. st
4b40: 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 20 3d atePtr->vflags =
4b50: 20 76 65 72 69 66 79 3b 0a 20 20 20 20 73 74 61 verify;. sta
4b60: 74 65 50 74 72 2d 3e 73 73 6c 20 3d 20 28 53 53 tePtr->ssl = (SS
4b70: 4c 2a 29 30 3b 0a 20 20 20 20 73 74 61 74 65 50 L*)0;. stateP
4b80: 74 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b 0a 20 tr->ctx = ctx;.
4b90: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 62 69 6f statePtr->bio
4ba0: 20 3d 20 28 42 49 4f 2a 29 30 3b 0a 20 20 20 20 = (BIO*)0;.
4bb0: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 20 statePtr->p_bio
4bc0: 3d 20 28 42 49 4f 2a 29 30 3b 0a 0a 20 20 20 20 = (BIO*)0;..
4bd0: 73 74 61 74 65 50 74 72 2d 3e 65 72 72 20 3d 20 statePtr->err =
4be0: 22 22 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 "";.. Tcl_Set
4bf0: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
4c00: 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 terp, chan, "-tr
4c10: 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e anslation", "bin
4c20: 61 72 79 22 29 3b 0a 20 20 20 20 54 63 6c 5f 53 ary");. Tcl_S
4c30: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
4c40: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
4c50: 62 75 66 66 65 72 69 6e 67 22 2c 20 22 6e 6f 6e buffering", "non
4c60: 65 22 29 3b 0a 0a 23 69 66 20 54 43 4c 5f 4d 41 e");..#if TCL_MA
4c70: 4a 4f 52 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 JOR_VERSION == 8
4c80: 20 26 26 20 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 && TCL_MINOR_VE
4c90: 52 53 49 4f 4e 20 3c 20 32 0a 20 20 20 20 73 74 RSION < 2. st
4ca0: 61 74 65 50 74 72 2d 3e 70 61 72 65 6e 74 20 3d atePtr->parent =
4cb0: 20 63 68 61 6e 3b 0a 20 20 20 20 73 74 61 74 65 chan;. state
4cc0: 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f Ptr->self = Tcl_
4cd0: 52 65 70 6c 61 63 65 43 68 61 6e 6e 65 6c 28 20 ReplaceChannel(
4ce0: 69 6e 74 65 72 70 2c 0a 09 09 09 09 54 6c 73 5f interp,.....Tls_
4cf0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 2c 20 28 ChannelType(), (
4d00: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
4d10: 65 50 74 72 2c 0a 09 09 09 20 20 20 20 20 20 20 ePtr,....
4d20: 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 7c 20 (TCL_READABLE |
4d30: 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 2c 20 73 TCL_WRITABLE), s
4d40: 74 61 74 65 50 74 72 2d 3e 70 61 72 65 6e 74 29 tatePtr->parent)
4d50: 3b 0a 23 65 6c 73 65 0a 23 69 66 64 65 66 20 54 ;.#else.#ifdef T
4d60: 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 CL_CHANNEL_VERSI
4d70: 4f 4e 5f 32 0a 20 20 20 20 73 74 61 74 65 50 74 ON_2. statePt
4d80: 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f 53 74 r->self = Tcl_St
4d90: 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 ackChannel(inter
4da0: 70 2c 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 p, Tls_ChannelTy
4db0: 70 65 28 29 2c 0a 09 20 20 20 20 28 43 6c 69 65 pe(),.. (Clie
4dc0: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
4dd0: 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 , (TCL_READABLE
4de0: 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 2c | TCL_WRITABLE),
4df0: 20 63 68 61 6e 29 3b 0a 23 65 6c 73 65 0a 20 20 chan);.#else.
4e00: 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 statePtr->self
4e10: 20 3d 20 63 68 61 6e 3b 0a 20 20 20 20 54 63 6c = chan;. Tcl
4e20: 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 20 69 _StackChannel( i
4e30: 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e nterp, Tls_Chann
4e40: 65 6c 54 79 70 65 28 29 2c 20 28 43 6c 69 65 6e elType(), (Clien
4e50: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c tData) statePtr,
4e60: 0a 09 20 20 20 20 28 54 43 4c 5f 52 45 41 44 41 .. (TCL_READA
4e70: 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 BLE | TCL_WRITAB
4e80: 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 23 65 6e 64 LE), chan);.#end
4e90: 69 66 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 if.#endif. if
4ea0: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 (statePtr->self
4eb0: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
4ec0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 ) NULL) {../*..
4ed0: 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 63 6c 5f * No use of Tcl_
4ee0: 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 62 EventuallyFree b
4ef0: 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 73 69 62 ecause no possib
4f00: 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 76 65 2e le Tcl_Preserve.
4f10: 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 65 65 28 .. */..Tls_Free(
4f20: 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 (char *) statePt
4f30: 72 29 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 r);. retu
4f40: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
4f50: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f }.. /* allo
4f60: 63 61 74 65 20 73 63 72 69 70 74 20 2a 2f 0a 20 cate script */.
4f70: 20 20 20 69 66 20 28 73 63 72 69 70 74 29 20 7b if (script) {
4f80: 0a 09 63 68 61 72 20 2a 20 74 6d 70 20 3d 20 54 ..char * tmp = T
4f90: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
4fa0: 4f 62 6a 28 73 63 72 69 70 74 2c 20 4e 55 4c 4c Obj(script, NULL
4fb0: 29 3b 0a 09 69 66 20 28 74 6d 70 20 26 26 20 2a );..if (tmp && *
4fc0: 74 6d 70 29 20 7b 0a 09 20 20 20 20 73 74 61 74 tmp) {.. stat
4fd0: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d ePtr->callback =
4fe0: 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 Tcl_DuplicateOb
4ff0: 6a 28 73 63 72 69 70 74 29 3b 0a 09 20 20 20 20 j(script);..
5000: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 Tcl_IncrRefCount
5010: 28 20 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c ( statePtr->call
5020: 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a back);..}. }.
5030: 20 20 20 20 2f 2a 20 54 68 69 73 20 69 73 20 6f /* This is o
5040: 6e 6c 79 20 6e 65 65 64 65 64 20 62 65 63 61 75 nly needed becau
5050: 73 65 20 6f 66 20 61 20 62 75 67 20 69 6e 20 4f se of a bug in O
5060: 70 65 6e 53 53 4c 2c 20 77 68 65 72 65 20 74 68 penSSL, where th
5070: 65 0a 20 20 20 20 20 2a 20 73 73 6c 2d 3e 76 65 e. * ssl->ve
5080: 72 69 66 79 5f 63 61 6c 6c 62 61 63 6b 20 69 73 rify_callback is
5090: 20 6e 6f 74 20 72 65 66 65 72 65 6e 63 65 64 21 not referenced!
50a0: 21 21 20 28 4d 75 73 74 20 62 65 20 64 6f 6e 65 !! (Must be done
50b0: 0a 20 20 20 20 20 2a 20 2a 62 65 66 6f 72 65 2a . * *before*
50c0: 20 53 53 4c 5f 6e 65 77 28 29 20 69 73 20 63 61 SSL_new() is ca
50d0: 6c 6c 65 64 21 0a 20 20 20 20 20 2a 2f 0a 20 20 lled!. */.
50e0: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 76 65 SSL_CTX_set_ve
50f0: 72 69 66 79 28 73 74 61 74 65 50 74 72 2d 3e 63 rify(statePtr->c
5100: 74 78 2c 20 76 65 72 69 66 79 2c 20 56 65 72 69 tx, verify, Veri
5110: 66 79 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 fyCallback);..
5120: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
5130: 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 Initialization.
5140: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 */.. stat
5150: 65 50 74 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f ePtr->ssl = SSL_
5160: 6e 65 77 28 73 74 61 74 65 50 74 72 2d 3e 63 74 new(statePtr->ct
5170: 78 29 3b 0a 20 20 20 20 69 66 20 28 21 73 74 61 x);. if (!sta
5180: 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 20 20 tePtr->ssl) {.
5190: 20 20 20 20 20 20 2f 2a 20 53 53 4c 20 6c 69 62 /* SSL lib
51a0: 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a 20 20 rary error */.
51b0: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 Tcl_Append
51c0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 20 Result(interp,.
51d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
51e0: 20 20 20 20 20 20 20 20 22 63 6f 75 6c 64 6e 27 "couldn'
51f0: 74 20 63 6f 6e 73 74 72 75 63 74 20 73 73 6c 20 t construct ssl
5200: 73 65 73 73 69 6f 6e 3a 20 22 2c 20 52 45 41 53 session: ", REAS
5210: 4f 4e 28 29 2c 0a 20 20 20 20 20 20 20 20 20 20 ON(),.
5220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
5230: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
5240: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
5250: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
5260: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
5270: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5280: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
5290: 43 61 6c 6c 62 61 63 6b 73 0a 20 20 20 20 20 2a Callbacks. *
52a0: 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 61 /.. SSL_set_a
52b0: 70 70 5f 64 61 74 61 28 73 74 61 74 65 50 74 72 pp_data(statePtr
52c0: 2d 3e 73 73 6c 2c 20 28 56 4f 49 44 20 2a 29 73 ->ssl, (VOID *)s
52d0: 74 61 74 65 50 74 72 29 3b 09 2f 2a 20 70 6f 69 tatePtr);./* poi
52e0: 6e 74 20 62 61 63 6b 20 74 6f 20 75 73 20 2a 2f nt back to us */
52f0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
5300: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 The following is
5310: 20 62 72 6f 6b 65 6e 20 2d 20 77 65 20 6e 65 65 broken - we nee
5320: 64 20 69 73 20 74 6f 20 73 65 74 20 74 68 65 0a d is to set the.
5330: 20 20 20 20 20 2a 20 76 65 72 69 66 79 5f 6d 6f * verify_mo
5340: 64 65 2c 20 62 75 74 20 74 68 65 20 6c 69 62 72 de, but the libr
5350: 61 72 79 20 69 67 6e 6f 72 65 73 20 74 68 65 20 ary ignores the
5360: 76 65 72 69 66 79 5f 63 61 6c 6c 62 61 63 6b 21 verify_callback!
5370: 21 21 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 2f !!. */. /
5380: 2a 53 53 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 *SSL_set_verify(
5390: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 statePtr->ssl, v
53a0: 65 72 69 66 79 2c 20 56 65 72 69 66 79 43 61 6c erify, VerifyCal
53b0: 6c 62 61 63 6b 29 3b 2a 2f 0a 0a 20 20 20 20 53 lback);*/.. S
53c0: 53 4c 5f 43 54 58 5f 73 65 74 5f 69 6e 66 6f 5f SL_CTX_set_info_
53d0: 63 61 6c 6c 62 61 63 6b 28 20 73 74 61 74 65 50 callback( stateP
53e0: 74 72 2d 3e 63 74 78 2c 20 49 6e 66 6f 43 61 6c tr->ctx, InfoCal
53f0: 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 lback);.. /*
5400: 43 72 65 61 74 65 20 54 63 6c 5f 43 68 61 6e 6e Create Tcl_Chann
5410: 65 6c 20 42 49 4f 20 48 61 6e 64 6c 65 72 20 2a el BIO Handler *
5420: 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e /. statePtr->
5430: 70 5f 62 69 6f 20 3d 20 62 69 6f 20 3d 20 42 49 p_bio = bio = BI
5440: 4f 5f 6e 65 77 5f 74 63 6c 28 20 73 74 61 74 65 O_new_tcl( state
5450: 50 74 72 2c 20 42 49 4f 5f 43 4c 4f 53 45 29 3b Ptr, BIO_CLOSE);
5460: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 62 . statePtr->b
5470: 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 28 42 49 4f io = BIO_new(BIO
5480: 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a 20 20 20 20 _f_ssl());..
5490: 69 66 20 28 73 65 72 76 65 72 29 20 7b 0a 09 73 if (server) {..s
54a0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
54b0: 3d 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 = TLS_TCL_SERVER
54c0: 3b 0a 09 53 53 4c 5f 73 65 74 5f 61 63 63 65 70 ;..SSL_set_accep
54d0: 74 5f 73 74 61 74 65 28 73 74 61 74 65 50 74 72 t_state(statePtr
54e0: 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c ->ssl);. } el
54f0: 73 65 20 7b 0a 09 53 53 4c 5f 73 65 74 5f 63 6f se {..SSL_set_co
5500: 6e 6e 65 63 74 5f 73 74 61 74 65 28 73 74 61 74 nnect_state(stat
5510: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 ePtr->ssl);.
5520: 7d 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 62 69 }. SSL_set_bi
5530: 6f 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c o(statePtr->ssl,
5540: 20 62 69 6f 2c 20 62 69 6f 29 3b 0a 20 20 20 20 bio, bio);.
5550: 42 49 4f 5f 73 65 74 5f 73 73 6c 28 73 74 61 74 BIO_set_ssl(stat
5560: 65 50 74 72 2d 3e 62 69 6f 2c 20 73 74 61 74 65 ePtr->bio, state
5570: 50 74 72 2d 3e 73 73 6c 2c 20 42 49 4f 5f 43 4c Ptr->ssl, BIO_CL
5580: 4f 53 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 OSE);.. /*.
5590: 20 20 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 * End of SSL
55a0: 49 6e 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 Init. */.
55b0: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
55c0: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 43 68 nterp, Tcl_GetCh
55d0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
55e0: 74 72 2d 3e 73 65 6c 66 29 2c 20 54 43 4c 5f 56 tr->self), TCL_V
55f0: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 OLATILE);. re
5600: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c turn TCL_OK;.}..
5610: 0a 2f 2a 0a 20 2a 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 2d ----------------
5650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
5660: 43 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 CTX_Init -- cons
5670: 74 72 75 63 74 20 61 20 53 53 4c 5f 43 54 58 20 truct a SSL_CTX
5680: 69 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 instance. *. * R
5690: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c esults:. *.A val
56a0: 69 64 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 id SSL_CTX insta
56b0: 6e 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a nce or NULL.. *.
56c0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
56d0: 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 53 . *.constructs S
56e0: 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29 SL context (CTX)
56f0: 0a 20 2a 0a 20 2a 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 2d ----------------
5730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
5740: 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a tatic SSL_CTX *.
5750: 43 54 58 5f 49 6e 69 74 28 69 6e 74 65 72 70 2c CTX_Init(interp,
5760: 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 72 proto, key, cer
5770: 74 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c 65 t, CAdir, CAfile
5780: 2c 20 63 69 70 68 65 72 73 29 0a 20 20 20 20 54 , ciphers). T
5790: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
57a0: 70 3b 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 6f p;. int proto
57b0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 3b ;. char *key;
57c0: 0a 20 20 20 20 63 68 61 72 20 2a 63 65 72 74 3b . char *cert;
57d0: 0a 20 20 20 20 63 68 61 72 20 2a 43 41 64 69 72 . char *CAdir
57e0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41 66 69 ;. char *CAfi
57f0: 6c 65 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 le;. char *ci
5800: 70 68 65 72 73 3b 0a 7b 0a 20 20 20 20 53 53 4c phers;.{. SSL
5810: 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c _CTX *ctx = NULL
5820: 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e ;. Tcl_DStrin
5830: 67 20 64 73 3b 0a 20 20 20 20 54 63 6c 5f 44 53 g ds;. Tcl_DS
5840: 74 72 69 6e 67 20 64 73 31 3b 0a 20 20 20 20 69 tring ds1;. i
5850: 6e 74 20 6f 66 66 20 3d 20 30 3b 0a 0a 20 20 20 nt off = 0;..
5860: 20 2f 2a 20 63 72 65 61 74 65 20 53 53 4c 20 63 /* create SSL c
5870: 6f 6e 74 65 78 74 20 2a 2f 0a 23 69 66 20 21 64 ontext */.#if !d
5880: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 efined(NO_SSL2)
5890: 26 26 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 && !defined(NO_S
58a0: 53 4c 33 29 0a 20 20 20 20 69 66 20 28 45 4e 41 SL3). if (ENA
58b0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
58c0: 50 52 4f 54 4f 5f 53 53 4c 32 29 20 26 26 0a 09 PROTO_SSL2) &&..
58d0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
58e0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 LS_PROTO_SSL3))
58f0: 7b 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 {..ctx = SSL_CTX
5900: 5f 6e 65 77 28 53 53 4c 76 32 33 5f 6d 65 74 68 _new(SSLv23_meth
5910: 6f 64 28 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 od());. } els
5920: 65 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 e.#endif. if
5930: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
5940: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 29 TLS_PROTO_SSL2))
5950: 20 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e {.#if defined(N
5960: 4f 5f 53 53 4c 32 29 0a 09 54 63 6c 5f 41 70 70 O_SSL2)..Tcl_App
5970: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
5980: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
5990: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
59a0: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
59b0: 43 54 58 20 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 CTX *)0;.#else..
59c0: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
59d0: 77 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 w(SSLv2_method()
59e0: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 20 );.#endif. }
59f0: 65 6c 73 65 20 69 66 20 28 45 4e 41 42 4c 45 44 else if (ENABLED
5a00: 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 (proto, TLS_PROT
5a10: 4f 5f 54 4c 53 31 29 29 20 7b 0a 09 63 74 78 20 O_TLS1)) {..ctx
5a20: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c = SSL_CTX_new(TL
5a30: 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 Sv1_method());.
5a40: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 4e } else if (EN
5a50: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
5a60: 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b 0a _PROTO_SSL3)) {.
5a70: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
5a80: 53 4c 33 29 0a 09 54 63 6c 5f 41 70 70 65 6e 64 SL3)..Tcl_Append
5a90: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5aa0: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
5ab0: 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a ported", NULL);.
5ac0: 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 .return (SSL_CTX
5ad0: 20 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 74 78 *)0;.#else..ctx
5ae0: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 = SSL_CTX_new(S
5af0: 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 0a SLv3_method());.
5b00: 23 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 6c 73 #endif. } els
5b10: 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 e {..Tcl_AppendR
5b20: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e esult(interp, "n
5b30: 6f 20 76 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c o valid protocol
5b40: 20 73 65 6c 65 63 74 65 64 22 2c 20 4e 55 4c 4c selected", NULL
5b50: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
5b60: 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 20 CTX *)0;. }.
5b70: 20 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c off |= (ENABL
5b80: 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 ED(proto, TLS_PR
5b90: 4f 54 4f 5f 54 4c 53 31 29 20 3f 20 30 20 3a 20 OTO_TLS1) ? 0 :
5ba0: 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 29 SSL_OP_NO_TLSv1)
5bb0: 3b 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 45 4e ;. off |= (EN
5bc0: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
5bd0: 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 20 3f 20 30 _PROTO_SSL2) ? 0
5be0: 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c : SSL_OP_NO_SSL
5bf0: 76 32 29 3b 0a 20 20 20 20 6f 66 66 20 7c 3d 20 v2);. off |=
5c00: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
5c10: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 20 TLS_PROTO_SSL3)
5c20: 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f ? 0 : SSL_OP_NO_
5c30: 53 53 4c 76 33 29 3b 0a 0a 20 20 20 20 53 53 4c SSLv3);.. SSL
5c40: 5f 43 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 74 _CTX_set_app_dat
5c50: 61 28 20 63 74 78 2c 20 28 56 4f 49 44 2a 29 69 a( ctx, (VOID*)i
5c60: 6e 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d nterp);./* remem
5c70: 62 65 72 20 74 68 65 20 69 6e 74 65 72 70 72 65 ber the interpre
5c80: 74 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 ter */. SSL_C
5c90: 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 TX_set_options(
5ca0: 63 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 ctx, SSL_OP_ALL)
5cb0: 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 ;./* all SSL bug
5cc0: 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a workarounds */.
5cd0: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f SSL_CTX_set_
5ce0: 6f 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f 66 options( ctx, of
5cf0: 66 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 f);./* all SSL b
5d00: 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a ug workarounds *
5d10: 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 /. SSL_CTX_se
5d20: 73 73 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a ss_set_cache_siz
5d30: 65 28 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a 20 e( ctx, 128);..
5d40: 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 if (ciphers !
5d50: 3d 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 58 = NULL)..SSL_CTX
5d60: 5f 73 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 _set_cipher_list
5d70: 28 63 74 78 2c 20 63 69 70 68 65 72 73 29 3b 0a (ctx, ciphers);.
5d80: 0a 20 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d 65 . /* set some
5d90: 20 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 20 callbacks */.
5da0: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 SSL_CTX_set_de
5db0: 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 28 fault_passwd_cb(
5dc0: 63 74 78 2c 20 50 61 73 73 77 6f 72 64 43 61 6c ctx, PasswordCal
5dd0: 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 66 lback);..#ifndef
5de0: 20 42 53 41 46 45 0a 20 20 20 20 53 53 4c 5f 43 BSAFE. SSL_C
5df0: 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 TX_set_default_p
5e00: 61 73 73 77 64 5f 63 62 5f 75 73 65 72 64 61 74 asswd_cb_userdat
5e10: 61 28 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 69 a(ctx, (void *)i
5e20: 6e 74 65 72 70 29 3b 0a 23 65 6e 64 69 66 0a 0a nterp);.#endif..
5e30: 23 69 66 6e 64 65 66 20 4e 4f 5f 44 48 0a 20 20 #ifndef NO_DH.
5e40: 20 20 7b 0a 09 44 48 2a 20 64 68 20 3d 20 67 65 {..DH* dh = ge
5e50: 74 5f 64 68 35 31 32 28 29 3b 0a 09 53 53 4c 5f t_dh512();..SSL_
5e60: 43 54 58 5f 73 65 74 5f 74 6d 70 5f 64 68 28 63 CTX_set_tmp_dh(c
5e70: 74 78 2c 20 64 68 29 3b 0a 09 44 48 5f 66 72 65 tx, dh);..DH_fre
5e80: 65 28 64 68 29 3b 0a 20 20 20 20 7d 0a 23 65 6e e(dh);. }.#en
5e90: 64 69 66 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 dif.. /* set
5ea0: 6f 75 72 20 63 65 72 74 69 66 69 63 61 74 65 20 our certificate
5eb0: 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 20 */. if (cert
5ec0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f != NULL) {..Tcl_
5ed0: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 DStringInit(&ds)
5ee0: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 53 ;.. if (S
5ef0: 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 SL_CTX_use_certi
5f00: 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c ficate_file(ctx,
5f10: 20 46 32 4e 28 20 63 65 72 74 2c 20 26 64 73 29 F2N( cert, &ds)
5f20: 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 ,......SSL_FILET
5f30: 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b YPE_PEM) <= 0) {
5f40: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
5f50: 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 gFree(&ds);.
5f60: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 Tcl_Appe
5f70: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
5f80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
5f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 "u
5fa0: 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 63 65 72 nable to set cer
5fb0: 74 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c tificate file ",
5fc0: 20 63 65 72 74 2c 20 22 3a 20 22 2c 0a 20 20 20 cert, ": ",.
5fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5fe0: 20 20 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e REASON
5ff0: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
6000: 4c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 L);.
6010: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
6020: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 );. r
6030: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
6040: 29 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 )0;. }..
6050: 20 20 20 20 20 20 20 2f 2a 20 67 65 74 20 74 68 /* get th
6060: 65 20 70 72 69 76 61 74 65 20 6b 65 79 20 61 73 e private key as
6070: 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 sociated with th
6080: 69 73 20 63 65 72 74 69 66 69 63 61 74 65 20 2a is certificate *
6090: 2f 0a 20 20 20 20 20 20 20 20 69 66 20 28 6b 65 /. if (ke
60a0: 79 20 3d 3d 20 4e 55 4c 4c 29 20 6b 65 79 3d 63 y == NULL) key=c
60b0: 65 72 74 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 ert;.. if
60c0: 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 72 (SSL_CTX_use_Pr
60d0: 69 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 63 74 ivateKey_file(ct
60e0: 78 2c 20 46 32 4e 28 20 6b 65 79 2c 20 26 64 73 x, F2N( key, &ds
60f0: 29 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 ),......SSL_FILE
6100: 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 TYPE_PEM) <= 0)
6110: 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 {.. Tcl_DStri
6120: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 ngFree(&ds);.
6130: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 Tcl_App
6140: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6150: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
6160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
6170: 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 70 75 unable to set pu
6180: 62 6c 69 63 20 6b 65 79 20 66 69 6c 65 20 22 2c blic key file ",
6190: 20 6b 65 79 2c 20 22 20 22 2c 0a 20 20 20 20 20 key, " ",.
61a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
61b0: 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e 28 29 REASON()
61c0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
61d0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 53 ;. SS
61e0: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b L_CTX_free(ctx);
61f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 . ret
6200: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
6210: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 09 54 63 6c ;. }..Tcl
6220: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
6230: 29 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f );. /* No
6240: 77 20 77 65 20 6b 6e 6f 77 20 74 68 61 74 20 61 w we know that a
6250: 20 6b 65 79 20 61 6e 64 20 63 65 72 74 20 68 61 key and cert ha
6260: 76 65 20 62 65 65 6e 20 73 65 74 20 61 67 61 69 ve been set agai
6270: 6e 73 74 0a 20 20 20 20 20 20 20 20 20 2a 20 74 nst. * t
6280: 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a he SSL context *
6290: 2f 0a 20 20 20 20 20 20 20 20 69 66 20 28 21 53 /. if (!S
62a0: 53 4c 5f 43 54 58 5f 63 68 65 63 6b 5f 70 72 69 SL_CTX_check_pri
62b0: 76 61 74 65 5f 6b 65 79 28 63 74 78 29 29 20 7b vate_key(ctx)) {
62c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c . Tcl
62d0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
62e0: 74 65 72 70 2c 0a 20 20 20 20 20 20 20 20 20 20 terp,.
62f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6300: 20 20 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 "private key
6310: 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 does not match t
6320: 68 65 20 63 65 72 74 69 66 69 63 61 74 65 20 70 he certificate p
6330: 75 62 6c 69 63 20 6b 65 79 22 2c 0a 20 20 20 20 ublic key",.
6340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6350: 20 20 20 20 20 20 20 20 20 28 63 68 61 72 20 2a (char *
6360: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 ) NULL);.
6370: 20 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 SSL_CTX_fre
6380: 65 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 20 e(ctx);.
6390: 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f return (SSL_
63a0: 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 20 20 20 CTX *)0;.
63b0: 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a }. } else {.
63c0: 20 20 20 20 20 20 20 20 63 65 72 74 20 3d 20 28 cert = (
63d0: 63 68 61 72 2a 29 58 35 30 39 5f 67 65 74 5f 64 char*)X509_get_d
63e0: 65 66 61 75 6c 74 5f 63 65 72 74 5f 66 69 6c 65 efault_cert_file
63f0: 28 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 ();.. if
6400: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 (SSL_CTX_use_cer
6410: 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 tificate_file(ct
6420: 78 2c 20 63 65 72 74 2c 0a 09 09 09 09 09 53 53 x, cert,......SS
6430: 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 L_FILETYPE_PEM)
6440: 3c 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 20 <= 0) {.#if 0..
6450: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
6460: 65 65 28 26 64 73 29 3b 0a 20 20 20 20 20 20 20 ee(&ds);.
6470: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 Tcl_AppendR
6480: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 20 20 esult(interp,.
6490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
64a0: 20 20 20 20 20 20 20 20 20 20 20 22 75 6e 61 62 "unab
64b0: 6c 65 20 74 6f 20 75 73 65 20 64 65 66 61 75 6c le to use defaul
64c0: 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 t certificate fi
64d0: 6c 65 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 22 le ", cert, ": "
64e0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
64f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
6500: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
6510: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 ) NULL);.
6520: 20 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 SSL_CTX_fre
6530: 65 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 20 e(ctx);.
6540: 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f return (SSL_
6550: 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a CTX *)0;.#endif.
6560: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a }. }.
6570: 09 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
6580: 67 49 6e 69 74 28 26 64 73 29 3b 0a 20 20 20 20 gInit(&ds);.
6590: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
65a0: 26 64 73 31 29 3b 0a 20 20 20 20 69 66 20 28 21 &ds1);. if (!
65b0: 53 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f 76 65 72 SSL_CTX_load_ver
65c0: 69 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 28 63 74 ify_locations(ct
65d0: 78 2c 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 x, F2N(CAfile, &
65e0: 64 73 29 2c 20 46 32 4e 28 43 41 64 69 72 2c 20 ds), F2N(CAdir,
65f0: 26 64 73 31 29 29 20 7c 7c 0a 20 20 20 20 20 20 &ds1)) ||.
6600: 20 20 21 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 !SSL_CTX_set_d
6610: 65 66 61 75 6c 74 5f 76 65 72 69 66 79 5f 70 61 efault_verify_pa
6620: 74 68 73 28 63 74 78 29 29 20 7b 0a 23 69 66 20 ths(ctx)) {.#if
6630: 30 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 0..Tcl_DStringFr
6640: 65 65 28 26 64 73 29 3b 0a 09 54 63 6c 5f 44 53 ee(&ds);..Tcl_DS
6650: 74 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b tringFree(&ds1);
6660: 0a 09 2f 2a 20 44 6f 6e 27 74 20 63 75 72 72 65 ../* Don't curre
6670: 6e 74 6c 79 20 63 61 72 65 20 69 66 20 74 68 69 ntly care if thi
6680: 73 20 66 61 69 6c 73 20 2a 2f 0a 09 54 63 6c 5f s fails */..Tcl_
6690: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
66a0: 65 72 70 2c 20 22 53 53 4c 20 64 65 66 61 75 6c erp, "SSL defaul
66b0: 74 20 76 65 72 69 66 79 20 70 61 74 68 73 3a 20 t verify paths:
66c0: 22 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ",.
66d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
66e0: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 REASON(), (char
66f0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 *) NULL);..SSL_C
6700: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 TX_free(ctx);..r
6710: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
6720: 29 30 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d )0;.#endif. }
6730: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
6740: 5f 63 6c 69 65 6e 74 5f 43 41 5f 6c 69 73 74 28 _client_CA_list(
6750: 63 74 78 2c 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c ctx, SSL_load_cl
6760: 69 65 6e 74 5f 43 41 5f 66 69 6c 65 28 20 46 32 ient_CA_file( F2
6770: 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 20 29 N(CAfile, &ds) )
6780: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 );.. Tcl_DStr
6790: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 ingFree(&ds);.
67a0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 Tcl_DStringFre
67b0: 65 28 26 64 73 31 29 3b 0a 20 20 20 20 72 65 74 e(&ds1);. ret
67c0: 75 72 6e 20 63 74 78 3b 0a 7d 0a 0c 0a 2f 2a 0a urn ctx;.}.../*.
67d0: 20 2a 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 2d 2d 2d 2d 2d ----------------
6810: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 53 74 61 74 -----. *. * Stat
6820: 75 73 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 74 75 usObjCmd -- retu
6830: 72 6e 20 63 65 72 74 69 66 69 63 61 74 65 20 66 rn certificate f
6840: 6f 72 20 63 6f 6e 6e 65 63 74 65 64 20 70 65 65 or connected pee
6850: 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 r.. *. * Results
6860: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
6870: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
6880: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
6890: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68e0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
68f0: 0a 53 74 61 74 75 73 4f 62 6a 43 6d 64 28 63 6c .StatusObjCmd(cl
6900: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
6910: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 , objc, objv).
6920: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
6930: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 entData;./* Not
6940: 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c used. */. Tcl
6950: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
6960: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 . int objc;.
6970: 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 Tcl_Obj.*CONS
6980: 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 T objv[];.{.
6990: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
69a0: 0a 20 20 20 20 58 35 30 39 20 2a 70 65 65 72 3b . X509 *peer;
69b0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
69c0: 6a 50 74 72 3b 0a 20 20 20 20 54 63 6c 5f 43 68 jPtr;. Tcl_Ch
69d0: 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 annel chan;.
69e0: 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 4e 61 6d char *channelNam
69f0: 65 2c 20 2a 63 69 70 68 65 72 73 3b 0a 20 20 20 e, *ciphers;.
6a00: 20 69 6e 74 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 int mode;..
6a10: 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b if (objc != 2) {
6a20: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 57 72 6f . Tcl_Wro
6a30: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
6a40: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e , 1, objv, "chan
6a50: 6e 65 6c 22 29 3b 0a 20 20 20 20 20 20 20 20 72 nel");. r
6a60: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6a70: 0a 20 20 20 20 7d 0a 20 20 20 20 63 68 61 6e 6e . }. chann
6a80: 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 elName = Tcl_Get
6a90: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
6aa0: 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 jv[1], NULL);..
6ab0: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
6ac0: 74 43 68 61 6e 6e 65 6c 28 20 69 6e 74 65 72 70 tChannel( interp
6ad0: 2c 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 , channelName, &
6ae0: 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 mode);. if (c
6af0: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
6b00: 6e 65 6c 29 30 29 20 7b 0a 09 72 65 74 75 72 6e nel)0) {..return
6b10: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
6b20: 7d 0a 23 69 66 64 65 66 20 54 43 4c 5f 43 48 41 }.#ifdef TCL_CHA
6b30: 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 0a 20 NNEL_VERSION_2.
6b40: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b /*. * Mak
6b50: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
6b60: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
6b70: 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f channel. */
6b80: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
6b90: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
6ba0: 61 6e 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 an);.#endif.
6bb0: 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e if (Tcl_GetChann
6bc0: 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 elType(chan) !=
6bd0: 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 Tls_ChannelType(
6be0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 54 63 6c )) {. Tcl
6bf0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
6c00: 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e terp, "bad chann
6c10: 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 el \"", Tcl_GetC
6c20: 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 hannelName(chan)
6c30: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
6c40: 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 "\": not a TLS
6c50: 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 channel", NULL)
6c60: 3b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e ;. return
6c70: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
6c80: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 20 3d }. statePtr =
6c90: 20 28 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 65 (State *)Tcl_Ge
6ca0: 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 tChannelInstance
6cb0: 44 61 74 61 28 20 63 68 61 6e 29 3b 0a 20 20 20 Data( chan);.
6cc0: 20 70 65 65 72 20 3d 20 53 53 4c 5f 67 65 74 5f peer = SSL_get_
6cd0: 70 65 65 72 5f 63 65 72 74 69 66 69 63 61 74 65 peer_certificate
6ce0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
6cf0: 0a 20 20 20 20 69 66 20 28 70 65 65 72 29 0a 09 . if (peer)..
6d00: 6f 62 6a 50 74 72 20 3d 20 54 6c 73 5f 4e 65 77 objPtr = Tls_New
6d10: 58 35 30 39 4f 62 6a 28 20 69 6e 74 65 72 70 2c X509Obj( interp,
6d20: 20 70 65 65 72 29 3b 0a 20 20 20 20 65 6c 73 65 peer);. else
6d30: 0a 09 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e ..objPtr = Tcl_N
6d40: 65 77 4c 69 73 74 4f 62 6a 28 20 30 2c 20 4e 55 ewListObj( 0, NU
6d50: 4c 4c 29 3b 0a 0a 20 20 20 20 63 69 70 68 65 72 LL);.. cipher
6d60: 73 20 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f 67 s = (char*)SSL_g
6d70: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
6d80: 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 69 66 tr->ssl);. if
6d90: 20 28 63 69 70 68 65 72 73 20 21 3d 20 4e 55 4c (ciphers != NUL
6da0: 4c 20 26 26 20 73 74 72 63 6d 70 28 63 69 70 68 L && strcmp(ciph
6db0: 65 72 73 2c 20 22 28 4e 4f 4e 45 29 22 29 21 3d ers, "(NONE)")!=
6dc0: 30 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 0) {..Tcl_ListOb
6dd0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
6de0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
6df0: 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f ..Tcl_NewStringO
6e00: 62 6a 28 20 22 63 69 70 68 65 72 22 2c 20 2d 31 bj( "cipher", -1
6e10: 29 20 29 3b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 ) );..Tcl_ListOb
6e20: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
6e30: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
6e40: 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f ..Tcl_NewStringO
6e50: 62 6a 28 20 53 53 4c 5f 67 65 74 5f 63 69 70 68 bj( SSL_get_ciph
6e60: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c er(statePtr->ssl
6e70: 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 0a ), -1) );. }.
6e80: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
6e90: 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 sult( interp, ob
6ea0: 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 jPtr);. retur
6eb0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a n TCL_OK;.}.../*
6ec0: 0a 20 2a 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 2d 2d 2d 2d ----------------
6f00: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
6f10: 5f 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 _Free --. *. *.T
6f20: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 6c his procedure cl
6f30: 65 61 6e 73 20 75 70 20 77 68 65 6e 20 61 20 53 eans up when a S
6f40: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
6f50: 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c channel. *.is cl
6f60: 6f 73 65 64 20 61 6e 64 20 69 74 73 20 72 65 66 osed and its ref
6f70: 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c erence count fal
6f80: 6c 73 20 62 65 6c 6f 77 20 31 0a 20 2a 0a 20 2a ls below 1. *. *
6f90: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e Results:. *.non
6fa0: 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 e. *. * Side eff
6fb0: 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 ects:. *.Frees a
6fc0: 6c 6c 20 74 68 65 20 73 74 61 74 65 0a 20 2a 0a ll the state. *.
6fd0: 20 2a 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 2d 2d 2d 2d 2d ----------------
7010: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 -----. */.void.T
7020: 6c 73 5f 46 72 65 65 28 20 63 68 61 72 20 2a 62 ls_Free( char *b
7030: 6c 6f 63 6b 50 74 72 20 29 0a 7b 0a 20 20 20 20 lockPtr ).{.
7040: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 State *statePtr
7050: 3d 20 28 53 74 61 74 65 20 2a 29 62 6c 6f 63 6b = (State *)block
7060: 50 74 72 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c Ptr;.. Tls_Cl
7070: 65 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 ean(statePtr);.
7080: 20 20 20 54 63 6c 5f 46 72 65 65 28 62 6c 6f 63 Tcl_Free(bloc
7090: 6b 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a kPtr);.}.../*. *
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 2d 2d 2d 2d 2d 2d 2d ----------------
70e0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c ---. *. * Tls_Cl
70f0: 65 61 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 ean --. *. *.Thi
7100: 73 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 s procedure clea
7110: 6e 73 20 75 70 20 77 68 65 6e 20 61 20 53 53 4c ns up when a SSL
7120: 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 socket based ch
7130: 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 annel. *.is clos
7140: 65 64 20 61 6e 64 20 69 74 73 20 72 65 66 65 72 ed and its refer
7150: 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 ence count falls
7160: 20 62 65 6c 6f 77 20 31 2e 20 20 54 68 69 73 20 below 1. This
7170: 73 68 6f 75 6c 64 0a 20 2a 09 62 65 20 63 61 6c should. *.be cal
7180: 6c 65 64 20 73 79 6e 63 68 72 6f 6e 6f 75 73 6c led synchronousl
7190: 79 20 62 79 20 74 68 65 20 43 6c 6f 73 65 50 72 y by the ClosePr
71a0: 6f 63 2c 20 6e 6f 74 20 69 6e 20 74 68 65 0a 20 oc, not in the.
71b0: 2a 09 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 *.EventuallyFree
71c0: 20 63 61 6c 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a callback.. *. *
71d0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e Results:. *.non
71e0: 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 e. *. * Side eff
71f0: 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 ects:. *.Frees a
7200: 6c 6c 20 74 68 65 20 73 74 61 74 65 0a 20 2a 0a ll the state. *.
7210: 20 2a 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 2d 2d 2d 2d 2d ----------------
7250: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 -----. */.void.T
7260: 6c 73 5f 43 6c 65 61 6e 28 53 74 61 74 65 20 2a ls_Clean(State *
7270: 73 74 61 74 65 50 74 72 29 0a 7b 0a 20 20 20 20 statePtr).{.
7280: 2f 2a 0a 20 20 20 20 20 2a 20 77 65 27 72 65 20 /*. * we're
7290: 61 73 73 75 6d 69 6e 67 20 68 65 72 65 20 74 68 assuming here th
72a0: 61 74 20 77 65 27 72 65 20 73 69 6e 67 6c 65 2d at we're single-
72b0: 74 68 72 65 61 64 65 64 0a 20 20 20 20 20 2a 2f threaded. */
72c0: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
72d0: 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 tr->timer != (Tc
72e0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
72f0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 LL) {..Tcl_Delet
7300: 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 eTimerHandler(st
7310: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a atePtr->timer);.
7320: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 .statePtr->timer
7330: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a = NULL;. }..
7340: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
7350: 2d 3e 73 73 6c 29 20 7b 0a 09 53 53 4c 5f 73 68 ->ssl) {..SSL_sh
7360: 75 74 64 6f 77 6e 28 73 74 61 74 65 50 74 72 2d utdown(statePtr-
7370: 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 65 65 >ssl);..SSL_free
7380: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
7390: 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 ..statePtr->ssl
73a0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 = NULL;. }.
73b0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
73c0: 63 61 6c 6c 62 61 63 6b 29 20 7b 0a 09 54 63 6c callback) {..Tcl
73d0: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 73 74 _DecrRefCount(st
73e0: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b atePtr->callback
73f0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 61 );..statePtr->ca
7400: 6c 6c 62 61 63 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 llback = NULL;.
7410: 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
7450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7460: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 -. *. * Tls_Init
7470: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 --. *. *.This i
7480: 73 20 61 20 70 61 63 6b 61 67 65 20 69 6e 69 74 s a package init
7490: 69 61 6c 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 ialization proce
74a0: 64 75 72 65 2c 20 77 68 69 63 68 20 69 73 20 63 dure, which is c
74b0: 61 6c 6c 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 alled. *.by Tcl
74c0: 77 68 65 6e 20 74 68 69 73 20 70 61 63 6b 61 67 when this packag
74d0: 65 20 69 73 20 74 6f 20 62 65 20 61 64 64 65 64 e is to be added
74e0: 20 74 6f 20 61 6e 20 69 6e 74 65 72 70 72 65 74 to an interpret
74f0: 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 er.. *. * Result
7500: 73 3a 20 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 s: Ssl configur
7510: 65 64 20 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a ed and loaded. *
7520: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
7530: 3a 0a 20 2a 09 20 63 72 65 61 74 65 20 74 68 65 :. *. create the
7540: 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e ssl command, in
7550: 69 74 69 61 6c 69 73 65 20 73 73 6c 20 63 6f 6e itialise ssl con
7560: 74 65 78 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d text. *. *------
7570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
75b0: 2f 0a 0a 69 6e 74 0a 54 6c 73 5f 49 6e 69 74 28 /..int.Tls_Init(
75c0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
75d0: 72 70 29 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 rp)../* Interpre
75e0: 74 65 72 20 69 6e 20 77 68 69 63 68 20 74 68 65 ter in which the
75f0: 20 70 61 63 6b 61 67 65 20 69 73 0a 20 20 20 20 package is.
7600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7620: 20 20 20 20 20 2a 20 74 6f 20 62 65 20 6d 61 64 * to be mad
7630: 65 20 61 76 61 69 6c 61 62 6c 65 2e 20 2a 2f 0a e available. */.
7640: 7b 0a 23 69 66 20 54 43 4c 5f 4d 41 4a 4f 52 5f {.#if TCL_MAJOR_
7650: 56 45 52 53 49 4f 4e 20 3e 3d 20 38 20 26 26 20 VERSION >= 8 &&
7660: 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53 49 4f TCL_MINOR_VERSIO
7670: 4e 20 3e 3d 20 32 0a 20 20 20 20 69 66 20 28 21 N >= 2. if (!
7680: 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 6e Tcl_InitStubs(in
7690: 74 65 72 70 2c 20 54 43 4c 5f 56 45 52 53 49 4f terp, TCL_VERSIO
76a0: 4e 2c 20 30 29 29 20 7b 0a 20 20 20 20 20 20 20 N, 0)) {.
76b0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
76c0: 52 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a R;. }.#endif.
76d0: 20 20 20 20 53 53 4c 5f 6c 6f 61 64 5f 65 72 72 SSL_load_err
76e0: 6f 72 5f 73 74 72 69 6e 67 73 28 29 3b 0a 20 20 or_strings();.
76f0: 20 20 45 52 52 5f 6c 6f 61 64 5f 63 72 79 70 74 ERR_load_crypt
7700: 6f 5f 73 74 72 69 6e 67 73 28 29 3b 0a 20 20 20 o_strings();.
7710: 20 53 53 4c 5f 6c 69 62 72 61 72 79 5f 69 6e 69 SSL_library_ini
7720: 74 28 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 t();.. Tcl_Cr
7730: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
7740: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 70 nterp, "tls::cip
7750: 68 65 72 73 22 2c 20 43 69 70 68 65 72 73 4f 62 hers", CiphersOb
7760: 6a 43 6d 64 20 2c 20 28 43 6c 69 65 6e 74 44 61 jCmd , (ClientDa
7770: 74 61 29 20 30 2c 0a 20 20 20 20 20 20 20 20 20 ta) 0,.
7780: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 (Tc
7790: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
77a0: 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 *) NULL);.. T
77b0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
77c0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
77d0: 3a 3a 68 61 6e 64 73 68 61 6b 65 22 2c 20 48 61 ::handshake", Ha
77e0: 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 2c 20 ndshakeObjCmd ,
77f0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 0a (ClientData) 0,.
7800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7810: 20 20 20 20 20 20 28 54 63 6c 5f 43 6d 64 44 65 (Tcl_CmdDe
7820: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
7830: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 );.. Tcl_Crea
7840: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
7850: 65 72 70 2c 20 22 74 6c 73 3a 3a 69 6d 70 6f 72 erp, "tls::impor
7860: 74 22 2c 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 t", ImportObjCmd
7870: 20 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 , (ClientData)
7880: 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 0,.
7890: 20 20 20 20 20 20 20 20 20 28 54 63 6c 5f 43 6d (Tcl_Cm
78a0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
78b0: 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 ULL);.. Tcl_C
78c0: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
78d0: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 74 interp, "tls::st
78e0: 61 74 75 73 22 2c 20 53 74 61 74 75 73 4f 62 6a atus", StatusObj
78f0: 43 6d 64 20 2c 20 28 43 6c 69 65 6e 74 44 61 74 Cmd , (ClientDat
7900: 61 29 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 a) 0,.
7910: 20 20 20 20 20 20 20 20 20 20 20 20 28 54 63 6c (Tcl
7920: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
7930: 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 72 65 ) NULL);.. re
7940: 74 75 72 6e 20 54 63 6c 5f 50 6b 67 50 72 6f 76 turn Tcl_PkgProv
7950: 69 64 65 28 69 6e 74 65 72 70 2c 20 50 41 43 4b ide(interp, PACK
7960: 41 47 45 2c 20 56 45 52 53 49 4f 4e 29 3b 0a 7d AGE, VERSION);.}
7970: 0a 0a 0c 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
79b0: 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 66 65 49 . *. *.Tls_SafeI
79c0: 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d nit --. *. *.---
79d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
7a00: 2a 09 53 74 61 6e 64 61 72 64 20 70 72 6f 63 65 *.Standard proce
7a10: 64 75 72 65 20 72 65 71 75 69 72 65 64 20 62 79 dure required by
7a20: 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 49 6e 69 'load'. . *.Ini
7a30: 74 69 61 6c 69 7a 65 73 20 74 68 69 73 20 65 78 tializes this ex
7a40: 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 20 73 61 tension for a sa
7a50: 66 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a fe interpreter..
7a60: 20 2a 09 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 2d 2d 2d 2d ----------------
7a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a90: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 ---*. *. *.Sidee
7aa0: 66 66 65 63 74 73 3a 0a 20 2a 09 09 41 73 20 6f ffects:. *..As o
7ab0: 66 20 27 54 6c 73 5f 49 6e 69 74 27 0a 20 2a 0a f 'Tls_Init'. *.
7ac0: 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 41 *.Result:. *..A
7ad0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 65 72 standard Tcl er
7ae0: 72 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a 20 2a 2d ror code.. *. *-
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 2d 2d ----------------
7b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b20: 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 69 6e 74 0a -----*. */..int.
7b30: 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 28 54 63 Tls_SafeInit (Tc
7b40: 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 l_Interp* interp
7b50: 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 ).{. return T
7b60: 6c 73 5f 49 6e 69 74 20 28 69 6e 74 65 72 70 29 ls_Init (interp)
7b70: 3b 0a 7d 0a ;.}.