0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0010: 28 43 29 20 31 39 39 37 2d 31 39 39 39 20 4d 61 (C) 1997-1999 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a novadigm.com>. *
0040: 20 73 6f 6d 65 20 6d 6f 64 69 66 69 63 61 74 69 some modificati
0050: 6f 6e 73 3a 0a 20 2a 09 43 6f 70 79 72 69 67 68 ons:. *.Copyrigh
0060: 74 20 28 43 29 20 32 30 30 30 20 41 6a 75 62 61 t (C) 2000 Ajuba
0070: 20 53 6f 6c 75 74 69 6f 6e 73 0a 20 2a 09 43 6f Solutions. *.Co
0080: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 32 pyright (C) 2002
0090: 20 41 63 74 69 76 65 53 74 61 74 65 20 43 6f 72 ActiveState Cor
00a0: 70 6f 72 61 74 69 6f 6e 0a 20 2a 09 43 6f 70 79 poration. *.Copy
00b0: 72 69 67 68 74 20 28 43 29 20 32 30 30 34 20 53 right (C) 2004 S
00c0: 74 61 72 66 69 73 68 20 53 79 73 74 65 6d 73 20 tarfish Systems
00d0: 0a 20 2a 0a 20 2a 20 24 48 65 61 64 65 72 3a 20 . *. * $Header:
00e0: 2f 68 6f 6d 65 2f 72 6b 65 65 6e 65 2f 74 6d 70 /home/rkeene/tmp
00f0: 2f 63 76 73 32 66 6f 73 73 69 6c 2f 2e 2e 2f 74 /cvs2fossil/../t
0100: 63 6c 74 6c 73 2f 74 6c 73 2f 74 6c 73 2f 74 6c cltls/tls/tls/tl
0110: 73 2e 63 2c 76 20 31 2e 33 32 20 32 30 31 32 2f s.c,v 1.32 2012/
0120: 30 36 2f 30 31 20 32 32 3a 35 39 3a 30 33 20 61 06/01 22:59:03 a
0130: 6e 64 72 65 61 73 5f 6b 75 70 72 69 65 73 20 45 ndreas_kupries E
0140: 78 70 20 24 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 xp $. *. * TLS (
0150: 61 6b 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c aka SSL) Channel
0160: 20 2d 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 - can be layere
0170: 64 20 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 d on any bi-dire
0180: 63 74 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 ctional. * Tcl_C
0190: 68 61 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 hannel (Note: Re
01a0: 71 75 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 quires Trf Core
01b0: 50 61 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 Patch). *. * Thi
01c0: 73 20 77 61 73 20 62 75 69 6c 74 20 28 61 6c 6d s was built (alm
01d0: 6f 73 74 29 20 66 72 6f 6d 20 73 63 72 61 74 63 ost) from scratc
01e0: 68 20 62 61 73 65 64 20 75 70 6f 6e 20 6f 62 73 h based upon obs
01f0: 65 72 76 61 74 69 6f 6e 20 6f 66 0a 20 2a 20 4f ervation of. * O
0200: 70 65 6e 53 53 4c 20 30 2e 39 2e 32 42 0a 20 2a penSSL 0.9.2B. *
0210: 0a 20 2a 20 41 64 64 69 74 69 6f 6e 20 63 72 65 . * Addition cre
0220: 64 69 74 20 69 73 20 64 75 65 20 66 6f 72 20 41 dit is due for A
0230: 6e 64 72 65 61 73 20 4b 75 70 72 69 65 73 20 28 ndreas Kupries (
0240: 61 2e 6b 75 70 72 69 65 73 40 77 65 73 74 65 6e a.kupries@westen
0250: 64 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 d.com), for. * p
0260: 72 6f 76 69 64 69 6e 67 20 74 68 65 20 54 63 6c roviding the Tcl
0270: 5f 52 65 70 6c 61 63 65 43 68 61 6e 6e 65 6c 20 _ReplaceChannel
0280: 6d 65 63 68 61 6e 69 73 6d 20 61 6e 64 20 77 6f mechanism and wo
0290: 72 6b 69 6e 67 20 63 6c 6f 73 65 6c 79 20 77 69 rking closely wi
02a0: 74 68 20 6d 65 0a 20 2a 20 74 6f 20 65 6e 68 61 th me. * to enha
02b0: 6e 63 65 20 69 74 20 74 6f 20 73 75 70 70 6f 72 nce it to suppor
02c0: 74 20 66 75 6c 6c 20 66 69 6c 65 65 76 65 6e 74 t full fileevent
02d0: 20 73 65 6d 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 semantics.. *.
02e0: 2a 20 41 6c 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 * Also work done
02f0: 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f 77 20 70 by the follow p
0300: 65 6f 70 6c 65 20 70 72 6f 76 69 64 65 64 20 74 eople provided t
0310: 68 65 20 69 6d 70 65 74 75 73 20 74 6f 20 64 6f he impetus to do
0320: 20 74 68 69 73 20 22 72 69 67 68 74 22 3a 0a 20 this "right":.
0330: 2a 09 74 63 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 *.tclSSL (Colin
0340: 4d 63 43 6f 72 6d 61 63 6b 2c 20 53 68 61 72 65 McCormack, Share
0350: 64 20 54 65 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a d Technology). *
0360: 09 53 53 4c 74 63 6c 20 28 50 65 74 65 72 20 41 .SSLtcl (Peter A
0370: 6e 74 6d 61 6e 29 0a 20 2a 0a 20 2a 2f 0a 0a 23 ntman). *. */..#
0380: 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 6e 74 2e include "tlsInt.
0390: 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c h".#include "tcl
03a0: 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c 75 64 65 Opts.h".#include
03b0: 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 0a 2f 2a 0a <stdlib.h>../*.
03c0: 20 2a 20 45 78 74 65 72 6e 61 6c 20 66 75 6e 63 * External func
03d0: 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a tions. */../*. *
03e0: 20 46 6f 72 77 61 72 64 20 64 65 63 6c 61 72 61 Forward declara
03f0: 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 23 64 65 66 69 tions. */..#defi
0400: 6e 65 20 46 32 4e 28 20 6b 65 79 2c 20 64 73 70 ne F2N( key, dsp
0410: 29 20 5c 0a 09 28 28 28 6b 65 79 29 20 3d 3d 20 ) \..(((key) ==
0420: 4e 55 4c 4c 29 20 3f 20 28 63 68 61 72 20 2a 29 NULL) ? (char *)
0430: 20 4e 55 4c 4c 20 3a 20 5c 0a 09 09 54 63 6c 5f NULL : \...Tcl_
0440: 54 72 61 6e 73 6c 61 74 65 46 69 6c 65 4e 61 6d TranslateFileNam
0450: 65 28 69 6e 74 65 72 70 2c 20 28 6b 65 79 29 2c e(interp, (key),
0460: 20 28 64 73 70 29 29 29 0a 23 64 65 66 69 6e 65 (dsp))).#define
0470: 20 52 45 41 53 4f 4e 28 29 09 45 52 52 5f 72 65 REASON().ERR_re
0480: 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 69 6e ason_error_strin
0490: 67 28 45 52 52 5f 67 65 74 5f 65 72 72 6f 72 28 g(ERR_get_error(
04a0: 29 29 0a 0a 73 74 61 74 69 63 20 76 6f 69 64 09 ))..static void.
04b0: 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 5f 41 4e InfoCallback _AN
04c0: 53 49 5f 41 52 47 53 5f 20 28 28 43 4f 4e 53 54 SI_ARGS_ ((CONST
04d0: 20 53 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20 77 SSL *ssl, int w
04e0: 68 65 72 65 2c 20 69 6e 74 20 72 65 74 29 29 3b here, int ret));
04f0: 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 43 69 70 ..static int.Cip
0500: 68 65 72 73 4f 62 6a 43 6d 64 20 5f 41 4e 53 49 hersObjCmd _ANSI
0510: 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 6e 74 44 _ARGS_ ((ClientD
0520: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a ata clientData,.
0530: 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ...Tcl_Interp *i
0540: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
0550: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 Tcl_Obj *CONST
0560: 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 61 74 69 objv[]));..stati
0570: 63 20 69 6e 74 09 48 61 6e 64 73 68 61 6b 65 4f c int.HandshakeO
0580: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
0590: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
05a0: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
05b0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
05c0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
05d0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
05e0: 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 ]));..static int
05f0: 09 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 5f 41 .ImportObjCmd _A
0600: 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 65 NSI_ARGS_ ((Clie
0610: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
0620: 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 70 a,....Tcl_Interp
0630: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
0640: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e jc, Tcl_Obj *CON
0650: 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 74 ST objv[]));..st
0660: 61 74 69 63 20 69 6e 74 09 53 74 61 74 75 73 4f atic int.StatusO
0670: 62 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 bjCmd _ANSI_ARGS
0680: 5f 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 _ ((ClientData c
0690: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 lientData,....Tc
06a0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
06b0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
06c0: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b Obj *CONST objv[
06d0: 5d 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 ]));..static int
06e0: 09 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 5f .VersionObjCmd _
06f0: 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 ANSI_ARGS_ ((Cli
0700: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
0710: 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 ta,....Tcl_Inter
0720: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
0730: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f bjc, Tcl_Obj *CO
0740: 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 NST objv[]));..s
0750: 74 61 74 69 63 20 69 6e 74 09 4d 69 73 63 4f 62 tatic int.MiscOb
0760: 6a 43 6d 64 20 5f 41 4e 53 49 5f 41 52 47 53 5f jCmd _ANSI_ARGS_
0770: 20 28 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ((ClientData cl
0780: 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c ientData,....Tcl
0790: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
07a0: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
07b0: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
07c0: 29 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 ));..static int.
07d0: 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 5f UnimportObjCmd _
07e0: 41 4e 53 49 5f 41 52 47 53 5f 20 28 28 43 6c 69 ANSI_ARGS_ ((Cli
07f0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
0800: 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72 ta,....Tcl_Inter
0810: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
0820: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f bjc, Tcl_Obj *CO
0830: 4e 53 54 20 6f 62 6a 76 5b 5d 29 29 3b 0a 0a 73 NST objv[]));..s
0840: 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 tatic SSL_CTX *C
0850: 54 58 5f 49 6e 69 74 20 5f 41 4e 53 49 5f 41 52 TX_Init _ANSI_AR
0860: 47 53 5f 28 28 53 74 61 74 65 20 2a 73 74 61 74 GS_((State *stat
0870: 65 50 74 72 2c 20 69 6e 74 20 70 72 6f 74 6f 2c ePtr, int proto,
0880: 20 63 68 61 72 20 2a 6b 65 79 2c 0a 09 09 09 63 char *key,....c
0890: 68 61 72 20 2a 63 65 72 74 2c 20 63 68 61 72 20 har *cert, char
08a0: 2a 43 41 64 69 72 2c 20 63 68 61 72 20 2a 43 41 *CAdir, char *CA
08b0: 66 69 6c 65 2c 20 63 68 61 72 20 2a 63 69 70 68 file, char *ciph
08c0: 65 72 73 29 29 3b 0a 0a 23 64 65 66 69 6e 65 20 ers));..#define
08d0: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 09 30 TLS_PROTO_SSL2.0
08e0: 78 30 31 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f x01.#define TLS_
08f0: 50 52 4f 54 4f 5f 53 53 4c 33 09 30 78 30 32 0a PROTO_SSL3.0x02.
0900: 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 #define TLS_PROT
0910: 4f 5f 54 4c 53 31 09 30 78 30 34 0a 23 64 65 66 O_TLS1.0x04.#def
0920: 69 6e 65 20 45 4e 41 42 4c 45 44 28 66 6c 61 67 ine ENABLED(flag
0930: 2c 20 6d 61 73 6b 29 09 28 28 28 66 6c 61 67 29 , mask).(((flag)
0940: 20 26 20 28 6d 61 73 6b 29 29 20 3d 3d 20 28 6d & (mask)) == (m
0950: 61 73 6b 29 29 0a 0a 2f 2a 0a 20 2a 20 53 74 61 ask))../*. * Sta
0960: 74 69 63 20 64 61 74 61 20 73 74 72 75 63 74 75 tic data structu
0970: 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 res. */..#ifndef
0980: 20 4e 4f 5f 44 48 0a 2f 2a 20 66 72 6f 6d 20 6f NO_DH./* from o
0990: 70 65 6e 73 73 6c 2f 61 70 70 73 2f 73 5f 73 65 penssl/apps/s_se
09a0: 72 76 65 72 2e 63 20 2a 2f 0a 0a 73 74 61 74 69 rver.c */..stati
09b0: 63 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 c unsigned char
09c0: 64 68 35 31 32 5f 70 5b 5d 3d 7b 0a 09 30 78 44 dh512_p[]={..0xD
09d0: 41 2c 30 78 35 38 2c 30 78 33 43 2c 30 78 31 36 A,0x58,0x3C,0x16
09e0: 2c 30 78 44 39 2c 30 78 38 35 2c 30 78 32 32 2c ,0xD9,0x85,0x22,
09f0: 30 78 38 39 2c 30 78 44 30 2c 30 78 45 34 2c 30 0x89,0xD0,0xE4,0
0a00: 78 41 46 2c 30 78 37 35 2c 0a 09 30 78 36 46 2c xAF,0x75,..0x6F,
0a10: 30 78 34 43 2c 30 78 43 41 2c 30 78 39 32 2c 30 0x4C,0xCA,0x92,0
0a20: 78 44 44 2c 30 78 34 42 2c 30 78 45 35 2c 30 78 xDD,0x4B,0xE5,0x
0a30: 33 33 2c 30 78 42 38 2c 30 78 30 34 2c 30 78 46 33,0xB8,0x04,0xF
0a40: 42 2c 30 78 30 46 2c 0a 09 30 78 45 44 2c 30 78 B,0x0F,..0xED,0x
0a50: 39 34 2c 30 78 45 46 2c 30 78 39 43 2c 30 78 38 94,0xEF,0x9C,0x8
0a60: 41 2c 30 78 34 34 2c 30 78 30 33 2c 30 78 45 44 A,0x44,0x03,0xED
0a70: 2c 30 78 35 37 2c 30 78 34 36 2c 30 78 35 30 2c ,0x57,0x46,0x50,
0a80: 30 78 44 33 2c 0a 09 30 78 36 39 2c 30 78 39 39 0xD3,..0x69,0x99
0a90: 2c 30 78 44 42 2c 30 78 32 39 2c 30 78 44 37 2c ,0xDB,0x29,0xD7,
0aa0: 30 78 37 36 2c 30 78 32 37 2c 30 78 36 42 2c 30 0x76,0x27,0x6B,0
0ab0: 78 41 32 2c 30 78 44 33 2c 30 78 44 34 2c 30 78 xA2,0xD3,0xD4,0x
0ac0: 31 32 2c 0a 09 30 78 45 32 2c 30 78 31 38 2c 30 12,..0xE2,0x18,0
0ad0: 78 46 34 2c 30 78 44 44 2c 30 78 31 45 2c 30 78 xF4,0xDD,0x1E,0x
0ae0: 30 38 2c 30 78 34 43 2c 30 78 46 36 2c 30 78 44 08,0x4C,0xF6,0xD
0af0: 38 2c 30 78 30 30 2c 30 78 33 45 2c 30 78 37 43 8,0x00,0x3E,0x7C
0b00: 2c 0a 09 30 78 34 37 2c 30 78 37 34 2c 30 78 45 ,..0x47,0x74,0xE
0b10: 38 2c 30 78 33 33 2c 0a 09 7d 3b 0a 73 74 61 74 8,0x33,..};.stat
0b20: 69 63 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ic unsigned char
0b30: 20 64 68 35 31 32 5f 67 5b 5d 3d 7b 0a 09 30 78 dh512_g[]={..0x
0b40: 30 32 2c 0a 7d 3b 0a 0a 73 74 61 74 69 63 20 44 02,.};..static D
0b50: 48 20 2a 67 65 74 5f 64 68 35 31 32 28 29 0a 7b H *get_dh512().{
0b60: 0a 20 20 20 20 44 48 20 2a 64 68 3d 4e 55 4c 4c . DH *dh=NULL
0b70: 3b 0a 0a 20 20 20 20 69 66 20 28 28 64 68 3d 44 ;.. if ((dh=D
0b80: 48 5f 6e 65 77 28 29 29 20 3d 3d 20 4e 55 4c 4c H_new()) == NULL
0b90: 29 20 72 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a ) return(NULL);.
0ba0: 0a 20 20 20 20 64 68 2d 3e 70 3d 42 4e 5f 62 69 . dh->p=BN_bi
0bb0: 6e 32 62 6e 28 64 68 35 31 32 5f 70 2c 73 69 7a n2bn(dh512_p,siz
0bc0: 65 6f 66 28 64 68 35 31 32 5f 70 29 2c 4e 55 4c eof(dh512_p),NUL
0bd0: 4c 29 3b 0a 20 20 20 20 64 68 2d 3e 67 3d 42 4e L);. dh->g=BN
0be0: 5f 62 69 6e 32 62 6e 28 64 68 35 31 32 5f 67 2c _bin2bn(dh512_g,
0bf0: 73 69 7a 65 6f 66 28 64 68 35 31 32 5f 67 29 2c sizeof(dh512_g),
0c00: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 NULL);.. if (
0c10: 28 64 68 2d 3e 70 20 3d 3d 20 4e 55 4c 4c 29 20 (dh->p == NULL)
0c20: 7c 7c 20 28 64 68 2d 3e 67 20 3d 3d 20 4e 55 4c || (dh->g == NUL
0c30: 4c 29 29 0a 09 72 65 74 75 72 6e 28 4e 55 4c 4c L))..return(NULL
0c40: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 28 64 68 );. return(dh
0c50: 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a );.}.#endif../*.
0c60: 20 2a 20 44 65 66 69 6e 65 64 20 69 6e 20 54 6c * Defined in Tl
0c70: 73 5f 49 6e 69 74 20 74 6f 20 64 65 74 65 72 6d s_Init to determ
0c80: 69 6e 65 20 77 68 61 74 20 6b 69 6e 64 20 6f 66 ine what kind of
0c90: 20 63 68 61 6e 6e 65 6c 73 20 77 65 20 61 72 65 channels we are
0ca0: 20 75 73 69 6e 67 0a 20 2a 20 28 6f 6c 64 2d 73 using. * (old-s
0cb0: 74 79 6c 65 20 38 2e 32 2e 30 2d 38 2e 33 2e 31 tyle 8.2.0-8.3.1
0cc0: 20 6f 72 20 6e 65 77 2d 73 74 79 6c 65 20 38 2e or new-style 8.
0cd0: 33 2e 32 2b 29 2e 0a 20 2a 2f 0a 69 6e 74 20 63 3.2+).. */.int c
0ce0: 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f hannelTypeVersio
0cf0: 6e 3b 0a 0a 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 n;../*. * We los
0d00: 65 20 74 68 65 20 74 63 6c 20 70 61 73 73 77 6f e the tcl passwo
0d10: 72 64 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e rd callback when
0d20: 20 77 65 20 75 73 65 20 74 68 65 20 52 53 41 20 we use the RSA
0d30: 42 53 41 46 45 20 53 53 4c 2d 43 20 31 2e 31 2e BSAFE SSL-C 1.1.
0d40: 32 0a 20 2a 20 6c 69 62 72 61 72 69 65 73 20 69 2. * libraries i
0d50: 6e 73 74 65 61 64 20 6f 66 20 74 68 65 20 63 75 nstead of the cu
0d60: 72 72 65 6e 74 20 4f 70 65 6e 53 53 4c 20 6c 69 rrent OpenSSL li
0d70: 62 72 61 72 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 braries.. */..#i
0d80: 66 64 65 66 20 42 53 41 46 45 0a 23 64 65 66 69 fdef BSAFE.#defi
0d90: 6e 65 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 ne PRE_OPENSSL_0
0da0: 5f 39 5f 34 20 31 0a 23 65 6e 64 69 66 0a 0a 2f _9_4 1.#endif../
0db0: 2a 0a 20 2a 20 50 72 65 20 4f 70 65 6e 53 53 4c *. * Pre OpenSSL
0dc0: 20 30 2e 39 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 0.9.4 Compat. *
0dd0: 2f 0a 0a 23 69 66 6e 64 65 66 20 53 54 41 43 4b /..#ifndef STACK
0de0: 5f 4f 46 0a 23 64 65 66 69 6e 65 20 53 54 41 43 _OF.#define STAC
0df0: 4b 5f 4f 46 28 78 29 09 09 09 53 54 41 43 4b 0a K_OF(x)...STACK.
0e00: 23 64 65 66 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 #define sk_SSL_C
0e10: 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 09 09 73 IPHER_num(sk)..s
0e20: 6b 5f 6e 75 6d 28 28 73 6b 29 29 0a 23 64 65 66 k_num((sk)).#def
0e30: 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 ine sk_SSL_CIPHE
0e40: 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 R_value( sk, ind
0e50: 65 78 29 09 28 53 53 4c 5f 43 49 50 48 45 52 2a ex).(SSL_CIPHER*
0e60: 29 73 6b 5f 76 61 6c 75 65 28 28 73 6b 29 2c 20 )sk_value((sk),
0e70: 28 69 6e 64 65 78 29 29 0a 23 65 6e 64 69 66 0a (index)).#endif.
0e80: 0a 2f 2a 0a 20 2a 20 54 68 72 65 61 64 2d 53 61 ./*. * Thread-Sa
0e90: 66 65 20 54 4c 53 20 43 6f 64 65 0a 20 2a 2f 0a fe TLS Code. */.
0ea0: 0a 23 69 66 64 65 66 20 54 43 4c 5f 54 48 52 45 .#ifdef TCL_THRE
0eb0: 41 44 53 0a 23 64 65 66 69 6e 65 20 4f 50 45 4e ADS.#define OPEN
0ec0: 53 53 4c 5f 54 48 52 45 41 44 5f 44 45 46 49 4e SSL_THREAD_DEFIN
0ed0: 45 53 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 ES.#include <ope
0ee0: 6e 73 73 6c 2f 6f 70 65 6e 73 73 6c 63 6f 6e 66 nssl/opensslconf
0ef0: 2e 68 3e 0a 0a 23 69 66 64 65 66 20 4f 50 45 4e .h>..#ifdef OPEN
0f00: 53 53 4c 5f 54 48 52 45 41 44 53 0a 23 69 6e 63 SSL_THREADS.#inc
0f10: 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 lude <openssl/cr
0f20: 79 70 74 6f 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 54 ypto.h>../*. * T
0f30: 68 72 65 61 64 65 64 20 6f 70 65 72 61 74 69 6f hreaded operatio
0f40: 6e 20 72 65 71 75 69 72 65 73 20 6c 6f 63 6b 69 n requires locki
0f50: 6e 67 20 63 61 6c 6c 62 61 63 6b 73 0a 20 2a 20 ng callbacks. *
0f60: 42 61 73 65 64 20 66 72 6f 6d 20 2f 63 72 79 70 Based from /cryp
0f70: 74 6f 2f 63 72 79 70 74 6c 69 62 2e 63 20 6f 66 to/cryptlib.c of
0f80: 20 4f 70 65 6e 53 53 4c 20 61 6e 64 20 4e 53 4f OpenSSL and NSO
0f90: 70 65 6e 53 53 4c 2e 0a 20 2a 2f 0a 0a 73 74 61 penSSL.. */..sta
0fa0: 74 69 63 20 54 63 6c 5f 4d 75 74 65 78 20 6c 6f tic Tcl_Mutex lo
0fb0: 63 6b 73 5b 43 52 59 50 54 4f 5f 4e 55 4d 5f 4c cks[CRYPTO_NUM_L
0fc0: 4f 43 4b 53 5d 3b 0a 0a 73 74 61 74 69 63 20 76 OCKS];..static v
0fd0: 6f 69 64 20 20 20 20 20 20 20 20 20 20 43 72 79 oid Cry
0fe0: 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b 43 61 6c ptoThreadLockCal
0ff0: 6c 62 61 63 6b 20 28 69 6e 74 20 6d 6f 64 65 2c lback (int mode,
1000: 20 69 6e 74 20 6e 2c 20 63 6f 6e 73 74 20 63 68 int n, const ch
1010: 61 72 20 2a 66 69 6c 65 2c 20 69 6e 74 20 6c 69 ar *file, int li
1020: 6e 65 29 3b 0a 73 74 61 74 69 63 20 75 6e 73 69 ne);.static unsi
1030: 67 6e 65 64 20 6c 6f 6e 67 20 43 72 79 70 74 6f gned long Crypto
1040: 54 68 72 65 61 64 49 64 43 61 6c 6c 62 61 63 6b ThreadIdCallback
1050: 20 20 20 28 76 6f 69 64 29 3b 0a 0a 73 74 61 74 (void);..stat
1060: 69 63 20 76 6f 69 64 0a 43 72 79 70 74 6f 54 68 ic void.CryptoTh
1070: 72 65 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b readLockCallback
1080: 28 69 6e 74 20 6d 6f 64 65 2c 20 69 6e 74 20 6e (int mode, int n
1090: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 69 , const char *fi
10a0: 6c 65 2c 20 69 6e 74 20 6c 69 6e 65 29 0a 7b 0a le, int line).{.
10b0: 20 20 20 20 69 66 20 28 6d 6f 64 65 20 26 20 43 if (mode & C
10c0: 52 59 50 54 4f 5f 4c 4f 43 4b 29 20 7b 0a 20 20 RYPTO_LOCK) {.
10d0: 20 20 20 20 20 54 63 6c 5f 4d 75 74 65 78 4c 6f Tcl_MutexLo
10e0: 63 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a 20 ck(&locks[n]);.
10f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 } else {.
1100: 20 20 20 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f Tcl_MutexUnlo
1110: 63 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a 20 ck(&locks[n]);.
1120: 20 20 20 7d 0a 7d 0a 0a 73 74 61 74 69 63 20 75 }.}..static u
1130: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 0a 43 72 79 nsigned long.Cry
1140: 70 74 6f 54 68 72 65 61 64 49 64 43 61 6c 6c 62 ptoThreadIdCallb
1150: 61 63 6b 28 76 6f 69 64 29 0a 7b 0a 20 20 20 20 ack(void).{.
1160: 72 65 74 75 72 6e 20 28 75 6e 73 69 67 6e 65 64 return (unsigned
1170: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 43 75 long) Tcl_GetCu
1180: 72 72 65 6e 74 54 68 72 65 61 64 28 29 3b 0a 7d rrentThread();.}
1190: 0a 23 65 6e 64 69 66 20 2f 2a 20 4f 50 45 4e 53 .#endif /* OPENS
11a0: 53 4c 5f 54 48 52 45 41 44 53 20 2a 2f 0a 23 65 SL_THREADS */.#e
11b0: 6e 64 69 66 20 2f 2a 20 54 43 4c 5f 54 48 52 45 ndif /* TCL_THRE
11c0: 41 44 53 20 2a 2f 0a 0a 0c 0a 2f 2a 0a 20 2a 2d ADS */..../*. *-
11d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1210: 2d 2d 0a 20 2a 0a 20 2a 20 49 6e 66 6f 43 61 6c --. *. * InfoCal
1220: 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 6d lback --. *. *.m
1230: 6f 6e 69 74 6f 72 73 20 53 53 4c 20 63 6f 6e 6e onitors SSL conn
1240: 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 0a 20 ection process.
1250: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
1260: 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 .None. *. * Side
1270: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 6c effects:. *.Cal
1280: 6c 73 20 63 61 6c 6c 62 61 63 6b 20 28 69 66 20 ls callback (if
1290: 64 65 66 69 6e 65 64 29 0a 20 2a 2d 2d 2d 2d 2d defined). *-----
12a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
12e0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 49 */.static void.I
12f0: 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 43 4f 4e 53 nfoCallback(CONS
1300: 54 20 53 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20 T SSL *ssl, int
1310: 77 68 65 72 65 2c 20 69 6e 74 20 72 65 74 29 0a where, int ret).
1320: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
1330: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 2a 29 tePtr = (State*)
1340: 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 SSL_get_app_data
1350: 28 28 53 53 4c 20 2a 29 73 73 6c 29 3b 0a 20 20 ((SSL *)ssl);.
1360: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 Tcl_Obj *cmdPt
1370: 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 6d 61 6a r;. char *maj
1380: 6f 72 3b 20 63 68 61 72 20 2a 6d 69 6e 6f 72 3b or; char *minor;
1390: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
13a0: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 tr->callback ==
13b0: 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 0a (Tcl_Obj*)NULL).
13c0: 09 72 65 74 75 72 6e 3b 0a 0a 20 20 20 20 63 6d .return;.. cm
13d0: 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 dPtr = Tcl_Dupli
13e0: 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 cateObj(statePtr
13f0: 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 ->callback);..#i
1400: 66 20 30 0a 20 20 20 20 69 66 20 28 77 68 65 72 f 0. if (wher
1410: 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 e & SSL_CB_ALERT
1420: 29 20 7b 0a 09 73 65 76 20 3d 20 53 53 4c 5f 61 ) {..sev = SSL_a
1430: 6c 65 72 74 5f 74 79 70 65 5f 73 74 72 69 6e 67 lert_type_string
1440: 5f 6c 6f 6e 67 28 72 65 74 29 3b 0a 09 69 66 20 _long(ret);..if
1450: 28 73 74 72 63 6d 70 28 20 73 65 76 2c 20 22 66 (strcmp( sev, "f
1460: 61 74 61 6c 22 29 3d 3d 30 29 20 7b 09 2f 2a 20 atal")==0) {./*
1470: 4d 61 70 20 74 6f 20 65 72 72 6f 72 20 2a 2f 0a Map to error */.
1480: 09 20 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 . Tls_Error(s
1490: 74 61 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 52 tatePtr, SSL_ERR
14a0: 4f 52 28 73 73 6c 2c 20 30 29 29 3b 0a 09 20 20 OR(ssl, 0));..
14b0: 20 20 72 65 74 75 72 6e 3b 0a 09 7d 0a 20 20 20 return;..}.
14c0: 20 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 }.#endif. if
14d0: 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 (where & SSL_CB
14e0: 5f 48 41 4e 44 53 48 41 4b 45 5f 53 54 41 52 54 _HANDSHAKE_START
14f0: 29 20 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 ) {..major = "ha
1500: 6e 64 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 ndshake";..minor
1510: 20 3d 20 22 73 74 61 72 74 22 3b 0a 20 20 20 20 = "start";.
1520: 7d 20 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 } else if (where
1530: 20 26 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 & SSL_CB_HANDSH
1540: 41 4b 45 5f 44 4f 4e 45 29 20 7b 0a 09 6d 61 6a AKE_DONE) {..maj
1550: 6f 72 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 or = "handshake"
1560: 3b 0a 09 6d 69 6e 6f 72 20 3d 20 22 64 6f 6e 65 ;..minor = "done
1570: 22 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ";. } else {.
1580: 09 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c .if (where & SSL
1590: 5f 43 42 5f 41 4c 45 52 54 29 09 09 6d 61 6a 6f _CB_ALERT)..majo
15a0: 72 20 3d 20 22 61 6c 65 72 74 22 3b 0a 09 65 6c r = "alert";..el
15b0: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
15c0: 53 4c 5f 53 54 5f 43 4f 4e 4e 45 43 54 29 09 6d SL_ST_CONNECT).m
15d0: 61 6a 6f 72 20 3d 20 22 63 6f 6e 6e 65 63 74 22 ajor = "connect"
15e0: 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 ;..else if (wher
15f0: 65 20 26 20 53 53 4c 5f 53 54 5f 41 43 43 45 50 e & SSL_ST_ACCEP
1600: 54 29 09 09 6d 61 6a 6f 72 20 3d 20 22 61 63 63 T)..major = "acc
1610: 65 70 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 ept";..else.....
1620: 6d 61 6a 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e major = "unknown
1630: 22 3b 0a 0a 09 69 66 20 28 77 68 65 72 65 20 26 ";...if (where &
1640: 20 53 53 4c 5f 43 42 5f 52 45 41 44 29 09 09 6d SSL_CB_READ)..m
1650: 69 6e 6f 72 20 3d 20 22 72 65 61 64 22 3b 0a 09 inor = "read";..
1660: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
1670: 20 53 53 4c 5f 43 42 5f 57 52 49 54 45 29 09 09 SSL_CB_WRITE)..
1680: 6d 69 6e 6f 72 20 3d 20 22 77 72 69 74 65 22 3b minor = "write";
1690: 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 ..else if (where
16a0: 20 26 20 53 53 4c 5f 43 42 5f 4c 4f 4f 50 29 09 & SSL_CB_LOOP).
16b0: 09 6d 69 6e 6f 72 20 3d 20 22 6c 6f 6f 70 22 3b .minor = "loop";
16c0: 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 ..else if (where
16d0: 20 26 20 53 53 4c 5f 43 42 5f 45 58 49 54 29 09 & SSL_CB_EXIT).
16e0: 09 6d 69 6e 6f 72 20 3d 20 22 65 78 69 74 22 3b .minor = "exit";
16f0: 0a 09 65 6c 73 65 09 09 09 09 09 6d 69 6e 6f 72 ..else.....minor
1700: 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 20 20 = "unknown";.
1710: 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 }.. Tcl_Lis
1720: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
1730: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
1740: 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 erp, cmdPtr, ..
1750: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1760: 4f 62 6a 28 20 22 69 6e 66 6f 22 2c 20 2d 31 29 Obj( "info", -1)
1770: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 );.. Tcl_List
1780: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
1790: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ( statePtr->inte
17a0: 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 rp, cmdPtr, ..
17b0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
17c0: 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e bj( Tcl_GetChann
17d0: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
17e0: 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a >self), -1) );..
17f0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1800: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1810: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1820: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1830: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d _NewStringObj( m
1840: 61 6a 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 ajor, -1) );..
1850: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1860: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
1870: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
1880: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
1890: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d 69 6e ewStringObj( min
18a0: 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 or, -1) );..
18b0: 69 66 20 28 77 68 65 72 65 20 26 20 28 53 53 4c if (where & (SSL
18c0: 5f 43 42 5f 4c 4f 4f 50 7c 53 53 4c 5f 43 42 5f _CB_LOOP|SSL_CB_
18d0: 45 58 49 54 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 EXIT)) {..Tcl_Li
18e0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
18f0: 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e nt( statePtr->in
1900: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 terp, cmdPtr,..
1910: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
1920: 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 Obj( SSL_state_s
1930: 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c tring_long(ssl),
1940: 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c -1) );. } el
1950: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
1960: 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a 09 SL_CB_ALERT) {..
1970: 43 4f 4e 53 54 20 63 68 61 72 20 2a 63 70 20 3d CONST char *cp =
1980: 20 28 63 68 61 72 20 2a 29 20 53 53 4c 5f 61 6c (char *) SSL_al
1990: 65 72 74 5f 64 65 73 63 5f 73 74 72 69 6e 67 5f ert_desc_string_
19a0: 6c 6f 6e 67 28 72 65 74 29 3b 0a 0a 09 54 63 6c long(ret);...Tcl
19b0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
19c0: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
19d0: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
19e0: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
19f0: 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20 ingObj( cp, -1)
1a00: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
1a10: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
1a20: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
1a30: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
1a40: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 Ptr,.. Tcl_Ne
1a50: 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f wStringObj( SSL_
1a60: 73 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e state_string_lon
1a70: 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 g(ssl), -1) );.
1a80: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 50 72 65 }. Tcl_Pre
1a90: 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 serve( (ClientDa
1aa0: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
1ab0: 74 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 terp);. Tcl_P
1ac0: 72 65 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 reserve( (Client
1ad0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b Data) statePtr);
1ae0: 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
1af0: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
1b00: 0a 20 20 20 20 28 76 6f 69 64 29 20 54 63 6c 5f . (void) Tcl_
1b10: 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 EvalObjEx(stateP
1b20: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1b30: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f tr, TCL_EVAL_GLO
1b40: 42 41 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 BAL);. Tcl_De
1b50: 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 crRefCount( cmdP
1b60: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 tr);.. Tcl_Re
1b70: 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 lease( (ClientDa
1b80: 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 ta) statePtr);.
1b90: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 Tcl_Release(
1ba0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
1bb0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
1bc0: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
1bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1c10: 0a 20 2a 20 56 65 72 69 66 79 43 61 6c 6c 62 61 . * VerifyCallba
1c20: 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 4d 6f 6e 69 ck --. *. *.Moni
1c30: 74 6f 72 73 20 53 53 4c 20 63 65 72 74 69 66 69 tors SSL certifi
1c40: 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 20 cate validation
1c50: 70 72 6f 63 65 73 73 2e 0a 20 2a 09 54 68 69 73 process.. *.This
1c60: 20 69 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 is called whene
1c70: 76 65 72 20 61 20 63 65 72 74 69 66 69 63 61 74 ver a certificat
1c80: 65 20 69 73 20 69 6e 73 70 65 63 74 65 64 0a 20 e is inspected.
1c90: 2a 09 6f 72 20 64 65 63 69 64 65 64 20 69 6e 76 *.or decided inv
1ca0: 61 6c 69 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 alid.. *. * Resu
1cb0: 6c 74 73 3a 0a 20 2a 09 41 20 63 61 6c 6c 62 61 lts:. *.A callba
1cc0: 63 6b 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 ck bound to the
1cd0: 73 6f 63 6b 65 74 20 6d 61 79 20 72 65 74 75 72 socket may retur
1ce0: 6e 20 6f 6e 65 20 6f 66 3a 0a 20 2a 09 20 20 20 n one of:. *.
1cf0: 20 30 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 0...- the certi
1d00: 66 69 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 ficate is deemed
1d10: 20 69 6e 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 invalid. *.
1d20: 31 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 1...- the certif
1d30: 69 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 icate is deemed
1d40: 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 65 6d 70 valid. *. emp
1d50: 74 79 20 73 74 72 69 6e 67 09 2d 20 6e 6f 20 63 ty string.- no c
1d60: 68 61 6e 67 65 20 74 6f 20 63 65 72 74 69 66 69 hange to certifi
1d70: 63 61 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 0a cate validation.
1d80: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1d90: 74 73 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 66 ts:. *.The err f
1da0: 69 65 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 ield of the curr
1db0: 65 6e 74 6c 79 20 6f 70 65 72 61 74 69 76 65 20 ently operative
1dc0: 53 74 61 74 65 20 69 73 20 73 65 74 0a 20 2a 09 State is set. *.
1dd0: 20 20 74 6f 20 61 20 73 74 72 69 6e 67 20 64 65 to a string de
1de0: 73 63 72 69 62 69 6e 67 20 74 68 65 20 53 53 4c scribing the SSL
1df0: 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 negotiation fai
1e00: 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d lure reason. *--
1e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1e50: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
1e60: 0a 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 28 .VerifyCallback(
1e70: 69 6e 74 20 6f 6b 2c 20 58 35 30 39 5f 53 54 4f int ok, X509_STO
1e80: 52 45 5f 43 54 58 20 2a 63 74 78 29 0a 7b 0a 20 RE_CTX *ctx).{.
1e90: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 Tcl_Obj *cmdP
1ea0: 74 72 2c 20 2a 72 65 73 75 6c 74 3b 0a 20 20 20 tr, *result;.
1eb0: 20 63 68 61 72 20 2a 65 72 72 53 74 72 2c 20 2a char *errStr, *
1ec0: 73 74 72 69 6e 67 3b 0a 20 20 20 20 69 6e 74 20 string;. int
1ed0: 6c 65 6e 67 74 68 3b 0a 20 20 20 20 53 53 4c 20 length;. SSL
1ee0: 20 20 2a 73 73 6c 09 09 3d 20 28 53 53 4c 2a 29 *ssl..= (SSL*)
1ef0: 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 X509_STORE_CTX_g
1f00: 65 74 5f 61 70 70 5f 64 61 74 61 28 63 74 78 29 et_app_data(ctx)
1f10: 3b 0a 20 20 20 20 58 35 30 39 20 20 2a 63 65 72 ;. X509 *cer
1f20: 74 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f t..= X509_STORE_
1f30: 43 54 58 5f 67 65 74 5f 63 75 72 72 65 6e 74 5f CTX_get_current_
1f40: 63 65 72 74 28 63 74 78 29 3b 0a 20 20 20 20 53 cert(ctx);. S
1f50: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d tate *statePtr.=
1f60: 20 28 53 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 (State*)SSL_get
1f70: 5f 61 70 70 5f 64 61 74 61 28 73 73 6c 29 3b 0a _app_data(ssl);.
1f80: 20 20 20 20 69 6e 74 20 64 65 70 74 68 09 09 3d int depth..=
1f90: 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f X509_STORE_CTX_
1fa0: 67 65 74 5f 65 72 72 6f 72 5f 64 65 70 74 68 28 get_error_depth(
1fb0: 63 74 78 29 3b 0a 20 20 20 20 69 6e 74 20 65 72 ctx);. int er
1fc0: 72 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f r..= X509_STORE_
1fd0: 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 28 63 74 CTX_get_error(ct
1fe0: 78 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 x);.. dprintf
1ff0: 28 73 74 64 65 72 72 2c 20 22 56 65 72 69 66 79 (stderr, "Verify
2000: 3a 20 25 64 5c 6e 22 2c 20 6f 6b 29 3b 0a 0a 20 : %d\n", ok);..
2010: 20 20 20 69 66 20 28 21 6f 6b 29 20 7b 0a 09 65 if (!ok) {..e
2020: 72 72 53 74 72 20 3d 20 28 63 68 61 72 2a 29 58 rrStr = (char*)X
2030: 35 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 509_verify_cert_
2040: 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 error_string(err
2050: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
2060: 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 72 20 .errStr = (char
2070: 2a 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 *)0;. }..
2080: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 if (statePtr->ca
2090: 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f llback == (Tcl_O
20a0: 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 bj*)NULL) {..if
20b0: 28 73 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67 (statePtr->vflag
20c0: 73 20 26 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 s & SSL_VERIFY_F
20d0: 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 AIL_IF_NO_PEER_C
20e0: 45 52 54 29 20 7b 0a 09 20 20 20 20 72 65 74 75 ERT) {.. retu
20f0: 72 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 65 20 7b rn ok;..} else {
2100: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 31 3b 0a .. return 1;.
2110: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 .}. }. cmd
2120: 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 Ptr = Tcl_Duplic
2130: 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d ateObj(statePtr-
2140: 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 >callback);..
2150: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
2160: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 ndElement( state
2170: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 Ptr->interp, cmd
2180: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e Ptr, .. Tcl_N
2190: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 76 65 ewStringObj( "ve
21a0: 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 rify", -1));..
21b0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
21c0: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
21d0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
21e0: 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f dPtr, .. Tcl_
21f0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 NewStringObj( Tc
2200: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
2210: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
2220: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
2230: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2240: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
2250: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
2260: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e ,.. Tcl_NewIn
2270: 74 4f 62 6a 28 20 64 65 70 74 68 29 20 29 3b 0a tObj( depth) );.
2280: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
2290: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
22a0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
22b0: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 6c cmdPtr,.. Tl
22c0: 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 73 74 s_NewX509Obj( st
22d0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
22e0: 63 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 54 63 cert) );.. Tc
22f0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2300: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
2310: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
2320: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 6e ,.. Tcl_NewIn
2330: 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a 20 20 tObj( ok) );..
2340: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
2350: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 endElement( stat
2360: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
2370: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
2380: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 72 72 ewStringObj( err
2390: 53 74 72 20 3f 20 65 72 72 53 74 72 20 3a 20 22 Str ? errStr : "
23a0: 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 ", -1) );.. T
23b0: 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 6c cl_Preserve( (Cl
23c0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
23d0: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 tr->interp);.
23e0: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 Tcl_Preserve( (
23f0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
2400: 65 50 74 72 29 3b 0a 0a 20 20 20 20 73 74 61 74 ePtr);.. stat
2410: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
2420: 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 3b LS_TCL_CALLBACK;
2430: 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 .. Tcl_IncrRe
2440: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
2450: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 45 76 61 . if (Tcl_Eva
2460: 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72 2d lObjEx(statePtr-
2470: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
2480: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c TCL_EVAL_GLOBAL
2490: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
24a0: 2f 2a 20 49 74 20 67 6f 74 20 61 6e 20 65 72 72 /* It got an err
24b0: 6f 72 20 2d 20 72 65 6a 65 63 74 20 74 68 65 20 or - reject the
24c0: 63 65 72 74 69 66 69 63 61 74 65 2e 09 09 2a 2f certificate...*/
24d0: 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 ..Tcl_Background
24e0: 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d Error( statePtr-
24f0: 3e 69 6e 74 65 72 70 29 3b 0a 09 6f 6b 20 3d 20 >interp);..ok =
2500: 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 0;. } else {.
2510: 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 .result = Tcl_Ge
2520: 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 74 65 tObjResult(state
2530: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 73 Ptr->interp);..s
2540: 74 72 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 tring = Tcl_GetS
2550: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 72 65 73 tringFromObj(res
2560: 75 6c 74 2c 20 26 6c 65 6e 67 74 68 29 3b 0a 09 ult, &length);..
2570: 2f 2a 20 41 6e 20 65 6d 70 74 79 20 72 65 73 75 /* An empty resu
2580: 6c 74 20 6c 65 61 76 65 73 20 76 65 72 69 66 69 lt leaves verifi
2590: 63 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 cation unchanged
25a0: 2e 09 2a 2f 0a 09 69 66 20 28 6c 65 6e 67 74 68 ..*/..if (length
25b0: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 20 > 0) {.. if
25c0: 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f (Tcl_GetIntFromO
25d0: 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 bj(statePtr->int
25e0: 65 72 70 2c 20 72 65 73 75 6c 74 2c 20 26 6f 6b erp, result, &ok
25f0: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
2600: 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 .Tcl_BackgroundE
2610: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 69 rror(statePtr->i
2620: 6e 74 65 72 70 29 3b 0a 09 09 6f 6b 20 3d 20 30 nterp);...ok = 0
2630: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 ;.. }..}.
2640: 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 }. Tcl_DecrRe
2650: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
2660: 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e .. statePtr->
2670: 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 flags &= ~(TLS_T
2680: 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 3b 0a 0a 20 CL_CALLBACK);..
2690: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 Tcl_Release(
26a0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
26b0: 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f tePtr);. Tcl_
26c0: 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 Release( (Client
26d0: 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e Data) statePtr->
26e0: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 72 65 interp);.. re
26f0: 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a 20 42 79 20 turn(ok);./* By
2700: 64 65 66 61 75 6c 74 2c 20 6c 65 61 76 65 20 76 default, leave v
2710: 65 72 69 66 69 63 61 74 69 6f 6e 20 75 6e 63 68 erification unch
2720: 61 6e 67 65 64 2e 09 2a 2f 0a 7d 0a 0c 0a 2f 2a anged..*/.}.../*
2730: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2770: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
2780: 5f 45 72 72 6f 72 20 2d 2d 0a 20 2a 0a 20 2a 09 _Error --. *. *.
2790: 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 77 Calls callback w
27a0: 69 74 68 20 24 66 64 20 61 6e 64 20 24 6d 73 67 ith $fd and $msg
27b0: 20 2d 20 73 6f 20 74 68 65 20 63 61 6c 6c 62 61 - so the callba
27c0: 63 6b 20 63 61 6e 20 64 65 63 69 64 65 0a 20 2a ck can decide. *
27d0: 09 77 68 61 74 20 74 6f 20 64 6f 20 77 69 74 68 .what to do with
27e0: 20 65 72 72 6f 72 73 2e 0a 20 2a 0a 20 2a 20 53 errors.. *. * S
27f0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
2800: 54 68 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 The err field of
2810: 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f the currently o
2820: 70 65 72 61 74 69 76 65 20 53 74 61 74 65 20 69 perative State i
2830: 73 20 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 s set. *. to a
2840: 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e string describin
2850: 67 20 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 g the SSL negoti
2860: 61 74 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 ation failure re
2870: 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ason. *---------
2880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 ----------. */.v
28c0: 6f 69 64 0a 54 6c 73 5f 45 72 72 6f 72 28 53 74 oid.Tls_Error(St
28d0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 ate *statePtr, c
28e0: 68 61 72 20 2a 6d 73 67 29 0a 7b 0a 20 20 20 20 har *msg).{.
28f0: 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b Tcl_Obj *cmdPtr;
2900: 0a 0a 20 20 20 20 69 66 20 28 6d 73 67 20 26 26 .. if (msg &&
2910: 20 2a 6d 73 67 29 20 7b 0a 09 54 63 6c 5f 53 65 *msg) {..Tcl_Se
2920: 74 45 72 72 6f 72 43 6f 64 65 28 73 74 61 74 65 tErrorCode(state
2930: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 22 53 53 Ptr->interp, "SS
2940: 4c 22 2c 20 6d 73 67 2c 20 28 63 68 61 72 20 2a L", msg, (char *
2950: 29 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c )NULL);. } el
2960: 73 65 20 7b 0a 09 6d 73 67 20 3d 20 54 63 6c 5f se {..msg = Tcl_
2970: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
2980: 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c (Tcl_GetObjResul
2990: 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 t(statePtr->inte
29a0: 72 70 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 rp), NULL);.
29b0: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e }. statePtr->
29c0: 65 72 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 err = msg;..
29d0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 if (statePtr->ca
29e0: 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f llback == (Tcl_O
29f0: 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 bj*)NULL) {..cha
2a00: 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 r buf[BUFSIZ];..
2a10: 73 70 72 69 6e 74 66 28 62 75 66 2c 20 22 53 53 sprintf(buf, "SS
2a20: 4c 20 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 L channel \"%s\"
2a30: 3a 20 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 : error: %s",..
2a40: 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 Tcl_GetChanne
2a50: 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e lName(statePtr->
2a60: 73 65 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 self), msg);..Tc
2a70: 6c 5f 53 65 74 52 65 73 75 6c 74 28 20 73 74 61 l_SetResult( sta
2a80: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 tePtr->interp, b
2a90: 75 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 uf, TCL_VOLATILE
2aa0: 29 3b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 );..Tcl_Backgrou
2ab0: 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 ndError( statePt
2ac0: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 72 65 74 r->interp);..ret
2ad0: 75 72 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 urn;. }. c
2ae0: 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c mdPtr = Tcl_Dupl
2af0: 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 icateObj(statePt
2b00: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 r->callback);..
2b10: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
2b20: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 pendElement(stat
2b30: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
2b40: 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f dPtr, .. Tcl_
2b50: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 65 72 NewStringObj("er
2b60: 72 6f 72 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 ror", -1));..
2b70: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
2b80: 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 ndElement(stateP
2b90: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
2ba0: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 tr, .. Tcl_Ne
2bb0: 77 53 74 72 69 6e 67 4f 62 6a 28 54 63 6c 5f 47 wStringObj(Tcl_G
2bc0: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
2bd0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d atePtr->self), -
2be0: 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 1));.. Tcl_Li
2bf0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
2c00: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 nt(statePtr->int
2c10: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
2c20: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
2c30: 62 6a 28 6d 73 67 2c 20 2d 31 29 29 3b 0a 0a 20 bj(msg, -1));..
2c40: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 Tcl_Preserve(
2c50: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
2c60: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
2c70: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
2c80: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
2c90: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 atePtr);.. Tc
2ca0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 63 l_IncrRefCount(c
2cb0: 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 28 mdPtr);. if (
2cc0: 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 Tcl_EvalObjEx(st
2cd0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
2ce0: 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c cmdPtr, TCL_EVAL
2cf0: 5f 47 4c 4f 42 41 4c 29 20 21 3d 20 54 43 4c 5f _GLOBAL) != TCL_
2d00: 4f 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 OK) {..Tcl_Backg
2d10: 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 roundError(state
2d20: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 Ptr->interp);.
2d30: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 }. Tcl_Decr
2d40: 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 RefCount(cmdPtr)
2d50: 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 ;.. Tcl_Relea
2d60: 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 se((ClientData)
2d70: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 statePtr);. T
2d80: 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65 cl_Release((Clie
2d90: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
2da0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f ->interp);.}.../
2db0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2df0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 61 -------. *. * Pa
2e00: 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 20 2d sswordCallback -
2e10: 2d 20 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 - . *. *.Called
2e20: 77 68 65 6e 20 61 20 70 61 73 73 77 6f 72 64 20 when a password
2e30: 69 73 20 6e 65 65 64 65 64 20 74 6f 20 75 6e 70 is needed to unp
2e40: 61 63 6b 20 52 53 41 20 61 6e 64 20 50 45 4d 20 ack RSA and PEM
2e50: 6b 65 79 73 2e 0a 20 2a 09 45 76 61 6c 73 20 61 keys.. *.Evals a
2e60: 6e 79 20 62 6f 75 6e 64 20 70 61 73 73 77 6f 72 ny bound passwor
2e70: 64 20 73 63 72 69 70 74 20 61 6e 64 20 72 65 74 d script and ret
2e80: 75 72 6e 73 20 74 68 65 20 72 65 73 75 6c 74 20 urns the result
2e90: 61 73 0a 20 2a 09 74 68 65 20 70 61 73 73 77 6f as. *.the passwo
2ea0: 72 64 20 73 74 72 69 6e 67 2e 0a 20 2a 2d 2d 2d rd string.. *---
2eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ef0: 0a 20 2a 2f 0a 23 69 66 64 65 66 20 50 52 45 5f . */.#ifdef PRE_
2f00: 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f 2a OPENSSL_0_9_4./*
2f10: 0a 20 2a 20 4e 6f 20 77 61 79 20 74 6f 20 68 61 . * No way to ha
2f20: 6e 64 6c 65 20 75 73 65 72 2d 64 61 74 61 20 74 ndle user-data t
2f30: 68 65 72 65 66 6f 72 65 20 6e 6f 20 77 61 79 20 herefore no way
2f40: 77 69 74 68 6f 75 74 20 61 20 67 6c 6f 62 61 6c without a global
2f50: 0a 20 2a 20 76 61 72 69 61 62 6c 65 20 74 6f 20 . * variable to
2f60: 61 63 63 65 73 73 20 74 68 65 20 54 63 6c 20 69 access the Tcl i
2f70: 6e 74 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 73 nterpreter..*/.s
2f80: 74 61 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f tatic int.Passwo
2f90: 72 64 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 rdCallback(char
2fa0: 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 *buf, int size,
2fb0: 69 6e 74 20 76 65 72 69 66 79 29 0a 7b 0a 20 20 int verify).{.
2fc0: 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 return -1;.}.#
2fd0: 65 6c 73 65 0a 73 74 61 74 69 63 20 69 6e 74 0a else.static int.
2fe0: 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b PasswordCallback
2ff0: 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 (char *buf, int
3000: 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69 66 79 size, int verify
3010: 2c 20 76 6f 69 64 20 2a 75 64 61 74 61 29 0a 7b , void *udata).{
3020: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
3030: 65 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a 29 ePtr.= (State *)
3040: 20 75 64 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f udata;. Tcl_
3050: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 09 3d Interp *interp.=
3060: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
3070: 70 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a p;. Tcl_Obj *
3080: 63 6d 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 cmdPtr;. int
3090: 72 65 73 75 6c 74 3b 0a 0a 20 20 20 20 69 66 20 result;.. if
30a0: 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 (statePtr->passw
30b0: 6f 72 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ord == NULL) {..
30c0: 69 66 20 28 54 63 6c 5f 45 76 61 6c 45 78 28 69 if (Tcl_EvalEx(i
30d0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 61 73 nterp, "tls::pas
30e0: 73 77 6f 72 64 22 2c 20 2d 31 2c 20 54 43 4c 5f sword", -1, TCL_
30f0: 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 0a 09 09 3d EVAL_GLOBAL)...=
3100: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 = TCL_OK) {..
3110: 20 63 68 61 72 20 2a 72 65 74 20 3d 20 28 63 68 char *ret = (ch
3120: 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 ar *) Tcl_GetStr
3130: 69 6e 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ingResult(interp
3140: 29 3b 0a 09 20 20 20 20 73 74 72 6e 63 70 79 28 );.. strncpy(
3150: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f buf, ret, (size_
3160: 74 29 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 72 t) size);.. r
3170: 65 74 75 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 eturn (int)strle
3180: 6e 28 72 65 74 29 3b 0a 09 7d 20 65 6c 73 65 20 n(ret);..} else
3190: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 {.. return -1
31a0: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ;..}. }..
31b0: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
31c0: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
31d0: 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 0a tr->password);..
31e0: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 Tcl_Preserve
31f0: 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 ((ClientData) st
3200: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
3210: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
3220: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 e((ClientData) s
3230: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 tatePtr);.. T
3240: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
3250: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 72 65 73 cmdPtr);. res
3260: 75 6c 74 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 ult = Tcl_EvalOb
3270: 6a 45 78 28 69 6e 74 65 72 70 2c 20 63 6d 64 50 jEx(interp, cmdP
3280: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f tr, TCL_EVAL_GLO
3290: 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 BAL);. if (re
32a0: 73 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 sult != TCL_OK)
32b0: 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e {..Tcl_Backgroun
32c0: 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d dError(statePtr-
32d0: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a >interp);. }.
32e0: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
32f0: 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a 20 ount(cmdPtr);..
3300: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 Tcl_Release((
3310: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
3320: 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 ePtr);. Tcl_R
3330: 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 elease((ClientDa
3340: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
3350: 74 65 72 70 29 3b 0a 0a 20 20 20 20 69 66 20 28 terp);.. if (
3360: 72 65 73 75 6c 74 20 3d 3d 20 54 43 4c 5f 4f 4b result == TCL_OK
3370: 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 74 20 3d ) {..char *ret =
3380: 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 (char *) Tcl_Ge
3390: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e tStringResult(in
33a0: 74 65 72 70 29 3b 0a 09 73 74 72 6e 63 70 79 28 terp);..strncpy(
33b0: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f buf, ret, (size_
33c0: 74 29 20 73 69 7a 65 29 3b 0a 09 72 65 74 75 72 t) size);..retur
33d0: 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 72 65 n (int)strlen(re
33e0: 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b t);. } else {
33f0: 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 ..return -1;.
3400: 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f 2a }.}.#endif.../*
3410: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3450: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 ------. *. * Cip
3460: 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c 69 hersObjCmd -- li
3470: 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 st available cip
3480: 68 65 72 73 0a 20 2a 0a 20 2a 09 54 68 69 73 20 hers. *. *.This
3490: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
34a0: 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 oked to process
34b0: 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 the "tls::cipher
34c0: 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f s" command. *.to
34d0: 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 list available
34e0: 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 75 ciphers, based u
34f0: 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c pon protocol sel
3500: 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 ected.. *. * Res
3510: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
3520: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c ard Tcl result l
3530: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
3540: 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 effects:. *.cons
3550: 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 72 tructs and destr
3560: 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 oys SSL context
3570: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d (CTX). *. *-----
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
35c0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 43 69 */.static int.Ci
35d0: 70 68 65 72 73 4f 62 6a 43 6d 64 28 63 6c 69 65 phersObjCmd(clie
35e0: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
35f0: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
3600: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3610: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
3620: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
3630: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
3640: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
3650: 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 Tcl_Obj.*CONST
3660: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 73 74 objv[];.{. st
3670: 61 74 69 63 20 43 4f 4e 53 54 38 34 20 63 68 61 atic CONST84 cha
3680: 72 20 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d r *protocols[] =
3690: 20 7b 0a 09 22 73 73 6c 32 22 2c 09 22 73 73 6c {.."ssl2",."ssl
36a0: 33 22 2c 09 22 74 6c 73 31 22 2c 09 4e 55 4c 4c 3",."tls1",.NULL
36b0: 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 6e 75 6d . };. enum
36c0: 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54 4c 53 protocol {..TLS
36d0: 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c 33 2c _SSL2, TLS_SSL3,
36e0: 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 5f 4e TLS_TLS1, TLS_N
36f0: 4f 4e 45 0a 20 20 20 20 7d 3b 0a 20 20 20 20 54 ONE. };. T
3700: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a cl_Obj *objPtr;.
3710: 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 SSL_CTX *ctx
3720: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c = NULL;. SSL
3730: 20 2a 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *ssl = NULL;.
3740: 20 20 53 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 STACK_OF(SSL_C
3750: 49 50 48 45 52 29 20 2a 73 6b 3b 0a 20 20 20 20 IPHER) *sk;.
3760: 63 68 61 72 20 2a 63 70 2c 20 62 75 66 5b 42 55 char *cp, buf[BU
3770: 46 53 49 5a 5d 3b 0a 20 20 20 20 69 6e 74 20 69 FSIZ];. int i
3780: 6e 64 65 78 2c 20 76 65 72 62 6f 73 65 20 3d 20 ndex, verbose =
3790: 30 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 0;.. if (objc
37a0: 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 < 2 || objc > 3
37b0: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
37c0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
37d0: 20 6f 62 6a 76 2c 20 22 70 72 6f 74 6f 63 6f 6c objv, "protocol
37e0: 20 3f 76 65 72 62 6f 73 65 3f 22 29 3b 0a 09 72 ?verbose?");..r
37f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3800: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 . }. if (T
3810: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f cl_GetIndexFromO
3820: 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 bj( interp, objv
3830: 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 [1], protocols,
3840: 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c 0a 09 "protocol", 0,..
3850: 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f &index) != TCL_O
3860: 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c K) {..return TCL
3870: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
3880: 20 20 69 66 20 28 6f 62 6a 63 20 3e 20 32 20 26 if (objc > 2 &
3890: 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e & Tcl_GetBoolean
38a0: 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c FromObj( interp,
38b0: 20 6f 62 6a 76 5b 32 5d 2c 0a 09 26 76 65 72 62 objv[2],..&verb
38c0: 6f 73 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ose) != TCL_OK)
38d0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
38e0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 ROR;. }. s
38f0: 77 69 74 63 68 20 28 28 65 6e 75 6d 20 70 72 6f witch ((enum pro
3900: 74 6f 63 6f 6c 29 69 6e 64 65 78 29 20 7b 0a 20 tocol)index) {.
3910: 20 20 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 32 case TLS_SSL2
3920: 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f :.#if defined(NO
3930: 5f 53 53 4c 32 29 0a 09 09 54 63 6c 5f 41 70 70 _SSL2)...Tcl_App
3940: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
3950: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
3960: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c supported", NULL
3970: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
3980: 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 ERROR;.#else...c
3990: 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 tx = SSL_CTX_new
39a0: 28 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 (SSLv2_method())
39b0: 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a ; break;.#endif.
39c0: 20 20 20 20 63 61 73 65 20 54 4c 53 5f 53 53 4c case TLS_SSL
39d0: 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 3:.#if defined(N
39e0: 4f 5f 53 53 4c 33 29 0a 09 09 54 63 6c 5f 41 70 O_SSL3)...Tcl_Ap
39f0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3a00: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
3a10: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c supported", NUL
3a20: 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c L);...return TCL
3a30: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 _ERROR;.#else...
3a40: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
3a50: 77 28 53 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 w(SSLv3_method()
3a60: 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 ); break;.#endif
3a70: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c . case TLS_TL
3a80: 53 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 S1:.#if defined(
3a90: 4e 4f 5f 54 4c 53 31 29 0a 09 09 54 63 6c 5f 41 NO_TLS1)...Tcl_A
3aa0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
3ab0: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
3ac0: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
3ad0: 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 LL);...return TC
3ae0: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 L_ERROR;.#else..
3af0: 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e .ctx = SSL_CTX_n
3b00: 65 77 28 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 ew(TLSv1_method(
3b10: 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 )); break;.#endi
3b20: 66 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 f. default:..
3b30: 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 .break;. }.
3b40: 20 20 69 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c if (ctx == NUL
3b50: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
3b60: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 Result(interp, R
3b70: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
3b80: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
3b90: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3ba0: 7d 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 4c 5f }. ssl = SSL_
3bb0: 6e 65 77 28 63 74 78 29 3b 0a 20 20 20 20 69 66 new(ctx);. if
3bc0: 20 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b (ssl == NULL) {
3bd0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
3be0: 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f lt(interp, REASO
3bf0: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 N(), (char *) NU
3c00: 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 LL);..SSL_CTX_fr
3c10: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
3c20: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3c30: 7d 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 }. objPtr = T
3c40: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 cl_NewListObj( 0
3c50: 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 , NULL);.. if
3c60: 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 (!verbose) {..f
3c70: 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b or (index = 0; ;
3c80: 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 index++) {..
3c90: 20 63 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c cp = (char*)SSL
3ca0: 5f 67 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 _get_cipher_list
3cb0: 28 20 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 ( ssl, index);..
3cc0: 20 20 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 if (cp == NU
3cd0: 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 LL) break;..
3ce0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
3cf0: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
3d00: 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f , objPtr,...Tcl_
3d10: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 NewStringObj( cp
3d20: 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 , -1) );..}.
3d30: 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 } else {..sk = S
3d40: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 SL_get_ciphers(s
3d50: 73 6c 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 sl);...for (inde
3d60: 78 20 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 x = 0; index < s
3d70: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d k_SSL_CIPHER_num
3d80: 28 73 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b (sk); index++) {
3d90: 0a 09 20 20 20 20 72 65 67 69 73 74 65 72 20 73 .. register s
3da0: 69 7a 65 5f 74 20 69 3b 0a 09 20 20 20 20 53 53 ize_t i;.. SS
3db0: 4c 5f 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 L_CIPHER_descrip
3dc0: 74 69 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 tion( sk_SSL_CIP
3dd0: 48 45 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 HER_value( sk, i
3de0: 6e 64 65 78 29 2c 0a 09 09 09 09 20 20 20 20 62 ndex),..... b
3df0: 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 uf, sizeof(buf))
3e00: 3b 0a 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 ;.. for (i =
3e10: 73 74 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b strlen(buf) - 1;
3e20: 20 69 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 i ; i--) {...if
3e30: 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 20 (buf[i] == ' '
3e40: 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e || buf[i] == '\n
3e50: 27 20 7c 7c 0a 09 09 20 20 20 20 62 75 66 5b 69 ' ||... buf[i
3e60: 5d 20 3d 3d 20 27 5c 72 27 20 7c 7c 20 62 75 66 ] == '\r' || buf
3e70: 5b 69 5d 20 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 [i] == '\t') {..
3e80: 09 20 20 20 20 62 75 66 5b 69 5d 20 3d 20 27 5c . buf[i] = '\
3e90: 30 27 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 0';...} else {..
3ea0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a . break;...}.
3eb0: 09 20 20 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f . }.. Tcl_
3ec0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
3ed0: 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 ment( interp, ob
3ee0: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
3ef0: 74 72 69 6e 67 4f 62 6a 28 20 62 75 66 2c 20 2d tringObj( buf, -
3f00: 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 1) );..}. }.
3f10: 20 20 20 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 SSL_free(ssl)
3f20: 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 ;. SSL_CTX_fr
3f30: 65 65 28 63 74 78 29 3b 0a 0a 20 20 20 20 54 63 ee(ctx);.. Tc
3f40: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 l_SetObjResult(
3f50: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
3f60: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
3f70: 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d OK;.}.../*. *---
3f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fc0: 0a 20 2a 0a 20 2a 20 48 61 6e 64 73 68 61 6b 65 . *. * Handshake
3fd0: 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 ObjCmd --. *. *.
3fe0: 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 This command is
3ff0: 75 73 65 64 20 74 6f 20 76 65 72 69 66 79 20 77 used to verify w
4000: 68 65 74 68 65 72 20 74 68 65 20 68 61 6e 64 73 hether the hands
4010: 68 61 6b 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 hake is complete
4020: 0a 20 2a 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 . *.or not.. *.
4030: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
4040: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
4050: 75 6c 74 2e 20 31 20 6d 65 61 6e 73 20 68 61 6e ult. 1 means han
4060: 64 73 68 61 6b 65 20 63 6f 6d 70 6c 65 74 65 2c dshake complete,
4070: 20 30 20 6d 65 61 6e 73 20 70 65 6e 64 69 6e 67 0 means pending
4080: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
4090: 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 ects:. *.May for
40a0: 63 65 20 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 ce SSL negotiati
40b0: 6f 6e 20 74 6f 20 74 61 6b 65 20 70 6c 61 63 65 on to take place
40c0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
40d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
4110: 73 74 61 74 69 63 20 69 6e 74 0a 48 61 6e 64 73 static int.Hands
4120: 68 61 6b 65 4f 62 6a 43 6d 64 28 63 6c 69 65 6e hakeObjCmd(clien
4130: 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f tData, interp, o
4140: 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 bjc, objv). C
4150: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
4160: 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 Data;./* Not use
4170: 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e d. */. Tcl_In
4180: 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 terp *interp;.
4190: 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 int objc;.
41a0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f Tcl_Obj *CONST o
41b0: 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c bjv[];.{. Tcl
41c0: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 _Channel chan;..
41d0: 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 /* The channel t
41e0: 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e o set a mode on.
41f0: 20 2a 2f 0a 20 20 20 20 53 74 61 74 65 20 2a 73 */. State *s
4200: 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 tatePtr;../* cli
4210: 65 6e 74 20 73 74 61 74 65 20 66 6f 72 20 73 73 ent state for ss
4220: 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 20 l socket */.
4230: 69 6e 74 20 72 65 74 20 3d 20 31 3b 0a 0a 20 20 int ret = 1;..
4240: 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 if (objc != 2)
4250: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
4260: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
4270: 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 objv, "channel")
4280: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
4290: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
42a0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
42b0: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 annel(interp, Tc
42c0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
42d0: 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c bj(objv[1], NULL
42e0: 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 ), NULL);. if
42f0: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
4300: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
4310: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
4320: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 R;. }. if
4330: 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 (channelTypeVers
4340: 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e ion == TLS_CHANN
4350: 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a EL_VERSION_2) {.
4360: 09 2f 2a 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 ./*.. * Make sur
4370: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
4380: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
4390: 6e 65 6c 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d nel.. */..chan =
43a0: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
43b0: 65 6c 28 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a el(chan);. }.
43c0: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 if (Tcl_GetC
43d0: 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 hannelType(chan)
43e0: 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 != Tls_ChannelT
43f0: 79 70 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 ype()) {..Tcl_Ap
4400: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
4410: 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 p, "bad channel
4420: 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e \"", Tcl_GetChan
4430: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 nelName(chan),..
4440: 09 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 ."\": not a TLS
4450: 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b channel", NULL);
4460: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
4470: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 OR;. }. st
4480: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 atePtr = (State
4490: 2a 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c *)Tcl_GetChannel
44a0: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 InstanceData(cha
44b0: 6e 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 53 53 n);.. if (!SS
44c0: 4c 5f 69 73 5f 69 6e 69 74 5f 66 69 6e 69 73 68 L_is_init_finish
44d0: 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ed(statePtr->ssl
44e0: 29 29 20 7b 0a 09 69 6e 74 20 65 72 72 3b 0a 09 )) {..int err;..
44f0: 72 65 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f ret = Tls_WaitFo
4500: 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 rConnect(statePt
4510: 72 2c 20 26 65 72 72 29 3b 0a 09 69 66 20 28 28 r, &err);..if ((
4520: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
4530: 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 & TLS_TCL_ASYNC)
4540: 20 26 26 20 65 72 72 20 3d 3d 20 45 41 47 41 49 && err == EAGAI
4550: 4e 29 20 7b 0a 09 20 20 20 20 72 65 74 20 3d 20 N) {.. ret =
4560: 30 3b 0a 09 7d 0a 09 69 66 20 28 72 65 74 20 3c 0;..}..if (ret <
4570: 20 30 29 20 7b 0a 09 20 20 20 20 43 4f 4e 53 54 0) {.. CONST
4580: 20 63 68 61 72 20 2a 65 72 72 53 74 72 20 3d 20 char *errStr =
4590: 73 74 61 74 65 50 74 72 2d 3e 65 72 72 3b 0a 09 statePtr->err;..
45a0: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
45b0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 ult(interp);..
45c0: 20 20 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 65 Tcl_SetErrno(e
45d0: 72 72 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 21 rr);... if (!
45e0: 65 72 72 53 74 72 20 7c 7c 20 2a 65 72 72 53 74 errStr || *errSt
45f0: 72 20 3d 3d 20 30 29 20 7b 0a 09 09 65 72 72 53 r == 0) {...errS
4600: 74 72 20 3d 20 54 63 6c 5f 50 6f 73 69 78 45 72 tr = Tcl_PosixEr
4610: 72 6f 72 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 ror(interp);..
4620: 20 20 7d 0a 0a 09 20 20 20 20 54 63 6c 5f 41 70 }... Tcl_Ap
4630: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
4640: 70 2c 20 22 68 61 6e 64 73 68 61 6b 65 20 66 61 p, "handshake fa
4650: 69 6c 65 64 3a 20 22 2c 20 65 72 72 53 74 72 2c iled: ", errStr,
4660: 0a 09 09 20 20 20 20 28 63 68 61 72 20 2a 29 20 ... (char *)
4670: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 NULL);.. retu
4680: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
4690: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f . }.. Tcl_
46a0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
46b0: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f erp, Tcl_NewIntO
46c0: 62 6a 28 72 65 74 29 29 3b 0a 20 20 20 20 72 65 bj(ret));. re
46d0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c turn TCL_OK;.}..
46e0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
46f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
4730: 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a ImportObjCmd --.
4740: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
4750: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
4760: 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 22 to process the "
4770: 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 0a ssl" command. *.
4780: 20 2a 09 54 68 65 20 73 73 6c 20 63 6f 6d 6d 61 *.The ssl comma
4790: 6e 64 20 70 75 73 68 65 73 20 53 53 4c 20 6f 76 nd pushes SSL ov
47a0: 65 72 20 61 20 28 6e 65 77 6c 79 20 63 6f 6e 6e er a (newly conn
47b0: 65 63 74 65 64 29 20 74 63 70 20 73 6f 63 6b 65 ected) tcp socke
47c0: 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a t. *. * Results:
47d0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
47e0: 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a cl result.. *. *
47f0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
4800: 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68 65 *.May modify the
4810: 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e 20 behavior of an
4820: 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 IO channel.. *.
4830: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4870: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
4880: 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62 6a 43 6d int.ImportObjCm
4890: 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e d(clientData, in
48a0: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
48b0: 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61 74 61 ). ClientData
48c0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 clientData;./*
48d0: 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 Not used. */.
48e0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
48f0: 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a erp;. int obj
4900: 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a c;. Tcl_Obj *
4910: 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a CONST objv[];.{.
4920: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
4930: 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 chan;../* The ch
4940: 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 6d annel to set a m
4950: 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 20 53 ode on. */. S
4960: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 09 tate *statePtr;.
4970: 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 65 ./* client state
4980: 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 20 for ssl socket
4990: 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a */. SSL_CTX *
49a0: 63 74 78 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ctx.= NULL;.
49b0: 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70 74 09 Tcl_Obj *script.
49c0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
49d0: 4f 62 6a 20 2a 70 61 73 73 77 6f 72 64 09 3d 20 Obj *password.=
49e0: 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 69 64 NULL;. int id
49f0: 78 2c 20 6c 65 6e 3b 0a 20 20 20 20 69 6e 74 20 x, len;. int
4a00: 66 6c 61 67 73 09 09 3d 20 54 4c 53 5f 54 43 4c flags..= TLS_TCL
4a10: 5f 49 4e 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 _INIT;. int s
4a20: 65 72 76 65 72 09 09 3d 20 30 3b 09 2f 2a 20 69 erver..= 0;./* i
4a30: 73 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 s connection inc
4a40: 6f 6d 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e oming or outgoin
4a50: 67 3f 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a g? */. char *
4a60: 6b 65 79 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 key..= NULL;.
4a70: 20 63 68 61 72 20 2a 63 65 72 74 09 09 3d 20 4e char *cert..= N
4a80: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 ULL;. char *c
4a90: 69 70 68 65 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 iphers.= NULL;.
4aa0: 20 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 char *CAfile.
4ab0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 = NULL;. char
4ac0: 20 2a 43 41 64 69 72 09 09 3d 20 4e 55 4c 4c 3b *CAdir..= NULL;
4ad0: 0a 20 20 20 20 63 68 61 72 20 2a 6d 6f 64 65 6c . char *model
4ae0: 09 09 3d 20 4e 55 4c 4c 3b 0a 23 69 66 20 64 65 ..= NULL;.#if de
4af0: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 fined(NO_SSL2).
4b00: 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 30 3b int ssl2 = 0;
4b10: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 73 .#else. int s
4b20: 73 6c 32 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a sl2 = 1;.#endif.
4b30: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
4b40: 53 4c 33 29 0a 20 20 20 20 69 6e 74 20 73 73 6c SL3). int ssl
4b50: 33 20 3d 20 30 3b 0a 23 65 6c 73 65 0a 20 20 20 3 = 0;.#else.
4b60: 20 69 6e 74 20 73 73 6c 33 20 3d 20 31 3b 0a 23 int ssl3 = 1;.#
4b70: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
4b80: 64 28 4e 4f 5f 53 53 4c 32 29 20 26 26 20 64 65 d(NO_SSL2) && de
4b90: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 fined(NO_SSL3).
4ba0: 20 20 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 3b int tls1 = 1;
4bb0: 0a 23 65 6c 73 65 0a 20 20 20 20 69 6e 74 20 74 .#else. int t
4bc0: 6c 73 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a ls1 = 0;.#endif.
4bd0: 20 20 20 20 69 6e 74 20 70 72 6f 74 6f 20 3d 20 int proto =
4be0: 30 3b 0a 20 20 20 20 69 6e 74 20 76 65 72 69 66 0;. int verif
4bf0: 79 20 3d 20 30 2c 20 72 65 71 75 69 72 65 20 3d y = 0, require =
4c00: 20 30 2c 20 72 65 71 75 65 73 74 20 3d 20 31 3b 0, request = 1;
4c10: 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c .. if (objc <
4c20: 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 2) {..Tcl_Wrong
4c30: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
4c40: 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 1, objv, "channe
4c50: 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a 09 l ?options?");..
4c60: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4c70: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 ;. }.. cha
4c80: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
4c90: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
4ca0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
4cb0: 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 objv[1], NULL),
4cc0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 NULL);. if (c
4cd0: 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e han == (Tcl_Chan
4ce0: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
4cf0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4d00: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 68 }. if (ch
4d10: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
4d20: 20 3d 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f == TLS_CHANNEL_
4d30: 56 45 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a VERSION_2) {../*
4d40: 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 .. * Make sure t
4d50: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
4d60: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
4d70: 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 .. */..chan = Tc
4d80: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
4d90: 63 68 61 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 chan);. }..
4da0: 20 20 66 6f 72 20 28 69 64 78 20 3d 20 32 3b 20 for (idx = 2;
4db0: 69 64 78 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b idx < objc; idx+
4dc0: 2b 29 20 7b 0a 09 63 68 61 72 20 2a 6f 70 74 20 +) {..char *opt
4dd0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
4de0: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 5d romObj(objv[idx]
4df0: 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6f , NULL);...if (o
4e00: 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 0a 09 20 pt[0] != '-')..
4e10: 20 20 20 62 72 65 61 6b 3b 0a 0a 09 4f 50 54 53 break;...OPTS
4e20: 54 52 28 20 22 2d 63 61 64 69 72 22 2c 20 43 41 TR( "-cadir", CA
4e30: 64 69 72 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 dir);..OPTSTR( "
4e40: 2d 63 61 66 69 6c 65 22 2c 20 43 41 66 69 6c 65 -cafile", CAfile
4e50: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 65 );..OPTSTR( "-ce
4e60: 72 74 66 69 6c 65 22 2c 20 63 65 72 74 29 3b 0a rtfile", cert);.
4e70: 09 4f 50 54 53 54 52 28 20 22 2d 63 69 70 68 65 .OPTSTR( "-ciphe
4e80: 72 22 2c 20 63 69 70 68 65 72 73 29 3b 0a 09 4f r", ciphers);..O
4e90: 50 54 4f 42 4a 28 20 22 2d 63 6f 6d 6d 61 6e 64 PTOBJ( "-command
4ea0: 22 2c 20 73 63 72 69 70 74 29 3b 0a 09 4f 50 54 ", script);..OPT
4eb0: 53 54 52 28 20 22 2d 6b 65 79 66 69 6c 65 22 2c STR( "-keyfile",
4ec0: 20 6b 65 79 29 3b 0a 09 4f 50 54 53 54 52 28 20 key);..OPTSTR(
4ed0: 22 2d 6d 6f 64 65 6c 22 2c 20 6d 6f 64 65 6c 29 "-model", model)
4ee0: 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 70 61 73 ;..OPTOBJ( "-pas
4ef0: 73 77 6f 72 64 22 2c 20 70 61 73 73 77 6f 72 64 sword", password
4f00: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
4f10: 65 71 75 69 72 65 22 2c 20 72 65 71 75 69 72 65 equire", require
4f20: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72 );..OPTBOOL( "-r
4f30: 65 71 75 65 73 74 22 2c 20 72 65 71 75 65 73 74 equest", request
4f40: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 );..OPTBOOL( "-s
4f50: 65 72 76 65 72 22 2c 20 73 65 72 76 65 72 29 3b erver", server);
4f60: 0a 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 ...OPTBOOL( "-ss
4f70: 6c 32 22 2c 20 73 73 6c 32 29 3b 0a 09 4f 50 54 l2", ssl2);..OPT
4f80: 42 4f 4f 4c 28 20 22 2d 73 73 6c 33 22 2c 20 73 BOOL( "-ssl3", s
4f90: 73 6c 33 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 sl3);..OPTBOOL(
4fa0: 22 2d 74 6c 73 31 22 2c 20 74 6c 73 31 29 3b 0a "-tls1", tls1);.
4fb0: 0a 09 4f 50 54 42 41 44 28 20 22 6f 70 74 69 6f ..OPTBAD( "optio
4fc0: 6e 22 2c 20 22 2d 63 61 64 69 72 2c 20 2d 63 61 n", "-cadir, -ca
4fd0: 66 69 6c 65 2c 20 2d 63 65 72 74 66 69 6c 65 2c file, -certfile,
4fe0: 20 2d 63 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 -cipher, -comma
4ff0: 6e 64 2c 20 2d 6b 65 79 66 69 6c 65 2c 20 2d 6d nd, -keyfile, -m
5000: 6f 64 65 6c 2c 20 2d 70 61 73 73 77 6f 72 64 2c odel, -password,
5010: 20 2d 72 65 71 75 69 72 65 2c 20 2d 72 65 71 75 -require, -requ
5020: 65 73 74 2c 20 2d 73 65 72 76 65 72 2c 20 2d 73 est, -server, -s
5030: 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 6f 72 20 2d sl2, -ssl3, or -
5040: 74 6c 73 31 22 29 3b 0a 0a 09 72 65 74 75 72 6e tls1");...return
5050: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5060: 7d 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 }. if (reques
5070: 74 29 09 20 20 20 20 76 65 72 69 66 79 20 7c 3d t). verify |=
5080: 20 53 53 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45 SSL_VERIFY_CLIE
5090: 4e 54 5f 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45 NT_ONCE | SSL_VE
50a0: 52 49 46 59 5f 50 45 45 52 3b 0a 20 20 20 20 69 RIFY_PEER;. i
50b0: 66 20 28 72 65 71 75 65 73 74 20 26 26 20 72 65 f (request && re
50c0: 71 75 69 72 65 29 20 76 65 72 69 66 79 20 7c 3d quire) verify |=
50d0: 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c SSL_VERIFY_FAIL
50e0: 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 _IF_NO_PEER_CERT
50f0: 3b 0a 20 20 20 20 69 66 20 28 76 65 72 69 66 79 ;. if (verify
5100: 20 3d 3d 20 30 29 09 76 65 72 69 66 79 20 3d 20 == 0).verify =
5110: 53 53 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b SSL_VERIFY_NONE;
5120: 0a 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 .. proto |= (
5130: 73 73 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f ssl2 ? TLS_PROTO
5140: 5f 53 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 _SSL2 : 0);.
5150: 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f proto |= (ssl3 ?
5160: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 TLS_PROTO_SSL3
5170: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 : 0);. proto
5180: 7c 3d 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 |= (tls1 ? TLS_P
5190: 52 4f 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a ROTO_TLS1 : 0);.
51a0: 0a 20 20 20 20 2f 2a 20 72 65 73 65 74 20 74 6f . /* reset to
51b0: 20 4e 55 4c 4c 20 69 66 20 62 6c 61 6e 6b 20 73 NULL if blank s
51c0: 74 72 69 6e 67 20 70 72 6f 76 69 64 65 64 20 2a tring provided *
51d0: 2f 0a 20 20 20 20 69 66 20 28 63 65 72 74 20 26 /. if (cert &
51e0: 26 20 21 2a 63 65 72 74 29 09 09 63 65 72 74 09 & !*cert)..cert.
51f0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 = NULL;. if (
5200: 6b 65 79 20 26 26 20 21 2a 6b 65 79 29 09 09 6b key && !*key)..k
5210: 65 79 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 ey.= NULL;. i
5220: 66 20 28 63 69 70 68 65 72 73 20 26 26 20 21 2a f (ciphers && !*
5230: 63 69 70 68 65 72 73 29 09 63 69 70 68 65 72 73 ciphers).ciphers
5240: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 .= NULL;. if
5250: 28 43 41 66 69 6c 65 20 26 26 20 21 2a 43 41 66 (CAfile && !*CAf
5260: 69 6c 65 29 09 43 41 66 69 6c 65 09 3d 20 4e 55 ile).CAfile.= NU
5270: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 64 69 LL;. if (CAdi
5280: 72 20 26 26 20 21 2a 43 41 64 69 72 29 09 43 41 r && !*CAdir).CA
5290: 64 69 72 09 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 dir.= NULL;..
52a0: 20 2f 2a 20 6e 65 77 20 53 53 4c 20 73 74 61 74 /* new SSL stat
52b0: 65 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 e */. statePt
52c0: 72 09 09 3d 20 28 53 74 61 74 65 20 2a 29 20 63 r..= (State *) c
52d0: 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 kalloc((unsigned
52e0: 29 20 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 ) sizeof(State))
52f0: 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 73 74 61 ;. memset(sta
5300: 74 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 tePtr, 0, sizeof
5310: 28 53 74 61 74 65 29 29 3b 0a 0a 20 20 20 20 73 (State));.. s
5320: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 09 3d tatePtr->flags.=
5330: 20 66 6c 61 67 73 3b 0a 20 20 20 20 73 74 61 74 flags;. stat
5340: 65 50 74 72 2d 3e 69 6e 74 65 72 70 09 3d 20 69 ePtr->interp.= i
5350: 6e 74 65 72 70 3b 0a 20 20 20 20 73 74 61 74 65 nterp;. state
5360: 50 74 72 2d 3e 76 66 6c 61 67 73 09 3d 20 76 65 Ptr->vflags.= ve
5370: 72 69 66 79 3b 0a 20 20 20 20 73 74 61 74 65 50 rify;. stateP
5380: 74 72 2d 3e 65 72 72 09 3d 20 22 22 3b 0a 0a 20 tr->err.= "";..
5390: 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 73 /* allocate s
53a0: 63 72 69 70 74 20 2a 2f 0a 20 20 20 20 69 66 20 cript */. if
53b0: 28 73 63 72 69 70 74 29 20 7b 0a 09 28 76 6f 69 (script) {..(voi
53c0: 64 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 d) Tcl_GetString
53d0: 46 72 6f 6d 4f 62 6a 28 73 63 72 69 70 74 2c 20 FromObj(script,
53e0: 26 6c 65 6e 29 3b 0a 09 69 66 20 28 6c 65 6e 29 &len);..if (len)
53f0: 20 7b 0a 09 20 20 20 20 73 74 61 74 65 50 74 72 {.. statePtr
5400: 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 73 63 72 ->callback = scr
5410: 69 70 74 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e ipt;.. Tcl_In
5420: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 crRefCount(state
5430: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a Ptr->callback);.
5440: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a .}. }.. /*
5450: 20 61 6c 6c 6f 63 61 74 65 20 70 61 73 73 77 6f allocate passwo
5460: 72 64 20 2a 2f 0a 20 20 20 20 69 66 20 28 70 61 rd */. if (pa
5470: 73 73 77 6f 72 64 29 20 7b 0a 09 28 76 6f 69 64 ssword) {..(void
5480: 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 ) Tcl_GetStringF
5490: 72 6f 6d 4f 62 6a 28 70 61 73 73 77 6f 72 64 2c romObj(password,
54a0: 20 26 6c 65 6e 29 3b 0a 09 69 66 20 28 6c 65 6e &len);..if (len
54b0: 29 20 7b 0a 09 20 20 20 20 73 74 61 74 65 50 74 ) {.. statePt
54c0: 72 2d 3e 70 61 73 73 77 6f 72 64 20 3d 20 70 61 r->password = pa
54d0: 73 73 77 6f 72 64 3b 0a 09 20 20 20 20 54 63 6c ssword;.. Tcl
54e0: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 73 74 _IncrRefCount(st
54f0: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
5500: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 );..}. }..
5510: 20 69 66 20 28 6d 6f 64 65 6c 20 21 3d 20 4e 55 if (model != NU
5520: 4c 4c 29 20 7b 0a 09 69 6e 74 20 6d 6f 64 65 3b LL) {..int mode;
5530: 0a 09 2f 2a 20 47 65 74 20 74 68 65 20 22 6d 6f ../* Get the "mo
5540: 64 65 6c 22 20 63 6f 6e 74 65 78 74 20 2a 2f 0a del" context */.
5550: 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 .chan = Tcl_GetC
5560: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6d hannel(interp, m
5570: 6f 64 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 09 69 odel, &mode);..i
5580: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
5590: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
55a0: 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 .. Tls_Free((
55b0: 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 char *) statePtr
55c0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
55d0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 69 66 CL_ERROR;..}..if
55e0: 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 (channelTypeVer
55f0: 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 48 41 4e sion == TLS_CHAN
5600: 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 29 20 7b NEL_VERSION_2) {
5610: 0a 09 20 20 20 20 2f 2a 0a 09 20 20 20 20 20 2a .. /*.. *
5620: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
5630: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
5640: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20 20 most channel..
5650: 20 20 20 2a 2f 0a 09 20 20 20 20 63 68 61 6e 20 */.. chan
5660: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e = Tcl_GetTopChan
5670: 6e 65 6c 28 63 68 61 6e 29 3b 0a 09 7d 0a 09 69 nel(chan);..}..i
5680: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 f (Tcl_GetChanne
5690: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 lType(chan) != T
56a0: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
56b0: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 ) {.. Tcl_App
56c0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
56d0: 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c , "bad channel \
56e0: 22 22 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 "",... Tcl_Ge
56f0: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 tChannelName(cha
5700: 6e 29 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 n), "\": not a T
5710: 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c LS channel", NUL
5720: 4c 29 3b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 L);.. Tls_Fre
5730: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
5740: 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 Ptr);.. retur
5750: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
5760: 09 63 74 78 20 3d 20 28 28 53 74 61 74 65 20 2a .ctx = ((State *
5770: 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 )Tcl_GetChannelI
5780: 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e nstanceData(chan
5790: 29 29 2d 3e 63 74 78 3b 0a 20 20 20 20 7d 20 65 ))->ctx;. } e
57a0: 6c 73 65 20 7b 0a 09 69 66 20 28 28 63 74 78 20 lse {..if ((ctx
57b0: 3d 20 43 54 58 5f 49 6e 69 74 28 73 74 61 74 65 = CTX_Init(state
57c0: 50 74 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c Ptr, proto, key,
57d0: 20 63 65 72 74 2c 20 43 41 64 69 72 2c 20 43 41 cert, CAdir, CA
57e0: 66 69 6c 65 2c 20 63 69 70 68 65 72 73 29 29 0a file, ciphers)).
57f0: 09 09 3d 3d 20 28 53 53 4c 5f 43 54 58 2a 29 30 ..== (SSL_CTX*)0
5800: 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 ) {.. Tls_Fre
5810: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 e((char *) state
5820: 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 Ptr);.. retur
5830: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
5840: 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 }.. state
5850: 50 74 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b 0a Ptr->ctx = ctx;.
5860: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 . /*. * W
5870: 65 20 6e 65 65 64 20 74 6f 20 6d 61 6b 65 20 73 e need to make s
5880: 75 72 65 20 74 68 61 74 20 74 68 65 20 63 68 61 ure that the cha
5890: 6e 6e 65 6c 20 77 6f 72 6b 73 20 69 6e 20 62 69 nnel works in bi
58a0: 6e 61 72 79 20 28 66 6f 72 20 74 68 65 0a 20 20 nary (for the.
58b0: 20 20 20 2a 20 65 6e 63 72 79 70 74 69 6f 6e 20 * encryption
58c0: 6e 6f 74 20 74 6f 20 67 65 74 20 67 6f 6f 66 65 not to get goofe
58d0: 64 20 75 70 29 2e 0a 20 20 20 20 20 2a 20 57 65 d up).. * We
58e0: 20 6f 6e 6c 79 20 77 61 6e 74 20 74 6f 20 61 64 only want to ad
58f0: 6a 75 73 74 20 74 68 65 20 62 75 66 66 65 72 69 just the bufferi
5900: 6e 67 20 69 6e 20 70 72 65 2d 76 32 20 63 68 61 ng in pre-v2 cha
5910: 6e 6e 65 6c 73 2c 20 77 68 65 72 65 0a 20 20 20 nnels, where.
5920: 20 20 2a 20 65 61 63 68 20 63 68 61 6e 6e 65 6c * each channel
5930: 20 69 6e 20 74 68 65 20 73 74 61 63 6b 20 6d 61 in the stack ma
5940: 69 6e 74 61 69 6e 65 64 20 69 74 73 20 6f 77 6e intained its own
5950: 20 62 75 66 66 65 72 73 2e 0a 20 20 20 20 20 2a buffers.. *
5960: 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 /. Tcl_SetCha
5970: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
5980: 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 p, chan, "-trans
5990: 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 lation", "binary
59a0: 22 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e ");. if (chan
59b0: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
59c0: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
59d0: 52 53 49 4f 4e 5f 31 29 20 7b 0a 09 54 63 6c 5f RSION_1) {..Tcl_
59e0: 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e SetChannelOption
59f0: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 (interp, chan, "
5a00: 2d 62 75 66 66 65 72 69 6e 67 22 2c 20 22 6e 6f -buffering", "no
5a10: 6e 65 22 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 ne");. }..
5a20: 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 70 65 if (channelType
5a30: 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 5f 43 Version == TLS_C
5a40: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 HANNEL_VERSION_2
5a50: 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 ) {..statePtr->s
5a60: 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43 elf = Tcl_StackC
5a70: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 hannel(interp, T
5a80: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
5a90: 2c 0a 09 09 28 43 6c 69 65 6e 74 44 61 74 61 29 ,...(ClientData)
5aa0: 20 73 74 61 74 65 50 74 72 2c 20 28 54 43 4c 5f statePtr, (TCL_
5ab0: 52 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 READABLE | TCL_W
5ac0: 52 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b RITABLE), chan);
5ad0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 . } else {..s
5ae0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 tatePtr->self =
5af0: 63 68 61 6e 3b 0a 09 54 63 6c 5f 53 74 61 63 6b chan;..Tcl_Stack
5b00: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
5b10: 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 Tls_ChannelType(
5b20: 29 2c 0a 09 09 28 43 6c 69 65 6e 74 44 61 74 61 ),...(ClientData
5b30: 29 20 73 74 61 74 65 50 74 72 2c 20 28 54 43 4c ) statePtr, (TCL
5b40: 5f 52 45 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f _READABLE | TCL_
5b50: 57 52 49 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 WRITABLE), chan)
5b60: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
5b70: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
5b80: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
5b90: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 NULL) {../*.. *
5ba0: 4e 6f 20 75 73 65 20 6f 66 20 54 63 6c 5f 45 76 No use of Tcl_Ev
5bb0: 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 62 65 63 entuallyFree bec
5bc0: 61 75 73 65 20 6e 6f 20 70 6f 73 73 69 62 6c 65 ause no possible
5bd0: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 2e 0a 09 Tcl_Preserve...
5be0: 20 2a 2f 0a 09 54 6c 73 5f 46 72 65 65 28 28 63 */..Tls_Free((c
5bf0: 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 har *) statePtr)
5c00: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
5c10: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
5c20: 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 49 6e /*. * SSL In
5c30: 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 20 20 itialization.
5c40: 20 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 65 50 */.. stateP
5c50: 74 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 tr->ssl = SSL_ne
5c60: 77 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78 29 w(statePtr->ctx)
5c70: 3b 0a 20 20 20 20 69 66 20 28 21 73 74 61 74 65 ;. if (!state
5c80: 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 2f 2a 20 Ptr->ssl) {../*
5c90: 53 53 4c 20 6c 69 62 72 61 72 79 20 65 72 72 6f SSL library erro
5ca0: 72 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e 64 r */..Tcl_Append
5cb0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
5cc0: 63 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 72 75 couldn't constru
5cd0: 63 74 20 73 73 6c 20 73 65 73 73 69 6f 6e 3a 20 ct ssl session:
5ce0: 22 2c 20 52 45 41 53 4f 4e 28 29 2c 0a 09 09 28 ", REASON(),...(
5cf0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
5d00: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a Tls_Free((char *
5d10: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 ) statePtr);..re
5d20: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5d30: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 }.. /*.
5d40: 20 20 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 * SSL Callbac
5d50: 6b 73 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 ks. */..
5d60: 53 53 4c 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 SSL_set_app_data
5d70: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 (statePtr->ssl,
5d80: 28 56 4f 49 44 20 2a 29 73 74 61 74 65 50 74 72 (VOID *)statePtr
5d90: 29 3b 09 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b );./* point back
5da0: 20 74 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 20 53 to us */.. S
5db0: 53 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 73 74 SL_set_verify(st
5dc0: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 65 72 atePtr->ssl, ver
5dd0: 69 66 79 2c 20 56 65 72 69 66 79 43 61 6c 6c 62 ify, VerifyCallb
5de0: 61 63 6b 29 3b 0a 0a 20 20 20 20 53 53 4c 5f 43 ack);.. SSL_C
5df0: 54 58 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c TX_set_info_call
5e00: 62 61 63 6b 28 73 74 61 74 65 50 74 72 2d 3e 63 back(statePtr->c
5e10: 74 78 2c 20 49 6e 66 6f 43 61 6c 6c 62 61 63 6b tx, InfoCallback
5e20: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 );.. /* Creat
5e30: 65 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 42 49 e Tcl_Channel BI
5e40: 4f 20 48 61 6e 64 6c 65 72 20 2a 2f 0a 20 20 20 O Handler */.
5e50: 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f statePtr->p_bio
5e60: 09 3d 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 73 .= BIO_new_tcl(s
5e70: 74 61 74 65 50 74 72 2c 20 42 49 4f 5f 43 4c 4f tatePtr, BIO_CLO
5e80: 53 45 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74 SE);. statePt
5e90: 72 2d 3e 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 r->bio.= BIO_new
5ea0: 28 42 49 4f 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a (BIO_f_ssl());..
5eb0: 20 20 20 20 69 66 20 28 73 65 72 76 65 72 29 20 if (server)
5ec0: 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 {..statePtr->fla
5ed0: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 53 45 gs |= TLS_TCL_SE
5ee0: 52 56 45 52 3b 0a 09 53 53 4c 5f 73 65 74 5f 61 RVER;..SSL_set_a
5ef0: 63 63 65 70 74 5f 73 74 61 74 65 28 73 74 61 74 ccept_state(stat
5f00: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 ePtr->ssl);.
5f10: 7d 20 65 6c 73 65 20 7b 0a 09 53 53 4c 5f 73 65 } else {..SSL_se
5f20: 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 61 74 65 28 t_connect_state(
5f30: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
5f40: 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 73 65 }. SSL_se
5f50: 74 5f 62 69 6f 28 73 74 61 74 65 50 74 72 2d 3e t_bio(statePtr->
5f60: 73 73 6c 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 ssl, statePtr->p
5f70: 5f 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e _bio, statePtr->
5f80: 70 5f 62 69 6f 29 3b 0a 20 20 20 20 42 49 4f 5f p_bio);. BIO_
5f90: 73 65 74 5f 73 73 6c 28 73 74 61 74 65 50 74 72 set_ssl(statePtr
5fa0: 2d 3e 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d ->bio, statePtr-
5fb0: 3e 73 73 6c 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 >ssl, BIO_NOCLOS
5fc0: 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 E);.. /*.
5fd0: 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 49 6e * End of SSL In
5fe0: 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 it. */. T
5ff0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
6000: 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 63 erp, (char *) Tc
6010: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
6020: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
6030: 2c 0a 09 20 20 20 20 54 43 4c 5f 56 4f 4c 41 54 ,.. TCL_VOLAT
6040: 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ILE);. return
6050: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a TCL_OK;.}.../*.
6060: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60a0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 69 6d -----. *. * Unim
60b0: 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a portObjCmd --. *
60c0: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
60d0: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f re is invoked to
60e0: 20 72 65 6d 6f 76 65 20 74 68 65 20 74 6f 70 6d remove the topm
60f0: 6f 73 74 20 63 68 61 6e 6e 65 6c 20 66 69 6c 74 ost channel filt
6100: 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 er.. *. * Result
6110: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
6120: 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a Tcl result.. *.
6130: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
6140: 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 . *.May modify t
6150: 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 he behavior of a
6160: 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a n IO channel.. *
6170: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
6180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61b0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
61c0: 69 63 20 69 6e 74 0a 55 6e 69 6d 70 6f 72 74 4f ic int.UnimportO
61d0: 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 bjCmd(clientData
61e0: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
61f0: 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 objv). Client
6200: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b Data clientData;
6210: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f ./* Not used. */
6220: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
6230: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 *interp;. int
6240: 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f objc;. Tcl_O
6250: 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d bj *CONST objv[]
6260: 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ;.{. Tcl_Chan
6270: 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 nel chan;../* Th
6280: 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 e channel to set
6290: 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 0a a mode on. */..
62a0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 if (objc !=
62b0: 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 2) {..Tcl_WrongN
62c0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
62d0: 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c , objv, "channel
62e0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
62f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
6300: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
6310: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
6320: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
6330: 6a 76 5b 31 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 jv[1]), NULL);.
6340: 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 if (chan == (
6350: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
6360: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
6370: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6380: 20 20 20 69 66 20 28 63 68 61 6e 6e 65 6c 54 79 if (channelTy
6390: 70 65 56 65 72 73 69 6f 6e 20 3d 3d 20 54 4c 53 peVersion == TLS
63a0: 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e _CHANNEL_VERSION
63b0: 5f 32 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4d 61 _2) {../*.. * Ma
63c0: 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 ke sure to opera
63d0: 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 te on the topmos
63e0: 74 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 t channel.. */..
63f0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
6400: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
6410: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 54 }.. if (T
6420: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
6430: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 e(chan) != Tls_C
6440: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a hannelType()) {.
6450: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
6460: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 t(interp, "bad c
6470: 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f hannel \"", Tcl_
6480: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 GetChannelName(c
6490: 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 han),..."\": not
64a0: 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c a TLS channel",
64b0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
64c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
64d0: 0a 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 55 6e .. if (Tcl_Un
64e0: 73 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 stackChannel(int
64f0: 65 72 70 2c 20 63 68 61 6e 29 20 3d 3d 20 54 43 erp, chan) == TC
6500: 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 72 65 74 75 L_ERROR) {..retu
6510: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6520: 20 20 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 }.. return
6530: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 TCL_OK;.}.../*.
6540: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6580: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 54 58 5f 49 ----. *. * CTX_I
6590: 6e 69 74 20 2d 2d 20 63 6f 6e 73 74 72 75 63 74 nit -- construct
65a0: 20 61 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 a SSL_CTX insta
65b0: 6e 63 65 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 nce. *. * Result
65c0: 73 3a 0a 20 2a 09 41 20 76 61 6c 69 64 20 53 53 s:. *.A valid SS
65d0: 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 20 6f L_CTX instance o
65e0: 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20 2a 20 53 69 r NULL.. *. * Si
65f0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 de effects:. *.c
6600: 6f 6e 73 74 72 75 63 74 73 20 53 53 4c 20 63 6f onstructs SSL co
6610: 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 ntext (CTX). *.
6620: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6660: 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 ----. */..static
6670: 20 53 53 4c 5f 43 54 58 20 2a 0a 43 54 58 5f 49 SSL_CTX *.CTX_I
6680: 6e 69 74 28 73 74 61 74 65 50 74 72 2c 20 70 72 nit(statePtr, pr
6690: 6f 74 6f 2c 20 6b 65 79 2c 20 63 65 72 74 2c 20 oto, key, cert,
66a0: 43 41 64 69 72 2c 20 43 41 66 69 6c 65 2c 20 63 CAdir, CAfile, c
66b0: 69 70 68 65 72 73 29 0a 20 20 20 20 53 74 61 74 iphers). Stat
66c0: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
66d0: 20 69 6e 74 20 70 72 6f 74 6f 3b 0a 20 20 20 20 int proto;.
66e0: 63 68 61 72 20 2a 6b 65 79 3b 0a 20 20 20 20 63 char *key;. c
66f0: 68 61 72 20 2a 63 65 72 74 3b 0a 20 20 20 20 63 har *cert;. c
6700: 68 61 72 20 2a 43 41 64 69 72 3b 0a 20 20 20 20 har *CAdir;.
6710: 63 68 61 72 20 2a 43 41 66 69 6c 65 3b 0a 20 20 char *CAfile;.
6720: 20 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 3b char *ciphers;
6730: 0a 7b 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 .{. Tcl_Inter
6740: 70 20 2a 69 6e 74 65 72 70 20 3d 20 73 74 61 74 p *interp = stat
6750: 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 ePtr->interp;.
6760: 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d SSL_CTX *ctx =
6770: 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 44 NULL;. Tcl_D
6780: 53 74 72 69 6e 67 20 64 73 3b 0a 20 20 20 20 54 String ds;. T
6790: 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 31 3b 0a cl_DString ds1;.
67a0: 20 20 20 20 69 6e 74 20 6f 66 66 20 3d 20 30 3b int off = 0;
67b0: 0a 0a 20 20 20 20 2f 2a 20 63 72 65 61 74 65 20 .. /* create
67c0: 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 23 SSL context */.#
67d0: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 if !defined(NO_S
67e0: 53 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 SL2) && !defined
67f0: 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 66 (NO_SSL3). if
6800: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
6810: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 TLS_PROTO_SSL2)
6820: 20 26 26 0a 09 45 4e 41 42 4c 45 44 28 70 72 6f &&..ENABLED(pro
6830: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 to, TLS_PROTO_SS
6840: 4c 33 29 29 20 7b 0a 09 63 74 78 20 3d 20 53 53 L3)) {..ctx = SS
6850: 4c 5f 43 54 58 5f 6e 65 77 28 53 53 4c 76 32 33 L_CTX_new(SSLv23
6860: 5f 6d 65 74 68 6f 64 28 29 29 3b 0a 20 20 20 20 _method());.
6870: 7d 20 65 6c 73 65 0a 23 65 6e 64 69 66 0a 20 20 } else.#endif.
6880: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 if (ENABLED(pr
6890: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
68a0: 53 4c 32 29 29 20 7b 0a 23 69 66 20 64 65 66 69 SL2)) {.#if defi
68b0: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 54 63 ned(NO_SSL2)..Tc
68c0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
68d0: 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c nterp, "protocol
68e0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
68f0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
6900: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 (SSL_CTX *)0;.#e
6910: 6c 73 65 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 lse..ctx = SSL_C
6920: 54 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d 65 74 TX_new(SSLv2_met
6930: 68 6f 64 28 29 29 3b 0a 23 65 6e 64 69 66 0a 20 hod());.#endif.
6940: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 45 4e } else if (EN
6950: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
6960: 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 20 7b 0a _PROTO_TLS1)) {.
6970: 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e .ctx = SSL_CTX_n
6980: 65 77 28 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 ew(TLSv1_method(
6990: 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 ));. } else i
69a0: 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f f (ENABLED(proto
69b0: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 , TLS_PROTO_SSL3
69c0: 29 29 20 7b 0a 23 69 66 20 64 65 66 69 6e 65 64 )) {.#if defined
69d0: 28 4e 4f 5f 53 53 4c 33 29 0a 09 54 63 6c 5f 41 (NO_SSL3)..Tcl_A
69e0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
69f0: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
6a00: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 t supported", NU
6a10: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 LL);..return (SS
6a20: 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6c 73 65 L_CTX *)0;.#else
6a30: 0a 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
6a40: 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74 68 6f 64 new(SSLv3_method
6a50: 28 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 ());.#endif.
6a60: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 } else {..Tcl_Ap
6a70: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
6a80: 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 70 72 6f p, "no valid pro
6a90: 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 22 2c tocol selected",
6aa0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
6ab0: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 (SSL_CTX *)0;.
6ac0: 20 20 7d 0a 20 20 20 20 6f 66 66 20 7c 3d 20 28 }. off |= (
6ad0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
6ae0: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 20 3f LS_PROTO_TLS1) ?
6af0: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 0 : SSL_OP_NO_T
6b00: 4c 53 76 31 29 3b 0a 20 20 20 20 6f 66 66 20 7c LSv1);. off |
6b10: 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f = (ENABLED(proto
6b20: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 , TLS_PROTO_SSL2
6b30: 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e ) ? 0 : SSL_OP_N
6b40: 4f 5f 53 53 4c 76 32 29 3b 0a 20 20 20 20 6f 66 O_SSLv2);. of
6b50: 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 f |= (ENABLED(pr
6b60: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 oto, TLS_PROTO_S
6b70: 53 4c 33 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f SL3) ? 0 : SSL_O
6b80: 50 5f 4e 4f 5f 53 53 4c 76 33 29 3b 0a 0a 20 20 P_NO_SSLv3);..
6b90: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 61 70 SSL_CTX_set_ap
6ba0: 70 5f 64 61 74 61 28 20 63 74 78 2c 20 28 56 4f p_data( ctx, (VO
6bb0: 49 44 2a 29 69 6e 74 65 72 70 29 3b 09 2f 2a 20 ID*)interp);./*
6bc0: 72 65 6d 65 6d 62 65 72 20 74 68 65 20 69 6e 74 remember the int
6bd0: 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 20 20 erpreter */.
6be0: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 SSL_CTX_set_opti
6bf0: 6f 6e 73 28 20 63 74 78 2c 20 53 53 4c 5f 4f 50 ons( ctx, SSL_OP
6c00: 5f 41 4c 4c 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 _ALL);./* all SS
6c10: 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 L bug workaround
6c20: 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 s */. SSL_CTX
6c30: 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 74 _set_options( ct
6c40: 78 2c 20 6f 66 66 29 3b 09 2f 2a 20 61 6c 6c 20 x, off);./* all
6c50: 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 SSL bug workarou
6c60: 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 nds */. SSL_C
6c70: 54 58 5f 73 65 73 73 5f 73 65 74 5f 63 61 63 68 TX_sess_set_cach
6c80: 65 5f 73 69 7a 65 28 20 63 74 78 2c 20 31 32 38 e_size( ctx, 128
6c90: 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 69 70 68 );.. if (ciph
6ca0: 65 72 73 20 21 3d 20 4e 55 4c 4c 29 0a 09 53 53 ers != NULL)..SS
6cb0: 4c 5f 43 54 58 5f 73 65 74 5f 63 69 70 68 65 72 L_CTX_set_cipher
6cc0: 5f 6c 69 73 74 28 63 74 78 2c 20 63 69 70 68 65 _list(ctx, ciphe
6cd0: 72 73 29 3b 0a 0a 20 20 20 20 2f 2a 20 73 65 74 rs);.. /* set
6ce0: 20 73 6f 6d 65 20 63 61 6c 6c 62 61 63 6b 73 20 some callbacks
6cf0: 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 */. SSL_CTX_s
6d00: 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 73 73 77 et_default_passw
6d10: 64 5f 63 62 28 63 74 78 2c 20 50 61 73 73 77 6f d_cb(ctx, Passwo
6d20: 72 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 rdCallback);..#i
6d30: 66 6e 64 65 66 20 42 53 41 46 45 0a 20 20 20 20 fndef BSAFE.
6d40: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 61 SSL_CTX_set_defa
6d50: 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 5f 75 73 ult_passwd_cb_us
6d60: 65 72 64 61 74 61 28 63 74 78 2c 20 28 76 6f 69 erdata(ctx, (voi
6d70: 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b 0a 23 d *)statePtr);.#
6d80: 65 6e 64 69 66 0a 0a 23 69 66 6e 64 65 66 20 4e endif..#ifndef N
6d90: 4f 5f 44 48 0a 20 20 20 20 7b 0a 09 44 48 2a 20 O_DH. {..DH*
6da0: 64 68 20 3d 20 67 65 74 5f 64 68 35 31 32 28 29 dh = get_dh512()
6db0: 3b 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 74 ;..SSL_CTX_set_t
6dc0: 6d 70 5f 64 68 28 63 74 78 2c 20 64 68 29 3b 0a mp_dh(ctx, dh);.
6dd0: 09 44 48 5f 66 72 65 65 28 64 68 29 3b 0a 20 20 .DH_free(dh);.
6de0: 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 }.#endif..
6df0: 2f 2a 20 73 65 74 20 6f 75 72 20 63 65 72 74 69 /* set our certi
6e00: 66 69 63 61 74 65 20 2a 2f 0a 20 20 20 20 69 66 ficate */. if
6e10: 20 28 63 65 72 74 20 21 3d 20 4e 55 4c 4c 29 20 (cert != NULL)
6e20: 7b 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e {..Tcl_DStringIn
6e30: 69 74 28 26 64 73 29 3b 0a 0a 09 69 66 20 28 53 it(&ds);...if (S
6e40: 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 SL_CTX_use_certi
6e50: 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c ficate_file(ctx,
6e60: 20 46 32 4e 28 20 63 65 72 74 2c 20 26 64 73 29 F2N( cert, &ds)
6e70: 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 ,......SSL_FILET
6e80: 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b YPE_PEM) <= 0) {
6e90: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
6ea0: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 gFree(&ds);..
6eb0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
6ec0: 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 t(interp,....
6ed0: 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 "unable to set
6ee0: 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 6c certificate fil
6ef0: 65 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 22 2c e ", cert, ": ",
6f00: 0a 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e 28 .... REASON(
6f10: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ), (char *) NULL
6f20: 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f );.. SSL_CTX_
6f30: 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 free(ctx);..
6f40: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 return (SSL_CTX
6f50: 2a 29 30 3b 0a 09 7d 0a 0a 09 2f 2a 20 67 65 74 *)0;..}.../* get
6f60: 20 74 68 65 20 70 72 69 76 61 74 65 20 6b 65 79 the private key
6f70: 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 associated with
6f80: 20 74 68 69 73 20 63 65 72 74 69 66 69 63 61 74 this certificat
6f90: 65 20 2a 2f 0a 09 69 66 20 28 6b 65 79 20 3d 3d e */..if (key ==
6fa0: 20 4e 55 4c 4c 29 20 6b 65 79 3d 63 65 72 74 3b NULL) key=cert;
6fb0: 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 ...if (SSL_CTX_u
6fc0: 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f 66 69 se_PrivateKey_fi
6fd0: 6c 65 28 63 74 78 2c 20 46 32 4e 28 20 6b 65 79 le(ctx, F2N( key
6fe0: 2c 20 26 64 73 29 2c 0a 09 09 09 09 09 53 53 4c , &ds),......SSL
6ff0: 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c _FILETYPE_PEM) <
7000: 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f = 0) {.. Tcl_
7010: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
7020: 3b 0a 09 20 20 20 20 2f 2a 20 66 6c 75 73 68 20 ;.. /* flush
7030: 74 68 65 20 70 61 73 73 70 68 72 61 73 65 20 77 the passphrase w
7040: 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 6c 65 hich might be le
7050: 66 74 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 ft in the result
7060: 20 2a 2f 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 */.. Tcl_Set
7070: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 4e Result(interp, N
7080: 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 ULL, TCL_STATIC)
7090: 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ;.. Tcl_Appen
70a0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a dResult(interp,.
70b0: 09 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 ... "unable
70c0: 74 6f 20 73 65 74 20 70 75 62 6c 69 63 20 6b 65 to set public ke
70d0: 79 20 66 69 6c 65 20 22 2c 20 6b 65 79 2c 20 22 y file ", key, "
70e0: 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 41 53 ",.... REAS
70f0: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e ON(), (char *) N
7100: 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 ULL);.. SSL_C
7110: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 TX_free(ctx);..
7120: 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 return (SSL_C
7130: 54 58 20 2a 29 30 3b 0a 09 7d 0a 09 54 63 6c 5f TX *)0;..}..Tcl_
7140: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
7150: 3b 0a 09 2f 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f ;../* Now we kno
7160: 77 20 74 68 61 74 20 61 20 6b 65 79 20 61 6e 64 w that a key and
7170: 20 63 65 72 74 20 68 61 76 65 20 62 65 65 6e 20 cert have been
7180: 73 65 74 20 61 67 61 69 6e 73 74 0a 09 20 2a 20 set against.. *
7190: 74 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 the SSL context
71a0: 2a 2f 0a 09 69 66 20 28 21 53 53 4c 5f 43 54 58 */..if (!SSL_CTX
71b0: 5f 63 68 65 63 6b 5f 70 72 69 76 61 74 65 5f 6b _check_private_k
71c0: 65 79 28 63 74 78 29 29 20 7b 0a 09 20 20 20 20 ey(ctx)) {..
71d0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
71e0: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 (interp,....
71f0: 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 64 6f "private key do
7200: 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 es not match the
7210: 20 63 65 72 74 69 66 69 63 61 74 65 20 70 75 62 certificate pub
7220: 6c 69 63 20 6b 65 79 22 2c 0a 09 09 09 20 20 20 lic key",....
7230: 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 (char *) NULL)
7240: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 ;.. SSL_CTX_f
7250: 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 ree(ctx);.. r
7260: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a eturn (SSL_CTX *
7270: 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 )0;..}. } els
7280: 65 20 7b 0a 09 63 65 72 74 20 3d 20 28 63 68 61 e {..cert = (cha
7290: 72 2a 29 58 35 30 39 5f 67 65 74 5f 64 65 66 61 r*)X509_get_defa
72a0: 75 6c 74 5f 63 65 72 74 5f 66 69 6c 65 28 29 3b ult_cert_file();
72b0: 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 ...if (SSL_CTX_u
72c0: 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 5f 66 se_certificate_f
72d0: 69 6c 65 28 63 74 78 2c 20 63 65 72 74 2c 0a 09 ile(ctx, cert,..
72e0: 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 ....SSL_FILETYPE
72f0: 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 23 69 _PEM) <= 0) {.#i
7300: 66 20 30 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 f 0.. Tcl_DSt
7310: 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 ringFree(&ds);..
7320: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
7330: 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 sult(interp,....
7340: 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 "unable to
7350: 75 73 65 20 64 65 66 61 75 6c 74 20 63 65 72 74 use default cert
7360: 69 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 ificate file ",
7370: 63 65 72 74 2c 20 22 3a 20 22 2c 0a 09 09 09 20 cert, ": ",....
7380: 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 REASON(), (c
7390: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
73a0: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 SSL_CTX_free(
73b0: 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ctx);.. retur
73c0: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a n (SSL_CTX *)0;.
73d0: 23 65 6e 64 69 66 0a 09 7d 0a 20 20 20 20 7d 0a #endif..}. }.
73e0: 09 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
73f0: 67 49 6e 69 74 28 26 64 73 29 3b 0a 20 20 20 20 gInit(&ds);.
7400: 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 Tcl_DStringInit(
7410: 26 64 73 31 29 3b 0a 20 20 20 20 69 66 20 28 21 &ds1);. if (!
7420: 53 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f 76 65 72 SSL_CTX_load_ver
7430: 69 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 28 63 74 ify_locations(ct
7440: 78 2c 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 x, F2N(CAfile, &
7450: 64 73 29 2c 20 46 32 4e 28 43 41 64 69 72 2c 20 ds), F2N(CAdir,
7460: 26 64 73 31 29 29 20 7c 7c 0a 09 21 53 53 4c 5f &ds1)) ||..!SSL_
7470: 43 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f CTX_set_default_
7480: 76 65 72 69 66 79 5f 70 61 74 68 73 28 63 74 78 verify_paths(ctx
7490: 29 29 20 7b 0a 23 69 66 20 30 0a 09 54 63 6c 5f )) {.#if 0..Tcl_
74a0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
74b0: 3b 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 ;..Tcl_DStringFr
74c0: 65 65 28 26 64 73 31 29 3b 0a 09 2f 2a 20 44 6f ee(&ds1);../* Do
74d0: 6e 27 74 20 63 75 72 72 65 6e 74 6c 79 20 63 61 n't currently ca
74e0: 72 65 20 69 66 20 74 68 69 73 20 66 61 69 6c 73 re if this fails
74f0: 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 */..Tcl_AppendR
7500: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 53 esult(interp, "S
7510: 53 4c 20 64 65 66 61 75 6c 74 20 76 65 72 69 66 SL default verif
7520: 79 20 70 61 74 68 73 3a 20 22 2c 0a 09 09 52 45 y paths: ",...RE
7530: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
7540: 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 NULL);..SSL_CTX
7550: 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 _free(ctx);..ret
7560: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 urn (SSL_CTX *)0
7570: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 20 ;.#endif. }.
7580: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 SSL_CTX_set_c
7590: 6c 69 65 6e 74 5f 43 41 5f 6c 69 73 74 28 63 74 lient_CA_list(ct
75a0: 78 2c 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c 69 65 x, SSL_load_clie
75b0: 6e 74 5f 43 41 5f 66 69 6c 65 28 20 46 32 4e 28 nt_CA_file( F2N(
75c0: 43 41 66 69 6c 65 2c 20 26 64 73 29 20 29 29 3b CAfile, &ds) ));
75d0: 0a 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
75e0: 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 gFree(&ds);.
75f0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
7600: 26 64 73 31 29 3b 0a 20 20 20 20 72 65 74 75 72 &ds1);. retur
7610: 6e 20 63 74 78 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a n ctx;.}.../*. *
7620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7660: 2d 2d 2d 0a 20 2a 0a 20 2a 20 53 74 61 74 75 73 ---. *. * Status
7670: 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e ObjCmd -- return
7680: 20 63 65 72 74 69 66 69 63 61 74 65 20 66 6f 72 certificate for
7690: 20 63 6f 6e 6e 65 63 74 65 64 20 70 65 65 72 2e connected peer.
76a0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
76b0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
76c0: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
76d0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
76e0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
76f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7730: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 53 */.static int.S
7740: 74 61 74 75 73 4f 62 6a 43 6d 64 28 63 6c 69 65 tatusObjCmd(clie
7750: 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c 20 ntData, interp,
7760: 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20 20 objc, objv).
7770: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
7780: 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 tData;./* Not us
7790: 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 ed. */. Tcl_I
77a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a 20 nterp *interp;.
77b0: 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 int objc;.
77c0: 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54 20 Tcl_Obj.*CONST
77d0: 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 53 74 objv[];.{. St
77e0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 ate *statePtr;.
77f0: 20 20 20 58 35 30 39 20 2a 70 65 65 72 3b 0a 20 X509 *peer;.
7800: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 Tcl_Obj *objP
7810: 74 72 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e tr;. Tcl_Chan
7820: 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 63 68 nel chan;. ch
7830: 61 72 20 2a 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c ar *channelName,
7840: 20 2a 63 69 70 68 65 72 73 3b 0a 20 20 20 20 69 *ciphers;. i
7850: 6e 74 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 73 77 nt mode;.. sw
7860: 69 74 63 68 20 28 6f 62 6a 63 29 20 7b 0a 09 63 itch (objc) {..c
7870: 61 73 65 20 32 3a 0a 09 20 20 20 20 63 68 61 6e ase 2:.. chan
7880: 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 nelName = Tcl_Ge
7890: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
78a0: 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 bjv[1], NULL);..
78b0: 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 break;...cas
78c0: 65 20 33 3a 0a 09 20 20 20 20 69 66 20 28 21 73 e 3:.. if (!s
78d0: 74 72 63 6d 70 20 28 54 63 6c 5f 47 65 74 53 74 trcmp (Tcl_GetSt
78e0: 72 69 6e 67 20 28 6f 62 6a 76 5b 31 5d 29 2c 20 ring (objv[1]),
78f0: 22 2d 6c 6f 63 61 6c 22 29 29 20 7b 0a 09 09 63 "-local")) {...c
7900: 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c hannelName = Tcl
7910: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
7920: 6a 28 6f 62 6a 76 5b 32 5d 2c 20 4e 55 4c 4c 29 j(objv[2], NULL)
7930: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 ;...break;..
7940: 7d 0a 09 20 20 20 20 2f 2a 20 65 6c 73 65 20 66 }.. /* else f
7950: 61 6c 6c 2e 2e 2e 20 2a 2f 0a 09 64 65 66 61 75 all... */..defau
7960: 6c 74 3a 0a 09 20 20 20 20 54 63 6c 5f 57 72 6f lt:.. Tcl_Wro
7970: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
7980: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6c 6f , 1, objv, "?-lo
7990: 63 61 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 3b 0a cal? channel");.
79a0: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
79b0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
79c0: 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 chan = Tcl_Get
79d0: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
79e0: 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 6d 6f channelName, &mo
79f0: 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 de);. if (cha
7a00: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
7a10: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
7a20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7a30: 20 20 7d 0a 20 20 20 20 69 66 20 28 63 68 61 6e }. if (chan
7a40: 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e 20 3d nelTypeVersion =
7a50: 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 45 = TLS_CHANNEL_VE
7a60: 52 53 49 4f 4e 5f 32 29 20 7b 0a 09 2f 2a 0a 09 RSION_2) {../*..
7a70: 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 * Make sure to
7a80: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
7a90: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 opmost channel..
7aa0: 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f */..chan = Tcl_
7ab0: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
7ac0: 61 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 an);. }. i
7ad0: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 f (Tcl_GetChanne
7ae0: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 lType(chan) != T
7af0: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 ls_ChannelType()
7b00: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
7b10: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 esult(interp, "b
7b20: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 ad channel \"",
7b30: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
7b40: 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a me(chan),..."\":
7b50: 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e not a TLS chann
7b60: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 el", NULL);..ret
7b70: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
7b80: 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74 }. statePt
7b90: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 54 63 r = (State *) Tc
7ba0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
7bb0: 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a anceData(chan);.
7bc0: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 if (objc ==
7bd0: 32 29 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 2) {..peer = SSL
7be0: 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 69 66 _get_peer_certif
7bf0: 69 63 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e icate(statePtr->
7c00: 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 ssl);. } else
7c10: 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 {..peer = SSL_g
7c20: 65 74 5f 63 65 72 74 69 66 69 63 61 74 65 28 73 et_certificate(s
7c30: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 tatePtr->ssl);.
7c40: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 70 65 65 }. if (pee
7c50: 72 29 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 r) {..objPtr = T
7c60: 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e ls_NewX509Obj(in
7c70: 74 65 72 70 2c 20 70 65 65 72 29 3b 0a 09 69 66 terp, peer);..if
7c80: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 20 58 (objc == 2) { X
7c90: 35 30 39 5f 66 72 65 65 28 70 65 65 72 29 3b 20 509_free(peer);
7ca0: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 }. } else {..
7cb0: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 objPtr = Tcl_New
7cc0: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
7cd0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c ;. }.. Tcl
7ce0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
7cf0: 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f ement (interp, o
7d00: 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f bjPtr,.. Tcl_
7d10: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 20 28 22 73 NewStringObj ("s
7d20: 62 69 74 73 22 2c 20 2d 31 29 29 3b 0a 20 20 20 bits", -1));.
7d30: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
7d40: 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 ndElement (inter
7d50: 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 p, objPtr,..
7d60: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 20 28 53 Tcl_NewIntObj (S
7d70: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f 62 69 SL_get_cipher_bi
7d80: 74 73 20 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ts (statePtr->ss
7d90: 6c 2c 20 4e 55 4c 4c 29 29 29 3b 0a 0a 20 20 20 l, NULL)));..
7da0: 20 63 69 70 68 65 72 73 20 3d 20 28 63 68 61 72 ciphers = (char
7db0: 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 *)SSL_get_cipher
7dc0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
7dd0: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73 . if (ciphers
7de0: 20 21 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 63 != NULL && strc
7df0: 6d 70 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f mp(ciphers, "(NO
7e00: 4e 45 29 22 29 21 3d 30 29 20 7b 0a 09 54 63 6c NE)")!=0) {..Tcl
7e10: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
7e20: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 ement(interp, ob
7e30: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 jPtr,...Tcl_NewS
7e40: 74 72 69 6e 67 4f 62 6a 28 22 63 69 70 68 65 72 tringObj("cipher
7e50: 22 2c 20 2d 31 29 29 3b 0a 09 54 63 6c 5f 4c 69 ", -1));..Tcl_Li
7e60: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
7e70: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 nt(interp, objPt
7e80: 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 r,...Tcl_NewStri
7e90: 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 63 69 ngObj(SSL_get_ci
7ea0: 70 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73 pher(statePtr->s
7eb0: 73 6c 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d sl), -1));. }
7ec0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
7ed0: 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f esult( interp, o
7ee0: 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 bjPtr);. retu
7ef0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f rn TCL_OK;.}.../
7f00: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
7f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7f40: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 -------. *. * Ve
7f50: 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 20 72 rsionObjCmd -- r
7f60: 65 74 75 72 6e 20 76 65 72 73 69 6f 6e 20 73 74 eturn version st
7f70: 72 69 6e 67 20 66 72 6f 6d 20 4f 70 65 6e 53 53 ring from OpenSS
7f80: 4c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 L.. *. * Results
7f90: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
7fa0: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 Tcl result.. *.
7fb0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
7fc0: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
7fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8010: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
8020: 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 63 .VersionObjCmd(c
8030: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 lientData, inter
8040: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 p, objc, objv).
8050: 20 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c ClientData cl
8060: 69 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 ientData;./* Not
8070: 20 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 used. */. Tc
8080: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
8090: 3b 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a ;. int objc;.
80a0: 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e Tcl_Obj.*CON
80b0: 53 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 ST objv[];.{.
80c0: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 Tcl_Obj *objPtr
80d0: 3b 0a 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 ;.. objPtr =
80e0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
80f0: 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e (OPENSSL_VERSION
8100: 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 0a 20 20 20 _TEXT, -1);..
8110: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
8120: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 t(interp, objPtr
8130: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
8140: 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d L_OK;.}.../*. *-
8150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8190: 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 73 63 4f 62 6a --. *. * MiscObj
81a0: 43 6d 64 20 2d 2d 20 6d 69 73 63 20 63 6f 6d 6d Cmd -- misc comm
81b0: 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ands. *. * Resul
81c0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
81d0: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
81e0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
81f0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
8200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8240: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
8250: 6e 74 0a 4d 69 73 63 4f 62 6a 43 6d 64 28 63 6c nt.MiscObjCmd(cl
8260: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
8270: 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 , objc, objv).
8280: 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 ClientData cli
8290: 65 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 entData;./* Not
82a0: 75 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c used. */. Tcl
82b0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b _Interp *interp;
82c0: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 . int objc;.
82d0: 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 Tcl_Obj.*CONS
82e0: 54 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 T objv[];.{.
82f0: 43 4f 4e 53 54 38 34 20 63 68 61 72 20 2a 63 6f CONST84 char *co
8300: 6d 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b 20 22 72 mmands [] = { "r
8310: 65 71 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 20 20 20 eq", NULL };.
8320: 20 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 20 7b 20 enum command {
8330: 43 5f 52 45 51 2c 20 43 5f 44 55 4d 4d 59 20 7d C_REQ, C_DUMMY }
8340: 3b 0a 20 20 20 20 69 6e 74 20 63 6d 64 3b 0a 0a ;. int cmd;..
8350: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 if (objc < 2
8360: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
8370: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
8380: 20 6f 62 6a 76 2c 20 22 73 75 62 63 6f 6d 6d 61 objv, "subcomma
8390: 6e 64 20 3f 61 72 67 73 3f 22 29 3b 0a 09 72 65 nd ?args?");..re
83a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
83b0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 }. if (Tc
83c0: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 l_GetIndexFromOb
83d0: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 j(interp, objv[1
83e0: 5d 2c 20 63 6f 6d 6d 61 6e 64 73 2c 0a 09 20 20 ], commands,..
83f0: 20 20 22 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c 26 "command", 0,&
8400: 63 6d 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 cmd) != TCL_OK)
8410: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
8420: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
8430: 73 77 69 74 63 68 20 28 28 65 6e 75 6d 20 63 6f switch ((enum co
8440: 6d 6d 61 6e 64 29 20 63 6d 64 29 20 7b 0a 09 63 mmand) cmd) {..c
8450: 61 73 65 20 43 5f 52 45 51 3a 20 7b 0a 09 20 20 ase C_REQ: {..
8460: 20 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 EVP_PKEY *pkey
8470: 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 =NULL;.. X509
8480: 20 2a 63 65 72 74 3d 4e 55 4c 4c 3b 0a 09 20 20 *cert=NULL;..
8490: 20 20 58 35 30 39 5f 4e 41 4d 45 20 2a 6e 61 6d X509_NAME *nam
84a0: 65 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 54 63 6c e=NULL;.. Tcl
84b0: 5f 4f 62 6a 20 2a 2a 6c 69 73 74 76 3b 0a 09 20 _Obj **listv;..
84c0: 20 20 20 69 6e 74 20 6c 69 73 74 63 2c 69 3b 0a int listc,i;.
84d0: 0a 09 20 20 20 20 42 49 4f 20 2a 6f 75 74 3d 4e .. BIO *out=N
84e0: 55 4c 4c 3b 0a 0a 09 20 20 20 20 63 68 61 72 20 ULL;... char
84f0: 2a 6b 5f 43 3d 22 22 2c 2a 6b 5f 53 54 3d 22 22 *k_C="",*k_ST=""
8500: 2c 2a 6b 5f 4c 3d 22 22 2c 2a 6b 5f 4f 3d 22 22 ,*k_L="",*k_O=""
8510: 2c 2a 6b 5f 4f 55 3d 22 22 2c 2a 6b 5f 43 4e 3d ,*k_OU="",*k_CN=
8520: 22 22 2c 2a 6b 5f 45 6d 61 69 6c 3d 22 22 3b 0a "",*k_Email="";.
8530: 09 20 20 20 20 63 68 61 72 20 2a 6b 65 79 6f 75 . char *keyou
8540: 74 2c 2a 70 65 6d 6f 75 74 2c 2a 73 74 72 3b 0a t,*pemout,*str;.
8550: 09 20 20 20 20 69 6e 74 20 6b 65 79 73 69 7a 65 . int keysize
8560: 2c 73 65 72 69 61 6c 3d 30 2c 64 61 79 73 3d 33 ,serial=0,days=3
8570: 36 35 3b 0a 09 20 20 20 20 0a 09 20 20 20 20 69 65;.. .. i
8580: 66 20 28 28 6f 62 6a 63 3c 35 29 20 7c 7c 20 28 f ((objc<5) || (
8590: 6f 62 6a 63 3e 36 29 29 20 7b 0a 09 09 54 63 6c objc>6)) {...Tcl
85a0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
85b0: 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 terp, 2, objv, "
85c0: 6b 65 79 73 69 7a 65 20 6b 65 79 66 69 6c 65 20 keysize keyfile
85d0: 63 65 72 74 66 69 6c 65 20 3f 69 6e 66 6f 3f 22 certfile ?info?"
85e0: 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f );...return TCL_
85f0: 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 0a 09 ERROR;.. }...
8600: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 if (Tcl_GetI
8610: 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 ntFromObj(interp
8620: 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6b 65 79 73 , objv[2], &keys
8630: 69 7a 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 ize) != TCL_OK)
8640: 7b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {...return TCL_E
8650: 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 20 20 RROR;.. }..
8660: 20 20 6b 65 79 6f 75 74 3d 54 63 6c 5f 47 65 74 keyout=Tcl_Get
8670: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b String(objv[3]);
8680: 0a 09 20 20 20 20 70 65 6d 6f 75 74 3d 54 63 6c .. pemout=Tcl
8690: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
86a0: 34 5d 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 6f 4]);... if (o
86b0: 62 6a 63 3e 3d 36 29 20 7b 0a 09 09 69 66 20 28 bjc>=6) {...if (
86c0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c Tcl_ListObjGetEl
86d0: 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f ements(interp, o
86e0: 62 6a 76 5b 35 5d 2c 0a 09 09 09 26 6c 69 73 74 bjv[5],....&list
86f0: 63 2c 20 26 6c 69 73 74 76 29 20 21 3d 20 54 43 c, &listv) != TC
8700: 4c 5f 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 65 L_OK) {... re
8710: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8720: 09 09 7d 0a 0a 09 09 69 66 20 28 28 6c 69 73 74 ..}....if ((list
8730: 63 25 32 29 20 21 3d 20 30 29 20 7b 0a 09 09 20 c%2) != 0) {...
8740: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
8750: 28 69 6e 74 65 72 70 2c 22 49 6e 66 6f 72 6d 61 (interp,"Informa
8760: 74 69 6f 6e 20 6c 69 73 74 20 6d 75 73 74 20 68 tion list must h
8770: 61 76 65 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 ave even number
8780: 6f 66 20 61 72 67 75 6d 65 6e 74 73 22 2c 4e 55 of arguments",NU
8790: 4c 4c 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 LL);... retur
87a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d n TCL_ERROR;...}
87b0: 0a 09 09 66 6f 72 20 28 69 3d 30 3b 20 69 3c 6c ...for (i=0; i<l
87c0: 69 73 74 63 3b 20 69 2b 3d 32 29 20 7b 0a 09 09 istc; i+=2) {...
87d0: 20 20 20 20 73 74 72 3d 54 63 6c 5f 47 65 74 53 str=Tcl_GetS
87e0: 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 5d 29 3b tring(listv[i]);
87f0: 0a 09 09 20 20 20 20 69 66 20 28 73 74 72 63 6d ... if (strcm
8800: 70 28 73 74 72 2c 22 64 61 79 73 22 29 3d 3d 30 p(str,"days")==0
8810: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 ) {....if (Tcl_G
8820: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
8830: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 erp,listv[i+1],&
8840: 64 61 79 73 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 days)!=TCL_OK)..
8850: 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
8860: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 _ERROR;... }
8870: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
8880: 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d 30 str,"serial")==0
8890: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 ) {....if (Tcl_G
88a0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 etIntFromObj(int
88b0: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 erp,listv[i+1],&
88c0: 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29 serial)!=TCL_OK)
88d0: 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 .... return T
88e0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 CL_ERROR;...
88f0: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d } else if (strcm
8900: 70 28 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d p(str,"serial")=
8910: 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c =0) {....if (Tcl
8920: 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 _GetIntFromObj(i
8930: 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d nterp,listv[i+1]
8940: 2c 26 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f ,&serial)!=TCL_O
8950: 4b 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e K).... return
8960: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 TCL_ERROR;...
8970: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
8980: 63 6d 70 28 73 74 72 2c 22 43 22 29 3d 3d 30 29 cmp(str,"C")==0)
8990: 20 7b 0a 09 09 09 6b 5f 43 3d 54 63 6c 5f 47 65 {....k_C=Tcl_Ge
89a0: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
89b0: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
89c0: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 e if (strcmp(str
89d0: 2c 22 53 54 22 29 3d 3d 30 29 20 7b 0a 09 09 09 ,"ST")==0) {....
89e0: 6b 5f 53 54 3d 54 63 6c 5f 47 65 74 53 74 72 69 k_ST=Tcl_GetStri
89f0: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
8a00: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
8a10: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4c 22 29 (strcmp(str,"L")
8a20: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4c 3d 54 63 ==0) {....k_L=Tc
8a30: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
8a40: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
8a50: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
8a60: 28 73 74 72 2c 22 4f 22 29 3d 3d 30 29 20 7b 0a (str,"O")==0) {.
8a70: 09 09 09 6b 5f 4f 3d 54 63 6c 5f 47 65 74 53 74 ...k_O=Tcl_GetSt
8a80: 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 ring(listv[i+1])
8a90: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 ;... } else i
8aa0: 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f f (strcmp(str,"O
8ab0: 55 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f U")==0) {....k_O
8ac0: 55 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 U=Tcl_GetString(
8ad0: 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 listv[i+1]);...
8ae0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
8af0: 72 63 6d 70 28 73 74 72 2c 22 43 4e 22 29 3d 3d rcmp(str,"CN")==
8b00: 30 29 20 7b 0a 09 09 09 6b 5f 43 4e 3d 54 63 6c 0) {....k_CN=Tcl
8b10: 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 _GetString(listv
8b20: 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 [i+1]);... }
8b30: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
8b40: 73 74 72 2c 22 45 6d 61 69 6c 22 29 3d 3d 30 29 str,"Email")==0)
8b50: 20 7b 0a 09 09 09 6b 5f 45 6d 61 69 6c 3d 54 63 {....k_Email=Tc
8b60: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
8b70: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
8b80: 20 65 6c 73 65 20 7b 0a 09 09 09 54 63 6c 5f 53 else {....Tcl_S
8b90: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c etResult(interp,
8ba0: 22 55 6e 6b 6e 6f 77 6e 20 70 61 72 61 6d 65 74 "Unknown paramet
8bb0: 65 72 22 2c 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 er",NULL);....re
8bc0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8bd0: 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 .. }...}..
8be0: 20 7d 0a 09 20 20 20 20 69 66 20 28 28 70 6b 65 }.. if ((pke
8bf0: 79 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6e 65 77 y = EVP_PKEY_new
8c00: 28 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ()) != NULL) {..
8c10: 09 69 66 20 28 21 45 56 50 5f 50 4b 45 59 5f 61 .if (!EVP_PKEY_a
8c20: 73 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 0a ssign_RSA(pkey,.
8c30: 09 09 09 52 53 41 5f 67 65 6e 65 72 61 74 65 5f ...RSA_generate_
8c40: 6b 65 79 28 6b 65 79 73 69 7a 65 2c 20 30 78 31 key(keysize, 0x1
8c50: 30 30 30 31 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 0001, NULL, NULL
8c60: 29 29 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f ))) {... Tcl_
8c70: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 SetResult(interp
8c80: 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 69 ,"Error generati
8c90: 6e 67 20 70 72 69 76 61 74 65 20 6b 65 79 22 2c ng private key",
8ca0: 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 50 NULL);... EVP
8cb0: 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 _PKEY_free(pkey)
8cc0: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 ;... return T
8cd0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 CL_ERROR;...}...
8ce0: 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f out=BIO_new(BIO_
8cf0: 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 4f s_file());...BIO
8d00: 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 28 _write_filename(
8d10: 6f 75 74 2c 6b 65 79 6f 75 74 29 3b 0a 09 09 50 out,keyout);...P
8d20: 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 50 72 69 EM_write_bio_Pri
8d30: 76 61 74 65 4b 65 79 28 6f 75 74 2c 70 6b 65 79 vateKey(out,pkey
8d40: 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 4c ,NULL,NULL,0,NUL
8d50: 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 42 49 4f 5f 66 L,NULL);...BIO_f
8d60: 72 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 ree_all(out);...
8d70: 09 69 66 20 28 28 63 65 72 74 3d 58 35 30 39 5f .if ((cert=X509_
8d80: 6e 65 77 28 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a new())==NULL) {.
8d90: 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 .. Tcl_SetRes
8da0: 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f ult(interp,"Erro
8db0: 72 20 67 65 6e 65 72 61 74 69 6e 67 20 63 65 72 r generating cer
8dc0: 74 69 66 69 63 61 74 65 20 72 65 71 75 65 73 74 tificate request
8dd0: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 ",NULL);... E
8de0: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
8df0: 79 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e y);... return
8e00: 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 7d (TCL_ERROR);...}
8e10: 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 76 65 72 ....X509_set_ver
8e20: 73 69 6f 6e 28 63 65 72 74 2c 32 29 3b 0a 09 09 sion(cert,2);...
8e30: 41 53 4e 31 5f 49 4e 54 45 47 45 52 5f 73 65 74 ASN1_INTEGER_set
8e40: 28 58 35 30 39 5f 67 65 74 5f 73 65 72 69 61 6c (X509_get_serial
8e50: 4e 75 6d 62 65 72 28 63 65 72 74 29 2c 73 65 72 Number(cert),ser
8e60: 69 61 6c 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 ial);...X509_gmt
8e70: 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 ime_adj(X509_get
8e80: 5f 6e 6f 74 42 65 66 6f 72 65 28 63 65 72 74 29 _notBefore(cert)
8e90: 2c 30 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 ,0);...X509_gmti
8ea0: 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 5f me_adj(X509_get_
8eb0: 6e 6f 74 41 66 74 65 72 28 63 65 72 74 29 2c 28 notAfter(cert),(
8ec0: 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 34 2a 64 61 long)60*60*24*da
8ed0: 79 73 29 3b 0a 09 09 58 35 30 39 5f 73 65 74 5f ys);...X509_set_
8ee0: 70 75 62 6b 65 79 28 63 65 72 74 2c 70 6b 65 79 pubkey(cert,pkey
8ef0: 29 3b 0a 09 09 0a 09 09 6e 61 6d 65 3d 58 35 30 );......name=X50
8f00: 39 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 9_get_subject_na
8f10: 6d 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 35 30 me(cert);....X50
8f20: 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 9_NAME_add_entry
8f30: 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43 22 _by_txt(name,"C"
8f40: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 , MBSTRING_ASC,
8f50: 6b 5f 43 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b k_C, -1, -1, 0);
8f60: 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 ...X509_NAME_add
8f70: 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 _entry_by_txt(na
8f80: 6d 65 2c 22 53 54 22 2c 20 4d 42 53 54 52 49 4e me,"ST", MBSTRIN
8f90: 47 5f 41 53 43 2c 20 6b 5f 53 54 2c 20 2d 31 2c G_ASC, k_ST, -1,
8fa0: 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f -1, 0);...X509_
8fb0: 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 NAME_add_entry_b
8fc0: 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4c 22 2c 20 y_txt(name,"L",
8fd0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
8fe0: 4c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 L, -1, -1, 0);..
8ff0: 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 .X509_NAME_add_e
9000: 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 ntry_by_txt(name
9010: 2c 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 ,"O", MBSTRING_A
9020: 53 43 2c 20 6b 5f 4f 2c 20 2d 31 2c 20 2d 31 2c SC, k_O, -1, -1,
9030: 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 0);...X509_NAME
9040: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
9050: 74 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d 42 53 t(name,"OU", MBS
9060: 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 4f 55 2c TRING_ASC, k_OU,
9070: 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 -1, -1, 0);...X
9080: 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 509_NAME_add_ent
9090: 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 ry_by_txt(name,"
90a0: 43 4e 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 CN", MBSTRING_AS
90b0: 43 2c 20 6b 5f 43 4e 2c 20 2d 31 2c 20 2d 31 2c C, k_CN, -1, -1,
90c0: 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 0);...X509_NAME
90d0: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
90e0: 74 28 6e 61 6d 65 2c 22 45 6d 61 69 6c 22 2c 20 t(name,"Email",
90f0: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
9100: 45 6d 61 69 6c 2c 20 2d 31 2c 20 2d 31 2c 20 30 Email, -1, -1, 0
9110: 29 3b 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 73 );....X509_set_s
9120: 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 ubject_name(cert
9130: 2c 6e 61 6d 65 29 3b 0a 0a 09 09 69 66 20 28 21 ,name);....if (!
9140: 58 35 30 39 5f 73 69 67 6e 28 63 65 72 74 2c 70 X509_sign(cert,p
9150: 6b 65 79 2c 45 56 50 5f 6d 64 35 28 29 29 29 20 key,EVP_md5()))
9160: 7b 0a 09 09 20 20 20 20 58 35 30 39 5f 66 72 65 {... X509_fre
9170: 65 28 63 65 72 74 29 3b 0a 09 09 20 20 20 20 45 e(cert);... E
9180: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
9190: 79 29 3b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 y);... Tcl_Se
91a0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
91b0: 45 72 72 6f 72 20 73 69 67 6e 69 6e 67 20 63 65 Error signing ce
91c0: 72 74 69 66 69 63 61 74 65 22 2c 4e 55 4c 4c 29 rtificate",NULL)
91d0: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 ;... return T
91e0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 CL_ERROR;...}...
91f0: 09 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f .out=BIO_new(BIO
9200: 5f 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 _s_file());...BI
9210: 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 O_write_filename
9220: 28 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 0a 09 (out,pemout);...
9230: 09 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 58 .PEM_write_bio_X
9240: 35 30 39 28 6f 75 74 2c 63 65 72 74 29 3b 0a 09 509(out,cert);..
9250: 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 .BIO_free_all(ou
9260: 74 29 3b 0a 0a 09 09 58 35 30 39 5f 66 72 65 65 t);....X509_free
9270: 28 63 65 72 74 29 3b 0a 09 09 45 56 50 5f 50 4b (cert);...EVP_PK
9280: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 EY_free(pkey);..
9290: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 } else {...T
92a0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
92b0: 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 erp,"Error gener
92c0: 61 74 69 6e 67 20 70 72 69 76 61 74 65 20 6b 65 ating private ke
92d0: 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 y",NULL);...retu
92e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 rn TCL_ERROR;..
92f0: 20 20 20 7d 0a 09 7d 0a 09 62 72 65 61 6b 3b 0a }..}..break;.
9300: 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 62 72 default:..br
9310: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 eak;. }. r
9320: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
9330: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
9340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
9380: 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 2a 0a Tls_Free --. *.
9390: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
93a0: 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 6e e cleans up when
93b0: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 a SSL socket ba
93c0: 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 sed channel. *.i
93d0: 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 s closed and its
93e0: 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 reference count
93f0: 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 0a 20 falls below 1.
9400: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
9410: 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 .none. *. * Side
9420: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 effects:. *.Fre
9430: 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 es all the state
9440: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
9450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f ---------. */.vo
9490: 69 64 0a 54 6c 73 5f 46 72 65 65 28 20 63 68 61 id.Tls_Free( cha
94a0: 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a 7b 0a r *blockPtr ).{.
94b0: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
94c0: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 62 Ptr = (State *)b
94d0: 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 54 6c lockPtr;.. Tl
94e0: 73 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 74 72 s_Clean(statePtr
94f0: 29 3b 0a 20 20 20 20 63 6b 66 72 65 65 28 62 6c );. ckfree(bl
9500: 6f 63 6b 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a ockPtr);.}.../*.
9510: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
9520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9550: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
9560: 43 6c 65 61 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 54 Clean --. *. *.T
9570: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 6c his procedure cl
9580: 65 61 6e 73 20 75 70 20 77 68 65 6e 20 61 20 53 eans up when a S
9590: 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 SL socket based
95a0: 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c channel. *.is cl
95b0: 6f 73 65 64 20 61 6e 64 20 69 74 73 20 72 65 66 osed and its ref
95c0: 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c erence count fal
95d0: 6c 73 20 62 65 6c 6f 77 20 31 2e 20 20 54 68 69 ls below 1. Thi
95e0: 73 20 73 68 6f 75 6c 64 0a 20 2a 09 62 65 20 63 s should. *.be c
95f0: 61 6c 6c 65 64 20 73 79 6e 63 68 72 6f 6e 6f 75 alled synchronou
9600: 73 6c 79 20 62 79 20 74 68 65 20 43 6c 6f 73 65 sly by the Close
9610: 50 72 6f 63 2c 20 6e 6f 74 20 69 6e 20 74 68 65 Proc, not in the
9620: 0a 20 2a 09 45 76 65 6e 74 75 61 6c 6c 79 46 72 . *.EventuallyFr
9630: 65 65 20 63 61 6c 6c 62 61 63 6b 2e 0a 20 2a 0a ee callback.. *.
9640: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e * Results:. *.n
9650: 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 one. *. * Side e
9660: 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 ffects:. *.Frees
9670: 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 0a 20 all the state.
9680: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
9690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
96a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
96b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
96c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 -------. */.void
96d0: 0a 54 6c 73 5f 43 6c 65 61 6e 28 53 74 61 74 65 .Tls_Clean(State
96e0: 20 2a 73 74 61 74 65 50 74 72 29 0a 7b 0a 20 20 *statePtr).{.
96f0: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 77 65 27 72 /*. * we'r
9700: 65 20 61 73 73 75 6d 69 6e 67 20 68 65 72 65 20 e assuming here
9710: 74 68 61 74 20 77 65 27 72 65 20 73 69 6e 67 6c that we're singl
9720: 65 2d 74 68 72 65 61 64 65 64 0a 20 20 20 20 20 e-threaded.
9730: 2a 2f 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 */.. if (stat
9740: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
9750: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
9760: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c NULL) {..Tcl_Del
9770: 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 eteTimerHandler(
9780: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 statePtr->timer)
9790: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d ;..statePtr->tim
97a0: 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d er = NULL;. }
97b0: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
97c0: 74 72 2d 3e 62 69 6f 29 20 7b 0a 09 2f 2a 20 54 tr->bio) {../* T
97d0: 68 69 73 20 77 69 6c 6c 20 63 61 6c 6c 20 53 53 his will call SS
97e0: 4c 5f 73 68 75 74 64 6f 77 6e 2e 20 42 75 67 20 L_shutdown. Bug
97f0: 31 34 31 34 30 34 35 20 2a 2f 0a 09 64 70 72 69 1414045 */..dpri
9800: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 42 49 4f ntf(stderr, "BIO
9810: 5f 66 72 65 65 5f 61 6c 6c 28 25 70 29 5c 6e 22 _free_all(%p)\n"
9820: 2c 20 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 , statePtr->bio)
9830: 3b 0a 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 ;..BIO_free_all(
9840: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a statePtr->bio);.
9850: 09 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 20 3d .statePtr->bio =
9860: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL;. }.
9870: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
9880: 73 6c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 73 sl) {..dprintf(s
9890: 74 64 65 72 72 2c 20 22 53 53 4c 5f 66 72 65 65 tderr, "SSL_free
98a0: 28 25 70 29 5c 6e 22 2c 20 73 74 61 74 65 50 74 (%p)\n", statePt
98b0: 72 2d 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 r->ssl);..SSL_fr
98c0: 65 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ee(statePtr->ssl
98d0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 73 );..statePtr->ss
98e0: 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a l = NULL;. }.
98f0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
9900: 2d 3e 63 74 78 29 20 7b 0a 09 53 53 4c 5f 43 54 ->ctx) {..SSL_CT
9910: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
9920: 3e 63 74 78 29 3b 0a 09 73 74 61 74 65 50 74 72 >ctx);..statePtr
9930: 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ->ctx = NULL;.
9940: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 }. if (stat
9950: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 ePtr->callback)
9960: 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f {..Tcl_DecrRefCo
9970: 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 unt(statePtr->ca
9980: 6c 6c 62 61 63 6b 29 3b 0a 09 73 74 61 74 65 50 llback);..stateP
9990: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 4e tr->callback = N
99a0: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ULL;. }. i
99b0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 f (statePtr->pas
99c0: 73 77 6f 72 64 29 20 7b 0a 09 54 63 6c 5f 44 65 sword) {..Tcl_De
99d0: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 crRefCount(state
99e0: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a Ptr->password);.
99f0: 09 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 .statePtr->passw
9a00: 6f 72 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ord = NULL;.
9a10: 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d }.}.../*. *-----
9a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
9a60: 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 20 2d 2d *. * Tls_Init --
9a70: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 73 20 61 . *. *.This is a
9a80: 20 70 61 63 6b 61 67 65 20 69 6e 69 74 69 61 6c package initial
9a90: 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 ization procedur
9aa0: 65 2c 20 77 68 69 63 68 20 69 73 20 63 61 6c 6c e, which is call
9ab0: 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 77 68 65 ed. *.by Tcl whe
9ac0: 6e 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 n this package i
9ad0: 73 20 74 6f 20 62 65 20 61 64 64 65 64 20 74 6f s to be added to
9ae0: 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 2e an interpreter.
9af0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 20 . *. * Results:
9b00: 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 65 64 20 Ssl configured
9b10: 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a and loaded. *. *
9b20: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
9b30: 2a 09 20 63 72 65 61 74 65 20 74 68 65 20 73 73 *. create the ss
9b40: 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 l command, initi
9b50: 61 6c 69 73 65 20 73 73 6c 20 63 6f 6e 74 65 78 alise ssl contex
9b60: 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d t. *. *---------
9b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
9bb0: 69 6e 74 0a 54 6c 73 5f 49 6e 69 74 28 54 63 6c int.Tls_Init(Tcl
9bc0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
9bd0: 09 09 2f 2a 20 49 6e 74 65 72 70 72 65 74 65 72 ../* Interpreter
9be0: 20 69 6e 20 77 68 69 63 68 20 74 68 65 20 70 61 in which the pa
9bf0: 63 6b 61 67 65 20 69 73 0a 09 09 09 09 09 20 2a ckage is...... *
9c00: 20 74 6f 20 62 65 20 6d 61 64 65 20 61 76 61 69 to be made avai
9c10: 6c 61 62 6c 65 2e 20 2a 2f 0a 7b 0a 20 20 20 20 lable. */.{.
9c20: 69 6e 74 20 6d 61 6a 6f 72 2c 20 6d 69 6e 6f 72 int major, minor
9c30: 2c 20 70 61 74 63 68 6c 65 76 65 6c 2c 20 72 65 , patchlevel, re
9c40: 6c 65 61 73 65 2c 20 69 3b 0a 20 20 20 20 63 68 lease, i;. ch
9c50: 61 72 20 72 6e 64 5f 73 65 65 64 5b 31 36 5d 20 ar rnd_seed[16]
9c60: 3d 20 22 47 72 7a 53 6c 70 6c 4b 71 55 64 6e 6e = "GrzSlplKqUdnn
9c70: 7a 50 21 22 3b 09 2f 2a 20 31 36 20 62 79 74 65 zP!";./* 16 byte
9c80: 73 20 2a 2f 0a 23 69 66 20 64 65 66 69 6e 65 64 s */.#if defined
9c90: 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 (OPENSSL_THREADS
9ca0: 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c ) && defined(TCL
9cb0: 5f 54 48 52 45 41 44 53 29 0a 20 20 20 20 73 69 _THREADS). si
9cc0: 7a 65 5f 74 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a ze_t num_locks;.
9cd0: 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 0a 20 #endif.. /*.
9ce0: 20 20 20 20 2a 20 54 68 65 20 6f 72 69 67 69 6e * The origin
9cf0: 61 6c 20 38 2e 32 2e 30 20 73 74 61 63 6b 65 64 al 8.2.0 stacked
9d00: 20 63 68 61 6e 6e 65 6c 20 69 6d 70 6c 65 6d 65 channel impleme
9d10: 6e 74 61 74 69 6f 6e 20 28 61 6e 64 20 74 68 65 ntation (and the
9d20: 20 70 61 74 63 68 0a 20 20 20 20 20 2a 20 74 68 patch. * th
9d30: 61 74 20 70 72 65 63 65 64 65 64 20 69 74 29 20 at preceded it)
9d40: 68 61 64 20 70 72 6f 62 6c 65 6d 73 20 77 69 74 had problems wit
9d50: 68 20 73 63 61 6c 61 62 69 6c 69 74 79 20 61 6e h scalability an
9d60: 64 20 72 6f 62 75 73 74 6e 65 73 73 2e 0a 20 20 d robustness..
9d70: 20 20 20 2a 20 54 68 65 73 65 20 77 65 72 65 20 * These were
9d80: 61 64 64 72 65 73 73 20 69 6e 20 38 2e 33 2e 32 address in 8.3.2
9d90: 20 2f 20 38 2e 34 61 32 2c 20 73 6f 20 77 65 20 / 8.4a2, so we
9da0: 6e 6f 77 20 72 65 71 75 69 72 65 20 74 68 61 74 now require that
9db0: 20 61 73 20 61 0a 20 20 20 20 20 2a 20 6d 69 6e as a. * min
9dc0: 69 6d 75 6d 20 66 6f 72 20 54 4c 53 20 31 2e 34 imum for TLS 1.4
9dd0: 2b 2e 20 20 57 65 20 6f 6e 6c 79 20 73 75 70 70 +. We only supp
9de0: 6f 72 74 20 38 2e 32 2b 20 6e 6f 77 20 28 38 2e ort 8.2+ now (8.
9df0: 33 2e 32 2b 20 70 72 65 66 65 72 72 65 64 29 2e 3.2+ preferred).
9e00: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 . */. if
9e10: 28 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 4c (.#ifdef USE_TCL
9e20: 5f 53 54 55 42 53 0a 09 54 63 6c 5f 49 6e 69 74 _STUBS..Tcl_Init
9e30: 53 74 75 62 73 28 69 6e 74 65 72 70 2c 20 22 38 Stubs(interp, "8
9e40: 2e 32 22 2c 20 30 29 0a 23 65 6c 73 65 0a 09 54 .2", 0).#else..T
9e50: 63 6c 5f 50 6b 67 52 65 71 75 69 72 65 28 69 6e cl_PkgRequire(in
9e60: 74 65 72 70 2c 20 22 54 63 6c 22 2c 20 22 38 2e terp, "Tcl", "8.
9e70: 32 22 2c 20 30 29 0a 23 65 6e 64 69 66 0a 09 3d 2", 0).#endif..=
9e80: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
9e90: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
9ea0: 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 }.. /*.
9eb0: 2a 20 47 65 74 20 74 68 65 20 76 65 72 73 69 6f * Get the versio
9ec0: 6e 20 73 6f 20 77 65 20 63 61 6e 20 72 75 6e 74 n so we can runt
9ed0: 69 6d 65 20 73 77 69 74 63 68 20 6f 6e 20 61 76 ime switch on av
9ee0: 61 69 6c 61 62 6c 65 20 66 75 6e 63 74 69 6f 6e ailable function
9ef0: 61 6c 69 74 79 2e 0a 20 20 20 20 20 2a 20 54 4c ality.. * TL
9f00: 53 20 73 68 6f 75 6c 64 20 72 65 61 6c 6c 79 20 S should really
9f10: 6f 6e 6c 79 20 62 65 20 75 73 65 64 20 69 6e 20 only be used in
9f20: 38 2e 33 2e 32 2b 2c 20 62 75 74 20 74 68 65 20 8.3.2+, but the
9f30: 6f 74 68 65 72 20 77 6f 72 6b 73 20 66 6f 72 0a other works for.
9f40: 20 20 20 20 20 2a 20 73 6f 6d 65 20 6c 69 6d 69 * some limi
9f50: 74 65 64 20 66 75 6e 63 74 69 6f 6e 61 6c 69 74 ted functionalit
9f60: 79 2c 20 73 6f 20 61 6e 20 61 74 74 65 6d 70 74 y, so an attempt
9f70: 20 61 74 20 73 75 70 70 6f 72 74 20 69 73 20 6d at support is m
9f80: 61 64 65 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 ade.. */.
9f90: 20 54 63 6c 5f 47 65 74 56 65 72 73 69 6f 6e 28 Tcl_GetVersion(
9fa0: 26 6d 61 6a 6f 72 2c 20 26 6d 69 6e 6f 72 2c 20 &major, &minor,
9fb0: 26 70 61 74 63 68 6c 65 76 65 6c 2c 20 26 72 65 &patchlevel, &re
9fc0: 6c 65 61 73 65 29 3b 0a 20 20 20 20 69 66 20 28 lease);. if (
9fd0: 28 6d 61 6a 6f 72 20 3e 20 38 29 20 7c 7c 20 28 (major > 8) || (
9fe0: 28 6d 61 6a 6f 72 20 3d 3d 20 38 29 20 26 26 20 (major == 8) &&
9ff0: 28 28 6d 69 6e 6f 72 20 3e 20 33 29 20 7c 7c 20 ((minor > 3) ||
a000: 28 28 6d 69 6e 6f 72 20 3d 3d 20 33 29 20 26 26 ((minor == 3) &&
a010: 0a 09 20 20 20 20 28 72 65 6c 65 61 73 65 20 3d .. (release =
a020: 3d 20 54 43 4c 5f 46 49 4e 41 4c 5f 52 45 4c 45 = TCL_FINAL_RELE
a030: 41 53 45 29 20 26 26 20 28 70 61 74 63 68 6c 65 ASE) && (patchle
a040: 76 65 6c 20 3e 3d 20 32 29 29 29 29 29 20 7b 0a vel >= 2))))) {.
a050: 09 2f 2a 20 38 2e 33 2e 32 2b 20 2a 2f 0a 09 63 ./* 8.3.2+ */..c
a060: 68 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f hannelTypeVersio
a070: 6e 20 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f n = TLS_CHANNEL_
a080: 56 45 52 53 49 4f 4e 5f 32 3b 0a 20 20 20 20 7d VERSION_2;. }
a090: 20 65 6c 73 65 20 7b 0a 09 2f 2a 20 38 2e 32 2e else {../* 8.2.
a0a0: 30 20 2d 20 38 2e 33 2e 31 20 2a 2f 0a 09 63 68 0 - 8.3.1 */..ch
a0b0: 61 6e 6e 65 6c 54 79 70 65 56 65 72 73 69 6f 6e annelTypeVersion
a0c0: 20 3d 20 54 4c 53 5f 43 48 41 4e 4e 45 4c 5f 56 = TLS_CHANNEL_V
a0d0: 45 52 53 49 4f 4e 5f 31 3b 0a 20 20 20 20 7d 0a ERSION_1;. }.
a0e0: 0a 20 20 20 20 69 66 20 28 43 52 59 50 54 4f 5f . if (CRYPTO_
a0f0: 73 65 74 5f 6d 65 6d 5f 66 75 6e 63 74 69 6f 6e set_mem_function
a100: 73 28 28 76 6f 69 64 20 2a 28 2a 29 28 73 69 7a s((void *(*)(siz
a110: 65 5f 74 29 29 54 63 6c 5f 41 6c 6c 6f 63 2c 0a e_t))Tcl_Alloc,.
a120: 09 09 09 09 20 28 76 6f 69 64 20 2a 28 2a 29 28 .... (void *(*)(
a130: 76 6f 69 64 20 2a 2c 20 73 69 7a 65 5f 74 29 29 void *, size_t))
a140: 54 63 6c 5f 52 65 61 6c 6c 6f 63 2c 0a 09 09 09 Tcl_Realloc,....
a150: 09 20 28 76 6f 69 64 28 2a 29 28 76 6f 69 64 20 . (void(*)(void
a160: 2a 29 29 54 63 6c 5f 46 72 65 65 29 20 3d 3d 20 *))Tcl_Free) ==
a170: 30 29 20 7b 0a 20 20 20 20 20 20 20 2f 2a 20 4e 0) {. /* N
a180: 6f 74 20 75 73 69 6e 67 20 54 63 6c 27 73 20 6d ot using Tcl's m
a190: 65 6d 20 66 75 6e 63 74 69 6f 6e 73 20 2e 2e 2e em functions ...
a1a0: 20 6e 6f 74 20 63 72 69 74 69 63 61 6c 20 2a 2f not critical */
a1b0: 0a 20 20 20 20 7d 0a 0a 23 69 66 20 64 65 66 69 . }..#if defi
a1c0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 ned(OPENSSL_THRE
a1d0: 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 ADS) && defined(
a1e0: 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 20 20 20 TCL_THREADS).
a1f0: 20 2f 2a 20 73 68 6f 75 6c 64 20 77 65 20 63 6f /* should we co
a200: 6e 73 69 64 65 72 20 61 6c 6c 6f 63 61 74 69 6e nsider allocatin
a210: 67 20 6d 75 74 65 78 65 73 3f 20 2a 2f 0a 20 20 g mutexes? */.
a220: 20 20 6e 75 6d 5f 6c 6f 63 6b 73 20 3d 20 43 52 num_locks = CR
a230: 59 50 54 4f 5f 6e 75 6d 5f 6c 6f 63 6b 73 28 29 YPTO_num_locks()
a240: 3b 0a 20 20 20 20 69 66 20 28 6e 75 6d 5f 6c 6f ;. if (num_lo
a250: 63 6b 73 20 3e 20 43 52 59 50 54 4f 5f 4e 55 4d cks > CRYPTO_NUM
a260: 5f 4c 4f 43 4b 53 29 20 7b 0a 20 20 20 20 20 20 _LOCKS) {.
a270: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
a280: 74 28 69 6e 74 65 72 70 2c 20 22 63 72 79 70 74 t(interp, "crypt
a290: 6f 20 6e 75 6d 20 6c 6f 63 6b 73 20 73 69 7a 65 o num locks size
a2a0: 20 65 72 72 6f 72 22 2c 20 4e 55 4c 4c 29 3b 0a error", NULL);.
a2b0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 return TC
a2c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
a2d0: 20 20 20 20 43 52 59 50 54 4f 5f 73 65 74 5f 6c CRYPTO_set_l
a2e0: 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28 ocking_callback(
a2f0: 43 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b CryptoThreadLock
a300: 43 61 6c 6c 62 61 63 6b 29 3b 0a 20 20 20 20 43 Callback);. C
a310: 52 59 50 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c RYPTO_set_id_cal
a320: 6c 62 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65 lback(CryptoThre
a330: 61 64 49 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 23 adIdCallback);.#
a340: 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20 28 53 endif.. if (S
a350: 53 4c 5f 6c 69 62 72 61 72 79 5f 69 6e 69 74 28 SL_library_init(
a360: 29 20 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f 41 ) != 1) {..Tcl_A
a370: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
a380: 72 70 2c 20 22 63 6f 75 6c 64 20 6e 6f 74 20 69 rp, "could not i
a390: 6e 69 74 69 61 6c 69 7a 65 20 53 53 4c 20 6c 69 nitialize SSL li
a3a0: 62 72 61 72 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 brary", NULL);..
a3b0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
a3c0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f ;. }. SSL_
a3d0: 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 72 69 6e load_error_strin
a3e0: 67 73 28 29 3b 0a 20 20 20 20 45 52 52 5f 6c 6f gs();. ERR_lo
a3f0: 61 64 5f 63 72 79 70 74 6f 5f 73 74 72 69 6e 67 ad_crypto_string
a400: 73 28 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 s();.. /*.
a410: 20 20 2a 20 53 65 65 64 20 74 68 65 20 72 61 6e * Seed the ran
a420: 64 6f 6d 20 6e 75 6d 62 65 72 20 67 65 6e 65 72 dom number gener
a430: 61 74 6f 72 20 69 6e 20 74 68 65 20 53 53 4c 20 ator in the SSL
a440: 6c 69 62 72 61 72 79 2c 0a 20 20 20 20 20 2a 20 library,. *
a450: 75 73 69 6e 67 20 74 68 65 20 64 6f 2f 77 68 69 using the do/whi
a460: 6c 65 20 63 6f 6e 73 74 72 75 63 74 20 62 65 63 le construct bec
a470: 61 75 73 65 20 6f 66 20 74 68 65 20 62 75 67 20 ause of the bug
a480: 6e 6f 74 65 20 69 6e 20 74 68 65 0a 20 20 20 20 note in the.
a490: 20 2a 20 4f 70 65 6e 53 53 4c 20 46 41 51 20 61 * OpenSSL FAQ a
a4a0: 74 20 68 74 74 70 3a 2f 2f 77 77 77 2e 6f 70 65 t http://www.ope
a4b0: 6e 73 73 6c 2e 6f 72 67 2f 73 75 70 70 6f 72 74 nssl.org/support
a4c0: 2f 66 61 71 2e 68 74 6d 6c 23 55 53 45 52 31 0a /faq.html#USER1.
a4d0: 20 20 20 20 20 2a 0a 20 20 20 20 20 2a 20 54 68 *. * Th
a4e0: 65 20 63 72 75 78 20 6f 66 20 74 68 65 20 70 72 e crux of the pr
a4f0: 6f 62 6c 65 6d 20 69 73 20 74 68 61 74 20 53 6f oblem is that So
a500: 6c 61 72 69 73 20 37 20 64 6f 65 73 20 6e 6f 74 laris 7 does not
a510: 20 68 61 76 65 20 61 20 0a 20 20 20 20 20 2a 20 have a . *
a520: 2f 64 65 76 2f 72 61 6e 64 6f 6d 20 6f 72 20 2f /dev/random or /
a530: 64 65 76 2f 75 72 61 6e 64 6f 6d 20 64 65 76 69 dev/urandom devi
a540: 63 65 20 73 6f 20 69 74 20 63 61 6e 6e 6f 74 20 ce so it cannot
a550: 67 61 74 68 65 72 20 65 6e 6f 75 67 68 0a 20 20 gather enough.
a560: 20 20 20 2a 20 65 6e 74 72 6f 70 79 20 66 72 6f * entropy fro
a570: 6d 20 74 68 65 20 52 41 4e 44 5f 73 65 65 64 28 m the RAND_seed(
a580: 29 20 77 68 65 6e 20 54 4c 53 20 69 6e 69 74 69 ) when TLS initi
a590: 61 6c 69 7a 65 73 20 61 6e 64 20 72 65 66 75 73 alizes and refus
a5a0: 65 73 0a 20 20 20 20 20 2a 20 74 6f 20 67 6f 20 es. * to go
a5b0: 66 75 72 74 68 65 72 2e 20 45 61 72 6c 69 65 72 further. Earlier
a5c0: 20 76 65 72 73 69 6f 6e 73 20 6f 66 20 4f 70 65 versions of Ope
a5d0: 6e 53 53 4c 20 63 61 72 72 69 65 64 20 6f 6e 20 nSSL carried on
a5e0: 72 65 67 61 72 64 6c 65 73 73 2e 0a 20 20 20 20 regardless..
a5f0: 20 2a 2f 0a 20 20 20 20 73 72 61 6e 64 28 28 75 */. srand((u
a600: 6e 73 69 67 6e 65 64 20 69 6e 74 29 20 74 69 6d nsigned int) tim
a610: 65 28 28 74 69 6d 65 5f 74 20 2a 29 20 4e 55 4c e((time_t *) NUL
a620: 4c 29 29 3b 0a 20 20 20 20 64 6f 20 7b 0a 09 66 L));. do {..f
a630: 6f 72 20 28 69 20 3d 20 30 3b 20 69 20 3c 20 31 or (i = 0; i < 1
a640: 36 3b 20 69 2b 2b 29 20 7b 0a 09 20 20 20 20 72 6; i++) {.. r
a650: 6e 64 5f 73 65 65 64 5b 69 5d 20 3d 20 31 20 2b nd_seed[i] = 1 +
a660: 20 28 63 68 61 72 29 20 28 32 35 35 2e 30 20 2a (char) (255.0 *
a670: 20 72 61 6e 64 28 29 2f 28 52 41 4e 44 5f 4d 41 rand()/(RAND_MA
a680: 58 2b 31 2e 30 29 29 3b 0a 09 7d 0a 09 52 41 4e X+1.0));..}..RAN
a690: 44 5f 73 65 65 64 28 72 6e 64 5f 73 65 65 64 2c D_seed(rnd_seed,
a6a0: 20 73 69 7a 65 6f 66 28 72 6e 64 5f 73 65 65 64 sizeof(rnd_seed
a6b0: 29 29 3b 0a 20 20 20 20 7d 20 77 68 69 6c 65 20 ));. } while
a6c0: 28 52 41 4e 44 5f 73 74 61 74 75 73 28 29 20 21 (RAND_status() !
a6d0: 3d 20 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 = 1);.. Tcl_C
a6e0: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
a6f0: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 interp, "tls::ci
a700: 70 68 65 72 73 22 2c 20 43 69 70 68 65 72 73 4f phers", CiphersO
a710: 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 bjCmd,.. (Cli
a720: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
a730: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
a740: 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 ) NULL);.. Tc
a750: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
a760: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
a770: 3a 68 61 6e 64 73 68 61 6b 65 22 2c 20 48 61 6e :handshake", Han
a780: 64 73 68 61 6b 65 4f 62 6a 43 6d 64 2c 0a 09 20 dshakeObjCmd,..
a790: 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 (ClientData)
a7a0: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 0, (Tcl_CmdDelet
a7b0: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
a7c0: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
a7d0: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
a7e0: 2c 20 22 74 6c 73 3a 3a 69 6d 70 6f 72 74 22 2c , "tls::import",
a7f0: 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c 0a 09 ImportObjCmd,..
a800: 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 (ClientData)
a810: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
a820: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
a830: 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 .. Tcl_Create
a840: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
a850: 70 2c 20 22 74 6c 73 3a 3a 75 6e 69 6d 70 6f 72 p, "tls::unimpor
a860: 74 22 2c 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 t", UnimportObjC
a870: 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e 74 md,.. (Client
a880: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
a890: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
a8a0: 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 43 ULL);.. Tcl_C
a8b0: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
a8c0: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 74 interp, "tls::st
a8d0: 61 74 75 73 22 2c 20 53 74 61 74 75 73 4f 62 6a atus", StatusObj
a8e0: 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e Cmd,.. (Clien
a8f0: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
a900: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
a910: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f NULL);.. Tcl_
a920: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
a930: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 76 (interp, "tls::v
a940: 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f 6e ersion", Version
a950: 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c ObjCmd,.. (Cl
a960: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
a970: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
a980: 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 *) NULL);.. T
a990: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
a9a0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
a9b0: 3a 3a 6d 69 73 63 22 2c 20 4d 69 73 63 4f 62 6a ::misc", MiscObj
a9c0: 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e Cmd,.. (Clien
a9d0: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
a9e0: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
a9f0: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 72 65 74 75 NULL);.. retu
aa00: 72 6e 20 54 63 6c 5f 50 6b 67 50 72 6f 76 69 64 rn Tcl_PkgProvid
aa10: 65 28 69 6e 74 65 72 70 2c 20 50 41 43 4b 41 47 e(interp, PACKAG
aa20: 45 5f 4e 41 4d 45 2c 20 50 41 43 4b 41 47 45 5f E_NAME, PACKAGE_
aa30: 56 45 52 53 49 4f 4e 29 3b 0a 7d 0a 0c 0a 2f 2a VERSION);.}.../*
aa40: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
aa50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aa70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
aa80: 09 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 2d 2d .Tls_SafeInit --
aa90: 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *.---------
aaa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
aac0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e -------*. *.Stan
aad0: 64 61 72 64 20 70 72 6f 63 65 64 75 72 65 20 72 dard procedure r
aae0: 65 71 75 69 72 65 64 20 62 79 20 27 6c 6f 61 64 equired by 'load
aaf0: 27 2e 20 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a '. . *.Initializ
ab00: 65 73 20 74 68 69 73 20 65 78 74 65 6e 73 69 6f es this extensio
ab10: 6e 20 66 6f 72 20 61 20 73 61 66 65 20 69 6e 74 n for a safe int
ab20: 65 72 70 72 65 74 65 72 2e 0a 20 2a 09 2d 2d 2d erpreter.. *.---
ab30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
ab50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 -------------*.
ab60: 2a 0a 20 2a 09 53 69 64 65 65 66 66 65 63 74 73 *. *.Sideeffects
ab70: 3a 0a 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73 :. *..As of 'Tls
ab80: 5f 49 6e 69 74 27 0a 20 2a 0a 20 2a 09 52 65 73 _Init'. *. *.Res
ab90: 75 6c 74 3a 0a 20 2a 09 09 41 20 73 74 61 6e 64 ult:. *..A stand
aba0: 61 72 64 20 54 63 6c 20 65 72 72 6f 72 20 63 6f ard Tcl error co
abb0: 64 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d de.. *. *-------
abc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
abd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
abe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a ---------------*
abf0: 0a 20 2a 2f 0a 0a 69 6e 74 0a 54 6c 73 5f 53 61 . */..int.Tls_Sa
ac00: 66 65 49 6e 69 74 20 28 54 63 6c 5f 49 6e 74 65 feInit (Tcl_Inte
ac10: 72 70 2a 20 69 6e 74 65 72 70 29 0a 7b 0a 20 20 rp* interp).{.
ac20: 20 20 72 65 74 75 72 6e 20 54 6c 73 5f 49 6e 69 return Tls_Ini
ac30: 74 20 28 69 6e 74 65 72 70 29 3b 0a 7d 0a t (interp);.}.