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 33 20 32 30 30 30 2f ,v 1.6.2.3 2000/
0090: 30 37 2f 32 36 20 32 32 3a 31 35 3a 30 37 20 68 07/26 22:15:07 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 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 Tcl_Obj *cmd
17c0: 50 74 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 65 Ptr;. char *e
17d0: 72 72 53 74 72 3b 0a 20 20 20 20 53 53 4c 20 20 rrStr;. SSL
17e0: 20 2a 73 73 6c 09 09 3d 20 28 53 53 4c 2a 29 58 *ssl..= (SSL*)X
17f0: 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 509_STORE_CTX_ge
1800: 74 5f 61 70 70 5f 64 61 74 61 28 63 74 78 29 3b t_app_data(ctx);
1810: 0a 20 20 20 20 58 35 30 39 20 20 2a 63 65 72 74 . X509 *cert
1820: 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 ..= X509_STORE_C
1830: 54 58 5f 67 65 74 5f 63 75 72 72 65 6e 74 5f 63 TX_get_current_c
1840: 65 72 74 28 63 74 78 29 3b 0a 20 20 20 20 53 74 ert(ctx);. St
1850: 61 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d 20 ate *statePtr.=
1860: 28 53 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f (State*)SSL_get_
1870: 61 70 70 5f 64 61 74 61 28 73 73 6c 29 3b 0a 20 app_data(ssl);.
1880: 20 20 20 69 6e 74 20 64 65 70 74 68 09 09 3d 20 int depth..=
1890: 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 X509_STORE_CTX_g
18a0: 65 74 5f 65 72 72 6f 72 5f 64 65 70 74 68 28 63 et_error_depth(c
18b0: 74 78 29 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 tx);. int err
18c0: 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 ..= X509_STORE_C
18d0: 54 58 5f 67 65 74 5f 65 72 72 6f 72 28 63 74 78 TX_get_error(ctx
18e0: 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 );.. dprintf(
18f0: 73 74 64 65 72 72 2c 20 22 56 65 72 69 66 79 3a stderr, "Verify:
1900: 20 25 64 5c 6e 22 2c 20 6f 6b 29 3b 0a 0a 20 20 %d\n", ok);..
1910: 20 20 69 66 20 28 21 6f 6b 29 20 7b 0a 09 65 72 if (!ok) {..er
1920: 72 53 74 72 20 3d 20 28 63 68 61 72 2a 29 58 35 rStr = (char*)X5
1930: 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 09_verify_cert_e
1940: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
1950: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
1960: 65 72 72 53 74 72 20 3d 20 28 63 68 61 72 20 2a errStr = (char *
1970: 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 )0;. }.. i
1980: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c f (statePtr->cal
1990: 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 lback == (Tcl_Ob
19a0: 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 j*)NULL) {..if (
19b0: 73 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 statePtr->vflags
19c0: 20 26 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 & SSL_VERIFY_FA
19d0: 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 IL_IF_NO_PEER_CE
19e0: 52 54 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 RT) {.. retur
19f0: 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a n ok;..} else {.
1a00: 09 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 09 . return 1;..
1a10: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 }. }. cmdP
1a20: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 tr = Tcl_Duplica
1a30: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e teObj(statePtr->
1a40: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 callback);..
1a50: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1a60: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
1a70: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1a80: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 tr, .. Tcl_Ne
1a90: 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 76 65 72 wStringObj( "ver
1aa0: 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 ify", -1));..
1ab0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1ac0: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1ad0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1ae0: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e Ptr, .. Tcl_N
1af0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c ewStringObj( Tcl
1b00: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
1b10: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
1b20: 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c -1) );.. Tcl
1b30: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1b40: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1b50: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1b60: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 .. Tcl_NewInt
1b70: 4f 62 6a 28 20 64 65 70 74 68 29 20 29 3b 0a 0a Obj( depth) );..
1b80: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1b90: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1ba0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1bb0: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 6c 73 cmdPtr,.. Tls
1bc0: 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 73 74 61 _NewX509Obj( sta
1bd0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
1be0: 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c ert) );.. Tcl
1bf0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1c00: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1c10: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1c20: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 .. Tcl_NewInt
1c30: 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a 20 20 20 Obj( ok) );..
1c40: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1c50: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1c60: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1c70: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1c80: 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 72 72 53 wStringObj( errS
1c90: 74 72 20 3f 20 65 72 72 53 74 72 20 3a 20 22 22 tr ? errStr : ""
1ca0: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
1cb0: 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 l_Preserve( (Cli
1cc0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
1cd0: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 r->interp);.
1ce0: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
1cf0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1d00: 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 Ptr);.. Tcl_I
1d10: 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 ncrRefCount( cmd
1d20: 50 74 72 29 3b 0a 20 20 20 20 69 66 20 28 54 63 Ptr);. if (Tc
1d30: 6c 5f 47 6c 6f 62 61 6c 45 76 61 6c 4f 62 6a 28 l_GlobalEvalObj(
1d40: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1d50: 2c 20 63 6d 64 50 74 72 29 20 21 3d 20 54 43 4c , cmdPtr) != TCL
1d60: 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 69 74 20 67 6f _OK) {../* it go
1d70: 74 20 61 6e 20 65 72 72 6f 72 20 2d 20 72 65 6a t an error - rej
1d80: 65 63 74 20 74 68 65 20 63 65 72 74 69 66 69 63 ect the certific
1d90: 61 74 65 20 2a 2f 0a 09 54 63 6c 5f 42 61 63 6b ate */..Tcl_Back
1da0: 67 72 6f 75 6e 64 45 72 72 6f 72 28 20 73 74 61 groundError( sta
1db0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
1dc0: 09 6f 6b 20 3d 20 30 3b 0a 20 20 20 20 7d 20 65 .ok = 0;. } e
1dd0: 6c 73 65 20 7b 0a 09 69 66 20 28 54 63 6c 5f 47 lse {..if (Tcl_G
1de0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 20 73 74 etIntFromObj( st
1df0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 0a atePtr->interp,.
1e00: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 4f 62 6a .. Tcl_GetObj
1e10: 52 65 73 75 6c 74 28 20 73 74 61 74 65 50 74 72 Result( statePtr
1e20: 2d 3e 69 6e 74 65 72 70 29 2c 20 26 6f 6b 29 20 ->interp), &ok)
1e30: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 != TCL_OK) {..
1e40: 20 20 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 Tcl_Background
1e50: 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d Error( statePtr-
1e60: 3e 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 6f >interp);.. o
1e70: 6b 20 3d 20 30 3b 0a 09 7d 0a 20 20 20 20 7d 0a k = 0;..}. }.
1e80: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
1e90: 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 0a ount( cmdPtr);..
1ea0: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
1eb0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
1ec0: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c atePtr);. Tcl
1ed0: 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e _Release( (Clien
1ee0: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d tData) statePtr-
1ef0: 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 72 >interp);.. r
1f00: 65 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a 20 6c 65 eturn(ok);./* le
1f10: 61 76 65 20 74 68 65 20 64 69 73 70 6f 73 69 74 ave the disposit
1f20: 69 6f 6e 20 61 73 20 53 53 4c 20 73 65 74 20 69 ion as SSL set i
1f30: 74 20 2a 2f 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d t */.}.../*. *--
1f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f80: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 45 72 72 6f -. *. * Tls_Erro
1f90: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 73 r --. *. *.Calls
1fa0: 20 63 61 6c 6c 62 61 63 6b 20 77 69 74 68 20 24 callback with $
1fb0: 66 64 20 61 6e 64 20 24 6d 73 67 20 2d 20 73 6f fd and $msg - so
1fc0: 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 63 61 the callback ca
1fd0: 6e 20 64 65 63 69 64 65 0a 20 2a 09 77 68 61 74 n decide. *.what
1fe0: 20 74 6f 20 64 6f 20 77 69 74 68 20 65 72 72 6f to do with erro
1ff0: 72 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 rs.. *. * Result
2000: 73 3a 0a 20 2a 09 6f 6b 20 2d 20 6c 65 74 20 53 s:. *.ok - let S
2010: 53 4c 20 68 61 6e 64 6c 65 20 69 74 0a 20 2a 0a SL handle it. *.
2020: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2030: 0a 20 2a 09 54 68 65 20 65 72 72 20 66 69 65 6c . *.The err fiel
2040: 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 d of the current
2050: 6c 79 20 6f 70 65 72 61 74 69 76 65 20 53 74 61 ly operative Sta
2060: 74 65 20 69 73 20 73 65 74 0a 20 2a 09 20 20 74 te is set. *. t
2070: 6f 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 o a string descr
2080: 69 62 69 6e 67 20 74 68 65 20 53 53 4c 20 6e 65 ibing the SSL ne
2090: 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c 75 72 gotiation failur
20a0: 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d e reason. *-----
20b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
20f0: 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 45 72 72 6f */.void.Tls_Erro
2100: 72 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 r(State *statePt
2110: 72 2c 20 63 68 61 72 20 2a 6d 73 67 29 0a 7b 0a r, char *msg).{.
2120: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 Tcl_Obj *cmd
2130: 50 74 72 3b 0a 0a 20 20 20 20 69 66 20 28 6d 73 Ptr;.. if (ms
2140: 67 20 26 26 20 2a 6d 73 67 29 20 7b 0a 09 54 63 g && *msg) {..Tc
2150: 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 73 l_SetErrorCode(s
2160: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
2170: 20 22 53 53 4c 22 2c 20 6d 73 67 2c 20 28 63 68 "SSL", msg, (ch
2180: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 20 20 20 20 ar *)NULL);.
2190: 7d 20 65 6c 73 65 20 7b 0a 09 6d 73 67 20 3d 20 } else {..msg =
21a0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
21b0: 6d 4f 62 6a 28 54 63 6c 5f 47 65 74 4f 62 6a 52 mObj(Tcl_GetObjR
21c0: 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e esult(statePtr->
21d0: 69 6e 74 65 72 70 29 2c 20 4e 55 4c 4c 29 3b 0a interp), NULL);.
21e0: 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 }. stateP
21f0: 74 72 2d 3e 65 72 72 20 3d 20 6d 73 67 3b 0a 0a tr->err = msg;..
2200: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
2210: 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 ->callback == (T
2220: 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a cl_Obj*)NULL) {.
2230: 09 63 68 61 72 20 62 75 66 5b 42 55 46 53 49 5a .char buf[BUFSIZ
2240: 5d 3b 0a 09 73 70 72 69 6e 74 66 28 62 75 66 2c ];..sprintf(buf,
2250: 20 22 53 53 4c 20 63 68 61 6e 6e 65 6c 20 5c 22 "SSL channel \"
2260: 25 73 5c 22 3a 20 65 72 72 6f 72 3a 20 25 73 22 %s\": error: %s"
2270: 2c 0a 09 20 20 20 20 54 63 6c 5f 47 65 74 43 68 ,.. Tcl_GetCh
2280: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
2290: 74 72 2d 3e 73 65 6c 66 29 2c 20 6d 73 67 29 3b tr->self), msg);
22a0: 0a 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 ..Tcl_SetResult(
22b0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
22c0: 70 2c 20 62 75 66 2c 20 54 43 4c 5f 56 4f 4c 41 p, buf, TCL_VOLA
22d0: 54 49 4c 45 29 3b 0a 09 54 63 6c 5f 42 61 63 6b TILE);..Tcl_Back
22e0: 67 72 6f 75 6e 64 45 72 72 6f 72 28 20 73 74 61 groundError( sta
22f0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
2300: 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 .return;. }.
2310: 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f cmdPtr = Tcl_
2320: 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 DuplicateObj(sta
2330: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 tePtr->callback)
2340: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
2350: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
2360: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2370: 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 , cmdPtr, ..
2380: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
2390: 28 22 65 72 72 6f 72 22 2c 20 2d 31 29 29 3b 0a ("error", -1));.
23a0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
23b0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 AppendElement(st
23c0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
23d0: 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 cmdPtr, .. Tc
23e0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 54 l_NewStringObj(T
23f0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d cl_GetChannelNam
2400: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 e(statePtr->self
2410: 29 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 ), -1));.. Tc
2420: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2430: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d lement(statePtr-
2440: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
2450: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
2460: 69 6e 67 4f 62 6a 28 6d 73 67 2c 20 2d 31 29 29 ingObj(msg, -1))
2470: 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 ;.. Tcl_Prese
2480: 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 rve((ClientData)
2490: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
24a0: 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 p);. Tcl_Pres
24b0: 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74 61 erve((ClientData
24c0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 ) statePtr);..
24d0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
24e0: 6e 74 28 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 nt(cmdPtr);.
24f0: 69 66 20 28 54 63 6c 5f 47 6c 6f 62 61 6c 45 76 if (Tcl_GlobalEv
2500: 61 6c 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e alObj(statePtr->
2510: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 29 20 interp, cmdPtr)
2520: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 63 != TCL_OK) {..Tc
2530: 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f l_BackgroundErro
2540: 72 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 r(statePtr->inte
2550: 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 rp);. }. T
2560: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
2570: 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 cmdPtr);.. Tc
2580: 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e l_Release((Clien
2590: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 tData) statePtr)
25a0: 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 ;. Tcl_Releas
25b0: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
25c0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
25d0: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
25e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2620: 2a 0a 20 2a 20 50 61 73 73 77 6f 72 64 43 61 6c *. * PasswordCal
2630: 6c 62 61 63 6b 20 2d 2d 20 0a 20 2a 0a 20 2a 09 lback -- . *. *.
2640: 43 61 6c 6c 65 64 20 77 68 65 6e 20 61 20 70 61 Called when a pa
2650: 73 73 77 6f 72 64 20 69 73 20 6e 65 65 64 65 64 ssword is needed
2660: 20 74 6f 20 75 6e 70 61 63 6b 20 52 53 41 20 61 to unpack RSA a
2670: 6e 64 20 50 45 4d 20 6b 65 79 73 0a 20 2a 09 45 nd PEM keys. *.E
2680: 76 61 6c 73 20 74 68 65 20 74 63 6c 20 70 72 6f vals the tcl pro
2690: 63 3a 20 20 74 6c 73 3a 3a 70 61 73 73 77 6f 72 c: tls::passwor
26a0: 64 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 d and returns th
26b0: 65 20 72 65 73 75 6c 74 20 61 73 0a 20 2a 09 74 e result as. *.t
26c0: 68 65 20 70 61 73 73 77 6f 72 64 0a 20 2a 2d 2d he password. *--
26d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
26e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
26f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2710: 2d 0a 20 2a 2f 0a 23 69 66 64 65 66 20 50 52 45 -. */.#ifdef PRE
2720: 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f _OPENSSL_0_9_4./
2730: 2a 0a 20 2a 20 4e 6f 20 77 61 79 20 74 6f 20 68 *. * No way to h
2740: 61 6e 64 6c 65 20 75 73 65 72 2d 64 61 74 61 20 andle user-data
2750: 74 68 65 72 65 66 6f 72 65 20 6e 6f 20 77 61 79 therefore no way
2760: 20 77 69 74 68 6f 75 74 20 61 20 67 6c 6f 62 61 without a globa
2770: 6c 0a 20 2a 20 76 61 72 69 61 62 6c 65 20 74 6f l. * variable to
2780: 20 61 63 63 65 73 73 20 74 68 65 20 54 63 6c 20 access the Tcl
2790: 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a interpreter..*/.
27a0: 73 74 61 74 69 63 20 69 6e 74 0a 50 61 73 73 77 static int.Passw
27b0: 6f 72 64 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 ordCallback(char
27c0: 20 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c *buf, int size,
27d0: 20 69 6e 74 20 76 65 72 69 66 79 29 0a 7b 0a 20 int verify).{.
27e0: 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 7d 0a return -1;.}.
27f0: 23 65 6c 73 65 0a 73 74 61 74 69 63 20 69 6e 74 #else.static int
2800: 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 .PasswordCallbac
2810: 6b 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 k(char *buf, int
2820: 20 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 66 size, int verif
2830: 79 2c 20 76 6f 69 64 20 2a 75 64 61 74 61 29 0a y, void *udata).
2840: 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 {. Tcl_Interp
2850: 20 2a 69 6e 74 65 72 70 20 3d 20 28 54 63 6c 5f *interp = (Tcl_
2860: 49 6e 74 65 72 70 2a 29 75 64 61 74 61 3b 0a 0a Interp*)udata;..
2870: 20 20 20 20 69 66 20 28 54 63 6c 5f 45 76 61 6c if (Tcl_Eval
2880: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 (interp, "tls::p
2890: 61 73 73 77 6f 72 64 22 29 20 3d 3d 20 54 43 4c assword") == TCL
28a0: 5f 4f 4b 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 _OK) {..char *re
28b0: 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e t = Tcl_GetStrin
28c0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b gResult(interp);
28d0: 0a 20 20 20 20 20 20 20 20 73 74 72 6e 63 70 79 . strncpy
28e0: 28 62 75 66 2c 20 72 65 74 2c 20 73 69 7a 65 29 (buf, ret, size)
28f0: 3b 0a 09 72 65 74 75 72 6e 20 73 74 72 6c 65 6e ;..return strlen
2900: 28 72 65 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 (ret);. } els
2910: 65 20 7b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a e {..return -1;.
2920: 20 20 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0c }.}.#endif..
2930: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
2980: 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d CiphersObjCmd --
2990: 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 list available
29a0: 63 69 70 68 65 72 73 0a 20 2a 0a 20 2a 09 54 68 ciphers. *. *.Th
29b0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 is procedure is
29c0: 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 invoked to proce
29d0: 73 73 20 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 ss the "tls::cip
29e0: 68 65 72 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a hers" command. *
29f0: 09 74 6f 20 6c 69 73 74 20 61 76 61 69 6c 61 62 .to list availab
2a00: 6c 65 20 63 69 70 68 65 72 73 2c 20 62 61 73 65 le ciphers, base
2a10: 64 20 75 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 d upon protocol
2a20: 73 65 6c 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 selected.. *. *
2a30: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
2a40: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
2a50: 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 t list.. *. * Si
2a60: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 de effects:. *.c
2a70: 6f 6e 73 74 72 75 63 74 73 20 61 6e 64 20 64 65 onstructs and de
2a80: 73 74 72 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 stroys SSL conte
2a90: 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d xt (CTX). *. *--
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ae0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
2af0: 0a 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 28 63 .CiphersObjCmd(c
2b00: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 lientData, inter
2b10: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 p, objc, objv).
2b20: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
2b30: 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 ientData;./* Not
2b40: 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 used. */. Tc
2b50: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
2b60: 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a ;. int objc;.
2b70: 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e Tcl_Obj.*CON
2b80: 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 ST objv[];.{.
2b90: 20 73 74 61 74 69 63 20 63 68 61 72 20 2a 70 72 static char *pr
2ba0: 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 22 otocols[] = {.."
2bb0: 73 73 6c 32 22 2c 0a 09 22 73 73 6c 33 22 2c 0a ssl2",.."ssl3",.
2bc0: 09 22 74 6c 73 31 22 2c 0a 09 4e 55 4c 4c 0a 20 ."tls1",..NULL.
2bd0: 20 20 20 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 70 };. enum p
2be0: 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 4c 53 5f 53 rotocol {..TLS_S
2bf0: 53 4c 32 2c 0a 09 54 4c 53 5f 53 53 4c 33 2c 0a SL2,..TLS_SSL3,.
2c00: 09 54 4c 53 5f 54 4c 53 31 2c 0a 09 54 4c 53 5f .TLS_TLS1,..TLS_
2c10: 4e 4f 4e 45 0a 20 20 20 20 7d 3b 0a 20 20 20 20 NONE. };.
2c20: 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b Tcl_Obj *objPtr;
2c30: 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 . SSL_CTX *ct
2c40: 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 x = NULL;. SS
2c50: 4c 20 2a 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 L *ssl = NULL;.
2c60: 20 20 20 53 54 41 43 4b 5f 4f 46 28 53 53 4c 5f STACK_OF(SSL_
2c70: 43 49 50 48 45 52 29 20 2a 73 6b 3b 0a 20 20 20 CIPHER) *sk;.
2c80: 20 63 68 61 72 20 2a 63 70 2c 20 62 75 66 5b 42 char *cp, buf[B
2c90: 55 46 53 49 5a 5d 3b 0a 20 20 20 20 69 6e 74 20 UFSIZ];. int
2ca0: 69 6e 64 65 78 2c 20 76 65 72 62 6f 73 65 20 3d index, verbose =
2cb0: 20 30 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 0;.. if (obj
2cc0: 63 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 c < 2 || objc >
2cd0: 33 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 3) {..Tcl_WrongN
2ce0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
2cf0: 2c 20 6f 62 6a 76 2c 20 22 70 72 6f 74 6f 63 6f , objv, "protoco
2d00: 6c 20 3f 76 65 72 62 6f 73 65 3f 22 29 3b 0a 20 l ?verbose?");.
2d10: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 return TC
2d20: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
2d30: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e if (Tcl_GetIn
2d40: 64 65 78 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 dexFromObj( inte
2d50: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f rp, objv[1], pro
2d60: 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f tocols, "protoco
2d70: 6c 22 2c 20 30 2c 0a 09 26 69 6e 64 65 78 29 20 l", 0,..&index)
2d80: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 != TCL_OK) {..re
2d90: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2da0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 6f 62 }. if (ob
2db0: 6a 63 20 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 jc > 2 && Tcl_Ge
2dc0: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
2dd0: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d interp, objv[2]
2de0: 2c 0a 09 26 76 65 72 62 6f 73 65 29 20 21 3d 20 ,..&verbose) !=
2df0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 TCL_OK) {..retur
2e00: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
2e10: 20 7d 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 }. switch ((
2e20: 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e enum protocol)in
2e30: 64 65 78 29 20 7b 0a 20 20 20 20 63 61 73 65 20 dex) {. case
2e40: 54 4c 53 5f 53 53 4c 32 3a 0a 23 69 66 20 64 65 TLS_SSL2:.#if de
2e50: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 fined(NO_SSL2)..
2e60: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
2e70: 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f t(interp, "proto
2e80: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
2e90: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 d", NULL);...ret
2ea0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
2eb0: 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c else...ctx = SSL
2ec0: 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d _CTX_new(SSLv2_m
2ed0: 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b ethod()); break;
2ee0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 .#endif. case
2ef0: 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 69 66 20 64 TLS_SSL3:.#if d
2f00: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a efined(NO_SSL3).
2f10: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
2f20: 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 lt(interp, "prot
2f30: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 ocol not support
2f40: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 ed", NULL);...re
2f50: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2f60: 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 #else...ctx = SS
2f70: 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 33 5f L_CTX_new(SSLv3_
2f80: 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b method()); break
2f90: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 ;.#endif. cas
2fa0: 65 20 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 e TLS_TLS1:.#if
2fb0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 defined(NO_TLS1)
2fc0: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 ...Tcl_AppendRes
2fd0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f ult(interp, "pro
2fe0: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
2ff0: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 ted", NULL);...r
3000: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3010: 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 .#else...ctx = S
3020: 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 SL_CTX_new(TLSv1
3030: 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 _method()); brea
3040: 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a k;.#endif. }.
3050: 20 20 20 20 69 66 20 28 63 74 78 20 3d 3d 20 4e if (ctx == N
3060: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
3070: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
3080: 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 REASON(), (char
3090: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 *) NULL);..retu
30a0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
30b0: 20 20 7d 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 }. ssl = SS
30c0: 4c 5f 6e 65 77 28 63 74 78 29 3b 0a 20 20 20 20 L_new(ctx);.
30d0: 69 66 20 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 if (ssl == NULL)
30e0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
30f0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 sult(interp, REA
3100: 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 SON(), (char *)
3110: 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f NULL);..SSL_CTX_
3120: 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 free(ctx);..retu
3130: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3140: 20 20 7d 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d }. objPtr =
3150: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
3160: 20 30 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 0, NULL);..
3170: 69 66 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a if (!verbose) {.
3180: 09 66 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b .for (index = 0;
3190: 20 3b 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 ; index++) {..
31a0: 20 20 20 63 70 20 3d 20 28 63 68 61 72 2a 29 53 cp = (char*)S
31b0: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f 6c 69 SL_get_cipher_li
31c0: 73 74 28 20 73 73 6c 2c 20 69 6e 64 65 78 29 3b st( ssl, index);
31d0: 0a 09 20 20 20 20 69 66 20 28 63 70 20 3d 3d 20 .. if (cp ==
31e0: 4e 55 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 20 20 NULL) break;..
31f0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
3200: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 endElement( inte
3210: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 rp, objPtr,...Tc
3220: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
3230: 63 70 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 cp, -1) );..}.
3240: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d } else {..sk =
3250: 20 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 SSL_get_ciphers
3260: 28 73 73 6c 29 3b 0a 0a 09 66 6f 72 20 28 69 6e (ssl);...for (in
3270: 64 65 78 20 3d 20 30 3b 20 69 6e 64 65 78 20 3c dex = 0; index <
3280: 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e sk_SSL_CIPHER_n
3290: 75 6d 28 73 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 um(sk); index++)
32a0: 20 7b 0a 09 20 20 20 20 72 65 67 69 73 74 65 72 {.. register
32b0: 20 69 6e 74 20 69 3b 0a 09 20 20 20 20 53 53 4c int i;.. SSL
32c0: 5f 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 74 _CIPHER_descript
32d0: 69 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 48 ion( sk_SSL_CIPH
32e0: 45 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e ER_value( sk, in
32f0: 64 65 78 29 2c 0a 09 09 09 09 20 20 20 20 62 75 dex),..... bu
3300: 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 3b f, sizeof(buf));
3310: 0a 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 73 .. for (i = s
3320: 74 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b 20 trlen(buf) - 1;
3330: 69 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 20 i ; i--) {...if
3340: 28 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 20 7c (buf[i] == ' ' |
3350: 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e 27 | buf[i] == '\n'
3360: 20 7c 7c 0a 09 09 20 20 20 20 62 75 66 5b 69 5d ||... buf[i]
3370: 20 3d 3d 20 27 5c 72 27 20 7c 7c 20 62 75 66 5b == '\r' || buf[
3380: 69 5d 20 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 09 i] == '\t') {...
3390: 20 20 20 20 62 75 66 5b 69 5d 20 3d 20 27 5c 30 buf[i] = '\0
33a0: 27 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 ';...} else {...
33b0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 break;...}..
33c0: 20 20 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f 4c }.. Tcl_L
33d0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
33e0: 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a ent( interp, obj
33f0: 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 Ptr,...Tcl_NewSt
3400: 72 69 6e 67 4f 62 6a 28 20 62 75 66 2c 20 2d 31 ringObj( buf, -1
3410: 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 ) );..}. }.
3420: 20 20 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b SSL_free(ssl);
3430: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 . SSL_CTX_fre
3440: 65 28 63 74 78 29 3b 0a 0a 20 20 20 20 54 63 6c e(ctx);.. Tcl
3450: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 69 _SetObjResult( i
3460: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a nterp, objPtr);.
3470: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
3480: 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d K;.}.../*. *----
3490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
34d0: 20 2a 0a 20 2a 20 48 61 6e 64 73 68 61 6b 65 4f *. * HandshakeO
34e0: 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 bjCmd --. *. *.T
34f0: 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 his command is u
3500: 73 65 64 20 74 6f 20 76 65 72 69 66 79 20 77 68 sed to verify wh
3510: 65 74 68 65 72 20 74 68 65 20 68 61 6e 64 73 68 ether the handsh
3520: 61 6b 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 0a ake is complete.
3530: 20 2a 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 2a *.or not.. *. *
3540: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
3550: 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 tandard Tcl resu
3560: 6c 74 2e 20 31 20 6d 65 61 6e 73 20 68 61 6e 64 lt. 1 means hand
3570: 73 68 61 6b 65 20 63 6f 6d 70 6c 65 74 65 2c 20 shake complete,
3580: 30 20 6d 65 61 6e 73 20 70 65 6e 64 69 6e 67 2e 0 means pending.
3590: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
35a0: 63 74 73 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 63 cts:. *.May forc
35b0: 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f e SSL negotiatio
35c0: 6e 20 74 6f 20 74 61 6b 65 20 70 6c 61 63 65 2e n to take place.
35d0: 0a 20 2a 0a 20 2a 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 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
3620: 74 61 74 69 63 20 69 6e 74 0a 48 61 6e 64 73 68 tatic int.Handsh
3630: 61 6b 65 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 akeObjCmd(client
3640: 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 Data, interp, ob
3650: 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c jc, objv). Cl
3660: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
3670: 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 ata;./* Not used
3680: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 . */. Tcl_Int
3690: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 erp *interp;.
36a0: 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 int objc;. T
36b0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
36c0: 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f jv[];.{. Tcl_
36d0: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f Channel chan;../
36e0: 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f * The channel to
36f0: 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 set a mode on.
3700: 2a 2f 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 */. State *st
3710: 61 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 atePtr;../* clie
3720: 6e 74 20 73 74 61 74 65 20 66 6f 72 20 73 73 6c nt state for ssl
3730: 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 20 69 socket */. i
3740: 6e 74 20 72 65 74 20 3d 20 31 3b 0a 0a 20 20 20 nt ret = 1;..
3750: 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 if (objc != 2)
3760: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
3770: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
3780: 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b bjv, "channel");
3790: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 . return
37a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
37b0: 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c .. chan = Tcl
37c0: 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 _GetChannel(inte
37d0: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
37e0: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d gFromObj(objv[1]
37f0: 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a , NULL), NULL);.
3800: 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 if (chan ==
3810: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
3820: 4c 4c 29 20 7b 0a 20 20 20 20 20 20 20 20 72 65 LL) {. re
3830: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3840: 20 20 20 20 7d 0a 23 69 66 64 65 66 20 54 43 4c }.#ifdef TCL
3850: 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e _CHANNEL_VERSION
3860: 5f 32 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a _2. /*. *
3870: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
3880: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
3890: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 20 20 most channel.
38a0: 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 */. chan =
38b0: 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 Tcl_GetTopChanne
38c0: 6c 28 63 68 61 6e 29 3b 0a 23 65 6e 64 69 66 0a l(chan);.#endif.
38d0: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 if (Tcl_GetC
38e0: 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 hannelType(chan)
38f0: 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 != Tls_ChannelT
3900: 79 70 65 28 29 29 20 7b 0a 20 20 20 20 20 20 20 ype()) {.
3910: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
3920: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 t(interp, "bad c
3930: 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f hannel \"", Tcl_
3940: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 GetChannelName(c
3950: 68 61 6e 29 2c 0a 20 20 20 20 20 20 20 20 20 20 han),.
3960: 20 20 20 20 20 20 22 5c 22 3a 20 6e 6f 74 20 61 "\": not a
3970: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e TLS channel", N
3980: 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 72 65 ULL);. re
3990: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
39a0: 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 }. stateP
39b0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 54 63 tr = (State *)Tc
39c0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
39d0: 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a anceData(chan);.
39e0: 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f 69 73 . if (!SSL_is
39f0: 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 73 _init_finished(s
3a00: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b tatePtr->ssl)) {
3a10: 0a 09 69 6e 74 20 65 72 72 3b 0a 09 72 65 74 20 ..int err;..ret
3a20: 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e = Tls_WaitForCon
3a30: 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 nect(statePtr, &
3a40: 65 72 72 29 3b 0a 09 69 66 20 28 72 65 74 20 3c err);..if (ret <
3a50: 20 30 29 20 7b 0a 09 20 20 20 20 63 68 61 72 20 0) {.. char
3a60: 2a 65 72 72 53 74 72 20 3d 20 73 74 61 74 65 50 *errStr = stateP
3a70: 74 72 2d 3e 65 72 72 3b 0a 09 20 20 20 20 54 63 tr->err;.. Tc
3a80: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
3a90: 74 65 72 70 29 3b 0a 09 20 20 20 20 54 63 6c 5f terp);.. Tcl_
3aa0: 53 65 74 45 72 72 6e 6f 28 65 72 72 29 3b 0a 0a SetErrno(err);..
3ab0: 09 20 20 20 20 69 66 20 28 21 65 72 72 53 74 72 . if (!errStr
3ac0: 20 7c 7c 20 2a 65 72 72 53 74 72 20 3d 3d 20 30 || *errStr == 0
3ad0: 29 20 7b 0a 09 20 20 20 20 20 20 20 20 65 72 72 ) {.. err
3ae0: 53 74 72 20 3d 20 54 63 6c 5f 50 6f 73 69 78 45 Str = Tcl_PosixE
3af0: 72 72 6f 72 28 69 6e 74 65 72 70 29 3b 0a 09 20 rror(interp);..
3b00: 20 20 20 7d 0a 0a 09 20 20 20 20 54 63 6c 5f 41 }... Tcl_A
3b10: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3b20: 72 70 2c 20 22 68 61 6e 64 73 68 61 6b 65 20 66 rp, "handshake f
3b30: 61 69 6c 65 64 3a 20 22 2c 20 65 72 72 53 74 72 ailed: ", errStr
3b40: 2c 0a 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 ,... (char *)
3b50: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
3b60: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
3b70: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c }. }.. Tcl
3b80: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
3b90: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
3ba0: 4f 62 6a 28 72 65 74 29 29 3b 0a 20 20 20 20 72 Obj(ret));. r
3bb0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
3bc0: 0c 0a 2f 2a 0a 20 2a 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 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
3c10: 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d ImportObjCmd --
3c20: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 . *. *.This proc
3c30: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
3c40: 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 to process the
3c50: 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a "ssl" command. *
3c60: 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 6f 6d 6d . *.The ssl comm
3c70: 61 6e 64 20 70 75 73 68 65 73 20 53 53 4c 20 6f and pushes SSL o
3c80: 76 65 72 20 61 20 28 6e 65 77 6c 79 20 63 6f 6e ver a (newly con
3c90: 6e 65 63 74 65 64 29 20 74 63 70 20 73 6f 63 6b nected) tcp sock
3ca0: 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 et. *. * Results
3cb0: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
3cc0: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
3cd0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3ce0: 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 *.May modify th
3cf0: 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e e behavior of an
3d00: 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a IO channel.. *.
3d10: 20 2a 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 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
3d60: 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 c int.ImportObjC
3d70: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 md(clientData, i
3d80: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
3d90: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 v). ClientDat
3da0: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a a clientData;./*
3db0: 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 Not used. */.
3dc0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
3dd0: 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 terp;. int ob
3de0: 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 jc;. Tcl_Obj
3df0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b *CONST objv[];.{
3e00: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
3e10: 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 chan;../* The c
3e20: 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 hannel to set a
3e30: 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 mode on. */.
3e40: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
3e50: 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 ../* client stat
3e60: 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 e for ssl socket
3e70: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 */. SSL_CTX
3e80: 2a 63 74 78 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 *ctx.= NULL;.
3e90: 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70 74 Tcl_Obj *script
3ea0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 .= NULL;. int
3eb0: 20 69 64 78 3b 0a 20 20 20 20 69 6e 74 20 66 6c idx;. int fl
3ec0: 61 67 73 09 09 3d 20 54 4c 53 5f 54 43 4c 5f 49 ags..= TLS_TCL_I
3ed0: 4e 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 NIT;. int ser
3ee0: 76 65 72 09 09 3d 20 30 3b 09 2f 2a 20 69 73 20 ver..= 0;./* is
3ef0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d connection incom
3f00: 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f ing or outgoing?
3f10: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 */. char *ke
3f20: 79 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 y..= NULL;. c
3f30: 68 61 72 20 2a 63 65 72 74 09 09 3d 20 4e 55 4c har *cert..= NUL
3f40: 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 L;. char *cip
3f50: 68 65 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 hers.= NULL;.
3f60: 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 3d 20 char *CAfile.=
3f70: 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a NULL;. char *
3f80: 43 41 64 69 72 09 09 3d 20 4e 55 4c 4c 3b 0a 20 CAdir..= NULL;.
3f90: 20 20 20 63 68 61 72 20 2a 6d 6f 64 65 6c 09 09 char *model..
3fa0: 3d 20 4e 55 4c 4c 3b 0a 23 69 66 20 64 65 66 69 = NULL;.#if defi
3fb0: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 ned(NO_SSL2).
3fc0: 20 69 6e 74 20 73 73 6c 32 20 3d 20 30 3b 0a 23 int ssl2 = 0;.#
3fd0: 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 73 6c else. int ssl
3fe0: 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 2 = 1;.#endif.#i
3ff0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c f defined(NO_SSL
4000: 33 29 0a 20 20 20 20 69 6e 74 20 73 73 6c 33 20 3). int ssl3
4010: 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 20 69 = 0;.#else. i
4020: 6e 74 20 73 73 6c 33 20 3d 20 31 3b 0a 23 65 6e nt ssl3 = 1;.#en
4030: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 dif.#if defined(
4040: 4e 4f 5f 53 53 4c 32 29 20 26 26 20 64 65 66 69 NO_SSL2) && defi
4050: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 ned(NO_SSL3).
4060: 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 3b 0a 23 int tls1 = 1;.#
4070: 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 74 6c 73 else. int tls
4080: 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 20 20 1 = 0;.#endif.
4090: 20 20 69 6e 74 20 70 72 6f 74 6f 20 3d 20 30 3b int proto = 0;
40a0: 0a 20 20 20 20 69 6e 74 20 76 65 72 69 66 79 20 . int verify
40b0: 3d 20 30 2c 20 72 65 71 75 69 72 65 20 3d 20 30 = 0, require = 0
40c0: 2c 20 72 65 71 75 65 73 74 20 3d 20 31 3b 0a 0a , request = 1;..
40d0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 if (objc < 2
40e0: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
40f0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
4100: 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 20 objv, "channel
4110: 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a 20 20 20 ?options?");.
4120: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
4130: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
4140: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
4150: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
4160: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
4170: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 mObj(objv[1], NU
4180: 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 LL), NULL);.
4190: 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c if (chan == (Tcl
41a0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
41b0: 7b 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e {. return
41c0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
41d0: 7d 0a 23 69 66 64 65 66 20 54 43 4c 5f 43 48 41 }.#ifdef TCL_CHA
41e0: 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 0a 20 NNEL_VERSION_2.
41f0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b /*. * Mak
4200: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
4210: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
4220: 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f channel. */
4230: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
4240: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
4250: 61 6e 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 an);.#endif..
4260: 20 66 6f 72 20 28 69 64 78 20 3d 20 32 3b 20 69 for (idx = 2; i
4270: 64 78 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b dx < objc; idx++
4280: 29 20 7b 0a 09 63 68 61 72 20 2a 6f 70 74 20 3d ) {..char *opt =
4290: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
42a0: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d 2c omObj(objv[idx],
42b0: 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f 70 NULL);...if (op
42c0: 74 5b 30 5d 20 21 3d 20 27 2d 27 29 0a 09 20 20 t[0] != '-')..
42d0: 20 20 62 72 65 61 6b 3b 0a 0a 09 4f 50 54 53 54 break;...OPTST
42e0: 52 28 20 22 2d 63 61 66 69 6c 65 22 2c 20 43 41 R( "-cafile", CA
42f0: 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 28 20 file);..OPTSTR(
4300: 22 2d 63 61 64 69 72 22 2c 20 43 41 64 69 72 29 "-cadir", CAdir)
4310: 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 65 72 ;..OPTSTR( "-cer
4320: 74 66 69 6c 65 22 2c 20 63 65 72 74 29 3b 0a 09 tfile", cert);..
4330: 4f 50 54 53 54 52 28 20 22 2d 63 69 70 68 65 72 OPTSTR( "-cipher
4340: 22 2c 20 63 69 70 68 65 72 73 29 3b 0a 09 4f 50 ", ciphers);..OP
4350: 54 4f 42 4a 28 20 22 2d 63 6f 6d 6d 61 6e 64 22 TOBJ( "-command"
4360: 2c 20 73 63 72 69 70 74 29 3b 0a 09 4f 50 54 53 , script);..OPTS
4370: 54 52 28 20 22 2d 6b 65 79 66 69 6c 65 22 2c 20 TR( "-keyfile",
4380: 6b 65 79 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 key);..OPTSTR( "
4390: 2d 6d 6f 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 3b -model", model);
43a0: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 ..OPTBOOL( "-req
43b0: 75 69 72 65 22 2c 20 72 65 71 75 69 72 65 29 3b uire", require);
43c0: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 ..OPTBOOL( "-req
43d0: 75 65 73 74 22 2c 20 72 65 71 75 65 73 74 29 3b uest", request);
43e0: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 65 72 ..OPTBOOL( "-ser
43f0: 76 65 72 22 2c 20 73 65 72 76 65 72 29 3b 0a 0a ver", server);..
4400: 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 32 .OPTBOOL( "-ssl2
4410: 22 2c 20 73 73 6c 32 29 3b 0a 09 4f 50 54 42 4f ", ssl2);..OPTBO
4420: 4f 4c 28 20 22 2d 73 73 6c 33 22 2c 20 73 73 6c OL( "-ssl3", ssl
4430: 33 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 3);..OPTBOOL( "-
4440: 74 6c 73 31 22 2c 20 74 6c 73 31 29 3b 0a 0a 09 tls1", tls1);...
4450: 4f 50 54 42 41 44 28 20 22 6f 70 74 69 6f 6e 22 OPTBAD( "option"
4460: 2c 20 22 2d 63 61 66 69 6c 65 2c 20 2d 63 61 64 , "-cafile, -cad
4470: 69 72 2c 20 2d 63 65 72 74 66 69 6c 65 2c 20 2d ir, -certfile, -
4480: 63 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64 cipher, -command
4490: 2c 20 2d 6b 65 79 66 69 6c 65 2c 20 2d 6d 6f 64 , -keyfile, -mod
44a0: 65 6c 2c 20 2d 72 65 71 75 69 72 65 2c 20 2d 72 el, -require, -r
44b0: 65 71 75 65 73 74 2c 20 2d 73 73 6c 32 2c 20 2d equest, -ssl2, -
44c0: 73 73 6c 33 2c 20 2d 73 65 72 76 65 72 2c 20 6f ssl3, -server, o
44d0: 72 20 2d 74 6c 73 31 22 29 3b 0a 0a 09 72 65 74 r -tls1");...ret
44e0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
44f0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 72 65 71 }. if (req
4500: 75 65 73 74 29 20 20 20 20 20 20 20 20 20 20 20 uest)
4510: 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 verify |= SSL_V
4520: 45 52 49 46 59 5f 43 4c 49 45 4e 54 5f 4f 4e 43 ERIFY_CLIENT_ONC
4530: 45 20 7c 20 53 53 4c 5f 56 45 52 49 46 59 5f 50 E | SSL_VERIFY_P
4540: 45 45 52 3b 0a 20 20 20 20 69 66 20 28 72 65 71 EER;. if (req
4550: 75 65 73 74 20 26 26 20 72 65 71 75 69 72 65 29 uest && require)
4560: 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 verify |= SSL_V
4570: 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f ERIFY_FAIL_IF_NO
4580: 5f 50 45 45 52 5f 43 45 52 54 3b 0a 20 20 20 20 _PEER_CERT;.
4590: 69 66 20 28 76 65 72 69 66 79 20 3d 3d 20 30 29 if (verify == 0)
45a0: 20 20 20 20 20 20 20 20 76 65 72 69 66 79 20 3d verify =
45b0: 20 53 53 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 SSL_VERIFY_NONE
45c0: 3b 0a 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 ;.. proto |=
45d0: 28 73 73 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 (ssl2 ? TLS_PROT
45e0: 4f 5f 53 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 O_SSL2 : 0);.
45f0: 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 proto |= (ssl3
4600: 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 ? TLS_PROTO_SSL3
4610: 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f : 0);. proto
4620: 20 7c 3d 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f |= (tls1 ? TLS_
4630: 50 52 4f 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b PROTO_TLS1 : 0);
4640: 0a 0a 20 20 20 20 2f 2a 20 72 65 73 65 74 20 74 .. /* reset t
4650: 6f 20 4e 55 4c 4c 20 69 66 20 62 6c 61 6e 6b 20 o NULL if blank
4660: 73 74 72 69 6e 67 20 70 72 6f 76 69 64 65 64 20 string provided
4670: 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 20 */. if (cert
4680: 26 26 20 21 2a 63 65 72 74 29 09 09 63 65 72 74 && !*cert)..cert
4690: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 .= NULL;. if
46a0: 28 6b 65 79 20 26 26 20 21 2a 6b 65 79 29 09 09 (key && !*key)..
46b0: 6b 65 79 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 key.= NULL;.
46c0: 69 66 20 28 63 69 70 68 65 72 73 20 26 26 20 21 if (ciphers && !
46d0: 2a 63 69 70 68 65 72 73 29 09 63 69 70 68 65 72 *ciphers).cipher
46e0: 73 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 s.= NULL;. if
46f0: 20 28 43 41 66 69 6c 65 20 26 26 20 21 2a 43 41 (CAfile && !*CA
4700: 66 69 6c 65 29 09 43 41 66 69 6c 65 09 3d 20 4e file).CAfile.= N
4710: 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 64 ULL;. if (CAd
4720: 69 72 20 26 26 20 21 2a 43 41 64 69 72 29 09 43 ir && !*CAdir).C
4730: 41 64 69 72 09 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 Adir.= NULL;..
4740: 20 20 69 66 20 28 6d 6f 64 65 6c 20 21 3d 20 4e if (model != N
4750: 55 4c 4c 29 20 7b 0a 09 69 6e 74 20 6d 6f 64 65 ULL) {..int mode
4760: 3b 0a 09 2f 2a 20 47 65 74 20 74 68 65 20 22 6d ;../* Get the "m
4770: 6f 64 65 6c 22 20 63 6f 6e 74 65 78 74 20 2a 2f odel" context */
4780: 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 ..chan = Tcl_Get
4790: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
47a0: 6d 6f 64 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 09 model, &mode);..
47b0: 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c if (chan == (Tcl
47c0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
47d0: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 {.. return TC
47e0: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 23 69 66 64 L_ERROR;..}.#ifd
47f0: 65 66 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 ef TCL_CHANNEL_V
4800: 45 52 53 49 4f 4e 5f 32 0a 09 2f 2a 0a 09 20 2a ERSION_2../*.. *
4810: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
4820: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
4830: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a most channel.. *
4840: 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 /..chan = Tcl_Ge
4850: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
4860: 29 3b 0a 23 65 6e 64 69 66 0a 09 69 66 20 28 54 );.#endif..if (T
4870: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
4880: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 e(chan) != Tls_C
4890: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a hannelType()) {.
48a0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
48b0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
48c0: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a ad channel \"",.
48d0: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 .. Tcl_GetCha
48e0: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 nnelName(chan),
48f0: 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 "\": not a TLS c
4900: 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a hannel", NULL);.
4910: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4920: 45 52 52 4f 52 3b 0a 09 7d 0a 09 73 74 61 74 65 ERROR;..}..state
4930: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
4940: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
4950: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 stanceData(chan)
4960: 3b 0a 09 63 74 78 20 3d 20 73 74 61 74 65 50 74 ;..ctx = statePt
4970: 72 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c r->ctx;. } el
4980: 73 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 3d se {..if ((ctx =
4990: 20 43 54 58 5f 49 6e 69 74 28 69 6e 74 65 72 70 CTX_Init(interp
49a0: 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 , proto, key, ce
49b0: 72 74 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c rt, CAdir, CAfil
49c0: 65 2c 20 63 69 70 68 65 72 73 29 29 0a 09 20 20 e, ciphers))..
49d0: 20 20 3d 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 == (SSL_CTX*)0
49e0: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ) {.. return
49f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 TCL_ERROR;..}.
4a00: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 }.. /* new
4a10: 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 SSL state */.
4a20: 20 73 74 61 74 65 50 74 72 09 09 3d 20 28 53 74 statePtr..= (St
4a30: 61 74 65 20 2a 29 20 54 63 6c 5f 41 6c 6c 6f 63 ate *) Tcl_Alloc
4a40: 28 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 ((unsigned) size
4a50: 6f 66 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 of(State));.
4a60: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 3d statePtr->self.=
4a70: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 4e 55 (Tcl_Channel)NU
4a80: 4c 4c 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 LL;. statePtr
4a90: 2d 3e 74 69 6d 65 72 09 3d 20 28 54 63 6c 5f 54 ->timer.= (Tcl_T
4aa0: 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 3b 0a imerToken)NULL;.
4ab0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 . statePtr->f
4ac0: 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b 0a 20 20 lags.= flags;.
4ad0: 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 statePtr->watc
4ae0: 68 4d 61 73 6b 09 3d 20 30 3b 0a 20 20 20 20 73 hMask.= 0;. s
4af0: 74 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 tatePtr->mode.=
4b00: 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 0;.. statePtr
4b10: 2d 3e 69 6e 74 65 72 70 09 3d 20 69 6e 74 65 72 ->interp.= inter
4b20: 70 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d p;. statePtr-
4b30: 3e 63 61 6c 6c 62 61 63 6b 09 3d 20 28 54 63 6c >callback.= (Tcl
4b40: 5f 4f 62 6a 20 2a 29 30 3b 0a 0a 20 20 20 20 73 _Obj *)0;.. s
4b50: 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 09 tatePtr->vflags.
4b60: 3d 20 76 65 72 69 66 79 3b 0a 20 20 20 20 73 74 = verify;. st
4b70: 61 74 65 50 74 72 2d 3e 73 73 6c 09 3d 20 28 53 atePtr->ssl.= (S
4b80: 53 4c 2a 29 30 3b 0a 20 20 20 20 73 74 61 74 65 SL*)0;. state
4b90: 50 74 72 2d 3e 63 74 78 09 3d 20 63 74 78 3b 0a Ptr->ctx.= ctx;.
4ba0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 62 69 statePtr->bi
4bb0: 6f 09 3d 20 28 42 49 4f 2a 29 30 3b 0a 20 20 20 o.= (BIO*)0;.
4bc0: 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f statePtr->p_bio
4bd0: 09 3d 20 28 42 49 4f 2a 29 30 3b 0a 0a 20 20 20 .= (BIO*)0;..
4be0: 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 09 3d statePtr->err.=
4bf0: 20 22 22 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 "";.. /*.
4c00: 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 6d * We need to m
4c10: 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 74 68 ake sure that th
4c20: 65 20 63 68 61 6e 6e 65 6c 20 77 6f 72 6b 73 20 e channel works
4c30: 69 6e 20 62 69 6e 61 72 79 20 28 66 6f 72 20 74 in binary (for t
4c40: 68 65 0a 20 20 20 20 20 2a 20 65 6e 63 72 79 70 he. * encryp
4c50: 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 67 65 74 20 tion not to get
4c60: 67 6f 6f 66 65 64 20 75 70 29 2e 0a 20 20 20 20 goofed up)..
4c70: 20 2a 20 57 65 20 6f 6e 6c 79 20 77 61 6e 74 20 * We only want
4c80: 74 6f 20 61 64 6a 75 73 74 20 74 68 65 20 62 75 to adjust the bu
4c90: 66 66 65 72 69 6e 67 20 69 6e 20 70 72 65 2d 76 ffering in pre-v
4ca0: 32 20 63 68 61 6e 6e 65 6c 73 2c 20 77 68 65 72 2 channels, wher
4cb0: 65 0a 20 20 20 20 20 2a 20 65 61 63 68 20 63 68 e. * each ch
4cc0: 61 6e 6e 65 6c 20 69 6e 20 74 68 65 20 73 74 61 annel in the sta
4cd0: 63 6b 20 6d 61 69 6e 74 61 69 6e 65 64 20 69 74 ck maintained it
4ce0: 73 20 6f 77 6e 20 62 75 66 66 65 72 73 2e 0a 20 s own buffers..
4cf0: 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 */. Tcl_S
4d00: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
4d10: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
4d20: 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 translation", "b
4d30: 69 6e 61 72 79 22 29 3b 0a 23 69 66 6e 64 65 66 inary");.#ifndef
4d40: 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TCL_CHANNEL_VER
4d50: 53 49 4f 4e 5f 32 0a 20 20 20 20 54 63 6c 5f 53 SION_2. Tcl_S
4d60: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
4d70: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
4d80: 62 75 66 66 65 72 69 6e 67 22 2c 20 22 6e 6f 6e buffering", "non
4d90: 65 22 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 69 66 e");.#endif..#if
4da0: 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 TCL_MAJOR_VERSI
4db0: 4f 4e 20 3d 3d 20 38 20 26 26 20 54 43 4c 5f 4d ON == 8 && TCL_M
4dc0: 49 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 32 INOR_VERSION < 2
4dd0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 . statePtr->p
4de0: 61 72 65 6e 74 20 3d 20 63 68 61 6e 3b 0a 20 20 arent = chan;.
4df0: 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 statePtr->self
4e00: 20 3d 20 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 = Tcl_ReplaceCh
4e10: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 0a 09 20 annel(interp,..
4e20: 20 20 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 Tls_ChannelTy
4e30: 70 65 28 29 2c 20 28 43 6c 69 65 6e 74 44 61 74 pe(), (ClientDat
4e40: 61 29 20 73 74 61 74 65 50 74 72 2c 0a 09 20 20 a) statePtr,..
4e50: 20 20 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 (TCL_READABLE
4e60: 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 2c | TCL_WRITABLE),
4e70: 20 73 74 61 74 65 50 74 72 2d 3e 70 61 72 65 6e statePtr->paren
4e80: 74 29 3b 0a 23 65 6c 73 65 0a 23 69 66 64 65 66 t);.#else.#ifdef
4e90: 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TCL_CHANNEL_VER
4ea0: 53 49 4f 4e 5f 32 0a 20 20 20 20 73 74 61 74 65 SION_2. state
4eb0: 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f Ptr->self = Tcl_
4ec0: 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 StackChannel(int
4ed0: 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e 65 6c erp, Tls_Channel
4ee0: 54 79 70 65 28 29 2c 0a 09 20 20 20 20 28 43 6c Type(),.. (Cl
4ef0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
4f00: 74 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c tr, (TCL_READABL
4f10: 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 E | TCL_WRITABLE
4f20: 29 2c 20 63 68 61 6e 29 3b 0a 23 65 6c 73 65 0a ), chan);.#else.
4f30: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 statePtr->se
4f40: 6c 66 20 3d 20 63 68 61 6e 3b 0a 20 20 20 20 54 lf = chan;. T
4f50: 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 cl_StackChannel(
4f60: 20 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 interp, Tls_Cha
4f70: 6e 6e 65 6c 54 79 70 65 28 29 2c 20 28 43 6c 69 nnelType(), (Cli
4f80: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
4f90: 72 2c 0a 09 20 20 20 20 28 54 43 4c 5f 52 45 41 r,.. (TCL_REA
4fa0: 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 DABLE | TCL_WRIT
4fb0: 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 23 65 ABLE), chan);.#e
4fc0: 6e 64 69 66 0a 23 65 6e 64 69 66 0a 20 20 20 20 ndif.#endif.
4fd0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 if (statePtr->se
4fe0: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
4ff0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a el) NULL) {../*.
5000: 09 20 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 63 . * No use of Tc
5010: 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 l_EventuallyFree
5020: 20 62 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 73 because no poss
5030: 69 62 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 76 ible Tcl_Preserv
5040: 65 2e 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 65 e... */..Tls_Fre
5050: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
5060: 50 74 72 29 3b 0a 20 20 20 20 20 20 20 20 72 65 Ptr);. re
5070: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5080: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 61 6c }.. /* al
5090: 6c 6f 63 61 74 65 20 73 63 72 69 70 74 20 2a 2f locate script */
50a0: 0a 20 20 20 20 69 66 20 28 73 63 72 69 70 74 29 . if (script)
50b0: 20 7b 0a 09 63 68 61 72 20 2a 74 6d 70 20 3d 20 {..char *tmp =
50c0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
50d0: 6d 4f 62 6a 28 73 63 72 69 70 74 2c 20 4e 55 4c mObj(script, NUL
50e0: 4c 29 3b 0a 09 69 66 20 28 74 6d 70 20 26 26 20 L);..if (tmp &&
50f0: 2a 74 6d 70 29 20 7b 0a 09 20 20 20 20 73 74 61 *tmp) {.. sta
5100: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 tePtr->callback
5110: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
5120: 62 6a 28 73 63 72 69 70 74 29 3b 0a 09 20 20 20 bj(script);..
5130: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
5140: 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c t(statePtr->call
5150: 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a back);..}. }.
5160: 20 20 20 20 2f 2a 20 54 68 69 73 20 69 73 20 6f /* This is o
5170: 6e 6c 79 20 6e 65 65 64 65 64 20 62 65 63 61 75 nly needed becau
5180: 73 65 20 6f 66 20 61 20 62 75 67 20 69 6e 20 4f se of a bug in O
5190: 70 65 6e 53 53 4c 2c 20 77 68 65 72 65 20 74 68 penSSL, where th
51a0: 65 0a 20 20 20 20 20 2a 20 73 73 6c 2d 3e 76 65 e. * ssl->ve
51b0: 72 69 66 79 5f 63 61 6c 6c 62 61 63 6b 20 69 73 rify_callback is
51c0: 20 6e 6f 74 20 72 65 66 65 72 65 6e 63 65 64 21 not referenced!
51d0: 21 21 20 28 4d 75 73 74 20 62 65 20 64 6f 6e 65 !! (Must be done
51e0: 0a 20 20 20 20 20 2a 20 2a 62 65 66 6f 72 65 2a . * *before*
51f0: 20 53 53 4c 5f 6e 65 77 28 29 20 69 73 20 63 61 SSL_new() is ca
5200: 6c 6c 65 64 21 0a 20 20 20 20 20 2a 2f 0a 20 20 lled!. */.
5210: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 76 65 SSL_CTX_set_ve
5220: 72 69 66 79 28 73 74 61 74 65 50 74 72 2d 3e 63 rify(statePtr->c
5230: 74 78 2c 20 76 65 72 69 66 79 2c 20 56 65 72 69 tx, verify, Veri
5240: 66 79 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 fyCallback);..
5250: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
5260: 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 Initialization.
5270: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 */.. stat
5280: 65 50 74 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f ePtr->ssl = SSL_
5290: 6e 65 77 28 73 74 61 74 65 50 74 72 2d 3e 63 74 new(statePtr->ct
52a0: 78 29 3b 0a 20 20 20 20 69 66 20 28 21 73 74 61 x);. if (!sta
52b0: 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 20 20 tePtr->ssl) {.
52c0: 20 20 20 20 20 20 2f 2a 20 53 53 4c 20 6c 69 62 /* SSL lib
52d0: 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a 20 20 rary error */.
52e0: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 Tcl_Append
52f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5300: 63 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 72 75 couldn't constru
5310: 63 74 20 73 73 6c 20 73 65 73 73 69 6f 6e 3a 20 ct ssl session:
5320: 22 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 09 28 ", REASON(),...(
5330: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
5340: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
5350: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
5360: 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f return TCL_
5370: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5380: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
5390: 43 61 6c 6c 62 61 63 6b 73 0a 20 20 20 20 20 2a Callbacks. *
53a0: 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 61 /.. SSL_set_a
53b0: 70 70 5f 64 61 74 61 28 73 74 61 74 65 50 74 72 pp_data(statePtr
53c0: 2d 3e 73 73 6c 2c 20 28 56 4f 49 44 20 2a 29 73 ->ssl, (VOID *)s
53d0: 74 61 74 65 50 74 72 29 3b 09 2f 2a 20 70 6f 69 tatePtr);./* poi
53e0: 6e 74 20 62 61 63 6b 20 74 6f 20 75 73 20 2a 2f nt back to us */
53f0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
5400: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 69 73 The following is
5410: 20 62 72 6f 6b 65 6e 20 2d 20 77 65 20 6e 65 65 broken - we nee
5420: 64 20 69 73 20 74 6f 20 73 65 74 20 74 68 65 0a d is to set the.
5430: 20 20 20 20 20 2a 20 76 65 72 69 66 79 5f 6d 6f * verify_mo
5440: 64 65 2c 20 62 75 74 20 74 68 65 20 6c 69 62 72 de, but the libr
5450: 61 72 79 20 69 67 6e 6f 72 65 73 20 74 68 65 20 ary ignores the
5460: 76 65 72 69 66 79 5f 63 61 6c 6c 62 61 63 6b 21 verify_callback!
5470: 21 21 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 2f !!. */. /
5480: 2a 53 53 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 *SSL_set_verify(
5490: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 statePtr->ssl, v
54a0: 65 72 69 66 79 2c 20 56 65 72 69 66 79 43 61 6c erify, VerifyCal
54b0: 6c 62 61 63 6b 29 3b 2a 2f 0a 0a 20 20 20 20 53 lback);*/.. S
54c0: 53 4c 5f 43 54 58 5f 73 65 74 5f 69 6e 66 6f 5f SL_CTX_set_info_
54d0: 63 61 6c 6c 62 61 63 6b 28 73 74 61 74 65 50 74 callback(statePt
54e0: 72 2d 3e 63 74 78 2c 20 49 6e 66 6f 43 61 6c 6c r->ctx, InfoCall
54f0: 62 61 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 back);.. /* C
5500: 72 65 61 74 65 20 54 63 6c 5f 43 68 61 6e 6e 65 reate Tcl_Channe
5510: 6c 20 42 49 4f 20 48 61 6e 64 6c 65 72 20 2a 2f l BIO Handler */
5520: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 . statePtr->p
5530: 5f 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 5f 74 _bio.= BIO_new_t
5540: 63 6c 28 73 74 61 74 65 50 74 72 2c 20 42 49 4f cl(statePtr, BIO
5550: 5f 43 4c 4f 53 45 29 3b 0a 20 20 20 20 73 74 61 _CLOSE);. sta
5560: 74 65 50 74 72 2d 3e 62 69 6f 09 3d 20 42 49 4f tePtr->bio.= BIO
5570: 5f 6e 65 77 28 42 49 4f 5f 66 5f 73 73 6c 28 29 _new(BIO_f_ssl()
5580: 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 65 72 76 );.. if (serv
5590: 65 72 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d er) {..statePtr-
55a0: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
55b0: 4c 5f 53 45 52 56 45 52 3b 0a 09 53 53 4c 5f 73 L_SERVER;..SSL_s
55c0: 65 74 5f 61 63 63 65 70 74 5f 73 74 61 74 65 28 et_accept_state(
55d0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
55e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 53 53 } else {..SS
55f0: 4c 5f 73 65 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 L_set_connect_st
5600: 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ate(statePtr->ss
5610: 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 l);. }. SS
5620: 4c 5f 73 65 74 5f 62 69 6f 28 73 74 61 74 65 50 L_set_bio(stateP
5630: 74 72 2d 3e 73 73 6c 2c 20 73 74 61 74 65 50 74 tr->ssl, statePt
5640: 72 2d 3e 70 5f 62 69 6f 2c 20 73 74 61 74 65 50 r->p_bio, stateP
5650: 74 72 2d 3e 70 5f 62 69 6f 29 3b 0a 20 20 20 20 tr->p_bio);.
5660: 42 49 4f 5f 73 65 74 5f 73 73 6c 28 73 74 61 74 BIO_set_ssl(stat
5670: 65 50 74 72 2d 3e 62 69 6f 2c 20 73 74 61 74 65 ePtr->bio, state
5680: 50 74 72 2d 3e 73 73 6c 2c 20 42 49 4f 5f 43 4c Ptr->ssl, BIO_CL
5690: 4f 53 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 OSE);.. /*.
56a0: 20 20 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 * End of SSL
56b0: 49 6e 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 Init. */.
56c0: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
56d0: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 43 68 nterp, Tcl_GetCh
56e0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
56f0: 74 72 2d 3e 73 65 6c 66 29 2c 20 54 43 4c 5f 56 tr->self), TCL_V
5700: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 OLATILE);. re
5710: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c turn TCL_OK;.}..
5720: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
5730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
5770: 43 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 CTX_Init -- cons
5780: 74 72 75 63 74 20 61 20 53 53 4c 5f 43 54 58 20 truct a SSL_CTX
5790: 69 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 instance. *. * R
57a0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c esults:. *.A val
57b0: 69 64 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 id SSL_CTX insta
57c0: 6e 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a nce or NULL.. *.
57d0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
57e0: 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 53 . *.constructs S
57f0: 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29 SL context (CTX)
5800: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
5810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 ---------. */..s
5850: 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a tatic SSL_CTX *.
5860: 43 54 58 5f 49 6e 69 74 28 69 6e 74 65 72 70 2c CTX_Init(interp,
5870: 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 72 proto, key, cer
5880: 74 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c 65 t, CAdir, CAfile
5890: 2c 20 63 69 70 68 65 72 73 29 0a 20 20 20 20 54 , ciphers). T
58a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
58b0: 70 3b 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 6f p;. int proto
58c0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 3b ;. char *key;
58d0: 0a 20 20 20 20 63 68 61 72 20 2a 63 65 72 74 3b . char *cert;
58e0: 0a 20 20 20 20 63 68 61 72 20 2a 43 41 64 69 72 . char *CAdir
58f0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41 66 69 ;. char *CAfi
5900: 6c 65 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 le;. char *ci
5910: 70 68 65 72 73 3b 0a 7b 0a 20 20 20 20 53 53 4c phers;.{. SSL
5920: 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c _CTX *ctx = NULL
5930: 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e ;. Tcl_DStrin
5940: 67 20 64 73 3b 0a 20 20 20 20 54 63 6c 5f 44 53 g ds;. Tcl_DS
5950: 74 72 69 6e 67 20 64 73 31 3b 0a 20 20 20 20 69 tring ds1;. i
5960: 6e 74 20 6f 66 66 20 3d 20 30 3b 0a 0a 20 20 20 nt off = 0;..
5970: 20 2f 2a 20 63 72 65 61 74 65 20 53 53 4c 20 63 /* create SSL c
5980: 6f 6e 74 65 78 74 20 2a 2f 0a 23 69 66 20 21 64 ontext */.#if !d
5990: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 efined(NO_SSL2)
59a0: 26 26 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 && !defined(NO_S
59b0: 53 4c 33 29 0a 20 20 20 20 69 66 20 28 45 4e 41 SL3). if (ENA
59c0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
59d0: 50 52 4f 54 4f 5f 53 53 4c 32 29 20 26 26 0a 09 PROTO_SSL2) &&..
59e0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
59f0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 LS_PROTO_SSL3))
5a00: 7b 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 {..ctx = SSL_CTX
5a10: 5f 6e 65 77 28 53 53 4c 76 32 33 5f 6d 65 74 68 _new(SSLv23_meth
5a20: 6f 64 28 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 od());. } els
5a30: 65 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 e.#endif. if
5a40: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
5a50: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 29 TLS_PROTO_SSL2))
5a60: 20 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e {.#if defined(N
5a70: 4f 5f 53 53 4c 32 29 0a 09 54 63 6c 5f 41 70 70 O_SSL2)..Tcl_App
5a80: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
5a90: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
5aa0: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
5ab0: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
5ac0: 43 54 58 20 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 CTX *)0;.#else..
5ad0: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
5ae0: 77 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 w(SSLv2_method()
5af0: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 20 );.#endif. }
5b00: 65 6c 73 65 20 69 66 20 28 45 4e 41 42 4c 45 44 else if (ENABLED
5b10: 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 (proto, TLS_PROT
5b20: 4f 5f 54 4c 53 31 29 29 20 7b 0a 09 63 74 78 20 O_TLS1)) {..ctx
5b30: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c = SSL_CTX_new(TL
5b40: 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 Sv1_method());.
5b50: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 4e } else if (EN
5b60: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
5b70: 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b 0a _PROTO_SSL3)) {.
5b80: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
5b90: 53 4c 33 29 0a 09 54 63 6c 5f 41 70 70 65 6e 64 SL3)..Tcl_Append
5ba0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5bb0: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
5bc0: 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a ported", NULL);.
5bd0: 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 .return (SSL_CTX
5be0: 20 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 74 78 *)0;.#else..ctx
5bf0: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 = SSL_CTX_new(S
5c00: 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 0a SLv3_method());.
5c10: 23 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 6c 73 #endif. } els
5c20: 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 e {..Tcl_AppendR
5c30: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e esult(interp, "n
5c40: 6f 20 76 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c o valid protocol
5c50: 20 73 65 6c 65 63 74 65 64 22 2c 20 4e 55 4c 4c selected", NULL
5c60: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
5c70: 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 20 CTX *)0;. }.
5c80: 20 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c off |= (ENABL
5c90: 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 ED(proto, TLS_PR
5ca0: 4f 54 4f 5f 54 4c 53 31 29 20 3f 20 30 20 3a 20 OTO_TLS1) ? 0 :
5cb0: 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 29 SSL_OP_NO_TLSv1)
5cc0: 3b 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 45 4e ;. off |= (EN
5cd0: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
5ce0: 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 20 3f 20 30 _PROTO_SSL2) ? 0
5cf0: 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c : SSL_OP_NO_SSL
5d00: 76 32 29 3b 0a 20 20 20 20 6f 66 66 20 7c 3d 20 v2);. off |=
5d10: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 (ENABLED(proto,
5d20: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 20 TLS_PROTO_SSL3)
5d30: 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f ? 0 : SSL_OP_NO_
5d40: 53 53 4c 76 33 29 3b 0a 0a 20 20 20 20 53 53 4c SSLv3);.. SSL
5d50: 5f 43 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 74 _CTX_set_app_dat
5d60: 61 28 20 63 74 78 2c 20 28 56 4f 49 44 2a 29 69 a( ctx, (VOID*)i
5d70: 6e 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d nterp);./* remem
5d80: 62 65 72 20 74 68 65 20 69 6e 74 65 72 70 72 65 ber the interpre
5d90: 74 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 ter */. SSL_C
5da0: 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 TX_set_options(
5db0: 63 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 ctx, SSL_OP_ALL)
5dc0: 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 ;./* all SSL bug
5dd0: 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a workarounds */.
5de0: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f SSL_CTX_set_
5df0: 6f 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f 66 options( ctx, of
5e00: 66 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 f);./* all SSL b
5e10: 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a ug workarounds *
5e20: 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 /. SSL_CTX_se
5e30: 73 73 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a ss_set_cache_siz
5e40: 65 28 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a 20 e( ctx, 128);..
5e50: 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 if (ciphers !
5e60: 3d 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 58 = NULL)..SSL_CTX
5e70: 5f 73 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 _set_cipher_list
5e80: 28 63 74 78 2c 20 63 69 70 68 65 72 73 29 3b 0a (ctx, ciphers);.
5e90: 0a 20 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d 65 . /* set some
5ea0: 20 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 20 callbacks */.
5eb0: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 SSL_CTX_set_de
5ec0: 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 28 fault_passwd_cb(
5ed0: 63 74 78 2c 20 50 61 73 73 77 6f 72 64 43 61 6c ctx, PasswordCal
5ee0: 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 66 lback);..#ifndef
5ef0: 20 42 53 41 46 45 0a 20 20 20 20 53 53 4c 5f 43 BSAFE. SSL_C
5f00: 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 TX_set_default_p
5f10: 61 73 73 77 64 5f 63 62 5f 75 73 65 72 64 61 74 asswd_cb_userdat
5f20: 61 28 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 69 a(ctx, (void *)i
5f30: 6e 74 65 72 70 29 3b 0a 23 65 6e 64 69 66 0a 0a nterp);.#endif..
5f40: 23 69 66 6e 64 65 66 20 4e 4f 5f 44 48 0a 20 20 #ifndef NO_DH.
5f50: 20 20 7b 0a 09 44 48 2a 20 64 68 20 3d 20 67 65 {..DH* dh = ge
5f60: 74 5f 64 68 35 31 32 28 29 3b 0a 09 53 53 4c 5f t_dh512();..SSL_
5f70: 43 54 58 5f 73 65 74 5f 74 6d 70 5f 64 68 28 63 CTX_set_tmp_dh(c
5f80: 74 78 2c 20 64 68 29 3b 0a 09 44 48 5f 66 72 65 tx, dh);..DH_fre
5f90: 65 28 64 68 29 3b 0a 20 20 20 20 7d 0a 23 65 6e e(dh);. }.#en
5fa0: 64 69 66 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 dif.. /* set
5fb0: 6f 75 72 20 63 65 72 74 69 66 69 63 61 74 65 20 our certificate
5fc0: 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 20 */. if (cert
5fd0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f != NULL) {..Tcl_
5fe0: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 DStringInit(&ds)
5ff0: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 53 ;.. if (S
6000: 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 SL_CTX_use_certi
6010: 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c ficate_file(ctx,
6020: 20 46 32 4e 28 20 63 65 72 74 2c 20 26 64 73 29 F2N( cert, &ds)
6030: 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 ,......SSL_FILET
6040: 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b YPE_PEM) <= 0) {
6050: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
6060: 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 gFree(&ds);.
6070: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 Tcl_Appe
6080: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
6090: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
60a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 "u
60b0: 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 63 65 72 nable to set cer
60c0: 74 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c tificate file ",
60d0: 20 63 65 72 74 2c 20 22 3a 20 22 2c 0a 20 20 20 cert, ": ",.
60e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
60f0: 20 20 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e REASON
6100: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
6110: 4c 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 L);.
6120: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
6130: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 );. r
6140: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
6150: 29 30 3b 0a 20 20 20 20 20 20 20 20 7d 0a 0a 20 )0;. }..
6160: 20 20 20 20 20 20 20 2f 2a 20 67 65 74 20 74 68 /* get th
6170: 65 20 70 72 69 76 61 74 65 20 6b 65 79 20 61 73 e private key as
6180: 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 sociated with th
6190: 69 73 20 63 65 72 74 69 66 69 63 61 74 65 20 2a is certificate *
61a0: 2f 0a 20 20 20 20 20 20 20 20 69 66 20 28 6b 65 /. if (ke
61b0: 79 20 3d 3d 20 4e 55 4c 4c 29 20 6b 65 79 3d 63 y == NULL) key=c
61c0: 65 72 74 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 ert;.. if
61d0: 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 72 (SSL_CTX_use_Pr
61e0: 69 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 63 74 ivateKey_file(ct
61f0: 78 2c 20 46 32 4e 28 20 6b 65 79 2c 20 26 64 73 x, F2N( key, &ds
6200: 29 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 ),......SSL_FILE
6210: 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 TYPE_PEM) <= 0)
6220: 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 {.. Tcl_DStri
6230: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 ngFree(&ds);.
6240: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 Tcl_App
6250: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6260: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
6270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
6280: 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 70 75 unable to set pu
6290: 62 6c 69 63 20 6b 65 79 20 66 69 6c 65 20 22 2c blic key file ",
62a0: 20 6b 65 79 2c 20 22 20 22 2c 0a 20 20 20 20 20 key, " ",.
62b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
62c0: 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e 28 29 REASON()
62d0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
62e0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 53 53 ;. SS
62f0: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b L_CTX_free(ctx);
6300: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 . ret
6310: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
6320: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 09 54 63 6c ;. }..Tcl
6330: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
6340: 29 3b 0a 20 20 20 20 20 20 20 20 2f 2a 20 4e 6f );. /* No
6350: 77 20 77 65 20 6b 6e 6f 77 20 74 68 61 74 20 61 w we know that a
6360: 20 6b 65 79 20 61 6e 64 20 63 65 72 74 20 68 61 key and cert ha
6370: 76 65 20 62 65 65 6e 20 73 65 74 20 61 67 61 69 ve been set agai
6380: 6e 73 74 0a 20 20 20 20 20 20 20 20 20 2a 20 74 nst. * t
6390: 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a he SSL context *
63a0: 2f 0a 20 20 20 20 20 20 20 20 69 66 20 28 21 53 /. if (!S
63b0: 53 4c 5f 43 54 58 5f 63 68 65 63 6b 5f 70 72 69 SL_CTX_check_pri
63c0: 76 61 74 65 5f 6b 65 79 28 63 74 78 29 29 20 7b vate_key(ctx)) {
63d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 54 63 6c . Tcl
63e0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
63f0: 74 65 72 70 2c 0a 20 20 20 20 20 20 20 20 20 20 terp,.
6400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6410: 20 20 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 "private key
6420: 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 does not match t
6430: 68 65 20 63 65 72 74 69 66 69 63 61 74 65 20 70 he certificate p
6440: 75 62 6c 69 63 20 6b 65 79 22 2c 0a 20 20 20 20 ublic key",.
6450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6460: 20 20 20 20 20 20 20 20 20 28 63 68 61 72 20 2a (char *
6470: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 ) NULL);.
6480: 20 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 SSL_CTX_fre
6490: 65 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 20 e(ctx);.
64a0: 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f return (SSL_
64b0: 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 20 20 20 CTX *)0;.
64c0: 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a }. } else {.
64d0: 20 20 20 20 20 20 20 20 63 65 72 74 20 3d 20 28 cert = (
64e0: 63 68 61 72 2a 29 58 35 30 39 5f 67 65 74 5f 64 char*)X509_get_d
64f0: 65 66 61 75 6c 74 5f 63 65 72 74 5f 66 69 6c 65 efault_cert_file
6500: 28 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 ();.. if
6510: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 (SSL_CTX_use_cer
6520: 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 tificate_file(ct
6530: 78 2c 20 63 65 72 74 2c 0a 09 09 09 09 09 53 53 x, cert,......SS
6540: 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 L_FILETYPE_PEM)
6550: 3c 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 20 <= 0) {.#if 0..
6560: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
6570: 65 65 28 26 64 73 29 3b 0a 20 20 20 20 20 20 20 ee(&ds);.
6580: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 Tcl_AppendR
6590: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 20 20 esult(interp,.
65a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
65b0: 20 20 20 20 20 20 20 20 20 20 20 22 75 6e 61 62 "unab
65c0: 6c 65 20 74 6f 20 75 73 65 20 64 65 66 61 75 6c le to use defaul
65d0: 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 t certificate fi
65e0: 6c 65 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 22 le ", cert, ": "
65f0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,.
6600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
6610: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
6620: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 ) NULL);.
6630: 20 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 SSL_CTX_fre
6640: 65 28 63 74 78 29 3b 0a 20 20 20 20 20 20 20 20 e(ctx);.
6650: 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f return (SSL_
6660: 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a CTX *)0;.#endif.
6670: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a }. }.
6680: 09 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
6690: 67 49 6e 69 74 28 26 64 73 29 3b 0a 20 20 20 20 gInit(&ds);.
66a0: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
66b0: 26 64 73 31 29 3b 0a 20 20 20 20 69 66 20 28 21 &ds1);. if (!
66c0: 53 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f 76 65 72 SSL_CTX_load_ver
66d0: 69 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 28 63 74 ify_locations(ct
66e0: 78 2c 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 x, F2N(CAfile, &
66f0: 64 73 29 2c 20 46 32 4e 28 43 41 64 69 72 2c 20 ds), F2N(CAdir,
6700: 26 64 73 31 29 29 20 7c 7c 0a 20 20 20 20 20 20 &ds1)) ||.
6710: 20 20 21 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 !SSL_CTX_set_d
6720: 65 66 61 75 6c 74 5f 76 65 72 69 66 79 5f 70 61 efault_verify_pa
6730: 74 68 73 28 63 74 78 29 29 20 7b 0a 23 69 66 20 ths(ctx)) {.#if
6740: 30 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 0..Tcl_DStringFr
6750: 65 65 28 26 64 73 29 3b 0a 09 54 63 6c 5f 44 53 ee(&ds);..Tcl_DS
6760: 74 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b tringFree(&ds1);
6770: 0a 09 2f 2a 20 44 6f 6e 27 74 20 63 75 72 72 65 ../* Don't curre
6780: 6e 74 6c 79 20 63 61 72 65 20 69 66 20 74 68 69 ntly care if thi
6790: 73 20 66 61 69 6c 73 20 2a 2f 0a 09 54 63 6c 5f s fails */..Tcl_
67a0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
67b0: 65 72 70 2c 20 22 53 53 4c 20 64 65 66 61 75 6c erp, "SSL defaul
67c0: 74 20 76 65 72 69 66 79 20 70 61 74 68 73 3a 20 t verify paths:
67d0: 22 2c 0a 09 09 52 45 41 53 4f 4e 28 29 2c 20 28 ",...REASON(), (
67e0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
67f0: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
6800: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f );..return (SSL_
6810: 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a CTX *)0;.#endif.
6820: 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 43 54 }. SSL_CT
6830: 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 43 41 5f X_set_client_CA_
6840: 6c 69 73 74 28 63 74 78 2c 20 53 53 4c 5f 6c 6f list(ctx, SSL_lo
6850: 61 64 5f 63 6c 69 65 6e 74 5f 43 41 5f 66 69 6c ad_client_CA_fil
6860: 65 28 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 e( F2N(CAfile, &
6870: 64 73 29 20 29 29 3b 0a 0a 20 20 20 20 54 63 6c ds) ));.. Tcl
6880: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
6890: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 );. Tcl_DStri
68a0: 6e 67 46 72 65 65 28 26 64 73 31 29 3b 0a 20 20 ngFree(&ds1);.
68b0: 20 20 72 65 74 75 72 6e 20 63 74 78 3b 0a 7d 0a return ctx;.}.
68c0: 0c 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
6910: 20 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 2d 2d StatusObjCmd --
6920: 20 72 65 74 75 72 6e 20 63 65 72 74 69 66 69 63 return certific
6930: 61 74 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 65 ate for connecte
6940: 64 20 70 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 d peer.. *. * Re
6950: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
6960: 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e dard Tcl result.
6970: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
6980: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
6990: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
69a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
69e0: 63 20 69 6e 74 0a 53 74 61 74 75 73 4f 62 6a 43 c int.StatusObjC
69f0: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 md(clientData, i
6a00: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
6a10: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 v). ClientDat
6a20: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a a clientData;./*
6a30: 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 Not used. */.
6a40: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
6a50: 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 terp;. int ob
6a60: 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 jc;. Tcl_Obj.
6a70: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b *CONST objv[];.{
6a80: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
6a90: 65 50 74 72 3b 0a 20 20 20 20 58 35 30 39 20 2a ePtr;. X509 *
6aa0: 70 65 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 peer;. Tcl_Ob
6ab0: 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 54 j *objPtr;. T
6ac0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b cl_Channel chan;
6ad0: 0a 20 20 20 20 63 68 61 72 20 2a 63 68 61 6e 6e . char *chann
6ae0: 65 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 65 72 73 elName, *ciphers
6af0: 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b 0a ;. int mode;.
6b00: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d . if (objc !=
6b10: 20 32 29 20 7b 0a 20 20 20 20 20 20 20 20 54 63 2) {. Tc
6b20: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
6b30: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
6b40: 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 20 20 20 20 "channel");.
6b50: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
6b60: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
6b70: 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 channelName = Tc
6b80: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
6b90: 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c bj(objv[1], NULL
6ba0: 29 3b 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 );.. chan = T
6bb0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
6bc0: 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c 4e 61 6d terp, channelNam
6bd0: 65 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 e, &mode);. i
6be0: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
6bf0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
6c00: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6c10: 4f 52 3b 0a 20 20 20 20 7d 0a 23 69 66 64 65 66 OR;. }.#ifdef
6c20: 20 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TCL_CHANNEL_VER
6c30: 53 49 4f 4e 5f 32 0a 20 20 20 20 2f 2a 0a 20 20 SION_2. /*.
6c40: 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 * Make sure t
6c50: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
6c60: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
6c70: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 . */. cha
6c80: 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 n = Tcl_GetTopCh
6c90: 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 23 65 6e annel(chan);.#en
6ca0: 64 69 66 0a 20 20 20 20 69 66 20 28 54 63 6c 5f dif. if (Tcl_
6cb0: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 GetChannelType(c
6cc0: 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e han) != Tls_Chan
6cd0: 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 20 20 20 nelType()) {.
6ce0: 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 Tcl_AppendR
6cf0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
6d00: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 ad channel \"",
6d10: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
6d20: 6d 65 28 63 68 61 6e 29 2c 0a 20 20 20 20 20 20 me(chan),.
6d30: 20 20 20 20 20 20 20 20 20 20 22 5c 22 3a 20 6e "\": n
6d40: 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c ot a TLS channel
6d50: 22 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 ", NULL);.
6d60: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6d70: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 OR;. }. st
6d80: 61 74 65 50 74 72 09 3d 20 28 53 74 61 74 65 20 atePtr.= (State
6d90: 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 *) Tcl_GetChanne
6da0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 lInstanceData(ch
6db0: 61 6e 29 3b 0a 20 20 20 20 70 65 65 72 09 3d 20 an);. peer.=
6dc0: 53 53 4c 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 SSL_get_peer_cer
6dd0: 74 69 66 69 63 61 74 65 28 73 74 61 74 65 50 74 tificate(statePt
6de0: 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 69 66 20 r->ssl);. if
6df0: 28 70 65 65 72 29 20 7b 0a 09 6f 62 6a 50 74 72 (peer) {..objPtr
6e00: 20 3d 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 = Tls_NewX509Ob
6e10: 6a 28 69 6e 74 65 72 70 2c 20 70 65 65 72 29 3b j(interp, peer);
6e20: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6f . } else {..o
6e30: 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c bjPtr = Tcl_NewL
6e40: 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b istObj(0, NULL);
6e50: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 69 70 68 . }.. ciph
6e60: 65 72 73 20 3d 20 28 63 68 61 72 2a 29 53 53 4c ers = (char*)SSL
6e70: 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 _get_cipher(stat
6e80: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 ePtr->ssl);.
6e90: 69 66 20 28 63 69 70 68 65 72 73 20 21 3d 20 4e if (ciphers != N
6ea0: 55 4c 4c 20 26 26 20 73 74 72 63 6d 70 28 63 69 ULL && strcmp(ci
6eb0: 70 68 65 72 73 2c 20 22 28 4e 4f 4e 45 29 22 29 phers, "(NONE)")
6ec0: 21 3d 30 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 !=0) {..Tcl_List
6ed0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
6ee0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
6ef0: 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 ...Tcl_NewString
6f00: 4f 62 6a 28 22 63 69 70 68 65 72 22 2c 20 2d 31 Obj("cipher", -1
6f10: 29 29 3b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a ));..Tcl_ListObj
6f20: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
6f30: 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 terp, objPtr,...
6f40: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
6f50: 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 (SSL_get_cipher(
6f60: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c 20 statePtr->ssl),
6f70: 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 -1));. }.
6f80: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
6f90: 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 ( interp, objPtr
6fa0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
6fb0: 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d L_OK;.}.../*. *-
6fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7000: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 46 72 65 --. *. * Tls_Fre
7010: 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 e --. *. *.This
7020: 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 procedure cleans
7030: 20 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 up when a SSL s
7040: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
7050: 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 nel. *.is closed
7060: 20 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e and its referen
7070: 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 ce count falls b
7080: 65 6c 6f 77 20 31 0a 20 2a 0a 20 2a 20 52 65 73 elow 1. *. * Res
7090: 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ults:. *.none. *
70a0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
70b0: 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 :. *.Frees all t
70c0: 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d he state. *. *--
70d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7110: 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 46 -. */.void.Tls_F
7120: 72 65 65 28 20 63 68 61 72 20 2a 62 6c 6f 63 6b ree( char *block
7130: 50 74 72 20 29 0a 7b 0a 20 20 20 20 53 74 61 74 Ptr ).{. Stat
7140: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 e *statePtr = (S
7150: 74 61 74 65 20 2a 29 62 6c 6f 63 6b 50 74 72 3b tate *)blockPtr;
7160: 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e 28 .. Tls_Clean(
7170: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 statePtr);. T
7180: 63 6c 5f 46 72 65 65 28 62 6c 6f 63 6b 50 74 72 cl_Free(blockPtr
7190: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d );.}.../*. *----
71a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
71b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
71c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
71d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
71e0: 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 61 6e 20 *. * Tls_Clean
71f0: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
7200: 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 75 ocedure cleans u
7210: 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 p when a SSL soc
7220: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
7230: 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 l. *.is closed a
7240: 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 65 nd its reference
7250: 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c count falls bel
7260: 6f 77 20 31 2e 20 20 54 68 69 73 20 73 68 6f 75 ow 1. This shou
7270: 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c 65 64 20 ld. *.be called
7280: 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 62 79 synchronously by
7290: 20 74 68 65 20 43 6c 6f 73 65 50 72 6f 63 2c 20 the CloseProc,
72a0: 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a 09 45 76 not in the. *.Ev
72b0: 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 63 61 6c entuallyFree cal
72c0: 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65 73 lback.. *. * Res
72d0: 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ults:. *.none. *
72e0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
72f0: 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 :. *.Frees all t
7300: 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d he state. *. *--
7310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7350: 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 43 -. */.void.Tls_C
7360: 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 74 61 74 lean(State *stat
7370: 65 50 74 72 29 0a 7b 0a 20 20 20 20 2f 2a 0a 20 ePtr).{. /*.
7380: 20 20 20 20 2a 20 77 65 27 72 65 20 61 73 73 75 * we're assu
7390: 6d 69 6e 67 20 68 65 72 65 20 74 68 61 74 20 77 ming here that w
73a0: 65 27 72 65 20 73 69 6e 67 6c 65 2d 74 68 72 65 e're single-thre
73b0: 61 64 65 64 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 aded. */..
73c0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
73d0: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
73e0: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
73f0: 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d {..Tcl_DeleteTim
7400: 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 erHandler(stateP
7410: 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 tr->timer);..sta
7420: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 4e tePtr->timer = N
7430: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ULL;. }..
7440: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 73 if (statePtr->ss
7450: 6c 29 20 7b 0a 09 53 53 4c 5f 73 68 75 74 64 6f l) {..SSL_shutdo
7460: 77 6e 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c wn(statePtr->ssl
7470: 29 3b 0a 09 53 53 4c 5f 66 72 65 65 28 73 74 61 );..SSL_free(sta
7480: 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 73 74 tePtr->ssl);..st
7490: 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d 20 4e 55 atePtr->ssl = NU
74a0: 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 LL;. }. if
74b0: 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c (statePtr->call
74c0: 62 61 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 65 63 back) {..Tcl_Dec
74d0: 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 rRefCount(stateP
74e0: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 tr->callback);..
74f0: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
7500: 63 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d ck = NULL;. }
7510: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
7520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
7560: 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 20 2d 2d 0a . * Tls_Init --.
7570: 20 2a 0a 20 2a 09 54 68 69 73 20 69 73 20 61 20 *. *.This is a
7580: 70 61 63 6b 61 67 65 20 69 6e 69 74 69 61 6c 69 package initiali
7590: 7a 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 65 zation procedure
75a0: 2c 20 77 68 69 63 68 20 69 73 20 63 61 6c 6c 65 , which is calle
75b0: 64 0a 20 2a 09 62 79 20 54 63 6c 20 77 68 65 6e d. *.by Tcl when
75c0: 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 73 this package is
75d0: 20 74 6f 20 62 65 20 61 64 64 65 64 20 74 6f 20 to be added to
75e0: 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a an interpreter..
75f0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 20 20 *. * Results:
7600: 53 73 6c 20 63 6f 6e 66 69 67 75 72 65 64 20 61 Ssl configured a
7610: 6e 64 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a 20 nd loaded. *. *
7620: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
7630: 09 20 63 72 65 61 74 65 20 74 68 65 20 73 73 6c . create the ssl
7640: 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 61 command, initia
7650: 6c 69 73 65 20 73 73 6c 20 63 6f 6e 74 65 78 74 lise ssl context
7660: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
7670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69 ---------. */..i
76b0: 6e 74 0a 54 6c 73 5f 49 6e 69 74 28 54 63 6c 5f nt.Tls_Init(Tcl_
76c0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 09 Interp *interp).
76d0: 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 ./* Interpreter
76e0: 69 6e 20 77 68 69 63 68 20 74 68 65 20 70 61 63 in which the pac
76f0: 6b 61 67 65 20 69 73 0a 20 20 20 20 20 20 20 20 kage is.
7700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
7720: 20 2a 20 74 6f 20 62 65 20 6d 61 64 65 20 61 76 * to be made av
7730: 61 69 6c 61 62 6c 65 2e 20 2a 2f 0a 7b 0a 23 69 ailable. */.{.#i
7740: 66 20 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 f TCL_MAJOR_VERS
7750: 49 4f 4e 20 3e 3d 20 38 20 26 26 20 54 43 4c 5f ION >= 8 && TCL_
7760: 4d 49 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3e 3d MINOR_VERSION >=
7770: 20 32 0a 20 20 20 20 69 66 20 28 21 54 63 6c 5f 2. if (!Tcl_
7780: 49 6e 69 74 53 74 75 62 73 28 69 6e 74 65 72 70 InitStubs(interp
7790: 2c 20 54 43 4c 5f 56 45 52 53 49 4f 4e 2c 20 30 , TCL_VERSION, 0
77a0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 72 65 74 )) {. ret
77b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
77c0: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 }.#endif.
77d0: 69 66 20 28 53 53 4c 5f 6c 69 62 72 61 72 79 5f if (SSL_library_
77e0: 69 6e 69 74 28 29 20 21 3d 20 31 29 20 7b 0a 20 init() != 1) {.
77f0: 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e Tcl_Appen
7800: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
7810: 22 63 6f 75 6c 64 20 6e 6f 74 20 69 6e 69 74 69 "could not initi
7820: 61 6c 69 7a 65 20 53 53 4c 20 6c 69 62 72 61 72 alize SSL librar
7830: 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 y", NULL);..retu
7840: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7850: 20 20 7d 0a 20 20 20 20 53 53 4c 5f 6c 6f 61 64 }. SSL_load
7860: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 73 28 29 _error_strings()
7870: 3b 0a 20 20 20 20 45 52 52 5f 6c 6f 61 64 5f 63 ;. ERR_load_c
7880: 72 79 70 74 6f 5f 73 74 72 69 6e 67 73 28 29 3b rypto_strings();
7890: 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 .. Tcl_Create
78a0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
78b0: 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 p, "tls::ciphers
78c0: 22 2c 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 ", CiphersObjCmd
78d0: 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e 74 44 61 ,.. (ClientDa
78e0: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
78f0: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
7900: 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 L);.. Tcl_Cre
7910: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
7920: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 terp, "tls::hand
7930: 73 68 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b shake", Handshak
7940: 65 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 eObjCmd,.. (C
7950: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 lientData) 0, (T
7960: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
7970: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 *) NULL);..
7980: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
7990: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
79a0: 73 3a 3a 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f s::import", Impo
79b0: 72 74 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 rtObjCmd,.. (
79c0: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
79d0: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
79e0: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 c *) NULL);..
79f0: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
7a00: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
7a10: 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 61 ls::status", Sta
7a20: 74 75 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 tusObjCmd,..
7a30: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
7a40: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
7a50: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 oc *) NULL);..
7a60: 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 50 6b 67 return Tcl_Pkg
7a70: 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20 Provide(interp,
7a80: 50 41 43 4b 41 47 45 2c 20 56 45 52 53 49 4f 4e PACKAGE, VERSION
7a90: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d );.}.../*. *----
7aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ad0: 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 --*. *. *.Tls_Sa
7ae0: 66 65 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 feInit --. *. *.
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: 2a 0a 20 2a 09 53 74 61 6e 64 61 72 64 20 70 72 *. *.Standard pr
7b30: 6f 63 65 64 75 72 65 20 72 65 71 75 69 72 65 64 ocedure required
7b40: 20 62 79 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 by 'load'. . *.
7b50: 49 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 69 73 Initializes this
7b60: 20 65 78 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 extension for a
7b70: 20 73 61 66 65 20 69 6e 74 65 72 70 72 65 74 65 safe interprete
7b80: 72 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d r.. *.----------
7b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7bb0: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 ------*. *. *.Si
7bc0: 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 41 deeffects:. *..A
7bd0: 73 20 6f 66 20 27 54 6c 73 5f 49 6e 69 74 27 0a s of 'Tls_Init'.
7be0: 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a *. *.Result:. *
7bf0: 09 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c ..A standard Tcl
7c00: 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a error code.. *.
7c10: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7c40: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 69 --------*. */..i
7c50: 6e 74 0a 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 nt.Tls_SafeInit
7c60: 28 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 (Tcl_Interp* int
7c70: 65 72 70 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 erp).{. retur
7c80: 6e 20 54 6c 73 5f 49 6e 69 74 20 28 69 6e 74 65 n Tls_Init (inte
7c90: 72 70 29 3b 0a 7d 0a rp);.}.