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 33 20 32 30 31 32 2f s.c,v 1.33 2012/
0120: 30 37 2f 30 39 20 32 33 3a 32 38 3a 30 32 20 61 07/09 23:28:02 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: 73 74 61 74 69 63 20 43 4f 4e 53 54 38 34 20 63 static CONST84 c
8300: 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 73 20 5b 5d har *commands []
8310: 20 3d 20 7b 20 22 72 65 71 22 2c 20 4e 55 4c 4c = { "req", NULL
8320: 20 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 63 6f 6d };. enum com
8330: 6d 61 6e 64 20 7b 20 43 5f 52 45 51 2c 20 43 5f mand { C_REQ, C_
8340: 44 55 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 6e 74 DUMMY };. int
8350: 20 63 6d 64 3b 0a 0a 20 20 20 20 69 66 20 28 6f cmd;.. if (o
8360: 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f bjc < 2) {..Tcl_
8370: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
8380: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 73 erp, 1, objv, "s
8390: 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 72 67 73 3f ubcommand ?args?
83a0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
83b0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
83c0: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 if (Tcl_GetInde
83d0: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c xFromObj(interp,
83e0: 20 6f 62 6a 76 5b 31 5d 2c 20 63 6f 6d 6d 61 6e objv[1], comman
83f0: 64 73 2c 0a 09 20 20 20 20 22 63 6f 6d 6d 61 6e ds,.. "comman
8400: 64 22 2c 20 30 2c 26 63 6d 64 29 20 21 3d 20 54 d", 0,&cmd) != T
8410: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e CL_OK) {..return
8420: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
8430: 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 }.. switch ((
8440: 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 63 6d enum command) cm
8450: 64 29 20 7b 0a 09 63 61 73 65 20 43 5f 52 45 51 d) {..case C_REQ
8460: 3a 20 7b 0a 09 20 20 20 20 45 56 50 5f 50 4b 45 : {.. EVP_PKE
8470: 59 20 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a 09 20 Y *pkey=NULL;..
8480: 20 20 20 58 35 30 39 20 2a 63 65 72 74 3d 4e 55 X509 *cert=NU
8490: 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 5f 4e 41 LL;.. X509_NA
84a0: 4d 45 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b 0a 09 ME *name=NULL;..
84b0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 Tcl_Obj **li
84c0: 73 74 76 3b 0a 09 20 20 20 20 69 6e 74 20 6c 69 stv;.. int li
84d0: 73 74 63 2c 69 3b 0a 0a 09 20 20 20 20 42 49 4f stc,i;... BIO
84e0: 20 2a 6f 75 74 3d 4e 55 4c 4c 3b 0a 0a 09 20 20 *out=NULL;...
84f0: 20 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 2c 2a char *k_C="",*
8500: 6b 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 22 2c k_ST="",*k_L="",
8510: 2a 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d 22 22 *k_O="",*k_OU=""
8520: 2c 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 6d 61 ,*k_CN="",*k_Ema
8530: 69 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 61 72 il="";.. char
8540: 20 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f 75 74 *keyout,*pemout
8550: 2c 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e 74 20 ,*str;.. int
8560: 6b 65 79 73 69 7a 65 2c 73 65 72 69 61 6c 3d 30 keysize,serial=0
8570: 2c 64 61 79 73 3d 33 36 35 3b 0a 09 20 20 20 20 ,days=365;..
8580: 0a 09 20 20 20 20 69 66 20 28 28 6f 62 6a 63 3c .. if ((objc<
8590: 35 29 20 7c 7c 20 28 6f 62 6a 63 3e 36 29 29 20 5) || (objc>6))
85a0: 7b 0a 09 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {...Tcl_WrongNum
85b0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 Args(interp, 2,
85c0: 6f 62 6a 76 2c 20 22 6b 65 79 73 69 7a 65 20 6b objv, "keysize k
85d0: 65 79 66 69 6c 65 20 63 65 72 74 66 69 6c 65 20 eyfile certfile
85e0: 3f 69 6e 66 6f 3f 22 29 3b 0a 09 09 72 65 74 75 ?info?");...retu
85f0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 rn TCL_ERROR;..
8600: 20 20 20 7d 0a 0a 09 20 20 20 20 69 66 20 28 54 }... if (T
8610: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
8620: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
8630: 2c 20 26 6b 65 79 73 69 7a 65 29 20 21 3d 20 54 , &keysize) != T
8640: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 72 65 74 75 72 CL_OK) {...retur
8650: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 n TCL_ERROR;..
8660: 20 20 7d 0a 09 20 20 20 20 6b 65 79 6f 75 74 3d }.. keyout=
8670: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
8680: 6a 76 5b 33 5d 29 3b 0a 09 20 20 20 20 70 65 6d jv[3]);.. pem
8690: 6f 75 74 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e out=Tcl_GetStrin
86a0: 67 28 6f 62 6a 76 5b 34 5d 29 3b 0a 0a 09 20 20 g(objv[4]);...
86b0: 20 20 69 66 20 28 6f 62 6a 63 3e 3d 36 29 20 7b if (objc>=6) {
86c0: 0a 09 09 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f ...if (Tcl_ListO
86d0: 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e bjGetElements(in
86e0: 74 65 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c 0a 09 terp, objv[5],..
86f0: 09 09 26 6c 69 73 74 63 2c 20 26 6c 69 73 74 76 ..&listc, &listv
8700: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
8710: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
8720: 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 69 66 ERROR;...}....if
8730: 20 28 28 6c 69 73 74 63 25 32 29 20 21 3d 20 30 ((listc%2) != 0
8740: 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 ) {... Tcl_Se
8750: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
8760: 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6c 69 73 74 Information list
8770: 20 6d 75 73 74 20 68 61 76 65 20 65 76 65 6e 20 must have even
8780: 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 number of argume
8790: 6e 74 73 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 nts",NULL);...
87a0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
87b0: 4f 52 3b 0a 09 09 7d 0a 09 09 66 6f 72 20 28 69 OR;...}...for (i
87c0: 3d 30 3b 20 69 3c 6c 69 73 74 63 3b 20 69 2b 3d =0; i<listc; i+=
87d0: 32 29 20 7b 0a 09 09 20 20 20 20 73 74 72 3d 54 2) {... str=T
87e0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 cl_GetString(lis
87f0: 74 76 5b 69 5d 29 3b 0a 09 09 20 20 20 20 69 66 tv[i]);... if
8800: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 64 61 (strcmp(str,"da
8810: 79 73 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 ys")==0) {....if
8820: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d (Tcl_GetIntFrom
8830: 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 Obj(interp,listv
8840: 5b 69 2b 31 5d 2c 26 64 61 79 73 29 21 3d 54 43 [i+1],&days)!=TC
8850: 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 74 L_OK).... ret
8860: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
8870: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
8880: 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 72 69 strcmp(str,"seri
8890: 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 al")==0) {....if
88a0: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d (Tcl_GetIntFrom
88b0: 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 Obj(interp,listv
88c0: 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 21 3d [i+1],&serial)!=
88d0: 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 TCL_OK).... r
88e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
88f0: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
8900: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 (strcmp(str,"se
8910: 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 rial")==0) {....
8920: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
8930: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 omObj(interp,lis
8940: 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 tv[i+1],&serial)
8950: 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 !=TCL_OK)....
8960: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
8970: 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 R;... } else
8980: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 if (strcmp(str,"
8990: 43 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 C")==0) {....k_C
89a0: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
89b0: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 istv[i+1]);...
89c0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
89d0: 63 6d 70 28 73 74 72 2c 22 53 54 22 29 3d 3d 30 cmp(str,"ST")==0
89e0: 29 20 7b 0a 09 09 09 6b 5f 53 54 3d 54 63 6c 5f ) {....k_ST=Tcl_
89f0: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b GetString(listv[
8a00: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 i+1]);... } e
8a10: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 lse if (strcmp(s
8a20: 74 72 2c 22 4c 22 29 3d 3d 30 29 20 7b 0a 09 09 tr,"L")==0) {...
8a30: 09 6b 5f 4c 3d 54 63 6c 5f 47 65 74 53 74 72 69 .k_L=Tcl_GetStri
8a40: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
8a50: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
8a60: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f 22 29 (strcmp(str,"O")
8a70: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 3d 54 63 ==0) {....k_O=Tc
8a80: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
8a90: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
8aa0: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
8ab0: 28 73 74 72 2c 22 4f 55 22 29 3d 3d 30 29 20 7b (str,"OU")==0) {
8ac0: 0a 09 09 09 6b 5f 4f 55 3d 54 63 6c 5f 47 65 74 ....k_OU=Tcl_Get
8ad0: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 String(listv[i+1
8ae0: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 ]);... } else
8af0: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
8b00: 22 43 4e 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b "CN")==0) {....k
8b10: 5f 43 4e 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e _CN=Tcl_GetStrin
8b20: 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 g(listv[i+1]);..
8b30: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
8b40: 73 74 72 63 6d 70 28 73 74 72 2c 22 45 6d 61 69 strcmp(str,"Emai
8b50: 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 45 l")==0) {....k_E
8b60: 6d 61 69 6c 3d 54 63 6c 5f 47 65 74 53 74 72 69 mail=Tcl_GetStri
8b70: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a ng(listv[i+1]);.
8b80: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
8b90: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 ..Tcl_SetResult(
8ba0: 69 6e 74 65 72 70 2c 22 55 6e 6b 6e 6f 77 6e 20 interp,"Unknown
8bb0: 70 61 72 61 6d 65 74 65 72 22 2c 4e 55 4c 4c 29 parameter",NULL)
8bc0: 3b 0a 09 09 09 72 65 74 75 72 6e 20 54 43 4c 5f ;....return TCL_
8bd0: 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 0a 09 ERROR;... }..
8be0: 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69 .}.. }.. i
8bf0: 66 20 28 28 70 6b 65 79 20 3d 20 45 56 50 5f 50 f ((pkey = EVP_P
8c00: 4b 45 59 5f 6e 65 77 28 29 29 20 21 3d 20 4e 55 KEY_new()) != NU
8c10: 4c 4c 29 20 7b 0a 09 09 69 66 20 28 21 45 56 50 LL) {...if (!EVP
8c20: 5f 50 4b 45 59 5f 61 73 73 69 67 6e 5f 52 53 41 _PKEY_assign_RSA
8c30: 28 70 6b 65 79 2c 0a 09 09 09 52 53 41 5f 67 65 (pkey,....RSA_ge
8c40: 6e 65 72 61 74 65 5f 6b 65 79 28 6b 65 79 73 69 nerate_key(keysi
8c50: 7a 65 2c 20 30 78 31 30 30 30 31 2c 20 4e 55 4c ze, 0x10001, NUL
8c60: 4c 2c 20 4e 55 4c 4c 29 29 29 20 7b 0a 09 09 20 L, NULL))) {...
8c70: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 Tcl_SetResult
8c80: 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67 (interp,"Error g
8c90: 65 6e 65 72 61 74 69 6e 67 20 70 72 69 76 61 74 enerating privat
8ca0: 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 e key",NULL);...
8cb0: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 EVP_PKEY_fre
8cc0: 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 72 e(pkey);... r
8cd0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
8ce0: 0a 09 09 7d 0a 09 09 6f 75 74 3d 42 49 4f 5f 6e ...}...out=BIO_n
8cf0: 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29 ew(BIO_s_file())
8d00: 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 69 ;...BIO_write_fi
8d10: 6c 65 6e 61 6d 65 28 6f 75 74 2c 6b 65 79 6f 75 lename(out,keyou
8d20: 74 29 3b 0a 09 09 50 45 4d 5f 77 72 69 74 65 5f t);...PEM_write_
8d30: 62 69 6f 5f 50 72 69 76 61 74 65 4b 65 79 28 6f bio_PrivateKey(o
8d40: 75 74 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c ut,pkey,NULL,NUL
8d50: 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a L,0,NULL,NULL);.
8d60: 09 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f ..BIO_free_all(o
8d70: 75 74 29 3b 0a 0a 09 09 69 66 20 28 28 63 65 72 ut);....if ((cer
8d80: 74 3d 58 35 30 39 5f 6e 65 77 28 29 29 3d 3d 4e t=X509_new())==N
8d90: 55 4c 4c 29 20 7b 0a 09 09 20 20 20 20 54 63 6c ULL) {... Tcl
8da0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
8db0: 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74 p,"Error generat
8dc0: 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 20 ing certificate
8dd0: 72 65 71 75 65 73 74 22 2c 4e 55 4c 4c 29 3b 0a request",NULL);.
8de0: 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 .. EVP_PKEY_f
8df0: 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 ree(pkey);...
8e00: 20 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f return(TCL_ERRO
8e10: 52 29 3b 0a 09 09 7d 0a 0a 09 09 58 35 30 39 5f R);...}....X509_
8e20: 73 65 74 5f 76 65 72 73 69 6f 6e 28 63 65 72 74 set_version(cert
8e30: 2c 32 29 3b 0a 09 09 41 53 4e 31 5f 49 4e 54 45 ,2);...ASN1_INTE
8e40: 47 45 52 5f 73 65 74 28 58 35 30 39 5f 67 65 74 GER_set(X509_get
8e50: 5f 73 65 72 69 61 6c 4e 75 6d 62 65 72 28 63 65 _serialNumber(ce
8e60: 72 74 29 2c 73 65 72 69 61 6c 29 3b 0a 09 09 58 rt),serial);...X
8e70: 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 509_gmtime_adj(X
8e80: 35 30 39 5f 67 65 74 5f 6e 6f 74 42 65 66 6f 72 509_get_notBefor
8e90: 65 28 63 65 72 74 29 2c 30 29 3b 0a 09 09 58 35 e(cert),0);...X5
8ea0: 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 09_gmtime_adj(X5
8eb0: 30 39 5f 67 65 74 5f 6e 6f 74 41 66 74 65 72 28 09_get_notAfter(
8ec0: 63 65 72 74 29 2c 28 6c 6f 6e 67 29 36 30 2a 36 cert),(long)60*6
8ed0: 30 2a 32 34 2a 64 61 79 73 29 3b 0a 09 09 58 35 0*24*days);...X5
8ee0: 30 39 5f 73 65 74 5f 70 75 62 6b 65 79 28 63 65 09_set_pubkey(ce
8ef0: 72 74 2c 70 6b 65 79 29 3b 0a 09 09 0a 09 09 6e rt,pkey);......n
8f00: 61 6d 65 3d 58 35 30 39 5f 67 65 74 5f 73 75 62 ame=X509_get_sub
8f10: 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 29 3b ject_name(cert);
8f20: 0a 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 ....X509_NAME_ad
8f30: 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e d_entry_by_txt(n
8f40: 61 6d 65 2c 22 43 22 2c 20 4d 42 53 54 52 49 4e ame,"C", MBSTRIN
8f50: 47 5f 41 53 43 2c 20 6b 5f 43 2c 20 2d 31 2c 20 G_ASC, k_C, -1,
8f60: 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e -1, 0);...X509_N
8f70: 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 AME_add_entry_by
8f80: 5f 74 78 74 28 6e 61 6d 65 2c 22 53 54 22 2c 20 _txt(name,"ST",
8f90: 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f MBSTRING_ASC, k_
8fa0: 53 54 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a ST, -1, -1, 0);.
8fb0: 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f ..X509_NAME_add_
8fc0: 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d entry_by_txt(nam
8fd0: 65 2c 22 4c 22 2c 20 4d 42 53 54 52 49 4e 47 5f e,"L", MBSTRING_
8fe0: 41 53 43 2c 20 6b 5f 4c 2c 20 2d 31 2c 20 2d 31 ASC, k_L, -1, -1
8ff0: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d , 0);...X509_NAM
9000: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 E_add_entry_by_t
9010: 78 74 28 6e 61 6d 65 2c 22 4f 22 2c 20 4d 42 53 xt(name,"O", MBS
9020: 54 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 4f 2c 20 TRING_ASC, k_O,
9030: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 -1, -1, 0);...X5
9040: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 09_NAME_add_entr
9050: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4f y_by_txt(name,"O
9060: 55 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 U", MBSTRING_ASC
9070: 2c 20 6b 5f 4f 55 2c 20 2d 31 2c 20 2d 31 2c 20 , k_OU, -1, -1,
9080: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 0);...X509_NAME_
9090: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 add_entry_by_txt
90a0: 28 6e 61 6d 65 2c 22 43 4e 22 2c 20 4d 42 53 54 (name,"CN", MBST
90b0: 52 49 4e 47 5f 41 53 43 2c 20 6b 5f 43 4e 2c 20 RING_ASC, k_CN,
90c0: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 -1, -1, 0);...X5
90d0: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 09_NAME_add_entr
90e0: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 45 y_by_txt(name,"E
90f0: 6d 61 69 6c 22 2c 20 4d 42 53 54 52 49 4e 47 5f mail", MBSTRING_
9100: 41 53 43 2c 20 6b 5f 45 6d 61 69 6c 2c 20 2d 31 ASC, k_Email, -1
9110: 2c 20 2d 31 2c 20 30 29 3b 0a 0a 09 09 58 35 30 , -1, 0);....X50
9120: 39 5f 73 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 9_set_subject_na
9130: 6d 65 28 63 65 72 74 2c 6e 61 6d 65 29 3b 0a 0a me(cert,name);..
9140: 09 09 69 66 20 28 21 58 35 30 39 5f 73 69 67 6e ..if (!X509_sign
9150: 28 63 65 72 74 2c 70 6b 65 79 2c 45 56 50 5f 6d (cert,pkey,EVP_m
9160: 64 35 28 29 29 29 20 7b 0a 09 09 20 20 20 20 58 d5())) {... X
9170: 35 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 509_free(cert);.
9180: 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 .. EVP_PKEY_f
9190: 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 ree(pkey);...
91a0: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
91b0: 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 73 69 67 nterp,"Error sig
91c0: 6e 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 ning certificate
91d0: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72 ",NULL);... r
91e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
91f0: 0a 09 09 7d 0a 0a 09 09 6f 75 74 3d 42 49 4f 5f ...}....out=BIO_
9200: 6e 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 new(BIO_s_file()
9210: 29 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 );...BIO_write_f
9220: 69 6c 65 6e 61 6d 65 28 6f 75 74 2c 70 65 6d 6f ilename(out,pemo
9230: 75 74 29 3b 0a 0a 09 09 50 45 4d 5f 77 72 69 74 ut);....PEM_writ
9240: 65 5f 62 69 6f 5f 58 35 30 39 28 6f 75 74 2c 63 e_bio_X509(out,c
9250: 65 72 74 29 3b 0a 09 09 42 49 4f 5f 66 72 65 65 ert);...BIO_free
9260: 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 58 35 _all(out);....X5
9270: 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 09 09_free(cert);..
9280: 09 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 .EVP_PKEY_free(p
9290: 6b 65 79 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 key);.. } els
92a0: 65 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 e {...Tcl_SetRes
92b0: 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f ult(interp,"Erro
92c0: 72 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72 69 r generating pri
92d0: 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b vate key",NULL);
92e0: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ...return TCL_ER
92f0: 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 ROR;.. }..}..
9300: 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 break;. defau
9310: 6c 74 3a 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 lt:..break;.
9320: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c }. return TCL
9330: 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d _OK;.}.../*. *--
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 2d 2d 2d 2d 2d 2d ----------------
9380: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 46 72 65 65 -. *. * Tls_Free
9390: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
93a0: 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 rocedure cleans
93b0: 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f up when a SSL so
93c0: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e cket based chann
93d0: 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 el. *.is closed
93e0: 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 and its referenc
93f0: 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 e count falls be
9400: 6c 6f 77 20 31 0a 20 2a 0a 20 2a 20 52 65 73 75 low 1. *. * Resu
9410: 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a lts:. *.none. *.
9420: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
9430: 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 68 . *.Frees all th
9440: 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d e state. *. *---
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 2d 2d 2d 2d 2d 2d 2d ----------------
9490: 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 46 72 . */.void.Tls_Fr
94a0: 65 65 28 20 63 68 61 72 20 2a 62 6c 6f 63 6b 50 ee( char *blockP
94b0: 74 72 20 29 0a 7b 0a 20 20 20 20 53 74 61 74 65 tr ).{. State
94c0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
94d0: 61 74 65 20 2a 29 62 6c 6f 63 6b 50 74 72 3b 0a ate *)blockPtr;.
94e0: 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e 28 73 . Tls_Clean(s
94f0: 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 63 6b tatePtr);. ck
9500: 66 72 65 65 28 62 6c 6f 63 6b 50 74 72 29 3b 0a free(blockPtr);.
9510: 7d 0a 0c 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
9560: 20 2a 20 54 6c 73 5f 43 6c 65 61 6e 20 2d 2d 0a * Tls_Clean --.
9570: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
9580: 64 75 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77 dure cleans up w
9590: 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 hen a SSL socket
95a0: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 based channel.
95b0: 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 *.is closed and
95c0: 69 74 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f its reference co
95d0: 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 unt falls below
95e0: 31 2e 20 20 54 68 69 73 20 73 68 6f 75 6c 64 0a 1. This should.
95f0: 20 2a 09 62 65 20 63 61 6c 6c 65 64 20 73 79 6e *.be called syn
9600: 63 68 72 6f 6e 6f 75 73 6c 79 20 62 79 20 74 68 chronously by th
9610: 65 20 43 6c 6f 73 65 50 72 6f 63 2c 20 6e 6f 74 e CloseProc, not
9620: 20 69 6e 20 74 68 65 0a 20 2a 09 45 76 65 6e 74 in the. *.Event
9630: 75 61 6c 6c 79 46 72 65 65 20 63 61 6c 6c 62 61 uallyFree callba
9640: 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ck.. *. * Result
9650: 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a s:. *.none. *. *
9660: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
9670: 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 68 65 20 *.Frees all the
9680: 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d state. *. *-----
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 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
96d0: 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 43 6c 65 61 */.void.Tls_Clea
96e0: 6e 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 n(State *statePt
96f0: 72 29 0a 7b 0a 20 20 20 20 2f 2a 0a 20 20 20 20 r).{. /*.
9700: 20 2a 20 77 65 27 72 65 20 61 73 73 75 6d 69 6e * we're assumin
9710: 67 20 68 65 72 65 20 74 68 61 74 20 77 65 27 72 g here that we'r
9720: 65 20 73 69 6e 67 6c 65 2d 74 68 72 65 61 64 65 e single-threade
9730: 64 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 69 d. */.. i
9740: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d f (statePtr->tim
9750: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 er != (Tcl_Timer
9760: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 Token) NULL) {..
9770: 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 Tcl_DeleteTimerH
9780: 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d andler(statePtr-
9790: 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 >timer);..stateP
97a0: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 4e 55 4c 4c tr->timer = NULL
97b0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
97c0: 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 (statePtr->bio)
97d0: 7b 0a 09 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 {../* This will
97e0: 63 61 6c 6c 20 53 53 4c 5f 73 68 75 74 64 6f 77 call SSL_shutdow
97f0: 6e 2e 20 42 75 67 20 31 34 31 34 30 34 35 20 2a n. Bug 1414045 *
9800: 2f 0a 09 64 70 72 69 6e 74 66 28 73 74 64 65 72 /..dprintf(stder
9810: 72 2c 20 22 42 49 4f 5f 66 72 65 65 5f 61 6c 6c r, "BIO_free_all
9820: 28 25 70 29 5c 6e 22 2c 20 73 74 61 74 65 50 74 (%p)\n", statePt
9830: 72 2d 3e 62 69 6f 29 3b 0a 09 42 49 4f 5f 66 72 r->bio);..BIO_fr
9840: 65 65 5f 61 6c 6c 28 73 74 61 74 65 50 74 72 2d ee_all(statePtr-
9850: 3e 62 69 6f 29 3b 0a 09 73 74 61 74 65 50 74 72 >bio);..statePtr
9860: 2d 3e 62 69 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ->bio = NULL;.
9870: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 }. if (stat
9880: 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 64 70 ePtr->ssl) {..dp
9890: 72 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 53 rintf(stderr, "S
98a0: 53 4c 5f 66 72 65 65 28 25 70 29 5c 6e 22 2c 20 SL_free(%p)\n",
98b0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
98c0: 09 53 53 4c 5f 66 72 65 65 28 73 74 61 74 65 50 .SSL_free(stateP
98d0: 74 72 2d 3e 73 73 6c 29 3b 0a 09 73 74 61 74 65 tr->ssl);..state
98e0: 50 74 72 2d 3e 73 73 6c 20 3d 20 4e 55 4c 4c 3b Ptr->ssl = NULL;
98f0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 . }. if (s
9900: 74 61 74 65 50 74 72 2d 3e 63 74 78 29 20 7b 0a tatePtr->ctx) {.
9910: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 73 74 .SSL_CTX_free(st
9920: 61 74 65 50 74 72 2d 3e 63 74 78 29 3b 0a 09 73 atePtr->ctx);..s
9930: 74 61 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e tatePtr->ctx = N
9940: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 ULL;. }. i
9950: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c f (statePtr->cal
9960: 6c 62 61 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 65 lback) {..Tcl_De
9970: 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 crRefCount(state
9980: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a Ptr->callback);.
9990: 09 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 .statePtr->callb
99a0: 61 63 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ack = NULL;.
99b0: 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 }. if (stateP
99c0: 74 72 2d 3e 70 61 73 73 77 6f 72 64 29 20 7b 0a tr->password) {.
99d0: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e .Tcl_DecrRefCoun
99e0: 74 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 t(statePtr->pass
99f0: 77 6f 72 64 29 3b 0a 09 73 74 61 74 65 50 74 72 word);..statePtr
9a00: 2d 3e 70 61 73 73 77 6f 72 64 20 3d 20 4e 55 4c ->password = NUL
9a10: 4c 3b 0a 20 20 20 20 7d 0a 7d 0a 0c 0a 2f 2a 0a L;. }.}.../*.
9a20: 20 2a 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 2d 2d ----------------
9a60: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f -----. *. * Tls_
9a70: 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Init --. *. *.Th
9a80: 69 73 20 69 73 20 61 20 70 61 63 6b 61 67 65 20 is is a package
9a90: 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 70 initialization p
9aa0: 72 6f 63 65 64 75 72 65 2c 20 77 68 69 63 68 20 rocedure, which
9ab0: 69 73 20 63 61 6c 6c 65 64 0a 20 2a 09 62 79 20 is called. *.by
9ac0: 54 63 6c 20 77 68 65 6e 20 74 68 69 73 20 70 61 Tcl when this pa
9ad0: 63 6b 61 67 65 20 69 73 20 74 6f 20 62 65 20 61 ckage is to be a
9ae0: 64 64 65 64 20 74 6f 20 61 6e 20 69 6e 74 65 72 dded to an inter
9af0: 70 72 65 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 preter.. *. * Re
9b00: 73 75 6c 74 73 3a 20 20 53 73 6c 20 63 6f 6e 66 sults: Ssl conf
9b10: 69 67 75 72 65 64 20 61 6e 64 20 6c 6f 61 64 65 igured and loade
9b20: 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 d. *. * Side eff
9b30: 65 63 74 73 3a 0a 20 2a 09 20 63 72 65 61 74 65 ects:. *. create
9b40: 20 74 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64 the ssl command
9b50: 2c 20 69 6e 69 74 69 61 6c 69 73 65 20 73 73 6c , initialise ssl
9b60: 20 63 6f 6e 74 65 78 74 0a 20 2a 0a 20 2a 2d 2d context. *. *--
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 2d 2d 2d 2d 2d 2d ----------------
9bb0: 2d 0a 20 2a 2f 0a 0a 69 6e 74 0a 54 6c 73 5f 49 -. */..int.Tls_I
9bc0: 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nit(Tcl_Interp *
9bd0: 69 6e 74 65 72 70 29 09 09 2f 2a 20 49 6e 74 65 interp)../* Inte
9be0: 72 70 72 65 74 65 72 20 69 6e 20 77 68 69 63 68 rpreter in which
9bf0: 20 74 68 65 20 70 61 63 6b 61 67 65 20 69 73 0a the package is.
9c00: 09 09 09 09 09 20 2a 20 74 6f 20 62 65 20 6d 61 ..... * to be ma
9c10: 64 65 20 61 76 61 69 6c 61 62 6c 65 2e 20 2a 2f de available. */
9c20: 0a 7b 0a 20 20 20 20 69 6e 74 20 6d 61 6a 6f 72 .{. int major
9c30: 2c 20 6d 69 6e 6f 72 2c 20 70 61 74 63 68 6c 65 , minor, patchle
9c40: 76 65 6c 2c 20 72 65 6c 65 61 73 65 2c 20 69 3b vel, release, i;
9c50: 0a 20 20 20 20 63 68 61 72 20 72 6e 64 5f 73 65 . char rnd_se
9c60: 65 64 5b 31 36 5d 20 3d 20 22 47 72 7a 53 6c 70 ed[16] = "GrzSlp
9c70: 6c 4b 71 55 64 6e 6e 7a 50 21 22 3b 09 2f 2a 20 lKqUdnnzP!";./*
9c80: 31 36 20 62 79 74 65 73 20 2a 2f 0a 23 69 66 20 16 bytes */.#if
9c90: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
9ca0: 54 48 52 45 41 44 53 29 20 26 26 20 64 65 66 69 THREADS) && defi
9cb0: 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 ned(TCL_THREADS)
9cc0: 0a 20 20 20 20 73 69 7a 65 5f 74 20 6e 75 6d 5f . size_t num_
9cd0: 6c 6f 63 6b 73 3b 0a 23 65 6e 64 69 66 0a 0a 20 locks;.#endif..
9ce0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 54 68 65 /*. * The
9cf0: 20 6f 72 69 67 69 6e 61 6c 20 38 2e 32 2e 30 20 original 8.2.0
9d00: 73 74 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 20 stacked channel
9d10: 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 implementation (
9d20: 61 6e 64 20 74 68 65 20 70 61 74 63 68 0a 20 20 and the patch.
9d30: 20 20 20 2a 20 74 68 61 74 20 70 72 65 63 65 64 * that preced
9d40: 65 64 20 69 74 29 20 68 61 64 20 70 72 6f 62 6c ed it) had probl
9d50: 65 6d 73 20 77 69 74 68 20 73 63 61 6c 61 62 69 ems with scalabi
9d60: 6c 69 74 79 20 61 6e 64 20 72 6f 62 75 73 74 6e lity and robustn
9d70: 65 73 73 2e 0a 20 20 20 20 20 2a 20 54 68 65 73 ess.. * Thes
9d80: 65 20 77 65 72 65 20 61 64 64 72 65 73 73 20 69 e were address i
9d90: 6e 20 38 2e 33 2e 32 20 2f 20 38 2e 34 61 32 2c n 8.3.2 / 8.4a2,
9da0: 20 73 6f 20 77 65 20 6e 6f 77 20 72 65 71 75 69 so we now requi
9db0: 72 65 20 74 68 61 74 20 61 73 20 61 0a 20 20 20 re that as a.
9dc0: 20 20 2a 20 6d 69 6e 69 6d 75 6d 20 66 6f 72 20 * minimum for
9dd0: 54 4c 53 20 31 2e 34 2b 2e 20 20 57 65 20 6f 6e TLS 1.4+. We on
9de0: 6c 79 20 73 75 70 70 6f 72 74 20 38 2e 32 2b 20 ly support 8.2+
9df0: 6e 6f 77 20 28 38 2e 33 2e 32 2b 20 70 72 65 66 now (8.3.2+ pref
9e00: 65 72 72 65 64 29 2e 0a 20 20 20 20 20 2a 2f 0a erred).. */.
9e10: 20 20 20 20 69 66 20 28 0a 23 69 66 64 65 66 20 if (.#ifdef
9e20: 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 0a 09 54 USE_TCL_STUBS..T
9e30: 63 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 6e 74 cl_InitStubs(int
9e40: 65 72 70 2c 20 22 38 2e 32 22 2c 20 30 29 0a 23 erp, "8.2", 0).#
9e50: 65 6c 73 65 0a 09 54 63 6c 5f 50 6b 67 52 65 71 else..Tcl_PkgReq
9e60: 75 69 72 65 28 69 6e 74 65 72 70 2c 20 22 54 63 uire(interp, "Tc
9e70: 6c 22 2c 20 22 38 2e 32 22 2c 20 30 29 0a 23 65 l", "8.2", 0).#e
9e80: 6e 64 69 66 0a 09 3d 3d 20 4e 55 4c 4c 29 20 7b ndif..== NULL) {
9e90: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
9ea0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
9eb0: 2a 0a 20 20 20 20 20 2a 20 47 65 74 20 74 68 65 *. * Get the
9ec0: 20 76 65 72 73 69 6f 6e 20 73 6f 20 77 65 20 63 version so we c
9ed0: 61 6e 20 72 75 6e 74 69 6d 65 20 73 77 69 74 63 an runtime switc
9ee0: 68 20 6f 6e 20 61 76 61 69 6c 61 62 6c 65 20 66 h on available f
9ef0: 75 6e 63 74 69 6f 6e 61 6c 69 74 79 2e 0a 20 20 unctionality..
9f00: 20 20 20 2a 20 54 4c 53 20 73 68 6f 75 6c 64 20 * TLS should
9f10: 72 65 61 6c 6c 79 20 6f 6e 6c 79 20 62 65 20 75 really only be u
9f20: 73 65 64 20 69 6e 20 38 2e 33 2e 32 2b 2c 20 62 sed in 8.3.2+, b
9f30: 75 74 20 74 68 65 20 6f 74 68 65 72 20 77 6f 72 ut the other wor
9f40: 6b 73 20 66 6f 72 0a 20 20 20 20 20 2a 20 73 6f ks for. * so
9f50: 6d 65 20 6c 69 6d 69 74 65 64 20 66 75 6e 63 74 me limited funct
9f60: 69 6f 6e 61 6c 69 74 79 2c 20 73 6f 20 61 6e 20 ionality, so an
9f70: 61 74 74 65 6d 70 74 20 61 74 20 73 75 70 70 6f attempt at suppo
9f80: 72 74 20 69 73 20 6d 61 64 65 2e 0a 20 20 20 20 rt is made..
9f90: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 47 65 74 56 */. Tcl_GetV
9fa0: 65 72 73 69 6f 6e 28 26 6d 61 6a 6f 72 2c 20 26 ersion(&major, &
9fb0: 6d 69 6e 6f 72 2c 20 26 70 61 74 63 68 6c 65 76 minor, &patchlev
9fc0: 65 6c 2c 20 26 72 65 6c 65 61 73 65 29 3b 0a 20 el, &release);.
9fd0: 20 20 20 69 66 20 28 28 6d 61 6a 6f 72 20 3e 20 if ((major >
9fe0: 38 29 20 7c 7c 20 28 28 6d 61 6a 6f 72 20 3d 3d 8) || ((major ==
9ff0: 20 38 29 20 26 26 20 28 28 6d 69 6e 6f 72 20 3e 8) && ((minor >
a000: 20 33 29 20 7c 7c 20 28 28 6d 69 6e 6f 72 20 3d 3) || ((minor =
a010: 3d 20 33 29 20 26 26 0a 09 20 20 20 20 28 72 65 = 3) &&.. (re
a020: 6c 65 61 73 65 20 3d 3d 20 54 43 4c 5f 46 49 4e lease == TCL_FIN
a030: 41 4c 5f 52 45 4c 45 41 53 45 29 20 26 26 20 28 AL_RELEASE) && (
a040: 70 61 74 63 68 6c 65 76 65 6c 20 3e 3d 20 32 29 patchlevel >= 2)
a050: 29 29 29 29 20 7b 0a 09 2f 2a 20 38 2e 33 2e 32 )))) {../* 8.3.2
a060: 2b 20 2a 2f 0a 09 63 68 61 6e 6e 65 6c 54 79 70 + */..channelTyp
a070: 65 56 65 72 73 69 6f 6e 20 3d 20 54 4c 53 5f 43 eVersion = TLS_C
a080: 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 32 HANNEL_VERSION_2
a090: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
a0a0: 2f 2a 20 38 2e 32 2e 30 20 2d 20 38 2e 33 2e 31 /* 8.2.0 - 8.3.1
a0b0: 20 2a 2f 0a 09 63 68 61 6e 6e 65 6c 54 79 70 65 */..channelType
a0c0: 56 65 72 73 69 6f 6e 20 3d 20 54 4c 53 5f 43 48 Version = TLS_CH
a0d0: 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e 5f 31 3b ANNEL_VERSION_1;
a0e0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 . }.. if (
a0f0: 43 52 59 50 54 4f 5f 73 65 74 5f 6d 65 6d 5f 66 CRYPTO_set_mem_f
a100: 75 6e 63 74 69 6f 6e 73 28 28 76 6f 69 64 20 2a unctions((void *
a110: 28 2a 29 28 73 69 7a 65 5f 74 29 29 54 63 6c 5f (*)(size_t))Tcl_
a120: 41 6c 6c 6f 63 2c 0a 09 09 09 09 20 28 76 6f 69 Alloc,..... (voi
a130: 64 20 2a 28 2a 29 28 76 6f 69 64 20 2a 2c 20 73 d *(*)(void *, s
a140: 69 7a 65 5f 74 29 29 54 63 6c 5f 52 65 61 6c 6c ize_t))Tcl_Reall
a150: 6f 63 2c 0a 09 09 09 09 20 28 76 6f 69 64 28 2a oc,..... (void(*
a160: 29 28 76 6f 69 64 20 2a 29 29 54 63 6c 5f 46 72 )(void *))Tcl_Fr
a170: 65 65 29 20 3d 3d 20 30 29 20 7b 0a 20 20 20 20 ee) == 0) {.
a180: 20 20 20 2f 2a 20 4e 6f 74 20 75 73 69 6e 67 20 /* Not using
a190: 54 63 6c 27 73 20 6d 65 6d 20 66 75 6e 63 74 69 Tcl's mem functi
a1a0: 6f 6e 73 20 2e 2e 2e 20 6e 6f 74 20 63 72 69 74 ons ... not crit
a1b0: 69 63 61 6c 20 2a 2f 0a 20 20 20 20 7d 0a 0a 23 ical */. }..#
a1c0: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 if defined(OPENS
a1d0: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 SL_THREADS) && d
a1e0: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 efined(TCL_THREA
a1f0: 44 53 29 0a 20 20 20 20 2f 2a 20 73 68 6f 75 6c DS). /* shoul
a200: 64 20 77 65 20 63 6f 6e 73 69 64 65 72 20 61 6c d we consider al
a210: 6c 6f 63 61 74 69 6e 67 20 6d 75 74 65 78 65 73 locating mutexes
a220: 3f 20 2a 2f 0a 20 20 20 20 6e 75 6d 5f 6c 6f 63 ? */. num_loc
a230: 6b 73 20 3d 20 43 52 59 50 54 4f 5f 6e 75 6d 5f ks = CRYPTO_num_
a240: 6c 6f 63 6b 73 28 29 3b 0a 20 20 20 20 69 66 20 locks();. if
a250: 28 6e 75 6d 5f 6c 6f 63 6b 73 20 3e 20 43 52 59 (num_locks > CRY
a260: 50 54 4f 5f 4e 55 4d 5f 4c 4f 43 4b 53 29 20 7b PTO_NUM_LOCKS) {
a270: 0a 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 . Tcl_Appe
a280: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
a290: 20 22 63 72 79 70 74 6f 20 6e 75 6d 20 6c 6f 63 "crypto num loc
a2a0: 6b 73 20 73 69 7a 65 20 65 72 72 6f 72 22 2c 20 ks size error",
a2b0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20 72 65 NULL);. re
a2c0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
a2d0: 20 20 20 20 7d 0a 0a 20 20 20 20 43 52 59 50 54 }.. CRYPT
a2e0: 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 61 O_set_locking_ca
a2f0: 6c 6c 62 61 63 6b 28 43 72 79 70 74 6f 54 68 72 llback(CryptoThr
a300: 65 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b 29 eadLockCallback)
a310: 3b 0a 20 20 20 20 43 52 59 50 54 4f 5f 73 65 74 ;. CRYPTO_set
a320: 5f 69 64 5f 63 61 6c 6c 62 61 63 6b 28 43 72 79 _id_callback(Cry
a330: 70 74 6f 54 68 72 65 61 64 49 64 43 61 6c 6c 62 ptoThreadIdCallb
a340: 61 63 6b 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 ack);.#endif..
a350: 20 20 69 66 20 28 53 53 4c 5f 6c 69 62 72 61 72 if (SSL_librar
a360: 79 5f 69 6e 69 74 28 29 20 21 3d 20 31 29 20 7b y_init() != 1) {
a370: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
a380: 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c lt(interp, "coul
a390: 64 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 d not initialize
a3a0: 20 53 53 4c 20 6c 69 62 72 61 72 79 22 2c 20 4e SSL library", N
a3b0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
a3c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
a3d0: 20 20 20 53 53 4c 5f 6c 6f 61 64 5f 65 72 72 6f SSL_load_erro
a3e0: 72 5f 73 74 72 69 6e 67 73 28 29 3b 0a 20 20 20 r_strings();.
a3f0: 20 45 52 52 5f 6c 6f 61 64 5f 63 72 79 70 74 6f ERR_load_crypto
a400: 5f 73 74 72 69 6e 67 73 28 29 3b 0a 0a 20 20 20 _strings();..
a410: 20 2f 2a 0a 20 20 20 20 20 2a 20 53 65 65 64 20 /*. * Seed
a420: 74 68 65 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 the random numbe
a430: 72 20 67 65 6e 65 72 61 74 6f 72 20 69 6e 20 74 r generator in t
a440: 68 65 20 53 53 4c 20 6c 69 62 72 61 72 79 2c 0a he SSL library,.
a450: 20 20 20 20 20 2a 20 75 73 69 6e 67 20 74 68 65 * using the
a460: 20 64 6f 2f 77 68 69 6c 65 20 63 6f 6e 73 74 72 do/while constr
a470: 75 63 74 20 62 65 63 61 75 73 65 20 6f 66 20 74 uct because of t
a480: 68 65 20 62 75 67 20 6e 6f 74 65 20 69 6e 20 74 he bug note in t
a490: 68 65 0a 20 20 20 20 20 2a 20 4f 70 65 6e 53 53 he. * OpenSS
a4a0: 4c 20 46 41 51 20 61 74 20 68 74 74 70 3a 2f 2f L FAQ at http://
a4b0: 77 77 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 2f www.openssl.org/
a4c0: 73 75 70 70 6f 72 74 2f 66 61 71 2e 68 74 6d 6c support/faq.html
a4d0: 23 55 53 45 52 31 0a 20 20 20 20 20 2a 0a 20 20 #USER1. *.
a4e0: 20 20 20 2a 20 54 68 65 20 63 72 75 78 20 6f 66 * The crux of
a4f0: 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 69 73 20 the problem is
a500: 74 68 61 74 20 53 6f 6c 61 72 69 73 20 37 20 64 that Solaris 7 d
a510: 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 20 0a oes not have a .
a520: 20 20 20 20 20 2a 20 2f 64 65 76 2f 72 61 6e 64 * /dev/rand
a530: 6f 6d 20 6f 72 20 2f 64 65 76 2f 75 72 61 6e 64 om or /dev/urand
a540: 6f 6d 20 64 65 76 69 63 65 20 73 6f 20 69 74 20 om device so it
a550: 63 61 6e 6e 6f 74 20 67 61 74 68 65 72 20 65 6e cannot gather en
a560: 6f 75 67 68 0a 20 20 20 20 20 2a 20 65 6e 74 72 ough. * entr
a570: 6f 70 79 20 66 72 6f 6d 20 74 68 65 20 52 41 4e opy from the RAN
a580: 44 5f 73 65 65 64 28 29 20 77 68 65 6e 20 54 4c D_seed() when TL
a590: 53 20 69 6e 69 74 69 61 6c 69 7a 65 73 20 61 6e S initializes an
a5a0: 64 20 72 65 66 75 73 65 73 0a 20 20 20 20 20 2a d refuses. *
a5b0: 20 74 6f 20 67 6f 20 66 75 72 74 68 65 72 2e 20 to go further.
a5c0: 45 61 72 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 Earlier versions
a5d0: 20 6f 66 20 4f 70 65 6e 53 53 4c 20 63 61 72 72 of OpenSSL carr
a5e0: 69 65 64 20 6f 6e 20 72 65 67 61 72 64 6c 65 73 ied on regardles
a5f0: 73 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 s.. */. s
a600: 72 61 6e 64 28 28 75 6e 73 69 67 6e 65 64 20 69 rand((unsigned i
a610: 6e 74 29 20 74 69 6d 65 28 28 74 69 6d 65 5f 74 nt) time((time_t
a620: 20 2a 29 20 4e 55 4c 4c 29 29 3b 0a 20 20 20 20 *) NULL));.
a630: 64 6f 20 7b 0a 09 66 6f 72 20 28 69 20 3d 20 30 do {..for (i = 0
a640: 3b 20 69 20 3c 20 31 36 3b 20 69 2b 2b 29 20 7b ; i < 16; i++) {
a650: 0a 09 20 20 20 20 72 6e 64 5f 73 65 65 64 5b 69 .. rnd_seed[i
a660: 5d 20 3d 20 31 20 2b 20 28 63 68 61 72 29 20 28 ] = 1 + (char) (
a670: 32 35 35 2e 30 20 2a 20 72 61 6e 64 28 29 2f 28 255.0 * rand()/(
a680: 52 41 4e 44 5f 4d 41 58 2b 31 2e 30 29 29 3b 0a RAND_MAX+1.0));.
a690: 09 7d 0a 09 52 41 4e 44 5f 73 65 65 64 28 72 6e .}..RAND_seed(rn
a6a0: 64 5f 73 65 65 64 2c 20 73 69 7a 65 6f 66 28 72 d_seed, sizeof(r
a6b0: 6e 64 5f 73 65 65 64 29 29 3b 0a 20 20 20 20 7d nd_seed));. }
a6c0: 20 77 68 69 6c 65 20 28 52 41 4e 44 5f 73 74 61 while (RAND_sta
a6d0: 74 75 73 28 29 20 21 3d 20 31 29 3b 0a 0a 20 20 tus() != 1);..
a6e0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
a6f0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
a700: 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 tls::ciphers", C
a710: 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 0a 09 20 iphersObjCmd,..
a720: 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 (ClientData)
a730: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 0, (Tcl_CmdDelet
a740: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
a750: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
a760: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
a770: 2c 20 22 74 6c 73 3a 3a 68 61 6e 64 73 68 61 6b , "tls::handshak
a780: 65 22 2c 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a e", HandshakeObj
a790: 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 6e Cmd,.. (Clien
a7a0: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
a7b0: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
a7c0: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c 5f NULL);.. Tcl_
a7d0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
a7e0: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 69 (interp, "tls::i
a7f0: 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 4f 62 mport", ImportOb
a800: 6a 43 6d 64 2c 0a 09 20 20 20 20 28 43 6c 69 65 jCmd,.. (Clie
a810: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f ntData) 0, (Tcl_
a820: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
a830: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 54 63 6c NULL);.. Tcl
a840: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
a850: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
a860: 75 6e 69 6d 70 6f 72 74 22 2c 20 55 6e 69 6d 70 unimport", Unimp
a870: 6f 72 74 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 20 ortObjCmd,..
a880: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
a890: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
a8a0: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 oc *) NULL);..
a8b0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
a8c0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
a8d0: 74 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 tls::status", St
a8e0: 61 74 75 73 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 atusObjCmd,..
a8f0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
a900: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
a910: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
a920: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
a930: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
a940: 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 "tls::version",
a950: 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 0a 09 VersionObjCmd,..
a960: 20 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 (ClientData)
a970: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
a980: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
a990: 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 .. Tcl_Create
a9a0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
a9b0: 70 2c 20 22 74 6c 73 3a 3a 6d 69 73 63 22 2c 20 p, "tls::misc",
a9c0: 4d 69 73 63 4f 62 6a 43 6d 64 2c 0a 09 20 20 20 MiscObjCmd,..
a9d0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
a9e0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
a9f0: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 roc *) NULL);..
aa00: 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 50 6b return Tcl_Pk
aa10: 67 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c gProvide(interp,
aa20: 20 50 41 43 4b 41 47 45 5f 4e 41 4d 45 2c 20 50 PACKAGE_NAME, P
aa30: 41 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 29 3b ACKAGE_VERSION);
aa40: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d ----------------
aa80: 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 66 65 *. *. *.Tls_Safe
aa90: 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d Init --. *. *.--
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 2d 2d 2d 2d 2d 2d 2d 2a 0a --------------*.
aad0: 20 2a 09 53 74 61 6e 64 61 72 64 20 70 72 6f 63 *.Standard proc
aae0: 65 64 75 72 65 20 72 65 71 75 69 72 65 64 20 62 edure required b
aaf0: 79 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 49 6e y 'load'. . *.In
ab00: 69 74 69 61 6c 69 7a 65 73 20 74 68 69 73 20 65 itializes this e
ab10: 78 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 20 73 xtension for a s
ab20: 61 66 65 20 69 6e 74 65 72 70 72 65 74 65 72 2e afe interpreter.
ab30: 0a 20 2a 09 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 2d 2d 2d ----------------
ab60: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 ----*. *. *.Side
ab70: 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 41 73 20 effects:. *..As
ab80: 6f 66 20 27 54 6c 73 5f 49 6e 69 74 27 0a 20 2a of 'Tls_Init'. *
ab90: 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 . *.Result:. *..
aba0: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 65 A standard Tcl e
abb0: 72 72 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a 20 2a rror code.. *. *
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 2d ----------------
abf0: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 69 6e 74 ------*. */..int
ac00: 0a 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 28 54 .Tls_SafeInit (T
ac10: 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 cl_Interp* inter
ac20: 70 29 0a 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 p).{. return
ac30: 54 6c 73 5f 49 6e 69 74 20 28 69 6e 74 65 72 70 Tls_Init (interp
ac40: 29 3b 0a 7d 0a );.}.