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 33 20 53 right (C) 2003 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 31 37 20 32 30 30 33 2f s.c,v 1.17 2003/
0120: 30 37 2f 30 37 20 32 30 3a 32 34 3a 34 39 20 68 07/07 20:24:49 h
0130: 6f 62 62 73 20 45 78 70 20 24 0a 20 2a 0a 20 2a obbs Exp $. *. *
0140: 20 54 4c 53 20 28 61 6b 61 20 53 53 4c 29 20 43 TLS (aka SSL) C
0150: 68 61 6e 6e 65 6c 20 2d 20 63 61 6e 20 62 65 20 hannel - can be
0160: 6c 61 79 65 72 65 64 20 6f 6e 20 61 6e 79 20 62 layered on any b
0170: 69 2d 64 69 72 65 63 74 69 6f 6e 61 6c 0a 20 2a i-directional. *
0180: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 28 4e 6f Tcl_Channel (No
0190: 74 65 3a 20 52 65 71 75 69 72 65 73 20 54 72 66 te: Requires Trf
01a0: 20 43 6f 72 65 20 50 61 74 63 68 29 0a 20 2a 0a Core Patch). *.
01b0: 20 2a 20 54 68 69 73 20 77 61 73 20 62 75 69 6c * This was buil
01c0: 74 20 28 61 6c 6d 6f 73 74 29 20 66 72 6f 6d 20 t (almost) from
01d0: 73 63 72 61 74 63 68 20 62 61 73 65 64 20 75 70 scratch based up
01e0: 6f 6e 20 6f 62 73 65 72 76 61 74 69 6f 6e 20 6f on observation o
01f0: 66 0a 20 2a 20 4f 70 65 6e 53 53 4c 20 30 2e 39 f. * OpenSSL 0.9
0200: 2e 32 42 0a 20 2a 0a 20 2a 20 41 64 64 69 74 69 .2B. *. * Additi
0210: 6f 6e 20 63 72 65 64 69 74 20 69 73 20 64 75 65 on credit is due
0220: 20 66 6f 72 20 41 6e 64 72 65 61 73 20 4b 75 70 for Andreas Kup
0230: 72 69 65 73 20 28 61 2e 6b 75 70 72 69 65 73 40 ries (a.kupries@
0240: 77 65 73 74 65 6e 64 2e 63 6f 6d 29 2c 20 66 6f westend.com), fo
0250: 72 0a 20 2a 20 70 72 6f 76 69 64 69 6e 67 20 74 r. * providing t
0260: 68 65 20 54 63 6c 5f 52 65 70 6c 61 63 65 43 68 he Tcl_ReplaceCh
0270: 61 6e 6e 65 6c 20 6d 65 63 68 61 6e 69 73 6d 20 annel mechanism
0280: 61 6e 64 20 77 6f 72 6b 69 6e 67 20 63 6c 6f 73 and working clos
0290: 65 6c 79 20 77 69 74 68 20 6d 65 0a 20 2a 20 74 ely with me. * t
02a0: 6f 20 65 6e 68 61 6e 63 65 20 69 74 20 74 6f 20 o enhance it to
02b0: 73 75 70 70 6f 72 74 20 66 75 6c 6c 20 66 69 6c support full fil
02c0: 65 65 76 65 6e 74 20 73 65 6d 61 6e 74 69 63 73 eevent semantics
02d0: 2e 0a 20 2a 0a 20 2a 20 41 6c 73 6f 20 77 6f 72 .. *. * Also wor
02e0: 6b 20 64 6f 6e 65 20 62 79 20 74 68 65 20 66 6f k done by the fo
02f0: 6c 6c 6f 77 20 70 65 6f 70 6c 65 20 70 72 6f 76 llow people prov
0300: 69 64 65 64 20 74 68 65 20 69 6d 70 65 74 75 73 ided the impetus
0310: 20 74 6f 20 64 6f 20 74 68 69 73 20 22 72 69 67 to do this "rig
0320: 68 74 22 3a 0a 20 2a 09 74 63 6c 53 53 4c 20 28 ht":. *.tclSSL (
0330: 43 6f 6c 69 6e 20 4d 63 43 6f 72 6d 61 63 6b 2c Colin McCormack,
0340: 20 53 68 61 72 65 64 20 54 65 63 68 6e 6f 6c 6f Shared Technolo
0350: 67 79 29 0a 20 2a 09 53 53 4c 74 63 6c 20 28 50 gy). *.SSLtcl (P
0360: 65 74 65 72 20 41 6e 74 6d 61 6e 29 0a 20 2a 0a eter Antman). *.
0370: 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 */..#include "t
0380: 6c 73 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 lsInt.h".#includ
0390: 65 20 22 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 e "tclOpts.h".#i
03a0: 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 nclude <stdlib.h
03b0: 3e 0a 0a 2f 2a 0a 20 2a 20 45 78 74 65 72 6e 61 >../*. * Externa
03c0: 6c 20 66 75 6e 63 74 69 6f 6e 73 0a 20 2a 2f 0a l functions. */.
03d0: 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 64 ./*. * Forward d
03e0: 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a eclarations. */.
03f0: 0a 23 64 65 66 69 6e 65 20 46 32 4e 28 20 6b 65 .#define F2N( ke
0400: 79 2c 20 64 73 70 29 20 5c 0a 09 28 28 28 6b 65 y, dsp) \..(((ke
0410: 79 29 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 28 63 y) == NULL) ? (c
0420: 68 61 72 20 2a 29 20 4e 55 4c 4c 20 3a 20 5c 0a har *) NULL : \.
0430: 09 09 54 63 6c 5f 54 72 61 6e 73 6c 61 74 65 46 ..Tcl_TranslateF
0440: 69 6c 65 4e 61 6d 65 28 69 6e 74 65 72 70 2c 20 ileName(interp,
0450: 28 6b 65 79 29 2c 20 28 64 73 70 29 29 29 0a 23 (key), (dsp))).#
0460: 64 65 66 69 6e 65 20 52 45 41 53 4f 4e 28 29 09 define REASON().
0470: 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72 6f 72 ERR_reason_error
0480: 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65 74 5f _string(ERR_get_
0490: 65 72 72 6f 72 28 29 29 0a 0a 73 74 61 74 69 63 error())..static
04a0: 20 69 6e 74 09 43 69 70 68 65 72 73 4f 62 6a 43 int.CiphersObjC
04b0: 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f 20 28 md _ANSI_ARGS_ (
04c0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
04d0: 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 ntData,....Tcl_I
04e0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
04f0: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
0500: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 *CONST objv[]))
0510: 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 48 61 ;..static int.Ha
0520: 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 5f 41 ndshakeObjCmd _A
0530: 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 NSI_ARGS_ ((Clie
0540: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
0550: 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 a,....Tcl_Interp
0560: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
0570: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e jc, Tcl_Obj *CON
0580: 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 ST objv[]));..st
0590: 61 74 69 63 20 69 6e 74 09 49 6d 70 6f 72 74 4f atic int.ImportO
05a0: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
05b0: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
05c0: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
05d0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
05e0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
05f0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
0600: 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 ]));..static int
0610: 09 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 5f 41 .StatusObjCmd _A
0620: 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 NSI_ARGS_ ((Clie
0630: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
0640: 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 a,....Tcl_Interp
0650: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
0660: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e jc, Tcl_Obj *CON
0670: 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 ST objv[]));..st
0680: 61 74 69 63 20 69 6e 74 09 56 65 72 73 69 6f 6e atic int.Version
0690: 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 ObjCmd _ANSI_ARG
06a0: 53 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 S_ ((ClientData
06b0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 clientData,....T
06c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
06d0: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
06e0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
06f0: 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e []));..static in
0700: 74 09 4d 69 73 63 4f 62 6a 43 6d 64 20 5f 41 4e t.MiscObjCmd _AN
0710: 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e SI_ARGS_ ((Clien
0720: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
0730: 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 ,....Tcl_Interp
0740: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
0750: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 c, Tcl_Obj *CONS
0760: 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 T objv[]));..sta
0770: 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 54 58 tic SSL_CTX *CTX
0780: 5f 49 6e 69 74 20 5f 41 4e 53 49 5f 41 52 47 53 _Init _ANSI_ARGS
0790: 5f 28 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 _((State *stateP
07a0: 74 72 2c 20 69 6e 74 20 70 72 6f 74 6f 2c 20 63 tr, int proto, c
07b0: 68 61 72 20 2a 6b 65 79 2c 0a 09 09 09 63 68 61 har *key,....cha
07c0: 72 20 2a 63 65 72 74 2c 20 63 68 61 72 20 2a 43 r *cert, char *C
07d0: 41 64 69 72 2c 20 63 68 61 72 20 2a 43 41 66 69 Adir, char *CAfi
07e0: 6c 65 2c 20 63 68 61 72 20 2a 63 69 70 68 65 72 le, char *cipher
07f0: 73 29 29 3b 0a 0a 23 64 65 66 69 6e 65 20 54 4c s));..#define TL
0800: 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 09 30 78 30 S_PROTO_SSL2.0x0
0810: 31 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 1.#define TLS_PR
0820: 4f 54 4f 5f 53 53 4c 33 09 30 78 30 32 0a 23 64 OTO_SSL3.0x02.#d
0830: 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f efine TLS_PROTO_
0840: 54 4c 53 31 09 30 78 30 34 0a 23 64 65 66 69 6e TLS1.0x04.#defin
0850: 65 20 45 4e 41 42 4c 45 44 28 66 6c 61 67 2c 20 e ENABLED(flag,
0860: 6d 61 73 6b 29 09 28 28 28 66 6c 61 67 29 20 26 mask).(((flag) &
0870: 20 28 6d 61 73 6b 29 29 20 3d 3d 20 28 6d 61 73 (mask)) == (mas
0880: 6b 29 29 0a 0a 2f 2a 0a 20 2a 20 53 74 61 74 69 k))../*. * Stati
0890: 63 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 c data structure
08a0: 73 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 4e s. */..#ifndef N
08b0: 4f 5f 44 48 0a 2f 2a 20 66 72 6f 6d 20 6f 70 65 O_DH./* from ope
08c0: 6e 73 73 6c 2f 61 70 70 73 2f 73 5f 73 65 72 76 nssl/apps/s_serv
08d0: 65 72 2e 63 20 2a 2f 0a 0a 73 74 61 74 69 63 20 er.c */..static
08e0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 64 68 unsigned char dh
08f0: 35 31 32 5f 70 5b 5d 3d 7b 0a 09 30 78 44 41 2c 512_p[]={..0xDA,
0900: 30 78 35 38 2c 30 78 33 43 2c 30 78 31 36 2c 30 0x58,0x3C,0x16,0
0910: 78 44 39 2c 30 78 38 35 2c 30 78 32 32 2c 30 78 xD9,0x85,0x22,0x
0920: 38 39 2c 30 78 44 30 2c 30 78 45 34 2c 30 78 41 89,0xD0,0xE4,0xA
0930: 46 2c 30 78 37 35 2c 0a 09 30 78 36 46 2c 30 78 F,0x75,..0x6F,0x
0940: 34 43 2c 30 78 43 41 2c 30 78 39 32 2c 30 78 44 4C,0xCA,0x92,0xD
0950: 44 2c 30 78 34 42 2c 30 78 45 35 2c 30 78 33 33 D,0x4B,0xE5,0x33
0960: 2c 30 78 42 38 2c 30 78 30 34 2c 30 78 46 42 2c ,0xB8,0x04,0xFB,
0970: 30 78 30 46 2c 0a 09 30 78 45 44 2c 30 78 39 34 0x0F,..0xED,0x94
0980: 2c 30 78 45 46 2c 30 78 39 43 2c 30 78 38 41 2c ,0xEF,0x9C,0x8A,
0990: 30 78 34 34 2c 30 78 30 33 2c 30 78 45 44 2c 30 0x44,0x03,0xED,0
09a0: 78 35 37 2c 30 78 34 36 2c 30 78 35 30 2c 30 78 x57,0x46,0x50,0x
09b0: 44 33 2c 0a 09 30 78 36 39 2c 30 78 39 39 2c 30 D3,..0x69,0x99,0
09c0: 78 44 42 2c 30 78 32 39 2c 30 78 44 37 2c 30 78 xDB,0x29,0xD7,0x
09d0: 37 36 2c 30 78 32 37 2c 30 78 36 42 2c 30 78 41 76,0x27,0x6B,0xA
09e0: 32 2c 30 78 44 33 2c 30 78 44 34 2c 30 78 31 32 2,0xD3,0xD4,0x12
09f0: 2c 0a 09 30 78 45 32 2c 30 78 31 38 2c 30 78 46 ,..0xE2,0x18,0xF
0a00: 34 2c 30 78 44 44 2c 30 78 31 45 2c 30 78 30 38 4,0xDD,0x1E,0x08
0a10: 2c 30 78 34 43 2c 30 78 46 36 2c 30 78 44 38 2c ,0x4C,0xF6,0xD8,
0a20: 30 78 30 30 2c 30 78 33 45 2c 30 78 37 43 2c 0a 0x00,0x3E,0x7C,.
0a30: 09 30 78 34 37 2c 30 78 37 34 2c 30 78 45 38 2c .0x47,0x74,0xE8,
0a40: 30 78 33 33 2c 0a 09 7d 3b 0a 73 74 61 74 69 63 0x33,..};.static
0a50: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 64 unsigned char d
0a60: 68 35 31 32 5f 67 5b 5d 3d 7b 0a 09 30 78 30 32 h512_g[]={..0x02
0a70: 2c 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 44 48 20 ,.};..static DH
0a80: 2a 67 65 74 5f 64 68 35 31 32 28 29 0a 7b 0a 20 *get_dh512().{.
0a90: 20 20 20 44 48 20 2a 64 68 3d 4e 55 4c 4c 3b 0a DH *dh=NULL;.
0aa0: 0a 20 20 20 20 69 66 20 28 28 64 68 3d 44 48 5f . if ((dh=DH_
0ab0: 6e 65 77 28 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 new()) == NULL)
0ac0: 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 0a 20 return(NULL);..
0ad0: 20 20 20 64 68 2d 3e 70 3d 42 4e 5f 62 69 6e 32 dh->p=BN_bin2
0ae0: 62 6e 28 64 68 35 31 32 5f 70 2c 73 69 7a 65 6f bn(dh512_p,sizeo
0af0: 66 28 64 68 35 31 32 5f 70 29 2c 4e 55 4c 4c 29 f(dh512_p),NULL)
0b00: 3b 0a 20 20 20 20 64 68 2d 3e 67 3d 42 4e 5f 62 ;. dh->g=BN_b
0b10: 69 6e 32 62 6e 28 64 68 35 31 32 5f 67 2c 73 69 in2bn(dh512_g,si
0b20: 7a 65 6f 66 28 64 68 35 31 32 5f 67 29 2c 4e 55 zeof(dh512_g),NU
0b30: 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 64 LL);.. if ((d
0b40: 68 2d 3e 70 20 3d 3d 20 4e 55 4c 4c 29 20 7c 7c h->p == NULL) ||
0b50: 20 28 64 68 2d 3e 67 20 3d 3d 20 4e 55 4c 4c 29 (dh->g == NULL)
0b60: 29 0a 09 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b )..return(NULL);
0b70: 0a 20 20 20 20 72 65 74 75 72 6e 28 64 68 29 3b . return(dh);
0b80: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a .}.#endif../*. *
0b90: 20 44 65 66 69 6e 65 64 20 69 6e 20 54 6c 73 5f Defined in Tls_
0ba0: 49 6e 69 74 20 74 6f 20 64 65 74 65 72 6d 69 6e Init to determin
0bb0: 65 20 77 68 61 74 20 6b 69 6e 64 20 6f 66 20 63 e what kind of c
0bc0: 68 61 6e 6e 65 6c 73 20 77 65 20 61 72 65 20 75 hannels we are u
0bd0: 73 69 6e 67 0a 20 2a 20 28 6f 6c 64 2d 73 74 79 sing. * (old-sty
0be0: 6c 65 20 38 2e 32 2e 30 2d 38 2e 33 2e 31 20 6f le 8.2.0-8.3.1 o
0bf0: 72 20 6e 65 77 2d 73 74 79 6c 65 20 38 2e 33 2e r new-style 8.3.
0c00: 32 2b 29 2e 0a 20 2a 2f 0a 69 6e 74 20 63 68 61 2+).. */.int cha
0c10: 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 3b nnelTypeVersion;
0c20: 0a 0a 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 ../*. * We lose
0c30: 74 68 65 20 74 63 6c 20 70 61 73 73 77 6f 72 64 the tcl password
0c40: 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 callback when w
0c50: 65 20 75 73 65 20 74 68 65 20 52 53 41 20 42 53 e use the RSA BS
0c60: 41 46 45 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a AFE SSL-C 1.1.2.
0c70: 20 2a 20 6c 69 62 72 61 72 69 65 73 20 69 6e 73 * libraries ins
0c80: 74 65 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 tead of the curr
0c90: 65 6e 74 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 ent OpenSSL libr
0ca0: 61 72 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 aries.. */..#ifd
0cb0: 65 66 20 42 53 41 46 45 0a 23 64 65 66 69 6e 65 ef BSAFE.#define
0cc0: 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 PRE_OPENSSL_0_9
0cd0: 5f 34 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a _4 1.#endif../*.
0ce0: 20 2a 20 50 65 72 20 4f 70 65 6e 53 53 4c 20 30 * Per OpenSSL 0
0cf0: 2e 39 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a .9.4 Compat. */.
0d00: 0a 23 69 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f .#ifndef STACK_O
0d10: 46 0a 23 64 65 66 69 6e 65 20 53 54 41 43 4b 5f F.#define STACK_
0d20: 4f 46 28 78 29 09 09 09 53 54 41 43 4b 0a 23 64 OF(x)...STACK.#d
0d30: 65 66 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 efine sk_SSL_CIP
0d40: 48 45 52 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f HER_num(sk)..sk_
0d50: 6e 75 6d 28 28 73 6b 29 29 0a 23 64 65 66 69 6e num((sk)).#defin
0d60: 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f e sk_SSL_CIPHER_
0d70: 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 value( sk, index
0d80: 29 09 28 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 ).(SSL_CIPHER*)s
0d90: 6b 5f 76 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 k_value((sk), (i
0da0: 6e 64 65 78 29 29 0a 23 65 6e 64 69 66 0a 0a 0c ndex)).#endif...
0db0: 0a 2f 2a 0a 20 2a 2d 2d 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 0a 20 2a 0a 20 2a 20 ---------. *. *
0e00: 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a InfoCallback --.
0e10: 20 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 *. *.monitors S
0e20: 53 4c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 SL connection pr
0e30: 6f 63 65 73 73 0a 20 2a 0a 20 2a 20 52 65 73 75 ocess. *. * Resu
0e40: 6c 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a lts:. *.None. *.
0e50: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
0e60: 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 . *.Calls callba
0e70: 63 6b 20 28 69 66 20 64 65 66 69 6e 65 64 29 0a ck (if defined).
0e80: 20 2a 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
0ed0: 20 76 6f 69 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 void.InfoCallba
0ee0: 63 6b 28 53 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 ck(SSL *ssl, int
0ef0: 20 77 68 65 72 65 2c 20 69 6e 74 20 72 65 74 29 where, int ret)
0f00: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
0f10: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 2a atePtr = (State*
0f20: 29 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 )SSL_get_app_dat
0f30: 61 28 73 73 6c 29 3b 0a 20 20 20 20 54 63 6c 5f a(ssl);. Tcl_
0f40: 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 20 20 Obj *cmdPtr;.
0f50: 20 63 68 61 72 20 2a 6d 61 6a 6f 72 3b 20 63 68 char *major; ch
0f60: 61 72 20 2a 6d 69 6e 6f 72 3b 0a 0a 20 20 20 20 ar *minor;..
0f70: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 if (statePtr->ca
0f80: 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f llback == (Tcl_O
0f90: 62 6a 2a 29 4e 55 4c 4c 29 0a 09 72 65 74 75 72 bj*)NULL)..retur
0fa0: 6e 3b 0a 0a 20 20 20 20 63 6d 64 50 74 72 20 3d n;.. cmdPtr =
0fb0: 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 Tcl_DuplicateOb
0fc0: 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c j(statePtr->call
0fd0: 62 61 63 6b 29 3b 0a 0a 23 69 66 20 30 0a 20 20 back);..#if 0.
0fe0: 20 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 if (where & SS
0ff0: 4c 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a 09 73 L_CB_ALERT) {..s
1000: 65 76 20 3d 20 53 53 4c 5f 61 6c 65 72 74 5f 74 ev = SSL_alert_t
1010: 79 70 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 ype_string_long(
1020: 72 65 74 29 3b 0a 09 69 66 20 28 73 74 72 63 6d ret);..if (strcm
1030: 70 28 20 73 65 76 2c 20 22 66 61 74 61 6c 22 29 p( sev, "fatal")
1040: 3d 3d 30 29 20 7b 09 2f 2a 20 4d 61 70 20 74 6f ==0) {./* Map to
1050: 20 65 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 54 error */.. T
1060: 6c 73 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 ls_Error(statePt
1070: 72 2c 20 53 53 4c 5f 45 52 52 4f 52 28 73 73 6c r, SSL_ERROR(ssl
1080: 2c 20 30 29 29 3b 0a 09 20 20 20 20 72 65 74 75 , 0));.. retu
1090: 72 6e 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e rn;..}. }.#en
10a0: 64 69 66 0a 20 20 20 20 69 66 20 28 77 68 65 72 dif. if (wher
10b0: 65 20 26 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 e & SSL_CB_HANDS
10c0: 48 41 4b 45 5f 53 54 41 52 54 29 20 7b 0a 09 6d HAKE_START) {..m
10d0: 61 6a 6f 72 20 3d 20 22 68 61 6e 64 73 68 61 6b ajor = "handshak
10e0: 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d 20 22 73 74 e";..minor = "st
10f0: 61 72 74 22 3b 0a 20 20 20 20 7d 20 65 6c 73 65 art";. } else
1100: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c if (where & SSL
1110: 5f 43 42 5f 48 41 4e 44 53 48 41 4b 45 5f 44 4f _CB_HANDSHAKE_DO
1120: 4e 45 29 20 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 NE) {..major = "
1130: 68 61 6e 64 73 68 61 6b 65 22 3b 0a 09 6d 69 6e handshake";..min
1140: 6f 72 20 3d 20 22 64 6f 6e 65 22 3b 0a 20 20 20 or = "done";.
1150: 20 7d 20 65 6c 73 65 20 7b 0a 09 69 66 20 28 77 } else {..if (w
1160: 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c here & SSL_CB_AL
1170: 45 52 54 29 09 09 6d 61 6a 6f 72 20 3d 20 22 61 ERT)..major = "a
1180: 6c 65 72 74 22 3b 0a 09 65 6c 73 65 20 69 66 20 lert";..else if
1190: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 53 54 5f (where & SSL_ST_
11a0: 43 4f 4e 4e 45 43 54 29 09 6d 61 6a 6f 72 20 3d CONNECT).major =
11b0: 20 22 63 6f 6e 6e 65 63 74 22 3b 0a 09 65 6c 73 "connect";..els
11c0: 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 e if (where & SS
11d0: 4c 5f 53 54 5f 41 43 43 45 50 54 29 09 09 6d 61 L_ST_ACCEPT)..ma
11e0: 6a 6f 72 20 3d 20 22 61 63 63 65 70 74 22 3b 0a jor = "accept";.
11f0: 09 65 6c 73 65 09 09 09 09 09 6d 61 6a 6f 72 20 .else.....major
1200: 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 0a 09 69 = "unknown";...i
1210: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 f (where & SSL_C
1220: 42 5f 52 45 41 44 29 09 09 6d 69 6e 6f 72 20 3d B_READ)..minor =
1230: 20 22 72 65 61 64 22 3b 0a 09 65 6c 73 65 20 69 "read";..else i
1240: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 f (where & SSL_C
1250: 42 5f 57 52 49 54 45 29 09 09 6d 69 6e 6f 72 20 B_WRITE)..minor
1260: 3d 20 22 77 72 69 74 65 22 3b 0a 09 65 6c 73 65 = "write";..else
1270: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c if (where & SSL
1280: 5f 43 42 5f 4c 4f 4f 50 29 09 09 6d 69 6e 6f 72 _CB_LOOP)..minor
1290: 20 3d 20 22 6c 6f 6f 70 22 3b 0a 09 65 6c 73 65 = "loop";..else
12a0: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c if (where & SSL
12b0: 5f 43 42 5f 45 58 49 54 29 09 09 6d 69 6e 6f 72 _CB_EXIT)..minor
12c0: 20 3d 20 22 65 78 69 74 22 3b 0a 09 65 6c 73 65 = "exit";..else
12d0: 09 09 09 09 09 6d 69 6e 6f 72 20 3d 20 22 75 6e .....minor = "un
12e0: 6b 6e 6f 77 6e 22 3b 0a 20 20 20 20 7d 0a 0a 20 known";. }..
12f0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
1300: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 pendElement( sta
1310: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
1320: 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c mdPtr, .. Tcl
1330: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 _NewStringObj( "
1340: 69 6e 66 6f 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 info", -1));..
1350: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1360: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
1370: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1380: 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f dPtr, .. Tcl_
1390: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 NewStringObj( Tc
13a0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
13b0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
13c0: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
13d0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
13e0: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
13f0: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1400: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 ,.. Tcl_NewSt
1410: 72 69 6e 67 4f 62 6a 28 20 6d 61 6a 6f 72 2c 20 ringObj( major,
1420: 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1) );.. Tcl_
1430: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
1440: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e ment( statePtr->
1450: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a interp, cmdPtr,.
1460: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
1470: 6e 67 4f 62 6a 28 20 6d 69 6e 6f 72 2c 20 2d 31 ngObj( minor, -1
1480: 29 20 29 3b 0a 0a 20 20 20 20 69 66 20 28 77 68 ) );.. if (wh
1490: 65 72 65 20 26 20 28 53 53 4c 5f 43 42 5f 4c 4f ere & (SSL_CB_LO
14a0: 4f 50 7c 53 53 4c 5f 43 42 5f 45 58 49 54 29 29 OP|SSL_CB_EXIT))
14b0: 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 {..Tcl_ListObjA
14c0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
14d0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
14e0: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
14f0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 _NewStringObj( S
1500: 53 4c 5f 73 74 61 74 65 5f 73 74 72 69 6e 67 5f SL_state_string_
1510: 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 long(ssl), -1) )
1520: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
1530: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
1540: 41 4c 45 52 54 29 20 7b 0a 09 63 68 61 72 20 2a ALERT) {..char *
1550: 63 70 20 3d 20 28 63 68 61 72 20 2a 29 20 53 53 cp = (char *) SS
1560: 4c 5f 61 6c 65 72 74 5f 64 65 73 63 5f 73 74 72 L_alert_desc_str
1570: 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a 0a ing_long(ret);..
1580: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
1590: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
15a0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
15b0: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
15c0: 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 wStringObj( cp,
15d0: 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 -1) );. } els
15e0: 65 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a e {..Tcl_ListObj
15f0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1600: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1610: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
1620: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
1630: 53 53 4c 5f 73 74 61 74 65 5f 73 74 72 69 6e 67 SSL_state_string
1640: 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d 31 29 20 _long(ssl), -1)
1650: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c );. }. Tcl
1660: 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 _Preserve( (Clie
1670: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
1680: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 ->interp);. T
1690: 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c cl_Preserve( (Cl
16a0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
16b0: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e tr);.. Tcl_In
16c0: 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 crRefCount( cmdP
16d0: 74 72 29 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 tr);. (void)
16e0: 54 63 6c 5f 47 6c 6f 62 61 6c 45 76 61 6c 4f 62 Tcl_GlobalEvalOb
16f0: 6a 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 j(statePtr->inte
1700: 72 70 2c 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 rp, cmdPtr);.
1710: 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e Tcl_DecrRefCoun
1720: 74 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 t( cmdPtr);..
1730: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 Tcl_Release( (C
1740: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
1750: 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 Ptr);. Tcl_Re
1760: 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 lease( (ClientDa
1770: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
1780: 74 65 72 70 29 3b 0a 0a 7d 0a 0c 0a 2f 2a 0a 20 terp);..}.../*.
1790: 2a 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 56 65 72 69 66 ----. *. * Verif
17e0: 79 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a yCallback --. *.
17f0: 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 53 4c 20 *.monitors SSL
1800: 63 65 72 69 66 69 63 61 74 65 20 76 61 6c 69 64 cerificate valid
1810: 61 74 69 6f 6e 20 70 72 6f 63 65 73 73 0a 20 2a ation process. *
1820: 09 54 68 69 73 20 69 73 20 63 61 6c 6c 65 64 20 .This is called
1830: 77 68 65 6e 65 76 65 72 20 61 20 63 65 72 74 69 whenever a certi
1840: 66 69 63 61 74 65 20 69 73 20 69 6e 73 70 65 63 ficate is inspec
1850: 74 65 64 0a 20 2a 09 20 6f 72 20 64 65 63 69 64 ted. *. or decid
1860: 65 64 20 69 6e 76 61 6c 69 64 0a 20 2a 0a 20 2a ed invalid. *. *
1870: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6f 6b 20 Results:. *.ok
1880: 2d 20 6c 65 74 20 53 53 4c 20 68 61 6e 64 6c 65 - let SSL handle
1890: 20 69 74 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 it. *. * Side e
18a0: 66 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 ffects:. *.The e
18b0: 72 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 rr field of the
18c0: 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 currently operat
18d0: 69 76 65 20 53 74 61 74 65 20 69 73 20 73 65 74 ive State is set
18e0: 0a 20 2a 09 20 20 74 6f 20 61 20 73 74 72 69 6e . *. to a strin
18f0: 67 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 g describing the
1900: 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e SSL negotiation
1910: 20 66 61 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a failure reason.
1920: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1960: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
1970: 20 69 6e 74 0a 56 65 72 69 66 79 43 61 6c 6c 62 int.VerifyCallb
1980: 61 63 6b 28 69 6e 74 20 6f 6b 2c 20 58 35 30 39 ack(int ok, X509
1990: 5f 53 54 4f 52 45 5f 43 54 58 20 2a 63 74 78 29 _STORE_CTX *ctx)
19a0: 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a .{. Tcl_Obj *
19b0: 63 6d 64 50 74 72 3b 0a 20 20 20 20 63 68 61 72 cmdPtr;. char
19c0: 20 2a 65 72 72 53 74 72 3b 0a 20 20 20 20 53 53 *errStr;. SS
19d0: 4c 20 20 20 2a 73 73 6c 09 09 3d 20 28 53 53 4c L *ssl..= (SSL
19e0: 2a 29 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 *)X509_STORE_CTX
19f0: 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 28 63 74 _get_app_data(ct
1a00: 78 29 3b 0a 20 20 20 20 58 35 30 39 20 20 2a 63 x);. X509 *c
1a10: 65 72 74 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 ert..= X509_STOR
1a20: 45 5f 43 54 58 5f 67 65 74 5f 63 75 72 72 65 6e E_CTX_get_curren
1a30: 74 5f 63 65 72 74 28 63 74 78 29 3b 0a 20 20 20 t_cert(ctx);.
1a40: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
1a50: 09 3d 20 28 53 74 61 74 65 2a 29 53 53 4c 5f 67 .= (State*)SSL_g
1a60: 65 74 5f 61 70 70 5f 64 61 74 61 28 73 73 6c 29 et_app_data(ssl)
1a70: 3b 0a 20 20 20 20 69 6e 74 20 64 65 70 74 68 09 ;. int depth.
1a80: 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 .= X509_STORE_CT
1a90: 58 5f 67 65 74 5f 65 72 72 6f 72 5f 64 65 70 74 X_get_error_dept
1aa0: 68 28 63 74 78 29 3b 0a 20 20 20 20 69 6e 74 20 h(ctx);. int
1ab0: 65 72 72 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 err..= X509_STOR
1ac0: 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 28 E_CTX_get_error(
1ad0: 63 74 78 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e ctx);.. dprin
1ae0: 74 66 28 73 74 64 65 72 72 2c 20 22 56 65 72 69 tf(stderr, "Veri
1af0: 66 79 3a 20 25 64 5c 6e 22 2c 20 6f 6b 29 3b 0a fy: %d\n", ok);.
1b00: 0a 20 20 20 20 69 66 20 28 21 6f 6b 29 20 7b 0a . if (!ok) {.
1b10: 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 72 2a .errStr = (char*
1b20: 29 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 )X509_verify_cer
1b30: 74 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 t_error_string(e
1b40: 72 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 rr);. } else
1b50: 7b 0a 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 {..errStr = (cha
1b60: 72 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 r *)0;. }..
1b70: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
1b80: 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c callback == (Tcl
1b90: 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 _Obj*)NULL) {..i
1ba0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 76 66 6c f (statePtr->vfl
1bb0: 61 67 73 20 26 20 53 53 4c 5f 56 45 52 49 46 59 ags & SSL_VERIFY
1bc0: 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 _FAIL_IF_NO_PEER
1bd0: 5f 43 45 52 54 29 20 7b 0a 09 20 20 20 20 72 65 _CERT) {.. re
1be0: 74 75 72 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 65 turn ok;..} else
1bf0: 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 31 {.. return 1
1c00: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 ;..}. }. c
1c10: 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c mdPtr = Tcl_Dupl
1c20: 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 icateObj(statePt
1c30: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 r->callback);..
1c40: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
1c50: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 pendElement( sta
1c60: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
1c70: 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c mdPtr, .. Tcl
1c80: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 _NewStringObj( "
1c90: 76 65 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a verify", -1));..
1ca0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1cb0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1cc0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1cd0: 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 cmdPtr, .. Tc
1ce0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
1cf0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
1d00: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c me(statePtr->sel
1d10: 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 f), -1) );..
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 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
1d60: 49 6e 74 4f 62 6a 28 20 64 65 70 74 68 29 20 29 IntObj( depth) )
1d70: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
1d80: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1d90: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1da0: 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 p, cmdPtr,..
1db0: 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 Tls_NewX509Obj(
1dc0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1dd0: 2c 20 63 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 , cert) );..
1de0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1df0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
1e00: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1e10: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
1e20: 49 6e 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a IntObj( ok) );..
1e30: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1e40: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1e50: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1e60: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1e70: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 _NewStringObj( e
1e80: 72 72 53 74 72 20 3f 20 65 72 72 53 74 72 20 3a rrStr ? errStr :
1e90: 20 22 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 "", -1) );..
1ea0: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 Tcl_Preserve( (
1eb0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
1ec0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 ePtr->interp);.
1ed0: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 Tcl_Preserve(
1ee0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 (ClientData) st
1ef0: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 atePtr);.. Tc
1f00: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 l_IncrRefCount(
1f10: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 cmdPtr);. if
1f20: 28 54 63 6c 5f 47 6c 6f 62 61 6c 45 76 61 6c 4f (Tcl_GlobalEvalO
1f30: 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 bj(statePtr->int
1f40: 65 72 70 2c 20 63 6d 64 50 74 72 29 20 21 3d 20 erp, cmdPtr) !=
1f50: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 69 74 TCL_OK) {../* it
1f60: 20 67 6f 74 20 61 6e 20 65 72 72 6f 72 20 2d 20 got an error -
1f70: 72 65 6a 65 63 74 20 74 68 65 20 63 65 72 74 69 reject the certi
1f80: 66 69 63 61 74 65 20 2a 2f 0a 09 54 63 6c 5f 42 ficate */..Tcl_B
1f90: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 20 ackgroundError(
1fa0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1fb0: 29 3b 0a 09 6f 6b 20 3d 20 30 3b 0a 20 20 20 20 );..ok = 0;.
1fc0: 7d 20 65 6c 73 65 20 7b 0a 09 69 66 20 28 54 63 } else {..if (Tc
1fd0: 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 l_GetIntFromObj(
1fe0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1ff0: 70 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 74 p,... Tcl_Get
2000: 4f 62 6a 52 65 73 75 6c 74 28 20 73 74 61 74 65 ObjResult( state
2010: 50 74 72 2d 3e 69 6e 74 65 72 70 29 2c 20 26 6f Ptr->interp), &o
2020: 6b 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a k) != TCL_OK) {.
2030: 09 20 20 20 20 54 63 6c 5f 42 61 63 6b 67 72 6f . Tcl_Backgro
2040: 75 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 undError( stateP
2050: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 20 20 tr->interp);..
2060: 20 20 6f 6b 20 3d 20 30 3b 0a 09 7d 0a 20 20 20 ok = 0;..}.
2070: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 }. Tcl_DecrR
2080: 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 efCount( cmdPtr)
2090: 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 ;.. Tcl_Relea
20a0: 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 se( (ClientData)
20b0: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
20c0: 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c Tcl_Release( (Cl
20d0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
20e0: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 tr->interp);..
20f0: 20 20 72 65 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a return(ok);./*
2100: 20 6c 65 61 76 65 20 74 68 65 20 64 69 73 70 6f leave the dispo
2110: 73 69 74 69 6f 6e 20 61 73 20 53 53 4c 20 73 65 sition as SSL se
2120: 74 20 69 74 20 2a 2f 0a 7d 0a 0c 0a 2f 2a 0a 20 t it */.}.../*.
2130: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2170: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 45 ----. *. * Tls_E
2180: 72 72 6f 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 rror --. *. *.Ca
2190: 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 77 69 74 lls callback wit
21a0: 68 20 24 66 64 20 61 6e 64 20 24 6d 73 67 20 2d h $fd and $msg -
21b0: 20 73 6f 20 74 68 65 20 63 61 6c 6c 62 61 63 6b so the callback
21c0: 20 63 61 6e 20 64 65 63 69 64 65 0a 20 2a 09 77 can decide. *.w
21d0: 68 61 74 20 74 6f 20 64 6f 20 77 69 74 68 20 65 hat to do with e
21e0: 72 72 6f 72 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 rrors.. *. * Res
21f0: 75 6c 74 73 3a 0a 20 2a 09 6f 6b 20 2d 20 6c 65 ults:. *.ok - le
2200: 74 20 53 53 4c 20 68 61 6e 64 6c 65 20 69 74 0a t SSL handle it.
2210: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
2220: 74 73 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 66 ts:. *.The err f
2230: 69 65 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 ield of the curr
2240: 65 6e 74 6c 79 20 6f 70 65 72 61 74 69 76 65 20 ently operative
2250: 53 74 61 74 65 20 69 73 20 73 65 74 0a 20 2a 09 State is set. *.
2260: 20 20 74 6f 20 61 20 73 74 72 69 6e 67 20 64 65 to a string de
2270: 73 63 72 69 62 69 6e 67 20 74 68 65 20 53 53 4c scribing the SSL
2280: 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 negotiation fai
2290: 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d lure reason. *--
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 2f 0a 76 6f 69 64 0a 54 6c 73 5f 45 -. */.void.Tls_E
22f0: 72 72 6f 72 28 53 74 61 74 65 20 2a 73 74 61 74 rror(State *stat
2300: 65 50 74 72 2c 20 63 68 61 72 20 2a 6d 73 67 29 ePtr, char *msg)
2310: 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a .{. Tcl_Obj *
2320: 63 6d 64 50 74 72 3b 0a 0a 20 20 20 20 69 66 20 cmdPtr;.. if
2330: 28 6d 73 67 20 26 26 20 2a 6d 73 67 29 20 7b 0a (msg && *msg) {.
2340: 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 .Tcl_SetErrorCod
2350: 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 e(statePtr->inte
2360: 72 70 2c 20 22 53 53 4c 22 2c 20 6d 73 67 2c 20 rp, "SSL", msg,
2370: 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 20 (char *)NULL);.
2380: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6d 73 67 } else {..msg
2390: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
23a0: 46 72 6f 6d 4f 62 6a 28 54 63 6c 5f 47 65 74 4f FromObj(Tcl_GetO
23b0: 62 6a 52 65 73 75 6c 74 28 73 74 61 74 65 50 74 bjResult(statePt
23c0: 72 2d 3e 69 6e 74 65 72 70 29 2c 20 4e 55 4c 4c r->interp), NULL
23d0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 );. }. sta
23e0: 74 65 50 74 72 2d 3e 65 72 72 20 3d 20 6d 73 67 tePtr->err = msg
23f0: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 ;.. if (state
2400: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d Ptr->callback ==
2410: 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 (Tcl_Obj*)NULL)
2420: 20 7b 0a 09 63 68 61 72 20 62 75 66 5b 42 55 46 {..char buf[BUF
2430: 53 49 5a 5d 3b 0a 09 73 70 72 69 6e 74 66 28 62 SIZ];..sprintf(b
2440: 75 66 2c 20 22 53 53 4c 20 63 68 61 6e 6e 65 6c uf, "SSL channel
2450: 20 5c 22 25 73 5c 22 3a 20 65 72 72 6f 72 3a 20 \"%s\": error:
2460: 25 73 22 2c 0a 09 20 20 20 20 54 63 6c 5f 47 65 %s",.. Tcl_Ge
2470: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 tChannelName(sta
2480: 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 6d 73 tePtr->self), ms
2490: 67 29 3b 0a 09 54 63 6c 5f 53 65 74 52 65 73 75 g);..Tcl_SetResu
24a0: 6c 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e lt( statePtr->in
24b0: 74 65 72 70 2c 20 62 75 66 2c 20 54 43 4c 5f 56 terp, buf, TCL_V
24c0: 4f 4c 41 54 49 4c 45 29 3b 0a 09 54 63 6c 5f 42 OLATILE);..Tcl_B
24d0: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 20 ackgroundError(
24e0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
24f0: 29 3b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 );..return;.
2500: 7d 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 }. cmdPtr = T
2510: 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 cl_DuplicateObj(
2520: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
2530: 63 6b 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 ck);.. Tcl_Li
2540: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
2550: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 nt(statePtr->int
2560: 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 erp, cmdPtr, ..
2570: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
2580: 4f 62 6a 28 22 65 72 72 6f 72 22 2c 20 2d 31 29 Obj("error", -1)
2590: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
25a0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
25b0: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
25c0: 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 p, cmdPtr, ..
25d0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
25e0: 6a 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c j(Tcl_GetChannel
25f0: 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 Name(statePtr->s
2600: 65 6c 66 29 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 elf), -1));..
2610: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
2620: 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 ndElement(stateP
2630: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
2640: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
2650: 53 74 72 69 6e 67 4f 62 6a 28 6d 73 67 2c 20 2d StringObj(msg, -
2660: 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 72 1));.. Tcl_Pr
2670: 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61 eserve((ClientDa
2680: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
2690: 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 terp);. Tcl_P
26a0: 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 reserve((ClientD
26b0: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
26c0: 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 . Tcl_IncrRef
26d0: 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 20 Count(cmdPtr);.
26e0: 20 20 20 69 66 20 28 54 63 6c 5f 47 6c 6f 62 61 if (Tcl_Globa
26f0: 6c 45 76 61 6c 4f 62 6a 28 73 74 61 74 65 50 74 lEvalObj(statePt
2700: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
2710: 72 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a r) != TCL_OK) {.
2720: 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 .Tcl_BackgroundE
2730: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 69 rror(statePtr->i
2740: 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 nterp);. }.
2750: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
2760: 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 nt(cmdPtr);..
2770: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c Tcl_Release((Cl
2780: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
2790: 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c tr);. Tcl_Rel
27a0: 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 ease((ClientData
27b0: 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ) statePtr->inte
27c0: 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d rp);.}.../*. *--
27d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2810: 2d 0a 20 2a 0a 20 2a 20 50 61 73 73 77 6f 72 64 -. *. * Password
2820: 43 61 6c 6c 62 61 63 6b 20 2d 2d 20 0a 20 2a 0a Callback -- . *.
2830: 20 2a 09 43 61 6c 6c 65 64 20 77 68 65 6e 20 61 *.Called when a
2840: 20 70 61 73 73 77 6f 72 64 20 69 73 20 6e 65 65 password is nee
2850: 64 65 64 20 74 6f 20 75 6e 70 61 63 6b 20 52 53 ded to unpack RS
2860: 41 20 61 6e 64 20 50 45 4d 20 6b 65 79 73 2e 0a A and PEM keys..
2870: 20 2a 09 45 76 61 6c 73 20 61 6e 79 20 62 6f 75 *.Evals any bou
2880: 6e 64 20 70 61 73 73 77 6f 72 64 20 73 63 72 69 nd password scri
2890: 70 74 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 pt and returns t
28a0: 68 65 20 72 65 73 75 6c 74 20 61 73 0a 20 2a 09 he result as. *.
28b0: 74 68 65 20 70 61 73 73 77 6f 72 64 20 73 74 72 the password str
28c0: 69 6e 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ing.. *---------
28d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 ----------. */.#
2910: 69 66 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 53 ifdef PRE_OPENSS
2920: 4c 5f 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e 6f L_0_9_4./*. * No
2930: 20 77 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 75 way to handle u
2940: 73 65 72 2d 64 61 74 61 20 74 68 65 72 65 66 6f ser-data therefo
2950: 72 65 20 6e 6f 20 77 61 79 20 77 69 74 68 6f 75 re no way withou
2960: 74 20 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 61 t a global. * va
2970: 72 69 61 62 6c 65 20 74 6f 20 61 63 63 65 73 73 riable to access
2980: 20 74 68 65 20 54 63 6c 20 69 6e 74 65 72 70 72 the Tcl interpr
2990: 65 74 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 eter..*/.static
29a0: 69 6e 74 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c int.PasswordCall
29b0: 62 61 63 6b 28 63 68 61 72 20 2a 62 75 66 2c 20 back(char *buf,
29c0: 69 6e 74 20 73 69 7a 65 2c 20 69 6e 74 20 76 65 int size, int ve
29d0: 72 69 66 79 29 0a 7b 0a 20 20 20 20 72 65 74 75 rify).{. retu
29e0: 72 6e 20 2d 31 3b 0a 7d 0a 23 65 6c 73 65 0a 73 rn -1;.}.#else.s
29f0: 74 61 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f tatic int.Passwo
2a00: 72 64 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 rdCallback(char
2a10: 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 *buf, int size,
2a20: 69 6e 74 20 76 65 72 69 66 79 2c 20 76 6f 69 64 int verify, void
2a30: 20 2a 75 64 61 74 61 29 0a 7b 0a 20 20 20 20 53 *udata).{. S
2a40: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d tate *statePtr.=
2a50: 20 28 53 74 61 74 65 20 2a 29 20 75 64 61 74 61 (State *) udata
2a60: 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 ;. Tcl_Interp
2a70: 20 2a 69 6e 74 65 72 70 09 3d 20 73 74 61 74 65 *interp.= state
2a80: 50 74 72 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20 Ptr->interp;.
2a90: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 Tcl_Obj *cmdPtr
2aa0: 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 75 6c 74 ;. int result
2ab0: 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 ;.. if (state
2ac0: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 20 3d 3d Ptr->password ==
2ad0: 20 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 54 63 NULL) {..if (Tc
2ae0: 6c 5f 45 76 61 6c 28 69 6e 74 65 72 70 2c 20 22 l_Eval(interp, "
2af0: 74 6c 73 3a 3a 70 61 73 73 77 6f 72 64 22 29 20 tls::password")
2b00: 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 == TCL_OK) {..
2b10: 20 20 63 68 61 72 20 2a 72 65 74 20 3d 20 28 63 char *ret = (c
2b20: 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 har *) Tcl_GetSt
2b30: 72 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 ringResult(inter
2b40: 70 29 3b 0a 09 20 20 20 20 73 74 72 6e 63 70 79 p);.. strncpy
2b50: 28 62 75 66 2c 20 72 65 74 2c 20 73 69 7a 65 29 (buf, ret, size)
2b60: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 73 74 ;.. return st
2b70: 72 6c 65 6e 28 72 65 74 29 3b 0a 09 7d 20 65 6c rlen(ret);..} el
2b80: 73 65 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e se {.. return
2b90: 20 2d 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 -1;..}. }..
2ba0: 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f cmdPtr = Tcl_
2bb0: 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 DuplicateObj(sta
2bc0: 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 tePtr->password)
2bd0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 ;.. Tcl_Prese
2be0: 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 rve((ClientData)
2bf0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
2c00: 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 p);. Tcl_Pres
2c10: 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74 61 erve((ClientData
2c20: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 ) statePtr);..
2c30: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
2c40: 6e 74 28 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 nt(cmdPtr);.
2c50: 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 6c 6f result = Tcl_Glo
2c60: 62 61 6c 45 76 61 6c 4f 62 6a 28 69 6e 74 65 72 balEvalObj(inter
2c70: 70 2c 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 p, cmdPtr);.
2c80: 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 43 if (result != TC
2c90: 4c 5f 4f 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 L_OK) {..Tcl_Bac
2ca0: 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 kgroundError(sta
2cb0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
2cc0: 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 }. Tcl_De
2cd0: 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 crRefCount(cmdPt
2ce0: 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c r);.. Tcl_Rel
2cf0: 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 ease((ClientData
2d00: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
2d10: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c Tcl_Release((Cl
2d20: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
2d30: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 tr->interp);..
2d40: 20 20 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 if (result ==
2d50: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 63 68 61 72 20 TCL_OK) {..char
2d60: 2a 72 65 74 20 3d 20 28 63 68 61 72 20 2a 29 20 *ret = (char *)
2d70: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 Tcl_GetStringRes
2d80: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 73 74 ult(interp);..st
2d90: 72 6e 63 70 79 28 62 75 66 2c 20 72 65 74 2c 20 rncpy(buf, ret,
2da0: 73 69 7a 65 29 3b 0a 09 72 65 74 75 72 6e 20 73 size);..return s
2db0: 74 72 6c 65 6e 28 72 65 74 29 3b 0a 20 20 20 20 trlen(ret);.
2dc0: 7d 20 65 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e } else {..return
2dd0: 20 2d 31 3b 0a 20 20 20 20 7d 0a 7d 0a 23 65 6e -1;. }.}.#en
2de0: 64 69 66 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d dif.../*. *-----
2df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2e30: 2a 0a 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 *. * CiphersObjC
2e40: 6d 64 20 2d 2d 20 6c 69 73 74 20 61 76 61 69 6c md -- list avail
2e50: 61 62 6c 65 20 63 69 70 68 65 72 73 0a 20 2a 0a able ciphers. *.
2e60: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
2e70: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 e is invoked to
2e80: 70 72 6f 63 65 73 73 20 74 68 65 20 22 74 6c 73 process the "tls
2e90: 3a 3a 63 69 70 68 65 72 73 22 20 63 6f 6d 6d 61 ::ciphers" comma
2ea0: 6e 64 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 76 nd. *.to list av
2eb0: 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 2c ailable ciphers,
2ec0: 20 62 61 73 65 64 20 75 70 6f 6e 20 70 72 6f 74 based upon prot
2ed0: 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a 20 ocol selected..
2ee0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
2ef0: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
2f00: 72 65 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a result list.. *.
2f10: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2f20: 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 61 . *.constructs a
2f30: 6e 64 20 64 65 73 74 72 6f 79 73 20 53 53 4c 20 nd destroys SSL
2f40: 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a context (CTX). *
2f50: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f90: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
2fa0: 63 20 69 6e 74 0a 43 69 70 68 65 72 73 4f 62 6a c int.CiphersObj
2fb0: 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 Cmd(clientData,
2fc0: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 interp, objc, ob
2fd0: 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 jv). ClientDa
2fe0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f ta clientData;./
2ff0: 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 * Not used. */.
3000: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
3010: 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f nterp;. int o
3020: 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a bjc;. Tcl_Obj
3030: 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a .*CONST objv[];.
3040: 7b 0a 20 20 20 20 73 74 61 74 69 63 20 43 4f 4e {. static CON
3050: 53 54 20 63 68 61 72 20 2a 70 72 6f 74 6f 63 6f ST char *protoco
3060: 6c 73 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c 32 22 ls[] = {.."ssl2"
3070: 2c 09 22 73 73 6c 33 22 2c 09 22 74 6c 73 31 22 ,."ssl3",."tls1"
3080: 2c 09 4e 55 4c 4c 0a 20 20 20 20 7d 3b 0a 20 20 ,.NULL. };.
3090: 20 20 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 enum protocol
30a0: 7b 0a 09 54 4c 53 5f 53 53 4c 32 2c 20 54 4c 53 {..TLS_SSL2, TLS
30b0: 5f 53 53 4c 33 2c 20 54 4c 53 5f 54 4c 53 31 2c _SSL3, TLS_TLS1,
30c0: 20 54 4c 53 5f 4e 4f 4e 45 0a 20 20 20 20 7d 3b TLS_NONE. };
30d0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
30e0: 6a 50 74 72 3b 0a 20 20 20 20 53 53 4c 5f 43 54 jPtr;. SSL_CT
30f0: 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 X *ctx = NULL;.
3100: 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e 55 SSL *ssl = NU
3110: 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f 46 LL;. STACK_OF
3120: 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 6b (SSL_CIPHER) *sk
3130: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 70 2c 20 ;. char *cp,
3140: 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 20 buf[BUFSIZ];.
3150: 20 69 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 62 int index, verb
3160: 6f 73 65 20 3d 20 30 3b 0a 0a 20 20 20 20 69 66 ose = 0;.. if
3170: 20 28 6f 62 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 (objc < 2 || ob
3180: 6a 63 20 3e 20 33 29 20 7b 0a 09 54 63 6c 5f 57 jc > 3) {..Tcl_W
3190: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
31a0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 70 72 rp, 1, objv, "pr
31b0: 6f 74 6f 63 6f 6c 20 3f 76 65 72 62 6f 73 65 3f otocol ?verbose?
31c0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
31d0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
31e0: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 if (Tcl_GetInde
31f0: 78 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 xFromObj( interp
3200: 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f , objv[1], proto
3210: 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 cols, "protocol"
3220: 2c 20 30 2c 0a 09 26 69 6e 64 65 78 29 20 21 3d , 0,..&index) !=
3230: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 TCL_OK) {..retu
3240: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3250: 20 20 7d 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 }. if (objc
3260: 20 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 74 42 > 2 && Tcl_GetB
3270: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 20 69 ooleanFromObj( i
3280: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 0a nterp, objv[2],.
3290: 09 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 .&verbose) != TC
32a0: 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 L_OK) {..return
32b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
32c0: 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 65 6e . switch ((en
32d0: 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 um protocol)inde
32e0: 78 29 20 7b 0a 20 20 20 20 63 61 73 65 20 54 4c x) {. case TL
32f0: 53 5f 53 53 4c 32 3a 0a 23 69 66 20 64 65 66 69 S_SSL2:.#if defi
3300: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 09 54 ned(NO_SSL2)...T
3310: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3320: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
3330: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
3340: 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 , NULL);...retur
3350: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c n TCL_ERROR;.#el
3360: 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 se...ctx = SSL_C
3370: 54 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d 65 74 TX_new(SSLv2_met
3380: 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 hod()); break;.#
3390: 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 endif. case T
33a0: 4c 53 5f 53 53 4c 33 3a 0a 23 69 66 20 64 65 66 LS_SSL3:.#if def
33b0: 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 09 ined(NO_SSL3)...
33c0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
33d0: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
33e0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
33f0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 ", NULL);...retu
3400: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 rn TCL_ERROR;.#e
3410: 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f lse...ctx = SSL_
3420: 43 54 58 5f 6e 65 77 28 53 53 4c 76 33 5f 6d 65 CTX_new(SSLv3_me
3430: 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a thod()); break;.
3440: 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 #endif. case
3450: 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 TLS_TLS1:.#if de
3460: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 09 fined(NO_TLS1)..
3470: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
3480: 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f t(interp, "proto
3490: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
34a0: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 d", NULL);...ret
34b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
34c0: 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c else...ctx = SSL
34d0: 5f 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 6d _CTX_new(TLSv1_m
34e0: 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b ethod()); break;
34f0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 20 .#endif. }.
3500: 20 20 69 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c if (ctx == NUL
3510: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
3520: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 Result(interp, R
3530: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
3540: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
3550: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3560: 7d 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 4c 5f }. ssl = SSL_
3570: 6e 65 77 28 63 74 78 29 3b 0a 20 20 20 20 69 66 new(ctx);. if
3580: 20 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b (ssl == NULL) {
3590: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
35a0: 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f lt(interp, REASO
35b0: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 N(), (char *) NU
35c0: 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 LL);..SSL_CTX_fr
35d0: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
35e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
35f0: 7d 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 }. objPtr = T
3600: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 cl_NewListObj( 0
3610: 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 , NULL);.. if
3620: 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 (!verbose) {..f
3630: 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b or (index = 0; ;
3640: 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 index++) {..
3650: 20 63 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c cp = (char*)SSL
3660: 5f 67 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 _get_cipher_list
3670: 28 20 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 ( ssl, index);..
3680: 20 20 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 if (cp == NU
3690: 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 LL) break;..
36a0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
36b0: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
36c0: 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f , objPtr,...Tcl_
36d0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 NewStringObj( cp
36e0: 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 , -1) );..}.
36f0: 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 } else {..sk = S
3700: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 SL_get_ciphers(s
3710: 73 6c 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 sl);...for (inde
3720: 78 20 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 x = 0; index < s
3730: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d k_SSL_CIPHER_num
3740: 28 73 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b (sk); index++) {
3750: 0a 09 20 20 20 20 72 65 67 69 73 74 65 72 20 69 .. register i
3760: 6e 74 20 69 3b 0a 09 20 20 20 20 53 53 4c 5f 43 nt i;.. SSL_C
3770: 49 50 48 45 52 5f 64 65 73 63 72 69 70 74 69 6f IPHER_descriptio
3780: 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 n( sk_SSL_CIPHER
3790: 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 _value( sk, inde
37a0: 78 29 2c 0a 09 09 09 09 20 20 20 20 62 75 66 2c x),..... buf,
37b0: 20 73 69 7a 65 6f 66 28 62 75 66 29 29 3b 0a 09 sizeof(buf));..
37c0: 20 20 20 20 66 6f 72 20 28 69 20 3d 20 73 74 72 for (i = str
37d0: 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b 20 69 20 len(buf) - 1; i
37e0: 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 20 28 62 ; i--) {...if (b
37f0: 75 66 5b 69 5d 20 3d 3d 20 27 20 27 20 7c 7c 20 uf[i] == ' ' ||
3800: 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e 27 20 7c buf[i] == '\n' |
3810: 7c 0a 09 09 20 20 20 20 62 75 66 5b 69 5d 20 3d |... buf[i] =
3820: 3d 20 27 5c 72 27 20 7c 7c 20 62 75 66 5b 69 5d = '\r' || buf[i]
3830: 20 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 09 20 20 == '\t') {...
3840: 20 20 62 75 66 5b 69 5d 20 3d 20 27 5c 30 27 3b buf[i] = '\0';
3850: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 ...} else {...
3860: 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 20 20 break;...}..
3870: 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 }.. Tcl_Lis
3880: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
3890: 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 t( interp, objPt
38a0: 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 r,...Tcl_NewStri
38b0: 6e 67 4f 62 6a 28 20 62 75 66 2c 20 2d 31 29 20 ngObj( buf, -1)
38c0: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 );..}. }.
38d0: 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 SSL_free(ssl);.
38e0: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 SSL_CTX_free(
38f0: 63 74 78 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 ctx);.. Tcl_S
3900: 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 etObjResult( int
3910: 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 erp, objPtr);.
3920: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3930: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
3940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3980: 0a 20 2a 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a . * HandshakeObj
3990: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 Cmd --. *. *.Thi
39a0: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 s command is use
39b0: 64 20 74 6f 20 76 65 72 69 66 79 20 77 68 65 74 d to verify whet
39c0: 68 65 72 20 74 68 65 20 68 61 6e 64 73 68 61 6b her the handshak
39d0: 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 0a 20 2a e is complete. *
39e0: 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 52 .or not.. *. * R
39f0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
3a00: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
3a10: 2e 20 31 20 6d 65 61 6e 73 20 68 61 6e 64 73 68 . 1 means handsh
3a20: 61 6b 65 20 63 6f 6d 70 6c 65 74 65 2c 20 30 20 ake complete, 0
3a30: 6d 65 61 6e 73 20 70 65 6e 64 69 6e 67 2e 0a 20 means pending..
3a40: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3a50: 73 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 63 65 20 s:. *.May force
3a60: 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 SSL negotiation
3a70: 74 6f 20 74 61 6b 65 20 70 6c 61 63 65 2e 0a 20 to take place..
3a80: 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
3ad0: 74 69 63 20 69 6e 74 0a 48 61 6e 64 73 68 61 6b tic int.Handshak
3ae0: 65 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 eObjCmd(clientDa
3af0: 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 ta, interp, objc
3b00: 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 , objv). Clie
3b10: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
3b20: 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 a;./* Not used.
3b30: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
3b40: 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 p *interp;. i
3b50: 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c nt objc;. Tcl
3b60: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj *CONST objv
3b70: 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 [];.{. Tcl_Ch
3b80: 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 annel chan;../*
3b90: 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 The channel to s
3ba0: 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f et a mode on. */
3bb0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
3bc0: 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 ePtr;../* client
3bd0: 20 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 73 state for ssl s
3be0: 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 20 69 6e 74 ocket */. int
3bf0: 20 72 65 74 20 3d 20 31 3b 0a 0a 20 20 20 20 69 ret = 1;.. i
3c00: 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a f (objc != 2) {.
3c10: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
3c20: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
3c30: 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 v, "channel");..
3c40: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
3c50: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 ;. }.. cha
3c60: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
3c70: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
3c80: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
3c90: 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 objv[1], NULL),
3ca0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 NULL);. if (c
3cb0: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
3cc0: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
3cd0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3ce0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 68 }. if (ch
3cf0: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
3d00: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
3d10: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a VERSION_2) {../*
3d20: 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 .. * Make sure t
3d30: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
3d40: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
3d50: 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 .. */..chan = Tc
3d60: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
3d70: 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 chan);. }.
3d80: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e if (Tcl_GetChan
3d90: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d nelType(chan) !=
3da0: 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 Tls_ChannelType
3db0: 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e ()) {..Tcl_Appen
3dc0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
3dd0: 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 "bad channel \""
3de0: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c , Tcl_GetChannel
3df0: 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c Name(chan),..."\
3e00: 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 ": not a TLS cha
3e10: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 nnel", NULL);..r
3e20: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3e30: 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 . }. state
3e40: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 54 Ptr = (State *)T
3e50: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
3e60: 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b tanceData(chan);
3e70: 0a 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f 69 .. if (!SSL_i
3e80: 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 65 64 28 s_init_finished(
3e90: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 29 20 statePtr->ssl))
3ea0: 7b 0a 09 69 6e 74 20 65 72 72 3b 0a 09 72 65 74 {..int err;..ret
3eb0: 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f = Tls_WaitForCo
3ec0: 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c 20 nnect(statePtr,
3ed0: 26 65 72 72 29 3b 0a 09 69 66 20 28 72 65 74 20 &err);..if (ret
3ee0: 3c 20 30 29 20 7b 0a 09 20 20 20 20 43 4f 4e 53 < 0) {.. CONS
3ef0: 54 20 63 68 61 72 20 2a 65 72 72 53 74 72 20 3d T char *errStr =
3f00: 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 3b 0a statePtr->err;.
3f10: 09 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 . Tcl_ResetRe
3f20: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 20 sult(interp);..
3f30: 20 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 Tcl_SetErrno(
3f40: 65 72 72 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 err);... if (
3f50: 21 65 72 72 53 74 72 20 7c 7c 20 2a 65 72 72 53 !errStr || *errS
3f60: 74 72 20 3d 3d 20 30 29 20 7b 0a 09 09 65 72 72 tr == 0) {...err
3f70: 53 74 72 20 3d 20 54 63 6c 5f 50 6f 73 69 78 45 Str = Tcl_PosixE
3f80: 72 72 6f 72 28 69 6e 74 65 72 70 29 3b 0a 09 20 rror(interp);..
3f90: 20 20 20 7d 0a 0a 09 20 20 20 20 54 63 6c 5f 41 }... Tcl_A
3fa0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3fb0: 72 70 2c 20 22 68 61 6e 64 73 68 61 6b 65 20 66 rp, "handshake f
3fc0: 61 69 6c 65 64 3a 20 22 2c 20 65 72 72 53 74 72 ailed: ", errStr
3fd0: 2c 0a 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 ,... (char *)
3fe0: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
3ff0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
4000: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c }. }.. Tcl
4010: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
4020: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
4030: 4f 62 6a 28 72 65 74 29 29 3b 0a 20 20 20 20 72 Obj(ret));. r
4040: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
4050: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
4060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
40a0: 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d ImportObjCmd --
40b0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 . *. *.This proc
40c0: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
40d0: 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 to process the
40e0: 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a "ssl" command. *
40f0: 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 6f 6d 6d . *.The ssl comm
4100: 61 6e 64 20 70 75 73 68 65 73 20 53 53 4c 20 6f and pushes SSL o
4110: 76 65 72 20 61 20 28 6e 65 77 6c 79 20 63 6f 6e ver a (newly con
4120: 6e 65 63 74 65 64 29 20 74 63 70 20 73 6f 63 6b nected) tcp sock
4130: 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 et. *. * Results
4140: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
4150: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
4160: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4170: 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 *.May modify th
4180: 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e e behavior of an
4190: 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a IO channel.. *.
41a0: 20 2a 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 2d 2d ----------------
41e0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 -----. */..stati
41f0: 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 c int.ImportObjC
4200: 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 md(clientData, i
4210: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
4220: 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 v). ClientDat
4230: 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a a clientData;./*
4240: 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 Not used. */.
4250: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
4260: 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 terp;. int ob
4270: 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 jc;. Tcl_Obj
4280: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b *CONST objv[];.{
4290: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
42a0: 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 chan;../* The c
42b0: 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 hannel to set a
42c0: 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 mode on. */.
42d0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
42e0: 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 ../* client stat
42f0: 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 e for ssl socket
4300: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 */. SSL_CTX
4310: 2a 63 74 78 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 *ctx.= NULL;.
4320: 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70 74 Tcl_Obj *script
4330: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c .= NULL;. Tcl
4340: 5f 4f 62 6a 20 2a 70 61 73 73 77 6f 72 64 09 3d _Obj *password.=
4350: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 69 NULL;. int i
4360: 64 78 3b 0a 20 20 20 20 69 6e 74 20 66 6c 61 67 dx;. int flag
4370: 73 09 09 3d 20 54 4c 53 5f 54 43 4c 5f 49 4e 49 s..= TLS_TCL_INI
4380: 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 76 65 T;. int serve
4390: 72 09 09 3d 20 30 3b 09 2f 2a 20 69 73 20 63 6f r..= 0;./* is co
43a0: 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d 69 6e nnection incomin
43b0: 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f 20 2a g or outgoing? *
43c0: 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 09 /. char *key.
43d0: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 .= NULL;. cha
43e0: 72 20 2a 63 65 72 74 09 09 3d 20 4e 55 4c 4c 3b r *cert..= NULL;
43f0: 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 65 . char *ciphe
4400: 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 rs.= NULL;. c
4410: 68 61 72 20 2a 43 41 66 69 6c 65 09 3d 20 4e 55 har *CAfile.= NU
4420: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41 LL;. char *CA
4430: 64 69 72 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 dir..= NULL;.
4440: 20 63 68 61 72 20 2a 6d 6f 64 65 6c 09 09 3d 20 char *model..=
4450: 4e 55 4c 4c 3b 0a 23 69 66 20 64 65 66 69 6e 65 NULL;.#if define
4460: 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 69 d(NO_SSL2). i
4470: 6e 74 20 73 73 6c 32 20 3d 20 30 3b 0a 23 65 6c nt ssl2 = 0;.#el
4480: 73 65 0a 20 20 20 20 69 6e 74 20 73 73 6c 32 20 se. int ssl2
4490: 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 = 1;.#endif.#if
44a0: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 defined(NO_SSL3)
44b0: 0a 20 20 20 20 69 6e 74 20 73 73 6c 33 20 3d 20 . int ssl3 =
44c0: 30 3b 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 0;.#else. int
44d0: 20 73 73 6c 33 20 3d 20 31 3b 0a 23 65 6e 64 69 ssl3 = 1;.#endi
44e0: 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f f.#if defined(NO
44f0: 5f 53 53 4c 32 29 20 26 26 20 64 65 66 69 6e 65 _SSL2) && define
4500: 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 d(NO_SSL3). i
4510: 6e 74 20 74 6c 73 31 20 3d 20 31 3b 0a 23 65 6c nt tls1 = 1;.#el
4520: 73 65 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 20 se. int tls1
4530: 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 = 0;.#endif.
4540: 69 6e 74 20 70 72 6f 74 6f 20 3d 20 30 3b 0a 20 int proto = 0;.
4550: 20 20 20 69 6e 74 20 76 65 72 69 66 79 20 3d 20 int verify =
4560: 30 2c 20 72 65 71 75 69 72 65 20 3d 20 30 2c 20 0, require = 0,
4570: 72 65 71 75 65 73 74 20 3d 20 31 3b 0a 0a 20 20 request = 1;..
4580: 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 if (objc < 2)
4590: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
45a0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
45b0: 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 20 3f 6f bjv, "channel ?o
45c0: 70 74 69 6f 6e 73 3f 22 29 3b 0a 09 72 65 74 75 ptions?");..retu
45d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
45e0: 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 }.. chan =
45f0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
4600: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
4610: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
4620: 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c [1], NULL), NULL
4630: 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 );. if (chan
4640: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
4650: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
4660: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4670: 7d 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 }. if (channe
4680: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 lTypeVersion ==
4690: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
46a0: 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a ION_2) {../*.. *
46b0: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
46c0: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
46d0: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a most channel.. *
46e0: 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 /..chan = Tcl_Ge
46f0: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
4700: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f );. }.. fo
4710: 72 20 28 69 64 78 20 3d 20 32 3b 20 69 64 78 20 r (idx = 2; idx
4720: 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 20 7b < objc; idx++) {
4730: 0a 09 63 68 61 72 20 2a 6f 70 74 20 3d 20 54 63 ..char *opt = Tc
4740: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
4750: 62 6a 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 4e 55 bj(objv[idx], NU
4760: 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f 70 74 5b 30 LL);...if (opt[0
4770: 5d 20 21 3d 20 27 2d 27 29 0a 09 20 20 20 20 62 ] != '-').. b
4780: 72 65 61 6b 3b 0a 0a 09 4f 50 54 53 54 52 28 20 reak;...OPTSTR(
4790: 22 2d 63 61 64 69 72 22 2c 20 43 41 64 69 72 29 "-cadir", CAdir)
47a0: 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 66 ;..OPTSTR( "-caf
47b0: 69 6c 65 22 2c 20 43 41 66 69 6c 65 29 3b 0a 09 ile", CAfile);..
47c0: 4f 50 54 53 54 52 28 20 22 2d 63 65 72 74 66 69 OPTSTR( "-certfi
47d0: 6c 65 22 2c 20 63 65 72 74 29 3b 0a 09 4f 50 54 le", cert);..OPT
47e0: 53 54 52 28 20 22 2d 63 69 70 68 65 72 22 2c 20 STR( "-cipher",
47f0: 63 69 70 68 65 72 73 29 3b 0a 09 4f 50 54 4f 42 ciphers);..OPTOB
4800: 4a 28 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 J( "-command", s
4810: 63 72 69 70 74 29 3b 0a 09 4f 50 54 53 54 52 28 cript);..OPTSTR(
4820: 20 22 2d 6b 65 79 66 69 6c 65 22 2c 20 6b 65 79 "-keyfile", key
4830: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 6d 6f );..OPTSTR( "-mo
4840: 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 3b 0a 09 4f del", model);..O
4850: 50 54 4f 42 4a 28 20 22 2d 70 61 73 73 77 6f 72 PTOBJ( "-passwor
4860: 64 22 2c 20 70 61 73 73 77 6f 72 64 29 3b 0a 09 d", password);..
4870: 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 69 OPTBOOL( "-requi
4880: 72 65 22 2c 20 72 65 71 75 69 72 65 29 3b 0a 09 re", require);..
4890: 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 65 71 75 65 OPTBOOL( "-reque
48a0: 73 74 22 2c 20 72 65 71 75 65 73 74 29 3b 0a 09 st", request);..
48b0: 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 65 72 76 65 OPTBOOL( "-serve
48c0: 72 22 2c 20 73 65 72 76 65 72 29 3b 0a 0a 09 4f r", server);...O
48d0: 50 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 32 22 2c PTBOOL( "-ssl2",
48e0: 20 73 73 6c 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c ssl2);..OPTBOOL
48f0: 28 20 22 2d 73 73 6c 33 22 2c 20 73 73 6c 33 29 ( "-ssl3", ssl3)
4900: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c ;..OPTBOOL( "-tl
4910: 73 31 22 2c 20 74 6c 73 31 29 3b 0a 0a 09 4f 50 s1", tls1);...OP
4920: 54 42 41 44 28 20 22 6f 70 74 69 6f 6e 22 2c 20 TBAD( "option",
4930: 22 2d 63 61 64 69 72 2c 20 2d 63 61 66 69 6c 65 "-cadir, -cafile
4940: 2c 20 2d 63 65 72 74 66 69 6c 65 2c 20 2d 63 69 , -certfile, -ci
4950: 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64 2c 20 pher, -command,
4960: 2d 6b 65 79 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c -keyfile, -model
4970: 2c 20 2d 70 61 73 73 77 6f 72 64 2c 20 2d 72 65 , -password, -re
4980: 71 75 69 72 65 2c 20 2d 72 65 71 75 65 73 74 2c quire, -request,
4990: 20 2d 73 65 72 76 65 72 2c 20 2d 73 73 6c 32 2c -server, -ssl2,
49a0: 20 2d 73 73 6c 33 2c 20 6f 72 20 2d 74 6c 73 31 -ssl3, or -tls1
49b0: 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 54 43 4c ");...return TCL
49c0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
49d0: 20 20 69 66 20 28 72 65 71 75 65 73 74 29 09 20 if (request).
49e0: 20 20 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c verify |= SSL
49f0: 5f 56 45 52 49 46 59 5f 43 4c 49 45 4e 54 5f 4f _VERIFY_CLIENT_O
4a00: 4e 43 45 20 7c 20 53 53 4c 5f 56 45 52 49 46 59 NCE | SSL_VERIFY
4a10: 5f 50 45 45 52 3b 0a 20 20 20 20 69 66 20 28 72 _PEER;. if (r
4a20: 65 71 75 65 73 74 20 26 26 20 72 65 71 75 69 72 equest && requir
4a30: 65 29 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c e) verify |= SSL
4a40: 5f 56 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f _VERIFY_FAIL_IF_
4a50: 4e 4f 5f 50 45 45 52 5f 43 45 52 54 3b 0a 20 20 NO_PEER_CERT;.
4a60: 20 20 69 66 20 28 76 65 72 69 66 79 20 3d 3d 20 if (verify ==
4a70: 30 29 09 76 65 72 69 66 79 20 3d 20 53 53 4c 5f 0).verify = SSL_
4a80: 56 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a 20 20 VERIFY_NONE;..
4a90: 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 32 proto |= (ssl2
4aa0: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c ? TLS_PROTO_SSL
4ab0: 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 2 : 0);. prot
4ac0: 6f 20 7c 3d 20 28 73 73 6c 33 20 3f 20 54 4c 53 o |= (ssl3 ? TLS
4ad0: 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 30 29 _PROTO_SSL3 : 0)
4ae0: 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 ;. proto |= (
4af0: 74 6c 73 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f tls1 ? TLS_PROTO
4b00: 5f 54 4c 53 31 20 3a 20 30 29 3b 0a 0a 20 20 20 _TLS1 : 0);..
4b10: 20 2f 2a 20 72 65 73 65 74 20 74 6f 20 4e 55 4c /* reset to NUL
4b20: 4c 20 69 66 20 62 6c 61 6e 6b 20 73 74 72 69 6e L if blank strin
4b30: 67 20 70 72 6f 76 69 64 65 64 20 2a 2f 0a 20 20 g provided */.
4b40: 20 20 69 66 20 28 63 65 72 74 20 26 26 20 21 2a if (cert && !*
4b50: 63 65 72 74 29 09 09 63 65 72 74 09 3d 20 4e 55 cert)..cert.= NU
4b60: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 6b 65 79 20 LL;. if (key
4b70: 26 26 20 21 2a 6b 65 79 29 09 09 6b 65 79 09 3d && !*key)..key.=
4b80: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 63 NULL;. if (c
4b90: 69 70 68 65 72 73 20 26 26 20 21 2a 63 69 70 68 iphers && !*ciph
4ba0: 65 72 73 29 09 63 69 70 68 65 72 73 09 3d 20 4e ers).ciphers.= N
4bb0: 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 66 ULL;. if (CAf
4bc0: 69 6c 65 20 26 26 20 21 2a 43 41 66 69 6c 65 29 ile && !*CAfile)
4bd0: 09 43 41 66 69 6c 65 09 3d 20 4e 55 4c 4c 3b 0a .CAfile.= NULL;.
4be0: 20 20 20 20 69 66 20 28 43 41 64 69 72 20 26 26 if (CAdir &&
4bf0: 20 21 2a 43 41 64 69 72 29 09 43 41 64 69 72 09 !*CAdir).CAdir.
4c00: 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 = NULL;.. /*
4c10: 6e 65 77 20 53 53 4c 20 73 74 61 74 65 20 2a 2f new SSL state */
4c20: 0a 20 20 20 20 73 74 61 74 65 50 74 72 09 09 3d . statePtr..=
4c30: 20 28 53 74 61 74 65 20 2a 29 20 54 63 6c 5f 41 (State *) Tcl_A
4c40: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 lloc((unsigned)
4c50: 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 3b 0a sizeof(State));.
4c60: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 statePtr->se
4c70: 6c 66 09 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 lf.= (Tcl_Channe
4c80: 6c 29 4e 55 4c 4c 3b 0a 20 20 20 20 73 74 61 74 l)NULL;. stat
4c90: 65 50 74 72 2d 3e 74 69 6d 65 72 09 3d 20 28 54 ePtr->timer.= (T
4ca0: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 4e 55 cl_TimerToken)NU
4cb0: 4c 4c 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 LL;.. statePt
4cc0: 72 2d 3e 66 6c 61 67 73 09 3d 20 66 6c 61 67 73 r->flags.= flags
4cd0: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
4ce0: 77 61 74 63 68 4d 61 73 6b 09 3d 20 30 3b 0a 20 watchMask.= 0;.
4cf0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 6d 6f 64 statePtr->mod
4d00: 65 09 3d 20 30 3b 0a 0a 20 20 20 20 73 74 61 74 e.= 0;.. stat
4d10: 65 50 74 72 2d 3e 69 6e 74 65 72 70 09 3d 20 69 ePtr->interp.= i
4d20: 6e 74 65 72 70 3b 0a 20 20 20 20 73 74 61 74 65 nterp;. state
4d30: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 09 3d 20 Ptr->callback.=
4d40: 28 54 63 6c 5f 4f 62 6a 20 2a 29 30 3b 0a 20 20 (Tcl_Obj *)0;.
4d50: 20 20 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 statePtr->pass
4d60: 77 6f 72 64 09 3d 20 28 54 63 6c 5f 4f 62 6a 20 word.= (Tcl_Obj
4d70: 2a 29 30 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 *)0;.. stateP
4d80: 74 72 2d 3e 76 66 6c 61 67 73 09 3d 20 76 65 72 tr->vflags.= ver
4d90: 69 66 79 3b 0a 20 20 20 20 73 74 61 74 65 50 74 ify;. statePt
4da0: 72 2d 3e 73 73 6c 09 3d 20 28 53 53 4c 2a 29 30 r->ssl.= (SSL*)0
4db0: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
4dc0: 63 74 78 09 3d 20 28 53 53 4c 5f 43 54 58 2a 29 ctx.= (SSL_CTX*)
4dd0: 30 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 0;. statePtr-
4de0: 3e 62 69 6f 09 3d 20 28 42 49 4f 2a 29 30 3b 0a >bio.= (BIO*)0;.
4df0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 5f statePtr->p_
4e00: 62 69 6f 09 3d 20 28 42 49 4f 2a 29 30 3b 0a 0a bio.= (BIO*)0;..
4e10: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 statePtr->er
4e20: 72 09 3d 20 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 r.= "";.. /*
4e30: 61 6c 6c 6f 63 61 74 65 20 73 63 72 69 70 74 20 allocate script
4e40: 2a 2f 0a 20 20 20 20 69 66 20 28 73 63 72 69 70 */. if (scrip
4e50: 74 29 20 7b 0a 09 63 68 61 72 20 2a 74 6d 70 20 t) {..char *tmp
4e60: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
4e70: 72 6f 6d 4f 62 6a 28 73 63 72 69 70 74 2c 20 4e romObj(script, N
4e80: 55 4c 4c 29 3b 0a 09 69 66 20 28 74 6d 70 20 26 ULL);..if (tmp &
4e90: 26 20 2a 74 6d 70 29 20 7b 0a 09 20 20 20 20 73 & *tmp) {.. s
4ea0: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
4eb0: 6b 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 k = Tcl_Duplicat
4ec0: 65 4f 62 6a 28 73 63 72 69 70 74 29 3b 0a 09 20 eObj(script);..
4ed0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f Tcl_IncrRefCo
4ee0: 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 unt(statePtr->ca
4ef0: 6c 6c 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 llback);..}.
4f00: 7d 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 }.. /* alloca
4f10: 74 65 20 70 61 73 73 77 6f 72 64 20 2a 2f 0a 20 te password */.
4f20: 20 20 20 69 66 20 28 70 61 73 73 77 6f 72 64 29 if (password)
4f30: 20 7b 0a 09 63 68 61 72 20 2a 74 6d 70 20 3d 20 {..char *tmp =
4f40: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
4f50: 6d 4f 62 6a 28 70 61 73 73 77 6f 72 64 2c 20 4e mObj(password, N
4f60: 55 4c 4c 29 3b 0a 09 69 66 20 28 74 6d 70 20 26 ULL);..if (tmp &
4f70: 26 20 2a 74 6d 70 29 20 7b 0a 09 20 20 20 20 73 & *tmp) {.. s
4f80: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 tatePtr->passwor
4f90: 64 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 d = Tcl_Duplicat
4fa0: 65 4f 62 6a 28 70 61 73 73 77 6f 72 64 29 3b 0a eObj(password);.
4fb0: 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 . Tcl_IncrRef
4fc0: 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e Count(statePtr->
4fd0: 70 61 73 73 77 6f 72 64 29 3b 0a 09 7d 0a 20 20 password);..}.
4fe0: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 }.. if (mod
4ff0: 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 el != NULL) {..i
5000: 6e 74 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 65 74 nt mode;../* Get
5010: 20 74 68 65 20 22 6d 6f 64 65 6c 22 20 63 6f 6e the "model" con
5020: 74 65 78 74 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 text */..chan =
5030: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
5040: 6e 74 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d nterp, model, &m
5050: 6f 64 65 29 3b 0a 09 69 66 20 28 63 68 61 6e 20 ode);..if (chan
5060: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
5070: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 6c NULL) {.. Tl
5080: 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 s_Free((char *)
5090: 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 statePtr);..
50a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
50b0: 3b 0a 09 7d 0a 09 69 66 20 28 63 68 61 6e 6e 65 ;..}..if (channe
50c0: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 lTypeVersion ==
50d0: 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TLS_CHANNEL_VERS
50e0: 49 4f 4e 5f 32 29 20 7b 0a 09 20 20 20 20 2f 2a ION_2) {.. /*
50f0: 0a 09 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 .. * Make su
5100: 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e re to operate on
5110: 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 the topmost cha
5120: 6e 6e 65 6c 0a 09 20 20 20 20 20 2a 2f 0a 09 20 nnel.. */..
5130: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
5140: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
5150: 29 3b 0a 09 7d 0a 09 69 66 20 28 54 63 6c 5f 47 );..}..if (Tcl_G
5160: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 etChannelType(ch
5170: 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e an) != Tls_Chann
5180: 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 20 20 20 elType()) {..
5190: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
51a0: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 t(interp, "bad c
51b0: 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a 09 09 20 20 hannel \"",...
51c0: 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c Tcl_GetChannel
51d0: 4e 61 6d 65 28 63 68 61 6e 29 2c 20 22 5c 22 3a Name(chan), "\":
51e0: 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e not a TLS chann
51f0: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 el", NULL);..
5200: 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 Tls_Free((char
5210: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20 *) statePtr);..
5220: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
5230: 52 4f 52 3b 0a 09 7d 0a 09 63 74 78 20 3d 20 28 ROR;..}..ctx = (
5240: 28 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 65 74 (State *)Tcl_Get
5250: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 ChannelInstanceD
5260: 61 74 61 28 63 68 61 6e 29 29 2d 3e 63 74 78 3b ata(chan))->ctx;
5270: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69 . } else {..i
5280: 66 20 28 28 63 74 78 20 3d 20 43 54 58 5f 49 6e f ((ctx = CTX_In
5290: 69 74 28 73 74 61 74 65 50 74 72 2c 20 70 72 6f it(statePtr, pro
52a0: 74 6f 2c 20 6b 65 79 2c 20 63 65 72 74 2c 20 43 to, key, cert, C
52b0: 41 64 69 72 2c 20 43 41 66 69 6c 65 2c 20 63 69 Adir, CAfile, ci
52c0: 70 68 65 72 73 29 29 0a 09 20 20 20 20 3d 3d 20 phers)).. ==
52d0: 28 53 53 4c 5f 43 54 58 2a 29 30 29 20 7b 0a 09 (SSL_CTX*)0) {..
52e0: 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63 68 Tls_Free((ch
52f0: 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b ar *) statePtr);
5300: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
5310: 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d _ERROR;..}. }
5320: 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
5330: 63 74 78 20 3d 20 63 74 78 3b 0a 0a 20 20 20 20 ctx = ctx;..
5340: 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 6e 65 65 /*. * We nee
5350: 64 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 74 d to make sure t
5360: 68 61 74 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 hat the channel
5370: 77 6f 72 6b 73 20 69 6e 20 62 69 6e 61 72 79 20 works in binary
5380: 28 66 6f 72 20 74 68 65 0a 20 20 20 20 20 2a 20 (for the. *
5390: 65 6e 63 72 79 70 74 69 6f 6e 20 6e 6f 74 20 74 encryption not t
53a0: 6f 20 67 65 74 20 67 6f 6f 66 65 64 20 75 70 29 o get goofed up)
53b0: 2e 0a 20 20 20 20 20 2a 20 57 65 20 6f 6e 6c 79 .. * We only
53c0: 20 77 61 6e 74 20 74 6f 20 61 64 6a 75 73 74 20 want to adjust
53d0: 74 68 65 20 62 75 66 66 65 72 69 6e 67 20 69 6e the buffering in
53e0: 20 70 72 65 2d 76 32 20 63 68 61 6e 6e 65 6c 73 pre-v2 channels
53f0: 2c 20 77 68 65 72 65 0a 20 20 20 20 20 2a 20 65 , where. * e
5400: 61 63 68 20 63 68 61 6e 6e 65 6c 20 69 6e 20 74 ach channel in t
5410: 68 65 20 73 74 61 63 6b 20 6d 61 69 6e 74 61 69 he stack maintai
5420: 6e 65 64 20 69 74 73 20 6f 77 6e 20 62 75 66 66 ned its own buff
5430: 65 72 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 ers.. */.
5440: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f Tcl_SetChannelO
5450: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 ption(interp, ch
5460: 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f an, "-translatio
5470: 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 n", "binary");.
5480: 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 if (channelTy
5490: 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 peVersion == TLS
54a0: 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e _CHANNEL_VERSION
54b0: 5f 31 29 20 7b 0a 09 54 63 6c 5f 53 65 74 43 68 _1) {..Tcl_SetCh
54c0: 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 annelOption(inte
54d0: 72 70 2c 20 63 68 61 6e 2c 20 22 2d 62 75 66 66 rp, chan, "-buff
54e0: 65 72 69 6e 67 22 2c 20 22 6e 6f 6e 65 22 29 3b ering", "none");
54f0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
5500: 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 channelTypeVersi
5510: 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 on == TLS_CHANNE
5520: 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 L_VERSION_2) {..
5530: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
5540: 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 Tcl_StackChanne
5550: 6c 28 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68 l(interp, Tls_Ch
5560: 61 6e 6e 65 6c 54 79 70 65 28 29 2c 0a 09 09 28 annelType(),...(
5570: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
5580: 65 50 74 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 ePtr, (TCL_READA
5590: 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 BLE | TCL_WRITAB
55a0: 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 LE), chan);.
55b0: 7d 20 65 6c 73 65 20 7b 0a 09 73 74 61 74 65 50 } else {..stateP
55c0: 74 72 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b tr->self = chan;
55d0: 0a 09 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e ..Tcl_StackChann
55e0: 65 6c 28 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 el(interp, Tls_C
55f0: 68 61 6e 6e 65 6c 54 79 70 65 28 29 2c 0a 09 09 hannelType(),...
5600: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
5610: 74 65 50 74 72 2c 20 28 54 43 4c 5f 52 45 41 44 tePtr, (TCL_READ
5620: 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 ABLE | TCL_WRITA
5630: 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 20 20 20 BLE), chan);.
5640: 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }. if (state
5650: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
5660: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
5670: 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4e 6f 20 75 73 {../*.. * No us
5680: 65 20 6f 66 20 54 63 6c 5f 45 76 65 6e 74 75 61 e of Tcl_Eventua
5690: 6c 6c 79 46 72 65 65 20 62 65 63 61 75 73 65 20 llyFree because
56a0: 6e 6f 20 70 6f 73 73 69 62 6c 65 20 54 63 6c 5f no possible Tcl_
56b0: 50 72 65 73 65 72 76 65 2e 0a 09 20 2a 2f 0a 09 Preserve... */..
56c0: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
56d0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 ) statePtr);..re
56e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
56f0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 }.. /*.
5700: 20 20 20 2a 20 53 53 4c 20 49 6e 69 74 69 61 6c * SSL Initial
5710: 69 7a 61 74 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a ization. */.
5720: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 . statePtr->s
5730: 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 73 74 61 sl = SSL_new(sta
5740: 74 65 50 74 72 2d 3e 63 74 78 29 3b 0a 20 20 20 tePtr->ctx);.
5750: 20 69 66 20 28 21 73 74 61 74 65 50 74 72 2d 3e if (!statePtr->
5760: 73 73 6c 29 20 7b 0a 09 2f 2a 20 53 53 4c 20 6c ssl) {../* SSL l
5770: 69 62 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a ibrary error */.
5780: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
5790: 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 t(interp, "could
57a0: 6e 27 74 20 63 6f 6e 73 74 72 75 63 74 20 73 73 n't construct ss
57b0: 6c 20 73 65 73 73 69 6f 6e 3a 20 22 2c 20 52 45 l session: ", RE
57c0: 41 53 4f 4e 28 29 2c 0a 09 09 28 63 68 61 72 20 ASON(),...(char
57d0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 6c 73 5f 46 *) NULL);..Tls_F
57e0: 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 ree((char *) sta
57f0: 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 tePtr);..return
5800: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5810: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
5820: 53 53 4c 20 43 61 6c 6c 62 61 63 6b 73 0a 20 20 SSL Callbacks.
5830: 20 20 20 2a 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 */.. SSL_s
5840: 65 74 5f 61 70 70 5f 64 61 74 61 28 73 74 61 74 et_app_data(stat
5850: 65 50 74 72 2d 3e 73 73 6c 2c 20 28 56 4f 49 44 ePtr->ssl, (VOID
5860: 20 2a 29 73 74 61 74 65 50 74 72 29 3b 09 2f 2a *)statePtr);./*
5870: 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 6f 20 75 point back to u
5880: 73 20 2a 2f 0a 0a 20 20 20 20 53 53 4c 5f 73 65 s */.. SSL_se
5890: 74 5f 76 65 72 69 66 79 28 73 74 61 74 65 50 74 t_verify(statePt
58a0: 72 2d 3e 73 73 6c 2c 20 76 65 72 69 66 79 2c 20 r->ssl, verify,
58b0: 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 29 3b VerifyCallback);
58c0: 0a 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 .. SSL_CTX_se
58d0: 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 28 t_info_callback(
58e0: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 49 statePtr->ctx, I
58f0: 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 nfoCallback);..
5900: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 54 63 6c /* Create Tcl
5910: 5f 43 68 61 6e 6e 65 6c 20 42 49 4f 20 48 61 6e _Channel BIO Han
5920: 64 6c 65 72 20 2a 2f 0a 20 20 20 20 73 74 61 74 dler */. stat
5930: 65 50 74 72 2d 3e 70 5f 62 69 6f 09 3d 20 42 49 ePtr->p_bio.= BI
5940: 4f 5f 6e 65 77 5f 74 63 6c 28 73 74 61 74 65 50 O_new_tcl(stateP
5950: 74 72 2c 20 42 49 4f 5f 43 4c 4f 53 45 29 3b 0a tr, BIO_CLOSE);.
5960: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 62 69 statePtr->bi
5970: 6f 09 3d 20 42 49 4f 5f 6e 65 77 28 42 49 4f 5f o.= BIO_new(BIO_
5980: 66 5f 73 73 6c 28 29 29 3b 0a 0a 20 20 20 20 69 f_ssl());.. i
5990: 66 20 28 73 65 72 76 65 72 29 20 7b 0a 09 73 74 f (server) {..st
59a0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
59b0: 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 52 3b TLS_TCL_SERVER;
59c0: 0a 09 53 53 4c 5f 73 65 74 5f 61 63 63 65 70 74 ..SSL_set_accept
59d0: 5f 73 74 61 74 65 28 73 74 61 74 65 50 74 72 2d _state(statePtr-
59e0: 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 >ssl);. } els
59f0: 65 20 7b 0a 09 53 53 4c 5f 73 65 74 5f 63 6f 6e e {..SSL_set_con
5a00: 6e 65 63 74 5f 73 74 61 74 65 28 73 74 61 74 65 nect_state(state
5a10: 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d Ptr->ssl);. }
5a20: 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 62 69 6f . SSL_set_bio
5a30: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
5a40: 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 2c statePtr->p_bio,
5a50: 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f statePtr->p_bio
5a60: 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 5f 73 );. BIO_set_s
5a70: 73 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f sl(statePtr->bio
5a80: 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c , statePtr->ssl,
5a90: 20 42 49 4f 5f 43 4c 4f 53 45 29 3b 0a 0a 20 20 BIO_CLOSE);..
5aa0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 45 6e 64 20 /*. * End
5ab0: 6f 66 20 53 53 4c 20 49 6e 69 74 0a 20 20 20 20 of SSL Init.
5ac0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 */. Tcl_SetR
5ad0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 esult(interp, (c
5ae0: 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 43 68 har *) Tcl_GetCh
5af0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
5b00: 74 72 2d 3e 73 65 6c 66 29 2c 0a 09 20 20 20 20 tr->self),..
5b10: 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 TCL_VOLATILE);.
5b20: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
5b30: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
5b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
5b80: 2a 0a 20 2a 20 43 54 58 5f 49 6e 69 74 20 2d 2d *. * CTX_Init --
5b90: 20 63 6f 6e 73 74 72 75 63 74 20 61 20 53 53 4c construct a SSL
5ba0: 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 0a 20 2a _CTX instance. *
5bb0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
5bc0: 41 20 76 61 6c 69 64 20 53 53 4c 5f 43 54 58 20 A valid SSL_CTX
5bd0: 69 6e 73 74 61 6e 63 65 20 6f 72 20 4e 55 4c 4c instance or NULL
5be0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
5bf0: 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 ects:. *.constru
5c00: 63 74 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 cts SSL context
5c10: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d (CTX). *. *-----
5c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
5c60: 2a 2f 0a 0a 73 74 61 74 69 63 20 53 53 4c 5f 43 */..static SSL_C
5c70: 54 58 20 2a 0a 43 54 58 5f 49 6e 69 74 28 73 74 TX *.CTX_Init(st
5c80: 61 74 65 50 74 72 2c 20 70 72 6f 74 6f 2c 20 6b atePtr, proto, k
5c90: 65 79 2c 20 63 65 72 74 2c 20 43 41 64 69 72 2c ey, cert, CAdir,
5ca0: 20 43 41 66 69 6c 65 2c 20 63 69 70 68 65 72 73 CAfile, ciphers
5cb0: 29 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 ). State *sta
5cc0: 74 65 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 70 tePtr;. int p
5cd0: 72 6f 74 6f 3b 0a 20 20 20 20 63 68 61 72 20 2a roto;. char *
5ce0: 6b 65 79 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 key;. char *c
5cf0: 65 72 74 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 ert;. char *C
5d00: 41 64 69 72 3b 0a 20 20 20 20 63 68 61 72 20 2a Adir;. char *
5d10: 43 41 66 69 6c 65 3b 0a 20 20 20 20 63 68 61 72 CAfile;. char
5d20: 20 2a 63 69 70 68 65 72 73 3b 0a 7b 0a 20 20 20 *ciphers;.{.
5d30: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
5d40: 65 72 70 20 3d 20 73 74 61 74 65 50 74 72 2d 3e erp = statePtr->
5d50: 69 6e 74 65 72 70 3b 0a 20 20 20 20 53 53 4c 5f interp;. SSL_
5d60: 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b CTX *ctx = NULL;
5d70: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 . Tcl_DString
5d80: 20 64 73 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 ds;. Tcl_DSt
5d90: 72 69 6e 67 20 64 73 31 3b 0a 20 20 20 20 69 6e ring ds1;. in
5da0: 74 20 6f 66 66 20 3d 20 30 3b 0a 0a 20 20 20 20 t off = 0;..
5db0: 2f 2a 20 63 72 65 61 74 65 20 53 53 4c 20 63 6f /* create SSL co
5dc0: 6e 74 65 78 74 20 2a 2f 0a 23 69 66 20 21 64 65 ntext */.#if !de
5dd0: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 26 fined(NO_SSL2) &
5de0: 26 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 & !defined(NO_SS
5df0: 4c 33 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 L3). if (ENAB
5e00: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
5e10: 52 4f 54 4f 5f 53 53 4c 32 29 20 26 26 0a 09 45 ROTO_SSL2) &&..E
5e20: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c NABLED(proto, TL
5e30: 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b S_PROTO_SSL3)) {
5e40: 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
5e50: 6e 65 77 28 53 53 4c 76 32 33 5f 6d 65 74 68 6f new(SSLv23_metho
5e60: 64 28 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 d());. } else
5e70: 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28 .#endif. if (
5e80: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
5e90: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 29 20 LS_PROTO_SSL2))
5ea0: 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f {.#if defined(NO
5eb0: 5f 53 53 4c 32 29 0a 09 54 63 6c 5f 41 70 70 65 _SSL2)..Tcl_Appe
5ec0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
5ed0: 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 "protocol not s
5ee0: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
5ef0: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 ;..return (SSL_C
5f00: 54 58 20 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 TX *)0;.#else..c
5f10: 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 tx = SSL_CTX_new
5f20: 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 (SSLv2_method())
5f30: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 ;.#endif. } e
5f40: 6c 73 65 20 69 66 20 28 45 4e 41 42 4c 45 44 28 lse if (ENABLED(
5f50: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
5f60: 5f 54 4c 53 31 29 29 20 7b 0a 09 63 74 78 20 3d _TLS1)) {..ctx =
5f70: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 SSL_CTX_new(TLS
5f80: 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 20 v1_method());.
5f90: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 4e 41 } else if (ENA
5fa0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
5fb0: 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b 0a 23 PROTO_SSL3)) {.#
5fc0: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
5fd0: 4c 33 29 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 L3)..Tcl_AppendR
5fe0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
5ff0: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
6000: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
6010: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
6020: 2a 29 30 3b 0a 23 65 6c 73 65 0a 09 63 74 78 20 *)0;.#else..ctx
6030: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53 = SSL_CTX_new(SS
6040: 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 23 Lv3_method());.#
6050: 65 6e 64 69 66 0a 20 20 20 20 7d 20 65 6c 73 65 endif. } else
6060: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
6070: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 6e 6f sult(interp, "no
6080: 20 76 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c 20 valid protocol
6090: 73 65 6c 65 63 74 65 64 22 2c 20 4e 55 4c 4c 29 selected", NULL)
60a0: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 ;..return (SSL_C
60b0: 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 20 20 TX *)0;. }.
60c0: 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 off |= (ENABLE
60d0: 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f D(proto, TLS_PRO
60e0: 54 4f 5f 54 4c 53 31 29 20 3f 20 30 20 3a 20 53 TO_TLS1) ? 0 : S
60f0: 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 29 3b SL_OP_NO_TLSv1);
6100: 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 45 4e 41 . off |= (ENA
6110: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
6120: 50 52 4f 54 4f 5f 53 53 4c 32 29 20 3f 20 30 20 PROTO_SSL2) ? 0
6130: 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 : SSL_OP_NO_SSLv
6140: 32 29 3b 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 2);. off |= (
6150: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
6160: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 20 3f LS_PROTO_SSL3) ?
6170: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 0 : SSL_OP_NO_S
6180: 53 4c 76 33 29 3b 0a 0a 20 20 20 20 53 53 4c 5f SLv3);.. SSL_
6190: 43 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 CTX_set_app_data
61a0: 28 20 63 74 78 2c 20 28 56 4f 49 44 2a 29 69 6e ( ctx, (VOID*)in
61b0: 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d 62 terp);./* rememb
61c0: 65 72 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 er the interpret
61d0: 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 er */. SSL_CT
61e0: 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 X_set_options( c
61f0: 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 3b tx, SSL_OP_ALL);
6200: 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 ./* all SSL bug
6210: 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 workarounds */.
6220: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f SSL_CTX_set_o
6230: 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f 66 66 ptions( ctx, off
6240: 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 );./* all SSL bu
6250: 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f g workarounds */
6260: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 73 . SSL_CTX_ses
6270: 73 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 s_set_cache_size
6280: 28 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a 20 20 ( ctx, 128);..
6290: 20 20 69 66 20 28 63 69 70 68 65 72 73 20 21 3d if (ciphers !=
62a0: 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 58 5f NULL)..SSL_CTX_
62b0: 73 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 set_cipher_list(
62c0: 63 74 78 2c 20 63 69 70 68 65 72 73 29 3b 0a 0a ctx, ciphers);..
62d0: 20 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d 65 20 /* set some
62e0: 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 20 20 callbacks */.
62f0: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 SSL_CTX_set_def
6300: 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 28 63 ault_passwd_cb(c
6310: 74 78 2c 20 50 61 73 73 77 6f 72 64 43 61 6c 6c tx, PasswordCall
6320: 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 66 20 back);..#ifndef
6330: 42 53 41 46 45 0a 20 20 20 20 53 53 4c 5f 43 54 BSAFE. SSL_CT
6340: 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 X_set_default_pa
6350: 73 73 77 64 5f 63 62 5f 75 73 65 72 64 61 74 61 sswd_cb_userdata
6360: 28 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 73 74 (ctx, (void *)st
6370: 61 74 65 50 74 72 29 3b 0a 23 65 6e 64 69 66 0a atePtr);.#endif.
6380: 0a 23 69 66 6e 64 65 66 20 4e 4f 5f 44 48 0a 20 .#ifndef NO_DH.
6390: 20 20 20 7b 0a 09 44 48 2a 20 64 68 20 3d 20 67 {..DH* dh = g
63a0: 65 74 5f 64 68 35 31 32 28 29 3b 0a 09 53 53 4c et_dh512();..SSL
63b0: 5f 43 54 58 5f 73 65 74 5f 74 6d 70 5f 64 68 28 _CTX_set_tmp_dh(
63c0: 63 74 78 2c 20 64 68 29 3b 0a 09 44 48 5f 66 72 ctx, dh);..DH_fr
63d0: 65 65 28 64 68 29 3b 0a 20 20 20 20 7d 0a 23 65 ee(dh);. }.#e
63e0: 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 20 73 65 74 ndif.. /* set
63f0: 20 6f 75 72 20 63 65 72 74 69 66 69 63 61 74 65 our certificate
6400: 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 */. if (cert
6410: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c != NULL) {..Tcl
6420: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 _DStringInit(&ds
6430: 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 );...if (SSL_CTX
6440: 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 _use_certificate
6450: 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 _file(ctx, F2N(
6460: 63 65 72 74 2c 20 26 64 73 29 2c 0a 09 09 09 09 cert, &ds),.....
6470: 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 .SSL_FILETYPE_PE
6480: 4d 29 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 M) <= 0) {..
6490: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
64a0: 26 64 73 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 &ds);.. Tcl_A
64b0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
64c0: 72 70 2c 0a 09 09 09 20 20 20 20 20 22 75 6e 61 rp,.... "una
64d0: 62 6c 65 20 74 6f 20 73 65 74 20 63 65 72 74 69 ble to set certi
64e0: 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 63 ficate file ", c
64f0: 65 72 74 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 ert, ": ",....
6500: 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 REASON(), (ch
6510: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
6520: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
6530: 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tx);.. return
6540: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 (SSL_CTX *)0;..
6550: 7d 0a 0a 09 2f 2a 20 67 65 74 20 74 68 65 20 70 }.../* get the p
6560: 72 69 76 61 74 65 20 6b 65 79 20 61 73 73 6f 63 rivate key assoc
6570: 69 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 iated with this
6580: 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 09 certificate */..
6590: 69 66 20 28 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 if (key == NULL)
65a0: 20 6b 65 79 3d 63 65 72 74 3b 0a 0a 09 69 66 20 key=cert;...if
65b0: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 72 69 (SSL_CTX_use_Pri
65c0: 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 63 74 78 vateKey_file(ctx
65d0: 2c 20 46 32 4e 28 20 6b 65 79 2c 20 26 64 73 29 , F2N( key, &ds)
65e0: 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 ,......SSL_FILET
65f0: 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b YPE_PEM) <= 0) {
6600: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
6610: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 gFree(&ds);..
6620: 20 2f 2a 20 66 6c 75 73 68 20 74 68 65 20 70 61 /* flush the pa
6630: 73 73 70 68 72 61 73 65 20 77 68 69 63 68 20 6d ssphrase which m
6640: 69 67 68 74 20 62 65 20 6c 65 66 74 20 69 6e 20 ight be left in
6650: 74 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a 09 20 the result */..
6660: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
6670: 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 2c 20 54 (interp, NULL, T
6680: 43 4c 5f 53 54 41 54 49 43 29 3b 0a 09 20 20 20 CL_STATIC);..
6690: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
66a0: 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 t(interp,....
66b0: 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 "unable to set
66c0: 20 70 75 62 6c 69 63 20 6b 65 79 20 66 69 6c 65 public key file
66d0: 20 22 2c 20 6b 65 79 2c 20 22 20 22 2c 0a 09 09 ", key, " ",...
66e0: 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 . REASON(),
66f0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
6700: 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 . SSL_CTX_fre
6710: 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 e(ctx);.. ret
6720: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
6730: 3b 0a 09 7d 0a 09 54 63 6c 5f 44 53 74 72 69 6e ;..}..Tcl_DStrin
6740: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 2f 2a 20 gFree(&ds);../*
6750: 4e 6f 77 20 77 65 20 6b 6e 6f 77 20 74 68 61 74 Now we know that
6760: 20 61 20 6b 65 79 20 61 6e 64 20 63 65 72 74 20 a key and cert
6770: 68 61 76 65 20 62 65 65 6e 20 73 65 74 20 61 67 have been set ag
6780: 61 69 6e 73 74 0a 09 20 2a 20 74 68 65 20 53 53 ainst.. * the SS
6790: 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 69 66 L context */..if
67a0: 20 28 21 53 53 4c 5f 43 54 58 5f 63 68 65 63 6b (!SSL_CTX_check
67b0: 5f 70 72 69 76 61 74 65 5f 6b 65 79 28 63 74 78 _private_key(ctx
67c0: 29 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 )) {.. Tcl_Ap
67d0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
67e0: 70 2c 0a 09 09 09 20 20 20 20 20 22 70 72 69 76 p,.... "priv
67f0: 61 74 65 20 6b 65 79 20 64 6f 65 73 20 6e 6f 74 ate key does not
6800: 20 6d 61 74 63 68 20 74 68 65 20 63 65 72 74 69 match the certi
6810: 66 69 63 61 74 65 20 70 75 62 6c 69 63 20 6b 65 ficate public ke
6820: 79 22 2c 0a 09 09 09 20 20 20 20 20 28 63 68 61 y",.... (cha
6830: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 r *) NULL);..
6840: 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 SSL_CTX_free(ct
6850: 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 x);.. return
6860: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 7d (SSL_CTX *)0;..}
6870: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 63 . } else {..c
6880: 65 72 74 20 3d 20 28 63 68 61 72 2a 29 58 35 30 ert = (char*)X50
6890: 39 5f 67 65 74 5f 64 65 66 61 75 6c 74 5f 63 65 9_get_default_ce
68a0: 72 74 5f 66 69 6c 65 28 29 3b 0a 0a 09 69 66 20 rt_file();...if
68b0: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 (SSL_CTX_use_cer
68c0: 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 tificate_file(ct
68d0: 78 2c 20 63 65 72 74 2c 0a 09 09 09 09 09 53 53 x, cert,......SS
68e0: 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 L_FILETYPE_PEM)
68f0: 3c 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 20 <= 0) {.#if 0..
6900: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
6910: 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 ee(&ds);.. Tc
6920: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
6930: 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 nterp,.... "
6940: 75 6e 61 62 6c 65 20 74 6f 20 75 73 65 20 64 65 unable to use de
6950: 66 61 75 6c 74 20 63 65 72 74 69 66 69 63 61 74 fault certificat
6960: 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 2c 20 e file ", cert,
6970: 22 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 ": ",.... RE
6980: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
6990: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c NULL);.. SSL
69a0: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
69b0: 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c . return (SSL
69c0: 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 _CTX *)0;.#endif
69d0: 0a 09 7d 0a 20 20 20 20 7d 0a 09 0a 20 20 20 20 ..}. }...
69e0: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
69f0: 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 &ds);. Tcl_DS
6a00: 74 72 69 6e 67 49 6e 69 74 28 26 64 73 31 29 3b tringInit(&ds1);
6a10: 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f 43 54 . if (!SSL_CT
6a20: 58 5f 6c 6f 61 64 5f 76 65 72 69 66 79 5f 6c 6f X_load_verify_lo
6a30: 63 61 74 69 6f 6e 73 28 63 74 78 2c 20 46 32 4e cations(ctx, F2N
6a40: 28 43 41 66 69 6c 65 2c 20 26 64 73 29 2c 20 46 (CAfile, &ds), F
6a50: 32 4e 28 43 41 64 69 72 2c 20 26 64 73 31 29 29 2N(CAdir, &ds1))
6a60: 20 7c 7c 0a 09 21 53 53 4c 5f 43 54 58 5f 73 65 ||..!SSL_CTX_se
6a70: 74 5f 64 65 66 61 75 6c 74 5f 76 65 72 69 66 79 t_default_verify
6a80: 5f 70 61 74 68 73 28 63 74 78 29 29 20 7b 0a 23 _paths(ctx)) {.#
6a90: 69 66 20 30 0a 09 54 63 6c 5f 44 53 74 72 69 6e if 0..Tcl_DStrin
6aa0: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 54 63 6c gFree(&ds);..Tcl
6ab0: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 _DStringFree(&ds
6ac0: 31 29 3b 0a 09 2f 2a 20 44 6f 6e 27 74 20 63 75 1);../* Don't cu
6ad0: 72 72 65 6e 74 6c 79 20 63 61 72 65 20 69 66 20 rrently care if
6ae0: 74 68 69 73 20 66 61 69 6c 73 20 2a 2f 0a 09 54 this fails */..T
6af0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
6b00: 69 6e 74 65 72 70 2c 20 22 53 53 4c 20 64 65 66 interp, "SSL def
6b10: 61 75 6c 74 20 76 65 72 69 66 79 20 70 61 74 68 ault verify path
6b20: 73 3a 20 22 2c 0a 09 09 52 45 41 53 4f 4e 28 29 s: ",...REASON()
6b30: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
6b40: 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 ;..SSL_CTX_free(
6b50: 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 ctx);..return (S
6b60: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64 SL_CTX *)0;.#end
6b70: 69 66 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c if. }. SSL
6b80: 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f _CTX_set_client_
6b90: 43 41 5f 6c 69 73 74 28 63 74 78 2c 20 53 53 4c CA_list(ctx, SSL
6ba0: 5f 6c 6f 61 64 5f 63 6c 69 65 6e 74 5f 43 41 5f _load_client_CA_
6bb0: 66 69 6c 65 28 20 46 32 4e 28 43 41 66 69 6c 65 file( F2N(CAfile
6bc0: 2c 20 26 64 73 29 20 29 29 3b 0a 0a 20 20 20 20 , &ds) ));..
6bd0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
6be0: 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 &ds);. Tcl_DS
6bf0: 74 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b tringFree(&ds1);
6c00: 0a 20 20 20 20 72 65 74 75 72 6e 20 63 74 78 3b . return ctx;
6c10: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
6c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
6c60: 0a 20 2a 20 53 74 61 74 75 73 4f 62 6a 43 6d 64 . * StatusObjCmd
6c70: 20 2d 2d 20 72 65 74 75 72 6e 20 63 65 72 74 69 -- return certi
6c80: 66 69 63 61 74 65 20 66 6f 72 20 63 6f 6e 6e 65 ficate for conne
6c90: 63 74 65 64 20 70 65 65 72 2e 0a 20 2a 0a 20 2a cted peer.. *. *
6ca0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
6cb0: 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 tandard Tcl resu
6cc0: 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 lt.. *. * Side e
6cd0: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
6ce0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
6cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
6d30: 61 74 69 63 20 69 6e 74 0a 53 74 61 74 75 73 4f atic int.StatusO
6d40: 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 bjCmd(clientData
6d50: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
6d60: 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 objv). Client
6d70: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b Data clientData;
6d80: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f ./* Not used. */
6d90: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
6da0: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 *interp;. int
6db0: 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f objc;. Tcl_O
6dc0: 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj.*CONST objv[]
6dd0: 3b 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 ;.{. State *s
6de0: 74 61 74 65 50 74 72 3b 0a 20 20 20 20 58 35 30 tatePtr;. X50
6df0: 39 20 2a 70 65 65 72 3b 0a 20 20 20 20 54 63 6c 9 *peer;. Tcl
6e00: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 _Obj *objPtr;.
6e10: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 Tcl_Channel ch
6e20: 61 6e 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 68 an;. char *ch
6e30: 61 6e 6e 65 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 annelName, *ciph
6e40: 65 72 73 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 ers;. int mod
6e50: 65 3b 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 e;.. switch (
6e60: 6f 62 6a 63 29 20 7b 0a 09 63 61 73 65 20 32 3a objc) {..case 2:
6e70: 0a 09 20 20 20 20 63 68 61 6e 6e 65 6c 4e 61 6d .. channelNam
6e80: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
6e90: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d gFromObj(objv[1]
6ea0: 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 62 72 , NULL);.. br
6eb0: 65 61 6b 3b 0a 0a 09 63 61 73 65 20 33 3a 0a 09 eak;...case 3:..
6ec0: 20 20 20 20 69 66 20 28 21 73 74 72 63 6d 70 20 if (!strcmp
6ed0: 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 20 28 (Tcl_GetString (
6ee0: 6f 62 6a 76 5b 31 5d 29 2c 20 22 2d 6c 6f 63 61 objv[1]), "-loca
6ef0: 6c 22 29 29 20 7b 0a 09 09 63 68 61 6e 6e 65 6c l")) {...channel
6f00: 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 Name = Tcl_GetSt
6f10: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
6f20: 5b 32 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 09 62 72 [2], NULL);...br
6f30: 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 eak;.. }..
6f40: 20 2f 2a 20 65 6c 73 65 20 66 61 6c 6c 2e 2e 2e /* else fall...
6f50: 20 2a 2f 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 */..default:..
6f60: 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 Tcl_WrongNumA
6f70: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
6f80: 62 6a 76 2c 20 22 3f 2d 6c 6f 63 61 6c 3f 20 63 bjv, "?-local? c
6f90: 68 61 6e 6e 65 6c 22 29 3b 0a 09 20 20 20 20 72 hannel");.. r
6fa0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6fb0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e . }.. chan
6fc0: 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 = Tcl_GetChanne
6fd0: 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 l(interp, channe
6fe0: 6c 4e 61 6d 65 2c 20 26 6d 6f 64 65 29 3b 0a 20 lName, &mode);.
6ff0: 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 if (chan == (
7000: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
7010: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
7020: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
7030: 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 if (channelTyp
7040: 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f eVersion == TLS_
7050: 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f CHANNEL_VERSION_
7060: 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6b 2) {../*.. * Mak
7070: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
7080: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
7090: 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 63 channel.. */..c
70a0: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 han = Tcl_GetTop
70b0: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 Channel(chan);.
70c0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c }. if (Tcl
70d0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
70e0: 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 chan) != Tls_Cha
70f0: 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 54 nnelType()) {..T
7100: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
7110: 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 interp, "bad cha
7120: 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 nnel \"", Tcl_Ge
7130: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 tChannelName(cha
7140: 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 20 61 n),..."\": not a
7150: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e TLS channel", N
7160: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
7170: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
7180: 20 20 20 73 74 61 74 65 50 74 72 09 3d 20 28 53 statePtr.= (S
7190: 74 61 74 65 20 2a 29 20 54 63 6c 5f 47 65 74 43 tate *) Tcl_GetC
71a0: 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 hannelInstanceDa
71b0: 74 61 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 ta(chan);. if
71c0: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 0a 09 70 65 (objc == 2)..pe
71d0: 65 72 09 3d 20 53 53 4c 5f 67 65 74 5f 70 65 65 er.= SSL_get_pee
71e0: 72 5f 63 65 72 74 69 66 69 63 61 74 65 28 73 74 r_certificate(st
71f0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 atePtr->ssl);.
7200: 20 20 65 6c 73 65 0a 09 70 65 65 72 09 3d 20 53 else..peer.= S
7210: 53 4c 5f 67 65 74 5f 63 65 72 74 69 66 69 63 61 SL_get_certifica
7220: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c te(statePtr->ssl
7230: 29 3b 0a 20 20 20 20 69 66 20 28 70 65 65 72 29 );. if (peer)
7240: 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 6c 73 {..objPtr = Tls
7250: 5f 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e 74 65 _NewX509Obj(inte
7260: 72 70 2c 20 70 65 65 72 29 3b 0a 20 20 20 20 7d rp, peer);. }
7270: 20 65 6c 73 65 20 7b 0a 09 6f 62 6a 50 74 72 20 else {..objPtr
7280: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
7290: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d (0, NULL);. }
72a0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
72b0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 20 28 jAppendElement (
72c0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a interp, objPtr,.
72d0: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 . Tcl_NewStri
72e0: 6e 67 4f 62 6a 20 28 22 73 62 69 74 73 22 2c 20 ngObj ("sbits",
72f0: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 -1));. Tcl_Li
7300: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
7310: 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 nt (interp, objP
7320: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
7330: 49 6e 74 4f 62 6a 20 28 53 53 4c 5f 67 65 74 5f IntObj (SSL_get_
7340: 63 69 70 68 65 72 5f 62 69 74 73 20 28 73 74 61 cipher_bits (sta
7350: 74 65 50 74 72 2d 3e 73 73 6c 2c 20 4e 55 4c 4c tePtr->ssl, NULL
7360: 29 29 29 3b 0a 0a 20 20 20 20 63 69 70 68 65 72 )));.. cipher
7370: 73 20 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f 67 s = (char*)SSL_g
7380: 65 74 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 et_cipher(stateP
7390: 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 69 66 tr->ssl);. if
73a0: 20 28 63 69 70 68 65 72 73 20 21 3d 20 4e 55 4c (ciphers != NUL
73b0: 4c 20 26 26 20 73 74 72 63 6d 70 28 63 69 70 68 L && strcmp(ciph
73c0: 65 72 73 2c 20 22 28 4e 4f 4e 45 29 22 29 21 3d ers, "(NONE)")!=
73d0: 30 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 0) {..Tcl_ListOb
73e0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
73f0: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 nterp, objPtr,..
7400: 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 .Tcl_NewStringOb
7410: 6a 28 22 63 69 70 68 65 72 22 2c 20 2d 31 29 29 j("cipher", -1))
7420: 3b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 ;..Tcl_ListObjAp
7430: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
7440: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 rp, objPtr,...Tc
7450: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 53 l_NewStringObj(S
7460: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74 SL_get_cipher(st
7470: 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c 20 2d 31 atePtr->ssl), -1
7480: 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 ));. }. Tc
7490: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 l_SetObjResult(
74a0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
74b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
74c0: 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d OK;.}.../*. *---
74d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
74f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7510: 0a 20 2a 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 . *. * VersionOb
7520: 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 76 jCmd -- return v
7530: 65 72 73 69 6f 6e 20 73 74 72 69 6e 67 20 66 72 ersion string fr
7540: 6f 6d 20 4f 70 65 6e 53 53 4c 2e 0a 20 2a 0a 20 om OpenSSL.. *.
7550: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
7560: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
7570: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ult.. *. * Side
7580: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
7590: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
75a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
75d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
75e0: 74 61 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f tatic int.Versio
75f0: 6e 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 nObjCmd(clientDa
7600: 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 ta, interp, objc
7610: 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 , objv). Clie
7620: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
7630: 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 a;./* Not used.
7640: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 */. Tcl_Inter
7650: 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 p *interp;. i
7660: 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c nt objc;. Tcl
7670: 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 _Obj.*CONST objv
7680: 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 [];.{. Tcl_Ob
7690: 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 j *objPtr;..
76a0: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 objPtr = Tcl_New
76b0: 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 StringObj(OPENSS
76c0: 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c 20 L_VERSION_TEXT,
76d0: 2d 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 -1);.. Tcl_Se
76e0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
76f0: 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 p, objPtr);.
7700: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
7710: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
7720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
7760: 2a 20 4d 69 73 63 4f 62 6a 43 6d 64 20 2d 2d 20 * MiscObjCmd --
7770: 6d 69 73 63 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a misc commands. *
7780: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
7790: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 A standard Tcl r
77a0: 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 esult.. *. * Sid
77b0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
77c0: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
77d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
7810: 0a 73 74 61 74 69 63 20 69 6e 74 0a 4d 69 73 63 .static int.Misc
7820: 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 ObjCmd(clientDat
7830: 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c a, interp, objc,
7840: 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e objv). Clien
7850: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
7860: 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a ;./* Not used. *
7870: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 /. Tcl_Interp
7880: 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e *interp;. in
7890: 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f t objc;. Tcl_
78a0: 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj.*CONST objv[
78b0: 5d 3b 0a 7b 0a 20 20 20 20 63 6f 6e 73 74 20 63 ];.{. const c
78c0: 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 73 20 5b 5d har *commands []
78d0: 20 3d 20 7b 20 22 72 65 71 22 2c 20 4e 55 4c 4c = { "req", NULL
78e0: 20 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 63 6f 6d };. enum com
78f0: 6d 61 6e 64 20 7b 20 43 5f 52 45 51 2c 20 43 5f mand { C_REQ, C_
7900: 44 55 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 6e 74 DUMMY };. int
7910: 20 63 6d 64 3b 0a 0a 20 20 20 20 69 66 20 28 6f cmd;.. if (o
7920: 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f bjc < 2) {..Tcl_
7930: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
7940: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 73 erp, 1, objv, "s
7950: 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 72 67 73 3f ubcommand ?args?
7960: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
7970: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
7980: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 if (Tcl_GetInde
7990: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c xFromObj(interp,
79a0: 20 6f 62 6a 76 5b 31 5d 2c 20 63 6f 6d 6d 61 6e objv[1], comman
79b0: 64 73 2c 0a 09 20 20 20 20 22 63 6f 6d 6d 61 6e ds,.. "comman
79c0: 64 22 2c 20 30 2c 26 63 6d 64 29 20 21 3d 20 54 d", 0,&cmd) != T
79d0: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
79e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
79f0: 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 }.. switch ((
7a00: 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 63 6d enum command) cm
7a10: 64 29 20 7b 0a 09 63 61 73 65 20 43 5f 52 45 51 d) {..case C_REQ
7a20: 3a 20 7b 0a 09 20 20 20 20 45 56 50 5f 50 4b 45 : {.. EVP_PKE
7a30: 59 20 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a 09 20 Y *pkey=NULL;..
7a40: 20 20 20 58 35 30 39 20 2a 63 65 72 74 3d 4e 55 X509 *cert=NU
7a50: 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 5f 4e 41 LL;.. X509_NA
7a60: 4d 45 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b 0a 09 ME *name=NULL;..
7a70: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 Tcl_Obj **li
7a80: 73 74 76 3b 0a 09 20 20 20 20 69 6e 74 20 6c 69 stv;.. int li
7a90: 73 74 63 2c 69 3b 0a 0a 09 20 20 20 20 42 49 4f stc,i;... BIO
7aa0: 20 2a 69 6e 3d 4e 55 4c 4c 2c 2a 6f 75 74 3d 4e *in=NULL,*out=N
7ab0: 55 4c 4c 3b 0a 0a 09 20 20 20 20 63 68 61 72 20 ULL;... char
7ac0: 2a 6b 5f 43 3d 22 22 2c 2a 6b 5f 53 54 3d 22 22 *k_C="",*k_ST=""
7ad0: 2c 2a 6b 5f 4c 3d 22 22 2c 2a 6b 5f 4f 3d 22 22 ,*k_L="",*k_O=""
7ae0: 2c 2a 6b 5f 4f 55 3d 22 22 2c 2a 6b 5f 43 4e 3d ,*k_OU="",*k_CN=
7af0: 22 22 2c 2a 6b 5f 45 6d 61 69 6c 3d 22 22 3b 0a "",*k_Email="";.
7b00: 09 20 20 20 20 63 68 61 72 20 2a 6b 65 79 6f 75 . char *keyou
7b10: 74 2c 2a 70 65 6d 6f 75 74 2c 2a 73 74 72 3b 0a t,*pemout,*str;.
7b20: 09 20 20 20 20 69 6e 74 20 6b 65 79 73 69 7a 65 . int keysize
7b30: 2c 73 65 72 69 61 6c 3d 30 2c 64 61 79 73 3d 33 ,serial=0,days=3
7b40: 36 35 3b 0a 09 20 20 20 20 0a 09 20 20 20 20 69 65;.. .. i
7b50: 66 20 28 28 6f 62 6a 63 3c 35 29 20 7c 7c 20 28 f ((objc<5) || (
7b60: 6f 62 6a 63 3e 36 29 29 20 7b 0a 09 09 54 63 6c objc>6)) {...Tcl
7b70: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
7b80: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 terp, 2, objv, "
7b90: 6b 65 79 73 69 7a 65 20 6b 65 79 66 69 6c 65 20 keysize keyfile
7ba0: 63 65 72 74 66 69 6c 65 20 3f 69 6e 66 6f 3f 22 certfile ?info?"
7bb0: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
7bc0: 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 0a 09 ERROR;.. }...
7bd0: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 if (Tcl_GetI
7be0: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
7bf0: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6b 65 79 73 , objv[2], &keys
7c00: 69 7a 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ize) != TCL_OK)
7c10: 7b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {...return TCL_E
7c20: 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 20 20 RROR;.. }..
7c30: 20 20 6b 65 79 6f 75 74 3d 54 63 6c 5f 47 65 74 keyout=Tcl_Get
7c40: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b String(objv[3]);
7c50: 0a 09 20 20 20 20 70 65 6d 6f 75 74 3d 54 63 6c .. pemout=Tcl
7c60: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
7c70: 34 5d 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 6f 4]);... if (o
7c80: 62 6a 63 3e 3d 36 29 20 7b 0a 09 09 69 66 20 28 bjc>=6) {...if (
7c90: 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c Tcl_ListObjGetEl
7ca0: 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f ements(interp, o
7cb0: 62 6a 76 5b 35 5d 2c 0a 09 09 09 26 6c 69 73 74 bjv[5],....&list
7cc0: 63 2c 20 26 6c 69 73 74 76 29 20 21 3d 20 54 43 c, &listv) != TC
7cd0: 4c 5f 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 65 L_OK) {... re
7ce0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7cf0: 09 09 7d 0a 0a 09 09 69 66 20 28 28 6c 69 73 74 ..}....if ((list
7d00: 63 25 32 29 20 21 3d 20 30 29 20 7b 0a 09 09 20 c%2) != 0) {...
7d10: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
7d20: 28 69 6e 74 65 72 70 2c 22 49 6e 66 6f 72 6d 61 (interp,"Informa
7d30: 74 69 6f 6e 20 6c 69 73 74 20 6d 75 73 74 20 68 tion list must h
7d40: 61 76 65 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 ave even number
7d50: 6f 66 20 61 72 67 75 6d 65 6e 74 73 22 2c 4e 55 of arguments",NU
7d60: 4c 4c 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 LL);... retur
7d70: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d n TCL_ERROR;...}
7d80: 0a 09 09 66 6f 72 20 28 69 3d 30 3b 20 69 3c 6c ...for (i=0; i<l
7d90: 69 73 74 63 3b 20 69 2b 3d 32 29 20 7b 0a 09 09 istc; i+=2) {...
7da0: 20 20 20 20 73 74 72 3d 54 63 6c 5f 47 65 74 53 str=Tcl_GetS
7db0: 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 5d 29 3b tring(listv[i]);
7dc0: 0a 09 09 20 20 20 20 69 66 20 28 73 74 72 63 6d ... if (strcm
7dd0: 70 28 73 74 72 2c 22 64 61 79 73 22 29 3d 3d 30 p(str,"days")==0
7de0: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 ) {....if (Tcl_G
7df0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
7e00: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 erp,listv[i+1],&
7e10: 64 61 79 73 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 days)!=TCL_OK)..
7e20: 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
7e30: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 _ERROR;... }
7e40: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
7e50: 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d 30 str,"serial")==0
7e60: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 ) {....if (Tcl_G
7e70: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
7e80: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 erp,listv[i+1],&
7e90: 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29 serial)!=TCL_OK)
7ea0: 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 .... return T
7eb0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 CL_ERROR;...
7ec0: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d } else if (strcm
7ed0: 70 28 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d p(str,"serial")=
7ee0: 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c =0) {....if (Tcl
7ef0: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
7f00: 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d nterp,listv[i+1]
7f10: 2c 26 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f ,&serial)!=TCL_O
7f20: 4b 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e K).... return
7f30: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 TCL_ERROR;...
7f40: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
7f50: 63 6d 70 28 73 74 72 2c 22 43 22 29 3d 3d 30 29 cmp(str,"C")==0)
7f60: 20 7b 0a 09 09 09 6b 5f 43 3d 54 63 6c 5f 47 65 {....k_C=Tcl_Ge
7f70: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
7f80: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
7f90: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 e if (strcmp(str
7fa0: 2c 22 53 54 22 29 3d 3d 30 29 20 7b 0a 09 09 09 ,"ST")==0) {....
7fb0: 6b 5f 53 54 3d 54 63 6c 5f 47 65 74 53 74 72 69 k_ST=Tcl_GetStri
7fc0: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
7fd0: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
7fe0: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4c 22 29 (strcmp(str,"L")
7ff0: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4c 3d 54 63 ==0) {....k_L=Tc
8000: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
8010: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
8020: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
8030: 28 73 74 72 2c 22 4f 22 29 3d 3d 30 29 20 7b 0a (str,"O")==0) {.
8040: 09 09 09 6b 5f 4f 3d 54 63 6c 5f 47 65 74 53 74 ...k_O=Tcl_GetSt
8050: 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 ring(listv[i+1])
8060: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 ;... } else i
8070: 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f f (strcmp(str,"O
8080: 55 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f U")==0) {....k_O
8090: 55 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 U=Tcl_GetString(
80a0: 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 listv[i+1]);...
80b0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
80c0: 72 63 6d 70 28 73 74 72 2c 22 43 4e 22 29 3d 3d rcmp(str,"CN")==
80d0: 30 29 20 7b 0a 09 09 09 6b 5f 43 4e 3d 54 63 6c 0) {....k_CN=Tcl
80e0: 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 _GetString(listv
80f0: 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 [i+1]);... }
8100: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
8110: 73 74 72 2c 22 45 6d 61 69 6c 22 29 3d 3d 30 29 str,"Email")==0)
8120: 20 7b 0a 09 09 09 6b 5f 45 6d 61 69 6c 3d 54 63 {....k_Email=Tc
8130: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
8140: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
8150: 20 65 6c 73 65 20 7b 0a 09 09 09 54 63 6c 5f 53 else {....Tcl_S
8160: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
8170: 22 55 6e 6b 6e 6f 77 6e 20 70 61 72 61 6d 65 74 "Unknown paramet
8180: 65 72 22 2c 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 er",NULL);....re
8190: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
81a0: 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 .. }...}..
81b0: 20 7d 0a 09 20 20 20 20 69 66 20 28 28 70 6b 65 }.. if ((pke
81c0: 79 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6e 65 77 y = EVP_PKEY_new
81d0: 28 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ()) != NULL) {..
81e0: 09 69 66 20 28 21 45 56 50 5f 50 4b 45 59 5f 61 .if (!EVP_PKEY_a
81f0: 73 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 0a ssign_RSA(pkey,.
8200: 09 09 09 52 53 41 5f 67 65 6e 65 72 61 74 65 5f ...RSA_generate_
8210: 6b 65 79 28 6b 65 79 73 69 7a 65 2c 20 30 78 31 key(keysize, 0x1
8220: 30 30 30 31 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 0001, NULL, NULL
8230: 29 29 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f ))) {... Tcl_
8240: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
8250: 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 69 ,"Error generati
8260: 6e 67 20 70 72 69 76 61 74 65 20 6b 65 79 22 2c ng private key",
8270: 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 50 NULL);... EVP
8280: 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 _PKEY_free(pkey)
8290: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 ;... return T
82a0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 CL_ERROR;...}...
82b0: 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f out=BIO_new(BIO_
82c0: 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 4f s_file());...BIO
82d0: 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 28 _write_filename(
82e0: 6f 75 74 2c 6b 65 79 6f 75 74 29 3b 0a 09 09 50 out,keyout);...P
82f0: 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 50 72 69 EM_write_bio_Pri
8300: 76 61 74 65 4b 65 79 28 6f 75 74 2c 70 6b 65 79 vateKey(out,pkey
8310: 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 4c ,NULL,NULL,0,NUL
8320: 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 42 49 4f 5f 66 L,NULL);...BIO_f
8330: 72 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 ree_all(out);...
8340: 09 69 66 20 28 28 63 65 72 74 3d 58 35 30 39 5f .if ((cert=X509_
8350: 6e 65 77 28 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a new())==NULL) {.
8360: 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 .. Tcl_SetRes
8370: 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f ult(interp,"Erro
8380: 72 20 67 65 6e 65 72 61 74 69 6e 67 20 63 65 72 r generating cer
8390: 74 69 66 69 63 61 74 65 20 72 65 71 75 65 73 74 tificate request
83a0: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 ",NULL);... E
83b0: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
83c0: 79 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e y);... return
83d0: 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 7d (TCL_ERROR);...}
83e0: 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 76 65 72 ....X509_set_ver
83f0: 73 69 6f 6e 28 63 65 72 74 2c 32 29 3b 0a 09 09 sion(cert,2);...
8400: 41 53 4e 31 5f 49 4e 54 45 47 45 52 5f 73 65 74 ASN1_INTEGER_set
8410: 28 58 35 30 39 5f 67 65 74 5f 73 65 72 69 61 6c (X509_get_serial
8420: 4e 75 6d 62 65 72 28 63 65 72 74 29 2c 73 65 72 Number(cert),ser
8430: 69 61 6c 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 ial);...X509_gmt
8440: 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 ime_adj(X509_get
8450: 5f 6e 6f 74 42 65 66 6f 72 65 28 63 65 72 74 29 _notBefore(cert)
8460: 2c 30 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 ,0);...X509_gmti
8470: 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 5f me_adj(X509_get_
8480: 6e 6f 74 41 66 74 65 72 28 63 65 72 74 29 2c 28 notAfter(cert),(
8490: 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 34 2a 64 61 long)60*60*24*da
84a0: 79 73 29 3b 0a 09 09 58 35 30 39 5f 73 65 74 5f ys);...X509_set_
84b0: 70 75 62 6b 65 79 28 63 65 72 74 2c 70 6b 65 79 pubkey(cert,pkey
84c0: 29 3b 0a 09 09 0a 09 09 6e 61 6d 65 3d 58 35 30 );......name=X50
84d0: 39 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 9_get_subject_na
84e0: 6d 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 35 30 me(cert);....X50
84f0: 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 9_NAME_add_entry
8500: 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43 22 _by_txt(name,"C"
8510: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 , MBSTRING_ASC,
8520: 6b 5f 43 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b k_C, -1, -1, 0);
8530: 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 ...X509_NAME_add
8540: 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 _entry_by_txt(na
8550: 6d 65 2c 22 53 54 22 2c 20 4d 42 53 54 52 49 4e me,"ST", MBSTRIN
8560: 47 5f 41 53 43 2c 20 6b 5f 53 54 2c 20 2d 31 2c G_ASC, k_ST, -1,
8570: 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f -1, 0);...X509_
8580: 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 NAME_add_entry_b
8590: 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4c 22 2c 20 y_txt(name,"L",
85a0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
85b0: 4c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 L, -1, -1, 0);..
85c0: 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 .X509_NAME_add_e
85d0: 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 ntry_by_txt(name
85e0: 2c 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 ,"O", MBSTRING_A
85f0: 53 43 2c 20 6b 5f 4f 2c 20 2d 31 2c 20 2d 31 2c SC, k_O, -1, -1,
8600: 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 0);...X509_NAME
8610: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
8620: 74 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d 42 53 t(name,"OU", MBS
8630: 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 4f 55 2c TRING_ASC, k_OU,
8640: 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 -1, -1, 0);...X
8650: 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 509_NAME_add_ent
8660: 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 ry_by_txt(name,"
8670: 43 4e 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 CN", MBSTRING_AS
8680: 43 2c 20 6b 5f 43 4e 2c 20 2d 31 2c 20 2d 31 2c C, k_CN, -1, -1,
8690: 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 0);...X509_NAME
86a0: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
86b0: 74 28 6e 61 6d 65 2c 22 45 6d 61 69 6c 22 2c 20 t(name,"Email",
86c0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
86d0: 45 6d 61 69 6c 2c 20 2d 31 2c 20 2d 31 2c 20 30 Email, -1, -1, 0
86e0: 29 3b 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 73 );....X509_set_s
86f0: 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 ubject_name(cert
8700: 2c 6e 61 6d 65 29 3b 0a 0a 09 09 69 66 20 28 21 ,name);....if (!
8710: 58 35 30 39 5f 73 69 67 6e 28 63 65 72 74 2c 70 X509_sign(cert,p
8720: 6b 65 79 2c 45 56 50 5f 6d 64 35 28 29 29 29 20 key,EVP_md5()))
8730: 7b 0a 09 09 20 20 20 20 58 35 30 39 5f 66 72 65 {... X509_fre
8740: 65 28 63 65 72 74 29 3b 0a 09 09 20 20 20 20 45 e(cert);... E
8750: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
8760: 79 29 3b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 y);... Tcl_Se
8770: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
8780: 45 72 72 6f 72 20 73 69 67 6e 69 6e 67 20 63 65 Error signing ce
8790: 72 74 69 66 69 63 61 74 65 22 2c 4e 55 4c 4c 29 rtificate",NULL)
87a0: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 ;... return T
87b0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 CL_ERROR;...}...
87c0: 09 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f .out=BIO_new(BIO
87d0: 5f 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 _s_file());...BI
87e0: 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 O_write_filename
87f0: 28 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 0a 09 (out,pemout);...
8800: 09 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 58 .PEM_write_bio_X
8810: 35 30 39 28 6f 75 74 2c 63 65 72 74 29 3b 0a 09 509(out,cert);..
8820: 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 .BIO_free_all(ou
8830: 74 29 3b 0a 0a 09 09 58 35 30 39 5f 66 72 65 65 t);....X509_free
8840: 28 63 65 72 74 29 3b 0a 09 09 45 56 50 5f 50 4b (cert);...EVP_PK
8850: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 EY_free(pkey);..
8860: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 } else {...T
8870: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
8880: 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 erp,"Error gener
8890: 61 74 69 6e 67 20 70 72 69 76 61 74 65 20 6b 65 ating private ke
88a0: 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 y",NULL);...retu
88b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 rn TCL_ERROR;..
88c0: 20 20 20 7d 0a 09 7d 0a 09 62 72 65 61 6b 3b 0a }..}..break;.
88d0: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
88e0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a TCL_OK;.}.../*.
88f0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
8900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8930: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
8940: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
8950: 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65 is procedure cle
8960: 61 6e 73 20 75 70 20 77 68 65 6e 20 61 20 53 53 ans up when a SS
8970: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 L socket based c
8980: 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f hannel. *.is clo
8990: 73 65 64 20 61 6e 64 20 69 74 73 20 72 65 66 65 sed and its refe
89a0: 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c rence count fall
89b0: 73 20 62 65 6c 6f 77 20 31 0a 20 2a 0a 20 2a 20 s below 1. *. *
89c0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 Results:. *.none
89d0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
89e0: 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c cts:. *.Frees al
89f0: 6c 20 74 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 l the state. *.
8a00: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
8a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a40: 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c ----. */.void.Tl
8a50: 73 5f 46 72 65 65 28 20 63 68 61 72 20 2a 62 6c s_Free( char *bl
8a60: 6f 63 6b 50 74 72 20 29 0a 7b 0a 20 20 20 20 53 ockPtr ).{. S
8a70: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
8a80: 20 28 53 74 61 74 65 20 2a 29 62 6c 6f 63 6b 50 (State *)blockP
8a90: 74 72 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 tr;.. Tls_Cle
8aa0: 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 an(statePtr);.
8ab0: 20 20 54 63 6c 5f 46 72 65 65 28 62 6c 6f 63 6b Tcl_Free(block
8ac0: 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d Ptr);.}.../*. *-
8ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b10: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 --. *. * Tls_Cle
8b20: 61 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 an --. *. *.This
8b30: 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e procedure clean
8b40: 73 20 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 s up when a SSL
8b50: 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 socket based cha
8b60: 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 nnel. *.is close
8b70: 64 20 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 d and its refere
8b80: 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 nce count falls
8b90: 62 65 6c 6f 77 20 31 2e 20 20 54 68 69 73 20 73 below 1. This s
8ba0: 68 6f 75 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c hould. *.be call
8bb0: 65 64 20 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 ed synchronously
8bc0: 20 62 79 20 74 68 65 20 43 6c 6f 73 65 50 72 6f by the ClosePro
8bd0: 63 2c 20 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a c, not in the. *
8be0: 09 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 .EventuallyFree
8bf0: 63 61 6c 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 callback.. *. *
8c00: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 Results:. *.none
8c10: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
8c20: 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c cts:. *.Frees al
8c30: 6c 20 74 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 l the state. *.
8c40: 2a 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 2d 2d 2d 2d 2d 2d 2d ----------------
8c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8c80: 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c ----. */.void.Tl
8c90: 73 5f 43 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 s_Clean(State *s
8ca0: 74 61 74 65 50 74 72 29 0a 7b 0a 20 20 20 20 2f tatePtr).{. /
8cb0: 2a 0a 20 20 20 20 20 2a 20 77 65 27 72 65 20 61 *. * we're a
8cc0: 73 73 75 6d 69 6e 67 20 68 65 72 65 20 74 68 61 ssuming here tha
8cd0: 74 20 77 65 27 72 65 20 73 69 6e 67 6c 65 2d 74 t we're single-t
8ce0: 68 72 65 61 64 65 64 0a 20 20 20 20 20 2a 2f 0a hreaded. */.
8cf0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
8d00: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
8d10: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
8d20: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
8d30: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
8d40: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
8d50: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
8d60: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 = NULL;. }..
8d70: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
8d80: 3e 73 73 6c 29 20 7b 0a 09 53 53 4c 5f 73 68 75 >ssl) {..SSL_shu
8d90: 74 64 6f 77 6e 28 73 74 61 74 65 50 74 72 2d 3e tdown(statePtr->
8da0: 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 65 65 28 ssl);..SSL_free(
8db0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
8dc0: 09 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d .statePtr->ssl =
8dd0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL;. }.
8de0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 if (statePtr->c
8df0: 74 78 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 tx) {..SSL_CTX_f
8e00: 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63 74 ree(statePtr->ct
8e10: 78 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 x);..statePtr->c
8e20: 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d tx = NULL;. }
8e30: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
8e40: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 7b 0a 09 r->callback) {..
8e50: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
8e60: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
8e70: 61 63 6b 29 3b 0a 09 73 74 61 74 65 50 74 72 2d ack);..statePtr-
8e80: 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 4e 55 4c 4c >callback = NULL
8e90: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
8ea0: 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f statePtr->passwo
8eb0: 72 64 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 rd) {..Tcl_DecrR
8ec0: 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 efCount(statePtr
8ed0: 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 73 74 ->password);..st
8ee0: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
8ef0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 7d = NULL;. }.}
8f00: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
8f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
8f50: 2a 20 54 6c 73 5f 49 6e 69 74 20 2d 2d 0a 20 2a * Tls_Init --. *
8f60: 0a 20 2a 09 54 68 69 73 20 69 73 20 61 20 70 61 . *.This is a pa
8f70: 63 6b 61 67 65 20 69 6e 69 74 69 61 6c 69 7a 61 ckage initializa
8f80: 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 65 2c 20 tion procedure,
8f90: 77 68 69 63 68 20 69 73 20 63 61 6c 6c 65 64 0a which is called.
8fa0: 20 2a 09 62 79 20 54 63 6c 20 77 68 65 6e 20 74 *.by Tcl when t
8fb0: 68 69 73 20 70 61 63 6b 61 67 65 20 69 73 20 74 his package is t
8fc0: 6f 20 62 65 20 61 64 64 65 64 20 74 6f 20 61 6e o be added to an
8fd0: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 2a interpreter.. *
8fe0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 20 20 53 73 . * Results: Ss
8ff0: 6c 20 63 6f 6e 66 69 67 75 72 65 64 20 61 6e 64 l configured and
9000: 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a 20 53 69 loaded. *. * Si
9010: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 20 de effects:. *.
9020: 63 72 65 61 74 65 20 74 68 65 20 73 73 6c 20 63 create the ssl c
9030: 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 61 6c 69 ommand, initiali
9040: 73 65 20 73 73 6c 20 63 6f 6e 74 65 78 74 0a 20 se ssl context.
9050: 2a 0a 20 2a 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 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 -------. */..int
90a0: 0a 54 6c 73 5f 49 6e 69 74 28 54 63 6c 5f 49 6e .Tls_Init(Tcl_In
90b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 09 09 2f terp *interp)../
90c0: 2a 20 49 6e 74 65 72 70 72 65 74 65 72 20 69 6e * Interpreter in
90d0: 20 77 68 69 63 68 20 74 68 65 20 70 61 63 6b 61 which the packa
90e0: 67 65 20 69 73 0a 09 09 09 09 09 20 2a 20 74 6f ge is...... * to
90f0: 20 62 65 20 6d 61 64 65 20 61 76 61 69 6c 61 62 be made availab
9100: 6c 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 69 6e 74 le. */.{. int
9110: 20 6d 61 6a 6f 72 2c 20 6d 69 6e 6f 72 2c 20 70 major, minor, p
9120: 61 74 63 68 6c 65 76 65 6c 2c 20 72 65 6c 65 61 atchlevel, relea
9130: 73 65 2c 20 69 3b 0a 20 20 20 20 63 68 61 72 20 se, i;. char
9140: 72 6e 64 5f 73 65 65 64 5b 31 36 5d 20 3d 20 22 rnd_seed[16] = "
9150: 47 72 7a 53 6c 70 6c 4b 71 55 64 6e 6e 7a 50 21 GrzSlplKqUdnnzP!
9160: 22 3b 09 2f 2a 20 31 36 20 62 79 74 65 73 20 2a ";./* 16 bytes *
9170: 2f 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a /.. /*. *
9180: 20 54 68 65 20 6f 72 69 67 69 6e 61 6c 20 38 2e The original 8.
9190: 32 2e 30 20 73 74 61 63 6b 65 64 20 63 68 61 6e 2.0 stacked chan
91a0: 6e 65 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 nel implementati
91b0: 6f 6e 20 28 61 6e 64 20 74 68 65 20 70 61 74 63 on (and the patc
91c0: 68 0a 20 20 20 20 20 2a 20 74 68 61 74 20 70 72 h. * that pr
91d0: 65 63 65 64 65 64 20 69 74 29 20 68 61 64 20 70 eceded it) had p
91e0: 72 6f 62 6c 65 6d 73 20 77 69 74 68 20 73 63 61 roblems with sca
91f0: 6c 61 62 69 6c 69 74 79 20 61 6e 64 20 72 6f 62 lability and rob
9200: 75 73 74 6e 65 73 73 2e 0a 20 20 20 20 20 2a 20 ustness.. *
9210: 54 68 65 73 65 20 77 65 72 65 20 61 64 64 72 65 These were addre
9220: 73 73 20 69 6e 20 38 2e 33 2e 32 20 2f 20 38 2e ss in 8.3.2 / 8.
9230: 34 61 32 2c 20 73 6f 20 77 65 20 6e 6f 77 20 72 4a2, so we now r
9240: 65 71 75 69 72 65 20 74 68 61 74 20 61 73 20 61 equire that as a
9250: 0a 20 20 20 20 20 2a 20 6d 69 6e 69 6d 75 6d 20 . * minimum
9260: 66 6f 72 20 54 4c 53 20 31 2e 34 2b 2e 20 20 57 for TLS 1.4+. W
9270: 65 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 20 38 e only support 8
9280: 2e 32 2b 20 6e 6f 77 20 28 38 2e 33 2e 32 2b 20 .2+ now (8.3.2+
9290: 70 72 65 66 65 72 72 65 64 29 2e 0a 20 20 20 20 preferred)..
92a0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 0a 23 69 66 */. if (.#if
92b0: 64 65 66 20 55 53 45 5f 54 43 4c 5f 53 54 55 42 def USE_TCL_STUB
92c0: 53 0a 09 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 S..Tcl_InitStubs
92d0: 28 69 6e 74 65 72 70 2c 20 22 38 2e 32 22 2c 20 (interp, "8.2",
92e0: 30 29 0a 23 65 6c 73 65 0a 09 54 63 6c 5f 50 6b 0).#else..Tcl_Pk
92f0: 67 52 65 71 75 69 72 65 28 69 6e 74 65 72 70 2c gRequire(interp,
9300: 20 22 54 63 6c 22 2c 20 22 38 2e 32 22 2c 20 30 "Tcl", "8.2", 0
9310: 29 0a 23 65 6e 64 69 66 0a 09 3d 3d 20 4e 55 4c ).#endif..== NUL
9320: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
9330: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
9340: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 47 65 74 /*. * Get
9350: 20 74 68 65 20 76 65 72 73 69 6f 6e 20 73 6f 20 the version so
9360: 77 65 20 63 61 6e 20 72 75 6e 74 69 6d 65 20 73 we can runtime s
9370: 77 69 74 63 68 20 6f 6e 20 61 76 61 69 6c 61 62 witch on availab
9380: 6c 65 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 le functionality
9390: 2e 0a 20 20 20 20 20 2a 20 54 4c 53 20 73 68 6f .. * TLS sho
93a0: 75 6c 64 20 72 65 61 6c 6c 79 20 6f 6e 6c 79 20 uld really only
93b0: 62 65 20 75 73 65 64 20 69 6e 20 38 2e 33 2e 32 be used in 8.3.2
93c0: 2b 2c 20 62 75 74 20 74 68 65 20 6f 74 68 65 72 +, but the other
93d0: 20 77 6f 72 6b 73 20 66 6f 72 0a 20 20 20 20 20 works for.
93e0: 2a 20 73 6f 6d 65 20 6c 69 6d 69 74 65 64 20 66 * some limited f
93f0: 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2c 20 73 6f unctionality, so
9400: 20 61 6e 20 61 74 74 65 6d 70 74 20 61 74 20 73 an attempt at s
9410: 75 70 70 6f 72 74 20 69 73 20 6d 61 64 65 2e 0a upport is made..
9420: 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 6c 5f */. Tcl_
9430: 47 65 74 56 65 72 73 69 6f 6e 28 26 6d 61 6a 6f GetVersion(&majo
9440: 72 2c 20 26 6d 69 6e 6f 72 2c 20 26 70 61 74 63 r, &minor, &patc
9450: 68 6c 65 76 65 6c 2c 20 26 72 65 6c 65 61 73 65 hlevel, &release
9460: 29 3b 0a 20 20 20 20 69 66 20 28 28 6d 61 6a 6f );. if ((majo
9470: 72 20 3e 20 38 29 20 7c 7c 20 28 28 6d 61 6a 6f r > 8) || ((majo
9480: 72 20 3d 3d 20 38 29 20 26 26 20 28 28 6d 69 6e r == 8) && ((min
9490: 6f 72 20 3e 20 33 29 20 7c 7c 20 28 28 6d 69 6e or > 3) || ((min
94a0: 6f 72 20 3d 3d 20 33 29 20 26 26 0a 09 20 20 20 or == 3) &&..
94b0: 20 28 72 65 6c 65 61 73 65 20 3d 3d 20 54 43 4c (release == TCL
94c0: 5f 46 49 4e 41 4c 5f 52 45 4c 45 41 53 45 29 20 _FINAL_RELEASE)
94d0: 26 26 20 28 70 61 74 63 68 6c 65 76 65 6c 20 3e && (patchlevel >
94e0: 3d 20 32 29 29 29 29 29 20 7b 0a 09 2f 2a 20 38 = 2))))) {../* 8
94f0: 2e 33 2e 32 2b 20 2a 2f 0a 09 63 68 61 6e 6e 65 .3.2+ */..channe
9500: 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 20 54 lTypeVersion = T
9510: 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 LS_CHANNEL_VERSI
9520: 4f 4e 5f 32 3b 0a 20 20 20 20 7d 20 65 6c 73 65 ON_2;. } else
9530: 20 7b 0a 09 2f 2a 20 38 2e 32 2e 30 20 2d 20 38 {../* 8.2.0 - 8
9540: 2e 33 2e 31 20 2a 2f 0a 09 63 68 61 6e 6e 65 6c .3.1 */..channel
9550: 54 79 70 65 56 65 72 73 69 6f 6e 20 3d 20 54 4c TypeVersion = TL
9560: 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f S_CHANNEL_VERSIO
9570: 4e 5f 31 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 N_1;. }..
9580: 69 66 20 28 53 53 4c 5f 6c 69 62 72 61 72 79 5f if (SSL_library_
9590: 69 6e 69 74 28 29 20 21 3d 20 31 29 20 7b 0a 09 init() != 1) {..
95a0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
95b0: 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 20 (interp, "could
95c0: 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 20 53 not initialize S
95d0: 53 4c 20 6c 69 62 72 61 72 79 22 2c 20 4e 55 4c SL library", NUL
95e0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
95f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
9600: 20 53 53 4c 5f 6c 6f 61 64 5f 65 72 72 6f 72 5f SSL_load_error_
9610: 73 74 72 69 6e 67 73 28 29 3b 0a 20 20 20 20 45 strings();. E
9620: 52 52 5f 6c 6f 61 64 5f 63 72 79 70 74 6f 5f 73 RR_load_crypto_s
9630: 74 72 69 6e 67 73 28 29 3b 0a 0a 20 20 20 20 2f trings();.. /
9640: 2a 0a 20 20 20 20 20 2a 20 53 65 65 64 20 74 68 *. * Seed th
9650: 65 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20 e random number
9660: 67 65 6e 65 72 61 74 6f 72 20 69 6e 20 74 68 65 generator in the
9670: 20 53 53 4c 20 6c 69 62 72 61 72 79 2c 0a 20 20 SSL library,.
9680: 20 20 20 2a 20 75 73 69 6e 67 20 74 68 65 20 64 * using the d
9690: 6f 2f 77 68 69 6c 65 20 63 6f 6e 73 74 72 75 63 o/while construc
96a0: 74 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65 t because of the
96b0: 20 62 75 67 20 6e 6f 74 65 20 69 6e 20 74 68 65 bug note in the
96c0: 0a 20 20 20 20 20 2a 20 4f 70 65 6e 53 53 4c 20 . * OpenSSL
96d0: 46 41 51 20 61 74 20 68 74 74 70 3a 2f 2f 77 77 FAQ at http://ww
96e0: 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 2f 73 75 w.openssl.org/su
96f0: 70 70 6f 72 74 2f 66 61 71 2e 68 74 6d 6c 23 55 pport/faq.html#U
9700: 53 45 52 31 0a 20 20 20 20 20 2a 0a 20 20 20 20 SER1. *.
9710: 20 2a 20 54 68 65 20 63 72 75 78 20 6f 66 20 74 * The crux of t
9720: 68 65 20 70 72 6f 62 6c 65 6d 20 69 73 20 74 68 he problem is th
9730: 61 74 20 53 6f 6c 61 72 69 73 20 37 20 64 6f 65 at Solaris 7 doe
9740: 73 20 6e 6f 74 20 68 61 76 65 20 61 20 0a 20 20 s not have a .
9750: 20 20 20 2a 20 2f 64 65 76 2f 72 61 6e 64 6f 6d * /dev/random
9760: 20 6f 72 20 2f 64 65 76 2f 75 72 61 6e 64 6f 6d or /dev/urandom
9770: 20 64 65 76 69 63 65 20 73 6f 20 69 74 20 63 61 device so it ca
9780: 6e 6e 6f 74 20 67 61 74 68 65 72 20 65 6e 6f 75 nnot gather enou
9790: 67 68 0a 20 20 20 20 20 2a 20 65 6e 74 72 6f 70 gh. * entrop
97a0: 79 20 66 72 6f 6d 20 74 68 65 20 52 41 4e 44 5f y from the RAND_
97b0: 73 65 65 64 28 29 20 77 68 65 6e 20 54 4c 53 20 seed() when TLS
97c0: 69 6e 69 74 69 61 6c 69 7a 65 73 20 61 6e 64 20 initializes and
97d0: 72 65 66 75 73 65 73 0a 20 20 20 20 20 2a 20 74 refuses. * t
97e0: 6f 20 67 6f 20 66 75 72 74 68 65 72 2e 20 45 61 o go further. Ea
97f0: 72 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 20 6f rlier versions o
9800: 66 20 4f 70 65 6e 53 53 4c 20 63 61 72 72 69 65 f OpenSSL carrie
9810: 64 20 6f 6e 20 72 65 67 61 72 64 6c 65 73 73 2e d on regardless.
9820: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 72 61 . */. sra
9830: 6e 64 28 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 nd((unsigned int
9840: 29 20 74 69 6d 65 28 28 74 69 6d 65 5f 74 20 2a ) time((time_t *
9850: 29 20 4e 55 4c 4c 29 29 3b 0a 20 20 20 20 64 6f ) NULL));. do
9860: 20 7b 0a 09 66 6f 72 20 28 69 20 3d 20 30 3b 20 {..for (i = 0;
9870: 69 20 3c 20 31 36 3b 20 69 2b 2b 29 20 7b 0a 09 i < 16; i++) {..
9880: 20 20 20 20 72 6e 64 5f 73 65 65 64 5b 69 5d 20 rnd_seed[i]
9890: 3d 20 31 20 2b 20 28 63 68 61 72 29 20 28 32 35 = 1 + (char) (25
98a0: 35 2e 30 20 2a 20 72 61 6e 64 28 29 2f 28 52 41 5.0 * rand()/(RA
98b0: 4e 44 5f 4d 41 58 2b 31 2e 30 29 29 3b 0a 09 7d ND_MAX+1.0));..}
98c0: 0a 09 52 41 4e 44 5f 73 65 65 64 28 72 6e 64 5f ..RAND_seed(rnd_
98d0: 73 65 65 64 2c 20 73 69 7a 65 6f 66 28 72 6e 64 seed, sizeof(rnd
98e0: 5f 73 65 65 64 29 29 3b 0a 20 20 20 20 7d 20 77 _seed));. } w
98f0: 68 69 6c 65 20 28 52 41 4e 44 5f 73 74 61 74 75 hile (RAND_statu
9900: 73 28 29 20 21 3d 20 31 29 3b 0a 0a 20 20 20 20 s() != 1);..
9910: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
9920: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
9930: 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 69 70 s::ciphers", Cip
9940: 68 65 72 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 hersObjCmd,..
9950: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
9960: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
9970: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
9980: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
9990: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
99a0: 22 74 6c 73 3a 3a 68 61 6e 64 73 68 61 6b 65 22 "tls::handshake"
99b0: 2c 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d , HandshakeObjCm
99c0: 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e 74 44 d,.. (ClientD
99d0: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
99e0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
99f0: 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 72 LL);.. Tcl_Cr
9a00: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
9a10: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 69 6d 70 nterp, "tls::imp
9a20: 6f 72 74 22 2c 20 49 6d 70 6f 72 74 4f 62 6a 43 ort", ImportObjC
9a30: 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e 74 md,.. (Client
9a40: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
9a50: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
9a60: 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 ULL);.. Tcl_C
9a70: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
9a80: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 74 interp, "tls::st
9a90: 61 74 75 73 22 2c 20 53 74 61 74 75 73 4f 62 6a atus", StatusObj
9aa0: 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e Cmd,.. (Clien
9ab0: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
9ac0: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
9ad0: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f NULL);.. Tcl_
9ae0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
9af0: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 76 (interp, "tls::v
9b00: 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f 6e ersion", Version
9b10: 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c ObjCmd,.. (Cl
9b20: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
9b30: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
9b40: 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 *) NULL);.. T
9b50: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
9b60: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
9b70: 3a 3a 6d 69 73 63 22 2c 20 4d 69 73 63 4f 62 6a ::misc", MiscObj
9b80: 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e Cmd,.. (Clien
9b90: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
9ba0: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
9bb0: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 72 65 74 75 NULL);.. retu
9bc0: 72 6e 20 54 63 6c 5f 50 6b 67 50 72 6f 76 69 64 rn Tcl_PkgProvid
9bd0: 65 28 69 6e 74 65 72 70 2c 20 50 41 43 4b 41 47 e(interp, PACKAG
9be0: 45 2c 20 56 45 52 53 49 4f 4e 29 3b 0a 7d 0a 0c E, VERSION);.}..
9bf0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
9c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
9c30: 0a 20 2a 09 54 6c 73 5f 53 61 66 65 49 6e 69 74 . *.Tls_SafeInit
9c40: 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d --. *. *.------
9c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 53 ----------*. *.S
9c80: 74 61 6e 64 61 72 64 20 70 72 6f 63 65 64 75 72 tandard procedur
9c90: 65 20 72 65 71 75 69 72 65 64 20 62 79 20 27 6c e required by 'l
9ca0: 6f 61 64 27 2e 20 0a 20 2a 09 49 6e 69 74 69 61 oad'. . *.Initia
9cb0: 6c 69 7a 65 73 20 74 68 69 73 20 65 78 74 65 6e lizes this exten
9cc0: 73 69 6f 6e 20 66 6f 72 20 61 20 73 61 66 65 20 sion for a safe
9cd0: 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 2a 09 interpreter.. *.
9ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d10: 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 65 66 66 65 *. *. *.Sideeffe
9d20: 63 74 73 3a 0a 20 2a 09 09 41 73 20 6f 66 20 27 cts:. *..As of '
9d30: 54 6c 73 5f 49 6e 69 74 27 0a 20 2a 0a 20 2a 09 Tls_Init'. *. *.
9d40: 52 65 73 75 6c 74 3a 0a 20 2a 09 09 41 20 73 74 Result:. *..A st
9d50: 61 6e 64 61 72 64 20 54 63 6c 20 65 72 72 6f 72 andard Tcl error
9d60: 20 63 6f 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d code.. *. *----
9d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9da0: 2d 2d 2a 0a 20 2a 2f 0a 0a 69 6e 74 0a 54 6c 73 --*. */..int.Tls
9db0: 5f 53 61 66 65 49 6e 69 74 20 28 54 63 6c 5f 49 _SafeInit (Tcl_I
9dc0: 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 29 0a 7b nterp* interp).{
9dd0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 6c 73 5f . return Tls_
9de0: 49 6e 69 74 20 28 69 6e 74 65 72 70 29 3b 0a 7d Init (interp);.}
9df0: 0a .