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 0a tarfish Systems.
00d0: 20 2a 09 43 6f 70 79 72 69 67 68 74 20 28 43 29 *.Copyright (C)
00e0: 20 32 30 32 33 20 42 72 69 61 6e 20 4f 27 48 61 2023 Brian O'Ha
00f0: 67 61 6e 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 gan. *. * TLS (a
0100: 6b 61 20 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 ka SSL) Channel
0110: 2d 20 63 61 6e 20 62 65 20 6c 61 79 65 72 65 64 - can be layered
0120: 20 6f 6e 20 61 6e 79 20 62 69 2d 64 69 72 65 63 on any bi-direc
0130: 74 69 6f 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 tional. * Tcl_Ch
0140: 61 6e 6e 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 annel (Note: Req
0150: 75 69 72 65 73 20 54 72 66 20 43 6f 72 65 20 50 uires Trf Core P
0160: 61 74 63 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 atch). *. * This
0170: 20 77 61 73 20 62 75 69 6c 74 20 28 61 6c 6d 6f was built (almo
0180: 73 74 29 20 66 72 6f 6d 20 73 63 72 61 74 63 68 st) from scratch
0190: 20 62 61 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 based upon obse
01a0: 72 76 61 74 69 6f 6e 20 6f 66 0a 20 2a 20 4f 70 rvation of. * Op
01b0: 65 6e 53 53 4c 20 30 2e 39 2e 32 42 0a 20 2a 0a enSSL 0.9.2B. *.
01c0: 20 2a 20 41 64 64 69 74 69 6f 6e 20 63 72 65 64 * Addition cred
01d0: 69 74 20 69 73 20 64 75 65 20 66 6f 72 20 41 6e it is due for An
01e0: 64 72 65 61 73 20 4b 75 70 72 69 65 73 20 28 61 dreas Kupries (a
01f0: 2e 6b 75 70 72 69 65 73 40 77 65 73 74 65 6e 64 .kupries@westend
0200: 2e 63 6f 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 72 .com), for. * pr
0210: 6f 76 69 64 69 6e 67 20 74 68 65 20 54 63 6c 5f oviding the Tcl_
0220: 52 65 70 6c 61 63 65 43 68 61 6e 6e 65 6c 20 6d ReplaceChannel m
0230: 65 63 68 61 6e 69 73 6d 20 61 6e 64 20 77 6f 72 echanism and wor
0240: 6b 69 6e 67 20 63 6c 6f 73 65 6c 79 20 77 69 74 king closely wit
0250: 68 20 6d 65 0a 20 2a 20 74 6f 20 65 6e 68 61 6e h me. * to enhan
0260: 63 65 20 69 74 20 74 6f 20 73 75 70 70 6f 72 74 ce it to support
0270: 20 66 75 6c 6c 20 66 69 6c 65 65 76 65 6e 74 20 full fileevent
0280: 73 65 6d 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 2a semantics.. *. *
0290: 20 41 6c 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 20 Also work done
02a0: 62 79 20 74 68 65 20 66 6f 6c 6c 6f 77 20 70 65 by the follow pe
02b0: 6f 70 6c 65 20 70 72 6f 76 69 64 65 64 20 74 68 ople provided th
02c0: 65 20 69 6d 70 65 74 75 73 20 74 6f 20 64 6f 20 e impetus to do
02d0: 74 68 69 73 20 22 72 69 67 68 74 22 3a 0a 20 2a this "right":. *
02e0: 09 74 63 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 4d .tclSSL (Colin M
02f0: 63 43 6f 72 6d 61 63 6b 2c 20 53 68 61 72 65 64 cCormack, Shared
0300: 20 54 65 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a 09 Technology). *.
0310: 53 53 4c 74 63 6c 20 28 50 65 74 65 72 20 41 6e SSLtcl (Peter An
0320: 74 6d 61 6e 29 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 tman). *. */..#i
0330: 6e 63 6c 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 nclude "tlsInt.h
0340: 22 0a 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 4f ".#include "tclO
0350: 70 74 73 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 pts.h".#include
0360: 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 <stdio.h>.#inclu
0370: 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 de <stdlib.h>.#i
0380: 6e 63 6c 75 64 65 20 22 74 6c 73 55 75 69 64 2e nclude "tlsUuid.
0390: 68 22 0a 0a 2f 2a 20 4d 69 6e 20 4f 70 65 6e 53 h"../* Min OpenS
03a0: 53 4c 20 76 65 72 73 69 6f 6e 20 2a 2f 0a 23 69 SL version */.#i
03b0: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
03c0: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31 N_NUMBER < 0x101
03d0: 30 31 30 30 30 4c 0a 23 65 72 72 6f 72 20 22 4f 01000L.#error "O
03e0: 6e 6c 79 20 4f 70 65 6e 53 53 4c 20 76 31 2e 31 nly OpenSSL v1.1
03f0: 2e 31 20 6f 72 20 6c 61 74 65 72 20 69 73 20 73 .1 or later is s
0400: 75 70 70 6f 72 74 65 64 22 0a 23 65 6e 64 69 66 upported".#endif
0410: 0a 0a 2f 2a 0a 20 2a 20 45 78 74 65 72 6e 61 6c ../*. * External
0420: 20 66 75 6e 63 74 69 6f 6e 73 0a 20 2a 2f 0a 0a functions. */..
0430: 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64 20 64 65 /*. * Forward de
0440: 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 0a clarations. */..
0450: 23 64 65 66 69 6e 65 20 46 32 4e 28 6b 65 79 2c #define F2N(key,
0460: 20 64 73 70 29 20 5c 0a 09 28 28 28 6b 65 79 29 dsp) \..(((key)
0470: 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20 28 63 68 61 == NULL) ? (cha
0480: 72 20 2a 29 4e 55 4c 4c 20 3a 20 5c 0a 09 09 54 r *)NULL : \...T
0490: 63 6c 5f 54 72 61 6e 73 6c 61 74 65 46 69 6c 65 cl_TranslateFile
04a0: 4e 61 6d 65 28 69 6e 74 65 72 70 2c 20 28 6b 65 Name(interp, (ke
04b0: 79 29 2c 20 28 64 73 70 29 29 29 0a 0a 73 74 61 y), (dsp)))..sta
04c0: 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 54 58 tic SSL_CTX *CTX
04d0: 5f 49 6e 69 74 28 53 74 61 74 65 20 2a 73 74 61 _Init(State *sta
04e0: 74 65 50 74 72 2c 20 69 6e 74 20 69 73 53 65 72 tePtr, int isSer
04f0: 76 65 72 2c 20 69 6e 74 20 70 72 6f 74 6f 2c 20 ver, int proto,
0500: 63 68 61 72 20 2a 6b 65 79 2c 0a 09 09 63 68 61 char *key,...cha
0510: 72 20 2a 63 65 72 74 66 69 6c 65 2c 20 75 6e 73 r *certfile, uns
0520: 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 79 5f igned char *key_
0530: 61 73 6e 31 2c 20 75 6e 73 69 67 6e 65 64 20 63 asn1, unsigned c
0540: 68 61 72 20 2a 63 65 72 74 5f 61 73 6e 31 2c 0a har *cert_asn1,.
0550: 09 09 69 6e 74 20 6b 65 79 5f 61 73 6e 31 5f 6c ..int key_asn1_l
0560: 65 6e 2c 20 69 6e 74 20 63 65 72 74 5f 61 73 6e en, int cert_asn
0570: 31 5f 6c 65 6e 2c 20 63 68 61 72 20 2a 43 41 64 1_len, char *CAd
0580: 69 72 2c 20 63 68 61 72 20 2a 43 41 66 69 6c 65 ir, char *CAfile
0590: 2c 0a 09 09 63 68 61 72 20 2a 63 69 70 68 65 72 ,...char *cipher
05a0: 73 2c 20 63 68 61 72 20 2a 44 48 70 61 72 61 6d s, char *DHparam
05b0: 73 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 s);..static int.
05c0: 54 6c 73 4c 69 62 49 6e 69 74 28 69 6e 74 20 75 TlsLibInit(int u
05d0: 6e 69 6e 69 74 69 61 6c 69 7a 65 29 3b 0a 0a 23 ninitialize);..#
05e0: 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f define TLS_PROTO
05f0: 5f 53 53 4c 32 09 09 30 78 30 31 0a 23 64 65 66 _SSL2..0x01.#def
0600: 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 ine TLS_PROTO_SS
0610: 4c 33 09 09 30 78 30 32 0a 23 64 65 66 69 6e 65 L3..0x02.#define
0620: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 09 TLS_PROTO_TLS1.
0630: 09 30 78 30 34 0a 23 64 65 66 69 6e 65 20 54 4c .0x04.#define TL
0640: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 09 30 S_PROTO_TLS1_1.0
0650: 78 30 38 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f x08.#define TLS_
0660: 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 09 30 78 31 PROTO_TLS1_2.0x1
0670: 30 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 0.#define TLS_PR
0680: 4f 54 4f 5f 54 4c 53 31 5f 33 09 30 78 32 30 0a OTO_TLS1_3.0x20.
0690: 23 64 65 66 69 6e 65 20 45 4e 41 42 4c 45 44 28 #define ENABLED(
06a0: 66 6c 61 67 2c 20 6d 61 73 6b 29 09 28 28 28 66 flag, mask).(((f
06b0: 6c 61 67 29 20 26 20 28 6d 61 73 6b 29 29 20 3d lag) & (mask)) =
06c0: 3d 20 28 6d 61 73 6b 29 29 0a 0a 2f 2a 0a 20 2a = (mask))../*. *
06d0: 20 57 65 20 6c 6f 73 65 20 74 68 65 20 74 63 6c We lose the tcl
06e0: 20 70 61 73 73 77 6f 72 64 20 63 61 6c 6c 62 61 password callba
06f0: 63 6b 20 77 68 65 6e 20 77 65 20 75 73 65 20 74 ck when we use t
0700: 68 65 20 52 53 41 20 42 53 41 46 45 20 53 53 4c he RSA BSAFE SSL
0710: 2d 43 20 31 2e 31 2e 32 0a 20 2a 20 6c 69 62 72 -C 1.1.2. * libr
0720: 61 72 69 65 73 20 69 6e 73 74 65 61 64 20 6f 66 aries instead of
0730: 20 74 68 65 20 63 75 72 72 65 6e 74 20 4f 70 65 the current Ope
0740: 6e 53 53 4c 20 6c 69 62 72 61 72 69 65 73 2e 0a nSSL libraries..
0750: 20 2a 2f 0a 0a 23 69 66 64 65 66 20 42 53 41 46 */..#ifdef BSAF
0760: 45 0a 23 64 65 66 69 6e 65 20 50 52 45 5f 4f 50 E.#define PRE_OP
0770: 45 4e 53 53 4c 5f 30 5f 39 5f 34 20 31 0a 23 65 ENSSL_0_9_4 1.#e
0780: 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 50 72 65 20 ndif../*. * Pre
0790: 4f 70 65 6e 53 53 4c 20 30 2e 39 2e 34 20 43 6f OpenSSL 0.9.4 Co
07a0: 6d 70 61 74 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 mpat. */..#ifnde
07b0: 66 20 53 54 41 43 4b 5f 4f 46 0a 23 64 65 66 69 f STACK_OF.#defi
07c0: 6e 65 20 53 54 41 43 4b 5f 4f 46 28 78 29 09 09 ne STACK_OF(x)..
07d0: 09 53 54 41 43 4b 0a 23 64 65 66 69 6e 65 20 73 .STACK.#define s
07e0: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d k_SSL_CIPHER_num
07f0: 28 73 6b 29 09 09 73 6b 5f 6e 75 6d 28 28 73 6b (sk)..sk_num((sk
0800: 29 29 0a 23 64 65 66 69 6e 65 20 73 6b 5f 53 53 )).#define sk_SS
0810: 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 20 L_CIPHER_value(
0820: 73 6b 2c 20 69 6e 64 65 78 29 09 28 53 53 4c 5f sk, index).(SSL_
0830: 43 49 50 48 45 52 2a 29 73 6b 5f 76 61 6c 75 65 CIPHER*)sk_value
0840: 28 28 73 6b 29 2c 20 28 69 6e 64 65 78 29 29 0a ((sk), (index)).
0850: 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 54 68 #endif../*. * Th
0860: 72 65 61 64 2d 53 61 66 65 20 54 4c 53 20 43 6f read-Safe TLS Co
0870: 64 65 0a 20 2a 2f 0a 0a 23 69 66 64 65 66 20 54 de. */..#ifdef T
0880: 43 4c 5f 54 48 52 45 41 44 53 0a 23 64 65 66 69 CL_THREADS.#defi
0890: 6e 65 20 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 ne OPENSSL_THREA
08a0: 44 5f 44 45 46 49 4e 45 53 0a 23 69 6e 63 6c 75 D_DEFINES.#inclu
08b0: 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 6f 70 65 6e de <openssl/open
08c0: 73 73 6c 63 6f 6e 66 2e 68 3e 0a 0a 23 69 66 64 sslconf.h>..#ifd
08d0: 65 66 20 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 ef OPENSSL_THREA
08e0: 44 53 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 DS.#include <ope
08f0: 6e 73 73 6c 2f 63 72 79 70 74 6f 2e 68 3e 0a 0a nssl/crypto.h>..
0900: 2f 2a 0a 20 2a 20 54 68 72 65 61 64 65 64 20 6f /*. * Threaded o
0910: 70 65 72 61 74 69 6f 6e 20 72 65 71 75 69 72 65 peration require
0920: 73 20 6c 6f 63 6b 69 6e 67 20 63 61 6c 6c 62 61 s locking callba
0930: 63 6b 73 0a 20 2a 20 42 61 73 65 64 20 66 72 6f cks. * Based fro
0940: 6d 20 2f 63 72 79 70 74 6f 2f 63 72 79 70 74 6c m /crypto/cryptl
0950: 69 62 2e 63 20 6f 66 20 4f 70 65 6e 53 53 4c 20 ib.c of OpenSSL
0960: 61 6e 64 20 4e 53 4f 70 65 6e 53 53 4c 2e 0a 20 and NSOpenSSL..
0970: 2a 2f 0a 0a 73 74 61 74 69 63 20 54 63 6c 5f 4d */..static Tcl_M
0980: 75 74 65 78 20 2a 6c 6f 63 6b 73 20 3d 20 4e 55 utex *locks = NU
0990: 4c 4c 3b 0a 73 74 61 74 69 63 20 69 6e 74 20 6c LL;.static int l
09a0: 6f 63 6b 73 43 6f 75 6e 74 20 3d 20 30 3b 0a 73 ocksCount = 0;.s
09b0: 74 61 74 69 63 20 54 63 6c 5f 4d 75 74 65 78 20 tatic Tcl_Mutex
09c0: 69 6e 69 74 5f 6d 78 3b 0a 0a 76 6f 69 64 20 43 init_mx;..void C
09d0: 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b 43 ryptoThreadLockC
09e0: 61 6c 6c 62 61 63 6b 28 0a 20 20 20 20 69 6e 74 allback(. int
09f0: 20 6d 6f 64 65 2c 0a 20 20 20 20 69 6e 74 20 6e mode,. int n
0a00: 2c 0a 20 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 ,. TCL_UNUSED
0a10: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 2c 0a (const char *),.
0a20: 20 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 28 69 TCL_UNUSED(i
0a30: 6e 74 29 29 0a 7b 0a 09 69 66 20 28 6d 6f 64 65 nt)).{..if (mode
0a40: 20 26 20 43 52 59 50 54 4f 5f 4c 4f 43 4b 29 20 & CRYPTO_LOCK)
0a50: 7b 0a 09 09 2f 2a 20 54 68 69 73 20 64 65 62 75 {.../* This debu
0a60: 67 67 69 6e 67 20 69 73 20 74 75 72 6e 65 64 20 gging is turned
0a70: 6f 66 66 20 62 79 20 64 65 66 61 75 6c 74 20 2d off by default -
0a80: 2d 20 69 74 27 73 20 74 6f 6f 20 6e 6f 69 73 79 - it's too noisy
0a90: 2e 20 2a 2f 0a 09 09 2f 2a 20 64 70 72 69 6e 74 . */.../* dprint
0aa0: 66 28 22 43 61 6c 6c 65 64 20 74 6f 20 6c 6f 63 f("Called to loc
0ab0: 6b 20 28 6e 3d 25 69 20 6f 66 20 25 69 29 22 2c k (n=%i of %i)",
0ac0: 20 6e 2c 20 6c 6f 63 6b 73 43 6f 75 6e 74 29 3b n, locksCount);
0ad0: 20 2a 2f 0a 09 09 54 63 6c 5f 4d 75 74 65 78 4c */...Tcl_MutexL
0ae0: 6f 63 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a ock(&locks[n]);.
0af0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 2f 2a 20 64 .} else {.../* d
0b00: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 74 printf("Called t
0b10: 6f 20 75 6e 6c 6f 63 6b 20 28 6e 3d 25 69 20 6f o unlock (n=%i o
0b20: 66 20 25 69 29 22 2c 20 6e 2c 20 6c 6f 63 6b 73 f %i)", n, locks
0b30: 43 6f 75 6e 74 29 3b 20 2a 2f 0a 09 09 54 63 6c Count); */...Tcl
0b40: 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 6c 6f _MutexUnlock(&lo
0b50: 63 6b 73 5b 6e 5d 29 3b 0a 09 7d 0a 0a 09 2f 2a cks[n]);..}.../*
0b60: 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e dprintf("Return
0b70: 69 6e 67 22 29 3b 20 2a 2f 0a 0a 09 72 65 74 75 ing"); */...retu
0b80: 72 6e 3b 0a 7d 0a 0a 75 6e 73 69 67 6e 65 64 20 rn;.}..unsigned
0b90: 6c 6f 6e 67 20 43 72 79 70 74 6f 54 68 72 65 61 long CryptoThrea
0ba0: 64 49 64 43 61 6c 6c 62 61 63 6b 28 76 6f 69 64 dIdCallback(void
0bb0: 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 6c 6f ) {..unsigned lo
0bc0: 6e 67 20 72 65 74 3b 0a 0a 09 64 70 72 69 6e 74 ng ret;...dprint
0bd0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 72 f("Called");...r
0be0: 65 74 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 6c et = (unsigned l
0bf0: 6f 6e 67 29 20 54 63 6c 5f 47 65 74 43 75 72 72 ong) Tcl_GetCurr
0c00: 65 6e 74 54 68 72 65 61 64 28 29 3b 0a 0a 09 64 entThread();...d
0c10: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e printf("Returnin
0c20: 67 20 25 6c 75 22 2c 20 72 65 74 29 3b 0a 0a 09 g %lu", ret);...
0c30: 72 65 74 75 72 6e 28 72 65 74 29 3b 0a 7d 0a 23 return(ret);.}.#
0c40: 65 6e 64 69 66 20 2f 2a 20 4f 50 45 4e 53 53 4c endif /* OPENSSL
0c50: 5f 54 48 52 45 41 44 53 20 2a 2f 0a 23 65 6e 64 _THREADS */.#end
0c60: 69 66 20 2f 2a 20 54 43 4c 5f 54 48 52 45 41 44 if /* TCL_THREAD
0c70: 53 20 2a 2f 0a 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d S */..../*. *---
0c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cc0: 0a 20 2a 0a 20 2a 20 49 6e 66 6f 43 61 6c 6c 62 . *. * InfoCallb
0cd0: 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 4d 6f 6e ack --. *. *.Mon
0ce0: 69 74 6f 72 73 20 53 53 4c 20 63 6f 6e 6e 65 63 itors SSL connec
0cf0: 74 69 6f 6e 20 70 72 6f 63 65 73 73 0a 20 2a 0a tion process. *.
0d00: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 4e * Results:. *.N
0d10: 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 one. *. * Side e
0d20: 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 6c 6c 73 ffects:. *.Calls
0d30: 20 63 61 6c 6c 62 61 63 6b 20 28 69 66 20 64 65 callback (if de
0d40: 66 69 6e 65 64 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d fined). *. *----
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0d90: 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a */.static void.
0da0: 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 63 6f 6e InfoCallback(con
0db0: 73 74 20 53 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 st SSL *ssl, int
0dc0: 20 77 68 65 72 65 2c 20 69 6e 74 20 72 65 74 29 where, int ret)
0dd0: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 .{. State *st
0de0: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 2a atePtr = (State*
0df0: 29 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 )SSL_get_app_dat
0e00: 61 28 28 53 53 4c 20 2a 29 73 73 6c 29 3b 0a 20 a((SSL *)ssl);.
0e10: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
0e20: 6e 74 65 72 70 09 3d 20 73 74 61 74 65 50 74 72 nterp.= statePtr
0e30: 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20 20 54 63 ->interp;. Tc
0e40: 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 l_Obj *cmdPtr;.
0e50: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6d const char *m
0e60: 61 6a 6f 72 2c 20 2a 6d 69 6e 6f 72 3b 0a 0a 20 ajor, *minor;..
0e70: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
0e80: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 ed");.. if (s
0e90: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
0ea0: 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e k == (Tcl_Obj*)N
0eb0: 55 4c 4c 29 0a 09 72 65 74 75 72 6e 3b 0a 0a 20 ULL)..return;..
0ec0: 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f cmdPtr = Tcl_
0ed0: 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 DuplicateObj(sta
0ee0: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 tePtr->callback)
0ef0: 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 69 66 20 ;..#if 0. if
0f00: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f (where & SSL_CB_
0f10: 41 4c 45 52 54 29 20 7b 0a 09 73 65 76 20 3d 20 ALERT) {..sev =
0f20: 53 53 4c 5f 61 6c 65 72 74 5f 74 79 70 65 5f 73 SSL_alert_type_s
0f30: 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74 29 3b tring_long(ret);
0f40: 0a 09 69 66 20 28 73 74 72 63 6d 70 28 20 73 65 ..if (strcmp( se
0f50: 76 2c 20 22 66 61 74 61 6c 22 29 3d 3d 30 29 20 v, "fatal")==0)
0f60: 7b 09 2f 2a 20 4d 61 70 20 74 6f 20 65 72 72 6f {./* Map to erro
0f70: 72 20 2a 2f 0a 09 20 20 20 20 54 6c 73 5f 45 72 r */.. Tls_Er
0f80: 72 6f 72 28 73 74 61 74 65 50 74 72 2c 20 53 53 ror(statePtr, SS
0f90: 4c 5f 45 52 52 4f 52 28 73 73 6c 2c 20 30 29 29 L_ERROR(ssl, 0))
0fa0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 3b 0a 09 ;.. return;..
0fb0: 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 20 }. }.#endif.
0fc0: 20 20 20 69 66 20 28 77 68 65 72 65 20 26 20 53 if (where & S
0fd0: 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b 45 5f SL_CB_HANDSHAKE_
0fe0: 53 54 41 52 54 29 20 7b 0a 09 6d 61 6a 6f 72 20 START) {..major
0ff0: 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a 09 = "handshake";..
1000: 6d 69 6e 6f 72 20 3d 20 22 73 74 61 72 74 22 3b minor = "start";
1010: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
1020: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 48 where & SSL_CB_H
1030: 41 4e 44 53 48 41 4b 45 5f 44 4f 4e 45 29 20 7b ANDSHAKE_DONE) {
1040: 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64 73 ..major = "hands
1050: 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d 20 hake";..minor =
1060: 22 64 6f 6e 65 22 3b 0a 20 20 20 20 7d 20 65 6c "done";. } el
1070: 73 65 20 7b 0a 09 69 66 20 28 77 68 65 72 65 20 se {..if (where
1080: 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 09 & SSL_CB_ALERT).
1090: 09 6d 61 6a 6f 72 20 3d 20 22 61 6c 65 72 74 22 .major = "alert"
10a0: 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 ;..else if (wher
10b0: 65 20 26 20 53 53 4c 5f 53 54 5f 43 4f 4e 4e 45 e & SSL_ST_CONNE
10c0: 43 54 29 09 6d 61 6a 6f 72 20 3d 20 22 63 6f 6e CT).major = "con
10d0: 6e 65 63 74 22 3b 0a 09 65 6c 73 65 20 69 66 20 nect";..else if
10e0: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 53 54 5f (where & SSL_ST_
10f0: 41 43 43 45 50 54 29 09 09 6d 61 6a 6f 72 20 3d ACCEPT)..major =
1100: 20 22 61 63 63 65 70 74 22 3b 0a 09 65 6c 73 65 "accept";..else
1110: 09 09 09 09 09 6d 61 6a 6f 72 20 3d 20 22 75 6e .....major = "un
1120: 6b 6e 6f 77 6e 22 3b 0a 0a 09 69 66 20 28 77 68 known";...if (wh
1130: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 52 45 41 ere & SSL_CB_REA
1140: 44 29 09 09 6d 69 6e 6f 72 20 3d 20 22 72 65 61 D)..minor = "rea
1150: 64 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77 68 d";..else if (wh
1160: 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 57 52 49 ere & SSL_CB_WRI
1170: 54 45 29 09 09 6d 69 6e 6f 72 20 3d 20 22 77 72 TE)..minor = "wr
1180: 69 74 65 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 ite";..else if (
1190: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 4c where & SSL_CB_L
11a0: 4f 4f 50 29 09 09 6d 69 6e 6f 72 20 3d 20 22 6c OOP)..minor = "l
11b0: 6f 6f 70 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 oop";..else if (
11c0: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 45 where & SSL_CB_E
11d0: 58 49 54 29 09 09 6d 69 6e 6f 72 20 3d 20 22 65 XIT)..minor = "e
11e0: 78 69 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 xit";..else.....
11f0: 6d 69 6e 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e minor = "unknown
1200: 22 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 ";. }.. Tc
1210: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1220: 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 lement( interp,
1230: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1240: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 _NewStringObj( "
1250: 69 6e 66 6f 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 info", -1));..
1260: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
1270: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 endElement( inte
1280: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 rp, cmdPtr,..
1290: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
12a0: 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 j( Tcl_GetChanne
12b0: 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e lName(statePtr->
12c0: 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 self), -1) );..
12d0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
12e0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 pendElement( int
12f0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
1300: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1310: 62 6a 28 20 6d 61 6a 6f 72 2c 20 2d 31 29 20 29 bj( major, -1) )
1320: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
1330: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1340: 20 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c interp, cmdPtr,
1350: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
1360: 69 6e 67 4f 62 6a 28 20 6d 69 6e 6f 72 2c 20 2d ingObj( minor, -
1370: 31 29 20 29 3b 0a 0a 20 20 20 20 69 66 20 28 77 1) );.. if (w
1380: 68 65 72 65 20 26 20 28 53 53 4c 5f 43 42 5f 4c here & (SSL_CB_L
1390: 4f 4f 50 7c 53 53 4c 5f 43 42 5f 45 58 49 54 29 OOP|SSL_CB_EXIT)
13a0: 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a ) {..Tcl_ListObj
13b0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 AppendElement( i
13c0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 nterp, cmdPtr,..
13d0: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e Tcl_NewStrin
13e0: 67 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f gObj( SSL_state_
13f0: 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 string_long(ssl)
1400: 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 , -1) );. } e
1410: 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 lse if (where &
1420: 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a SSL_CB_ALERT) {.
1430: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 70 20 .const char *cp
1440: 3d 20 28 63 68 61 72 20 2a 29 53 53 4c 5f 61 6c = (char *)SSL_al
1450: 65 72 74 5f 64 65 73 63 5f 73 74 72 69 6e 67 5f ert_desc_string_
1460: 6c 6f 6e 67 28 72 65 74 29 3b 0a 0a 09 54 63 6c long(ret);...Tcl
1470: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
1480: 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 63 ement( interp, c
1490: 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f mdPtr,.. Tcl_
14a0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 NewStringObj( cp
14b0: 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 , -1) );. } e
14c0: 6c 73 65 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f lse {..Tcl_ListO
14d0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
14e0: 20 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c interp, cmdPtr,
14f0: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
1500: 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 ingObj( SSL_stat
1510: 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 e_string_long(ss
1520: 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d l), -1) );. }
1530: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
1540: 65 28 28 76 6f 69 64 20 2a 29 20 69 6e 74 65 72 e((void *) inter
1550: 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 p);. Tcl_Pres
1560: 65 72 76 65 28 28 76 6f 69 64 20 2a 29 20 73 74 erve((void *) st
1570: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 atePtr);.. Tc
1580: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 l_IncrRefCount(
1590: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 28 76 6f cmdPtr);. (vo
15a0: 69 64 29 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 id) Tcl_EvalObjE
15b0: 78 28 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 x(interp, cmdPtr
15c0: 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 , TCL_EVAL_GLOBA
15d0: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 L);. Tcl_Decr
15e0: 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 RefCount( cmdPtr
15f0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 );.. Tcl_Rele
1600: 61 73 65 28 28 76 6f 69 64 20 2a 29 20 73 74 61 ase((void *) sta
1610: 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f tePtr);. Tcl_
1620: 52 65 6c 65 61 73 65 28 28 76 6f 69 64 20 2a 29 Release((void *)
1630: 20 69 6e 74 65 72 70 29 3b 0a 0a 7d 0a 0c 0a 2f interp);..}.../
1640: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
1650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1680: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 -------. *. * Ve
1690: 72 69 66 79 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a rifyCallback --.
16a0: 20 2a 0a 20 2a 09 4d 6f 6e 69 74 6f 72 73 20 53 *. *.Monitors S
16b0: 53 4c 20 63 65 72 74 69 66 69 63 61 74 65 20 76 SL certificate v
16c0: 61 6c 69 64 61 74 69 6f 6e 20 70 72 6f 63 65 73 alidation proces
16d0: 73 2e 0a 20 2a 09 54 68 69 73 20 69 73 20 63 61 s.. *.This is ca
16e0: 6c 6c 65 64 20 77 68 65 6e 65 76 65 72 20 61 20 lled whenever a
16f0: 63 65 72 74 69 66 69 63 61 74 65 20 69 73 20 69 certificate is i
1700: 6e 73 70 65 63 74 65 64 0a 20 2a 09 6f 72 20 64 nspected. *.or d
1710: 65 63 69 64 65 64 20 69 6e 76 61 6c 69 64 2e 0a ecided invalid..
1720: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
1730: 2a 09 41 20 63 61 6c 6c 62 61 63 6b 20 62 6f 75 *.A callback bou
1740: 6e 64 20 74 6f 20 74 68 65 20 73 6f 63 6b 65 74 nd to the socket
1750: 20 6d 61 79 20 72 65 74 75 72 6e 20 6f 6e 65 20 may return one
1760: 6f 66 3a 0a 20 2a 09 20 20 20 20 30 09 09 09 2d of:. *. 0...-
1770: 20 74 68 65 20 63 65 72 74 69 66 69 63 61 74 65 the certificate
1780: 20 69 73 20 64 65 65 6d 65 64 20 69 6e 76 61 6c is deemed inval
1790: 69 64 0a 20 2a 09 20 20 20 20 31 09 09 09 2d 20 id. *. 1...-
17a0: 74 68 65 20 63 65 72 74 69 66 69 63 61 74 65 20 the certificate
17b0: 69 73 20 64 65 65 6d 65 64 20 76 61 6c 69 64 0a is deemed valid.
17c0: 20 2a 09 20 20 20 20 65 6d 70 74 79 20 73 74 72 *. empty str
17d0: 69 6e 67 09 2d 20 6e 6f 20 63 68 61 6e 67 65 20 ing.- no change
17e0: 74 6f 20 63 65 72 74 69 66 69 63 61 74 65 20 76 to certificate v
17f0: 61 6c 69 64 61 74 69 6f 6e 0a 20 2a 0a 20 2a 20 alidation. *. *
1800: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
1810: 09 54 68 65 20 65 72 72 20 66 69 65 6c 64 20 6f .The err field o
1820: 66 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 f the currently
1830: 6f 70 65 72 61 74 69 76 65 20 53 74 61 74 65 20 operative State
1840: 69 73 20 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 is set. *. to a
1850: 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 string describi
1860: 6e 67 20 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 ng the SSL negot
1870: 69 61 74 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 iation failure r
1880: 65 61 73 6f 6e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d eason. *. *-----
1890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
18d0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56 65 */.static int.Ve
18e0: 72 69 66 79 43 61 6c 6c 62 61 63 6b 28 69 6e 74 rifyCallback(int
18f0: 20 6f 6b 2c 20 58 35 30 39 5f 53 54 4f 52 45 5f ok, X509_STORE_
1900: 43 54 58 20 2a 63 74 78 29 0a 7b 0a 20 20 20 20 CTX *ctx).{.
1910: 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 2c Tcl_Obj *cmdPtr,
1920: 20 2a 72 65 73 75 6c 74 3b 0a 20 20 20 20 63 68 *result;. ch
1930: 61 72 20 2a 65 72 72 53 74 72 2c 20 2a 73 74 72 ar *errStr, *str
1940: 69 6e 67 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a ing;. Tcl_Siz
1950: 65 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 53 53 e length;. SS
1960: 4c 20 20 20 2a 73 73 6c 09 09 3d 20 28 53 53 4c L *ssl..= (SSL
1970: 2a 29 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 *)X509_STORE_CTX
1980: 5f 67 65 74 5f 65 78 5f 64 61 74 61 28 63 74 78 _get_ex_data(ctx
1990: 2c 20 53 53 4c 5f 67 65 74 5f 65 78 5f 64 61 74 , SSL_get_ex_dat
19a0: 61 5f 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 a_X509_STORE_CTX
19b0: 5f 69 64 78 28 29 29 3b 0a 20 20 20 20 58 35 30 _idx());. X50
19c0: 39 20 20 2a 63 65 72 74 09 09 3d 20 58 35 30 39 9 *cert..= X509
19d0: 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 63 _STORE_CTX_get_c
19e0: 75 72 72 65 6e 74 5f 63 65 72 74 28 63 74 78 29 urrent_cert(ctx)
19f0: 3b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 ;. State *sta
1a00: 74 65 50 74 72 09 3d 20 28 53 74 61 74 65 2a 29 tePtr.= (State*)
1a10: 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 SSL_get_app_data
1a20: 28 73 73 6c 29 3b 0a 20 20 20 20 69 6e 74 20 64 (ssl);. int d
1a30: 65 70 74 68 09 09 3d 20 58 35 30 39 5f 53 54 4f epth..= X509_STO
1a40: 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 RE_CTX_get_error
1a50: 5f 64 65 70 74 68 28 63 74 78 29 3b 0a 20 20 20 _depth(ctx);.
1a60: 20 69 6e 74 20 65 72 72 09 09 3d 20 58 35 30 39 int err..= X509
1a70: 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 65 _STORE_CTX_get_e
1a80: 72 72 6f 72 28 63 74 78 29 3b 0a 0a 20 20 20 20 rror(ctx);..
1a90: 64 70 72 69 6e 74 66 28 22 56 65 72 69 66 79 3a dprintf("Verify:
1aa0: 20 25 64 22 2c 20 6f 6b 29 3b 0a 0a 20 20 20 20 %d", ok);..
1ab0: 69 66 20 28 21 6f 6b 29 20 7b 0a 09 65 72 72 53 if (!ok) {..errS
1ac0: 74 72 20 3d 20 28 63 68 61 72 20 2a 29 58 35 30 tr = (char *)X50
1ad0: 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 9_verify_cert_er
1ae0: 72 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 3b ror_string(err);
1af0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 65 . } else {..e
1b00: 72 72 53 74 72 20 3d 20 28 63 68 61 72 20 2a 29 rrStr = (char *)
1b10: 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 0;. }.. if
1b20: 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c (statePtr->call
1b30: 62 61 63 6b 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a back == NULL) {.
1b40: 09 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 76 .if (statePtr->v
1b50: 66 6c 61 67 73 20 26 20 53 53 4c 5f 56 45 52 49 flags & SSL_VERI
1b60: 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 FY_FAIL_IF_NO_PE
1b70: 45 52 5f 43 45 52 54 29 20 7b 0a 09 20 20 20 20 ER_CERT) {..
1b80: 72 65 74 75 72 6e 20 6f 6b 3b 0a 09 7d 20 65 6c return ok;..} el
1b90: 73 65 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e se {.. return
1ba0: 20 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 1;..}. }.
1bb0: 20 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 cmdPtr = Tcl_Du
1bc0: 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 plicateObj(state
1bd0: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a Ptr->callback);.
1be0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1bf0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1c00: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1c10: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
1c20: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
1c30: 22 76 65 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a "verify", -1));.
1c40: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1c50: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1c60: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1c70: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
1c80: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
1c90: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
1ca0: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c me(statePtr->sel
1cb0: 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 f), -1) );..
1cc0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1cd0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
1ce0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1cf0: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
1d00: 49 6e 74 4f 62 6a 28 20 64 65 70 74 68 29 20 29 IntObj( depth) )
1d10: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
1d20: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
1d30: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
1d40: 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 p, cmdPtr,..
1d50: 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 Tls_NewX509Obj(
1d60: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1d70: 2c 20 63 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 , cert) );..
1d80: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
1d90: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
1da0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
1db0: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
1dc0: 49 6e 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a IntObj( ok) );..
1dd0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1de0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1df0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1e00: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1e10: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 _NewStringObj( e
1e20: 72 72 53 74 72 20 3f 20 65 72 72 53 74 72 20 3a rrStr ? errStr :
1e30: 20 22 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 "", -1) );..
1e40: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 76 Tcl_Preserve((v
1e50: 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 2d oid *) statePtr-
1e60: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 >interp);. Tc
1e70: 6c 5f 50 72 65 73 65 72 76 65 28 28 76 6f 69 64 l_Preserve((void
1e80: 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a *) statePtr);..
1e90: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c statePtr->fl
1ea0: 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 43 ags |= TLS_TCL_C
1eb0: 41 4c 4c 42 41 43 4b 3b 0a 0a 20 20 20 20 54 63 ALLBACK;.. Tc
1ec0: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 l_IncrRefCount(
1ed0: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 cmdPtr);. if
1ee0: 28 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 (Tcl_EvalObjEx(s
1ef0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1f00: 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 cmdPtr, TCL_EVA
1f10: 4c 5f 47 4c 4f 42 41 4c 29 20 21 3d 20 54 43 4c L_GLOBAL) != TCL
1f20: 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 74 20 67 6f _OK) {../* It go
1f30: 74 20 61 6e 20 65 72 72 6f 72 20 2d 20 72 65 6a t an error - rej
1f40: 65 63 74 20 74 68 65 20 63 65 72 74 69 66 69 63 ect the certific
1f50: 61 74 65 2e 09 09 2a 2f 0a 09 54 63 6c 5f 42 61 ate...*/..Tcl_Ba
1f60: 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 20 73 ckgroundError( s
1f70: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
1f80: 3b 0a 09 6f 6b 20 3d 20 30 3b 0a 20 20 20 20 7d ;..ok = 0;. }
1f90: 20 65 6c 73 65 20 7b 0a 09 72 65 73 75 6c 74 20 else {..result
1fa0: 3d 20 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 = Tcl_GetObjResu
1fb0: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 lt(statePtr->int
1fc0: 65 72 70 29 3b 0a 09 73 74 72 69 6e 67 20 3d 20 erp);..string =
1fd0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
1fe0: 6d 4f 62 6a 28 72 65 73 75 6c 74 2c 20 26 6c 65 mObj(result, &le
1ff0: 6e 67 74 68 29 3b 0a 09 2f 2a 20 41 6e 20 65 6d ngth);../* An em
2000: 70 74 79 20 72 65 73 75 6c 74 20 6c 65 61 76 65 pty result leave
2010: 73 20 76 65 72 69 66 69 63 61 74 69 6f 6e 20 75 s verification u
2020: 6e 63 68 61 6e 67 65 64 2e 09 2a 2f 0a 09 69 66 nchanged..*/..if
2030: 20 28 73 74 72 69 6e 67 20 21 3d 20 4e 55 4c 4c (string != NULL
2040: 20 26 26 20 6c 65 6e 67 74 68 20 3e 20 30 29 20 && length > 0)
2050: 7b 0a 09 20 20 20 20 69 66 20 28 54 63 6c 5f 47 {.. if (Tcl_G
2060: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 73 74 61 etIntFromObj(sta
2070: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 72 tePtr->interp, r
2080: 65 73 75 6c 74 2c 20 26 6f 6b 29 20 21 3d 20 54 esult, &ok) != T
2090: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 54 63 6c 5f 42 CL_OK) {...Tcl_B
20a0: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 ackgroundError(s
20b0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 tatePtr->interp)
20c0: 3b 0a 09 09 6f 6b 20 3d 20 30 3b 0a 09 20 20 20 ;...ok = 0;..
20d0: 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 }..}. }.
20e0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
20f0: 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 ( cmdPtr);..
2100: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2110: 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 43 41 4c &= ~(TLS_TCL_CAL
2120: 4c 42 41 43 4b 29 3b 0a 0a 20 20 20 20 54 63 6c LBACK);.. Tcl
2130: 5f 52 65 6c 65 61 73 65 28 28 76 6f 69 64 20 2a _Release((void *
2140: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 ) statePtr);.
2150: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 76 6f Tcl_Release((vo
2160: 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 2d 3e id *) statePtr->
2170: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 72 65 interp);.. re
2180: 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a 20 42 79 20 turn(ok);./* By
2190: 64 65 66 61 75 6c 74 2c 20 6c 65 61 76 65 20 76 default, leave v
21a0: 65 72 69 66 69 63 61 74 69 6f 6e 20 75 6e 63 68 erification unch
21b0: 61 6e 67 65 64 2e 09 2a 2f 0a 7d 0a 0c 0a 2f 2a anged..*/.}.../*
21c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
21d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2200: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
2210: 5f 45 72 72 6f 72 20 2d 2d 0a 20 2a 0a 20 2a 09 _Error --. *. *.
2220: 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b 20 77 Calls callback w
2230: 69 74 68 20 24 66 64 20 61 6e 64 20 24 6d 73 67 ith $fd and $msg
2240: 20 2d 20 73 6f 20 74 68 65 20 63 61 6c 6c 62 61 - so the callba
2250: 63 6b 20 63 61 6e 20 64 65 63 69 64 65 0a 20 2a ck can decide. *
2260: 09 77 68 61 74 20 74 6f 20 64 6f 20 77 69 74 68 .what to do with
2270: 20 65 72 72 6f 72 73 2e 0a 20 2a 0a 20 2a 20 53 errors.. *. * S
2280: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
2290: 54 68 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 The err field of
22a0: 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f the currently o
22b0: 70 65 72 61 74 69 76 65 20 53 74 61 74 65 20 69 perative State i
22c0: 73 20 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 s set. *. to a
22d0: 73 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e string describin
22e0: 67 20 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 g the SSL negoti
22f0: 61 74 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 ation failure re
2300: 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ason. *---------
2310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 ----------. */.v
2350: 6f 69 64 0a 54 6c 73 5f 45 72 72 6f 72 28 53 74 oid.Tls_Error(St
2360: 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c 20 63 ate *statePtr, c
2370: 68 61 72 20 2a 6d 73 67 29 0a 7b 0a 20 20 20 20 har *msg).{.
2380: 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b Tcl_Obj *cmdPtr;
2390: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
23a0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 alled");.. if
23b0: 20 28 6d 73 67 20 26 26 20 2a 6d 73 67 29 20 7b (msg && *msg) {
23c0: 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f ..Tcl_SetErrorCo
23d0: 64 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 de(statePtr->int
23e0: 65 72 70 2c 20 22 53 53 4c 22 2c 20 6d 73 67 2c erp, "SSL", msg,
23f0: 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a (char *)NULL);.
2400: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6d 73 } else {..ms
2410: 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e g = Tcl_GetStrin
2420: 67 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 g(Tcl_GetObjResu
2430: 6c 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 lt(statePtr->int
2440: 65 72 70 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 erp));. }.
2450: 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 20 3d statePtr->err =
2460: 20 6d 73 67 3b 0a 0a 20 20 20 20 69 66 20 28 73 msg;.. if (s
2470: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
2480: 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e k == (Tcl_Obj*)N
2490: 55 4c 4c 29 20 7b 0a 09 63 68 61 72 20 62 75 66 ULL) {..char buf
24a0: 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 70 72 69 6e [BUFSIZ];..sprin
24b0: 74 66 28 62 75 66 2c 20 22 53 53 4c 20 63 68 61 tf(buf, "SSL cha
24c0: 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a 20 65 72 72 nnel \"%s\": err
24d0: 6f 72 3a 20 25 73 22 2c 0a 09 20 20 20 20 54 63 or: %s",.. Tc
24e0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
24f0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
2500: 2c 20 6d 73 67 29 3b 0a 09 54 63 6c 5f 53 65 74 , msg);..Tcl_Set
2510: 52 65 73 75 6c 74 28 20 73 74 61 74 65 50 74 72 Result( statePtr
2520: 2d 3e 69 6e 74 65 72 70 2c 20 62 75 66 2c 20 54 ->interp, buf, T
2530: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 09 54 CL_VOLATILE);..T
2540: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 cl_BackgroundErr
2550: 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e or( statePtr->in
2560: 74 65 72 70 29 3b 0a 09 72 65 74 75 72 6e 3b 0a terp);..return;.
2570: 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 74 72 }. cmdPtr
2580: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 = Tcl_Duplicate
2590: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61 Obj(statePtr->ca
25a0: 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63 llback);.. Tc
25b0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
25c0: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d lement(statePtr-
25d0: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
25e0: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
25f0: 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72 22 2c 20 ingObj("error",
2600: 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c -1));.. Tcl_L
2610: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
2620: 65 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ent(statePtr->in
2630: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 terp, cmdPtr,..
2640: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 Tcl_NewString
2650: 4f 62 6a 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e Obj(Tcl_GetChann
2660: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
2670: 3e 73 65 6c 66 29 2c 20 2d 31 29 29 3b 0a 0a 20 >self), -1));..
2680: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
2690: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 pendElement(stat
26a0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d ePtr->interp, cm
26b0: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e dPtr,.. Tcl_N
26c0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 6d 73 67 2c ewStringObj(msg,
26d0: 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f -1));.. Tcl_
26e0: 50 72 65 73 65 72 76 65 28 28 76 6f 69 64 20 2a Preserve((void *
26f0: 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 ) statePtr->inte
2700: 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 rp);. Tcl_Pre
2710: 73 65 72 76 65 28 28 76 6f 69 64 20 2a 29 20 73 serve((void *) s
2720: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 tatePtr);.. T
2730: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 cl_IncrRefCount(
2740: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 69 66 20 cmdPtr);. if
2750: 28 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 (Tcl_EvalObjEx(s
2760: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
2770: 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 cmdPtr, TCL_EVA
2780: 4c 5f 47 4c 4f 42 41 4c 29 20 21 3d 20 54 43 4c L_GLOBAL) != TCL
2790: 5f 4f 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b _OK) {..Tcl_Back
27a0: 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74 groundError(stat
27b0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 ePtr->interp);.
27c0: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 }. Tcl_Dec
27d0: 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 rRefCount(cmdPtr
27e0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 );.. Tcl_Rele
27f0: 61 73 65 28 28 76 6f 69 64 20 2a 29 20 73 74 61 ase((void *) sta
2800: 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f tePtr);. Tcl_
2810: 52 65 6c 65 61 73 65 28 28 76 6f 69 64 20 2a 29 Release((void *)
2820: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
2830: 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d p);.}.../*. *---
2840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2880: 0a 20 2a 0a 20 2a 20 50 61 73 73 77 6f 72 64 43 . *. * PasswordC
2890: 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a allback --. *. *
28a0: 09 43 61 6c 6c 65 64 20 77 68 65 6e 20 61 20 70 .Called when a p
28b0: 61 73 73 77 6f 72 64 20 69 73 20 6e 65 65 64 65 assword is neede
28c0: 64 20 74 6f 20 75 6e 70 61 63 6b 20 52 53 41 20 d to unpack RSA
28d0: 61 6e 64 20 50 45 4d 20 6b 65 79 73 2e 0a 20 2a and PEM keys.. *
28e0: 09 45 76 61 6c 73 20 61 6e 79 20 62 6f 75 6e 64 .Evals any bound
28f0: 20 70 61 73 73 77 6f 72 64 20 73 63 72 69 70 74 password script
2900: 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 and returns the
2910: 20 72 65 73 75 6c 74 20 61 73 0a 20 2a 09 74 68 result as. *.th
2920: 65 20 70 61 73 73 77 6f 72 64 20 73 74 72 69 6e e password strin
2930: 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d g.. *-----------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2970: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66 --------. */.#if
2980: 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f def PRE_OPENSSL_
2990: 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e 6f 20 77 0_9_4./*. * No w
29a0: 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 75 73 65 ay to handle use
29b0: 72 2d 64 61 74 61 20 74 68 65 72 65 66 6f 72 65 r-data therefore
29c0: 20 6e 6f 20 77 61 79 20 77 69 74 68 6f 75 74 20 no way without
29d0: 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 61 72 69 a global. * vari
29e0: 61 62 6c 65 20 74 6f 20 61 63 63 65 73 73 20 74 able to access t
29f0: 68 65 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74 he Tcl interpret
2a00: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e er..*/.static in
2a10: 74 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 t.PasswordCallba
2a20: 63 6b 28 0a 20 20 20 20 54 43 4c 5f 55 4e 55 53 ck(. TCL_UNUS
2a30: 45 44 28 63 68 61 72 20 2a 29 20 2f 2a 20 62 75 ED(char *) /* bu
2a40: 66 20 2a 2f 2c 0a 20 20 20 20 54 43 4c 5f 55 4e f */,. TCL_UN
2a50: 55 53 45 44 28 69 6e 74 29 20 2f 2a 20 73 69 7a USED(int) /* siz
2a60: 65 20 2a 2f 2c 0a 20 20 20 20 54 43 4c 5f 55 4e e */,. TCL_UN
2a70: 55 53 45 44 28 69 6e 74 29 20 2f 2a 20 76 65 72 USED(int) /* ver
2a80: 69 66 79 20 2a 2f 29 0a 7b 0a 20 20 20 20 72 65 ify */).{. re
2a90: 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 65 6c 73 65 turn -1;.}.#else
2aa0: 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 61 73 73 .static int.Pass
2ab0: 77 6f 72 64 43 61 6c 6c 62 61 63 6b 28 0a 20 20 wordCallback(.
2ac0: 20 20 63 68 61 72 20 2a 62 75 66 2c 0a 20 20 20 char *buf,.
2ad0: 20 69 6e 74 20 73 69 7a 65 2c 0a 20 20 20 20 54 int size,. T
2ae0: 43 4c 5f 55 4e 55 53 45 44 28 69 6e 74 29 2c 20 CL_UNUSED(int),
2af0: 2f 2a 20 76 65 72 69 66 79 20 2a 2f 0a 20 20 20 /* verify */.
2b00: 20 76 6f 69 64 20 2a 75 64 61 74 61 29 0a 7b 0a void *udata).{.
2b10: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 State *state
2b20: 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr.= (State *)
2b30: 75 64 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 49 udata;. Tcl_I
2b40: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 09 3d 20 nterp *interp.=
2b50: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
2b60: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 ;. Tcl_Obj *c
2b70: 6d 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 72 mdPtr;. int r
2b80: 65 73 75 6c 74 3b 0a 0a 20 20 20 20 64 70 72 69 esult;.. dpri
2b90: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
2ba0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
2bb0: 2d 3e 70 61 73 73 77 6f 72 64 20 3d 3d 20 4e 55 ->password == NU
2bc0: 4c 4c 29 20 7b 0a 09 69 66 20 28 54 63 6c 5f 45 LL) {..if (Tcl_E
2bd0: 76 61 6c 45 78 28 69 6e 74 65 72 70 2c 20 22 74 valEx(interp, "t
2be0: 6c 73 3a 3a 70 61 73 73 77 6f 72 64 22 2c 20 2d ls::password", -
2bf0: 31 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 1, TCL_EVAL_GLOB
2c00: 41 4c 29 0a 09 09 3d 3d 20 54 43 4c 5f 4f 4b 29 AL)...== TCL_OK)
2c10: 20 7b 0a 09 20 20 20 20 63 6f 6e 73 74 20 63 68 {.. const ch
2c20: 61 72 20 2a 72 65 74 20 3d 20 54 63 6c 5f 47 65 ar *ret = Tcl_Ge
2c30: 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 6e tStringResult(in
2c40: 74 65 72 70 29 3b 0a 09 20 20 20 20 73 74 72 6e terp);.. strn
2c50: 63 70 79 28 62 75 66 2c 20 72 65 74 2c 20 28 73 cpy(buf, ret, (s
2c60: 69 7a 65 5f 74 29 20 73 69 7a 65 29 3b 0a 09 20 ize_t) size);..
2c70: 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74 29 73 return (int)s
2c80: 74 72 6c 65 6e 28 72 65 74 29 3b 0a 09 7d 20 65 trlen(ret);..} e
2c90: 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 74 75 72 lse {.. retur
2ca0: 6e 20 2d 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a n -1;..}. }..
2cb0: 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c cmdPtr = Tcl
2cc0: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74 _DuplicateObj(st
2cd0: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
2ce0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 );.. Tcl_Pres
2cf0: 65 72 76 65 28 28 76 6f 69 64 20 2a 29 20 73 74 erve((void *) st
2d00: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b atePtr->interp);
2d10: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
2d20: 65 28 28 76 6f 69 64 20 2a 29 20 73 74 61 74 65 e((void *) state
2d30: 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 Ptr);.. Tcl_I
2d40: 6e 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 ncrRefCount(cmdP
2d50: 74 72 29 3b 0a 20 20 20 20 72 65 73 75 6c 74 20 tr);. result
2d60: 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 = Tcl_EvalObjEx(
2d70: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 interp, cmdPtr,
2d80: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 TCL_EVAL_GLOBAL)
2d90: 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 ;. if (result
2da0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 != TCL_OK) {..T
2db0: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 cl_BackgroundErr
2dc0: 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 or(statePtr->int
2dd0: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 erp);. }.
2de0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
2df0: 28 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 (cmdPtr);.. T
2e00: 63 6c 5f 52 65 6c 65 61 73 65 28 28 76 6f 69 64 cl_Release((void
2e10: 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 *) statePtr);.
2e20: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 Tcl_Release((
2e30: 76 6f 69 64 20 2a 29 20 73 74 61 74 65 50 74 72 void *) statePtr
2e40: 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 ->interp);..
2e50: 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 54 43 if (result == TC
2e60: 4c 5f 4f 4b 29 20 7b 0a 09 63 6f 6e 73 74 20 63 L_OK) {..const c
2e70: 68 61 72 20 2a 72 65 74 20 3d 20 54 63 6c 5f 47 har *ret = Tcl_G
2e80: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69 etStringResult(i
2e90: 6e 74 65 72 70 29 3b 0a 09 73 74 72 6e 63 70 79 nterp);..strncpy
2ea0: 28 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 (buf, ret, (size
2eb0: 5f 74 29 20 73 69 7a 65 29 3b 0a 09 72 65 74 75 _t) size);..retu
2ec0: 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 72 rn (int)strlen(r
2ed0: 65 74 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 et);. } else
2ee0: 7b 0a 09 72 65 74 75 72 6e 20 2d 31 3b 0a 20 20 {..return -1;.
2ef0: 20 20 7d 0a 7d 0a 23 65 6e 64 69 66 0a 0c 0a 2f }.}.#endif.../
2f00: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
2f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f40: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 -------. *. * Ci
2f50: 70 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d 20 6c phersObjCmd -- l
2f60: 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 ist available ci
2f70: 70 68 65 72 73 0a 20 2a 0a 20 2a 09 54 68 69 73 phers. *. *.This
2f80: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
2f90: 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 voked to process
2fa0: 20 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 the "tls::ciphe
2fb0: 72 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 rs" command. *.t
2fc0: 6f 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 o list available
2fd0: 20 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 ciphers, based
2fe0: 75 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 upon protocol se
2ff0: 6c 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 lected.. *. * Re
3000: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
3010: 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 dard Tcl result
3020: 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 list.. *. * Side
3030: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e effects:. *.con
3040: 73 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 structs and dest
3050: 72 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 roys SSL context
3060: 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d (CTX). *. *----
3070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
30a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
30b0: 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 */.static const
30c0: 20 63 68 61 72 20 2a 70 72 6f 74 6f 63 6f 6c 73 char *protocols
30d0: 5b 5d 20 3d 20 7b 0a 20 20 20 20 22 73 73 6c 32 [] = {. "ssl2
30e0: 22 2c 20 22 73 73 6c 33 22 2c 20 22 74 6c 73 31 ", "ssl3", "tls1
30f0: 22 2c 20 22 74 6c 73 31 2e 31 22 2c 20 22 74 6c ", "tls1.1", "tl
3100: 73 31 2e 32 22 2c 20 22 74 6c 73 31 2e 33 22 2c s1.2", "tls1.3",
3110: 20 4e 55 4c 4c 0a 7d 3b 0a 65 6e 75 6d 20 70 72 NULL.};.enum pr
3120: 6f 74 6f 63 6f 6c 20 7b 0a 20 20 20 20 54 4c 53 otocol {. TLS
3130: 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c 33 2c _SSL2, TLS_SSL3,
3140: 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 5f 54 TLS_TLS1, TLS_T
3150: 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53 31 5f LS1_1, TLS_TLS1_
3160: 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 2c 20 54 2, TLS_TLS1_3, T
3170: 4c 53 5f 4e 4f 4e 45 0a 7d 3b 0a 0a 73 74 61 74 LS_NONE.};..stat
3180: 69 63 20 69 6e 74 0a 43 69 70 68 65 72 73 4f 62 ic int.CiphersOb
3190: 6a 43 6d 64 28 0a 20 20 20 20 54 43 4c 5f 55 4e jCmd(. TCL_UN
31a0: 55 53 45 44 28 76 6f 69 64 20 2a 29 2c 0a 20 20 USED(void *),.
31b0: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
31c0: 74 65 72 70 2c 0a 20 20 20 20 69 6e 74 20 6f 62 terp,. int ob
31d0: 6a 63 2c 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 jc,. Tcl_Obj.
31e0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 0a 7b *const objv[]).{
31f0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
3200: 6a 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 jPtr = NULL;.
3210: 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 SSL_CTX *ctx =
3220: 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 NULL;. SSL *s
3230: 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 sl = NULL;. S
3240: 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 TACK_OF(SSL_CIPH
3250: 45 52 29 20 2a 73 6b 3b 0a 20 20 20 20 63 6f 6e ER) *sk;. con
3260: 73 74 20 63 68 61 72 20 2a 63 70 3b 0a 20 20 20 st char *cp;.
3270: 20 63 68 61 72 20 62 75 66 5b 42 55 46 53 49 5a char buf[BUFSIZ
3280: 5d 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 78 ];. int index
3290: 2c 20 76 65 72 62 6f 73 65 20 3d 20 30 3b 0a 0a , verbose = 0;..
32a0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
32b0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 led");.. if (
32c0: 28 6f 62 6a 63 20 3c 20 32 29 20 7c 7c 20 28 6f (objc < 2) || (o
32d0: 62 6a 63 20 3e 20 33 29 29 20 7b 0a 09 54 63 6c bjc > 3)) {..Tcl
32e0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
32f0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
3300: 70 72 6f 74 6f 63 6f 6c 20 3f 76 65 72 62 6f 73 protocol ?verbos
3310: 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 e?");..return TC
3320: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
3330: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e if (Tcl_GetIn
3340: 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 dexFromObj(inter
3350: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 p, objv[1], prot
3360: 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c ocols, "protocol
3370: 22 2c 20 30 2c 20 26 69 6e 64 65 78 29 20 21 3d ", 0, &index) !=
3380: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 TCL_OK) {..retu
3390: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
33a0: 20 20 7d 0a 20 20 20 20 69 66 20 28 28 6f 62 6a }. if ((obj
33b0: 63 20 3e 20 32 29 20 26 26 20 54 63 6c 5f 47 65 c > 2) && Tcl_Ge
33c0: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
33d0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
33e0: 20 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 &verbose) != TC
33f0: 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 L_OK) {..return
3400: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
3410: 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 65 6e . switch ((en
3420: 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 um protocol)inde
3430: 78 29 20 7b 0a 20 20 20 20 63 61 73 65 20 54 4c x) {. case TL
3440: 53 5f 53 53 4c 32 3a 0a 09 54 63 6c 5f 41 70 70 S_SSL2:..Tcl_App
3450: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
3460: 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 , protocols[inde
3470: 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 x], ": protocol
3480: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
3490: 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 (char *)NULL);..
34a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
34b0: 3b 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 53 ;. case TLS_S
34c0: 53 4c 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 SL3:.#if defined
34d0: 28 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 64 65 66 (NO_SSL3) || def
34e0: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
34f0: 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 SSL3) || defined
3500: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
3510: 5f 4d 45 54 48 4f 44 29 0a 09 54 63 6c 5f 41 70 _METHOD)..Tcl_Ap
3520: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3530: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
3540: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 supported", (ch
3550: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 65 74 ar *)NULL);..ret
3560: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
3570: 65 6c 73 65 0a 09 63 74 78 20 3d 20 53 53 4c 5f else..ctx = SSL_
3580: 43 54 58 5f 6e 65 77 28 53 53 4c 76 33 5f 6d 65 CTX_new(SSLv3_me
3590: 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a thod()); break;.
35a0: 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 #endif. case
35b0: 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 TLS_TLS1:.#if de
35c0: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 7c fined(NO_TLS1) |
35d0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 | defined(OPENSS
35e0: 4c 5f 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 65 L_NO_TLS1) || de
35f0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
3600: 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 09 54 _TLS1_METHOD)..T
3610: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3620: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f interp, "protoco
3630: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
3640: 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b , (char *)NULL);
3650: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3660: 4f 52 3b 0a 23 65 6c 73 65 0a 09 63 74 78 20 3d OR;.#else..ctx =
3670: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 SSL_CTX_new(TLS
3680: 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 v1_method()); br
3690: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 eak;.#endif.
36a0: 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a case TLS_TLS1_1:
36b0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
36c0: 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e TLS1_1) || defin
36d0: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
36e0: 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 S1_1) || defined
36f0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
3700: 5f 31 5f 4d 45 54 48 4f 44 29 0a 09 54 63 6c 5f _1_METHOD)..Tcl_
3710: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
3720: 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 erp, protocols[i
3730: 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 ndex], ": protoc
3740: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
3750: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
3760: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
3770: 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 63 74 78 20 ROR;.#else..ctx
3780: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c = SSL_CTX_new(TL
3790: 53 76 31 5f 31 5f 6d 65 74 68 6f 64 28 29 29 3b Sv1_1_method());
37a0: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 break;.#endif.#
37b0: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c if defined(NO_TL
37c0: 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 S1_2) || defined
37d0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
37e0: 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f _2) || defined(O
37f0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 PENSSL_NO_TLS1_2
3800: 5f 4d 45 54 48 4f 44 29 0a 09 54 63 6c 5f 41 70 _METHOD)..Tcl_Ap
3810: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3820: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
3830: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 supported", (ch
3840: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 65 74 ar *)NULL);..ret
3850: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
3860: 65 6c 73 65 0a 09 63 74 78 20 3d 20 53 53 4c 5f else..ctx = SSL_
3870: 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 32 5f CTX_new(TLSv1_2_
3880: 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b method()); break
3890: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 ;.#endif.#if def
38a0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 ined(NO_TLS1_3)
38b0: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
38c0: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c SL_NO_TLS1_3) ||
38d0: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
38e0: 5f 4e 4f 5f 54 4c 53 31 5f 33 5f 4d 45 54 48 4f _NO_TLS1_3_METHO
38f0: 44 29 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 D)..Tcl_AppendRe
3900: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
3910: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
3920: 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 4e rted", (char *)N
3930: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
3940: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 L_ERROR;.#else..
3950: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
3960: 77 28 54 4c 53 5f 6d 65 74 68 6f 64 28 29 29 3b w(TLS_method());
3970: 20 62 72 65 61 6b 3b 0a 09 53 53 4c 5f 43 54 58 break;..SSL_CTX
3980: 5f 73 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f 76 _set_min_proto_v
3990: 65 72 73 69 6f 6e 20 28 63 74 78 2c 20 54 4c 53 ersion (ctx, TLS
39a0: 31 5f 33 5f 56 45 52 53 49 4f 4e 29 3b 0a 09 53 1_3_VERSION);..S
39b0: 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 SL_CTX_set_max_p
39c0: 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 roto_version (ct
39d0: 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f x, TLS1_3_VERSIO
39e0: 4e 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 64 N);.#endif. d
39f0: 65 66 61 75 6c 74 3a 0a 09 09 62 72 65 61 6b 3b efault:...break;
3a00: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 . }. if (c
3a10: 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 tx == NULL) {..T
3a20: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3a30: 69 6e 74 65 72 70 2c 20 47 45 54 5f 45 52 52 5f interp, GET_ERR_
3a40: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 REASON(), (char
3a50: 2a 29 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e *)NULL);..return
3a60: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3a70: 7d 0a 20 20 20 20 73 73 6c 20 3d 20 53 53 4c 5f }. ssl = SSL_
3a80: 6e 65 77 28 63 74 78 29 3b 0a 20 20 20 20 69 66 new(ctx);. if
3a90: 20 28 73 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b (ssl == NULL) {
3aa0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
3ab0: 6c 74 28 69 6e 74 65 72 70 2c 20 47 45 54 5f 45 lt(interp, GET_E
3ac0: 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 RR_REASON(), (ch
3ad0: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 53 53 4c ar *)NULL);..SSL
3ae0: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a _CTX_free(ctx);.
3af0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3b00: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f 62 6a R;. }. obj
3b10: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Ptr = Tcl_NewLis
3b20: 74 4f 62 6a 28 20 30 2c 20 4e 55 4c 4c 29 3b 0a tObj( 0, NULL);.
3b30: 0a 20 20 20 20 69 66 20 28 21 76 65 72 62 6f 73 . if (!verbos
3b40: 65 29 20 7b 0a 09 66 6f 72 20 28 69 6e 64 65 78 e) {..for (index
3b50: 20 3d 20 30 3b 20 3b 20 69 6e 64 65 78 2b 2b 29 = 0; ; index++)
3b60: 20 7b 0a 09 20 20 20 20 63 70 20 3d 20 28 63 68 {.. cp = (ch
3b70: 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 ar*)SSL_get_ciph
3b80: 65 72 5f 6c 69 73 74 28 20 73 73 6c 2c 20 69 6e er_list( ssl, in
3b90: 64 65 78 29 3b 0a 09 20 20 20 20 69 66 20 28 63 dex);.. if (c
3ba0: 70 20 3d 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b p == NULL) break
3bb0: 3b 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f ;.. Tcl_ListO
3bc0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
3bd0: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c interp, objPtr,
3be0: 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 ...Tcl_NewString
3bf0: 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 3b 0a Obj( cp, -1) );.
3c00: 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a .}. } else {.
3c10: 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 5f 63 69 .sk = SSL_get_ci
3c20: 70 68 65 72 73 28 73 73 6c 29 3b 0a 0a 09 66 6f phers(ssl);...fo
3c30: 72 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 69 6e r (index = 0; in
3c40: 64 65 78 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 dex < sk_SSL_CIP
3c50: 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 6e 64 HER_num(sk); ind
3c60: 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 73 69 7a ex++) {.. siz
3c70: 65 5f 74 20 69 3b 0a 09 20 20 20 20 53 53 4c 5f e_t i;.. SSL_
3c80: 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 74 69 CIPHER_descripti
3c90: 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 on( sk_SSL_CIPHE
3ca0: 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 R_value( sk, ind
3cb0: 65 78 29 2c 0a 09 09 09 09 20 20 20 20 62 75 66 ex),..... buf
3cc0: 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 3b 0a , sizeof(buf));.
3cd0: 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 73 74 . for (i = st
3ce0: 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b 20 69 rlen(buf) - 1; i
3cf0: 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 20 28 ; i--) {...if (
3d00: 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 20 7c 7c buf[i] == ' ' ||
3d10: 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 6e 27 20 buf[i] == '\n'
3d20: 7c 7c 0a 09 09 20 20 20 20 62 75 66 5b 69 5d 20 ||... buf[i]
3d30: 3d 3d 20 27 5c 72 27 20 7c 7c 20 62 75 66 5b 69 == '\r' || buf[i
3d40: 5d 20 3d 3d 20 27 5c 74 27 29 20 7b 0a 09 09 20 ] == '\t') {...
3d50: 20 20 20 62 75 66 5b 69 5d 20 3d 20 27 5c 30 27 buf[i] = '\0'
3d60: 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 ;...} else {...
3d70: 20 20 20 62 72 65 61 6b 3b 0a 09 09 7d 0a 09 20 break;...}..
3d80: 20 20 20 7d 0a 09 20 20 20 20 54 63 6c 5f 4c 69 }.. Tcl_Li
3d90: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
3da0: 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 nt( interp, objP
3db0: 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 tr,...Tcl_NewStr
3dc0: 69 6e 67 4f 62 6a 28 20 62 75 66 2c 20 2d 31 29 ingObj( buf, -1)
3dd0: 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 );..}. }.
3de0: 20 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a SSL_free(ssl);.
3df0: 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 SSL_CTX_free
3e00: 28 63 74 78 29 3b 0a 0a 20 20 20 20 54 63 6c 5f (ctx);.. Tcl_
3e10: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
3e20: 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 erp, objPtr);.
3e30: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3e40: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
3e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3e90: 0a 20 2a 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a . * HandshakeObj
3ea0: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 Cmd --. *. *.Thi
3eb0: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 75 73 65 s command is use
3ec0: 64 20 74 6f 20 76 65 72 69 66 79 20 77 68 65 74 d to verify whet
3ed0: 68 65 72 20 74 68 65 20 68 61 6e 64 73 68 61 6b her the handshak
3ee0: 65 20 69 73 20 63 6f 6d 70 6c 65 74 65 0a 20 2a e is complete. *
3ef0: 09 6f 72 20 6e 6f 74 2e 0a 20 2a 0a 20 2a 20 52 .or not.. *. * R
3f00: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
3f10: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
3f20: 2e 20 31 20 6d 65 61 6e 73 20 68 61 6e 64 73 68 . 1 means handsh
3f30: 61 6b 65 20 63 6f 6d 70 6c 65 74 65 2c 20 30 20 ake complete, 0
3f40: 6d 65 61 6e 73 20 70 65 6e 64 69 6e 67 2e 0a 20 means pending..
3f50: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3f60: 73 3a 0a 20 2a 09 4d 61 79 20 66 6f 72 63 65 20 s:. *.May force
3f70: 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20 SSL negotiation
3f80: 74 6f 20 74 61 6b 65 20 70 6c 61 63 65 2e 0a 20 to take place..
3f90: 2a 0a 20 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fd0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 -------. */..sta
3fe0: 74 69 63 20 69 6e 74 20 48 61 6e 64 73 68 61 6b tic int Handshak
3ff0: 65 4f 62 6a 43 6d 64 28 0a 20 20 20 20 54 43 4c eObjCmd(. TCL
4000: 5f 55 4e 55 53 45 44 28 76 6f 69 64 20 2a 29 2c _UNUSED(void *),
4010: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
4020: 2a 69 6e 74 65 72 70 2c 0a 20 20 20 20 69 6e 74 *interp,. int
4030: 20 6f 62 6a 63 2c 0a 20 20 20 20 54 63 6c 5f 4f objc,. Tcl_O
4040: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
4050: 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ).{. Tcl_Chan
4060: 6e 65 6c 20 63 68 61 6e 3b 20 20 20 20 20 20 20 nel chan;
4070: 20 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 /* The channel
4080: 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e to set a mode on
4090: 2e 20 2a 2f 0a 20 20 20 20 53 74 61 74 65 20 2a . */. State *
40a0: 73 74 61 74 65 50 74 72 3b 20 20 20 20 20 20 20 statePtr;
40b0: 20 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 74 65 /* client state
40c0: 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 74 20 for ssl socket
40d0: 2a 2f 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 */. const cha
40e0: 72 20 2a 65 72 72 53 74 72 20 3d 20 4e 55 4c 4c r *errStr = NULL
40f0: 3b 0a 20 20 20 20 69 6e 74 20 72 65 74 20 3d 20 ;. int ret =
4100: 31 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 20 3d 1;. int err =
4110: 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 0;.. dprintf
4120: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
4130: 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 if (objc != 2)
4140: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
4150: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
4160: 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b bjv, "channel");
4170: 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 ..return(TCL_ERR
4180: 4f 52 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 OR);. }..
4190: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
41a0: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 annel(interp, Tc
41b0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
41c0: 5b 31 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 [1]), NULL);.
41d0: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 if (chan == (Tc
41e0: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
41f0: 20 7b 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 {..return(TCL_E
4200: 52 52 4f 52 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 RROR);. }..
4210: 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 /* Make sure t
4220: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
4230: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
4240: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 */. chan = T
4250: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c cl_GetTopChannel
4260: 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 (chan);. if (
4270: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 Tcl_GetChannelTy
4280: 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f pe(chan) != Tls_
4290: 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b ChannelType()) {
42a0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
42b0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 lt(interp, "bad
42c0: 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c channel \"", Tcl
42d0: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
42e0: 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f chan),..."\": no
42f0: 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 t a TLS channel"
4300: 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b , (char *)NULL);
4310: 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f ..Tcl_SetErrorCo
4320: 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c 53 22 de(interp, "TLS"
4330: 2c 20 22 48 41 4e 44 53 48 41 4b 45 22 2c 20 22 , "HANDSHAKE", "
4340: 43 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c CHANNEL", "INVAL
4350: 49 44 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c ID", (char *)NUL
4360: 4c 29 3b 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f L);..return(TCL_
4370: 45 52 52 4f 52 29 3b 0a 20 20 20 20 7d 0a 20 20 ERROR);. }.
4380: 20 20 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 statePtr = (St
4390: 61 74 65 20 2a 29 54 63 6c 5f 47 65 74 43 68 61 ate *)Tcl_GetCha
43a0: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
43b0: 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 64 70 72 (chan);.. dpr
43c0: 69 6e 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c intf("Calling Tl
43d0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
43e0: 22 29 3b 0a 20 20 20 20 72 65 74 20 3d 20 54 6c ");. ret = Tl
43f0: 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 s_WaitForConnect
4400: 28 73 74 61 74 65 50 74 72 2c 20 26 65 72 72 2c (statePtr, &err,
4410: 20 31 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 1);. dprintf
4420: 28 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e ("Tls_WaitForCon
4430: 6e 65 63 74 20 72 65 74 75 72 6e 65 64 3a 20 25 nect returned: %
4440: 69 22 2c 20 72 65 74 29 3b 0a 0a 20 20 20 20 69 i", ret);.. i
4450: 66 20 28 72 65 74 20 3c 20 30 20 26 26 20 28 28 f (ret < 0 && ((
4460: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
4470: 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 & TLS_TCL_ASYNC)
4480: 20 26 26 20 28 65 72 72 20 3d 3d 20 45 41 47 41 && (err == EAGA
4490: 49 4e 29 29 29 20 7b 0a 09 64 70 72 69 6e 74 66 IN))) {..dprintf
44a0: 28 22 41 73 79 6e 63 20 73 65 74 20 61 6e 64 20 ("Async set and
44b0: 65 72 72 20 3d 20 45 41 47 41 49 4e 22 29 3b 0a err = EAGAIN");.
44c0: 09 72 65 74 20 3d 20 30 3b 0a 20 20 20 20 7d 20 .ret = 0;. }
44d0: 65 6c 73 65 20 69 66 20 28 72 65 74 20 3c 20 30 else if (ret < 0
44e0: 29 20 7b 0a 09 6c 6f 6e 67 20 72 65 73 75 6c 74 ) {..long result
44f0: 3b 0a 09 65 72 72 53 74 72 20 3d 20 73 74 61 74 ;..errStr = stat
4500: 65 50 74 72 2d 3e 65 72 72 3b 0a 09 54 63 6c 5f ePtr->err;..Tcl_
4510: 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 ResetResult(inte
4520: 72 70 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 rp);..Tcl_SetErr
4530: 6e 6f 28 65 72 72 29 3b 0a 0a 09 69 66 20 28 21 no(err);...if (!
4540: 65 72 72 53 74 72 20 7c 7c 20 28 2a 65 72 72 53 errStr || (*errS
4550: 74 72 20 3d 3d 20 30 29 29 20 7b 0a 09 20 20 20 tr == 0)) {..
4560: 20 65 72 72 53 74 72 20 3d 20 54 63 6c 5f 50 6f errStr = Tcl_Po
4570: 73 69 78 45 72 72 6f 72 28 69 6e 74 65 72 70 29 sixError(interp)
4580: 3b 0a 09 7d 0a 0a 09 54 63 6c 5f 41 70 70 65 6e ;..}...Tcl_Appen
4590: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
45a0: 22 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c 65 "handshake faile
45b0: 64 3a 20 22 2c 20 65 72 72 53 74 72 2c 20 28 63 d: ", errStr, (c
45c0: 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 69 66 har *)NULL);..if
45d0: 20 28 28 72 65 73 75 6c 74 20 3d 20 53 53 4c 5f ((result = SSL_
45e0: 67 65 74 5f 76 65 72 69 66 79 5f 72 65 73 75 6c get_verify_resul
45f0: 74 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 t(statePtr->ssl)
4600: 29 20 21 3d 20 58 35 30 39 5f 56 5f 4f 4b 29 20 ) != X509_V_OK)
4610: 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e {.. Tcl_Appen
4620: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
4630: 22 20 64 75 65 20 74 6f 20 5c 22 22 2c 20 58 35 " due to \"", X5
4640: 30 39 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 09_verify_cert_e
4650: 72 72 6f 72 5f 73 74 72 69 6e 67 28 72 65 73 75 rror_string(resu
4660: 6c 74 29 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 lt), "\"", (char
4670: 20 2a 29 4e 55 4c 4c 29 3b 0a 09 7d 0a 09 54 63 *)NULL);..}..Tc
4680: 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 69 l_SetErrorCode(i
4690: 6e 74 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 48 nterp, "TLS", "H
46a0: 41 4e 44 53 48 41 4b 45 22 2c 20 22 46 41 49 4c ANDSHAKE", "FAIL
46b0: 45 44 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c ED", (char *)NUL
46c0: 4c 29 3b 0a 09 64 70 72 69 6e 74 66 28 22 52 65 L);..dprintf("Re
46d0: 74 75 72 6e 69 6e 67 20 54 43 4c 5f 45 52 52 4f turning TCL_ERRO
46e0: 52 20 77 69 74 68 20 68 61 6e 64 73 68 61 6b 65 R with handshake
46f0: 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 65 72 failed: %s", er
4700: 72 53 74 72 29 3b 0a 09 72 65 74 75 72 6e 28 54 rStr);..return(T
4710: 43 4c 5f 45 52 52 4f 52 29 3b 0a 20 20 20 20 7d CL_ERROR);. }
4720: 20 65 6c 73 65 20 7b 0a 09 69 66 20 28 65 72 72 else {..if (err
4730: 20 21 3d 20 30 29 20 7b 0a 09 20 20 20 20 64 70 != 0) {.. dp
4740: 72 69 6e 74 66 28 22 47 6f 74 20 61 6e 20 65 72 rintf("Got an er
4750: 72 6f 72 20 77 69 74 68 20 61 20 63 6f 6d 70 6c ror with a compl
4760: 65 74 65 64 20 68 61 6e 64 73 68 61 6b 65 3a 20 eted handshake:
4770: 65 72 72 20 3d 20 25 69 22 2c 20 65 72 72 29 3b err = %i", err);
4780: 0a 09 7d 0a 09 72 65 74 20 3d 20 31 3b 0a 20 20 ..}..ret = 1;.
4790: 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 }.. dprintf
47a0: 28 22 52 65 74 75 72 6e 69 6e 67 20 54 43 4c 5f ("Returning TCL_
47b0: 4f 4b 20 77 69 74 68 20 64 61 74 61 20 5c 22 25 OK with data \"%
47c0: 69 5c 22 22 2c 20 72 65 74 29 3b 0a 20 20 20 20 i\"", ret);.
47d0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
47e0: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
47f0: 49 6e 74 4f 62 6a 28 72 65 74 29 29 3b 0a 20 20 IntObj(ret));.
4800: 20 20 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 return(TCL_OK)
4810: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
4820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4830: 2d 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 0a 20 2a -------------. *
4860: 0a 20 2a 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 . * ImportObjCmd
4870: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 --. *. *.This p
4880: 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f rocedure is invo
4890: 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 ked to process t
48a0: 68 65 20 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 he "ssl" command
48b0: 0a 20 2a 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 . *. *.The ssl c
48c0: 6f 6d 6d 61 6e 64 20 70 75 73 68 65 73 20 53 53 ommand pushes SS
48d0: 4c 20 6f 76 65 72 20 61 20 28 6e 65 77 6c 79 20 L over a (newly
48e0: 63 6f 6e 6e 65 63 74 65 64 29 20 74 63 70 20 73 connected) tcp s
48f0: 6f 63 6b 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 ocket. *. * Resu
4900: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
4910: 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 rd Tcl result..
4920: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
4930: 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 s:. *.May modify
4940: 20 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 the behavior of
4950: 20 61 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a an IO channel..
4960: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
4970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 --------. */..st
49b0: 61 74 69 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f atic int.ImportO
49c0: 62 6a 43 6d 64 28 0a 20 20 20 20 54 43 4c 5f 55 bjCmd(. TCL_U
49d0: 4e 55 53 45 44 28 76 6f 69 64 20 2a 29 2c 0a 20 NUSED(void *),.
49e0: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 Tcl_Interp *i
49f0: 6e 74 65 72 70 2c 0a 20 20 20 20 69 6e 74 20 6f nterp,. int o
4a00: 62 6a 63 2c 0a 20 20 20 20 54 63 6c 5f 4f 62 6a bjc,. Tcl_Obj
4a10: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 0a *const objv[]).
4a20: 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 {. Tcl_Channe
4a30: 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20 l chan;../* The
4a40: 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61 channel to set a
4a50: 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20 mode on. */.
4a60: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 State *statePtr
4a70: 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61 ;../* client sta
4a80: 74 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65 te for ssl socke
4a90: 74 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 t */. SSL_CTX
4aa0: 20 2a 63 74 78 09 09 3d 20 4e 55 4c 4c 3b 0a 20 *ctx..= NULL;.
4ab0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 Tcl_Obj *scri
4ac0: 70 74 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 pt..= NULL;.
4ad0: 54 63 6c 5f 4f 62 6a 20 2a 70 61 73 73 77 6f 72 Tcl_Obj *passwor
4ae0: 64 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 d..= NULL;. T
4af0: 63 6c 5f 44 53 74 72 69 6e 67 20 75 70 70 65 72 cl_DString upper
4b00: 43 68 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 ChannelTranslati
4b10: 6f 6e 2c 20 75 70 70 65 72 43 68 61 6e 6e 65 6c on, upperChannel
4b20: 42 6c 6f 63 6b 69 6e 67 2c 20 75 70 70 65 72 43 Blocking, upperC
4b30: 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 2c 20 hannelEncoding,
4b40: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 upperChannelEOFC
4b50: 68 61 72 3b 0a 20 20 20 20 69 6e 74 20 69 64 78 har;. int idx
4b60: 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 6c ;. Tcl_Size l
4b70: 65 6e 3b 0a 20 20 20 20 69 6e 74 20 66 6c 61 67 en;. int flag
4b80: 73 09 09 09 3d 20 54 4c 53 5f 54 43 4c 5f 49 4e s...= TLS_TCL_IN
4b90: 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 76 IT;. int serv
4ba0: 65 72 09 09 09 3d 20 30 3b 09 2f 2a 20 69 73 20 er...= 0;./* is
4bb0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d connection incom
4bc0: 69 6e 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f ing or outgoing?
4bd0: 20 2a 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 */. char *ke
4be0: 79 66 69 6c 65 09 09 3d 20 4e 55 4c 4c 3b 0a 20 yfile..= NULL;.
4bf0: 20 20 20 63 68 61 72 20 2a 63 65 72 74 66 69 6c char *certfil
4c00: 65 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 e..= NULL;. u
4c10: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 nsigned char *ke
4c20: 79 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 y..= NULL;. T
4c30: 63 6c 5f 53 69 7a 65 20 6b 65 79 5f 6c 65 6e 09 cl_Size key_len.
4c40: 09 3d 20 30 3b 0a 20 20 20 20 75 6e 73 69 67 6e .= 0;. unsign
4c50: 65 64 20 63 68 61 72 20 2a 63 65 72 74 09 09 3d ed char *cert..=
4c60: 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 53 NULL;. Tcl_S
4c70: 69 7a 65 20 63 65 72 74 5f 6c 65 6e 09 09 3d 20 ize cert_len..=
4c80: 30 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 0;. char *cip
4c90: 68 65 72 73 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 hers..= NULL;.
4ca0: 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 09 09 char *CAfile..
4cb0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 = NULL;. char
4cc0: 20 2a 43 41 64 69 72 09 09 09 3d 20 4e 55 4c 4c *CAdir...= NULL
4cd0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 44 48 70 61 ;. char *DHpa
4ce0: 72 61 6d 73 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 rams..= NULL;.
4cf0: 20 20 63 68 61 72 20 2a 6d 6f 64 65 6c 09 09 09 char *model...
4d00: 3d 20 4e 55 4c 4c 3b 0a 23 69 66 6e 64 65 66 20 = NULL;.#ifndef
4d10: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 OPENSSL_NO_TLSEX
4d20: 54 0a 20 20 20 20 63 68 61 72 20 2a 73 65 72 76 T. char *serv
4d30: 65 72 6e 61 6d 65 09 09 3d 20 4e 55 4c 4c 3b 09 ername..= NULL;.
4d40: 2f 2a 20 68 6f 73 74 6e 61 6d 65 20 66 6f 72 20 /* hostname for
4d50: 53 65 72 76 65 72 20 4e 61 6d 65 20 49 6e 64 69 Server Name Indi
4d60: 63 61 74 69 6f 6e 20 2a 2f 0a 23 65 6e 64 69 66 cation */.#endif
4d70: 0a 20 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 . int ssl2 =
4d80: 30 2c 20 73 73 6c 33 20 3d 20 30 3b 0a 20 20 20 0, ssl3 = 0;.
4d90: 20 69 6e 74 20 74 6c 73 31 20 3d 20 31 2c 20 74 int tls1 = 1, t
4da0: 6c 73 31 5f 31 20 3d 20 31 2c 20 74 6c 73 31 5f ls1_1 = 1, tls1_
4db0: 32 20 3d 20 31 2c 20 74 6c 73 31 5f 33 20 3d 20 2 = 1, tls1_3 =
4dc0: 31 3b 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 6f 1;. int proto
4dd0: 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 76 65 = 0;. int ve
4de0: 72 69 66 79 20 3d 20 30 2c 20 72 65 71 75 69 72 rify = 0, requir
4df0: 65 20 3d 20 30 2c 20 72 65 71 75 65 73 74 20 3d e = 0, request =
4e00: 20 31 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 1;.. dprintf
4e10: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 23 69 66 ("Called");..#if
4e20: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
4e30: 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f ) && defined(NO_
4e40: 54 4c 53 31 5f 31 29 20 26 26 20 64 65 66 69 6e TLS1_1) && defin
4e50: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 ed(NO_TLS1_2) &&
4e60: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
4e70: 5f 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 _3) && !defined(
4e80: 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 73 73 6c NO_SSL3). ssl
4e90: 33 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 3 = 1;.#endif.#i
4ea0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
4eb0: 31 29 0a 20 20 20 20 74 6c 73 31 20 3d 20 30 3b 1). tls1 = 0;
4ec0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 .#endif.#if defi
4ed0: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 0a 20 ned(NO_TLS1_1).
4ee0: 20 20 20 74 6c 73 31 5f 31 20 3d 20 30 3b 0a 23 tls1_1 = 0;.#
4ef0: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
4f00: 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20 20 20 d(NO_TLS1_2).
4f10: 20 74 6c 73 31 5f 32 20 3d 20 30 3b 0a 23 65 6e tls1_2 = 0;.#en
4f20: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 dif.#if defined(
4f30: 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 20 74 NO_TLS1_3). t
4f40: 6c 73 31 5f 33 20 3d 20 30 3b 0a 23 65 6e 64 69 ls1_3 = 0;.#endi
4f50: 66 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 f.. if (objc
4f60: 3c 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e < 2) {..Tcl_Wron
4f70: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
4f80: 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 1, objv, "chann
4f90: 65 6c 20 3f 6f 70 74 69 6f 6e 73 3f 22 29 3b 0a el ?options?");.
4fa0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
4fb0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 R;. }.. ch
4fc0: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
4fd0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f nel(interp, Tcl_
4fe0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
4ff0: 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 ]), NULL);. i
5000: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f f (chan == (Tcl_
5010: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
5020: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5030: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
5040: 2a 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 *. * Make su
5050: 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e re to operate on
5060: 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 the topmost cha
5070: 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 nnel. */.
5080: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 chan = Tcl_GetT
5090: 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b opChannel(chan);
50a0: 0a 0a 20 20 20 20 66 6f 72 20 28 69 64 78 20 3d .. for (idx =
50b0: 20 32 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 2; idx < objc;
50c0: 69 64 78 2b 2b 29 20 7b 0a 09 63 68 61 72 20 2a idx++) {..char *
50d0: 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 opt = Tcl_GetStr
50e0: 69 6e 67 28 6f 62 6a 76 5b 69 64 78 5d 29 3b 0a ing(objv[idx]);.
50f0: 0a 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 ..if (opt[0] !=
5100: 27 2d 27 29 0a 09 20 20 20 20 62 72 65 61 6b 3b '-').. break;
5110: 0a 0a 09 4f 50 54 53 54 52 28 22 2d 63 61 64 69 ...OPTSTR("-cadi
5120: 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 4f 50 54 r", CAdir);..OPT
5130: 53 54 52 28 22 2d 63 61 66 69 6c 65 22 2c 20 43 STR("-cafile", C
5140: 41 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 28 Afile);..OPTSTR(
5150: 22 2d 63 65 72 74 66 69 6c 65 22 2c 20 63 65 72 "-certfile", cer
5160: 74 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 28 tfile);..OPTSTR(
5170: 22 2d 63 69 70 68 65 72 22 2c 20 63 69 70 68 65 "-cipher", ciphe
5180: 72 73 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 63 rs);..OPTOBJ("-c
5190: 6f 6d 6d 61 6e 64 22 2c 20 73 63 72 69 70 74 29 ommand", script)
51a0: 3b 0a 09 4f 50 54 53 54 52 28 22 2d 64 68 70 61 ;..OPTSTR("-dhpa
51b0: 72 61 6d 73 22 2c 20 44 48 70 61 72 61 6d 73 29 rams", DHparams)
51c0: 3b 0a 09 4f 50 54 53 54 52 28 22 2d 6b 65 79 66 ;..OPTSTR("-keyf
51d0: 69 6c 65 22 2c 20 6b 65 79 66 69 6c 65 29 3b 0a ile", keyfile);.
51e0: 09 4f 50 54 53 54 52 28 22 2d 6d 6f 64 65 6c 22 .OPTSTR("-model"
51f0: 2c 20 6d 6f 64 65 6c 29 3b 0a 09 4f 50 54 4f 42 , model);..OPTOB
5200: 4a 28 22 2d 70 61 73 73 77 6f 72 64 22 2c 20 70 J("-password", p
5210: 61 73 73 77 6f 72 64 29 3b 0a 09 4f 50 54 42 4f assword);..OPTBO
5220: 4f 4c 28 22 2d 72 65 71 75 69 72 65 22 2c 20 72 OL("-require", r
5230: 65 71 75 69 72 65 29 3b 0a 09 4f 50 54 42 4f 4f equire);..OPTBOO
5240: 4c 28 22 2d 72 65 71 75 65 73 74 22 2c 20 72 65 L("-request", re
5250: 71 75 65 73 74 29 3b 0a 09 4f 50 54 42 4f 4f 4c quest);..OPTBOOL
5260: 28 22 2d 73 65 72 76 65 72 22 2c 20 73 65 72 76 ("-server", serv
5270: 65 72 29 3b 0a 23 69 66 6e 64 65 66 20 4f 50 45 er);.#ifndef OPE
5280: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 09 NSSL_NO_TLSEXT..
5290: 4f 50 54 53 54 52 28 20 22 2d 73 65 72 76 65 72 OPTSTR( "-server
52a0: 6e 61 6d 65 22 2c 20 73 65 72 76 65 72 6e 61 6d name", servernam
52b0: 65 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 4f 50 54 e);.#endif...OPT
52c0: 42 4f 4f 4c 28 22 2d 73 73 6c 32 22 2c 20 73 73 BOOL("-ssl2", ss
52d0: 6c 32 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 22 2d l2);..OPTBOOL("-
52e0: 73 73 6c 33 22 2c 20 73 73 6c 33 29 3b 0a 09 4f ssl3", ssl3);..O
52f0: 50 54 42 4f 4f 4c 28 22 2d 74 6c 73 31 22 2c 20 PTBOOL("-tls1",
5300: 74 6c 73 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 tls1);..OPTBOOL(
5310: 22 2d 74 6c 73 31 2e 31 22 2c 20 74 6c 73 31 5f "-tls1.1", tls1_
5320: 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 22 2d 74 1);..OPTBOOL("-t
5330: 6c 73 31 2e 32 22 2c 20 74 6c 73 31 5f 32 29 3b ls1.2", tls1_2);
5340: 0a 09 4f 50 54 42 4f 4f 4c 28 22 2d 74 6c 73 31 ..OPTBOOL("-tls1
5350: 2e 33 22 2c 20 74 6c 73 31 5f 33 29 0a 09 4f 50 .3", tls1_3)..OP
5360: 54 42 59 54 45 28 22 2d 63 65 72 74 22 2c 20 63 TBYTE("-cert", c
5370: 65 72 74 2c 20 63 65 72 74 5f 6c 65 6e 29 3b 0a ert, cert_len);.
5380: 09 4f 50 54 42 59 54 45 28 22 2d 6b 65 79 22 2c .OPTBYTE("-key",
5390: 20 6b 65 79 2c 20 6b 65 79 5f 6c 65 6e 29 3b 0a key, key_len);.
53a0: 0a 09 4f 50 54 42 41 44 28 22 6f 70 74 69 6f 6e ..OPTBAD("option
53b0: 22 2c 20 22 2d 63 61 64 69 72 2c 20 2d 63 61 66 ", "-cadir, -caf
53c0: 69 6c 65 2c 20 2d 63 65 72 74 2c 20 2d 63 65 72 ile, -cert, -cer
53d0: 74 66 69 6c 65 2c 20 2d 63 69 70 68 65 72 2c 20 tfile, -cipher,
53e0: 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 64 68 70 61 72 -command, -dhpar
53f0: 61 6d 73 2c 20 2d 6b 65 79 2c 20 2d 6b 65 79 66 ams, -key, -keyf
5400: 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c 20 2d 70 61 ile, -model, -pa
5410: 73 73 77 6f 72 64 2c 20 2d 72 65 71 75 69 72 65 ssword, -require
5420: 2c 20 2d 72 65 71 75 65 73 74 2c 20 2d 73 65 72 , -request, -ser
5430: 76 65 72 2c 20 2d 73 65 72 76 65 72 6e 61 6d 65 ver, -servername
5440: 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 , -ssl2, -ssl3,
5450: 2d 74 6c 73 31 2c 20 2d 74 6c 73 31 2e 31 2c 20 -tls1, -tls1.1,
5460: 2d 74 6c 73 31 2e 32 2c 20 6f 72 20 74 6c 73 31 -tls1.2, or tls1
5470: 2e 33 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 54 .3");...return T
5480: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
5490: 20 20 20 20 69 66 20 28 72 65 71 75 65 73 74 29 if (request)
54a0: 09 20 20 20 20 76 65 72 69 66 79 20 7c 3d 20 53 . verify |= S
54b0: 53 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45 4e 54 SL_VERIFY_CLIENT
54c0: 5f 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45 52 49 _ONCE | SSL_VERI
54d0: 46 59 5f 50 45 45 52 3b 0a 20 20 20 20 69 66 20 FY_PEER;. if
54e0: 28 72 65 71 75 65 73 74 20 26 26 20 72 65 71 75 (request && requ
54f0: 69 72 65 29 20 76 65 72 69 66 79 20 7c 3d 20 53 ire) verify |= S
5500: 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c 5f 49 SL_VERIFY_FAIL_I
5510: 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 3b 0a F_NO_PEER_CERT;.
5520: 20 20 20 20 69 66 20 28 76 65 72 69 66 79 20 3d if (verify =
5530: 3d 20 30 29 09 76 65 72 69 66 79 20 3d 20 53 53 = 0).verify = SS
5540: 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a L_VERIFY_NONE;..
5550: 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 proto |= (ss
5560: 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 l2 ? TLS_PROTO_S
5570: 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 SL2 : 0);. pr
5580: 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f 20 54 oto |= (ssl3 ? T
5590: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 LS_PROTO_SSL3 :
55a0: 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 0);. proto |=
55b0: 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 52 4f (tls1 ? TLS_PRO
55c0: 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a 20 20 TO_TLS1 : 0);.
55d0: 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 proto |= (tls1
55e0: 5f 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 _1 ? TLS_PROTO_T
55f0: 4c 53 31 5f 31 20 3a 20 30 29 3b 0a 20 20 20 20 LS1_1 : 0);.
5600: 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 32 proto |= (tls1_2
5610: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 ? TLS_PROTO_TLS
5620: 31 5f 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 1_2 : 0);. pr
5630: 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 33 20 3f oto |= (tls1_3 ?
5640: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
5650: 33 20 3a 20 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 3 : 0);.. /*
5660: 72 65 73 65 74 20 74 6f 20 4e 55 4c 4c 20 69 66 reset to NULL if
5670: 20 62 6c 61 6e 6b 20 73 74 72 69 6e 67 20 70 72 blank string pr
5680: 6f 76 69 64 65 64 20 2a 2f 0a 20 20 20 20 69 66 ovided */. if
5690: 20 28 63 65 72 74 20 26 26 20 21 2a 63 65 72 74 (cert && !*cert
56a0: 29 09 09 20 20 20 20 20 20 20 20 63 65 72 74 09 ).. cert.
56b0: 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a = NULL;.
56c0: 20 20 20 20 69 66 20 28 6b 65 79 20 26 26 20 21 if (key && !
56d0: 2a 6b 65 79 29 09 09 20 20 20 20 20 20 20 20 6b *key).. k
56e0: 65 79 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c ey. = NUL
56f0: 4c 3b 0a 20 20 20 20 69 66 20 28 63 65 72 74 66 L;. if (certf
5700: 69 6c 65 20 26 26 20 21 2a 63 65 72 74 66 69 6c ile && !*certfil
5710: 65 29 20 20 20 20 20 20 20 20 20 63 65 72 74 66 e) certf
5720: 69 6c 65 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ile.= NULL;.
5730: 69 66 20 28 6b 65 79 66 69 6c 65 20 26 26 20 21 if (keyfile && !
5740: 2a 6b 65 79 66 69 6c 65 29 09 09 6b 65 79 66 69 *keyfile)..keyfi
5750: 6c 65 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c le. = NUL
5760: 4c 3b 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 L;. if (ciphe
5770: 72 73 20 26 26 20 21 2a 63 69 70 68 65 72 73 29 rs && !*ciphers)
5780: 09 20 20 20 20 20 20 20 20 63 69 70 68 65 72 73 . ciphers
5790: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b . = NULL;
57a0: 0a 20 20 20 20 69 66 20 28 43 41 66 69 6c 65 20 . if (CAfile
57b0: 26 26 20 21 2a 43 41 66 69 6c 65 29 09 20 20 20 && !*CAfile).
57c0: 20 20 20 20 20 43 41 66 69 6c 65 09 20 20 20 20 CAfile.
57d0: 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 = NULL;.
57e0: 69 66 20 28 43 41 64 69 72 20 26 26 20 21 2a 43 if (CAdir && !*C
57f0: 41 64 69 72 29 09 20 20 20 20 20 20 20 20 43 41 Adir). CA
5800: 64 69 72 09 20 20 20 20 20 20 20 20 3d 20 4e 55 dir. = NU
5810: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 44 48 70 61 LL;. if (DHpa
5820: 72 61 6d 73 20 26 26 20 21 2a 44 48 70 61 72 61 rams && !*DHpara
5830: 6d 73 29 09 20 20 20 20 20 20 20 20 44 48 70 61 ms). DHpa
5840: 72 61 6d 73 20 20 20 20 20 20 20 20 3d 20 4e 55 rams = NU
5850: 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 LL;.. /* new
5860: 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 SSL state */.
5870: 20 73 74 61 74 65 50 74 72 09 09 3d 20 28 53 74 statePtr..= (St
5880: 61 74 65 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 ate *) ckalloc((
5890: 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 6f 66 unsigned) sizeof
58a0: 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 6d 65 (State));. me
58b0: 6d 73 65 74 28 73 74 61 74 65 50 74 72 2c 20 30 mset(statePtr, 0
58c0: 2c 20 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 , sizeof(State))
58d0: 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d ;.. statePtr-
58e0: 3e 66 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b 0a >flags.= flags;.
58f0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 69 6e statePtr->in
5900: 74 65 72 70 09 3d 20 69 6e 74 65 72 70 3b 0a 20 terp.= interp;.
5910: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 76 66 6c statePtr->vfl
5920: 61 67 73 09 3d 20 76 65 72 69 66 79 3b 0a 20 20 ags.= verify;.
5930: 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72 09 statePtr->err.
5940: 3d 20 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 61 6c = "";.. /* al
5950: 6c 6f 63 61 74 65 20 73 63 72 69 70 74 20 2a 2f locate script */
5960: 0a 20 20 20 20 69 66 20 28 73 63 72 69 70 74 29 . if (script)
5970: 20 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 {..(void) Tcl_G
5980: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
5990: 73 63 72 69 70 74 2c 20 26 6c 65 6e 29 3b 0a 09 script, &len);..
59a0: 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 20 if (len) {..
59b0: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 statePtr->callba
59c0: 63 6b 20 3d 20 73 63 72 69 70 74 3b 0a 09 20 20 ck = script;..
59d0: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
59e0: 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c nt(statePtr->cal
59f0: 6c 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d lback);..}. }
5a00: 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 .. /* allocat
5a10: 65 20 70 61 73 73 77 6f 72 64 20 2a 2f 0a 20 20 e password */.
5a20: 20 20 69 66 20 28 70 61 73 73 77 6f 72 64 29 20 if (password)
5a30: 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 {..(void) Tcl_Ge
5a40: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 70 tStringFromObj(p
5a50: 61 73 73 77 6f 72 64 2c 20 26 6c 65 6e 29 3b 0a assword, &len);.
5a60: 09 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 .if (len) {..
5a70: 20 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 statePtr->passw
5a80: 6f 72 64 20 3d 20 70 61 73 73 77 6f 72 64 3b 0a ord = password;.
5a90: 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 . Tcl_IncrRef
5aa0: 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e Count(statePtr->
5ab0: 70 61 73 73 77 6f 72 64 29 3b 0a 09 7d 0a 20 20 password);..}.
5ac0: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 }.. if (mod
5ad0: 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 el != NULL) {..i
5ae0: 6e 74 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 65 74 nt mode;../* Get
5af0: 20 74 68 65 20 22 6d 6f 64 65 6c 22 20 63 6f 6e the "model" con
5b00: 74 65 78 74 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 text */..chan =
5b10: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
5b20: 6e 74 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d nterp, model, &m
5b30: 6f 64 65 29 3b 0a 09 69 66 20 28 63 68 61 6e 20 ode);..if (chan
5b40: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
5b50: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 6c NULL) {.. Tl
5b60: 73 5f 46 72 65 65 28 28 76 6f 69 64 20 2a 29 73 s_Free((void *)s
5b70: 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 72 tatePtr);.. r
5b80: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5b90: 0a 09 7d 0a 0a 09 2f 2a 0a 09 20 2a 20 4d 61 6b ..}.../*.. * Mak
5ba0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
5bb0: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
5bc0: 20 63 68 61 6e 6e 65 6c 0a 09 20 2a 2f 0a 09 63 channel.. */..c
5bd0: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 han = Tcl_GetTop
5be0: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 09 Channel(chan);..
5bf0: 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e if (Tcl_GetChann
5c00: 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 elType(chan) !=
5c10: 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 Tls_ChannelType(
5c20: 29 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 )) {.. Tcl_Ap
5c30: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
5c40: 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 p, "bad channel
5c50: 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e \"", Tcl_GetChan
5c60: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 nelName(chan),..
5c70: 09 20 20 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 . "\": not a
5c80: 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 28 63 TLS channel", (c
5c90: 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 20 20 har *)NULL);..
5ca0: 20 20 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f Tcl_SetErrorCo
5cb0: 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c 53 22 de(interp, "TLS"
5cc0: 2c 20 22 49 4d 50 4f 52 54 22 2c 20 22 43 48 41 , "IMPORT", "CHA
5cd0: 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c 49 44 22 NNEL", "INVALID"
5ce0: 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b , (char *)NULL);
5cf0: 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 .. Tls_Free((
5d00: 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 29 void *)statePtr)
5d10: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
5d20: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 63 74 78 L_ERROR;..}..ctx
5d30: 20 3d 20 28 28 53 74 61 74 65 20 2a 29 54 63 6c = ((State *)Tcl
5d40: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
5d50: 6e 63 65 44 61 74 61 28 63 68 61 6e 29 29 2d 3e nceData(chan))->
5d60: 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ctx;. } else
5d70: 7b 0a 09 69 66 20 28 28 63 74 78 20 3d 20 43 54 {..if ((ctx = CT
5d80: 58 5f 49 6e 69 74 28 73 74 61 74 65 50 74 72 2c X_Init(statePtr,
5d90: 20 73 65 72 76 65 72 2c 20 70 72 6f 74 6f 2c 20 server, proto,
5da0: 6b 65 79 66 69 6c 65 2c 20 63 65 72 74 66 69 6c keyfile, certfil
5db0: 65 2c 20 6b 65 79 2c 0a 09 09 63 65 72 74 2c 20 e, key,...cert,
5dc0: 6b 65 79 5f 6c 65 6e 2c 20 63 65 72 74 5f 6c 65 key_len, cert_le
5dd0: 6e 2c 20 43 41 64 69 72 2c 20 43 41 66 69 6c 65 n, CAdir, CAfile
5de0: 2c 20 63 69 70 68 65 72 73 2c 0a 09 09 44 48 70 , ciphers,...DHp
5df0: 61 72 61 6d 73 29 29 20 3d 3d 20 4e 55 4c 4c 29 arams)) == NULL)
5e00: 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65 {.. Tls_Free
5e10: 28 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 ((void *)statePt
5e20: 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 r);.. return
5e30: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 TCL_ERROR;..}.
5e40: 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 65 50 74 }.. statePt
5e50: 72 2d 3e 63 74 78 20 3d 20 63 74 78 3b 0a 0a 20 r->ctx = ctx;..
5e60: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 57 65 20 /*. * We
5e70: 6e 65 65 64 20 74 6f 20 6d 61 6b 65 20 73 75 72 need to make sur
5e80: 65 20 74 68 61 74 20 74 68 65 20 63 68 61 6e 6e e that the chann
5e90: 65 6c 20 77 6f 72 6b 73 20 69 6e 20 62 69 6e 61 el works in bina
5ea0: 72 79 20 28 66 6f 72 20 74 68 65 0a 20 20 20 20 ry (for the.
5eb0: 20 2a 20 65 6e 63 72 79 70 74 69 6f 6e 20 6e 6f * encryption no
5ec0: 74 20 74 6f 20 67 65 74 20 67 6f 6f 66 65 64 20 t to get goofed
5ed0: 75 70 29 2e 0a 20 20 20 20 20 2a 20 57 65 20 6f up).. * We o
5ee0: 6e 6c 79 20 77 61 6e 74 20 74 6f 20 61 64 6a 75 nly want to adju
5ef0: 73 74 20 74 68 65 20 62 75 66 66 65 72 69 6e 67 st the buffering
5f00: 20 69 6e 20 70 72 65 2d 76 32 20 63 68 61 6e 6e in pre-v2 chann
5f10: 65 6c 73 2c 20 77 68 65 72 65 0a 20 20 20 20 20 els, where.
5f20: 2a 20 65 61 63 68 20 63 68 61 6e 6e 65 6c 20 69 * each channel i
5f30: 6e 20 74 68 65 20 73 74 61 63 6b 20 6d 61 69 6e n the stack main
5f40: 74 61 69 6e 65 64 20 69 74 73 20 6f 77 6e 20 62 tained its own b
5f50: 75 66 66 65 72 73 2e 0a 20 20 20 20 20 2a 2f 0a uffers.. */.
5f60: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 Tcl_DStringI
5f70: 6e 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 nit(&upperChanne
5f80: 6c 54 72 61 6e 73 6c 61 74 69 6f 6e 29 3b 0a 20 lTranslation);.
5f90: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e Tcl_DStringIn
5fa0: 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c it(&upperChannel
5fb0: 42 6c 6f 63 6b 69 6e 67 29 3b 0a 20 20 20 20 54 Blocking);. T
5fc0: 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 cl_DStringInit(&
5fd0: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 upperChannelEOFC
5fe0: 68 61 72 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 har);. Tcl_DS
5ff0: 74 72 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 tringInit(&upper
6000: 43 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 29 ChannelEncoding)
6010: 3b 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 ;. Tcl_GetCha
6020: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
6030: 70 2c 20 63 68 61 6e 2c 20 22 2d 65 6f 66 63 68 p, chan, "-eofch
6040: 61 72 22 2c 20 26 75 70 70 65 72 43 68 61 6e 6e ar", &upperChann
6050: 65 6c 45 4f 46 43 68 61 72 29 3b 0a 20 20 20 20 elEOFChar);.
6060: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_GetChannelOp
6070: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 tion(interp, cha
6080: 6e 2c 20 22 2d 65 6e 63 6f 64 69 6e 67 22 2c 20 n, "-encoding",
6090: 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 &upperChannelEnc
60a0: 6f 64 69 6e 67 29 3b 0a 20 20 20 20 54 63 6c 5f oding);. Tcl_
60b0: 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e GetChannelOption
60c0: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 (interp, chan, "
60d0: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 26 -translation", &
60e0: 75 70 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 6e upperChannelTran
60f0: 73 6c 61 74 69 6f 6e 29 3b 0a 20 20 20 20 54 63 slation);. Tc
6100: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 l_GetChannelOpti
6110: 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c on(interp, chan,
6120: 20 22 2d 62 6c 6f 63 6b 69 6e 67 22 2c 20 26 75 "-blocking", &u
6130: 70 70 65 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b pperChannelBlock
6140: 69 6e 67 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 ing);. Tcl_Se
6150: 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 tChannelOption(i
6160: 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 74 nterp, chan, "-t
6170: 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 69 ranslation", "bi
6180: 6e 61 72 79 22 29 3b 0a 20 20 20 20 54 63 6c 5f nary");. Tcl_
6190: 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e SetChannelOption
61a0: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 (interp, chan, "
61b0: 2d 62 6c 6f 63 6b 69 6e 67 22 2c 20 22 74 72 75 -blocking", "tru
61c0: 65 22 29 3b 0a 20 20 20 20 64 70 72 69 6e 74 66 e");. dprintf
61d0: 28 22 43 6f 6e 73 75 6d 69 6e 67 20 54 63 6c 20 ("Consuming Tcl
61e0: 63 68 61 6e 6e 65 6c 20 25 73 22 2c 20 54 63 6c channel %s", Tcl
61f0: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
6200: 63 68 61 6e 29 29 3b 0a 20 20 20 20 73 74 61 74 chan));. stat
6210: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c ePtr->self = Tcl
6220: 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e _StackChannel(in
6230: 74 65 72 70 2c 20 54 6c 73 5f 43 68 61 6e 6e 65 terp, Tls_Channe
6240: 6c 54 79 70 65 28 29 2c 20 73 74 61 74 65 50 74 lType(), statePt
6250: 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c 45 r, (TCL_READABLE
6260: 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 29 | TCL_WRITABLE)
6270: 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 64 70 72 , chan);. dpr
6280: 69 6e 74 66 28 22 43 72 65 61 74 65 64 20 63 68 intf("Created ch
6290: 61 6e 6e 65 6c 20 6e 61 6d 65 64 20 25 73 22 2c annel named %s",
62a0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
62b0: 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ame(statePtr->se
62c0: 6c 66 29 29 3b 0a 20 20 20 20 69 66 20 28 73 74 lf));. if (st
62d0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 atePtr->self ==
62e0: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
62f0: 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4e 6f LL) {../*.. * No
6300: 20 75 73 65 20 6f 66 20 54 63 6c 5f 45 76 65 6e use of Tcl_Even
6310: 74 75 61 6c 6c 79 46 72 65 65 20 62 65 63 61 75 tuallyFree becau
6320: 73 65 20 6e 6f 20 70 6f 73 73 69 62 6c 65 20 54 se no possible T
6330: 63 6c 5f 50 72 65 73 65 72 76 65 2e 0a 09 20 2a cl_Preserve... *
6340: 2f 0a 09 54 6c 73 5f 46 72 65 65 28 28 76 6f 69 /..Tls_Free((voi
6350: 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b 0a 09 d *)statePtr);..
6360: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6370: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c ;. }.. Tcl
6380: 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _SetChannelOptio
6390: 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 n(interp, stateP
63a0: 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 74 72 61 6e tr->self, "-tran
63b0: 73 6c 61 74 69 6f 6e 22 2c 20 54 63 6c 5f 44 53 slation", Tcl_DS
63c0: 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70 70 65 tringValue(&uppe
63d0: 72 43 68 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 rChannelTranslat
63e0: 69 6f 6e 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 ion));. Tcl_S
63f0: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
6400: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
6410: 2d 3e 73 65 6c 66 2c 20 22 2d 65 6e 63 6f 64 69 ->self, "-encodi
6420: 6e 67 22 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 ng", Tcl_DString
6430: 56 61 6c 75 65 28 26 75 70 70 65 72 43 68 61 6e Value(&upperChan
6440: 6e 65 6c 45 6e 63 6f 64 69 6e 67 29 29 3b 0a 20 nelEncoding));.
6450: 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 Tcl_SetChanne
6460: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
6470: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 statePtr->self,
6480: 22 2d 65 6f 66 63 68 61 72 22 2c 20 54 63 6c 5f "-eofchar", Tcl_
6490: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70 DStringValue(&up
64a0: 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 68 61 perChannelEOFCha
64b0: 72 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 r));. Tcl_Set
64c0: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
64d0: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
64e0: 73 65 6c 66 2c 20 22 2d 62 6c 6f 63 6b 69 6e 67 self, "-blocking
64f0: 22 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 ", Tcl_DStringVa
6500: 6c 75 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65 lue(&upperChanne
6510: 6c 42 6c 6f 63 6b 69 6e 67 29 29 3b 0a 0a 20 20 lBlocking));..
6520: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53 4c 20 /*. * SSL
6530: 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 0a 20 Initialization.
6540: 20 20 20 20 2a 2f 0a 0a 20 20 20 20 73 74 61 74 */.. stat
6550: 65 50 74 72 2d 3e 73 73 6c 20 3d 20 53 53 4c 5f ePtr->ssl = SSL_
6560: 6e 65 77 28 73 74 61 74 65 50 74 72 2d 3e 63 74 new(statePtr->ct
6570: 78 29 3b 0a 20 20 20 20 69 66 20 28 21 73 74 61 x);. if (!sta
6580: 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 2f tePtr->ssl) {../
6590: 2a 20 53 53 4c 20 6c 69 62 72 61 72 79 20 65 72 * SSL library er
65a0: 72 6f 72 20 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 ror */..Tcl_Appe
65b0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
65c0: 20 22 63 6f 75 6c 64 6e 27 74 20 63 6f 6e 73 74 "couldn't const
65d0: 72 75 63 74 20 73 73 6c 20 73 65 73 73 69 6f 6e ruct ssl session
65e0: 3a 20 22 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 : ", GET_ERR_REA
65f0: 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 4e SON(), (char *)N
6600: 55 4c 4c 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 ULL);..Tcl_SetEr
6610: 72 6f 72 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 rorCode(interp,
6620: 22 54 4c 53 22 2c 20 22 49 4d 50 4f 52 54 22 2c "TLS", "IMPORT",
6630: 20 22 49 4e 49 54 22 2c 20 22 46 41 49 4c 45 44 "INIT", "FAILED
6640: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
6650: 3b 0a 09 54 6c 73 5f 46 72 65 65 28 28 76 6f 69 ;..Tls_Free((voi
6660: 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b 0a 09 d *)statePtr);..
6670: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6680: 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 6e 64 65 66 ;. }..#ifndef
6690: 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 OPENSSL_NO_TLSE
66a0: 58 54 0a 20 20 20 20 69 66 20 28 73 65 72 76 65 XT. if (serve
66b0: 72 6e 61 6d 65 29 20 7b 0a 09 69 66 20 28 21 53 rname) {..if (!S
66c0: 53 4c 5f 73 65 74 5f 74 6c 73 65 78 74 5f 68 6f SL_set_tlsext_ho
66d0: 73 74 5f 6e 61 6d 65 28 73 74 61 74 65 50 74 72 st_name(statePtr
66e0: 2d 3e 73 73 6c 2c 20 73 65 72 76 65 72 6e 61 6d ->ssl, servernam
66f0: 65 29 20 26 26 20 72 65 71 75 69 72 65 29 20 7b e) && require) {
6700: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
6710: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
6720: 73 65 74 74 69 6e 67 20 54 4c 53 20 68 6f 73 74 setting TLS host
6730: 20 6e 61 6d 65 20 65 78 74 65 6e 73 69 6f 6e 20 name extension
6740: 66 61 69 6c 65 64 22 2c 20 28 63 68 61 72 20 2a failed", (char *
6750: 29 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 54 63 6c )NULL);.. Tcl
6760: 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 69 6e _SetErrorCode(in
6770: 74 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 49 4d terp, "TLS", "IM
6780: 50 4f 52 54 22 2c 20 22 48 4f 53 54 4e 41 4d 45 PORT", "HOSTNAME
6790: 22 2c 20 22 46 41 49 4c 45 44 22 2c 20 28 63 68 ", "FAILED", (ch
67a0: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 20 20 20 ar *)NULL);..
67b0: 20 54 6c 73 5f 46 72 65 65 28 28 76 6f 69 64 20 Tls_Free((void
67c0: 2a 29 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 *)statePtr);..
67d0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
67e0: 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e OR;..}. }.#en
67f0: 64 69 66 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 dif.. /*.
6800: 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 6b 73 * SSL Callbacks
6810: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 53 53 4c . */. SSL
6820: 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28 73 74 _set_app_data(st
6830: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 76 6f atePtr->ssl, (vo
6840: 69 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b 09 id *)statePtr);.
6850: 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b 20 74 6f /* point back to
6860: 20 75 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 73 us */. SSL_s
6870: 65 74 5f 76 65 72 69 66 79 28 73 74 61 74 65 50 et_verify(stateP
6880: 74 72 2d 3e 73 73 6c 2c 20 76 65 72 69 66 79 2c tr->ssl, verify,
6890: 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 29 VerifyCallback)
68a0: 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 ;. SSL_CTX_se
68b0: 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61 63 6b 28 t_info_callback(
68c0: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 49 statePtr->ctx, I
68d0: 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 nfoCallback);..
68e0: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 54 63 6c /* Create Tcl
68f0: 5f 43 68 61 6e 6e 65 6c 20 42 49 4f 20 48 61 6e _Channel BIO Han
6900: 64 6c 65 72 20 2a 2f 0a 20 20 20 20 73 74 61 74 dler */. stat
6910: 65 50 74 72 2d 3e 70 5f 62 69 6f 09 3d 20 42 49 ePtr->p_bio.= BI
6920: 4f 5f 6e 65 77 5f 74 63 6c 28 73 74 61 74 65 50 O_new_tcl(stateP
6930: 74 72 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 45 29 tr, BIO_NOCLOSE)
6940: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
6950: 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 28 42 49 bio.= BIO_new(BI
6960: 4f 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a 20 20 20 O_f_ssl());..
6970: 20 69 66 20 28 73 65 72 76 65 72 29 20 7b 0a 09 if (server) {..
6980: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
6990: 7c 3d 20 54 4c 53 5f 54 43 4c 5f 53 45 52 56 45 |= TLS_TCL_SERVE
69a0: 52 3b 0a 09 53 53 4c 5f 73 65 74 5f 61 63 63 65 R;..SSL_set_acce
69b0: 70 74 5f 73 74 61 74 65 28 73 74 61 74 65 50 74 pt_state(statePt
69c0: 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 r->ssl);. } e
69d0: 6c 73 65 20 7b 0a 09 53 53 4c 5f 73 65 74 5f 63 lse {..SSL_set_c
69e0: 6f 6e 6e 65 63 74 5f 73 74 61 74 65 28 73 74 61 onnect_state(sta
69f0: 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 tePtr->ssl);.
6a00: 20 7d 0a 20 20 20 20 53 53 4c 5f 73 65 74 5f 62 }. SSL_set_b
6a10: 69 6f 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c io(statePtr->ssl
6a20: 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 , statePtr->p_bi
6a30: 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 o, statePtr->p_b
6a40: 69 6f 29 3b 0a 20 20 20 20 42 49 4f 5f 73 65 74 io);. BIO_set
6a50: 5f 73 73 6c 28 73 74 61 74 65 50 74 72 2d 3e 62 _ssl(statePtr->b
6a60: 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 73 io, statePtr->ss
6a70: 6c 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53 45 29 3b l, BIO_NOCLOSE);
6a80: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 .. /*. *
6a90: 45 6e 64 20 6f 66 20 53 53 4c 20 49 6e 69 74 0a End of SSL Init.
6aa0: 20 20 20 20 20 2a 2f 0a 20 20 20 20 64 70 72 69 */. dpri
6ab0: 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 20 25 ntf("Returning %
6ac0: 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e s", Tcl_GetChann
6ad0: 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d elName(statePtr-
6ae0: 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20 54 63 6c >self));. Tcl
6af0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 _SetResult(inter
6b00: 70 2c 20 28 63 68 61 72 20 2a 29 54 63 6c 5f 47 p, (char *)Tcl_G
6b10: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
6b20: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20 54 atePtr->self), T
6b30: 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 CL_VOLATILE);.
6b40: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
6b50: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
6b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
6ba0: 0a 20 2a 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 . * UnimportObjC
6bb0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 md --. *. *.This
6bc0: 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e procedure is in
6bd0: 76 6f 6b 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 voked to remove
6be0: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
6bf0: 6e 65 6c 20 66 69 6c 74 65 72 2e 0a 20 2a 0a 20 nel filter.. *.
6c00: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
6c10: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
6c20: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ult.. *. * Side
6c30: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 effects:. *.May
6c40: 6d 6f 64 69 66 79 20 74 68 65 20 62 65 68 61 76 modify the behav
6c50: 69 6f 72 20 6f 66 20 61 6e 20 49 4f 20 63 68 61 ior of an IO cha
6c60: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d nnel.. *. *-----
6c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6cb0: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 55 */..static int.U
6cc0: 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 0a 20 nimportObjCmd(.
6cd0: 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 28 76 6f TCL_UNUSED(vo
6ce0: 69 64 20 2a 29 2c 0a 20 20 20 20 54 63 6c 5f 49 id *),. Tcl_I
6cf0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
6d00: 20 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 20 int objc,.
6d10: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
6d20: 6f 62 6a 76 5b 5d 29 0a 7b 0a 20 20 20 20 54 63 objv[]).{. Tc
6d30: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 l_Channel chan;.
6d40: 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 ./* The channel
6d50: 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e to set a mode on
6d60: 2e 20 2a 2f 0a 0a 20 20 20 20 64 70 72 69 6e 74 . */.. dprint
6d70: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
6d80: 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 if (objc != 2)
6d90: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
6da0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
6db0: 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 objv, "channel")
6dc0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
6dd0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
6de0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 chan = Tcl_GetCh
6df0: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 annel(interp, Tc
6e00: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
6e10: 5b 31 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 [1]), NULL);.
6e20: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 if (chan == (Tc
6e30: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
6e40: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
6e50: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
6e60: 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 /*. * Make
6e70: 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 sure to operate
6e80: 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 on the topmost c
6e90: 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 hannel. */.
6ea0: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 chan = Tcl_Ge
6eb0: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e tTopChannel(chan
6ec0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 54 63 6c 5f );.. if (Tcl_
6ed0: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 GetChannelType(c
6ee0: 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e han) != Tls_Chan
6ef0: 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 54 63 nelType()) {..Tc
6f00: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
6f10: 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e nterp, "bad chan
6f20: 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 nel \"", Tcl_Get
6f30: 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e ChannelName(chan
6f40: 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 20 61 20 ),..."\": not a
6f50: 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 28 63 TLS channel", (c
6f60: 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 54 63 har *)NULL);..Tc
6f70: 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 69 l_SetErrorCode(i
6f80: 6e 74 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 55 nterp, "TLS", "U
6f90: 4e 49 4d 50 4f 52 54 22 2c 20 22 43 48 41 4e 4e NIMPORT", "CHANN
6fa0: 45 4c 22 2c 20 22 49 4e 56 41 4c 49 44 22 2c 20 EL", "INVALID",
6fb0: 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 (char *)NULL);..
6fc0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6fd0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
6fe0: 28 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e (Tcl_UnstackChan
6ff0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e nel(interp, chan
7000: 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 ) == TCL_ERROR)
7010: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
7020: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7030: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
7040: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d .../*. *--------
7050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
7090: 2a 20 43 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f * CTX_Init -- co
70a0: 6e 73 74 72 75 63 74 20 61 20 53 53 4c 5f 43 54 nstruct a SSL_CT
70b0: 58 20 69 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a X instance. *. *
70c0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76 Results:. *.A v
70d0: 61 6c 69 64 20 53 53 4c 5f 43 54 58 20 69 6e 73 alid SSL_CTX ins
70e0: 74 61 6e 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20 tance or NULL..
70f0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
7100: 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 s:. *.constructs
7110: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 SSL context (CT
7120: 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d X). *. *--------
7130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
7170: 0a 73 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20 .static SSL_CTX
7180: 2a 0a 43 54 58 5f 49 6e 69 74 28 0a 20 20 20 20 *.CTX_Init(.
7190: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c State *statePtr,
71a0: 0a 20 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 28 . TCL_UNUSED(
71b0: 69 6e 74 29 20 2f 2a 20 69 73 53 65 72 76 65 72 int) /* isServer
71c0: 20 2a 2f 2c 0a 20 20 20 20 69 6e 74 20 70 72 6f */,. int pro
71d0: 74 6f 2c 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 to,. char *ke
71e0: 79 66 69 6c 65 2c 0a 20 20 20 20 63 68 61 72 20 yfile,. char
71f0: 2a 63 65 72 74 66 69 6c 65 2c 0a 20 20 20 20 75 *certfile,. u
7200: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 nsigned char *ke
7210: 79 2c 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 y,. unsigned
7220: 63 68 61 72 20 2a 63 65 72 74 2c 0a 20 20 20 20 char *cert,.
7230: 69 6e 74 20 6b 65 79 5f 6c 65 6e 2c 0a 20 20 20 int key_len,.
7240: 20 69 6e 74 20 63 65 72 74 5f 6c 65 6e 2c 0a 20 int cert_len,.
7250: 20 20 20 63 68 61 72 20 2a 43 41 64 69 72 2c 0a char *CAdir,.
7260: 20 20 20 20 63 68 61 72 20 2a 43 41 66 69 6c 65 char *CAfile
7270: 2c 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 ,. char *ciph
7280: 65 72 73 2c 0a 20 20 20 20 63 68 61 72 20 2a 44 ers,. char *D
7290: 48 70 61 72 61 6d 73 29 0a 7b 0a 20 20 20 20 54 Hparams).{. T
72a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
72b0: 70 20 3d 20 73 74 61 74 65 50 74 72 2d 3e 69 6e p = statePtr->in
72c0: 74 65 72 70 3b 0a 20 20 20 20 53 53 4c 5f 43 54 terp;. SSL_CT
72d0: 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 X *ctx = NULL;.
72e0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 Tcl_DString d
72f0: 73 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 s;. Tcl_DStri
7300: 6e 67 20 64 73 31 3b 0a 20 20 20 20 69 6e 74 20 ng ds1;. int
7310: 6f 66 66 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 off = 0;. int
7320: 20 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b 65 load_private_ke
7330: 79 3b 0a 20 20 20 20 63 6f 6e 73 74 20 53 53 4c y;. const SSL
7340: 5f 4d 45 54 48 4f 44 20 2a 6d 65 74 68 6f 64 3b _METHOD *method;
7350: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
7360: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 alled");.. if
7370: 20 28 21 70 72 6f 74 6f 29 20 7b 0a 09 54 63 6c (!proto) {..Tcl
7380: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
7390: 74 65 72 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 terp, "no valid
73a0: 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 protocol selecte
73b0: 64 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c d", (char *)NULL
73c0: 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b );..return NULL;
73d0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 63 . }.. /* c
73e0: 72 65 61 74 65 20 53 53 4c 20 63 6f 6e 74 65 78 reate SSL contex
73f0: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 4e 41 t */. if (ENA
7400: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
7410: 50 52 4f 54 4f 5f 53 53 4c 32 29 29 20 7b 0a 09 PROTO_SSL2)) {..
7420: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
7430: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
7440: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
7450: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
7460: 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a ;..return NULL;.
7470: 20 20 20 20 7d 0a 23 69 66 20 64 65 66 69 6e 65 }.#if define
7480: 64 28 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 64 65 d(NO_SSL3) || de
7490: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
74a0: 5f 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 _SSL3) || define
74b0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c d(OPENSSL_NO_SSL
74c0: 33 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 69 66 3_METHOD). if
74d0: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
74e0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 TLS_PROTO_SSL3)
74f0: 29 20 7b 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 70 esult(interp, "p
7510: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
7520: 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 orted", (char *)
7530: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 4e NULL);..return N
7540: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 ULL;. }.#endi
7550: 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f f.#if defined(NO
7560: 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 _TLS1) || define
7570: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
7580: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 1) || defined(OP
7590: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 ENSSL_NO_TLS1_ME
75a0: 54 48 4f 44 29 0a 20 20 20 20 69 66 20 28 45 4e THOD). if (EN
75b0: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 ABLED(proto, TLS
75c0: 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 20 7b 0a _PROTO_TLS1)) {.
75d0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
75e0: 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f t(interp, "proto
75f0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
7600: 64 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c d", (char *)NULL
7610: 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b );..return NULL;
7620: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 . }.#endif.#i
7630: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
7640: 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 1_1) || defined(
7650: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
7660: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 1) || defined(OP
7670: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 5f ENSSL_NO_TLS1_1_
7680: 4d 45 54 48 4f 44 29 0a 20 20 20 20 69 66 20 28 METHOD). if (
7690: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 ENABLED(proto, T
76a0: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 LS_PROTO_TLS1_1)
76b0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
76c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 esult(interp, "p
76d0: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
76e0: 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 orted", (char *)
76f0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 4e NULL);..return N
7700: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 ULL;. }.#endi
7710: 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f f.#if defined(NO
7720: 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 _TLS1_2) || defi
7730: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
7740: 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 LS1_2) || define
7750: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
7760: 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 1_2_METHOD).
7770: 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 if (ENABLED(prot
7780: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 o, TLS_PROTO_TLS
7790: 31 5f 32 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 1_2)) {..Tcl_App
77a0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
77b0: 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 , "protocol not
77c0: 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 61 supported", (cha
77d0: 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 r *)NULL);..retu
77e0: 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 23 rn NULL;. }.#
77f0: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
7800: 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c 20 d(NO_TLS1_3) ||
7810: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
7820: 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c 20 64 65 NO_TLS1_3) || de
7830: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
7840: 5f 54 4c 53 31 5f 33 5f 4d 45 54 48 4f 44 29 0a _TLS1_3_METHOD).
7850: 20 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 if (ENABLED(
7860: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
7870: 5f 54 4c 53 31 5f 33 29 29 20 7b 0a 09 54 63 6c _TLS1_3)) {..Tcl
7880: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
7890: 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 terp, "protocol
78a0: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
78b0: 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 (char *)NULL);..
78c0: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 return NULL;.
78d0: 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 73 }.#endif.. s
78e0: 77 69 74 63 68 20 28 70 72 6f 74 6f 29 20 7b 0a witch (proto) {.
78f0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
7900: 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 SSL3) && !define
7910: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c d(OPENSSL_NO_SSL
7920: 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 3) && !defined(O
7930: 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d PENSSL_NO_SSL3_M
7940: 45 54 48 4f 44 29 0a 20 20 20 20 63 61 73 65 20 ETHOD). case
7950: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 3a 0a TLS_PROTO_SSL3:.
7960: 09 6d 65 74 68 6f 64 20 3d 20 53 53 4c 76 33 5f .method = SSLv3_
7970: 6d 65 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 method ();..brea
7980: 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 k;.#endif.#if !d
7990: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 efined(NO_TLS1)
79a0: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
79b0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 26 20 SSL_NO_TLS1) &&
79c0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
79d0: 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 _NO_TLS1_METHOD)
79e0: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 . case TLS_PR
79f0: 4f 54 4f 5f 54 4c 53 31 3a 0a 09 6d 65 74 68 6f OTO_TLS1:..metho
7a00: 64 20 3d 20 54 4c 53 76 31 5f 6d 65 74 68 6f 64 d = TLSv1_method
7a10: 20 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e ();..break;.#en
7a20: 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 dif.#if !defined
7a30: 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 (NO_TLS1_1) && !
7a40: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
7a50: 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64 NO_TLS1_1) && !d
7a60: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
7a70: 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 O_TLS1_1_METHOD)
7a80: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 . case TLS_PR
7a90: 4f 54 4f 5f 54 4c 53 31 5f 31 3a 0a 09 6d 65 74 OTO_TLS1_1:..met
7aa0: 68 6f 64 20 3d 20 54 4c 53 76 31 5f 31 5f 6d 65 hod = TLSv1_1_me
7ab0: 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b thod ();..break;
7ac0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
7ad0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 ined(NO_TLS1_2)
7ae0: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
7af0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 SSL_NO_TLS1_2) &
7b00: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
7b10: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 SL_NO_TLS1_2_MET
7b20: 48 4f 44 29 0a 20 20 20 20 63 61 73 65 20 54 4c HOD). case TL
7b30: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 3a 0a S_PROTO_TLS1_2:.
7b40: 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 76 31 5f .method = TLSv1_
7b50: 32 5f 6d 65 74 68 6f 64 20 28 29 3b 0a 09 62 72 2_method ();..br
7b60: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 eak;.#endif.#if
7b70: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
7b80: 5f 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 _3) && !defined(
7b90: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
7ba0: 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 3) && !defined(O
7bb0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 PENSSL_NO_TLS1_3
7bc0: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 63 61 73 _METHOD). cas
7bd0: 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 e TLS_PROTO_TLS1
7be0: 5f 33 3a 0a 09 2f 2a 20 55 73 65 20 74 68 65 20 _3:../* Use the
7bf0: 67 65 6e 65 72 69 63 20 6d 65 74 68 6f 64 20 61 generic method a
7c00: 6e 64 20 63 6f 6e 73 74 72 61 69 6e 74 20 72 61 nd constraint ra
7c10: 6e 67 65 20 61 66 74 65 72 20 63 6f 6e 74 65 78 nge after contex
7c20: 74 20 69 73 20 63 72 65 61 74 65 64 20 2a 2f 0a t is created */.
7c30: 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 5f 6d 65 .method = TLS_me
7c40: 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b thod ();..break;
7c50: 0a 23 65 6e 64 69 66 0a 20 20 20 20 64 65 66 61 .#endif. defa
7c60: 75 6c 74 3a 0a 23 69 66 64 65 66 20 48 41 56 45 ult:.#ifdef HAVE
7c70: 5f 54 4c 53 5f 4d 45 54 48 4f 44 0a 20 20 20 20 _TLS_METHOD.
7c80: 20 20 20 20 6d 65 74 68 6f 64 20 3d 20 54 4c 53 method = TLS
7c90: 5f 6d 65 74 68 6f 64 20 28 29 3b 0a 23 65 6c 73 _method ();.#els
7ca0: 65 0a 20 20 20 20 20 20 20 20 6d 65 74 68 6f 64 e. method
7cb0: 20 3d 20 53 53 4c 76 32 33 5f 6d 65 74 68 6f 64 = SSLv23_method
7cc0: 20 28 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 ();.#endif.#if
7cd0: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 !defined(NO_SSL3
7ce0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
7cf0: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 26 ENSSL_NO_SSL3) &
7d00: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
7d10: 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f SL_NO_SSL3_METHO
7d20: 44 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 42 D)..off |= (ENAB
7d30: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
7d40: 52 4f 54 4f 5f 53 53 4c 33 29 20 20 20 3f 20 30 ROTO_SSL3) ? 0
7d50: 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c : SSL_OP_NO_SSL
7d60: 76 33 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 v3);.#endif.#if
7d70: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
7d80: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
7d90: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 ENSSL_NO_TLS1) &
7da0: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
7db0: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f SL_NO_TLS1_METHO
7dc0: 44 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 42 D)..off |= (ENAB
7dd0: 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 LED(proto, TLS_P
7de0: 52 4f 54 4f 5f 54 4c 53 31 29 20 20 20 3f 20 30 ROTO_TLS1) ? 0
7df0: 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 : SSL_OP_NO_TLS
7e00: 76 31 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 v1);.#endif.#if
7e10: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
7e20: 5f 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 _1) && !defined(
7e30: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
7e40: 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 1) && !defined(O
7e50: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 PENSSL_NO_TLS1_1
7e60: 5f 4d 45 54 48 4f 44 29 0a 09 6f 66 66 20 7c 3d _METHOD)..off |=
7e70: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
7e80: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
7e90: 31 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 1) ? 0 : SSL_OP_
7ea0: 4e 4f 5f 54 4c 53 76 31 5f 31 29 3b 0a 23 65 6e NO_TLSv1_1);.#en
7eb0: 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 dif.#if !defined
7ec0: 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 (NO_TLS1_2) && !
7ed0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
7ee0: 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 64 NO_TLS1_2) && !d
7ef0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
7f00: 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 O_TLS1_2_METHOD)
7f10: 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 ..off |= (ENABLE
7f20: 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f D(proto, TLS_PRO
7f30: 54 4f 5f 54 4c 53 31 5f 32 29 20 3f 20 30 20 3a TO_TLS1_2) ? 0 :
7f40: 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 SSL_OP_NO_TLSv1
7f50: 5f 32 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 _2);.#endif.#if
7f60: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
7f70: 5f 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 _3) && !defined(
7f80: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
7f90: 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 3) && !defined(O
7fa0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 PENSSL_NO_TLS1_3
7fb0: 5f 4d 45 54 48 4f 44 29 0a 09 6f 66 66 20 7c 3d _METHOD)..off |=
7fc0: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c (ENABLED(proto,
7fd0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f TLS_PROTO_TLS1_
7fe0: 33 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 3) ? 0 : SSL_OP_
7ff0: 4e 4f 5f 54 4c 53 76 31 5f 33 29 3b 0a 23 65 6e NO_TLSv1_3);.#en
8000: 64 69 66 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 dif..break;.
8010: 7d 0a 0a 20 20 20 20 63 74 78 20 3d 20 53 53 4c }.. ctx = SSL
8020: 5f 43 54 58 5f 6e 65 77 20 28 6d 65 74 68 6f 64 _CTX_new (method
8030: 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 63 74 78 );.. if (!ctx
8040: 29 20 7b 0a 09 72 65 74 75 72 6e 28 4e 55 4c 4c ) {..return(NULL
8050: 29 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 20 21 64 );. }..#if !d
8060: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 efined(NO_TLS1_3
8070: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
8080: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 ENSSL_NO_TLS1_3)
8090: 0a 20 20 20 20 69 66 20 28 70 72 6f 74 6f 20 3d . if (proto =
80a0: 3d 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 = TLS_PROTO_TLS1
80b0: 5f 33 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 73 _3) {..SSL_CTX_s
80c0: 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 et_min_proto_ver
80d0: 73 69 6f 6e 28 63 74 78 2c 20 54 4c 53 31 5f 33 sion(ctx, TLS1_3
80e0: 5f 56 45 52 53 49 4f 4e 29 3b 0a 09 53 53 4c 5f _VERSION);..SSL_
80f0: 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f 74 CTX_set_max_prot
8100: 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78 2c 20 54 o_version(ctx, T
8110: 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 29 3b 0a LS1_3_VERSION);.
8120: 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 }.#endif..
8130: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 61 70 SSL_CTX_set_ap
8140: 70 5f 64 61 74 61 28 63 74 78 2c 20 69 6e 74 65 p_data(ctx, inte
8150: 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d 62 65 72 rp);./* remember
8160: 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65 72 the interpreter
8170: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f */. SSL_CTX_
8180: 73 65 74 5f 6f 70 74 69 6f 6e 73 28 63 74 78 2c set_options(ctx,
8190: 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 3b 09 2f 2a SSL_OP_ALL);./*
81a0: 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 all SSL bug wor
81b0: 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 karounds */.
81c0: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 SSL_CTX_set_opti
81d0: 6f 6e 73 28 63 74 78 2c 20 6f 66 66 29 3b 09 2f ons(ctx, off);./
81e0: 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 77 6f * all SSL bug wo
81f0: 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 rkarounds */.
8200: 20 53 53 4c 5f 43 54 58 5f 73 65 73 73 5f 73 65 SSL_CTX_sess_se
8210: 74 5f 63 61 63 68 65 5f 73 69 7a 65 28 63 74 78 t_cache_size(ctx
8220: 2c 20 31 32 38 29 3b 0a 0a 20 20 20 20 69 66 20 , 128);.. if
8230: 28 63 69 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c (ciphers != NULL
8240: 29 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 )..SSL_CTX_set_c
8250: 69 70 68 65 72 5f 6c 69 73 74 28 63 74 78 2c 20 ipher_list(ctx,
8260: 63 69 70 68 65 72 73 29 3b 0a 0a 20 20 20 20 2f ciphers);.. /
8270: 2a 20 73 65 74 20 73 6f 6d 65 20 63 61 6c 6c 62 * set some callb
8280: 61 63 6b 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f acks */. SSL_
8290: 43 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f CTX_set_default_
82a0: 70 61 73 73 77 64 5f 63 62 28 63 74 78 2c 20 50 passwd_cb(ctx, P
82b0: 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 29 asswordCallback)
82c0: 3b 0a 0a 23 69 66 6e 64 65 66 20 42 53 41 46 45 ;..#ifndef BSAFE
82d0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
82e0: 5f 64 65 66 61 75 6c 74 5f 70 61 73 73 77 64 5f _default_passwd_
82f0: 63 62 5f 75 73 65 72 64 61 74 61 28 63 74 78 2c cb_userdata(ctx,
8300: 20 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 (void *)statePt
8310: 72 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 r);.#endif..
8320: 2f 2a 20 72 65 61 64 20 61 20 44 69 66 66 69 65 /* read a Diffie
8330: 2d 48 65 6c 6c 6d 61 6e 20 70 61 72 61 6d 65 74 -Hellman paramet
8340: 65 72 73 20 66 69 6c 65 2c 20 6f 72 20 75 73 65 ers file, or use
8350: 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 6f 6e the built-in on
8360: 65 20 2a 2f 0a 23 69 66 64 65 66 20 4f 50 45 4e e */.#ifdef OPEN
8370: 53 53 4c 5f 4e 4f 5f 44 48 0a 20 20 20 20 69 66 SSL_NO_DH. if
8380: 20 28 44 48 70 61 72 61 6d 73 20 21 3d 20 4e 55 (DHparams != NU
8390: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e LL) {..Tcl_Appen
83a0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
83b0: 22 44 48 20 70 61 72 61 6d 65 74 65 72 20 73 75 "DH parameter su
83c0: 70 70 6f 72 74 20 6e 6f 74 20 61 76 61 69 6c 61 pport not availa
83d0: 62 6c 65 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 ble", (char *)NU
83e0: 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 LL);..SSL_CTX_fr
83f0: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
8400: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 23 65 6c NULL;. }.#el
8410: 73 65 0a 20 20 20 20 7b 0a 09 44 48 2a 20 64 68 se. {..DH* dh
8420: 3b 0a 09 69 66 20 28 44 48 70 61 72 61 6d 73 20 ;..if (DHparams
8430: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 != NULL) {..
8440: 42 49 4f 20 2a 62 69 6f 3b 0a 09 20 20 20 20 54 BIO *bio;.. T
8450: 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 cl_DStringInit(&
8460: 64 73 29 3b 0a 09 20 20 20 20 62 69 6f 20 3d 20 ds);.. bio =
8470: 42 49 4f 5f 6e 65 77 5f 66 69 6c 65 28 46 32 4e BIO_new_file(F2N
8480: 28 44 48 70 61 72 61 6d 73 2c 20 26 64 73 29 2c (DHparams, &ds),
8490: 20 22 72 22 29 3b 0a 09 20 20 20 20 69 66 20 28 "r");.. if (
84a0: 21 62 69 6f 29 20 7b 0a 09 09 54 63 6c 5f 44 53 !bio) {...Tcl_DS
84b0: 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a tringFree(&ds);.
84c0: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
84d0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 43 6f 75 6c lt(interp, "Coul
84e0: 64 20 6e 6f 74 20 66 69 6e 64 20 44 48 20 70 61 d not find DH pa
84f0: 72 61 6d 65 74 65 72 73 20 66 69 6c 65 22 2c 20 rameters file",
8500: 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 (char *)NULL);..
8510: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
8520: 78 29 3b 0a 09 09 72 65 74 75 72 6e 20 4e 55 4c x);...return NUL
8530: 4c 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 L;.. }...
8540: 64 68 20 3d 20 50 45 4d 5f 72 65 61 64 5f 62 69 dh = PEM_read_bi
8550: 6f 5f 44 48 70 61 72 61 6d 73 28 62 69 6f 2c 20 o_DHparams(bio,
8560: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c NULL, NULL, NULL
8570: 29 3b 0a 09 20 20 20 20 42 49 4f 5f 66 72 65 65 );.. BIO_free
8580: 28 62 69 6f 29 3b 0a 09 20 20 20 20 54 63 6c 5f (bio);.. Tcl_
8590: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 DStringFree(&ds)
85a0: 3b 0a 09 20 20 20 20 69 66 20 28 21 64 68 29 20 ;.. if (!dh)
85b0: 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {...Tcl_AppendRe
85c0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 43 6f sult(interp, "Co
85d0: 75 6c 64 20 6e 6f 74 20 72 65 61 64 20 44 48 20 uld not read DH
85e0: 70 61 72 61 6d 65 74 65 72 73 20 66 72 6f 6d 20 parameters from
85f0: 66 69 6c 65 22 2c 20 28 63 68 61 72 20 2a 29 4e file", (char *)N
8600: 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f ULL);...SSL_CTX_
8610: 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 free(ctx);...ret
8620: 75 72 6e 20 4e 55 4c 4c 3b 0a 09 20 20 20 20 7d urn NULL;.. }
8630: 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 .. SSL_CTX_se
8640: 74 5f 74 6d 70 5f 64 68 28 63 74 78 2c 20 64 68 t_tmp_dh(ctx, dh
8650: 29 3b 0a 09 20 20 20 20 44 48 5f 66 72 65 65 28 );.. DH_free(
8660: 64 68 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 dh);..} else {..
8670: 20 20 20 20 2f 2a 20 55 73 65 20 77 65 6c 6c 20 /* Use well
8680: 6b 6e 6f 77 6e 20 44 48 20 70 61 72 61 6d 65 74 known DH paramet
8690: 65 72 73 20 74 68 61 74 20 68 61 76 65 20 62 75 ers that have bu
86a0: 69 6c 74 2d 69 6e 20 73 75 70 70 6f 72 74 20 69 ilt-in support i
86b0: 6e 20 4f 70 65 6e 53 53 4c 20 2a 2f 0a 09 20 20 n OpenSSL */..
86c0: 20 20 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 73 if (!SSL_CTX_s
86d0: 65 74 5f 64 68 5f 61 75 74 6f 28 63 74 78 2c 20 et_dh_auto(ctx,
86e0: 31 29 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65 1)) {...Tcl_Appe
86f0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
8700: 20 22 43 6f 75 6c 64 20 6e 6f 74 20 65 6e 61 62 "Could not enab
8710: 6c 65 20 73 65 74 20 44 48 20 61 75 74 6f 3a 20 le set DH auto:
8720: 22 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 53 4f ", GET_ERR_REASO
8730: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c N(), (char *)NUL
8740: 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 L);...SSL_CTX_fr
8750: 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 ee(ctx);...retur
8760: 6e 20 4e 55 4c 4c 3b 0a 09 20 20 20 20 7d 0a 09 n NULL;.. }..
8770: 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a }. }.#endif..
8780: 20 20 20 20 2f 2a 20 73 65 74 20 6f 75 72 20 63 /* set our c
8790: 65 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 20 20 ertificate */.
87a0: 20 20 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b load_private_k
87b0: 65 79 20 3d 20 30 3b 0a 20 20 20 20 69 66 20 28 ey = 0;. if (
87c0: 63 65 72 74 66 69 6c 65 20 21 3d 20 4e 55 4c 4c certfile != NULL
87d0: 29 20 7b 0a 09 6c 6f 61 64 5f 70 72 69 76 61 74 ) {..load_privat
87e0: 65 5f 6b 65 79 20 3d 20 31 3b 0a 0a 09 54 63 6c e_key = 1;...Tcl
87f0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 _DStringInit(&ds
8800: 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 );...if (SSL_CTX
8810: 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 74 65 _use_certificate
8820: 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 63 _file(ctx, F2N(c
8830: 65 72 74 66 69 6c 65 2c 20 26 64 73 29 2c 20 53 ertfile, &ds), S
8840: 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 SL_FILETYPE_PEM)
8850: 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 54 63 <= 0) {.. Tc
8860: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
8870: 73 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 s);.. Tcl_App
8880: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8890: 2c 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 , "unable to set
88a0: 20 63 65 72 74 69 66 69 63 61 74 65 20 66 69 6c certificate fil
88b0: 65 20 22 2c 20 63 65 72 74 66 69 6c 65 2c 20 22 e ", certfile, "
88c0: 3a 20 22 2c 0a 09 09 20 20 20 20 47 45 54 5f 45 : ",... GET_E
88d0: 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 RR_REASON(), (ch
88e0: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 20 20 20 ar *)NULL);..
88f0: 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 SSL_CTX_free(ct
8900: 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 x);.. return
8910: 4e 55 4c 4c 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 NULL;..}. } e
8920: 6c 73 65 20 69 66 20 28 63 65 72 74 20 21 3d 20 lse if (cert !=
8930: 4e 55 4c 4c 29 20 7b 0a 09 6c 6f 61 64 5f 70 72 NULL) {..load_pr
8940: 69 76 61 74 65 5f 6b 65 79 20 3d 20 31 3b 0a 09 ivate_key = 1;..
8950: 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f if (SSL_CTX_use_
8960: 63 65 72 74 69 66 69 63 61 74 65 5f 41 53 4e 31 certificate_ASN1
8970: 28 63 74 78 2c 20 63 65 72 74 5f 6c 65 6e 2c 20 (ctx, cert_len,
8980: 63 65 72 74 29 20 3c 3d 20 30 29 20 7b 0a 09 20 cert) <= 0) {..
8990: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 Tcl_DStringFr
89a0: 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 ee(&ds);.. Tc
89b0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
89c0: 6e 74 65 72 70 2c 20 22 75 6e 61 62 6c 65 20 74 nterp, "unable t
89d0: 6f 20 73 65 74 20 63 65 72 74 69 66 69 63 61 74 o set certificat
89e0: 65 3a 20 22 2c 0a 09 09 20 20 20 20 47 45 54 5f e: ",... GET_
89f0: 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 ERR_REASON(), (c
8a00: 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 20 20 har *)NULL);..
8a10: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
8a20: 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tx);.. return
8a30: 20 4e 55 4c 4c 3b 0a 09 7d 0a 20 20 20 20 7d 20 NULL;..}. }
8a40: 65 6c 73 65 20 7b 0a 09 63 65 72 74 66 69 6c 65 else {..certfile
8a50: 20 3d 20 28 63 68 61 72 2a 29 58 35 30 39 5f 67 = (char*)X509_g
8a60: 65 74 5f 64 65 66 61 75 6c 74 5f 63 65 72 74 5f et_default_cert_
8a70: 66 69 6c 65 28 29 3b 0a 0a 09 69 66 20 28 53 53 file();...if (SS
8a80: 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 L_CTX_use_certif
8a90: 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 icate_file(ctx,
8aa0: 63 65 72 74 66 69 6c 65 2c 20 53 53 4c 5f 46 49 certfile, SSL_FI
8ab0: 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 LETYPE_PEM) <= 0
8ac0: 29 20 7b 0a 23 69 66 20 30 0a 09 20 20 20 20 54 ) {.#if 0.. T
8ad0: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
8ae0: 64 73 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 ds);.. Tcl_Ap
8af0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
8b00: 70 2c 20 22 75 6e 61 62 6c 65 20 74 6f 20 75 73 p, "unable to us
8b10: 65 20 64 65 66 61 75 6c 74 20 63 65 72 74 69 66 e default certif
8b20: 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 63 65 icate file ", ce
8b30: 72 74 66 69 6c 65 2c 20 22 3a 20 22 2c 0a 09 09 rtfile, ": ",...
8b40: 20 20 20 20 47 45 54 5f 45 52 52 5f 52 45 41 53 GET_ERR_REAS
8b50: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 4e 55 ON(), (char *)NU
8b60: 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 LL);.. SSL_CT
8b70: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20 X_free(ctx);..
8b80: 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 23 return NULL;.#
8b90: 65 6e 64 69 66 0a 09 7d 0a 20 20 20 20 7d 0a 0a endif..}. }..
8ba0: 20 20 20 20 2f 2a 20 73 65 74 20 6f 75 72 20 70 /* set our p
8bb0: 72 69 76 61 74 65 20 6b 65 79 20 2a 2f 0a 20 20 rivate key */.
8bc0: 20 20 69 66 20 28 6c 6f 61 64 5f 70 72 69 76 61 if (load_priva
8bd0: 74 65 5f 6b 65 79 29 20 7b 0a 09 69 66 20 28 6b te_key) {..if (k
8be0: 65 79 66 69 6c 65 20 3d 3d 20 4e 55 4c 4c 20 26 eyfile == NULL &
8bf0: 26 20 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 20 7b & key == NULL) {
8c00: 0a 09 20 20 20 20 6b 65 79 66 69 6c 65 20 3d 20 .. keyfile =
8c10: 63 65 72 74 66 69 6c 65 3b 0a 09 7d 0a 0a 09 69 certfile;..}...i
8c20: 66 20 28 6b 65 79 66 69 6c 65 20 21 3d 20 4e 55 f (keyfile != NU
8c30: 4c 4c 29 20 7b 0a 09 20 20 20 20 2f 2a 20 67 65 LL) {.. /* ge
8c40: 74 20 74 68 65 20 70 72 69 76 61 74 65 20 6b 65 t the private ke
8c50: 79 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 y associated wit
8c60: 68 20 74 68 69 73 20 63 65 72 74 69 66 69 63 61 h this certifica
8c70: 74 65 20 2a 2f 0a 09 20 20 20 20 69 66 20 28 6b te */.. if (k
8c80: 65 79 66 69 6c 65 20 3d 3d 20 4e 55 4c 4c 29 20 eyfile == NULL)
8c90: 7b 0a 09 09 6b 65 79 66 69 6c 65 20 3d 20 63 65 {...keyfile = ce
8ca0: 72 74 66 69 6c 65 3b 0a 09 20 20 20 20 7d 0a 0a rtfile;.. }..
8cb0: 09 20 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 . if (SSL_CTX
8cc0: 5f 75 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f _use_PrivateKey_
8cd0: 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28 6b 65 file(ctx, F2N(ke
8ce0: 79 66 69 6c 65 2c 20 26 64 73 29 2c 20 53 53 4c yfile, &ds), SSL
8cf0: 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c _FILETYPE_PEM) <
8d00: 3d 20 30 29 20 7b 0a 09 09 54 63 6c 5f 44 53 74 = 0) {...Tcl_DSt
8d10: 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 ringFree(&ds);..
8d20: 09 2f 2a 20 66 6c 75 73 68 20 74 68 65 20 70 61 ./* flush the pa
8d30: 73 73 70 68 72 61 73 65 20 77 68 69 63 68 20 6d ssphrase which m
8d40: 69 67 68 74 20 62 65 20 6c 65 66 74 20 69 6e 20 ight be left in
8d50: 74 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a 09 09 the result */...
8d60: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
8d70: 74 65 72 70 2c 20 4e 55 4c 4c 2c 20 54 43 4c 5f terp, NULL, TCL_
8d80: 53 54 41 54 49 43 29 3b 0a 09 09 54 63 6c 5f 41 STATIC);...Tcl_A
8d90: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8da0: 72 70 2c 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 rp, "unable to s
8db0: 65 74 20 70 75 62 6c 69 63 20 6b 65 79 20 66 69 et public key fi
8dc0: 6c 65 20 22 2c 20 6b 65 79 66 69 6c 65 2c 20 22 le ", keyfile, "
8dd0: 20 22 2c 0a 09 09 09 47 45 54 5f 45 52 52 5f 52 ",....GET_ERR_R
8de0: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
8df0: 29 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 )NULL);...SSL_CT
8e00: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 X_free(ctx);...r
8e10: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 09 20 20 20 eturn NULL;..
8e20: 20 7d 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 }.. Tcl_DStr
8e30: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 7d ingFree(&ds);..}
8e40: 20 65 6c 73 65 20 69 66 20 28 6b 65 79 20 21 3d else if (key !=
8e50: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 69 66 NULL) {.. if
8e60: 20 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 72 (SSL_CTX_use_Pr
8e70: 69 76 61 74 65 4b 65 79 5f 41 53 4e 31 28 45 56 ivateKey_ASN1(EV
8e80: 50 5f 50 4b 45 59 5f 52 53 41 2c 20 63 74 78 2c P_PKEY_RSA, ctx,
8e90: 20 6b 65 79 2c 6b 65 79 5f 6c 65 6e 29 20 3c 3d key,key_len) <=
8ea0: 20 30 29 20 7b 0a 09 09 54 63 6c 5f 44 53 74 72 0) {...Tcl_DStr
8eb0: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 09 ingFree(&ds);...
8ec0: 2f 2a 20 66 6c 75 73 68 20 74 68 65 20 70 61 73 /* flush the pas
8ed0: 73 70 68 72 61 73 65 20 77 68 69 63 68 20 6d 69 sphrase which mi
8ee0: 67 68 74 20 62 65 20 6c 65 66 74 20 69 6e 20 74 ght be left in t
8ef0: 68 65 20 72 65 73 75 6c 74 20 2a 2f 0a 09 09 54 he result */...T
8f00: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
8f10: 65 72 70 2c 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 erp, NULL, TCL_S
8f20: 54 41 54 49 43 29 3b 0a 09 09 54 63 6c 5f 41 70 TATIC);...Tcl_Ap
8f30: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
8f40: 70 2c 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 p, "unable to se
8f50: 74 20 70 75 62 6c 69 63 20 6b 65 79 3a 20 22 2c t public key: ",
8f60: 20 47 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 GET_ERR_REASON(
8f70: 29 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ), (char *)NULL)
8f80: 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 ;...SSL_CTX_free
8f90: 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 6e 20 (ctx);...return
8fa0: 4e 55 4c 4c 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a NULL;.. }..}.
8fb0: 09 2f 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f 77 20 ./* Now we know
8fc0: 74 68 61 74 20 61 20 6b 65 79 20 61 6e 64 20 63 that a key and c
8fd0: 65 72 74 20 68 61 76 65 20 62 65 65 6e 20 73 65 ert have been se
8fe0: 74 20 61 67 61 69 6e 73 74 0a 09 20 2a 20 74 68 t against.. * th
8ff0: 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f e SSL context */
9000: 0a 09 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 63 ..if (!SSL_CTX_c
9010: 68 65 63 6b 5f 70 72 69 76 61 74 65 5f 6b 65 79 heck_private_key
9020: 28 63 74 78 29 29 20 7b 0a 09 20 20 20 20 54 63 (ctx)) {.. Tc
9030: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
9040: 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 22 70 72 nterp,... "pr
9050: 69 76 61 74 65 20 6b 65 79 20 64 6f 65 73 20 6e ivate key does n
9060: 6f 74 20 6d 61 74 63 68 20 74 68 65 20 63 65 72 ot match the cer
9070: 74 69 66 69 63 61 74 65 20 70 75 62 6c 69 63 20 tificate public
9080: 6b 65 79 22 2c 0a 09 09 20 20 20 20 28 63 68 61 key",... (cha
9090: 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 r *)NULL);..
90a0: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
90b0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 4e );.. return N
90c0: 55 4c 4c 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 ULL;..}. }..
90d0: 20 20 20 2f 2a 20 53 65 74 20 76 65 72 69 66 69 /* Set verifi
90e0: 63 61 74 69 6f 6e 20 43 41 73 20 2a 2f 0a 20 20 cation CAs */.
90f0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 Tcl_DStringIni
9100: 74 28 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f t(&ds);. Tcl_
9110: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 31 DStringInit(&ds1
9120: 29 3b 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f );. if (!SSL_
9130: 43 54 58 5f 6c 6f 61 64 5f 76 65 72 69 66 79 5f CTX_load_verify_
9140: 6c 6f 63 61 74 69 6f 6e 73 28 63 74 78 2c 20 46 locations(ctx, F
9150: 32 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 2c 2N(CAfile, &ds),
9160: 20 46 32 4e 28 43 41 64 69 72 2c 20 26 64 73 31 F2N(CAdir, &ds1
9170: 29 29 20 7c 7c 0a 09 21 53 53 4c 5f 43 54 58 5f )) ||..!SSL_CTX_
9180: 73 65 74 5f 64 65 66 61 75 6c 74 5f 76 65 72 69 set_default_veri
9190: 66 79 5f 70 61 74 68 73 28 63 74 78 29 29 20 7b fy_paths(ctx)) {
91a0: 0a 23 69 66 20 30 0a 09 54 63 6c 5f 44 53 74 72 .#if 0..Tcl_DStr
91b0: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 54 ingFree(&ds);..T
91c0: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 cl_DStringFree(&
91d0: 64 73 31 29 3b 0a 09 2f 2a 20 44 6f 6e 27 74 20 ds1);../* Don't
91e0: 63 75 72 72 65 6e 74 6c 79 20 63 61 72 65 20 69 currently care i
91f0: 66 20 74 68 69 73 20 66 61 69 6c 73 20 2a 2f 0a f this fails */.
9200: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
9210: 74 28 69 6e 74 65 72 70 2c 20 22 53 53 4c 20 64 t(interp, "SSL d
9220: 65 66 61 75 6c 74 20 76 65 72 69 66 79 20 70 61 efault verify pa
9230: 74 68 73 3a 20 22 2c 0a 09 09 47 45 54 5f 45 52 ths: ",...GET_ER
9240: 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 R_REASON(), (cha
9250: 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f r *)NULL);..SSL_
9260: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
9270: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 23 65 6e return NULL;.#en
9280: 64 69 66 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f dif. }.. /
9290: 2a 20 68 74 74 70 73 3a 2f 2f 73 6f 75 72 63 65 * https://source
92a0: 66 6f 72 67 65 2e 6e 65 74 2f 70 2f 74 6c 73 2f forge.net/p/tls/
92b0: 62 75 67 73 2f 35 37 2f 20 2a 2f 0a 20 20 20 20 bugs/57/ */.
92c0: 2f 2a 20 58 58 58 3a 54 4f 44 4f 3a 20 4c 65 74 /* XXX:TODO: Let
92d0: 20 74 68 65 20 75 73 65 72 20 73 75 70 70 6c 79 the user supply
92e0: 20 76 61 6c 75 65 73 20 68 65 72 65 20 69 6e 73 values here ins
92f0: 74 65 61 64 20 6f 66 20 73 6f 6d 65 74 68 69 6e tead of somethin
9300: 67 20 74 68 61 74 20 65 78 69 73 74 73 20 6f 6e g that exists on
9310: 20 74 68 65 20 66 69 6c 65 73 79 73 74 65 6d 20 the filesystem
9320: 2a 2f 0a 20 20 20 20 69 66 20 28 43 41 66 69 6c */. if (CAfil
9330: 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 20 20 20 e != NULL) {.
9340: 20 20 20 20 20 53 54 41 43 4b 5f 4f 46 28 58 35 STACK_OF(X5
9350: 30 39 5f 4e 41 4d 45 29 20 2a 63 65 72 74 4e 61 09_NAME) *certNa
9360: 6d 65 73 20 3d 20 53 53 4c 5f 6c 6f 61 64 5f 63 mes = SSL_load_c
9370: 6c 69 65 6e 74 5f 43 41 5f 66 69 6c 65 28 46 32 lient_CA_file(F2
9380: 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 29 3b N(CAfile, &ds));
9390: 0a 09 69 66 20 28 63 65 72 74 4e 61 6d 65 73 20 ..if (certNames
93a0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 != NULL) {..
93b0: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69 65 SSL_CTX_set_clie
93c0: 6e 74 5f 43 41 5f 6c 69 73 74 28 63 74 78 2c 20 nt_CA_list(ctx,
93d0: 63 65 72 74 4e 61 6d 65 73 29 3b 0a 09 7d 0a 20 certNames);..}.
93e0: 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 44 53 }.. Tcl_DS
93f0: 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a tringFree(&ds);.
9400: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 Tcl_DStringF
9410: 72 65 65 28 26 64 73 31 29 3b 0a 20 20 20 20 72 ree(&ds1);. r
9420: 65 74 75 72 6e 20 63 74 78 3b 0a 7d 0a 0c 0a 2f eturn ctx;.}.../
9430: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
9440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9470: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 53 74 -------. *. * St
9480: 61 74 75 73 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 atusObjCmd -- re
9490: 74 75 72 6e 20 63 65 72 74 69 66 69 63 61 74 65 turn certificate
94a0: 20 66 6f 72 20 63 6f 6e 6e 65 63 74 65 64 20 70 for connected p
94b0: 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c eer.. *. * Resul
94c0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
94d0: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
94e0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
94f0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
9500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9540: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
9550: 6e 74 0a 53 74 61 74 75 73 4f 62 6a 43 6d 64 28 nt.StatusObjCmd(
9560: 0a 20 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 28 . TCL_UNUSED(
9570: 76 6f 69 64 20 2a 29 2c 0a 20 20 20 20 54 63 6c void *),. Tcl
9580: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
9590: 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 . int objc,.
95a0: 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 63 6f 6e 73 Tcl_Obj.*cons
95b0: 74 20 6f 62 6a 76 5b 5d 29 0a 7b 0a 20 20 20 20 t objv[]).{.
95c0: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
95d0: 0a 20 20 20 20 58 35 30 39 20 2a 70 65 65 72 3b . X509 *peer;
95e0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 . Tcl_Obj *ob
95f0: 6a 50 74 72 3b 0a 20 20 20 20 54 63 6c 5f 43 68 jPtr;. Tcl_Ch
9600: 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 annel chan;.
9610: 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 4e 61 6d char *channelNam
9620: 65 2c 20 2a 63 69 70 68 65 72 73 3b 0a 20 20 20 e, *ciphers;.
9630: 20 69 6e 74 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 int mode;..
9640: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
9650: 29 3b 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 );.. switch (
9660: 6f 62 6a 63 29 20 7b 0a 09 63 61 73 65 20 32 3a objc) {..case 2:
9670: 0a 09 20 20 20 20 63 68 61 6e 6e 65 6c 4e 61 6d .. channelNam
9680: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
9690: 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 09 20 20 20 g(objv[1]);..
96a0: 20 62 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 33 break;...case 3
96b0: 3a 0a 09 20 20 20 20 69 66 20 28 21 73 74 72 63 :.. if (!strc
96c0: 6d 70 20 28 54 63 6c 5f 47 65 74 53 74 72 69 6e mp (Tcl_GetStrin
96d0: 67 20 28 6f 62 6a 76 5b 31 5d 29 2c 20 22 2d 6c g (objv[1]), "-l
96e0: 6f 63 61 6c 22 29 29 20 7b 0a 09 09 63 68 61 6e ocal")) {...chan
96f0: 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 nelName = Tcl_Ge
9700: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 tString(objv[2])
9710: 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 ;...break;..
9720: 7d 0a 09 20 20 20 20 2f 2a 20 66 61 6c 6c 74 68 }.. /* fallth
9730: 72 6f 75 67 68 20 2a 2f 0a 09 64 65 66 61 75 6c rough */..defaul
9740: 74 3a 0a 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e t:.. Tcl_Wron
9750: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
9760: 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6c 6f 63 1, objv, "?-loc
9770: 61 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 al? channel");..
9780: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
9790: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
97a0: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 chan = Tcl_GetC
97b0: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 hannel(interp, c
97c0: 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 6d 6f 64 hannelName, &mod
97d0: 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e e);. if (chan
97e0: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
97f0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
9800: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
9810: 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }. /*. *
9820: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
9830: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
9840: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 20 20 most channel.
9850: 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 */. chan =
9860: 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 Tcl_GetTopChanne
9870: 6c 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 l(chan);. if
9880: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 (Tcl_GetChannelT
9890: 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 ype(chan) != Tls
98a0: 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 _ChannelType())
98b0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
98c0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 ult(interp, "bad
98d0: 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 channel \"", Tc
98e0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 l_GetChannelName
98f0: 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e (chan),..."\": n
9900: 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c ot a TLS channel
9910: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
9920: 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 ;..Tcl_SetErrorC
9930: 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c 53 ode(interp, "TLS
9940: 22 2c 20 22 53 54 41 54 55 53 22 2c 20 22 43 48 ", "STATUS", "CH
9950: 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c 49 44 ANNEL", "INVALID
9960: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
9970: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
9980: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 ROR;. }. s
9990: 74 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 tatePtr = (State
99a0: 20 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e *) Tcl_GetChann
99b0: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 elInstanceData(c
99c0: 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 han);.. /* Ge
99d0: 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 6f t certificate fo
99e0: 72 20 70 65 65 72 20 6f 72 20 73 65 6c 66 20 2a r peer or self *
99f0: 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d /. if (objc =
9a00: 3d 20 32 29 20 7b 0a 09 70 65 65 72 20 3d 20 53 = 2) {..peer = S
9a10: 53 4c 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 SL_get_peer_cert
9a20: 69 66 69 63 61 74 65 28 73 74 61 74 65 50 74 72 ificate(statePtr
9a30: 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c ->ssl);. } el
9a40: 73 65 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c se {..peer = SSL
9a50: 5f 67 65 74 5f 63 65 72 74 69 66 69 63 61 74 65 _get_certificate
9a60: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
9a70: 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 47 65 . }. /* Ge
9a80: 74 20 58 35 30 39 20 63 65 72 74 69 66 69 63 61 t X509 certifica
9a90: 74 65 20 69 6e 66 6f 20 2a 2f 0a 20 20 20 20 69 te info */. i
9aa0: 66 20 28 70 65 65 72 29 20 7b 0a 09 6f 62 6a 50 f (peer) {..objP
9ab0: 74 72 20 3d 20 54 6c 73 5f 4e 65 77 58 35 30 39 tr = Tls_NewX509
9ac0: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 70 65 65 72 Obj(interp, peer
9ad0: 29 3b 0a 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 );..if (objc ==
9ae0: 32 29 20 7b 0a 09 20 20 20 20 58 35 30 39 5f 66 2) {.. X509_f
9af0: 72 65 65 28 70 65 65 72 29 3b 0a 09 20 20 20 20 ree(peer);..
9b00: 70 65 65 72 20 3d 20 4e 55 4c 4c 3b 0a 09 7d 0a peer = NULL;..}.
9b10: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6f 62 } else {..ob
9b20: 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 jPtr = Tcl_NewLi
9b30: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
9b40: 20 20 20 20 7d 0a 0a 20 20 20 20 4c 41 50 50 45 }.. LAPPE
9b50: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f ND_INT(interp, o
9b60: 62 6a 50 74 72 2c 20 22 73 62 69 74 73 22 2c 20 bjPtr, "sbits",
9b70: 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f 62 SSL_get_cipher_b
9b80: 69 74 73 28 73 74 61 74 65 50 74 72 2d 3e 73 73 its(statePtr->ss
9b90: 6c 2c 20 4e 55 4c 4c 29 29 3b 0a 0a 20 20 20 20 l, NULL));..
9ba0: 63 69 70 68 65 72 73 20 3d 20 28 63 68 61 72 2a ciphers = (char*
9bb0: 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 )SSL_get_cipher(
9bc0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
9bd0: 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73 20 if (ciphers
9be0: 21 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 63 6d != NULL && strcm
9bf0: 70 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f 4e p(ciphers, "(NON
9c00: 45 29 22 29 21 3d 30 29 20 7b 0a 09 4c 41 50 50 E)")!=0) {..LAPP
9c10: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
9c20: 6f 62 6a 50 74 72 2c 20 22 63 69 70 68 65 72 22 objPtr, "cipher"
9c30: 2c 20 63 69 70 68 65 72 73 2c 20 2d 31 29 3b 0a , ciphers, -1);.
9c40: 20 20 20 20 7d 0a 0a 20 20 20 20 4c 41 50 50 45 }.. LAPPE
9c50: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f ND_STR(interp, o
9c60: 62 6a 50 74 72 2c 20 22 76 65 72 73 69 6f 6e 22 bjPtr, "version"
9c70: 2c 20 53 53 4c 5f 67 65 74 5f 76 65 72 73 69 6f , SSL_get_versio
9c80: 6e 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 n(statePtr->ssl)
9c90: 2c 20 2d 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f , -1);.. Tcl_
9ca0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
9cb0: 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 erp, objPtr);.
9cc0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
9cd0: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .}.../*. *------
9ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
9d20: 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d . * VersionObjCm
9d30: 64 20 2d 2d 20 72 65 74 75 72 6e 20 76 65 72 73 d -- return vers
9d40: 69 6f 6e 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 ion string from
9d50: 4f 70 65 6e 53 53 4c 2e 0a 20 2a 0a 20 2a 20 52 OpenSSL.. *. * R
9d60: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
9d70: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
9d80: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
9d90: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
9da0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
9db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9de0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
9df0: 69 63 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f 62 ic int.VersionOb
9e00: 6a 43 6d 64 28 0a 20 20 20 20 54 43 4c 5f 55 4e jCmd(. TCL_UN
9e10: 55 53 45 44 28 76 6f 69 64 20 2a 29 2c 0a 20 20 USED(void *),.
9e20: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
9e30: 74 65 72 70 2c 0a 20 20 20 20 54 43 4c 5f 55 4e terp,. TCL_UN
9e40: 55 53 45 44 28 69 6e 74 29 20 2f 2a 20 6f 62 6a USED(int) /* obj
9e50: 63 20 2a 2f 2c 0a 20 20 20 20 54 43 4c 5f 55 4e c */,. TCL_UN
9e60: 55 53 45 44 28 54 63 6c 5f 4f 62 6a 20 2a 63 6f USED(Tcl_Obj *co
9e70: 6e 73 74 20 2a 29 20 2f 2a 20 6f 62 6a 76 20 2a nst *) /* objv *
9e80: 2f 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a /).{. Tcl_Obj
9e90: 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 64 *objPtr;.. d
9ea0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
9eb0: 3b 0a 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 ;.. objPtr =
9ec0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
9ed0: 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e (OPENSSL_VERSION
9ee0: 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 0a 20 20 20 _TEXT, -1);..
9ef0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
9f00: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 t(interp, objPtr
9f10: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
9f20: 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d L_OK;.}.../*. *-
9f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9f70: 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 73 63 4f 62 6a --. *. * MiscObj
9f80: 43 6d 64 20 2d 2d 20 6d 69 73 63 20 63 6f 6d 6d Cmd -- misc comm
9f90: 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ands. *. * Resul
9fa0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
9fb0: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a d Tcl result.. *
9fc0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
9fd0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
9fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a020: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
a030: 6e 74 0a 4d 69 73 63 4f 62 6a 43 6d 64 28 0a 20 nt.MiscObjCmd(.
a040: 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 28 76 6f TCL_UNUSED(vo
a050: 69 64 20 2a 29 2c 0a 20 20 20 20 54 63 6c 5f 49 id *),. Tcl_I
a060: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 nterp *interp,.
a070: 20 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 20 int objc,.
a080: 20 54 63 6c 5f 4f 62 6a 09 2a 63 6f 6e 73 74 20 Tcl_Obj.*const
a090: 6f 62 6a 76 5b 5d 29 0a 7b 0a 20 20 20 20 73 74 objv[]).{. st
a0a0: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 atic const char
a0b0: 2a 63 6f 6d 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b *commands [] = {
a0c0: 20 22 72 65 71 22 2c 20 4e 55 4c 4c 20 7d 3b 0a "req", NULL };.
a0d0: 20 20 20 20 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 enum command
a0e0: 20 7b 20 43 5f 52 45 51 2c 20 43 5f 44 55 4d 4d { C_REQ, C_DUMM
a0f0: 59 20 7d 3b 0a 20 20 20 20 69 6e 74 20 63 6d 64 Y };. int cmd
a100: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
a110: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 Called");.. i
a120: 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 09 f (objc < 2) {..
a130: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
a140: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
a150: 2c 20 22 73 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 , "subcommand ?a
a160: 72 67 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 rgs?");..return
a170: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
a180: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
a190: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 IndexFromObj(int
a1a0: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 63 6f erp, objv[1], co
a1b0: 6d 6d 61 6e 64 73 2c 0a 09 20 20 20 20 22 63 6f mmands,.. "co
a1c0: 6d 6d 61 6e 64 22 2c 20 30 2c 26 63 6d 64 29 20 mmand", 0,&cmd)
a1d0: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 != TCL_OK) {..re
a1e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
a1f0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 }.. switc
a200: 68 20 28 28 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 h ((enum command
a210: 29 20 63 6d 64 29 20 7b 0a 09 63 61 73 65 20 43 ) cmd) {..case C
a220: 5f 52 45 51 3a 20 7b 0a 09 20 20 20 20 45 56 50 _REQ: {.. EVP
a230: 5f 50 4b 45 59 20 2a 70 6b 65 79 3d 4e 55 4c 4c _PKEY *pkey=NULL
a240: 3b 0a 09 20 20 20 20 58 35 30 39 20 2a 63 65 72 ;.. X509 *cer
a250: 74 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 58 35 30 t=NULL;.. X50
a260: 39 5f 4e 41 4d 45 20 2a 6e 61 6d 65 3d 4e 55 4c 9_NAME *name=NUL
a270: 4c 3b 0a 09 20 20 20 20 54 63 6c 5f 4f 62 6a 20 L;.. Tcl_Obj
a280: 2a 2a 6c 69 73 74 76 3b 0a 09 20 20 20 20 54 63 **listv;.. Tc
a290: 6c 5f 53 69 7a 65 20 6c 69 73 74 63 2c 69 3b 0a l_Size listc,i;.
a2a0: 0a 09 20 20 20 20 42 49 4f 20 2a 6f 75 74 3d 4e .. BIO *out=N
a2b0: 55 4c 4c 3b 0a 0a 09 20 20 20 20 63 6f 6e 73 74 ULL;... const
a2c0: 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 2c 2a 6b char *k_C="",*k
a2d0: 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 22 2c 2a _ST="",*k_L="",*
a2e0: 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d 22 22 2c k_O="",*k_OU="",
a2f0: 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 6d 61 69 *k_CN="",*k_Emai
a300: 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 61 72 20 l="";.. char
a310: 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f 75 74 2c *keyout,*pemout,
a320: 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e 74 20 6b *str;.. int k
a330: 65 79 73 69 7a 65 2c 73 65 72 69 61 6c 3d 30 2c eysize,serial=0,
a340: 64 61 79 73 3d 33 36 35 3b 0a 0a 09 20 20 20 20 days=365;...
a350: 69 66 20 28 28 6f 62 6a 63 3c 35 29 20 7c 7c 20 if ((objc<5) ||
a360: 28 6f 62 6a 63 3e 36 29 29 20 7b 0a 09 09 54 63 (objc>6)) {...Tc
a370: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
a380: 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 nterp, 2, objv,
a390: 22 6b 65 79 73 69 7a 65 20 6b 65 79 66 69 6c 65 "keysize keyfile
a3a0: 20 63 65 72 74 66 69 6c 65 20 3f 69 6e 66 6f 3f certfile ?info?
a3b0: 22 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c ");...return TCL
a3c0: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 0a _ERROR;.. }..
a3d0: 09 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
a3e0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
a3f0: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6b 65 79 p, objv[2], &key
a400: 73 69 7a 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 size) != TCL_OK)
a410: 20 7b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f {...return TCL_
a420: 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 20 ERROR;.. }..
a430: 20 20 20 6b 65 79 6f 75 74 3d 54 63 6c 5f 47 65 keyout=Tcl_Ge
a440: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 tString(objv[3])
a450: 3b 0a 09 20 20 20 20 70 65 6d 6f 75 74 3d 54 63 ;.. pemout=Tc
a460: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
a470: 5b 34 5d 29 3b 0a 0a 09 20 20 20 20 69 66 20 28 [4]);... if (
a480: 6f 62 6a 63 3e 3d 36 29 20 7b 0a 09 09 69 66 20 objc>=6) {...if
a490: 28 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 (Tcl_ListObjGetE
a4a0: 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 lements(interp,
a4b0: 6f 62 6a 76 5b 35 5d 2c 20 26 6c 69 73 74 63 2c objv[5], &listc,
a4c0: 20 26 6c 69 73 74 76 29 20 21 3d 20 54 43 4c 5f &listv) != TCL_
a4d0: 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 65 74 75 OK) {... retu
a4e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 rn TCL_ERROR;...
a4f0: 7d 0a 0a 09 09 69 66 20 28 28 6c 69 73 74 63 25 }....if ((listc%
a500: 32 29 20 21 3d 20 30 29 20 7b 0a 09 09 20 20 20 2) != 0) {...
a510: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
a520: 6e 74 65 72 70 2c 22 49 6e 66 6f 72 6d 61 74 69 nterp,"Informati
a530: 6f 6e 20 6c 69 73 74 20 6d 75 73 74 20 68 61 76 on list must hav
a540: 65 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f 66 e even number of
a550: 20 61 72 67 75 6d 65 6e 74 73 22 2c 4e 55 4c 4c arguments",NULL
a560: 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 );... return
a570: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 TCL_ERROR;...}..
a580: 09 66 6f 72 20 28 69 3d 30 3b 20 69 3c 6c 69 73 .for (i=0; i<lis
a590: 74 63 3b 20 69 2b 3d 32 29 20 7b 0a 09 09 20 20 tc; i+=2) {...
a5a0: 20 20 73 74 72 3d 54 63 6c 5f 47 65 74 53 74 72 str=Tcl_GetStr
a5b0: 69 6e 67 28 6c 69 73 74 76 5b 69 5d 29 3b 0a 09 ing(listv[i]);..
a5c0: 09 20 20 20 20 69 66 20 28 73 74 72 63 6d 70 28 . if (strcmp(
a5d0: 73 74 72 2c 22 64 61 79 73 22 29 3d 3d 30 29 20 str,"days")==0)
a5e0: 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 65 74 {....if (Tcl_Get
a5f0: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
a600: 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 64 61 p,listv[i+1],&da
a610: 79 73 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 ys)!=TCL_OK)....
a620: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
a630: 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c RROR;... } el
a640: 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 se if (strcmp(st
a650: 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d 30 29 20 r,"serial")==0)
a660: 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47 65 74 {....if (Tcl_Get
a670: 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 IntFromObj(inter
a680: 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26 73 65 p,listv[i+1],&se
a690: 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 rial)!=TCL_OK)..
a6a0: 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
a6b0: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20 _ERROR;... }
a6c0: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 else if (strcmp(
a6d0: 73 74 72 2c 22 43 22 29 3d 3d 30 29 20 7b 0a 09 str,"C")==0) {..
a6e0: 09 09 6b 5f 43 3d 54 63 6c 5f 47 65 74 53 74 72 ..k_C=Tcl_GetStr
a6f0: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b ing(listv[i+1]);
a700: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
a710: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 53 54 (strcmp(str,"ST
a720: 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 53 54 ")==0) {....k_ST
a730: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
a740: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 istv[i+1]);...
a750: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
a760: 63 6d 70 28 73 74 72 2c 22 4c 22 29 3d 3d 30 29 cmp(str,"L")==0)
a770: 20 7b 0a 09 09 09 6b 5f 4c 3d 54 63 6c 5f 47 65 {....k_L=Tcl_Ge
a780: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
a790: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
a7a0: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 e if (strcmp(str
a7b0: 2c 22 4f 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b ,"O")==0) {....k
a7c0: 5f 4f 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 _O=Tcl_GetString
a7d0: 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 (listv[i+1]);...
a7e0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 } else if (s
a7f0: 74 72 63 6d 70 28 73 74 72 2c 22 4f 55 22 29 3d trcmp(str,"OU")=
a800: 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 55 3d 54 63 =0) {....k_OU=Tc
a810: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
a820: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
a830: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
a840: 28 73 74 72 2c 22 43 4e 22 29 3d 3d 30 29 20 7b (str,"CN")==0) {
a850: 0a 09 09 09 6b 5f 43 4e 3d 54 63 6c 5f 47 65 74 ....k_CN=Tcl_Get
a860: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 String(listv[i+1
a870: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 ]);... } else
a880: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
a890: 22 45 6d 61 69 6c 22 29 3d 3d 30 29 20 7b 0a 09 "Email")==0) {..
a8a0: 09 09 6b 5f 45 6d 61 69 6c 3d 54 63 6c 5f 47 65 ..k_Email=Tcl_Ge
a8b0: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b tString(listv[i+
a8c0: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 1]);... } els
a8d0: 65 20 7b 0a 09 09 09 54 63 6c 5f 53 65 74 52 65 e {....Tcl_SetRe
a8e0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 55 6e 6b sult(interp,"Unk
a8f0: 6e 6f 77 6e 20 70 61 72 61 6d 65 74 65 72 22 2c nown parameter",
a900: 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 74 75 72 6e NULL);....return
a910: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 TCL_ERROR;...
a920: 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 }...}.. }..
a930: 20 20 20 20 69 66 20 28 28 70 6b 65 79 20 3d 20 if ((pkey =
a940: 45 56 50 5f 50 4b 45 59 5f 6e 65 77 28 29 29 20 EVP_PKEY_new())
a950: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 69 66 20 != NULL) {...if
a960: 28 21 45 56 50 5f 50 4b 45 59 5f 61 73 73 69 67 (!EVP_PKEY_assig
a970: 6e 5f 52 53 41 28 70 6b 65 79 2c 0a 09 09 09 52 n_RSA(pkey,....R
a980: 53 41 5f 67 65 6e 65 72 61 74 65 5f 6b 65 79 28 SA_generate_key(
a990: 6b 65 79 73 69 7a 65 2c 20 30 78 31 30 30 30 31 keysize, 0x10001
a9a0: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 29 29 20 , NULL, NULL)))
a9b0: 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 {... Tcl_SetR
a9c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 esult(interp,"Er
a9d0: 72 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 70 ror generating p
a9e0: 72 69 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c rivate key",NULL
a9f0: 29 3b 0a 09 09 20 20 20 20 45 56 50 5f 50 4b 45 );... EVP_PKE
aa00: 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 Y_free(pkey);...
aa10: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
aa20: 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 6f 75 74 3d RROR;...}...out=
aa30: 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 66 69 BIO_new(BIO_s_fi
aa40: 6c 65 28 29 29 3b 0a 09 09 42 49 4f 5f 77 72 69 le());...BIO_wri
aa50: 74 65 5f 66 69 6c 65 6e 61 6d 65 28 6f 75 74 2c te_filename(out,
aa60: 6b 65 79 6f 75 74 29 3b 0a 09 09 50 45 4d 5f 77 keyout);...PEM_w
aa70: 72 69 74 65 5f 62 69 6f 5f 50 72 69 76 61 74 65 rite_bio_Private
aa80: 4b 65 79 28 6f 75 74 2c 70 6b 65 79 2c 4e 55 4c Key(out,pkey,NUL
aa90: 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 L,NULL,0,NULL,NU
aaa0: 4c 4c 29 3b 0a 09 09 42 49 4f 5f 66 72 65 65 5f LL);...BIO_free_
aab0: 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 69 66 20 all(out);....if
aac0: 28 28 63 65 72 74 3d 58 35 30 39 5f 6e 65 77 28 ((cert=X509_new(
aad0: 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a 09 09 20 20 ))==NULL) {...
aae0: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
aaf0: 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67 65 interp,"Error ge
ab00: 6e 65 72 61 74 69 6e 67 20 63 65 72 74 69 66 69 nerating certifi
ab10: 63 61 74 65 20 72 65 71 75 65 73 74 22 2c 4e 55 cate request",NU
ab20: 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 50 5f 50 LL);... EVP_P
ab30: 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a KEY_free(pkey);.
ab40: 09 09 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c .. return(TCL
ab50: 5f 45 52 52 4f 52 29 3b 0a 09 09 7d 0a 0a 09 09 _ERROR);...}....
ab60: 58 35 30 39 5f 73 65 74 5f 76 65 72 73 69 6f 6e X509_set_version
ab70: 28 63 65 72 74 2c 32 29 3b 0a 09 09 41 53 4e 31 (cert,2);...ASN1
ab80: 5f 49 4e 54 45 47 45 52 5f 73 65 74 28 58 35 30 _INTEGER_set(X50
ab90: 39 5f 67 65 74 5f 73 65 72 69 61 6c 4e 75 6d 62 9_get_serialNumb
aba0: 65 72 28 63 65 72 74 29 2c 73 65 72 69 61 6c 29 er(cert),serial)
abb0: 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f ;...X509_gmtime_
abc0: 61 64 6a 28 58 35 30 39 5f 67 65 74 5f 6e 6f 74 adj(X509_get_not
abd0: 42 65 66 6f 72 65 28 63 65 72 74 29 2c 30 29 3b Before(cert),0);
abe0: 0a 09 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 ...X509_gmtime_a
abf0: 64 6a 28 58 35 30 39 5f 67 65 74 5f 6e 6f 74 41 dj(X509_get_notA
ac00: 66 74 65 72 28 63 65 72 74 29 2c 28 6c 6f 6e 67 fter(cert),(long
ac10: 29 36 30 2a 36 30 2a 32 34 2a 64 61 79 73 29 3b )60*60*24*days);
ac20: 0a 09 09 58 35 30 39 5f 73 65 74 5f 70 75 62 6b ...X509_set_pubk
ac30: 65 79 28 63 65 72 74 2c 70 6b 65 79 29 3b 0a 0a ey(cert,pkey);..
ac40: 09 09 6e 61 6d 65 3d 58 35 30 39 5f 67 65 74 5f ..name=X509_get_
ac50: 73 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 subject_name(cer
ac60: 74 29 3b 0a 0a 09 09 58 35 30 39 5f 4e 41 4d 45 t);....X509_NAME
ac70: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
ac80: 74 28 6e 61 6d 65 2c 22 43 22 2c 20 4d 42 53 54 t(name,"C", MBST
ac90: 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 67 RING_ASC, (unsig
aca0: 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 43 2c ned char *) k_C,
acb0: 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 -1, -1, 0);...X
acc0: 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 509_NAME_add_ent
acd0: 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 ry_by_txt(name,"
ace0: 53 54 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 ST", MBSTRING_AS
acf0: 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 C, (unsigned cha
ad00: 72 20 2a 29 20 6b 5f 53 54 2c 20 2d 31 2c 20 2d r *) k_ST, -1, -
ad10: 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 1, 0);...X509_NA
ad20: 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f ME_add_entry_by_
ad30: 74 78 74 28 6e 61 6d 65 2c 22 4c 22 2c 20 4d 42 txt(name,"L", MB
ad40: 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 STRING_ASC, (uns
ad50: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f igned char *) k_
ad60: 4c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 L, -1, -1, 0);..
ad70: 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 .X509_NAME_add_e
ad80: 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 ntry_by_txt(name
ad90: 2c 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 ,"O", MBSTRING_A
ada0: 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 SC, (unsigned ch
adb0: 61 72 20 2a 29 20 6b 5f 4f 2c 20 2d 31 2c 20 2d ar *) k_O, -1, -
adc0: 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 1, 0);...X509_NA
add0: 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f ME_add_entry_by_
ade0: 74 78 74 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d txt(name,"OU", M
adf0: 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e BSTRING_ASC, (un
ae00: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b signed char *) k
ae10: 5f 4f 55 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b _OU, -1, -1, 0);
ae20: 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 ...X509_NAME_add
ae30: 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 _entry_by_txt(na
ae40: 6d 65 2c 22 43 4e 22 2c 20 4d 42 53 54 52 49 4e me,"CN", MBSTRIN
ae50: 47 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 G_ASC, (unsigned
ae60: 20 63 68 61 72 20 2a 29 20 6b 5f 43 4e 2c 20 2d char *) k_CN, -
ae70: 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 1, -1, 0);...X50
ae80: 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 9_NAME_add_entry
ae90: 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 45 6d _by_txt(name,"Em
aea0: 61 69 6c 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 ail", MBSTRING_A
aeb0: 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 SC, (unsigned ch
aec0: 61 72 20 2a 29 20 6b 5f 45 6d 61 69 6c 2c 20 2d ar *) k_Email, -
aed0: 31 2c 20 2d 31 2c 20 30 29 3b 0a 0a 09 09 58 35 1, -1, 0);....X5
aee0: 30 39 5f 73 65 74 5f 73 75 62 6a 65 63 74 5f 6e 09_set_subject_n
aef0: 61 6d 65 28 63 65 72 74 2c 6e 61 6d 65 29 3b 0a ame(cert,name);.
af00: 0a 09 09 69 66 20 28 21 58 35 30 39 5f 73 69 67 ...if (!X509_sig
af10: 6e 28 63 65 72 74 2c 70 6b 65 79 2c 45 56 50 5f n(cert,pkey,EVP_
af20: 6d 64 35 28 29 29 29 20 7b 0a 09 09 20 20 20 20 md5())) {...
af30: 58 35 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b X509_free(cert);
af40: 0a 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f ... EVP_PKEY_
af50: 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 free(pkey);...
af60: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
af70: 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 73 69 interp,"Error si
af80: 67 6e 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 gning certificat
af90: 65 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 e",NULL);...
afa0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
afb0: 3b 0a 09 09 7d 0a 0a 09 09 6f 75 74 3d 42 49 4f ;...}....out=BIO
afc0: 5f 6e 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 _new(BIO_s_file(
afd0: 29 29 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f ));...BIO_write_
afe0: 66 69 6c 65 6e 61 6d 65 28 6f 75 74 2c 70 65 6d filename(out,pem
aff0: 6f 75 74 29 3b 0a 0a 09 09 50 45 4d 5f 77 72 69 out);....PEM_wri
b000: 74 65 5f 62 69 6f 5f 58 35 30 39 28 6f 75 74 2c te_bio_X509(out,
b010: 63 65 72 74 29 3b 0a 09 09 42 49 4f 5f 66 72 65 cert);...BIO_fre
b020: 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 58 e_all(out);....X
b030: 35 30 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 509_free(cert);.
b040: 09 09 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 ..EVP_PKEY_free(
b050: 70 6b 65 79 29 3b 0a 09 20 20 20 20 7d 20 65 6c pkey);.. } el
b060: 73 65 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 se {...Tcl_SetRe
b070: 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72 sult(interp,"Err
b080: 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72 or generating pr
b090: 69 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 ivate key",NULL)
b0a0: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 ;...return TCL_E
b0b0: 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a RROR;.. }..}.
b0c0: 09 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 .break;. defa
b0d0: 75 6c 74 3a 0a 09 62 72 65 61 6b 3b 0a 20 20 20 ult:..break;.
b0e0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 }. return TC
b0f0: 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d L_OK;.}.../*. *-
b100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b140: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 46 72 65 --. *. * Tls_Fre
b150: 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 e --. *. *.This
b160: 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 procedure cleans
b170: 20 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 up when a SSL s
b180: 6f 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e ocket based chan
b190: 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 nel. *.is closed
b1a0: 20 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e and its referen
b1b0: 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 ce count falls b
b1c0: 65 6c 6f 77 20 31 0a 20 2a 0a 20 2a 20 52 65 73 elow 1. *. * Res
b1d0: 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ults:. *.none. *
b1e0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
b1f0: 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 :. *.Frees all t
b200: 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d he state. *. *--
b210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b250: 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 23 69 66 20 54 -. */.void.#if T
b260: 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e CL_MAJOR_VERSION
b270: 20 3e 20 38 0a 54 6c 73 5f 46 72 65 65 28 20 76 > 8.Tls_Free( v
b280: 6f 69 64 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a oid *blockPtr ).
b290: 23 65 6c 73 65 0a 54 6c 73 5f 46 72 65 65 28 20 #else.Tls_Free(
b2a0: 63 68 61 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29 char *blockPtr )
b2b0: 0a 23 65 6e 64 69 66 0a 7b 0a 20 20 20 20 53 74 .#endif.{. St
b2c0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
b2d0: 28 53 74 61 74 65 20 2a 29 62 6c 6f 63 6b 50 74 (State *)blockPt
b2e0: 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 r;.. dprintf(
b2f0: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
b300: 54 6c 73 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 Tls_Clean(stateP
b310: 74 72 29 3b 0a 20 20 20 20 63 6b 66 72 65 65 28 tr);. ckfree(
b320: 62 6c 6f 63 6b 50 74 72 29 3b 0a 7d 0a 0c 0a 2f blockPtr);.}.../
b330: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
b340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b370: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c -------. *. * Tl
b380: 73 5f 43 6c 65 61 6e 20 2d 2d 0a 20 2a 0a 20 2a s_Clean --. *. *
b390: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 .This procedure
b3a0: 63 6c 65 61 6e 73 20 75 70 20 77 68 65 6e 20 61 cleans up when a
b3b0: 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 SSL socket base
b3c0: 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 d channel. *.is
b3d0: 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 20 72 closed and its r
b3e0: 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 eference count f
b3f0: 61 6c 6c 73 20 62 65 6c 6f 77 20 31 2e 20 20 54 alls below 1. T
b400: 68 69 73 20 73 68 6f 75 6c 64 0a 20 2a 09 62 65 his should. *.be
b410: 20 63 61 6c 6c 65 64 20 73 79 6e 63 68 72 6f 6e called synchron
b420: 6f 75 73 6c 79 20 62 79 20 74 68 65 20 43 6c 6f ously by the Clo
b430: 73 65 50 72 6f 63 2c 20 6e 6f 74 20 69 6e 20 74 seProc, not in t
b440: 68 65 0a 20 2a 09 45 76 65 6e 74 75 61 6c 6c 79 he. *.Eventually
b450: 46 72 65 65 20 63 61 6c 6c 62 61 63 6b 2e 0a 20 Free callback..
b460: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
b470: 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 .none. *. * Side
b480: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 effects:. *.Fre
b490: 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 es all the state
b4a0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
b4b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b4c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b4d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b4e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f ---------. */.vo
b4f0: 69 64 20 54 6c 73 5f 43 6c 65 61 6e 28 53 74 61 id Tls_Clean(Sta
b500: 74 65 20 2a 73 74 61 74 65 50 74 72 29 20 7b 0a te *statePtr) {.
b510: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
b520: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 led");.. /*.
b530: 20 20 20 20 2a 20 77 65 27 72 65 20 61 73 73 75 * we're assu
b540: 6d 69 6e 67 20 68 65 72 65 20 74 68 61 74 20 77 ming here that w
b550: 65 27 72 65 20 73 69 6e 67 6c 65 2d 74 68 72 65 e're single-thre
b560: 61 64 65 64 0a 20 20 20 20 20 2a 2f 0a 20 20 20 aded. */.
b570: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
b580: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
b590: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
b5a0: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
b5b0: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
b5c0: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 r->timer);..stat
b5d0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 4e 55 ePtr->timer = NU
b5e0: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 LL;. }.. i
b5f0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 62 69 6f f (statePtr->bio
b600: 29 20 7b 0a 09 2f 2a 20 54 68 69 73 20 77 69 6c ) {../* This wil
b610: 6c 20 63 61 6c 6c 20 53 53 4c 5f 73 68 75 74 64 l call SSL_shutd
b620: 6f 77 6e 2e 20 42 75 67 20 31 34 31 34 30 34 35 own. Bug 1414045
b630: 20 2a 2f 0a 09 64 70 72 69 6e 74 66 28 22 42 49 */..dprintf("BI
b640: 4f 5f 66 72 65 65 5f 61 6c 6c 28 25 70 29 22 2c O_free_all(%p)",
b650: 20 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b statePtr->bio);
b660: 0a 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 73 ..BIO_free_all(s
b670: 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 tatePtr->bio);..
b680: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 20 3d 20 statePtr->bio =
b690: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
b6a0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 73 if (statePtr->ss
b6b0: 6c 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 l) {..dprintf("S
b6c0: 53 4c 5f 66 72 65 65 28 25 70 29 22 2c 20 73 74 SL_free(%p)", st
b6d0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 53 atePtr->ssl);..S
b6e0: 53 4c 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 SL_free(statePtr
b6f0: 2d 3e 73 73 6c 29 3b 0a 09 73 74 61 74 65 50 74 ->ssl);..statePt
b700: 72 2d 3e 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 r->ssl = NULL;.
b710: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 }. if (sta
b720: 74 65 50 74 72 2d 3e 63 74 78 29 20 7b 0a 09 53 tePtr->ctx) {..S
b730: 53 4c 5f 43 54 58 5f 66 72 65 65 28 73 74 61 74 SL_CTX_free(stat
b740: 65 50 74 72 2d 3e 63 74 78 29 3b 0a 09 73 74 61 ePtr->ctx);..sta
b750: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
b760: 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 L;. }. if
b770: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
b780: 61 63 6b 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 ack) {..Tcl_Decr
b790: 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 RefCount(statePt
b7a0: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 73 r->callback);..s
b7b0: 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 tatePtr->callbac
b7c0: 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a k = NULL;. }.
b7d0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
b7e0: 2d 3e 70 61 73 73 77 6f 72 64 29 20 7b 0a 09 54 ->password) {..T
b7f0: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
b800: 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f statePtr->passwo
b810: 72 64 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e rd);..statePtr->
b820: 70 61 73 73 77 6f 72 64 20 3d 20 4e 55 4c 4c 3b password = NULL;
b830: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 . }.. dpri
b840: 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67 22 29 ntf("Returning")
b850: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ;.}.../*. *-----
b860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
b8a0: 2a 0a 20 2a 20 54 6c 73 5f 49 6e 69 74 20 2d 2d *. * Tls_Init --
b8b0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 69 73 20 61 . *. *.This is a
b8c0: 20 70 61 63 6b 61 67 65 20 69 6e 69 74 69 61 6c package initial
b8d0: 69 7a 61 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 ization procedur
b8e0: 65 2c 20 77 68 69 63 68 20 69 73 20 63 61 6c 6c e, which is call
b8f0: 65 64 0a 20 2a 09 62 79 20 54 63 6c 20 77 68 65 ed. *.by Tcl whe
b900: 6e 20 74 68 69 73 20 70 61 63 6b 61 67 65 20 69 n this package i
b910: 73 20 74 6f 20 62 65 20 61 64 64 65 64 20 74 6f s to be added to
b920: 20 61 6e 20 69 6e 74 65 72 70 72 65 74 65 72 2e an interpreter.
b930: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 20 . *. * Results:
b940: 20 53 73 6c 20 63 6f 6e 66 69 67 75 72 65 64 20 Ssl configured
b950: 61 6e 64 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a and loaded. *. *
b960: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
b970: 2a 09 20 63 72 65 61 74 65 20 74 68 65 20 73 73 *. create the ss
b980: 6c 20 63 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 l command, initi
b990: 61 6c 69 7a 65 20 73 73 6c 20 63 6f 6e 74 65 78 alize ssl contex
b9a0: 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d t. *. *---------
b9b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b9c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b9d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b9e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a ----------. */..
b9f0: 23 69 66 6e 64 65 66 20 53 54 52 49 4e 47 49 46 #ifndef STRINGIF
ba00: 59 0a 23 20 20 64 65 66 69 6e 65 20 53 54 52 49 Y.# define STRI
ba10: 4e 47 49 46 59 28 78 29 20 53 54 52 49 4e 47 49 NGIFY(x) STRINGI
ba20: 46 59 31 28 78 29 0a 23 20 20 64 65 66 69 6e 65 FY1(x).# define
ba30: 20 53 54 52 49 4e 47 49 46 59 31 28 78 29 20 23 STRINGIFY1(x) #
ba40: 78 0a 23 65 6e 64 69 66 0a 0a 73 74 61 74 69 63 x.#endif..static
ba50: 20 63 6f 6e 73 74 20 63 68 61 72 20 74 6c 73 54 const char tlsT
ba60: 63 6c 49 6e 69 74 53 63 72 69 70 74 5b 5d 20 3d clInitScript[] =
ba70: 20 7b 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 {.#include "tls
ba80: 2e 74 63 6c 2e 68 22 0a 20 20 20 20 30 78 30 30 .tcl.h". 0x00
ba90: 0a 7d 3b 0a 0a 44 4c 4c 45 58 50 4f 52 54 20 69 .};..DLLEXPORT i
baa0: 6e 74 20 54 6c 73 5f 49 6e 69 74 28 0a 20 20 20 nt Tls_Init(.
bab0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
bac0: 65 72 70 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 erp).{. Tcl_C
bad0: 6d 64 49 6e 66 6f 20 69 6e 66 6f 3b 0a 0a 20 20 mdInfo info;..
bae0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
baf0: 64 22 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 57 65 d");.../*.. * We
bb00: 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 20 54 63 only support Tc
bb10: 6c 20 38 2e 36 20 6f 72 20 6e 65 77 65 72 0a 09 l 8.6 or newer..
bb20: 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f */. if (Tcl_
bb30: 49 6e 69 74 53 74 75 62 73 28 69 6e 74 65 72 70 InitStubs(interp
bb40: 2c 20 22 38 2e 36 2d 22 2c 20 30 29 20 3d 3d 20 , "8.6-", 0) ==
bb50: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
bb60: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
bb70: 0a 0a 20 20 20 20 69 66 20 28 54 6c 73 4c 69 62 .. if (TlsLib
bb80: 49 6e 69 74 28 30 29 20 21 3d 20 54 43 4c 5f 4f Init(0) != TCL_O
bb90: 4b 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 K) {..Tcl_Append
bba0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
bbb0: 63 6f 75 6c 64 20 6e 6f 74 20 69 6e 69 74 69 61 could not initia
bbc0: 6c 69 7a 65 20 53 53 4c 20 6c 69 62 72 61 72 79 lize SSL library
bbd0: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
bbe0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
bbf0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
bc00: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
bc10: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
bc20: 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 69 70 s::ciphers", Cip
bc30: 68 65 72 73 4f 62 6a 43 6d 64 2c 20 4e 55 4c 4c hersObjCmd, NULL
bc40: 2c 20 30 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 , 0);. Tcl_Cr
bc50: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
bc60: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e nterp, "tls::han
bc70: 64 73 68 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 dshake", Handsha
bc80: 6b 65 4f 62 6a 43 6d 64 2c 20 4e 55 4c 4c 2c 20 keObjCmd, NULL,
bc90: 30 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 0);. Tcl_Crea
bca0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
bcb0: 65 72 70 2c 20 22 74 6c 73 3a 3a 69 6d 70 6f 72 erp, "tls::impor
bcc0: 74 22 2c 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 t", ImportObjCmd
bcd0: 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 20 20 20 20 , NULL, 0);.
bce0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
bcf0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
bd00: 73 3a 3a 75 6e 69 6d 70 6f 72 74 22 2c 20 55 6e s::unimport", Un
bd10: 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c 20 4e 55 importObjCmd, NU
bd20: 4c 4c 2c 20 30 29 3b 0a 20 20 20 20 54 63 6c 5f LL, 0);. Tcl_
bd30: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
bd40: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 (interp, "tls::s
bd50: 74 61 74 75 73 22 2c 20 53 74 61 74 75 73 4f 62 tatus", StatusOb
bd60: 6a 43 6d 64 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a jCmd, NULL, 0);.
bd70: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
bd80: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
bd90: 20 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c "tls::version",
bda0: 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 20 VersionObjCmd,
bdb0: 4e 55 4c 4c 2c 20 30 29 3b 0a 20 20 20 20 54 63 NULL, 0);. Tc
bdc0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
bdd0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
bde0: 3a 6d 69 73 63 22 2c 20 4d 69 73 63 4f 62 6a 43 :misc", MiscObjC
bdf0: 6d 64 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 20 md, NULL, 0);..
be00: 20 20 20 69 66 20 28 69 6e 74 65 72 70 29 20 7b if (interp) {
be10: 0a 09 69 66 20 28 54 63 6c 5f 45 76 61 6c 28 69 ..if (Tcl_Eval(i
be20: 6e 74 65 72 70 2c 20 74 6c 73 54 63 6c 49 6e 69 nterp, tlsTclIni
be30: 74 53 63 72 69 70 74 29 20 21 3d 20 54 43 4c 5f tScript) != TCL_
be40: 4f 4b 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 OK) {.. retur
be50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
be60: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 54 }.. if (T
be70: 63 6c 5f 47 65 74 43 6f 6d 6d 61 6e 64 49 6e 66 cl_GetCommandInf
be80: 6f 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 63 6c o(interp, "::tcl
be90: 3a 3a 62 75 69 6c 64 2d 69 6e 66 6f 22 2c 20 26 ::build-info", &
bea0: 69 6e 66 6f 29 29 20 7b 0a 09 54 63 6c 5f 43 72 info)) {..Tcl_Cr
beb0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
bec0: 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 62 nterp, "::tls::b
bed0: 75 69 6c 64 2d 69 6e 66 6f 22 2c 0a 09 09 69 6e uild-info",...in
bee0: 66 6f 2e 6f 62 6a 50 72 6f 63 2c 20 28 76 6f 69 fo.objProc, (voi
bef0: 64 20 2a 29 28 0a 09 09 20 20 20 20 50 41 43 4b d *)(... PACK
bf00: 41 47 45 5f 56 45 52 53 49 4f 4e 20 22 2b 22 20 AGE_VERSION "+"
bf10: 53 54 52 49 4e 47 49 46 59 28 54 4c 53 5f 56 45 STRINGIFY(TLS_VE
bf20: 52 53 49 4f 4e 5f 55 55 49 44 29 0a 23 69 66 20 RSION_UUID).#if
bf30: 64 65 66 69 6e 65 64 28 5f 5f 63 6c 61 6e 67 5f defined(__clang_
bf40: 5f 29 20 26 26 20 64 65 66 69 6e 65 64 28 5f 5f _) && defined(__
bf50: 63 6c 61 6e 67 5f 6d 61 6a 6f 72 5f 5f 29 0a 09 clang_major__)..
bf60: 09 09 20 20 20 20 22 2e 63 6c 61 6e 67 2d 22 20 .. ".clang-"
bf70: 53 54 52 49 4e 47 49 46 59 28 5f 5f 63 6c 61 6e STRINGIFY(__clan
bf80: 67 5f 6d 61 6a 6f 72 5f 5f 29 0a 23 69 66 20 5f g_major__).#if _
bf90: 5f 63 6c 61 6e 67 5f 6d 69 6e 6f 72 5f 5f 20 3c _clang_minor__ <
bfa0: 20 31 30 0a 09 09 09 20 20 20 20 22 30 22 0a 23 10.... "0".#
bfb0: 65 6e 64 69 66 0a 09 09 09 20 20 20 20 53 54 52 endif.... STR
bfc0: 49 4e 47 49 46 59 28 5f 5f 63 6c 61 6e 67 5f 6d INGIFY(__clang_m
bfd0: 69 6e 6f 72 5f 5f 29 0a 23 65 6e 64 69 66 0a 23 inor__).#endif.#
bfe0: 69 66 20 64 65 66 69 6e 65 64 28 5f 5f 63 70 6c if defined(__cpl
bff0: 75 73 70 6c 75 73 29 20 26 26 20 21 64 65 66 69 usplus) && !defi
c000: 6e 65 64 28 5f 5f 4f 42 4a 43 5f 5f 29 0a 09 09 ned(__OBJC__)...
c010: 09 20 20 20 20 22 2e 63 70 6c 75 73 70 6c 75 73 . ".cplusplus
c020: 22 0a 23 65 6e 64 69 66 0a 23 69 66 6e 64 65 66 ".#endif.#ifndef
c030: 20 4e 44 45 42 55 47 0a 09 09 09 20 20 20 20 22 NDEBUG.... "
c040: 2e 64 65 62 75 67 22 0a 23 65 6e 64 69 66 0a 23 .debug".#endif.#
c050: 69 66 20 21 64 65 66 69 6e 65 64 28 5f 5f 63 6c if !defined(__cl
c060: 61 6e 67 5f 5f 29 20 26 26 20 21 64 65 66 69 6e ang__) && !defin
c070: 65 64 28 5f 5f 49 4e 54 45 4c 5f 43 4f 4d 50 49 ed(__INTEL_COMPI
c080: 4c 45 52 29 20 26 26 20 64 65 66 69 6e 65 64 28 LER) && defined(
c090: 5f 5f 47 4e 55 43 5f 5f 29 0a 09 09 09 20 20 20 __GNUC__)....
c0a0: 20 22 2e 67 63 63 2d 22 20 53 54 52 49 4e 47 49 ".gcc-" STRINGI
c0b0: 46 59 28 5f 5f 47 4e 55 43 5f 5f 29 0a 23 69 66 FY(__GNUC__).#if
c0c0: 20 5f 5f 47 4e 55 43 5f 4d 49 4e 4f 52 5f 5f 20 __GNUC_MINOR__
c0d0: 3c 20 31 30 0a 09 09 09 20 20 20 20 22 30 22 0a < 10.... "0".
c0e0: 23 65 6e 64 69 66 0a 09 09 09 20 20 20 20 53 54 #endif.... ST
c0f0: 52 49 4e 47 49 46 59 28 5f 5f 47 4e 55 43 5f 4d RINGIFY(__GNUC_M
c100: 49 4e 4f 52 5f 5f 29 0a 23 65 6e 64 69 66 0a 23 INOR__).#endif.#
c110: 69 66 64 65 66 20 5f 5f 49 4e 54 45 4c 5f 43 4f ifdef __INTEL_CO
c120: 4d 50 49 4c 45 52 0a 09 09 09 20 20 20 20 22 2e MPILER.... ".
c130: 69 63 63 2d 22 20 53 54 52 49 4e 47 49 46 59 28 icc-" STRINGIFY(
c140: 5f 5f 49 4e 54 45 4c 5f 43 4f 4d 50 49 4c 45 52 __INTEL_COMPILER
c150: 29 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 ).#endif.#ifdef
c160: 54 43 4c 5f 4d 45 4d 5f 44 45 42 55 47 0a 09 09 TCL_MEM_DEBUG...
c170: 09 20 20 20 20 22 2e 6d 65 6d 64 65 62 75 67 22 . ".memdebug"
c180: 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 .#endif.#if defi
c190: 6e 65 64 28 5f 4d 53 43 5f 56 45 52 29 0a 09 09 ned(_MSC_VER)...
c1a0: 09 20 20 20 20 22 2e 6d 73 76 63 2d 22 20 53 54 . ".msvc-" ST
c1b0: 52 49 4e 47 49 46 59 28 5f 4d 53 43 5f 56 45 52 RINGIFY(_MSC_VER
c1c0: 29 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 ).#endif.#ifdef
c1d0: 55 53 45 5f 4e 4d 41 4b 45 0a 09 09 09 20 20 20 USE_NMAKE....
c1e0: 20 22 2e 6e 6d 61 6b 65 22 0a 23 65 6e 64 69 66 ".nmake".#endif
c1f0: 0a 23 69 66 6e 64 65 66 20 54 43 4c 5f 43 46 47 .#ifndef TCL_CFG
c200: 5f 4f 50 54 49 4d 49 5a 45 44 0a 09 09 09 20 20 _OPTIMIZED....
c210: 20 20 22 2e 6e 6f 2d 6f 70 74 69 6d 69 7a 65 22 ".no-optimize"
c220: 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 5f .#endif.#ifdef _
c230: 5f 4f 42 4a 43 5f 5f 0a 09 09 09 20 20 20 20 22 _OBJC__.... "
c240: 2e 6f 62 6a 65 63 74 69 76 65 2d 63 22 0a 23 69 .objective-c".#i
c250: 66 20 64 65 66 69 6e 65 64 28 5f 5f 63 70 6c 75 f defined(__cplu
c260: 73 70 6c 75 73 29 0a 09 09 09 20 20 20 20 22 70 splus).... "p
c270: 6c 75 73 70 6c 75 73 22 0a 23 65 6e 64 69 66 0a lusplus".#endif.
c280: 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 54 43 #endif.#ifdef TC
c290: 4c 5f 43 46 47 5f 50 52 4f 46 49 4c 45 44 0a 09 L_CFG_PROFILED..
c2a0: 09 09 20 20 20 20 22 2e 70 72 6f 66 69 6c 65 22 .. ".profile"
c2b0: 0a 23 65 6e 64 69 66 0a 23 69 66 64 65 66 20 50 .#endif.#ifdef P
c2c0: 55 52 49 46 59 0a 09 09 09 20 20 20 20 22 2e 70 URIFY.... ".p
c2d0: 75 72 69 66 79 22 0a 23 65 6e 64 69 66 0a 23 69 urify".#endif.#i
c2e0: 66 64 65 66 20 53 54 41 54 49 43 5f 42 55 49 4c fdef STATIC_BUIL
c2f0: 44 0a 09 09 09 20 20 20 20 22 2e 73 74 61 74 69 D.... ".stati
c300: 63 22 0a 23 65 6e 64 69 66 0a 09 09 29 2c 20 4e c".#endif...), N
c310: 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 ULL);. }..
c320: 20 72 65 74 75 72 6e 20 54 63 6c 5f 50 6b 67 50 return Tcl_PkgP
c330: 72 6f 76 69 64 65 45 78 28 69 6e 74 65 72 70 2c rovideEx(interp,
c340: 20 50 41 43 4b 41 47 45 5f 4e 41 4d 45 2c 20 50 PACKAGE_NAME, P
c350: 41 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 2c 20 ACKAGE_VERSION,
c360: 4e 55 4c 4c 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d NULL);.}../*. *-
c370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c3a0: 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 -----*. *. *.Tls
c3b0: 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0a 20 2a 0a _SafeInit --. *.
c3c0: 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.-------------
c3d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c3e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c3f0: 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e 64 61 72 64 ---*. *.Standard
c400: 20 70 72 6f 63 65 64 75 72 65 20 72 65 71 75 69 procedure requi
c410: 72 65 64 20 62 79 20 27 6c 6f 61 64 27 2e 0a 20 red by 'load'..
c420: 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 *.Initializes th
c430: 69 73 20 65 78 74 65 6e 73 69 6f 6e 20 66 6f 72 is extension for
c440: 20 61 20 73 61 66 65 20 69 6e 74 65 72 70 72 65 a safe interpre
c450: 74 65 72 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d ter.. *.--------
c460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c480: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 --------*. *. *.
c490: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
c4a0: 09 09 41 73 20 6f 66 20 27 54 6c 73 5f 49 6e 69 ..As of 'Tls_Ini
c4b0: 74 27 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a t'. *. *.Result:
c4c0: 0a 20 2a 09 09 41 20 73 74 61 6e 64 61 72 64 20 . *..A standard
c4d0: 54 63 6c 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a Tcl error code..
c4e0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
c4f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f -----------*. */
c520: 0a 0a 44 4c 4c 45 58 50 4f 52 54 20 69 6e 74 20 ..DLLEXPORT int
c530: 54 6c 73 5f 53 61 66 65 49 6e 69 74 28 54 63 6c Tls_SafeInit(Tcl
c540: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
c550: 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 {. dprintf("
c560: 43 61 6c 6c 65 64 22 29 3b 0a 20 20 20 20 72 65 Called");. re
c570: 74 75 72 6e 28 54 6c 73 5f 49 6e 69 74 28 69 6e turn(Tls_Init(in
c580: 74 65 72 70 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a terp));.}../*. *
c590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c5a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c5b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c5c0: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c ------*. *. *.Tl
c5d0: 73 4c 69 62 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 sLibInit --. *.
c5e0: 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *.--------------
c5f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c610: 2d 2d 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a --*. *.Initializ
c620: 65 73 20 53 53 4c 20 6c 69 62 72 61 72 79 20 6f es SSL library o
c630: 6e 63 65 20 70 65 72 20 61 70 70 6c 69 63 61 74 nce per applicat
c640: 69 6f 6e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d ion. *.---------
c650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c670: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 -------*. *. *.S
c680: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
c690: 09 69 6e 69 74 69 61 6c 69 7a 65 73 20 53 53 4c .initializes SSL
c6a0: 20 6c 69 62 72 61 72 79 0a 20 2a 0a 20 2a 09 52 library. *. *.R
c6b0: 65 73 75 6c 74 3a 0a 20 2a 09 09 6e 6f 6e 65 0a esult:. *..none.
c6c0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
c6d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c6e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c6f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f -----------*. */
c700: 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c 73 4c .static int TlsL
c710: 69 62 49 6e 69 74 28 69 6e 74 20 75 6e 69 6e 69 ibInit(int unini
c720: 74 69 61 6c 69 7a 65 29 20 7b 0a 20 20 20 20 73 tialize) {. s
c730: 74 61 74 69 63 20 69 6e 74 20 69 6e 69 74 69 61 tatic int initia
c740: 6c 69 7a 65 64 20 3d 20 30 3b 0a 20 20 20 20 69 lized = 0;. i
c750: 6e 74 20 73 74 61 74 75 73 20 3d 20 54 43 4c 5f nt status = TCL_
c760: 4f 4b 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 OK;.#if defined(
c770: 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 OPENSSL_THREADS)
c780: 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f && defined(TCL_
c790: 54 48 52 45 41 44 53 29 0a 20 20 20 20 73 69 7a THREADS). siz
c7a0: 65 5f 74 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 23 e_t num_locks;.#
c7b0: 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20 28 75 endif.. if (u
c7c0: 6e 69 6e 69 74 69 61 6c 69 7a 65 29 20 7b 0a 09 ninitialize) {..
c7d0: 69 66 20 28 21 69 6e 69 74 69 61 6c 69 7a 65 64 if (!initialized
c7e0: 29 20 7b 0a 09 20 20 20 20 64 70 72 69 6e 74 66 ) {.. dprintf
c7f0: 28 22 41 73 6b 65 64 20 74 6f 20 75 6e 69 6e 69 ("Asked to unini
c800: 74 69 61 6c 69 7a 65 2c 20 62 75 74 20 77 65 20 tialize, but we
c810: 61 72 65 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 are not initiali
c820: 7a 65 64 22 29 3b 0a 0a 09 20 20 20 20 72 65 74 zed");... ret
c830: 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 09 7d 0a urn(TCL_OK);..}.
c840: 0a 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64 ..dprintf("Asked
c850: 20 74 6f 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 to uninitialize
c860: 22 29 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 ");..#if defined
c870: 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 (OPENSSL_THREADS
c880: 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c ) && defined(TCL
c890: 5f 54 48 52 45 41 44 53 29 0a 09 54 63 6c 5f 4d _THREADS)..Tcl_M
c8a0: 75 74 65 78 4c 6f 63 6b 28 26 69 6e 69 74 5f 6d utexLock(&init_m
c8b0: 78 29 3b 0a 0a 09 43 52 59 50 54 4f 5f 73 65 74 x);...CRYPTO_set
c8c0: 5f 6c 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 _locking_callbac
c8d0: 6b 28 4e 55 4c 4c 29 3b 0a 09 43 52 59 50 54 4f k(NULL);..CRYPTO
c8e0: 5f 73 65 74 5f 69 64 5f 63 61 6c 6c 62 61 63 6b _set_id_callback
c8f0: 28 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 6c 6f (NULL);...if (lo
c900: 63 6b 73 29 20 7b 0a 09 20 20 20 20 66 72 65 65 cks) {.. free
c910: 28 6c 6f 63 6b 73 29 3b 0a 09 20 20 20 20 6c 6f (locks);.. lo
c920: 63 6b 73 20 3d 20 4e 55 4c 4c 3b 0a 09 20 20 20 cks = NULL;..
c930: 20 6c 6f 63 6b 73 43 6f 75 6e 74 20 3d 20 30 3b locksCount = 0;
c940: 0a 09 7d 0a 23 65 6e 64 69 66 0a 09 69 6e 69 74 ..}.#endif..init
c950: 69 61 6c 69 7a 65 64 20 3d 20 30 3b 0a 0a 23 69 ialized = 0;..#i
c960: 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 f defined(OPENSS
c970: 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 65 L_THREADS) && de
c980: 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 44 fined(TCL_THREAD
c990: 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c S)..Tcl_MutexUnl
c9a0: 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 ock(&init_mx);.#
c9b0: 65 6e 64 69 66 0a 0a 09 72 65 74 75 72 6e 28 54 endif...return(T
c9c0: 43 4c 5f 4f 4b 29 3b 0a 20 20 20 20 7d 0a 0a 20 CL_OK);. }..
c9d0: 20 20 20 69 66 20 28 69 6e 69 74 69 61 6c 69 7a if (initializ
c9e0: 65 64 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 ed) {..dprintf("
c9f0: 43 61 6c 6c 65 64 2c 20 62 75 74 20 75 73 69 6e Called, but usin
ca00: 67 20 63 61 63 68 65 64 20 76 61 6c 75 65 22 29 g cached value")
ca10: 3b 0a 09 72 65 74 75 72 6e 28 73 74 61 74 75 73 ;..return(status
ca20: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 );. }.. dp
ca30: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
ca40: 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 ..#if defined(OP
ca50: 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 ENSSL_THREADS) &
ca60: 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 & defined(TCL_TH
ca70: 52 45 41 44 53 29 0a 20 20 20 20 54 63 6c 5f 4d READS). Tcl_M
ca80: 75 74 65 78 4c 6f 63 6b 28 26 69 6e 69 74 5f 6d utexLock(&init_m
ca90: 78 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 x);.#endif. i
caa0: 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 31 3b 0a nitialized = 1;.
cab0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 .#if defined(OPE
cac0: 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 NSSL_THREADS) &&
cad0: 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 defined(TCL_THR
cae0: 45 41 44 53 29 0a 20 20 20 20 6e 75 6d 5f 6c 6f EADS). num_lo
caf0: 63 6b 73 20 3d 20 43 52 59 50 54 4f 5f 6e 75 6d cks = CRYPTO_num
cb00: 5f 6c 6f 63 6b 73 28 29 3b 0a 20 20 20 20 6c 6f _locks();. lo
cb10: 63 6b 73 43 6f 75 6e 74 20 3d 20 6e 75 6d 5f 6c cksCount = num_l
cb20: 6f 63 6b 73 3b 0a 20 20 20 20 6c 6f 63 6b 73 20 ocks;. locks
cb30: 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 = malloc(sizeof(
cb40: 2a 6c 6f 63 6b 73 29 20 2a 20 6e 75 6d 5f 6c 6f *locks) * num_lo
cb50: 63 6b 73 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74 cks);. memset
cb60: 28 6c 6f 63 6b 73 2c 20 30 2c 20 73 69 7a 65 6f (locks, 0, sizeo
cb70: 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e 75 6d 5f f(*locks) * num_
cb80: 6c 6f 63 6b 73 29 3b 0a 0a 20 20 20 20 43 52 59 locks);.. CRY
cb90: 50 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f PTO_set_locking_
cba0: 63 61 6c 6c 62 61 63 6b 28 43 72 79 70 74 6f 54 callback(CryptoT
cbb0: 68 72 65 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 hreadLockCallbac
cbc0: 6b 29 3b 0a 20 20 20 20 43 52 59 50 54 4f 5f 73 k);. CRYPTO_s
cbd0: 65 74 5f 69 64 5f 63 61 6c 6c 62 61 63 6b 28 43 et_id_callback(C
cbe0: 72 79 70 74 6f 54 68 72 65 61 64 49 64 43 61 6c ryptoThreadIdCal
cbf0: 6c 62 61 63 6b 29 3b 0a 23 65 6e 64 69 66 0a 0a lback);.#endif..
cc00: 20 20 20 20 69 66 20 28 53 53 4c 5f 6c 69 62 72 if (SSL_libr
cc10: 61 72 79 5f 69 6e 69 74 28 29 20 21 3d 20 31 29 ary_init() != 1)
cc20: 20 7b 0a 09 73 74 61 74 75 73 20 3d 20 54 43 4c {..status = TCL
cc30: 5f 45 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 64 6f _ERROR;..goto do
cc40: 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 53 ne;. }.. S
cc50: 53 4c 5f 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 SL_load_error_st
cc60: 72 69 6e 67 73 28 29 3b 0a 20 20 20 20 45 52 52 rings();. ERR
cc70: 5f 6c 6f 61 64 5f 63 72 79 70 74 6f 5f 73 74 72 _load_crypto_str
cc80: 69 6e 67 73 28 29 3b 0a 0a 20 20 20 20 42 49 4f ings();.. BIO
cc90: 5f 6e 65 77 5f 74 63 6c 28 4e 55 4c 4c 2c 20 30 _new_tcl(NULL, 0
cca0: 29 3b 0a 0a 64 6f 6e 65 3a 0a 23 69 66 20 64 65 );..done:.#if de
ccb0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 fined(OPENSSL_TH
ccc0: 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 READS) && define
ccd0: 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 20 d(TCL_THREADS).
cce0: 20 20 20 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f Tcl_MutexUnlo
ccf0: 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 ck(&init_mx);.#e
cd00: 6e 64 69 66 0a 0a 20 20 20 20 72 65 74 75 72 6e ndif.. return
cd10: 28 73 74 61 74 75 73 29 3b 0a 7d 0a (status);.}.