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 30 20 32 30 30 34 2f s.c,v 1.20 2004/
0120: 30 32 2f 31 33 20 30 32 3a 30 39 3a 32 31 20 72 02/13 02:09:21 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 73 ncpy(buf, ret, s
2ca0: 69 7a 65 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ize);.. retur
2cb0: 6e 20 73 74 72 6c 65 6e 28 72 65 74 29 3b 0a 09 n strlen(ret);..
2cc0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 } else {.. re
2cd0: 74 75 72 6e 20 2d 31 3b 0a 09 7d 0a 20 20 20 20 turn -1;..}.
2ce0: 7d 0a 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 }.. cmdPtr =
2cf0: 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a Tcl_DuplicateObj
2d00: 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 (statePtr->passw
2d10: 6f 72 64 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 ord);.. Tcl_P
2d20: 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 reserve((ClientD
2d30: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 ata) statePtr->i
2d40: 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f nterp);. Tcl_
2d50: 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 Preserve((Client
2d60: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
2d70: 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
2d80: 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a fCount(cmdPtr);.
2d90: 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c result = Tcl
2da0: 5f 47 6c 6f 62 61 6c 45 76 61 6c 4f 62 6a 28 69 _GlobalEvalObj(i
2db0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 29 3b 0a nterp, cmdPtr);.
2dc0: 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 20 21 if (result !
2dd0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 63 6c = TCL_OK) {..Tcl
2de0: 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 _BackgroundError
2df0: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
2e00: 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 p);. }. Tc
2e10: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 63 l_DecrRefCount(c
2e20: 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c mdPtr);.. Tcl
2e30: 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 _Release((Client
2e40: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
2e50: 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 . Tcl_Release
2e60: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
2e70: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
2e80: 0a 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 .. if (result
2e90: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 63 == TCL_OK) {..c
2ea0: 68 61 72 20 2a 72 65 74 20 3d 20 28 63 68 61 72 har *ret = (char
2eb0: 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e *) Tcl_GetStrin
2ec0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b gResult(interp);
2ed0: 0a 09 73 74 72 6e 63 70 79 28 62 75 66 2c 20 72 ..strncpy(buf, r
2ee0: 65 74 2c 20 73 69 7a 65 29 3b 0a 09 72 65 74 75 et, size);..retu
2ef0: 72 6e 20 73 74 72 6c 65 6e 28 72 65 74 29 3b 0a rn strlen(ret);.
2f00: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 } else {..re
2f10: 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 7d turn -1;. }.}
2f20: 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a 0a 20 2a 2d .#endif.../*. *-
2f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f40: 2d 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 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 73 --. *. * Ciphers
2f80: 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 73 74 20 61 ObjCmd -- list a
2f90: 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 vailable ciphers
2fa0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 . *. *.This proc
2fb0: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
2fc0: 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 to process the
2fd0: 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 63 "tls::ciphers" c
2fe0: 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 73 ommand. *.to lis
2ff0: 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 t available ciph
3000: 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e 20 ers, based upon
3010: 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 protocol selecte
3020: 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 d.. *. * Results
3030: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
3040: 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 2e Tcl result list.
3050: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
3060: 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 cts:. *.construc
3070: 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 20 ts and destroys
3080: 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 SSL context (CTX
3090: 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ). *. *---------
30a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 73 ----------. */.s
30e0: 74 61 74 69 63 20 69 6e 74 0a 43 69 70 68 65 72 tatic int.Cipher
30f0: 73 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 sObjCmd(clientDa
3100: 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 ta, interp, objc
3110: 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 , objv). Clie
3120: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
3130: 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 a;./* Not used.
3140: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
3150: 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 p *interp;. i
3160: 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c nt objc;. Tcl
3170: 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj.*CONST objv
3180: 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 61 74 69 63 [];.{. static
3190: 20 43 4f 4e 53 54 20 63 68 61 72 20 2a 70 72 6f CONST char *pro
31a0: 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 22 73 tocols[] = {.."s
31b0: 73 6c 32 22 2c 09 22 73 73 6c 33 22 2c 09 22 74 sl2",."ssl3",."t
31c0: 6c 73 31 22 2c 09 4e 55 4c 4c 0a 20 20 20 20 7d ls1",.NULL. }
31d0: 3b 0a 20 20 20 20 65 6e 75 6d 20 70 72 6f 74 6f ;. enum proto
31e0: 63 6f 6c 20 7b 0a 09 54 4c 53 5f 53 53 4c 32 2c col {..TLS_SSL2,
31f0: 20 54 4c 53 5f 53 53 4c 33 2c 20 54 4c 53 5f 54 TLS_SSL3, TLS_T
3200: 4c 53 31 2c 20 54 4c 53 5f 4e 4f 4e 45 0a 20 20 LS1, TLS_NONE.
3210: 20 20 7d 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a };. Tcl_Obj
3220: 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 53 53 *objPtr;. SS
3230: 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c L_CTX *ctx = NUL
3240: 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 L;. SSL *ssl
3250: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43 = NULL;. STAC
3260: 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 52 29 K_OF(SSL_CIPHER)
3270: 20 2a 73 6b 3b 0a 20 20 20 20 63 68 61 72 20 2a *sk;. char *
3280: 63 70 2c 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b cp, buf[BUFSIZ];
3290: 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 78 2c 20 . int index,
32a0: 76 65 72 62 6f 73 65 20 3d 20 30 3b 0a 0a 20 20 verbose = 0;..
32b0: 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 7c if (objc < 2 |
32c0: 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 54 | objc > 3) {..T
32d0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
32e0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
32f0: 20 22 70 72 6f 74 6f 63 6f 6c 20 3f 76 65 72 62 "protocol ?verb
3300: 6f 73 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ose?");..return
3310: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
3320: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
3330: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 20 69 6e IndexFromObj( in
3340: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 terp, objv[1], p
3350: 72 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f rotocols, "proto
3360: 63 6f 6c 22 2c 20 30 2c 0a 09 26 69 6e 64 65 78 col", 0,..&index
3370: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
3380: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3390: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
33a0: 6f 62 6a 63 20 3e 20 32 20 26 26 20 54 63 6c 5f objc > 2 && Tcl_
33b0: 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 GetBooleanFromOb
33c0: 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b j( interp, objv[
33d0: 32 5d 2c 0a 09 26 76 65 72 62 6f 73 65 29 20 21 2],..&verbose) !
33e0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 = TCL_OK) {..ret
33f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3400: 20 20 20 7d 0a 20 20 20 20 73 77 69 74 63 68 20 }. switch
3410: 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 ((enum protocol)
3420: 69 6e 64 65 78 29 20 7b 0a 20 20 20 20 63 61 73 index) {. cas
3430: 65 20 54 4c 53 5f 53 53 4c 32 3a 0a 23 69 66 20 e TLS_SSL2:.#if
3440: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 defined(NO_SSL2)
3450: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 ...Tcl_AppendRes
3460: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f ult(interp, "pro
3470: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
3480: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 ted", NULL);...r
3490: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
34a0: 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 .#else...ctx = S
34b0: 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 SL_CTX_new(SSLv2
34c0: 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 _method()); brea
34d0: 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 k;.#endif. ca
34e0: 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 69 66 se TLS_SSL3:.#if
34f0: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 defined(NO_SSL3
3500: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 )...Tcl_AppendRe
3510: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
3520: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
3530: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 rted", NULL);...
3540: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3550: 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 ;.#else...ctx =
3560: 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 SSL_CTX_new(SSLv
3570: 33 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 3_method()); bre
3580: 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 ak;.#endif. c
3590: 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 ase TLS_TLS1:.#i
35a0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
35b0: 31 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 1)...Tcl_AppendR
35c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
35d0: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
35e0: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
35f0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3600: 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d R;.#else...ctx =
3610: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 SSL_CTX_new(TLS
3620: 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 v1_method()); br
3630: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 eak;.#endif.
3640: 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 3d 3d }. if (ctx ==
3650: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
3660: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3670: 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 p, REASON(), (ch
3680: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
3690: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
36a0: 20 20 20 20 7d 0a 20 20 20 20 73 73 6c 20 3d 20 }. ssl =
36b0: 53 53 4c 5f 6e 65 77 28 63 74 78 29 3b 0a 20 20 SSL_new(ctx);.
36c0: 20 20 69 66 20 28 73 73 6c 20 3d 3d 20 4e 55 4c if (ssl == NUL
36d0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
36e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 Result(interp, R
36f0: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
3700: 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 ) NULL);..SSL_CT
3710: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 X_free(ctx);..re
3720: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3730: 20 20 20 20 7d 0a 20 20 20 20 6f 62 6a 50 74 72 }. objPtr
3740: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
3750: 6a 28 20 30 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 j( 0, NULL);..
3760: 20 20 69 66 20 28 21 76 65 72 62 6f 73 65 29 20 if (!verbose)
3770: 7b 0a 09 66 6f 72 20 28 69 6e 64 65 78 20 3d 20 {..for (index =
3780: 30 3b 20 3b 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 0; ; index++) {.
3790: 09 20 20 20 20 63 70 20 3d 20 28 63 68 61 72 2a . cp = (char*
37a0: 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f )SSL_get_cipher_
37b0: 6c 69 73 74 28 20 73 73 6c 2c 20 69 6e 64 65 78 list( ssl, index
37c0: 29 3b 0a 09 20 20 20 20 69 66 20 28 63 70 20 3d );.. if (cp =
37d0: 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 = NULL) break;..
37e0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
37f0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e ppendElement( in
3800: 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 terp, objPtr,...
3810: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
3820: 28 20 63 70 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a ( cp, -1) );..}.
3830: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 6b } else {..sk
3840: 20 3d 20 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 = SSL_get_ciphe
3850: 72 73 28 73 73 6c 29 3b 0a 0a 09 66 6f 72 20 28 rs(ssl);...for (
3860: 69 6e 64 65 78 20 3d 20 30 3b 20 69 6e 64 65 78 index = 0; index
3870: 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 < sk_SSL_CIPHER
3880: 5f 6e 75 6d 28 73 6b 29 3b 20 69 6e 64 65 78 2b _num(sk); index+
3890: 2b 29 20 7b 0a 09 20 20 20 20 72 65 67 69 73 74 +) {.. regist
38a0: 65 72 20 69 6e 74 20 69 3b 0a 09 20 20 20 20 53 er int i;.. S
38b0: 53 4c 5f 43 49 50 48 45 52 5f 64 65 73 63 72 69 SL_CIPHER_descri
38c0: 70 74 69 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 ption( sk_SSL_CI
38d0: 50 48 45 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 PHER_value( sk,
38e0: 69 6e 64 65 78 29 2c 0a 09 09 09 09 20 20 20 20 index),.....
38f0: 62 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 buf, sizeof(buf)
3900: 29 3b 0a 09 20 20 20 20 66 6f 72 20 28 69 20 3d );.. for (i =
3910: 20 73 74 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 strlen(buf) - 1
3920: 3b 20 69 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 ; i ; i--) {...i
3930: 66 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 f (buf[i] == ' '
3940: 20 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c || buf[i] == '\
3950: 6e 27 20 7c 7c 0a 09 09 20 20 20 20 62 75 66 5b n' ||... buf[
3960: 69 5d 20 3d 3d 20 27 5c 72 27 20 7c 7c 20 62 75 i] == '\r' || bu
3970: 66 5b 69 5d 20 3d 3d 20 27 5c 74 27 29 20 7b 0a f[i] == '\t') {.
3980: 09 09 20 20 20 20 62 75 66 5b 69 5d 20 3d 20 27 .. buf[i] = '
3990: 5c 30 27 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a \0';...} else {.
39a0: 09 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d .. break;...}
39b0: 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 54 63 6c .. }.. Tcl
39c0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
39d0: 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f ement( interp, o
39e0: 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 bjPtr,...Tcl_New
39f0: 53 74 72 69 6e 67 4f 62 6a 28 20 62 75 66 2c 20 StringObj( buf,
3a00: 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a -1) );..}. }.
3a10: 20 20 20 20 53 53 4c 5f 66 72 65 65 28 73 73 6c SSL_free(ssl
3a20: 29 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 );. SSL_CTX_f
3a30: 72 65 65 28 63 74 78 29 3b 0a 0a 20 20 20 20 54 ree(ctx);.. T
3a40: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
3a50: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 interp, objPtr)
3a60: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
3a70: 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d _OK;.}.../*. *--
3a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3aa0: 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 48 61 6e 64 73 68 61 6b -. *. * Handshak
3ad0: 65 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a eObjCmd --. *. *
3ae0: 09 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 .This command is
3af0: 20 75 73 65 64 20 74 6f 20 76 65 72 69 66 79 20 used to verify
3b00: 77 68 65 74 68 65 72 20 74 68 65 20 68 61 6e 64 whether the hand
3b10: 73 68 61 6b 65 20 69 73 20 63 6f 6d 70 6c 65 74 shake is complet
3b20: 65 0a 20 2a 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a e. *.or not.. *.
3b30: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
3b40: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 standard Tcl re
3b50: 73 75 6c 74 2e 20 31 20 6d 65 61 6e 73 20 68 61 sult. 1 means ha
3b60: 6e 64 73 68 61 6b 65 20 63 6f 6d 70 6c 65 74 65 ndshake complete
3b70: 2c 20 30 20 6d 65 61 6e 73 20 70 65 6e 64 69 6e , 0 means pendin
3b80: 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 g.. *. * Side ef
3b90: 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 66 6f fects:. *.May fo
3ba0: 72 63 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 rce SSL negotiat
3bb0: 69 6f 6e 20 74 6f 20 74 61 6b 65 20 70 6c 61 63 ion to take plac
3bc0: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
3bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3c10: 0a 73 74 61 74 69 63 20 69 6e 74 0a 48 61 6e 64 .static int.Hand
3c20: 73 68 61 6b 65 4f 62 6a 43 6d 64 28 63 6c 69 65 shakeObjCmd(clie
3c30: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
3c40: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
3c50: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3c60: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
3c70: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
3c80: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
3c90: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
3ca0: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
3cb0: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 objv[];.{. Tc
3cc0: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 l_Channel chan;.
3cd0: 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 ./* The channel
3ce0: 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e to set a mode on
3cf0: 2e 20 2a 2f 0a 20 20 20 20 53 74 61 74 65 20 2a . */. State *
3d00: 73 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c statePtr;../* cl
3d10: 69 65 6e 74 20 73 74 61 74 65 20 66 6f 72 20 73 ient state for s
3d20: 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 sl socket */.
3d30: 20 69 6e 74 20 72 65 74 20 3d 20 31 3b 0a 0a 20 int ret = 1;..
3d40: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 if (objc != 2
3d50: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
3d60: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
3d70: 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 objv, "channel"
3d80: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
3d90: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
3da0: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 chan = Tcl_GetC
3db0: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 hannel(interp, T
3dc0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
3dd0: 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c Obj(objv[1], NUL
3de0: 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 L), NULL);. i
3df0: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
3e00: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
3e10: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3e20: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 OR;. }. if
3e30: 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 (channelTypeVer
3e40: 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e sion == TLS_CHAN
3e50: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b NEL_VERSION_2) {
3e60: 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6b 65 20 73 75 ../*.. * Make su
3e70: 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e re to operate on
3e80: 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 the topmost cha
3e90: 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 nnel.. */..chan
3ea0: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e = Tcl_GetTopChan
3eb0: 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 20 20 20 7d nel(chan);. }
3ec0: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
3ed0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e ChannelType(chan
3ee0: 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c ) != Tls_Channel
3ef0: 54 79 70 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 Type()) {..Tcl_A
3f00: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3f10: 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c rp, "bad channel
3f20: 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 \"", Tcl_GetCha
3f30: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a nnelName(chan),.
3f40: 09 09 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 .."\": not a TLS
3f50: 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 channel", NULL)
3f60: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
3f70: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 ROR;. }. s
3f80: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
3f90: 20 2a 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 *)Tcl_GetChanne
3fa0: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 lInstanceData(ch
3fb0: 61 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 53 an);.. if (!S
3fc0: 53 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 SL_is_init_finis
3fd0: 68 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 hed(statePtr->ss
3fe0: 6c 29 29 20 7b 0a 09 69 6e 74 20 65 72 72 3b 0a l)) {..int err;.
3ff0: 09 72 65 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 .ret = Tls_WaitF
4000: 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 orConnect(stateP
4010: 74 72 2c 20 26 65 72 72 29 3b 0a 09 69 66 20 28 tr, &err);..if (
4020: 72 65 74 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 ret < 0) {..
4030: 43 4f 4e 53 54 20 63 68 61 72 20 2a 65 72 72 53 CONST char *errS
4040: 74 72 20 3d 20 73 74 61 74 65 50 74 72 2d 3e 65 tr = statePtr->e
4050: 72 72 3b 0a 09 20 20 20 20 54 63 6c 5f 52 65 73 rr;.. Tcl_Res
4060: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 etResult(interp)
4070: 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 45 72 ;.. Tcl_SetEr
4080: 72 6e 6f 28 65 72 72 29 3b 0a 0a 09 20 20 20 20 rno(err);...
4090: 69 66 20 28 21 65 72 72 53 74 72 20 7c 7c 20 2a if (!errStr || *
40a0: 65 72 72 53 74 72 20 3d 3d 20 30 29 20 7b 0a 09 errStr == 0) {..
40b0: 09 65 72 72 53 74 72 20 3d 20 54 63 6c 5f 50 6f .errStr = Tcl_Po
40c0: 73 69 78 45 72 72 6f 72 28 69 6e 74 65 72 70 29 sixError(interp)
40d0: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 54 ;.. }... T
40e0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
40f0: 69 6e 74 65 72 70 2c 20 22 68 61 6e 64 73 68 61 interp, "handsha
4100: 6b 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 65 72 ke failed: ", er
4110: 72 53 74 72 2c 0a 09 09 20 20 20 20 28 63 68 61 rStr,... (cha
4120: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 r *) NULL);..
4130: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
4140: 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 R;..}. }..
4150: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
4160: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 t(interp, Tcl_Ne
4170: 77 49 6e 74 4f 62 6a 28 72 65 74 29 29 3b 0a 20 wIntObj(ret));.
4180: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
4190: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
41a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41c0: 2d 2d 2d 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 0a 20 --------------.
41e0: 2a 0a 20 2a 20 49 6d 70 6f 72 74 4f 62 6a 43 6d *. * ImportObjCm
41f0: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 d --. *. *.This
4200: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
4210: 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 oked to process
4220: 74 68 65 20 22 73 73 6c 22 20 63 6f 6d 6d 61 6e the "ssl" comman
4230: 64 0a 20 2a 0a 20 2a 09 54 68 65 20 73 73 6c 20 d. *. *.The ssl
4240: 63 6f 6d 6d 61 6e 64 20 70 75 73 68 65 73 20 53 command pushes S
4250: 53 4c 20 6f 76 65 72 20 61 20 28 6e 65 77 6c 79 SL over a (newly
4260: 20 63 6f 6e 6e 65 63 74 65 64 29 20 74 63 70 20 connected) tcp
4270: 73 6f 63 6b 65 74 0a 20 2a 0a 20 2a 20 52 65 73 socket. *. * Res
4280: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
4290: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a ard Tcl result..
42a0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
42b0: 74 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 ts:. *.May modif
42c0: 79 20 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f y the behavior o
42d0: 66 20 61 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e f an IO channel.
42e0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
42f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 0a 73 ---------. */..s
4330: 74 61 74 69 63 20 69 6e 74 0a 49 6d 70 6f 72 74 tatic int.Import
4340: 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 ObjCmd(clientDat
4350: 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c a, interp, objc,
4360: 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e objv). Clien
4370: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
4380: 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a ;./* Not used. *
4390: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
43a0: 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e *interp;. in
43b0: 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f t objc;. Tcl_
43c0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
43d0: 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 ];.{. Tcl_Cha
43e0: 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 nnel chan;../* T
43f0: 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 he channel to se
4400: 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a t a mode on. */.
4410: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
4420: 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 Ptr;../* client
4430: 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 73 6f state for ssl so
4440: 63 6b 65 74 20 2a 2f 0a 20 20 20 20 53 53 4c 5f cket */. SSL_
4450: 43 54 58 20 2a 63 74 78 09 3d 20 4e 55 4c 4c 3b CTX *ctx.= NULL;
4460: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 . Tcl_Obj *sc
4470: 72 69 70 74 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 ript.= NULL;.
4480: 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 73 73 77 6f Tcl_Obj *passwo
4490: 72 64 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 rd.= NULL;. i
44a0: 6e 74 20 69 64 78 3b 0a 20 20 20 20 69 6e 74 20 nt idx;. int
44b0: 66 6c 61 67 73 09 09 3d 20 54 4c 53 5f 54 43 4c flags..= TLS_TCL
44c0: 5f 49 4e 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 _INIT;. int s
44d0: 65 72 76 65 72 09 09 3d 20 30 3b 09 2f 2a 20 69 erver..= 0;./* i
44e0: 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 s connection inc
44f0: 6f 6d 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e oming or outgoin
4500: 67 3f 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a g? */. char *
4510: 6b 65 79 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 key..= NULL;.
4520: 20 63 68 61 72 20 2a 63 65 72 74 09 09 3d 20 4e char *cert..= N
4530: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 ULL;. char *c
4540: 69 70 68 65 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 iphers.= NULL;.
4550: 20 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 char *CAfile.
4560: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 = NULL;. char
4570: 20 2a 43 41 64 69 72 09 09 3d 20 4e 55 4c 4c 3b *CAdir..= NULL;
4580: 0a 20 20 20 20 63 68 61 72 20 2a 6d 6f 64 65 6c . char *model
4590: 09 09 3d 20 4e 55 4c 4c 3b 0a 23 69 66 20 64 65 ..= NULL;.#if de
45a0: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 fined(NO_SSL2).
45b0: 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 30 3b int ssl2 = 0;
45c0: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 .#else. int s
45d0: 73 6c 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a sl2 = 1;.#endif.
45e0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
45f0: 53 4c 33 29 0a 20 20 20 20 69 6e 74 20 73 73 6c SL3). int ssl
4600: 33 20 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 3 = 0;.#else.
4610: 20 69 6e 74 20 73 73 6c 33 20 3d 20 31 3b 0a 23 int ssl3 = 1;.#
4620: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
4630: 64 28 4e 4f 5f 53 53 4c 32 29 20 26 26 20 64 65 d(NO_SSL2) && de
4640: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 fined(NO_SSL3).
4650: 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 3b int tls1 = 1;
4660: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 74 .#else. int t
4670: 6c 73 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a ls1 = 0;.#endif.
4680: 20 20 20 20 69 6e 74 20 70 72 6f 74 6f 20 3d 20 int proto =
4690: 30 3b 0a 20 20 20 20 69 6e 74 20 76 65 72 69 66 0;. int verif
46a0: 79 20 3d 20 30 2c 20 72 65 71 75 69 72 65 20 3d y = 0, require =
46b0: 20 30 2c 20 72 65 71 75 65 73 74 20 3d 20 31 3b 0, request = 1;
46c0: 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c .. if (objc <
46d0: 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 2) {..Tcl_Wrong
46e0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
46f0: 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 1, objv, "channe
4700: 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a 09 l ?options?");..
4710: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4720: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 ;. }.. cha
4730: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
4740: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
4750: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
4760: 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 objv[1], NULL),
4770: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 NULL);. if (c
4780: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
4790: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
47a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
47b0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 68 }. if (ch
47c0: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
47d0: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
47e0: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a VERSION_2) {../*
47f0: 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 .. * Make sure t
4800: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
4810: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
4820: 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 .. */..chan = Tc
4830: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
4840: 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 chan);. }..
4850: 20 20 66 6f 72 20 28 69 64 78 20 3d 20 32 3b 20 for (idx = 2;
4860: 69 64 78 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b idx < objc; idx+
4870: 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f 70 74 20 +) {..char *opt
4880: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
4890: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d romObj(objv[idx]
48a0: 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f , NULL);...if (o
48b0: 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 0a 09 20 pt[0] != '-')..
48c0: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 4f 50 54 53 break;...OPTS
48d0: 54 52 28 20 22 2d 63 61 64 69 72 22 2c 20 43 41 TR( "-cadir", CA
48e0: 64 69 72 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 dir);..OPTSTR( "
48f0: 2d 63 61 66 69 6c 65 22 2c 20 43 41 66 69 6c 65 -cafile", CAfile
4900: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 65 );..OPTSTR( "-ce
4910: 72 74 66 69 6c 65 22 2c 20 63 65 72 74 29 3b 0a rtfile", cert);.
4920: 09 4f 50 54 53 54 52 28 20 22 2d 63 69 70 68 65 .OPTSTR( "-ciphe
4930: 72 22 2c 20 63 69 70 68 65 72 73 29 3b 0a 09 4f r", ciphers);..O
4940: 50 54 4f 42 4a 28 20 22 2d 63 6f 6d 6d 61 6e 64 PTOBJ( "-command
4950: 22 2c 20 73 63 72 69 70 74 29 3b 0a 09 4f 50 54 ", script);..OPT
4960: 53 54 52 28 20 22 2d 6b 65 79 66 69 6c 65 22 2c STR( "-keyfile",
4970: 20 6b 65 79 29 3b 0a 09 4f 50 54 53 54 52 28 20 key);..OPTSTR(
4980: 22 2d 6d 6f 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 "-model", model)
4990: 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 70 61 73 ;..OPTOBJ( "-pas
49a0: 73 77 6f 72 64 22 2c 20 70 61 73 73 77 6f 72 64 sword", password
49b0: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
49c0: 65 71 75 69 72 65 22 2c 20 72 65 71 75 69 72 65 equire", require
49d0: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
49e0: 65 71 75 65 73 74 22 2c 20 72 65 71 75 65 73 74 equest", request
49f0: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 );..OPTBOOL( "-s
4a00: 65 72 76 65 72 22 2c 20 73 65 72 76 65 72 29 3b erver", server);
4a10: 0a 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 ...OPTBOOL( "-ss
4a20: 6c 32 22 2c 20 73 73 6c 32 29 3b 0a 09 4f 50 54 l2", ssl2);..OPT
4a30: 42 4f 4f 4c 28 20 22 2d 73 73 6c 33 22 2c 20 73 BOOL( "-ssl3", s
4a40: 73 6c 33 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 sl3);..OPTBOOL(
4a50: 22 2d 74 6c 73 31 22 2c 20 74 6c 73 31 29 3b 0a "-tls1", tls1);.
4a60: 0a 09 4f 50 54 42 41 44 28 20 22 6f 70 74 69 6f ..OPTBAD( "optio
4a70: 6e 22 2c 20 22 2d 63 61 64 69 72 2c 20 2d 63 61 n", "-cadir, -ca
4a80: 66 69 6c 65 2c 20 2d 63 65 72 74 66 69 6c 65 2c file, -certfile,
4a90: 20 2d 63 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 -cipher, -comma
4aa0: 6e 64 2c 20 2d 6b 65 79 66 69 6c 65 2c 20 2d 6d nd, -keyfile, -m
4ab0: 6f 64 65 6c 2c 20 2d 70 61 73 73 77 6f 72 64 2c odel, -password,
4ac0: 20 2d 72 65 71 75 69 72 65 2c 20 2d 72 65 71 75 -require, -requ
4ad0: 65 73 74 2c 20 2d 73 65 72 76 65 72 2c 20 2d 73 est, -server, -s
4ae0: 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 6f 72 20 2d sl2, -ssl3, or -
4af0: 74 6c 73 31 22 29 3b 0a 0a 09 72 65 74 75 72 6e tls1");...return
4b00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4b10: 7d 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 }. if (reques
4b20: 74 29 09 20 20 20 20 76 65 72 69 66 79 20 7c 3d t). verify |=
4b30: 20 53 53 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45 SSL_VERIFY_CLIE
4b40: 4e 54 5f 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45 NT_ONCE | SSL_VE
4b50: 52 49 46 59 5f 50 45 45 52 3b 0a 20 20 20 20 69 RIFY_PEER;. i
4b60: 66 20 28 72 65 71 75 65 73 74 20 26 26 20 72 65 f (request && re
4b70: 71 75 69 72 65 29 20 76 65 72 69 66 79 20 7c 3d quire) verify |=
4b80: 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c SSL_VERIFY_FAIL
4b90: 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 _IF_NO_PEER_CERT
4ba0: 3b 0a 20 20 20 20 69 66 20 28 76 65 72 69 66 79 ;. if (verify
4bb0: 20 3d 3d 20 30 29 09 76 65 72 69 66 79 20 3d 20 == 0).verify =
4bc0: 53 53 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b SSL_VERIFY_NONE;
4bd0: 0a 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 .. proto |= (
4be0: 73 73 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f ssl2 ? TLS_PROTO
4bf0: 5f 53 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 _SSL2 : 0);.
4c00: 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f proto |= (ssl3 ?
4c10: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 TLS_PROTO_SSL3
4c20: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 : 0);. proto
4c30: 7c 3d 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 |= (tls1 ? TLS_P
4c40: 52 4f 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a ROTO_TLS1 : 0);.
4c50: 0a 20 20 20 20 2f 2a 20 72 65 73 65 74 20 74 6f . /* reset to
4c60: 20 4e 55 4c 4c 20 69 66 20 62 6c 61 6e 6b 20 73 NULL if blank s
4c70: 74 72 69 6e 67 20 70 72 6f 76 69 64 65 64 20 2a tring provided *
4c80: 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 20 26 /. if (cert &
4c90: 26 20 21 2a 63 65 72 74 29 09 09 63 65 72 74 09 & !*cert)..cert.
4ca0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 = NULL;. if (
4cb0: 6b 65 79 20 26 26 20 21 2a 6b 65 79 29 09 09 6b key && !*key)..k
4cc0: 65 79 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 ey.= NULL;. i
4cd0: 66 20 28 63 69 70 68 65 72 73 20 26 26 20 21 2a f (ciphers && !*
4ce0: 63 69 70 68 65 72 73 29 09 63 69 70 68 65 72 73 ciphers).ciphers
4cf0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 .= NULL;. if
4d00: 28 43 41 66 69 6c 65 20 26 26 20 21 2a 43 41 66 (CAfile && !*CAf
4d10: 69 6c 65 29 09 43 41 66 69 6c 65 09 3d 20 4e 55 ile).CAfile.= NU
4d20: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 64 69 LL;. if (CAdi
4d30: 72 20 26 26 20 21 2a 43 41 64 69 72 29 09 43 41 r && !*CAdir).CA
4d40: 64 69 72 09 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 dir.= NULL;..
4d50: 20 2f 2a 20 6e 65 77 20 53 53 4c 20 73 74 61 74 /* new SSL stat
4d60: 65 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 e */. statePt
4d70: 72 09 09 3d 20 28 53 74 61 74 65 20 2a 29 20 54 r..= (State *) T
4d80: 63 6c 5f 41 6c 6c 6f 63 28 28 75 6e 73 69 67 6e cl_Alloc((unsign
4d90: 65 64 29 20 73 69 7a 65 6f 66 28 53 74 61 74 65 ed) sizeof(State
4da0: 29 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 ));. statePtr
4db0: 2d 3e 73 65 6c 66 09 3d 20 28 54 63 6c 5f 43 68 ->self.= (Tcl_Ch
4dc0: 61 6e 6e 65 6c 29 4e 55 4c 4c 3b 0a 20 20 20 20 annel)NULL;.
4dd0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 09 statePtr->timer.
4de0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
4df0: 6e 29 4e 55 4c 4c 3b 0a 0a 20 20 20 20 73 74 61 n)NULL;.. sta
4e00: 74 65 50 74 72 2d 3e 66 6c 61 67 73 09 3d 20 66 tePtr->flags.= f
4e10: 6c 61 67 73 3b 0a 20 20 20 20 73 74 61 74 65 50 lags;. stateP
4e20: 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 09 3d 20 tr->watchMask.=
4e30: 30 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 0;. statePtr-
4e40: 3e 6d 6f 64 65 09 3d 20 30 3b 0a 0a 20 20 20 20 >mode.= 0;..
4e50: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
4e60: 09 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 73 .= interp;. s
4e70: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
4e80: 6b 09 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 30 k.= (Tcl_Obj *)0
4e90: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
4ea0: 70 61 73 73 77 6f 72 64 09 3d 20 28 54 63 6c 5f password.= (Tcl_
4eb0: 4f 62 6a 20 2a 29 30 3b 0a 0a 20 20 20 20 73 74 Obj *)0;.. st
4ec0: 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 09 3d atePtr->vflags.=
4ed0: 20 76 65 72 69 66 79 3b 0a 20 20 20 20 73 74 61 verify;. sta
4ee0: 74 65 50 74 72 2d 3e 73 73 6c 09 3d 20 28 53 53 tePtr->ssl.= (SS
4ef0: 4c 2a 29 30 3b 0a 20 20 20 20 73 74 61 74 65 50 L*)0;. stateP
4f00: 74 72 2d 3e 63 74 78 09 3d 20 28 53 53 4c 5f 43 tr->ctx.= (SSL_C
4f10: 54 58 2a 29 30 3b 0a 20 20 20 20 73 74 61 74 65 TX*)0;. state
4f20: 50 74 72 2d 3e 62 69 6f 09 3d 20 28 42 49 4f 2a Ptr->bio.= (BIO*
4f30: 29 30 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 )0;. statePtr
4f40: 2d 3e 70 5f 62 69 6f 09 3d 20 28 42 49 4f 2a 29 ->p_bio.= (BIO*)
4f50: 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 0;.. statePtr
4f60: 2d 3e 65 72 72 09 3d 20 22 22 3b 0a 0a 20 20 20 ->err.= "";..
4f70: 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 73 63 72 /* allocate scr
4f80: 69 70 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ipt */. if (s
4f90: 63 72 69 70 74 29 20 7b 0a 09 63 68 61 72 20 2a cript) {..char *
4fa0: 74 6d 70 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 tmp = Tcl_GetStr
4fb0: 69 6e 67 46 72 6f 6d 4f 62 6a 28 73 63 72 69 70 ingFromObj(scrip
4fc0: 74 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 74 t, NULL);..if (t
4fd0: 6d 70 20 26 26 20 2a 74 6d 70 29 20 7b 0a 09 20 mp && *tmp) {..
4fe0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 63 61 6c statePtr->cal
4ff0: 6c 62 61 63 6b 20 3d 20 54 63 6c 5f 44 75 70 6c lback = Tcl_Dupl
5000: 69 63 61 74 65 4f 62 6a 28 73 63 72 69 70 74 29 icateObj(script)
5010: 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
5020: 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 efCount(statePtr
5030: 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 7d 0a ->callback);..}.
5040: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 61 6c }.. /* al
5050: 6c 6f 63 61 74 65 20 70 61 73 73 77 6f 72 64 20 locate password
5060: 2a 2f 0a 20 20 20 20 69 66 20 28 70 61 73 73 77 */. if (passw
5070: 6f 72 64 29 20 7b 0a 09 63 68 61 72 20 2a 74 6d ord) {..char *tm
5080: 70 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e p = Tcl_GetStrin
5090: 67 46 72 6f 6d 4f 62 6a 28 70 61 73 73 77 6f 72 gFromObj(passwor
50a0: 64 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 20 28 74 d, NULL);..if (t
50b0: 6d 70 20 26 26 20 2a 74 6d 70 29 20 7b 0a 09 20 mp && *tmp) {..
50c0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 61 73 statePtr->pas
50d0: 73 77 6f 72 64 20 3d 20 54 63 6c 5f 44 75 70 6c sword = Tcl_Dupl
50e0: 69 63 61 74 65 4f 62 6a 28 70 61 73 73 77 6f 72 icateObj(passwor
50f0: 64 29 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 d);.. Tcl_Inc
5100: 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 rRefCount(stateP
5110: 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 tr->password);..
5120: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 }. }.. if
5130: 28 6d 6f 64 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 (model != NULL)
5140: 7b 0a 09 69 6e 74 20 6d 6f 64 65 3b 0a 09 2f 2a {..int mode;../*
5150: 20 47 65 74 20 74 68 65 20 22 6d 6f 64 65 6c 22 Get the "model"
5160: 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 63 68 61 context */..cha
5170: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
5180: 65 6c 28 69 6e 74 65 72 70 2c 20 6d 6f 64 65 6c el(interp, model
5190: 2c 20 26 6d 6f 64 65 29 3b 0a 09 69 66 20 28 63 , &mode);..if (c
51a0: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
51b0: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 nel) NULL) {..
51c0: 20 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 Tls_Free((char
51d0: 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 *) statePtr);..
51e0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
51f0: 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 20 28 63 68 RROR;..}..if (ch
5200: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
5210: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
5220: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 20 20 VERSION_2) {..
5230: 20 20 2f 2a 0a 09 20 20 20 20 20 2a 20 4d 61 6b /*.. * Mak
5240: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
5250: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
5260: 20 63 68 61 6e 6e 65 6c 0a 09 20 20 20 20 20 2a channel.. *
5270: 2f 0a 09 20 20 20 20 63 68 61 6e 20 3d 20 54 63 /.. chan = Tc
5280: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
5290: 63 68 61 6e 29 3b 0a 09 7d 0a 09 69 66 20 28 54 chan);..}..if (T
52a0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
52b0: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 e(chan) != Tls_C
52c0: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a hannelType()) {.
52d0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
52e0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
52f0: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a ad channel \"",.
5300: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 .. Tcl_GetCha
5310: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 nnelName(chan),
5320: 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 "\": not a TLS c
5330: 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a hannel", NULL);.
5340: 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63 . Tls_Free((c
5350: 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 har *) statePtr)
5360: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
5370: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 63 74 78 L_ERROR;..}..ctx
5380: 20 3d 20 28 28 53 74 61 74 65 20 2a 29 54 63 6c = ((State *)Tcl
5390: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
53a0: 6e 63 65 44 61 74 61 28 63 68 61 6e 29 29 2d 3e nceData(chan))->
53b0: 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ctx;. } else
53c0: 7b 0a 09 69 66 20 28 28 63 74 78 20 3d 20 43 54 {..if ((ctx = CT
53d0: 58 5f 49 6e 69 74 28 73 74 61 74 65 50 74 72 2c X_Init(statePtr,
53e0: 20 70 72 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 72 proto, key, cer
53f0: 74 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c 65 t, CAdir, CAfile
5400: 2c 20 63 69 70 68 65 72 73 29 29 0a 09 20 20 20 , ciphers))..
5410: 20 3d 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 29 == (SSL_CTX*)0)
5420: 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 {.. Tls_Free
5430: 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 ((char *) stateP
5440: 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tr);.. return
5450: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 TCL_ERROR;..}.
5460: 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 50 }.. stateP
5470: 74 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b 0a 0a tr->ctx = ctx;..
5480: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 65 /*. * We
5490: 20 6e 65 65 64 20 74 6f 20 6d 61 6b 65 20 73 75 need to make su
54a0: 72 65 20 74 68 61 74 20 74 68 65 20 63 68 61 6e re that the chan
54b0: 6e 65 6c 20 77 6f 72 6b 73 20 69 6e 20 62 69 6e nel works in bin
54c0: 61 72 79 20 28 66 6f 72 20 74 68 65 0a 20 20 20 ary (for the.
54d0: 20 20 2a 20 65 6e 63 72 79 70 74 69 6f 6e 20 6e * encryption n
54e0: 6f 74 20 74 6f 20 67 65 74 20 67 6f 6f 66 65 64 ot to get goofed
54f0: 20 75 70 29 2e 0a 20 20 20 20 20 2a 20 57 65 20 up).. * We
5500: 6f 6e 6c 79 20 77 61 6e 74 20 74 6f 20 61 64 6a only want to adj
5510: 75 73 74 20 74 68 65 20 62 75 66 66 65 72 69 6e ust the bufferin
5520: 67 20 69 6e 20 70 72 65 2d 76 32 20 63 68 61 6e g in pre-v2 chan
5530: 6e 65 6c 73 2c 20 77 68 65 72 65 0a 20 20 20 20 nels, where.
5540: 20 2a 20 65 61 63 68 20 63 68 61 6e 6e 65 6c 20 * each channel
5550: 69 6e 20 74 68 65 20 73 74 61 63 6b 20 6d 61 69 in the stack mai
5560: 6e 74 61 69 6e 65 64 20 69 74 73 20 6f 77 6e 20 ntained its own
5570: 62 75 66 66 65 72 73 2e 0a 20 20 20 20 20 2a 2f buffers.. */
5580: 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e . Tcl_SetChan
5590: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
55a0: 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c , chan, "-transl
55b0: 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 ation", "binary"
55c0: 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e );. if (chann
55d0: 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d elTypeVersion ==
55e0: 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 TLS_CHANNEL_VER
55f0: 53 49 4f 4e 5f 31 29 20 7b 0a 09 54 63 6c 5f 53 SION_1) {..Tcl_S
5600: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
5610: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
5620: 62 75 66 66 65 72 69 6e 67 22 2c 20 22 6e 6f 6e buffering", "non
5630: 65 22 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 e");. }..
5640: 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 if (channelTypeV
5650: 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 ersion == TLS_CH
5660: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 ANNEL_VERSION_2)
5670: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 65 {..statePtr->se
5680: 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 68 lf = Tcl_StackCh
5690: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 6c annel(interp, Tl
56a0: 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 2c s_ChannelType(),
56b0: 0a 09 09 28 43 6c 69 65 6e 74 44 61 74 61 29 20 ...(ClientData)
56c0: 73 74 61 74 65 50 74 72 2c 20 28 54 43 4c 5f 52 statePtr, (TCL_R
56d0: 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 EADABLE | TCL_WR
56e0: 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a ITABLE), chan);.
56f0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 74 } else {..st
5700: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 63 atePtr->self = c
5710: 68 61 6e 3b 0a 09 54 63 6c 5f 53 74 61 63 6b 43 han;..Tcl_StackC
5720: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 hannel(interp, T
5730: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
5740: 2c 0a 09 09 28 43 6c 69 65 6e 74 44 61 74 61 29 ,...(ClientData)
5750: 20 73 74 61 74 65 50 74 72 2c 20 28 54 43 4c 5f statePtr, (TCL_
5760: 52 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 READABLE | TCL_W
5770: 52 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b RITABLE), chan);
5780: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 . }. if (s
5790: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d tatePtr->self ==
57a0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
57b0: 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4e ULL) {../*.. * N
57c0: 6f 20 75 73 65 20 6f 66 20 54 63 6c 5f 45 76 65 o use of Tcl_Eve
57d0: 6e 74 75 61 6c 6c 79 46 72 65 65 20 62 65 63 61 ntuallyFree beca
57e0: 75 73 65 20 6e 6f 20 70 6f 73 73 69 62 6c 65 20 use no possible
57f0: 54 63 6c 5f 50 72 65 73 65 72 76 65 2e 0a 09 20 Tcl_Preserve...
5800: 2a 2f 0a 09 54 6c 73 5f 46 72 65 65 28 28 63 68 */..Tls_Free((ch
5810: 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b ar *) statePtr);
5820: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5830: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
5840: 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 49 6e 69 *. * SSL Ini
5850: 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 20 20 20 tialization.
5860: 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 65 50 74 */.. statePt
5870: 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 r->ssl = SSL_new
5880: 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 29 3b (statePtr->ctx);
5890: 0a 20 20 20 20 69 66 20 28 21 73 74 61 74 65 50 . if (!stateP
58a0: 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 2f 2a 20 53 tr->ssl) {../* S
58b0: 53 4c 20 6c 69 62 72 61 72 79 20 65 72 72 6f 72 SL library error
58c0: 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 */..Tcl_AppendR
58d0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 esult(interp, "c
58e0: 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 72 75 63 ouldn't construc
58f0: 74 20 73 73 6c 20 73 65 73 73 69 6f 6e 3a 20 22 t ssl session: "
5900: 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 09 28 63 , REASON(),...(c
5910: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 har *) NULL);..T
5920: 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 ls_Free((char *)
5930: 20 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 statePtr);..ret
5940: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
5950: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 }.. /*.
5960: 20 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 6b * SSL Callback
5970: 73 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 53 s. */.. S
5980: 53 4c 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28 SL_set_app_data(
5990: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 statePtr->ssl, (
59a0: 56 4f 49 44 20 2a 29 73 74 61 74 65 50 74 72 29 VOID *)statePtr)
59b0: 3b 09 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b 20 ;./* point back
59c0: 74 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 20 53 53 to us */.. SS
59d0: 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 73 74 61 L_set_verify(sta
59e0: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 65 72 69 tePtr->ssl, veri
59f0: 66 79 2c 20 56 65 72 69 66 79 43 61 6c 6c 62 61 fy, VerifyCallba
5a00: 63 6b 29 3b 0a 0a 20 20 20 20 53 53 4c 5f 43 54 ck);.. SSL_CT
5a10: 58 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 X_set_info_callb
5a20: 61 63 6b 28 73 74 61 74 65 50 74 72 2d 3e 63 74 ack(statePtr->ct
5a30: 78 2c 20 28 76 6f 69 64 20 28 2a 29 28 29 29 49 x, (void (*)())I
5a40: 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 nfoCallback);..
5a50: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 54 63 6c /* Create Tcl
5a60: 5f 43 68 61 6e 6e 65 6c 20 42 49 4f 20 48 61 6e _Channel BIO Han
5a70: 64 6c 65 72 20 2a 2f 0a 20 20 20 20 73 74 61 74 dler */. stat
5a80: 65 50 74 72 2d 3e 70 5f 62 69 6f 09 3d 20 42 49 ePtr->p_bio.= BI
5a90: 4f 5f 6e 65 77 5f 74 63 6c 28 73 74 61 74 65 50 O_new_tcl(stateP
5aa0: 74 72 2c 20 42 49 4f 5f 43 4c 4f 53 45 29 3b 0a tr, BIO_CLOSE);.
5ab0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 62 69 statePtr->bi
5ac0: 6f 09 3d 20 42 49 4f 5f 6e 65 77 28 42 49 4f 5f o.= BIO_new(BIO_
5ad0: 66 5f 73 73 6c 28 29 29 3b 0a 0a 20 20 20 20 69 f_ssl());.. i
5ae0: 66 20 28 73 65 72 76 65 72 29 20 7b 0a 09 73 74 f (server) {..st
5af0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
5b00: 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 3b TLS_TCL_SERVER;
5b10: 0a 09 53 53 4c 5f 73 65 74 5f 61 63 63 65 70 74 ..SSL_set_accept
5b20: 5f 73 74 61 74 65 28 73 74 61 74 65 50 74 72 2d _state(statePtr-
5b30: 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 >ssl);. } els
5b40: 65 20 7b 0a 09 53 53 4c 5f 73 65 74 5f 63 6f 6e e {..SSL_set_con
5b50: 6e 65 63 74 5f 73 74 61 74 65 28 73 74 61 74 65 nect_state(state
5b60: 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d Ptr->ssl);. }
5b70: 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 62 69 6f . SSL_set_bio
5b80: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
5b90: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c statePtr->p_bio,
5ba0: 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f statePtr->p_bio
5bb0: 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 );. BIO_set_s
5bc0: 73 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f sl(statePtr->bio
5bd0: 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c , statePtr->ssl,
5be0: 20 42 49 4f 5f 43 4c 4f 53 45 29 3b 0a 0a 20 20 BIO_CLOSE);..
5bf0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 45 6e 64 20 /*. * End
5c00: 6f 66 20 53 53 4c 20 49 6e 69 74 0a 20 20 20 20 of SSL Init.
5c10: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 */. Tcl_SetR
5c20: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 esult(interp, (c
5c30: 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 43 68 har *) Tcl_GetCh
5c40: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
5c50: 74 72 2d 3e 73 65 6c 66 29 2c 0a 09 20 20 20 20 tr->self),..
5c60: 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 TCL_VOLATILE);.
5c70: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
5c80: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
5c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cb0: 2d 2d 2d 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 0a 20 --------------.
5cd0: 2a 0a 20 2a 20 43 54 58 5f 49 6e 69 74 20 2d 2d *. * CTX_Init --
5ce0: 20 63 6f 6e 73 74 72 75 63 74 20 61 20 53 53 4c construct a SSL
5cf0: 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 0a 20 2a _CTX instance. *
5d00: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
5d10: 41 20 76 61 6c 69 64 20 53 53 4c 5f 43 54 58 20 A valid SSL_CTX
5d20: 69 6e 73 74 61 6e 63 65 20 6f 72 20 4e 55 4c 4c instance or NULL
5d30: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
5d40: 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 ects:. *.constru
5d50: 63 74 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 cts SSL context
5d60: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d (CTX). *. *-----
5d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d90: 2d 2d 2d 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 0a 20 --------------.
5db0: 2a 2f 0a 0a 73 74 61 74 69 63 20 53 53 4c 5f 43 */..static SSL_C
5dc0: 54 58 20 2a 0a 43 54 58 5f 49 6e 69 74 28 73 74 TX *.CTX_Init(st
5dd0: 61 74 65 50 74 72 2c 20 70 72 6f 74 6f 2c 20 6b atePtr, proto, k
5de0: 65 79 2c 20 63 65 72 74 2c 20 43 41 64 69 72 2c ey, cert, CAdir,
5df0: 20 43 41 66 69 6c 65 2c 20 63 69 70 68 65 72 73 CAfile, ciphers
5e00: 29 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 ). State *sta
5e10: 74 65 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 70 tePtr;. int p
5e20: 72 6f 74 6f 3b 0a 20 20 20 20 63 68 61 72 20 2a roto;. char *
5e30: 6b 65 79 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 key;. char *c
5e40: 65 72 74 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 ert;. char *C
5e50: 41 64 69 72 3b 0a 20 20 20 20 63 68 61 72 20 2a Adir;. char *
5e60: 43 41 66 69 6c 65 3b 0a 20 20 20 20 63 68 61 72 CAfile;. char
5e70: 20 2a 63 69 70 68 65 72 73 3b 0a 7b 0a 20 20 20 *ciphers;.{.
5e80: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
5e90: 65 72 70 20 3d 20 73 74 61 74 65 50 74 72 2d 3e erp = statePtr->
5ea0: 69 6e 74 65 72 70 3b 0a 20 20 20 20 53 53 4c 5f interp;. SSL_
5eb0: 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b CTX *ctx = NULL;
5ec0: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
5ed0: 20 64 73 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 ds;. Tcl_DSt
5ee0: 72 69 6e 67 20 64 73 31 3b 0a 20 20 20 20 69 6e ring ds1;. in
5ef0: 74 20 6f 66 66 20 3d 20 30 3b 0a 0a 20 20 20 20 t off = 0;..
5f00: 2f 2a 20 63 72 65 61 74 65 20 53 53 4c 20 63 6f /* create SSL co
5f10: 6e 74 65 78 74 20 2a 2f 0a 23 69 66 20 21 64 65 ntext */.#if !de
5f20: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 26 fined(NO_SSL2) &
5f30: 26 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 & !defined(NO_SS
5f40: 4c 33 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 L3). if (ENAB
5f50: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
5f60: 52 4f 54 4f 5f 53 53 4c 32 29 20 26 26 0a 09 45 ROTO_SSL2) &&..E
5f70: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c NABLED(proto, TL
5f80: 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b S_PROTO_SSL3)) {
5f90: 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
5fa0: 6e 65 77 28 53 53 4c 76 32 33 5f 6d 65 74 68 6f new(SSLv23_metho
5fb0: 64 28 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 d());. } else
5fc0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28 .#endif. if (
5fd0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
5fe0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 29 20 LS_PROTO_SSL2))
5ff0: 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f {.#if defined(NO
6000: 5f 53 53 4c 32 29 0a 09 54 63 6c 5f 41 70 70 65 _SSL2)..Tcl_Appe
6010: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
6020: 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 "protocol not s
6030: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
6040: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 ;..return (SSL_C
6050: 54 58 20 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 TX *)0;.#else..c
6060: 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 tx = SSL_CTX_new
6070: 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 (SSLv2_method())
6080: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 ;.#endif. } e
6090: 6c 73 65 20 69 66 20 28 45 4e 41 42 4c 45 44 28 lse if (ENABLED(
60a0: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
60b0: 5f 54 4c 53 31 29 29 20 7b 0a 09 63 74 78 20 3d _TLS1)) {..ctx =
60c0: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 SSL_CTX_new(TLS
60d0: 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 20 v1_method());.
60e0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 4e 41 } else if (ENA
60f0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
6100: 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b 0a 23 PROTO_SSL3)) {.#
6110: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
6120: 4c 33 29 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 L3)..Tcl_AppendR
6130: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
6140: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
6150: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
6160: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
6170: 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 74 78 20 *)0;.#else..ctx
6180: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 = SSL_CTX_new(SS
6190: 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 23 Lv3_method());.#
61a0: 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 6c 73 65 endif. } else
61b0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
61c0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f sult(interp, "no
61d0: 20 76 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c 20 valid protocol
61e0: 73 65 6c 65 63 74 65 64 22 2c 20 4e 55 4c 4c 29 selected", NULL)
61f0: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 ;..return (SSL_C
6200: 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 20 20 TX *)0;. }.
6210: 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 off |= (ENABLE
6220: 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f D(proto, TLS_PRO
6230: 54 4f 5f 54 4c 53 31 29 20 3f 20 30 20 3a 20 53 TO_TLS1) ? 0 : S
6240: 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 29 3b SL_OP_NO_TLSv1);
6250: 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 . off |= (ENA
6260: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
6270: 50 52 4f 54 4f 5f 53 53 4c 32 29 20 3f 20 30 20 PROTO_SSL2) ? 0
6280: 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 : SSL_OP_NO_SSLv
6290: 32 29 3b 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 2);. off |= (
62a0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
62b0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 20 3f LS_PROTO_SSL3) ?
62c0: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 0 : SSL_OP_NO_S
62d0: 53 4c 76 33 29 3b 0a 0a 20 20 20 20 53 53 4c 5f SLv3);.. SSL_
62e0: 43 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 CTX_set_app_data
62f0: 28 20 63 74 78 2c 20 28 56 4f 49 44 2a 29 69 6e ( ctx, (VOID*)in
6300: 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d 62 terp);./* rememb
6310: 65 72 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 er the interpret
6320: 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 er */. SSL_CT
6330: 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 X_set_options( c
6340: 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 3b tx, SSL_OP_ALL);
6350: 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 ./* all SSL bug
6360: 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 workarounds */.
6370: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f SSL_CTX_set_o
6380: 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f 66 66 ptions( ctx, off
6390: 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 );./* all SSL bu
63a0: 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f g workarounds */
63b0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 73 . SSL_CTX_ses
63c0: 73 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 s_set_cache_size
63d0: 28 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a 20 20 ( ctx, 128);..
63e0: 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 3d if (ciphers !=
63f0: 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 58 5f NULL)..SSL_CTX_
6400: 73 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 set_cipher_list(
6410: 63 74 78 2c 20 63 69 70 68 65 72 73 29 3b 0a 0a ctx, ciphers);..
6420: 20 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d 65 20 /* set some
6430: 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 20 20 callbacks */.
6440: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 SSL_CTX_set_def
6450: 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 28 63 ault_passwd_cb(c
6460: 74 78 2c 20 50 61 73 73 77 6f 72 64 43 61 6c 6c tx, PasswordCall
6470: 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 66 20 back);..#ifndef
6480: 42 53 41 46 45 0a 20 20 20 20 53 53 4c 5f 43 54 BSAFE. SSL_CT
6490: 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 X_set_default_pa
64a0: 73 73 77 64 5f 63 62 5f 75 73 65 72 64 61 74 61 sswd_cb_userdata
64b0: 28 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 73 74 (ctx, (void *)st
64c0: 61 74 65 50 74 72 29 3b 0a 23 65 6e 64 69 66 0a atePtr);.#endif.
64d0: 0a 23 69 66 6e 64 65 66 20 4e 4f 5f 44 48 0a 20 .#ifndef NO_DH.
64e0: 20 20 20 7b 0a 09 44 48 2a 20 64 68 20 3d 20 67 {..DH* dh = g
64f0: 65 74 5f 64 68 35 31 32 28 29 3b 0a 09 53 53 4c et_dh512();..SSL
6500: 5f 43 54 58 5f 73 65 74 5f 74 6d 70 5f 64 68 28 _CTX_set_tmp_dh(
6510: 63 74 78 2c 20 64 68 29 3b 0a 09 44 48 5f 66 72 ctx, dh);..DH_fr
6520: 65 65 28 64 68 29 3b 0a 20 20 20 20 7d 0a 23 65 ee(dh);. }.#e
6530: 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 20 73 65 74 ndif.. /* set
6540: 20 6f 75 72 20 63 65 72 74 69 66 69 63 61 74 65 our certificate
6550: 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 */. if (cert
6560: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c != NULL) {..Tcl
6570: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 _DStringInit(&ds
6580: 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 );...if (SSL_CTX
6590: 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 _use_certificate
65a0: 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 _file(ctx, F2N(
65b0: 63 65 72 74 2c 20 26 64 73 29 2c 0a 09 09 09 09 cert, &ds),.....
65c0: 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 .SSL_FILETYPE_PE
65d0: 4d 29 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 M) <= 0) {..
65e0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
65f0: 26 64 73 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 &ds);.. Tcl_A
6600: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6610: 72 70 2c 0a 09 09 09 20 20 20 20 20 22 75 6e 61 rp,.... "una
6620: 62 6c 65 20 74 6f 20 73 65 74 20 63 65 72 74 69 ble to set certi
6630: 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 63 ficate file ", c
6640: 65 72 74 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 ert, ": ",....
6650: 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 REASON(), (ch
6660: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
6670: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
6680: 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tx);.. return
6690: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 (SSL_CTX *)0;..
66a0: 7d 0a 0a 09 2f 2a 20 67 65 74 20 74 68 65 20 70 }.../* get the p
66b0: 72 69 76 61 74 65 20 6b 65 79 20 61 73 73 6f 63 rivate key assoc
66c0: 69 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 iated with this
66d0: 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 09 certificate */..
66e0: 69 66 20 28 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 if (key == NULL)
66f0: 20 6b 65 79 3d 63 65 72 74 3b 0a 0a 09 69 66 20 key=cert;...if
6700: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 72 69 (SSL_CTX_use_Pri
6710: 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 63 74 78 vateKey_file(ctx
6720: 2c 20 46 32 4e 28 20 6b 65 79 2c 20 26 64 73 29 , F2N( key, &ds)
6730: 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 ,......SSL_FILET
6740: 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b YPE_PEM) <= 0) {
6750: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
6760: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 gFree(&ds);..
6770: 20 2f 2a 20 66 6c 75 73 68 20 74 68 65 20 70 61 /* flush the pa
6780: 73 73 70 68 72 61 73 65 20 77 68 69 63 68 20 6d ssphrase which m
6790: 69 67 68 74 20 62 65 20 6c 65 66 74 20 69 6e 20 ight be left in
67a0: 74 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a 09 20 the result */..
67b0: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
67c0: 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 2c 20 54 (interp, NULL, T
67d0: 43 4c 5f 53 54 41 54 49 43 29 3b 0a 09 20 20 20 CL_STATIC);..
67e0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
67f0: 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 t(interp,....
6800: 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 "unable to set
6810: 20 70 75 62 6c 69 63 20 6b 65 79 20 66 69 6c 65 public key file
6820: 20 22 2c 20 6b 65 79 2c 20 22 20 22 2c 0a 09 09 ", key, " ",...
6830: 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 . REASON(),
6840: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
6850: 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 . SSL_CTX_fre
6860: 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 e(ctx);.. ret
6870: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
6880: 3b 0a 09 7d 0a 09 54 63 6c 5f 44 53 74 72 69 6e ;..}..Tcl_DStrin
6890: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 2f 2a 20 gFree(&ds);../*
68a0: 4e 6f 77 20 77 65 20 6b 6e 6f 77 20 74 68 61 74 Now we know that
68b0: 20 61 20 6b 65 79 20 61 6e 64 20 63 65 72 74 20 a key and cert
68c0: 68 61 76 65 20 62 65 65 6e 20 73 65 74 20 61 67 have been set ag
68d0: 61 69 6e 73 74 0a 09 20 2a 20 74 68 65 20 53 53 ainst.. * the SS
68e0: 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 69 66 L context */..if
68f0: 20 28 21 53 53 4c 5f 43 54 58 5f 63 68 65 63 6b (!SSL_CTX_check
6900: 5f 70 72 69 76 61 74 65 5f 6b 65 79 28 63 74 78 _private_key(ctx
6910: 29 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 )) {.. Tcl_Ap
6920: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
6930: 70 2c 0a 09 09 09 20 20 20 20 20 22 70 72 69 76 p,.... "priv
6940: 61 74 65 20 6b 65 79 20 64 6f 65 73 20 6e 6f 74 ate key does not
6950: 20 6d 61 74 63 68 20 74 68 65 20 63 65 72 74 69 match the certi
6960: 66 69 63 61 74 65 20 70 75 62 6c 69 63 20 6b 65 ficate public ke
6970: 79 22 2c 0a 09 09 09 20 20 20 20 20 28 63 68 61 y",.... (cha
6980: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 r *) NULL);..
6990: 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 SSL_CTX_free(ct
69a0: 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 x);.. return
69b0: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 7d (SSL_CTX *)0;..}
69c0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 63 . } else {..c
69d0: 65 72 74 20 3d 20 28 63 68 61 72 2a 29 58 35 30 ert = (char*)X50
69e0: 39 5f 67 65 74 5f 64 65 66 61 75 6c 74 5f 63 65 9_get_default_ce
69f0: 72 74 5f 66 69 6c 65 28 29 3b 0a 0a 09 69 66 20 rt_file();...if
6a00: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 (SSL_CTX_use_cer
6a10: 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 tificate_file(ct
6a20: 78 2c 20 63 65 72 74 2c 0a 09 09 09 09 09 53 53 x, cert,......SS
6a30: 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 L_FILETYPE_PEM)
6a40: 3c 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 20 <= 0) {.#if 0..
6a50: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
6a60: 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 ee(&ds);.. Tc
6a70: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
6a80: 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 nterp,.... "
6a90: 75 6e 61 62 6c 65 20 74 6f 20 75 73 65 20 64 65 unable to use de
6aa0: 66 61 75 6c 74 20 63 65 72 74 69 66 69 63 61 74 fault certificat
6ab0: 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 2c 20 e file ", cert,
6ac0: 22 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 ": ",.... RE
6ad0: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
6ae0: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c NULL);.. SSL
6af0: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
6b00: 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c . return (SSL
6b10: 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 _CTX *)0;.#endif
6b20: 0a 09 7d 0a 20 20 20 20 7d 0a 09 0a 20 20 20 20 ..}. }...
6b30: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
6b40: 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 &ds);. Tcl_DS
6b50: 74 72 69 6e 67 49 6e 69 74 28 26 64 73 31 29 3b tringInit(&ds1);
6b60: 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f 43 54 . if (!SSL_CT
6b70: 58 5f 6c 6f 61 64 5f 76 65 72 69 66 79 5f 6c 6f X_load_verify_lo
6b80: 63 61 74 69 6f 6e 73 28 63 74 78 2c 20 46 32 4e cations(ctx, F2N
6b90: 28 43 41 66 69 6c 65 2c 20 26 64 73 29 2c 20 46 (CAfile, &ds), F
6ba0: 32 4e 28 43 41 64 69 72 2c 20 26 64 73 31 29 29 2N(CAdir, &ds1))
6bb0: 20 7c 7c 0a 09 21 53 53 4c 5f 43 54 58 5f 73 65 ||..!SSL_CTX_se
6bc0: 74 5f 64 65 66 61 75 6c 74 5f 76 65 72 69 66 79 t_default_verify
6bd0: 5f 70 61 74 68 73 28 63 74 78 29 29 20 7b 0a 23 _paths(ctx)) {.#
6be0: 69 66 20 30 0a 09 54 63 6c 5f 44 53 74 72 69 6e if 0..Tcl_DStrin
6bf0: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 54 63 6c gFree(&ds);..Tcl
6c00: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
6c10: 31 29 3b 0a 09 2f 2a 20 44 6f 6e 27 74 20 63 75 1);../* Don't cu
6c20: 72 72 65 6e 74 6c 79 20 63 61 72 65 20 69 66 20 rrently care if
6c30: 74 68 69 73 20 66 61 69 6c 73 20 2a 2f 0a 09 54 this fails */..T
6c40: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6c50: 69 6e 74 65 72 70 2c 20 22 53 53 4c 20 64 65 66 interp, "SSL def
6c60: 61 75 6c 74 20 76 65 72 69 66 79 20 70 61 74 68 ault verify path
6c70: 73 3a 20 22 2c 0a 09 09 52 45 41 53 4f 4e 28 29 s: ",...REASON()
6c80: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
6c90: 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 ;..SSL_CTX_free(
6ca0: 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ctx);..return (S
6cb0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 SL_CTX *)0;.#end
6cc0: 69 66 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c if. }. SSL
6cd0: 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f _CTX_set_client_
6ce0: 43 41 5f 6c 69 73 74 28 63 74 78 2c 20 53 53 4c CA_list(ctx, SSL
6cf0: 5f 6c 6f 61 64 5f 63 6c 69 65 6e 74 5f 43 41 5f _load_client_CA_
6d00: 66 69 6c 65 28 20 46 32 4e 28 43 41 66 69 6c 65 file( F2N(CAfile
6d10: 2c 20 26 64 73 29 20 29 29 3b 0a 0a 20 20 20 20 , &ds) ));..
6d20: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
6d30: 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 &ds);. Tcl_DS
6d40: 74 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b tringFree(&ds1);
6d50: 0a 20 20 20 20 72 65 74 75 72 6e 20 63 74 78 3b . return ctx;
6d60: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
6d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d90: 2d 2d 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 0a 20 2a -------------. *
6db0: 0a 20 2a 20 53 74 61 74 75 73 4f 62 6a 43 6d 64 . * StatusObjCmd
6dc0: 20 2d 2d 20 72 65 74 75 72 6e 20 63 65 72 74 69 -- return certi
6dd0: 66 69 63 61 74 65 20 66 6f 72 20 63 6f 6e 6e 65 ficate for conne
6de0: 63 74 65 64 20 70 65 65 72 2e 0a 20 2a 0a 20 2a cted peer.. *. *
6df0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
6e00: 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 tandard Tcl resu
6e10: 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 lt.. *. * Side e
6e20: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
6e30: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
6e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 73 74 ---------. */.st
6e80: 61 74 69 63 20 69 6e 74 0a 53 74 61 74 75 73 4f atic int.StatusO
6e90: 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 bjCmd(clientData
6ea0: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
6eb0: 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 objv). Client
6ec0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b Data clientData;
6ed0: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f ./* Not used. */
6ee0: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
6ef0: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 *interp;. int
6f00: 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f objc;. Tcl_O
6f10: 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj.*CONST objv[]
6f20: 3b 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 ;.{. State *s
6f30: 74 61 74 65 50 74 72 3b 0a 20 20 20 20 58 35 30 tatePtr;. X50
6f40: 39 20 2a 70 65 65 72 3b 0a 20 20 20 20 54 63 6c 9 *peer;. Tcl
6f50: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 _Obj *objPtr;.
6f60: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 Tcl_Channel ch
6f70: 61 6e 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 68 an;. char *ch
6f80: 61 6e 6e 65 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 annelName, *ciph
6f90: 65 72 73 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 ers;. int mod
6fa0: 65 3b 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 e;.. switch (
6fb0: 6f 62 6a 63 29 20 7b 0a 09 63 61 73 65 20 32 3a objc) {..case 2:
6fc0: 0a 09 20 20 20 20 63 68 61 6e 6e 65 6c 4e 61 6d .. channelNam
6fd0: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
6fe0: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d gFromObj(objv[1]
6ff0: 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 62 72 , NULL);.. br
7000: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 33 3a 0a 09 eak;...case 3:..
7010: 20 20 20 20 69 66 20 28 21 73 74 72 63 6d 70 20 if (!strcmp
7020: 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 20 28 (Tcl_GetString (
7030: 6f 62 6a 76 5b 31 5d 29 2c 20 22 2d 6c 6f 63 61 objv[1]), "-loca
7040: 6c 22 29 29 20 7b 0a 09 09 63 68 61 6e 6e 65 6c l")) {...channel
7050: 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 Name = Tcl_GetSt
7060: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
7070: 5b 32 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 09 62 72 [2], NULL);...br
7080: 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 eak;.. }..
7090: 20 2f 2a 20 65 6c 73 65 20 66 61 6c 6c 2e 2e 2e /* else fall...
70a0: 20 2a 2f 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 */..default:..
70b0: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
70c0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
70d0: 62 6a 76 2c 20 22 3f 2d 6c 6f 63 61 6c 3f 20 63 bjv, "?-local? c
70e0: 68 61 6e 6e 65 6c 22 29 3b 0a 09 20 20 20 20 72 hannel");.. r
70f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
7100: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e . }.. chan
7110: 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 = Tcl_GetChanne
7120: 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 l(interp, channe
7130: 6c 4e 61 6d 65 2c 20 26 6d 6f 64 65 29 3b 0a 20 lName, &mode);.
7140: 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 if (chan == (
7150: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
7160: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
7170: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
7180: 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 if (channelTyp
7190: 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f eVersion == TLS_
71a0: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f CHANNEL_VERSION_
71b0: 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6b 2) {../*.. * Mak
71c0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
71d0: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
71e0: 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 63 channel.. */..c
71f0: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 han = Tcl_GetTop
7200: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 Channel(chan);.
7210: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c }. if (Tcl
7220: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
7230: 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 chan) != Tls_Cha
7240: 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 54 nnelType()) {..T
7250: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
7260: 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 interp, "bad cha
7270: 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 nnel \"", Tcl_Ge
7280: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 tChannelName(cha
7290: 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 20 61 n),..."\": not a
72a0: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e TLS channel", N
72b0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
72c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
72d0: 20 20 20 73 74 61 74 65 50 74 72 09 3d 20 28 53 statePtr.= (S
72e0: 74 61 74 65 20 2a 29 20 54 63 6c 5f 47 65 74 43 tate *) Tcl_GetC
72f0: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
7300: 74 61 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 ta(chan);. if
7310: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 0a 09 70 65 (objc == 2)..pe
7320: 65 72 09 3d 20 53 53 4c 5f 67 65 74 5f 70 65 65 er.= SSL_get_pee
7330: 72 5f 63 65 72 74 69 66 69 63 61 74 65 28 73 74 r_certificate(st
7340: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 atePtr->ssl);.
7350: 20 20 65 6c 73 65 0a 09 70 65 65 72 09 3d 20 53 else..peer.= S
7360: 53 4c 5f 67 65 74 5f 63 65 72 74 69 66 69 63 61 SL_get_certifica
7370: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c te(statePtr->ssl
7380: 29 3b 0a 20 20 20 20 69 66 20 28 70 65 65 72 29 );. if (peer)
7390: 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 6c 73 {..objPtr = Tls
73a0: 5f 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e 74 65 _NewX509Obj(inte
73b0: 72 70 2c 20 70 65 65 72 29 3b 0a 20 20 20 20 7d rp, peer);. }
73c0: 20 65 6c 73 65 20 7b 0a 09 6f 62 6a 50 74 72 20 else {..objPtr
73d0: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
73e0: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d (0, NULL);. }
73f0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
7400: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 20 28 jAppendElement (
7410: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
7420: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
7430: 6e 67 4f 62 6a 20 28 22 73 62 69 74 73 22 2c 20 ngObj ("sbits",
7440: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 -1));. Tcl_Li
7450: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
7460: 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 nt (interp, objP
7470: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
7480: 49 6e 74 4f 62 6a 20 28 53 53 4c 5f 67 65 74 5f IntObj (SSL_get_
7490: 63 69 70 68 65 72 5f 62 69 74 73 20 28 73 74 61 cipher_bits (sta
74a0: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 4e 55 4c 4c tePtr->ssl, NULL
74b0: 29 29 29 3b 0a 0a 20 20 20 20 63 69 70 68 65 72 )));.. cipher
74c0: 73 20 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f 67 s = (char*)SSL_g
74d0: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
74e0: 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 69 66 tr->ssl);. if
74f0: 20 28 63 69 70 68 65 72 73 20 21 3d 20 4e 55 4c (ciphers != NUL
7500: 4c 20 26 26 20 73 74 72 63 6d 70 28 63 69 70 68 L && strcmp(ciph
7510: 65 72 73 2c 20 22 28 4e 4f 4e 45 29 22 29 21 3d ers, "(NONE)")!=
7520: 30 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 0) {..Tcl_ListOb
7530: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
7540: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 nterp, objPtr,..
7550: 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 .Tcl_NewStringOb
7560: 6a 28 22 63 69 70 68 65 72 22 2c 20 2d 31 29 29 j("cipher", -1))
7570: 3b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 ;..Tcl_ListObjAp
7580: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
7590: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 rp, objPtr,...Tc
75a0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 53 l_NewStringObj(S
75b0: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74 SL_get_cipher(st
75c0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c 20 2d 31 atePtr->ssl), -1
75d0: 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 ));. }. Tc
75e0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 l_SetObjResult(
75f0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
7600: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
7610: 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d OK;.}.../*. *---
7620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7640: 2d 2d 2d 2d 2d 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: 0a 20 2a 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 . *. * VersionOb
7670: 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 76 jCmd -- return v
7680: 65 72 73 69 6f 6e 20 73 74 72 69 6e 67 20 66 72 ersion string fr
7690: 6f 6d 20 4f 70 65 6e 53 53 4c 2e 0a 20 2a 0a 20 om OpenSSL.. *.
76a0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
76b0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
76c0: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ult.. *. * Side
76d0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
76e0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
76f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 73 ----------. */.s
7730: 74 61 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f tatic int.Versio
7740: 6e 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 nObjCmd(clientDa
7750: 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 ta, interp, objc
7760: 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 , objv). Clie
7770: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
7780: 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 a;./* Not used.
7790: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
77a0: 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 p *interp;. i
77b0: 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c nt objc;. Tcl
77c0: 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj.*CONST objv
77d0: 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 [];.{. Tcl_Ob
77e0: 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 j *objPtr;..
77f0: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 objPtr = Tcl_New
7800: 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 StringObj(OPENSS
7810: 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c 20 L_VERSION_TEXT,
7820: 2d 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 -1);.. Tcl_Se
7830: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
7840: 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 p, objPtr);.
7850: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
7860: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
7870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 -----------. *.
78b0: 2a 20 4d 69 73 63 4f 62 6a 43 6d 64 20 2d 2d 20 * MiscObjCmd --
78c0: 6d 69 73 63 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a misc commands. *
78d0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
78e0: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 A standard Tcl r
78f0: 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 esult.. *. * Sid
7900: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
7910: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
7920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7940: 2d 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 0a 20 2a 2f ------------. */
7960: 0a 73 74 61 74 69 63 20 69 6e 74 0a 4d 69 73 63 .static int.Misc
7970: 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 ObjCmd(clientDat
7980: 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c a, interp, objc,
7990: 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e objv). Clien
79a0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
79b0: 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a ;./* Not used. *
79c0: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
79d0: 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e *interp;. in
79e0: 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f t objc;. Tcl_
79f0: 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj.*CONST objv[
7a00: 5d 3b 0a 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 ];.{. const c
7a10: 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 73 20 5b 5d har *commands []
7a20: 20 3d 20 7b 20 22 72 65 71 22 2c 20 4e 55 4c 4c = { "req", NULL
7a30: 20 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 63 6f 6d };. enum com
7a40: 6d 61 6e 64 20 7b 20 43 5f 52 45 51 2c 20 43 5f mand { C_REQ, C_
7a50: 44 55 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 6e 74 DUMMY };. int
7a60: 20 63 6d 64 3b 0a 0a 20 20 20 20 69 66 20 28 6f cmd;.. if (o
7a70: 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f bjc < 2) {..Tcl_
7a80: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
7a90: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 73 erp, 1, objv, "s
7aa0: 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 72 67 73 3f ubcommand ?args?
7ab0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
7ac0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
7ad0: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 if (Tcl_GetInde
7ae0: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c xFromObj(interp,
7af0: 20 6f 62 6a 76 5b 31 5d 2c 20 63 6f 6d 6d 61 6e objv[1], comman
7b00: 64 73 2c 0a 09 20 20 20 20 22 63 6f 6d 6d 61 6e ds,.. "comman
7b10: 64 22 2c 20 30 2c 26 63 6d 64 29 20 21 3d 20 54 d", 0,&cmd) != T
7b20: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
7b30: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
7b40: 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 }.. switch ((
7b50: 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 63 6d enum command) cm
7b60: 64 29 20 7b 0a 09 63 61 73 65 20 43 5f 52 45 51 d) {..case C_REQ
7b70: 3a 20 7b 0a 09 20 20 20 20 45 56 50 5f 50 4b 45 : {.. EVP_PKE
7b80: 59 20 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a 09 20 Y *pkey=NULL;..
7b90: 20 20 20 58 35 30 39 20 2a 63 65 72 74 3d 4e 55 X509 *cert=NU
7ba0: 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 5f 4e 41 LL;.. X509_NA
7bb0: 4d 45 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b 0a 09 ME *name=NULL;..
7bc0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 Tcl_Obj **li
7bd0: 73 74 76 3b 0a 09 20 20 20 20 69 6e 74 20 6c 69 stv;.. int li
7be0: 73 74 63 2c 69 3b 0a 0a 09 20 20 20 20 42 49 4f stc,i;... BIO
7bf0: 20 2a 6f 75 74 3d 4e 55 4c 4c 3b 0a 0a 09 20 20 *out=NULL;...
7c00: 20 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 2c 2a char *k_C="",*
7c10: 6b 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 22 2c k_ST="",*k_L="",
7c20: 2a 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d 22 22 *k_O="",*k_OU=""
7c30: 2c 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 6d 61 ,*k_CN="",*k_Ema
7c40: 69 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 61 72 il="";.. char
7c50: 20 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f 75 74 *keyout,*pemout
7c60: 2c 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e 74 20 ,*str;.. int
7c70: 6b 65 79 73 69 7a 65 2c 73 65 72 69 61 6c 3d 30 keysize,serial=0
7c80: 2c 64 61 79 73 3d 33 36 35 3b 0a 09 20 20 20 20 ,days=365;..
7c90: 0a 09 20 20 20 20 69 66 20 28 28 6f 62 6a 63 3c .. if ((objc<
7ca0: 35 29 20 7c 7c 20 28 6f 62 6a 63 3e 36 29 29 20 5) || (objc>6))
7cb0: 7b 0a 09 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {...Tcl_WrongNum
7cc0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 Args(interp, 2,
7cd0: 6f 62 6a 76 2c 20 22 6b 65 79 73 69 7a 65 20 6b objv, "keysize k
7ce0: 65 79 66 69 6c 65 20 63 65 72 74 66 69 6c 65 20 eyfile certfile
7cf0: 3f 69 6e 66 6f 3f 22 29 3b 0a 09 09 72 65 74 75 ?info?");...retu
7d00: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 rn TCL_ERROR;..
7d10: 20 20 20 7d 0a 0a 09 20 20 20 20 69 66 20 28 54 }... if (T
7d20: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
7d30: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
7d40: 2c 20 26 6b 65 79 73 69 7a 65 29 20 21 3d 20 54 , &keysize) != T
7d50: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 72 65 74 75 72 CL_OK) {...retur
7d60: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 n TCL_ERROR;..
7d70: 20 20 7d 0a 09 20 20 20 20 6b 65 79 6f 75 74 3d }.. keyout=
7d80: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
7d90: 6a 76 5b 33 5d 29 3b 0a 09 20 20 20 20 70 65 6d jv[3]);.. pem
7da0: 6f 75 74 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e out=Tcl_GetStrin
7db0: 67 28 6f 62 6a 76 5b 34 5d 29 3b 0a 0a 09 20 20 g(objv[4]);...
7dc0: 20 20 69 66 20 28 6f 62 6a 63 3e 3d 36 29 20 7b if (objc>=6) {
7dd0: 0a 09 09 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f ...if (Tcl_ListO
7de0: 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e bjGetElements(in
7df0: 74 65 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c 0a 09 terp, objv[5],..
7e00: 09 09 26 6c 69 73 74 63 2c 20 26 6c 69 73 74 76 ..&listc, &listv
7e10: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
7e20: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
7e30: 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 69 66 ERROR;...}....if
7e40: 20 28 28 6c 69 73 74 63 25 32 29 20 21 3d 20 30 ((listc%2) != 0
7e50: 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 ) {... Tcl_Se
7e60: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
7e70: 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6c 69 73 74 Information list
7e80: 20 6d 75 73 74 20 68 61 76 65 20 65 76 65 6e 20 must have even
7e90: 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 number of argume
7ea0: 6e 74 73 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 nts",NULL);...
7eb0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
7ec0: 4f 52 3b 0a 09 09 7d 0a 09 09 66 6f 72 20 28 69 OR;...}...for (i
7ed0: 3d 30 3b 20 69 3c 6c 69 73 74 63 3b 20 69 2b 3d =0; i<listc; i+=
7ee0: 32 29 20 7b 0a 09 09 20 20 20 20 73 74 72 3d 54 2) {... str=T
7ef0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 cl_GetString(lis
7f00: 74 76 5b 69 5d 29 3b 0a 09 09 20 20 20 20 69 66 tv[i]);... if
7f10: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 64 61 (strcmp(str,"da
7f20: 79 73 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 ys")==0) {....if
7f30: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d (Tcl_GetIntFrom
7f40: 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 Obj(interp,listv
7f50: 5b 69 2b 31 5d 2c 26 64 61 79 73 29 21 3d 54 43 [i+1],&days)!=TC
7f60: 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 74 L_OK).... ret
7f70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
7f80: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
7f90: 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 72 69 strcmp(str,"seri
7fa0: 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 al")==0) {....if
7fb0: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d (Tcl_GetIntFrom
7fc0: 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 Obj(interp,listv
7fd0: 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 21 3d [i+1],&serial)!=
7fe0: 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 TCL_OK).... r
7ff0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8000: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
8010: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 (strcmp(str,"se
8020: 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 rial")==0) {....
8030: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
8040: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 omObj(interp,lis
8050: 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 tv[i+1],&serial)
8060: 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 !=TCL_OK)....
8070: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8080: 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 R;... } else
8090: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 if (strcmp(str,"
80a0: 43 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 C")==0) {....k_C
80b0: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
80c0: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 istv[i+1]);...
80d0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
80e0: 63 6d 70 28 73 74 72 2c 22 53 54 22 29 3d 3d 30 cmp(str,"ST")==0
80f0: 29 20 7b 0a 09 09 09 6b 5f 53 54 3d 54 63 6c 5f ) {....k_ST=Tcl_
8100: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b GetString(listv[
8110: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 i+1]);... } e
8120: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 lse if (strcmp(s
8130: 74 72 2c 22 4c 22 29 3d 3d 30 29 20 7b 0a 09 09 tr,"L")==0) {...
8140: 09 6b 5f 4c 3d 54 63 6c 5f 47 65 74 53 74 72 69 .k_L=Tcl_GetStri
8150: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
8160: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
8170: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f 22 29 (strcmp(str,"O")
8180: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 3d 54 63 ==0) {....k_O=Tc
8190: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
81a0: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
81b0: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
81c0: 28 73 74 72 2c 22 4f 55 22 29 3d 3d 30 29 20 7b (str,"OU")==0) {
81d0: 0a 09 09 09 6b 5f 4f 55 3d 54 63 6c 5f 47 65 74 ....k_OU=Tcl_Get
81e0: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 String(listv[i+1
81f0: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 ]);... } else
8200: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
8210: 22 43 4e 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b "CN")==0) {....k
8220: 5f 43 4e 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e _CN=Tcl_GetStrin
8230: 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 g(listv[i+1]);..
8240: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
8250: 73 74 72 63 6d 70 28 73 74 72 2c 22 45 6d 61 69 strcmp(str,"Emai
8260: 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 45 l")==0) {....k_E
8270: 6d 61 69 6c 3d 54 63 6c 5f 47 65 74 53 74 72 69 mail=Tcl_GetStri
8280: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
8290: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
82a0: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 ..Tcl_SetResult(
82b0: 69 6e 74 65 72 70 2c 22 55 6e 6b 6e 6f 77 6e 20 interp,"Unknown
82c0: 70 61 72 61 6d 65 74 65 72 22 2c 4e 55 4c 4c 29 parameter",NULL)
82d0: 3b 0a 09 09 09 72 65 74 75 72 6e 20 54 43 4c 5f ;....return TCL_
82e0: 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 0a 09 ERROR;... }..
82f0: 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 .}.. }.. i
8300: 66 20 28 28 70 6b 65 79 20 3d 20 45 56 50 5f 50 f ((pkey = EVP_P
8310: 4b 45 59 5f 6e 65 77 28 29 29 20 21 3d 20 4e 55 KEY_new()) != NU
8320: 4c 4c 29 20 7b 0a 09 09 69 66 20 28 21 45 56 50 LL) {...if (!EVP
8330: 5f 50 4b 45 59 5f 61 73 73 69 67 6e 5f 52 53 41 _PKEY_assign_RSA
8340: 28 70 6b 65 79 2c 0a 09 09 09 52 53 41 5f 67 65 (pkey,....RSA_ge
8350: 6e 65 72 61 74 65 5f 6b 65 79 28 6b 65 79 73 69 nerate_key(keysi
8360: 7a 65 2c 20 30 78 31 30 30 30 31 2c 20 4e 55 4c ze, 0x10001, NUL
8370: 4c 2c 20 4e 55 4c 4c 29 29 29 20 7b 0a 09 09 20 L, NULL))) {...
8380: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
8390: 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67 (interp,"Error g
83a0: 65 6e 65 72 61 74 69 6e 67 20 70 72 69 76 61 74 enerating privat
83b0: 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 e key",NULL);...
83c0: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 EVP_PKEY_fre
83d0: 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 72 e(pkey);... r
83e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
83f0: 0a 09 09 7d 0a 09 09 6f 75 74 3d 42 49 4f 5f 6e ...}...out=BIO_n
8400: 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29 ew(BIO_s_file())
8410: 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 69 ;...BIO_write_fi
8420: 6c 65 6e 61 6d 65 28 6f 75 74 2c 6b 65 79 6f 75 lename(out,keyou
8430: 74 29 3b 0a 09 09 50 45 4d 5f 77 72 69 74 65 5f t);...PEM_write_
8440: 62 69 6f 5f 50 72 69 76 61 74 65 4b 65 79 28 6f bio_PrivateKey(o
8450: 75 74 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c ut,pkey,NULL,NUL
8460: 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a L,0,NULL,NULL);.
8470: 09 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f ..BIO_free_all(o
8480: 75 74 29 3b 0a 0a 09 09 69 66 20 28 28 63 65 72 ut);....if ((cer
8490: 74 3d 58 35 30 39 5f 6e 65 77 28 29 29 3d 3d 4e t=X509_new())==N
84a0: 55 4c 4c 29 20 7b 0a 09 09 20 20 20 20 54 63 6c ULL) {... Tcl
84b0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
84c0: 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 p,"Error generat
84d0: 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 20 ing certificate
84e0: 72 65 71 75 65 73 74 22 2c 4e 55 4c 4c 29 3b 0a request",NULL);.
84f0: 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 .. EVP_PKEY_f
8500: 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 ree(pkey);...
8510: 20 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f return(TCL_ERRO
8520: 52 29 3b 0a 09 09 7d 0a 0a 09 09 58 35 30 39 5f R);...}....X509_
8530: 73 65 74 5f 76 65 72 73 69 6f 6e 28 63 65 72 74 set_version(cert
8540: 2c 32 29 3b 0a 09 09 41 53 4e 31 5f 49 4e 54 45 ,2);...ASN1_INTE
8550: 47 45 52 5f 73 65 74 28 58 35 30 39 5f 67 65 74 GER_set(X509_get
8560: 5f 73 65 72 69 61 6c 4e 75 6d 62 65 72 28 63 65 _serialNumber(ce
8570: 72 74 29 2c 73 65 72 69 61 6c 29 3b 0a 09 09 58 rt),serial);...X
8580: 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 509_gmtime_adj(X
8590: 35 30 39 5f 67 65 74 5f 6e 6f 74 42 65 66 6f 72 509_get_notBefor
85a0: 65 28 63 65 72 74 29 2c 30 29 3b 0a 09 09 58 35 e(cert),0);...X5
85b0: 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 09_gmtime_adj(X5
85c0: 30 39 5f 67 65 74 5f 6e 6f 74 41 66 74 65 72 28 09_get_notAfter(
85d0: 63 65 72 74 29 2c 28 6c 6f 6e 67 29 36 30 2a 36 cert),(long)60*6
85e0: 30 2a 32 34 2a 64 61 79 73 29 3b 0a 09 09 58 35 0*24*days);...X5
85f0: 30 39 5f 73 65 74 5f 70 75 62 6b 65 79 28 63 65 09_set_pubkey(ce
8600: 72 74 2c 70 6b 65 79 29 3b 0a 09 09 0a 09 09 6e rt,pkey);......n
8610: 61 6d 65 3d 58 35 30 39 5f 67 65 74 5f 73 75 62 ame=X509_get_sub
8620: 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 29 3b ject_name(cert);
8630: 0a 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 ....X509_NAME_ad
8640: 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e d_entry_by_txt(n
8650: 61 6d 65 2c 22 43 22 2c 20 4d 42 53 54 52 49 4e ame,"C", MBSTRIN
8660: 47 5f 41 53 43 2c 20 6b 5f 43 2c 20 2d 31 2c 20 G_ASC, k_C, -1,
8670: 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e -1, 0);...X509_N
8680: 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 AME_add_entry_by
8690: 5f 74 78 74 28 6e 61 6d 65 2c 22 53 54 22 2c 20 _txt(name,"ST",
86a0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
86b0: 53 54 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a ST, -1, -1, 0);.
86c0: 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f ..X509_NAME_add_
86d0: 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d entry_by_txt(nam
86e0: 65 2c 22 4c 22 2c 20 4d 42 53 54 52 49 4e 47 5f e,"L", MBSTRING_
86f0: 41 53 43 2c 20 6b 5f 4c 2c 20 2d 31 2c 20 2d 31 ASC, k_L, -1, -1
8700: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d , 0);...X509_NAM
8710: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 E_add_entry_by_t
8720: 78 74 28 6e 61 6d 65 2c 22 4f 22 2c 20 4d 42 53 xt(name,"O", MBS
8730: 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 4f 2c 20 TRING_ASC, k_O,
8740: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 -1, -1, 0);...X5
8750: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 09_NAME_add_entr
8760: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4f y_by_txt(name,"O
8770: 55 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 U", MBSTRING_ASC
8780: 2c 20 6b 5f 4f 55 2c 20 2d 31 2c 20 2d 31 2c 20 , k_OU, -1, -1,
8790: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 0);...X509_NAME_
87a0: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 add_entry_by_txt
87b0: 28 6e 61 6d 65 2c 22 43 4e 22 2c 20 4d 42 53 54 (name,"CN", MBST
87c0: 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 43 4e 2c 20 RING_ASC, k_CN,
87d0: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 -1, -1, 0);...X5
87e0: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 09_NAME_add_entr
87f0: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 45 y_by_txt(name,"E
8800: 6d 61 69 6c 22 2c 20 4d 42 53 54 52 49 4e 47 5f mail", MBSTRING_
8810: 41 53 43 2c 20 6b 5f 45 6d 61 69 6c 2c 20 2d 31 ASC, k_Email, -1
8820: 2c 20 2d 31 2c 20 30 29 3b 0a 0a 09 09 58 35 30 , -1, 0);....X50
8830: 39 5f 73 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 9_set_subject_na
8840: 6d 65 28 63 65 72 74 2c 6e 61 6d 65 29 3b 0a 0a me(cert,name);..
8850: 09 09 69 66 20 28 21 58 35 30 39 5f 73 69 67 6e ..if (!X509_sign
8860: 28 63 65 72 74 2c 70 6b 65 79 2c 45 56 50 5f 6d (cert,pkey,EVP_m
8870: 64 35 28 29 29 29 20 7b 0a 09 09 20 20 20 20 58 d5())) {... X
8880: 35 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 509_free(cert);.
8890: 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 .. EVP_PKEY_f
88a0: 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 ree(pkey);...
88b0: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
88c0: 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 73 69 67 nterp,"Error sig
88d0: 6e 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 ning certificate
88e0: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72 ",NULL);... r
88f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8900: 0a 09 09 7d 0a 0a 09 09 6f 75 74 3d 42 49 4f 5f ...}....out=BIO_
8910: 6e 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 new(BIO_s_file()
8920: 29 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 );...BIO_write_f
8930: 69 6c 65 6e 61 6d 65 28 6f 75 74 2c 70 65 6d 6f ilename(out,pemo
8940: 75 74 29 3b 0a 0a 09 09 50 45 4d 5f 77 72 69 74 ut);....PEM_writ
8950: 65 5f 62 69 6f 5f 58 35 30 39 28 6f 75 74 2c 63 e_bio_X509(out,c
8960: 65 72 74 29 3b 0a 09 09 42 49 4f 5f 66 72 65 65 ert);...BIO_free
8970: 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 58 35 _all(out);....X5
8980: 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 09 09_free(cert);..
8990: 09 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 .EVP_PKEY_free(p
89a0: 6b 65 79 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 key);.. } els
89b0: 65 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 e {...Tcl_SetRes
89c0: 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f ult(interp,"Erro
89d0: 72 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72 69 r generating pri
89e0: 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b vate key",NULL);
89f0: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
8a00: 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 ROR;.. }..}..
8a10: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 break;. }.
8a20: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
8a30: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d }.../*. *-------
8a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
8a80: 20 2a 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 * Tls_Free --.
8a90: 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 *. *.This proced
8aa0: 75 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 ure cleans up wh
8ab0: 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 en a SSL socket
8ac0: 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a based channel. *
8ad0: 09 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 .is closed and i
8ae0: 74 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 ts reference cou
8af0: 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 nt falls below 1
8b00: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
8b10: 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 *.none. *. * Si
8b20: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 de effects:. *.F
8b30: 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 rees all the sta
8b40: 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d te. *. *--------
8b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
8b90: 76 6f 69 64 0a 54 6c 73 5f 46 72 65 65 28 20 63 void.Tls_Free( c
8ba0: 68 61 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a har *blockPtr ).
8bb0: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
8bc0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
8bd0: 29 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 )blockPtr;..
8be0: 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 Tls_Clean(stateP
8bf0: 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 46 72 65 tr);. Tcl_Fre
8c00: 65 28 62 6c 6f 63 6b 50 74 72 29 3b 0a 7d 0a 0c e(blockPtr);.}..
8c10: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
8c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
8c60: 54 6c 73 5f 43 6c 65 61 6e 20 2d 2d 0a 20 2a 0a Tls_Clean --. *.
8c70: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
8c80: 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 6e e cleans up when
8c90: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 a SSL socket ba
8ca0: 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 sed channel. *.i
8cb0: 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 s closed and its
8cc0: 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 reference count
8cd0: 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 2e 20 falls below 1.
8ce0: 20 54 68 69 73 20 73 68 6f 75 6c 64 0a 20 2a 09 This should. *.
8cf0: 62 65 20 63 61 6c 6c 65 64 20 73 79 6e 63 68 72 be called synchr
8d00: 6f 6e 6f 75 73 6c 79 20 62 79 20 74 68 65 20 43 onously by the C
8d10: 6c 6f 73 65 50 72 6f 63 2c 20 6e 6f 74 20 69 6e loseProc, not in
8d20: 20 74 68 65 0a 20 2a 09 45 76 65 6e 74 75 61 6c the. *.Eventual
8d30: 6c 79 46 72 65 65 20 63 61 6c 6c 62 61 63 6b 2e lyFree callback.
8d40: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
8d50: 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 *.none. *. * Si
8d60: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 de effects:. *.F
8d70: 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 rees all the sta
8d80: 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d te. *. *--------
8d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
8dd0: 76 6f 69 64 0a 54 6c 73 5f 43 6c 65 61 6e 28 53 void.Tls_Clean(S
8de0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 29 0a tate *statePtr).
8df0: 7b 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 {. /*. *
8e00: 77 65 27 72 65 20 61 73 73 75 6d 69 6e 67 20 68 we're assuming h
8e10: 65 72 65 20 74 68 61 74 20 77 65 27 72 65 20 73 ere that we're s
8e20: 69 6e 67 6c 65 2d 74 68 72 65 61 64 65 64 0a 20 ingle-threaded.
8e30: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 66 20 28 */.. if (
8e40: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
8e50: 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b != (Tcl_TimerTok
8e60: 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c en) NULL) {..Tcl
8e70: 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 _DeleteTimerHand
8e80: 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 ler(statePtr->ti
8e90: 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d mer);..statePtr-
8ea0: 3e 74 69 6d 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 >timer = NULL;.
8eb0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 }.. if (st
8ec0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 atePtr->ssl) {..
8ed0: 53 53 4c 5f 73 68 75 74 64 6f 77 6e 28 73 74 61 SSL_shutdown(sta
8ee0: 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 53 53 tePtr->ssl);..SS
8ef0: 4c 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d L_free(statePtr-
8f00: 3e 73 73 6c 29 3b 0a 09 73 74 61 74 65 50 74 72 >ssl);..statePtr
8f10: 2d 3e 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ->ssl = NULL;.
8f20: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 }. if (stat
8f30: 65 50 74 72 2d 3e 63 74 78 29 20 7b 0a 09 53 53 ePtr->ctx) {..SS
8f40: 4c 5f 43 54 58 5f 66 72 65 65 28 73 74 61 74 65 L_CTX_free(state
8f50: 50 74 72 2d 3e 63 74 78 29 3b 0a 09 73 74 61 74 Ptr->ctx);..stat
8f60: 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c ePtr->ctx = NULL
8f70: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
8f80: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
8f90: 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 ck) {..Tcl_DecrR
8fa0: 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 efCount(statePtr
8fb0: 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 73 74 ->callback);..st
8fc0: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b atePtr->callback
8fd0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 = NULL;. }.
8fe0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
8ff0: 3e 70 61 73 73 77 6f 72 64 29 20 7b 0a 09 54 63 >password) {..Tc
9000: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 73 l_DecrRefCount(s
9010: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 tatePtr->passwor
9020: 64 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 70 d);..statePtr->p
9030: 61 73 73 77 6f 72 64 20 3d 20 4e 55 4c 4c 3b 0a assword = NULL;.
9040: 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d }.}.../*. *-
9050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9090: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 --. *. * Tls_Ini
90a0: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 t --. *. *.This
90b0: 69 73 20 61 20 70 61 63 6b 61 67 65 20 69 6e 69 is a package ini
90c0: 74 69 61 6c 69 7a 61 74 69 6f 6e 20 70 72 6f 63 tialization proc
90d0: 65 64 75 72 65 2c 20 77 68 69 63 68 20 69 73 20 edure, which is
90e0: 63 61 6c 6c 65 64 0a 20 2a 09 62 79 20 54 63 6c called. *.by Tcl
90f0: 20 77 68 65 6e 20 74 68 69 73 20 70 61 63 6b 61 when this packa
9100: 67 65 20 69 73 20 74 6f 20 62 65 20 61 64 64 65 ge is to be adde
9110: 64 20 74 6f 20 61 6e 20 69 6e 74 65 72 70 72 65 d to an interpre
9120: 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ter.. *. * Resul
9130: 74 73 3a 20 20 53 73 6c 20 63 6f 6e 66 69 67 75 ts: Ssl configu
9140: 72 65 64 20 61 6e 64 20 6c 6f 61 64 65 64 0a 20 red and loaded.
9150: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
9160: 73 3a 0a 20 2a 09 20 63 72 65 61 74 65 20 74 68 s:. *. create th
9170: 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 e ssl command, i
9180: 6e 69 74 69 61 6c 69 73 65 20 73 73 6c 20 63 6f nitialise ssl co
9190: 6e 74 65 78 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ntext. *. *-----
91a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
91e0: 2a 2f 0a 0a 69 6e 74 0a 54 6c 73 5f 49 6e 69 74 */..int.Tls_Init
91f0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
9200: 65 72 70 29 09 09 2f 2a 20 49 6e 74 65 72 70 72 erp)../* Interpr
9210: 65 74 65 72 20 69 6e 20 77 68 69 63 68 20 74 68 eter in which th
9220: 65 20 70 61 63 6b 61 67 65 20 69 73 0a 09 09 09 e package is....
9230: 09 09 20 2a 20 74 6f 20 62 65 20 6d 61 64 65 20 .. * to be made
9240: 61 76 61 69 6c 61 62 6c 65 2e 20 2a 2f 0a 7b 0a available. */.{.
9250: 20 20 20 20 69 6e 74 20 6d 61 6a 6f 72 2c 20 6d int major, m
9260: 69 6e 6f 72 2c 20 70 61 74 63 68 6c 65 76 65 6c inor, patchlevel
9270: 2c 20 72 65 6c 65 61 73 65 2c 20 69 3b 0a 20 20 , release, i;.
9280: 20 20 63 68 61 72 20 72 6e 64 5f 73 65 65 64 5b char rnd_seed[
9290: 31 36 5d 20 3d 20 22 47 72 7a 53 6c 70 6c 4b 71 16] = "GrzSlplKq
92a0: 55 64 6e 6e 7a 50 21 22 3b 09 2f 2a 20 31 36 20 UdnnzP!";./* 16
92b0: 62 79 74 65 73 20 2a 2f 0a 0a 20 20 20 20 2f 2a bytes */.. /*
92c0: 0a 20 20 20 20 20 2a 20 54 68 65 20 6f 72 69 67 . * The orig
92d0: 69 6e 61 6c 20 38 2e 32 2e 30 20 73 74 61 63 6b inal 8.2.0 stack
92e0: 65 64 20 63 68 61 6e 6e 65 6c 20 69 6d 70 6c 65 ed channel imple
92f0: 6d 65 6e 74 61 74 69 6f 6e 20 28 61 6e 64 20 74 mentation (and t
9300: 68 65 20 70 61 74 63 68 0a 20 20 20 20 20 2a 20 he patch. *
9310: 74 68 61 74 20 70 72 65 63 65 64 65 64 20 69 74 that preceded it
9320: 29 20 68 61 64 20 70 72 6f 62 6c 65 6d 73 20 77 ) had problems w
9330: 69 74 68 20 73 63 61 6c 61 62 69 6c 69 74 79 20 ith scalability
9340: 61 6e 64 20 72 6f 62 75 73 74 6e 65 73 73 2e 0a and robustness..
9350: 20 20 20 20 20 2a 20 54 68 65 73 65 20 77 65 72 * These wer
9360: 65 20 61 64 64 72 65 73 73 20 69 6e 20 38 2e 33 e address in 8.3
9370: 2e 32 20 2f 20 38 2e 34 61 32 2c 20 73 6f 20 77 .2 / 8.4a2, so w
9380: 65 20 6e 6f 77 20 72 65 71 75 69 72 65 20 74 68 e now require th
9390: 61 74 20 61 73 20 61 0a 20 20 20 20 20 2a 20 6d at as a. * m
93a0: 69 6e 69 6d 75 6d 20 66 6f 72 20 54 4c 53 20 31 inimum for TLS 1
93b0: 2e 34 2b 2e 20 20 57 65 20 6f 6e 6c 79 20 73 75 .4+. We only su
93c0: 70 70 6f 72 74 20 38 2e 32 2b 20 6e 6f 77 20 28 pport 8.2+ now (
93d0: 38 2e 33 2e 32 2b 20 70 72 65 66 65 72 72 65 64 8.3.2+ preferred
93e0: 29 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 ).. */. i
93f0: 66 20 28 0a 23 69 66 64 65 66 20 55 53 45 5f 54 f (.#ifdef USE_T
9400: 43 4c 5f 53 54 55 42 53 0a 09 54 63 6c 5f 49 6e CL_STUBS..Tcl_In
9410: 69 74 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 itStubs(interp,
9420: 22 38 2e 32 22 2c 20 30 29 0a 23 65 6c 73 65 0a "8.2", 0).#else.
9430: 09 54 63 6c 5f 50 6b 67 52 65 71 75 69 72 65 28 .Tcl_PkgRequire(
9440: 69 6e 74 65 72 70 2c 20 22 54 63 6c 22 2c 20 22 interp, "Tcl", "
9450: 38 2e 32 22 2c 20 30 29 0a 23 65 6e 64 69 66 0a 8.2", 0).#endif.
9460: 09 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 .== NULL) {..ret
9470: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
9480: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 }.. /*.
9490: 20 20 2a 20 47 65 74 20 74 68 65 20 76 65 72 73 * Get the vers
94a0: 69 6f 6e 20 73 6f 20 77 65 20 63 61 6e 20 72 75 ion so we can ru
94b0: 6e 74 69 6d 65 20 73 77 69 74 63 68 20 6f 6e 20 ntime switch on
94c0: 61 76 61 69 6c 61 62 6c 65 20 66 75 6e 63 74 69 available functi
94d0: 6f 6e 61 6c 69 74 79 2e 0a 20 20 20 20 20 2a 20 onality.. *
94e0: 54 4c 53 20 73 68 6f 75 6c 64 20 72 65 61 6c 6c TLS should reall
94f0: 79 20 6f 6e 6c 79 20 62 65 20 75 73 65 64 20 69 y only be used i
9500: 6e 20 38 2e 33 2e 32 2b 2c 20 62 75 74 20 74 68 n 8.3.2+, but th
9510: 65 20 6f 74 68 65 72 20 77 6f 72 6b 73 20 66 6f e other works fo
9520: 72 0a 20 20 20 20 20 2a 20 73 6f 6d 65 20 6c 69 r. * some li
9530: 6d 69 74 65 64 20 66 75 6e 63 74 69 6f 6e 61 6c mited functional
9540: 69 74 79 2c 20 73 6f 20 61 6e 20 61 74 74 65 6d ity, so an attem
9550: 70 74 20 61 74 20 73 75 70 70 6f 72 74 20 69 73 pt at support is
9560: 20 6d 61 64 65 2e 0a 20 20 20 20 20 2a 2f 0a 20 made.. */.
9570: 20 20 20 54 63 6c 5f 47 65 74 56 65 72 73 69 6f Tcl_GetVersio
9580: 6e 28 26 6d 61 6a 6f 72 2c 20 26 6d 69 6e 6f 72 n(&major, &minor
9590: 2c 20 26 70 61 74 63 68 6c 65 76 65 6c 2c 20 26 , &patchlevel, &
95a0: 72 65 6c 65 61 73 65 29 3b 0a 20 20 20 20 69 66 release);. if
95b0: 20 28 28 6d 61 6a 6f 72 20 3e 20 38 29 20 7c 7c ((major > 8) ||
95c0: 20 28 28 6d 61 6a 6f 72 20 3d 3d 20 38 29 20 26 ((major == 8) &
95d0: 26 20 28 28 6d 69 6e 6f 72 20 3e 20 33 29 20 7c & ((minor > 3) |
95e0: 7c 20 28 28 6d 69 6e 6f 72 20 3d 3d 20 33 29 20 | ((minor == 3)
95f0: 26 26 0a 09 20 20 20 20 28 72 65 6c 65 61 73 65 &&.. (release
9600: 20 3d 3d 20 54 43 4c 5f 46 49 4e 41 4c 5f 52 45 == TCL_FINAL_RE
9610: 4c 45 41 53 45 29 20 26 26 20 28 70 61 74 63 68 LEASE) && (patch
9620: 6c 65 76 65 6c 20 3e 3d 20 32 29 29 29 29 29 20 level >= 2)))))
9630: 7b 0a 09 2f 2a 20 38 2e 33 2e 32 2b 20 2a 2f 0a {../* 8.3.2+ */.
9640: 09 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 .channelTypeVers
9650: 69 6f 6e 20 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 ion = TLS_CHANNE
9660: 4c 5f 56 45 52 53 49 4f 4e 5f 32 3b 0a 20 20 20 L_VERSION_2;.
9670: 20 7d 20 65 6c 73 65 20 7b 0a 09 2f 2a 20 38 2e } else {../* 8.
9680: 32 2e 30 20 2d 20 38 2e 33 2e 31 20 2a 2f 0a 09 2.0 - 8.3.1 */..
9690: 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 channelTypeVersi
96a0: 6f 6e 20 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c on = TLS_CHANNEL
96b0: 5f 56 45 52 53 49 4f 4e 5f 31 3b 0a 20 20 20 20 _VERSION_1;.
96c0: 7d 0a 0a 20 20 20 20 69 66 20 28 53 53 4c 5f 6c }.. if (SSL_l
96d0: 69 62 72 61 72 79 5f 69 6e 69 74 28 29 20 21 3d ibrary_init() !=
96e0: 20 31 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 1) {..Tcl_Appen
96f0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
9700: 22 63 6f 75 6c 64 20 6e 6f 74 20 69 6e 69 74 69 "could not initi
9710: 61 6c 69 7a 65 20 53 53 4c 20 6c 69 62 72 61 72 alize SSL librar
9720: 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 y", NULL);..retu
9730: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
9740: 20 20 7d 0a 20 20 20 20 53 53 4c 5f 6c 6f 61 64 }. SSL_load
9750: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 73 28 29 _error_strings()
9760: 3b 0a 20 20 20 20 45 52 52 5f 6c 6f 61 64 5f 63 ;. ERR_load_c
9770: 72 79 70 74 6f 5f 73 74 72 69 6e 67 73 28 29 3b rypto_strings();
9780: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
9790: 53 65 65 64 20 74 68 65 20 72 61 6e 64 6f 6d 20 Seed the random
97a0: 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 74 6f 72 number generator
97b0: 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 72 in the SSL libr
97c0: 61 72 79 2c 0a 20 20 20 20 20 2a 20 75 73 69 6e ary,. * usin
97d0: 67 20 74 68 65 20 64 6f 2f 77 68 69 6c 65 20 63 g the do/while c
97e0: 6f 6e 73 74 72 75 63 74 20 62 65 63 61 75 73 65 onstruct because
97f0: 20 6f 66 20 74 68 65 20 62 75 67 20 6e 6f 74 65 of the bug note
9800: 20 69 6e 20 74 68 65 0a 20 20 20 20 20 2a 20 4f in the. * O
9810: 70 65 6e 53 53 4c 20 46 41 51 20 61 74 20 68 74 penSSL FAQ at ht
9820: 74 70 3a 2f 2f 77 77 77 2e 6f 70 65 6e 73 73 6c tp://www.openssl
9830: 2e 6f 72 67 2f 73 75 70 70 6f 72 74 2f 66 61 71 .org/support/faq
9840: 2e 68 74 6d 6c 23 55 53 45 52 31 0a 20 20 20 20 .html#USER1.
9850: 20 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 63 72 *. * The cr
9860: 75 78 20 6f 66 20 74 68 65 20 70 72 6f 62 6c 65 ux of the proble
9870: 6d 20 69 73 20 74 68 61 74 20 53 6f 6c 61 72 69 m is that Solari
9880: 73 20 37 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 s 7 does not hav
9890: 65 20 61 20 0a 20 20 20 20 20 2a 20 2f 64 65 76 e a . * /dev
98a0: 2f 72 61 6e 64 6f 6d 20 6f 72 20 2f 64 65 76 2f /random or /dev/
98b0: 75 72 61 6e 64 6f 6d 20 64 65 76 69 63 65 20 73 urandom device s
98c0: 6f 20 69 74 20 63 61 6e 6e 6f 74 20 67 61 74 68 o it cannot gath
98d0: 65 72 20 65 6e 6f 75 67 68 0a 20 20 20 20 20 2a er enough. *
98e0: 20 65 6e 74 72 6f 70 79 20 66 72 6f 6d 20 74 68 entropy from th
98f0: 65 20 52 41 4e 44 5f 73 65 65 64 28 29 20 77 68 e RAND_seed() wh
9900: 65 6e 20 54 4c 53 20 69 6e 69 74 69 61 6c 69 7a en TLS initializ
9910: 65 73 20 61 6e 64 20 72 65 66 75 73 65 73 0a 20 es and refuses.
9920: 20 20 20 20 2a 20 74 6f 20 67 6f 20 66 75 72 74 * to go furt
9930: 68 65 72 2e 20 45 61 72 6c 69 65 72 20 76 65 72 her. Earlier ver
9940: 73 69 6f 6e 73 20 6f 66 20 4f 70 65 6e 53 53 4c sions of OpenSSL
9950: 20 63 61 72 72 69 65 64 20 6f 6e 20 72 65 67 61 carried on rega
9960: 72 64 6c 65 73 73 2e 0a 20 20 20 20 20 2a 2f 0a rdless.. */.
9970: 20 20 20 20 73 72 61 6e 64 28 28 75 6e 73 69 67 srand((unsig
9980: 6e 65 64 20 69 6e 74 29 20 74 69 6d 65 28 28 74 ned int) time((t
9990: 69 6d 65 5f 74 20 2a 29 20 4e 55 4c 4c 29 29 3b ime_t *) NULL));
99a0: 0a 20 20 20 20 64 6f 20 7b 0a 09 66 6f 72 20 28 . do {..for (
99b0: 69 20 3d 20 30 3b 20 69 20 3c 20 31 36 3b 20 69 i = 0; i < 16; i
99c0: 2b 2b 29 20 7b 0a 09 20 20 20 20 72 6e 64 5f 73 ++) {.. rnd_s
99d0: 65 65 64 5b 69 5d 20 3d 20 31 20 2b 20 28 63 68 eed[i] = 1 + (ch
99e0: 61 72 29 20 28 32 35 35 2e 30 20 2a 20 72 61 6e ar) (255.0 * ran
99f0: 64 28 29 2f 28 52 41 4e 44 5f 4d 41 58 2b 31 2e d()/(RAND_MAX+1.
9a00: 30 29 29 3b 0a 09 7d 0a 09 52 41 4e 44 5f 73 65 0));..}..RAND_se
9a10: 65 64 28 72 6e 64 5f 73 65 65 64 2c 20 73 69 7a ed(rnd_seed, siz
9a20: 65 6f 66 28 72 6e 64 5f 73 65 65 64 29 29 3b 0a eof(rnd_seed));.
9a30: 20 20 20 20 7d 20 77 68 69 6c 65 20 28 52 41 4e } while (RAN
9a40: 44 5f 73 74 61 74 75 73 28 29 20 21 3d 20 31 29 D_status() != 1)
9a50: 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 ;.. Tcl_Creat
9a60: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
9a70: 72 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 rp, "tls::cipher
9a80: 73 22 2c 20 43 69 70 68 65 72 73 4f 62 6a 43 6d s", CiphersObjCm
9a90: 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e 74 44 d,.. (ClientD
9aa0: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
9ab0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
9ac0: 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 LL);.. Tcl_Cr
9ad0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
9ae0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e nterp, "tls::han
9af0: 64 73 68 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 dshake", Handsha
9b00: 6b 65 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 keObjCmd,.. (
9b10: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
9b20: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
9b30: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 c *) NULL);..
9b40: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
9b50: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
9b60: 6c 73 3a 3a 69 6d 70 6f 72 74 22 2c 20 49 6d 70 ls::import", Imp
9b70: 6f 72 74 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 ortObjCmd,..
9b80: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
9b90: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
9ba0: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 oc *) NULL);..
9bb0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
9bc0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
9bd0: 74 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 tls::status", St
9be0: 61 74 75 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 atusObjCmd,..
9bf0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
9c00: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
9c10: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
9c20: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
9c30: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
9c40: 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 "tls::version",
9c50: 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 0a 09 VersionObjCmd,..
9c60: 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 (ClientData)
9c70: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
9c80: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
9c90: 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 .. Tcl_Create
9ca0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
9cb0: 70 2c 20 22 74 6c 73 3a 3a 6d 69 73 63 22 2c 20 p, "tls::misc",
9cc0: 4d 69 73 63 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 MiscObjCmd,..
9cd0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
9ce0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
9cf0: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
9d00: 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 50 6b return Tcl_Pk
9d10: 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c gProvide(interp,
9d20: 20 50 41 43 4b 41 47 45 2c 20 56 45 52 53 49 4f PACKAGE, VERSIO
9d30: 4e 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d N);.}.../*. *---
9d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d70: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 ---*. *. *.Tls_S
9d80: 61 66 65 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a afeInit --. *. *
9d90: 09 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 2d 2d 2d ----------------
9dc0: 2d 2a 0a 20 2a 09 53 74 61 6e 64 61 72 64 20 70 -*. *.Standard p
9dd0: 72 6f 63 65 64 75 72 65 20 72 65 71 75 69 72 65 rocedure require
9de0: 64 20 62 79 20 27 6c 6f 61 64 27 2e 20 0a 20 2a d by 'load'. . *
9df0: 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 69 .Initializes thi
9e00: 73 20 65 78 74 65 6e 73 69 6f 6e 20 66 6f 72 20 s extension for
9e10: 61 20 73 61 66 65 20 69 6e 74 65 72 70 72 65 74 a safe interpret
9e20: 65 72 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d er.. *.---------
9e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e50: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 -------*. *. *.S
9e60: 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 ideeffects:. *..
9e70: 41 73 20 6f 66 20 27 54 6c 73 5f 49 6e 69 74 27 As of 'Tls_Init'
9e80: 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 . *. *.Result:.
9e90: 2a 09 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *..A standard Tc
9ea0: 6c 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a 20 2a l error code.. *
9eb0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
9ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a ---------*. */..
9ef0: 69 6e 74 0a 54 6c 73 5f 53 61 66 65 49 6e 69 74 int.Tls_SafeInit
9f00: 20 28 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e (Tcl_Interp* in
9f10: 74 65 72 70 29 0a 7b 0a 20 20 20 20 72 65 74 75 terp).{. retu
9f20: 72 6e 20 54 6c 73 5f 49 6e 69 74 20 28 69 6e 74 rn Tls_Init (int
9f30: 65 72 70 29 3b 0a 7d 0a erp);.}.