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 6c 69 62 2e 68 3e 0a 0a 2f 2a 20 4d <stdlib.h>../* M
0370: 69 6e 20 4f 70 65 6e 53 53 4c 20 76 65 72 73 69 in OpenSSL versi
0380: 6f 6e 20 2a 2f 0a 23 69 66 20 21 64 65 66 69 6e on */.#if !defin
0390: 65 64 28 4c 49 42 52 45 53 53 4c 5f 56 45 52 53 ed(LIBRESSL_VERS
03a0: 49 4f 4e 5f 4e 55 4d 42 45 52 29 20 26 26 20 4f ION_NUMBER) && O
03b0: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
03c0: 55 4d 42 45 52 20 3c 20 30 78 31 30 31 30 31 30 UMBER < 0x101010
03d0: 30 30 4c 0a 23 65 72 72 6f 72 20 22 4f 6e 6c 79 00L.#error "Only
03e0: 20 4f 70 65 6e 53 53 4c 20 76 31 2e 31 2e 31 20 OpenSSL v1.1.1
03f0: 6f 72 20 6c 61 74 65 72 20 69 73 20 73 75 70 70 or later is supp
0400: 6f 72 74 65 64 22 0a 23 65 6e 64 69 66 0a 0a 2f orted".#endif../
0410: 2a 0a 20 2a 20 45 78 74 65 72 6e 61 6c 20 66 75 *. * External fu
0420: 6e 63 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 2f 2a 0a nctions. */../*.
0430: 20 2a 20 46 6f 72 77 61 72 64 20 64 65 63 6c 61 * Forward decla
0440: 72 61 74 69 6f 6e 73 0a 20 2a 2f 0a 0a 23 64 65 rations. */..#de
0450: 66 69 6e 65 20 46 32 4e 28 20 6b 65 79 2c 20 64 fine F2N( key, d
0460: 73 70 29 20 5c 0a 09 28 28 28 6b 65 79 29 20 3d sp) \..(((key) =
0470: 3d 20 4e 55 4c 4c 29 20 3f 20 28 63 68 61 72 20 = NULL) ? (char
0480: 2a 29 20 4e 55 4c 4c 20 3a 20 5c 0a 09 09 54 63 *) NULL : \...Tc
0490: 6c 5f 54 72 61 6e 73 6c 61 74 65 46 69 6c 65 4e l_TranslateFileN
04a0: 61 6d 65 28 69 6e 74 65 72 70 2c 20 28 6b 65 79 ame(interp, (key
04b0: 29 2c 20 28 64 73 70 29 29 29 0a 23 64 65 66 69 ), (dsp))).#defi
04c0: 6e 65 20 52 45 41 53 4f 4e 28 29 09 45 52 52 5f ne REASON().ERR_
04d0: 72 65 61 73 6f 6e 5f 65 72 72 6f 72 5f 73 74 72 reason_error_str
04e0: 69 6e 67 28 45 52 52 5f 67 65 74 5f 65 72 72 6f ing(ERR_get_erro
04f0: 72 28 29 29 0a 0a 73 74 61 74 69 63 20 76 6f 69 r())..static voi
0500: 64 09 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 63 d.InfoCallback(c
0510: 6f 6e 73 74 20 53 53 4c 20 2a 73 73 6c 2c 20 69 onst SSL *ssl, i
0520: 6e 74 20 77 68 65 72 65 2c 20 69 6e 74 20 72 65 nt where, int re
0530: 74 29 3b 0a 0a 73 74 61 74 69 63 20 54 63 6c 5f t);..static Tcl_
0540: 4f 62 6a 43 6d 64 50 72 6f 63 20 43 69 70 68 65 ObjCmdProc Ciphe
0550: 72 73 4f 62 6a 43 6d 64 3b 0a 73 74 61 74 69 63 rsObjCmd;.static
0560: 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 Tcl_ObjCmdProc
0570: 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 3b HandshakeObjCmd;
0580: 0a 73 74 61 74 69 63 20 54 63 6c 5f 4f 62 6a 43 .static Tcl_ObjC
0590: 6d 64 50 72 6f 63 20 49 6d 70 6f 72 74 4f 62 6a mdProc ImportObj
05a0: 43 6d 64 3b 0a 73 74 61 74 69 63 20 54 63 6c 5f Cmd;.static Tcl_
05b0: 4f 62 6a 43 6d 64 50 72 6f 63 20 53 74 61 74 75 ObjCmdProc Statu
05c0: 73 4f 62 6a 43 6d 64 3b 0a 73 74 61 74 69 63 20 sObjCmd;.static
05d0: 54 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 56 Tcl_ObjCmdProc V
05e0: 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 3b 0a 73 74 ersionObjCmd;.st
05f0: 61 74 69 63 20 54 63 6c 5f 4f 62 6a 43 6d 64 50 atic Tcl_ObjCmdP
0600: 72 6f 63 20 4d 69 73 63 4f 62 6a 43 6d 64 3b 0a roc MiscObjCmd;.
0610: 73 74 61 74 69 63 20 54 63 6c 5f 4f 62 6a 43 6d static Tcl_ObjCm
0620: 64 50 72 6f 63 20 55 6e 69 6d 70 6f 72 74 4f 62 dProc UnimportOb
0630: 6a 43 6d 64 3b 0a 0a 73 74 61 74 69 63 20 53 53 jCmd;..static SS
0640: 4c 5f 43 54 58 20 2a 43 54 58 5f 49 6e 69 74 28 L_CTX *CTX_Init(
0650: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 2c State *statePtr,
0660: 20 69 6e 74 20 69 73 53 65 72 76 65 72 2c 20 69 int isServer, i
0670: 6e 74 20 70 72 6f 74 6f 2c 20 63 68 61 72 20 2a nt proto, char *
0680: 6b 65 79 2c 0a 09 09 09 63 68 61 72 20 2a 63 65 key,....char *ce
0690: 72 74 66 69 6c 65 2c 20 75 6e 73 69 67 6e 65 64 rtfile, unsigned
06a0: 20 63 68 61 72 20 2a 6b 65 79 5f 61 73 6e 31 2c char *key_asn1,
06b0: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
06c0: 63 65 72 74 5f 61 73 6e 31 2c 0a 09 09 09 69 6e cert_asn1,....in
06d0: 74 20 6b 65 79 5f 61 73 6e 31 5f 6c 65 6e 2c 20 t key_asn1_len,
06e0: 69 6e 74 20 63 65 72 74 5f 61 73 6e 31 5f 6c 65 int cert_asn1_le
06f0: 6e 2c 20 63 68 61 72 20 2a 43 41 64 69 72 2c 20 n, char *CAdir,
0700: 63 68 61 72 20 2a 43 41 66 69 6c 65 2c 0a 20 20 char *CAfile,.
0710: 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 65 72 char *cipher
0720: 73 2c 20 63 68 61 72 20 2a 44 48 70 61 72 61 6d s, char *DHparam
0730: 73 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09 s);..static int.
0740: 54 6c 73 4c 69 62 49 6e 69 74 28 69 6e 74 20 75 TlsLibInit(int u
0750: 6e 69 6e 69 74 69 61 6c 69 7a 65 29 3b 0a 0a 23 ninitialize);..#
0760: 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f define TLS_PROTO
0770: 5f 53 53 4c 32 09 09 30 78 30 31 0a 23 64 65 66 _SSL2..0x01.#def
0780: 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 ine TLS_PROTO_SS
0790: 4c 33 09 09 30 78 30 32 0a 23 64 65 66 69 6e 65 L3..0x02.#define
07a0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 09 TLS_PROTO_TLS1.
07b0: 09 30 78 30 34 0a 23 64 65 66 69 6e 65 20 54 4c .0x04.#define TL
07c0: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 09 30 S_PROTO_TLS1_1.0
07d0: 78 30 38 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f x08.#define TLS_
07e0: 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 09 30 78 31 PROTO_TLS1_2.0x1
07f0: 30 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 0.#define TLS_PR
0800: 4f 54 4f 5f 54 4c 53 31 5f 33 09 30 78 32 30 0a OTO_TLS1_3.0x20.
0810: 23 64 65 66 69 6e 65 20 45 4e 41 42 4c 45 44 28 #define ENABLED(
0820: 66 6c 61 67 2c 20 6d 61 73 6b 29 09 28 28 28 66 flag, mask).(((f
0830: 6c 61 67 29 20 26 20 28 6d 61 73 6b 29 29 20 3d lag) & (mask)) =
0840: 3d 20 28 6d 61 73 6b 29 29 0a 0a 2f 2a 0a 20 2a = (mask))../*. *
0850: 20 53 74 61 74 69 63 20 64 61 74 61 20 73 74 72 Static data str
0860: 75 63 74 75 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 uctures. */..#if
0870: 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ndef OPENSSL_NO_
0880: 44 48 0a 23 69 6e 63 6c 75 64 65 20 22 64 68 5f DH.#include "dh_
0890: 70 61 72 61 6d 73 2e 68 22 0a 23 65 6e 64 69 66 params.h".#endif
08a0: 0a 0a 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 ../*. * We lose
08b0: 74 68 65 20 74 63 6c 20 70 61 73 73 77 6f 72 64 the tcl password
08c0: 20 63 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 callback when w
08d0: 65 20 75 73 65 20 74 68 65 20 52 53 41 20 42 53 e use the RSA BS
08e0: 41 46 45 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a AFE SSL-C 1.1.2.
08f0: 20 2a 20 6c 69 62 72 61 72 69 65 73 20 69 6e 73 * libraries ins
0900: 74 65 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 tead of the curr
0910: 65 6e 74 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 ent OpenSSL libr
0920: 61 72 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 aries.. */..#ifd
0930: 65 66 20 42 53 41 46 45 0a 23 64 65 66 69 6e 65 ef BSAFE.#define
0940: 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 PRE_OPENSSL_0_9
0950: 5f 34 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a _4 1.#endif../*.
0960: 20 2a 20 50 72 65 20 4f 70 65 6e 53 53 4c 20 30 * Pre OpenSSL 0
0970: 2e 39 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a .9.4 Compat. */.
0980: 0a 23 69 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f .#ifndef STACK_O
0990: 46 0a 23 64 65 66 69 6e 65 20 53 54 41 43 4b 5f F.#define STACK_
09a0: 4f 46 28 78 29 09 09 09 53 54 41 43 4b 0a 23 64 OF(x)...STACK.#d
09b0: 65 66 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 efine sk_SSL_CIP
09c0: 48 45 52 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f HER_num(sk)..sk_
09d0: 6e 75 6d 28 28 73 6b 29 29 0a 23 64 65 66 69 6e num((sk)).#defin
09e0: 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f e sk_SSL_CIPHER_
09f0: 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 value( sk, index
0a00: 29 09 28 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 ).(SSL_CIPHER*)s
0a10: 6b 5f 76 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 k_value((sk), (i
0a20: 6e 64 65 78 29 29 0a 23 65 6e 64 69 66 0a 0a 2f ndex)).#endif../
0a30: 2a 0a 20 2a 20 54 68 72 65 61 64 2d 53 61 66 65 *. * Thread-Safe
0a40: 20 54 4c 53 20 43 6f 64 65 0a 20 2a 2f 0a 0a 23 TLS Code. */..#
0a50: 69 66 64 65 66 20 54 43 4c 5f 54 48 52 45 41 44 ifdef TCL_THREAD
0a60: 53 0a 23 64 65 66 69 6e 65 20 4f 50 45 4e 53 53 S.#define OPENSS
0a70: 4c 5f 54 48 52 45 41 44 5f 44 45 46 49 4e 45 53 L_THREAD_DEFINES
0a80: 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 .#include <opens
0a90: 73 6c 2f 6f 70 65 6e 73 73 6c 63 6f 6e 66 2e 68 sl/opensslconf.h
0aa0: 3e 0a 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 53 >..#ifdef OPENSS
0ab0: 4c 5f 54 48 52 45 41 44 53 0a 23 69 6e 63 6c 75 L_THREADS.#inclu
0ac0: 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 70 de <openssl/cryp
0ad0: 74 6f 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 54 68 72 to.h>../*. * Thr
0ae0: 65 61 64 65 64 20 6f 70 65 72 61 74 69 6f 6e 20 eaded operation
0af0: 72 65 71 75 69 72 65 73 20 6c 6f 63 6b 69 6e 67 requires locking
0b00: 20 63 61 6c 6c 62 61 63 6b 73 0a 20 2a 20 42 61 callbacks. * Ba
0b10: 73 65 64 20 66 72 6f 6d 20 2f 63 72 79 70 74 6f sed from /crypto
0b20: 2f 63 72 79 70 74 6c 69 62 2e 63 20 6f 66 20 4f /cryptlib.c of O
0b30: 70 65 6e 53 53 4c 20 61 6e 64 20 4e 53 4f 70 65 penSSL and NSOpe
0b40: 6e 53 53 4c 2e 0a 20 2a 2f 0a 0a 73 74 61 74 69 nSSL.. */..stati
0b50: 63 20 54 63 6c 5f 4d 75 74 65 78 20 2a 6c 6f 63 c Tcl_Mutex *loc
0b60: 6b 73 20 3d 20 4e 55 4c 4c 3b 0a 73 74 61 74 69 ks = NULL;.stati
0b70: 63 20 69 6e 74 20 6c 6f 63 6b 73 43 6f 75 6e 74 c int locksCount
0b80: 20 3d 20 30 3b 0a 73 74 61 74 69 63 20 54 63 6c = 0;.static Tcl
0b90: 5f 4d 75 74 65 78 20 69 6e 69 74 5f 6d 78 3b 0a _Mutex init_mx;.
0ba0: 0a 76 6f 69 64 20 43 72 79 70 74 6f 54 68 72 65 .void CryptoThre
0bb0: 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b 28 0a adLockCallback(.
0bc0: 20 20 20 20 69 6e 74 20 6d 6f 64 65 2c 0a 20 20 int mode,.
0bd0: 20 20 69 6e 74 20 6e 2c 0a 20 20 20 20 54 43 4c int n,. TCL
0be0: 5f 55 4e 55 53 45 44 28 63 6f 6e 73 74 20 63 68 _UNUSED(const ch
0bf0: 61 72 20 2a 29 2c 0a 20 20 20 20 54 43 4c 5f 55 ar *),. TCL_U
0c00: 4e 55 53 45 44 28 69 6e 74 29 29 0a 7b 0a 09 69 NUSED(int)).{..i
0c10: 66 20 28 6d 6f 64 65 20 26 20 43 52 59 50 54 4f f (mode & CRYPTO
0c20: 5f 4c 4f 43 4b 29 20 7b 0a 09 09 2f 2a 20 54 68 _LOCK) {.../* Th
0c30: 69 73 20 64 65 62 75 67 67 69 6e 67 20 69 73 20 is debugging is
0c40: 74 75 72 6e 65 64 20 6f 66 66 20 62 79 20 64 65 turned off by de
0c50: 66 61 75 6c 74 20 2d 2d 20 69 74 27 73 20 74 6f fault -- it's to
0c60: 6f 20 6e 6f 69 73 79 2e 20 2a 2f 0a 09 09 2f 2a o noisy. */.../*
0c70: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
0c80: 20 74 6f 20 6c 6f 63 6b 20 28 6e 3d 25 69 20 6f to lock (n=%i o
0c90: 66 20 25 69 29 22 2c 20 6e 2c 20 6c 6f 63 6b 73 f %i)", n, locks
0ca0: 43 6f 75 6e 74 29 3b 20 2a 2f 0a 09 09 54 63 6c Count); */...Tcl
0cb0: 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 6c 6f 63 6b _MutexLock(&lock
0cc0: 73 5b 6e 5d 29 3b 0a 09 7d 20 65 6c 73 65 20 7b s[n]);..} else {
0cd0: 0a 09 09 2f 2a 20 64 70 72 69 6e 74 66 28 22 43 .../* dprintf("C
0ce0: 61 6c 6c 65 64 20 74 6f 20 75 6e 6c 6f 63 6b 20 alled to unlock
0cf0: 28 6e 3d 25 69 20 6f 66 20 25 69 29 22 2c 20 6e (n=%i of %i)", n
0d00: 2c 20 6c 6f 63 6b 73 43 6f 75 6e 74 29 3b 20 2a , locksCount); *
0d10: 2f 0a 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c /...Tcl_MutexUnl
0d20: 6f 63 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a ock(&locks[n]);.
0d30: 09 7d 0a 0a 09 2f 2a 20 64 70 72 69 6e 74 66 28 .}.../* dprintf(
0d40: 22 52 65 74 75 72 6e 69 6e 67 22 29 3b 20 2a 2f "Returning"); */
0d50: 0a 0a 09 72 65 74 75 72 6e 3b 0a 7d 0a 0a 75 6e ...return;.}..un
0d60: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 43 72 79 70 signed long Cryp
0d70: 74 6f 54 68 72 65 61 64 49 64 43 61 6c 6c 62 61 toThreadIdCallba
0d80: 63 6b 28 76 6f 69 64 29 20 7b 0a 09 75 6e 73 69 ck(void) {..unsi
0d90: 67 6e 65 64 20 6c 6f 6e 67 20 72 65 74 3b 0a 0a gned long ret;..
0da0: 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 .dprintf("Called
0db0: 22 29 3b 0a 0a 09 72 65 74 20 3d 20 28 75 6e 73 ");...ret = (uns
0dc0: 69 67 6e 65 64 20 6c 6f 6e 67 29 20 54 63 6c 5f igned long) Tcl_
0dd0: 47 65 74 43 75 72 72 65 6e 74 54 68 72 65 61 64 GetCurrentThread
0de0: 28 29 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 ();...dprintf("R
0df0: 65 74 75 72 6e 69 6e 67 20 25 6c 75 22 2c 20 72 eturning %lu", r
0e00: 65 74 29 3b 0a 0a 09 72 65 74 75 72 6e 28 72 65 et);...return(re
0e10: 74 29 3b 0a 7d 0a 23 65 6e 64 69 66 20 2f 2a 20 t);.}.#endif /*
0e20: 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 20 OPENSSL_THREADS
0e30: 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 54 43 4c */.#endif /* TCL
0e40: 5f 54 48 52 45 41 44 53 20 2a 2f 0a 0a 0c 0a 2f _THREADS */..../
0e50: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0e90: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49 6e -------. *. * In
0ea0: 66 6f 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a foCallback --. *
0eb0: 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 53 4c . *.monitors SSL
0ec0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f 63 connection proc
0ed0: 65 73 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ess. *. * Result
0ee0: 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a s:. *.None. *. *
0ef0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
0f00: 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 6b *.Calls callback
0f10: 20 28 69 66 20 64 65 66 69 6e 65 64 29 0a 20 2a (if defined). *
0f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f60: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 ---. */.static v
0f70: 6f 69 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 63 6b oid.InfoCallback
0f80: 28 63 6f 6e 73 74 20 53 53 4c 20 2a 73 73 6c 2c (const SSL *ssl,
0f90: 20 69 6e 74 20 77 68 65 72 65 2c 20 69 6e 74 20 int where, int
0fa0: 72 65 74 29 0a 7b 0a 20 20 20 20 53 74 61 74 65 ret).{. State
0fb0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74 *statePtr = (St
0fc0: 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f 61 70 70 ate*)SSL_get_app
0fd0: 5f 64 61 74 61 28 28 53 53 4c 20 2a 29 73 73 6c _data((SSL *)ssl
0fe0: 29 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a );. Tcl_Obj *
0ff0: 63 6d 64 50 74 72 3b 0a 20 20 20 20 63 6f 6e 73 cmdPtr;. cons
1000: 74 20 63 68 61 72 20 2a 6d 61 6a 6f 72 2c 20 2a t char *major, *
1010: 6d 69 6e 6f 72 3b 0a 0a 20 20 20 20 64 70 72 69 minor;.. dpri
1020: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
1030: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
1040: 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 ->callback == (T
1050: 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 0a 09 72 cl_Obj*)NULL)..r
1060: 65 74 75 72 6e 3b 0a 0a 20 20 20 20 63 6d 64 50 eturn;.. cmdP
1070: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 tr = Tcl_Duplica
1080: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e teObj(statePtr->
1090: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 20 callback);..#if
10a0: 30 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 20 0. if (where
10b0: 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20 & SSL_CB_ALERT)
10c0: 7b 0a 09 73 65 76 20 3d 20 53 53 4c 5f 61 6c 65 {..sev = SSL_ale
10d0: 72 74 5f 74 79 70 65 5f 73 74 72 69 6e 67 5f 6c rt_type_string_l
10e0: 6f 6e 67 28 72 65 74 29 3b 0a 09 69 66 20 28 73 ong(ret);..if (s
10f0: 74 72 63 6d 70 28 20 73 65 76 2c 20 22 66 61 74 trcmp( sev, "fat
1100: 61 6c 22 29 3d 3d 30 29 20 7b 09 2f 2a 20 4d 61 al")==0) {./* Ma
1110: 70 20 74 6f 20 65 72 72 6f 72 20 2a 2f 0a 09 20 p to error */..
1120: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61 Tls_Error(sta
1130: 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 52 4f 52 tePtr, SSL_ERROR
1140: 28 73 73 6c 2c 20 30 29 29 3b 0a 09 20 20 20 20 (ssl, 0));..
1150: 72 65 74 75 72 6e 3b 0a 09 7d 0a 20 20 20 20 7d return;..}. }
1160: 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28 .#endif. if (
1170: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 48 where & SSL_CB_H
1180: 41 4e 44 53 48 41 4b 45 5f 53 54 41 52 54 29 20 ANDSHAKE_START)
1190: 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64 {..major = "hand
11a0: 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d shake";..minor =
11b0: 20 22 73 74 61 72 74 22 3b 0a 20 20 20 20 7d 20 "start";. }
11c0: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
11d0: 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b SSL_CB_HANDSHAK
11e0: 45 5f 44 4f 4e 45 29 20 7b 0a 09 6d 61 6a 6f 72 E_DONE) {..major
11f0: 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a = "handshake";.
1200: 09 6d 69 6e 6f 72 20 3d 20 22 64 6f 6e 65 22 3b .minor = "done";
1210: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69 . } else {..i
1220: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 f (where & SSL_C
1230: 42 5f 41 4c 45 52 54 29 09 09 6d 61 6a 6f 72 20 B_ALERT)..major
1240: 3d 20 22 61 6c 65 72 74 22 3b 0a 09 65 6c 73 65 = "alert";..else
1250: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c if (where & SSL
1260: 5f 53 54 5f 43 4f 4e 4e 45 43 54 29 09 6d 61 6a _ST_CONNECT).maj
1270: 6f 72 20 3d 20 22 63 6f 6e 6e 65 63 74 22 3b 0a or = "connect";.
1280: 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 .else if (where
1290: 26 20 53 53 4c 5f 53 54 5f 41 43 43 45 50 54 29 & SSL_ST_ACCEPT)
12a0: 09 09 6d 61 6a 6f 72 20 3d 20 22 61 63 63 65 70 ..major = "accep
12b0: 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 6d 61 t";..else.....ma
12c0: 6a 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b jor = "unknown";
12d0: 0a 0a 09 69 66 20 28 77 68 65 72 65 20 26 20 53 ...if (where & S
12e0: 53 4c 5f 43 42 5f 52 45 41 44 29 09 09 6d 69 6e SL_CB_READ)..min
12f0: 6f 72 20 3d 20 22 72 65 61 64 22 3b 0a 09 65 6c or = "read";..el
1300: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53 se if (where & S
1310: 53 4c 5f 43 42 5f 57 52 49 54 45 29 09 09 6d 69 SL_CB_WRITE)..mi
1320: 6e 6f 72 20 3d 20 22 77 72 69 74 65 22 3b 0a 09 nor = "write";..
1330: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
1340: 20 53 53 4c 5f 43 42 5f 4c 4f 4f 50 29 09 09 6d SSL_CB_LOOP)..m
1350: 69 6e 6f 72 20 3d 20 22 6c 6f 6f 70 22 3b 0a 09 inor = "loop";..
1360: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26 else if (where &
1370: 20 53 53 4c 5f 43 42 5f 45 58 49 54 29 09 09 6d SSL_CB_EXIT)..m
1380: 69 6e 6f 72 20 3d 20 22 65 78 69 74 22 3b 0a 09 inor = "exit";..
1390: 65 6c 73 65 09 09 09 09 09 6d 69 6e 6f 72 20 3d else.....minor =
13a0: 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 20 20 20 20 "unknown";.
13b0: 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f }.. Tcl_ListO
13c0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
13d0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 statePtr->inter
13e0: 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 p, cmdPtr,..
13f0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
1400: 28 20 22 69 6e 66 6f 22 2c 20 2d 31 29 29 3b 0a ( "info", -1));.
1410: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
1420: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 AppendElement( s
1430: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1440: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
1450: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 l_NewStringObj(
1460: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
1470: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c me(statePtr->sel
1480: 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 f), -1) );..
1490: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
14a0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 dElement( stateP
14b0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
14c0: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
14d0: 53 74 72 69 6e 67 4f 62 6a 28 20 6d 61 6a 6f 72 StringObj( major
14e0: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 , -1) );.. Tc
14f0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
1500: 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 lement( statePtr
1510: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
1520: 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 ,.. Tcl_NewSt
1530: 72 69 6e 67 4f 62 6a 28 20 6d 69 6e 6f 72 2c 20 ringObj( minor,
1540: 2d 31 29 20 29 3b 0a 0a 20 20 20 20 69 66 20 28 -1) );.. if (
1550: 77 68 65 72 65 20 26 20 28 53 53 4c 5f 43 42 5f where & (SSL_CB_
1560: 4c 4f 4f 50 7c 53 53 4c 5f 43 42 5f 45 58 49 54 LOOP|SSL_CB_EXIT
1570: 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 )) {..Tcl_ListOb
1580: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
1590: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
15a0: 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 , cmdPtr,.. T
15b0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
15c0: 20 53 53 4c 5f 73 74 61 74 65 5f 73 74 72 69 6e SSL_state_strin
15d0: 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d 31 29 g_long(ssl), -1)
15e0: 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 );. } else i
15f0: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 f (where & SSL_C
1600: 42 5f 41 4c 45 52 54 29 20 7b 0a 09 63 6f 6e 73 B_ALERT) {..cons
1610: 74 20 63 68 61 72 20 2a 63 70 20 3d 20 28 63 68 t char *cp = (ch
1620: 61 72 20 2a 29 20 53 53 4c 5f 61 6c 65 72 74 5f ar *) SSL_alert_
1630: 64 65 73 63 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 desc_string_long
1640: 28 72 65 74 29 3b 0a 0a 09 54 63 6c 5f 4c 69 73 (ret);...Tcl_Lis
1650: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
1660: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 t( statePtr->int
1670: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 erp, cmdPtr,..
1680: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f Tcl_NewStringO
1690: 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 3b 0a 20 bj( cp, -1) );.
16a0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c } else {..Tcl
16b0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
16c0: 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d ement( statePtr-
16d0: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
16e0: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
16f0: 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 74 61 74 ingObj( SSL_stat
1700: 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 e_string_long(ss
1710: 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d l), -1) );. }
1720: 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 . Tcl_Preserv
1730: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 e( (ClientData)
1740: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1750: 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 );. Tcl_Prese
1760: 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 rve( (ClientData
1770: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 ) statePtr);..
1780: 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 Tcl_IncrRefCou
1790: 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 20 20 20 nt( cmdPtr);.
17a0: 20 28 76 6f 69 64 29 20 54 63 6c 5f 45 76 61 6c (void) Tcl_Eval
17b0: 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72 2d 3e ObjEx(statePtr->
17c0: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 interp, cmdPtr,
17d0: 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 TCL_EVAL_GLOBAL)
17e0: 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 ;. Tcl_DecrRe
17f0: 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b fCount( cmdPtr);
1800: 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 .. Tcl_Releas
1810: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 e( (ClientData)
1820: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 statePtr);. T
1830: 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 cl_Release( (Cli
1840: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
1850: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 7d 0a 0c r->interp);..}..
1860: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 ---------. *. *
18b0: 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 20 2d VerifyCallback -
18c0: 2d 0a 20 2a 0a 20 2a 09 4d 6f 6e 69 74 6f 72 73 -. *. *.Monitors
18d0: 20 53 53 4c 20 63 65 72 74 69 66 69 63 61 74 65 SSL certificate
18e0: 20 76 61 6c 69 64 61 74 69 6f 6e 20 70 72 6f 63 validation proc
18f0: 65 73 73 2e 0a 20 2a 09 54 68 69 73 20 69 73 20 ess.. *.This is
1900: 63 61 6c 6c 65 64 20 77 68 65 6e 65 76 65 72 20 called whenever
1910: 61 20 63 65 72 74 69 66 69 63 61 74 65 20 69 73 a certificate is
1920: 20 69 6e 73 70 65 63 74 65 64 0a 20 2a 09 6f 72 inspected. *.or
1930: 20 64 65 63 69 64 65 64 20 69 6e 76 61 6c 69 64 decided invalid
1940: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
1950: 0a 20 2a 09 41 20 63 61 6c 6c 62 61 63 6b 20 62 . *.A callback b
1960: 6f 75 6e 64 20 74 6f 20 74 68 65 20 73 6f 63 6b ound to the sock
1970: 65 74 20 6d 61 79 20 72 65 74 75 72 6e 20 6f 6e et may return on
1980: 65 20 6f 66 3a 0a 20 2a 09 20 20 20 20 30 09 09 e of:. *. 0..
1990: 09 2d 20 74 68 65 20 63 65 72 74 69 66 69 63 61 .- the certifica
19a0: 74 65 20 69 73 20 64 65 65 6d 65 64 20 69 6e 76 te is deemed inv
19b0: 61 6c 69 64 0a 20 2a 09 20 20 20 20 31 09 09 09 alid. *. 1...
19c0: 2d 20 74 68 65 20 63 65 72 74 69 66 69 63 61 74 - the certificat
19d0: 65 20 69 73 20 64 65 65 6d 65 64 20 76 61 6c 69 e is deemed vali
19e0: 64 0a 20 2a 09 20 20 20 20 65 6d 70 74 79 20 73 d. *. empty s
19f0: 74 72 69 6e 67 09 2d 20 6e 6f 20 63 68 61 6e 67 tring.- no chang
1a00: 65 20 74 6f 20 63 65 72 74 69 66 69 63 61 74 65 e to certificate
1a10: 20 76 61 6c 69 64 61 74 69 6f 6e 0a 20 2a 0a 20 validation. *.
1a20: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
1a30: 20 2a 09 54 68 65 20 65 72 72 20 66 69 65 6c 64 *.The err field
1a40: 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 6c of the currentl
1a50: 79 20 6f 70 65 72 61 74 69 76 65 20 53 74 61 74 y operative Stat
1a60: 65 20 69 73 20 73 65 74 0a 20 2a 09 20 20 74 6f e is set. *. to
1a70: 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 a string descri
1a80: 62 69 6e 67 20 74 68 65 20 53 53 4c 20 6e 65 67 bing the SSL neg
1a90: 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c 75 72 65 otiation failure
1aa0: 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d reason. *------
1ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1af0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56 65 72 /.static int.Ver
1b00: 69 66 79 43 61 6c 6c 62 61 63 6b 28 69 6e 74 20 ifyCallback(int
1b10: 6f 6b 2c 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 ok, X509_STORE_C
1b20: 54 58 20 2a 63 74 78 29 0a 7b 0a 20 20 20 20 54 TX *ctx).{. T
1b30: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 2c 20 cl_Obj *cmdPtr,
1b40: 2a 72 65 73 75 6c 74 3b 0a 20 20 20 20 63 68 61 *result;. cha
1b50: 72 20 2a 65 72 72 53 74 72 2c 20 2a 73 74 72 69 r *errStr, *stri
1b60: 6e 67 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 ng;. Tcl_Size
1b70: 20 6c 65 6e 67 74 68 3b 0a 20 20 20 20 53 53 4c length;. SSL
1b80: 20 20 20 2a 73 73 6c 09 09 3d 20 28 53 53 4c 2a *ssl..= (SSL*
1b90: 29 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f )X509_STORE_CTX_
1ba0: 67 65 74 5f 65 78 5f 64 61 74 61 28 63 74 78 2c get_ex_data(ctx,
1bb0: 20 53 53 4c 5f 67 65 74 5f 65 78 5f 64 61 74 61 SSL_get_ex_data
1bc0: 5f 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f _X509_STORE_CTX_
1bd0: 69 64 78 28 29 29 3b 0a 20 20 20 20 58 35 30 39 idx());. X509
1be0: 20 20 2a 63 65 72 74 09 09 3d 20 58 35 30 39 5f *cert..= X509_
1bf0: 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 63 75 STORE_CTX_get_cu
1c00: 72 72 65 6e 74 5f 63 65 72 74 28 63 74 78 29 3b rrent_cert(ctx);
1c10: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
1c20: 65 50 74 72 09 3d 20 28 53 74 61 74 65 2a 29 53 ePtr.= (State*)S
1c30: 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 61 28 SL_get_app_data(
1c40: 73 73 6c 29 3b 0a 20 20 20 20 69 6e 74 20 64 65 ssl);. int de
1c50: 70 74 68 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 pth..= X509_STOR
1c60: 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72 5f E_CTX_get_error_
1c70: 64 65 70 74 68 28 63 74 78 29 3b 0a 20 20 20 20 depth(ctx);.
1c80: 69 6e 74 20 65 72 72 09 09 3d 20 58 35 30 39 5f int err..= X509_
1c90: 53 54 4f 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 STORE_CTX_get_er
1ca0: 72 6f 72 28 63 74 78 29 3b 0a 0a 20 20 20 20 64 ror(ctx);.. d
1cb0: 70 72 69 6e 74 66 28 22 56 65 72 69 66 79 3a 20 printf("Verify:
1cc0: 25 64 22 2c 20 6f 6b 29 3b 0a 0a 20 20 20 20 69 %d", ok);.. i
1cd0: 66 20 28 21 6f 6b 29 20 7b 0a 09 65 72 72 53 74 f (!ok) {..errSt
1ce0: 72 20 3d 20 28 63 68 61 72 20 2a 29 58 35 30 39 r = (char *)X509
1cf0: 5f 76 65 72 69 66 79 5f 63 65 72 74 5f 65 72 72 _verify_cert_err
1d00: 6f 72 5f 73 74 72 69 6e 67 28 65 72 72 29 3b 0a or_string(err);.
1d10: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 65 72 } else {..er
1d20: 72 53 74 72 20 3d 20 28 63 68 61 72 20 2a 29 30 rStr = (char *)0
1d30: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 ;. }.. if
1d40: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
1d50: 61 63 6b 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ack == NULL) {..
1d60: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 76 66 if (statePtr->vf
1d70: 6c 61 67 73 20 26 20 53 53 4c 5f 56 45 52 49 46 lags & SSL_VERIF
1d80: 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45 Y_FAIL_IF_NO_PEE
1d90: 52 5f 43 45 52 54 29 20 7b 0a 09 20 20 20 20 72 R_CERT) {.. r
1da0: 65 74 75 72 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73 eturn ok;..} els
1db0: 65 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 e {.. return
1dc0: 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 1;..}. }.
1dd0: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 cmdPtr = Tcl_Dup
1de0: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 licateObj(stateP
1df0: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a tr->callback);..
1e00: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1e10: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1e20: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1e30: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1e40: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 _NewStringObj( "
1e50: 76 65 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a 0a verify", -1));..
1e60: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
1e70: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 ppendElement( st
1e80: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 atePtr->interp,
1e90: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c cmdPtr,.. Tcl
1ea0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 _NewStringObj( T
1eb0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d cl_GetChannelNam
1ec0: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 e(statePtr->self
1ed0: 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 ), -1) );.. T
1ee0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1ef0: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
1f00: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
1f10: 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 r,.. Tcl_NewI
1f20: 6e 74 4f 62 6a 28 20 64 65 70 74 68 29 20 29 3b ntObj( depth) );
1f30: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
1f40: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 jAppendElement(
1f50: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
1f60: 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 , cmdPtr,.. T
1f70: 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 20 73 ls_NewX509Obj( s
1f80: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
1f90: 20 63 65 72 74 29 20 29 3b 0a 0a 20 20 20 20 54 cert) );.. T
1fa0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
1fb0: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74 Element( statePt
1fc0: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 r->interp, cmdPt
1fd0: 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 49 r,.. Tcl_NewI
1fe0: 6e 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a 0a 20 ntObj( ok) );..
1ff0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
2000: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 pendElement( sta
2010: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 tePtr->interp, c
2020: 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f mdPtr,.. Tcl_
2030: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 65 72 NewStringObj( er
2040: 72 53 74 72 20 3f 20 65 72 72 53 74 72 20 3a 20 rStr ? errStr :
2050: 22 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 "", -1) );..
2060: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28 43 Tcl_Preserve( (C
2070: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
2080: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 Ptr->interp);.
2090: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 Tcl_Preserve(
20a0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
20b0: 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 73 74 61 tePtr);.. sta
20c0: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 tePtr->flags |=
20d0: 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b TLS_TCL_CALLBACK
20e0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
20f0: 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 efCount( cmdPtr)
2100: 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 45 76 ;. if (Tcl_Ev
2110: 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72 alObjEx(statePtr
2120: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 ->interp, cmdPtr
2130: 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 , TCL_EVAL_GLOBA
2140: 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a L) != TCL_OK) {.
2150: 09 2f 2a 20 49 74 20 67 6f 74 20 61 6e 20 65 72 ./* It got an er
2160: 72 6f 72 20 2d 20 72 65 6a 65 63 74 20 74 68 65 ror - reject the
2170: 20 63 65 72 74 69 66 69 63 61 74 65 2e 09 09 2a certificate...*
2180: 2f 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e /..Tcl_Backgroun
2190: 64 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 dError( statePtr
21a0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 6f 6b 20 3d ->interp);..ok =
21b0: 20 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0;. } else {
21c0: 0a 09 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 ..result = Tcl_G
21d0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 73 74 61 74 etObjResult(stat
21e0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 ePtr->interp);..
21f0: 73 74 72 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 string = Tcl_Get
2200: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 72 65 StringFromObj(re
2210: 73 75 6c 74 2c 20 26 6c 65 6e 67 74 68 29 3b 0a sult, &length);.
2220: 09 2f 2a 20 41 6e 20 65 6d 70 74 79 20 72 65 73 ./* An empty res
2230: 75 6c 74 20 6c 65 61 76 65 73 20 76 65 72 69 66 ult leaves verif
2240: 69 63 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 ication unchange
2250: 64 2e 09 2a 2f 0a 09 69 66 20 28 73 74 72 69 6e d..*/..if (strin
2260: 67 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6c 65 6e g != NULL && len
2270: 67 74 68 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 gth > 0) {..
2280: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 if (Tcl_GetIntFr
2290: 6f 6d 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e omObj(statePtr->
22a0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 2c 20 interp, result,
22b0: 26 6f 6b 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 &ok) != TCL_OK)
22c0: 7b 0a 09 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 {...Tcl_Backgrou
22d0: 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 ndError(statePtr
22e0: 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 09 6f 6b 20 ->interp);...ok
22f0: 3d 20 30 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 = 0;.. }..}.
2300: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 }. Tcl_Dec
2310: 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 rRefCount( cmdPt
2320: 72 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 r);.. statePt
2330: 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 4c r->flags &= ~(TL
2340: 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b 29 3b S_TCL_CALLBACK);
2350: 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 .. Tcl_Releas
2360: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 e( (ClientData)
2370: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 54 statePtr);. T
2380: 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 cl_Release( (Cli
2390: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
23a0: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 r->interp);..
23b0: 20 72 65 74 75 72 6e 28 6f 6b 29 3b 09 2f 2a 20 return(ok);./*
23c0: 42 79 20 64 65 66 61 75 6c 74 2c 20 6c 65 61 76 By default, leav
23d0: 65 20 76 65 72 69 66 69 63 61 74 69 6f 6e 20 75 e verification u
23e0: 6e 63 68 61 6e 67 65 64 2e 09 2a 2f 0a 7d 0a 0c nchanged..*/.}..
23f0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
2400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
2440: 54 6c 73 5f 45 72 72 6f 72 20 2d 2d 0a 20 2a 0a Tls_Error --. *.
2450: 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63 *.Calls callbac
2460: 6b 20 77 69 74 68 20 24 66 64 20 61 6e 64 20 24 k with $fd and $
2470: 6d 73 67 20 2d 20 73 6f 20 74 68 65 20 63 61 6c msg - so the cal
2480: 6c 62 61 63 6b 20 63 61 6e 20 64 65 63 69 64 65 lback can decide
2490: 0a 20 2a 09 77 68 61 74 20 74 6f 20 64 6f 20 77 . *.what to do w
24a0: 69 74 68 20 65 72 72 6f 72 73 2e 0a 20 2a 0a 20 ith errors.. *.
24b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
24c0: 20 2a 09 54 68 65 20 65 72 72 20 66 69 65 6c 64 *.The err field
24d0: 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 6c of the currentl
24e0: 79 20 6f 70 65 72 61 74 69 76 65 20 53 74 61 74 y operative Stat
24f0: 65 20 69 73 20 73 65 74 0a 20 2a 09 20 20 74 6f e is set. *. to
2500: 20 61 20 73 74 72 69 6e 67 20 64 65 73 63 72 69 a string descri
2510: 62 69 6e 67 20 74 68 65 20 53 53 4c 20 6e 65 67 bing the SSL neg
2520: 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c 75 72 65 otiation failure
2530: 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d reason. *------
2540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2580: 2f 0a 76 6f 69 64 0a 54 6c 73 5f 45 72 72 6f 72 /.void.Tls_Error
2590: 28 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 (State *statePtr
25a0: 2c 20 63 68 61 72 20 2a 6d 73 67 29 0a 7b 0a 20 , char *msg).{.
25b0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 Tcl_Obj *cmdP
25c0: 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 tr;.. dprintf
25d0: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
25e0: 20 69 66 20 28 6d 73 67 20 26 26 20 2a 6d 73 67 if (msg && *msg
25f0: 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f ) {..Tcl_SetErro
2600: 72 43 6f 64 65 28 73 74 61 74 65 50 74 72 2d 3e rCode(statePtr->
2610: 69 6e 74 65 72 70 2c 20 22 53 53 4c 22 2c 20 6d interp, "SSL", m
2620: 73 67 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c sg, (char *)NULL
2630: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
2640: 09 6d 73 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 .msg = Tcl_GetSt
2650: 72 69 6e 67 28 54 63 6c 5f 47 65 74 4f 62 6a 52 ring(Tcl_GetObjR
2660: 65 73 75 6c 74 28 73 74 61 74 65 50 74 72 2d 3e esult(statePtr->
2670: 69 6e 74 65 72 70 29 29 3b 0a 20 20 20 20 7d 0a interp));. }.
2680: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 statePtr->er
2690: 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 69 66 r = msg;.. if
26a0: 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c (statePtr->call
26b0: 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a back == (Tcl_Obj
26c0: 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 72 20 *)NULL) {..char
26d0: 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 70 buf[BUFSIZ];..sp
26e0: 72 69 6e 74 66 28 62 75 66 2c 20 22 53 53 4c 20 rintf(buf, "SSL
26f0: 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a 20 channel \"%s\":
2700: 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 20 20 error: %s",..
2710: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
2720: 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ame(statePtr->se
2730: 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 6c 5f lf), msg);..Tcl_
2740: 53 65 74 52 65 73 75 6c 74 28 20 73 74 61 74 65 SetResult( state
2750: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 75 66 Ptr->interp, buf
2760: 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b , TCL_VOLATILE);
2770: 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 ..Tcl_Background
2780: 45 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d Error( statePtr-
2790: 3e 69 6e 74 65 72 70 29 3b 0a 09 72 65 74 75 72 >interp);..retur
27a0: 6e 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 n;. }. cmd
27b0: 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 Ptr = Tcl_Duplic
27c0: 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d ateObj(statePtr-
27d0: 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 >callback);..
27e0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
27f0: 6e 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 ndElement(stateP
2800: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
2810: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 tr,.. Tcl_New
2820: 53 74 72 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72 StringObj("error
2830: 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 ", -1));.. Tc
2840: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2850: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d lement(statePtr-
2860: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c >interp, cmdPtr,
2870: 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 .. Tcl_NewStr
2880: 69 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 74 43 68 ingObj(Tcl_GetCh
2890: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 annelName(stateP
28a0: 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 29 3b tr->self), -1));
28b0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
28c0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 jAppendElement(s
28d0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c tatePtr->interp,
28e0: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 cmdPtr,.. Tc
28f0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 6d l_NewStringObj(m
2900: 73 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 sg, -1));.. T
2910: 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 cl_Preserve((Cli
2920: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
2930: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 r->interp);.
2940: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c Tcl_Preserve((Cl
2950: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 ientData) stateP
2960: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e tr);.. Tcl_In
2970: 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 crRefCount(cmdPt
2980: 72 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f r);. if (Tcl_
2990: 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 EvalObjEx(stateP
29a0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 tr->interp, cmdP
29b0: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f tr, TCL_EVAL_GLO
29c0: 42 41 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 BAL) != TCL_OK)
29d0: 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e {..Tcl_Backgroun
29e0: 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d dError(statePtr-
29f0: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a >interp);. }.
2a00: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
2a10: 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a 20 ount(cmdPtr);..
2a20: 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 Tcl_Release((
2a30: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
2a40: 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52 ePtr);. Tcl_R
2a50: 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 elease((ClientDa
2a60: 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e ta) statePtr->in
2a70: 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a terp);.}.../*. *
2a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ac0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 61 73 73 77 6f ---. *. * Passwo
2ad0: 72 64 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a rdCallback --. *
2ae0: 0a 20 2a 09 43 61 6c 6c 65 64 20 77 68 65 6e 20 . *.Called when
2af0: 61 20 70 61 73 73 77 6f 72 64 20 69 73 20 6e 65 a password is ne
2b00: 65 64 65 64 20 74 6f 20 75 6e 70 61 63 6b 20 52 eded to unpack R
2b10: 53 41 20 61 6e 64 20 50 45 4d 20 6b 65 79 73 2e SA and PEM keys.
2b20: 0a 20 2a 09 45 76 61 6c 73 20 61 6e 79 20 62 6f . *.Evals any bo
2b30: 75 6e 64 20 70 61 73 73 77 6f 72 64 20 73 63 72 und password scr
2b40: 69 70 74 20 61 6e 64 20 72 65 74 75 72 6e 73 20 ipt and returns
2b50: 74 68 65 20 72 65 73 75 6c 74 20 61 73 0a 20 2a the result as. *
2b60: 09 74 68 65 20 70 61 73 73 77 6f 72 64 20 73 74 .the password st
2b70: 72 69 6e 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ring.. *--------
2b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
2bc0: 23 69 66 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 #ifdef PRE_OPENS
2bd0: 53 4c 5f 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e SL_0_9_4./*. * N
2be0: 6f 20 77 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 o way to handle
2bf0: 75 73 65 72 2d 64 61 74 61 20 74 68 65 72 65 66 user-data theref
2c00: 6f 72 65 20 6e 6f 20 77 61 79 20 77 69 74 68 6f ore no way witho
2c10: 75 74 20 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 ut a global. * v
2c20: 61 72 69 61 62 6c 65 20 74 6f 20 61 63 63 65 73 ariable to acces
2c30: 73 20 74 68 65 20 54 63 6c 20 69 6e 74 65 72 70 s the Tcl interp
2c40: 72 65 74 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 reter..*/.static
2c50: 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 43 61 6c int.PasswordCal
2c60: 6c 62 61 63 6b 28 0a 20 20 20 20 54 43 4c 5f 55 lback(. TCL_U
2c70: 4e 55 53 45 44 28 63 68 61 72 20 2a 29 20 2f 2a NUSED(char *) /*
2c80: 20 62 75 66 20 2a 2f 2c 0a 20 20 20 20 54 43 4c buf */,. TCL
2c90: 5f 55 4e 55 53 45 44 28 69 6e 74 29 20 2f 2a 20 _UNUSED(int) /*
2ca0: 73 69 7a 65 20 2a 2f 2c 0a 20 20 20 20 54 43 4c size */,. TCL
2cb0: 5f 55 4e 55 53 45 44 28 69 6e 74 29 20 2f 2a 20 _UNUSED(int) /*
2cc0: 76 65 72 69 66 79 20 2a 2f 29 0a 7b 0a 20 20 20 verify */).{.
2cd0: 20 72 65 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 65 return -1;.}.#e
2ce0: 6c 73 65 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 lse.static int.P
2cf0: 61 73 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 28 asswordCallback(
2d00: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 73 char *buf, int s
2d10: 69 7a 65 2c 20 54 43 4c 5f 55 4e 55 53 45 44 28 ize, TCL_UNUSED(
2d20: 69 6e 74 29 20 2f 2a 20 76 65 72 69 66 79 20 2a int) /* verify *
2d30: 2f 2c 20 76 6f 69 64 20 2a 75 64 61 74 61 29 0a /, void *udata).
2d40: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
2d50: 74 65 50 74 72 09 3d 20 28 53 74 61 74 65 20 2a tePtr.= (State *
2d60: 29 20 75 64 61 74 61 3b 0a 20 20 20 20 54 63 6c ) udata;. Tcl
2d70: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 09 _Interp *interp.
2d80: 3d 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 = statePtr->inte
2d90: 72 70 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 rp;. Tcl_Obj
2da0: 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 69 6e 74 *cmdPtr;. int
2db0: 20 72 65 73 75 6c 74 3b 0a 0a 20 20 20 20 64 70 result;.. dp
2dc0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
2dd0: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 .. if (stateP
2de0: 74 72 2d 3e 70 61 73 73 77 6f 72 64 20 3d 3d 20 tr->password ==
2df0: 4e 55 4c 4c 29 20 7b 0a 09 69 66 20 28 54 63 6c NULL) {..if (Tcl
2e00: 5f 45 76 61 6c 45 78 28 69 6e 74 65 72 70 2c 20 _EvalEx(interp,
2e10: 22 74 6c 73 3a 3a 70 61 73 73 77 6f 72 64 22 2c "tls::password",
2e20: 20 2d 31 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c -1, TCL_EVAL_GL
2e30: 4f 42 41 4c 29 0a 09 09 3d 3d 20 54 43 4c 5f 4f OBAL)...== TCL_O
2e40: 4b 29 20 7b 0a 09 20 20 20 20 63 68 61 72 20 2a K) {.. char *
2e50: 72 65 74 20 3d 20 28 63 68 61 72 20 2a 29 20 54 ret = (char *) T
2e60: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75 cl_GetStringResu
2e70: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 20 20 20 lt(interp);..
2e80: 20 73 74 72 6e 63 70 79 28 62 75 66 2c 20 72 65 strncpy(buf, re
2e90: 74 2c 20 28 73 69 7a 65 5f 74 29 20 73 69 7a 65 t, (size_t) size
2ea0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 28 );.. return (
2eb0: 69 6e 74 29 73 74 72 6c 65 6e 28 72 65 74 29 3b int)strlen(ret);
2ec0: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
2ed0: 72 65 74 75 72 6e 20 2d 31 3b 0a 09 7d 0a 20 20 return -1;..}.
2ee0: 20 20 7d 0a 0a 20 20 20 20 63 6d 64 50 74 72 20 }.. cmdPtr
2ef0: 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f = Tcl_DuplicateO
2f00: 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 bj(statePtr->pas
2f10: 73 77 6f 72 64 29 3b 0a 0a 20 20 20 20 54 63 6c sword);.. Tcl
2f20: 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 6e _Preserve((Clien
2f30: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2d tData) statePtr-
2f40: 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54 63 >interp);. Tc
2f50: 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 65 l_Preserve((Clie
2f60: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
2f70: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63 72 );.. Tcl_Incr
2f80: 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 RefCount(cmdPtr)
2f90: 3b 0a 20 20 20 20 72 65 73 75 6c 74 20 3d 20 54 ;. result = T
2fa0: 63 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 69 6e 74 cl_EvalObjEx(int
2fb0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 54 43 4c erp, cmdPtr, TCL
2fc0: 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 _EVAL_GLOBAL);.
2fd0: 20 20 20 69 66 20 28 72 65 73 75 6c 74 20 21 3d if (result !=
2fe0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 54 63 6c 5f TCL_OK) {..Tcl_
2ff0: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 BackgroundError(
3000: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 statePtr->interp
3010: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c );. }. Tcl
3020: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 63 6d _DecrRefCount(cm
3030: 64 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f dPtr);.. Tcl_
3040: 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 Release((ClientD
3050: 61 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a ata) statePtr);.
3060: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 Tcl_Release(
3070: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
3080: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a tePtr->interp);.
3090: 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 20 . if (result
30a0: 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 63 68 == TCL_OK) {..ch
30b0: 61 72 20 2a 72 65 74 20 3d 20 28 63 68 61 72 20 ar *ret = (char
30c0: 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 *) Tcl_GetString
30d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
30e0: 09 73 74 72 6e 63 70 79 28 62 75 66 2c 20 72 65 .strncpy(buf, re
30f0: 74 2c 20 28 73 69 7a 65 5f 74 29 20 73 69 7a 65 t, (size_t) size
3100: 29 3b 0a 09 72 65 74 75 72 6e 20 28 69 6e 74 29 );..return (int)
3110: 73 74 72 6c 65 6e 28 72 65 74 29 3b 0a 20 20 20 strlen(ret);.
3120: 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 74 75 72 } else {..retur
3130: 6e 20 2d 31 3b 0a 20 20 20 20 7d 0a 7d 0a 23 65 n -1;. }.}.#e
3140: 6e 64 69 66 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ndif.../*. *----
3150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3190: 20 2a 0a 20 2a 20 43 69 70 68 65 72 73 4f 62 6a *. * CiphersObj
31a0: 43 6d 64 20 2d 2d 20 6c 69 73 74 20 61 76 61 69 Cmd -- list avai
31b0: 6c 61 62 6c 65 20 63 69 70 68 65 72 73 0a 20 2a lable ciphers. *
31c0: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 . *.This procedu
31d0: 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f re is invoked to
31e0: 20 70 72 6f 63 65 73 73 20 74 68 65 20 22 74 6c process the "tl
31f0: 73 3a 3a 63 69 70 68 65 72 73 22 20 63 6f 6d 6d s::ciphers" comm
3200: 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 and. *.to list a
3210: 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 vailable ciphers
3220: 2c 20 62 61 73 65 64 20 75 70 6f 6e 20 70 72 6f , based upon pro
3230: 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a tocol selected..
3240: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
3250: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
3260: 20 72 65 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a result list.. *
3270: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
3280: 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 :. *.constructs
3290: 61 6e 64 20 64 65 73 74 72 6f 79 73 20 53 53 4c and destroys SSL
32a0: 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 context (CTX).
32b0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
32c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32f0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
3300: 69 63 20 69 6e 74 0a 43 69 70 68 65 72 73 4f 62 ic int.CiphersOb
3310: 6a 43 6d 64 28 0a 20 20 20 20 54 43 4c 5f 55 4e jCmd(. TCL_UN
3320: 55 53 45 44 28 76 6f 69 64 20 2a 29 2c 0a 20 20 USED(void *),.
3330: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
3340: 74 65 72 70 2c 0a 20 20 20 20 69 6e 74 20 6f 62 terp,. int ob
3350: 6a 63 2c 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 09 jc,. Tcl_Obj.
3360: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 0a 7b *const objv[]).{
3370: 0a 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 . static cons
3380: 74 20 63 68 61 72 20 2a 70 72 6f 74 6f 63 6f 6c t char *protocol
3390: 73 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c 32 22 2c s[] = {.."ssl2",
33a0: 09 22 73 73 6c 33 22 2c 09 22 74 6c 73 31 22 2c ."ssl3",."tls1",
33b0: 09 22 74 6c 73 31 2e 31 22 2c 20 22 74 6c 73 31 ."tls1.1", "tls1
33c0: 2e 32 22 2c 20 22 74 6c 73 31 2e 33 22 2c 20 4e .2", "tls1.3", N
33d0: 55 4c 4c 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 ULL. };. e
33e0: 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 num protocol {..
33f0: 54 4c 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 TLS_SSL2, TLS_SS
3400: 4c 33 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c L3, TLS_TLS1, TL
3410: 53 5f 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c S_TLS1_1, TLS_TL
3420: 53 31 5f 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 S1_2, TLS_TLS1_3
3430: 2c 20 54 4c 53 5f 4e 4f 4e 45 0a 20 20 20 20 7d , TLS_NONE. }
3440: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f ;. Tcl_Obj *o
3450: 62 6a 50 74 72 3b 0a 20 20 20 20 53 53 4c 5f 43 bjPtr;. SSL_C
3460: 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a TX *ctx = NULL;.
3470: 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e SSL *ssl = N
3480: 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f ULL;. STACK_O
3490: 46 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 F(SSL_CIPHER) *s
34a0: 6b 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 70 2c k;. char *cp,
34b0: 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 buf[BUFSIZ];.
34c0: 20 20 69 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 int index, ver
34d0: 62 6f 73 65 20 3d 20 30 3b 0a 0a 20 20 20 20 64 bose = 0;.. d
34e0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
34f0: 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 ;.. if (objc
3500: 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 < 2 || objc > 3)
3510: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
3520: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
3530: 6f 62 6a 76 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 objv, "protocol
3540: 3f 76 65 72 62 6f 73 65 3f 22 29 3b 0a 09 72 65 ?verbose?");..re
3550: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3560: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 }. if (Tc
3570: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 l_GetIndexFromOb
3580: 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b j( interp, objv[
3590: 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 22 1], protocols, "
35a0: 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c 0a 09 26 protocol", 0,..&
35b0: 69 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b index) != TCL_OK
35c0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
35d0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 ERROR;. }.
35e0: 20 69 66 20 28 6f 62 6a 63 20 3e 20 32 20 26 26 if (objc > 2 &&
35f0: 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 Tcl_GetBooleanF
3600: 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 romObj( interp,
3610: 6f 62 6a 76 5b 32 5d 2c 0a 09 26 76 65 72 62 6f objv[2],..&verbo
3620: 73 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b se) != TCL_OK) {
3630: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3640: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 77 OR;. }. sw
3650: 69 74 63 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 itch ((enum prot
3660: 6f 63 6f 6c 29 69 6e 64 65 78 29 20 7b 0a 20 20 ocol)index) {.
3670: 20 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 32 3a case TLS_SSL2:
3680: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 ...Tcl_AppendRes
3690: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f ult(interp, "pro
36a0: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
36b0: 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 ted", (char *)NU
36c0: 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 LL);...return TC
36d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 63 61 73 L_ERROR;. cas
36e0: 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 69 66 20 e TLS_SSL3:.#if
36f0: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 defined(NO_SSL3)
3700: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e || defined(OPEN
3710: 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 SSL_NO_SSL3) ||
3720: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
3730: 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 29 0a NO_SSL3_METHOD).
3740: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
3750: 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 lt(interp, "prot
3760: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 ocol not support
3770: 65 64 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c ed", (char *)NUL
3780: 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c L);...return TCL
3790: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 _ERROR;.#else...
37a0: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
37b0: 77 28 53 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 w(SSLv3_method()
37c0: 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 ); break;.#endif
37d0: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c . case TLS_TL
37e0: 53 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 S1:.#if defined(
37f0: 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 NO_TLS1) || defi
3800: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
3810: 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 LS1) || defined(
3820: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
3830: 4d 45 54 48 4f 44 29 0a 09 09 54 63 6c 5f 41 70 METHOD)...Tcl_Ap
3840: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3850: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
3860: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 supported", (ch
3870: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 09 72 65 ar *)NULL);...re
3880: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3890: 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 #else...ctx = SS
38a0: 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f L_CTX_new(TLSv1_
38b0: 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b method()); break
38c0: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 ;.#endif. cas
38d0: 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a 0a 23 69 e TLS_TLS1_1:.#i
38e0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
38f0: 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 1_1) || defined(
3900: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
3910: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 1) || defined(OP
3920: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 5f ENSSL_NO_TLS1_1_
3930: 4d 45 54 48 4f 44 29 0a 09 09 54 63 6c 5f 41 70 METHOD)...Tcl_Ap
3940: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
3950: 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 p, "protocol not
3960: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 supported", (ch
3970: 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 09 72 65 ar *)NULL);...re
3980: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3990: 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 #else...ctx = SS
39a0: 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f L_CTX_new(TLSv1_
39b0: 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72 65 1_method()); bre
39c0: 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 ak;.#endif.#if d
39d0: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 efined(NO_TLS1_2
39e0: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
39f0: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 NSSL_NO_TLS1_2)
3a00: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
3a10: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 SL_NO_TLS1_2_MET
3a20: 48 4f 44 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e HOD)...Tcl_Appen
3a30: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
3a40: 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 "protocol not su
3a50: 70 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 pported", (char
3a60: 2a 29 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 *)NULL);...retur
3a70: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c n TCL_ERROR;.#el
3a80: 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 se...ctx = SSL_C
3a90: 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 32 5f 6d TX_new(TLSv1_2_m
3aa0: 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b ethod()); break;
3ab0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 .#endif.#if defi
3ac0: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c ned(NO_TLS1_3) |
3ad0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 | defined(OPENSS
3ae0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c 20 L_NO_TLS1_3) ||
3af0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
3b00: 4e 4f 5f 54 4c 53 31 5f 33 5f 4d 45 54 48 4f 44 NO_TLS1_3_METHOD
3b10: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 )...Tcl_AppendRe
3b20: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
3b30: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
3b40: 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 4e rted", (char *)N
3b50: 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 ULL);...return T
3b60: 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a CL_ERROR;.#else.
3b70: 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ..ctx = SSL_CTX_
3b80: 6e 65 77 28 54 4c 53 5f 6d 65 74 68 6f 64 28 29 new(TLS_method()
3b90: 29 3b 20 62 72 65 61 6b 3b 0a 09 09 53 53 4c 5f ); break;...SSL_
3ba0: 43 54 58 5f 73 65 74 5f 6d 69 6e 5f 70 72 6f 74 CTX_set_min_prot
3bb0: 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 78 2c 20 o_version (ctx,
3bc0: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 29 3b TLS1_3_VERSION);
3bd0: 0a 09 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d ...SSL_CTX_set_m
3be0: 61 78 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e ax_proto_version
3bf0: 20 28 63 74 78 2c 20 54 4c 53 31 5f 33 5f 56 45 (ctx, TLS1_3_VE
3c00: 52 53 49 4f 4e 29 3b 0a 23 65 6e 64 69 66 0a 20 RSION);.#endif.
3c10: 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 09 62 72 default:...br
3c20: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 eak;. }. i
3c30: 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 f (ctx == NULL)
3c40: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
3c50: 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 ult(interp, REAS
3c60: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e ON(), (char *) N
3c70: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
3c80: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
3c90: 20 20 20 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 ssl = SSL_new
3ca0: 28 63 74 78 29 3b 0a 20 20 20 20 69 66 20 28 73 (ctx);. if (s
3cb0: 73 6c 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 sl == NULL) {..T
3cc0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
3cd0: 69 6e 74 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 interp, REASON()
3ce0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
3cf0: 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 ;..SSL_CTX_free(
3d00: 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ctx);..return TC
3d10: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
3d20: 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f objPtr = Tcl_
3d30: 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 2c 20 4e NewListObj( 0, N
3d40: 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 ULL);.. if (!
3d50: 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 6f 72 20 verbose) {..for
3d60: 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b 20 69 6e (index = 0; ; in
3d70: 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 63 70 dex++) {.. cp
3d80: 20 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f 67 65 = (char*)SSL_ge
3d90: 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 20 73 t_cipher_list( s
3da0: 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 20 20 20 sl, index);..
3db0: 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 4c 4c 29 if (cp == NULL)
3dc0: 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 54 63 6c break;.. Tcl
3dd0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
3de0: 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f ement( interp, o
3df0: 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 bjPtr,...Tcl_New
3e00: 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d StringObj( cp, -
3e10: 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 1) );..}. } e
3e20: 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f lse {..sk = SSL_
3e30: 67 65 74 5f 63 69 70 68 65 72 73 28 73 73 6c 29 get_ciphers(ssl)
3e40: 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 78 20 3d ;...for (index =
3e50: 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 6b 5f 53 0; index < sk_S
3e60: 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b SL_CIPHER_num(sk
3e70: 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 ); index++) {..
3e80: 20 20 20 73 69 7a 65 5f 74 20 69 3b 0a 09 20 20 size_t i;..
3e90: 20 20 53 53 4c 5f 43 49 50 48 45 52 5f 64 65 73 SSL_CIPHER_des
3ea0: 63 72 69 70 74 69 6f 6e 28 20 73 6b 5f 53 53 4c cription( sk_SSL
3eb0: 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 20 73 _CIPHER_value( s
3ec0: 6b 2c 20 69 6e 64 65 78 29 2c 0a 09 09 09 09 20 k, index),.....
3ed0: 20 20 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 62 buf, sizeof(b
3ee0: 75 66 29 29 3b 0a 09 20 20 20 20 66 6f 72 20 28 uf));.. for (
3ef0: 69 20 3d 20 73 74 72 6c 65 6e 28 62 75 66 29 20 i = strlen(buf)
3f00: 2d 20 31 3b 20 69 20 3b 20 69 2d 2d 29 20 7b 0a - 1; i ; i--) {.
3f10: 09 09 69 66 20 28 62 75 66 5b 69 5d 20 3d 3d 20 ..if (buf[i] ==
3f20: 27 20 27 20 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d ' ' || buf[i] ==
3f30: 20 27 5c 6e 27 20 7c 7c 0a 09 09 20 20 20 20 62 '\n' ||... b
3f40: 75 66 5b 69 5d 20 3d 3d 20 27 5c 72 27 20 7c 7c uf[i] == '\r' ||
3f50: 20 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 74 27 29 buf[i] == '\t')
3f60: 20 7b 0a 09 09 20 20 20 20 62 75 66 5b 69 5d 20 {... buf[i]
3f70: 3d 20 27 5c 30 27 3b 0a 09 09 7d 20 65 6c 73 65 = '\0';...} else
3f80: 20 7b 0a 09 09 20 20 20 20 62 72 65 61 6b 3b 0a {... break;.
3f90: 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 ..}.. }..
3fa0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
3fb0: 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 dElement( interp
3fc0: 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f , objPtr,...Tcl_
3fd0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 62 75 NewStringObj( bu
3fe0: 66 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 f, -1) );..}.
3ff0: 20 7d 0a 20 20 20 20 53 53 4c 5f 66 72 65 65 28 }. SSL_free(
4000: 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f 43 54 ssl);. SSL_CT
4010: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 0a 20 20 X_free(ctx);..
4020: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
4030: 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 lt( interp, objP
4040: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 tr);. return
4050: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 TCL_OK;.}.../*.
4060: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40a0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 48 61 6e 64 73 ----. *. * Hands
40b0: 68 61 6b 65 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a hakeObjCmd --. *
40c0: 0a 20 2a 09 54 68 69 73 20 63 6f 6d 6d 61 6e 64 . *.This command
40d0: 20 69 73 20 75 73 65 64 20 74 6f 20 76 65 72 69 is used to veri
40e0: 66 79 20 77 68 65 74 68 65 72 20 74 68 65 20 68 fy whether the h
40f0: 61 6e 64 73 68 61 6b 65 20 69 73 20 63 6f 6d 70 andshake is comp
4100: 6c 65 74 65 0a 20 2a 09 6f 72 20 6e 6f 74 2e 0a lete. *.or not..
4110: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
4120: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
4130: 20 72 65 73 75 6c 74 2e 20 31 20 6d 65 61 6e 73 result. 1 means
4140: 20 68 61 6e 64 73 68 61 6b 65 20 63 6f 6d 70 6c handshake compl
4150: 65 74 65 2c 20 30 20 6d 65 61 6e 73 20 70 65 6e ete, 0 means pen
4160: 64 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 ding.. *. * Side
4170: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 effects:. *.May
4180: 20 66 6f 72 63 65 20 53 53 4c 20 6e 65 67 6f 74 force SSL negot
4190: 69 61 74 69 6f 6e 20 74 6f 20 74 61 6b 65 20 70 iation to take p
41a0: 6c 61 63 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d lace.. *. *-----
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
41f0: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 48 */..static int H
4200: 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 28 0a andshakeObjCmd(.
4210: 20 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 28 76 TCL_UNUSED(v
4220: 6f 69 64 20 2a 29 2c 0a 20 20 20 20 54 63 6c 5f oid *),. Tcl_
4230: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a Interp *interp,.
4240: 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 int objc,.
4250: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 Tcl_Obj *const
4260: 20 6f 62 6a 76 5b 5d 29 0a 7b 0a 09 54 63 6c 5f objv[]).{..Tcl_
4270: 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f Channel chan;../
4280: 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f * The channel to
4290: 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 set a mode on.
42a0: 2a 2f 0a 09 53 74 61 74 65 20 2a 73 74 61 74 65 */..State *state
42b0: 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 Ptr;../* client
42c0: 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 73 6f state for ssl so
42d0: 63 6b 65 74 20 2a 2f 0a 09 63 6f 6e 73 74 20 63 cket */..const c
42e0: 68 61 72 20 2a 65 72 72 53 74 72 20 3d 20 4e 55 har *errStr = NU
42f0: 4c 4c 3b 0a 09 69 6e 74 20 72 65 74 20 3d 20 31 LL;..int ret = 1
4300: 3b 0a 09 69 6e 74 20 65 72 72 20 3d 20 30 3b 0a ;..int err = 0;.
4310: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 ..dprintf("Calle
4320: 64 22 29 3b 0a 0a 09 69 66 20 28 6f 62 6a 63 20 d");...if (objc
4330: 21 3d 20 32 29 20 7b 0a 09 09 54 63 6c 5f 57 72 != 2) {...Tcl_Wr
4340: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
4350: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 p, 1, objv, "cha
4360: 6e 6e 65 6c 22 29 3b 0a 09 09 72 65 74 75 72 6e nnel");...return
4370: 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a (TCL_ERROR);..}.
4380: 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 ..chan = Tcl_Get
4390: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
43a0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
43b0: 6a 76 5b 31 5d 29 2c 20 4e 55 4c 4c 29 3b 0a 09 jv[1]), NULL);..
43c0: 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c if (chan == (Tcl
43d0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
43e0: 7b 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 {...return(TCL_E
43f0: 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 RROR);..}.../*..
4400: 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 * Make sure to
4410: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
4420: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 opmost channel..
4430: 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f */..chan = Tcl_
4440: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
4450: 61 6e 29 3b 0a 09 69 66 20 28 54 63 6c 5f 47 65 an);..if (Tcl_Ge
4460: 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 tChannelType(cha
4470: 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 n) != Tls_Channe
4480: 6c 54 79 70 65 28 29 29 20 7b 0a 09 09 54 63 6c lType()) {...Tcl
4490: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
44a0: 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e terp, "bad chann
44b0: 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 el \"", Tcl_GetC
44c0: 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 hannelName(chan)
44d0: 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 , "\": not a TLS
44e0: 20 63 68 61 6e 6e 65 6c 22 2c 20 28 63 68 61 72 channel", (char
44f0: 20 2a 29 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 *)NULL);...retu
4500: 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 rn(TCL_ERROR);..
4510: 7d 0a 09 73 74 61 74 65 50 74 72 20 3d 20 28 53 }..statePtr = (S
4520: 74 61 74 65 20 2a 29 54 63 6c 5f 47 65 74 43 68 tate *)Tcl_GetCh
4530: 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 annelInstanceDat
4540: 61 28 63 68 61 6e 29 3b 0a 0a 09 64 70 72 69 6e a(chan);...dprin
4550: 74 66 28 22 43 61 6c 6c 69 6e 67 20 54 6c 73 5f tf("Calling Tls_
4560: 57 61 69 74 46 6f 72 43 6f 6e 6e 65 63 74 22 29 WaitForConnect")
4570: 3b 0a 09 72 65 74 20 3d 20 54 6c 73 5f 57 61 69 ;..ret = Tls_Wai
4580: 74 46 6f 72 43 6f 6e 6e 65 63 74 28 73 74 61 74 tForConnect(stat
4590: 65 50 74 72 2c 20 26 65 72 72 2c 20 31 29 3b 0a ePtr, &err, 1);.
45a0: 09 64 70 72 69 6e 74 66 28 22 54 6c 73 5f 57 61 .dprintf("Tls_Wa
45b0: 69 74 46 6f 72 43 6f 6e 6e 65 63 74 20 72 65 74 itForConnect ret
45c0: 75 72 6e 65 64 3a 20 25 69 22 2c 20 72 65 74 29 urned: %i", ret)
45d0: 3b 0a 0a 09 69 66 20 28 0a 09 20 20 20 20 72 65 ;...if (.. re
45e0: 74 20 3c 20 30 20 26 26 20 5c 0a 09 20 20 20 20 t < 0 && \..
45f0: 28 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ((statePtr->flag
4600: 73 20 26 20 54 4c 53 5f 54 43 4c 5f 41 53 59 4e s & TLS_TCL_ASYN
4610: 43 29 20 26 26 20 65 72 72 20 3d 3d 20 45 41 47 C) && err == EAG
4620: 41 49 4e 29 0a 09 29 20 7b 0a 09 09 64 70 72 69 AIN)..) {...dpri
4630: 6e 74 66 28 22 41 73 79 6e 63 20 73 65 74 20 61 ntf("Async set a
4640: 6e 64 20 65 72 72 20 3d 20 45 41 47 41 49 4e 22 nd err = EAGAIN"
4650: 29 3b 0a 09 09 72 65 74 20 3d 20 30 3b 0a 09 7d );...ret = 0;..}
4660: 20 65 6c 73 65 20 69 66 20 28 72 65 74 20 3c 20 else if (ret <
4670: 30 29 20 7b 0a 09 09 65 72 72 53 74 72 20 3d 20 0) {...errStr =
4680: 73 74 61 74 65 50 74 72 2d 3e 65 72 72 3b 0a 09 statePtr->err;..
4690: 09 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 .Tcl_ResetResult
46a0: 28 69 6e 74 65 72 70 29 3b 0a 09 09 54 63 6c 5f (interp);...Tcl_
46b0: 53 65 74 45 72 72 6e 6f 28 65 72 72 29 3b 0a 0a SetErrno(err);..
46c0: 09 09 69 66 20 28 21 65 72 72 53 74 72 20 7c 7c ..if (!errStr ||
46d0: 20 2a 65 72 72 53 74 72 20 3d 3d 20 30 29 20 7b *errStr == 0) {
46e0: 0a 09 09 09 65 72 72 53 74 72 20 3d 20 54 63 6c ....errStr = Tcl
46f0: 5f 50 6f 73 69 78 45 72 72 6f 72 28 69 6e 74 65 _PosixError(inte
4700: 72 70 29 3b 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f rp);...}....Tcl_
4710: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
4720: 65 72 70 2c 20 22 68 61 6e 64 73 68 61 6b 65 20 erp, "handshake
4730: 66 61 69 6c 65 64 3a 20 22 2c 20 65 72 72 53 74 failed: ", errSt
4740: 72 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c r, (char *) NULL
4750: 29 3b 0a 09 09 64 70 72 69 6e 74 66 28 22 52 65 );...dprintf("Re
4760: 74 75 72 6e 69 6e 67 20 54 43 4c 5f 45 52 52 4f turning TCL_ERRO
4770: 52 20 77 69 74 68 20 68 61 6e 64 73 68 61 6b 65 R with handshake
4780: 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 65 72 failed: %s", er
4790: 72 53 74 72 29 3b 0a 09 09 72 65 74 75 72 6e 28 rStr);...return(
47a0: 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 20 65 TCL_ERROR);..} e
47b0: 6c 73 65 20 7b 0a 09 09 69 66 20 28 65 72 72 20 lse {...if (err
47c0: 21 3d 20 30 29 20 7b 0a 09 09 09 64 70 72 69 6e != 0) {....dprin
47d0: 74 66 28 22 47 6f 74 20 61 6e 20 65 72 72 6f 72 tf("Got an error
47e0: 20 77 69 74 68 20 61 20 63 6f 6d 70 6c 65 74 65 with a complete
47f0: 64 20 68 61 6e 64 73 68 61 6b 65 3a 20 65 72 72 d handshake: err
4800: 20 3d 20 25 69 22 2c 20 65 72 72 29 3b 0a 09 09 = %i", err);...
4810: 7d 0a 0a 09 09 72 65 74 20 3d 20 31 3b 0a 09 7d }....ret = 1;..}
4820: 0a 0a 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 ...dprintf("Retu
4830: 72 6e 69 6e 67 20 54 43 4c 5f 4f 4b 20 77 69 74 rning TCL_OK wit
4840: 68 20 64 61 74 61 20 5c 22 25 69 5c 22 22 2c 20 h data \"%i\"",
4850: 72 65 74 29 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 ret);..Tcl_SetOb
4860: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
4870: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 72 65 Tcl_NewIntObj(re
4880: 74 29 29 3b 0a 09 72 65 74 75 72 6e 28 54 43 4c t));..return(TCL
4890: 5f 4f 4b 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d _OK);.}../*. *--
48a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48e0: 2d 0a 20 2a 0a 20 2a 20 49 6d 70 6f 72 74 4f 62 -. *. * ImportOb
48f0: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 jCmd --. *. *.Th
4900: 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 is procedure is
4910: 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 invoked to proce
4920: 73 73 20 74 68 65 20 22 73 73 6c 22 20 63 6f 6d ss the "ssl" com
4930: 6d 61 6e 64 0a 20 2a 0a 20 2a 09 54 68 65 20 73 mand. *. *.The s
4940: 73 6c 20 63 6f 6d 6d 61 6e 64 20 70 75 73 68 65 sl command pushe
4950: 73 20 53 53 4c 20 6f 76 65 72 20 61 20 28 6e 65 s SSL over a (ne
4960: 77 6c 79 20 63 6f 6e 6e 65 63 74 65 64 29 20 74 wly connected) t
4970: 63 70 20 73 6f 63 6b 65 74 0a 20 2a 0a 20 2a 20 cp socket. *. *
4980: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
4990: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
49a0: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
49b0: 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f fects:. *.May mo
49c0: 64 69 66 79 20 74 68 65 20 62 65 68 61 76 69 6f dify the behavio
49d0: 72 20 6f 66 20 61 6e 20 49 4f 20 63 68 61 6e 6e r of an IO chann
49e0: 65 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d el.. *. *-------
49f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
4a30: 0a 0a 73 74 61 74 69 63 20 69 6e 74 0a 49 6d 70 ..static int.Imp
4a40: 6f 72 74 4f 62 6a 43 6d 64 28 0a 20 20 20 20 54 ortObjCmd(. T
4a50: 43 4c 5f 55 4e 55 53 45 44 28 76 6f 69 64 20 2a CL_UNUSED(void *
4a60: 29 2c 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 ),. Tcl_Inter
4a70: 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 20 20 69 p *interp,. i
4a80: 6e 74 20 6f 62 6a 63 2c 0a 20 20 20 20 54 63 6c nt objc,. Tcl
4a90: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
4aa0: 5b 5d 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68 []).{. Tcl_Ch
4ab0: 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 annel chan;../*
4ac0: 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 The channel to s
4ad0: 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f et a mode on. */
4ae0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 . State *stat
4af0: 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 ePtr;../* client
4b00: 20 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20 73 state for ssl s
4b10: 6f 63 6b 65 74 20 2a 2f 0a 20 20 20 20 53 53 4c ocket */. SSL
4b20: 5f 43 54 58 20 2a 63 74 78 09 20 20 20 20 20 20 _CTX *ctx.
4b30: 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 = NULL;. Tc
4b40: 6c 5f 4f 62 6a 20 2a 73 63 72 69 70 74 09 20 20 l_Obj *script.
4b50: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 = NULL;.
4b60: 20 20 54 63 6c 5f 4f 62 6a 20 2a 70 61 73 73 77 Tcl_Obj *passw
4b70: 6f 72 64 09 20 20 20 20 20 20 20 20 3d 20 4e 55 ord. = NU
4b80: 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 LL;. Tcl_DStr
4b90: 69 6e 67 20 75 70 70 65 72 43 68 61 6e 6e 65 6c ing upperChannel
4ba0: 54 72 61 6e 73 6c 61 74 69 6f 6e 2c 20 75 70 70 Translation, upp
4bb0: 65 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e erChannelBlockin
4bc0: 67 2c 20 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 g, upperChannelE
4bd0: 6e 63 6f 64 69 6e 67 2c 20 75 70 70 65 72 43 68 ncoding, upperCh
4be0: 61 6e 6e 65 6c 45 4f 46 43 68 61 72 3b 0a 20 20 annelEOFChar;.
4bf0: 20 20 69 6e 74 20 69 64 78 3b 0a 20 20 20 20 54 int idx;. T
4c00: 63 6c 5f 53 69 7a 65 20 6c 65 6e 3b 0a 20 20 20 cl_Size len;.
4c10: 20 69 6e 74 20 66 6c 61 67 73 09 09 20 20 20 20 int flags..
4c20: 20 20 20 20 3d 20 54 4c 53 5f 54 43 4c 5f 49 4e = TLS_TCL_IN
4c30: 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 76 IT;. int serv
4c40: 65 72 09 09 20 20 20 20 20 20 20 20 3d 20 30 3b er.. = 0;
4c50: 09 2f 2a 20 69 73 20 63 6f 6e 6e 65 63 74 69 6f ./* is connectio
4c60: 6e 20 69 6e 63 6f 6d 69 6e 67 20 6f 72 20 6f 75 n incoming or ou
4c70: 74 67 6f 69 6e 67 3f 20 2a 2f 0a 20 20 20 20 63 tgoing? */. c
4c80: 68 61 72 20 2a 6b 65 79 66 69 6c 65 09 20 20 20 har *keyfile.
4c90: 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 = NULL;.
4ca0: 20 63 68 61 72 20 2a 63 65 72 74 66 69 6c 65 09 char *certfile.
4cb0: 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a = NULL;.
4cc0: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
4cd0: 72 20 2a 6b 65 79 20 20 09 3d 20 4e 55 4c 4c 3b r *key .= NULL;
4ce0: 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 6b 65 . Tcl_Size ke
4cf0: 79 5f 6c 65 6e 20 20 20 20 20 20 20 20 3d 20 30 y_len = 0
4d00: 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 ;. unsigned c
4d10: 68 61 72 20 2a 63 65 72 74 20 20 20 20 20 3d 20 har *cert =
4d20: 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 53 69 NULL;. Tcl_Si
4d30: 7a 65 20 63 65 72 74 5f 6c 65 6e 20 20 20 20 20 ze cert_len
4d40: 20 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 72 20 = 0;. char
4d50: 2a 63 69 70 68 65 72 73 09 20 20 20 20 20 20 20 *ciphers.
4d60: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 = NULL;. cha
4d70: 72 20 2a 43 41 66 69 6c 65 09 20 20 20 20 20 20 r *CAfile.
4d80: 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 = NULL;. ch
4d90: 61 72 20 2a 43 41 64 69 72 09 09 20 20 20 20 20 ar *CAdir..
4da0: 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 = NULL;. c
4db0: 68 61 72 20 2a 44 48 70 61 72 61 6d 73 09 20 20 har *DHparams.
4dc0: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 = NULL;.
4dd0: 20 20 63 68 61 72 20 2a 6d 6f 64 65 6c 09 09 20 char *model..
4de0: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 23 = NULL;.#
4df0: 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e ifndef OPENSSL_N
4e00: 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 63 68 61 O_TLSEXT. cha
4e10: 72 20 2a 73 65 72 76 65 72 6e 61 6d 65 09 20 20 r *servername.
4e20: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 09 2f 2a = NULL;./*
4e30: 20 68 6f 73 74 6e 61 6d 65 20 66 6f 72 20 53 65 hostname for Se
4e40: 72 76 65 72 20 4e 61 6d 65 20 49 6e 64 69 63 61 rver Name Indica
4e50: 74 69 6f 6e 20 2a 2f 0a 23 65 6e 64 69 66 0a 20 tion */.#endif.
4e60: 20 20 20 69 6e 74 20 73 73 6c 32 20 3d 20 30 2c int ssl2 = 0,
4e70: 20 73 73 6c 33 20 3d 20 30 3b 0a 20 20 20 20 69 ssl3 = 0;. i
4e80: 6e 74 20 74 6c 73 31 20 3d 20 31 2c 20 74 6c 73 nt tls1 = 1, tls
4e90: 31 5f 31 20 3d 20 31 2c 20 74 6c 73 31 5f 32 20 1_1 = 1, tls1_2
4ea0: 3d 20 31 2c 20 74 6c 73 31 5f 33 20 3d 20 31 3b = 1, tls1_3 = 1;
4eb0: 0a 20 20 20 20 69 6e 74 20 70 72 6f 74 6f 20 3d . int proto =
4ec0: 20 30 3b 0a 20 20 20 20 69 6e 74 20 76 65 72 69 0;. int veri
4ed0: 66 79 20 3d 20 30 2c 20 72 65 71 75 69 72 65 20 fy = 0, require
4ee0: 3d 20 30 2c 20 72 65 71 75 65 73 74 20 3d 20 31 = 0, request = 1
4ef0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
4f00: 43 61 6c 6c 65 64 22 29 3b 0a 0a 23 69 66 20 64 Called");..#if d
4f10: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 efined(NO_TLS1)
4f20: 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c && defined(NO_TL
4f30: 53 31 5f 31 29 20 26 26 20 64 65 66 69 6e 65 64 S1_1) && defined
4f40: 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 (NO_TLS1_2) && !
4f50: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 defined(NO_SSL3)
4f60: 0a 20 20 20 20 73 73 6c 33 20 3d 20 31 3b 0a 23 . ssl3 = 1;.#
4f70: 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 endif.#if define
4f80: 64 28 4e 4f 5f 54 4c 53 31 29 0a 20 20 20 20 74 d(NO_TLS1). t
4f90: 6c 73 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a ls1 = 0;.#endif.
4fa0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
4fb0: 4c 53 31 5f 31 29 0a 20 20 20 20 74 6c 73 31 5f LS1_1). tls1_
4fc0: 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 23 69 1 = 0;.#endif.#i
4fd0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
4fe0: 31 5f 32 29 0a 20 20 20 20 74 6c 73 31 5f 32 20 1_2). tls1_2
4ff0: 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 = 0;.#endif.#if
5000: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
5010: 33 29 0a 20 20 20 20 74 6c 73 31 5f 33 20 3d 20 3). tls1_3 =
5020: 30 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 0;.#endif.. i
5030: 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 09 f (objc < 2) {..
5040: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
5050: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
5060: 2c 20 22 63 68 61 6e 6e 65 6c 20 3f 6f 70 74 69 , "channel ?opti
5070: 6f 6e 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ons?");..return
5080: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5090: 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c .. chan = Tcl
50a0: 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 _GetChannel(inte
50b0: 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e rp, Tcl_GetStrin
50c0: 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 4e 55 4c 4c g(objv[1]), NULL
50d0: 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20 );. if (chan
50e0: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
50f0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
5100: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5110: 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a }.. /*. *
5120: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
5130: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
5140: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 20 20 most channel.
5150: 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 */. chan =
5160: 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 Tcl_GetTopChanne
5170: 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 66 6f l(chan);.. fo
5180: 72 20 28 69 64 78 20 3d 20 32 3b 20 69 64 78 20 r (idx = 2; idx
5190: 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 20 7b < objc; idx++) {
51a0: 0a 09 63 68 61 72 20 2a 6f 70 74 20 3d 20 54 63 ..char *opt = Tc
51b0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
51c0: 5b 69 64 78 5d 29 3b 0a 0a 09 69 66 20 28 6f 70 [idx]);...if (op
51d0: 74 5b 30 5d 20 21 3d 20 27 2d 27 29 0a 09 20 20 t[0] != '-')..
51e0: 20 20 62 72 65 61 6b 3b 0a 0a 09 4f 50 54 53 54 break;...OPTST
51f0: 52 28 20 22 2d 63 61 64 69 72 22 2c 20 43 41 64 R( "-cadir", CAd
5200: 69 72 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d ir);..OPTSTR( "-
5210: 63 61 66 69 6c 65 22 2c 20 43 41 66 69 6c 65 29 cafile", CAfile)
5220: 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 65 72 ;..OPTSTR( "-cer
5230: 74 66 69 6c 65 22 2c 20 63 65 72 74 66 69 6c 65 tfile", certfile
5240: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 69 );..OPTSTR( "-ci
5250: 70 68 65 72 22 2c 20 63 69 70 68 65 72 73 29 3b pher", ciphers);
5260: 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 63 6f 6d 6d ..OPTOBJ( "-comm
5270: 61 6e 64 22 2c 20 73 63 72 69 70 74 29 3b 0a 09 and", script);..
5280: 4f 50 54 53 54 52 28 20 22 2d 64 68 70 61 72 61 OPTSTR( "-dhpara
5290: 6d 73 22 2c 20 44 48 70 61 72 61 6d 73 29 3b 0a ms", DHparams);.
52a0: 09 4f 50 54 53 54 52 28 20 22 2d 6b 65 79 66 69 .OPTSTR( "-keyfi
52b0: 6c 65 22 2c 20 6b 65 79 66 69 6c 65 29 3b 0a 09 le", keyfile);..
52c0: 4f 50 54 53 54 52 28 20 22 2d 6d 6f 64 65 6c 22 OPTSTR( "-model"
52d0: 2c 20 6d 6f 64 65 6c 29 3b 0a 09 4f 50 54 4f 42 , model);..OPTOB
52e0: 4a 28 20 22 2d 70 61 73 73 77 6f 72 64 22 2c 20 J( "-password",
52f0: 70 61 73 73 77 6f 72 64 29 3b 0a 09 4f 50 54 42 password);..OPTB
5300: 4f 4f 4c 28 20 22 2d 72 65 71 75 69 72 65 22 2c OOL( "-require",
5310: 20 72 65 71 75 69 72 65 29 3b 0a 09 4f 50 54 42 require);..OPTB
5320: 4f 4f 4c 28 20 22 2d 72 65 71 75 65 73 74 22 2c OOL( "-request",
5330: 20 72 65 71 75 65 73 74 29 3b 0a 09 4f 50 54 42 request);..OPTB
5340: 4f 4f 4c 28 20 22 2d 73 65 72 76 65 72 22 2c 20 OOL( "-server",
5350: 73 65 72 76 65 72 29 3b 0a 23 69 66 6e 64 65 66 server);.#ifndef
5360: 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 OPENSSL_NO_TLSE
5370: 58 54 0a 20 20 20 20 20 20 20 20 4f 50 54 53 54 XT. OPTST
5380: 52 28 20 22 2d 73 65 72 76 65 72 6e 61 6d 65 22 R( "-servername"
5390: 2c 20 73 65 72 76 65 72 6e 61 6d 65 29 3b 0a 23 , servername);.#
53a0: 65 6e 64 69 66 0a 0a 09 4f 50 54 42 4f 4f 4c 28 endif...OPTBOOL(
53b0: 20 22 2d 73 73 6c 32 22 2c 20 73 73 6c 32 29 3b "-ssl2", ssl2);
53c0: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 6c ..OPTBOOL( "-ssl
53d0: 33 22 2c 20 73 73 6c 33 29 3b 0a 09 4f 50 54 42 3", ssl3);..OPTB
53e0: 4f 4f 4c 28 20 22 2d 74 6c 73 31 22 2c 20 74 6c OOL( "-tls1", tl
53f0: 73 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 s1);..OPTBOOL( "
5400: 2d 74 6c 73 31 2e 31 22 2c 20 74 6c 73 31 5f 31 -tls1.1", tls1_1
5410: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 );..OPTBOOL( "-t
5420: 6c 73 31 2e 32 22 2c 20 74 6c 73 31 5f 32 29 3b ls1.2", tls1_2);
5430: 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 ..OPTBOOL( "-tls
5440: 31 2e 33 22 2c 20 74 6c 73 31 5f 33 29 0a 09 4f 1.3", tls1_3)..O
5450: 50 54 42 59 54 45 28 22 2d 63 65 72 74 22 2c 20 PTBYTE("-cert",
5460: 63 65 72 74 2c 20 63 65 72 74 5f 6c 65 6e 29 3b cert, cert_len);
5470: 0a 09 4f 50 54 42 59 54 45 28 22 2d 6b 65 79 22 ..OPTBYTE("-key"
5480: 2c 20 6b 65 79 2c 20 6b 65 79 5f 6c 65 6e 29 3b , key, key_len);
5490: 0a 0a 09 4f 50 54 42 41 44 28 20 22 6f 70 74 69 ...OPTBAD( "opti
54a0: 6f 6e 22 2c 20 22 2d 63 61 64 69 72 2c 20 2d 63 on", "-cadir, -c
54b0: 61 66 69 6c 65 2c 20 2d 63 65 72 74 2c 20 2d 63 afile, -cert, -c
54c0: 65 72 74 66 69 6c 65 2c 20 2d 63 69 70 68 65 72 ertfile, -cipher
54d0: 2c 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 64 68 70 , -command, -dhp
54e0: 61 72 61 6d 73 2c 20 2d 6b 65 79 2c 20 2d 6b 65 arams, -key, -ke
54f0: 79 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c 20 2d yfile, -model, -
5500: 70 61 73 73 77 6f 72 64 2c 20 2d 72 65 71 75 69 password, -requi
5510: 72 65 2c 20 2d 72 65 71 75 65 73 74 2c 20 2d 73 re, -request, -s
5520: 65 72 76 65 72 2c 20 2d 73 65 72 76 65 72 6e 61 erver, -serverna
5530: 6d 65 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 6c 33 me, -ssl2, -ssl3
5540: 2c 20 2d 74 6c 73 31 2c 20 2d 74 6c 73 31 2e 31 , -tls1, -tls1.1
5550: 2c 20 2d 74 6c 73 31 2e 32 2c 20 6f 72 20 74 6c , -tls1.2, or tl
5560: 73 31 2e 33 22 29 3b 0a 0a 09 72 65 74 75 72 6e s1.3");...return
5570: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5580: 7d 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73 }. if (reques
5590: 74 29 09 20 20 20 20 76 65 72 69 66 79 20 7c 3d t). verify |=
55a0: 20 53 53 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45 SSL_VERIFY_CLIE
55b0: 4e 54 5f 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45 NT_ONCE | SSL_VE
55c0: 52 49 46 59 5f 50 45 45 52 3b 0a 20 20 20 20 69 RIFY_PEER;. i
55d0: 66 20 28 72 65 71 75 65 73 74 20 26 26 20 72 65 f (request && re
55e0: 71 75 69 72 65 29 20 76 65 72 69 66 79 20 7c 3d quire) verify |=
55f0: 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c SSL_VERIFY_FAIL
5600: 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54 _IF_NO_PEER_CERT
5610: 3b 0a 20 20 20 20 69 66 20 28 76 65 72 69 66 79 ;. if (verify
5620: 20 3d 3d 20 30 29 09 76 65 72 69 66 79 20 3d 20 == 0).verify =
5630: 53 53 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b SSL_VERIFY_NONE;
5640: 0a 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 .. proto |= (
5650: 73 73 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f ssl2 ? TLS_PROTO
5660: 5f 53 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20 _SSL2 : 0);.
5670: 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f proto |= (ssl3 ?
5680: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 TLS_PROTO_SSL3
5690: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20 : 0);. proto
56a0: 7c 3d 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50 |= (tls1 ? TLS_P
56b0: 52 4f 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a ROTO_TLS1 : 0);.
56c0: 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c proto |= (tl
56d0: 73 31 5f 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f s1_1 ? TLS_PROTO
56e0: 5f 54 4c 53 31 5f 31 20 3a 20 30 29 3b 0a 20 20 _TLS1_1 : 0);.
56f0: 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 proto |= (tls1
5700: 5f 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 _2 ? TLS_PROTO_T
5710: 4c 53 31 5f 32 20 3a 20 30 29 3b 0a 20 20 20 20 LS1_2 : 0);.
5720: 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 33 proto |= (tls1_3
5730: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 ? TLS_PROTO_TLS
5740: 31 5f 33 20 3a 20 30 29 3b 0a 0a 20 20 20 20 2f 1_3 : 0);.. /
5750: 2a 20 72 65 73 65 74 20 74 6f 20 4e 55 4c 4c 20 * reset to NULL
5760: 69 66 20 62 6c 61 6e 6b 20 73 74 72 69 6e 67 20 if blank string
5770: 70 72 6f 76 69 64 65 64 20 2a 2f 0a 20 20 20 20 provided */.
5780: 69 66 20 28 63 65 72 74 20 26 26 20 21 2a 63 65 if (cert && !*ce
5790: 72 74 29 09 09 20 20 20 20 20 20 20 20 63 65 72 rt).. cer
57a0: 74 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c t. = NULL
57b0: 3b 0a 20 20 20 20 69 66 20 28 6b 65 79 20 26 26 ;. if (key &&
57c0: 20 21 2a 6b 65 79 29 09 09 20 20 20 20 20 20 20 !*key)..
57d0: 20 6b 65 79 09 20 20 20 20 20 20 20 20 3d 20 4e key. = N
57e0: 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 63 65 72 ULL;. if (cer
57f0: 74 66 69 6c 65 20 26 26 20 21 2a 63 65 72 74 66 tfile && !*certf
5800: 69 6c 65 29 20 20 20 20 20 20 20 20 20 63 65 72 ile) cer
5810: 74 66 69 6c 65 09 3d 20 4e 55 4c 4c 3b 0a 20 20 tfile.= NULL;.
5820: 20 20 69 66 20 28 6b 65 79 66 69 6c 65 20 26 26 if (keyfile &&
5830: 20 21 2a 6b 65 79 66 69 6c 65 29 09 09 6b 65 79 !*keyfile)..key
5840: 66 69 6c 65 09 20 20 20 20 20 20 20 20 3d 20 4e file. = N
5850: 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 63 69 70 ULL;. if (cip
5860: 68 65 72 73 20 26 26 20 21 2a 63 69 70 68 65 72 hers && !*cipher
5870: 73 29 09 20 20 20 20 20 20 20 20 63 69 70 68 65 s). ciphe
5880: 72 73 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c rs. = NUL
5890: 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 66 69 6c L;. if (CAfil
58a0: 65 20 26 26 20 21 2a 43 41 66 69 6c 65 29 09 20 e && !*CAfile).
58b0: 20 20 20 20 20 20 20 43 41 66 69 6c 65 09 20 20 CAfile.
58c0: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 = NULL;.
58d0: 20 20 69 66 20 28 43 41 64 69 72 20 26 26 20 21 if (CAdir && !
58e0: 2a 43 41 64 69 72 29 09 20 20 20 20 20 20 20 20 *CAdir).
58f0: 43 41 64 69 72 09 20 20 20 20 20 20 20 20 3d 20 CAdir. =
5900: 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 44 48 NULL;. if (DH
5910: 70 61 72 61 6d 73 20 26 26 20 21 2a 44 48 70 61 params && !*DHpa
5920: 72 61 6d 73 29 09 20 20 20 20 20 20 20 20 44 48 rams). DH
5930: 70 61 72 61 6d 73 20 20 20 20 20 20 20 20 3d 20 params =
5940: 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f 2a 20 6e 65 NULL;.. /* ne
5950: 77 20 53 53 4c 20 73 74 61 74 65 20 2a 2f 0a 20 w SSL state */.
5960: 20 20 20 73 74 61 74 65 50 74 72 09 09 3d 20 28 statePtr..= (
5970: 53 74 61 74 65 20 2a 29 20 63 6b 61 6c 6c 6f 63 State *) ckalloc
5980: 28 28 75 6e 73 69 67 6e 65 64 29 20 73 69 7a 65 ((unsigned) size
5990: 6f 66 28 53 74 61 74 65 29 29 3b 0a 20 20 20 20 of(State));.
59a0: 6d 65 6d 73 65 74 28 73 74 61 74 65 50 74 72 2c memset(statePtr,
59b0: 20 30 2c 20 73 69 7a 65 6f 66 28 53 74 61 74 65 0, sizeof(State
59c0: 29 29 3b 0a 0a 20 20 20 20 73 74 61 74 65 50 74 ));.. statePt
59d0: 72 2d 3e 66 6c 61 67 73 09 3d 20 66 6c 61 67 73 r->flags.= flags
59e0: 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e ;. statePtr->
59f0: 69 6e 74 65 72 70 09 3d 20 69 6e 74 65 72 70 3b interp.= interp;
5a00: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 76 . statePtr->v
5a10: 66 6c 61 67 73 09 3d 20 76 65 72 69 66 79 3b 0a flags.= verify;.
5a20: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 statePtr->er
5a30: 72 09 3d 20 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 r.= "";.. /*
5a40: 61 6c 6c 6f 63 61 74 65 20 73 63 72 69 70 74 20 allocate script
5a50: 2a 2f 0a 20 20 20 20 69 66 20 28 73 63 72 69 70 */. if (scrip
5a60: 74 29 20 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c t) {..(void) Tcl
5a70: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
5a80: 6a 28 73 63 72 69 70 74 2c 20 26 6c 65 6e 29 3b j(script, &len);
5a90: 0a 09 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 ..if (len) {..
5aa0: 20 20 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c statePtr->call
5ab0: 62 61 63 6b 20 3d 20 73 63 72 69 70 74 3b 0a 09 back = script;..
5ac0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 Tcl_IncrRefC
5ad0: 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 63 ount(statePtr->c
5ae0: 61 6c 6c 62 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 allback);..}.
5af0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 }.. /* alloc
5b00: 61 74 65 20 70 61 73 73 77 6f 72 64 20 2a 2f 0a ate password */.
5b10: 20 20 20 20 69 66 20 28 70 61 73 73 77 6f 72 64 if (password
5b20: 29 20 7b 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f ) {..(void) Tcl_
5b30: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
5b40: 28 70 61 73 73 77 6f 72 64 2c 20 26 6c 65 6e 29 (password, &len)
5b50: 3b 0a 09 69 66 20 28 6c 65 6e 29 20 7b 0a 09 20 ;..if (len) {..
5b60: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 61 73 statePtr->pas
5b70: 73 77 6f 72 64 20 3d 20 70 61 73 73 77 6f 72 64 sword = password
5b80: 3b 0a 09 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 ;.. Tcl_IncrR
5b90: 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 efCount(statePtr
5ba0: 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 7d 0a ->password);..}.
5bb0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 6d }.. if (m
5bc0: 6f 64 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a odel != NULL) {.
5bd0: 09 69 6e 74 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 .int mode;../* G
5be0: 65 74 20 74 68 65 20 22 6d 6f 64 65 6c 22 20 63 et the "model" c
5bf0: 6f 6e 74 65 78 74 20 2a 2f 0a 09 63 68 61 6e 20 ontext */..chan
5c00: 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c = Tcl_GetChannel
5c10: 28 69 6e 74 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 (interp, model,
5c20: 26 6d 6f 64 65 29 3b 0a 09 69 66 20 28 63 68 61 &mode);..if (cha
5c30: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
5c40: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 l) NULL) {..
5c50: 54 6c 73 5f 46 72 65 65 28 28 76 6f 69 64 20 2a Tls_Free((void *
5c60: 29 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 )statePtr);..
5c70: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
5c80: 52 3b 0a 09 7d 0a 0a 20 20 20 20 20 20 20 20 2f R;..}.. /
5c90: 2a 0a 20 20 20 20 20 20 20 20 20 2a 20 4d 61 6b *. * Mak
5ca0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
5cb0: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
5cc0: 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 20 20 channel.
5cd0: 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 63 68 61 */. cha
5ce0: 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 n = Tcl_GetTopCh
5cf0: 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 09 69 66 annel(chan);..if
5d00: 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c (Tcl_GetChannel
5d10: 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c Type(chan) != Tl
5d20: 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 s_ChannelType())
5d30: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 {.. Tcl_Appe
5d40: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
5d50: 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 "bad channel \"
5d60: 22 2c 0a 09 09 20 20 20 20 54 63 6c 5f 47 65 74 ",... Tcl_Get
5d70: 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e ChannelName(chan
5d80: 29 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c ), "\": not a TL
5d90: 53 20 63 68 61 6e 6e 65 6c 22 2c 20 28 63 68 61 S channel", (cha
5da0: 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 r *)NULL);..
5db0: 54 6c 73 5f 46 72 65 65 28 28 76 6f 69 64 20 2a Tls_Free((void *
5dc0: 29 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 )statePtr);..
5dd0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
5de0: 52 3b 0a 09 7d 0a 09 63 74 78 20 3d 20 28 28 53 R;..}..ctx = ((S
5df0: 74 61 74 65 20 2a 29 54 63 6c 5f 47 65 74 43 68 tate *)Tcl_GetCh
5e00: 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 annelInstanceDat
5e10: 61 28 63 68 61 6e 29 29 2d 3e 63 74 78 3b 0a 20 a(chan))->ctx;.
5e20: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69 66 20 } else {..if
5e30: 28 28 63 74 78 20 3d 20 43 54 58 5f 49 6e 69 74 ((ctx = CTX_Init
5e40: 28 73 74 61 74 65 50 74 72 2c 20 73 65 72 76 65 (statePtr, serve
5e50: 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 66 69 6c r, proto, keyfil
5e60: 65 2c 20 63 65 72 74 66 69 6c 65 2c 20 6b 65 79 e, certfile, key
5e70: 2c 0a 20 20 20 20 63 65 72 74 2c 20 6b 65 79 5f ,. cert, key_
5e80: 6c 65 6e 2c 20 63 65 72 74 5f 6c 65 6e 2c 20 43 len, cert_len, C
5e90: 41 64 69 72 2c 20 43 41 66 69 6c 65 2c 20 63 69 Adir, CAfile, ci
5ea0: 70 68 65 72 73 2c 0a 20 20 20 20 44 48 70 61 72 phers,. DHpar
5eb0: 61 6d 73 29 29 20 3d 3d 20 28 53 53 4c 5f 43 54 ams)) == (SSL_CT
5ec0: 58 2a 29 30 29 20 7b 0a 09 20 20 20 20 54 6c 73 X*)0) {.. Tls
5ed0: 5f 46 72 65 65 28 28 76 6f 69 64 20 2a 29 73 74 _Free((void *)st
5ee0: 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 atePtr);.. re
5ef0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5f00: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 .}. }.. st
5f10: 61 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 63 74 atePtr->ctx = ct
5f20: 78 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 x;.. /*.
5f30: 2a 20 57 65 20 6e 65 65 64 20 74 6f 20 6d 61 6b * We need to mak
5f40: 65 20 73 75 72 65 20 74 68 61 74 20 74 68 65 20 e sure that the
5f50: 63 68 61 6e 6e 65 6c 20 77 6f 72 6b 73 20 69 6e channel works in
5f60: 20 62 69 6e 61 72 79 20 28 66 6f 72 20 74 68 65 binary (for the
5f70: 0a 20 20 20 20 20 2a 20 65 6e 63 72 79 70 74 69 . * encrypti
5f80: 6f 6e 20 6e 6f 74 20 74 6f 20 67 65 74 20 67 6f on not to get go
5f90: 6f 66 65 64 20 75 70 29 2e 0a 20 20 20 20 20 2a ofed up).. *
5fa0: 20 57 65 20 6f 6e 6c 79 20 77 61 6e 74 20 74 6f We only want to
5fb0: 20 61 64 6a 75 73 74 20 74 68 65 20 62 75 66 66 adjust the buff
5fc0: 65 72 69 6e 67 20 69 6e 20 70 72 65 2d 76 32 20 ering in pre-v2
5fd0: 63 68 61 6e 6e 65 6c 73 2c 20 77 68 65 72 65 0a channels, where.
5fe0: 20 20 20 20 20 2a 20 65 61 63 68 20 63 68 61 6e * each chan
5ff0: 6e 65 6c 20 69 6e 20 74 68 65 20 73 74 61 63 6b nel in the stack
6000: 20 6d 61 69 6e 74 61 69 6e 65 64 20 69 74 73 20 maintained its
6010: 6f 77 6e 20 62 75 66 66 65 72 73 2e 0a 20 20 20 own buffers..
6020: 20 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 44 53 74 */. Tcl_DSt
6030: 72 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 ringInit(&upperC
6040: 68 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f hannelTranslatio
6050: 6e 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 n);. Tcl_DStr
6060: 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 68 ingInit(&upperCh
6070: 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 29 3b 0a annelBlocking);.
6080: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 Tcl_DStringI
6090: 6e 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 nit(&upperChanne
60a0: 6c 45 4f 46 43 68 61 72 29 3b 0a 20 20 20 20 54 lEOFChar);. T
60b0: 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 cl_DStringInit(&
60c0: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f upperChannelEnco
60d0: 64 69 6e 67 29 3b 0a 20 20 20 20 54 63 6c 5f 47 ding);. Tcl_G
60e0: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 etChannelOption(
60f0: 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d interp, chan, "-
6100: 65 6f 66 63 68 61 72 22 2c 20 26 75 70 70 65 72 eofchar", &upper
6110: 43 68 61 6e 6e 65 6c 45 4f 46 43 68 61 72 29 3b ChannelEOFChar);
6120: 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e . Tcl_GetChan
6130: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
6140: 2c 20 63 68 61 6e 2c 20 22 2d 65 6e 63 6f 64 69 , chan, "-encodi
6150: 6e 67 22 2c 20 26 75 70 70 65 72 43 68 61 6e 6e ng", &upperChann
6160: 65 6c 45 6e 63 6f 64 69 6e 67 29 3b 0a 20 20 20 elEncoding);.
6170: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f Tcl_GetChannelO
6180: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 ption(interp, ch
6190: 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f an, "-translatio
61a0: 6e 22 2c 20 26 75 70 70 65 72 43 68 61 6e 6e 65 n", &upperChanne
61b0: 6c 54 72 61 6e 73 6c 61 74 69 6f 6e 29 3b 0a 20 lTranslation);.
61c0: 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 Tcl_GetChanne
61d0: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 lOption(interp,
61e0: 63 68 61 6e 2c 20 22 2d 62 6c 6f 63 6b 69 6e 67 chan, "-blocking
61f0: 22 2c 20 26 75 70 70 65 72 43 68 61 6e 6e 65 6c ", &upperChannel
6200: 42 6c 6f 63 6b 69 6e 67 29 3b 0a 20 20 20 20 54 Blocking);. T
6210: 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 cl_SetChannelOpt
6220: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e ion(interp, chan
6230: 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 , "-translation"
6240: 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 20 , "binary");.
6250: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f Tcl_SetChannelO
6260: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 ption(interp, ch
6270: 61 6e 2c 20 22 2d 62 6c 6f 63 6b 69 6e 67 22 2c an, "-blocking",
6280: 20 22 74 72 75 65 22 29 3b 0a 20 20 20 20 64 70 "true");. dp
6290: 72 69 6e 74 66 28 22 43 6f 6e 73 75 6d 69 6e 67 rintf("Consuming
62a0: 20 54 63 6c 20 63 68 61 6e 6e 65 6c 20 25 73 22 Tcl channel %s"
62b0: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c , Tcl_GetChannel
62c0: 4e 61 6d 65 28 63 68 61 6e 29 29 3b 0a 20 20 20 Name(chan));.
62d0: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 statePtr->self
62e0: 3d 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e = Tcl_StackChann
62f0: 65 6c 28 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 el(interp, Tls_C
6300: 68 61 6e 6e 65 6c 54 79 70 65 28 29 2c 20 73 74 hannelType(), st
6310: 61 74 65 50 74 72 2c 20 28 54 43 4c 5f 52 45 41 atePtr, (TCL_REA
6320: 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49 54 DABLE | TCL_WRIT
6330: 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 20 20 ABLE), chan);.
6340: 20 20 64 70 72 69 6e 74 66 28 22 43 72 65 61 74 dprintf("Creat
6350: 65 64 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65 64 ed channel named
6360: 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 %s", Tcl_GetCha
6370: 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 nnelName(statePt
6380: 72 2d 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20 69 r->self));. i
6390: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c f (statePtr->sel
63a0: 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 f == (Tcl_Channe
63b0: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 l) NULL) {../*..
63c0: 20 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 63 6c * No use of Tcl
63d0: 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 _EventuallyFree
63e0: 62 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 73 69 because no possi
63f0: 62 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 76 65 ble Tcl_Preserve
6400: 2e 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 65 65 ... */..Tls_Free
6410: 28 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 ((void *)statePt
6420: 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f r);..return TCL_
6430: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
6440: 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c Tcl_SetChannel
6450: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 Option(interp, s
6460: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 tatePtr->self, "
6470: 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 54 -translation", T
6480: 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 cl_DStringValue(
6490: 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 &upperChannelTra
64a0: 6e 73 6c 61 74 69 6f 6e 29 29 3b 0a 20 20 20 20 nslation));.
64b0: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_SetChannelOp
64c0: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 tion(interp, sta
64d0: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 65 tePtr->self, "-e
64e0: 6e 63 6f 64 69 6e 67 22 2c 20 54 63 6c 5f 44 53 ncoding", Tcl_DS
64f0: 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70 70 65 tringValue(&uppe
6500: 72 43 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 rChannelEncoding
6510: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 ));. Tcl_SetC
6520: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
6530: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 erp, statePtr->s
6540: 65 6c 66 2c 20 22 2d 65 6f 66 63 68 61 72 22 2c elf, "-eofchar",
6550: 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 Tcl_DStringValu
6560: 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 e(&upperChannelE
6570: 4f 46 43 68 61 72 29 29 3b 0a 20 20 20 20 54 63 OFChar));. Tc
6580: 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 l_SetChannelOpti
6590: 6f 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 on(interp, state
65a0: 50 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 62 6c 6f Ptr->self, "-blo
65b0: 63 6b 69 6e 67 22 2c 20 54 63 6c 5f 44 53 74 72 cking", Tcl_DStr
65c0: 69 6e 67 56 61 6c 75 65 28 26 75 70 70 65 72 43 ingValue(&upperC
65d0: 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 29 29 hannelBlocking))
65e0: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a ;.. /*. *
65f0: 20 53 53 4c 20 49 6e 69 74 69 61 6c 69 7a 61 74 SSL Initializat
6600: 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 ion. */..
6610: 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d statePtr->ssl =
6620: 20 53 53 4c 5f 6e 65 77 28 73 74 61 74 65 50 74 SSL_new(statePt
6630: 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 69 66 20 r->ctx);. if
6640: 28 21 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 (!statePtr->ssl)
6650: 20 7b 0a 09 2f 2a 20 53 53 4c 20 6c 69 62 72 61 {../* SSL libra
6660: 72 79 20 65 72 72 6f 72 20 2a 2f 0a 09 54 63 6c ry error */..Tcl
6670: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
6680: 74 65 72 70 2c 20 22 63 6f 75 6c 64 6e 27 74 20 terp, "couldn't
6690: 63 6f 6e 73 74 72 75 63 74 20 73 73 6c 20 73 65 construct ssl se
66a0: 73 73 69 6f 6e 3a 20 22 2c 20 52 45 41 53 4f 4e ssion: ", REASON
66b0: 28 29 2c 0a 09 09 28 63 68 61 72 20 2a 29 20 4e (),...(char *) N
66c0: 55 4c 4c 29 3b 0a 09 54 6c 73 5f 46 72 65 65 28 ULL);..Tls_Free(
66d0: 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 (void *)statePtr
66e0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
66f0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 RROR;. }..#if
6700: 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ndef OPENSSL_NO_
6710: 54 4c 53 45 58 54 0a 20 20 20 20 69 66 20 28 73 TLSEXT. if (s
6720: 65 72 76 65 72 6e 61 6d 65 29 20 7b 0a 20 20 20 ervername) {.
6730: 20 20 20 20 20 69 66 20 28 21 53 53 4c 5f 73 65 if (!SSL_se
6740: 74 5f 74 6c 73 65 78 74 5f 68 6f 73 74 5f 6e 61 t_tlsext_host_na
6750: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c me(statePtr->ssl
6760: 2c 20 73 65 72 76 65 72 6e 61 6d 65 29 20 26 26 , servername) &&
6770: 20 72 65 71 75 69 72 65 29 20 7b 0a 20 20 20 20 require) {.
6780: 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 Tcl_Appe
6790: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
67a0: 20 22 73 65 74 74 69 6e 67 20 54 4c 53 20 68 6f "setting TLS ho
67b0: 73 74 20 6e 61 6d 65 20 65 78 74 65 6e 73 69 6f st name extensio
67c0: 6e 20 66 61 69 6c 65 64 22 2c 0a 20 20 20 20 20 n failed",.
67d0: 20 20 20 20 20 20 20 20 20 20 20 28 63 68 61 72 (char
67e0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 *) NULL);.
67f0: 20 20 20 20 20 20 20 54 6c 73 5f 46 72 65 65 28 Tls_Free(
6800: 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 (void *)statePtr
6810: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 );. r
6820: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6830: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d . }. }
6840: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 0a .#endif.. /*.
6850: 20 20 20 20 20 2a 20 53 53 4c 20 43 61 6c 6c 62 * SSL Callb
6860: 61 63 6b 73 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 acks. */..
6870: 20 20 53 53 4c 5f 73 65 74 5f 61 70 70 5f 64 61 SSL_set_app_da
6880: 74 61 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c ta(statePtr->ssl
6890: 2c 20 28 76 6f 69 64 20 2a 29 73 74 61 74 65 50 , (void *)stateP
68a0: 74 72 29 3b 09 2f 2a 20 70 6f 69 6e 74 20 62 61 tr);./* point ba
68b0: 63 6b 20 74 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 ck to us */..
68c0: 20 53 53 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 SSL_set_verify(
68d0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 statePtr->ssl, v
68e0: 65 72 69 66 79 2c 20 56 65 72 69 66 79 43 61 6c erify, VerifyCal
68f0: 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 53 53 4c lback);.. SSL
6900: 5f 43 54 58 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 _CTX_set_info_ca
6910: 6c 6c 62 61 63 6b 28 73 74 61 74 65 50 74 72 2d llback(statePtr-
6920: 3e 63 74 78 2c 20 49 6e 66 6f 43 61 6c 6c 62 61 >ctx, InfoCallba
6930: 63 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 ck);.. /* Cre
6940: 61 74 65 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 ate Tcl_Channel
6950: 42 49 4f 20 48 61 6e 64 6c 65 72 20 2a 2f 0a 20 BIO Handler */.
6960: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 statePtr->p_b
6970: 69 6f 09 3d 20 42 49 4f 5f 6e 65 77 5f 74 63 6c io.= BIO_new_tcl
6980: 28 73 74 61 74 65 50 74 72 2c 20 42 49 4f 5f 4e (statePtr, BIO_N
6990: 4f 43 4c 4f 53 45 29 3b 0a 20 20 20 20 73 74 61 OCLOSE);. sta
69a0: 74 65 50 74 72 2d 3e 62 69 6f 09 3d 20 42 49 4f tePtr->bio.= BIO
69b0: 5f 6e 65 77 28 42 49 4f 5f 66 5f 73 73 6c 28 29 _new(BIO_f_ssl()
69c0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 65 72 76 );.. if (serv
69d0: 65 72 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d er) {..statePtr-
69e0: 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 >flags |= TLS_TC
69f0: 4c 5f 53 45 52 56 45 52 3b 0a 09 53 53 4c 5f 73 L_SERVER;..SSL_s
6a00: 65 74 5f 61 63 63 65 70 74 5f 73 74 61 74 65 28 et_accept_state(
6a10: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
6a20: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 53 53 } else {..SS
6a30: 4c 5f 73 65 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 L_set_connect_st
6a40: 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 ate(statePtr->ss
6a50: 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 l);. }. SS
6a60: 4c 5f 73 65 74 5f 62 69 6f 28 73 74 61 74 65 50 L_set_bio(stateP
6a70: 74 72 2d 3e 73 73 6c 2c 20 73 74 61 74 65 50 74 tr->ssl, statePt
6a80: 72 2d 3e 70 5f 62 69 6f 2c 20 73 74 61 74 65 50 r->p_bio, stateP
6a90: 74 72 2d 3e 70 5f 62 69 6f 29 3b 0a 20 20 20 20 tr->p_bio);.
6aa0: 42 49 4f 5f 73 65 74 5f 73 73 6c 28 73 74 61 74 BIO_set_ssl(stat
6ab0: 65 50 74 72 2d 3e 62 69 6f 2c 20 73 74 61 74 65 ePtr->bio, state
6ac0: 50 74 72 2d 3e 73 73 6c 2c 20 42 49 4f 5f 4e 4f Ptr->ssl, BIO_NO
6ad0: 43 4c 4f 53 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a CLOSE);.. /*.
6ae0: 20 20 20 20 20 2a 20 45 6e 64 20 6f 66 20 53 53 * End of SS
6af0: 4c 20 49 6e 69 74 0a 20 20 20 20 20 2a 2f 0a 20 L Init. */.
6b00: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 dprintf("Retu
6b10: 72 6e 69 6e 67 20 25 73 22 2c 20 54 63 6c 5f 47 rning %s", Tcl_G
6b20: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 etChannelName(st
6b30: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b 0a atePtr->self));.
6b40: 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c Tcl_SetResul
6b50: 74 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 t(interp, (char
6b60: 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 *) Tcl_GetChanne
6b70: 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e lName(statePtr->
6b80: 73 65 6c 66 29 2c 0a 09 20 20 20 20 54 43 4c 5f self),.. TCL_
6b90: 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 VOLATILE);. r
6ba0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
6bb0: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
6c00: 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 UnimportObjCmd
6c10: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
6c20: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
6c30: 65 64 20 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 ed to remove the
6c40: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
6c50: 20 66 69 6c 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 filter.. *. * R
6c60: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
6c70: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
6c80: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
6c90: 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 ects:. *.May mod
6ca0: 69 66 79 20 74 68 65 20 62 65 68 61 76 69 6f 72 ify the behavior
6cb0: 20 6f 66 20 61 6e 20 49 4f 20 63 68 61 6e 6e 65 of an IO channe
6cc0: 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d l.. *. *--------
6cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
6d10: 0a 73 74 61 74 69 63 20 69 6e 74 0a 55 6e 69 6d .static int.Unim
6d20: 70 6f 72 74 4f 62 6a 43 6d 64 28 0a 20 20 20 20 portObjCmd(.
6d30: 54 43 4c 5f 55 4e 55 53 45 44 28 76 6f 69 64 20 TCL_UNUSED(void
6d40: 2a 29 2c 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 *),. Tcl_Inte
6d50: 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 20 20 rp *interp,.
6d60: 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 20 20 54 63 int objc,. Tc
6d70: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
6d80: 76 5b 5d 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 v[]).{. Tcl_C
6d90: 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a hannel chan;../*
6da0: 20 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 The channel to
6db0: 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a set a mode on. *
6dc0: 2f 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 /.. dprintf("
6dd0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 Called");.. i
6de0: 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a f (objc != 2) {.
6df0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
6e00: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
6e10: 76 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 v, "channel");..
6e20: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6e30: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 ;. }.. cha
6e40: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
6e50: 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 el(interp, Tcl_G
6e60: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d etString(objv[1]
6e70: 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 ), NULL);. if
6e80: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
6e90: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
6ea0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
6eb0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
6ec0: 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 . * Make sur
6ed0: 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 e to operate on
6ee0: 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e the topmost chan
6ef0: 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 nel. */.
6f00: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
6f10: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
6f20: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
6f30: 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e ChannelType(chan
6f40: 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c ) != Tls_Channel
6f50: 54 79 70 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 Type()) {..Tcl_A
6f60: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6f70: 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c rp, "bad channel
6f80: 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 \"", Tcl_GetCha
6f90: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a nnelName(chan),.
6fa0: 09 09 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 .."\": not a TLS
6fb0: 20 63 68 61 6e 6e 65 6c 22 2c 20 28 63 68 61 72 channel", (char
6fc0: 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *)NULL);..retur
6fd0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
6fe0: 20 7d 0a 0a 20 20 20 20 69 66 20 28 54 63 6c 5f }.. if (Tcl_
6ff0: 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 UnstackChannel(i
7000: 6e 74 65 72 70 2c 20 63 68 61 6e 29 20 3d 3d 20 nterp, chan) ==
7010: 54 43 4c 5f 45 52 52 4f 52 29 20 7b 0a 09 72 65 TCL_ERROR) {..re
7020: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7030: 20 20 20 20 7d 0a 0a 20 20 20 20 72 65 74 75 72 }.. retur
7040: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a n TCL_OK;.}.../*
7050: 0a 20 2a 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 2d 2d 2d 2d 2d ----------------
7090: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 54 58 ------. *. * CTX
70a0: 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 74 72 75 _Init -- constru
70b0: 63 74 20 61 20 53 53 4c 5f 43 54 58 20 69 6e 73 ct a SSL_CTX ins
70c0: 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 65 73 75 tance. *. * Resu
70d0: 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c 69 64 20 lts:. *.A valid
70e0: 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e 63 65 SSL_CTX instance
70f0: 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20 2a 20 or NULL.. *. *
7100: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
7110: 09 63 6f 6e 73 74 72 75 63 74 73 20 53 53 4c 20 .constructs SSL
7120: 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a context (CTX). *
7130: 0a 20 2a 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 2d 2d 2d 2d 2d ----------------
7170: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 ------. */..stat
7180: 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a 43 54 58 ic SSL_CTX *.CTX
7190: 5f 49 6e 69 74 28 0a 20 20 20 20 53 74 61 74 65 _Init(. State
71a0: 20 2a 73 74 61 74 65 50 74 72 2c 0a 20 20 20 20 *statePtr,.
71b0: 54 43 4c 5f 55 4e 55 53 45 44 28 69 6e 74 29 20 TCL_UNUSED(int)
71c0: 2f 2a 20 69 73 53 65 72 76 65 72 20 2a 2f 2c 0a /* isServer */,.
71d0: 20 20 20 20 69 6e 74 20 70 72 6f 74 6f 2c 0a 20 int proto,.
71e0: 20 20 20 63 68 61 72 20 2a 6b 65 79 66 69 6c 65 char *keyfile
71f0: 2c 0a 20 20 20 20 63 68 61 72 20 2a 63 65 72 74 ,. char *cert
7200: 66 69 6c 65 2c 0a 20 20 20 20 75 6e 73 69 67 6e file,. unsign
7210: 65 64 20 63 68 61 72 20 2a 6b 65 79 2c 0a 20 20 ed char *key,.
7220: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
7230: 2a 63 65 72 74 2c 0a 20 20 20 20 69 6e 74 20 6b *cert,. int k
7240: 65 79 5f 6c 65 6e 2c 0a 20 20 20 20 69 6e 74 20 ey_len,. int
7250: 63 65 72 74 5f 6c 65 6e 2c 0a 20 20 20 20 63 68 cert_len,. ch
7260: 61 72 20 2a 43 41 64 69 72 2c 0a 20 20 20 20 63 ar *CAdir,. c
7270: 68 61 72 20 2a 43 41 66 69 6c 65 2c 0a 20 20 20 har *CAfile,.
7280: 20 63 68 61 72 20 2a 63 69 70 68 65 72 73 2c 0a char *ciphers,.
7290: 20 20 20 20 63 68 61 72 20 2a 44 48 70 61 72 61 char *DHpara
72a0: 6d 73 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 49 6e ms).{. Tcl_In
72b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 20 3d 20 73 terp *interp = s
72c0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b tatePtr->interp;
72d0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 . SSL_CTX *ct
72e0: 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 x = NULL;. Tc
72f0: 6c 5f 44 53 74 72 69 6e 67 20 64 73 3b 0a 20 20 l_DString ds;.
7300: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 Tcl_DString ds
7310: 31 3b 0a 20 20 20 20 69 6e 74 20 6f 66 66 20 3d 1;. int off =
7320: 20 30 3b 0a 20 20 20 20 69 6e 74 20 6c 6f 61 64 0;. int load
7330: 5f 70 72 69 76 61 74 65 5f 6b 65 79 3b 0a 20 20 _private_key;.
7340: 20 20 63 6f 6e 73 74 20 53 53 4c 5f 4d 45 54 48 const SSL_METH
7350: 4f 44 20 2a 6d 65 74 68 6f 64 3b 0a 0a 20 20 20 OD *method;..
7360: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
7370: 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 70 72 ");.. if (!pr
7380: 6f 74 6f 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 oto) {..Tcl_Appe
7390: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
73a0: 20 22 6e 6f 20 76 61 6c 69 64 20 70 72 6f 74 6f "no valid proto
73b0: 63 6f 6c 20 73 65 6c 65 63 74 65 64 22 2c 20 28 col selected", (
73c0: 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 char *)NULL);..r
73d0: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 eturn NULL;.
73e0: 7d 0a 0a 20 20 20 20 2f 2a 20 63 72 65 61 74 65 }.. /* create
73f0: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a SSL context */.
7400: 20 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 if (ENABLED(
7410: 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f proto, TLS_PROTO
7420: 5f 53 53 4c 32 29 29 20 7b 0a 09 54 63 6c 5f 41 _SSL2)) {..Tcl_A
7430: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7440: 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f rp, "protocol no
7450: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 t supported", (c
7460: 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 65 har *)NULL);..re
7470: 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d turn NULL;. }
7480: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
7490: 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 SSL3) || defined
74a0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
74b0: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
74c0: 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 NSSL_NO_SSL3_MET
74d0: 48 4f 44 29 0a 20 20 20 20 69 66 20 28 45 4e 41 HOD). if (ENA
74e0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
74f0: 50 52 4f 54 4f 5f 53 53 4c 33 29 29 20 7b 0a 09 PROTO_SSL3)) {..
7500: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
7510: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
7520: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
7530: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
7540: 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a ;..return NULL;.
7550: 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 }.#endif.#if
7560: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
7570: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
7580: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 7c 7c NSSL_NO_TLS1) ||
7590: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
75a0: 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 _NO_TLS1_METHOD)
75b0: 0a 20 20 20 20 69 66 20 28 45 4e 41 42 4c 45 44 . if (ENABLED
75c0: 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 (proto, TLS_PROT
75d0: 4f 5f 54 4c 53 31 29 29 20 7b 0a 09 54 63 6c 5f O_TLS1)) {..Tcl_
75e0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
75f0: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e erp, "protocol n
7600: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 ot supported", (
7610: 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 char *)NULL);..r
7620: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 eturn NULL;.
7630: 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 }.#endif.#if def
7640: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 ined(NO_TLS1_1)
7650: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
7660: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c SL_NO_TLS1_1) ||
7670: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
7680: 5f 4e 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f _NO_TLS1_1_METHO
7690: 44 29 0a 20 20 20 20 69 66 20 28 45 4e 41 42 4c D). if (ENABL
76a0: 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 ED(proto, TLS_PR
76b0: 4f 54 4f 5f 54 4c 53 31 5f 31 29 29 20 7b 0a 09 OTO_TLS1_1)) {..
76c0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
76d0: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 (interp, "protoc
76e0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
76f0: 22 2c 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 ", (char *)NULL)
7700: 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a ;..return NULL;.
7710: 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 }.#endif.#if
7720: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 defined(NO_TLS1
7730: 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f _2) || defined(O
7740: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 PENSSL_NO_TLS1_2
7750: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
7760: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d NSSL_NO_TLS1_2_M
7770: 45 54 48 4f 44 29 0a 20 20 20 20 69 66 20 28 45 ETHOD). if (E
7780: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c NABLED(proto, TL
7790: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29 29 S_PROTO_TLS1_2))
77a0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
77b0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 sult(interp, "pr
77c0: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
77d0: 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 4e rted", (char *)N
77e0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 ULL);..return NU
77f0: 4c 4c 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 LL;. }.#endif
7800: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
7810: 54 4c 53 31 5f 33 29 20 7c 7c 20 64 65 66 69 6e TLS1_3) || defin
7820: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
7830: 53 31 5f 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 S1_3) || defined
7840: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
7850: 5f 33 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 69 _3_METHOD). i
7860: 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f f (ENABLED(proto
7870: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 , TLS_PROTO_TLS1
7880: 5f 33 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 _3)) {..Tcl_Appe
7890: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
78a0: 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 "protocol not s
78b0: 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 upported", (char
78c0: 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *)NULL);..retur
78d0: 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 23 65 n NULL;. }.#e
78e0: 6e 64 69 66 0a 0a 20 20 20 20 73 77 69 74 63 68 ndif.. switch
78f0: 20 28 70 72 6f 74 6f 29 20 7b 0a 23 69 66 20 21 (proto) {.#if !
7900: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 defined(NO_SSL3)
7910: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 && !defined(OPE
7920: 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 26 26 NSSL_NO_SSL3) &&
7930: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
7940: 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 L_NO_SSL3_METHOD
7950: 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 ). case TLS_P
7960: 52 4f 54 4f 5f 53 53 4c 33 3a 0a 09 6d 65 74 68 ROTO_SSL3:..meth
7970: 6f 64 20 3d 20 53 53 4c 76 33 5f 6d 65 74 68 6f od = SSLv3_metho
7980: 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 d ();..break;.#e
7990: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 ndif.#if !define
79a0: 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 d(NO_TLS1) && !d
79b0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
79c0: 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 66 69 O_TLS1) && !defi
79d0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
79e0: 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 LS1_METHOD).
79f0: 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 case TLS_PROTO_T
7a00: 4c 53 31 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 LS1:..method = T
7a10: 4c 53 76 31 5f 6d 65 74 68 6f 64 20 28 29 3b 0a LSv1_method ();.
7a20: 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 .break;.#endif.#
7a30: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 if !defined(NO_T
7a40: 4c 53 31 5f 31 29 20 26 26 20 21 64 65 66 69 6e LS1_1) && !defin
7a50: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
7a60: 53 31 5f 31 29 20 26 26 20 21 64 65 66 69 6e 65 S1_1) && !define
7a70: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
7a80: 31 5f 31 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 1_1_METHOD).
7a90: 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 case TLS_PROTO_T
7aa0: 4c 53 31 5f 31 3a 0a 09 6d 65 74 68 6f 64 20 3d LS1_1:..method =
7ab0: 20 54 4c 53 76 31 5f 31 5f 6d 65 74 68 6f 64 20 TLSv1_1_method
7ac0: 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 ();..break;.#end
7ad0: 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 if.#if !defined(
7ae0: 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 64 NO_TLS1_2) && !d
7af0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
7b00: 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 64 65 O_TLS1_2) && !de
7b10: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
7b20: 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 0a _TLS1_2_METHOD).
7b30: 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f case TLS_PRO
7b40: 54 4f 5f 54 4c 53 31 5f 32 3a 0a 09 6d 65 74 68 TO_TLS1_2:..meth
7b50: 6f 64 20 3d 20 54 4c 53 76 31 5f 32 5f 6d 65 74 od = TLSv1_2_met
7b60: 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b 3b 0a hod ();..break;.
7b70: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
7b80: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 ned(NO_TLS1_3) &
7b90: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
7ba0: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 26 SL_NO_TLS1_3) &&
7bb0: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
7bc0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 5f 4d 45 54 48 L_NO_TLS1_3_METH
7bd0: 4f 44 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 OD). case TLS
7be0: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 3a 0a 20 _PROTO_TLS1_3:.
7bf0: 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 /*.
7c00: 20 20 20 2a 20 54 68 65 20 76 65 72 73 69 6f 6e * The version
7c10: 20 72 61 6e 67 65 20 69 73 20 63 6f 6e 73 74 72 range is constr
7c20: 61 69 6e 65 64 20 62 65 6c 6f 77 2c 0a 20 20 20 ained below,.
7c30: 20 20 20 20 20 20 2a 20 61 66 74 65 72 20 74 68 * after th
7c40: 65 20 63 6f 6e 74 65 78 74 20 69 73 20 63 72 65 e context is cre
7c50: 61 74 65 64 2e 20 20 55 73 65 20 74 68 65 0a 20 ated. Use the.
7c60: 20 20 20 20 20 20 20 20 2a 20 67 65 6e 65 72 69 * generi
7c70: 63 20 6d 65 74 68 6f 64 20 68 65 72 65 2e 0a 20 c method here..
7c80: 20 20 20 20 20 20 20 20 2a 2f 0a 09 6d 65 74 68 */..meth
7c90: 6f 64 20 3d 20 54 4c 53 5f 6d 65 74 68 6f 64 20 od = TLS_method
7ca0: 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 ();..break;.#end
7cb0: 69 66 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a if. default:.
7cc0: 23 69 66 64 65 66 20 48 41 56 45 5f 54 4c 53 5f #ifdef HAVE_TLS_
7cd0: 4d 45 54 48 4f 44 0a 20 20 20 20 20 20 20 20 6d METHOD. m
7ce0: 65 74 68 6f 64 20 3d 20 54 4c 53 5f 6d 65 74 68 ethod = TLS_meth
7cf0: 6f 64 20 28 29 3b 0a 23 65 6c 73 65 0a 20 20 20 od ();.#else.
7d00: 20 20 20 20 20 6d 65 74 68 6f 64 20 3d 20 53 53 method = SS
7d10: 4c 76 32 33 5f 6d 65 74 68 6f 64 20 28 29 3b 0a Lv23_method ();.
7d20: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
7d30: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 26 26 20 ned(NO_SSL3) &&
7d40: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
7d50: 5f 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 65 _NO_SSL3) && !de
7d60: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
7d70: 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 29 0a 09 6f _SSL3_METHOD)..o
7d80: 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 ff |= (ENABLED(p
7d90: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
7da0: 53 53 4c 33 29 20 20 20 3f 20 30 20 3a 20 53 53 SSL3) ? 0 : SS
7db0: 4c 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 33 29 3b 0a L_OP_NO_SSLv3);.
7dc0: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
7dd0: 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 ned(NO_TLS1) &&
7de0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
7df0: 5f 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 _NO_TLS1) && !de
7e00: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
7e10: 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 09 6f _TLS1_METHOD)..o
7e20: 66 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 ff |= (ENABLED(p
7e30: 72 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f roto, TLS_PROTO_
7e40: 54 4c 53 31 29 20 20 20 3f 20 30 20 3a 20 53 53 TLS1) ? 0 : SS
7e50: 4c 5f 4f 50 5f 4e 4f 5f 54 4c 53 76 31 29 3b 0a L_OP_NO_TLSv1);.
7e60: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
7e70: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 ned(NO_TLS1_1) &
7e80: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
7e90: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 SL_NO_TLS1_1) &&
7ea0: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
7eb0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 L_NO_TLS1_1_METH
7ec0: 4f 44 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 OD)..off |= (ENA
7ed0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
7ee0: 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 20 3f 20 PROTO_TLS1_1) ?
7ef0: 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 0 : SSL_OP_NO_TL
7f00: 53 76 31 5f 31 29 3b 0a 23 65 6e 64 69 66 0a 23 Sv1_1);.#endif.#
7f10: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 if !defined(NO_T
7f20: 4c 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e LS1_2) && !defin
7f30: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
7f40: 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65 S1_2) && !define
7f50: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
7f60: 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 09 6f 66 66 1_2_METHOD)..off
7f70: 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72 6f |= (ENABLED(pro
7f80: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c to, TLS_PROTO_TL
7f90: 53 31 5f 32 29 20 3f 20 30 20 3a 20 53 53 4c 5f S1_2) ? 0 : SSL_
7fa0: 4f 50 5f 4e 4f 5f 54 4c 53 76 31 5f 32 29 3b 0a OP_NO_TLSv1_2);.
7fb0: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
7fc0: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 ned(NO_TLS1_3) &
7fd0: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
7fe0: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 26 SL_NO_TLS1_3) &&
7ff0: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
8000: 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 5f 4d 45 54 48 L_NO_TLS1_3_METH
8010: 4f 44 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41 OD)..off |= (ENA
8020: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f BLED(proto, TLS_
8030: 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 29 20 3f 20 PROTO_TLS1_3) ?
8040: 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c 0 : SSL_OP_NO_TL
8050: 53 76 31 5f 33 29 3b 0a 23 65 6e 64 69 66 0a 09 Sv1_3);.#endif..
8060: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 break;. }..
8070: 20 20 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ctx = SSL_CTX_
8080: 6e 65 77 20 28 6d 65 74 68 6f 64 29 3b 0a 0a 20 new (method);..
8090: 20 20 20 69 66 20 28 21 63 74 78 29 20 7b 0a 20 if (!ctx) {.
80a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 28 4e 55 return(NU
80b0: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 20 LL);. }..#if
80c0: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
80d0: 5f 33 29 0a 20 20 20 20 69 66 20 28 70 72 6f 74 _3). if (prot
80e0: 6f 20 3d 3d 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 o == TLS_PROTO_T
80f0: 4c 53 31 5f 33 29 20 7b 0a 20 20 20 20 20 20 20 LS1_3) {.
8100: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 6e SSL_CTX_set_min
8110: 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 _proto_version (
8120: 63 74 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 ctx, TLS1_3_VERS
8130: 49 4f 4e 29 3b 0a 20 20 20 20 20 20 20 20 53 53 ION);. SS
8140: 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 L_CTX_set_max_pr
8150: 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 78 oto_version (ctx
8160: 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e , TLS1_3_VERSION
8170: 29 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a );. }.#endif.
8180: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 . SSL_CTX_set
8190: 5f 61 70 70 5f 64 61 74 61 28 20 63 74 78 2c 20 _app_data( ctx,
81a0: 28 76 6f 69 64 2a 29 69 6e 74 65 72 70 29 3b 09 (void*)interp);.
81b0: 2f 2a 20 72 65 6d 65 6d 62 65 72 20 74 68 65 20 /* remember the
81c0: 69 6e 74 65 72 70 72 65 74 65 72 20 2a 2f 0a 20 interpreter */.
81d0: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f SSL_CTX_set_o
81e0: 70 74 69 6f 6e 73 28 20 63 74 78 2c 20 53 53 4c ptions( ctx, SSL
81f0: 5f 4f 50 5f 41 4c 4c 29 3b 09 2f 2a 20 61 6c 6c _OP_ALL);./* all
8200: 20 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f SSL bug workaro
8210: 75 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f unds */. SSL_
8220: 43 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 CTX_set_options(
8230: 20 63 74 78 2c 20 6f 66 66 29 3b 09 2f 2a 20 61 ctx, off);./* a
8240: 6c 6c 20 53 53 4c 20 62 75 67 20 77 6f 72 6b 61 ll SSL bug worka
8250: 72 6f 75 6e 64 73 20 2a 2f 0a 20 20 20 20 53 53 rounds */. SS
8260: 4c 5f 43 54 58 5f 73 65 73 73 5f 73 65 74 5f 63 L_CTX_sess_set_c
8270: 61 63 68 65 5f 73 69 7a 65 28 20 63 74 78 2c 20 ache_size( ctx,
8280: 31 32 38 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 128);.. if (c
8290: 69 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c 29 0a iphers != NULL).
82a0: 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 69 70 .SSL_CTX_set_cip
82b0: 68 65 72 5f 6c 69 73 74 28 63 74 78 2c 20 63 69 her_list(ctx, ci
82c0: 70 68 65 72 73 29 3b 0a 0a 20 20 20 20 2f 2a 20 phers);.. /*
82d0: 73 65 74 20 73 6f 6d 65 20 63 61 6c 6c 62 61 63 set some callbac
82e0: 6b 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 ks */. SSL_CT
82f0: 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 X_set_default_pa
8300: 73 73 77 64 5f 63 62 28 63 74 78 2c 20 50 61 73 sswd_cb(ctx, Pas
8310: 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 29 3b 0a swordCallback);.
8320: 0a 23 69 66 6e 64 65 66 20 42 53 41 46 45 0a 20 .#ifndef BSAFE.
8330: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 SSL_CTX_set_d
8340: 65 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 efault_passwd_cb
8350: 5f 75 73 65 72 64 61 74 61 28 63 74 78 2c 20 28 _userdata(ctx, (
8360: 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 29 void *)statePtr)
8370: 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a ;.#endif.. /*
8380: 20 72 65 61 64 20 61 20 44 69 66 66 69 65 2d 48 read a Diffie-H
8390: 65 6c 6c 6d 61 6e 20 70 61 72 61 6d 65 74 65 72 ellman parameter
83a0: 73 20 66 69 6c 65 2c 20 6f 72 20 75 73 65 20 74 s file, or use t
83b0: 68 65 20 62 75 69 6c 74 2d 69 6e 20 6f 6e 65 20 he built-in one
83c0: 2a 2f 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 53 */.#ifdef OPENSS
83d0: 4c 5f 4e 4f 5f 44 48 0a 20 20 20 20 69 66 20 28 L_NO_DH. if (
83e0: 44 48 70 61 72 61 6d 73 20 21 3d 20 4e 55 4c 4c DHparams != NULL
83f0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
8400: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 20 esult(interp,..
8410: 20 20 20 22 44 48 20 70 61 72 61 6d 65 74 65 72 "DH parameter
8420: 20 73 75 70 70 6f 72 74 20 6e 6f 74 20 61 76 61 support not ava
8430: 69 6c 61 62 6c 65 22 2c 20 28 63 68 61 72 20 2a ilable", (char *
8440: 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 ) NULL);..SSL_CT
8450: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 X_free(ctx);..re
8460: 74 75 72 6e 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d turn NULL;. }
8470: 0a 23 65 6c 73 65 0a 20 20 20 20 7b 0a 09 44 48 .#else. {..DH
8480: 2a 20 64 68 3b 0a 09 69 66 20 28 44 48 70 61 72 * dh;..if (DHpar
8490: 61 6d 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ams != NULL) {..
84a0: 20 20 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 09 20 BIO *bio;..
84b0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e Tcl_DStringIn
84c0: 69 74 28 26 64 73 29 3b 0a 09 20 20 20 20 62 69 it(&ds);.. bi
84d0: 6f 20 3d 20 42 49 4f 5f 6e 65 77 5f 66 69 6c 65 o = BIO_new_file
84e0: 28 46 32 4e 28 44 48 70 61 72 61 6d 73 2c 20 26 (F2N(DHparams, &
84f0: 64 73 29 2c 20 22 72 22 29 3b 0a 09 20 20 20 20 ds), "r");..
8500: 69 66 20 28 21 62 69 6f 29 20 7b 0a 09 09 54 63 if (!bio) {...Tc
8510: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 l_DStringFree(&d
8520: 73 29 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 s);...Tcl_Append
8530: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 Result(interp,..
8540: 09 20 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 20 . "Could not
8550: 66 69 6e 64 20 44 48 20 70 61 72 61 6d 65 74 65 find DH paramete
8560: 72 73 20 66 69 6c 65 22 2c 20 28 63 68 61 72 20 rs file", (char
8570: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f *) NULL);...SSL_
8580: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
8590: 09 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 09 20 .return NULL;..
85a0: 20 20 20 7d 0a 0a 09 20 20 20 20 64 68 20 3d 20 }... dh =
85b0: 50 45 4d 5f 72 65 61 64 5f 62 69 6f 5f 44 48 70 PEM_read_bio_DHp
85c0: 61 72 61 6d 73 28 62 69 6f 2c 20 4e 55 4c 4c 2c arams(bio, NULL,
85d0: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 20 NULL, NULL);..
85e0: 20 20 20 42 49 4f 5f 66 72 65 65 28 62 69 6f 29 BIO_free(bio)
85f0: 3b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 ;.. Tcl_DStri
8600: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 ngFree(&ds);..
8610: 20 20 69 66 20 28 21 64 68 29 20 7b 0a 09 09 54 if (!dh) {...T
8620: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
8630: 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 22 43 interp,... "C
8640: 6f 75 6c 64 20 6e 6f 74 20 72 65 61 64 20 44 48 ould not read DH
8650: 20 70 61 72 61 6d 65 74 65 72 73 20 66 72 6f 6d parameters from
8660: 20 66 69 6c 65 22 2c 20 28 63 68 61 72 20 2a 29 file", (char *)
8670: 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 NULL);...SSL_CT
8680: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 X_free(ctx);...r
8690: 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 09 20 20 20 eturn NULL;..
86a0: 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 }..} else {..
86b0: 20 20 64 68 20 3d 20 67 65 74 5f 64 68 50 61 72 dh = get_dhPar
86c0: 61 6d 73 28 29 3b 0a 09 7d 0a 09 53 53 4c 5f 43 ams();..}..SSL_C
86d0: 54 58 5f 73 65 74 5f 74 6d 70 5f 64 68 28 63 74 TX_set_tmp_dh(ct
86e0: 78 2c 20 64 68 29 3b 0a 09 44 48 5f 66 72 65 65 x, dh);..DH_free
86f0: 28 64 68 29 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 (dh);. }.#end
8700: 69 66 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 6f if.. /* set o
8710: 75 72 20 63 65 72 74 69 66 69 63 61 74 65 20 2a ur certificate *
8720: 2f 0a 20 20 20 20 6c 6f 61 64 5f 70 72 69 76 61 /. load_priva
8730: 74 65 5f 6b 65 79 20 3d 20 30 3b 0a 20 20 20 20 te_key = 0;.
8740: 69 66 20 28 63 65 72 74 66 69 6c 65 20 21 3d 20 if (certfile !=
8750: 4e 55 4c 4c 29 20 7b 0a 09 6c 6f 61 64 5f 70 72 NULL) {..load_pr
8760: 69 76 61 74 65 5f 6b 65 79 20 3d 20 31 3b 0a 0a ivate_key = 1;..
8770: 09 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 .Tcl_DStringInit
8780: 28 26 64 73 29 3b 0a 0a 09 69 66 20 28 53 53 4c (&ds);...if (SSL
8790: 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 _CTX_use_certifi
87a0: 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 46 cate_file(ctx, F
87b0: 32 4e 28 20 63 65 72 74 66 69 6c 65 2c 20 26 64 2N( certfile, &d
87c0: 73 29 2c 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c s),......SSL_FIL
87d0: 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 ETYPE_PEM) <= 0)
87e0: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 {.. Tcl_DStr
87f0: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 ingFree(&ds);..
8800: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
8810: 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 ult(interp,....
8820: 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 "unable to s
8830: 65 74 20 63 65 72 74 69 66 69 63 61 74 65 20 66 et certificate f
8840: 69 6c 65 20 22 2c 20 63 65 72 74 66 69 6c 65 2c ile ", certfile,
8850: 20 22 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 ": ",.... R
8860: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
8870: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 ) NULL);.. SS
8880: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b L_CTX_free(ctx);
8890: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c .. return NUL
88a0: 4c 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65 L;..}. } else
88b0: 20 69 66 20 28 63 65 72 74 20 21 3d 20 4e 55 4c if (cert != NUL
88c0: 4c 29 20 7b 0a 09 6c 6f 61 64 5f 70 72 69 76 61 L) {..load_priva
88d0: 74 65 5f 6b 65 79 20 3d 20 31 3b 0a 09 69 66 20 te_key = 1;..if
88e0: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 (SSL_CTX_use_cer
88f0: 74 69 66 69 63 61 74 65 5f 41 53 4e 31 28 63 74 tificate_ASN1(ct
8900: 78 2c 20 63 65 72 74 5f 6c 65 6e 2c 20 63 65 72 x, cert_len, cer
8910: 74 29 20 3c 3d 20 30 29 20 7b 0a 09 20 20 20 20 t) <= 0) {..
8920: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
8930: 26 64 73 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 &ds);.. Tcl_A
8940: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
8950: 72 70 2c 0a 09 09 09 20 20 20 20 20 22 75 6e 61 rp,.... "una
8960: 62 6c 65 20 74 6f 20 73 65 74 20 63 65 72 74 69 ble to set certi
8970: 66 69 63 61 74 65 3a 20 22 2c 0a 09 09 09 20 20 ficate: ",....
8980: 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 REASON(), (ch
8990: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
89a0: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
89b0: 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tx);.. return
89c0: 20 4e 55 4c 4c 3b 0a 09 7d 0a 20 20 20 20 7d 20 NULL;..}. }
89d0: 65 6c 73 65 20 7b 0a 09 63 65 72 74 66 69 6c 65 else {..certfile
89e0: 20 3d 20 28 63 68 61 72 2a 29 58 35 30 39 5f 67 = (char*)X509_g
89f0: 65 74 5f 64 65 66 61 75 6c 74 5f 63 65 72 74 5f et_default_cert_
8a00: 66 69 6c 65 28 29 3b 0a 0a 09 69 66 20 28 53 53 file();...if (SS
8a10: 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 L_CTX_use_certif
8a20: 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 icate_file(ctx,
8a30: 63 65 72 74 66 69 6c 65 2c 0a 09 09 09 09 09 53 certfile,......S
8a40: 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 SL_FILETYPE_PEM)
8a50: 20 3c 3d 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 <= 0) {.#if 0..
8a60: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 Tcl_DStringF
8a70: 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20 54 ree(&ds);.. T
8a80: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
8a90: 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20 interp,....
8aa0: 22 75 6e 61 62 6c 65 20 74 6f 20 75 73 65 20 64 "unable to use d
8ab0: 65 66 61 75 6c 74 20 63 65 72 74 69 66 69 63 61 efault certifica
8ac0: 74 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 66 te file ", certf
8ad0: 69 6c 65 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 ile, ": ",....
8ae0: 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 REASON(), (ch
8af0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
8b00: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
8b10: 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e tx);.. return
8b20: 20 4e 55 4c 4c 3b 0a 23 65 6e 64 69 66 0a 09 7d NULL;.#endif..}
8b30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 73 . }.. /* s
8b40: 65 74 20 6f 75 72 20 70 72 69 76 61 74 65 20 6b et our private k
8b50: 65 79 20 2a 2f 0a 20 20 20 20 69 66 20 28 6c 6f ey */. if (lo
8b60: 61 64 5f 70 72 69 76 61 74 65 5f 6b 65 79 29 20 ad_private_key)
8b70: 7b 0a 09 69 66 20 28 6b 65 79 66 69 6c 65 20 3d {..if (keyfile =
8b80: 3d 20 4e 55 4c 4c 20 26 26 20 6b 65 79 20 3d 3d = NULL && key ==
8b90: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 6b 65 NULL) {.. ke
8ba0: 79 66 69 6c 65 20 3d 20 63 65 72 74 66 69 6c 65 yfile = certfile
8bb0: 3b 0a 09 7d 0a 0a 09 69 66 20 28 6b 65 79 66 69 ;..}...if (keyfi
8bc0: 6c 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 le != NULL) {..
8bd0: 20 20 20 2f 2a 20 67 65 74 20 74 68 65 20 70 72 /* get the pr
8be0: 69 76 61 74 65 20 6b 65 79 20 61 73 73 6f 63 69 ivate key associ
8bf0: 61 74 65 64 20 77 69 74 68 20 74 68 69 73 20 63 ated with this c
8c00: 65 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 09 20 ertificate */..
8c10: 20 20 20 69 66 20 28 6b 65 79 66 69 6c 65 20 3d if (keyfile =
8c20: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 6b 65 79 66 = NULL) {...keyf
8c30: 69 6c 65 20 3d 20 63 65 72 74 66 69 6c 65 3b 0a ile = certfile;.
8c40: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 69 66 20 . }... if
8c50: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 50 72 69 (SSL_CTX_use_Pri
8c60: 76 61 74 65 4b 65 79 5f 66 69 6c 65 28 63 74 78 vateKey_file(ctx
8c70: 2c 20 46 32 4e 28 20 6b 65 79 66 69 6c 65 2c 20 , F2N( keyfile,
8c80: 26 64 73 29 2c 20 53 53 4c 5f 46 49 4c 45 54 59 &ds), SSL_FILETY
8c90: 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a PE_PEM) <= 0) {.
8ca0: 09 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 ..Tcl_DStringFre
8cb0: 65 28 26 64 73 29 3b 0a 09 09 2f 2a 20 66 6c 75 e(&ds);.../* flu
8cc0: 73 68 20 74 68 65 20 70 61 73 73 70 68 72 61 73 sh the passphras
8cd0: 65 20 77 68 69 63 68 20 6d 69 67 68 74 20 62 65 e which might be
8ce0: 20 6c 65 66 74 20 69 6e 20 74 68 65 20 72 65 73 left in the res
8cf0: 75 6c 74 20 2a 2f 0a 09 09 54 63 6c 5f 53 65 74 ult */...Tcl_Set
8d00: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 4e Result(interp, N
8d10: 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 ULL, TCL_STATIC)
8d20: 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 ;...Tcl_AppendRe
8d30: 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 sult(interp,....
8d40: 20 20 20 20 20 20 20 20 20 22 75 6e 61 62 6c 65 "unable
8d50: 20 74 6f 20 73 65 74 20 70 75 62 6c 69 63 20 6b to set public k
8d60: 65 79 20 66 69 6c 65 20 22 2c 20 6b 65 79 66 69 ey file ", keyfi
8d70: 6c 65 2c 20 22 20 22 2c 0a 09 09 09 20 20 20 20 le, " ",....
8d80: 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 REASON(), (
8d90: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
8da0: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
8db0: 78 29 3b 0a 09 09 72 65 74 75 72 6e 20 4e 55 4c x);...return NUL
8dc0: 4c 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 L;.. }...
8dd0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
8de0: 26 64 73 29 3b 0a 09 7d 20 65 6c 73 65 20 69 66 &ds);..} else if
8df0: 20 28 6b 65 79 20 21 3d 20 4e 55 4c 4c 29 20 7b (key != NULL) {
8e00: 0a 09 20 20 20 20 69 66 20 28 53 53 4c 5f 43 54 .. if (SSL_CT
8e10: 58 5f 75 73 65 5f 50 72 69 76 61 74 65 4b 65 79 X_use_PrivateKey
8e20: 5f 41 53 4e 31 28 45 56 50 5f 50 4b 45 59 5f 52 _ASN1(EVP_PKEY_R
8e30: 53 41 2c 20 63 74 78 2c 20 6b 65 79 2c 6b 65 79 SA, ctx, key,key
8e40: 5f 6c 65 6e 29 20 3c 3d 20 30 29 20 7b 0a 09 09 _len) <= 0) {...
8e50: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
8e60: 26 64 73 29 3b 0a 09 09 2f 2a 20 66 6c 75 73 68 &ds);.../* flush
8e70: 20 74 68 65 20 70 61 73 73 70 68 72 61 73 65 20 the passphrase
8e80: 77 68 69 63 68 20 6d 69 67 68 74 20 62 65 20 6c which might be l
8e90: 65 66 74 20 69 6e 20 74 68 65 20 72 65 73 75 6c eft in the resul
8ea0: 74 20 2a 2f 0a 09 09 54 63 6c 5f 53 65 74 52 65 t */...Tcl_SetRe
8eb0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c sult(interp, NUL
8ec0: 4c 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a L, TCL_STATIC);.
8ed0: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
8ee0: 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 lt(interp,...
8ef0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 "u
8f00: 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 70 75 62 nable to set pub
8f10: 6c 69 63 20 6b 65 79 3a 20 22 2c 0a 09 09 20 20 lic key: ",...
8f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 R
8f30: 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a EASON(), (char *
8f40: 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 ) NULL);...SSL_C
8f50: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 09 TX_free(ctx);...
8f60: 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a 09 20 20 return NULL;..
8f70: 20 20 7d 0a 09 7d 0a 09 2f 2a 20 4e 6f 77 20 77 }..}../* Now w
8f80: 65 20 6b 6e 6f 77 20 74 68 61 74 20 61 20 6b 65 e know that a ke
8f90: 79 20 61 6e 64 20 63 65 72 74 20 68 61 76 65 20 y and cert have
8fa0: 62 65 65 6e 20 73 65 74 20 61 67 61 69 6e 73 74 been set against
8fb0: 0a 09 20 2a 20 74 68 65 20 53 53 4c 20 63 6f 6e .. * the SSL con
8fc0: 74 65 78 74 20 2a 2f 0a 09 69 66 20 28 21 53 53 text */..if (!SS
8fd0: 4c 5f 43 54 58 5f 63 68 65 63 6b 5f 70 72 69 76 L_CTX_check_priv
8fe0: 61 74 65 5f 6b 65 79 28 63 74 78 29 29 20 7b 0a ate_key(ctx)) {.
8ff0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
9000: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 esult(interp,...
9010: 09 20 20 20 20 20 22 70 72 69 76 61 74 65 20 6b . "private k
9020: 65 79 20 64 6f 65 73 20 6e 6f 74 20 6d 61 74 63 ey does not matc
9030: 68 20 74 68 65 20 63 65 72 74 69 66 69 63 61 74 h the certificat
9040: 65 20 70 75 62 6c 69 63 20 6b 65 79 22 2c 0a 09 e public key",..
9050: 09 09 20 20 20 20 20 28 63 68 61 72 20 2a 29 20 .. (char *)
9060: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f NULL);.. SSL_
9070: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
9080: 20 20 20 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b return NULL;
9090: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ..}. }.. /
90a0: 2a 20 53 65 74 20 76 65 72 69 66 69 63 61 74 69 * Set verificati
90b0: 6f 6e 20 43 41 73 20 2a 2f 0a 20 20 20 20 54 63 on CAs */. Tc
90c0: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64 l_DStringInit(&d
90d0: 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 s);. Tcl_DStr
90e0: 69 6e 67 49 6e 69 74 28 26 64 73 31 29 3b 0a 20 ingInit(&ds1);.
90f0: 20 20 20 69 66 20 28 21 53 53 4c 5f 43 54 58 5f if (!SSL_CTX_
9100: 6c 6f 61 64 5f 76 65 72 69 66 79 5f 6c 6f 63 61 load_verify_loca
9110: 74 69 6f 6e 73 28 63 74 78 2c 20 46 32 4e 28 43 tions(ctx, F2N(C
9120: 41 66 69 6c 65 2c 20 26 64 73 29 2c 20 46 32 4e Afile, &ds), F2N
9130: 28 43 41 64 69 72 2c 20 26 64 73 31 29 29 20 7c (CAdir, &ds1)) |
9140: 7c 0a 09 21 53 53 4c 5f 43 54 58 5f 73 65 74 5f |..!SSL_CTX_set_
9150: 64 65 66 61 75 6c 74 5f 76 65 72 69 66 79 5f 70 default_verify_p
9160: 61 74 68 73 28 63 74 78 29 29 20 7b 0a 23 69 66 aths(ctx)) {.#if
9170: 20 30 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 0..Tcl_DStringF
9180: 72 65 65 28 26 64 73 29 3b 0a 09 54 63 6c 5f 44 ree(&ds);..Tcl_D
9190: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 StringFree(&ds1)
91a0: 3b 0a 09 2f 2a 20 44 6f 6e 27 74 20 63 75 72 72 ;../* Don't curr
91b0: 65 6e 74 6c 79 20 63 61 72 65 20 69 66 20 74 68 ently care if th
91c0: 69 73 20 66 61 69 6c 73 20 2a 2f 0a 09 54 63 6c is fails */..Tcl
91d0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
91e0: 74 65 72 70 2c 20 22 53 53 4c 20 64 65 66 61 75 terp, "SSL defau
91f0: 6c 74 20 76 65 72 69 66 79 20 70 61 74 68 73 3a lt verify paths:
9200: 20 22 2c 0a 09 09 52 45 41 53 4f 4e 28 29 2c 20 ",...REASON(),
9210: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
9220: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
9230: 78 29 3b 0a 09 72 65 74 75 72 6e 20 4e 55 4c 4c x);..return NULL
9240: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 0a ;.#endif. }..
9250: 20 20 20 20 2f 2a 20 68 74 74 70 73 3a 2f 2f 73 /* https://s
9260: 6f 75 72 63 65 66 6f 72 67 65 2e 6e 65 74 2f 70 ourceforge.net/p
9270: 2f 74 6c 73 2f 62 75 67 73 2f 35 37 2f 20 2a 2f /tls/bugs/57/ */
9280: 0a 20 20 20 20 2f 2a 20 58 58 58 3a 54 4f 44 4f . /* XXX:TODO
9290: 3a 20 4c 65 74 20 74 68 65 20 75 73 65 72 20 73 : Let the user s
92a0: 75 70 70 6c 79 20 76 61 6c 75 65 73 20 68 65 72 upply values her
92b0: 65 20 69 6e 73 74 65 61 64 20 6f 66 20 73 6f 6d e instead of som
92c0: 65 74 68 69 6e 67 20 74 68 61 74 20 65 78 69 73 ething that exis
92d0: 74 73 20 6f 6e 20 74 68 65 20 66 69 6c 65 73 79 ts on the filesy
92e0: 73 74 65 6d 20 2a 2f 0a 20 20 20 20 69 66 20 28 stem */. if (
92f0: 20 43 41 66 69 6c 65 20 21 3d 20 4e 55 4c 4c 20 CAfile != NULL
9300: 29 20 7b 0a 20 20 20 20 20 20 20 20 53 54 41 43 ) {. STAC
9310: 4b 5f 4f 46 28 58 35 30 39 5f 4e 41 4d 45 29 20 K_OF(X509_NAME)
9320: 2a 63 65 72 74 4e 61 6d 65 73 20 3d 20 53 53 4c *certNames = SSL
9330: 5f 6c 6f 61 64 5f 63 6c 69 65 6e 74 5f 43 41 5f _load_client_CA_
9340: 66 69 6c 65 28 20 46 32 4e 28 43 41 66 69 6c 65 file( F2N(CAfile
9350: 2c 20 26 64 73 29 20 29 3b 0a 09 69 66 20 28 20 , &ds) );..if (
9360: 63 65 72 74 4e 61 6d 65 73 20 21 3d 20 4e 55 4c certNames != NUL
9370: 4c 20 29 20 7b 0a 09 20 20 20 20 53 53 4c 5f 43 L ) {.. SSL_C
9380: 54 58 5f 73 65 74 5f 63 6c 69 65 6e 74 5f 43 41 TX_set_client_CA
9390: 5f 6c 69 73 74 28 63 74 78 2c 20 63 65 72 74 4e _list(ctx, certN
93a0: 61 6d 65 73 20 29 3b 0a 09 7d 0a 20 20 20 20 7d ames );..}. }
93b0: 0a 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e .. Tcl_DStrin
93c0: 67 46 72 65 65 28 26 64 73 29 3b 0a 20 20 20 20 gFree(&ds);.
93d0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 Tcl_DStringFree(
93e0: 26 64 73 31 29 3b 0a 20 20 20 20 72 65 74 75 72 &ds1);. retur
93f0: 6e 20 63 74 78 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a n ctx;.}.../*. *
9400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9440: 2d 2d 2d 0a 20 2a 0a 20 2a 20 53 74 61 74 75 73 ---. *. * Status
9450: 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e ObjCmd -- return
9460: 20 63 65 72 74 69 66 69 63 61 74 65 20 66 6f 72 certificate for
9470: 20 63 6f 6e 6e 65 63 74 65 64 20 70 65 65 72 2e connected peer.
9480: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
9490: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
94a0: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
94b0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
94c0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
94d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9510: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 53 */.static int.S
9520: 74 61 74 75 73 4f 62 6a 43 6d 64 28 0a 20 20 20 tatusObjCmd(.
9530: 20 54 43 4c 5f 55 4e 55 53 45 44 28 76 6f 69 64 TCL_UNUSED(void
9540: 20 2a 29 2c 0a 20 20 20 20 54 63 6c 5f 49 6e 74 *),. Tcl_Int
9550: 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a 20 20 20 erp *interp,.
9560: 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 20 20 54 int objc,. T
9570: 63 6c 5f 4f 62 6a 09 2a 63 6f 6e 73 74 20 6f 62 cl_Obj.*const ob
9580: 6a 76 5b 5d 29 0a 7b 0a 20 20 20 20 53 74 61 74 jv[]).{. Stat
9590: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
95a0: 20 58 35 30 39 20 2a 70 65 65 72 3b 0a 20 20 20 X509 *peer;.
95b0: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 Tcl_Obj *objPtr
95c0: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
95d0: 6c 20 63 68 61 6e 3b 0a 20 20 20 20 63 68 61 72 l chan;. char
95e0: 20 2a 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 2a *channelName, *
95f0: 63 69 70 68 65 72 73 3b 0a 20 20 20 20 69 6e 74 ciphers;. int
9600: 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 64 70 72 69 mode;.. dpri
9610: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
9620: 20 20 20 20 73 77 69 74 63 68 20 28 6f 62 6a 63 switch (objc
9630: 29 20 7b 0a 09 63 61 73 65 20 32 3a 0a 09 20 20 ) {..case 2:..
9640: 20 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 channelName =
9650: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 Tcl_GetString(ob
9660: 6a 76 5b 31 5d 29 3b 0a 09 20 20 20 20 62 72 65 jv[1]);.. bre
9670: 61 6b 3b 0a 0a 09 63 61 73 65 20 33 3a 0a 09 20 ak;...case 3:..
9680: 20 20 20 69 66 20 28 21 73 74 72 63 6d 70 20 28 if (!strcmp (
9690: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 20 28 6f Tcl_GetString (o
96a0: 62 6a 76 5b 31 5d 29 2c 20 22 2d 6c 6f 63 61 6c bjv[1]), "-local
96b0: 22 29 29 20 7b 0a 09 09 63 68 61 6e 6e 65 6c 4e ")) {...channelN
96c0: 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ame = Tcl_GetStr
96d0: 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 09 09 ing(objv[2]);...
96e0: 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09 20 break;.. }..
96f0: 20 20 20 2f 2a 20 66 61 6c 6c 74 68 72 6f 75 67 /* fallthroug
9700: 68 20 2a 2f 0a 09 64 65 66 61 75 6c 74 3a 0a 09 h */..default:..
9710: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
9720: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
9730: 6f 62 6a 76 2c 20 22 3f 2d 6c 6f 63 61 6c 3f 20 objv, "?-local?
9740: 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 20 20 20 20 channel");..
9750: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
9760: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 ;. }.. cha
9770: 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e n = Tcl_GetChann
9780: 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e el(interp, chann
9790: 65 6c 4e 61 6d 65 2c 20 26 6d 6f 64 65 29 3b 0a elName, &mode);.
97a0: 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 if (chan ==
97b0: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
97c0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
97d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
97e0: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b /*. * Mak
97f0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
9800: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
9810: 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f channel. */
9820: 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f . chan = Tcl_
9830: 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 GetTopChannel(ch
9840: 61 6e 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c an);. if (Tcl
9850: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
9860: 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 chan) != Tls_Cha
9870: 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 54 nnelType()) {..T
9880: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
9890: 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 interp, "bad cha
98a0: 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 nnel \"", Tcl_Ge
98b0: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 tChannelName(cha
98c0: 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f 74 20 61 n),..."\": not a
98d0: 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 28 TLS channel", (
98e0: 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a 09 72 char *)NULL);..r
98f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
9900: 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 . }. state
9910: 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 Ptr = (State *)
9920: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
9930: 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 stanceData(chan)
9940: 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d ;. if (objc =
9950: 3d 20 32 29 20 7b 0a 09 70 65 65 72 20 3d 20 53 = 2) {..peer = S
9960: 53 4c 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 SL_get_peer_cert
9970: 69 66 69 63 61 74 65 28 73 74 61 74 65 50 74 72 ificate(statePtr
9980: 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c ->ssl);. } el
9990: 73 65 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c se {..peer = SSL
99a0: 5f 67 65 74 5f 63 65 72 74 69 66 69 63 61 74 65 _get_certificate
99b0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b (statePtr->ssl);
99c0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 70 . }. if (p
99d0: 65 65 72 29 20 7b 0a 09 6f 62 6a 50 74 72 20 3d eer) {..objPtr =
99e0: 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 Tls_NewX509Obj(
99f0: 69 6e 74 65 72 70 2c 20 70 65 65 72 29 3b 0a 09 interp, peer);..
9a00: 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b if (objc == 2) {
9a10: 20 58 35 30 39 5f 66 72 65 65 28 70 65 65 72 29 X509_free(peer)
9a20: 3b 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b ; }. } else {
9a30: 0a 09 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e ..objPtr = Tcl_N
9a40: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
9a50: 4c 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 L);. }.. T
9a60: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
9a70: 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c Element (interp,
9a80: 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 objPtr,.. Tc
9a90: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 20 28 l_NewStringObj (
9aa0: 22 73 62 69 74 73 22 2c 20 2d 31 29 29 3b 0a 20 "sbits", -1));.
9ab0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
9ac0: 70 65 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 pendElement (int
9ad0: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 erp, objPtr,..
9ae0: 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 20 Tcl_NewIntObj
9af0: 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f (SSL_get_cipher_
9b00: 62 69 74 73 20 28 73 74 61 74 65 50 74 72 2d 3e bits (statePtr->
9b10: 73 73 6c 2c 20 4e 55 4c 4c 29 29 29 3b 0a 0a 20 ssl, NULL)));..
9b20: 20 20 20 63 69 70 68 65 72 73 20 3d 20 28 63 68 ciphers = (ch
9b30: 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 ar*)SSL_get_ciph
9b40: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c er(statePtr->ssl
9b50: 29 3b 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 );. if (ciphe
9b60: 72 73 20 21 3d 20 4e 55 4c 4c 20 26 26 20 73 74 rs != NULL && st
9b70: 72 63 6d 70 28 63 69 70 68 65 72 73 2c 20 22 28 rcmp(ciphers, "(
9b80: 4e 4f 4e 45 29 22 29 21 3d 30 29 20 7b 0a 09 54 NONE)")!=0) {..T
9b90: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
9ba0: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
9bb0: 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 objPtr,...Tcl_Ne
9bc0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 69 70 68 wStringObj("ciph
9bd0: 65 72 22 2c 20 2d 31 29 29 3b 0a 09 54 63 6c 5f er", -1));..Tcl_
9be0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
9bf0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a ment(interp, obj
9c00: 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 Ptr,...Tcl_NewSt
9c10: 72 69 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f ringObj(SSL_get_
9c20: 63 69 70 68 65 72 28 73 74 61 74 65 50 74 72 2d cipher(statePtr-
9c30: 3e 73 73 6c 29 2c 20 2d 31 29 29 3b 0a 20 20 20 >ssl), -1));.
9c40: 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 }.. Tcl_List
9c50: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
9c60: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
9c70: 0a 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f ..Tcl_NewStringO
9c80: 62 6a 28 22 76 65 72 73 69 6f 6e 22 2c 20 2d 31 bj("version", -1
9c90: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 ));. Tcl_List
9ca0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
9cb0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
9cc0: 0a 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f ..Tcl_NewStringO
9cd0: 62 6a 28 53 53 4c 5f 67 65 74 5f 76 65 72 73 69 bj(SSL_get_versi
9ce0: 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c on(statePtr->ssl
9cf0: 29 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 ), -1));.. Tc
9d00: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 20 l_SetObjResult(
9d10: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
9d20: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
9d30: 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d OK;.}.../*. *---
9d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9d80: 0a 20 2a 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 . *. * VersionOb
9d90: 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 76 jCmd -- return v
9da0: 65 72 73 69 6f 6e 20 73 74 72 69 6e 67 20 66 72 ersion string fr
9db0: 6f 6d 20 4f 70 65 6e 53 53 4c 2e 0a 20 2a 0a 20 om OpenSSL.. *.
9dc0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
9dd0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 standard Tcl res
9de0: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ult.. *. * Side
9df0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
9e00: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
9e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
9e50: 74 61 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f tatic int.Versio
9e60: 6e 4f 62 6a 43 6d 64 28 0a 20 20 20 20 54 43 4c nObjCmd(. TCL
9e70: 5f 55 4e 55 53 45 44 28 76 6f 69 64 20 2a 29 2c _UNUSED(void *),
9e80: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 . Tcl_Interp
9e90: 2a 69 6e 74 65 72 70 2c 0a 20 20 20 20 54 43 4c *interp,. TCL
9ea0: 5f 55 4e 55 53 45 44 28 69 6e 74 29 20 2f 2a 20 _UNUSED(int) /*
9eb0: 6f 62 6a 63 20 2a 2f 2c 0a 20 20 20 20 54 43 4c objc */,. TCL
9ec0: 5f 55 4e 55 53 45 44 28 54 63 6c 5f 4f 62 6a 20 _UNUSED(Tcl_Obj
9ed0: 2a 63 6f 6e 73 74 20 2a 29 20 2f 2a 20 6f 62 6a *const *) /* obj
9ee0: 76 20 2a 2f 29 0a 7b 0a 20 20 20 20 54 63 6c 5f v */).{. Tcl_
9ef0: 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 Obj *objPtr;..
9f00: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
9f10: 64 22 29 3b 0a 0a 20 20 20 20 6f 62 6a 50 74 72 d");.. objPtr
9f20: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 = Tcl_NewString
9f30: 4f 62 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 Obj(OPENSSL_VERS
9f40: 49 4f 4e 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 0a ION_TEXT, -1);..
9f50: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
9f60: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a sult(interp, obj
9f70: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Ptr);. return
9f80: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0c 0a 2f 2a 0a TCL_OK;.}.../*.
9f90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
9fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9fd0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 73 63 -----. *. * Misc
9fe0: 4f 62 6a 43 6d 64 20 2d 2d 20 6d 69 73 63 20 63 ObjCmd -- misc c
9ff0: 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 ommands. *. * Re
a000: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
a010: 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e dard Tcl result.
a020: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
a030: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
a040: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
a050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
a080: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
a090: 63 20 69 6e 74 0a 4d 69 73 63 4f 62 6a 43 6d 64 c int.MiscObjCmd
a0a0: 28 0a 20 20 20 20 54 43 4c 5f 55 4e 55 53 45 44 (. TCL_UNUSED
a0b0: 28 76 6f 69 64 20 2a 29 2c 0a 20 20 20 20 54 63 (void *),. Tc
a0c0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
a0d0: 2c 0a 20 20 20 20 69 6e 74 20 6f 62 6a 63 2c 0a ,. int objc,.
a0e0: 20 20 20 20 54 63 6c 5f 4f 62 6a 09 2a 63 6f 6e Tcl_Obj.*con
a0f0: 73 74 20 6f 62 6a 76 5b 5d 29 0a 7b 0a 20 20 20 st objv[]).{.
a100: 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 static const ch
a110: 61 72 20 2a 63 6f 6d 6d 61 6e 64 73 20 5b 5d 20 ar *commands []
a120: 3d 20 7b 20 22 72 65 71 22 2c 20 4e 55 4c 4c 20 = { "req", NULL
a130: 7d 3b 0a 20 20 20 20 65 6e 75 6d 20 63 6f 6d 6d };. enum comm
a140: 61 6e 64 20 7b 20 43 5f 52 45 51 2c 20 43 5f 44 and { C_REQ, C_D
a150: 55 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 6e 74 20 UMMY };. int
a160: 63 6d 64 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 cmd;.. dprint
a170: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
a180: 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 if (objc < 2)
a190: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
a1a0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
a1b0: 62 6a 76 2c 20 22 73 75 62 63 6f 6d 6d 61 6e 64 bjv, "subcommand
a1c0: 20 3f 61 72 67 73 3f 22 29 3b 0a 09 72 65 74 75 ?args?");..retu
a1d0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
a1e0: 20 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c 5f }. if (Tcl_
a1f0: 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 GetIndexFromObj(
a200: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c interp, objv[1],
a210: 20 63 6f 6d 6d 61 6e 64 73 2c 0a 09 20 20 20 20 commands,..
a220: 22 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c 26 63 6d "command", 0,&cm
a230: 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a d) != TCL_OK) {.
a240: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
a250: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 R;. }.. sw
a260: 69 74 63 68 20 28 28 65 6e 75 6d 20 63 6f 6d 6d itch ((enum comm
a270: 61 6e 64 29 20 63 6d 64 29 20 7b 0a 09 63 61 73 and) cmd) {..cas
a280: 65 20 43 5f 52 45 51 3a 20 7b 0a 09 20 20 20 20 e C_REQ: {..
a290: 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 3d 4e EVP_PKEY *pkey=N
a2a0: 55 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 20 2a ULL;.. X509 *
a2b0: 63 65 72 74 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 cert=NULL;..
a2c0: 58 35 30 39 5f 4e 41 4d 45 20 2a 6e 61 6d 65 3d X509_NAME *name=
a2d0: 4e 55 4c 4c 3b 0a 09 20 20 20 20 54 63 6c 5f 4f NULL;.. Tcl_O
a2e0: 62 6a 20 2a 2a 6c 69 73 74 76 3b 0a 09 20 20 20 bj **listv;..
a2f0: 20 54 63 6c 5f 53 69 7a 65 20 6c 69 73 74 63 2c Tcl_Size listc,
a300: 69 3b 0a 0a 09 20 20 20 20 42 49 4f 20 2a 6f 75 i;... BIO *ou
a310: 74 3d 4e 55 4c 4c 3b 0a 0a 09 20 20 20 20 63 6f t=NULL;... co
a320: 6e 73 74 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 nst char *k_C=""
a330: 2c 2a 6b 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 ,*k_ST="",*k_L="
a340: 22 2c 2a 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d ",*k_O="",*k_OU=
a350: 22 22 2c 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 "",*k_CN="",*k_E
a360: 6d 61 69 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 mail="";.. ch
a370: 61 72 20 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f ar *keyout,*pemo
a380: 75 74 2c 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e ut,*str;.. in
a390: 74 20 6b 65 79 73 69 7a 65 2c 73 65 72 69 61 6c t keysize,serial
a3a0: 3d 30 2c 64 61 79 73 3d 33 36 35 3b 0a 0a 09 20 =0,days=365;...
a3b0: 20 20 20 69 66 20 28 28 6f 62 6a 63 3c 35 29 20 if ((objc<5)
a3c0: 7c 7c 20 28 6f 62 6a 63 3e 36 29 29 20 7b 0a 09 || (objc>6)) {..
a3d0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
a3e0: 73 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a s(interp, 2, obj
a3f0: 76 2c 20 22 6b 65 79 73 69 7a 65 20 6b 65 79 66 v, "keysize keyf
a400: 69 6c 65 20 63 65 72 74 66 69 6c 65 20 3f 69 6e ile certfile ?in
a410: 66 6f 3f 22 29 3b 0a 09 09 72 65 74 75 72 6e 20 fo?");...return
a420: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 TCL_ERROR;..
a430: 7d 0a 0a 09 20 20 20 20 69 66 20 28 54 63 6c 5f }... if (Tcl_
a440: 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e GetIntFromObj(in
a450: 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 terp, objv[2], &
a460: 6b 65 79 73 69 7a 65 29 20 21 3d 20 54 43 4c 5f keysize) != TCL_
a470: 4f 4b 29 20 7b 0a 09 09 72 65 74 75 72 6e 20 54 OK) {...return T
a480: 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d CL_ERROR;.. }
a490: 0a 09 20 20 20 20 6b 65 79 6f 75 74 3d 54 63 6c .. keyout=Tcl
a4a0: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b _GetString(objv[
a4b0: 33 5d 29 3b 0a 09 20 20 20 20 70 65 6d 6f 75 74 3]);.. pemout
a4c0: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f =Tcl_GetString(o
a4d0: 62 6a 76 5b 34 5d 29 3b 0a 0a 09 20 20 20 20 69 bjv[4]);... i
a4e0: 66 20 28 6f 62 6a 63 3e 3d 36 29 20 7b 0a 09 09 f (objc>=6) {...
a4f0: 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 if (Tcl_ListObjG
a500: 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72 etElements(inter
a510: 70 2c 20 6f 62 6a 76 5b 35 5d 2c 0a 09 09 09 26 p, objv[5],....&
a520: 6c 69 73 74 63 2c 20 26 6c 69 73 74 76 29 20 21 listc, &listv) !
a530: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 20 20 = TCL_OK) {...
a540: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
a550: 4f 52 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 28 OR;...}....if ((
a560: 6c 69 73 74 63 25 32 29 20 21 3d 20 30 29 20 7b listc%2) != 0) {
a570: 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52 65 ... Tcl_SetRe
a580: 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 49 6e 66 sult(interp,"Inf
a590: 6f 72 6d 61 74 69 6f 6e 20 6c 69 73 74 20 6d 75 ormation list mu
a5a0: 73 74 20 68 61 76 65 20 65 76 65 6e 20 6e 75 6d st have even num
a5b0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 ber of arguments
a5c0: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72 ",NULL);... r
a5d0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
a5e0: 0a 09 09 7d 0a 09 09 66 6f 72 20 28 69 3d 30 3b ...}...for (i=0;
a5f0: 20 69 3c 6c 69 73 74 63 3b 20 69 2b 3d 32 29 20 i<listc; i+=2)
a600: 7b 0a 09 09 20 20 20 20 73 74 72 3d 54 63 6c 5f {... str=Tcl_
a610: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b GetString(listv[
a620: 69 5d 29 3b 0a 09 09 20 20 20 20 69 66 20 28 73 i]);... if (s
a630: 74 72 63 6d 70 28 73 74 72 2c 22 64 61 79 73 22 trcmp(str,"days"
a640: 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 54 )==0) {....if (T
a650: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
a660: 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b (interp,listv[i+
a670: 31 5d 2c 26 64 61 79 73 29 21 3d 54 43 4c 5f 4f 1],&days)!=TCL_O
a680: 4b 29 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e K).... return
a690: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 TCL_ERROR;...
a6a0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
a6b0: 63 6d 70 28 73 74 72 2c 22 73 65 72 69 61 6c 22 cmp(str,"serial"
a6c0: 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 20 28 54 )==0) {....if (T
a6d0: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a cl_GetIntFromObj
a6e0: 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 5b 69 2b (interp,listv[i+
a6f0: 31 5d 2c 26 73 65 72 69 61 6c 29 21 3d 54 43 4c 1],&serial)!=TCL
a700: 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 74 75 _OK).... retu
a710: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 rn TCL_ERROR;...
a720: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 } else if (s
a730: 74 72 63 6d 70 28 73 74 72 2c 22 73 65 72 69 61 trcmp(str,"seria
a740: 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66 20 l")==0) {....if
a750: 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f (Tcl_GetIntFromO
a760: 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76 5b bj(interp,listv[
a770: 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 21 3d 54 i+1],&serial)!=T
a780: 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 CL_OK).... re
a790: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
a7a0: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .. } else if
a7b0: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 43 22 29 (strcmp(str,"C")
a7c0: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 3d 54 63 ==0) {....k_C=Tc
a7d0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 l_GetString(list
a7e0: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d v[i+1]);... }
a7f0: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 else if (strcmp
a800: 28 73 74 72 2c 22 53 54 22 29 3d 3d 30 29 20 7b (str,"ST")==0) {
a810: 0a 09 09 09 6b 5f 53 54 3d 54 63 6c 5f 47 65 74 ....k_ST=Tcl_Get
a820: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 String(listv[i+1
a830: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 ]);... } else
a840: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c if (strcmp(str,
a850: 22 4c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f "L")==0) {....k_
a860: 4c 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 L=Tcl_GetString(
a870: 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 listv[i+1]);...
a880: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 } else if (st
a890: 72 63 6d 70 28 73 74 72 2c 22 4f 22 29 3d 3d 30 rcmp(str,"O")==0
a8a0: 29 20 7b 0a 09 09 09 6b 5f 4f 3d 54 63 6c 5f 47 ) {....k_O=Tcl_G
a8b0: 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 etString(listv[i
a8c0: 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c +1]);... } el
a8d0: 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 se if (strcmp(st
a8e0: 72 2c 22 4f 55 22 29 3d 3d 30 29 20 7b 0a 09 09 r,"OU")==0) {...
a8f0: 09 6b 5f 4f 55 3d 54 63 6c 5f 47 65 74 53 74 72 .k_OU=Tcl_GetStr
a900: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b ing(listv[i+1]);
a910: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ... } else if
a920: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 43 4e (strcmp(str,"CN
a930: 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43 4e ")==0) {....k_CN
a940: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c =Tcl_GetString(l
a950: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 istv[i+1]);...
a960: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 } else if (str
a970: 63 6d 70 28 73 74 72 2c 22 45 6d 61 69 6c 22 29 cmp(str,"Email")
a980: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 45 6d 61 69 ==0) {....k_Emai
a990: 6c 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 l=Tcl_GetString(
a9a0: 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 listv[i+1]);...
a9b0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 54 } else {....T
a9c0: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
a9d0: 65 72 70 2c 22 55 6e 6b 6e 6f 77 6e 20 70 61 72 erp,"Unknown par
a9e0: 61 6d 65 74 65 72 22 2c 4e 55 4c 4c 29 3b 0a 09 ameter",NULL);..
a9f0: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
aa00: 4f 52 3b 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a OR;... }...}.
aa10: 09 20 20 20 20 7d 0a 09 20 20 20 20 69 66 20 28 . }.. if (
aa20: 28 70 6b 65 79 20 3d 20 45 56 50 5f 50 4b 45 59 (pkey = EVP_PKEY
aa30: 5f 6e 65 77 28 29 29 20 21 3d 20 4e 55 4c 4c 29 _new()) != NULL)
aa40: 20 7b 0a 09 09 69 66 20 28 21 45 56 50 5f 50 4b {...if (!EVP_PK
aa50: 45 59 5f 61 73 73 69 67 6e 5f 52 53 41 28 70 6b EY_assign_RSA(pk
aa60: 65 79 2c 0a 09 09 09 52 53 41 5f 67 65 6e 65 72 ey,....RSA_gener
aa70: 61 74 65 5f 6b 65 79 28 6b 65 79 73 69 7a 65 2c ate_key(keysize,
aa80: 20 30 78 31 30 30 30 31 2c 20 4e 55 4c 4c 2c 20 0x10001, NULL,
aa90: 4e 55 4c 4c 29 29 29 20 7b 0a 09 09 20 20 20 20 NULL))) {...
aaa0: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e Tcl_SetResult(in
aab0: 74 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 terp,"Error gene
aac0: 72 61 74 69 6e 67 20 70 72 69 76 61 74 65 20 6b rating private k
aad0: 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 ey",NULL);...
aae0: 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 EVP_PKEY_free(p
aaf0: 6b 65 79 29 3b 0a 09 09 20 20 20 20 72 65 74 75 key);... retu
ab00: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 rn TCL_ERROR;...
ab10: 7d 0a 09 09 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 }...out=BIO_new(
ab20: 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29 3b 0a 09 BIO_s_file());..
ab30: 09 42 49 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e .BIO_write_filen
ab40: 61 6d 65 28 6f 75 74 2c 6b 65 79 6f 75 74 29 3b ame(out,keyout);
ab50: 0a 09 09 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f ...PEM_write_bio
ab60: 5f 50 72 69 76 61 74 65 4b 65 79 28 6f 75 74 2c _PrivateKey(out,
ab70: 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c 30 pkey,NULL,NULL,0
ab80: 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 42 ,NULL,NULL);...B
ab90: 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 74 29 IO_free_all(out)
aba0: 3b 0a 0a 09 09 69 66 20 28 28 63 65 72 74 3d 58 ;....if ((cert=X
abb0: 35 30 39 5f 6e 65 77 28 29 29 3d 3d 4e 55 4c 4c 509_new())==NULL
abc0: 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 ) {... Tcl_Se
abd0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
abe0: 45 72 72 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 Error generating
abf0: 20 63 65 72 74 69 66 69 63 61 74 65 20 72 65 71 certificate req
ac00: 75 65 73 74 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 uest",NULL);...
ac10: 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 EVP_PKEY_free
ac20: 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 72 65 (pkey);... re
ac30: 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b turn(TCL_ERROR);
ac40: 0a 09 09 7d 0a 0a 09 09 58 35 30 39 5f 73 65 74 ...}....X509_set
ac50: 5f 76 65 72 73 69 6f 6e 28 63 65 72 74 2c 32 29 _version(cert,2)
ac60: 3b 0a 09 09 41 53 4e 31 5f 49 4e 54 45 47 45 52 ;...ASN1_INTEGER
ac70: 5f 73 65 74 28 58 35 30 39 5f 67 65 74 5f 73 65 _set(X509_get_se
ac80: 72 69 61 6c 4e 75 6d 62 65 72 28 63 65 72 74 29 rialNumber(cert)
ac90: 2c 73 65 72 69 61 6c 29 3b 0a 09 09 58 35 30 39 ,serial);...X509
aca0: 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 _gmtime_adj(X509
acb0: 5f 67 65 74 5f 6e 6f 74 42 65 66 6f 72 65 28 63 _get_notBefore(c
acc0: 65 72 74 29 2c 30 29 3b 0a 09 09 58 35 30 39 5f ert),0);...X509_
acd0: 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f gmtime_adj(X509_
ace0: 67 65 74 5f 6e 6f 74 41 66 74 65 72 28 63 65 72 get_notAfter(cer
acf0: 74 29 2c 28 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 t),(long)60*60*2
ad00: 34 2a 64 61 79 73 29 3b 0a 09 09 58 35 30 39 5f 4*days);...X509_
ad10: 73 65 74 5f 70 75 62 6b 65 79 28 63 65 72 74 2c set_pubkey(cert,
ad20: 70 6b 65 79 29 3b 0a 0a 09 09 6e 61 6d 65 3d 58 pkey);....name=X
ad30: 35 30 39 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 509_get_subject_
ad40: 6e 61 6d 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 name(cert);....X
ad50: 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 509_NAME_add_ent
ad60: 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 ry_by_txt(name,"
ad70: 43 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 C", MBSTRING_ASC
ad80: 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 , (unsigned char
ad90: 20 2a 29 20 6b 5f 43 2c 20 2d 31 2c 20 2d 31 2c *) k_C, -1, -1,
ada0: 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 0);...X509_NAME
adb0: 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 _add_entry_by_tx
adc0: 74 28 6e 61 6d 65 2c 22 53 54 22 2c 20 4d 42 53 t(name,"ST", MBS
add0: 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 TRING_ASC, (unsi
ade0: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 53 gned char *) k_S
adf0: 54 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 T, -1, -1, 0);..
ae00: 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 .X509_NAME_add_e
ae10: 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 ntry_by_txt(name
ae20: 2c 22 4c 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 ,"L", MBSTRING_A
ae30: 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 SC, (unsigned ch
ae40: 61 72 20 2a 29 20 6b 5f 4c 2c 20 2d 31 2c 20 2d ar *) k_L, -1, -
ae50: 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 1, 0);...X509_NA
ae60: 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f ME_add_entry_by_
ae70: 74 78 74 28 6e 61 6d 65 2c 22 4f 22 2c 20 4d 42 txt(name,"O", MB
ae80: 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 STRING_ASC, (uns
ae90: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f igned char *) k_
aea0: 4f 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 O, -1, -1, 0);..
aeb0: 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 .X509_NAME_add_e
aec0: 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 ntry_by_txt(name
aed0: 2c 22 4f 55 22 2c 20 4d 42 53 54 52 49 4e 47 5f ,"OU", MBSTRING_
aee0: 41 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 ASC, (unsigned c
aef0: 68 61 72 20 2a 29 20 6b 5f 4f 55 2c 20 2d 31 2c har *) k_OU, -1,
af00: 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f -1, 0);...X509_
af10: 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 NAME_add_entry_b
af20: 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43 4e 22 2c y_txt(name,"CN",
af30: 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 MBSTRING_ASC, (
af40: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
af50: 20 6b 5f 43 4e 2c 20 2d 31 2c 20 2d 31 2c 20 30 k_CN, -1, -1, 0
af60: 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 );...X509_NAME_a
af70: 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 dd_entry_by_txt(
af80: 6e 61 6d 65 2c 22 45 6d 61 69 6c 22 2c 20 4d 42 name,"Email", MB
af90: 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 STRING_ASC, (uns
afa0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f igned char *) k_
afb0: 45 6d 61 69 6c 2c 20 2d 31 2c 20 2d 31 2c 20 30 Email, -1, -1, 0
afc0: 29 3b 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 73 );....X509_set_s
afd0: 75 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 ubject_name(cert
afe0: 2c 6e 61 6d 65 29 3b 0a 0a 09 09 69 66 20 28 21 ,name);....if (!
aff0: 58 35 30 39 5f 73 69 67 6e 28 63 65 72 74 2c 70 X509_sign(cert,p
b000: 6b 65 79 2c 45 56 50 5f 6d 64 35 28 29 29 29 20 key,EVP_md5()))
b010: 7b 0a 09 09 20 20 20 20 58 35 30 39 5f 66 72 65 {... X509_fre
b020: 65 28 63 65 72 74 29 3b 0a 09 09 20 20 20 20 45 e(cert);... E
b030: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 VP_PKEY_free(pke
b040: 79 29 3b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 y);... Tcl_Se
b050: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 tResult(interp,"
b060: 45 72 72 6f 72 20 73 69 67 6e 69 6e 67 20 63 65 Error signing ce
b070: 72 74 69 66 69 63 61 74 65 22 2c 4e 55 4c 4c 29 rtificate",NULL)
b080: 3b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 ;... return T
b090: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 CL_ERROR;...}...
b0a0: 09 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f .out=BIO_new(BIO
b0b0: 5f 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 42 49 _s_file());...BI
b0c0: 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 O_write_filename
b0d0: 28 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 0a 09 (out,pemout);...
b0e0: 09 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 58 .PEM_write_bio_X
b0f0: 35 30 39 28 6f 75 74 2c 63 65 72 74 29 3b 0a 09 509(out,cert);..
b100: 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 .BIO_free_all(ou
b110: 74 29 3b 0a 0a 09 09 58 35 30 39 5f 66 72 65 65 t);....X509_free
b120: 28 63 65 72 74 29 3b 0a 09 09 45 56 50 5f 50 4b (cert);...EVP_PK
b130: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 EY_free(pkey);..
b140: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 } else {...T
b150: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 cl_SetResult(int
b160: 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 erp,"Error gener
b170: 61 74 69 6e 67 20 70 72 69 76 61 74 65 20 6b 65 ating private ke
b180: 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 y",NULL);...retu
b190: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 rn TCL_ERROR;..
b1a0: 20 20 20 7d 0a 09 7d 0a 09 62 72 65 61 6b 3b 0a }..}..break;.
b1b0: 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09 62 72 default:..br
b1c0: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 eak;. }. r
b1d0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
b1e0: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
b1f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a ----------. *. *
b230: 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 2a 0a Tls_Free --. *.
b240: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 *.This procedur
b250: 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65 6e e cleans up when
b260: 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62 61 a SSL socket ba
b270: 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09 69 sed channel. *.i
b280: 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74 73 s closed and its
b290: 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e 74 reference count
b2a0: 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 0a 20 falls below 1.
b2b0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
b2c0: 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 .none. *. * Side
b2d0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 effects:. *.Fre
b2e0: 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 74 65 es all the state
b2f0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
b300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f ---------. */.vo
b340: 69 64 0a 23 69 66 20 54 43 4c 5f 4d 41 4a 4f 52 id.#if TCL_MAJOR
b350: 5f 56 45 52 53 49 4f 4e 20 3e 20 38 0a 54 6c 73 _VERSION > 8.Tls
b360: 5f 46 72 65 65 28 20 76 6f 69 64 20 2a 62 6c 6f _Free( void *blo
b370: 63 6b 50 74 72 20 29 0a 23 65 6c 73 65 0a 54 6c ckPtr ).#else.Tl
b380: 73 5f 46 72 65 65 28 20 63 68 61 72 20 2a 62 6c s_Free( char *bl
b390: 6f 63 6b 50 74 72 20 29 0a 23 65 6e 64 69 66 0a ockPtr ).#endif.
b3a0: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 {. State *sta
b3b0: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a tePtr = (State *
b3c0: 29 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 )blockPtr;..
b3d0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
b3e0: 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 );.. Tls_Clea
b3f0: 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 n(statePtr);.
b400: 20 63 6b 66 72 65 65 28 62 6c 6f 63 6b 50 74 72 ckfree(blockPtr
b410: 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d );.}.../*. *----
b420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
b460: 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 61 6e 20 *. * Tls_Clean
b470: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
b480: 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 75 ocedure cleans u
b490: 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 p when a SSL soc
b4a0: 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 ket based channe
b4b0: 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 l. *.is closed a
b4c0: 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 65 nd its reference
b4d0: 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c count falls bel
b4e0: 6f 77 20 31 2e 20 20 54 68 69 73 20 73 68 6f 75 ow 1. This shou
b4f0: 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c 65 64 20 ld. *.be called
b500: 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 62 79 synchronously by
b510: 20 74 68 65 20 43 6c 6f 73 65 50 72 6f 63 2c 20 the CloseProc,
b520: 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a 09 45 76 not in the. *.Ev
b530: 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 63 61 6c entuallyFree cal
b540: 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65 73 lback.. *. * Res
b550: 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ults:. *.none. *
b560: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
b570: 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 :. *.Frees all t
b580: 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d he state. *. *--
b590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b5a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b5b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b5c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b5d0: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 54 6c 73 5f 43 -. */.void Tls_C
b5e0: 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 74 61 74 lean(State *stat
b5f0: 65 50 74 72 29 20 7b 0a 20 20 20 20 64 70 72 69 ePtr) {. dpri
b600: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
b610: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 77 65 /*. * we
b620: 27 72 65 20 61 73 73 75 6d 69 6e 67 20 68 65 72 're assuming her
b630: 65 20 74 68 61 74 20 77 65 27 72 65 20 73 69 6e e that we're sin
b640: 67 6c 65 2d 74 68 72 65 61 64 65 64 0a 20 20 20 gle-threaded.
b650: 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 */. if (sta
b660: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 tePtr->timer !=
b670: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
b680: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 NULL) {..Tcl_De
b690: 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 leteTimerHandler
b6a0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
b6b0: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 );..statePtr->ti
b6c0: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 mer = NULL;.
b6d0: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 }.. if (state
b6e0: 50 74 72 2d 3e 62 69 6f 29 20 7b 0a 09 2f 2a 20 Ptr->bio) {../*
b6f0: 54 68 69 73 20 77 69 6c 6c 20 63 61 6c 6c 20 53 This will call S
b700: 53 4c 5f 73 68 75 74 64 6f 77 6e 2e 20 42 75 67 SL_shutdown. Bug
b710: 20 31 34 31 34 30 34 35 20 2a 2f 0a 09 64 70 72 1414045 */..dpr
b720: 69 6e 74 66 28 22 42 49 4f 5f 66 72 65 65 5f 61 intf("BIO_free_a
b730: 6c 6c 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 ll(%p)", statePt
b740: 72 2d 3e 62 69 6f 29 3b 0a 09 42 49 4f 5f 66 72 r->bio);..BIO_fr
b750: 65 65 5f 61 6c 6c 28 73 74 61 74 65 50 74 72 2d ee_all(statePtr-
b760: 3e 62 69 6f 29 3b 0a 09 73 74 61 74 65 50 74 72 >bio);..statePtr
b770: 2d 3e 62 69 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 20 ->bio = NULL;.
b780: 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 }. if (stat
b790: 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 64 70 ePtr->ssl) {..dp
b7a0: 72 69 6e 74 66 28 22 53 53 4c 5f 66 72 65 65 28 rintf("SSL_free(
b7b0: 25 70 29 22 2c 20 73 74 61 74 65 50 74 72 2d 3e %p)", statePtr->
b7c0: 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 65 65 28 ssl);..SSL_free(
b7d0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a statePtr->ssl);.
b7e0: 09 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d .statePtr->ssl =
b7f0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL;. }.
b800: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 if (statePtr->c
b810: 74 78 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 tx) {..SSL_CTX_f
b820: 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63 74 ree(statePtr->ct
b830: 78 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 x);..statePtr->c
b840: 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d tx = NULL;. }
b850: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
b860: 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 7b 0a 09 r->callback) {..
b870: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
b880: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 (statePtr->callb
b890: 61 63 6b 29 3b 0a 09 73 74 61 74 65 50 74 72 2d ack);..statePtr-
b8a0: 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 4e 55 4c 4c >callback = NULL
b8b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
b8c0: 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f statePtr->passwo
b8d0: 72 64 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 rd) {..Tcl_DecrR
b8e0: 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 efCount(statePtr
b8f0: 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 73 74 ->password);..st
b900: 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 atePtr->password
b910: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a = NULL;. }..
b920: 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 dprintf("Ret
b930: 75 72 6e 69 6e 67 22 29 3b 0a 7d 0a 0c 0a 2f 2a urning");.}.../*
b940: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
b950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
b980: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
b990: 5f 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 _Init --. *. *.T
b9a0: 68 69 73 20 69 73 20 61 20 70 61 63 6b 61 67 65 his is a package
b9b0: 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 initialization
b9c0: 70 72 6f 63 65 64 75 72 65 2c 20 77 68 69 63 68 procedure, which
b9d0: 20 69 73 20 63 61 6c 6c 65 64 0a 20 2a 09 62 79 is called. *.by
b9e0: 20 54 63 6c 20 77 68 65 6e 20 74 68 69 73 20 70 Tcl when this p
b9f0: 61 63 6b 61 67 65 20 69 73 20 74 6f 20 62 65 20 ackage is to be
ba00: 61 64 64 65 64 20 74 6f 20 61 6e 20 69 6e 74 65 added to an inte
ba10: 72 70 72 65 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 rpreter.. *. * R
ba20: 65 73 75 6c 74 73 3a 20 20 53 73 6c 20 63 6f 6e esults: Ssl con
ba30: 66 69 67 75 72 65 64 20 61 6e 64 20 6c 6f 61 64 figured and load
ba40: 65 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ed. *. * Side ef
ba50: 66 65 63 74 73 3a 0a 20 2a 09 20 63 72 65 61 74 fects:. *. creat
ba60: 65 20 74 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e e the ssl comman
ba70: 64 2c 20 69 6e 69 74 69 61 6c 69 73 65 20 73 73 d, initialise ss
ba80: 6c 20 63 6f 6e 74 65 78 74 0a 20 2a 0a 20 2a 2d l context. *. *-
ba90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
baa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bad0: 2d 2d 0a 20 2a 2f 0a 0a 44 4c 4c 45 58 50 4f 52 --. */..DLLEXPOR
bae0: 54 20 69 6e 74 20 54 6c 73 5f 49 6e 69 74 28 54 T int Tls_Init(T
baf0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
bb00: 70 29 20 7b 0a 09 63 6f 6e 73 74 20 63 68 61 72 p) {..const char
bb10: 20 74 6c 73 54 63 6c 49 6e 69 74 53 63 72 69 70 tlsTclInitScrip
bb20: 74 5b 5d 20 3d 20 7b 0a 23 69 6e 63 6c 75 64 65 t[] = {.#include
bb30: 20 22 74 6c 73 2e 74 63 6c 2e 68 22 0a 20 20 20 "tls.tcl.h".
bb40: 20 20 20 20 20 20 20 20 20 30 78 30 30 0a 09 7d 0x00..}
bb50: 3b 0a 0a 20 20 20 20 20 20 20 20 64 70 72 69 6e ;.. dprin
bb60: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 tf("Called");...
bb70: 2f 2a 0a 09 20 2a 20 57 65 20 6f 6e 6c 79 20 73 /*.. * We only s
bb80: 75 70 70 6f 72 74 20 54 63 6c 20 38 2e 36 20 6f upport Tcl 8.6 o
bb90: 72 20 6e 65 77 65 72 0a 09 20 2a 2f 0a 09 69 66 r newer.. */..if
bba0: 20 28 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 (.#ifdef USE_TC
bbb0: 4c 5f 53 54 55 42 53 0a 09 20 20 20 20 54 63 6c L_STUBS.. Tcl
bbc0: 5f 49 6e 69 74 53 74 75 62 73 28 69 6e 74 65 72 _InitStubs(inter
bbd0: 70 2c 20 22 38 2e 36 2d 22 2c 20 30 29 0a 23 65 p, "8.6-", 0).#e
bbe0: 6c 73 65 0a 09 20 20 20 20 54 63 6c 5f 50 6b 67 lse.. Tcl_Pkg
bbf0: 52 65 71 75 69 72 65 28 69 6e 74 65 72 70 2c 20 Require(interp,
bc00: 22 54 63 6c 22 2c 20 22 38 2e 36 2d 22 2c 20 30 "Tcl", "8.6-", 0
bc10: 29 0a 23 65 6e 64 69 66 0a 09 20 20 20 20 20 3d ).#endif.. =
bc20: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 = NULL) {...retu
bc30: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d rn TCL_ERROR;..}
bc40: 0a 0a 09 69 66 20 28 54 6c 73 4c 69 62 49 6e 69 ...if (TlsLibIni
bc50: 74 28 30 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 t(0) != TCL_OK)
bc60: 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {...Tcl_AppendRe
bc70: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f sult(interp, "co
bc80: 75 6c 64 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 uld not initiali
bc90: 7a 65 20 53 53 4c 20 6c 69 62 72 61 72 79 22 2c ze SSL library",
bca0: 20 28 63 68 61 72 20 2a 29 4e 55 4c 4c 29 3b 0a (char *)NULL);.
bcb0: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
bcc0: 4f 52 3b 0a 09 7d 0a 0a 09 54 63 6c 5f 43 72 65 OR;..}...Tcl_Cre
bcd0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
bce0: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 terp, "tls::ciph
bcf0: 65 72 73 22 2c 20 43 69 70 68 65 72 73 4f 62 6a ers", CiphersObj
bd00: 43 6d 64 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 Cmd, NULL, 0);..
bd10: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
bd20: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
bd30: 73 3a 3a 68 61 6e 64 73 68 61 6b 65 22 2c 20 48 s::handshake", H
bd40: 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 2c 20 andshakeObjCmd,
bd50: 4e 55 4c 4c 2c 20 30 29 3b 0a 09 54 63 6c 5f 43 NULL, 0);..Tcl_C
bd60: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
bd70: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 69 6d interp, "tls::im
bd80: 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 4f 62 6a port", ImportObj
bd90: 43 6d 64 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 Cmd, NULL, 0);..
bda0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
bdb0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
bdc0: 73 3a 3a 75 6e 69 6d 70 6f 72 74 22 2c 20 55 6e s::unimport", Un
bdd0: 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c 20 4e 55 importObjCmd, NU
bde0: 4c 4c 2c 20 30 29 3b 0a 09 54 63 6c 5f 43 72 65 LL, 0);..Tcl_Cre
bdf0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
be00: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 74 61 74 terp, "tls::stat
be10: 75 73 22 2c 20 53 74 61 74 75 73 4f 62 6a 43 6d us", StatusObjCm
be20: 64 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 09 54 63 d, NULL, 0);..Tc
be30: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
be40: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
be50: 3a 76 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 :version", Versi
be60: 6f 6e 4f 62 6a 43 6d 64 2c 20 4e 55 4c 4c 2c 20 onObjCmd, NULL,
be70: 30 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 0);..Tcl_CreateO
be80: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
be90: 2c 20 22 74 6c 73 3a 3a 6d 69 73 63 22 2c 20 4d , "tls::misc", M
bea0: 69 73 63 4f 62 6a 43 6d 64 2c 20 4e 55 4c 4c 2c iscObjCmd, NULL,
beb0: 20 30 29 3b 0a 0a 09 69 66 20 28 69 6e 74 65 72 0);...if (inter
bec0: 70 29 20 7b 0a 09 09 54 63 6c 5f 45 76 61 6c 28 p) {...Tcl_Eval(
bed0: 69 6e 74 65 72 70 2c 20 74 6c 73 54 63 6c 49 6e interp, tlsTclIn
bee0: 69 74 53 63 72 69 70 74 29 3b 0a 09 7d 0a 0a 09 itScript);..}...
bef0: 72 65 74 75 72 6e 28 54 63 6c 5f 50 6b 67 50 72 return(Tcl_PkgPr
bf00: 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20 22 74 ovide(interp, "t
bf10: 6c 73 22 2c 20 50 41 43 4b 41 47 45 5f 56 45 52 ls", PACKAGE_VER
bf20: 53 49 4f 4e 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a SION));.}../*. *
bf30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bf40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bf50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bf60: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c ------*. *. *.Tl
bf70: 73 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0a 20 2a s_SafeInit --. *
bf80: 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *.------------
bf90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bfa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
bfb0: 2d 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e 64 61 72 ----*. *.Standar
bfc0: 64 20 70 72 6f 63 65 64 75 72 65 20 72 65 71 75 d procedure requ
bfd0: 69 72 65 64 20 62 79 20 27 6c 6f 61 64 27 2e 0a ired by 'load'..
bfe0: 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 74 *.Initializes t
bff0: 68 69 73 20 65 78 74 65 6e 73 69 6f 6e 20 66 6f his extension fo
c000: 72 20 61 20 73 61 66 65 20 69 6e 74 65 72 70 72 r a safe interpr
c010: 65 74 65 72 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d eter.. *.-------
c020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a ---------*. *. *
c050: 09 53 69 64 65 65 66 66 65 63 74 73 3a 0a 20 2a .Sideeffects:. *
c060: 09 09 41 73 20 6f 66 20 27 54 6c 73 5f 49 6e 69 ..As of 'Tls_Ini
c070: 74 27 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a t'. *. *.Result:
c080: 0a 20 2a 09 09 41 20 73 74 61 6e 64 61 72 64 20 . *..A standard
c090: 54 63 6c 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a Tcl error code..
c0a0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
c0b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c0d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f -----------*. */
c0e0: 0a 0a 44 4c 4c 45 58 50 4f 52 54 20 69 6e 74 20 ..DLLEXPORT int
c0f0: 54 6c 73 5f 53 61 66 65 49 6e 69 74 28 54 63 6c Tls_SafeInit(Tcl
c100: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
c110: 20 7b 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c {..dprintf("Cal
c120: 6c 65 64 22 29 3b 0a 09 72 65 74 75 72 6e 28 54 led");..return(T
c130: 6c 73 5f 49 6e 69 74 28 69 6e 74 65 72 70 29 29 ls_Init(interp))
c140: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
c150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c180: 2a 0a 20 2a 0a 20 2a 09 54 6c 73 4c 69 62 49 6e *. *. *.TlsLibIn
c190: 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d it --. *. *.----
c1a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c1b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c1c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a ------------*. *
c1d0: 09 49 6e 69 74 69 61 6c 69 7a 65 73 20 53 53 4c .Initializes SSL
c1e0: 20 6c 69 62 72 61 72 79 20 6f 6e 63 65 20 70 65 library once pe
c1f0: 72 20 61 70 70 6c 69 63 61 74 69 6f 6e 0a 20 2a r application. *
c200: 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .---------------
c210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c230: 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65 20 65 66 -*. *. *.Side ef
c240: 66 65 63 74 73 3a 0a 20 2a 09 09 69 6e 69 74 69 fects:. *..initi
c250: 6c 69 7a 65 73 20 53 53 4c 20 6c 69 62 72 61 72 lizes SSL librar
c260: 79 0a 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a y. *. *.Result:.
c270: 20 2a 09 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d *..none. *. *--
c280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c2a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
c2b0: 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 ----*. */.static
c2c0: 20 69 6e 74 20 54 6c 73 4c 69 62 49 6e 69 74 28 int TlsLibInit(
c2d0: 69 6e 74 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 int uninitialize
c2e0: 29 20 7b 0a 09 73 74 61 74 69 63 20 69 6e 74 20 ) {..static int
c2f0: 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 30 3b initialized = 0;
c300: 0a 09 69 6e 74 20 73 74 61 74 75 73 20 3d 20 54 ..int status = T
c310: 43 4c 5f 4f 4b 3b 0a 23 69 66 20 64 65 66 69 6e CL_OK;.#if defin
c320: 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 ed(OPENSSL_THREA
c330: 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 DS) && defined(T
c340: 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 73 69 7a CL_THREADS)..siz
c350: 65 5f 74 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 23 e_t num_locks;.#
c360: 65 6e 64 69 66 0a 0a 09 69 66 20 28 75 6e 69 6e endif...if (unin
c370: 69 74 69 61 6c 69 7a 65 29 20 7b 0a 09 09 69 66 itialize) {...if
c380: 20 28 21 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 (!initialized)
c390: 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 41 73 {....dprintf("As
c3a0: 6b 65 64 20 74 6f 20 75 6e 69 6e 69 74 69 61 6c ked to uninitial
c3b0: 69 7a 65 2c 20 62 75 74 20 77 65 20 61 72 65 20 ize, but we are
c3c0: 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 22 not initialized"
c3d0: 29 3b 0a 0a 09 09 09 72 65 74 75 72 6e 28 54 43 );.....return(TC
c3e0: 4c 5f 4f 4b 29 3b 0a 09 09 7d 0a 0a 09 09 64 70 L_OK);...}....dp
c3f0: 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 rintf("Asked to
c400: 75 6e 69 6e 69 74 69 61 6c 69 7a 65 22 29 3b 0a uninitialize");.
c410: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 .#if defined(OPE
c420: 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 NSSL_THREADS) &&
c430: 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 defined(TCL_THR
c440: 45 41 44 53 29 0a 09 09 54 63 6c 5f 4d 75 74 65 EADS)...Tcl_Mute
c450: 78 4c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b xLock(&init_mx);
c460: 0a 0a 09 09 43 52 59 50 54 4f 5f 73 65 74 5f 6c ....CRYPTO_set_l
c470: 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28 ocking_callback(
c480: 4e 55 4c 4c 29 3b 0a 09 09 43 52 59 50 54 4f 5f NULL);...CRYPTO_
c490: 73 65 74 5f 69 64 5f 63 61 6c 6c 62 61 63 6b 28 set_id_callback(
c4a0: 4e 55 4c 4c 29 3b 0a 0a 09 09 69 66 20 28 6c 6f NULL);....if (lo
c4b0: 63 6b 73 29 20 7b 0a 09 09 09 66 72 65 65 28 6c cks) {....free(l
c4c0: 6f 63 6b 73 29 3b 0a 09 09 09 6c 6f 63 6b 73 20 ocks);....locks
c4d0: 3d 20 4e 55 4c 4c 3b 0a 09 09 09 6c 6f 63 6b 73 = NULL;....locks
c4e0: 43 6f 75 6e 74 20 3d 20 30 3b 0a 09 09 7d 0a 23 Count = 0;...}.#
c4f0: 65 6e 64 69 66 0a 09 09 69 6e 69 74 69 61 6c 69 endif...initiali
c500: 7a 65 64 20 3d 20 30 3b 0a 0a 23 69 66 20 64 65 zed = 0;..#if de
c510: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 fined(OPENSSL_TH
c520: 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 READS) && define
c530: 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 d(TCL_THREADS)..
c540: 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b .Tcl_MutexUnlock
c550: 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 (&init_mx);.#end
c560: 69 66 0a 0a 09 09 72 65 74 75 72 6e 28 54 43 4c if....return(TCL
c570: 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 69 _OK);..}...if (i
c580: 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 nitialized) {...
c590: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 2c dprintf("Called,
c5a0: 20 62 75 74 20 75 73 69 6e 67 20 63 61 63 68 65 but using cache
c5b0: 64 20 76 61 6c 75 65 22 29 3b 0a 09 09 72 65 74 d value");...ret
c5c0: 75 72 6e 28 73 74 61 74 75 73 29 3b 0a 09 7d 0a urn(status);..}.
c5d0: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 ..dprintf("Calle
c5e0: 64 22 29 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 d");..#if define
c5f0: 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 d(OPENSSL_THREAD
c600: 53 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 S) && defined(TC
c610: 4c 5f 54 48 52 45 41 44 53 29 0a 09 54 63 6c 5f L_THREADS)..Tcl_
c620: 4d 75 74 65 78 4c 6f 63 6b 28 26 69 6e 69 74 5f MutexLock(&init_
c630: 6d 78 29 3b 0a 23 65 6e 64 69 66 0a 09 69 6e 69 mx);.#endif..ini
c640: 74 69 61 6c 69 7a 65 64 20 3d 20 31 3b 0a 0a 23 tialized = 1;..#
c650: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 if defined(OPENS
c660: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 SL_THREADS) && d
c670: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 efined(TCL_THREA
c680: 44 53 29 0a 09 6e 75 6d 5f 6c 6f 63 6b 73 20 3d DS)..num_locks =
c690: 20 43 52 59 50 54 4f 5f 6e 75 6d 5f 6c 6f 63 6b CRYPTO_num_lock
c6a0: 73 28 29 3b 0a 09 6c 6f 63 6b 73 43 6f 75 6e 74 s();..locksCount
c6b0: 20 3d 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 09 6c = num_locks;..l
c6c0: 6f 63 6b 73 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 ocks = malloc(si
c6d0: 7a 65 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e zeof(*locks) * n
c6e0: 75 6d 5f 6c 6f 63 6b 73 29 3b 0a 09 6d 65 6d 73 um_locks);..mems
c6f0: 65 74 28 6c 6f 63 6b 73 2c 20 30 2c 20 73 69 7a et(locks, 0, siz
c700: 65 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e 75 eof(*locks) * nu
c710: 6d 5f 6c 6f 63 6b 73 29 3b 0a 0a 09 43 52 59 50 m_locks);...CRYP
c720: 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 TO_set_locking_c
c730: 61 6c 6c 62 61 63 6b 28 43 72 79 70 74 6f 54 68 allback(CryptoTh
c740: 72 65 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b readLockCallback
c750: 29 3b 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f 69 );..CRYPTO_set_i
c760: 64 5f 63 61 6c 6c 62 61 63 6b 28 43 72 79 70 74 d_callback(Crypt
c770: 6f 54 68 72 65 61 64 49 64 43 61 6c 6c 62 61 63 oThreadIdCallbac
c780: 6b 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 69 66 20 k);.#endif...if
c790: 28 53 53 4c 5f 6c 69 62 72 61 72 79 5f 69 6e 69 (SSL_library_ini
c7a0: 74 28 29 20 21 3d 20 31 29 20 7b 0a 09 09 73 74 t() != 1) {...st
c7b0: 61 74 75 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 atus = TCL_ERROR
c7c0: 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 ;...goto done;..
c7d0: 7d 0a 0a 09 53 53 4c 5f 6c 6f 61 64 5f 65 72 72 }...SSL_load_err
c7e0: 6f 72 5f 73 74 72 69 6e 67 73 28 29 3b 0a 09 45 or_strings();..E
c7f0: 52 52 5f 6c 6f 61 64 5f 63 72 79 70 74 6f 5f 73 RR_load_crypto_s
c800: 74 72 69 6e 67 73 28 29 3b 0a 0a 09 42 49 4f 5f trings();...BIO_
c810: 6e 65 77 5f 74 63 6c 28 4e 55 4c 4c 2c 20 30 29 new_tcl(NULL, 0)
c820: 3b 0a 0a 64 6f 6e 65 3a 0a 23 69 66 20 64 65 66 ;..done:.#if def
c830: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 ined(OPENSSL_THR
c840: 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 EADS) && defined
c850: 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 54 (TCL_THREADS)..T
c860: 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28 26 cl_MutexUnlock(&
c870: 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 69 66 init_mx);.#endif
c880: 0a 0a 09 72 65 74 75 72 6e 28 73 74 61 74 75 73 ...return(status
c890: 29 3b 0a 7d 0a );.}.