0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 31 39 39 39 20 4d 61 (C) 1997-1999 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 73 6f 6d 65 20 6d 6f 64 69 66 69 63 61 74 69 some modificati
0050: 6f 6e 73 3a 0a 20 2a 09 43 6f 70 79 72 69 67 68 ons:. *.Copyrigh
0060: 74 20 28 43 29 20 32 30 30 30 20 41 6a 75 62 61 t (C) 2000 Ajuba
0070: 20 53 6f 6c 75 74 69 6f 6e 73 0a 20 2a 09 43 6f Solutions. *.Co
0080: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 32 pyright (C) 2002
0090: 20 41 63 74 69 76 65 53 74 61 74 65 20 43 6f 72 ActiveState Cor
00a0: 70 6f 72 61 74 69 6f 6e 0a 20 2a 09 43 6f 70 79 poration. *.Copy
00b0: 72 69 67 68 74 20 28 43 29 20 32 30 30 34 20 53 right (C) 2004 S
00c0: 74 61 72 66 69 73 68 20 53 79 73 74 65 6d 73 20 tarfish Systems
00d0: 0a 20 2a 0a 20 2a 20 24 48 65 61 64 65 72 3a 20 . *. * $Header:
00e0: 2f 68 6f 6d 65 2f 72 6b 65 65 6e 65 2f 74 6d 70 /home/rkeene/tmp
00f0: 2f 63 76 73 32 66 6f 73 73 69 6c 2f 2e 2e 2f 74 /cvs2fossil/../t
0100: 63 6c 74 6c 73 2f 74 6c 73 2f 74 6c 73 2f 74 6c cltls/tls/tls/tl
0110: 73 2e 63 2c 76 20 31 2e 32 32 20 32 30 30 34 2f s.c,v 1.22 2004/
0120: 30 33 2f 32 34 20 30 35 3a 32 32 3a 35 33 20 72 03/24 05:22:53 r
0130: 61 7a 7a 65 6c 6c 20 45 78 70 20 24 0a 20 2a 0a azzell Exp $. *.
0140: 20 2a 20 54 4c 53 20 28 61 6b 61 20 53 53 4c 29 * TLS (aka SSL)
0150: 20 43 68 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 Channel - can b
0160: 65 20 6c 61 79 65 72 65 64 20 6f 6e 20 61 6e 79 e layered on any
0170: 20 62 69 2d 64 69 72 65 63 74 69 6f 6e 61 6c 0a bi-directional.
0180: 20 2a 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 * Tcl_Channel (
0190: 4e 6f 74 65 3a 20 52 65 71 75 69 72 65 73 20 54 Note: Requires T
01a0: 72 66 20 43 6f 72 65 20 50 61 74 63 68 29 0a 20 rf Core Patch).
01b0: 2a 0a 20 2a 20 54 68 69 73 20 77 61 73 20 62 75 *. * This was bu
01c0: 69 6c 74 20 28 61 6c 6d 6f 73 74 29 20 66 72 6f ilt (almost) fro
01d0: 6d 20 73 63 72 61 74 63 68 20 62 61 73 65 64 20 m scratch based
01e0: 75 70 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e upon observation
01f0: 20 6f 66 0a 20 2a 20 4f 70 65 6e 53 53 4c 20 30 of. * OpenSSL 0
0200: 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20 41 64 64 69 .9.2B. *. * Addi
0210: 74 69 6f 6e 20 63 72 65 64 69 74 20 69 73 20 64 tion credit is d
0220: 75 65 20 66 6f 72 20 41 6e 64 72 65 61 73 20 4b ue for Andreas K
0230: 75 70 72 69 65 73 20 28 61 2e 6b 75 70 72 69 65 upries (a.kuprie
0240: 73 40 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c 20 s@westend.com),
0250: 66 6f 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e 67 for. * providing
0260: 20 74 68 65 20 54 63 6c 5f 52 65 70 6c 61 63 65 the Tcl_Replace
0270: 43 68 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69 73 Channel mechanis
0280: 6d 20 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63 6c m and working cl
0290: 6f 73 65 6c 79 20 77 69 74 68 20 6d 65 0a 20 2a osely with me. *
02a0: 20 74 6f 20 65 6e 68 61 6e 63 65 20 69 74 20 74 to enhance it t
02b0: 6f 20 73 75 70 70 6f 72 74 20 66 75 6c 6c 20 66 o support full f
02c0: 69 6c 65 65 76 65 6e 74 20 73 65 6d 61 6e 74 69 ileevent semanti
02d0: 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20 77 cs.. *. * Also w
02e0: 6f 72 6b 20 64 6f 6e 65 20 62 79 20 74 68 65 20 ork done by the
02f0: 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70 72 follow people pr
0300: 6f 76 69 64 65 64 20 74 68 65 20 69 6d 70 65 74 ovided the impet
0310: 75 73 20 74 6f 20 64 6f 20 74 68 69 73 20 22 72 us to do this "r
0320: 69 67 68 74 22 3a 0a 20 2a 09 74 63 6c 53 53 4c ight":. *.tclSSL
0330: 20 28 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 (Colin McCormac
0340: 6b 2c 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f k, Shared Techno
0350: 6c 6f 67 79 29 0a 20 2a 09 53 53 4c 74 63 6c 20 logy). *.SSLtcl
0360: 28 50 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a 20 (Peter Antman).
0370: 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 *. */..#include
0380: 22 74 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 6c "tlsInt.h".#incl
0390: 75 64 65 20 22 74 63 6c 4f 70 74 73 2e 68 22 0a ude "tclOpts.h".
03a0: 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 #include <stdlib
03b0: 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 45 78 74 65 72 .h>../*. * Exter
03c0: 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 73 0a 20 2a nal functions. *
03d0: 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 /../*. * Forward
03e0: 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a declarations. *
03f0: 2f 0a 0a 23 64 65 66 69 6e 65 20 46 32 4e 28 20 /..#define F2N(
0400: 6b 65 79 2c 20 64 73 70 29 20 5c 0a 09 28 28 28 key, dsp) \..(((
0410: 6b 65 79 29 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 key) == NULL) ?
0420: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 20 3a 20 (char *) NULL :
0430: 5c 0a 09 09 54 63 6c 5f 54 72 61 6e 73 6c 61 74 \...Tcl_Translat
0440: 65 46 69 6c 65 4e 61 6d 65 28 69 6e 74 65 72 70 eFileName(interp
0450: 2c 20 28 6b 65 79 29 2c 20 28 64 73 70 29 29 29 , (key), (dsp)))
0460: 0a 23 64 65 66 69 6e 65 20 52 45 41 53 4f 4e 28 .#define REASON(
0470: 29 09 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 ).ERR_reason_err
0480: 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 or_string(ERR_ge
0490: 74 5f 65 72 72 6f 72 28 29 29 0a 0a 73 74 61 74 t_error())..stat
04a0: 69 63 20 69 6e 74 09 43 69 70 68 65 72 73 4f 62 ic int.CiphersOb
04b0: 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f jCmd _ANSI_ARGS_
04c0: 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ((ClientData cl
04d0: 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c ientData,....Tcl
04e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
04f0: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
0500: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
0510: 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 ));..static int.
0520: 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 HandshakeObjCmd
0530: 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c _ANSI_ARGS_ ((Cl
0540: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
0550: 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 ata,....Tcl_Inte
0560: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
0570: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 objc, Tcl_Obj *C
0580: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a ONST objv[]));..
0590: 73 74 61 74 69 63 20 69 6e 74 09 49 6d 70 6f 72 static int.Impor
05a0: 74 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 tObjCmd _ANSI_AR
05b0: 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 GS_ ((ClientData
05c0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 clientData,....
05d0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
05e0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
05f0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a l_Obj *CONST obj
0600: 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 v[]));..static i
0610: 6e 74 09 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 nt.StatusObjCmd
0620: 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c _ANSI_ARGS_ ((Cl
0630: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
0640: 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 ata,....Tcl_Inte
0650: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
0660: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 objc, Tcl_Obj *C
0670: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a ONST objv[]));..
0680: 73 74 61 74 69 63 20 69 6e 74 09 56 65 72 73 69 static int.Versi
0690: 6f 6e 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 onObjCmd _ANSI_A
06a0: 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 RGS_ ((ClientDat
06b0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 a clientData,...
06c0: 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 .Tcl_Interp *int
06d0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
06e0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 cl_Obj *CONST ob
06f0: 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 jv[]));..static
0700: 69 6e 74 09 4d 69 73 63 4f 62 6a 43 6d 64 20 5f int.MiscObjCmd _
0710: 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 ANSI_ARGS_ ((Cli
0720: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
0730: 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 ta,....Tcl_Inter
0740: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
0750: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f bjc, Tcl_Obj *CO
0760: 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 NST objv[]));..s
0770: 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 tatic SSL_CTX *C
0780: 54 58 5f 49 6e 69 74 20 5f 41 4e 53 49 5f 41 52 TX_Init _ANSI_AR
0790: 47 53 5f 28 28 53 74 61 74 65 20 2a 73 74 61 74 GS_((State *stat
07a0: 65 50 74 72 2c 20 69 6e 74 20 70 72 6f 74 6f 2c ePtr, int proto,
07b0: 20 63 68 61 72 20 2a 6b 65 79 2c 0a 09 09 09 63 char *key,....c
07c0: 68 61 72 20 2a 63 65 72 74 2c 20 63 68 61 72 20 har *cert, char
07d0: 2a 43 41 64 69 72 2c 20 63 68 61 72 20 2a 43 41 *CAdir, char *CA
07e0: 66 69 6c 65 2c 20 63 68 61 72 20 2a 63 69 70 68 file, char *ciph
07f0: 65 72 73 29 29 3b 0a 0a 23 64 65 66 69 6e 65 20 ers));..#define
0800: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 09 30 TLS_PROTO_SSL2.0
0810: 78 30 31 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f x01.#define TLS_
0820: 50 52 4f 54 4f 5f 53 53 4c 33 09 30 78 30 32 0a PROTO_SSL3.0x02.
0830: 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 #define TLS_PROT
0840: 4f 5f 54 4c 53 31 09 30 78 30 34 0a 23 64 65 66 O_TLS1.0x04.#def
0850: 69 6e 65 20 45 4e 41 42 4c 45 44 28 66 6c 61 67 ine ENABLED(flag
0860: 2c 20 6d 61 73 6b 29 09 28 28 28 66 6c 61 67 29 , mask).(((flag)
0870: 20 26 20 28 6d 61 73 6b 29 29 20 3d 3d 20 28 6d & (mask)) == (m
0880: 61 73 6b 29 29 0a 0a 2f 2a 0a 20 2a 20 53 74 61 ask))../*. * Sta
0890: 74 69 63 20 64 61 74 61 20 73 74 72 75 63 74 75 tic data structu
08a0: 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 res. */..#ifndef
08b0: 20 4e 4f 5f 44 48 0a 2f 2a 20 66 72 6f 6d 20 6f NO_DH./* from o
08c0: 70 65 6e 73 73 6c 2f 61 70 70 73 2f 73 5f 73 65 penssl/apps/s_se
08d0: 72 76 65 72 2e 63 20 2a 2f 0a 0a 73 74 61 74 69 rver.c */..stati
08e0: 63 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 c unsigned char
08f0: 64 68 35 31 32 5f 70 5b 5d 3d 7b 0a 09 30 78 44 dh512_p[]={..0xD
0900: 41 2c 30 78 35 38 2c 30 78 33 43 2c 30 78 31 36 A,0x58,0x3C,0x16
0910: 2c 30 78 44 39 2c 30 78 38 35 2c 30 78 32 32 2c ,0xD9,0x85,0x22,
0920: 30 78 38 39 2c 30 78 44 30 2c 30 78 45 34 2c 30 0x89,0xD0,0xE4,0
0930: 78 41 46 2c 30 78 37 35 2c 0a 09 30 78 36 46 2c xAF,0x75,..0x6F,
0940: 30 78 34 43 2c 30 78 43 41 2c 30 78 39 32 2c 30 0x4C,0xCA,0x92,0
0950: 78 44 44 2c 30 78 34 42 2c 30 78 45 35 2c 30 78 xDD,0x4B,0xE5,0x
0960: 33 33 2c 30 78 42 38 2c 30 78 30 34 2c 30 78 46 33,0xB8,0x04,0xF
0970: 42 2c 30 78 30 46 2c 0a 09 30 78 45 44 2c 30 78 B,0x0F,..0xED,0x
0980: 39 34 2c 30 78 45 46 2c 30 78 39 43 2c 30 78 38 94,0xEF,0x9C,0x8
0990: 41 2c 30 78 34 34 2c 30 78 30 33 2c 30 78 45 44 A,0x44,0x03,0xED
09a0: 2c 30 78 35 37 2c 30 78 34 36 2c 30 78 35 30 2c ,0x57,0x46,0x50,
09b0: 30 78 44 33 2c 0a 09 30 78 36 39 2c 30 78 39 39 0xD3,..0x69,0x99
09c0: 2c 30 78 44 42 2c 30 78 32 39 2c 30 78 44 37 2c ,0xDB,0x29,0xD7,
09d0: 30 78 37 36 2c 30 78 32 37 2c 30 78 36 42 2c 30 0x76,0x27,0x6B,0
09e0: 78 41 32 2c 30 78 44 33 2c 30 78 44 34 2c 30 78 xA2,0xD3,0xD4,0x
09f0: 31 32 2c 0a 09 30 78 45 32 2c 30 78 31 38 2c 30 12,..0xE2,0x18,0
0a00: 78 46 34 2c 30 78 44 44 2c 30 78 31 45 2c 30 78 xF4,0xDD,0x1E,0x
0a10: 30 38 2c 30 78 34 43 2c 30 78 46 36 2c 30 78 44 08,0x4C,0xF6,0xD
0a20: 38 2c 30 78 30 30 2c 30 78 33 45 2c 30 78 37 43 8,0x00,0x3E,0x7C
0a30: 2c 0a 09 30 78 34 37 2c 30 78 37 34 2c 30 78 45 ,..0x47,0x74,0xE
0a40: 38 2c 30 78 33 33 2c 0a 09 7d 3b 0a 73 74 61 74 8,0x33,..};.stat
0a50: 69 63 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ic unsigned char
0a60: 20 64 68 35 31 32 5f 67 5b 5d 3d 7b 0a 09 30 78 dh512_g[]={..0x
0a70: 30 32 2c 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 44 02,.};..static D
0a80: 48 20 2a 67 65 74 5f 64 68 35 31 32 28 29 0a 7b H *get_dh512().{
0a90: 0a 20 20 20 20 44 48 20 2a 64 68 3d 4e 55 4c 4c . DH *dh=NULL
0aa0: 3b 0a 0a 20 20 20 20 69 66 20 28 28 64 68 3d 44 ;.. if ((dh=D
0ab0: 48 5f 6e 65 77 28 29 29 20 3d 3d 20 4e 55 4c 4c H_new()) == NULL
0ac0: 29 20 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a ) return(NULL);.
0ad0: 0a 20 20 20 20 64 68 2d 3e 70 3d 42 4e 5f 62 69 . dh->p=BN_bi
0ae0: 6e 32 62 6e 28 64 68 35 31 32 5f 70 2c 73 69 7a n2bn(dh512_p,siz
0af0: 65 6f 66 28 64 68 35 31 32 5f 70 29 2c 4e 55 4c eof(dh512_p),NUL
0b00: 4c 29 3b 0a 20 20 20 20 64 68 2d 3e 67 3d 42 4e L);. dh->g=BN
0b10: 5f 62 69 6e 32 62 6e 28 64 68 35 31 32 5f 67 2c _bin2bn(dh512_g,
0b20: 73 69 7a 65 6f 66 28 64 68 35 31 32 5f 67 29 2c sizeof(dh512_g),
0b30: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 NULL);.. if (
0b40: 28 64 68 2d 3e 70 20 3d 3d 20 4e 55 4c 4c 29 20 (dh->p == NULL)
0b50: 7c 7c 20 28 64 68 2d 3e 67 20 3d 3d 20 4e 55 4c || (dh->g == NUL
0b60: 4c 29 29 0a 09 72 65 74 75 72 6e 28 4e 55 4c 4c L))..return(NULL
0b70: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 28 64 68 );. return(dh
0b80: 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a );.}.#endif../*.
0b90: 20 2a 20 44 65 66 69 6e 65 64 20 69 6e 20 54 6c * Defined in Tl
0ba0: 73 5f 49 6e 69 74 20 74 6f 20 64 65 74 65 72 6d s_Init to determ
0bb0: 69 6e 65 20 77 68 61 74 20 6b 69 6e 64 20 6f 66 ine what kind of
0bc0: 20 63 68 61 6e 6e 65 6c 73 20 77 65 20 61 72 65 channels we are
0bd0: 20 75 73 69 6e 67 0a 20 2a 20 28 6f 6c 64 2d 73 using. * (old-s
0be0: 74 79 6c 65 20 38 2e 32 2e 30 2d 38 2e 33 2e 31 tyle 8.2.0-8.3.1
0bf0: 20 6f 72 20 6e 65 77 2d 73 74 79 6c 65 20 38 2e or new-style 8.
0c00: 33 2e 32 2b 29 2e 0a 20 2a 2f 0a 69 6e 74 20 63 3.2+).. */.int c
0c10: 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f hannelTypeVersio
0c20: 6e 3b 0a 0a 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 n;../*. * We los
0c30: 65 20 74 68 65 20 74 63 6c 20 70 61 73 73 77 6f e the tcl passwo
0c40: 72 64 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e rd callback when
0c50: 20 77 65 20 75 73 65 20 74 68 65 20 52 53 41 20 we use the RSA
0c60: 42 53 41 46 45 20 53 53 4c 2d 43 20 31 2e 31 2e BSAFE SSL-C 1.1.
0c70: 32 0a 20 2a 20 6c 69 62 72 61 72 69 65 73 20 69 2. * libraries i
0c80: 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 63 75 nstead of the cu
0c90: 72 72 65 6e 74 20 4f 70 65 6e 53 53 4c 20 6c 69 rrent OpenSSL li
0ca0: 62 72 61 72 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 braries.. */..#i
0cb0: 66 64 65 66 20 42 53 41 46 45 0a 23 64 65 66 69 fdef BSAFE.#defi
0cc0: 6e 65 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 ne PRE_OPENSSL_0
0cd0: 5f 39 5f 34 20 31 0a 23 65 6e 64 69 66 0a 0a 2f _9_4 1.#endif../
0ce0: 2a 0a 20 2a 20 50 65 72 20 4f 70 65 6e 53 53 4c *. * Per OpenSSL
0cf0: 20 30 2e 39 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 0.9.4 Compat. *
0d00: 2f 0a 0a 23 69 66 6e 64 65 66 20 53 54 41 43 4b /..#ifndef STACK
0d10: 5f 4f 46 0a 23 64 65 66 69 6e 65 20 53 54 41 43 _OF.#define STAC
0d20: 4b 5f 4f 46 28 78 29 09 09 09 53 54 41 43 4b 0a K_OF(x)...STACK.
0d30: 23 64 65 66 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 #define sk_SSL_C
0d40: 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 09 09 73 IPHER_num(sk)..s
0d50: 6b 5f 6e 75 6d 28 28 73 6b 29 29 0a 23 64 65 66 k_num((sk)).#def
0d60: 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 ine sk_SSL_CIPHE
0d70: 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 R_value( sk, ind
0d80: 65 78 29 09 28 53 53 4c 5f 43 49 50 48 45 52 2a ex).(SSL_CIPHER*
0d90: 29 73 6b 5f 76 61 6c 75 65 28 28 73 6b 29 2c 20 )sk_value((sk),
0da0: 28 69 6e 64 65 78 29 29 0a 23 65 6e 64 69 66 0a (index)).#endif.
0db0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
0dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
0e00: 2a 20 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 2d * InfoCallback -
0e10: 2d 0a 20 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 -. *. *.monitors
0e20: 20 53 53 4c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 SSL connection
0e30: 70 72 6f 63 65 73 73 0a 20 2a 0a 20 2a 20 52 65 process. *. * Re
0e40: 73 75 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 sults:. *.None.
0e50: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
0e60: 73 3a 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c s:. *.Calls call
0e70: 62 61 63 6b 20 28 69 66 20 64 65 66 69 6e 65 64 back (if defined
0e80: 29 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ). *------------
0e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ec0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
0ed0: 69 63 20 76 6f 69 64 0a 49 6e 66 6f 43 61 6c 6c ic void.InfoCall
0ee0: 62 61 63 6b 28 53 53 4c 20 2a 73 73 6c 2c 20 69 back(SSL *ssl, i
0ef0: 6e 74 20 77 68 65 72 65 2c 20 69 6e 74 20 72 65 nt where, int re
0f00: 74 29 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a t).{. State *
0f10: 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 statePtr = (Stat
0f20: 65 2a 29 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 e*)SSL_get_app_d
0f30: 61 74 61 28 73 73 6c 29 3b 0a 20 20 20 20 54 63 ata(ssl);. Tc
0f40: 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 l_Obj *cmdPtr;.
0f50: 20 20 20 63 68 61 72 20 2a 6d 61 6a 6f 72 3b 20 char *major;
0f60: 63 68 61 72 20 2a 6d 69 6e 6f 72 3b 0a 0a 20 20 char *minor;..
0f70: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0f80: 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c callback == (Tcl
0f90: 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 0a 09 72 65 74 _Obj*)NULL)..ret
0fa0: 75 72 6e 3b 0a 0a 20 20 20 20 63 6d 64 50 74 72 urn;.. cmdPtr
0fb0: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
0fc0: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 Obj(statePtr->ca
0fd0: 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 20 30 0a llback);..#if 0.
0fe0: 20 20 20 20 69 66 20 28 77 68 65 72 65 20 26 20 if (where &
0ff0: 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a SSL_CB_ALERT) {.
1000: 09 73 65 76 20 3d 20 53 53 4c 5f 61 6c 65 72 74 .sev = SSL_alert
1010: 5f 74 79 70 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e _type_string_lon
1020: 67 28 72 65 74 29 3b 0a 09 69 66 20 28 73 74 72 g(ret);..if (str
1030: 63 6d 70 28 20 73 65 76 2c 20 22 66 61 74 61 6c cmp( sev, "fatal
1040: 22 29 3d 3d 30 29 20 7b 09 2f 2a 20 4d 61 70 20 ")==0) {./* Map
1050: 74 6f 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 to error */..
1060: 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 Tls_Error(state
1070: 50 74 72 2c 20 53 53 4c 5f 45 52 52 4f 52 28 73 Ptr, SSL_ERROR(s
1080: 73 6c 2c 20 30 29 29 3b 0a 09 20 20 20 20 72 65 sl, 0));.. re
1090: 74 75 72 6e 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 turn;..}. }.#
10a0: 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28 77 68 endif. if (wh
10b0: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 48 41 4e ere & SSL_CB_HAN
10c0: 44 53 48 41 4b 45 5f 53 54 41 52 54 29 20 7b 0a DSHAKE_START) {.
10d0: 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64 73 68 .major = "handsh
10e0: 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d 20 22 ake";..minor = "
10f0: 73 74 61 72 74 22 3b 0a 20 20 20 20 7d 20 65 6c start";. } el
1100: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
1110: 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b 45 5f SL_CB_HANDSHAKE_
1120: 44 4f 4e 45 29 20 7b 0a 09 6d 61 6a 6f 72 20 3d DONE) {..major =
1130: 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a 09 6d "handshake";..m
1140: 69 6e 6f 72 20 3d 20 22 64 6f 6e 65 22 3b 0a 20 inor = "done";.
1150: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69 66 20 } else {..if
1160: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
1170: 41 4c 45 52 54 29 09 09 6d 61 6a 6f 72 20 3d 20 ALERT)..major =
1180: 22 61 6c 65 72 74 22 3b 0a 09 65 6c 73 65 20 69 "alert";..else i
1190: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 53 f (where & SSL_S
11a0: 54 5f 43 4f 4e 4e 45 43 54 29 09 6d 61 6a 6f 72 T_CONNECT).major
11b0: 20 3d 20 22 63 6f 6e 6e 65 63 74 22 3b 0a 09 65 = "connect";..e
11c0: 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 lse if (where &
11d0: 53 53 4c 5f 53 54 5f 41 43 43 45 50 54 29 09 09 SSL_ST_ACCEPT)..
11e0: 6d 61 6a 6f 72 20 3d 20 22 61 63 63 65 70 74 22 major = "accept"
11f0: 3b 0a 09 65 6c 73 65 09 09 09 09 09 6d 61 6a 6f ;..else.....majo
1200: 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 0a r = "unknown";..
1210: 09 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c .if (where & SSL
1220: 5f 43 42 5f 52 45 41 44 29 09 09 6d 69 6e 6f 72 _CB_READ)..minor
1230: 20 3d 20 22 72 65 61 64 22 3b 0a 09 65 6c 73 65 = "read";..else
1240: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c if (where & SSL
1250: 5f 43 42 5f 57 52 49 54 45 29 09 09 6d 69 6e 6f _CB_WRITE)..mino
1260: 72 20 3d 20 22 77 72 69 74 65 22 3b 0a 09 65 6c r = "write";..el
1270: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
1280: 53 4c 5f 43 42 5f 4c 4f 4f 50 29 09 09 6d 69 6e SL_CB_LOOP)..min
1290: 6f 72 20 3d 20 22 6c 6f 6f 70 22 3b 0a 09 65 6c or = "loop";..el
12a0: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
12b0: 53 4c 5f 43 42 5f 45 58 49 54 29 09 09 6d 69 6e SL_CB_EXIT)..min
12c0: 6f 72 20 3d 20 22 65 78 69 74 22 3b 0a 09 65 6c or = "exit";..el
12d0: 73 65 09 09 09 09 09 6d 69 6e 6f 72 20 3d 20 22 se.....minor = "
12e0: 75 6e 6b 6e 6f 77 6e 22 3b 0a 20 20 20 20 7d 0a unknown";. }.
12f0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1300: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1310: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1320: 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 cmdPtr, .. T
1330: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1340: 20 22 69 6e 66 6f 22 2c 20 2d 31 29 29 3b 0a 0a "info", -1));..
1350: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1360: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1370: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1380: 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 cmdPtr, .. Tc
1390: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
13a0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
13b0: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c me(statePtr->sel
13c0: 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 f), -1) );..
13d0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
13e0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
13f0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1400: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
1410: 53 74 72 69 6e 67 4f 62 6a 28 20 6d 61 6a 6f 72 StringObj( major
1420: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
1430: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1440: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1450: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1460: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 ,.. Tcl_NewSt
1470: 72 69 6e 67 4f 62 6a 28 20 6d 69 6e 6f 72 2c 20 ringObj( minor,
1480: 2d 31 29 20 29 3b 0a 0a 20 20 20 20 69 66 20 28 -1) );.. if (
1490: 77 68 65 72 65 20 26 20 28 53 53 4c 5f 43 42 5f where & (SSL_CB_
14a0: 4c 4f 4f 50 7c 53 53 4c 5f 43 42 5f 45 58 49 54 LOOP|SSL_CB_EXIT
14b0: 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 )) {..Tcl_ListOb
14c0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
14d0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
14e0: 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 , cmdPtr,.. T
14f0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
1500: 20 53 53 4c 5f 73 74 61 74 65 5f 73 74 72 69 6e SSL_state_strin
1510: 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d 31 29 g_long(ssl), -1)
1520: 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 );. } else i
1530: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 f (where & SSL_C
1540: 42 5f 41 4c 45 52 54 29 20 7b 0a 09 43 4f 4e 53 B_ALERT) {..CONS
1550: 54 20 63 68 61 72 20 2a 63 70 20 3d 20 28 63 68 T char *cp = (ch
1560: 61 72 20 2a 29 20 53 53 4c 5f 61 6c 65 72 74 5f ar *) SSL_alert_
1570: 64 65 73 63 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 desc_string_long
1580: 28 72 65 74 29 3b 0a 0a 09 54 63 6c 5f 4c 69 73 (ret);...Tcl_Lis
1590: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
15a0: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
15b0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
15c0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
15d0: 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 3b 0a 20 bj( cp, -1) );.
15e0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c } else {..Tcl
15f0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1600: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1610: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1620: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
1630: 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 ingObj( SSL_stat
1640: 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 e_string_long(ss
1650: 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d l), -1) );. }
1660: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
1670: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 e( (ClientData)
1680: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1690: 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 );. Tcl_Prese
16a0: 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 rve( (ClientData
16b0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 ) statePtr);..
16c0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
16d0: 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 nt( cmdPtr);.
16e0: 20 28 76 6f 69 64 29 20 54 63 6c 5f 47 6c 6f 62 (void) Tcl_Glob
16f0: 61 6c 45 76 61 6c 4f 62 6a 28 73 74 61 74 65 50 alEvalObj(stateP
1700: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1710: 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 tr);. Tcl_Dec
1720: 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 rRefCount( cmdPt
1730: 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c r);.. Tcl_Rel
1740: 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 ease( (ClientDat
1750: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 a) statePtr);.
1760: 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 Tcl_Release( (
1770: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
1780: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a ePtr->interp);..
1790: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
17a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
17e0: 20 2a 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63 * VerifyCallbac
17f0: 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 4d 6f 6e 69 74 k --. *. *.Monit
1800: 6f 72 73 20 53 53 4c 20 63 65 72 74 69 66 69 63 ors SSL certific
1810: 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 20 70 ate validation p
1820: 72 6f 63 65 73 73 2e 0a 20 2a 09 54 68 69 73 20 rocess.. *.This
1830: 69 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 76 is called whenev
1840: 65 72 20 61 20 63 65 72 74 69 66 69 63 61 74 65 er a certificate
1850: 20 69 73 20 69 6e 73 70 65 63 74 65 64 0a 20 2a is inspected. *
1860: 09 6f 72 20 64 65 63 69 64 65 64 20 69 6e 76 61 .or decided inva
1870: 6c 69 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c lid.. *. * Resul
1880: 74 73 3a 0a 20 2a 09 41 20 63 61 6c 6c 62 61 63 ts:. *.A callbac
1890: 6b 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 73 k bound to the s
18a0: 6f 63 6b 65 74 20 6d 61 79 20 72 65 74 75 72 6e ocket may return
18b0: 20 6f 6e 65 20 6f 66 3a 0a 20 2a 09 20 20 20 20 one of:. *.
18c0: 30 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 0...- the certif
18d0: 69 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 icate is deemed
18e0: 69 6e 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 31 invalid. *. 1
18f0: 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 69 ...- the certifi
1900: 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 76 cate is deemed v
1910: 61 6c 69 64 0a 20 2a 09 20 20 20 20 65 6d 70 74 alid. *. empt
1920: 79 20 73 74 72 69 6e 67 09 2d 20 6e 6f 20 63 68 y string.- no ch
1930: 61 6e 67 65 20 74 6f 20 63 65 72 74 69 66 69 63 ange to certific
1940: 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 0a 20 ate validation.
1950: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
1960: 73 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 66 69 s:. *.The err fi
1970: 65 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 eld of the curre
1980: 6e 74 6c 79 20 6f 70 65 72 61 74 69 76 65 20 53 ntly operative S
1990: 74 61 74 65 20 69 73 20 73 65 74 0a 20 2a 09 20 tate is set. *.
19a0: 20 74 6f 20 61 20 73 74 72 69 6e 67 20 64 65 73 to a string des
19b0: 63 72 69 62 69 6e 67 20 74 68 65 20 53 53 4c 20 cribing the SSL
19c0: 6e 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c negotiation fail
19d0: 75 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d ure reason. *---
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a20: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a . */.static int.
1a30: 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 28 69 VerifyCallback(i
1a40: 6e 74 20 6f 6b 2c 20 58 35 30 39 5f 53 54 4f 52 nt ok, X509_STOR
1a50: 45 5f 43 54 58 20 2a 63 74 78 29 0a 7b 0a 20 20 E_CTX *ctx).{.
1a60: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 Tcl_Obj *cmdPt
1a70: 72 2c 20 2a 72 65 73 75 6c 74 3b 0a 20 20 20 20 r, *result;.
1a80: 63 68 61 72 20 2a 65 72 72 53 74 72 2c 20 2a 73 char *errStr, *s
1a90: 74 72 69 6e 67 3b 0a 20 20 20 20 69 6e 74 20 6c tring;. int l
1aa0: 65 6e 67 74 68 3b 0a 20 20 20 20 53 53 4c 20 20 ength;. SSL
1ab0: 20 2a 73 73 6c 09 09 3d 20 28 53 53 4c 2a 29 58 *ssl..= (SSL*)X
1ac0: 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 509_STORE_CTX_ge
1ad0: 74 5f 61 70 70 5f 64 61 74 61 28 63 74 78 29 3b t_app_data(ctx);
1ae0: 0a 20 20 20 20 58 35 30 39 20 20 2a 63 65 72 74 . X509 *cert
1af0: 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 ..= X509_STORE_C
1b00: 54 58 5f 67 65 74 5f 63 75 72 72 65 6e 74 5f 63 TX_get_current_c
1b10: 65 72 74 28 63 74 78 29 3b 0a 20 20 20 20 53 74 ert(ctx);. St
1b20: 61 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d 20 ate *statePtr.=
1b30: 28 53 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f (State*)SSL_get_
1b40: 61 70 70 5f 64 61 74 61 28 73 73 6c 29 3b 0a 20 app_data(ssl);.
1b50: 20 20 20 69 6e 74 20 64 65 70 74 68 09 09 3d 20 int depth..=
1b60: 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 X509_STORE_CTX_g
1b70: 65 74 5f 65 72 72 6f 72 5f 64 65 70 74 68 28 63 et_error_depth(c
1b80: 74 78 29 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 tx);. int err
1b90: 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 ..= X509_STORE_C
1ba0: 54 58 5f 67 65 74 5f 65 72 72 6f 72 28 63 74 78 TX_get_error(ctx
1bb0: 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 );.. dprintf(
1bc0: 73 74 64 65 72 72 2c 20 22 56 65 72 69 66 79 3a stderr, "Verify:
1bd0: 20 25 64 5c 6e 22 2c 20 6f 6b 29 3b 0a 0a 20 20 %d\n", ok);..
1be0: 20 20 69 66 20 28 21 6f 6b 29 20 7b 0a 09 65 72 if (!ok) {..er
1bf0: 72 53 74 72 20 3d 20 28 63 68 61 72 2a 29 58 35 rStr = (char*)X5
1c00: 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 09_verify_cert_e
1c10: 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 rror_string(err)
1c20: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
1c30: 65 72 72 53 74 72 20 3d 20 28 63 68 61 72 20 2a errStr = (char *
1c40: 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 )0;. }.. i
1c50: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c f (statePtr->cal
1c60: 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 lback == (Tcl_Ob
1c70: 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 j*)NULL) {..if (
1c80: 73 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 statePtr->vflags
1c90: 20 26 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 & SSL_VERIFY_FA
1ca0: 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 IL_IF_NO_PEER_CE
1cb0: 52 54 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 RT) {.. retur
1cc0: 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a n ok;..} else {.
1cd0: 09 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 09 . return 1;..
1ce0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 }. }. cmdP
1cf0: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 tr = Tcl_Duplica
1d00: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e teObj(statePtr->
1d10: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 callback);..
1d20: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1d30: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
1d40: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1d50: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 tr, .. Tcl_Ne
1d60: 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 76 65 72 wStringObj( "ver
1d70: 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 ify", -1));..
1d80: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1d90: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1da0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1db0: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e Ptr, .. Tcl_N
1dc0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c ewStringObj( Tcl
1dd0: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
1de0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
1df0: 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c -1) );.. Tcl
1e00: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1e10: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1e20: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1e30: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 .. Tcl_NewInt
1e40: 4f 62 6a 28 20 64 65 70 74 68 29 20 29 3b 0a 0a Obj( depth) );..
1e50: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1e60: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1e70: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1e80: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 6c 73 cmdPtr,.. Tls
1e90: 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 73 74 61 _NewX509Obj( sta
1ea0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
1eb0: 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c ert) );.. Tcl
1ec0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1ed0: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
1ee0: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
1ef0: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 .. Tcl_NewInt
1f00: 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a 20 20 20 Obj( ok) );..
1f10: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
1f20: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1f30: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1f40: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1f50: 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 72 72 53 wStringObj( errS
1f60: 74 72 20 3f 20 65 72 72 53 74 72 20 3a 20 22 22 tr ? errStr : ""
1f70: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
1f80: 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 l_Preserve( (Cli
1f90: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
1fa0: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 r->interp);.
1fb0: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
1fc0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1fd0: 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 Ptr);.. Tcl_I
1fe0: 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 ncrRefCount( cmd
1ff0: 50 74 72 29 3b 0a 20 20 20 20 69 66 20 28 54 63 Ptr);. if (Tc
2000: 6c 5f 47 6c 6f 62 61 6c 45 76 61 6c 4f 62 6a 28 l_GlobalEvalObj(
2010: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2020: 2c 20 63 6d 64 50 74 72 29 20 21 3d 20 54 43 4c , cmdPtr) != TCL
2030: 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 74 20 67 6f _OK) {../* It go
2040: 74 20 61 6e 20 65 72 72 6f 72 20 2d 20 72 65 6a t an error - rej
2050: 65 63 74 20 74 68 65 20 63 65 72 74 69 66 69 63 ect the certific
2060: 61 74 65 2e 09 09 2a 2f 0a 09 54 63 6c 5f 42 61 ate...*/..Tcl_Ba
2070: 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 20 73 ckgroundError( s
2080: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
2090: 3b 0a 09 6f 6b 20 3d 20 30 3b 0a 20 20 20 20 7d ;..ok = 0;. }
20a0: 20 65 6c 73 65 20 7b 0a 09 72 65 73 75 6c 74 20 else {..result
20b0: 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 = Tcl_GetObjResu
20c0: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 lt(statePtr->int
20d0: 65 72 70 29 3b 0a 09 73 74 72 69 6e 67 20 3d 20 erp);..string =
20e0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
20f0: 6d 4f 62 6a 28 72 65 73 75 6c 74 2c 20 26 6c 65 mObj(result, &le
2100: 6e 67 74 68 29 3b 0a 09 2f 2a 20 41 6e 20 65 6d ngth);../* An em
2110: 70 74 79 20 72 65 73 75 6c 74 20 6c 65 61 76 65 pty result leave
2120: 73 20 76 65 72 69 66 69 63 61 74 69 6f 6e 20 75 s verification u
2130: 6e 63 68 61 6e 67 65 64 2e 09 2a 2f 0a 09 69 66 nchanged..*/..if
2140: 20 28 6c 65 6e 67 74 68 20 3e 20 30 29 20 7b 0a (length > 0) {.
2150: 09 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
2160: 49 6e 74 46 72 6f 6d 4f 62 6a 28 73 74 61 74 65 IntFromObj(state
2170: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 72 65 73 Ptr->interp, res
2180: 75 6c 74 2c 20 26 6f 6b 29 20 21 3d 20 54 43 4c ult, &ok) != TCL
2190: 5f 4f 4b 29 20 7b 0a 09 09 54 63 6c 5f 42 61 63 _OK) {...Tcl_Bac
21a0: 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 kgroundError(sta
21b0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
21c0: 09 09 6f 6b 20 3d 20 30 3b 0a 09 20 20 20 20 7d ..ok = 0;.. }
21d0: 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 ..}. }. Tc
21e0: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 20 l_DecrRefCount(
21f0: 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 cmdPtr);.. Tc
2200: 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 l_Release( (Clie
2210: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
2220: 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 );. Tcl_Relea
2230: 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 se( (ClientData)
2240: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
2250: 70 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 p);.. return(
2260: 6f 6b 29 3b 09 2f 2a 20 42 79 20 64 65 66 61 75 ok);./* By defau
2270: 6c 74 2c 20 6c 65 61 76 65 20 76 65 72 69 66 69 lt, leave verifi
2280: 63 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 cation unchanged
2290: 2e 09 2a 2f 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d ..*/.}.../*. *--
22a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22e0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 45 72 72 6f -. *. * Tls_Erro
22f0: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 73 r --. *. *.Calls
2300: 20 63 61 6c 6c 62 61 63 6b 20 77 69 74 68 20 24 callback with $
2310: 66 64 20 61 6e 64 20 24 6d 73 67 20 2d 20 73 6f fd and $msg - so
2320: 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 63 61 the callback ca
2330: 6e 20 64 65 63 69 64 65 0a 20 2a 09 77 68 61 74 n decide. *.what
2340: 20 74 6f 20 64 6f 20 77 69 74 68 20 65 72 72 6f to do with erro
2350: 72 73 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 rs.. *. * Side e
2360: 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 ffects:. *.The e
2370: 72 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 rr field of the
2380: 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 currently operat
2390: 69 76 65 20 53 74 61 74 65 20 69 73 20 73 65 74 ive State is set
23a0: 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 72 69 6e . *. to a strin
23b0: 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 g describing the
23c0: 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e SSL negotiation
23d0: 20 66 61 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a failure reason.
23e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2420: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 -----. */.void.T
2430: 6c 73 5f 45 72 72 6f 72 28 53 74 61 74 65 20 2a ls_Error(State *
2440: 73 74 61 74 65 50 74 72 2c 20 63 68 61 72 20 2a statePtr, char *
2450: 6d 73 67 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f msg).{. Tcl_O
2460: 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 0a 20 20 20 bj *cmdPtr;..
2470: 20 69 66 20 28 6d 73 67 20 26 26 20 2a 6d 73 67 if (msg && *msg
2480: 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f ) {..Tcl_SetErro
2490: 72 43 6f 64 65 28 73 74 61 74 65 50 74 72 2d 3e rCode(statePtr->
24a0: 69 6e 74 65 72 70 2c 20 22 53 53 4c 22 2c 20 6d interp, "SSL", m
24b0: 73 67 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c sg, (char *)NULL
24c0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
24d0: 09 6d 73 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 .msg = Tcl_GetSt
24e0: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 54 63 6c 5f ringFromObj(Tcl_
24f0: 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 GetObjResult(sta
2500: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 2c 20 tePtr->interp),
2510: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL);. }.
2520: 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 20 3d statePtr->err =
2530: 20 6d 73 67 3b 0a 0a 20 20 20 20 69 66 20 28 73 msg;.. if (s
2540: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
2550: 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e k == (Tcl_Obj*)N
2560: 55 4c 4c 29 20 7b 0a 09 63 68 61 72 20 62 75 66 ULL) {..char buf
2570: 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 70 72 69 6e [BUFSIZ];..sprin
2580: 74 66 28 62 75 66 2c 20 22 53 53 4c 20 63 68 61 tf(buf, "SSL cha
2590: 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a 20 65 72 72 nnel \"%s\": err
25a0: 6f 72 3a 20 25 73 22 2c 0a 09 20 20 20 20 54 63 or: %s",.. Tc
25b0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
25c0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
25d0: 2c 20 6d 73 67 29 3b 0a 09 54 63 6c 5f 53 65 74 , msg);..Tcl_Set
25e0: 52 65 73 75 6c 74 28 20 73 74 61 74 65 50 74 72 Result( statePtr
25f0: 2d 3e 69 6e 74 65 72 70 2c 20 62 75 66 2c 20 54 ->interp, buf, T
2600: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 09 54 CL_VOLATILE);..T
2610: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 cl_BackgroundErr
2620: 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e or( statePtr->in
2630: 74 65 72 70 29 3b 0a 09 72 65 74 75 72 6e 3b 0a terp);..return;.
2640: 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 74 72 }. cmdPtr
2650: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
2660: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 Obj(statePtr->ca
2670: 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63 llback);.. Tc
2680: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2690: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d lement(statePtr-
26a0: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
26b0: 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 .. Tcl_NewSt
26c0: 72 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72 22 2c ringObj("error",
26d0: 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1));.. Tcl_
26e0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
26f0: 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 ment(statePtr->i
2700: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a nterp, cmdPtr, .
2710: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
2720: 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 74 43 68 61 ngObj(Tcl_GetCha
2730: 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 nnelName(statePt
2740: 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 29 3b 0a r->self), -1));.
2750: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
2760: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 AppendElement(st
2770: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2780: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
2790: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 6d 73 _NewStringObj(ms
27a0: 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 g, -1));.. Tc
27b0: 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 l_Preserve((Clie
27c0: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
27d0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 ->interp);. T
27e0: 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 cl_Preserve((Cli
27f0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
2800: 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 r);.. Tcl_Inc
2810: 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 rRefCount(cmdPtr
2820: 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 );. if (Tcl_G
2830: 6c 6f 62 61 6c 45 76 61 6c 4f 62 6a 28 73 74 61 lobalEvalObj(sta
2840: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
2850: 6d 64 50 74 72 29 20 21 3d 20 54 43 4c 5f 4f 4b mdPtr) != TCL_OK
2860: 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f ) {..Tcl_Backgro
2870: 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 undError(statePt
2880: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 r->interp);.
2890: 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 }. Tcl_DecrRe
28a0: 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a fCount(cmdPtr);.
28b0: 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 . Tcl_Release
28c0: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
28d0: 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c atePtr);. Tcl
28e0: 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 _Release((Client
28f0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e Data) statePtr->
2900: 69 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a interp);.}.../*.
2910: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2950: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 61 73 73 -----. *. * Pass
2960: 77 6f 72 64 43 61 6c 6c 62 61 63 6b 20 2d 2d 20 wordCallback --
2970: 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 77 68 . *. *.Called wh
2980: 65 6e 20 61 20 70 61 73 73 77 6f 72 64 20 69 73 en a password is
2990: 20 6e 65 65 64 65 64 20 74 6f 20 75 6e 70 61 63 needed to unpac
29a0: 6b 20 52 53 41 20 61 6e 64 20 50 45 4d 20 6b 65 k RSA and PEM ke
29b0: 79 73 2e 0a 20 2a 09 45 76 61 6c 73 20 61 6e 79 ys.. *.Evals any
29c0: 20 62 6f 75 6e 64 20 70 61 73 73 77 6f 72 64 20 bound password
29d0: 73 63 72 69 70 74 20 61 6e 64 20 72 65 74 75 72 script and retur
29e0: 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 61 73 ns the result as
29f0: 0a 20 2a 09 74 68 65 20 70 61 73 73 77 6f 72 64 . *.the password
2a00: 20 73 74 72 69 6e 67 2e 0a 20 2a 2d 2d 2d 2d 2d string.. *-----
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2a50: 2a 2f 0a 23 69 66 64 65 66 20 50 52 45 5f 4f 50 */.#ifdef PRE_OP
2a60: 45 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f 2a 0a 20 ENSSL_0_9_4./*.
2a70: 2a 20 4e 6f 20 77 61 79 20 74 6f 20 68 61 6e 64 * No way to hand
2a80: 6c 65 20 75 73 65 72 2d 64 61 74 61 20 74 68 65 le user-data the
2a90: 72 65 66 6f 72 65 20 6e 6f 20 77 61 79 20 77 69 refore no way wi
2aa0: 74 68 6f 75 74 20 61 20 67 6c 6f 62 61 6c 0a 20 thout a global.
2ab0: 2a 20 76 61 72 69 61 62 6c 65 20 74 6f 20 61 63 * variable to ac
2ac0: 63 65 73 73 20 74 68 65 20 54 63 6c 20 69 6e 74 cess the Tcl int
2ad0: 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 73 74 61 erpreter..*/.sta
2ae0: 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 tic int.Password
2af0: 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 Callback(char *b
2b00: 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e uf, int size, in
2b10: 74 20 76 65 72 69 66 79 29 0a 7b 0a 20 20 20 20 t verify).{.
2b20: 72 65 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 65 6c return -1;.}.#el
2b30: 73 65 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 61 se.static int.Pa
2b40: 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 28 63 sswordCallback(c
2b50: 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 73 69 har *buf, int si
2b60: 7a 65 2c 20 69 6e 74 20 76 65 72 69 66 79 2c 20 ze, int verify,
2b70: 76 6f 69 64 20 2a 75 64 61 74 61 29 0a 7b 0a 20 void *udata).{.
2b80: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
2b90: 74 72 09 3d 20 28 53 74 61 74 65 20 2a 29 20 75 tr.= (State *) u
2ba0: 64 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 49 6e data;. Tcl_In
2bb0: 74 65 72 70 20 2a 69 6e 74 65 72 70 09 3d 20 73 terp *interp.= s
2bc0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b tatePtr->interp;
2bd0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d . Tcl_Obj *cm
2be0: 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 72 65 dPtr;. int re
2bf0: 73 75 6c 74 3b 0a 0a 20 20 20 20 69 66 20 28 73 sult;.. if (s
2c00: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 tatePtr->passwor
2c10: 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 66 d == NULL) {..if
2c20: 20 28 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72 (Tcl_Eval(inter
2c30: 70 2c 20 22 74 6c 73 3a 3a 70 61 73 73 77 6f 72 p, "tls::passwor
2c40: 64 22 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b d") == TCL_OK) {
2c50: 0a 09 20 20 20 20 63 68 61 72 20 2a 72 65 74 20 .. char *ret
2c60: 3d 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 = (char *) Tcl_G
2c70: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 etStringResult(i
2c80: 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 73 74 72 nterp);.. str
2c90: 6e 63 70 79 28 62 75 66 2c 20 72 65 74 2c 20 28 ncpy(buf, ret, (
2ca0: 73 69 7a 65 5f 74 29 20 73 69 7a 65 29 3b 0a 09 size_t) size);..
2cb0: 20 20 20 20 72 65 74 75 72 6e 20 73 74 72 6c 65 return strle
2cc0: 6e 28 72 65 74 29 3b 0a 09 7d 20 65 6c 73 65 20 n(ret);..} else
2cd0: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 {.. return -1
2ce0: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ;..}. }..
2cf0: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
2d00: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
2d10: 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 0a tr->password);..
2d20: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
2d30: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
2d40: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
2d50: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
2d60: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
2d70: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 tatePtr);.. T
2d80: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
2d90: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 72 65 73 cmdPtr);. res
2da0: 75 6c 74 20 3d 20 54 63 6c 5f 47 6c 6f 62 61 6c ult = Tcl_Global
2db0: 45 76 61 6c 4f 62 6a 28 69 6e 74 65 72 70 2c 20 EvalObj(interp,
2dc0: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 cmdPtr);. if
2dd0: 28 72 65 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f (result != TCL_O
2de0: 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 K) {..Tcl_Backgr
2df0: 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 oundError(stateP
2e00: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 tr->interp);.
2e10: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 }. Tcl_DecrR
2e20: 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b efCount(cmdPtr);
2e30: 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 .. Tcl_Releas
2e40: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
2e50: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 tatePtr);. Tc
2e60: 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e l_Release((Clien
2e70: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d tData) statePtr-
2e80: 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 69 >interp);.. i
2e90: 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 54 43 4c f (result == TCL
2ea0: 5f 4f 4b 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 _OK) {..char *re
2eb0: 74 20 3d 20 28 63 68 61 72 20 2a 29 20 54 63 6c t = (char *) Tcl
2ec0: 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 _GetStringResult
2ed0: 28 69 6e 74 65 72 70 29 3b 0a 09 73 74 72 6e 63 (interp);..strnc
2ee0: 70 79 28 62 75 66 2c 20 72 65 74 2c 20 28 73 69 py(buf, ret, (si
2ef0: 7a 65 5f 74 29 20 73 69 7a 65 29 3b 0a 09 72 65 ze_t) size);..re
2f00: 74 75 72 6e 20 73 74 72 6c 65 6e 28 72 65 74 29 turn strlen(ret)
2f10: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
2f20: 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d return -1;. }
2f30: 0a 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a 0a 20 .}.#endif.../*.
2f40: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f80: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 ----. *. * Ciphe
2f90: 72 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 73 74 rsObjCmd -- list
2fa0: 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 available ciphe
2fb0: 72 73 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 rs. *. *.This pr
2fc0: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
2fd0: 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 ed to process th
2fe0: 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 e "tls::ciphers"
2ff0: 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c command. *.to l
3000: 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 ist available ci
3010: 70 68 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f phers, based upo
3020: 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 n protocol selec
3030: 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ted.. *. * Resul
3040: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
3050: 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 d Tcl result lis
3060: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
3070: 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 fects:. *.constr
3080: 75 63 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 ucts and destroy
3090: 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 s SSL context (C
30a0: 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d TX). *. *-------
30b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
30f0: 0a 73 74 61 74 69 63 20 69 6e 74 0a 43 69 70 68 .static int.Ciph
3100: 65 72 73 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 ersObjCmd(client
3110: 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 Data, interp, ob
3120: 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c jc, objv). Cl
3130: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
3140: 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 ata;./* Not used
3150: 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 . */. Tcl_Int
3160: 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 erp *interp;.
3170: 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 int objc;. T
3180: 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 cl_Obj.*CONST ob
3190: 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 61 74 jv[];.{. stat
31a0: 69 63 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 70 ic CONST char *p
31b0: 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 rotocols[] = {..
31c0: 22 73 73 6c 32 22 2c 09 22 73 73 6c 33 22 2c 09 "ssl2",."ssl3",.
31d0: 22 74 6c 73 31 22 2c 09 4e 55 4c 4c 0a 20 20 20 "tls1",.NULL.
31e0: 20 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 70 72 6f };. enum pro
31f0: 74 6f 63 6f 6c 20 7b 0a 09 54 4c 53 5f 53 53 4c tocol {..TLS_SSL
3200: 32 2c 20 54 4c 53 5f 53 53 4c 33 2c 20 54 4c 53 2, TLS_SSL3, TLS
3210: 5f 54 4c 53 31 2c 20 54 4c 53 5f 4e 4f 4e 45 0a _TLS1, TLS_NONE.
3220: 20 20 20 20 7d 3b 0a 20 20 20 20 54 63 6c 5f 4f };. Tcl_O
3230: 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 bj *objPtr;.
3240: 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e SSL_CTX *ctx = N
3250: 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 ULL;. SSL *ss
3260: 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 l = NULL;. ST
3270: 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 ACK_OF(SSL_CIPHE
3280: 52 29 20 2a 73 6b 3b 0a 20 20 20 20 63 68 61 72 R) *sk;. char
3290: 20 2a 63 70 2c 20 62 75 66 5b 42 55 46 53 49 5a *cp, buf[BUFSIZ
32a0: 5d 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 78 ];. int index
32b0: 2c 20 76 65 72 62 6f 73 65 20 3d 20 30 3b 0a 0a , verbose = 0;..
32c0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 if (objc < 2
32d0: 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a || objc > 3) {.
32e0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
32f0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
3300: 76 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 3f 76 65 v, "protocol ?ve
3310: 72 62 6f 73 65 3f 22 29 3b 0a 09 72 65 74 75 72 rbose?");..retur
3320: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
3330: 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 }. if (Tcl_G
3340: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 20 etIndexFromObj(
3350: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
3360: 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f protocols, "pro
3370: 74 6f 63 6f 6c 22 2c 20 30 2c 0a 09 26 69 6e 64 tocol", 0,..&ind
3380: 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ex) != TCL_OK) {
3390: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
33a0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 OR;. }. if
33b0: 20 28 6f 62 6a 63 20 3e 20 32 20 26 26 20 54 63 (objc > 2 && Tc
33c0: 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d l_GetBooleanFrom
33d0: 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a Obj( interp, obj
33e0: 76 5b 32 5d 2c 0a 09 26 76 65 72 62 6f 73 65 29 v[2],..&verbose)
33f0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 != TCL_OK) {..r
3400: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3410: 0a 20 20 20 20 7d 0a 20 20 20 20 73 77 69 74 63 . }. switc
3420: 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f h ((enum protoco
3430: 6c 29 69 6e 64 65 78 29 20 7b 0a 20 20 20 20 63 l)index) {. c
3440: 61 73 65 20 54 4c 53 5f 53 53 4c 32 3a 0a 23 69 ase TLS_SSL2:.#i
3450: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c f defined(NO_SSL
3460: 32 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 2)...Tcl_AppendR
3470: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
3480: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
3490: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
34a0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
34b0: 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d R;.#else...ctx =
34c0: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c SSL_CTX_new(SSL
34d0: 76 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 v2_method()); br
34e0: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 eak;.#endif.
34f0: 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 case TLS_SSL3:.#
3500: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
3510: 4c 33 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 L3)...Tcl_Append
3520: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
3530: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
3540: 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a ported", NULL);.
3550: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3560: 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 OR;.#else...ctx
3570: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 = SSL_CTX_new(SS
3580: 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 Lv3_method()); b
3590: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 reak;.#endif.
35a0: 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a 0a case TLS_TLS1:.
35b0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
35c0: 4c 53 31 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e LS1)...Tcl_Appen
35d0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
35e0: 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 "protocol not su
35f0: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
3600: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
3610: 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 ROR;.#else...ctx
3620: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 = SSL_CTX_new(T
3630: 4c 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20 LSv1_method());
3640: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 break;.#endif.
3650: 20 20 64 65 66 61 75 6c 74 3a 0a 09 09 62 72 65 default:...bre
3660: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 ak;. }. if
3670: 20 28 63 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b (ctx == NULL) {
3680: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
3690: 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f lt(interp, REASO
36a0: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 N(), (char *) NU
36b0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
36c0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
36d0: 20 20 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 ssl = SSL_new(
36e0: 63 74 78 29 3b 0a 20 20 20 20 69 66 20 28 73 73 ctx);. if (ss
36f0: 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 l == NULL) {..Tc
3700: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
3710: 6e 74 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c nterp, REASON(),
3720: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
3730: 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 ..SSL_CTX_free(c
3740: 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c tx);..return TCL
3750: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
3760: 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e objPtr = Tcl_N
3770: 65 77 4c 69 73 74 4f 62 6a 28 20 30 2c 20 4e 55 ewListObj( 0, NU
3780: 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 76 LL);.. if (!v
3790: 65 72 62 6f 73 65 29 20 7b 0a 09 66 6f 72 20 28 erbose) {..for (
37a0: 69 6e 64 65 78 20 3d 20 30 3b 20 3b 20 69 6e 64 index = 0; ; ind
37b0: 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 63 70 20 ex++) {.. cp
37c0: 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f 67 65 74 = (char*)SSL_get
37d0: 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 20 73 73 _cipher_list( ss
37e0: 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 20 20 20 20 l, index);..
37f0: 69 66 20 28 63 70 20 3d 3d 20 4e 55 4c 4c 29 20 if (cp == NULL)
3800: 62 72 65 61 6b 3b 0a 09 20 20 20 20 54 63 6c 5f break;.. Tcl_
3810: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
3820: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 ment( interp, ob
3830: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
3840: 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 tringObj( cp, -1
3850: 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c ) );..}. } el
3860: 73 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 se {..sk = SSL_g
3870: 65 74 5f 63 69 70 68 65 72 73 28 73 73 6c 29 3b et_ciphers(ssl);
3880: 0a 0a 09 66 6f 72 20 28 69 6e 64 65 78 20 3d 20 ...for (index =
3890: 30 3b 20 69 6e 64 65 78 20 3c 20 73 6b 5f 53 53 0; index < sk_SS
38a0: 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 L_CIPHER_num(sk)
38b0: 3b 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 ; index++) {..
38c0: 20 20 72 65 67 69 73 74 65 72 20 69 6e 74 20 69 register int i
38d0: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 49 50 48 45 ;.. SSL_CIPHE
38e0: 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 20 73 R_description( s
38f0: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c k_SSL_CIPHER_val
3900: 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 2c 0a ue( sk, index),.
3910: 09 09 09 09 20 20 20 20 62 75 66 2c 20 73 69 7a .... buf, siz
3920: 65 6f 66 28 62 75 66 29 29 3b 0a 09 20 20 20 20 eof(buf));..
3930: 66 6f 72 20 28 69 20 3d 20 73 74 72 6c 65 6e 28 for (i = strlen(
3940: 62 75 66 29 20 2d 20 31 3b 20 69 20 3b 20 69 2d buf) - 1; i ; i-
3950: 2d 29 20 7b 0a 09 09 69 66 20 28 62 75 66 5b 69 -) {...if (buf[i
3960: 5d 20 3d 3d 20 27 20 27 20 7c 7c 20 62 75 66 5b ] == ' ' || buf[
3970: 69 5d 20 3d 3d 20 27 5c 6e 27 20 7c 7c 0a 09 09 i] == '\n' ||...
3980: 20 20 20 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c buf[i] == '\
3990: 72 27 20 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 r' || buf[i] ==
39a0: 27 5c 74 27 29 20 7b 0a 09 09 20 20 20 20 62 75 '\t') {... bu
39b0: 66 5b 69 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 7d f[i] = '\0';...}
39c0: 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 62 72 else {... br
39d0: 65 61 6b 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a eak;...}.. }.
39e0: 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
39f0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 AppendElement( i
3a00: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 nterp, objPtr,..
3a10: 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 .Tcl_NewStringOb
3a20: 6a 28 20 62 75 66 2c 20 2d 31 29 20 29 3b 0a 09 j( buf, -1) );..
3a30: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f }. }. SSL_
3a40: 66 72 65 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 free(ssl);. S
3a50: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 SL_CTX_free(ctx)
3a60: 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 ;.. Tcl_SetOb
3a70: 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c jResult( interp,
3a80: 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 objPtr);. re
3a90: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c turn TCL_OK;.}..
3aa0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
3ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
3af0: 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 HandshakeObjCmd
3b00: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 63 6f --. *. *.This co
3b10: 6d 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f mmand is used to
3b20: 20 76 65 72 69 66 79 20 77 68 65 74 68 65 72 20 verify whether
3b30: 74 68 65 20 68 61 6e 64 73 68 61 6b 65 20 69 73 the handshake is
3b40: 20 63 6f 6d 70 6c 65 74 65 0a 20 2a 09 6f 72 20 complete. *.or
3b50: 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c not.. *. * Resul
3b60: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
3b70: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 20 31 20 d Tcl result. 1
3b80: 6d 65 61 6e 73 20 68 61 6e 64 73 68 61 6b 65 20 means handshake
3b90: 63 6f 6d 70 6c 65 74 65 2c 20 30 20 6d 65 61 6e complete, 0 mean
3ba0: 73 20 70 65 6e 64 69 6e 67 2e 0a 20 2a 0a 20 2a s pending.. *. *
3bb0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3bc0: 2a 09 4d 61 79 20 66 6f 72 63 65 20 53 53 4c 20 *.May force SSL
3bd0: 6e 65 67 6f 74 69 61 74 69 6f 6e 20 74 6f 20 74 negotiation to t
3be0: 61 6b 65 20 70 6c 61 63 65 2e 0a 20 2a 0a 20 2a ake place.. *. *
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 2d 2d 2d 2d 2d 2d ----------------
3c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c30: 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 ---. */..static
3c40: 69 6e 74 0a 48 61 6e 64 73 68 61 6b 65 4f 62 6a int.HandshakeObj
3c50: 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 Cmd(clientData,
3c60: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 interp, objc, ob
3c70: 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 jv). ClientDa
3c80: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f ta clientData;./
3c90: 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 * Not used. */.
3ca0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
3cb0: 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f nterp;. int o
3cc0: 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a bjc;. Tcl_Obj
3cd0: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a *CONST objv[];.
3ce0: 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 {. Tcl_Channe
3cf0: 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 l chan;../* The
3d00: 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 channel to set a
3d10: 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 mode on. */.
3d20: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
3d30: 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 ;../* client sta
3d40: 74 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 te for ssl socke
3d50: 74 20 2a 2f 0a 20 20 20 20 69 6e 74 20 72 65 74 t */. int ret
3d60: 20 3d 20 31 3b 0a 0a 20 20 20 20 69 66 20 28 6f = 1;.. if (o
3d70: 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c bjc != 2) {..Tcl
3d80: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
3d90: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
3da0: 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 74 75 channel");..retu
3db0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3dc0: 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 }.. chan =
3dd0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
3de0: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
3df0: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
3e00: 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c [1], NULL), NULL
3e10: 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 );. if (chan
3e20: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
3e30: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
3e40: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3e50: 7d 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 }. if (channe
3e60: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 lTypeVersion ==
3e70: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
3e80: 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a ION_2) {../*.. *
3e90: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
3ea0: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
3eb0: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a most channel.. *
3ec0: 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 /..chan = Tcl_Ge
3ed0: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
3ee0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 );. }. if
3ef0: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
3f00: 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 ype(chan) != Tls
3f10: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 _ChannelType())
3f20: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
3f30: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 ult(interp, "bad
3f40: 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 channel \"", Tc
3f50: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
3f60: 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e (chan),..."\": n
3f70: 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c ot a TLS channel
3f80: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
3f90: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
3fa0: 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 20 }. statePtr
3fb0: 3d 20 28 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 = (State *)Tcl_G
3fc0: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
3fd0: 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 0a 20 20 eData(chan);..
3fe0: 20 20 69 66 20 28 21 53 53 4c 5f 69 73 5f 69 6e if (!SSL_is_in
3ff0: 69 74 5f 66 69 6e 69 73 68 65 64 28 73 74 61 74 it_finished(stat
4000: 65 50 74 72 2d 3e 73 73 6c 29 29 20 7b 0a 09 69 ePtr->ssl)) {..i
4010: 6e 74 20 65 72 72 3b 0a 09 72 65 74 20 3d 20 54 nt err;..ret = T
4020: 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 ls_WaitForConnec
4030: 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 t(statePtr, &err
4040: 29 3b 0a 09 69 66 20 28 72 65 74 20 3c 20 30 29 );..if (ret < 0)
4050: 20 7b 0a 09 20 20 20 20 43 4f 4e 53 54 20 63 68 {.. CONST ch
4060: 61 72 20 2a 65 72 72 53 74 72 20 3d 20 73 74 61 ar *errStr = sta
4070: 74 65 50 74 72 2d 3e 65 72 72 3b 0a 09 20 20 20 tePtr->err;..
4080: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 Tcl_ResetResult
4090: 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 54 (interp);.. T
40a0: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 65 72 72 29 cl_SetErrno(err)
40b0: 3b 0a 0a 09 20 20 20 20 69 66 20 28 21 65 72 72 ;... if (!err
40c0: 53 74 72 20 7c 7c 20 2a 65 72 72 53 74 72 20 3d Str || *errStr =
40d0: 3d 20 30 29 20 7b 0a 09 09 65 72 72 53 74 72 20 = 0) {...errStr
40e0: 3d 20 54 63 6c 5f 50 6f 73 69 78 45 72 72 6f 72 = Tcl_PosixError
40f0: 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 7d (interp);.. }
4100: 0a 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ... Tcl_Appen
4110: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
4120: 22 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c 65 "handshake faile
4130: 64 3a 20 22 2c 20 65 72 72 53 74 72 2c 0a 09 09 d: ", errStr,...
4140: 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (char *) NUL
4150: 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 L);.. return
4160: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 TCL_ERROR;..}.
4170: 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 }.. Tcl_Set
4180: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
4190: 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 , Tcl_NewIntObj(
41a0: 72 65 74 29 29 3b 0a 20 20 20 20 72 65 74 75 72 ret));. retur
41b0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a n TCL_OK;.}.../*
41c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
41d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4200: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6d 70 ------. *. * Imp
4210: 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a ortObjCmd --. *.
4220: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
4230: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 e is invoked to
4240: 70 72 6f 63 65 73 73 20 74 68 65 20 22 73 73 6c process the "ssl
4250: 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 0a 20 2a 09 " command. *. *.
4260: 54 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 20 The ssl command
4270: 70 75 73 68 65 73 20 53 53 4c 20 6f 76 65 72 20 pushes SSL over
4280: 61 20 28 6e 65 77 6c 79 20 63 6f 6e 6e 65 63 74 a (newly connect
4290: 65 64 29 20 74 63 70 20 73 6f 63 6b 65 74 0a 20 ed) tcp socket.
42a0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
42b0: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
42c0: 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 result.. *. * Si
42d0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d de effects:. *.M
42e0: 61 79 20 6d 6f 64 69 66 79 20 74 68 65 20 62 65 ay modify the be
42f0: 68 61 76 69 6f 72 20 6f 66 20 61 6e 20 49 4f 20 havior of an IO
4300: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d channel.. *. *--
4310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4350: 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e -. */..static in
4360: 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 63 t.ImportObjCmd(c
4370: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 lientData, inter
4380: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 p, objc, objv).
4390: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
43a0: 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 ientData;./* Not
43b0: 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 used. */. Tc
43c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
43d0: 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a ;. int objc;.
43e0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e Tcl_Obj *CON
43f0: 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 ST objv[];.{.
4400: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 Tcl_Channel cha
4410: 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e n;../* The chann
4420: 65 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 el to set a mode
4430: 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 53 74 61 74 on. */. Stat
4440: 65 20 2a 73 74 61 74 65 50 74 72 3b 09 09 2f 2a e *statePtr;../*
4450: 20 63 6c 69 65 6e 74 20 73 74 61 74 65 20 66 6f client state fo
4460: 72 20 73 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a r ssl socket */.
4470: 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 SSL_CTX *ctx
4480: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c .= NULL;. Tcl
4490: 5f 4f 62 6a 20 2a 73 63 72 69 70 74 09 3d 20 4e _Obj *script.= N
44a0: 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a ULL;. Tcl_Obj
44b0: 20 2a 70 61 73 73 77 6f 72 64 09 3d 20 4e 55 4c *password.= NUL
44c0: 4c 3b 0a 20 20 20 20 69 6e 74 20 69 64 78 3b 0a L;. int idx;.
44d0: 20 20 20 20 69 6e 74 20 66 6c 61 67 73 09 09 3d int flags..=
44e0: 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 54 3b 0a 20 TLS_TCL_INIT;.
44f0: 20 20 20 69 6e 74 20 73 65 72 76 65 72 09 09 3d int server..=
4500: 20 30 3b 09 2f 2a 20 69 73 20 63 6f 6e 6e 65 63 0;./* is connec
4510: 74 69 6f 6e 20 69 6e 63 6f 6d 69 6e 67 20 6f 72 tion incoming or
4520: 20 6f 75 74 67 6f 69 6e 67 3f 20 2a 2f 0a 20 20 outgoing? */.
4530: 20 20 63 68 61 72 20 2a 6b 65 79 09 09 3d 20 4e char *key..= N
4540: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 ULL;. char *c
4550: 65 72 74 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 ert..= NULL;.
4560: 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 09 3d char *ciphers.=
4570: 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 NULL;. char
4580: 2a 43 41 66 69 6c 65 09 3d 20 4e 55 4c 4c 3b 0a *CAfile.= NULL;.
4590: 20 20 20 20 63 68 61 72 20 2a 43 41 64 69 72 09 char *CAdir.
45a0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 .= NULL;. cha
45b0: 72 20 2a 6d 6f 64 65 6c 09 09 3d 20 4e 55 4c 4c r *model..= NULL
45c0: 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f ;.#if defined(NO
45d0: 5f 53 53 4c 32 29 0a 20 20 20 20 69 6e 74 20 73 _SSL2). int s
45e0: 73 6c 32 20 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 sl2 = 0;.#else.
45f0: 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 31 3b int ssl2 = 1;
4600: 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 .#endif.#if defi
4610: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 ned(NO_SSL3).
4620: 20 69 6e 74 20 73 73 6c 33 20 3d 20 30 3b 0a 23 int ssl3 = 0;.#
4630: 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 73 6c else. int ssl
4640: 33 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 3 = 1;.#endif.#i
4650: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c f defined(NO_SSL
4660: 32 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 2) && defined(NO
4670: 5f 53 53 4c 33 29 0a 20 20 20 20 69 6e 74 20 74 _SSL3). int t
4680: 6c 73 31 20 3d 20 31 3b 0a 23 65 6c 73 65 0a 20 ls1 = 1;.#else.
4690: 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 30 3b int tls1 = 0;
46a0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 6e 74 20 .#endif. int
46b0: 70 72 6f 74 6f 20 3d 20 30 3b 0a 20 20 20 20 69 proto = 0;. i
46c0: 6e 74 20 76 65 72 69 66 79 20 3d 20 30 2c 20 72 nt verify = 0, r
46d0: 65 71 75 69 72 65 20 3d 20 30 2c 20 72 65 71 75 equire = 0, requ
46e0: 65 73 74 20 3d 20 31 3b 0a 0a 20 20 20 20 69 66 est = 1;.. if
46f0: 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 (objc < 2) {..T
4700: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
4710: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
4720: 20 22 63 68 61 6e 6e 65 6c 20 3f 6f 70 74 69 6f "channel ?optio
4730: 6e 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 ns?");..return T
4740: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
4750: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
4760: 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 GetChannel(inter
4770: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 p, Tcl_GetString
4780: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c FromObj(objv[1],
4790: 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 NULL), NULL);.
47a0: 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 if (chan == (
47b0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
47c0: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
47d0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
47e0: 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 if (channelTyp
47f0: 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f eVersion == TLS_
4800: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f CHANNEL_VERSION_
4810: 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6b 2) {../*.. * Mak
4820: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
4830: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
4840: 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 63 channel.. */..c
4850: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 han = Tcl_GetTop
4860: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 Channel(chan);.
4870: 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 20 28 69 }.. for (i
4880: 64 78 20 3d 20 32 3b 20 69 64 78 20 3c 20 6f 62 dx = 2; idx < ob
4890: 6a 63 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 63 68 jc; idx++) {..ch
48a0: 61 72 20 2a 6f 70 74 20 3d 20 54 63 6c 5f 47 65 ar *opt = Tcl_Ge
48b0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
48c0: 62 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b bjv[idx], NULL);
48d0: 0a 0a 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d ...if (opt[0] !=
48e0: 20 27 2d 27 29 0a 09 20 20 20 20 62 72 65 61 6b '-').. break
48f0: 3b 0a 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 ;...OPTSTR( "-ca
4900: 64 69 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 4f dir", CAdir);..O
4910: 50 54 53 54 52 28 20 22 2d 63 61 66 69 6c 65 22 PTSTR( "-cafile"
4920: 2c 20 43 41 66 69 6c 65 29 3b 0a 09 4f 50 54 53 , CAfile);..OPTS
4930: 54 52 28 20 22 2d 63 65 72 74 66 69 6c 65 22 2c TR( "-certfile",
4940: 20 63 65 72 74 29 3b 0a 09 4f 50 54 53 54 52 28 cert);..OPTSTR(
4950: 20 22 2d 63 69 70 68 65 72 22 2c 20 63 69 70 68 "-cipher", ciph
4960: 65 72 73 29 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 ers);..OPTOBJ( "
4970: 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 63 72 69 70 -command", scrip
4980: 74 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 6b t);..OPTSTR( "-k
4990: 65 79 66 69 6c 65 22 2c 20 6b 65 79 29 3b 0a 09 eyfile", key);..
49a0: 4f 50 54 53 54 52 28 20 22 2d 6d 6f 64 65 6c 22 OPTSTR( "-model"
49b0: 2c 20 6d 6f 64 65 6c 29 3b 0a 09 4f 50 54 4f 42 , model);..OPTOB
49c0: 4a 28 20 22 2d 70 61 73 73 77 6f 72 64 22 2c 20 J( "-password",
49d0: 70 61 73 73 77 6f 72 64 29 3b 0a 09 4f 50 54 42 password);..OPTB
49e0: 4f 4f 4c 28 20 22 2d 72 65 71 75 69 72 65 22 2c OOL( "-require",
49f0: 20 72 65 71 75 69 72 65 29 3b 0a 09 4f 50 54 42 require);..OPTB
4a00: 4f 4f 4c 28 20 22 2d 72 65 71 75 65 73 74 22 2c OOL( "-request",
4a10: 20 72 65 71 75 65 73 74 29 3b 0a 09 4f 50 54 42 request);..OPTB
4a20: 4f 4f 4c 28 20 22 2d 73 65 72 76 65 72 22 2c 20 OOL( "-server",
4a30: 73 65 72 76 65 72 29 3b 0a 0a 09 4f 50 54 42 4f server);...OPTBO
4a40: 4f 4c 28 20 22 2d 73 73 6c 32 22 2c 20 73 73 6c OL( "-ssl2", ssl
4a50: 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 2);..OPTBOOL( "-
4a60: 73 73 6c 33 22 2c 20 73 73 6c 33 29 3b 0a 09 4f ssl3", ssl3);..O
4a70: 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 22 2c PTBOOL( "-tls1",
4a80: 20 74 6c 73 31 29 3b 0a 0a 09 4f 50 54 42 41 44 tls1);...OPTBAD
4a90: 28 20 22 6f 70 74 69 6f 6e 22 2c 20 22 2d 63 61 ( "option", "-ca
4aa0: 64 69 72 2c 20 2d 63 61 66 69 6c 65 2c 20 2d 63 dir, -cafile, -c
4ab0: 65 72 74 66 69 6c 65 2c 20 2d 63 69 70 68 65 72 ertfile, -cipher
4ac0: 2c 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 6b 65 79 , -command, -key
4ad0: 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c 20 2d 70 file, -model, -p
4ae0: 61 73 73 77 6f 72 64 2c 20 2d 72 65 71 75 69 72 assword, -requir
4af0: 65 2c 20 2d 72 65 71 75 65 73 74 2c 20 2d 73 65 e, -request, -se
4b00: 72 76 65 72 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 rver, -ssl2, -ss
4b10: 6c 33 2c 20 6f 72 20 2d 74 6c 73 31 22 29 3b 0a l3, or -tls1");.
4b20: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
4b30: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 OR;. }. if
4b40: 20 28 72 65 71 75 65 73 74 29 09 20 20 20 20 76 (request). v
4b50: 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 erify |= SSL_VER
4b60: 49 46 59 5f 43 4c 49 45 4e 54 5f 4f 4e 43 45 20 IFY_CLIENT_ONCE
4b70: 7c 20 53 53 4c 5f 56 45 52 49 46 59 5f 50 45 45 | SSL_VERIFY_PEE
4b80: 52 3b 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 R;. if (reque
4b90: 73 74 20 26 26 20 72 65 71 75 69 72 65 29 20 76 st && require) v
4ba0: 65 72 69 66 79 20 7c 3d 20 53 53 4c 5f 56 45 52 erify |= SSL_VER
4bb0: 49 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 IFY_FAIL_IF_NO_P
4bc0: 45 45 52 5f 43 45 52 54 3b 0a 20 20 20 20 69 66 EER_CERT;. if
4bd0: 20 28 76 65 72 69 66 79 20 3d 3d 20 30 29 09 76 (verify == 0).v
4be0: 65 72 69 66 79 20 3d 20 53 53 4c 5f 56 45 52 49 erify = SSL_VERI
4bf0: 46 59 5f 4e 4f 4e 45 3b 0a 0a 20 20 20 20 70 72 FY_NONE;.. pr
4c00: 6f 74 6f 20 7c 3d 20 28 73 73 6c 32 20 3f 20 54 oto |= (ssl2 ? T
4c10: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 20 3a 20 LS_PROTO_SSL2 :
4c20: 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 0);. proto |=
4c30: 20 28 73 73 6c 33 20 3f 20 54 4c 53 5f 50 52 4f (ssl3 ? TLS_PRO
4c40: 54 4f 5f 53 53 4c 33 20 3a 20 30 29 3b 0a 20 20 TO_SSL3 : 0);.
4c50: 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 proto |= (tls1
4c60: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 ? TLS_PROTO_TLS
4c70: 31 20 3a 20 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 1 : 0);.. /*
4c80: 72 65 73 65 74 20 74 6f 20 4e 55 4c 4c 20 69 66 reset to NULL if
4c90: 20 62 6c 61 6e 6b 20 73 74 72 69 6e 67 20 70 72 blank string pr
4ca0: 6f 76 69 64 65 64 20 2a 2f 0a 20 20 20 20 69 66 ovided */. if
4cb0: 20 28 63 65 72 74 20 26 26 20 21 2a 63 65 72 74 (cert && !*cert
4cc0: 29 09 09 63 65 72 74 09 3d 20 4e 55 4c 4c 3b 0a )..cert.= NULL;.
4cd0: 20 20 20 20 69 66 20 28 6b 65 79 20 26 26 20 21 if (key && !
4ce0: 2a 6b 65 79 29 09 09 6b 65 79 09 3d 20 4e 55 4c *key)..key.= NUL
4cf0: 4c 3b 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 L;. if (ciphe
4d00: 72 73 20 26 26 20 21 2a 63 69 70 68 65 72 73 29 rs && !*ciphers)
4d10: 09 63 69 70 68 65 72 73 09 3d 20 4e 55 4c 4c 3b .ciphers.= NULL;
4d20: 0a 20 20 20 20 69 66 20 28 43 41 66 69 6c 65 20 . if (CAfile
4d30: 26 26 20 21 2a 43 41 66 69 6c 65 29 09 43 41 66 && !*CAfile).CAf
4d40: 69 6c 65 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ile.= NULL;.
4d50: 69 66 20 28 43 41 64 69 72 20 26 26 20 21 2a 43 if (CAdir && !*C
4d60: 41 64 69 72 29 09 43 41 64 69 72 09 3d 20 4e 55 Adir).CAdir.= NU
4d70: 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 LL;.. /* new
4d80: 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 SSL state */.
4d90: 20 73 74 61 74 65 50 74 72 09 09 3d 20 28 53 74 statePtr..= (St
4da0: 61 74 65 20 2a 29 20 54 63 6c 5f 41 6c 6c 6f 63 ate *) Tcl_Alloc
4db0: 28 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 ((unsigned) size
4dc0: 6f 66 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 of(State));.
4dd0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 3d statePtr->self.=
4de0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 4e 55 (Tcl_Channel)NU
4df0: 4c 4c 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 LL;. statePtr
4e00: 2d 3e 74 69 6d 65 72 09 3d 20 28 54 63 6c 5f 54 ->timer.= (Tcl_T
4e10: 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 4c 4c 3b 0a imerToken)NULL;.
4e20: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 . statePtr->f
4e30: 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b 0a 20 20 lags.= flags;.
4e40: 20 20 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 statePtr->watc
4e50: 68 4d 61 73 6b 09 3d 20 30 3b 0a 20 20 20 20 73 hMask.= 0;. s
4e60: 74 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 tatePtr->mode.=
4e70: 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 0;.. statePtr
4e80: 2d 3e 69 6e 74 65 72 70 09 3d 20 69 6e 74 65 72 ->interp.= inter
4e90: 70 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d p;. statePtr-
4ea0: 3e 63 61 6c 6c 62 61 63 6b 09 3d 20 28 54 63 6c >callback.= (Tcl
4eb0: 5f 4f 62 6a 20 2a 29 30 3b 0a 20 20 20 20 73 74 _Obj *)0;. st
4ec0: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
4ed0: 09 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 30 3b .= (Tcl_Obj *)0;
4ee0: 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
4ef0: 76 66 6c 61 67 73 09 3d 20 76 65 72 69 66 79 3b vflags.= verify;
4f00: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 . statePtr->s
4f10: 73 6c 09 3d 20 28 53 53 4c 2a 29 30 3b 0a 20 20 sl.= (SSL*)0;.
4f20: 20 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 09 statePtr->ctx.
4f30: 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 3b 0a 20 = (SSL_CTX*)0;.
4f40: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 62 69 6f statePtr->bio
4f50: 09 3d 20 28 42 49 4f 2a 29 30 3b 0a 20 20 20 20 .= (BIO*)0;.
4f60: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 09 statePtr->p_bio.
4f70: 3d 20 28 42 49 4f 2a 29 30 3b 0a 0a 20 20 20 20 = (BIO*)0;..
4f80: 73 74 61 74 65 50 74 72 2d 3e 65 72 72 09 3d 20 statePtr->err.=
4f90: 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f "";.. /* allo
4fa0: 63 61 74 65 20 73 63 72 69 70 74 20 2a 2f 0a 20 cate script */.
4fb0: 20 20 20 69 66 20 28 73 63 72 69 70 74 29 20 7b if (script) {
4fc0: 0a 09 63 68 61 72 20 2a 74 6d 70 20 3d 20 54 63 ..char *tmp = Tc
4fd0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
4fe0: 62 6a 28 73 63 72 69 70 74 2c 20 4e 55 4c 4c 29 bj(script, NULL)
4ff0: 3b 0a 09 69 66 20 28 74 6d 70 20 26 26 20 2a 74 ;..if (tmp && *t
5000: 6d 70 29 20 7b 0a 09 20 20 20 20 73 74 61 74 65 mp) {.. state
5010: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 Ptr->callback =
5020: 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a Tcl_DuplicateObj
5030: 28 73 63 72 69 70 74 29 3b 0a 09 20 20 20 20 54 (script);.. T
5040: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
5050: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
5060: 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ck);..}. }..
5070: 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 70 /* allocate p
5080: 61 73 73 77 6f 72 64 20 2a 2f 0a 20 20 20 20 69 assword */. i
5090: 66 20 28 70 61 73 73 77 6f 72 64 29 20 7b 0a 09 f (password) {..
50a0: 63 68 61 72 20 2a 74 6d 70 20 3d 20 54 63 6c 5f char *tmp = Tcl_
50b0: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
50c0: 28 70 61 73 73 77 6f 72 64 2c 20 4e 55 4c 4c 29 (password, NULL)
50d0: 3b 0a 09 69 66 20 28 74 6d 70 20 26 26 20 2a 74 ;..if (tmp && *t
50e0: 6d 70 29 20 7b 0a 09 20 20 20 20 73 74 61 74 65 mp) {.. state
50f0: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 20 3d 20 Ptr->password =
5100: 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a Tcl_DuplicateObj
5110: 28 70 61 73 73 77 6f 72 64 29 3b 0a 09 20 20 20 (password);..
5120: 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e Tcl_IncrRefCoun
5130: 74 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 t(statePtr->pass
5140: 77 6f 72 64 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a word);..}. }.
5150: 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 6c 20 21 . if (model !
5160: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 6e 74 20 6d = NULL) {..int m
5170: 6f 64 65 3b 0a 09 2f 2a 20 47 65 74 20 74 68 65 ode;../* Get the
5180: 20 22 6d 6f 64 65 6c 22 20 63 6f 6e 74 65 78 74 "model" context
5190: 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f */..chan = Tcl_
51a0: 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 GetChannel(inter
51b0: 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d 6f 64 65 29 p, model, &mode)
51c0: 3b 0a 09 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 ;..if (chan == (
51d0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
51e0: 4c 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 L) {.. Tls_Fr
51f0: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 ee((char *) stat
5200: 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 ePtr);.. retu
5210: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
5220: 0a 09 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 ..if (channelTyp
5230: 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f eVersion == TLS_
5240: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f CHANNEL_VERSION_
5250: 32 29 20 7b 0a 09 20 20 20 20 2f 2a 0a 09 20 20 2) {.. /*..
5260: 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 * Make sure t
5270: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
5280: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
5290: 0a 09 20 20 20 20 20 2a 2f 0a 09 20 20 20 20 63 .. */.. c
52a0: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 han = Tcl_GetTop
52b0: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 09 Channel(chan);..
52c0: 7d 0a 09 69 66 20 28 54 63 6c 5f 47 65 74 43 68 }..if (Tcl_GetCh
52d0: 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 annelType(chan)
52e0: 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 != Tls_ChannelTy
52f0: 70 65 28 29 29 20 7b 0a 09 20 20 20 20 54 63 6c pe()) {.. Tcl
5300: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5310: 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e terp, "bad chann
5320: 65 6c 20 5c 22 22 2c 0a 09 09 20 20 20 20 54 63 el \"",... Tc
5330: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
5340: 28 63 68 61 6e 29 2c 20 22 5c 22 3a 20 6e 6f 74 (chan), "\": not
5350: 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c a TLS channel",
5360: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 54 6c 73 NULL);.. Tls
5370: 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 _Free((char *) s
5380: 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 72 tatePtr);.. r
5390: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
53a0: 0a 09 7d 0a 09 63 74 78 20 3d 20 28 28 53 74 61 ..}..ctx = ((Sta
53b0: 74 65 20 2a 29 54 63 6c 5f 47 65 74 43 68 61 6e te *)Tcl_GetChan
53c0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
53d0: 63 68 61 6e 29 29 2d 3e 63 74 78 3b 0a 20 20 20 chan))->ctx;.
53e0: 20 7d 20 65 6c 73 65 20 7b 0a 09 69 66 20 28 28 } else {..if ((
53f0: 63 74 78 20 3d 20 43 54 58 5f 49 6e 69 74 28 73 ctx = CTX_Init(s
5400: 74 61 74 65 50 74 72 2c 20 70 72 6f 74 6f 2c 20 tatePtr, proto,
5410: 6b 65 79 2c 20 63 65 72 74 2c 20 43 41 64 69 72 key, cert, CAdir
5420: 2c 20 43 41 66 69 6c 65 2c 20 63 69 70 68 65 72 , CAfile, cipher
5430: 73 29 29 0a 09 20 20 20 20 3d 3d 20 28 53 53 4c s)).. == (SSL
5440: 5f 43 54 58 2a 29 30 29 20 7b 0a 09 20 20 20 20 _CTX*)0) {..
5450: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
5460: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 ) statePtr);..
5470: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
5480: 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 OR;..}. }..
5490: 20 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20 statePtr->ctx
54a0: 3d 20 63 74 78 3b 0a 0a 20 20 20 20 2f 2a 0a 20 = ctx;.. /*.
54b0: 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f * We need to
54c0: 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 make sure that
54d0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 6f 72 6b the channel work
54e0: 73 20 69 6e 20 62 69 6e 61 72 79 20 28 66 6f 72 s in binary (for
54f0: 20 74 68 65 0a 20 20 20 20 20 2a 20 65 6e 63 72 the. * encr
5500: 79 70 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 67 65 yption not to ge
5510: 74 20 67 6f 6f 66 65 64 20 75 70 29 2e 0a 20 20 t goofed up)..
5520: 20 20 20 2a 20 57 65 20 6f 6e 6c 79 20 77 61 6e * We only wan
5530: 74 20 74 6f 20 61 64 6a 75 73 74 20 74 68 65 20 t to adjust the
5540: 62 75 66 66 65 72 69 6e 67 20 69 6e 20 70 72 65 buffering in pre
5550: 2d 76 32 20 63 68 61 6e 6e 65 6c 73 2c 20 77 68 -v2 channels, wh
5560: 65 72 65 0a 20 20 20 20 20 2a 20 65 61 63 68 20 ere. * each
5570: 63 68 61 6e 6e 65 6c 20 69 6e 20 74 68 65 20 73 channel in the s
5580: 74 61 63 6b 20 6d 61 69 6e 74 61 69 6e 65 64 20 tack maintained
5590: 69 74 73 20 6f 77 6e 20 62 75 66 66 65 72 73 2e its own buffers.
55a0: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 6c . */. Tcl
55b0: 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _SetChannelOptio
55c0: 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 n(interp, chan,
55d0: 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 "-translation",
55e0: 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 20 20 69 "binary");. i
55f0: 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 f (channelTypeVe
5600: 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 rsion == TLS_CHA
5610: 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 31 29 20 NNEL_VERSION_1)
5620: 7b 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 {..Tcl_SetChanne
5630: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
5640: 63 68 61 6e 2c 20 22 2d 62 75 66 66 65 72 69 6e chan, "-bufferin
5650: 67 22 2c 20 22 6e 6f 6e 65 22 29 3b 0a 20 20 20 g", "none");.
5660: 20 7d 0a 0a 20 20 20 20 69 66 20 28 63 68 61 6e }.. if (chan
5670: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
5680: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
5690: 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 73 74 61 74 RSION_2) {..stat
56a0: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c ePtr->self = Tcl
56b0: 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e _StackChannel(in
56c0: 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e 65 terp, Tls_Channe
56d0: 6c 54 79 70 65 28 29 2c 0a 09 09 28 43 6c 69 65 lType(),...(Clie
56e0: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
56f0: 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 , (TCL_READABLE
5700: 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 2c | TCL_WRITABLE),
5710: 20 63 68 61 6e 29 3b 0a 20 20 20 20 7d 20 65 6c chan);. } el
5720: 73 65 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e se {..statePtr->
5730: 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a 09 54 63 self = chan;..Tc
5740: 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 l_StackChannel(i
5750: 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e nterp, Tls_Chann
5760: 65 6c 54 79 70 65 28 29 2c 0a 09 09 28 43 6c 69 elType(),...(Cli
5770: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
5780: 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 r, (TCL_READABLE
5790: 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 | TCL_WRITABLE)
57a0: 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 20 , chan);. }.
57b0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
57c0: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 >self == (Tcl_Ch
57d0: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
57e0: 2f 2a 0a 09 20 2a 20 4e 6f 20 75 73 65 20 6f 66 /*.. * No use of
57f0: 20 54 63 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 Tcl_EventuallyF
5800: 72 65 65 20 62 65 63 61 75 73 65 20 6e 6f 20 70 ree because no p
5810: 6f 73 73 69 62 6c 65 20 54 63 6c 5f 50 72 65 73 ossible Tcl_Pres
5820: 65 72 76 65 2e 0a 09 20 2a 2f 0a 09 54 6c 73 5f erve... */..Tls_
5830: 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 Free((char *) st
5840: 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e atePtr);..return
5850: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5860: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }.. /*. *
5870: 20 53 53 4c 20 49 6e 69 74 69 61 6c 69 7a 61 74 SSL Initializat
5880: 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 ion. */..
5890: 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d statePtr->ssl =
58a0: 20 53 53 4c 5f 6e 65 77 28 73 74 61 74 65 50 74 SSL_new(statePt
58b0: 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 69 66 20 r->ctx);. if
58c0: 28 21 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 (!statePtr->ssl)
58d0: 20 7b 0a 09 2f 2a 20 53 53 4c 20 6c 69 62 72 61 {../* SSL libra
58e0: 72 79 20 65 72 72 6f 72 20 2a 2f 0a 09 54 63 6c ry error */..Tcl
58f0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5900: 74 65 72 70 2c 20 22 63 6f 75 6c 64 6e 27 74 20 terp, "couldn't
5910: 63 6f 6e 73 74 72 75 63 74 20 73 73 6c 20 73 65 construct ssl se
5920: 73 73 69 6f 6e 3a 20 22 2c 20 52 45 41 53 4f 4e ssion: ", REASON
5930: 28 29 2c 0a 09 09 28 63 68 61 72 20 2a 29 20 4e (),...(char *) N
5940: 55 4c 4c 29 3b 0a 09 54 6c 73 5f 46 72 65 65 28 ULL);..Tls_Free(
5950: 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 (char *) statePt
5960: 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f r);..return TCL_
5970: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5980: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
5990: 43 61 6c 6c 62 61 63 6b 73 0a 20 20 20 20 20 2a Callbacks. *
59a0: 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 61 /.. SSL_set_a
59b0: 70 70 5f 64 61 74 61 28 73 74 61 74 65 50 74 72 pp_data(statePtr
59c0: 2d 3e 73 73 6c 2c 20 28 56 4f 49 44 20 2a 29 73 ->ssl, (VOID *)s
59d0: 74 61 74 65 50 74 72 29 3b 09 2f 2a 20 70 6f 69 tatePtr);./* poi
59e0: 6e 74 20 62 61 63 6b 20 74 6f 20 75 73 20 2a 2f nt back to us */
59f0: 0a 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 76 65 .. SSL_set_ve
5a00: 72 69 66 79 28 73 74 61 74 65 50 74 72 2d 3e 73 rify(statePtr->s
5a10: 73 6c 2c 20 76 65 72 69 66 79 2c 20 56 65 72 69 sl, verify, Veri
5a20: 66 79 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 fyCallback);..
5a30: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 69 6e SSL_CTX_set_in
5a40: 66 6f 5f 63 61 6c 6c 62 61 63 6b 28 73 74 61 74 fo_callback(stat
5a50: 65 50 74 72 2d 3e 63 74 78 2c 20 28 76 6f 69 64 ePtr->ctx, (void
5a60: 20 28 2a 29 28 29 29 49 6e 66 6f 43 61 6c 6c 62 (*)())InfoCallb
5a70: 61 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 ack);.. /* Cr
5a80: 65 61 74 65 20 54 63 6c 5f 43 68 61 6e 6e 65 6c eate Tcl_Channel
5a90: 20 42 49 4f 20 48 61 6e 64 6c 65 72 20 2a 2f 0a BIO Handler */.
5aa0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 5f statePtr->p_
5ab0: 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 5f 74 63 bio.= BIO_new_tc
5ac0: 6c 28 73 74 61 74 65 50 74 72 2c 20 42 49 4f 5f l(statePtr, BIO_
5ad0: 43 4c 4f 53 45 29 3b 0a 20 20 20 20 73 74 61 74 CLOSE);. stat
5ae0: 65 50 74 72 2d 3e 62 69 6f 09 3d 20 42 49 4f 5f ePtr->bio.= BIO_
5af0: 6e 65 77 28 42 49 4f 5f 66 5f 73 73 6c 28 29 29 new(BIO_f_ssl())
5b00: 3b 0a 0a 20 20 20 20 69 66 20 28 73 65 72 76 65 ;.. if (serve
5b10: 72 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e r) {..statePtr->
5b20: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c flags |= TLS_TCL
5b30: 5f 53 45 52 56 45 52 3b 0a 09 53 53 4c 5f 73 65 _SERVER;..SSL_se
5b40: 74 5f 61 63 63 65 70 74 5f 73 74 61 74 65 28 73 t_accept_state(s
5b50: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 tatePtr->ssl);.
5b60: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 53 53 4c } else {..SSL
5b70: 5f 73 65 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 61 _set_connect_sta
5b80: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c te(statePtr->ssl
5b90: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c );. }. SSL
5ba0: 5f 73 65 74 5f 62 69 6f 28 73 74 61 74 65 50 74 _set_bio(statePt
5bb0: 72 2d 3e 73 73 6c 2c 20 73 74 61 74 65 50 74 72 r->ssl, statePtr
5bc0: 2d 3e 70 5f 62 69 6f 2c 20 73 74 61 74 65 50 74 ->p_bio, statePt
5bd0: 72 2d 3e 70 5f 62 69 6f 29 3b 0a 20 20 20 20 42 r->p_bio);. B
5be0: 49 4f 5f 73 65 74 5f 73 73 6c 28 73 74 61 74 65 IO_set_ssl(state
5bf0: 50 74 72 2d 3e 62 69 6f 2c 20 73 74 61 74 65 50 Ptr->bio, stateP
5c00: 74 72 2d 3e 73 73 6c 2c 20 42 49 4f 5f 43 4c 4f tr->ssl, BIO_CLO
5c10: 53 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 SE);.. /*.
5c20: 20 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 49 * End of SSL I
5c30: 6e 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 nit. */.
5c40: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
5c50: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 terp, (char *) T
5c60: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d cl_GetChannelNam
5c70: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 e(statePtr->self
5c80: 29 2c 0a 09 20 20 20 20 54 43 4c 5f 56 4f 4c 41 ),.. TCL_VOLA
5c90: 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 TILE);. retur
5ca0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a n TCL_OK;.}.../*
5cb0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cf0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 54 58 ------. *. * CTX
5d00: 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 74 72 75 _Init -- constru
5d10: 63 74 20 61 20 53 53 4c 5f 43 54 58 20 69 6e 73 ct a SSL_CTX ins
5d20: 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 65 73 75 tance. *. * Resu
5d30: 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c 69 64 20 lts:. *.A valid
5d40: 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 SSL_CTX instance
5d50: 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20 2a 20 or NULL.. *. *
5d60: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
5d70: 09 63 6f 6e 73 74 72 75 63 74 73 20 53 53 4c 20 .constructs SSL
5d80: 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a context (CTX). *
5d90: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dd0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
5de0: 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a 43 54 58 ic SSL_CTX *.CTX
5df0: 5f 49 6e 69 74 28 73 74 61 74 65 50 74 72 2c 20 _Init(statePtr,
5e00: 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 72 74 proto, key, cert
5e10: 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c 65 2c , CAdir, CAfile,
5e20: 20 63 69 70 68 65 72 73 29 0a 20 20 20 20 53 74 ciphers). St
5e30: 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 ate *statePtr;.
5e40: 20 20 20 69 6e 74 20 70 72 6f 74 6f 3b 0a 20 20 int proto;.
5e50: 20 20 63 68 61 72 20 2a 6b 65 79 3b 0a 20 20 20 char *key;.
5e60: 20 63 68 61 72 20 2a 63 65 72 74 3b 0a 20 20 20 char *cert;.
5e70: 20 63 68 61 72 20 2a 43 41 64 69 72 3b 0a 20 20 char *CAdir;.
5e80: 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 3b 0a char *CAfile;.
5e90: 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 65 72 char *cipher
5ea0: 73 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 74 s;.{. Tcl_Int
5eb0: 65 72 70 20 2a 69 6e 74 65 72 70 20 3d 20 73 74 erp *interp = st
5ec0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b 0a atePtr->interp;.
5ed0: 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 SSL_CTX *ctx
5ee0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c = NULL;. Tcl
5ef0: 5f 44 53 74 72 69 6e 67 20 64 73 3b 0a 20 20 20 _DString ds;.
5f00: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 31 Tcl_DString ds1
5f10: 3b 0a 20 20 20 20 69 6e 74 20 6f 66 66 20 3d 20 ;. int off =
5f20: 30 3b 0a 0a 20 20 20 20 2f 2a 20 63 72 65 61 74 0;.. /* creat
5f30: 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f e SSL context */
5f40: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f .#if !defined(NO
5f50: 5f 53 53 4c 32 29 20 26 26 20 21 64 65 66 69 6e _SSL2) && !defin
5f60: 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 ed(NO_SSL3).
5f70: 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 if (ENABLED(prot
5f80: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c o, TLS_PROTO_SSL
5f90: 32 29 20 26 26 0a 09 45 4e 41 42 4c 45 44 28 70 2) &&..ENABLED(p
5fa0: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
5fb0: 53 53 4c 33 29 29 20 7b 0a 09 63 74 78 20 3d 20 SSL3)) {..ctx =
5fc0: 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 SSL_CTX_new(SSLv
5fd0: 32 33 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 20 23_method());.
5fe0: 20 20 7d 20 65 6c 73 65 0a 23 65 6e 64 69 66 0a } else.#endif.
5ff0: 20 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 if (ENABLED(
6000: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
6010: 5f 53 53 4c 32 29 29 20 7b 0a 23 69 66 20 64 65 _SSL2)) {.#if de
6020: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 fined(NO_SSL2)..
6030: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
6040: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
6050: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
6060: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
6070: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
6080: 23 65 6c 73 65 0a 09 63 74 78 20 3d 20 53 53 4c #else..ctx = SSL
6090: 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d _CTX_new(SSLv2_m
60a0: 65 74 68 6f 64 28 29 29 3b 0a 23 65 6e 64 69 66 ethod());.#endif
60b0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
60c0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
60d0: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 20 LS_PROTO_TLS1))
60e0: 7b 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 {..ctx = SSL_CTX
60f0: 5f 6e 65 77 28 54 4c 53 76 31 5f 6d 65 74 68 6f _new(TLSv1_metho
6100: 64 28 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 d());. } else
6110: 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f if (ENABLED(pro
6120: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 to, TLS_PROTO_SS
6130: 4c 33 29 29 20 7b 0a 23 69 66 20 64 65 66 69 6e L3)) {.#if defin
6140: 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 54 63 6c ed(NO_SSL3)..Tcl
6150: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
6160: 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 terp, "protocol
6170: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
6180: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 NULL);..return (
6190: 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6c SSL_CTX *)0;.#el
61a0: 73 65 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 se..ctx = SSL_CT
61b0: 58 5f 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74 68 X_new(SSLv3_meth
61c0: 6f 64 28 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 od());.#endif.
61d0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
61e0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
61f0: 65 72 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 70 erp, "no valid p
6200: 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 rotocol selected
6210: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
6220: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
6230: 20 20 20 20 7d 0a 20 20 20 20 6f 66 66 20 7c 3d }. off |=
6240: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
6250: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 TLS_PROTO_TLS1)
6260: 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f ? 0 : SSL_OP_NO
6270: 5f 54 4c 53 76 31 29 3b 0a 20 20 20 20 6f 66 66 _TLSv1);. off
6280: 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f |= (ENABLED(pro
6290: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 to, TLS_PROTO_SS
62a0: 4c 32 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 L2) ? 0 : SSL_OP
62b0: 5f 4e 4f 5f 53 53 4c 76 32 29 3b 0a 20 20 20 20 _NO_SSLv2);.
62c0: 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 off |= (ENABLED(
62d0: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
62e0: 5f 53 53 4c 33 29 20 3f 20 30 20 3a 20 53 53 4c _SSL3) ? 0 : SSL
62f0: 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 33 29 3b 0a 0a _OP_NO_SSLv3);..
6300: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f SSL_CTX_set_
6310: 61 70 70 5f 64 61 74 61 28 20 63 74 78 2c 20 28 app_data( ctx, (
6320: 56 4f 49 44 2a 29 69 6e 74 65 72 70 29 3b 09 2f VOID*)interp);./
6330: 2a 20 72 65 6d 65 6d 62 65 72 20 74 68 65 20 69 * remember the i
6340: 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 nterpreter */.
6350: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 SSL_CTX_set_op
6360: 74 69 6f 6e 73 28 20 63 74 78 2c 20 53 53 4c 5f tions( ctx, SSL_
6370: 4f 50 5f 41 4c 4c 29 3b 09 2f 2a 20 61 6c 6c 20 OP_ALL);./* all
6380: 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 SSL bug workarou
6390: 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 nds */. SSL_C
63a0: 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 TX_set_options(
63b0: 63 74 78 2c 20 6f 66 66 29 3b 09 2f 2a 20 61 6c ctx, off);./* al
63c0: 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 l SSL bug workar
63d0: 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c ounds */. SSL
63e0: 5f 43 54 58 5f 73 65 73 73 5f 73 65 74 5f 63 61 _CTX_sess_set_ca
63f0: 63 68 65 5f 73 69 7a 65 28 20 63 74 78 2c 20 31 che_size( ctx, 1
6400: 32 38 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 69 28);.. if (ci
6410: 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c 29 0a 09 phers != NULL)..
6420: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 69 70 68 SSL_CTX_set_ciph
6430: 65 72 5f 6c 69 73 74 28 63 74 78 2c 20 63 69 70 er_list(ctx, cip
6440: 68 65 72 73 29 3b 0a 0a 20 20 20 20 2f 2a 20 73 hers);.. /* s
6450: 65 74 20 73 6f 6d 65 20 63 61 6c 6c 62 61 63 6b et some callback
6460: 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 s */. SSL_CTX
6470: 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 73 _set_default_pas
6480: 73 77 64 5f 63 62 28 63 74 78 2c 20 50 61 73 73 swd_cb(ctx, Pass
6490: 77 6f 72 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a wordCallback);..
64a0: 23 69 66 6e 64 65 66 20 42 53 41 46 45 0a 20 20 #ifndef BSAFE.
64b0: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 SSL_CTX_set_de
64c0: 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 5f fault_passwd_cb_
64d0: 75 73 65 72 64 61 74 61 28 63 74 78 2c 20 28 76 userdata(ctx, (v
64e0: 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b oid *)statePtr);
64f0: 0a 23 65 6e 64 69 66 0a 0a 23 69 66 6e 64 65 66 .#endif..#ifndef
6500: 20 4e 4f 5f 44 48 0a 20 20 20 20 7b 0a 09 44 48 NO_DH. {..DH
6510: 2a 20 64 68 20 3d 20 67 65 74 5f 64 68 35 31 32 * dh = get_dh512
6520: 28 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 ();..SSL_CTX_set
6530: 5f 74 6d 70 5f 64 68 28 63 74 78 2c 20 64 68 29 _tmp_dh(ctx, dh)
6540: 3b 0a 09 44 48 5f 66 72 65 65 28 64 68 29 3b 0a ;..DH_free(dh);.
6550: 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 }.#endif..
6560: 20 20 2f 2a 20 73 65 74 20 6f 75 72 20 63 65 72 /* set our cer
6570: 74 69 66 69 63 61 74 65 20 2a 2f 0a 20 20 20 20 tificate */.
6580: 69 66 20 28 63 65 72 74 20 21 3d 20 4e 55 4c 4c if (cert != NULL
6590: 29 20 7b 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 ) {..Tcl_DString
65a0: 49 6e 69 74 28 26 64 73 29 3b 0a 0a 09 69 66 20 Init(&ds);...if
65b0: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 (SSL_CTX_use_cer
65c0: 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 tificate_file(ct
65d0: 78 2c 20 46 32 4e 28 20 63 65 72 74 2c 20 26 64 x, F2N( cert, &d
65e0: 73 29 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c s),......SSL_FIL
65f0: 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 ETYPE_PEM) <= 0)
6600: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 {.. Tcl_DStr
6610: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 ingFree(&ds);..
6620: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
6630: 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 ult(interp,....
6640: 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 "unable to s
6650: 65 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 et certificate f
6660: 69 6c 65 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 ile ", cert, ":
6670: 22 2c 0a 09 09 09 20 20 20 20 20 52 45 41 53 4f ",.... REASO
6680: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 N(), (char *) NU
6690: 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 LL);.. SSL_CT
66a0: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 X_free(ctx);..
66b0: 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 return (SSL_CT
66c0: 58 20 2a 29 30 3b 0a 09 7d 0a 0a 09 2f 2a 20 67 X *)0;..}.../* g
66d0: 65 74 20 74 68 65 20 70 72 69 76 61 74 65 20 6b et the private k
66e0: 65 79 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 ey associated wi
66f0: 74 68 20 74 68 69 73 20 63 65 72 74 69 66 69 63 th this certific
6700: 61 74 65 20 2a 2f 0a 09 69 66 20 28 6b 65 79 20 ate */..if (key
6710: 3d 3d 20 4e 55 4c 4c 29 20 6b 65 79 3d 63 65 72 == NULL) key=cer
6720: 74 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 t;...if (SSL_CTX
6730: 5f 75 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f _use_PrivateKey_
6740: 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 6b file(ctx, F2N( k
6750: 65 79 2c 20 26 64 73 29 2c 0a 09 09 09 09 09 53 ey, &ds),......S
6760: 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 SL_FILETYPE_PEM)
6770: 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 <= 0) {.. Tc
6780: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
6790: 73 29 3b 0a 09 20 20 20 20 2f 2a 20 66 6c 75 73 s);.. /* flus
67a0: 68 20 74 68 65 20 70 61 73 73 70 68 72 61 73 65 h the passphrase
67b0: 20 77 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 which might be
67c0: 6c 65 66 74 20 69 6e 20 74 68 65 20 72 65 73 75 left in the resu
67d0: 6c 74 20 2a 2f 0a 09 20 20 20 20 54 63 6c 5f 53 lt */.. Tcl_S
67e0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
67f0: 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49 NULL, TCL_STATI
6800: 43 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 C);.. Tcl_App
6810: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6820: 2c 0a 09 09 09 20 20 20 20 20 22 75 6e 61 62 6c ,.... "unabl
6830: 65 20 74 6f 20 73 65 74 20 70 75 62 6c 69 63 20 e to set public
6840: 6b 65 79 20 66 69 6c 65 20 22 2c 20 6b 65 79 2c key file ", key,
6850: 20 22 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 " ",.... RE
6860: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
6870: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c NULL);.. SSL
6880: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
6890: 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c . return (SSL
68a0: 5f 43 54 58 20 2a 29 30 3b 0a 09 7d 0a 09 54 63 _CTX *)0;..}..Tc
68b0: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
68c0: 73 29 3b 0a 09 2f 2a 20 4e 6f 77 20 77 65 20 6b s);../* Now we k
68d0: 6e 6f 77 20 74 68 61 74 20 61 20 6b 65 79 20 61 now that a key a
68e0: 6e 64 20 63 65 72 74 20 68 61 76 65 20 62 65 65 nd cert have bee
68f0: 6e 20 73 65 74 20 61 67 61 69 6e 73 74 0a 09 20 n set against..
6900: 2a 20 74 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 * the SSL contex
6910: 74 20 2a 2f 0a 09 69 66 20 28 21 53 53 4c 5f 43 t */..if (!SSL_C
6920: 54 58 5f 63 68 65 63 6b 5f 70 72 69 76 61 74 65 TX_check_private
6930: 5f 6b 65 79 28 63 74 78 29 29 20 7b 0a 09 20 20 _key(ctx)) {..
6940: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
6950: 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 lt(interp,....
6960: 20 20 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 "private key
6970: 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 does not match t
6980: 68 65 20 63 65 72 74 69 66 69 63 61 74 65 20 70 he certificate p
6990: 75 62 6c 69 63 20 6b 65 79 22 2c 0a 09 09 09 20 ublic key",....
69a0: 20 20 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (char *) NUL
69b0: 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 L);.. SSL_CTX
69c0: 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 _free(ctx);..
69d0: 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 return (SSL_CTX
69e0: 20 2a 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 *)0;..}. } e
69f0: 6c 73 65 20 7b 0a 09 63 65 72 74 20 3d 20 28 63 lse {..cert = (c
6a00: 68 61 72 2a 29 58 35 30 39 5f 67 65 74 5f 64 65 har*)X509_get_de
6a10: 66 61 75 6c 74 5f 63 65 72 74 5f 66 69 6c 65 28 fault_cert_file(
6a20: 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 );...if (SSL_CTX
6a30: 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 _use_certificate
6a40: 5f 66 69 6c 65 28 63 74 78 2c 20 63 65 72 74 2c _file(ctx, cert,
6a50: 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 ......SSL_FILETY
6a60: 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a PE_PEM) <= 0) {.
6a70: 23 69 66 20 30 0a 09 20 20 20 20 54 63 6c 5f 44 #if 0.. Tcl_D
6a80: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b StringFree(&ds);
6a90: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
6aa0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 Result(interp,..
6ab0: 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74 .. "unable t
6ac0: 6f 20 75 73 65 20 64 65 66 61 75 6c 74 20 63 65 o use default ce
6ad0: 72 74 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 rtificate file "
6ae0: 2c 20 63 65 72 74 2c 20 22 3a 20 22 2c 0a 09 09 , cert, ": ",...
6af0: 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 . REASON(),
6b00: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
6b10: 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 . SSL_CTX_fre
6b20: 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 e(ctx);.. ret
6b30: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
6b40: 3b 0a 23 65 6e 64 69 66 0a 09 7d 0a 20 20 20 20 ;.#endif..}.
6b50: 7d 0a 09 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 }... Tcl_DStr
6b60: 69 6e 67 49 6e 69 74 28 26 64 73 29 3b 0a 20 20 ingInit(&ds);.
6b70: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
6b80: 74 28 26 64 73 31 29 3b 0a 20 20 20 20 69 66 20 t(&ds1);. if
6b90: 28 21 53 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f 76 (!SSL_CTX_load_v
6ba0: 65 72 69 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 28 erify_locations(
6bb0: 63 74 78 2c 20 46 32 4e 28 43 41 66 69 6c 65 2c ctx, F2N(CAfile,
6bc0: 20 26 64 73 29 2c 20 46 32 4e 28 43 41 64 69 72 &ds), F2N(CAdir
6bd0: 2c 20 26 64 73 31 29 29 20 7c 7c 0a 09 21 53 53 , &ds1)) ||..!SS
6be0: 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 61 75 6c L_CTX_set_defaul
6bf0: 74 5f 76 65 72 69 66 79 5f 70 61 74 68 73 28 63 t_verify_paths(c
6c00: 74 78 29 29 20 7b 0a 23 69 66 20 30 0a 09 54 63 tx)) {.#if 0..Tc
6c10: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
6c20: 73 29 3b 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 s);..Tcl_DString
6c30: 46 72 65 65 28 26 64 73 31 29 3b 0a 09 2f 2a 20 Free(&ds1);../*
6c40: 44 6f 6e 27 74 20 63 75 72 72 65 6e 74 6c 79 20 Don't currently
6c50: 63 61 72 65 20 69 66 20 74 68 69 73 20 66 61 69 care if this fai
6c60: 6c 73 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e ls */..Tcl_Appen
6c70: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
6c80: 22 53 53 4c 20 64 65 66 61 75 6c 74 20 76 65 72 "SSL default ver
6c90: 69 66 79 20 70 61 74 68 73 3a 20 22 2c 0a 09 09 ify paths: ",...
6ca0: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 REASON(), (char
6cb0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 *) NULL);..SSL_C
6cc0: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 TX_free(ctx);..r
6cd0: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
6ce0: 29 30 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d )0;.#endif. }
6cf0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
6d00: 5f 63 6c 69 65 6e 74 5f 43 41 5f 6c 69 73 74 28 _client_CA_list(
6d10: 63 74 78 2c 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c ctx, SSL_load_cl
6d20: 69 65 6e 74 5f 43 41 5f 66 69 6c 65 28 20 46 32 ient_CA_file( F2
6d30: 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 20 29 N(CAfile, &ds) )
6d40: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 );.. Tcl_DStr
6d50: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 ingFree(&ds);.
6d60: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 Tcl_DStringFre
6d70: 65 28 26 64 73 31 29 3b 0a 20 20 20 20 72 65 74 e(&ds1);. ret
6d80: 75 72 6e 20 63 74 78 3b 0a 7d 0a 0c 0a 2f 2a 0a urn ctx;.}.../*.
6d90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6dd0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 53 74 61 74 -----. *. * Stat
6de0: 75 73 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 74 75 usObjCmd -- retu
6df0: 72 6e 20 63 65 72 74 69 66 69 63 61 74 65 20 66 rn certificate f
6e00: 6f 72 20 63 6f 6e 6e 65 63 74 65 64 20 70 65 65 or connected pee
6e10: 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 r.. *. * Results
6e20: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
6e30: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
6e40: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
6e50: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
6e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ea0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
6eb0: 0a 53 74 61 74 75 73 4f 62 6a 43 6d 64 28 63 6c .StatusObjCmd(cl
6ec0: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
6ed0: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 , objc, objv).
6ee0: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
6ef0: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 entData;./* Not
6f00: 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c used. */. Tcl
6f10: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
6f20: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 . int objc;.
6f30: 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 Tcl_Obj.*CONS
6f40: 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 T objv[];.{.
6f50: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
6f60: 0a 20 20 20 20 58 35 30 39 20 2a 70 65 65 72 3b . X509 *peer;
6f70: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
6f80: 6a 50 74 72 3b 0a 20 20 20 20 54 63 6c 5f 43 68 jPtr;. Tcl_Ch
6f90: 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 annel chan;.
6fa0: 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 4e 61 6d char *channelNam
6fb0: 65 2c 20 2a 63 69 70 68 65 72 73 3b 0a 20 20 20 e, *ciphers;.
6fc0: 20 69 6e 74 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 int mode;..
6fd0: 73 77 69 74 63 68 20 28 6f 62 6a 63 29 20 7b 0a switch (objc) {.
6fe0: 09 63 61 73 65 20 32 3a 0a 09 20 20 20 20 63 68 .case 2:.. ch
6ff0: 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f annelName = Tcl_
7000: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
7010: 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 3b (objv[1], NULL);
7020: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 .. break;...c
7030: 61 73 65 20 33 3a 0a 09 20 20 20 20 69 66 20 28 ase 3:.. if (
7040: 21 73 74 72 63 6d 70 20 28 54 63 6c 5f 47 65 74 !strcmp (Tcl_Get
7050: 53 74 72 69 6e 67 20 28 6f 62 6a 76 5b 31 5d 29 String (objv[1])
7060: 2c 20 22 2d 6c 6f 63 61 6c 22 29 29 20 7b 0a 09 , "-local")) {..
7070: 09 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 .channelName = T
7080: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
7090: 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 4e 55 4c Obj(objv[2], NUL
70a0: 4c 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 L);...break;..
70b0: 20 20 7d 0a 09 20 20 20 20 2f 2a 20 65 6c 73 65 }.. /* else
70c0: 20 66 61 6c 6c 2e 2e 2e 20 2a 2f 0a 09 64 65 66 fall... */..def
70d0: 61 75 6c 74 3a 0a 09 20 20 20 20 54 63 6c 5f 57 ault:.. Tcl_W
70e0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
70f0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d rp, 1, objv, "?-
7100: 6c 6f 63 61 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 local? channel")
7110: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
7120: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
7130: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 chan = Tcl_G
7140: 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 etChannel(interp
7150: 2c 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 , channelName, &
7160: 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 mode);. if (c
7170: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
7180: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
7190: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
71a0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 68 }. if (ch
71b0: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
71c0: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
71d0: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a VERSION_2) {../*
71e0: 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 .. * Make sure t
71f0: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
7200: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
7210: 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 .. */..chan = Tc
7220: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
7230: 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 chan);. }.
7240: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e if (Tcl_GetChan
7250: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d nelType(chan) !=
7260: 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 Tls_ChannelType
7270: 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e ()) {..Tcl_Appen
7280: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
7290: 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 "bad channel \""
72a0: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c , Tcl_GetChannel
72b0: 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c Name(chan),..."\
72c0: 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 ": not a TLS cha
72d0: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 nnel", NULL);..r
72e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
72f0: 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 . }. state
7300: 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr.= (State *)
7310: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
7320: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 stanceData(chan)
7330: 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d ;. if (objc =
7340: 3d 20 32 29 0a 09 70 65 65 72 09 3d 20 53 53 4c = 2)..peer.= SSL
7350: 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 69 66 _get_peer_certif
7360: 69 63 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e icate(statePtr->
7370: 73 73 6c 29 3b 0a 20 20 20 20 65 6c 73 65 0a 09 ssl);. else..
7380: 70 65 65 72 09 3d 20 53 53 4c 5f 67 65 74 5f 63 peer.= SSL_get_c
7390: 65 72 74 69 66 69 63 61 74 65 28 73 74 61 74 65 ertificate(state
73a0: 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 69 Ptr->ssl);. i
73b0: 66 20 28 70 65 65 72 29 20 7b 0a 09 6f 62 6a 50 f (peer) {..objP
73c0: 74 72 20 3d 20 54 6c 73 5f 4e 65 77 58 35 30 39 tr = Tls_NewX509
73d0: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 70 65 65 72 Obj(interp, peer
73e0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
73f0: 09 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 .objPtr = Tcl_Ne
7400: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
7410: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 );. }.. Tc
7420: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
7430: 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 lement (interp,
7440: 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c objPtr,.. Tcl
7450: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 20 28 22 _NewStringObj ("
7460: 73 62 69 74 73 22 2c 20 2d 31 29 29 3b 0a 20 20 sbits", -1));.
7470: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
7480: 65 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 endElement (inte
7490: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 rp, objPtr,..
74a0: 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 20 28 Tcl_NewIntObj (
74b0: 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f 62 SSL_get_cipher_b
74c0: 69 74 73 20 28 73 74 61 74 65 50 74 72 2d 3e 73 its (statePtr->s
74d0: 73 6c 2c 20 4e 55 4c 4c 29 29 29 3b 0a 0a 20 20 sl, NULL)));..
74e0: 20 20 63 69 70 68 65 72 73 20 3d 20 28 63 68 61 ciphers = (cha
74f0: 72 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 r*)SSL_get_ciphe
7500: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 r(statePtr->ssl)
7510: 3b 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 ;. if (cipher
7520: 73 20 21 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 s != NULL && str
7530: 63 6d 70 28 63 69 70 68 65 72 73 2c 20 22 28 4e cmp(ciphers, "(N
7540: 4f 4e 45 29 22 29 21 3d 30 29 20 7b 0a 09 54 63 ONE)")!=0) {..Tc
7550: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
7560: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f lement(interp, o
7570: 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 bjPtr,...Tcl_New
7580: 53 74 72 69 6e 67 4f 62 6a 28 22 63 69 70 68 65 StringObj("ciphe
7590: 72 22 2c 20 2d 31 29 29 3b 0a 09 54 63 6c 5f 4c r", -1));..Tcl_L
75a0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
75b0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ent(interp, objP
75c0: 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 tr,...Tcl_NewStr
75d0: 69 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 63 ingObj(SSL_get_c
75e0: 69 70 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e ipher(statePtr->
75f0: 73 73 6c 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 ssl), -1));.
7600: 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a }. Tcl_SetObj
7610: 52 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 Result( interp,
7620: 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 objPtr);. ret
7630: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a urn TCL_OK;.}...
7640: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
7650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7660: 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 56 --------. *. * V
7690: 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 20 ersionObjCmd --
76a0: 72 65 74 75 72 6e 20 76 65 72 73 69 6f 6e 20 73 return version s
76b0: 74 72 69 6e 67 20 66 72 6f 6d 20 4f 70 65 6e 53 tring from OpenS
76c0: 53 4c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 SL.. *. * Result
76d0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
76e0: 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a Tcl result.. *.
76f0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
7700: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
7710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7750: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
7760: 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 t.VersionObjCmd(
7770: 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 clientData, inte
7780: 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a rp, objc, objv).
7790: 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 ClientData c
77a0: 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f lientData;./* No
77b0: 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 t used. */. T
77c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
77d0: 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b p;. int objc;
77e0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f . Tcl_Obj.*CO
77f0: 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 NST objv[];.{.
7800: 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 Tcl_Obj *objPt
7810: 72 3b 0a 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d r;.. objPtr =
7820: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
7830: 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f j(OPENSSL_VERSIO
7840: 4e 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 0a 20 20 N_TEXT, -1);..
7850: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
7860: 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 lt(interp, objPt
7870: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 r);. return T
7880: 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a CL_OK;.}.../*. *
7890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78d0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 73 63 4f 62 ---. *. * MiscOb
78e0: 6a 43 6d 64 20 2d 2d 20 6d 69 73 63 20 63 6f 6d jCmd -- misc com
78f0: 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 mands. *. * Resu
7900: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
7910: 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 rd Tcl result..
7920: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7930: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 s:. *.None.. *.
7940: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
7950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7980: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
7990: 69 6e 74 0a 4d 69 73 63 4f 62 6a 43 6d 64 28 63 int.MiscObjCmd(c
79a0: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 lientData, inter
79b0: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 p, objc, objv).
79c0: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
79d0: 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 ientData;./* Not
79e0: 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 used. */. Tc
79f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7a00: 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a ;. int objc;.
7a10: 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e Tcl_Obj.*CON
7a20: 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 ST objv[];.{.
7a30: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 6f 6d const char *com
7a40: 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b 20 22 72 65 mands [] = { "re
7a50: 71 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 20 20 20 20 q", NULL };.
7a60: 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 20 7b 20 43 enum command { C
7a70: 5f 52 45 51 2c 20 43 5f 44 55 4d 4d 59 20 7d 3b _REQ, C_DUMMY };
7a80: 0a 20 20 20 20 69 6e 74 20 63 6d 64 3b 0a 0a 20 . int cmd;..
7a90: 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 if (objc < 2)
7aa0: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
7ab0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
7ac0: 6f 62 6a 76 2c 20 22 73 75 62 63 6f 6d 6d 61 6e objv, "subcomman
7ad0: 64 20 3f 61 72 67 73 3f 22 29 3b 0a 09 72 65 74 d ?args?");..ret
7ae0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7af0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c }. if (Tcl
7b00: 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a _GetIndexFromObj
7b10: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d (interp, objv[1]
7b20: 2c 20 63 6f 6d 6d 61 6e 64 73 2c 0a 09 20 20 20 , commands,..
7b30: 20 22 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c 26 63 "command", 0,&c
7b40: 6d 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b md) != TCL_OK) {
7b50: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
7b60: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 OR;. }.. s
7b70: 77 69 74 63 68 20 28 28 65 6e 75 6d 20 63 6f 6d witch ((enum com
7b80: 6d 61 6e 64 29 20 63 6d 64 29 20 7b 0a 09 63 61 mand) cmd) {..ca
7b90: 73 65 20 43 5f 52 45 51 3a 20 7b 0a 09 20 20 20 se C_REQ: {..
7ba0: 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 3d EVP_PKEY *pkey=
7bb0: 4e 55 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 20 NULL;.. X509
7bc0: 2a 63 65 72 74 3d 4e 55 4c 4c 3b 0a 09 20 20 20 *cert=NULL;..
7bd0: 20 58 35 30 39 5f 4e 41 4d 45 20 2a 6e 61 6d 65 X509_NAME *name
7be0: 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 54 63 6c 5f =NULL;.. Tcl_
7bf0: 4f 62 6a 20 2a 2a 6c 69 73 74 76 3b 0a 09 20 20 Obj **listv;..
7c00: 20 20 69 6e 74 20 6c 69 73 74 63 2c 69 3b 0a 0a int listc,i;..
7c10: 09 20 20 20 20 42 49 4f 20 2a 6f 75 74 3d 4e 55 . BIO *out=NU
7c20: 4c 4c 3b 0a 0a 09 20 20 20 20 63 68 61 72 20 2a LL;... char *
7c30: 6b 5f 43 3d 22 22 2c 2a 6b 5f 53 54 3d 22 22 2c k_C="",*k_ST="",
7c40: 2a 6b 5f 4c 3d 22 22 2c 2a 6b 5f 4f 3d 22 22 2c *k_L="",*k_O="",
7c50: 2a 6b 5f 4f 55 3d 22 22 2c 2a 6b 5f 43 4e 3d 22 *k_OU="",*k_CN="
7c60: 22 2c 2a 6b 5f 45 6d 61 69 6c 3d 22 22 3b 0a 09 ",*k_Email="";..
7c70: 20 20 20 20 63 68 61 72 20 2a 6b 65 79 6f 75 74 char *keyout
7c80: 2c 2a 70 65 6d 6f 75 74 2c 2a 73 74 72 3b 0a 09 ,*pemout,*str;..
7c90: 20 20 20 20 69 6e 74 20 6b 65 79 73 69 7a 65 2c int keysize,
7ca0: 73 65 72 69 61 6c 3d 30 2c 64 61 79 73 3d 33 36 serial=0,days=36
7cb0: 35 3b 0a 09 20 20 20 20 0a 09 20 20 20 20 69 66 5;.. .. if
7cc0: 20 28 28 6f 62 6a 63 3c 35 29 20 7c 7c 20 28 6f ((objc<5) || (o
7cd0: 62 6a 63 3e 36 29 29 20 7b 0a 09 09 54 63 6c 5f bjc>6)) {...Tcl_
7ce0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
7cf0: 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 6b erp, 2, objv, "k
7d00: 65 79 73 69 7a 65 20 6b 65 79 66 69 6c 65 20 63 eysize keyfile c
7d10: 65 72 74 66 69 6c 65 20 3f 69 6e 66 6f 3f 22 29 ertfile ?info?")
7d20: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;...return TCL_E
7d30: 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 RROR;.. }...
7d40: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e if (Tcl_GetIn
7d50: 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c tFromObj(interp,
7d60: 20 6f 62 6a 76 5b 32 5d 2c 20 26 6b 65 79 73 69 objv[2], &keysi
7d70: 7a 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ze) != TCL_OK) {
7d80: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
7d90: 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 ROR;.. }..
7da0: 20 6b 65 79 6f 75 74 3d 54 63 6c 5f 47 65 74 53 keyout=Tcl_GetS
7db0: 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a tring(objv[3]);.
7dc0: 09 20 20 20 20 70 65 6d 6f 75 74 3d 54 63 6c 5f . pemout=Tcl_
7dd0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 GetString(objv[4
7de0: 5d 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 6f 62 ]);... if (ob
7df0: 6a 63 3e 3d 36 29 20 7b 0a 09 09 69 66 20 28 54 jc>=6) {...if (T
7e00: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65 cl_ListObjGetEle
7e10: 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f 62 ments(interp, ob
7e20: 6a 76 5b 35 5d 2c 0a 09 09 09 26 6c 69 73 74 63 jv[5],....&listc
7e30: 2c 20 26 6c 69 73 74 76 29 20 21 3d 20 54 43 4c , &listv) != TCL
7e40: 5f 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 65 74 _OK) {... ret
7e50: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
7e60: 09 7d 0a 0a 09 09 69 66 20 28 28 6c 69 73 74 63 .}....if ((listc
7e70: 25 32 29 20 21 3d 20 30 29 20 7b 0a 09 09 20 20 %2) != 0) {...
7e80: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
7e90: 69 6e 74 65 72 70 2c 22 49 6e 66 6f 72 6d 61 74 interp,"Informat
7ea0: 69 6f 6e 20 6c 69 73 74 20 6d 75 73 74 20 68 61 ion list must ha
7eb0: 76 65 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f ve even number o
7ec0: 66 20 61 72 67 75 6d 65 6e 74 73 22 2c 4e 55 4c f arguments",NUL
7ed0: 4c 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e L);... return
7ee0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a TCL_ERROR;...}.
7ef0: 09 09 66 6f 72 20 28 69 3d 30 3b 20 69 3c 6c 69 ..for (i=0; i<li
7f00: 73 74 63 3b 20 69 2b 3d 32 29 20 7b 0a 09 09 20 stc; i+=2) {...
7f10: 20 20 20 73 74 72 3d 54 63 6c 5f 47 65 74 53 74 str=Tcl_GetSt
7f20: 72 69 6e 67 28 6c 69 73 74 76 5b 69 5d 29 3b 0a ring(listv[i]);.
7f30: 09 09 20 20 20 20 69 66 20 28 73 74 72 63 6d 70 .. if (strcmp
7f40: 28 73 74 72 2c 22 64 61 79 73 22 29 3d 3d 30 29 (str,"days")==0)
7f50: 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 65 {....if (Tcl_Ge
7f60: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
7f70: 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 64 rp,listv[i+1],&d
7f80: 61 79 73 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 ays)!=TCL_OK)...
7f90: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
7fa0: 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 65 ERROR;... } e
7fb0: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 lse if (strcmp(s
7fc0: 74 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d 30 29 tr,"serial")==0)
7fd0: 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 65 {....if (Tcl_Ge
7fe0: 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 tIntFromObj(inte
7ff0: 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 73 rp,listv[i+1],&s
8000: 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29 0a erial)!=TCL_OK).
8010: 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
8020: 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d L_ERROR;... }
8030: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
8040: 28 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d (str,"serial")==
8050: 30 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 0) {....if (Tcl_
8060: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
8070: 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c terp,listv[i+1],
8080: 26 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b &serial)!=TCL_OK
8090: 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 ).... return
80a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 TCL_ERROR;...
80b0: 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 } else if (strc
80c0: 6d 70 28 73 74 72 2c 22 43 22 29 3d 3d 30 29 20 mp(str,"C")==0)
80d0: 7b 0a 09 09 09 6b 5f 43 3d 54 63 6c 5f 47 65 74 {....k_C=Tcl_Get
80e0: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 String(listv[i+1
80f0: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 ]);... } else
8100: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
8110: 22 53 54 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b "ST")==0) {....k
8120: 5f 53 54 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e _ST=Tcl_GetStrin
8130: 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 g(listv[i+1]);..
8140: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
8150: 73 74 72 63 6d 70 28 73 74 72 2c 22 4c 22 29 3d strcmp(str,"L")=
8160: 3d 30 29 20 7b 0a 09 09 09 6b 5f 4c 3d 54 63 6c =0) {....k_L=Tcl
8170: 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 _GetString(listv
8180: 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 [i+1]);... }
8190: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
81a0: 73 74 72 2c 22 4f 22 29 3d 3d 30 29 20 7b 0a 09 str,"O")==0) {..
81b0: 09 09 6b 5f 4f 3d 54 63 6c 5f 47 65 74 53 74 72 ..k_O=Tcl_GetStr
81c0: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b ing(listv[i+1]);
81d0: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
81e0: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f 55 (strcmp(str,"OU
81f0: 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 55 ")==0) {....k_OU
8200: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
8210: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 istv[i+1]);...
8220: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
8230: 63 6d 70 28 73 74 72 2c 22 43 4e 22 29 3d 3d 30 cmp(str,"CN")==0
8240: 29 20 7b 0a 09 09 09 6b 5f 43 4e 3d 54 63 6c 5f ) {....k_CN=Tcl_
8250: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b GetString(listv[
8260: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 i+1]);... } e
8270: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 lse if (strcmp(s
8280: 74 72 2c 22 45 6d 61 69 6c 22 29 3d 3d 30 29 20 tr,"Email")==0)
8290: 7b 0a 09 09 09 6b 5f 45 6d 61 69 6c 3d 54 63 6c {....k_Email=Tcl
82a0: 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 _GetString(listv
82b0: 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 [i+1]);... }
82c0: 65 6c 73 65 20 7b 0a 09 09 09 54 63 6c 5f 53 65 else {....Tcl_Se
82d0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
82e0: 55 6e 6b 6e 6f 77 6e 20 70 61 72 61 6d 65 74 65 Unknown paramete
82f0: 72 22 2c 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 74 r",NULL);....ret
8300: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
8310: 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 . }...}..
8320: 7d 0a 09 20 20 20 20 69 66 20 28 28 70 6b 65 79 }.. if ((pkey
8330: 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6e 65 77 28 = EVP_PKEY_new(
8340: 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 )) != NULL) {...
8350: 69 66 20 28 21 45 56 50 5f 50 4b 45 59 5f 61 73 if (!EVP_PKEY_as
8360: 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 0a 09 sign_RSA(pkey,..
8370: 09 09 52 53 41 5f 67 65 6e 65 72 61 74 65 5f 6b ..RSA_generate_k
8380: 65 79 28 6b 65 79 73 69 7a 65 2c 20 30 78 31 30 ey(keysize, 0x10
8390: 30 30 31 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 001, NULL, NULL)
83a0: 29 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 )) {... Tcl_S
83b0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
83c0: 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 69 6e "Error generatin
83d0: 67 20 70 72 69 76 61 74 65 20 6b 65 79 22 2c 4e g private key",N
83e0: 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 50 5f ULL);... EVP_
83f0: 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b PKEY_free(pkey);
8400: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
8410: 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 6f L_ERROR;...}...o
8420: 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 ut=BIO_new(BIO_s
8430: 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 4f 5f _file());...BIO_
8440: 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 28 6f write_filename(o
8450: 75 74 2c 6b 65 79 6f 75 74 29 3b 0a 09 09 50 45 ut,keyout);...PE
8460: 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 50 72 69 76 M_write_bio_Priv
8470: 61 74 65 4b 65 79 28 6f 75 74 2c 70 6b 65 79 2c ateKey(out,pkey,
8480: 4e 55 4c 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 4c 4c NULL,NULL,0,NULL
8490: 2c 4e 55 4c 4c 29 3b 0a 09 09 42 49 4f 5f 66 72 ,NULL);...BIO_fr
84a0: 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 ee_all(out);....
84b0: 69 66 20 28 28 63 65 72 74 3d 58 35 30 39 5f 6e if ((cert=X509_n
84c0: 65 77 28 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a 09 ew())==NULL) {..
84d0: 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 . Tcl_SetResu
84e0: 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 lt(interp,"Error
84f0: 20 67 65 6e 65 72 61 74 69 6e 67 20 63 65 72 74 generating cert
8500: 69 66 69 63 61 74 65 20 72 65 71 75 65 73 74 22 ificate request"
8510: 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 ,NULL);... EV
8520: 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 P_PKEY_free(pkey
8530: 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 28 );... return(
8540: 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 7d 0a TCL_ERROR);...}.
8550: 0a 09 09 58 35 30 39 5f 73 65 74 5f 76 65 72 73 ...X509_set_vers
8560: 69 6f 6e 28 63 65 72 74 2c 32 29 3b 0a 09 09 41 ion(cert,2);...A
8570: 53 4e 31 5f 49 4e 54 45 47 45 52 5f 73 65 74 28 SN1_INTEGER_set(
8580: 58 35 30 39 5f 67 65 74 5f 73 65 72 69 61 6c 4e X509_get_serialN
8590: 75 6d 62 65 72 28 63 65 72 74 29 2c 73 65 72 69 umber(cert),seri
85a0: 61 6c 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 al);...X509_gmti
85b0: 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 5f me_adj(X509_get_
85c0: 6e 6f 74 42 65 66 6f 72 65 28 63 65 72 74 29 2c notBefore(cert),
85d0: 30 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 6d 0);...X509_gmtim
85e0: 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 5f 6e e_adj(X509_get_n
85f0: 6f 74 41 66 74 65 72 28 63 65 72 74 29 2c 28 6c otAfter(cert),(l
8600: 6f 6e 67 29 36 30 2a 36 30 2a 32 34 2a 64 61 79 ong)60*60*24*day
8610: 73 29 3b 0a 09 09 58 35 30 39 5f 73 65 74 5f 70 s);...X509_set_p
8620: 75 62 6b 65 79 28 63 65 72 74 2c 70 6b 65 79 29 ubkey(cert,pkey)
8630: 3b 0a 09 09 0a 09 09 6e 61 6d 65 3d 58 35 30 39 ;......name=X509
8640: 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 6d _get_subject_nam
8650: 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 35 30 39 e(cert);....X509
8660: 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f _NAME_add_entry_
8670: 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43 22 2c by_txt(name,"C",
8680: 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b MBSTRING_ASC, k
8690: 5f 43 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a _C, -1, -1, 0);.
86a0: 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f ..X509_NAME_add_
86b0: 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d entry_by_txt(nam
86c0: 65 2c 22 53 54 22 2c 20 4d 42 53 54 52 49 4e 47 e,"ST", MBSTRING
86d0: 5f 41 53 43 2c 20 6b 5f 53 54 2c 20 2d 31 2c 20 _ASC, k_ST, -1,
86e0: 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e -1, 0);...X509_N
86f0: 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 AME_add_entry_by
8700: 5f 74 78 74 28 6e 61 6d 65 2c 22 4c 22 2c 20 4d _txt(name,"L", M
8710: 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 4c BSTRING_ASC, k_L
8720: 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 , -1, -1, 0);...
8730: 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e X509_NAME_add_en
8740: 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c try_by_txt(name,
8750: 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 "O", MBSTRING_AS
8760: 43 2c 20 6b 5f 4f 2c 20 2d 31 2c 20 2d 31 2c 20 C, k_O, -1, -1,
8770: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 0);...X509_NAME_
8780: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 add_entry_by_txt
8790: 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d 42 53 54 (name,"OU", MBST
87a0: 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 4f 55 2c 20 RING_ASC, k_OU,
87b0: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 -1, -1, 0);...X5
87c0: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 09_NAME_add_entr
87d0: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43 y_by_txt(name,"C
87e0: 4e 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 N", MBSTRING_ASC
87f0: 2c 20 6b 5f 43 4e 2c 20 2d 31 2c 20 2d 31 2c 20 , k_CN, -1, -1,
8800: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 0);...X509_NAME_
8810: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 add_entry_by_txt
8820: 28 6e 61 6d 65 2c 22 45 6d 61 69 6c 22 2c 20 4d (name,"Email", M
8830: 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 45 BSTRING_ASC, k_E
8840: 6d 61 69 6c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 mail, -1, -1, 0)
8850: 3b 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 73 75 ;....X509_set_su
8860: 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 2c bject_name(cert,
8870: 6e 61 6d 65 29 3b 0a 0a 09 09 69 66 20 28 21 58 name);....if (!X
8880: 35 30 39 5f 73 69 67 6e 28 63 65 72 74 2c 70 6b 509_sign(cert,pk
8890: 65 79 2c 45 56 50 5f 6d 64 35 28 29 29 29 20 7b ey,EVP_md5())) {
88a0: 0a 09 09 20 20 20 20 58 35 30 39 5f 66 72 65 65 ... X509_free
88b0: 28 63 65 72 74 29 3b 0a 09 09 20 20 20 20 45 56 (cert);... EV
88c0: 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 P_PKEY_free(pkey
88d0: 29 3b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 );... Tcl_Set
88e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 Result(interp,"E
88f0: 72 72 6f 72 20 73 69 67 6e 69 6e 67 20 63 65 72 rror signing cer
8900: 74 69 66 69 63 61 74 65 22 2c 4e 55 4c 4c 29 3b tificate",NULL);
8910: 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ... return TC
8920: 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 L_ERROR;...}....
8930: 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f out=BIO_new(BIO_
8940: 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 4f s_file());...BIO
8950: 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 28 _write_filename(
8960: 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 0a 09 09 out,pemout);....
8970: 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 58 35 PEM_write_bio_X5
8980: 30 39 28 6f 75 74 2c 63 65 72 74 29 3b 0a 09 09 09(out,cert);...
8990: 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 74 BIO_free_all(out
89a0: 29 3b 0a 0a 09 09 58 35 30 39 5f 66 72 65 65 28 );....X509_free(
89b0: 63 65 72 74 29 3b 0a 09 09 45 56 50 5f 50 4b 45 cert);...EVP_PKE
89c0: 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 20 Y_free(pkey);..
89d0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 } else {...Tc
89e0: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
89f0: 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 rp,"Error genera
8a00: 74 69 6e 67 20 70 72 69 76 61 74 65 20 6b 65 79 ting private key
8a10: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 ",NULL);...retur
8a20: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 n TCL_ERROR;..
8a30: 20 20 7d 0a 09 7d 0a 09 62 72 65 61 6b 3b 0a 20 }..}..break;.
8a40: 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 62 72 65 default:..bre
8a50: 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 ak;. }. re
8a60: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c turn TCL_OK;.}..
8a70: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
8a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
8ac0: 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 Tls_Free --. *.
8ad0: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
8ae0: 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 6e 20 cleans up when
8af0: 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 a SSL socket bas
8b00: 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 ed channel. *.is
8b10: 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 20 closed and its
8b20: 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 reference count
8b30: 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 0a 20 2a falls below 1. *
8b40: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
8b50: 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 none. *. * Side
8b60: 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 effects:. *.Free
8b70: 73 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 0a s all the state.
8b80: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
8b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8bc0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 --------. */.voi
8bd0: 64 0a 54 6c 73 5f 46 72 65 65 28 20 63 68 61 72 d.Tls_Free( char
8be0: 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a 7b 0a 20 *blockPtr ).{.
8bf0: 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 State *stateP
8c00: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 62 6c tr = (State *)bl
8c10: 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 54 6c 73 ockPtr;.. Tls
8c20: 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 74 72 29 _Clean(statePtr)
8c30: 3b 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 62 ;. Tcl_Free(b
8c40: 6c 6f 63 6b 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a lockPtr);.}.../*
8c50: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
8c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c90: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
8ca0: 5f 43 6c 65 61 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 _Clean --. *. *.
8cb0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 This procedure c
8cc0: 6c 65 61 6e 73 20 75 70 20 77 68 65 6e 20 61 20 leans up when a
8cd0: 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 SSL socket based
8ce0: 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 channel. *.is c
8cf0: 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 20 72 65 losed and its re
8d00: 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 ference count fa
8d10: 6c 6c 73 20 62 65 6c 6f 77 20 31 2e 20 20 54 68 lls below 1. Th
8d20: 69 73 20 73 68 6f 75 6c 64 0a 20 2a 09 62 65 20 is should. *.be
8d30: 63 61 6c 6c 65 64 20 73 79 6e 63 68 72 6f 6e 6f called synchrono
8d40: 75 73 6c 79 20 62 79 20 74 68 65 20 43 6c 6f 73 usly by the Clos
8d50: 65 50 72 6f 63 2c 20 6e 6f 74 20 69 6e 20 74 68 eProc, not in th
8d60: 65 0a 20 2a 09 45 76 65 6e 74 75 61 6c 6c 79 46 e. *.EventuallyF
8d70: 72 65 65 20 63 61 6c 6c 62 61 63 6b 2e 0a 20 2a ree callback.. *
8d80: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
8d90: 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 none. *. * Side
8da0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 effects:. *.Free
8db0: 73 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 0a s all the state.
8dc0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
8dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e00: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 --------. */.voi
8e10: 64 0a 54 6c 73 5f 43 6c 65 61 6e 28 53 74 61 74 d.Tls_Clean(Stat
8e20: 65 20 2a 73 74 61 74 65 50 74 72 29 0a 7b 0a 20 e *statePtr).{.
8e30: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 77 65 27 /*. * we'
8e40: 72 65 20 61 73 73 75 6d 69 6e 67 20 68 65 72 65 re assuming here
8e50: 20 74 68 61 74 20 77 65 27 72 65 20 73 69 6e 67 that we're sing
8e60: 6c 65 2d 74 68 72 65 61 64 65 64 0a 20 20 20 20 le-threaded.
8e70: 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 73 74 61 */.. if (sta
8e80: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
8e90: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
8ea0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 NULL) {..Tcl_De
8eb0: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 leteTimerHandler
8ec0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
8ed0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
8ee0: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 mer = NULL;.
8ef0: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }.. if (state
8f00: 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 53 53 4c Ptr->ssl) {..SSL
8f10: 5f 73 68 75 74 64 6f 77 6e 28 73 74 61 74 65 50 _shutdown(stateP
8f20: 74 72 2d 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 tr->ssl);..SSL_f
8f30: 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ree(statePtr->ss
8f40: 6c 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 l);..statePtr->s
8f50: 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d sl = NULL;. }
8f60: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
8f70: 72 2d 3e 63 74 78 29 20 7b 0a 09 53 53 4c 5f 43 r->ctx) {..SSL_C
8f80: 54 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 TX_free(statePtr
8f90: 2d 3e 63 74 78 29 3b 0a 09 73 74 61 74 65 50 74 ->ctx);..statePt
8fa0: 72 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 r->ctx = NULL;.
8fb0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 }. if (sta
8fc0: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 tePtr->callback)
8fd0: 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 {..Tcl_DecrRefC
8fe0: 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 ount(statePtr->c
8ff0: 61 6c 6c 62 61 63 6b 29 3b 0a 09 73 74 61 74 65 allback);..state
9000: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 Ptr->callback =
9010: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
9020: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 70 61 if (statePtr->pa
9030: 73 73 77 6f 72 64 29 20 7b 0a 09 54 63 6c 5f 44 ssword) {..Tcl_D
9040: 65 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 ecrRefCount(stat
9050: 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b ePtr->password);
9060: 0a 09 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 ..statePtr->pass
9070: 77 6f 72 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 word = NULL;.
9080: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}.../*. *----
9090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
90c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
90d0: 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 20 2d *. * Tls_Init -
90e0: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 73 20 -. *. *.This is
90f0: 61 20 70 61 63 6b 61 67 65 20 69 6e 69 74 69 61 a package initia
9100: 6c 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 lization procedu
9110: 72 65 2c 20 77 68 69 63 68 20 69 73 20 63 61 6c re, which is cal
9120: 6c 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 77 68 led. *.by Tcl wh
9130: 65 6e 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 en this package
9140: 69 73 20 74 6f 20 62 65 20 61 64 64 65 64 20 74 is to be added t
9150: 6f 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 o an interpreter
9160: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
9170: 20 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 65 64 Ssl configured
9180: 20 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 and loaded. *.
9190: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
91a0: 20 2a 09 20 63 72 65 61 74 65 20 74 68 65 20 73 *. create the s
91b0: 73 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 sl command, init
91c0: 69 61 6c 69 73 65 20 73 73 6c 20 63 6f 6e 74 65 ialise ssl conte
91d0: 78 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d xt. *. *--------
91e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
9220: 0a 69 6e 74 0a 54 6c 73 5f 49 6e 69 74 28 54 63 .int.Tls_Init(Tc
9230: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
9240: 29 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 )../* Interprete
9250: 72 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 70 r in which the p
9260: 61 63 6b 61 67 65 20 69 73 0a 09 09 09 09 09 20 ackage is......
9270: 2a 20 74 6f 20 62 65 20 6d 61 64 65 20 61 76 61 * to be made ava
9280: 69 6c 61 62 6c 65 2e 20 2a 2f 0a 7b 0a 20 20 20 ilable. */.{.
9290: 20 69 6e 74 20 6d 61 6a 6f 72 2c 20 6d 69 6e 6f int major, mino
92a0: 72 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 72 r, patchlevel, r
92b0: 65 6c 65 61 73 65 2c 20 69 3b 0a 20 20 20 20 63 elease, i;. c
92c0: 68 61 72 20 72 6e 64 5f 73 65 65 64 5b 31 36 5d har rnd_seed[16]
92d0: 20 3d 20 22 47 72 7a 53 6c 70 6c 4b 71 55 64 6e = "GrzSlplKqUdn
92e0: 6e 7a 50 21 22 3b 09 2f 2a 20 31 36 20 62 79 74 nzP!";./* 16 byt
92f0: 65 73 20 2a 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20 es */.. /*.
9300: 20 20 20 2a 20 54 68 65 20 6f 72 69 67 69 6e 61 * The origina
9310: 6c 20 38 2e 32 2e 30 20 73 74 61 63 6b 65 64 20 l 8.2.0 stacked
9320: 63 68 61 6e 6e 65 6c 20 69 6d 70 6c 65 6d 65 6e channel implemen
9330: 74 61 74 69 6f 6e 20 28 61 6e 64 20 74 68 65 20 tation (and the
9340: 70 61 74 63 68 0a 20 20 20 20 20 2a 20 74 68 61 patch. * tha
9350: 74 20 70 72 65 63 65 64 65 64 20 69 74 29 20 68 t preceded it) h
9360: 61 64 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 68 ad problems with
9370: 20 73 63 61 6c 61 62 69 6c 69 74 79 20 61 6e 64 scalability and
9380: 20 72 6f 62 75 73 74 6e 65 73 73 2e 0a 20 20 20 robustness..
9390: 20 20 2a 20 54 68 65 73 65 20 77 65 72 65 20 61 * These were a
93a0: 64 64 72 65 73 73 20 69 6e 20 38 2e 33 2e 32 20 ddress in 8.3.2
93b0: 2f 20 38 2e 34 61 32 2c 20 73 6f 20 77 65 20 6e / 8.4a2, so we n
93c0: 6f 77 20 72 65 71 75 69 72 65 20 74 68 61 74 20 ow require that
93d0: 61 73 20 61 0a 20 20 20 20 20 2a 20 6d 69 6e 69 as a. * mini
93e0: 6d 75 6d 20 66 6f 72 20 54 4c 53 20 31 2e 34 2b mum for TLS 1.4+
93f0: 2e 20 20 57 65 20 6f 6e 6c 79 20 73 75 70 70 6f . We only suppo
9400: 72 74 20 38 2e 32 2b 20 6e 6f 77 20 28 38 2e 33 rt 8.2+ now (8.3
9410: 2e 32 2b 20 70 72 65 66 65 72 72 65 64 29 2e 0a .2+ preferred)..
9420: 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 */. if (
9430: 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 4c 5f .#ifdef USE_TCL_
9440: 53 54 55 42 53 0a 09 54 63 6c 5f 49 6e 69 74 53 STUBS..Tcl_InitS
9450: 74 75 62 73 28 69 6e 74 65 72 70 2c 20 22 38 2e tubs(interp, "8.
9460: 32 22 2c 20 30 29 0a 23 65 6c 73 65 0a 09 54 63 2", 0).#else..Tc
9470: 6c 5f 50 6b 67 52 65 71 75 69 72 65 28 69 6e 74 l_PkgRequire(int
9480: 65 72 70 2c 20 22 54 63 6c 22 2c 20 22 38 2e 32 erp, "Tcl", "8.2
9490: 22 2c 20 30 29 0a 23 65 6e 64 69 66 0a 09 3d 3d ", 0).#endif..==
94a0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
94b0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
94c0: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }.. /*. *
94d0: 20 47 65 74 20 74 68 65 20 76 65 72 73 69 6f 6e Get the version
94e0: 20 73 6f 20 77 65 20 63 61 6e 20 72 75 6e 74 69 so we can runti
94f0: 6d 65 20 73 77 69 74 63 68 20 6f 6e 20 61 76 61 me switch on ava
9500: 69 6c 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e 61 ilable functiona
9510: 6c 69 74 79 2e 0a 20 20 20 20 20 2a 20 54 4c 53 lity.. * TLS
9520: 20 73 68 6f 75 6c 64 20 72 65 61 6c 6c 79 20 6f should really o
9530: 6e 6c 79 20 62 65 20 75 73 65 64 20 69 6e 20 38 nly be used in 8
9540: 2e 33 2e 32 2b 2c 20 62 75 74 20 74 68 65 20 6f .3.2+, but the o
9550: 74 68 65 72 20 77 6f 72 6b 73 20 66 6f 72 0a 20 ther works for.
9560: 20 20 20 20 2a 20 73 6f 6d 65 20 6c 69 6d 69 74 * some limit
9570: 65 64 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 ed functionality
9580: 2c 20 73 6f 20 61 6e 20 61 74 74 65 6d 70 74 20 , so an attempt
9590: 61 74 20 73 75 70 70 6f 72 74 20 69 73 20 6d 61 at support is ma
95a0: 64 65 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 de.. */.
95b0: 54 63 6c 5f 47 65 74 56 65 72 73 69 6f 6e 28 26 Tcl_GetVersion(&
95c0: 6d 61 6a 6f 72 2c 20 26 6d 69 6e 6f 72 2c 20 26 major, &minor, &
95d0: 70 61 74 63 68 6c 65 76 65 6c 2c 20 26 72 65 6c patchlevel, &rel
95e0: 65 61 73 65 29 3b 0a 20 20 20 20 69 66 20 28 28 ease);. if ((
95f0: 6d 61 6a 6f 72 20 3e 20 38 29 20 7c 7c 20 28 28 major > 8) || ((
9600: 6d 61 6a 6f 72 20 3d 3d 20 38 29 20 26 26 20 28 major == 8) && (
9610: 28 6d 69 6e 6f 72 20 3e 20 33 29 20 7c 7c 20 28 (minor > 3) || (
9620: 28 6d 69 6e 6f 72 20 3d 3d 20 33 29 20 26 26 0a (minor == 3) &&.
9630: 09 20 20 20 20 28 72 65 6c 65 61 73 65 20 3d 3d . (release ==
9640: 20 54 43 4c 5f 46 49 4e 41 4c 5f 52 45 4c 45 41 TCL_FINAL_RELEA
9650: 53 45 29 20 26 26 20 28 70 61 74 63 68 6c 65 76 SE) && (patchlev
9660: 65 6c 20 3e 3d 20 32 29 29 29 29 29 20 7b 0a 09 el >= 2))))) {..
9670: 2f 2a 20 38 2e 33 2e 32 2b 20 2a 2f 0a 09 63 68 /* 8.3.2+ */..ch
9680: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
9690: 20 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 = TLS_CHANNEL_V
96a0: 45 52 53 49 4f 4e 5f 32 3b 0a 20 20 20 20 7d 20 ERSION_2;. }
96b0: 65 6c 73 65 20 7b 0a 09 2f 2a 20 38 2e 32 2e 30 else {../* 8.2.0
96c0: 20 2d 20 38 2e 33 2e 31 20 2a 2f 0a 09 63 68 61 - 8.3.1 */..cha
96d0: 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 nnelTypeVersion
96e0: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
96f0: 52 53 49 4f 4e 5f 31 3b 0a 20 20 20 20 7d 0a 0a RSION_1;. }..
9700: 20 20 20 20 69 66 20 28 53 53 4c 5f 6c 69 62 72 if (SSL_libr
9710: 61 72 79 5f 69 6e 69 74 28 29 20 21 3d 20 31 29 ary_init() != 1)
9720: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
9730: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f sult(interp, "co
9740: 75 6c 64 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 uld not initiali
9750: 7a 65 20 53 53 4c 20 6c 69 62 72 61 72 79 22 2c ze SSL library",
9760: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
9770: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
9780: 0a 20 20 20 20 53 53 4c 5f 6c 6f 61 64 5f 65 72 . SSL_load_er
9790: 72 6f 72 5f 73 74 72 69 6e 67 73 28 29 3b 0a 20 ror_strings();.
97a0: 20 20 20 45 52 52 5f 6c 6f 61 64 5f 63 72 79 70 ERR_load_cryp
97b0: 74 6f 5f 73 74 72 69 6e 67 73 28 29 3b 0a 0a 20 to_strings();..
97c0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 65 65 /*. * See
97d0: 64 20 74 68 65 20 72 61 6e 64 6f 6d 20 6e 75 6d d the random num
97e0: 62 65 72 20 67 65 6e 65 72 61 74 6f 72 20 69 6e ber generator in
97f0: 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 the SSL library
9800: 2c 0a 20 20 20 20 20 2a 20 75 73 69 6e 67 20 74 ,. * using t
9810: 68 65 20 64 6f 2f 77 68 69 6c 65 20 63 6f 6e 73 he do/while cons
9820: 74 72 75 63 74 20 62 65 63 61 75 73 65 20 6f 66 truct because of
9830: 20 74 68 65 20 62 75 67 20 6e 6f 74 65 20 69 6e the bug note in
9840: 20 74 68 65 0a 20 20 20 20 20 2a 20 4f 70 65 6e the. * Open
9850: 53 53 4c 20 46 41 51 20 61 74 20 68 74 74 70 3a SSL FAQ at http:
9860: 2f 2f 77 77 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 //www.openssl.or
9870: 67 2f 73 75 70 70 6f 72 74 2f 66 61 71 2e 68 74 g/support/faq.ht
9880: 6d 6c 23 55 53 45 52 31 0a 20 20 20 20 20 2a 0a ml#USER1. *.
9890: 20 20 20 20 20 2a 20 54 68 65 20 63 72 75 78 20 * The crux
98a0: 6f 66 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 69 of the problem i
98b0: 73 20 74 68 61 74 20 53 6f 6c 61 72 69 73 20 37 s that Solaris 7
98c0: 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 does not have a
98d0: 20 0a 20 20 20 20 20 2a 20 2f 64 65 76 2f 72 61 . * /dev/ra
98e0: 6e 64 6f 6d 20 6f 72 20 2f 64 65 76 2f 75 72 61 ndom or /dev/ura
98f0: 6e 64 6f 6d 20 64 65 76 69 63 65 20 73 6f 20 69 ndom device so i
9900: 74 20 63 61 6e 6e 6f 74 20 67 61 74 68 65 72 20 t cannot gather
9910: 65 6e 6f 75 67 68 0a 20 20 20 20 20 2a 20 65 6e enough. * en
9920: 74 72 6f 70 79 20 66 72 6f 6d 20 74 68 65 20 52 tropy from the R
9930: 41 4e 44 5f 73 65 65 64 28 29 20 77 68 65 6e 20 AND_seed() when
9940: 54 4c 53 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 TLS initializes
9950: 61 6e 64 20 72 65 66 75 73 65 73 0a 20 20 20 20 and refuses.
9960: 20 2a 20 74 6f 20 67 6f 20 66 75 72 74 68 65 72 * to go further
9970: 2e 20 45 61 72 6c 69 65 72 20 76 65 72 73 69 6f . Earlier versio
9980: 6e 73 20 6f 66 20 4f 70 65 6e 53 53 4c 20 63 61 ns of OpenSSL ca
9990: 72 72 69 65 64 20 6f 6e 20 72 65 67 61 72 64 6c rried on regardl
99a0: 65 73 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 ess.. */.
99b0: 20 73 72 61 6e 64 28 28 75 6e 73 69 67 6e 65 64 srand((unsigned
99c0: 20 69 6e 74 29 20 74 69 6d 65 28 28 74 69 6d 65 int) time((time
99d0: 5f 74 20 2a 29 20 4e 55 4c 4c 29 29 3b 0a 20 20 _t *) NULL));.
99e0: 20 20 64 6f 20 7b 0a 09 66 6f 72 20 28 69 20 3d do {..for (i =
99f0: 20 30 3b 20 69 20 3c 20 31 36 3b 20 69 2b 2b 29 0; i < 16; i++)
9a00: 20 7b 0a 09 20 20 20 20 72 6e 64 5f 73 65 65 64 {.. rnd_seed
9a10: 5b 69 5d 20 3d 20 31 20 2b 20 28 63 68 61 72 29 [i] = 1 + (char)
9a20: 20 28 32 35 35 2e 30 20 2a 20 72 61 6e 64 28 29 (255.0 * rand()
9a30: 2f 28 52 41 4e 44 5f 4d 41 58 2b 31 2e 30 29 29 /(RAND_MAX+1.0))
9a40: 3b 0a 09 7d 0a 09 52 41 4e 44 5f 73 65 65 64 28 ;..}..RAND_seed(
9a50: 72 6e 64 5f 73 65 65 64 2c 20 73 69 7a 65 6f 66 rnd_seed, sizeof
9a60: 28 72 6e 64 5f 73 65 65 64 29 29 3b 0a 20 20 20 (rnd_seed));.
9a70: 20 7d 20 77 68 69 6c 65 20 28 52 41 4e 44 5f 73 } while (RAND_s
9a80: 74 61 74 75 73 28 29 20 21 3d 20 31 29 3b 0a 0a tatus() != 1);..
9a90: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
9aa0: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
9ab0: 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c "tls::ciphers",
9ac0: 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 0a CiphersObjCmd,.
9ad0: 09 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 . (ClientData
9ae0: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
9af0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
9b00: 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 ;.. Tcl_Creat
9b10: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
9b20: 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 73 68 rp, "tls::handsh
9b30: 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b 65 4f ake", HandshakeO
9b40: 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 bjCmd,.. (Cli
9b50: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
9b60: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
9b70: 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 ) NULL);.. Tc
9b80: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
9b90: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
9ba0: 3a 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 :import", Import
9bb0: 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c ObjCmd,.. (Cl
9bc0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
9bd0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
9be0: 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 *) NULL);.. T
9bf0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
9c00: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
9c10: 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 61 74 75 ::status", Statu
9c20: 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 sObjCmd,.. (C
9c30: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 lientData) 0, (T
9c40: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
9c50: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 *) NULL);..
9c60: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
9c70: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
9c80: 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 56 65 72 s::version", Ver
9c90: 73 69 6f 6e 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 sionObjCmd,..
9ca0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
9cb0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
9cc0: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
9cd0: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
9ce0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
9cf0: 22 74 6c 73 3a 3a 6d 69 73 63 22 2c 20 4d 69 73 "tls::misc", Mis
9d00: 63 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 cObjCmd,.. (C
9d10: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 lientData) 0, (T
9d20: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
9d30: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 *) NULL);..
9d40: 72 65 74 75 72 6e 20 54 63 6c 5f 50 6b 67 50 72 return Tcl_PkgPr
9d50: 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20 50 41 ovide(interp, PA
9d60: 43 4b 41 47 45 5f 4e 41 4d 45 2c 20 50 41 43 4b CKAGE_NAME, PACK
9d70: 41 47 45 5f 56 45 52 53 49 4f 4e 29 3b 0a 7d 0a AGE_VERSION);.}.
9d80: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
9d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
9dc0: 2a 0a 20 2a 09 54 6c 73 5f 53 61 66 65 49 6e 69 *. *.Tls_SafeIni
9dd0: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d t --. *. *.-----
9de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 -----------*. *.
9e10: 53 74 61 6e 64 61 72 64 20 70 72 6f 63 65 64 75 Standard procedu
9e20: 72 65 20 72 65 71 75 69 72 65 64 20 62 79 20 27 re required by '
9e30: 6c 6f 61 64 27 2e 20 0a 20 2a 09 49 6e 69 74 69 load'. . *.Initi
9e40: 61 6c 69 7a 65 73 20 74 68 69 73 20 65 78 74 65 alizes this exte
9e50: 6e 73 69 6f 6e 20 66 6f 72 20 61 20 73 61 66 65 nsion for a safe
9e60: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 2a interpreter.. *
9e70: 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .---------------
9e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ea0: 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 66 66 -*. *. *.Sideeff
9eb0: 65 63 74 73 3a 0a 20 2a 09 09 41 73 20 6f 66 20 ects:. *..As of
9ec0: 27 54 6c 73 5f 49 6e 69 74 27 0a 20 2a 0a 20 2a 'Tls_Init'. *. *
9ed0: 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 41 20 73 .Result:. *..A s
9ee0: 74 61 6e 64 61 72 64 20 54 63 6c 20 65 72 72 6f tandard Tcl erro
9ef0: 72 20 63 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d r code.. *. *---
9f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f30: 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 69 6e 74 0a 54 6c ---*. */..int.Tl
9f40: 73 5f 53 61 66 65 49 6e 69 74 20 28 54 63 6c 5f s_SafeInit (Tcl_
9f50: 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 29 0a Interp* interp).
9f60: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 6c 73 {. return Tls
9f70: 5f 49 6e 69 74 20 28 69 6e 74 65 72 70 29 3b 0a _Init (interp);.
9f80: 7d 0a }.