TclTLS: Hex Artifact Content

Artifact 9adcbda92a3d24301474df6bb9eea08044b1e272b26aa01db875fbc9fd206bcc:

File tls.c — part of check-in [ba1403b62c] at 2023-04-23 03:34:19 on branch trunk — Use server cipher preference order. Source: https://sourceforge.net/p/tls/bugs/60/ and https://www.androwish.org/home/info/5718c3eb47cced4d and https://core.tcl-lang.org/tcltls/tktview/305ee10b86 (user: bohagan, size: 58860) [annotate] [blame] [check-ins using]
0000: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20  /*. * Copyright 
0010: 28 43 29 20 31 39 39 37 2d 31 39 39 39 20 4d 61  (C) 1997-1999 Ma
0020: 74 74 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40  tt Newman <matt@
0030: 6e 6f 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 20 2a  novadigm.com>. *
0040: 20 73 6f 6d 65 20 6d 6f 64 69 66 69 63 61 74 69   some modificati
0050: 6f 6e 73 3a 0a 20 2a 09 43 6f 70 79 72 69 67 68  ons:. *.Copyrigh
0060: 74 20 28 43 29 20 32 30 30 30 20 41 6a 75 62 61  t (C) 2000 Ajuba
0070: 20 53 6f 6c 75 74 69 6f 6e 73 0a 20 2a 09 43 6f   Solutions. *.Co
0080: 70 79 72 69 67 68 74 20 28 43 29 20 32 30 30 32  pyright (C) 2002
0090: 20 41 63 74 69 76 65 53 74 61 74 65 20 43 6f 72   ActiveState Cor
00a0: 70 6f 72 61 74 69 6f 6e 0a 20 2a 09 43 6f 70 79  poration. *.Copy
00b0: 72 69 67 68 74 20 28 43 29 20 32 30 30 34 20 53  right (C) 2004 S
00c0: 74 61 72 66 69 73 68 20 53 79 73 74 65 6d 73 20  tarfish Systems 
00d0: 0a 20 2a 0a 20 2a 20 54 4c 53 20 28 61 6b 61 20  . *. * TLS (aka 
00e0: 53 53 4c 29 20 43 68 61 6e 6e 65 6c 20 2d 20 63  SSL) Channel - c
00f0: 61 6e 20 62 65 20 6c 61 79 65 72 65 64 20 6f 6e  an be layered on
0100: 20 61 6e 79 20 62 69 2d 64 69 72 65 63 74 69 6f   any bi-directio
0110: 6e 61 6c 0a 20 2a 20 54 63 6c 5f 43 68 61 6e 6e  nal. * Tcl_Chann
0120: 65 6c 20 28 4e 6f 74 65 3a 20 52 65 71 75 69 72  el (Note: Requir
0130: 65 73 20 54 72 66 20 43 6f 72 65 20 50 61 74 63  es Trf Core Patc
0140: 68 29 0a 20 2a 0a 20 2a 20 54 68 69 73 20 77 61  h). *. * This wa
0150: 73 20 62 75 69 6c 74 20 28 61 6c 6d 6f 73 74 29  s built (almost)
0160: 20 66 72 6f 6d 20 73 63 72 61 74 63 68 20 62 61   from scratch ba
0170: 73 65 64 20 75 70 6f 6e 20 6f 62 73 65 72 76 61  sed upon observa
0180: 74 69 6f 6e 20 6f 66 0a 20 2a 20 4f 70 65 6e 53  tion of. * OpenS
0190: 53 4c 20 30 2e 39 2e 32 42 0a 20 2a 0a 20 2a 20  SL 0.9.2B. *. * 
01a0: 41 64 64 69 74 69 6f 6e 20 63 72 65 64 69 74 20  Addition credit 
01b0: 69 73 20 64 75 65 20 66 6f 72 20 41 6e 64 72 65  is due for Andre
01c0: 61 73 20 4b 75 70 72 69 65 73 20 28 61 2e 6b 75  as Kupries (a.ku
01d0: 70 72 69 65 73 40 77 65 73 74 65 6e 64 2e 63 6f  pries@westend.co
01e0: 6d 29 2c 20 66 6f 72 0a 20 2a 20 70 72 6f 76 69  m), for. * provi
01f0: 64 69 6e 67 20 74 68 65 20 54 63 6c 5f 52 65 70  ding the Tcl_Rep
0200: 6c 61 63 65 43 68 61 6e 6e 65 6c 20 6d 65 63 68  laceChannel mech
0210: 61 6e 69 73 6d 20 61 6e 64 20 77 6f 72 6b 69 6e  anism and workin
0220: 67 20 63 6c 6f 73 65 6c 79 20 77 69 74 68 20 6d  g closely with m
0230: 65 0a 20 2a 20 74 6f 20 65 6e 68 61 6e 63 65 20  e. * to enhance 
0240: 69 74 20 74 6f 20 73 75 70 70 6f 72 74 20 66 75  it to support fu
0250: 6c 6c 20 66 69 6c 65 65 76 65 6e 74 20 73 65 6d  ll fileevent sem
0260: 61 6e 74 69 63 73 2e 0a 20 2a 0a 20 2a 20 41 6c  antics.. *. * Al
0270: 73 6f 20 77 6f 72 6b 20 64 6f 6e 65 20 62 79 20  so work done by 
0280: 74 68 65 20 66 6f 6c 6c 6f 77 20 70 65 6f 70 6c  the follow peopl
0290: 65 20 70 72 6f 76 69 64 65 64 20 74 68 65 20 69  e provided the i
02a0: 6d 70 65 74 75 73 20 74 6f 20 64 6f 20 74 68 69  mpetus to do thi
02b0: 73 20 22 72 69 67 68 74 22 3a 0a 20 2a 09 74 63  s "right":. *.tc
02c0: 6c 53 53 4c 20 28 43 6f 6c 69 6e 20 4d 63 43 6f  lSSL (Colin McCo
02d0: 72 6d 61 63 6b 2c 20 53 68 61 72 65 64 20 54 65  rmack, Shared Te
02e0: 63 68 6e 6f 6c 6f 67 79 29 0a 20 2a 09 53 53 4c  chnology). *.SSL
02f0: 74 63 6c 20 28 50 65 74 65 72 20 41 6e 74 6d 61  tcl (Peter Antma
0300: 6e 29 0a 20 2a 0a 20 2a 2f 0a 0a 23 69 6e 63 6c  n). *. */..#incl
0310: 75 64 65 20 22 74 6c 73 49 6e 74 2e 68 22 0a 23  ude "tlsInt.h".#
0320: 69 6e 63 6c 75 64 65 20 22 74 63 6c 4f 70 74 73  include "tclOpts
0330: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74  .h".#include <st
0340: 64 69 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  dio.h>.#include 
0350: 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c  <stdlib.h>.#incl
0360: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 72 73 61  ude <openssl/rsa
0370: 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 45 78 74 65 72  .h>../*. * Exter
0380: 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 73 0a 20 2a  nal functions. *
0390: 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72 77 61 72 64  /../*. * Forward
03a0: 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 0a 20 2a   declarations. *
03b0: 2f 0a 0a 23 64 65 66 69 6e 65 20 46 32 4e 28 20  /..#define F2N( 
03c0: 6b 65 79 2c 20 64 73 70 29 20 5c 0a 09 28 28 28  key, dsp) \..(((
03d0: 6b 65 79 29 20 3d 3d 20 4e 55 4c 4c 29 20 3f 20  key) == NULL) ? 
03e0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 20 3a 20  (char *) NULL : 
03f0: 5c 0a 09 09 54 63 6c 5f 54 72 61 6e 73 6c 61 74  \...Tcl_Translat
0400: 65 46 69 6c 65 4e 61 6d 65 28 69 6e 74 65 72 70  eFileName(interp
0410: 2c 20 28 6b 65 79 29 2c 20 28 64 73 70 29 29 29  , (key), (dsp)))
0420: 0a 23 64 65 66 69 6e 65 20 52 45 41 53 4f 4e 28  .#define REASON(
0430: 29 09 45 52 52 5f 72 65 61 73 6f 6e 5f 65 72 72  ).ERR_reason_err
0440: 6f 72 5f 73 74 72 69 6e 67 28 45 52 52 5f 67 65  or_string(ERR_ge
0450: 74 5f 65 72 72 6f 72 28 29 29 0a 0a 73 74 61 74  t_error())..stat
0460: 69 63 20 53 53 4c 5f 43 54 58 20 2a 43 54 58 5f  ic SSL_CTX *CTX_
0470: 49 6e 69 74 28 53 74 61 74 65 20 2a 73 74 61 74  Init(State *stat
0480: 65 50 74 72 2c 20 69 6e 74 20 69 73 53 65 72 76  ePtr, int isServ
0490: 65 72 2c 20 69 6e 74 20 70 72 6f 74 6f 2c 20 63  er, int proto, c
04a0: 68 61 72 20 2a 6b 65 79 2c 0a 09 09 09 63 68 61  har *key,....cha
04b0: 72 20 2a 63 65 72 74 66 69 6c 65 2c 20 75 6e 73  r *certfile, uns
04c0: 69 67 6e 65 64 20 63 68 61 72 20 2a 6b 65 79 5f  igned char *key_
04d0: 61 73 6e 31 2c 20 75 6e 73 69 67 6e 65 64 20 63  asn1, unsigned c
04e0: 68 61 72 20 2a 63 65 72 74 5f 61 73 6e 31 2c 0a  har *cert_asn1,.
04f0: 09 09 09 69 6e 74 20 6b 65 79 5f 61 73 6e 31 5f  ...int key_asn1_
0500: 6c 65 6e 2c 20 69 6e 74 20 63 65 72 74 5f 61 73  len, int cert_as
0510: 6e 31 5f 6c 65 6e 2c 20 63 68 61 72 20 2a 43 41  n1_len, char *CA
0520: 64 69 72 2c 20 63 68 61 72 20 2a 43 41 66 69 6c  dir, char *CAfil
0530: 65 2c 0a 20 20 20 20 20 20 63 68 61 72 20 2a 63  e,.      char *c
0540: 69 70 68 65 72 73 2c 20 63 68 61 72 20 2a 44 48  iphers, char *DH
0550: 70 61 72 61 6d 73 29 3b 0a 0a 73 74 61 74 69 63  params);..static
0560: 20 69 6e 74 09 54 6c 73 4c 69 62 49 6e 69 74 28   int.TlsLibInit(
0570: 69 6e 74 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65  int uninitialize
0580: 29 3b 0a 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f  );..#define TLS_
0590: 50 52 4f 54 4f 5f 53 53 4c 32 09 09 30 78 30 31  PROTO_SSL2..0x01
05a0: 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f  .#define TLS_PRO
05b0: 54 4f 5f 53 53 4c 33 09 09 30 78 30 32 0a 23 64  TO_SSL3..0x02.#d
05c0: 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f  efine TLS_PROTO_
05d0: 54 4c 53 31 09 09 30 78 30 34 0a 23 64 65 66 69  TLS1..0x04.#defi
05e0: 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53  ne TLS_PROTO_TLS
05f0: 31 5f 31 09 30 78 30 38 0a 23 64 65 66 69 6e 65  1_1.0x08.#define
0600: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f   TLS_PROTO_TLS1_
0610: 32 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 54  2.0x10.#define T
0620: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 09  LS_PROTO_TLS1_3.
0630: 30 78 32 30 0a 23 64 65 66 69 6e 65 20 45 4e 41  0x20.#define ENA
0640: 42 4c 45 44 28 66 6c 61 67 2c 20 6d 61 73 6b 29  BLED(flag, mask)
0650: 09 28 28 28 66 6c 61 67 29 20 26 20 28 6d 61 73  .(((flag) & (mas
0660: 6b 29 29 20 3d 3d 20 28 6d 61 73 6b 29 29 0a 0a  k)) == (mask))..
0670: 23 64 65 66 69 6e 65 20 53 53 4c 4b 45 59 4c 4f  #define SSLKEYLO
0680: 47 46 49 4c 45 09 09 22 53 53 4c 4b 45 59 4c 4f  GFILE.."SSLKEYLO
0690: 47 46 49 4c 45 22 0a 0a 2f 2a 0a 20 2a 20 53 74  GFILE"../*. * St
06a0: 61 74 69 63 20 64 61 74 61 20 73 74 72 75 63 74  atic data struct
06b0: 75 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65  ures. */..#ifnde
06c0: 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44 48 0a  f OPENSSL_NO_DH.
06d0: 23 69 6e 63 6c 75 64 65 20 22 64 68 5f 70 61 72  #include "dh_par
06e0: 61 6d 73 2e 68 22 0a 23 65 6e 64 69 66 0a 0a 2f  ams.h".#endif../
06f0: 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 74 68 65  *. * We lose the
0700: 20 74 63 6c 20 70 61 73 73 77 6f 72 64 20 63 61   tcl password ca
0710: 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 65 20 75  llback when we u
0720: 73 65 20 74 68 65 20 52 53 41 20 42 53 41 46 45  se the RSA BSAFE
0730: 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a 20 2a 20   SSL-C 1.1.2. * 
0740: 6c 69 62 72 61 72 69 65 73 20 69 6e 73 74 65 61  libraries instea
0750: 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74  d of the current
0760: 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 61 72 69   OpenSSL librari
0770: 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 65 66 20  es.. */..#ifdef 
0780: 42 53 41 46 45 0a 23 64 65 66 69 6e 65 20 50 52  BSAFE.#define PR
0790: 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34 20  E_OPENSSL_0_9_4 
07a0: 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20  1.#endif../*. * 
07b0: 50 72 65 20 4f 70 65 6e 53 53 4c 20 30 2e 39 2e  Pre OpenSSL 0.9.
07c0: 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a 0a 23 69  4 Compat. */..#i
07d0: 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f 46 0a 23  fndef STACK_OF.#
07e0: 64 65 66 69 6e 65 20 53 54 41 43 4b 5f 4f 46 28  define STACK_OF(
07f0: 78 29 09 09 09 53 54 41 43 4b 0a 23 64 65 66 69  x)...STACK.#defi
0800: 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52  ne sk_SSL_CIPHER
0810: 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f 6e 75 6d  _num(sk)..sk_num
0820: 28 28 73 6b 29 29 0a 23 64 65 66 69 6e 65 20 73  ((sk)).#define s
0830: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c  k_SSL_CIPHER_val
0840: 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 09 28  ue( sk, index).(
0850: 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 6b 5f 76  SSL_CIPHER*)sk_v
0860: 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 6e 64 65  alue((sk), (inde
0870: 78 29 29 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20  x)).#endif../*. 
0880: 2a 20 54 68 72 65 61 64 2d 53 61 66 65 20 54 4c  * Thread-Safe TL
0890: 53 20 43 6f 64 65 0a 20 2a 2f 0a 0a 23 69 66 64  S Code. */..#ifd
08a0: 65 66 20 54 43 4c 5f 54 48 52 45 41 44 53 0a 23  ef TCL_THREADS.#
08b0: 64 65 66 69 6e 65 20 4f 50 45 4e 53 53 4c 5f 54  define OPENSSL_T
08c0: 48 52 45 41 44 5f 44 45 46 49 4e 45 53 0a 23 69  HREAD_DEFINES.#i
08d0: 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f  nclude <openssl/
08e0: 6f 70 65 6e 73 73 6c 63 6f 6e 66 2e 68 3e 0a 0a  opensslconf.h>..
08f0: 23 69 66 64 65 66 20 4f 50 45 4e 53 53 4c 5f 54  #ifdef OPENSSL_T
0900: 48 52 45 41 44 53 0a 23 69 6e 63 6c 75 64 65 20  HREADS.#include 
0910: 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 70 74 6f 2e  <openssl/crypto.
0920: 68 3e 0a 2f 2a 20 41 64 64 65 64 20 2a 2f 0a 23  h>./* Added */.#
0930: 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c  include <openssl
0940: 2f 73 73 6c 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 54  /ssl.h>../*. * T
0950: 68 72 65 61 64 65 64 20 6f 70 65 72 61 74 69 6f  hreaded operatio
0960: 6e 20 72 65 71 75 69 72 65 73 20 6c 6f 63 6b 69  n requires locki
0970: 6e 67 20 63 61 6c 6c 62 61 63 6b 73 0a 20 2a 20  ng callbacks. * 
0980: 42 61 73 65 64 20 66 72 6f 6d 20 2f 63 72 79 70  Based from /cryp
0990: 74 6f 2f 63 72 79 70 74 6c 69 62 2e 63 20 6f 66  to/cryptlib.c of
09a0: 20 4f 70 65 6e 53 53 4c 20 61 6e 64 20 4e 53 4f   OpenSSL and NSO
09b0: 70 65 6e 53 53 4c 2e 0a 20 2a 2f 0a 0a 73 74 61  penSSL.. */..sta
09c0: 74 69 63 20 54 63 6c 5f 4d 75 74 65 78 20 2a 6c  tic Tcl_Mutex *l
09d0: 6f 63 6b 73 20 3d 20 4e 55 4c 4c 3b 0a 73 74 61  ocks = NULL;.sta
09e0: 74 69 63 20 69 6e 74 20 6c 6f 63 6b 73 43 6f 75  tic int locksCou
09f0: 6e 74 20 3d 20 30 3b 0a 73 74 61 74 69 63 20 54  nt = 0;.static T
0a00: 63 6c 5f 4d 75 74 65 78 20 69 6e 69 74 5f 6d 78  cl_Mutex init_mx
0a10: 3b 0a 0a 23 20 69 66 20 4f 50 45 4e 53 53 4c 5f  ;..# if OPENSSL_
0a20: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c  VERSION_NUMBER <
0a30: 20 30 78 31 30 31 30 30 30 30 30 4c 0a 0a 76 6f   0x10100000L..vo
0a40: 69 64 20 43 72 79 70 74 6f 54 68 72 65 61 64 4c  id CryptoThreadL
0a50: 6f 63 6b 43 61 6c 6c 62 61 63 6b 28 69 6e 74 20  ockCallback(int 
0a60: 6d 6f 64 65 2c 20 69 6e 74 20 6e 2c 20 63 6f 6e  mode, int n, con
0a70: 73 74 20 63 68 61 72 20 2a 66 69 6c 65 2c 20 69  st char *file, i
0a80: 6e 74 20 6c 69 6e 65 29 20 7b 0a 0a 09 69 66 20  nt line) {...if 
0a90: 28 6d 6f 64 65 20 26 20 43 52 59 50 54 4f 5f 4c  (mode & CRYPTO_L
0aa0: 4f 43 4b 29 20 7b 0a 09 09 2f 2a 20 54 68 69 73  OCK) {.../* This
0ab0: 20 64 65 62 75 67 67 69 6e 67 20 69 73 20 74 75   debugging is tu
0ac0: 72 6e 65 64 20 6f 66 66 20 62 79 20 64 65 66 61  rned off by defa
0ad0: 75 6c 74 20 2d 2d 20 69 74 27 73 20 74 6f 6f 20  ult -- it's too 
0ae0: 6e 6f 69 73 79 2e 20 2a 2f 0a 09 09 2f 2a 20 64  noisy. */.../* d
0af0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20 74  printf("Called t
0b00: 6f 20 6c 6f 63 6b 20 28 6e 3d 25 69 20 6f 66 20  o lock (n=%i of 
0b10: 25 69 29 22 2c 20 6e 2c 20 6c 6f 63 6b 73 43 6f  %i)", n, locksCo
0b20: 75 6e 74 29 3b 20 2a 2f 0a 09 09 54 63 6c 5f 4d  unt); */...Tcl_M
0b30: 75 74 65 78 4c 6f 63 6b 28 26 6c 6f 63 6b 73 5b  utexLock(&locks[
0b40: 6e 5d 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09  n]);..} else {..
0b50: 09 2f 2a 20 64 70 72 69 6e 74 66 28 22 43 61 6c  ./* dprintf("Cal
0b60: 6c 65 64 20 74 6f 20 75 6e 6c 6f 63 6b 20 28 6e  led to unlock (n
0b70: 3d 25 69 20 6f 66 20 25 69 29 22 2c 20 6e 2c 20  =%i of %i)", n, 
0b80: 6c 6f 63 6b 73 43 6f 75 6e 74 29 3b 20 2a 2f 0a  locksCount); */.
0b90: 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63  ..Tcl_MutexUnloc
0ba0: 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a 09 7d  k(&locks[n]);..}
0bb0: 0a 0a 09 2f 2a 20 64 70 72 69 6e 74 66 28 22 52  .../* dprintf("R
0bc0: 65 74 75 72 6e 69 6e 67 22 29 3b 20 2a 2f 0a 0a  eturning"); */..
0bd0: 09 72 65 74 75 72 6e 3b 0a 09 66 69 6c 65 20 3d  .return;..file =
0be0: 20 66 69 6c 65 3b 0a 09 6c 69 6e 65 20 3d 20 6c   file;..line = l
0bf0: 69 6e 65 3b 0a 7d 0a 0a 75 6e 73 69 67 6e 65 64  ine;.}..unsigned
0c00: 20 6c 6f 6e 67 20 43 72 79 70 74 6f 54 68 72 65   long CryptoThre
0c10: 61 64 49 64 43 61 6c 6c 62 61 63 6b 28 76 6f 69  adIdCallback(voi
0c20: 64 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20 6c  d) {..unsigned l
0c30: 6f 6e 67 20 72 65 74 3b 0a 0a 09 64 70 72 69 6e  ong ret;...dprin
0c40: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09  tf("Called");...
0c50: 72 65 74 20 3d 20 28 75 6e 73 69 67 6e 65 64 20  ret = (unsigned 
0c60: 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 43 75 72  long) Tcl_GetCur
0c70: 72 65 6e 74 54 68 72 65 61 64 28 29 3b 0a 0a 09  rentThread();...
0c80: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69  dprintf("Returni
0c90: 6e 67 20 25 6c 75 22 2c 20 72 65 74 29 3b 0a 0a  ng %lu", ret);..
0ca0: 09 72 65 74 75 72 6e 28 72 65 74 29 3b 0a 7d 0a  .return(ret);.}.
0cb0: 23 65 6e 64 69 66 0a 23 65 6e 64 69 66 20 2f 2a  #endif.#endif /*
0cc0: 20 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53   OPENSSL_THREADS
0cd0: 20 2a 2f 0a 23 65 6e 64 69 66 20 2f 2a 20 54 43   */.#endif /* TC
0ce0: 4c 5f 54 48 52 45 41 44 53 20 2a 2f 0a 0a 0c 0a  L_THREADS */....
0cf0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
0d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 49  --------. *. * I
0d40: 6e 66 6f 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20  nfoCallback --. 
0d50: 2a 0a 20 2a 09 6d 6f 6e 69 74 6f 72 73 20 53 53  *. *.monitors SS
0d60: 4c 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 70 72 6f  L connection pro
0d70: 63 65 73 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  cess. *. * Resul
0d80: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20  ts:. *.None. *. 
0d90: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
0da0: 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62 61 63   *.Calls callbac
0db0: 6b 20 28 69 66 20 64 65 66 69 6e 65 64 29 0a 20  k (if defined). 
0dc0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0e00: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20  ----. */.static 
0e10: 76 6f 69 64 0a 49 6e 66 6f 43 61 6c 6c 62 61 63  void.InfoCallbac
0e20: 6b 28 63 6f 6e 73 74 20 53 53 4c 20 2a 73 73 6c  k(const SSL *ssl
0e30: 2c 20 69 6e 74 20 77 68 65 72 65 2c 20 69 6e 74  , int where, int
0e40: 20 72 65 74 29 20 7b 0a 20 20 20 20 53 74 61 74   ret) {.    Stat
0e50: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53  e *statePtr = (S
0e60: 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f 61 70  tate*)SSL_get_ap
0e70: 70 5f 64 61 74 61 28 28 53 53 4c 20 2a 29 73 73  p_data((SSL *)ss
0e80: 6c 29 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20  l);.    Tcl_Obj 
0e90: 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 63 68 61  *cmdPtr;.    cha
0ea0: 72 20 2a 6d 61 6a 6f 72 3b 20 63 68 61 72 20 2a  r *major; char *
0eb0: 6d 69 6e 6f 72 3b 0a 0a 20 20 20 20 64 70 72 69  minor;..    dpri
0ec0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a  ntf("Called");..
0ed0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72      if (statePtr
0ee0: 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54  ->callback == (T
0ef0: 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 0a 09 72  cl_Obj*)NULL)..r
0f00: 65 74 75 72 6e 3b 0a 0a 20 20 20 20 63 6d 64 50  eturn;..    cmdP
0f10: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61  tr = Tcl_Duplica
0f20: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e  teObj(statePtr->
0f30: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 20  callback);..#if 
0f40: 30 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 20  0.    if (where 
0f50: 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52 54 29 20  & SSL_CB_ALERT) 
0f60: 7b 0a 09 73 65 76 20 3d 20 53 53 4c 5f 61 6c 65  {..sev = SSL_ale
0f70: 72 74 5f 74 79 70 65 5f 73 74 72 69 6e 67 5f 6c  rt_type_string_l
0f80: 6f 6e 67 28 72 65 74 29 3b 0a 09 69 66 20 28 73  ong(ret);..if (s
0f90: 74 72 63 6d 70 28 20 73 65 76 2c 20 22 66 61 74  trcmp( sev, "fat
0fa0: 61 6c 22 29 3d 3d 30 29 20 7b 09 2f 2a 20 4d 61  al")==0) {./* Ma
0fb0: 70 20 74 6f 20 65 72 72 6f 72 20 2a 2f 0a 09 20  p to error */.. 
0fc0: 20 20 20 54 6c 73 5f 45 72 72 6f 72 28 73 74 61     Tls_Error(sta
0fd0: 74 65 50 74 72 2c 20 53 53 4c 5f 45 52 52 4f 52  tePtr, SSL_ERROR
0fe0: 28 73 73 6c 2c 20 30 29 29 3b 0a 09 20 20 20 20  (ssl, 0));..    
0ff0: 72 65 74 75 72 6e 3b 0a 09 7d 0a 20 20 20 20 7d  return;..}.    }
1000: 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28  .#endif.    if (
1010: 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 48  where & SSL_CB_H
1020: 41 4e 44 53 48 41 4b 45 5f 53 54 41 52 54 29 20  ANDSHAKE_START) 
1030: 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61 6e 64  {..major = "hand
1040: 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72 20 3d  shake";..minor =
1050: 20 22 73 74 61 72 74 22 3b 0a 20 20 20 20 7d 20   "start";.    } 
1060: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26  else if (where &
1070: 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41 4b   SSL_CB_HANDSHAK
1080: 45 5f 44 4f 4e 45 29 20 7b 0a 09 6d 61 6a 6f 72  E_DONE) {..major
1090: 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22 3b 0a   = "handshake";.
10a0: 09 6d 69 6e 6f 72 20 3d 20 22 64 6f 6e 65 22 3b  .minor = "done";
10b0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69  .    } else {..i
10c0: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43  f (where & SSL_C
10d0: 42 5f 41 4c 45 52 54 29 09 09 6d 61 6a 6f 72 20  B_ALERT)..major 
10e0: 3d 20 22 61 6c 65 72 74 22 3b 0a 09 65 6c 73 65  = "alert";..else
10f0: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c   if (where & SSL
1100: 5f 53 54 5f 43 4f 4e 4e 45 43 54 29 09 6d 61 6a  _ST_CONNECT).maj
1110: 6f 72 20 3d 20 22 63 6f 6e 6e 65 63 74 22 3b 0a  or = "connect";.
1120: 09 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20  .else if (where 
1130: 26 20 53 53 4c 5f 53 54 5f 41 43 43 45 50 54 29  & SSL_ST_ACCEPT)
1140: 09 09 6d 61 6a 6f 72 20 3d 20 22 61 63 63 65 70  ..major = "accep
1150: 74 22 3b 0a 09 65 6c 73 65 09 09 09 09 09 6d 61  t";..else.....ma
1160: 6a 6f 72 20 3d 20 22 75 6e 6b 6e 6f 77 6e 22 3b  jor = "unknown";
1170: 0a 0a 09 69 66 20 28 77 68 65 72 65 20 26 20 53  ...if (where & S
1180: 53 4c 5f 43 42 5f 52 45 41 44 29 09 09 6d 69 6e  SL_CB_READ)..min
1190: 6f 72 20 3d 20 22 72 65 61 64 22 3b 0a 09 65 6c  or = "read";..el
11a0: 73 65 20 69 66 20 28 77 68 65 72 65 20 26 20 53  se if (where & S
11b0: 53 4c 5f 43 42 5f 57 52 49 54 45 29 09 09 6d 69  SL_CB_WRITE)..mi
11c0: 6e 6f 72 20 3d 20 22 77 72 69 74 65 22 3b 0a 09  nor = "write";..
11d0: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26  else if (where &
11e0: 20 53 53 4c 5f 43 42 5f 4c 4f 4f 50 29 09 09 6d   SSL_CB_LOOP)..m
11f0: 69 6e 6f 72 20 3d 20 22 6c 6f 6f 70 22 3b 0a 09  inor = "loop";..
1200: 65 6c 73 65 20 69 66 20 28 77 68 65 72 65 20 26  else if (where &
1210: 20 53 53 4c 5f 43 42 5f 45 58 49 54 29 09 09 6d   SSL_CB_EXIT)..m
1220: 69 6e 6f 72 20 3d 20 22 65 78 69 74 22 3b 0a 09  inor = "exit";..
1230: 65 6c 73 65 09 09 09 09 09 6d 69 6e 6f 72 20 3d  else.....minor =
1240: 20 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 20 20 20 20   "unknown";.    
1250: 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f  }..    Tcl_ListO
1260: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
1270: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72   statePtr->inter
1280: 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20  p, cmdPtr, ..   
1290: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
12a0: 6a 28 20 22 69 6e 66 6f 22 2c 20 2d 31 29 29 3b  j( "info", -1));
12b0: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ..    Tcl_ListOb
12c0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20  jAppendElement( 
12d0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70  statePtr->interp
12e0: 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20  , cmdPtr, ..    
12f0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
1300: 28 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  ( Tcl_GetChannel
1310: 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73  Name(statePtr->s
1320: 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20  elf), -1) );..  
1330: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
1340: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74  endElement( stat
1350: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d  ePtr->interp, cm
1360: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e  dPtr,..    Tcl_N
1370: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 6d 61 6a  ewStringObj( maj
1380: 6f 72 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20  or, -1) );..    
1390: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
13a0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50  dElement( stateP
13b0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50  tr->interp, cmdP
13c0: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77  tr,..    Tcl_New
13d0: 53 74 72 69 6e 67 4f 62 6a 28 20 6d 69 6e 6f 72  StringObj( minor
13e0: 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20 20 69 66  , -1) );..    if
13f0: 20 28 77 68 65 72 65 20 26 20 28 53 53 4c 5f 43   (where & (SSL_C
1400: 42 5f 4c 4f 4f 50 7c 53 53 4c 5f 43 42 5f 45 58  B_LOOP|SSL_CB_EX
1410: 49 54 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74  IT)) {..Tcl_List
1420: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
1430: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  ( statePtr->inte
1440: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20  rp, cmdPtr,..   
1450: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
1460: 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 74 72  j( SSL_state_str
1470: 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20 2d  ing_long(ssl), -
1480: 31 29 20 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65  1) );.    } else
1490: 20 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c   if (where & SSL
14a0: 5f 43 42 5f 41 4c 45 52 54 29 20 7b 0a 09 63 6f  _CB_ALERT) {..co
14b0: 6e 73 74 20 63 68 61 72 20 2a 63 70 20 3d 20 28  nst char *cp = (
14c0: 63 68 61 72 20 2a 29 20 53 53 4c 5f 61 6c 65 72  char *) SSL_aler
14d0: 74 5f 64 65 73 63 5f 73 74 72 69 6e 67 5f 6c 6f  t_desc_string_lo
14e0: 6e 67 28 72 65 74 29 3b 0a 0a 09 54 63 6c 5f 4c  ng(ret);...Tcl_L
14f0: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d  istObjAppendElem
1500: 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69  ent( statePtr->i
1510: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09  nterp, cmdPtr,..
1520: 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e      Tcl_NewStrin
1530: 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20 29 3b  gObj( cp, -1) );
1540: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54  .    } else {..T
1550: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
1560: 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50 74  Element( statePt
1570: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74  r->interp, cmdPt
1580: 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53  r,..    Tcl_NewS
1590: 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c 5f 73 74  tringObj( SSL_st
15a0: 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28  ate_string_long(
15b0: 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a 20 20 20  ssl), -1) );.   
15c0: 20 7d 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65   }.    Tcl_Prese
15d0: 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61  rve( (ClientData
15e0: 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  ) statePtr->inte
15f0: 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65  rp);.    Tcl_Pre
1600: 73 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61  serve( (ClientDa
1610: 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a  ta) statePtr);..
1620: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43      Tcl_IncrRefC
1630: 6f 75 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 20  ount( cmdPtr);. 
1640: 20 20 20 28 76 6f 69 64 29 20 54 63 6c 5f 45 76     (void) Tcl_Ev
1650: 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50 74 72  alObjEx(statePtr
1660: 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72  ->interp, cmdPtr
1670: 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41  , TCL_EVAL_GLOBA
1680: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 44 65 63 72  L);.    Tcl_Decr
1690: 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74 72  RefCount( cmdPtr
16a0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65  );..    Tcl_Rele
16b0: 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61  ase( (ClientData
16c0: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20  ) statePtr);.   
16d0: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43   Tcl_Release( (C
16e0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65  lientData) state
16f0: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 7d  Ptr->interp);..}
1700: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
1710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
1750: 2a 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63 6b  * VerifyCallback
1760: 20 2d 2d 0a 20 2a 0a 20 2a 09 4d 6f 6e 69 74 6f   --. *. *.Monito
1770: 72 73 20 53 53 4c 20 63 65 72 74 69 66 69 63 61  rs SSL certifica
1780: 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 20 70 72  te validation pr
1790: 6f 63 65 73 73 2e 0a 20 2a 09 54 68 69 73 20 69  ocess.. *.This i
17a0: 73 20 63 61 6c 6c 65 64 20 77 68 65 6e 65 76 65  s called wheneve
17b0: 72 20 61 20 63 65 72 74 69 66 69 63 61 74 65 20  r a certificate 
17c0: 69 73 20 69 6e 73 70 65 63 74 65 64 0a 20 2a 09  is inspected. *.
17d0: 6f 72 20 64 65 63 69 64 65 64 20 69 6e 76 61 6c  or decided inval
17e0: 69 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  id.. *. * Result
17f0: 73 3a 0a 20 2a 09 41 20 63 61 6c 6c 62 61 63 6b  s:. *.A callback
1800: 20 62 6f 75 6e 64 20 74 6f 20 74 68 65 20 73 6f   bound to the so
1810: 63 6b 65 74 20 6d 61 79 20 72 65 74 75 72 6e 20  cket may return 
1820: 6f 6e 65 20 6f 66 3a 0a 20 2a 09 20 20 20 20 30  one of:. *.    0
1830: 09 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 69  ...- the certifi
1840: 63 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 69  cate is deemed i
1850: 6e 76 61 6c 69 64 0a 20 2a 09 20 20 20 20 31 09  nvalid. *.    1.
1860: 09 09 2d 20 74 68 65 20 63 65 72 74 69 66 69 63  ..- the certific
1870: 61 74 65 20 69 73 20 64 65 65 6d 65 64 20 76 61  ate is deemed va
1880: 6c 69 64 0a 20 2a 09 20 20 20 20 65 6d 70 74 79  lid. *.    empty
1890: 20 73 74 72 69 6e 67 09 2d 20 6e 6f 20 63 68 61   string.- no cha
18a0: 6e 67 65 20 74 6f 20 63 65 72 74 69 66 69 63 61  nge to certifica
18b0: 74 65 20 76 61 6c 69 64 61 74 69 6f 6e 0a 20 2a  te validation. *
18c0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
18d0: 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 66 69 65  :. *.The err fie
18e0: 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e  ld of the curren
18f0: 74 6c 79 20 6f 70 65 72 61 74 69 76 65 20 53 74  tly operative St
1900: 61 74 65 20 69 73 20 73 65 74 0a 20 2a 09 20 20  ate is set. *.  
1910: 74 6f 20 61 20 73 74 72 69 6e 67 20 64 65 73 63  to a string desc
1920: 72 69 62 69 6e 67 20 74 68 65 20 53 53 4c 20 6e  ribing the SSL n
1930: 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c 75  egotiation failu
1940: 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d  re reason. *----
1950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
1990: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56   */.static int.V
19a0: 65 72 69 66 79 43 61 6c 6c 62 61 63 6b 28 69 6e  erifyCallback(in
19b0: 74 20 6f 6b 2c 20 58 35 30 39 5f 53 54 4f 52 45  t ok, X509_STORE
19c0: 5f 43 54 58 20 2a 63 74 78 29 20 7b 0a 20 20 20  _CTX *ctx) {.   
19d0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72   Tcl_Obj *cmdPtr
19e0: 2c 20 2a 72 65 73 75 6c 74 3b 0a 20 20 20 20 63  , *result;.    c
19f0: 68 61 72 20 2a 65 72 72 53 74 72 2c 20 2a 73 74  har *errStr, *st
1a00: 72 69 6e 67 3b 0a 20 20 20 20 69 6e 74 20 6c 65  ring;.    int le
1a10: 6e 67 74 68 3b 0a 20 20 20 20 53 53 4c 20 20 20  ngth;.    SSL   
1a20: 2a 73 73 6c 09 09 3d 20 28 53 53 4c 2a 29 58 35  *ssl..= (SSL*)X5
1a30: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74  09_STORE_CTX_get
1a40: 5f 65 78 5f 64 61 74 61 28 63 74 78 2c 20 53 53  _ex_data(ctx, SS
1a50: 4c 5f 67 65 74 5f 65 78 5f 64 61 74 61 5f 58 35  L_get_ex_data_X5
1a60: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 69 64 78  09_STORE_CTX_idx
1a70: 28 29 29 3b 0a 20 20 20 20 58 35 30 39 20 20 2a  ());.    X509  *
1a80: 63 65 72 74 09 09 3d 20 58 35 30 39 5f 53 54 4f  cert..= X509_STO
1a90: 52 45 5f 43 54 58 5f 67 65 74 5f 63 75 72 72 65  RE_CTX_get_curre
1aa0: 6e 74 5f 63 65 72 74 28 63 74 78 29 3b 0a 20 20  nt_cert(ctx);.  
1ab0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74    State *statePt
1ac0: 72 09 3d 20 28 53 74 61 74 65 2a 29 53 53 4c 5f  r.= (State*)SSL_
1ad0: 67 65 74 5f 61 70 70 5f 64 61 74 61 28 73 73 6c  get_app_data(ssl
1ae0: 29 3b 0a 20 20 20 20 69 6e 74 20 64 65 70 74 68  );.    int depth
1af0: 09 09 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43  ..= X509_STORE_C
1b00: 54 58 5f 67 65 74 5f 65 72 72 6f 72 5f 64 65 70  TX_get_error_dep
1b10: 74 68 28 63 74 78 29 3b 0a 20 20 20 20 69 6e 74  th(ctx);.    int
1b20: 20 65 72 72 09 09 3d 20 58 35 30 39 5f 53 54 4f   err..= X509_STO
1b30: 52 45 5f 43 54 58 5f 67 65 74 5f 65 72 72 6f 72  RE_CTX_get_error
1b40: 28 63 74 78 29 3b 0a 20 20 20 20 69 6e 74 20 63  (ctx);.    int c
1b50: 6f 64 65 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74  ode;..    dprint
1b60: 66 28 22 56 65 72 69 66 79 3a 20 25 64 22 2c 20  f("Verify: %d", 
1b70: 6f 6b 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 6f  ok);..    if (!o
1b80: 6b 29 20 7b 0a 09 65 72 72 53 74 72 20 3d 20 28  k) {..errStr = (
1b90: 63 68 61 72 2a 29 58 35 30 39 5f 76 65 72 69 66  char*)X509_verif
1ba0: 79 5f 63 65 72 74 5f 65 72 72 6f 72 5f 73 74 72  y_cert_error_str
1bb0: 69 6e 67 28 65 72 72 29 3b 0a 20 20 20 20 7d 20  ing(err);.    } 
1bc0: 65 6c 73 65 20 7b 0a 09 65 72 72 53 74 72 20 3d  else {..errStr =
1bd0: 20 28 63 68 61 72 20 2a 29 30 3b 0a 20 20 20 20   (char *)0;.    
1be0: 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65  }..    if (state
1bf0: 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d  Ptr->callback ==
1c00: 20 28 54 63 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29   (Tcl_Obj*)NULL)
1c10: 20 7b 0a 09 69 66 20 28 73 74 61 74 65 50 74 72   {..if (statePtr
1c20: 2d 3e 76 66 6c 61 67 73 20 26 20 53 53 4c 5f 56  ->vflags & SSL_V
1c30: 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f  ERIFY_FAIL_IF_NO
1c40: 5f 50 45 45 52 5f 43 45 52 54 29 20 7b 0a 09 20  _PEER_CERT) {.. 
1c50: 20 20 20 72 65 74 75 72 6e 20 6f 6b 3b 0a 09 7d     return ok;..}
1c60: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 74   else {..    ret
1c70: 75 72 6e 20 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a  urn 1;..}.    }.
1c80: 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63 6c      cmdPtr = Tcl
1c90: 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73 74  _DuplicateObj(st
1ca0: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b  atePtr->callback
1cb0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74  );..    Tcl_List
1cc0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
1cd0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  ( statePtr->inte
1ce0: 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20 20  rp, cmdPtr, ..  
1cf0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
1d00: 62 6a 28 20 22 76 65 72 69 66 79 22 2c 20 2d 31  bj( "verify", -1
1d10: 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73  ));..    Tcl_Lis
1d20: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
1d30: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74  t( statePtr->int
1d40: 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a 09 20  erp, cmdPtr, .. 
1d50: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
1d60: 4f 62 6a 28 20 54 63 6c 5f 47 65 74 43 68 61 6e  Obj( Tcl_GetChan
1d70: 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72  nelName(statePtr
1d80: 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 20 29 3b 0a  ->self), -1) );.
1d90: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
1da0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73  AppendElement( s
1db0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c  tatePtr->interp,
1dc0: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63   cmdPtr,..    Tc
1dd0: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 64 65 70  l_NewIntObj( dep
1de0: 74 68 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f  th) );..    Tcl_
1df0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
1e00: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e  ment( statePtr->
1e10: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a  interp, cmdPtr,.
1e20: 09 20 20 20 20 54 6c 73 5f 4e 65 77 58 35 30 39  .    Tls_NewX509
1e30: 4f 62 6a 28 20 73 74 61 74 65 50 74 72 2d 3e 69  Obj( statePtr->i
1e40: 6e 74 65 72 70 2c 20 63 65 72 74 29 20 29 3b 0a  nterp, cert) );.
1e50: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
1e60: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73  AppendElement( s
1e70: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c  tatePtr->interp,
1e80: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63   cmdPtr,..    Tc
1e90: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 20 6f 6b 29  l_NewIntObj( ok)
1ea0: 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73   );..    Tcl_Lis
1eb0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
1ec0: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74  t( statePtr->int
1ed0: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20  erp, cmdPtr,..  
1ee0: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
1ef0: 62 6a 28 20 65 72 72 53 74 72 20 3f 20 65 72 72  bj( errStr ? err
1f00: 53 74 72 20 3a 20 22 22 2c 20 2d 31 29 20 29 3b  Str : "", -1) );
1f10: 0a 0a 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72  ..    Tcl_Preser
1f20: 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29  ve( (ClientData)
1f30: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72   statePtr->inter
1f40: 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65 73  p);.    Tcl_Pres
1f50: 65 72 76 65 28 20 28 43 6c 69 65 6e 74 44 61 74  erve( (ClientDat
1f60: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20  a) statePtr);.. 
1f70: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61     statePtr->fla
1f80: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 43 41  gs |= TLS_TCL_CA
1f90: 4c 4c 42 41 43 4b 3b 0a 0a 20 20 20 20 54 63 6c  LLBACK;..    Tcl
1fa0: 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20 63  _IncrRefCount( c
1fb0: 6d 64 50 74 72 29 3b 0a 20 20 20 20 63 6f 64 65  mdPtr);.    code
1fc0: 20 3d 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45 78   = Tcl_EvalObjEx
1fd0: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72  (statePtr->inter
1fe0: 70 2c 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45  p, cmdPtr, TCL_E
1ff0: 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 20  VAL_GLOBAL);.   
2000: 20 69 66 20 28 63 6f 64 65 20 21 3d 20 54 43 4c   if (code != TCL
2010: 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 74 20 67 6f  _OK) {../* It go
2020: 74 20 61 6e 20 65 72 72 6f 72 20 2d 20 72 65 6a  t an error - rej
2030: 65 63 74 20 74 68 65 20 63 65 72 74 69 66 69 63  ect the certific
2040: 61 74 65 2e 09 09 2a 2f 0a 23 69 66 20 28 54 43  ate...*/.#if (TC
2050: 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53 49 4f 4e 20  L_MAJOR_VERSION 
2060: 3d 3d 20 38 29 20 26 26 20 28 54 43 4c 5f 4d 49  == 8) && (TCL_MI
2070: 4e 4f 52 5f 56 45 52 53 49 4f 4e 20 3c 20 36 29  NOR_VERSION < 6)
2080: 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64  ..Tcl_Background
2090: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e  Error(statePtr->
20a0: 69 6e 74 65 72 70 29 3b 0a 23 65 6c 73 65 0a 09  interp);.#else..
20b0: 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 78  Tcl_BackgroundEx
20c0: 63 65 70 74 69 6f 6e 28 73 74 61 74 65 50 74 72  ception(statePtr
20d0: 2d 3e 69 6e 74 65 72 70 2c 20 63 6f 64 65 29 3b  ->interp, code);
20e0: 0a 23 65 6e 64 69 66 0a 09 6f 6b 20 3d 20 30 3b  .#endif..ok = 0;
20f0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72  .    } else {..r
2100: 65 73 75 6c 74 20 3d 20 54 63 6c 5f 47 65 74 4f  esult = Tcl_GetO
2110: 62 6a 52 65 73 75 6c 74 28 73 74 61 74 65 50 74  bjResult(statePt
2120: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 73 74 72  r->interp);..str
2130: 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  ing = Tcl_GetStr
2140: 69 6e 67 46 72 6f 6d 4f 62 6a 28 72 65 73 75 6c  ingFromObj(resul
2150: 74 2c 20 26 6c 65 6e 67 74 68 29 3b 0a 09 2f 2a  t, &length);../*
2160: 20 41 6e 20 65 6d 70 74 79 20 72 65 73 75 6c 74   An empty result
2170: 20 6c 65 61 76 65 73 20 76 65 72 69 66 69 63 61   leaves verifica
2180: 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 2e 09  tion unchanged..
2190: 2a 2f 0a 09 69 66 20 28 73 74 72 69 6e 67 20 21  */..if (string !
21a0: 3d 20 4e 55 4c 4c 20 26 26 20 6c 65 6e 67 74 68  = NULL && length
21b0: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 63 6f 64   > 0) {..    cod
21c0: 65 20 3d 20 54 63 6c 5f 47 65 74 49 6e 74 46 72  e = Tcl_GetIntFr
21d0: 6f 6d 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e  omObj(statePtr->
21e0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 2c 20  interp, result, 
21f0: 26 6f 6b 29 3b 0a 09 20 20 20 20 69 66 20 28 63  &ok);..    if (c
2200: 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b  ode != TCL_OK) {
2210: 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f 52 5f  .#if (TCL_MAJOR_
2220: 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20 26 26  VERSION == 8) &&
2230: 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53   (TCL_MINOR_VERS
2240: 49 4f 4e 20 3c 20 36 29 0a 09 09 54 63 6c 5f 42  ION < 6)...Tcl_B
2250: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73  ackgroundError(s
2260: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29  tatePtr->interp)
2270: 3b 0a 23 65 6c 73 65 0a 09 09 54 63 6c 5f 42 61  ;.#else...Tcl_Ba
2280: 63 6b 67 72 6f 75 6e 64 45 78 63 65 70 74 69 6f  ckgroundExceptio
2290: 6e 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  n(statePtr->inte
22a0: 72 70 2c 20 63 6f 64 65 29 3b 0a 23 65 6e 64 69  rp, code);.#endi
22b0: 66 0a 09 09 6f 6b 20 3d 20 30 3b 0a 09 20 20 20  f...ok = 0;..   
22c0: 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20   }..}.    }.    
22d0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74  Tcl_DecrRefCount
22e0: 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 20 20 20  ( cmdPtr);..    
22f0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20  statePtr->flags 
2300: 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 43 41 4c  &= ~(TLS_TCL_CAL
2310: 4c 42 41 43 4b 29 3b 0a 0a 20 20 20 20 54 63 6c  LBACK);..    Tcl
2320: 5f 52 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e  _Release( (Clien
2330: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 29  tData) statePtr)
2340: 3b 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73  ;.    Tcl_Releas
2350: 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20  e( (ClientData) 
2360: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70  statePtr->interp
2370: 29 3b 0a 0a 20 20 20 20 72 65 74 75 72 6e 28 6f  );..    return(o
2380: 6b 29 3b 09 2f 2a 20 42 79 20 64 65 66 61 75 6c  k);./* By defaul
2390: 74 2c 20 6c 65 61 76 65 20 76 65 72 69 66 69 63  t, leave verific
23a0: 61 74 69 6f 6e 20 75 6e 63 68 61 6e 67 65 64 2e  ation unchanged.
23b0: 09 2a 2f 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d  .*/.}.../*. *---
23c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2400: 0a 20 2a 0a 20 2a 20 54 6c 73 5f 45 72 72 6f 72  . *. * Tls_Error
2410: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 73 20   --. *. *.Calls 
2420: 63 61 6c 6c 62 61 63 6b 20 77 69 74 68 20 24 66  callback with $f
2430: 64 20 61 6e 64 20 24 6d 73 67 20 2d 20 73 6f 20  d and $msg - so 
2440: 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 63 61 6e  the callback can
2450: 20 64 65 63 69 64 65 0a 20 2a 09 77 68 61 74 20   decide. *.what 
2460: 74 6f 20 64 6f 20 77 69 74 68 20 65 72 72 6f 72  to do with error
2470: 73 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  s.. *. * Side ef
2480: 66 65 63 74 73 3a 0a 20 2a 09 54 68 65 20 65 72  fects:. *.The er
2490: 72 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 63  r field of the c
24a0: 75 72 72 65 6e 74 6c 79 20 6f 70 65 72 61 74 69  urrently operati
24b0: 76 65 20 53 74 61 74 65 20 69 73 20 73 65 74 0a  ve State is set.
24c0: 20 2a 09 20 20 74 6f 20 61 20 73 74 72 69 6e 67   *.  to a string
24d0: 20 64 65 73 63 72 69 62 69 6e 67 20 74 68 65 20   describing the 
24e0: 53 53 4c 20 6e 65 67 6f 74 69 61 74 69 6f 6e 20  SSL negotiation 
24f0: 66 61 69 6c 75 72 65 20 72 65 61 73 6f 6e 0a 20  failure reason. 
2500: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
2510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2540: 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c  ----. */.void.Tl
2550: 73 5f 45 72 72 6f 72 28 53 74 61 74 65 20 2a 73  s_Error(State *s
2560: 74 61 74 65 50 74 72 2c 20 63 68 61 72 20 2a 6d  tatePtr, char *m
2570: 73 67 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62  sg) {.    Tcl_Ob
2580: 6a 20 2a 63 6d 64 50 74 72 3b 0a 20 20 20 20 69  j *cmdPtr;.    i
2590: 6e 74 20 63 6f 64 65 3b 0a 0a 20 20 20 20 64 70  nt code;..    dp
25a0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b  rintf("Called");
25b0: 0a 0a 20 20 20 20 69 66 20 28 6d 73 67 20 26 26  ..    if (msg &&
25c0: 20 2a 6d 73 67 29 20 7b 0a 09 54 63 6c 5f 53 65   *msg) {..Tcl_Se
25d0: 74 45 72 72 6f 72 43 6f 64 65 28 73 74 61 74 65  tErrorCode(state
25e0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 22 53 53  Ptr->interp, "SS
25f0: 4c 22 2c 20 6d 73 67 2c 20 28 63 68 61 72 20 2a  L", msg, (char *
2600: 29 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c  )NULL);.    } el
2610: 73 65 20 7b 0a 09 6d 73 67 20 3d 20 54 63 6c 5f  se {..msg = Tcl_
2620: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
2630: 28 54 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c  (Tcl_GetObjResul
2640: 74 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  t(statePtr->inte
2650: 72 70 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20  rp), NULL);.    
2660: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e  }.    statePtr->
2670: 65 72 72 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20  err = msg;..    
2680: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61  if (statePtr->ca
2690: 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f  llback == (Tcl_O
26a0: 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61  bj*)NULL) {..cha
26b0: 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09  r buf[BUFSIZ];..
26c0: 73 70 72 69 6e 74 66 28 62 75 66 2c 20 22 53 53  sprintf(buf, "SS
26d0: 4c 20 63 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22  L channel \"%s\"
26e0: 3a 20 65 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20  : error: %s",.. 
26f0: 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65     Tcl_GetChanne
2700: 6c 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e  lName(statePtr->
2710: 73 65 6c 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63  self), msg);..Tc
2720: 6c 5f 53 65 74 52 65 73 75 6c 74 28 20 73 74 61  l_SetResult( sta
2730: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62  tePtr->interp, b
2740: 75 66 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45  uf, TCL_VOLATILE
2750: 29 3b 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f  );.#if (TCL_MAJO
2760: 52 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20  R_VERSION == 8) 
2770: 26 26 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45  && (TCL_MINOR_VE
2780: 52 53 49 4f 4e 20 3c 20 36 29 0a 09 54 63 6c 5f  RSION < 6)..Tcl_
2790: 42 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28  BackgroundError(
27a0: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70  statePtr->interp
27b0: 29 3b 0a 23 65 6c 73 65 0a 09 54 63 6c 5f 42 61  );.#else..Tcl_Ba
27c0: 63 6b 67 72 6f 75 6e 64 45 78 63 65 70 74 69 6f  ckgroundExceptio
27d0: 6e 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  n(statePtr->inte
27e0: 72 70 2c 20 54 43 4c 5f 45 52 52 4f 52 29 3b 0a  rp, TCL_ERROR);.
27f0: 23 65 6e 64 69 66 0a 09 72 65 74 75 72 6e 3b 0a  #endif..return;.
2800: 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50 74 72      }.    cmdPtr
2810: 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61 74 65   = Tcl_Duplicate
2820: 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e 63 61  Obj(statePtr->ca
2830: 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20 54 63  llback);..    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: 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74   ..    Tcl_NewSt
2880: 72 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72 22 2c  ringObj("error",
2890: 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f   -1));..    Tcl_
28a0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
28b0: 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 69  ment(statePtr->i
28c0: 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 20 0a  nterp, cmdPtr, .
28d0: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69  .    Tcl_NewStri
28e0: 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 74 43 68 61  ngObj(Tcl_GetCha
28f0: 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50 74  nnelName(statePt
2900: 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 29 3b 0a  r->self), -1));.
2910: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
2920: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 73 74  AppendElement(st
2930: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20  atePtr->interp, 
2940: 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c  cmdPtr,..    Tcl
2950: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 6d 73  _NewStringObj(ms
2960: 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63  g, -1));..    Tc
2970: 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69 65  l_Preserve((Clie
2980: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72  ntData) statePtr
2990: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 54  ->interp);.    T
29a0: 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c 69  cl_Preserve((Cli
29b0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74  entData) statePt
29c0: 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63  r);..    Tcl_Inc
29d0: 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72  rRefCount(cmdPtr
29e0: 29 3b 0a 20 20 20 20 63 6f 64 65 20 3d 20 54 63  );.    code = Tc
29f0: 6c 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74  l_EvalObjEx(stat
2a00: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d  ePtr->interp, cm
2a10: 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47  dPtr, TCL_EVAL_G
2a20: 4c 4f 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28  LOBAL);.    if (
2a30: 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  code != TCL_OK) 
2a40: 7b 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f 52  {.#if (TCL_MAJOR
2a50: 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20 26  _VERSION == 8) &
2a60: 26 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52  & (TCL_MINOR_VER
2a70: 53 49 4f 4e 20 3c 20 36 29 0a 09 54 63 6c 5f 42  SION < 6)..Tcl_B
2a80: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 73  ackgroundError(s
2a90: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29  tatePtr->interp)
2aa0: 3b 0a 23 65 6c 73 65 0a 09 54 63 6c 5f 42 61 63  ;.#else..Tcl_Bac
2ab0: 6b 67 72 6f 75 6e 64 45 78 63 65 70 74 69 6f 6e  kgroundException
2ac0: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72  (statePtr->inter
2ad0: 70 2c 20 63 6f 64 65 29 3b 0a 23 65 6e 64 69 66  p, code);.#endif
2ae0: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44  .    }.    Tcl_D
2af0: 65 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50  ecrRefCount(cmdP
2b00: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65  tr);..    Tcl_Re
2b10: 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74  lease((ClientDat
2b20: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20  a) statePtr);.  
2b30: 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43    Tcl_Release((C
2b40: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65  lientData) state
2b50: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 7d 0a  Ptr->interp);.}.
2b60: 0c 0a 76 6f 69 64 20 4b 65 79 4c 6f 67 43 61 6c  ..void KeyLogCal
2b70: 6c 62 61 63 6b 28 63 6f 6e 73 74 20 53 53 4c 20  lback(const SSL 
2b80: 2a 73 73 6c 2c 20 63 6f 6e 73 74 20 63 68 61 72  *ssl, const char
2b90: 20 2a 6c 69 6e 65 29 20 7b 0a 20 20 20 20 63 68   *line) {.    ch
2ba0: 61 72 20 2a 73 74 72 20 3d 20 67 65 74 65 6e 76  ar *str = getenv
2bb0: 28 53 53 4c 4b 45 59 4c 4f 47 46 49 4c 45 29 3b  (SSLKEYLOGFILE);
2bc0: 0a 20 20 20 20 46 49 4c 45 20 2a 66 64 3b 0a 20  .    FILE *fd;. 
2bd0: 20 20 20 69 66 20 28 73 74 72 29 20 7b 0a 09 66     if (str) {..f
2be0: 64 20 3d 20 66 6f 70 65 6e 28 73 74 72 2c 20 22  d = fopen(str, "
2bf0: 61 22 29 3b 0a 09 66 70 72 69 6e 74 66 28 66 64  a");..fprintf(fd
2c00: 2c 20 22 25 73 5c 6e 22 2c 6c 69 6e 65 29 3b 0a  , "%s\n",line);.
2c10: 09 66 63 6c 6f 73 65 28 66 64 29 3b 0a 20 20 20  .fclose(fd);.   
2c20: 20 7d 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d   }.}.../*. *----
2c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
2c70: 20 2a 0a 20 2a 20 50 61 73 73 77 6f 72 64 43 61   *. * PasswordCa
2c80: 6c 6c 62 61 63 6b 20 2d 2d 20 0a 20 2a 0a 20 2a  llback -- . *. *
2c90: 09 43 61 6c 6c 65 64 20 77 68 65 6e 20 61 20 70  .Called when a p
2ca0: 61 73 73 77 6f 72 64 20 69 73 20 6e 65 65 64 65  assword is neede
2cb0: 64 20 74 6f 20 75 6e 70 61 63 6b 20 52 53 41 20  d to unpack RSA 
2cc0: 61 6e 64 20 50 45 4d 20 6b 65 79 73 2e 0a 20 2a  and PEM keys.. *
2cd0: 09 45 76 61 6c 73 20 61 6e 79 20 62 6f 75 6e 64  .Evals any bound
2ce0: 20 70 61 73 73 77 6f 72 64 20 73 63 72 69 70 74   password script
2cf0: 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65   and returns the
2d00: 20 72 65 73 75 6c 74 20 61 73 0a 20 2a 09 74 68   result as. *.th
2d10: 65 20 70 61 73 73 77 6f 72 64 20 73 74 72 69 6e  e password strin
2d20: 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  g.. *-----------
2d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d60: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66  --------. */.#if
2d70: 64 65 66 20 50 52 45 5f 4f 50 45 4e 53 53 4c 5f  def PRE_OPENSSL_
2d80: 30 5f 39 5f 34 0a 2f 2a 0a 20 2a 20 4e 6f 20 77  0_9_4./*. * No w
2d90: 61 79 20 74 6f 20 68 61 6e 64 6c 65 20 75 73 65  ay to handle use
2da0: 72 2d 64 61 74 61 20 74 68 65 72 65 66 6f 72 65  r-data therefore
2db0: 20 6e 6f 20 77 61 79 20 77 69 74 68 6f 75 74 20   no way without 
2dc0: 61 20 67 6c 6f 62 61 6c 0a 20 2a 20 76 61 72 69  a global. * vari
2dd0: 61 62 6c 65 20 74 6f 20 61 63 63 65 73 73 20 74  able to access t
2de0: 68 65 20 54 63 6c 20 69 6e 74 65 72 70 72 65 74  he Tcl interpret
2df0: 65 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  er..*/.static in
2e00: 74 0a 50 61 73 73 77 6f 72 64 43 61 6c 6c 62 61  t.PasswordCallba
2e10: 63 6b 28 63 68 61 72 20 2a 62 75 66 2c 20 69 6e  ck(char *buf, in
2e20: 74 20 73 69 7a 65 2c 20 69 6e 74 20 76 65 72 69  t size, int veri
2e30: 66 79 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e  fy) {.    return
2e40: 20 2d 31 3b 0a 20 20 20 20 09 62 75 66 20 3d 20   -1;.    .buf = 
2e50: 62 75 66 3b 0a 09 73 69 7a 65 20 3d 20 73 69 7a  buf;..size = siz
2e60: 65 3b 0a 09 76 65 72 69 66 79 20 3d 20 76 65 72  e;..verify = ver
2e70: 69 66 79 3b 0a 7d 0a 23 65 6c 73 65 0a 73 74 61  ify;.}.#else.sta
2e80: 74 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 64  tic int.Password
2e90: 43 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a 62  Callback(char *b
2ea0: 75 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e  uf, int size, in
2eb0: 74 20 76 65 72 69 66 79 2c 20 76 6f 69 64 20 2a  t verify, void *
2ec0: 75 64 61 74 61 29 20 7b 0a 20 20 20 20 53 74 61  udata) {.    Sta
2ed0: 74 65 20 2a 73 74 61 74 65 50 74 72 09 3d 20 28  te *statePtr.= (
2ee0: 53 74 61 74 65 20 2a 29 20 75 64 61 74 61 3b 0a  State *) udata;.
2ef0: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a      Tcl_Interp *
2f00: 69 6e 74 65 72 70 09 3d 20 73 74 61 74 65 50 74  interp.= statePt
2f10: 72 2d 3e 69 6e 74 65 72 70 3b 0a 20 20 20 20 54  r->interp;.    T
2f20: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 3b 0a  cl_Obj *cmdPtr;.
2f30: 20 20 20 20 69 6e 74 20 63 6f 64 65 3b 0a 0a 20      int code;.. 
2f40: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c     dprintf("Call
2f50: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 73  ed");..    if (s
2f60: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72  tatePtr->passwor
2f70: 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 66  d == NULL) {..if
2f80: 20 28 54 63 6c 5f 45 76 61 6c 45 78 28 69 6e 74   (Tcl_EvalEx(int
2f90: 65 72 70 2c 20 22 74 6c 73 3a 3a 70 61 73 73 77  erp, "tls::passw
2fa0: 6f 72 64 22 2c 20 2d 31 2c 20 54 43 4c 5f 45 56  ord", -1, TCL_EV
2fb0: 41 4c 5f 47 4c 4f 42 41 4c 29 0a 09 09 3d 3d 20  AL_GLOBAL)...== 
2fc0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 63  TCL_OK) {..    c
2fd0: 68 61 72 20 2a 72 65 74 20 3d 20 28 63 68 61 72  har *ret = (char
2fe0: 20 2a 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e   *) Tcl_GetStrin
2ff0: 67 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b  gResult(interp);
3000: 0a 09 20 20 20 20 73 74 72 6e 63 70 79 28 62 75  ..    strncpy(bu
3010: 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f 74 29  f, ret, (size_t)
3020: 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 72 65 74   size);..    ret
3030: 75 72 6e 20 28 69 6e 74 29 73 74 72 6c 65 6e 28  urn (int)strlen(
3040: 72 65 74 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a  ret);..} else {.
3050: 09 20 20 20 20 72 65 74 75 72 6e 20 2d 31 3b 0a  .    return -1;.
3060: 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 6d  .}.    }..    cm
3070: 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69  dPtr = Tcl_Dupli
3080: 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72  cateObj(statePtr
3090: 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 0a 20 20  ->password);..  
30a0: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28    Tcl_Preserve((
30b0: 43 6c 69 65 6e 74 44 61 74 61 29 20 69 6e 74 65  ClientData) inte
30c0: 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72 65  rp);.    Tcl_Pre
30d0: 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74  serve((ClientDat
30e0: 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a 20  a) statePtr);.. 
30f0: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
3100: 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 20 20 20  unt(cmdPtr);.   
3110: 20 63 6f 64 65 20 3d 20 54 63 6c 5f 45 76 61 6c   code = Tcl_Eval
3120: 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c 20 63 6d  ObjEx(interp, cm
3130: 64 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47  dPtr, TCL_EVAL_G
3140: 4c 4f 42 41 4c 29 3b 0a 20 20 20 20 69 66 20 28  LOBAL);.    if (
3150: 63 6f 64 65 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  code != TCL_OK) 
3160: 7b 0a 23 69 66 20 28 54 43 4c 5f 4d 41 4a 4f 52  {.#if (TCL_MAJOR
3170: 5f 56 45 52 53 49 4f 4e 20 3d 3d 20 38 29 20 26  _VERSION == 8) &
3180: 26 20 28 54 43 4c 5f 4d 49 4e 4f 52 5f 56 45 52  & (TCL_MINOR_VER
3190: 53 49 4f 4e 20 3c 20 36 29 0a 09 54 63 6c 5f 42  SION < 6)..Tcl_B
31a0: 61 63 6b 67 72 6f 75 6e 64 45 72 72 6f 72 28 69  ackgroundError(i
31b0: 6e 74 65 72 70 29 3b 0a 23 65 6c 73 65 0a 09 54  nterp);.#else..T
31c0: 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45 78 63  cl_BackgroundExc
31d0: 65 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63  eption(interp, c
31e0: 6f 64 65 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20  ode);.#endif.   
31f0: 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52   }.    Tcl_DecrR
3200: 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b  efCount(cmdPtr);
3210: 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73  ..    Tcl_Releas
3220: 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73  e((ClientData) s
3230: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 69  tatePtr);..    i
3240: 66 20 28 63 6f 64 65 20 3d 3d 20 54 43 4c 5f 4f  f (code == TCL_O
3250: 4b 29 20 7b 0a 09 63 68 61 72 20 2a 72 65 74 20  K) {..char *ret 
3260: 3d 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47  = (char *) Tcl_G
3270: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69  etStringResult(i
3280: 6e 74 65 72 70 29 3b 0a 09 69 66 20 28 73 74 72  nterp);..if (str
3290: 6c 65 6e 28 72 65 74 29 20 3c 20 73 69 7a 65 20  len(ret) < size 
32a0: 2d 20 31 29 20 7b 0a 09 73 74 72 6e 63 70 79 28  - 1) {..strncpy(
32b0: 62 75 66 2c 20 72 65 74 2c 20 28 73 69 7a 65 5f  buf, ret, (size_
32c0: 74 29 20 73 69 7a 65 29 3b 0a 09 20 20 20 20 54  t) size);..    T
32d0: 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69 65  cl_Release((Clie
32e0: 6e 74 44 61 74 61 29 20 69 6e 74 65 72 70 29 3b  ntData) interp);
32f0: 0a 09 72 65 74 75 72 6e 20 28 69 6e 74 29 73 74  ..return (int)st
3300: 72 6c 65 6e 28 72 65 74 29 3b 0a 09 7d 0a 20 20  rlen(ret);..}.  
3310: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65    }.    Tcl_Rele
3320: 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29  ase((ClientData)
3330: 20 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 72 65   interp);.    re
3340: 74 75 72 6e 20 2d 31 3b 0a 7d 0a 23 65 6e 64 69  turn -1;.}.#endi
3350: 66 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  f.../*. *-------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
33a0: 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64   * CiphersObjCmd
33b0: 20 2d 2d 20 6c 69 73 74 20 61 76 61 69 6c 61 62   -- list availab
33c0: 6c 65 20 63 69 70 68 65 72 73 0a 20 2a 0a 20 2a  le ciphers. *. *
33d0: 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20  .This procedure 
33e0: 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72  is invoked to pr
33f0: 6f 63 65 73 73 20 74 68 65 20 22 74 6c 73 3a 3a  ocess the "tls::
3400: 63 69 70 68 65 72 73 22 20 63 6f 6d 6d 61 6e 64  ciphers" command
3410: 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 76 61 69  . *.to list avai
3420: 6c 61 62 6c 65 20 63 69 70 68 65 72 73 2c 20 62  lable ciphers, b
3430: 61 73 65 64 20 75 70 6f 6e 20 70 72 6f 74 6f 63  ased upon protoc
3440: 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a 20 2a 0a  ol selected.. *.
3450: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41   * Results:. *.A
3460: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65   standard Tcl re
3470: 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a  sult list.. *. *
3480: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
3490: 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 61 6e 64  *.constructs and
34a0: 20 64 65 73 74 72 6f 79 73 20 53 53 4c 20 63 6f   destroys SSL co
34b0: 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a 20  ntext (CTX). *. 
34c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
34d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
34e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
34f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3500: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20  ----. */.static 
3510: 69 6e 74 0a 43 69 70 68 65 72 73 4f 62 6a 43 6d  int.CiphersObjCm
3520: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69  d(ClientData cli
3530: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74  entData, Tcl_Int
3540: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74  erp *interp, int
3550: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a   objc, Tcl_Obj *
3560: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a  const objv[]) {.
3570: 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74      static const
3580: 20 63 68 61 72 20 2a 70 72 6f 74 6f 63 6f 6c 73   char *protocols
3590: 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c 32 22 2c 09  [] = {.."ssl2",.
35a0: 22 73 73 6c 33 22 2c 09 22 74 6c 73 31 22 2c 09  "ssl3",."tls1",.
35b0: 22 74 6c 73 31 2e 31 22 2c 20 22 74 6c 73 31 2e  "tls1.1", "tls1.
35c0: 32 22 2c 20 22 74 6c 73 31 2e 33 22 2c 20 4e 55  2", "tls1.3", NU
35d0: 4c 4c 0a 20 20 20 20 7d 3b 0a 20 20 20 20 65 6e  LL.    };.    en
35e0: 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a 09 54  um protocol {..T
35f0: 4c 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c  LS_SSL2, TLS_SSL
3600: 33 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53  3, TLS_TLS1, TLS
3610: 5f 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53  _TLS1_1, TLS_TLS
3620: 31 5f 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 2c  1_2, TLS_TLS1_3,
3630: 20 54 4c 53 5f 4e 4f 4e 45 0a 20 20 20 20 7d 3b   TLS_NONE.    };
3640: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62  .    Tcl_Obj *ob
3650: 6a 50 74 72 3b 0a 20 20 20 20 53 53 4c 5f 43 54  jPtr;.    SSL_CT
3660: 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20  X *ctx = NULL;. 
3670: 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e 55     SSL *ssl = NU
3680: 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f 46  LL;.    STACK_OF
3690: 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 6b  (SSL_CIPHER) *sk
36a0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 70 2c 20  ;.    char *cp, 
36b0: 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 20 20 20  buf[BUFSIZ];.   
36c0: 20 69 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 62   int index, verb
36d0: 6f 73 65 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70  ose = 0;..    dp
36e0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b  rintf("Called");
36f0: 0a 0a 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20  ..    if ((objc 
3700: 3c 20 32 29 20 7c 7c 20 28 6f 62 6a 63 20 3e 20  < 2) || (objc > 
3710: 33 29 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67  3)) {..Tcl_Wrong
3720: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
3730: 31 2c 20 6f 62 6a 76 2c 20 22 70 72 6f 74 6f 63  1, objv, "protoc
3740: 6f 6c 20 3f 76 65 72 62 6f 73 65 3f 22 29 3b 0a  ol ?verbose?");.
3750: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
3760: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  R;.    }.    if 
3770: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f  (Tcl_GetIndexFro
3780: 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c 20 6f 62  mObj( interp, ob
3790: 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73  jv[1], protocols
37a0: 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c  , "protocol", 0,
37b0: 0a 09 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c  ..&index) != TCL
37c0: 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54  _OK) {..return T
37d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
37e0: 20 20 20 20 69 66 20 28 28 6f 62 6a 63 20 3e 20      if ((objc > 
37f0: 32 29 20 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f  2) && Tcl_GetBoo
3800: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 20 69 6e 74  leanFromObj( int
3810: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 0a 09 26  erp, objv[2],..&
3820: 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 4c 5f  verbose) != TCL_
3830: 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43  OK) {..return TC
3840: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  L_ERROR;.    }. 
3850: 20 20 20 73 77 69 74 63 68 20 28 28 65 6e 75 6d     switch ((enum
3860: 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78 29   protocol)index)
3870: 20 7b 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f   {.    case TLS_
3880: 53 53 4c 32 3a 0a 23 69 66 20 4f 50 45 4e 53 53  SSL2:.#if OPENSS
3890: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52  L_VERSION_NUMBER
38a0: 20 3e 3d 20 30 78 31 30 31 30 31 30 30 30 4c 20   >= 0x10101000L 
38b0: 7c 7c 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53  || defined(NO_SS
38c0: 4c 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f  L2) || defined(O
38d0: 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a  PENSSL_NO_SSL2).
38e0: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
38f0: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f  lt(interp, proto
3900: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20  cols[index], ": 
3910: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70  protocol not sup
3920: 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a  ported", NULL);.
3930: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
3940: 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20  OR;.#else...ctx 
3950: 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53 53  = SSL_CTX_new(SS
3960: 4c 76 32 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62  Lv2_method()); b
3970: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20  reak;.#endif.   
3980: 20 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a   case TLS_SSL3:.
3990: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53  #if defined(NO_S
39a0: 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28  SL3) || defined(
39b0: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29  OPENSSL_NO_SSL3)
39c0: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73  ...Tcl_AppendRes
39d0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74  ult(interp, prot
39e0: 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a  ocols[index], ":
39f0: 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75   protocol not su
3a00: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b  pported", NULL);
3a10: 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  ...return TCL_ER
3a20: 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78  ROR;.#else...ctx
3a30: 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 53   = SSL_CTX_new(S
3a40: 53 4c 76 33 5f 6d 65 74 68 6f 64 28 29 29 3b 20  SLv3_method()); 
3a50: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20  break;.#endif.  
3a60: 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a    case TLS_TLS1:
3a70: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f  .#if defined(NO_
3a80: 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 64  TLS1) || defined
3a90: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31  (OPENSSL_NO_TLS1
3aa0: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65  )...Tcl_AppendRe
3ab0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f  sult(interp, pro
3ac0: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22  tocols[index], "
3ad0: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73  : protocol not s
3ae0: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29  upported", NULL)
3af0: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  ;...return TCL_E
3b00: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74  RROR;.#else...ct
3b10: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28  x = SSL_CTX_new(
3b20: 54 4c 53 76 31 5f 6d 65 74 68 6f 64 28 29 29 3b  TLSv1_method());
3b30: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20   break;.#endif. 
3b40: 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31     case TLS_TLS1
3b50: 5f 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28  _1:.#if defined(
3b60: 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65  NO_TLS1_1) || de
3b70: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f  fined(OPENSSL_NO
3b80: 5f 54 4c 53 31 5f 31 29 0a 09 09 54 63 6c 5f 41  _TLS1_1)...Tcl_A
3b90: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
3ba0: 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e  rp, protocols[in
3bb0: 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f  dex], ": protoco
3bc0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22  l not supported"
3bd0: 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72  , NULL);...retur
3be0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c  n TCL_ERROR;.#el
3bf0: 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43  se...ctx = SSL_C
3c00: 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 31 5f 6d  TX_new(TLSv1_1_m
3c10: 65 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b  ethod()); break;
3c20: 0a 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65  .#endif.    case
3c30: 20 54 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 66   TLS_TLS1_2:.#if
3c40: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31   defined(NO_TLS1
3c50: 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f  _2) || defined(O
3c60: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32  PENSSL_NO_TLS1_2
3c70: 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65  )...Tcl_AppendRe
3c80: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f  sult(interp, pro
3c90: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22  tocols[index], "
3ca0: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73  : protocol not s
3cb0: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29  upported", NULL)
3cc0: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  ;...return TCL_E
3cd0: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74  RROR;.#else...ct
3ce0: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28  x = SSL_CTX_new(
3cf0: 54 4c 53 76 31 5f 32 5f 6d 65 74 68 6f 64 28 29  TLSv1_2_method()
3d00: 29 3b 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66  ); break;.#endif
3d10: 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 54 4c  .    case TLS_TL
3d20: 53 31 5f 33 3a 0a 23 69 66 20 64 65 66 69 6e 65  S1_3:.#if define
3d30: 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c 20  d(NO_TLS1_3) || 
3d40: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f  defined(OPENSSL_
3d50: 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 09 54 63 6c  NO_TLS1_3)...Tcl
3d60: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
3d70: 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b  terp, protocols[
3d80: 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f  index], ": proto
3d90: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65  col not supporte
3da0: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74  d", NULL);...ret
3db0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23  urn TCL_ERROR;.#
3dc0: 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c  else...ctx = SSL
3dd0: 5f 43 54 58 5f 6e 65 77 28 54 4c 53 5f 6d 65 74  _CTX_new(TLS_met
3de0: 68 6f 64 28 29 29 3b 0a 20 20 20 20 20 20 20 20  hod());.        
3df0: 20 20 20 20 20 20 20 20 53 53 4c 5f 43 54 58 5f          SSL_CTX_
3e00: 73 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65  set_min_proto_ve
3e10: 72 73 69 6f 6e 20 28 63 74 78 2c 20 54 4c 53 31  rsion (ctx, TLS1
3e20: 5f 33 5f 56 45 52 53 49 4f 4e 29 3b 0a 20 20 20  _3_VERSION);.   
3e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 53 4c               SSL
3e40: 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f  _CTX_set_max_pro
3e50: 74 6f 5f 76 65 72 73 69 6f 6e 20 28 63 74 78 2c  to_version (ctx,
3e60: 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 29   TLS1_3_VERSION)
3e70: 3b 0a 09 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69  ;...break;.#endi
3e80: 66 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 09  f.    default:..
3e90: 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20  .break;.    }.  
3ea0: 20 20 69 66 20 28 63 74 78 20 3d 3d 20 4e 55 4c    if (ctx == NUL
3eb0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64  L) {..Tcl_Append
3ec0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52  Result(interp, R
3ed0: 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a  EASON(), NULL);.
3ee0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
3ef0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 73 6c  R;.    }.    ssl
3f00: 20 3d 20 53 53 4c 5f 6e 65 77 28 63 74 78 29 3b   = SSL_new(ctx);
3f10: 0a 20 20 20 20 69 66 20 28 73 73 6c 20 3d 3d 20  .    if (ssl == 
3f20: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70  NULL) {..Tcl_App
3f30: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
3f40: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c  , REASON(), NULL
3f50: 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65  );..SSL_CTX_free
3f60: 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54  (ctx);..return T
3f70: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
3f80: 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c      objPtr = Tcl
3f90: 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 20 30 2c 20  _NewListObj( 0, 
3fa0: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28  NULL);..    if (
3fb0: 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 66 6f 72  !verbose) {..for
3fc0: 20 28 69 6e 64 65 78 20 3d 20 30 3b 20 3b 20 69   (index = 0; ; i
3fd0: 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20 63  ndex++) {..    c
3fe0: 70 20 3d 20 28 63 68 61 72 2a 29 53 53 4c 5f 67  p = (char*)SSL_g
3ff0: 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 20  et_cipher_list( 
4000: 73 73 6c 2c 20 69 6e 64 65 78 29 3b 0a 09 20 20  ssl, index);..  
4010: 20 20 69 66 20 28 63 70 20 3d 3d 20 4e 55 4c 4c    if (cp == NULL
4020: 29 20 62 72 65 61 6b 3b 0a 09 20 20 20 20 54 63  ) break;..    Tc
4030: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
4040: 6c 65 6d 65 6e 74 28 20 69 6e 74 65 72 70 2c 20  lement( interp, 
4050: 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65  objPtr,...Tcl_Ne
4060: 77 53 74 72 69 6e 67 4f 62 6a 28 20 63 70 2c 20  wStringObj( cp, 
4070: 2d 31 29 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 20  -1) );..}.    } 
4080: 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c  else {..sk = SSL
4090: 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 73 6c  _get_ciphers(ssl
40a0: 29 3b 0a 0a 09 66 6f 72 20 28 69 6e 64 65 78 20  );...for (index 
40b0: 3d 20 30 3b 20 69 6e 64 65 78 20 3c 20 73 6b 5f  = 0; index < sk_
40c0: 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73  SSL_CIPHER_num(s
40d0: 6b 29 3b 20 69 6e 64 65 78 2b 2b 29 20 7b 0a 09  k); index++) {..
40e0: 20 20 20 20 72 65 67 69 73 74 65 72 20 73 69 7a      register siz
40f0: 65 5f 74 20 69 3b 0a 09 20 20 20 20 53 53 4c 5f  e_t i;..    SSL_
4100: 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 74 69  CIPHER_descripti
4110: 6f 6e 28 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45  on( sk_SSL_CIPHE
4120: 52 5f 76 61 6c 75 65 28 20 73 6b 2c 20 69 6e 64  R_value( sk, ind
4130: 65 78 29 2c 0a 09 09 09 09 20 20 20 20 62 75 66  ex),.....    buf
4140: 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 3b 0a  , sizeof(buf));.
4150: 09 20 20 20 20 66 6f 72 20 28 69 20 3d 20 73 74  .    for (i = st
4160: 72 6c 65 6e 28 62 75 66 29 20 2d 20 31 3b 20 69  rlen(buf) - 1; i
4170: 20 3b 20 69 2d 2d 29 20 7b 0a 09 09 69 66 20 28   ; i--) {...if (
4180: 28 62 75 66 5b 69 5d 20 3d 3d 20 27 20 27 29 20  (buf[i] == ' ') 
4190: 7c 7c 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 5c  || (buf[i] == '\
41a0: 6e 27 29 20 7c 7c 0a 09 09 20 20 20 20 28 62 75  n') ||...    (bu
41b0: 66 5b 69 5d 20 3d 3d 20 27 5c 72 27 29 20 7c 7c  f[i] == '\r') ||
41c0: 20 28 62 75 66 5b 69 5d 20 3d 3d 20 27 5c 74 27   (buf[i] == '\t'
41d0: 29 29 20 7b 0a 09 09 20 20 20 20 62 75 66 5b 69  )) {...    buf[i
41e0: 5d 20 3d 20 27 5c 30 27 3b 0a 09 09 7d 20 65 6c  ] = '\0';...} el
41f0: 73 65 20 7b 0a 09 09 20 20 20 20 62 72 65 61 6b  se {...    break
4200: 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20  ;...}..    }..  
4210: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
4220: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 69 6e 74 65  endElement( inte
4230: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63  rp, objPtr,...Tc
4240: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20  l_NewStringObj( 
4250: 62 75 66 2c 20 2d 31 29 20 29 3b 0a 09 7d 0a 20  buf, -1) );..}. 
4260: 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 66 72 65     }.    SSL_fre
4270: 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f  e(ssl);.    SSL_
4280: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 0a  CTX_free(ctx);..
4290: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65      Tcl_SetObjRe
42a0: 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f 62  sult( interp, ob
42b0: 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72  jPtr);.    retur
42c0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63  n TCL_OK;.    .c
42d0: 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65  lientData = clie
42e0: 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20  ntData;.}.../*. 
42f0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
4300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4330: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 48 61 6e 64 73  ----. *. * Hands
4340: 68 61 6b 65 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a  hakeObjCmd --. *
4350: 0a 20 2a 09 54 68 69 73 20 63 6f 6d 6d 61 6e 64  . *.This command
4360: 20 69 73 20 75 73 65 64 20 74 6f 20 76 65 72 69   is used to veri
4370: 66 79 20 77 68 65 74 68 65 72 20 74 68 65 20 68  fy whether the h
4380: 61 6e 64 73 68 61 6b 65 20 69 73 20 63 6f 6d 70  andshake is comp
4390: 6c 65 74 65 0a 20 2a 09 6f 72 20 6e 6f 74 2e 0a  lete. *.or not..
43a0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
43b0: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c  *.A standard Tcl
43c0: 20 72 65 73 75 6c 74 2e 20 31 20 6d 65 61 6e 73   result. 1 means
43d0: 20 68 61 6e 64 73 68 61 6b 65 20 63 6f 6d 70 6c   handshake compl
43e0: 65 74 65 2c 20 30 20 6d 65 61 6e 73 20 70 65 6e  ete, 0 means pen
43f0: 64 69 6e 67 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  ding.. *. * Side
4400: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79   effects:. *.May
4410: 20 66 6f 72 63 65 20 53 53 4c 20 6e 65 67 6f 74   force SSL negot
4420: 69 61 74 69 6f 6e 20 74 6f 20 74 61 6b 65 20 70  iation to take p
4430: 6c 61 63 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  lace.. *. *-----
4440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
4480: 2a 2f 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 48  */..static int H
4490: 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 28 43  andshakeObjCmd(C
44a0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
44b0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70  Data, Tcl_Interp
44c0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62   *interp, int ob
44d0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e  jc, Tcl_Obj *con
44e0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 09 54 63  st objv[]) {..Tc
44f0: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 09  l_Channel chan;.
4500: 09 2f 2a 20 54 68 65 20 63 68 61 6e 6e 65 6c 20  ./* The channel 
4510: 74 6f 20 73 65 74 20 61 20 6d 6f 64 65 20 6f 6e  to set a mode on
4520: 2e 20 2a 2f 0a 09 53 74 61 74 65 20 2a 73 74 61  . */..State *sta
4530: 74 65 50 74 72 3b 09 09 2f 2a 20 63 6c 69 65 6e  tePtr;../* clien
4540: 74 20 73 74 61 74 65 20 66 6f 72 20 73 73 6c 20  t state for ssl 
4550: 73 6f 63 6b 65 74 20 2a 2f 0a 09 63 6f 6e 73 74  socket */..const
4560: 20 63 68 61 72 20 2a 65 72 72 53 74 72 20 3d 20   char *errStr = 
4570: 4e 55 4c 4c 3b 0a 09 69 6e 74 20 72 65 74 20 3d  NULL;..int ret =
4580: 20 31 3b 0a 09 69 6e 74 20 65 72 72 20 3d 20 30   1;..int err = 0
4590: 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c  ;...dprintf("Cal
45a0: 6c 65 64 22 29 3b 0a 0a 09 69 66 20 28 6f 62 6a  led");...if (obj
45b0: 63 20 21 3d 20 32 29 20 7b 0a 09 09 54 63 6c 5f  c != 2) {...Tcl_
45c0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
45d0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63  erp, 1, objv, "c
45e0: 68 61 6e 6e 65 6c 22 29 3b 0a 09 09 72 65 74 75  hannel");...retu
45f0: 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09  rn(TCL_ERROR);..
4600: 7d 0a 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47  }...chan = Tcl_G
4610: 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70  etChannel(interp
4620: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  , Tcl_GetStringF
4630: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20  romObj(objv[1], 
4640: 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 09 69  NULL), NULL);..i
4650: 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f  f (chan == (Tcl_
4660: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b  Channel) NULL) {
4670: 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52  ...return(TCL_ER
4680: 52 4f 52 29 3b 0a 09 7d 0a 0a 09 2f 2a 0a 09 20  ROR);..}.../*.. 
4690: 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f  * Make sure to o
46a0: 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f  perate on the to
46b0: 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 09 20  pmost channel.. 
46c0: 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47  */..chan = Tcl_G
46d0: 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61  etTopChannel(cha
46e0: 6e 29 3b 0a 09 69 66 20 28 54 63 6c 5f 47 65 74  n);..if (Tcl_Get
46f0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e  ChannelType(chan
4700: 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c  ) != Tls_Channel
4710: 54 79 70 65 28 29 29 20 7b 0a 09 09 54 63 6c 5f  Type()) {...Tcl_
4720: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
4730: 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65  erp, "bad channe
4740: 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68  l \"", Tcl_GetCh
4750: 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c  annelName(chan),
4760: 20 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20   "\": not a TLS 
4770: 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b  channel", NULL);
4780: 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52  ...return(TCL_ER
4790: 52 4f 52 29 3b 0a 09 7d 0a 09 73 74 61 74 65 50  ROR);..}..stateP
47a0: 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29 54 63  tr = (State *)Tc
47b0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74  l_GetChannelInst
47c0: 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a  anceData(chan);.
47d0: 0a 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 69  ..dprintf("Calli
47e0: 6e 67 20 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f  ng Tls_WaitForCo
47f0: 6e 6e 65 63 74 22 29 3b 0a 09 72 65 74 20 3d 20  nnect");..ret = 
4800: 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e 65  Tls_WaitForConne
4810: 63 74 28 73 74 61 74 65 50 74 72 2c 20 26 65 72  ct(statePtr, &er
4820: 72 2c 20 31 29 3b 0a 09 64 70 72 69 6e 74 66 28  r, 1);..dprintf(
4830: 22 54 6c 73 5f 57 61 69 74 46 6f 72 43 6f 6e 6e  "Tls_WaitForConn
4840: 65 63 74 20 72 65 74 75 72 6e 65 64 3a 20 25 69  ect returned: %i
4850: 22 2c 20 72 65 74 29 3b 0a 0a 09 69 66 20 28 72  ", ret);...if (r
4860: 65 74 20 3c 20 30 20 26 26 20 28 28 73 74 61 74  et < 0 && ((stat
4870: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54 4c  ePtr->flags & TL
4880: 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 26 26 20  S_TCL_ASYNC) && 
4890: 28 65 72 72 20 3d 3d 20 45 41 47 41 49 4e 29 29  (err == EAGAIN))
48a0: 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22 41  ) {...dprintf("A
48b0: 73 79 6e 63 20 73 65 74 20 61 6e 64 20 65 72 72  sync set and err
48c0: 20 3d 20 45 41 47 41 49 4e 22 29 3b 0a 09 09 72   = EAGAIN");...r
48d0: 65 74 20 3d 20 30 3b 0a 09 7d 20 65 6c 73 65 20  et = 0;..} else 
48e0: 69 66 20 28 72 65 74 20 3c 20 30 29 20 7b 0a 09  if (ret < 0) {..
48f0: 09 65 72 72 53 74 72 20 3d 20 73 74 61 74 65 50  .errStr = stateP
4900: 74 72 2d 3e 65 72 72 3b 0a 09 09 54 63 6c 5f 52  tr->err;...Tcl_R
4910: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  esetResult(inter
4920: 70 29 3b 0a 09 09 54 63 6c 5f 53 65 74 45 72 72  p);...Tcl_SetErr
4930: 6e 6f 28 65 72 72 29 3b 0a 0a 09 09 69 66 20 28  no(err);....if (
4940: 21 65 72 72 53 74 72 20 7c 7c 20 28 2a 65 72 72  !errStr || (*err
4950: 53 74 72 20 3d 3d 20 30 29 29 20 7b 0a 09 09 09  Str == 0)) {....
4960: 65 72 72 53 74 72 20 3d 20 54 63 6c 5f 50 6f 73  errStr = Tcl_Pos
4970: 69 78 45 72 72 6f 72 28 69 6e 74 65 72 70 29 3b  ixError(interp);
4980: 0a 09 09 7d 0a 0a 09 09 54 63 6c 5f 41 70 70 65  ...}....Tcl_Appe
4990: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
49a0: 20 22 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c   "handshake fail
49b0: 65 64 3a 20 22 2c 20 65 72 72 53 74 72 2c 20 28  ed: ", errStr, (
49c0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
49d0: 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e  .dprintf("Return
49e0: 69 6e 67 20 54 43 4c 5f 45 52 52 4f 52 20 77 69  ing TCL_ERROR wi
49f0: 74 68 20 68 61 6e 64 73 68 61 6b 65 20 66 61 69  th handshake fai
4a00: 6c 65 64 3a 20 25 73 22 2c 20 65 72 72 53 74 72  led: %s", errStr
4a10: 29 3b 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f  );...return(TCL_
4a20: 45 52 52 4f 52 29 3b 0a 09 7d 20 65 6c 73 65 20  ERROR);..} else 
4a30: 7b 0a 09 09 69 66 20 28 65 72 72 20 21 3d 20 30  {...if (err != 0
4a40: 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22  ) {....dprintf("
4a50: 47 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 69 74  Got an error wit
4a60: 68 20 61 20 63 6f 6d 70 6c 65 74 65 64 20 68 61  h a completed ha
4a70: 6e 64 73 68 61 6b 65 3a 20 65 72 72 20 3d 20 25  ndshake: err = %
4a80: 69 22 2c 20 65 72 72 29 3b 0a 09 09 7d 0a 0a 09  i", err);...}...
4a90: 09 72 65 74 20 3d 20 31 3b 0a 09 7d 0a 0a 09 64  .ret = 1;..}...d
4aa0: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e  printf("Returnin
4ab0: 67 20 54 43 4c 5f 4f 4b 20 77 69 74 68 20 64 61  g TCL_OK with da
4ac0: 74 61 20 5c 22 25 69 5c 22 22 2c 20 72 65 74 29  ta \"%i\"", ret)
4ad0: 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73  ;..Tcl_SetObjRes
4ae0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f  ult(interp, Tcl_
4af0: 4e 65 77 49 6e 74 4f 62 6a 28 72 65 74 29 29 3b  NewIntObj(ret));
4b00: 0a 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29  ..return(TCL_OK)
4b10: 3b 0a 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61  ;..    .clientDa
4b20: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b  ta = clientData;
4b30: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  .}../*. *-------
4b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
4b80: 20 2a 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20   * ImportObjCmd 
4b90: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72  --. *. *.This pr
4ba0: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b  ocedure is invok
4bb0: 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68  ed to process th
4bc0: 65 20 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a  e "ssl" command.
4bd0: 20 2a 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 6f   *. *.The ssl co
4be0: 6d 6d 61 6e 64 20 70 75 73 68 65 73 20 53 53 4c  mmand pushes SSL
4bf0: 20 6f 76 65 72 20 61 20 28 6e 65 77 6c 79 20 63   over a (newly c
4c00: 6f 6e 6e 65 63 74 65 64 29 20 74 63 70 20 73 6f  onnected) tcp so
4c10: 63 6b 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  cket. *. * Resul
4c20: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72  ts:. *.A standar
4c30: 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a  d Tcl result.. *
4c40: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
4c50: 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20  :. *.May modify 
4c60: 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20  the behavior of 
4c70: 61 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20  an IO channel.. 
4c80: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
4c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4cc0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61  -------. */..sta
4cd0: 74 69 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62  tic int.ImportOb
4ce0: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20  jCmd(ClientData 
4cf0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f  clientData, Tcl_
4d00: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
4d10: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
4d20: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29  j *const objv[])
4d30: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e   {.    Tcl_Chann
4d40: 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65  el chan;../* The
4d50: 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20   channel to set 
4d60: 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20  a mode on. */.  
4d70: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74    State *statePt
4d80: 72 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74  r;../* client st
4d90: 61 74 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b  ate for ssl sock
4da0: 65 74 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54  et */.    SSL_CT
4db0: 58 20 2a 63 74 78 09 20 20 20 20 20 20 20 20 3d  X *ctx.        =
4dc0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f   NULL;.    Tcl_O
4dd0: 62 6a 20 2a 73 63 72 69 70 74 09 20 20 20 20 20  bj *script.     
4de0: 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54     = NULL;.    T
4df0: 63 6c 5f 4f 62 6a 20 2a 70 61 73 73 77 6f 72 64  cl_Obj *password
4e00: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b  .        = NULL;
4e10: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
4e20: 20 75 70 70 65 72 43 68 61 6e 6e 65 6c 54 72 61   upperChannelTra
4e30: 6e 73 6c 61 74 69 6f 6e 2c 20 75 70 70 65 72 43  nslation, upperC
4e40: 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 2c 20  hannelBlocking, 
4e50: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f  upperChannelEnco
4e60: 64 69 6e 67 2c 20 75 70 70 65 72 43 68 61 6e 6e  ding, upperChann
4e70: 65 6c 45 4f 46 43 68 61 72 3b 0a 20 20 20 20 69  elEOFChar;.    i
4e80: 6e 74 20 69 64 78 2c 20 6c 65 6e 3b 0a 20 20 20  nt idx, len;.   
4e90: 20 69 6e 74 20 66 6c 61 67 73 09 09 20 20 20 20   int flags..    
4ea0: 20 20 20 20 3d 20 54 4c 53 5f 54 43 4c 5f 49 4e      = TLS_TCL_IN
4eb0: 49 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 76  IT;.    int serv
4ec0: 65 72 09 09 20 20 20 20 20 20 20 20 3d 20 30 3b  er..        = 0;
4ed0: 09 2f 2a 20 69 73 20 63 6f 6e 6e 65 63 74 69 6f  ./* is connectio
4ee0: 6e 20 69 6e 63 6f 6d 69 6e 67 20 6f 72 20 6f 75  n incoming or ou
4ef0: 74 67 6f 69 6e 67 3f 20 2a 2f 0a 20 20 20 20 63  tgoing? */.    c
4f00: 68 61 72 20 2a 6b 65 79 66 69 6c 65 09 20 20 20  har *keyfile.   
4f10: 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20       = NULL;.   
4f20: 20 63 68 61 72 20 2a 63 65 72 74 66 69 6c 65 09   char *certfile.
4f30: 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a          = NULL;.
4f40: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61      unsigned cha
4f50: 72 20 2a 6b 65 79 20 20 09 3d 20 4e 55 4c 4c 3b  r *key  .= NULL;
4f60: 0a 20 20 20 20 69 6e 74 20 6b 65 79 5f 6c 65 6e  .    int key_len
4f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f80: 20 3d 20 30 3b 0a 20 20 20 20 75 6e 73 69 67 6e   = 0;.    unsign
4f90: 65 64 20 63 68 61 72 20 2a 63 65 72 74 20 20 20  ed char *cert   
4fa0: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20        = NULL;.  
4fb0: 20 20 69 6e 74 20 63 65 72 74 5f 6c 65 6e 20 20    int cert_len  
4fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 20                = 
4fd0: 30 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70  0;.    char *cip
4fe0: 68 65 72 73 09 20 20 20 20 20 20 20 20 3d 20 4e  hers.        = N
4ff0: 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 43  ULL;.    char *C
5000: 41 66 69 6c 65 09 20 20 20 20 20 20 20 20 3d 20  Afile.        = 
5010: 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a  NULL;.    char *
5020: 43 41 64 69 72 09 09 20 20 20 20 20 20 20 20 3d  CAdir..        =
5030: 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20   NULL;.    char 
5040: 2a 44 48 70 61 72 61 6d 73 09 20 20 20 20 20 20  *DHparams.      
5050: 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68    = NULL;.    ch
5060: 61 72 20 2a 6d 6f 64 65 6c 09 09 20 20 20 20 20  ar *model..     
5070: 20 20 20 3d 20 4e 55 4c 4c 3b 0a 23 69 66 6e 64     = NULL;.#ifnd
5080: 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c  ef OPENSSL_NO_TL
5090: 53 45 58 54 0a 20 20 20 20 63 68 61 72 20 2a 73  SEXT.    char *s
50a0: 65 72 76 65 72 6e 61 6d 65 09 20 20 20 20 20 20  ervername.      
50b0: 20 20 3d 20 4e 55 4c 4c 3b 09 2f 2a 20 68 6f 73    = NULL;./* hos
50c0: 74 6e 61 6d 65 20 66 6f 72 20 53 65 72 76 65 72  tname for Server
50d0: 20 4e 61 6d 65 20 49 6e 64 69 63 61 74 69 6f 6e   Name Indication
50e0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20   */.    Tcl_Obj 
50f0: 2a 61 6c 70 6e 09 09 3d 20 4e 55 4c 4c 3b 0a 23  *alpn..= NULL;.#
5100: 65 6e 64 69 66 0a 20 20 20 20 69 6e 74 20 73 73  endif.    int ss
5110: 6c 32 20 3d 20 30 2c 20 73 73 6c 33 20 3d 20 30  l2 = 0, ssl3 = 0
5120: 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73 31 20 3d  ;.    int tls1 =
5130: 20 31 2c 20 74 6c 73 31 5f 31 20 3d 20 31 2c 20   1, tls1_1 = 1, 
5140: 74 6c 73 31 5f 32 20 3d 20 31 2c 20 74 6c 73 31  tls1_2 = 1, tls1
5150: 5f 33 20 3d 20 31 3b 0a 20 20 20 20 69 6e 74 20  _3 = 1;.    int 
5160: 70 72 6f 74 6f 20 3d 20 30 3b 0a 20 20 20 20 69  proto = 0;.    i
5170: 6e 74 20 76 65 72 69 66 79 20 3d 20 30 2c 20 72  nt verify = 0, r
5180: 65 71 75 69 72 65 20 3d 20 30 2c 20 72 65 71 75  equire = 0, requ
5190: 65 73 74 20 3d 20 31 3b 0a 0a 20 20 20 20 64 70  est = 1;..    dp
51a0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b  rintf("Called");
51b0: 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45  ..#if OPENSSL_VE
51c0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30  RSION_NUMBER < 0
51d0: 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 21 64  x10100000L && !d
51e0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e  efined(OPENSSL_N
51f0: 4f 5f 53 53 4c 32 29 20 26 26 20 64 65 66 69 6e  O_SSL2) && defin
5200: 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 64  ed(NO_TLS1) && d
5210: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31  efined(NO_TLS1_1
5220: 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f  ) && defined(NO_
5230: 54 4c 53 31 5f 32 29 20 26 26 20 64 65 66 69 6e  TLS1_2) && defin
5240: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 26  ed(NO_TLS1_3) &&
5250: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33   defined(NO_SSL3
5260: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e 4f  ) && !defined(NO
5270: 5f 53 53 4c 32 29 0a 20 20 20 20 73 73 6c 32 20  _SSL2).    ssl2 
5280: 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20  = 1;.#endif.#if 
5290: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c  !defined(OPENSSL
52a0: 5f 4e 4f 5f 53 53 4c 33 29 20 26 26 20 64 65 66  _NO_SSL3) && def
52b0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26  ined(NO_TLS1) &&
52c0: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31   defined(NO_TLS1
52d0: 5f 31 29 20 26 26 20 64 65 66 69 6e 65 64 28 4e  _1) && defined(N
52e0: 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 64 65 66  O_TLS1_2) && def
52f0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20  ined(NO_TLS1_3) 
5300: 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53  && defined(NO_SS
5310: 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 28  L2) && !defined(
5320: 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 73 73 6c  NO_SSL3).    ssl
5330: 33 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 23 69  3 = 1;.#endif.#i
5340: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53  f defined(NO_TLS
5350: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50  1) || defined(OP
5360: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 0a 20  ENSSL_NO_TLS1). 
5370: 20 20 20 74 6c 73 31 20 3d 20 30 3b 0a 23 65 6e     tls1 = 0;.#en
5380: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28  dif.#if defined(
5390: 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65  NO_TLS1_1) || de
53a0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f  fined(OPENSSL_NO
53b0: 5f 54 4c 53 31 5f 31 29 0a 20 20 20 20 74 6c 73  _TLS1_1).    tls
53c0: 31 5f 31 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a  1_1 = 0;.#endif.
53d0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54  #if defined(NO_T
53e0: 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65  LS1_2) || define
53f0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53  d(OPENSSL_NO_TLS
5400: 31 5f 32 29 0a 20 20 20 20 74 6c 73 31 5f 32 20  1_2).    tls1_2 
5410: 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20  = 0;.#endif.#if 
5420: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f  defined(NO_TLS1_
5430: 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50  3) || defined(OP
5440: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29  ENSSL_NO_TLS1_3)
5450: 0a 20 20 20 20 74 6c 73 31 5f 33 20 3d 20 30 3b  .    tls1_3 = 0;
5460: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20  .#endif..    if 
5470: 28 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63  (objc < 2) {..Tc
5480: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
5490: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
54a0: 22 63 68 61 6e 6e 65 6c 20 3f 6f 70 74 69 6f 6e  "channel ?option
54b0: 73 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  s?");..return TC
54c0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a  L_ERROR;.    }..
54d0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47      chan = Tcl_G
54e0: 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70  etChannel(interp
54f0: 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  , Tcl_GetStringF
5500: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20  romObj(objv[1], 
5510: 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20  NULL), NULL);.  
5520: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54    if (chan == (T
5530: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c  cl_Channel) NULL
5540: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  ) {..return TCL_
5550: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20  ERROR;.    }..  
5560: 20 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b 65    /*.     * Make
5570: 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65   sure to operate
5580: 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20   on the topmost 
5590: 63 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a  channel.     */.
55a0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47      chan = Tcl_G
55b0: 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61  etTopChannel(cha
55c0: 6e 29 3b 0a 0a 20 20 20 20 66 6f 72 20 28 69 64  n);..    for (id
55d0: 78 20 3d 20 32 3b 20 69 64 78 20 3c 20 6f 62 6a  x = 2; idx < obj
55e0: 63 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 63 68 61  c; idx++) {..cha
55f0: 72 20 2a 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74  r *opt = Tcl_Get
5600: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62  StringFromObj(ob
5610: 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a  jv[idx], NULL);.
5620: 0a 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20  ..if (opt[0] != 
5630: 27 2d 27 29 0a 09 20 20 20 20 62 72 65 61 6b 3b  '-')..    break;
5640: 0a 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 64  ...OPTSTR( "-cad
5650: 69 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 4f 50  ir", CAdir);..OP
5660: 54 53 54 52 28 20 22 2d 63 61 66 69 6c 65 22 2c  TSTR( "-cafile",
5670: 20 43 41 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54   CAfile);..OPTST
5680: 52 28 20 22 2d 63 65 72 74 66 69 6c 65 22 2c 20  R( "-certfile", 
5690: 63 65 72 74 66 69 6c 65 29 3b 0a 09 4f 50 54 53  certfile);..OPTS
56a0: 54 52 28 20 22 2d 63 69 70 68 65 72 22 2c 20 63  TR( "-cipher", c
56b0: 69 70 68 65 72 73 29 3b 0a 09 4f 50 54 4f 42 4a  iphers);..OPTOBJ
56c0: 28 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 73 63  ( "-command", sc
56d0: 72 69 70 74 29 3b 0a 09 4f 50 54 53 54 52 28 20  ript);..OPTSTR( 
56e0: 22 2d 64 68 70 61 72 61 6d 73 22 2c 20 44 48 70  "-dhparams", DHp
56f0: 61 72 61 6d 73 29 3b 0a 09 4f 50 54 53 54 52 28  arams);..OPTSTR(
5700: 20 22 2d 6b 65 79 66 69 6c 65 22 2c 20 6b 65 79   "-keyfile", key
5710: 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52 28 20  file);..OPTSTR( 
5720: 22 2d 6d 6f 64 65 6c 22 2c 20 6d 6f 64 65 6c 29  "-model", model)
5730: 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 70 61 73  ;..OPTOBJ( "-pas
5740: 73 77 6f 72 64 22 2c 20 70 61 73 73 77 6f 72 64  sword", password
5750: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72  );..OPTBOOL( "-r
5760: 65 71 75 69 72 65 22 2c 20 72 65 71 75 69 72 65  equire", require
5770: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 72  );..OPTBOOL( "-r
5780: 65 71 75 65 73 74 22 2c 20 72 65 71 75 65 73 74  equest", request
5790: 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73  );..OPTBOOL( "-s
57a0: 65 72 76 65 72 22 2c 20 73 65 72 76 65 72 29 3b  erver", server);
57b0: 0a 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c  .#ifndef OPENSSL
57c0: 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 20  _NO_TLSEXT.     
57d0: 20 20 20 4f 50 54 53 54 52 28 20 22 2d 73 65 72     OPTSTR( "-ser
57e0: 76 65 72 6e 61 6d 65 22 2c 20 73 65 72 76 65 72  vername", server
57f0: 6e 61 6d 65 29 3b 0a 09 4f 50 54 4f 42 4a 28 20  name);..OPTOBJ( 
5800: 22 2d 61 6c 70 6e 22 2c 20 61 6c 70 6e 29 3b 0a  "-alpn", alpn);.
5810: 23 65 6e 64 69 66 0a 0a 09 4f 50 54 42 4f 4f 4c  #endif...OPTBOOL
5820: 28 20 22 2d 73 73 6c 32 22 2c 20 73 73 6c 32 29  ( "-ssl2", ssl2)
5830: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73  ;..OPTBOOL( "-ss
5840: 6c 33 22 2c 20 73 73 6c 33 29 3b 0a 09 4f 50 54  l3", ssl3);..OPT
5850: 42 4f 4f 4c 28 20 22 2d 74 6c 73 31 22 2c 20 74  BOOL( "-tls1", t
5860: 6c 73 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20  ls1);..OPTBOOL( 
5870: 22 2d 74 6c 73 31 2e 31 22 2c 20 74 6c 73 31 5f  "-tls1.1", tls1_
5880: 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d  1);..OPTBOOL( "-
5890: 74 6c 73 31 2e 32 22 2c 20 74 6c 73 31 5f 32 29  tls1.2", tls1_2)
58a0: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c  ;..OPTBOOL( "-tl
58b0: 73 31 2e 33 22 2c 20 74 6c 73 31 5f 33 29 3b 0a  s1.3", tls1_3);.
58c0: 20 20 4f 50 54 42 59 54 45 28 22 2d 63 65 72 74    OPTBYTE("-cert
58d0: 22 2c 20 63 65 72 74 2c 20 63 65 72 74 5f 6c 65  ", cert, cert_le
58e0: 6e 29 3b 0a 20 20 4f 50 54 42 59 54 45 28 22 2d  n);.  OPTBYTE("-
58f0: 6b 65 79 22 2c 20 6b 65 79 2c 20 6b 65 79 5f 6c  key", key, key_l
5900: 65 6e 29 3b 0a 0a 09 4f 50 54 42 41 44 28 20 22  en);...OPTBAD( "
5910: 6f 70 74 69 6f 6e 22 2c 20 22 2d 61 6c 70 6e 2c  option", "-alpn,
5920: 20 2d 63 61 64 69 72 2c 20 2d 63 61 66 69 6c 65   -cadir, -cafile
5930: 2c 20 2d 63 65 72 74 2c 20 2d 63 65 72 74 66 69  , -cert, -certfi
5940: 6c 65 2c 20 2d 63 69 70 68 65 72 2c 20 2d 63 6f  le, -cipher, -co
5950: 6d 6d 61 6e 64 2c 20 2d 64 68 70 61 72 61 6d 73  mmand, -dhparams
5960: 2c 20 2d 6b 65 79 2c 20 2d 6b 65 79 66 69 6c 65  , -key, -keyfile
5970: 2c 20 2d 6d 6f 64 65 6c 2c 20 2d 70 61 73 73 77  , -model, -passw
5980: 6f 72 64 2c 20 2d 72 65 71 75 69 72 65 2c 20 2d  ord, -require, -
5990: 72 65 71 75 65 73 74 2c 20 2d 73 65 72 76 65 72  request, -server
59a0: 2c 20 2d 73 65 72 76 65 72 6e 61 6d 65 2c 20 2d  , -servername, -
59b0: 73 73 6c 32 2c 20 2d 73 73 6c 33 2c 20 2d 74 6c  ssl2, -ssl3, -tl
59c0: 73 31 2c 20 2d 74 6c 73 31 2e 31 2c 20 2d 74 6c  s1, -tls1.1, -tl
59d0: 73 31 2e 32 2c 20 6f 72 20 2d 74 6c 73 31 2e 33  s1.2, or -tls1.3
59e0: 22 29 3b 0a 0a 09 72 65 74 75 72 6e 20 54 43 4c  ");...return TCL
59f0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20  _ERROR;.    }.  
5a00: 20 20 69 66 20 28 72 65 71 75 65 73 74 29 09 20    if (request). 
5a10: 20 20 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c     verify |= SSL
5a20: 5f 56 45 52 49 46 59 5f 43 4c 49 45 4e 54 5f 4f  _VERIFY_CLIENT_O
5a30: 4e 43 45 20 7c 20 53 53 4c 5f 56 45 52 49 46 59  NCE | SSL_VERIFY
5a40: 5f 50 45 45 52 3b 0a 20 20 20 20 69 66 20 28 72  _PEER;.    if (r
5a50: 65 71 75 65 73 74 20 26 26 20 72 65 71 75 69 72  equest && requir
5a60: 65 29 20 76 65 72 69 66 79 20 7c 3d 20 53 53 4c  e) verify |= SSL
5a70: 5f 56 45 52 49 46 59 5f 46 41 49 4c 5f 49 46 5f  _VERIFY_FAIL_IF_
5a80: 4e 4f 5f 50 45 45 52 5f 43 45 52 54 3b 0a 20 20  NO_PEER_CERT;.  
5a90: 20 20 69 66 20 28 76 65 72 69 66 79 20 3d 3d 20    if (verify == 
5aa0: 30 29 09 76 65 72 69 66 79 20 3d 20 53 53 4c 5f  0).verify = SSL_
5ab0: 56 45 52 49 46 59 5f 4e 4f 4e 45 3b 0a 0a 20 20  VERIFY_NONE;..  
5ac0: 20 20 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 32    proto |= (ssl2
5ad0: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c   ? TLS_PROTO_SSL
5ae0: 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74  2 : 0);.    prot
5af0: 6f 20 7c 3d 20 28 73 73 6c 33 20 3f 20 54 4c 53  o |= (ssl3 ? TLS
5b00: 5f 50 52 4f 54 4f 5f 53 53 4c 33 20 3a 20 30 29  _PROTO_SSL3 : 0)
5b10: 3b 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28  ;.    proto |= (
5b20: 74 6c 73 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f  tls1 ? TLS_PROTO
5b30: 5f 54 4c 53 31 20 3a 20 30 29 3b 0a 20 20 20 20  _TLS1 : 0);.    
5b40: 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 31  proto |= (tls1_1
5b50: 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53   ? TLS_PROTO_TLS
5b60: 31 5f 31 20 3a 20 30 29 3b 0a 20 20 20 20 70 72  1_1 : 0);.    pr
5b70: 6f 74 6f 20 7c 3d 20 28 74 6c 73 31 5f 32 20 3f  oto |= (tls1_2 ?
5b80: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f   TLS_PROTO_TLS1_
5b90: 32 20 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74  2 : 0);.    prot
5ba0: 6f 20 7c 3d 20 28 74 6c 73 31 5f 33 20 3f 20 54  o |= (tls1_3 ? T
5bb0: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 33 20  LS_PROTO_TLS1_3 
5bc0: 3a 20 30 29 3b 0a 0a 20 20 20 20 2f 2a 20 72 65  : 0);..    /* re
5bd0: 73 65 74 20 74 6f 20 4e 55 4c 4c 20 69 66 20 62  set to NULL if b
5be0: 6c 61 6e 6b 20 73 74 72 69 6e 67 20 70 72 6f 76  lank string prov
5bf0: 69 64 65 64 20 2a 2f 0a 20 20 20 20 69 66 20 28  ided */.    if (
5c00: 63 65 72 74 20 26 26 20 21 2a 63 65 72 74 29 09  cert && !*cert).
5c10: 09 20 20 20 20 20 20 20 20 63 65 72 74 09 20 20  .        cert.  
5c20: 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20        = NULL;.  
5c30: 20 20 69 66 20 28 6b 65 79 20 26 26 20 21 2a 6b    if (key && !*k
5c40: 65 79 29 09 09 20 20 20 20 20 20 20 20 6b 65 79  ey)..        key
5c50: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b  .        = NULL;
5c60: 0a 20 20 20 20 69 66 20 28 63 65 72 74 66 69 6c  .    if (certfil
5c70: 65 20 26 26 20 21 2a 63 65 72 74 66 69 6c 65 29  e && !*certfile)
5c80: 20 20 20 20 20 20 20 20 20 63 65 72 74 66 69 6c           certfil
5c90: 65 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66  e.= NULL;.    if
5ca0: 20 28 6b 65 79 66 69 6c 65 20 26 26 20 21 2a 6b   (keyfile && !*k
5cb0: 65 79 66 69 6c 65 29 09 09 6b 65 79 66 69 6c 65  eyfile)..keyfile
5cc0: 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b  .        = NULL;
5cd0: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73  .    if (ciphers
5ce0: 20 26 26 20 21 2a 63 69 70 68 65 72 73 29 09 20   && !*ciphers). 
5cf0: 20 20 20 20 20 20 20 63 69 70 68 65 72 73 09 20         ciphers. 
5d00: 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c 3b 0a 20         = NULL;. 
5d10: 20 20 20 69 66 20 28 43 41 66 69 6c 65 20 26 26     if (CAfile &&
5d20: 20 21 2a 43 41 66 69 6c 65 29 09 20 20 20 20 20   !*CAfile).     
5d30: 20 20 20 43 41 66 69 6c 65 09 20 20 20 20 20 20     CAfile.      
5d40: 20 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66    = NULL;.    if
5d50: 20 28 43 41 64 69 72 20 26 26 20 21 2a 43 41 64   (CAdir && !*CAd
5d60: 69 72 29 09 20 20 20 20 20 20 20 20 43 41 64 69  ir).        CAdi
5d70: 72 09 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c  r.        = NULL
5d80: 3b 0a 20 20 20 20 69 66 20 28 44 48 70 61 72 61  ;.    if (DHpara
5d90: 6d 73 20 26 26 20 21 2a 44 48 70 61 72 61 6d 73  ms && !*DHparams
5da0: 29 09 20 20 20 20 20 20 20 20 44 48 70 61 72 61  ).        DHpara
5db0: 6d 73 20 20 20 20 20 20 20 20 3d 20 4e 55 4c 4c  ms        = NULL
5dc0: 3b 0a 0a 20 20 20 20 2f 2a 20 6e 65 77 20 53 53  ;..    /* new SS
5dd0: 4c 20 73 74 61 74 65 20 2a 2f 0a 20 20 20 20 73  L state */.    s
5de0: 74 61 74 65 50 74 72 09 09 3d 20 28 53 74 61 74  tatePtr..= (Stat
5df0: 65 20 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 75 6e  e *) ckalloc((un
5e00: 73 69 67 6e 65 64 29 20 73 69 7a 65 6f 66 28 53  signed) sizeof(S
5e10: 74 61 74 65 29 29 3b 0a 20 20 20 20 6d 65 6d 73  tate));.    mems
5e20: 65 74 28 73 74 61 74 65 50 74 72 2c 20 30 2c 20  et(statePtr, 0, 
5e30: 73 69 7a 65 6f 66 28 53 74 61 74 65 29 29 3b 0a  sizeof(State));.
5e40: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 66  .    statePtr->f
5e50: 6c 61 67 73 09 3d 20 66 6c 61 67 73 3b 0a 20 20  lags.= flags;.  
5e60: 20 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65    statePtr->inte
5e70: 72 70 09 3d 20 69 6e 74 65 72 70 3b 0a 20 20 20  rp.= interp;.   
5e80: 20 73 74 61 74 65 50 74 72 2d 3e 76 66 6c 61 67   statePtr->vflag
5e90: 73 09 3d 20 76 65 72 69 66 79 3b 0a 20 20 20 20  s.= verify;.    
5ea0: 73 74 61 74 65 50 74 72 2d 3e 65 72 72 09 3d 20  statePtr->err.= 
5eb0: 22 22 3b 0a 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f  "";..    /* allo
5ec0: 63 61 74 65 20 73 63 72 69 70 74 20 2a 2f 0a 20  cate script */. 
5ed0: 20 20 20 69 66 20 28 73 63 72 69 70 74 29 20 7b     if (script) {
5ee0: 0a 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 74  ..(void) Tcl_Get
5ef0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 73 63  StringFromObj(sc
5f00: 72 69 70 74 2c 20 26 6c 65 6e 29 3b 0a 09 69 66  ript, &len);..if
5f10: 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 20 73 74   (len) {..    st
5f20: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b  atePtr->callback
5f30: 20 3d 20 73 63 72 69 70 74 3b 0a 09 20 20 20 20   = script;..    
5f40: 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74  Tcl_IncrRefCount
5f50: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62  (statePtr->callb
5f60: 61 63 6b 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a  ack);..}.    }..
5f70: 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65 20      /* allocate 
5f80: 70 61 73 73 77 6f 72 64 20 2a 2f 0a 20 20 20 20  password */.    
5f90: 69 66 20 28 70 61 73 73 77 6f 72 64 29 20 7b 0a  if (password) {.
5fa0: 09 28 76 6f 69 64 29 20 54 63 6c 5f 47 65 74 53  .(void) Tcl_GetS
5fb0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 70 61 73  tringFromObj(pas
5fc0: 73 77 6f 72 64 2c 20 26 6c 65 6e 29 3b 0a 09 69  sword, &len);..i
5fd0: 66 20 28 6c 65 6e 29 20 7b 0a 09 20 20 20 20 73  f (len) {..    s
5fe0: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72  tatePtr->passwor
5ff0: 64 20 3d 20 70 61 73 73 77 6f 72 64 3b 0a 09 20  d = password;.. 
6000: 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f     Tcl_IncrRefCo
6010: 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e 70 61  unt(statePtr->pa
6020: 73 73 77 6f 72 64 29 3b 0a 09 7d 0a 20 20 20 20  ssword);..}.    
6030: 7d 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 6c  }..    if (model
6040: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 6e 74   != NULL) {..int
6050: 20 6d 6f 64 65 3b 0a 09 2f 2a 20 47 65 74 20 74   mode;../* Get t
6060: 68 65 20 22 6d 6f 64 65 6c 22 20 63 6f 6e 74 65  he "model" conte
6070: 78 74 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54 63  xt */..chan = Tc
6080: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74  l_GetChannel(int
6090: 65 72 70 2c 20 6d 6f 64 65 6c 2c 20 26 6d 6f 64  erp, model, &mod
60a0: 65 29 3b 0a 09 69 66 20 28 63 68 61 6e 20 3d 3d  e);..if (chan ==
60b0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e   (Tcl_Channel) N
60c0: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f  ULL) {..    Tls_
60d0: 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 74  Free((char *) st
60e0: 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65  atePtr);..    re
60f0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
6100: 09 7d 0a 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20  .}..        /*. 
6110: 20 20 20 20 20 20 20 20 2a 20 4d 61 6b 65 20 73          * Make s
6120: 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 6f  ure to operate o
6130: 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 68  n the topmost ch
6140: 61 6e 6e 65 6c 0a 20 20 20 20 20 20 20 20 20 2a  annel.         *
6150: 2f 0a 20 20 20 20 20 20 20 20 63 68 61 6e 20 3d  /.        chan =
6160: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e   Tcl_GetTopChann
6170: 65 6c 28 63 68 61 6e 29 3b 0a 09 69 66 20 28 54  el(chan);..if (T
6180: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70  cl_GetChannelTyp
6190: 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43  e(chan) != Tls_C
61a0: 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a  hannelType()) {.
61b0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  .    Tcl_AppendR
61c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62  esult(interp, "b
61d0: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a  ad channel \"",.
61e0: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61  ..    Tcl_GetCha
61f0: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20  nnelName(chan), 
6200: 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63  "\": not a TLS c
6210: 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a  hannel", NULL);.
6220: 09 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63  .    Tls_Free((c
6230: 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29  har *) statePtr)
6240: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43  ;..    return TC
6250: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09 63 74 78  L_ERROR;..}..ctx
6260: 20 3d 20 28 28 53 74 61 74 65 20 2a 29 54 63 6c   = ((State *)Tcl
6270: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61  _GetChannelInsta
6280: 6e 63 65 44 61 74 61 28 63 68 61 6e 29 29 2d 3e  nceData(chan))->
6290: 63 74 78 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  ctx;.    } else 
62a0: 7b 0a 09 69 66 20 28 28 63 74 78 20 3d 20 43 54  {..if ((ctx = CT
62b0: 58 5f 49 6e 69 74 28 73 74 61 74 65 50 74 72 2c  X_Init(statePtr,
62c0: 20 73 65 72 76 65 72 2c 20 70 72 6f 74 6f 2c 20   server, proto, 
62d0: 6b 65 79 66 69 6c 65 2c 20 63 65 72 74 66 69 6c  keyfile, certfil
62e0: 65 2c 20 6b 65 79 2c 20 63 65 72 74 2c 0a 09 20  e, key, cert,.. 
62f0: 20 20 20 6b 65 79 5f 6c 65 6e 2c 20 63 65 72 74     key_len, cert
6300: 5f 6c 65 6e 2c 20 43 41 64 69 72 2c 20 43 41 66  _len, CAdir, CAf
6310: 69 6c 65 2c 20 63 69 70 68 65 72 73 2c 20 44 48  ile, ciphers, DH
6320: 70 61 72 61 6d 73 29 29 20 3d 3d 20 28 53 53 4c  params)) == (SSL
6330: 5f 43 54 58 2a 29 30 29 20 7b 0a 09 20 20 20 20  _CTX*)0) {..    
6340: 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20 2a  Tls_Free((char *
6350: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20 20  ) statePtr);..  
6360: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
6370: 4f 52 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20  OR;..}.    }..  
6380: 20 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 20    statePtr->ctx 
6390: 3d 20 63 74 78 3b 0a 0a 20 20 20 20 2f 2a 0a 20  = ctx;..    /*. 
63a0: 20 20 20 20 2a 20 57 65 20 6e 65 65 64 20 74 6f      * We need to
63b0: 20 6d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20   make sure that 
63c0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 6f 72 6b  the channel work
63d0: 73 20 69 6e 20 62 69 6e 61 72 79 20 28 66 6f 72  s in binary (for
63e0: 20 74 68 65 0a 20 20 20 20 20 2a 20 65 6e 63 72   the.     * encr
63f0: 79 70 74 69 6f 6e 20 6e 6f 74 20 74 6f 20 67 65  yption not to ge
6400: 74 20 67 6f 6f 66 65 64 20 75 70 29 2e 0a 20 20  t goofed up)..  
6410: 20 20 20 2a 20 57 65 20 6f 6e 6c 79 20 77 61 6e     * We only wan
6420: 74 20 74 6f 20 61 64 6a 75 73 74 20 74 68 65 20  t to adjust the 
6430: 62 75 66 66 65 72 69 6e 67 20 69 6e 20 70 72 65  buffering in pre
6440: 2d 76 32 20 63 68 61 6e 6e 65 6c 73 2c 20 77 68  -v2 channels, wh
6450: 65 72 65 0a 20 20 20 20 20 2a 20 65 61 63 68 20  ere.     * each 
6460: 63 68 61 6e 6e 65 6c 20 69 6e 20 74 68 65 20 73  channel in the s
6470: 74 61 63 6b 20 6d 61 69 6e 74 61 69 6e 65 64 20  tack maintained 
6480: 69 74 73 20 6f 77 6e 20 62 75 66 66 65 72 73 2e  its own buffers.
6490: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 54 63 6c  .     */.    Tcl
64a0: 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75 70  _DStringInit(&up
64b0: 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 6e 73 6c  perChannelTransl
64c0: 61 74 69 6f 6e 29 3b 0a 20 20 20 20 54 63 6c 5f  ation);.    Tcl_
64d0: 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75 70 70  DStringInit(&upp
64e0: 65 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e  erChannelBlockin
64f0: 67 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72  g);.    Tcl_DStr
6500: 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 68  ingInit(&upperCh
6510: 61 6e 6e 65 6c 45 4f 46 43 68 61 72 29 3b 0a 20  annelEOFChar);. 
6520: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e     Tcl_DStringIn
6530: 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c  it(&upperChannel
6540: 45 6e 63 6f 64 69 6e 67 29 3b 0a 20 20 20 20 54  Encoding);.    T
6550: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70 74  cl_GetChannelOpt
6560: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e  ion(interp, chan
6570: 2c 20 22 2d 65 6f 66 63 68 61 72 22 2c 20 26 75  , "-eofchar", &u
6580: 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 68  pperChannelEOFCh
6590: 61 72 29 3b 0a 20 20 20 20 54 63 6c 5f 47 65 74  ar);.    Tcl_Get
65a0: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e  ChannelOption(in
65b0: 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 65 6e  terp, chan, "-en
65c0: 63 6f 64 69 6e 67 22 2c 20 26 75 70 70 65 72 43  coding", &upperC
65d0: 68 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 29 3b  hannelEncoding);
65e0: 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e  .    Tcl_GetChan
65f0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70  nelOption(interp
6600: 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c  , chan, "-transl
6610: 61 74 69 6f 6e 22 2c 20 26 75 70 70 65 72 43 68  ation", &upperCh
6620: 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f 6e  annelTranslation
6630: 29 3b 0a 20 20 20 20 54 63 6c 5f 47 65 74 43 68  );.    Tcl_GetCh
6640: 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65  annelOption(inte
6650: 72 70 2c 20 63 68 61 6e 2c 20 22 2d 62 6c 6f 63  rp, chan, "-bloc
6660: 6b 69 6e 67 22 2c 20 26 75 70 70 65 72 43 68 61  king", &upperCha
6670: 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 29 3b 0a 20  nnelBlocking);. 
6680: 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65     Tcl_SetChanne
6690: 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20  lOption(interp, 
66a0: 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74  chan, "-translat
66b0: 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 3b  ion", "binary");
66c0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e  .    Tcl_SetChan
66d0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70  nelOption(interp
66e0: 2c 20 63 68 61 6e 2c 20 22 2d 62 6c 6f 63 6b 69  , chan, "-blocki
66f0: 6e 67 22 2c 20 22 74 72 75 65 22 29 3b 0a 20 20  ng", "true");.  
6700: 20 20 64 70 72 69 6e 74 66 28 22 43 6f 6e 73 75    dprintf("Consu
6710: 6d 69 6e 67 20 54 63 6c 20 63 68 61 6e 6e 65 6c  ming Tcl channel
6720: 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68 61   %s", Tcl_GetCha
6730: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 29 3b  nnelName(chan));
6740: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73  .    statePtr->s
6750: 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b 43  elf = Tcl_StackC
6760: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54  hannel(interp, T
6770: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29  ls_ChannelType()
6780: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73  , (ClientData) s
6790: 74 61 74 65 50 74 72 2c 20 28 54 43 4c 5f 52 45  tatePtr, (TCL_RE
67a0: 41 44 41 42 4c 45 20 7c 20 54 43 4c 5f 57 52 49  ADABLE | TCL_WRI
67b0: 54 41 42 4c 45 29 2c 20 63 68 61 6e 29 3b 0a 20  TABLE), chan);. 
67c0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 72 65 61     dprintf("Crea
67d0: 74 65 64 20 63 68 61 6e 6e 65 6c 20 6e 61 6d 65  ted channel name
67e0: 64 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68  d %s", Tcl_GetCh
67f0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50  annelName(stateP
6800: 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20  tr->self));.    
6810: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65  if (statePtr->se
6820: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e  lf == (Tcl_Chann
6830: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 0a  el) NULL) {../*.
6840: 09 20 2a 20 4e 6f 20 75 73 65 20 6f 66 20 54 63  . * No use of Tc
6850: 6c 5f 45 76 65 6e 74 75 61 6c 6c 79 46 72 65 65  l_EventuallyFree
6860: 20 62 65 63 61 75 73 65 20 6e 6f 20 70 6f 73 73   because no poss
6870: 69 62 6c 65 20 54 63 6c 5f 50 72 65 73 65 72 76  ible Tcl_Preserv
6880: 65 2e 0a 09 20 2a 2f 0a 09 54 6c 73 5f 46 72 65  e... */..Tls_Fre
6890: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65  e((char *) state
68a0: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  Ptr);..return TC
68b0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a  L_ERROR;.    }..
68c0: 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e      Tcl_SetChann
68d0: 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c  elOption(interp,
68e0: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c   statePtr->self,
68f0: 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c   "-translation",
6900: 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75   Tcl_DStringValu
6910: 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 54  e(&upperChannelT
6920: 72 61 6e 73 6c 61 74 69 6f 6e 29 29 3b 0a 20 20  ranslation));.  
6930: 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c    Tcl_SetChannel
6940: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73  Option(interp, s
6950: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22  tatePtr->self, "
6960: 2d 65 6e 63 6f 64 69 6e 67 22 2c 20 54 63 6c 5f  -encoding", Tcl_
6970: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70  DStringValue(&up
6980: 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f 64 69  perChannelEncodi
6990: 6e 67 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65  ng));.    Tcl_Se
69a0: 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69  tChannelOption(i
69b0: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d  nterp, statePtr-
69c0: 3e 73 65 6c 66 2c 20 22 2d 65 6f 66 63 68 61 72  >self, "-eofchar
69d0: 22 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67 56 61  ", Tcl_DStringVa
69e0: 6c 75 65 28 26 75 70 70 65 72 43 68 61 6e 6e 65  lue(&upperChanne
69f0: 6c 45 4f 46 43 68 61 72 29 29 3b 0a 20 20 20 20  lEOFChar));.    
6a00: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70  Tcl_SetChannelOp
6a10: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 74 61  tion(interp, sta
6a20: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 62  tePtr->self, "-b
6a30: 6c 6f 63 6b 69 6e 67 22 2c 20 54 63 6c 5f 44 53  locking", Tcl_DS
6a40: 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70 70 65  tringValue(&uppe
6a50: 72 43 68 61 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67  rChannelBlocking
6a60: 29 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20  ));..    /*.    
6a70: 20 2a 20 53 53 4c 20 49 6e 69 74 69 61 6c 69 7a   * SSL Initializ
6a80: 61 74 69 6f 6e 0a 20 20 20 20 20 2a 2f 0a 0a 20  ation.     */.. 
6a90: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 73 6c     statePtr->ssl
6aa0: 20 3d 20 53 53 4c 5f 6e 65 77 28 73 74 61 74 65   = SSL_new(state
6ab0: 50 74 72 2d 3e 63 74 78 29 3b 0a 20 20 20 20 69  Ptr->ctx);.    i
6ac0: 66 20 28 21 73 74 61 74 65 50 74 72 2d 3e 73 73  f (!statePtr->ss
6ad0: 6c 29 20 7b 0a 09 2f 2a 20 53 53 4c 20 6c 69 62  l) {../* SSL lib
6ae0: 72 61 72 79 20 65 72 72 6f 72 20 2a 2f 0a 09 54  rary error */..T
6af0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
6b00: 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c 64 6e 27  interp, "couldn'
6b10: 74 20 63 6f 6e 73 74 72 75 63 74 20 73 73 6c 20  t construct ssl 
6b20: 73 65 73 73 69 6f 6e 3a 20 22 2c 20 52 45 41 53  session: ", REAS
6b30: 4f 4e 28 29 2c 0a 09 09 28 63 68 61 72 20 2a 29  ON(),...(char *)
6b40: 20 4e 55 4c 4c 29 3b 0a 09 54 6c 73 5f 46 72 65   NULL);..Tls_Fre
6b50: 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65  e((char *) state
6b60: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  Ptr);..return TC
6b70: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a  L_ERROR;.    }..
6b80: 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f  #ifndef OPENSSL_
6b90: 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 69 66  NO_TLSEXT.    if
6ba0: 20 28 73 65 72 76 65 72 6e 61 6d 65 29 20 7b 0a   (servername) {.
6bb0: 20 20 20 20 20 20 20 20 69 66 20 28 21 53 53 4c          if (!SSL
6bc0: 5f 73 65 74 5f 74 6c 73 65 78 74 5f 68 6f 73 74  _set_tlsext_host
6bd0: 5f 6e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e  _name(statePtr->
6be0: 73 73 6c 2c 20 73 65 72 76 65 72 6e 61 6d 65 29  ssl, servername)
6bf0: 20 26 26 20 72 65 71 75 69 72 65 29 20 7b 0a 20   && require) {. 
6c00: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41             Tcl_A
6c10: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
6c20: 72 70 2c 20 22 73 65 74 74 69 6e 67 20 54 4c 53  rp, "setting TLS
6c30: 20 68 6f 73 74 20 6e 61 6d 65 20 65 78 74 65 6e   host name exten
6c40: 73 69 6f 6e 20 66 61 69 6c 65 64 22 2c 0a 20 20  sion failed",.  
6c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63                (c
6c60: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  har *) NULL);.  
6c70: 20 20 20 20 20 20 20 20 20 20 54 6c 73 5f 46 72            Tls_Fr
6c80: 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61 74  ee((char *) stat
6c90: 65 50 74 72 29 3b 0a 20 20 20 20 20 20 20 20 20  ePtr);.         
6ca0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
6cb0: 52 4f 52 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  ROR;.        }. 
6cc0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 61 6c 70     }.    if (alp
6cd0: 6e 29 20 7b 0a 09 2f 2a 20 43 6f 6e 76 65 72 74  n) {../* Convert
6ce0: 20 61 20 54 63 6c 20 6c 69 73 74 20 69 6e 74 6f   a Tcl list into
6cf0: 20 61 20 70 72 6f 74 6f 63 6f 6c 2d 6c 69 73 74   a protocol-list
6d00: 20 69 6e 20 77 69 72 65 2d 66 6f 72 6d 61 74 20   in wire-format 
6d10: 2a 2f 0a 09 75 6e 73 69 67 6e 65 64 20 63 68 61  */..unsigned cha
6d20: 72 20 2a 70 72 6f 74 6f 73 2c 20 2a 70 3b 0a 09  r *protos, *p;..
6d30: 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 70 72 6f  unsigned int pro
6d40: 74 6f 73 6c 65 6e 20 3d 20 30 3b 0a 09 69 6e 74  toslen = 0;..int
6d50: 20 69 2c 20 6c 65 6e 2c 20 63 6e 74 3b 0a 09 54   i, len, cnt;..T
6d60: 63 6c 5f 4f 62 6a 20 2a 2a 6c 69 73 74 3b 0a 09  cl_Obj **list;..
6d70: 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f 62 6a 47  if (Tcl_ListObjG
6d80: 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e 74 65 72  etElements(inter
6d90: 70 2c 20 61 6c 70 6e 2c 20 26 63 6e 74 2c 20 26  p, alpn, &cnt, &
6da0: 6c 69 73 74 29 20 21 3d 20 54 43 4c 5f 4f 4b 29  list) != TCL_OK)
6db0: 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65   {..    Tls_Free
6dc0: 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50  ((char *) stateP
6dd0: 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e  tr);..    return
6de0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 09   TCL_ERROR;..}..
6df0: 2f 2a 20 44 65 74 65 72 6d 69 6e 65 20 74 68 65  /* Determine the
6e00: 20 6d 65 6d 6f 72 79 20 72 65 71 75 69 72 65 64   memory required
6e10: 20 66 6f 72 20 74 68 65 20 70 72 6f 74 6f 63 6f   for the protoco
6e20: 6c 2d 6c 69 73 74 20 2a 2f 0a 09 66 6f 72 20 28  l-list */..for (
6e30: 69 20 3d 20 30 3b 20 69 20 3c 20 63 6e 74 3b 20  i = 0; i < cnt; 
6e40: 69 2b 2b 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f  i++) {..    Tcl_
6e50: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
6e60: 28 6c 69 73 74 5b 69 5d 2c 20 26 6c 65 6e 29 3b  (list[i], &len);
6e70: 0a 09 20 20 20 20 69 66 20 28 6c 65 6e 20 3e 20  ..    if (len > 
6e80: 32 35 35 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70  255) {...Tcl_App
6e90: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
6ea0: 2c 20 22 61 6c 70 6e 20 70 72 6f 74 6f 63 6f 6c  , "alpn protocol
6eb0: 20 6e 61 6d 65 20 74 6f 6f 20 6c 6f 6e 67 22 2c   name too long",
6ec0: 0a 09 09 20 20 28 63 68 61 72 20 2a 29 20 4e 55  ...  (char *) NU
6ed0: 4c 4c 29 3b 0a 09 09 54 6c 73 5f 46 72 65 65 28  LL);...Tls_Free(
6ee0: 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50 74  (char *) statePt
6ef0: 72 29 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c  r);...return TCL
6f00: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a 09  _ERROR;..    }..
6f10: 20 20 20 20 70 72 6f 74 6f 73 6c 65 6e 20 2b 3d      protoslen +=
6f20: 20 31 20 2b 20 6c 65 6e 3b 0a 09 7d 0a 09 2f 2a   1 + len;..}../*
6f30: 20 42 75 69 6c 64 20 74 68 65 20 63 6f 6d 70 6c   Build the compl
6f40: 65 74 65 20 70 72 6f 74 6f 63 6f 6c 2d 6c 69 73  ete protocol-lis
6f50: 74 20 2a 2f 0a 09 70 72 6f 74 6f 73 20 3d 20 63  t */..protos = c
6f60: 6b 61 6c 6c 6f 63 28 70 72 6f 74 6f 73 6c 65 6e  kalloc(protoslen
6f70: 29 3b 0a 09 2f 2a 20 70 72 6f 74 6f 63 6f 6c 2d  );../* protocol-
6f80: 6c 69 73 74 73 20 63 6f 6e 73 69 73 74 20 6f 66  lists consist of
6f90: 20 38 2d 62 69 74 20 6c 65 6e 67 74 68 2d 70 72   8-bit length-pr
6fa0: 65 66 69 78 65 64 2c 20 62 79 74 65 20 73 74 72  efixed, byte str
6fb0: 69 6e 67 73 20 2a 2f 0a 09 66 6f 72 20 28 69 20  ings */..for (i 
6fc0: 3d 20 30 2c 20 70 20 3d 20 70 72 6f 74 6f 73 3b  = 0, p = protos;
6fd0: 20 69 20 3c 20 63 6e 74 3b 20 69 2b 2b 29 20 7b   i < cnt; i++) {
6fe0: 0a 09 20 20 20 20 63 68 61 72 20 2a 73 74 72 20  ..    char *str 
6ff0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  = Tcl_GetStringF
7000: 72 6f 6d 4f 62 6a 28 6c 69 73 74 5b 69 5d 2c 20  romObj(list[i], 
7010: 26 6c 65 6e 29 3b 0a 09 20 20 20 20 2a 70 2b 2b  &len);..    *p++
7020: 20 3d 20 6c 65 6e 3b 0a 09 20 20 20 20 6d 65 6d   = len;..    mem
7030: 63 70 79 28 70 2c 20 73 74 72 2c 20 6c 65 6e 29  cpy(p, str, len)
7040: 3b 0a 09 20 20 20 20 70 20 2b 3d 20 6c 65 6e 3b  ;..    p += len;
7050: 0a 09 7d 0a 09 2f 2a 20 4e 6f 74 65 3a 20 54 68  ..}../* Note: Th
7060: 69 73 20 66 75 6e 63 74 69 6f 6e 73 20 72 65 76  is functions rev
7070: 65 72 73 65 73 20 74 68 65 20 72 65 74 75 72 6e  erses the return
7080: 20 76 61 6c 75 65 20 63 6f 6e 76 65 6e 74 69 6f   value conventio
7090: 6e 20 2a 2f 0a 09 69 66 20 28 53 53 4c 5f 73 65  n */..if (SSL_se
70a0: 74 5f 61 6c 70 6e 5f 70 72 6f 74 6f 73 28 73 74  t_alpn_protos(st
70b0: 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 70 72 6f  atePtr->ssl, pro
70c0: 74 6f 73 2c 20 70 72 6f 74 6f 73 6c 65 6e 29 29  tos, protoslen))
70d0: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65   {..    Tcl_Appe
70e0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
70f0: 20 22 66 61 69 6c 65 64 20 74 6f 20 73 65 74 20   "failed to set 
7100: 61 6c 70 6e 20 70 72 6f 74 6f 63 6f 6c 73 22 2c  alpn protocols",
7110: 0a 09 20 20 20 20 20 20 28 63 68 61 72 20 2a 29  ..      (char *)
7120: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 54 6c 73   NULL);..    Tls
7130: 5f 46 72 65 65 28 28 63 68 61 72 20 2a 29 20 73  _Free((char *) s
7140: 74 61 74 65 50 74 72 29 3b 0a 09 20 20 20 20 63  tatePtr);..    c
7150: 6b 66 72 65 65 28 70 72 6f 74 6f 73 29 3b 0a 09  kfree(protos);..
7160: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45      return TCL_E
7170: 52 52 4f 52 3b 0a 09 7d 0a 09 2f 2a 20 53 53 4c  RROR;..}../* SSL
7180: 5f 73 65 74 5f 61 6c 70 6e 5f 70 72 6f 74 6f 73  _set_alpn_protos
7190: 20 6d 61 6b 65 73 20 61 20 63 6f 70 79 20 6f 66   makes a copy of
71a0: 20 74 68 65 20 70 72 6f 74 6f 63 6f 6c 2d 6c 69   the protocol-li
71b0: 73 74 20 2a 2f 0a 09 63 6b 66 72 65 65 28 70 72  st */..ckfree(pr
71c0: 6f 74 6f 73 29 3b 0a 20 20 20 20 7d 0a 23 65 6e  otos);.    }.#en
71d0: 64 69 66 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20  dif..    /*.    
71e0: 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61 63 6b 73   * SSL Callbacks
71f0: 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 53 53  .     */..    SS
7200: 4c 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28 73  L_set_app_data(s
7210: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 28 76  tatePtr->ssl, (v
7220: 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 29 3b  oid *)statePtr);
7230: 09 2f 2a 20 70 6f 69 6e 74 20 62 61 63 6b 20 74  ./* point back t
7240: 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 20 53 53 4c  o us */..    SSL
7250: 5f 73 65 74 5f 76 65 72 69 66 79 28 73 74 61 74  _set_verify(stat
7260: 65 50 74 72 2d 3e 73 73 6c 2c 20 76 65 72 69 66  ePtr->ssl, verif
7270: 79 2c 20 56 65 72 69 66 79 43 61 6c 6c 62 61 63  y, VerifyCallbac
7280: 6b 29 3b 0a 0a 20 20 20 20 53 53 4c 5f 43 54 58  k);..    SSL_CTX
7290: 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c 6c 62 61  _set_info_callba
72a0: 63 6b 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78  ck(statePtr->ctx
72b0: 2c 20 49 6e 66 6f 43 61 6c 6c 62 61 63 6b 29 3b  , InfoCallback);
72c0: 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20  ..    /* Create 
72d0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 42 49 4f 20  Tcl_Channel BIO 
72e0: 48 61 6e 64 6c 65 72 20 2a 2f 0a 20 20 20 20 73  Handler */.    s
72f0: 74 61 74 65 50 74 72 2d 3e 70 5f 62 69 6f 09 3d  tatePtr->p_bio.=
7300: 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 73 74 61   BIO_new_tcl(sta
7310: 74 65 50 74 72 2c 20 42 49 4f 5f 4e 4f 43 4c 4f  tePtr, BIO_NOCLO
7320: 53 45 29 3b 0a 20 20 20 20 73 74 61 74 65 50 74  SE);.    statePt
7330: 72 2d 3e 62 69 6f 09 3d 20 42 49 4f 5f 6e 65 77  r->bio.= BIO_new
7340: 28 42 49 4f 5f 66 5f 73 73 6c 28 29 29 3b 0a 0a  (BIO_f_ssl());..
7350: 20 20 20 20 69 66 20 28 73 65 72 76 65 72 29 20      if (server) 
7360: 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61  {..statePtr->fla
7370: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 53 45  gs |= TLS_TCL_SE
7380: 52 56 45 52 3b 0a 09 53 53 4c 5f 73 65 74 5f 61  RVER;..SSL_set_a
7390: 63 63 65 70 74 5f 73 74 61 74 65 28 73 74 61 74  ccept_state(stat
73a0: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20  ePtr->ssl);.    
73b0: 7d 20 65 6c 73 65 20 7b 0a 09 53 53 4c 5f 73 65  } else {..SSL_se
73c0: 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 61 74 65 28  t_connect_state(
73d0: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a  statePtr->ssl);.
73e0: 20 20 20 20 7d 0a 20 20 20 20 53 53 4c 5f 73 65      }.    SSL_se
73f0: 74 5f 62 69 6f 28 73 74 61 74 65 50 74 72 2d 3e  t_bio(statePtr->
7400: 73 73 6c 2c 20 73 74 61 74 65 50 74 72 2d 3e 70  ssl, statePtr->p
7410: 5f 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d 3e  _bio, statePtr->
7420: 70 5f 62 69 6f 29 3b 0a 20 20 20 20 42 49 4f 5f  p_bio);.    BIO_
7430: 73 65 74 5f 73 73 6c 28 73 74 61 74 65 50 74 72  set_ssl(statePtr
7440: 2d 3e 62 69 6f 2c 20 73 74 61 74 65 50 74 72 2d  ->bio, statePtr-
7450: 3e 73 73 6c 2c 20 42 49 4f 5f 4e 4f 43 4c 4f 53  >ssl, BIO_NOCLOS
7460: 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20  E);..    /*.    
7470: 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c 20 49 6e   * End of SSL In
7480: 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 64  it.     */.    d
7490: 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e  printf("Returnin
74a0: 67 20 25 73 22 2c 20 54 63 6c 5f 47 65 74 43 68  g %s", Tcl_GetCh
74b0: 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65 50  annelName(stateP
74c0: 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 20 20 20 20  tr->self));.    
74d0: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e  Tcl_SetResult(in
74e0: 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54  terp, (char *) T
74f0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d  cl_GetChannelNam
7500: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66  e(statePtr->self
7510: 29 2c 0a 09 20 20 20 20 54 43 4c 5f 56 4f 4c 41  ),..    TCL_VOLA
7520: 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 75 72  TILE);.    retur
7530: 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63  n TCL_OK;.    .c
7540: 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65  lientData = clie
7550: 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20  ntData;.}.../*. 
7560: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
7570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
75a0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 69 6d 70  ----. *. * Unimp
75b0: 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a  ortObjCmd --. *.
75c0: 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72   *.This procedur
75d0: 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20  e is invoked to 
75e0: 72 65 6d 6f 76 65 20 74 68 65 20 74 6f 70 6d 6f  remove the topmo
75f0: 73 74 20 63 68 61 6e 6e 65 6c 20 66 69 6c 74 65  st channel filte
7600: 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73  r.. *. * Results
7610: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20  :. *.A standard 
7620: 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20  Tcl result.. *. 
7630: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
7640: 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74 68   *.May modify th
7650: 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61 6e  e behavior of an
7660: 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a   IO channel.. *.
7670: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
7680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
76a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
76b0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69  -----. */..stati
76c0: 63 20 69 6e 74 0a 55 6e 69 6d 70 6f 72 74 4f 62  c int.UnimportOb
76d0: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20  jCmd(ClientData 
76e0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f  clientData, Tcl_
76f0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
7700: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
7710: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29  j *const objv[])
7720: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e   {.    Tcl_Chann
7730: 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65  el chan;../* The
7740: 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20   channel to set 
7750: 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 0a 20  a mode on. */.. 
7760: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c     dprintf("Call
7770: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 6f  ed");..    if (o
7780: 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c  bjc != 2) {..Tcl
7790: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
77a0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22  terp, 1, objv, "
77b0: 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 72 65 74 75  channel");..retu
77c0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
77d0: 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20    }..    chan = 
77e0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69  Tcl_GetChannel(i
77f0: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74  nterp, Tcl_GetSt
7800: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 4e  ring(objv[1]), N
7810: 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 63 68  ULL);.    if (ch
7820: 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e  an == (Tcl_Chann
7830: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74  el) NULL) {..ret
7840: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
7850: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a 20 20 20     }..    /*.   
7860: 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f    * Make sure to
7870: 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20   operate on the 
7880: 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a  topmost channel.
7890: 20 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e       */.    chan
78a0: 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61   = Tcl_GetTopCha
78b0: 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20  nnel(chan);..   
78c0: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e   if (Tcl_GetChan
78d0: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d  nelType(chan) !=
78e0: 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65   Tls_ChannelType
78f0: 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e  ()) {..Tcl_Appen
7900: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
7910: 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22  "bad channel \""
7920: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  , Tcl_GetChannel
7930: 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c  Name(chan),..."\
7940: 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61  ": not a TLS cha
7950: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72  nnel", NULL);..r
7960: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
7970: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28  .    }..    if (
7980: 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e  Tcl_UnstackChann
7990: 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29  el(interp, chan)
79a0: 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52 29 20 7b   == TCL_ERROR) {
79b0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
79c0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72  OR;.    }..    r
79d0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20  eturn TCL_OK;.  
79e0: 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20    .clientData = 
79f0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a  clientData;.}...
7a00: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
7a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7a40: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43  --------. *. * C
7a50: 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f 6e 73 74  TX_Init -- const
7a60: 72 75 63 74 20 61 20 53 53 4c 5f 43 54 58 20 69  ruct a SSL_CTX i
7a70: 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a 20 52 65  nstance. *. * Re
7a80: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76 61 6c 69  sults:. *.A vali
7a90: 64 20 53 53 4c 5f 43 54 58 20 69 6e 73 74 61 6e  d SSL_CTX instan
7aa0: 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20 2a 0a 20  ce or NULL.. *. 
7ab0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
7ac0: 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 53 53   *.constructs SS
7ad0: 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29 0a  L context (CTX).
7ae0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
7af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
7b20: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74  --------. */..st
7b30: 61 74 69 63 20 53 53 4c 5f 43 54 58 20 2a 0a 43  atic SSL_CTX *.C
7b40: 54 58 5f 49 6e 69 74 28 53 74 61 74 65 20 2a 73  TX_Init(State *s
7b50: 74 61 74 65 50 74 72 2c 20 69 6e 74 20 69 73 53  tatePtr, int isS
7b60: 65 72 76 65 72 2c 20 69 6e 74 20 70 72 6f 74 6f  erver, int proto
7b70: 2c 20 63 68 61 72 20 2a 6b 65 79 66 69 6c 65 2c  , char *keyfile,
7b80: 20 63 68 61 72 20 2a 63 65 72 74 66 69 6c 65 2c   char *certfile,
7b90: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68  .    unsigned ch
7ba0: 61 72 20 2a 6b 65 79 2c 20 75 6e 73 69 67 6e 65  ar *key, unsigne
7bb0: 64 20 63 68 61 72 20 2a 63 65 72 74 2c 20 69 6e  d char *cert, in
7bc0: 74 20 6b 65 79 5f 6c 65 6e 2c 20 69 6e 74 20 63  t key_len, int c
7bd0: 65 72 74 5f 6c 65 6e 2c 20 63 68 61 72 20 2a 43  ert_len, char *C
7be0: 41 64 69 72 2c 0a 20 20 20 20 63 68 61 72 20 2a  Adir,.    char *
7bf0: 43 41 66 69 6c 65 2c 20 63 68 61 72 20 2a 63 69  CAfile, char *ci
7c00: 70 68 65 72 73 2c 20 63 68 61 72 20 2a 44 48 70  phers, char *DHp
7c10: 61 72 61 6d 73 29 20 7b 0a 20 20 20 20 54 63 6c  arams) {.    Tcl
7c20: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20  _Interp *interp 
7c30: 3d 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  = statePtr->inte
7c40: 72 70 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 20  rp;.    SSL_CTX 
7c50: 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20  *ctx = NULL;.   
7c60: 20 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 3b   Tcl_DString ds;
7c70: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
7c80: 20 64 73 31 3b 0a 20 20 20 20 69 6e 74 20 6f 66   ds1;.    int of
7c90: 66 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 6c  f = 0;.    int l
7ca0: 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b 65 79 3b  oad_private_key;
7cb0: 0a 20 20 20 20 63 6f 6e 73 74 20 53 53 4c 5f 4d  .    const SSL_M
7cc0: 45 54 48 4f 44 20 2a 6d 65 74 68 6f 64 3b 0a 0a  ETHOD *method;..
7cd0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c      dprintf("Cal
7ce0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28  led");..    if (
7cf0: 21 70 72 6f 74 6f 29 20 7b 0a 09 54 63 6c 5f 41  !proto) {..Tcl_A
7d00: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
7d10: 72 70 2c 20 22 6e 6f 20 76 61 6c 69 64 20 70 72  rp, "no valid pr
7d20: 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 22  otocol selected"
7d30: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e  , NULL);..return
7d40: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20   (SSL_CTX *)0;. 
7d50: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 63 72 65     }..    /* cre
7d60: 61 74 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20  ate SSL context 
7d70: 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56  */.#if OPENSSL_V
7d80: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d  ERSION_NUMBER >=
7d90: 20 30 78 31 30 31 30 31 30 30 30 4c 20 7c 7c 20   0x10101000L || 
7da0: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29  defined(NO_SSL2)
7db0: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e   || defined(OPEN
7dc0: 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 20 20  SSL_NO_SSL2).   
7dd0: 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f   if (ENABLED(pro
7de0: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53  to, TLS_PROTO_SS
7df0: 4c 32 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65  L2)) {..Tcl_Appe
7e00: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
7e10: 20 22 53 53 4c 32 20 70 72 6f 74 6f 63 6f 6c 20   "SSL2 protocol 
7e20: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20  not supported", 
7e30: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28  NULL);..return (
7e40: 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20  SSL_CTX *)0;.   
7e50: 20 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65   }.#endif.#if de
7e60: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 7c  fined(NO_SSL3) |
7e70: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53  | defined(OPENSS
7e80: 4c 5f 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69  L_NO_SSL3).    i
7e90: 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f  f (ENABLED(proto
7ea0: 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33  , TLS_PROTO_SSL3
7eb0: 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64  )) {..Tcl_Append
7ec0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
7ed0: 53 53 4c 33 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f  SSL3 protocol no
7ee0: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55  t supported", NU
7ef0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53  LL);..return (SS
7f00: 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d  L_CTX *)0;.    }
7f10: 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69  .#endif.#if defi
7f20: 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20  ned(NO_TLS1) || 
7f30: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f  defined(OPENSSL_
7f40: 4e 4f 5f 54 4c 53 31 29 0a 20 20 20 20 69 66 20  NO_TLS1).    if 
7f50: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20  (ENABLED(proto, 
7f60: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29  TLS_PROTO_TLS1))
7f70: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65   {..Tcl_AppendRe
7f80: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 54 4c  sult(interp, "TL
7f90: 53 20 31 2e 30 20 70 72 6f 74 6f 63 6f 6c 20 6e  S 1.0 protocol n
7fa0: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e  ot supported", N
7fb0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53  ULL);..return (S
7fc0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20  SL_CTX *)0;.    
7fd0: 7d 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66  }.#endif.#if def
7fe0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20  ined(NO_TLS1_1) 
7ff0: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53  || defined(OPENS
8000: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 0a 20 20  SL_NO_TLS1_1).  
8010: 20 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72    if (ENABLED(pr
8020: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54  oto, TLS_PROTO_T
8030: 4c 53 31 5f 31 29 29 20 7b 0a 09 54 63 6c 5f 41  LS1_1)) {..Tcl_A
8040: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
8050: 72 70 2c 20 22 54 4c 53 20 31 2e 31 20 70 72 6f  rp, "TLS 1.1 pro
8060: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72  tocol not suppor
8070: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65  ted", NULL);..re
8080: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29  turn (SSL_CTX *)
8090: 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a  0;.    }.#endif.
80a0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54  #if defined(NO_T
80b0: 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65  LS1_2) || define
80c0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53  d(OPENSSL_NO_TLS
80d0: 31 5f 32 29 0a 20 20 20 20 69 66 20 28 45 4e 41  1_2).    if (ENA
80e0: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f  BLED(proto, TLS_
80f0: 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29 29 20 7b  PROTO_TLS1_2)) {
8100: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
8110: 6c 74 28 69 6e 74 65 72 70 2c 20 22 54 4c 53 20  lt(interp, "TLS 
8120: 31 2e 32 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74  1.2 protocol not
8130: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c   supported", NUL
8140: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c  L);..return (SSL
8150: 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a  _CTX *)0;.    }.
8160: 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e  #endif.#if defin
8170: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c  ed(NO_TLS1_3) ||
8180: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c   defined(OPENSSL
8190: 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 20  _NO_TLS1_3).    
81a0: 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74  if (ENABLED(prot
81b0: 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53  o, TLS_PROTO_TLS
81c0: 31 5f 33 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70  1_3)) {..Tcl_App
81d0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
81e0: 2c 20 22 54 4c 53 20 31 2e 33 20 70 72 6f 74 6f  , "TLS 1.3 proto
81f0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65  col not supporte
8200: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75  d", NULL);..retu
8210: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b  rn (SSL_CTX *)0;
8220: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20  .    }.#endif.. 
8230: 20 20 20 73 77 69 74 63 68 20 28 70 72 6f 74 6f     switch (proto
8240: 29 20 7b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f  ) {.#if OPENSSL_
8250: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c  VERSION_NUMBER <
8260: 20 30 78 31 30 31 30 31 30 30 30 4c 20 26 26 20   0x10101000L && 
8270: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32  !defined(NO_SSL2
8280: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50  ) && !defined(OP
8290: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20  ENSSL_NO_SSL2). 
82a0: 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54     case TLS_PROT
82b0: 4f 5f 53 53 4c 32 3a 0a 09 6d 65 74 68 6f 64 20  O_SSL2:..method 
82c0: 3d 20 53 53 4c 76 32 5f 6d 65 74 68 6f 64 28 29  = SSLv2_method()
82d0: 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66  ;..break;.#endif
82e0: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f  .#if !defined(NO
82f0: 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e  _SSL3) && !defin
8300: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53  ed(OPENSSL_NO_SS
8310: 4c 33 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53  L3).    case TLS
8320: 5f 50 52 4f 54 4f 5f 53 53 4c 33 3a 0a 09 6d 65  _PROTO_SSL3:..me
8330: 74 68 6f 64 20 3d 20 53 53 4c 76 33 5f 6d 65 74  thod = SSLv3_met
8340: 68 6f 64 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23  hod();..break;.#
8350: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e  endif.#if !defin
8360: 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21  ed(NO_TLS1) && !
8370: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f  defined(OPENSSL_
8380: 4e 4f 5f 54 4c 53 31 29 0a 20 20 20 20 63 61 73  NO_TLS1).    cas
8390: 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31  e TLS_PROTO_TLS1
83a0: 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53 76  :..method = TLSv
83b0: 31 5f 6d 65 74 68 6f 64 28 29 3b 0a 09 62 72 65  1_method();..bre
83c0: 61 6b 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21  ak;.#endif.#if !
83d0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f  defined(NO_TLS1_
83e0: 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f  1) && !defined(O
83f0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31  PENSSL_NO_TLS1_1
8400: 29 0a 20 20 20 20 63 61 73 65 20 54 4c 53 5f 50  ).    case TLS_P
8410: 52 4f 54 4f 5f 54 4c 53 31 5f 31 3a 0a 09 6d 65  ROTO_TLS1_1:..me
8420: 74 68 6f 64 20 3d 20 54 4c 53 76 31 5f 31 5f 6d  thod = TLSv1_1_m
8430: 65 74 68 6f 64 28 29 3b 0a 09 62 72 65 61 6b 3b  ethod();..break;
8440: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66  .#endif.#if !def
8450: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20  ined(NO_TLS1_2) 
8460: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e  && !defined(OPEN
8470: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 0a 20  SSL_NO_TLS1_2). 
8480: 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54     case TLS_PROT
8490: 4f 5f 54 4c 53 31 5f 32 3a 0a 09 6d 65 74 68 6f  O_TLS1_2:..metho
84a0: 64 20 3d 20 54 4c 53 76 31 5f 32 5f 6d 65 74 68  d = TLSv1_2_meth
84b0: 6f 64 28 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65  od();..break;.#e
84c0: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65  ndif.#if !define
84d0: 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 26 20  d(NO_TLS1_3) && 
84e0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c  !defined(OPENSSL
84f0: 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 20  _NO_TLS1_3).    
8500: 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54  case TLS_PROTO_T
8510: 4c 53 31 5f 33 3a 0a 20 20 20 20 20 20 20 20 2f  LS1_3:.        /
8520: 2a 0a 20 20 20 20 20 20 20 20 20 2a 20 54 68 65  *.         * The
8530: 20 76 65 72 73 69 6f 6e 20 72 61 6e 67 65 20 69   version range i
8540: 73 20 63 6f 6e 73 74 72 61 69 6e 65 64 20 62 65  s constrained be
8550: 6c 6f 77 2c 0a 20 20 20 20 20 20 20 20 20 2a 20  low,.         * 
8560: 61 66 74 65 72 20 74 68 65 20 63 6f 6e 74 65 78  after the contex
8570: 74 20 69 73 20 63 72 65 61 74 65 64 2e 20 20 55  t is created.  U
8580: 73 65 20 74 68 65 0a 20 20 20 20 20 20 20 20 20  se the.         
8590: 2a 20 67 65 6e 65 72 69 63 20 6d 65 74 68 6f 64  * generic method
85a0: 20 68 65 72 65 2e 0a 20 20 20 20 20 20 20 20 20   here..         
85b0: 2a 2f 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c 53  */..method = TLS
85c0: 5f 6d 65 74 68 6f 64 28 29 3b 0a 09 62 72 65 61  _method();..brea
85d0: 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 64 65  k;.#endif.    de
85e0: 66 61 75 6c 74 3a 0a 23 69 66 20 4f 50 45 4e 53  fault:.#if OPENS
85f0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45  SL_VERSION_NUMBE
8600: 52 20 3e 3d 20 30 78 31 30 31 30 30 30 30 30 4c  R >= 0x10100000L
8610: 0a 09 2f 2a 20 4e 65 67 6f 74 69 61 74 65 20 68  ../* Negotiate h
8620: 69 67 68 65 73 74 20 61 76 61 69 6c 61 62 6c 65  ighest available
8630: 20 53 53 4c 2f 54 4c 53 20 76 65 72 73 69 6f 6e   SSL/TLS version
8640: 20 2a 2f 0a 20 20 20 20 20 20 20 20 6d 65 74 68   */.        meth
8650: 6f 64 20 3d 20 54 4c 53 5f 6d 65 74 68 6f 64 28  od = TLS_method(
8660: 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20  );.#else.       
8670: 20 6d 65 74 68 6f 64 20 3d 20 53 53 4c 76 32 33   method = SSLv23
8680: 5f 6d 65 74 68 6f 64 28 29 3b 0a 23 65 6e 64 69  _method();.#endi
8690: 66 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45  f.#if OPENSSL_VE
86a0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30  RSION_NUMBER < 0
86b0: 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 21 64  x10100000L && !d
86c0: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20  efined(NO_SSL2) 
86d0: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e  && !defined(OPEN
86e0: 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 09 6f 66  SSL_NO_SSL2)..of
86f0: 66 20 7c 3d 20 28 45 4e 41 42 4c 45 44 28 70 72  f |= (ENABLED(pr
8700: 6f 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53  oto, TLS_PROTO_S
8710: 53 4c 32 29 20 20 20 3f 20 30 20 3a 20 53 53 4c  SL2)   ? 0 : SSL
8720: 5f 4f 50 5f 4e 4f 5f 53 53 4c 76 32 29 3b 0a 23  _OP_NO_SSLv2);.#
8730: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e  endif.#if !defin
8740: 65 64 28 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21  ed(NO_SSL3) && !
8750: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f  defined(OPENSSL_
8760: 4e 4f 5f 53 53 4c 33 29 0a 09 6f 66 66 20 7c 3d  NO_SSL3)..off |=
8770: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c   (ENABLED(proto,
8780: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29   TLS_PROTO_SSL3)
8790: 20 20 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f     ? 0 : SSL_OP_
87a0: 4e 4f 5f 53 53 4c 76 33 29 3b 0a 23 65 6e 64 69  NO_SSLv3);.#endi
87b0: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e  f.#if !defined(N
87c0: 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 66 69  O_TLS1) && !defi
87d0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54  ned(OPENSSL_NO_T
87e0: 4c 53 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e  LS1)..off |= (EN
87f0: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53  ABLED(proto, TLS
8800: 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 20 20 20 3f  _PROTO_TLS1)   ?
8810: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54   0 : SSL_OP_NO_T
8820: 4c 53 76 31 29 3b 0a 23 65 6e 64 69 66 0a 23 69  LSv1);.#endif.#i
8830: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c  f !defined(NO_TL
8840: 53 31 5f 31 29 20 26 26 20 21 64 65 66 69 6e 65  S1_1) && !define
8850: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53  d(OPENSSL_NO_TLS
8860: 31 5f 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e  1_1)..off |= (EN
8870: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53  ABLED(proto, TLS
8880: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 20 3f  _PROTO_TLS1_1) ?
8890: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54   0 : SSL_OP_NO_T
88a0: 4c 53 76 31 5f 31 29 3b 0a 23 65 6e 64 69 66 0a  LSv1_1);.#endif.
88b0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f  #if !defined(NO_
88c0: 54 4c 53 31 5f 32 29 20 26 26 20 21 64 65 66 69  TLS1_2) && !defi
88d0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54  ned(OPENSSL_NO_T
88e0: 4c 53 31 5f 32 29 0a 09 6f 66 66 20 7c 3d 20 28  LS1_2)..off |= (
88f0: 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54  ENABLED(proto, T
8900: 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29  LS_PROTO_TLS1_2)
8910: 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f   ? 0 : SSL_OP_NO
8920: 5f 54 4c 53 76 31 5f 32 29 3b 0a 23 65 6e 64 69  _TLSv1_2);.#endi
8930: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e  f.#if !defined(N
8940: 4f 5f 54 4c 53 31 5f 33 29 20 26 26 20 21 64 65  O_TLS1_3) && !de
8950: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f  fined(OPENSSL_NO
8960: 5f 54 4c 53 31 5f 33 29 0a 09 6f 66 66 20 7c 3d  _TLS1_3)..off |=
8970: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c   (ENABLED(proto,
8980: 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f   TLS_PROTO_TLS1_
8990: 33 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f  3) ? 0 : SSL_OP_
89a0: 4e 4f 5f 54 4c 53 76 31 5f 33 29 3b 0a 23 65 6e  NO_TLSv1_3);.#en
89b0: 64 69 66 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20  dif..break;.    
89c0: 7d 0a 20 20 20 20 0a 20 20 20 20 63 74 78 20 3d  }.    .    ctx =
89d0: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 6d 65 74   SSL_CTX_new(met
89e0: 68 6f 64 29 3b 0a 0a 20 20 20 20 69 66 20 28 21  hod);..    if (!
89f0: 63 74 78 29 20 7b 0a 20 20 20 20 20 20 20 20 72  ctx) {.        r
8a00: 65 74 75 72 6e 28 4e 55 4c 4c 29 3b 0a 20 20 20  eturn(NULL);.   
8a10: 20 7d 0a 0a 20 20 20 20 69 66 20 28 67 65 74 65   }..    if (gete
8a20: 6e 76 28 53 53 4c 4b 45 59 4c 4f 47 46 49 4c 45  nv(SSLKEYLOGFILE
8a30: 29 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 73 65  )) {..SSL_CTX_se
8a40: 74 5f 6b 65 79 6c 6f 67 5f 63 61 6c 6c 62 61 63  t_keylog_callbac
8a50: 6b 28 63 74 78 2c 20 4b 65 79 4c 6f 67 43 61 6c  k(ctx, KeyLogCal
8a60: 6c 62 61 63 6b 29 3b 0a 20 20 20 20 7d 0a 0a 23  lback);.    }..#
8a70: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54  if !defined(NO_T
8a80: 4c 53 31 5f 33 29 20 26 26 20 21 64 65 66 69 6e  LS1_3) && !defin
8a90: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c  ed(OPENSSL_NO_TL
8aa0: 53 31 5f 33 29 0a 20 20 20 20 69 66 20 28 70 72  S1_3).    if (pr
8ab0: 6f 74 6f 20 3d 3d 20 54 4c 53 5f 50 52 4f 54 4f  oto == TLS_PROTO
8ac0: 5f 54 4c 53 31 5f 33 29 20 7b 0a 20 20 20 20 20  _TLS1_3) {.     
8ad0: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d     SSL_CTX_set_m
8ae0: 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e  in_proto_version
8af0: 20 28 63 74 78 2c 20 54 4c 53 31 5f 33 5f 56 45   (ctx, TLS1_3_VE
8b00: 52 53 49 4f 4e 29 3b 0a 20 20 20 20 20 20 20 20  RSION);.        
8b10: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f  SSL_CTX_set_max_
8b20: 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 20 28 63  proto_version (c
8b30: 74 78 2c 20 54 4c 53 31 5f 33 5f 56 45 52 53 49  tx, TLS1_3_VERSI
8b40: 4f 4e 29 3b 0a 0a 09 69 66 20 28 21 69 73 53 65  ON);...if (!isSe
8b50: 72 76 65 72 29 20 7b 0a 09 20 20 20 20 53 53 4c  rver) {..    SSL
8b60: 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73  _CTX_set_options
8b70: 28 63 74 78 2c 20 53 53 4c 5f 4f 50 5f 43 49 50  (ctx, SSL_OP_CIP
8b80: 48 45 52 5f 53 45 52 56 45 52 5f 50 52 45 46 45  HER_SERVER_PREFE
8b90: 52 45 4e 43 45 29 3b 0a 09 7d 0a 20 20 20 20 7d  RENCE);..}.    }
8ba0: 0a 23 65 6e 64 69 66 0a 20 20 20 20 0a 20 20 20  .#endif.    .   
8bb0: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 61 70 70   SSL_CTX_set_app
8bc0: 5f 64 61 74 61 28 20 63 74 78 2c 20 28 76 6f 69  _data( ctx, (voi
8bd0: 64 2a 29 69 6e 74 65 72 70 29 3b 09 2f 2a 20 72  d*)interp);./* r
8be0: 65 6d 65 6d 62 65 72 20 74 68 65 20 69 6e 74 65  emember the inte
8bf0: 72 70 72 65 74 65 72 20 2a 2f 0a 20 20 20 20 53  rpreter */.    S
8c00: 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 6f  SL_CTX_set_optio
8c10: 6e 73 28 20 63 74 78 2c 20 53 53 4c 5f 4f 50 5f  ns( ctx, SSL_OP_
8c20: 41 4c 4c 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c  ALL);./* all SSL
8c30: 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73   bug workarounds
8c40: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f   */.    SSL_CTX_
8c50: 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 74 78  set_options( ctx
8c60: 2c 20 6f 66 66 29 3b 09 2f 2a 20 61 6c 6c 20 53  , off);./* all S
8c70: 53 4c 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 6e  SL bug workaroun
8c80: 64 73 20 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53  ds */.#if OPENSS
8c90: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52  L_VERSION_NUMBER
8ca0: 20 3c 20 30 78 31 30 31 30 31 30 30 30 4c 0a 20   < 0x10101000L. 
8cb0: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d     SSL_CTX_set_m
8cc0: 6f 64 65 28 63 74 78 2c 20 53 53 4c 5f 4d 4f 44  ode(ctx, SSL_MOD
8cd0: 45 5f 41 55 54 4f 5f 52 45 54 52 59 29 3b 09 2f  E_AUTO_RETRY);./
8ce0: 2a 20 68 61 6e 64 6c 65 20 6e 65 77 20 68 61 6e  * handle new han
8cf0: 64 73 68 61 6b 65 73 20 69 6e 20 62 61 63 6b 67  dshakes in backg
8d00: 72 6f 75 6e 64 20 2a 2f 0a 23 65 6e 64 69 66 0a  round */.#endif.
8d10: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 73 73      SSL_CTX_sess
8d20: 5f 73 65 74 5f 63 61 63 68 65 5f 73 69 7a 65 28  _set_cache_size(
8d30: 20 63 74 78 2c 20 31 32 38 29 3b 0a 0a 20 20 20   ctx, 128);..   
8d40: 20 69 66 20 28 63 69 70 68 65 72 73 20 21 3d 20   if (ciphers != 
8d50: 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43 54 58 5f 73  NULL)..SSL_CTX_s
8d60: 65 74 5f 63 69 70 68 65 72 5f 6c 69 73 74 28 63  et_cipher_list(c
8d70: 74 78 2c 20 63 69 70 68 65 72 73 29 3b 0a 0a 20  tx, ciphers);.. 
8d80: 20 20 20 2f 2a 20 73 65 74 20 73 6f 6d 65 20 63     /* set some c
8d90: 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a 20 20 20 20  allbacks */.    
8da0: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66 61  SSL_CTX_set_defa
8db0: 75 6c 74 5f 70 61 73 73 77 64 5f 63 62 28 63 74  ult_passwd_cb(ct
8dc0: 78 2c 20 50 61 73 73 77 6f 72 64 43 61 6c 6c 62  x, PasswordCallb
8dd0: 61 63 6b 29 3b 0a 0a 23 69 66 6e 64 65 66 20 42  ack);..#ifndef B
8de0: 53 41 46 45 0a 20 20 20 20 53 53 4c 5f 43 54 58  SAFE.    SSL_CTX
8df0: 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61 73  _set_default_pas
8e00: 73 77 64 5f 63 62 5f 75 73 65 72 64 61 74 61 28  swd_cb_userdata(
8e10: 63 74 78 2c 20 28 76 6f 69 64 20 2a 29 73 74 61  ctx, (void *)sta
8e20: 74 65 50 74 72 29 3b 0a 23 65 6e 64 69 66 0a 0a  tePtr);.#endif..
8e30: 20 20 20 20 2f 2a 20 72 65 61 64 20 61 20 44 69      /* read a Di
8e40: 66 66 69 65 2d 48 65 6c 6c 6d 61 6e 20 70 61 72  ffie-Hellman par
8e50: 61 6d 65 74 65 72 73 20 66 69 6c 65 2c 20 6f 72  ameters file, or
8e60: 20 75 73 65 20 74 68 65 20 62 75 69 6c 74 2d 69   use the built-i
8e70: 6e 20 6f 6e 65 20 2a 2f 0a 23 69 66 64 65 66 20  n one */.#ifdef 
8e80: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44 48 0a 20 20  OPENSSL_NO_DH.  
8e90: 20 20 69 66 20 28 44 48 70 61 72 61 6d 73 20 21    if (DHparams !
8ea0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41  = NULL) {..Tcl_A
8eb0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
8ec0: 72 70 2c 0a 09 20 20 20 20 22 44 48 20 70 61 72  rp,..    "DH par
8ed0: 61 6d 65 74 65 72 20 73 75 70 70 6f 72 74 20 6e  ameter support n
8ee0: 6f 74 20 61 76 61 69 6c 61 62 6c 65 22 2c 20 28  ot available", (
8ef0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
8f00: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78  SSL_CTX_free(ctx
8f10: 29 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f  );..return (SSL_
8f20: 43 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 23  CTX *)0;.    }.#
8f30: 65 6c 73 65 0a 20 20 20 20 7b 0a 09 44 48 2a 20  else.    {..DH* 
8f40: 64 68 3b 0a 09 69 66 20 28 44 48 70 61 72 61 6d  dh;..if (DHparam
8f50: 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20  s != NULL) {..  
8f60: 20 20 42 49 4f 20 2a 62 69 6f 3b 0a 09 20 20 20    BIO *bio;..   
8f70: 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74   Tcl_DStringInit
8f80: 28 26 64 73 29 3b 0a 09 20 20 20 20 62 69 6f 20  (&ds);..    bio 
8f90: 3d 20 42 49 4f 5f 6e 65 77 5f 66 69 6c 65 28 46  = BIO_new_file(F
8fa0: 32 4e 28 44 48 70 61 72 61 6d 73 2c 20 26 64 73  2N(DHparams, &ds
8fb0: 29 2c 20 22 72 22 29 3b 0a 09 20 20 20 20 69 66  ), "r");..    if
8fc0: 20 28 21 62 69 6f 29 20 7b 0a 09 09 54 63 6c 5f   (!bio) {...Tcl_
8fd0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29  DStringFree(&ds)
8fe0: 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65  ;...Tcl_AppendRe
8ff0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 20  sult(interp,... 
9000: 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 20 66 69     "Could not fi
9010: 6e 64 20 44 48 20 70 61 72 61 6d 65 74 65 72 73  nd DH parameters
9020: 20 66 69 6c 65 22 2c 20 28 63 68 61 72 20 2a 29   file", (char *)
9030: 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54   NULL);...SSL_CT
9040: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72  X_free(ctx);...r
9050: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a  eturn (SSL_CTX *
9060: 29 30 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20  )0;..    }..    
9070: 0a 09 20 20 20 20 64 68 20 3d 20 50 45 4d 5f 72  ..    dh = PEM_r
9080: 65 61 64 5f 62 69 6f 5f 44 48 70 61 72 61 6d 73  ead_bio_DHparams
9090: 28 62 69 6f 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c  (bio, NULL, NULL
90a0: 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 42 49  , NULL);..    BI
90b0: 4f 5f 66 72 65 65 28 62 69 6f 29 3b 0a 09 20 20  O_free(bio);..  
90c0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65    Tcl_DStringFre
90d0: 65 28 26 64 73 29 3b 0a 09 20 20 20 20 69 66 20  e(&ds);..    if 
90e0: 28 21 64 68 29 20 7b 0a 09 09 54 63 6c 5f 41 70  (!dh) {...Tcl_Ap
90f0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
9100: 70 2c 0a 09 09 20 20 20 20 22 43 6f 75 6c 64 20  p,...    "Could 
9110: 6e 6f 74 20 72 65 61 64 20 44 48 20 70 61 72 61  not read DH para
9120: 6d 65 74 65 72 73 20 66 72 6f 6d 20 66 69 6c 65  meters from file
9130: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ", (char *) NULL
9140: 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 65  );...SSL_CTX_fre
9150: 65 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 6e  e(ctx);...return
9160: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09   (SSL_CTX *)0;..
9170: 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a      }..} else {.
9180: 09 20 20 20 20 64 68 20 3d 20 67 65 74 5f 64 68  .    dh = get_dh
9190: 50 61 72 61 6d 73 28 29 3b 0a 09 7d 0a 09 53 53  Params();..}..SS
91a0: 4c 5f 43 54 58 5f 73 65 74 5f 74 6d 70 5f 64 68  L_CTX_set_tmp_dh
91b0: 28 63 74 78 2c 20 64 68 29 3b 0a 09 44 48 5f 66  (ctx, dh);..DH_f
91c0: 72 65 65 28 64 68 29 3b 0a 20 20 20 20 7d 0a 23  ree(dh);.    }.#
91d0: 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 20 73 65  endif..    /* se
91e0: 74 20 6f 75 72 20 63 65 72 74 69 66 69 63 61 74  t our certificat
91f0: 65 20 2a 2f 0a 20 20 20 20 6c 6f 61 64 5f 70 72  e */.    load_pr
9200: 69 76 61 74 65 5f 6b 65 79 20 3d 20 30 3b 0a 20  ivate_key = 0;. 
9210: 20 20 20 69 66 20 28 63 65 72 74 66 69 6c 65 20     if (certfile 
9220: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6c 6f 61 64  != NULL) {..load
9230: 5f 70 72 69 76 61 74 65 5f 6b 65 79 20 3d 20 31  _private_key = 1
9240: 3b 0a 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 49  ;...Tcl_DStringI
9250: 6e 69 74 28 26 64 73 29 3b 0a 0a 09 69 66 20 28  nit(&ds);...if (
9260: 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74  SSL_CTX_use_cert
9270: 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78  ificate_file(ctx
9280: 2c 20 46 32 4e 28 20 63 65 72 74 66 69 6c 65 2c  , F2N( certfile,
9290: 20 26 64 73 29 2c 0a 09 09 09 09 09 53 53 4c 5f   &ds),......SSL_
92a0: 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d  FILETYPE_PEM) <=
92b0: 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44   0) {..    Tcl_D
92c0: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b  StringFree(&ds);
92d0: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  ..    Tcl_Append
92e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09  Result(interp,..
92f0: 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74  ..     "unable t
9300: 6f 20 73 65 74 20 63 65 72 74 69 66 69 63 61 74  o set certificat
9310: 65 20 66 69 6c 65 20 22 2c 20 63 65 72 74 66 69  e file ", certfi
9320: 6c 65 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 20  le, ": ",....   
9330: 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61    REASON(), (cha
9340: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20  r *) NULL);..   
9350: 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74   SSL_CTX_free(ct
9360: 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20  x);..    return 
9370: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 7d  (SSL_CTX *)0;..}
9380: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28  .    } else if (
9390: 63 65 72 74 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a  cert != NULL) {.
93a0: 09 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f 6b 65  .load_private_ke
93b0: 79 20 3d 20 31 3b 0a 09 69 66 20 28 53 53 4c 5f  y = 1;..if (SSL_
93c0: 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 63  CTX_use_certific
93d0: 61 74 65 5f 41 53 4e 31 28 63 74 78 2c 20 63 65  ate_ASN1(ctx, ce
93e0: 72 74 5f 6c 65 6e 2c 20 63 65 72 74 29 20 3c 3d  rt_len, cert) <=
93f0: 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44   0) {..    Tcl_D
9400: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b  StringFree(&ds);
9410: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  ..    Tcl_Append
9420: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09  Result(interp,..
9430: 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74  ..     "unable t
9440: 6f 20 73 65 74 20 63 65 72 74 69 66 69 63 61 74  o set certificat
9450: 65 3a 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45  e: ",....     RE
9460: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29  ASON(), (char *)
9470: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c   NULL);..    SSL
9480: 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a  _CTX_free(ctx);.
9490: 09 20 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c  .    return (SSL
94a0: 5f 43 54 58 20 2a 29 30 3b 0a 09 7d 0a 20 20 20  _CTX *)0;..}.   
94b0: 20 7d 20 65 6c 73 65 20 7b 0a 09 63 65 72 74 66   } else {..certf
94c0: 69 6c 65 20 3d 20 28 63 68 61 72 2a 29 58 35 30  ile = (char*)X50
94d0: 39 5f 67 65 74 5f 64 65 66 61 75 6c 74 5f 63 65  9_get_default_ce
94e0: 72 74 5f 66 69 6c 65 28 29 3b 0a 0a 09 69 66 20  rt_file();...if 
94f0: 28 53 53 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72  (SSL_CTX_use_cer
9500: 74 69 66 69 63 61 74 65 5f 66 69 6c 65 28 63 74  tificate_file(ct
9510: 78 2c 20 63 65 72 74 66 69 6c 65 2c 0a 09 09 09  x, certfile,....
9520: 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50  ..SSL_FILETYPE_P
9530: 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 23 69 66 20  EM) <= 0) {.#if 
9540: 30 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69  0..    Tcl_DStri
9550: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20  ngFree(&ds);..  
9560: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
9570: 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20  lt(interp,....  
9580: 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 75 73     "unable to us
9590: 65 20 64 65 66 61 75 6c 74 20 63 65 72 74 69 66  e default certif
95a0: 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 63 65  icate file ", ce
95b0: 72 74 66 69 6c 65 2c 20 22 3a 20 22 2c 0a 09 09  rtfile, ": ",...
95c0: 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29 2c 20  .     REASON(), 
95d0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a  (char *) NULL);.
95e0: 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65  .    SSL_CTX_fre
95f0: 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65 74  e(ctx);..    ret
9600: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30  urn (SSL_CTX *)0
9610: 3b 0a 23 65 6e 64 69 66 0a 09 7d 0a 20 20 20 20  ;.#endif..}.    
9620: 7d 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 6f 75  }..    /* set ou
9630: 72 20 70 72 69 76 61 74 65 20 6b 65 79 20 2a 2f  r private key */
9640: 0a 20 20 20 20 69 66 20 28 6c 6f 61 64 5f 70 72  .    if (load_pr
9650: 69 76 61 74 65 5f 6b 65 79 29 20 7b 0a 09 69 66  ivate_key) {..if
9660: 20 28 6b 65 79 66 69 6c 65 20 3d 3d 20 4e 55 4c   (keyfile == NUL
9670: 4c 20 26 26 20 6b 65 79 20 3d 3d 20 4e 55 4c 4c  L && key == NULL
9680: 29 20 7b 0a 09 20 20 20 20 6b 65 79 66 69 6c 65  ) {..    keyfile
9690: 20 3d 20 63 65 72 74 66 69 6c 65 3b 0a 09 7d 0a   = certfile;..}.
96a0: 0a 09 69 66 20 28 6b 65 79 66 69 6c 65 20 21 3d  ..if (keyfile !=
96b0: 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 2f 2a   NULL) {..    /*
96c0: 20 67 65 74 20 74 68 65 20 70 72 69 76 61 74 65   get the private
96d0: 20 6b 65 79 20 61 73 73 6f 63 69 61 74 65 64 20   key associated 
96e0: 77 69 74 68 20 74 68 69 73 20 63 65 72 74 69 66  with this certif
96f0: 69 63 61 74 65 20 2a 2f 0a 09 20 20 20 20 69 66  icate */..    if
9700: 20 28 6b 65 79 66 69 6c 65 20 3d 3d 20 4e 55 4c   (keyfile == NUL
9710: 4c 29 20 7b 0a 09 09 6b 65 79 66 69 6c 65 20 3d  L) {...keyfile =
9720: 20 63 65 72 74 66 69 6c 65 3b 0a 09 20 20 20 20   certfile;..    
9730: 7d 0a 0a 09 20 20 20 20 69 66 20 28 53 53 4c 5f  }...    if (SSL_
9740: 43 54 58 5f 75 73 65 5f 50 72 69 76 61 74 65 4b  CTX_use_PrivateK
9750: 65 79 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 4e  ey_file(ctx, F2N
9760: 28 20 6b 65 79 66 69 6c 65 2c 20 26 64 73 29 2c  ( keyfile, &ds),
9770: 20 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f 50 45   SSL_FILETYPE_PE
9780: 4d 29 20 3c 3d 20 30 29 20 7b 0a 09 09 54 63 6c  M) <= 0) {...Tcl
9790: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73  _DStringFree(&ds
97a0: 29 3b 0a 09 09 2f 2a 20 66 6c 75 73 68 20 74 68  );.../* flush th
97b0: 65 20 70 61 73 73 70 68 72 61 73 65 20 77 68 69  e passphrase whi
97c0: 63 68 20 6d 69 67 68 74 20 62 65 20 6c 65 66 74  ch might be left
97d0: 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 2a   in the result *
97e0: 2f 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c  /...Tcl_SetResul
97f0: 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 2c 20  t(interp, NULL, 
9800: 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 09 09 54  TCL_STATIC);...T
9810: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
9820: 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20  interp,....     
9830: 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 73      "unable to s
9840: 65 74 20 70 75 62 6c 69 63 20 6b 65 79 20 66 69  et public key fi
9850: 6c 65 20 22 2c 20 6b 65 79 66 69 6c 65 2c 20 22  le ", keyfile, "
9860: 20 22 2c 0a 09 09 09 20 20 20 20 20 20 20 20 20   ",....         
9870: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20  REASON(), (char 
9880: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f  *) NULL);...SSL_
9890: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09  CTX_free(ctx);..
98a0: 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58  .return (SSL_CTX
98b0: 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a 0a 09 20   *)0;..    }... 
98c0: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72     Tcl_DStringFr
98d0: 65 65 28 26 64 73 29 3b 0a 09 7d 20 65 6c 73 65  ee(&ds);..} else
98e0: 20 69 66 20 28 6b 65 79 20 21 3d 20 4e 55 4c 4c   if (key != NULL
98f0: 29 20 7b 0a 09 20 20 20 20 69 66 20 28 53 53 4c  ) {..    if (SSL
9900: 5f 43 54 58 5f 75 73 65 5f 50 72 69 76 61 74 65  _CTX_use_Private
9910: 4b 65 79 5f 41 53 4e 31 28 45 56 50 5f 50 4b 45  Key_ASN1(EVP_PKE
9920: 59 5f 52 53 41 2c 20 63 74 78 2c 20 6b 65 79 2c  Y_RSA, ctx, key,
9930: 6b 65 79 5f 6c 65 6e 29 20 3c 3d 20 30 29 20 7b  key_len) <= 0) {
9940: 0a 09 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72  ...Tcl_DStringFr
9950: 65 65 28 26 64 73 29 3b 0a 09 09 2f 2a 20 66 6c  ee(&ds);.../* fl
9960: 75 73 68 20 74 68 65 20 70 61 73 73 70 68 72 61  ush the passphra
9970: 73 65 20 77 68 69 63 68 20 6d 69 67 68 74 20 62  se which might b
9980: 65 20 6c 65 66 74 20 69 6e 20 74 68 65 20 72 65  e left in the re
9990: 73 75 6c 74 20 2a 2f 0a 09 09 54 63 6c 5f 53 65  sult */...Tcl_Se
99a0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
99b0: 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49 43  NULL, TCL_STATIC
99c0: 29 3b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52  );...Tcl_AppendR
99d0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09  esult(interp,...
99e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
99f0: 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20   "unable to set 
9a00: 70 75 62 6c 69 63 20 6b 65 79 3a 20 22 2c 0a 09  public key: ",..
9a10: 09 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
9a20: 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61    REASON(), (cha
9a30: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53  r *) NULL);...SS
9a40: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b  L_CTX_free(ctx);
9a50: 0a 09 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43  ...return (SSL_C
9a60: 54 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a 09  TX *)0;..    }..
9a70: 7d 0a 09 2f 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f  }../* Now we kno
9a80: 77 20 74 68 61 74 20 61 20 6b 65 79 20 61 6e 64  w that a key and
9a90: 20 63 65 72 74 20 68 61 76 65 20 62 65 65 6e 20   cert have been 
9aa0: 73 65 74 20 61 67 61 69 6e 73 74 0a 09 20 2a 20  set against.. * 
9ab0: 74 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20  the SSL context 
9ac0: 2a 2f 0a 09 69 66 20 28 21 53 53 4c 5f 43 54 58  */..if (!SSL_CTX
9ad0: 5f 63 68 65 63 6b 5f 70 72 69 76 61 74 65 5f 6b  _check_private_k
9ae0: 65 79 28 63 74 78 29 29 20 7b 0a 09 20 20 20 20  ey(ctx)) {..    
9af0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
9b00: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20  (interp,....    
9b10: 20 22 70 72 69 76 61 74 65 20 6b 65 79 20 64 6f   "private key do
9b20: 65 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65  es not match the
9b30: 20 63 65 72 74 69 66 69 63 61 74 65 20 70 75 62   certificate pub
9b40: 6c 69 63 20 6b 65 79 22 2c 0a 09 09 09 20 20 20  lic key",....   
9b50: 20 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29    (char *) NULL)
9b60: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66  ;..    SSL_CTX_f
9b70: 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72  ree(ctx);..    r
9b80: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a  eturn (SSL_CTX *
9b90: 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20  )0;..}.    }..  
9ba0: 20 20 2f 2a 20 53 65 74 20 76 65 72 69 66 69 63    /* Set verific
9bb0: 61 74 69 6f 6e 20 43 41 73 20 2a 2f 0a 20 20 20  ation CAs */.   
9bc0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74   Tcl_DStringInit
9bd0: 28 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44  (&ds);.    Tcl_D
9be0: 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 31 29  StringInit(&ds1)
9bf0: 3b 0a 20 20 20 20 69 66 20 28 21 53 53 4c 5f 43  ;.    if (!SSL_C
9c00: 54 58 5f 6c 6f 61 64 5f 76 65 72 69 66 79 5f 6c  TX_load_verify_l
9c10: 6f 63 61 74 69 6f 6e 73 28 63 74 78 2c 20 46 32  ocations(ctx, F2
9c20: 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 2c 20  N(CAfile, &ds), 
9c30: 46 32 4e 28 43 41 64 69 72 2c 20 26 64 73 31 29  F2N(CAdir, &ds1)
9c40: 29 20 7c 7c 0a 09 21 53 53 4c 5f 43 54 58 5f 73  ) ||..!SSL_CTX_s
9c50: 65 74 5f 64 65 66 61 75 6c 74 5f 76 65 72 69 66  et_default_verif
9c60: 79 5f 70 61 74 68 73 28 63 74 78 29 29 20 7b 0a  y_paths(ctx)) {.
9c70: 23 69 66 20 30 0a 09 54 63 6c 5f 44 53 74 72 69  #if 0..Tcl_DStri
9c80: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 54 63  ngFree(&ds);..Tc
9c90: 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64  l_DStringFree(&d
9ca0: 73 31 29 3b 0a 09 2f 2a 20 44 6f 6e 27 74 20 63  s1);../* Don't c
9cb0: 75 72 72 65 6e 74 6c 79 20 63 61 72 65 20 69 66  urrently care if
9cc0: 20 74 68 69 73 20 66 61 69 6c 73 20 2a 2f 0a 09   this fails */..
9cd0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
9ce0: 28 69 6e 74 65 72 70 2c 20 22 53 53 4c 20 64 65  (interp, "SSL de
9cf0: 66 61 75 6c 74 20 76 65 72 69 66 79 20 70 61 74  fault verify pat
9d00: 68 73 3a 20 22 2c 0a 09 09 52 45 41 53 4f 4e 28  hs: ",...REASON(
9d10: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ), (char *) NULL
9d20: 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65  );..SSL_CTX_free
9d30: 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 28  (ctx);..return (
9d40: 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e  SSL_CTX *)0;.#en
9d50: 64 69 66 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  dif.    }..    /
9d60: 2a 20 68 74 74 70 73 3a 2f 2f 73 6f 75 72 63 65  * https://source
9d70: 66 6f 72 67 65 2e 6e 65 74 2f 70 2f 74 6c 73 2f  forge.net/p/tls/
9d80: 62 75 67 73 2f 35 37 2f 20 2a 2f 0a 20 20 20 20  bugs/57/ */.    
9d90: 2f 2a 20 58 58 58 3a 54 4f 44 4f 3a 20 4c 65 74  /* XXX:TODO: Let
9da0: 20 74 68 65 20 75 73 65 72 20 73 75 70 70 6c 79   the user supply
9db0: 20 76 61 6c 75 65 73 20 68 65 72 65 20 69 6e 73   values here ins
9dc0: 74 65 61 64 20 6f 66 20 73 6f 6d 65 74 68 69 6e  tead of somethin
9dd0: 67 20 74 68 61 74 20 65 78 69 73 74 73 20 6f 6e  g that exists on
9de0: 20 74 68 65 20 66 69 6c 65 73 79 73 74 65 6d 20   the filesystem 
9df0: 2a 2f 0a 20 20 20 20 69 66 20 28 20 43 41 66 69  */.    if ( CAfi
9e00: 6c 65 20 21 3d 20 4e 55 4c 4c 20 29 20 7b 0a 20  le != NULL ) {. 
9e10: 20 20 20 20 20 20 20 53 54 41 43 4b 5f 4f 46 28         STACK_OF(
9e20: 58 35 30 39 5f 4e 41 4d 45 29 20 2a 63 65 72 74  X509_NAME) *cert
9e30: 4e 61 6d 65 73 20 3d 20 53 53 4c 5f 6c 6f 61 64  Names = SSL_load
9e40: 5f 63 6c 69 65 6e 74 5f 43 41 5f 66 69 6c 65 28  _client_CA_file(
9e50: 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 64 73   F2N(CAfile, &ds
9e60: 29 20 29 3b 0a 09 69 66 20 28 20 63 65 72 74 4e  ) );..if ( certN
9e70: 61 6d 65 73 20 21 3d 20 4e 55 4c 4c 20 29 20 7b  ames != NULL ) {
9e80: 20 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 73   ..    SSL_CTX_s
9e90: 65 74 5f 63 6c 69 65 6e 74 5f 43 41 5f 6c 69 73  et_client_CA_lis
9ea0: 74 28 63 74 78 2c 20 63 65 72 74 4e 61 6d 65 73  t(ctx, certNames
9eb0: 20 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20   );..}.    }..  
9ec0: 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65    Tcl_DStringFre
9ed0: 65 28 26 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f  e(&ds);.    Tcl_
9ee0: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 31  DStringFree(&ds1
9ef0: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 63 74  );.    return ct
9f00: 78 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  x;.}.../*. *----
9f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
9f50: 20 2a 0a 20 2a 20 53 74 61 74 75 73 4f 62 6a 43   *. * StatusObjC
9f60: 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 63 65 72  md -- return cer
9f70: 74 69 66 69 63 61 74 65 20 66 6f 72 20 63 6f 6e  tificate for con
9f80: 6e 65 63 74 65 64 20 70 65 65 72 2e 0a 20 2a 0a  nected peer.. *.
9f90: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41   * Results:. *.A
9fa0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65   standard Tcl re
9fb0: 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  sult.. *. * Side
9fc0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e   effects:. *.Non
9fd0: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  e.. *. *--------
9fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
a020: 73 74 61 74 69 63 20 69 6e 74 0a 53 74 61 74 75  static int.Statu
a030: 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61  sObjCmd(ClientDa
a040: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54  ta clientData, T
a050: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
a060: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c  p, int objc, Tcl
a070: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76  _Obj *const objv
a080: 5b 5d 29 20 7b 0a 20 20 20 20 53 74 61 74 65 20  []) {.    State 
a090: 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 58  *statePtr;.    X
a0a0: 35 30 39 20 2a 70 65 65 72 3b 0a 20 20 20 20 54  509 *peer;.    T
a0b0: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a  cl_Obj *objPtr;.
a0c0: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20      Tcl_Channel 
a0d0: 63 68 61 6e 3b 0a 20 20 20 20 63 68 61 72 20 2a  chan;.    char *
a0e0: 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 2a 63 69  channelName, *ci
a0f0: 70 68 65 72 73 3b 0a 20 20 20 20 69 6e 74 20 6d  phers;.    int m
a100: 6f 64 65 3b 0a 23 69 66 6e 64 65 66 20 4f 50 45  ode;.#ifndef OPE
a110: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20  NSSL_NO_TLSEXT. 
a120: 20 20 20 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65     const unsigne
a130: 64 20 63 68 61 72 20 2a 70 72 6f 74 6f 3b 0a 20  d char *proto;. 
a140: 20 20 20 75 6e 73 69 67 6e 65 64 20 69 6e 74 20     unsigned int 
a150: 6c 65 6e 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20  len;.#endif..   
a160: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64   dprintf("Called
a170: 22 29 3b 0a 0a 20 20 20 20 73 77 69 74 63 68 20  ");..    switch 
a180: 28 6f 62 6a 63 29 20 7b 0a 09 63 61 73 65 20 32  (objc) {..case 2
a190: 3a 0a 09 20 20 20 20 63 68 61 6e 6e 65 6c 4e 61  :..    channelNa
a1a0: 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  me = Tcl_GetStri
a1b0: 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31  ngFromObj(objv[1
a1c0: 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 62  ], NULL);..    b
a1d0: 72 65 61 6b 3b 0a 0a 09 63 61 73 65 20 33 3a 0a  reak;...case 3:.
a1e0: 09 20 20 20 20 69 66 20 28 21 73 74 72 63 6d 70  .    if (!strcmp
a1f0: 20 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 20   (Tcl_GetString 
a200: 28 6f 62 6a 76 5b 31 5d 29 2c 20 22 2d 6c 6f 63  (objv[1]), "-loc
a210: 61 6c 22 29 29 20 7b 0a 09 09 63 68 61 6e 6e 65  al")) {...channe
a220: 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53  lName = Tcl_GetS
a230: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a  tringFromObj(obj
a240: 76 5b 32 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 09 62  v[2], NULL);...b
a250: 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a 09 20 20  reak;..    }..  
a260: 20 20 2f 2a 20 65 6c 73 65 20 66 61 6c 6c 2d 74    /* else fall-t
a270: 68 72 6f 75 67 68 20 2e 2e 2e 20 2a 2f 0a 23 69  hrough ... */.#i
a280: 66 20 64 65 66 69 6e 65 64 28 5f 5f 47 4e 55 43  f defined(__GNUC
a290: 5f 5f 29 0a 09 20 20 20 20 5f 5f 61 74 74 72 69  __)..    __attri
a2a0: 62 75 74 65 5f 5f 28 28 66 61 6c 6c 74 68 72 6f  bute__((fallthro
a2b0: 75 67 68 29 29 3b 0a 23 65 6e 64 69 66 0a 09 64  ugh));.#endif..d
a2c0: 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 54 63 6c  efault:..    Tcl
a2d0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
a2e0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22  terp, 1, objv, "
a2f0: 3f 2d 6c 6f 63 61 6c 3f 20 63 68 61 6e 6e 65 6c  ?-local? channel
a300: 22 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20  ");..    return 
a310: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
a320: 0a 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c  ..    chan = Tcl
a330: 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65  _GetChannel(inte
a340: 72 70 2c 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c  rp, channelName,
a350: 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 20   &mode);.    if 
a360: 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68  (chan == (Tcl_Ch
a370: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09  annel) NULL) {..
a380: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a390: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20  ;.    }.    /*. 
a3a0: 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20      * Make sure 
a3b0: 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68  to operate on th
a3c0: 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65  e topmost channe
a3d0: 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 63 68  l.     */.    ch
a3e0: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43  an = Tcl_GetTopC
a3f0: 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 20  hannel(chan);.  
a400: 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61    if (Tcl_GetCha
a410: 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21  nnelType(chan) !
a420: 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70  = Tls_ChannelTyp
a430: 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65  e()) {..Tcl_Appe
a440: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
a450: 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22   "bad channel \"
a460: 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  ", Tcl_GetChanne
a470: 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22  lName(chan),..."
a480: 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20 63 68  \": not a TLS ch
a490: 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09  annel", NULL);..
a4a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
a4b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74  ;.    }.    stat
a4c0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29  ePtr = (State *)
a4d0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49   Tcl_GetChannelI
a4e0: 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 61 6e  nstanceData(chan
a4f0: 29 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20  );.    if (objc 
a500: 3d 3d 20 32 29 20 7b 0a 09 70 65 65 72 20 3d 20  == 2) {..peer = 
a510: 53 53 4c 5f 67 65 74 5f 70 65 65 72 5f 63 65 72  SSL_get_peer_cer
a520: 74 69 66 69 63 61 74 65 28 73 74 61 74 65 50 74  tificate(statePt
a530: 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65  r->ssl);.    } e
a540: 6c 73 65 20 7b 0a 09 70 65 65 72 20 3d 20 53 53  lse {..peer = SS
a550: 4c 5f 67 65 74 5f 63 65 72 74 69 66 69 63 61 74  L_get_certificat
a560: 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29  e(statePtr->ssl)
a570: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28  ;.    }.    if (
a580: 70 65 65 72 29 20 7b 0a 09 6f 62 6a 50 74 72 20  peer) {..objPtr 
a590: 3d 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a  = Tls_NewX509Obj
a5a0: 28 69 6e 74 65 72 70 2c 20 70 65 65 72 29 3b 0a  (interp, peer);.
a5b0: 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20  .if (objc == 2) 
a5c0: 7b 20 58 35 30 39 5f 66 72 65 65 28 70 65 65 72  { X509_free(peer
a5d0: 29 3b 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20  ); }.    } else 
a5e0: 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f  {..objPtr = Tcl_
a5f0: 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55  NewListObj(0, NU
a600: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  LL);.    }..    
a610: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
a620: 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 70  dElement (interp
a630: 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 54  , objPtr,..    T
a640: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 20  cl_NewStringObj 
a650: 28 22 73 62 69 74 73 22 2c 20 2d 31 29 29 3b 0a  ("sbits", -1));.
a660: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
a670: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e  ppendElement (in
a680: 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20  terp, objPtr,.. 
a690: 20 20 20 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a     Tcl_NewIntObj
a6a0: 20 28 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72   (SSL_get_cipher
a6b0: 5f 62 69 74 73 20 28 73 74 61 74 65 50 74 72 2d  _bits (statePtr-
a6c0: 3e 73 73 6c 2c 20 4e 55 4c 4c 29 29 29 3b 0a 0a  >ssl, NULL)));..
a6d0: 20 20 20 20 63 69 70 68 65 72 73 20 3d 20 28 63      ciphers = (c
a6e0: 68 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70  har*)SSL_get_cip
a6f0: 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73 73  her(statePtr->ss
a700: 6c 29 3b 0a 20 20 20 20 69 66 20 28 28 63 69 70  l);.    if ((cip
a710: 68 65 72 73 20 21 3d 20 4e 55 4c 4c 29 20 26 26  hers != NULL) &&
a720: 20 28 73 74 72 63 6d 70 28 63 69 70 68 65 72 73   (strcmp(ciphers
a730: 2c 20 22 28 4e 4f 4e 45 29 22 29 20 21 3d 20 30  , "(NONE)") != 0
a740: 29 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62  )) {..Tcl_ListOb
a750: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69  jAppendElement(i
a760: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09  nterp, objPtr,..
a770: 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62  .Tcl_NewStringOb
a780: 6a 28 22 63 69 70 68 65 72 22 2c 20 2d 31 29 29  j("cipher", -1))
a790: 3b 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70  ;..Tcl_ListObjAp
a7a0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65  pendElement(inte
a7b0: 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63  rp, objPtr,...Tc
a7c0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 53  l_NewStringObj(S
a7d0: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74  SL_get_cipher(st
a7e0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c 20 2d 31  atePtr->ssl), -1
a7f0: 29 29 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 6e 64  ));.    }..#ifnd
a800: 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c  ef OPENSSL_NO_TL
a810: 53 45 58 54 0a 20 20 20 20 2f 2a 20 52 65 70 6f  SEXT.    /* Repo
a820: 72 74 20 74 68 65 20 73 65 6c 65 63 74 65 64 20  rt the selected 
a830: 70 72 6f 74 6f 63 6f 6c 20 61 73 20 61 20 72 65  protocol as a re
a840: 73 75 6c 74 20 6f 66 20 74 68 65 20 6e 65 67 6f  sult of the nego
a850: 74 69 61 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 53  tiation */.    S
a860: 53 4c 5f 67 65 74 30 5f 61 6c 70 6e 5f 73 65 6c  SL_get0_alpn_sel
a870: 65 63 74 65 64 28 73 74 61 74 65 50 74 72 2d 3e  ected(statePtr->
a880: 73 73 6c 2c 20 26 70 72 6f 74 6f 2c 20 26 6c 65  ssl, &proto, &le
a890: 6e 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74  n);.    Tcl_List
a8a0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
a8b0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c  (interp, objPtr,
a8c0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
a8d0: 6a 28 22 61 6c 70 6e 22 2c 20 2d 31 29 29 3b 0a  j("alpn", -1));.
a8e0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
a8f0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
a900: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 20 20 20  erp, objPtr,.   
a910: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
a920: 4f 62 6a 28 28 63 68 61 72 20 2a 29 70 72 6f 74  Obj((char *)prot
a930: 6f 2c 20 28 69 6e 74 29 6c 65 6e 29 29 3b 0a 23  o, (int)len));.#
a940: 65 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f 4c 69  endif.    Tcl_Li
a950: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
a960: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  nt(interp, objPt
a970: 72 2c 0a 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e  r,..Tcl_NewStrin
a980: 67 4f 62 6a 28 22 76 65 72 73 69 6f 6e 22 2c 20  gObj("version", 
a990: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69  -1));.    Tcl_Li
a9a0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
a9b0: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  nt(interp, objPt
a9c0: 72 2c 0a 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e  r,..Tcl_NewStrin
a9d0: 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 76 65 72  gObj(SSL_get_ver
a9e0: 73 69 6f 6e 28 73 74 61 74 65 50 74 72 2d 3e 73  sion(statePtr->s
a9f0: 73 6c 29 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20  sl), -1));..    
aa00: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
aa10: 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72  ( interp, objPtr
aa20: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
aa30: 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 65 6e  L_OK;.    .clien
aa40: 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61  tData = clientDa
aa50: 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d  ta;.}.../*. *---
aa60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aa70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aa80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aa90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aaa0: 0a 20 2a 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62  . *. * VersionOb
aab0: 6a 43 6d 64 20 2d 2d 20 72 65 74 75 72 6e 20 76  jCmd -- return v
aac0: 65 72 73 69 6f 6e 20 73 74 72 69 6e 67 20 66 72  ersion string fr
aad0: 6f 6d 20 4f 70 65 6e 53 53 4c 2e 0a 20 2a 0a 20  om OpenSSL.. *. 
aae0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20  * Results:. *.A 
aaf0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73  standard Tcl res
ab00: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  ult.. *. * Side 
ab10: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65  effects:. *.None
ab20: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
ab30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73  ----------. */.s
ab70: 74 61 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f  tatic int.Versio
ab80: 6e 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61  nObjCmd(ClientDa
ab90: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54  ta clientData, T
aba0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
abb0: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c  p, int objc, Tcl
abc0: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76  _Obj *const objv
abd0: 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62  []) {.    Tcl_Ob
abe0: 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20  j *objPtr;..    
abf0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22  dprintf("Called"
ac00: 29 3b 0a 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d  );..    objPtr =
ac10: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
ac20: 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f  j(OPENSSL_VERSIO
ac30: 4e 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 0a 20 20  N_TEXT, -1);..  
ac40: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75    Tcl_SetObjResu
ac50: 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  lt(interp, objPt
ac60: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  r);.    return T
ac70: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 65  CL_OK;.    .clie
ac80: 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44  ntData = clientD
ac90: 61 74 61 3b 0a 20 20 20 20 09 6f 62 6a 63 20 3d  ata;.    .objc =
aca0: 20 6f 62 6a 63 3b 0a 20 20 20 20 09 6f 62 6a 76   objc;.    .objv
acb0: 20 3d 20 6f 62 6a 76 3b 0a 7d 0a 0c 0a 2f 2a 0a   = objv;.}.../*.
acc0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
acd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ace0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
acf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ad00: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 69 73 63  -----. *. * Misc
ad10: 4f 62 6a 43 6d 64 20 2d 2d 20 6d 69 73 63 20 63  ObjCmd -- misc c
ad20: 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65  ommands. *. * Re
ad30: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e  sults:. *.A stan
ad40: 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e  dard Tcl result.
ad50: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
ad60: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a  cts:. *.None.. *
ad70: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
ad80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ad90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ada0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
adb0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69  ------. */.stati
adc0: 63 20 69 6e 74 0a 4d 69 73 63 4f 62 6a 43 6d 64  c int.MiscObjCmd
add0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65  (ClientData clie
ade0: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65  ntData, Tcl_Inte
adf0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20  rp *interp, int 
ae00: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63  objc, Tcl_Obj *c
ae10: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20  onst objv[]) {. 
ae20: 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20     static const 
ae30: 63 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 73 20 5b  char *commands [
ae40: 5d 20 3d 20 7b 20 22 72 65 71 22 2c 20 22 73 74  ] = { "req", "st
ae50: 72 72 65 71 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 20  rreq", NULL };. 
ae60: 20 20 20 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 20     enum command 
ae70: 7b 20 43 5f 52 45 51 2c 20 43 5f 53 54 52 52 45  { C_REQ, C_STRRE
ae80: 51 2c 20 43 5f 44 55 4d 4d 59 20 7d 3b 0a 20 20  Q, C_DUMMY };.  
ae90: 20 20 69 6e 74 20 63 6d 64 2c 20 69 73 53 74 72    int cmd, isStr
aea0: 3b 0a 20 20 20 20 63 68 61 72 20 62 75 66 66 65  ;.    char buffe
aeb0: 72 5b 31 36 33 38 34 5d 3b 0a 0a 20 20 20 20 64  r[16384];..    d
aec0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29  printf("Called")
aed0: 3b 0a 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20  ;..    if (objc 
aee0: 3c 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e  < 2) {..Tcl_Wron
aef0: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c  gNumArgs(interp,
af00: 20 31 2c 20 6f 62 6a 76 2c 20 22 73 75 62 63 6f   1, objv, "subco
af10: 6d 6d 61 6e 64 20 3f 61 72 67 73 3f 22 29 3b 0a  mmand ?args?");.
af20: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
af30: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  R;.    }.    if 
af40: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f  (Tcl_GetIndexFro
af50: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a  mObj(interp, obj
af60: 76 5b 31 5d 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20  v[1], commands, 
af70: 22 63 6f 6d 6d 61 6e 64 22 2c 20 30 2c 26 63 6d  "command", 0,&cm
af80: 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  d) != TCL_OK) {.
af90: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
afa0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 73  R;.    }..    is
afb0: 53 74 72 20 3d 20 28 63 6d 64 20 3d 3d 20 43 5f  Str = (cmd == C_
afc0: 53 54 52 52 45 51 29 3b 0a 20 20 20 20 73 77 69  STRREQ);.    swi
afd0: 74 63 68 20 28 28 65 6e 75 6d 20 63 6f 6d 6d 61  tch ((enum comma
afe0: 6e 64 29 20 63 6d 64 29 20 7b 0a 09 63 61 73 65  nd) cmd) {..case
aff0: 20 43 5f 52 45 51 3a 0a 09 63 61 73 65 20 43 5f   C_REQ:..case C_
b000: 53 54 52 52 45 51 3a 20 7b 0a 09 20 20 20 20 45  STRREQ: {..    E
b010: 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 3d 4e 55  VP_PKEY *pkey=NU
b020: 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 20 2a 63  LL;..    X509 *c
b030: 65 72 74 3d 4e 55 4c 4c 3b 0a 09 20 20 20 20 58  ert=NULL;..    X
b040: 35 30 39 5f 4e 41 4d 45 20 2a 6e 61 6d 65 3d 4e  509_NAME *name=N
b050: 55 4c 4c 3b 0a 09 20 20 20 20 54 63 6c 5f 4f 62  ULL;..    Tcl_Ob
b060: 6a 20 2a 2a 6c 69 73 74 76 3b 0a 09 20 20 20 20  j **listv;..    
b070: 69 6e 74 20 6c 69 73 74 63 2c 69 3b 0a 0a 09 20  int listc,i;... 
b080: 20 20 20 42 49 4f 20 2a 6f 75 74 3d 4e 55 4c 4c     BIO *out=NULL
b090: 3b 0a 0a 09 20 20 20 20 63 68 61 72 20 2a 6b 5f  ;...    char *k_
b0a0: 43 3d 22 22 2c 2a 6b 5f 53 54 3d 22 22 2c 2a 6b  C="",*k_ST="",*k
b0b0: 5f 4c 3d 22 22 2c 2a 6b 5f 4f 3d 22 22 2c 2a 6b  _L="",*k_O="",*k
b0c0: 5f 4f 55 3d 22 22 2c 2a 6b 5f 43 4e 3d 22 22 2c  _OU="",*k_CN="",
b0d0: 2a 6b 5f 45 6d 61 69 6c 3d 22 22 3b 0a 09 20 20  *k_Email="";..  
b0e0: 20 20 63 68 61 72 20 2a 6b 65 79 6f 75 74 2c 2a    char *keyout,*
b0f0: 70 65 6d 6f 75 74 2c 2a 73 74 72 3b 0a 09 20 20  pemout,*str;..  
b100: 20 20 69 6e 74 20 6b 65 79 73 69 7a 65 2c 73 65    int keysize,se
b110: 72 69 61 6c 3d 30 2c 64 61 79 73 3d 33 36 35 3b  rial=0,days=365;
b120: 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45  ..#if OPENSSL_VE
b130: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 3d 20  RSION_NUMBER <= 
b140: 30 78 31 30 31 30 30 30 30 30 4c 0a 09 20 20 20  0x10100000L..   
b150: 20 52 53 41 20 2a 72 73 61 20 3d 20 4e 55 4c 4c   RSA *rsa = NULL
b160: 3b 0a 23 65 6c 69 66 20 4f 50 45 4e 53 53 4c 5f  ;.#elif OPENSSL_
b170: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c  VERSION_NUMBER <
b180: 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 20 20   0x30000000L..  
b190: 20 20 42 49 47 4e 55 4d 20 2a 62 6e 65 20 3d 20    BIGNUM *bne = 
b1a0: 4e 55 4c 4c 3b 0a 09 20 20 20 20 52 53 41 20 2a  NULL;..    RSA *
b1b0: 72 73 61 20 3d 20 4e 55 4c 4c 3b 0a 23 65 6c 73  rsa = NULL;.#els
b1c0: 65 0a 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f  e..    EVP_PKEY_
b1d0: 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b  CTX *ctx = NULL;
b1e0: 20 20 20 20 0a 23 65 6e 64 69 66 0a 0a 09 20 20      .#endif...  
b1f0: 20 20 69 66 20 28 28 6f 62 6a 63 3c 35 29 20 7c    if ((objc<5) |
b200: 7c 20 28 6f 62 6a 63 3e 36 29 29 20 7b 0a 09 09  | (objc>6)) {...
b210: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
b220: 28 69 6e 74 65 72 70 2c 20 32 2c 20 6f 62 6a 76  (interp, 2, objv
b230: 2c 20 22 6b 65 79 73 69 7a 65 20 6b 65 79 66 69  , "keysize keyfi
b240: 6c 65 20 63 65 72 74 66 69 6c 65 20 3f 69 6e 66  le certfile ?inf
b250: 6f 3f 22 29 3b 0a 09 09 72 65 74 75 72 6e 20 54  o?");...return T
b260: 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d  CL_ERROR;..    }
b270: 0a 0a 09 20 20 20 20 69 66 20 28 54 63 6c 5f 47  ...    if (Tcl_G
b280: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
b290: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 6b  erp, objv[2], &k
b2a0: 65 79 73 69 7a 65 29 20 21 3d 20 54 43 4c 5f 4f  eysize) != TCL_O
b2b0: 4b 29 20 7b 0a 09 09 72 65 74 75 72 6e 20 54 43  K) {...return TC
b2c0: 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 7d 0a  L_ERROR;..    }.
b2d0: 09 20 20 20 20 6b 65 79 6f 75 74 3d 54 63 6c 5f  .    keyout=Tcl_
b2e0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 33  GetString(objv[3
b2f0: 5d 29 3b 0a 09 20 20 20 20 70 65 6d 6f 75 74 3d  ]);..    pemout=
b300: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
b310: 6a 76 5b 34 5d 29 3b 0a 09 20 20 20 20 69 66 20  jv[4]);..    if 
b320: 28 69 73 53 74 72 29 20 7b 0a 09 09 54 63 6c 5f  (isStr) {...Tcl_
b330: 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 6b 65  SetVar(interp,ke
b340: 79 6f 75 74 2c 22 22 2c 30 29 3b 0a 09 09 54 63  yout,"",0);...Tc
b350: 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c  l_SetVar(interp,
b360: 70 65 6d 6f 75 74 2c 22 22 2c 30 29 3b 0a 09 20  pemout,"",0);.. 
b370: 20 20 20 7d 0a 0a 09 20 20 20 20 69 66 20 28 6f     }...    if (o
b380: 62 6a 63 3e 3d 36 29 20 7b 0a 09 09 69 66 20 28  bjc>=6) {...if (
b390: 54 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c  Tcl_ListObjGetEl
b3a0: 65 6d 65 6e 74 73 28 69 6e 74 65 72 70 2c 20 6f  ements(interp, o
b3b0: 62 6a 76 5b 35 5d 2c 0a 09 09 09 26 6c 69 73 74  bjv[5],....&list
b3c0: 63 2c 20 26 6c 69 73 74 76 29 20 21 3d 20 54 43  c, &listv) != TC
b3d0: 4c 5f 4f 4b 29 20 7b 0a 09 09 20 20 20 20 72 65  L_OK) {...    re
b3e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
b3f0: 09 09 7d 0a 0a 09 09 69 66 20 28 28 6c 69 73 74  ..}....if ((list
b400: 63 25 32 29 20 21 3d 20 30 29 20 7b 0a 09 09 20  c%2) != 0) {... 
b410: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74     Tcl_SetResult
b420: 28 69 6e 74 65 72 70 2c 22 49 6e 66 6f 72 6d 61  (interp,"Informa
b430: 74 69 6f 6e 20 6c 69 73 74 20 6d 75 73 74 20 68  tion list must h
b440: 61 76 65 20 65 76 65 6e 20 6e 75 6d 62 65 72 20  ave even number 
b450: 6f 66 20 61 72 67 75 6d 65 6e 74 73 22 2c 4e 55  of arguments",NU
b460: 4c 4c 29 3b 0a 09 09 20 20 20 20 72 65 74 75 72  LL);...    retur
b470: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d  n TCL_ERROR;...}
b480: 0a 09 09 66 6f 72 20 28 69 3d 30 3b 20 69 3c 6c  ...for (i=0; i<l
b490: 69 73 74 63 3b 20 69 2b 3d 32 29 20 7b 0a 09 09  istc; i+=2) {...
b4a0: 20 20 20 20 73 74 72 3d 54 63 6c 5f 47 65 74 53      str=Tcl_GetS
b4b0: 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 5d 29 3b  tring(listv[i]);
b4c0: 0a 09 09 20 20 20 20 69 66 20 28 73 74 72 63 6d  ...    if (strcm
b4d0: 70 28 73 74 72 2c 22 64 61 79 73 22 29 3d 3d 30  p(str,"days")==0
b4e0: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47  ) {....if (Tcl_G
b4f0: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
b500: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26  erp,listv[i+1],&
b510: 64 61 79 73 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09  days)!=TCL_OK)..
b520: 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ..    return TCL
b530: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 20  _ERROR;...    } 
b540: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28  else if (strcmp(
b550: 73 74 72 2c 22 73 65 72 69 61 6c 22 29 3d 3d 30  str,"serial")==0
b560: 29 20 7b 0a 09 09 09 69 66 20 28 54 63 6c 5f 47  ) {....if (Tcl_G
b570: 65 74 49 6e 74 46 72 6f 6d 4f 62 6a 28 69 6e 74  etIntFromObj(int
b580: 65 72 70 2c 6c 69 73 74 76 5b 69 2b 31 5d 2c 26  erp,listv[i+1],&
b590: 73 65 72 69 61 6c 29 21 3d 54 43 4c 5f 4f 4b 29  serial)!=TCL_OK)
b5a0: 0a 09 09 09 20 20 20 20 72 65 74 75 72 6e 20 54  ....    return T
b5b0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20  CL_ERROR;...    
b5c0: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d  } else if (strcm
b5d0: 70 28 73 74 72 2c 22 43 22 29 3d 3d 30 29 20 7b  p(str,"C")==0) {
b5e0: 0a 09 09 09 6b 5f 43 3d 54 63 6c 5f 47 65 74 53  ....k_C=Tcl_GetS
b5f0: 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d  tring(listv[i+1]
b600: 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20  );...    } else 
b610: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22  if (strcmp(str,"
b620: 53 54 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f  ST")==0) {....k_
b630: 53 54 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  ST=Tcl_GetString
b640: 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09  (listv[i+1]);...
b650: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73      } else if (s
b660: 74 72 63 6d 70 28 73 74 72 2c 22 4c 22 29 3d 3d  trcmp(str,"L")==
b670: 30 29 20 7b 0a 09 09 09 6b 5f 4c 3d 54 63 6c 5f  0) {....k_L=Tcl_
b680: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b  GetString(listv[
b690: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65  i+1]);...    } e
b6a0: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73  lse if (strcmp(s
b6b0: 74 72 2c 22 4f 22 29 3d 3d 30 29 20 7b 0a 09 09  tr,"O")==0) {...
b6c0: 09 6b 5f 4f 3d 54 63 6c 5f 47 65 74 53 74 72 69  .k_O=Tcl_GetStri
b6d0: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a  ng(listv[i+1]);.
b6e0: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20  ..    } else if 
b6f0: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f 55 22  (strcmp(str,"OU"
b700: 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 55 3d  )==0) {....k_OU=
b710: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69  Tcl_GetString(li
b720: 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20  stv[i+1]);...   
b730: 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63   } else if (strc
b740: 6d 70 28 73 74 72 2c 22 43 4e 22 29 3d 3d 30 29  mp(str,"CN")==0)
b750: 20 7b 0a 09 09 09 6b 5f 43 4e 3d 54 63 6c 5f 47   {....k_CN=Tcl_G
b760: 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69  etString(listv[i
b770: 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c  +1]);...    } el
b780: 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74  se if (strcmp(st
b790: 72 2c 22 45 6d 61 69 6c 22 29 3d 3d 30 29 20 7b  r,"Email")==0) {
b7a0: 0a 09 09 09 6b 5f 45 6d 61 69 6c 3d 54 63 6c 5f  ....k_Email=Tcl_
b7b0: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b  GetString(listv[
b7c0: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65  i+1]);...    } e
b7d0: 6c 73 65 20 7b 0a 09 09 09 54 63 6c 5f 53 65 74  lse {....Tcl_Set
b7e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 55  Result(interp,"U
b7f0: 6e 6b 6e 6f 77 6e 20 70 61 72 61 6d 65 74 65 72  nknown parameter
b800: 22 2c 4e 55 4c 4c 29 3b 0a 09 09 09 72 65 74 75  ",NULL);....retu
b810: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09  rn TCL_ERROR;...
b820: 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 7d      }...}..    }
b830: 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45  ..#if OPENSSL_VE
b840: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 3d 20  RSION_NUMBER <= 
b850: 30 78 31 30 31 30 30 30 30 30 4c 0a 09 20 20 20  0x10100000L..   
b860: 20 70 6b 65 79 20 3d 20 45 56 50 5f 50 4b 45 59   pkey = EVP_PKEY
b870: 5f 6e 65 77 28 29 3b 0a 09 20 20 20 20 72 73 61  _new();..    rsa
b880: 20 3d 20 52 53 41 5f 67 65 6e 65 72 61 74 65 5f   = RSA_generate_
b890: 6b 65 79 28 6b 65 79 73 69 7a 65 2c 20 30 78 31  key(keysize, 0x1
b8a0: 30 30 30 31 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c  0001, NULL, NULL
b8b0: 29 3b 0a 09 20 20 20 20 69 66 20 28 70 6b 65 79  );..    if (pkey
b8c0: 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 72 73 61 20   == NULL || rsa 
b8d0: 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 21 45 56 50 5f  == NULL || !EVP_
b8e0: 50 4b 45 59 5f 61 73 73 69 67 6e 5f 52 53 41 28  PKEY_assign_RSA(
b8f0: 70 6b 65 79 2c 20 72 73 61 29 29 20 7b 0a 09 09  pkey, rsa)) {...
b900: 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b  EVP_PKEY_free(pk
b910: 65 79 29 3b 0a 09 09 2f 2a 20 52 53 41 5f 66 72  ey);.../* RSA_fr
b920: 65 65 28 72 73 61 29 3b 20 66 72 65 65 64 20 62  ee(rsa); freed b
b930: 79 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 20  y EVP_PKEY_free 
b940: 2a 2f 0a 23 65 6c 69 66 20 4f 50 45 4e 53 53 4c  */.#elif OPENSSL
b950: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20  _VERSION_NUMBER 
b960: 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 20  < 0x30000000L.. 
b970: 20 20 20 62 6e 65 20 3d 20 42 4e 5f 6e 65 77 28     bne = BN_new(
b980: 29 3b 0a 09 20 20 20 20 72 73 61 20 3d 20 52 53  );..    rsa = RS
b990: 41 5f 6e 65 77 28 29 3b 0a 09 20 20 20 20 70 6b  A_new();..    pk
b9a0: 65 79 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6e 65  ey = EVP_PKEY_ne
b9b0: 77 28 29 3b 0a 09 20 20 20 20 69 66 20 28 62 6e  w();..    if (bn
b9c0: 65 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 72 73 61  e == NULL || rsa
b9d0: 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 70 6b 65 79   == NULL || pkey
b9e0: 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 21 42 4e 5f   == NULL || !BN_
b9f0: 73 65 74 5f 77 6f 72 64 28 62 6e 65 2c 52 53 41  set_word(bne,RSA
ba00: 5f 46 34 29 20 7c 7c 0a 09 09 21 52 53 41 5f 67  _F4) ||...!RSA_g
ba10: 65 6e 65 72 61 74 65 5f 6b 65 79 5f 65 78 28 72  enerate_key_ex(r
ba20: 73 61 2c 20 6b 65 79 73 69 7a 65 2c 20 62 6e 65  sa, keysize, bne
ba30: 2c 20 4e 55 4c 4c 29 20 7c 7c 20 21 45 56 50 5f  , NULL) || !EVP_
ba40: 50 4b 45 59 5f 61 73 73 69 67 6e 5f 52 53 41 28  PKEY_assign_RSA(
ba50: 70 6b 65 79 2c 20 72 73 61 29 29 20 7b 0a 09 09  pkey, rsa)) {...
ba60: 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b  EVP_PKEY_free(pk
ba70: 65 79 29 3b 0a 09 09 2f 2a 20 52 53 41 5f 66 72  ey);.../* RSA_fr
ba80: 65 65 28 72 73 61 29 3b 20 66 72 65 65 64 20 62  ee(rsa); freed b
ba90: 79 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 20  y EVP_PKEY_free 
baa0: 2a 2f 0a 09 09 42 4e 5f 66 72 65 65 28 62 6e 65  */...BN_free(bne
bab0: 29 3b 0a 23 65 6c 73 65 0a 09 20 20 20 20 70 6b  );.#else..    pk
bac0: 65 79 20 3d 20 45 56 50 5f 52 53 41 5f 67 65 6e  ey = EVP_RSA_gen
bad0: 28 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 29 20  ((unsigned int) 
bae0: 6b 65 79 73 69 7a 65 29 3b 0a 09 20 20 20 20 63  keysize);..    c
baf0: 74 78 20 3d 20 45 56 50 5f 50 4b 45 59 5f 43 54  tx = EVP_PKEY_CT
bb00: 58 5f 6e 65 77 28 70 6b 65 79 2c 4e 55 4c 4c 29  X_new(pkey,NULL)
bb10: 3b 0a 09 20 20 20 20 69 66 20 28 70 6b 65 79 20  ;..    if (pkey 
bb20: 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 63 74 78 20 3d  == NULL || ctx =
bb30: 3d 20 4e 55 4c 4c 20 7c 7c 20 21 45 56 50 5f 50  = NULL || !EVP_P
bb40: 4b 45 59 5f 6b 65 79 67 65 6e 5f 69 6e 69 74 28  KEY_keygen_init(
bb50: 63 74 78 29 20 7c 7c 0a 09 09 21 45 56 50 5f 50  ctx) ||...!EVP_P
bb60: 4b 45 59 5f 43 54 58 5f 73 65 74 5f 72 73 61 5f  KEY_CTX_set_rsa_
bb70: 6b 65 79 67 65 6e 5f 62 69 74 73 28 63 74 78 2c  keygen_bits(ctx,
bb80: 20 6b 65 79 73 69 7a 65 29 20 7c 7c 20 21 45 56   keysize) || !EV
bb90: 50 5f 50 4b 45 59 5f 6b 65 79 67 65 6e 28 63 74  P_PKEY_keygen(ct
bba0: 78 2c 20 26 70 6b 65 79 29 29 20 7b 0a 09 09 45  x, &pkey)) {...E
bbb0: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65  VP_PKEY_free(pke
bbc0: 79 29 3b 0a 09 09 45 56 50 5f 50 4b 45 59 5f 43  y);...EVP_PKEY_C
bbd0: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 23 65  TX_free(ctx);.#e
bbe0: 6e 64 69 66 0a 09 09 54 63 6c 5f 53 65 74 52 65  ndif...Tcl_SetRe
bbf0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72 72  sult(interp,"Err
bc00: 6f 72 20 67 65 6e 65 72 61 74 69 6e 67 20 70 72  or generating pr
bc10: 69 76 61 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29  ivate key",NULL)
bc20: 3b 0a 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  ;...return TCL_E
bc30: 52 52 4f 52 3b 0a 09 20 20 20 20 7d 20 65 6c 73  RROR;..    } els
bc40: 65 20 7b 0a 09 09 69 66 20 28 69 73 53 74 72 29  e {...if (isStr)
bc50: 20 7b 0a 09 09 20 20 20 20 6f 75 74 3d 42 49 4f   {...    out=BIO
bc60: 5f 6e 65 77 28 42 49 4f 5f 73 5f 6d 65 6d 28 29  _new(BIO_s_mem()
bc70: 29 3b 0a 09 09 20 20 20 20 50 45 4d 5f 77 72 69  );...    PEM_wri
bc80: 74 65 5f 62 69 6f 5f 50 72 69 76 61 74 65 4b 65  te_bio_PrivateKe
bc90: 79 28 6f 75 74 2c 70 6b 65 79 2c 4e 55 4c 4c 2c  y(out,pkey,NULL,
bca0: 4e 55 4c 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c  NULL,0,NULL,NULL
bcb0: 29 3b 0a 09 09 20 20 20 20 69 3d 42 49 4f 5f 72  );...    i=BIO_r
bcc0: 65 61 64 28 6f 75 74 2c 62 75 66 66 65 72 2c 73  ead(out,buffer,s
bcd0: 69 7a 65 6f 66 28 62 75 66 66 65 72 29 2d 31 29  izeof(buffer)-1)
bce0: 3b 0a 09 09 20 20 20 20 69 3d 28 69 3c 30 29 20  ;...    i=(i<0) 
bcf0: 3f 20 30 20 3a 20 69 3b 0a 09 09 20 20 20 20 62  ? 0 : i;...    b
bd00: 75 66 66 65 72 5b 69 5d 3d 27 5c 30 27 3b 0a 09  uffer[i]='\0';..
bd10: 09 20 20 20 20 54 63 6c 5f 53 65 74 56 61 72 28  .    Tcl_SetVar(
bd20: 69 6e 74 65 72 70 2c 6b 65 79 6f 75 74 2c 62 75  interp,keyout,bu
bd30: 66 66 65 72 2c 30 29 3b 0a 09 09 20 20 20 20 42  ffer,0);...    B
bd40: 49 4f 5f 66 6c 75 73 68 28 6f 75 74 29 3b 0a 09  IO_flush(out);..
bd50: 09 20 20 20 20 42 49 4f 5f 66 72 65 65 28 6f 75  .    BIO_free(ou
bd60: 74 29 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09  t);...} else {..
bd70: 09 20 20 20 20 6f 75 74 3d 42 49 4f 5f 6e 65 77  .    out=BIO_new
bd80: 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29 3b 0a  (BIO_s_file());.
bd90: 09 09 20 20 20 20 42 49 4f 5f 77 72 69 74 65 5f  ..    BIO_write_
bda0: 66 69 6c 65 6e 61 6d 65 28 6f 75 74 2c 6b 65 79  filename(out,key
bdb0: 6f 75 74 29 3b 0a 09 09 20 20 20 20 50 45 4d 5f  out);...    PEM_
bdc0: 77 72 69 74 65 5f 62 69 6f 5f 50 72 69 76 61 74  write_bio_Privat
bdd0: 65 4b 65 79 28 6f 75 74 2c 70 6b 65 79 2c 4e 55  eKey(out,pkey,NU
bde0: 4c 4c 2c 4e 55 4c 4c 2c 30 2c 4e 55 4c 4c 2c 4e  LL,NULL,0,NULL,N
bdf0: 55 4c 4c 29 3b 0a 09 09 20 20 20 20 2f 2a 20 50  ULL);...    /* P
be00: 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f 52 53 41  EM_write_bio_RSA
be10: 50 72 69 76 61 74 65 4b 65 79 28 6f 75 74 2c 20  PrivateKey(out, 
be20: 72 73 61 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c  rsa, NULL, NULL,
be30: 20 30 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b   0, NULL, NULL);
be40: 20 2a 2f 0a 09 09 20 20 20 20 42 49 4f 5f 66 72   */...    BIO_fr
be50: 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a 09 20 09  ee_all(out);.. .
be60: 7d 0a 0a 09 09 69 66 20 28 28 63 65 72 74 3d 58  }....if ((cert=X
be70: 35 30 39 5f 6e 65 77 28 29 29 3d 3d 4e 55 4c 4c  509_new())==NULL
be80: 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65  ) {...    Tcl_Se
be90: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22  tResult(interp,"
bea0: 45 72 72 6f 72 20 67 65 6e 65 72 61 74 69 6e 67  Error generating
beb0: 20 63 65 72 74 69 66 69 63 61 74 65 20 72 65 71   certificate req
bec0: 75 65 73 74 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20  uest",NULL);... 
bed0: 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65     EVP_PKEY_free
bee0: 28 70 6b 65 79 29 3b 0a 23 69 66 20 4f 50 45 4e  (pkey);.#if OPEN
bef0: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42  SSL_VERSION_NUMB
bf00: 45 52 20 3e 20 30 78 31 30 31 30 30 30 30 30 4c  ER > 0x10100000L
bf10: 20 26 26 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53   && OPENSSL_VERS
bf20: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33  ION_NUMBER < 0x3
bf30: 30 30 30 30 30 30 30 4c 0a 09 09 20 20 20 20 42  0000000L...    B
bf40: 4e 5f 66 72 65 65 28 62 6e 65 29 3b 0a 23 65 6e  N_free(bne);.#en
bf50: 64 69 66 0a 09 09 20 20 20 20 72 65 74 75 72 6e  dif...    return
bf60: 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 09 7d  (TCL_ERROR);...}
bf70: 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 76 65 72  ....X509_set_ver
bf80: 73 69 6f 6e 28 63 65 72 74 2c 32 29 3b 0a 09 09  sion(cert,2);...
bf90: 41 53 4e 31 5f 49 4e 54 45 47 45 52 5f 73 65 74  ASN1_INTEGER_set
bfa0: 28 58 35 30 39 5f 67 65 74 5f 73 65 72 69 61 6c  (X509_get_serial
bfb0: 4e 75 6d 62 65 72 28 63 65 72 74 29 2c 73 65 72  Number(cert),ser
bfc0: 69 61 6c 29 3b 0a 23 69 66 20 4f 50 45 4e 53 53  ial);.#if OPENSS
bfd0: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52  L_VERSION_NUMBER
bfe0: 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a 09   < 0x10100000L..
bff0: 09 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a  .X509_gmtime_adj
c000: 28 58 35 30 39 5f 67 65 74 5f 6e 6f 74 42 65 66  (X509_get_notBef
c010: 6f 72 65 28 63 65 72 74 29 2c 30 29 3b 0a 09 09  ore(cert),0);...
c020: 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28  X509_gmtime_adj(
c030: 58 35 30 39 5f 67 65 74 5f 6e 6f 74 41 66 74 65  X509_get_notAfte
c040: 72 28 63 65 72 74 29 2c 28 6c 6f 6e 67 29 36 30  r(cert),(long)60
c050: 2a 36 30 2a 32 34 2a 64 61 79 73 29 3b 0a 23 65  *60*24*days);.#e
c060: 6c 73 65 0a 09 09 58 35 30 39 5f 67 6d 74 69 6d  lse...X509_gmtim
c070: 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 6d 5f  e_adj(X509_getm_
c080: 6e 6f 74 42 65 66 6f 72 65 28 63 65 72 74 29 2c  notBefore(cert),
c090: 30 29 3b 0a 09 09 58 35 30 39 5f 67 6d 74 69 6d  0);...X509_gmtim
c0a0: 65 5f 61 64 6a 28 58 35 30 39 5f 67 65 74 6d 5f  e_adj(X509_getm_
c0b0: 6e 6f 74 41 66 74 65 72 28 63 65 72 74 29 2c 28  notAfter(cert),(
c0c0: 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 34 2a 64 61  long)60*60*24*da
c0d0: 79 73 29 3b 0a 23 65 6e 64 69 66 0a 09 09 58 35  ys);.#endif...X5
c0e0: 30 39 5f 73 65 74 5f 70 75 62 6b 65 79 28 63 65  09_set_pubkey(ce
c0f0: 72 74 2c 70 6b 65 79 29 3b 0a 09 09 0a 09 09 6e  rt,pkey);......n
c100: 61 6d 65 3d 58 35 30 39 5f 67 65 74 5f 73 75 62  ame=X509_get_sub
c110: 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 29 3b  ject_name(cert);
c120: 0a 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64  ....X509_NAME_ad
c130: 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e  d_entry_by_txt(n
c140: 61 6d 65 2c 22 43 22 2c 20 4d 42 53 54 52 49 4e  ame,"C", MBSTRIN
c150: 47 5f 41 53 43 2c 20 28 63 6f 6e 73 74 20 75 6e  G_ASC, (const un
c160: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b  signed char *) k
c170: 5f 43 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a  _C, -1, -1, 0);.
c180: 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f  ..X509_NAME_add_
c190: 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d  entry_by_txt(nam
c1a0: 65 2c 22 53 54 22 2c 20 4d 42 53 54 52 49 4e 47  e,"ST", MBSTRING
c1b0: 5f 41 53 43 2c 20 28 63 6f 6e 73 74 20 75 6e 73  _ASC, (const uns
c1c0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f  igned char *) k_
c1d0: 53 54 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a  ST, -1, -1, 0);.
c1e0: 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f  ..X509_NAME_add_
c1f0: 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d  entry_by_txt(nam
c200: 65 2c 22 4c 22 2c 20 4d 42 53 54 52 49 4e 47 5f  e,"L", MBSTRING_
c210: 41 53 43 2c 20 28 63 6f 6e 73 74 20 75 6e 73 69  ASC, (const unsi
c220: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 4c  gned char *) k_L
c230: 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09  , -1, -1, 0);...
c240: 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e  X509_NAME_add_en
c250: 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c  try_by_txt(name,
c260: 22 4f 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53  "O", MBSTRING_AS
c270: 43 2c 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e  C, (const unsign
c280: 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 4f 2c 20  ed char *) k_O, 
c290: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35  -1, -1, 0);...X5
c2a0: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72  09_NAME_add_entr
c2b0: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4f  y_by_txt(name,"O
c2c0: 55 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43  U", MBSTRING_ASC
c2d0: 2c 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65  , (const unsigne
c2e0: 64 20 63 68 61 72 20 2a 29 20 6b 5f 4f 55 2c 20  d char *) k_OU, 
c2f0: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35  -1, -1, 0);...X5
c300: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72  09_NAME_add_entr
c310: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43  y_by_txt(name,"C
c320: 4e 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43  N", MBSTRING_ASC
c330: 2c 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65  , (const unsigne
c340: 64 20 63 68 61 72 20 2a 29 20 6b 5f 43 4e 2c 20  d char *) k_CN, 
c350: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35  -1, -1, 0);...X5
c360: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72  09_NAME_add_entr
c370: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 45  y_by_txt(name,"E
c380: 6d 61 69 6c 22 2c 20 4d 42 53 54 52 49 4e 47 5f  mail", MBSTRING_
c390: 41 53 43 2c 20 28 63 6f 6e 73 74 20 75 6e 73 69  ASC, (const unsi
c3a0: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 45  gned char *) k_E
c3b0: 6d 61 69 6c 2c 20 2d 31 2c 20 2d 31 2c 20 30 29  mail, -1, -1, 0)
c3c0: 3b 0a 0a 09 09 58 35 30 39 5f 73 65 74 5f 73 75  ;....X509_set_su
c3d0: 62 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 2c  bject_name(cert,
c3e0: 6e 61 6d 65 29 3b 0a 0a 09 09 69 66 20 28 21 58  name);....if (!X
c3f0: 35 30 39 5f 73 69 67 6e 28 63 65 72 74 2c 70 6b  509_sign(cert,pk
c400: 65 79 2c 45 56 50 5f 73 68 61 32 35 36 28 29 29  ey,EVP_sha256())
c410: 29 20 7b 0a 09 09 20 20 20 20 58 35 30 39 5f 66  ) {...    X509_f
c420: 72 65 65 28 63 65 72 74 29 3b 0a 09 09 20 20 20  ree(cert);...   
c430: 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70   EVP_PKEY_free(p
c440: 6b 65 79 29 3b 0a 23 69 66 20 4f 50 45 4e 53 53  key);.#if OPENSS
c450: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52  L_VERSION_NUMBER
c460: 20 3e 20 30 78 31 30 31 30 30 30 30 30 4c 20 26   > 0x10100000L &
c470: 26 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f  & OPENSSL_VERSIO
c480: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30  N_NUMBER < 0x300
c490: 30 30 30 30 30 4c 0a 09 09 20 20 20 20 42 4e 5f  00000L...    BN_
c4a0: 66 72 65 65 28 62 6e 65 29 3b 0a 23 65 6e 64 69  free(bne);.#endi
c4b0: 66 0a 09 09 20 20 20 20 54 63 6c 5f 53 65 74 52  f...    Tcl_SetR
c4c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22 45 72  esult(interp,"Er
c4d0: 72 6f 72 20 73 69 67 6e 69 6e 67 20 63 65 72 74  ror signing cert
c4e0: 69 66 69 63 61 74 65 22 2c 4e 55 4c 4c 29 3b 0a  ificate",NULL);.
c4f0: 09 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ..    return TCL
c500: 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 69  _ERROR;...}....i
c510: 66 20 28 69 73 53 74 72 29 20 7b 0a 09 09 20 20  f (isStr) {...  
c520: 20 20 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49    out=BIO_new(BI
c530: 4f 5f 73 5f 6d 65 6d 28 29 29 3b 0a 09 09 20 20  O_s_mem());...  
c540: 20 20 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f 5f    PEM_write_bio_
c550: 58 35 30 39 28 6f 75 74 2c 63 65 72 74 29 3b 0a  X509(out,cert);.
c560: 09 09 20 20 20 20 69 3d 42 49 4f 5f 72 65 61 64  ..    i=BIO_read
c570: 28 6f 75 74 2c 62 75 66 66 65 72 2c 73 69 7a 65  (out,buffer,size
c580: 6f 66 28 62 75 66 66 65 72 29 2d 31 29 3b 0a 09  of(buffer)-1);..
c590: 09 20 20 20 20 69 3d 28 69 3c 30 29 20 3f 20 30  .    i=(i<0) ? 0
c5a0: 20 3a 20 69 3b 0a 09 09 20 20 20 20 62 75 66 66   : i;...    buff
c5b0: 65 72 5b 69 5d 3d 27 5c 30 27 3b 0a 09 09 20 20  er[i]='\0';...  
c5c0: 20 20 54 63 6c 5f 53 65 74 56 61 72 28 69 6e 74    Tcl_SetVar(int
c5d0: 65 72 70 2c 70 65 6d 6f 75 74 2c 62 75 66 66 65  erp,pemout,buffe
c5e0: 72 2c 30 29 3b 0a 09 09 20 20 20 20 42 49 4f 5f  r,0);...    BIO_
c5f0: 66 6c 75 73 68 28 6f 75 74 29 3b 0a 09 09 20 20  flush(out);...  
c600: 20 20 42 49 4f 5f 66 72 65 65 28 6f 75 74 29 3b    BIO_free(out);
c610: 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20  ...} else {...  
c620: 20 20 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49    out=BIO_new(BI
c630: 4f 5f 73 5f 66 69 6c 65 28 29 29 3b 0a 09 09 20  O_s_file());... 
c640: 20 20 20 42 49 4f 5f 77 72 69 74 65 5f 66 69 6c     BIO_write_fil
c650: 65 6e 61 6d 65 28 6f 75 74 2c 70 65 6d 6f 75 74  ename(out,pemout
c660: 29 3b 0a 09 09 20 20 20 20 50 45 4d 5f 77 72 69  );...    PEM_wri
c670: 74 65 5f 62 69 6f 5f 58 35 30 39 28 6f 75 74 2c  te_bio_X509(out,
c680: 63 65 72 74 29 3b 0a 09 09 20 20 20 20 42 49 4f  cert);...    BIO
c690: 5f 66 72 65 65 5f 61 6c 6c 28 6f 75 74 29 3b 0a  _free_all(out);.
c6a0: 09 09 7d 0a 0a 09 09 58 35 30 39 5f 66 72 65 65  ..}....X509_free
c6b0: 28 63 65 72 74 29 3b 0a 09 09 45 56 50 5f 50 4b  (cert);...EVP_PK
c6c0: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 23  EY_free(pkey);.#
c6d0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49  if OPENSSL_VERSI
c6e0: 4f 4e 5f 4e 55 4d 42 45 52 20 3e 20 30 78 31 30  ON_NUMBER > 0x10
c6f0: 31 30 30 30 30 30 4c 20 26 26 20 4f 50 45 4e 53  100000L && OPENS
c700: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45  SL_VERSION_NUMBE
c710: 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a  R < 0x30000000L.
c720: 09 09 42 4e 5f 66 72 65 65 28 62 6e 65 29 3b 0a  ..BN_free(bne);.
c730: 23 65 6e 64 69 66 0a 09 20 20 20 20 7d 0a 09 7d  #endif..    }..}
c740: 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 64 65 66  ..break;.    def
c750: 61 75 6c 74 3a 0a 09 62 72 65 61 6b 3b 0a 20 20  ault:..break;.  
c760: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54    }.    return T
c770: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09 63 6c 69 65  CL_OK;.    .clie
c780: 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44  ntData = clientD
c790: 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d  ata;.}.../*. *--
c7a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c7e0: 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 46 72 65 65  -. *. * Tls_Free
c7f0: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70   --. *. *.This p
c800: 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20  rocedure cleans 
c810: 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f  up when a SSL so
c820: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e  cket based chann
c830: 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20  el. *.is closed 
c840: 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63  and its referenc
c850: 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65  e count falls be
c860: 6c 6f 77 20 31 0a 20 2a 0a 20 2a 20 52 65 73 75  low 1. *. * Resu
c870: 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a  lts:. *.none. *.
c880: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
c890: 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 68  . *.Frees all th
c8a0: 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d  e state. *. *---
c8b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c8c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c8d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c8e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c8f0: 0a 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 46 72  . */.void.Tls_Fr
c900: 65 65 28 20 63 68 61 72 20 2a 62 6c 6f 63 6b 50  ee( char *blockP
c910: 74 72 20 29 0a 7b 0a 20 20 20 20 53 74 61 74 65  tr ).{.    State
c920: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 53 74   *statePtr = (St
c930: 61 74 65 20 2a 29 62 6c 6f 63 6b 50 74 72 3b 0a  ate *)blockPtr;.
c940: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61  .    dprintf("Ca
c950: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 54 6c 73  lled");..    Tls
c960: 5f 43 6c 65 61 6e 28 73 74 61 74 65 50 74 72 29  _Clean(statePtr)
c970: 3b 0a 20 20 20 20 63 6b 66 72 65 65 28 62 6c 6f  ;.    ckfree(blo
c980: 63 6b 50 74 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20  ckPtr);.}.../*. 
c990: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
c9a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c9b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c9c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c9d0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43  ----. *. * Tls_C
c9e0: 6c 65 61 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68  lean --. *. *.Th
c9f0: 69 73 20 70 72 6f 63 65 64 75 72 65 20 63 6c 65  is procedure cle
ca00: 61 6e 73 20 75 70 20 77 68 65 6e 20 61 20 53 53  ans up when a SS
ca10: 4c 20 73 6f 63 6b 65 74 20 62 61 73 65 64 20 63  L socket based c
ca20: 68 61 6e 6e 65 6c 0a 20 2a 09 69 73 20 63 6c 6f  hannel. *.is clo
ca30: 73 65 64 20 61 6e 64 20 69 74 73 20 72 65 66 65  sed and its refe
ca40: 72 65 6e 63 65 20 63 6f 75 6e 74 20 66 61 6c 6c  rence count fall
ca50: 73 20 62 65 6c 6f 77 20 31 2e 20 20 54 68 69 73  s below 1.  This
ca60: 20 73 68 6f 75 6c 64 0a 20 2a 09 62 65 20 63 61   should. *.be ca
ca70: 6c 6c 65 64 20 73 79 6e 63 68 72 6f 6e 6f 75 73  lled synchronous
ca80: 6c 79 20 62 79 20 74 68 65 20 43 6c 6f 73 65 50  ly by the CloseP
ca90: 72 6f 63 2c 20 6e 6f 74 20 69 6e 20 74 68 65 0a  roc, not in the.
caa0: 20 2a 09 45 76 65 6e 74 75 61 6c 6c 79 46 72 65   *.EventuallyFre
cab0: 65 20 63 61 6c 6c 62 61 63 6b 2e 0a 20 2a 0a 20  e callback.. *. 
cac0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f  * Results:. *.no
cad0: 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  ne. *. * Side ef
cae0: 66 65 63 74 73 3a 0a 20 2a 09 46 72 65 65 73 20  fects:. *.Frees 
caf0: 61 6c 6c 20 74 68 65 20 73 74 61 74 65 0a 20 2a  all the state. *
cb00: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
cb10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cb20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cb30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cb40: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20  ------. */.void 
cb50: 54 6c 73 5f 43 6c 65 61 6e 28 53 74 61 74 65 20  Tls_Clean(State 
cb60: 2a 73 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20  *statePtr) {.   
cb70: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64   dprintf("Called
cb80: 22 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20  ");..    /*.    
cb90: 20 2a 20 77 65 27 72 65 20 61 73 73 75 6d 69 6e   * we're assumin
cba0: 67 20 68 65 72 65 20 74 68 61 74 20 77 65 27 72  g here that we'r
cbb0: 65 20 73 69 6e 67 6c 65 2d 74 68 72 65 61 64 65  e single-threade
cbc0: 64 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66  d.     */.    if
cbd0: 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65   (statePtr->time
cbe0: 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54  r != (Tcl_TimerT
cbf0: 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54  oken) NULL) {..T
cc00: 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61  cl_DeleteTimerHa
cc10: 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e  ndler(statePtr->
cc20: 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74  timer);..statePt
cc30: 72 2d 3e 74 69 6d 65 72 20 3d 20 4e 55 4c 4c 3b  r->timer = NULL;
cc40: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28  .    }..    if (
cc50: 73 74 61 74 65 50 74 72 2d 3e 62 69 6f 29 20 7b  statePtr->bio) {
cc60: 0a 09 2f 2a 20 54 68 69 73 20 77 69 6c 6c 20 63  ../* This will c
cc70: 61 6c 6c 20 53 53 4c 5f 73 68 75 74 64 6f 77 6e  all SSL_shutdown
cc80: 2e 20 42 75 67 20 31 34 31 34 30 34 35 20 2a 2f  . Bug 1414045 */
cc90: 0a 09 64 70 72 69 6e 74 66 28 22 42 49 4f 5f 66  ..dprintf("BIO_f
cca0: 72 65 65 5f 61 6c 6c 28 25 70 29 22 2c 20 73 74  ree_all(%p)", st
ccb0: 61 74 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 42  atePtr->bio);..B
ccc0: 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 73 74 61 74  IO_free_all(stat
ccd0: 65 50 74 72 2d 3e 62 69 6f 29 3b 0a 09 73 74 61  ePtr->bio);..sta
cce0: 74 65 50 74 72 2d 3e 62 69 6f 20 3d 20 4e 55 4c  tePtr->bio = NUL
ccf0: 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  L;.    }.    if 
cd00: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20  (statePtr->ssl) 
cd10: 7b 0a 09 64 70 72 69 6e 74 66 28 22 53 53 4c 5f  {..dprintf("SSL_
cd20: 66 72 65 65 28 25 70 29 22 2c 20 73 74 61 74 65  free(%p)", state
cd30: 50 74 72 2d 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f  Ptr->ssl);..SSL_
cd40: 66 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 73  free(statePtr->s
cd50: 73 6c 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e  sl);..statePtr->
cd60: 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20  ssl = NULL;.    
cd70: 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50  }.    if (stateP
cd80: 74 72 2d 3e 63 74 78 29 20 7b 0a 09 53 53 4c 5f  tr->ctx) {..SSL_
cd90: 43 54 58 5f 66 72 65 65 28 73 74 61 74 65 50 74  CTX_free(statePt
cda0: 72 2d 3e 63 74 78 29 3b 0a 09 73 74 61 74 65 50  r->ctx);..stateP
cdb0: 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a  tr->ctx = NULL;.
cdc0: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74      }.    if (st
cdd0: 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b  atePtr->callback
cde0: 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66  ) {..Tcl_DecrRef
cdf0: 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d 3e  Count(statePtr->
ce00: 63 61 6c 6c 62 61 63 6b 29 3b 0a 09 73 74 61 74  callback);..stat
ce10: 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d  ePtr->callback =
ce20: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20   NULL;.    }.   
ce30: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 70   if (statePtr->p
ce40: 61 73 73 77 6f 72 64 29 20 7b 0a 09 54 63 6c 5f  assword) {..Tcl_
ce50: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61  DecrRefCount(sta
ce60: 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 29  tePtr->password)
ce70: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 70 61 73  ;..statePtr->pas
ce80: 73 77 6f 72 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20  sword = NULL;.  
ce90: 20 20 7d 0a 0a 20 20 20 20 64 70 72 69 6e 74 66    }..    dprintf
cea0: 28 22 52 65 74 75 72 6e 69 6e 67 22 29 3b 0a 7d  ("Returning");.}
ceb0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
cec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ced0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
cf00: 2a 20 54 6c 73 5f 49 6e 69 74 20 2d 2d 0a 20 2a  * Tls_Init --. *
cf10: 0a 20 2a 09 54 68 69 73 20 69 73 20 61 20 70 61  . *.This is a pa
cf20: 63 6b 61 67 65 20 69 6e 69 74 69 61 6c 69 7a 61  ckage initializa
cf30: 74 69 6f 6e 20 70 72 6f 63 65 64 75 72 65 2c 20  tion procedure, 
cf40: 77 68 69 63 68 20 69 73 20 63 61 6c 6c 65 64 0a  which is called.
cf50: 20 2a 09 62 79 20 54 63 6c 20 77 68 65 6e 20 74   *.by Tcl when t
cf60: 68 69 73 20 70 61 63 6b 61 67 65 20 69 73 20 74  his package is t
cf70: 6f 20 62 65 20 61 64 64 65 64 20 74 6f 20 61 6e  o be added to an
cf80: 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0a 20 2a   interpreter.. *
cf90: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 20 20 53 73  . * Results:  Ss
cfa0: 6c 20 63 6f 6e 66 69 67 75 72 65 64 20 61 6e 64  l configured and
cfb0: 20 6c 6f 61 64 65 64 0a 20 2a 0a 20 2a 20 53 69   loaded. *. * Si
cfc0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 20  de effects:. *. 
cfd0: 63 72 65 61 74 65 20 74 68 65 20 73 73 6c 20 63  create the ssl c
cfe0: 6f 6d 6d 61 6e 64 2c 20 69 6e 69 74 69 61 6c 69  ommand, initiali
cff0: 7a 65 20 73 73 6c 20 63 6f 6e 74 65 78 74 0a 20  ze ssl context. 
d000: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
d010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d040: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 44 4c 4c  -------. */..DLL
d050: 45 58 50 4f 52 54 20 69 6e 74 20 54 6c 73 5f 49  EXPORT int Tls_I
d060: 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  nit(Tcl_Interp *
d070: 69 6e 74 65 72 70 29 20 7b 0a 09 63 6f 6e 73 74  interp) {..const
d080: 20 63 68 61 72 20 74 6c 73 54 63 6c 49 6e 69 74   char tlsTclInit
d090: 53 63 72 69 70 74 5b 5d 20 3d 20 7b 0a 23 69 6e  Script[] = {.#in
d0a0: 63 6c 75 64 65 20 22 74 6c 73 2e 74 63 6c 2e 68  clude "tls.tcl.h
d0b0: 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 30 78  ".            0x
d0c0: 30 30 0a 09 7d 3b 0a 0a 20 20 20 20 20 20 20 20  00..};..        
d0d0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22  dprintf("Called"
d0e0: 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 57 65 20 6f  );.../*.. * We o
d0f0: 6e 6c 79 20 73 75 70 70 6f 72 74 20 54 63 6c 20  nly support Tcl 
d100: 38 2e 34 20 6f 72 20 6e 65 77 65 72 0a 09 20 2a  8.4 or newer.. *
d110: 2f 0a 09 69 66 20 28 0a 23 69 66 64 65 66 20 55  /..if (.#ifdef U
d120: 53 45 5f 54 43 4c 5f 53 54 55 42 53 0a 09 20 20  SE_TCL_STUBS..  
d130: 20 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 28    Tcl_InitStubs(
d140: 69 6e 74 65 72 70 2c 20 22 38 2e 34 22 2c 20 30  interp, "8.4", 0
d150: 29 0a 23 65 6c 73 65 0a 09 20 20 20 20 54 63 6c  ).#else..    Tcl
d160: 5f 50 6b 67 52 65 71 75 69 72 65 28 69 6e 74 65  _PkgRequire(inte
d170: 72 70 2c 20 22 54 63 6c 22 2c 20 22 38 2e 34 2d  rp, "Tcl", "8.4-
d180: 22 2c 20 30 29 0a 23 65 6e 64 69 66 0a 09 20 20  ", 0).#endif..  
d190: 20 20 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09     == NULL) {...
d1a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
d1b0: 3b 0a 09 7d 0a 0a 09 69 66 20 28 54 6c 73 4c 69  ;..}...if (TlsLi
d1c0: 62 49 6e 69 74 28 30 29 20 21 3d 20 54 43 4c 5f  bInit(0) != TCL_
d1d0: 4f 4b 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70 65  OK) {...Tcl_Appe
d1e0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
d1f0: 20 22 63 6f 75 6c 64 20 6e 6f 74 20 69 6e 69 74   "could not init
d200: 69 61 6c 69 7a 65 20 53 53 4c 20 6c 69 62 72 61  ialize SSL libra
d210: 72 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65  ry", NULL);...re
d220: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
d230: 09 7d 0a 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f  .}...Tcl_CreateO
d240: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
d250: 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22  , "tls::ciphers"
d260: 2c 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c  , CiphersObjCmd,
d270: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c   (ClientData) 0,
d280: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50   (Tcl_CmdDeleteP
d290: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54  roc *) NULL);..T
d2a0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d  cl_CreateObjComm
d2b0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73  and(interp, "tls
d2c0: 3a 3a 68 61 6e 64 73 68 61 6b 65 22 2c 20 48 61  ::handshake", Ha
d2d0: 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 2c 20 28  ndshakeObjCmd, (
d2e0: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28  ClientData) 0, (
d2f0: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f  Tcl_CmdDeletePro
d300: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c  c *) NULL);..Tcl
d310: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
d320: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a  d(interp, "tls::
d330: 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74 4f  import", ImportO
d340: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61  bjCmd, (ClientDa
d350: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44  ta) 0, (Tcl_CmdD
d360: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c  eleteProc *) NUL
d370: 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f  L);..Tcl_CreateO
d380: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
d390: 2c 20 22 74 6c 73 3a 3a 75 6e 69 6d 70 6f 72 74  , "tls::unimport
d3a0: 22 2c 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d  ", UnimportObjCm
d3b0: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20  d, (ClientData) 
d3c0: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74  0, (Tcl_CmdDelet
d3d0: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a  eProc *) NULL);.
d3e0: 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f  .Tcl_CreateObjCo
d3f0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74  mmand(interp, "t
d400: 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 74 61  ls::status", Sta
d410: 74 75 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65  tusObjCmd, (Clie
d420: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f  ntData) 0, (Tcl_
d430: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29  CmdDeleteProc *)
d440: 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65   NULL);..Tcl_Cre
d450: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e  ateObjCommand(in
d460: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 76 65 72 73  terp, "tls::vers
d470: 69 6f 6e 22 2c 20 56 65 72 73 69 6f 6e 4f 62 6a  ion", VersionObj
d480: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61  Cmd, (ClientData
d490: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c  ) 0, (Tcl_CmdDel
d4a0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29  eteProc *) NULL)
d4b0: 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a  ;..Tcl_CreateObj
d4c0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
d4d0: 22 74 6c 73 3a 3a 6d 69 73 63 22 2c 20 4d 69 73  "tls::misc", Mis
d4e0: 63 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74  cObjCmd, (Client
d4f0: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d  Data) 0, (Tcl_Cm
d500: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e  dDeleteProc *) N
d510: 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 69 6e 74 65  ULL);...if (inte
d520: 72 70 29 20 7b 0a 09 09 54 63 6c 5f 45 76 61 6c  rp) {...Tcl_Eval
d530: 28 69 6e 74 65 72 70 2c 20 74 6c 73 54 63 6c 49  (interp, tlsTclI
d540: 6e 69 74 53 63 72 69 70 74 29 3b 0a 09 7d 0a 0a  nitScript);..}..
d550: 09 72 65 74 75 72 6e 28 54 63 6c 5f 50 6b 67 50  .return(Tcl_PkgP
d560: 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20 22  rovide(interp, "
d570: 74 6c 73 22 2c 20 50 41 43 4b 41 47 45 5f 56 45  tls", PACKAGE_VE
d580: 52 53 49 4f 4e 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20  RSION));.}../*. 
d590: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
d5a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d5b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d5c0: 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54  -------*. *. *.T
d5d0: 6c 73 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0a 20  ls_SafeInit --. 
d5e0: 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *.-----------
d5f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d610: 2d 2d 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e 64 61  -----*. *.Standa
d620: 72 64 20 70 72 6f 63 65 64 75 72 65 20 72 65 71  rd procedure req
d630: 75 69 72 65 64 20 62 79 20 27 6c 6f 61 64 27 2e  uired by 'load'.
d640: 20 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73   . *.Initializes
d650: 20 74 68 69 73 20 65 78 74 65 6e 73 69 6f 6e 20   this extension 
d660: 66 6f 72 20 61 20 73 61 66 65 20 69 6e 74 65 72  for a safe inter
d670: 70 72 65 74 65 72 2e 0a 20 2a 09 2d 2d 2d 2d 2d  preter.. *.-----
d680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d6a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a  -----------*. *.
d6b0: 20 2a 09 53 69 64 65 20 65 66 66 65 63 74 73 3a   *.Side effects:
d6c0: 0a 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73 5f  . *..As of 'Tls_
d6d0: 49 6e 69 74 27 0a 20 2a 0a 20 2a 09 52 65 73 75  Init'. *. *.Resu
d6e0: 6c 74 3a 0a 20 2a 09 09 41 20 73 74 61 6e 64 61  lt:. *..A standa
d6f0: 72 64 20 54 63 6c 20 65 72 72 6f 72 20 63 6f 64  rd Tcl error cod
d700: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  e.. *. *--------
d710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a  --------------*.
d740: 20 2a 2f 0a 0a 44 4c 4c 45 58 50 4f 52 54 20 69   */..DLLEXPORT i
d750: 6e 74 20 54 6c 73 5f 53 61 66 65 49 6e 69 74 28  nt Tls_SafeInit(
d760: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
d770: 72 70 29 20 7b 0a 09 64 70 72 69 6e 74 66 28 22  rp) {..dprintf("
d780: 43 61 6c 6c 65 64 22 29 3b 0a 09 72 65 74 75 72  Called");..retur
d790: 6e 28 54 6c 73 5f 49 6e 69 74 28 69 6e 74 65 72  n(Tls_Init(inter
d7a0: 70 29 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d  p));.}../*. *---
d7b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d7c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d7d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d7e0: 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 4c 69  ---*. *. *.TlsLi
d7f0: 62 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d  bInit --. *. *.-
d800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a  ---------------*
d830: 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 73 20  . *.Initializes 
d840: 53 53 4c 20 6c 69 62 72 61 72 79 20 6f 6e 63 65  SSL library once
d850: 20 70 65 72 20 61 70 70 6c 69 63 61 74 69 6f 6e   per application
d860: 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *.------------
d870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d890: 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64 65  ----*. *. *.Side
d8a0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 69 6e   effects:. *..in
d8b0: 69 74 69 61 6c 69 7a 65 73 20 53 53 4c 20 6c 69  itializes SSL li
d8c0: 62 72 61 72 79 0a 20 2a 0a 20 2a 09 52 65 73 75  brary. *. *.Resu
d8d0: 6c 74 3a 0a 20 2a 09 09 6e 6f 6e 65 0a 20 2a 0a  lt:. *..none. *.
d8e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
d8f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d910: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 73 74  --------*. */.st
d920: 61 74 69 63 20 69 6e 74 20 54 6c 73 4c 69 62 49  atic int TlsLibI
d930: 6e 69 74 28 69 6e 74 20 75 6e 69 6e 69 74 69 61  nit(int uninitia
d940: 6c 69 7a 65 29 20 7b 0a 09 73 74 61 74 69 63 20  lize) {..static 
d950: 69 6e 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 20  int initialized 
d960: 3d 20 30 3b 0a 09 69 6e 74 20 73 74 61 74 75 73  = 0;..int status
d970: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 23 69 66 20 64   = TCL_OK;.#if d
d980: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54  efined(OPENSSL_T
d990: 48 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e  HREADS) && defin
d9a0: 65 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a  ed(TCL_THREADS).
d9b0: 09 73 69 7a 65 5f 74 20 6e 75 6d 5f 6c 6f 63 6b  .size_t num_lock
d9c0: 73 3b 0a 23 65 6e 64 69 66 0a 0a 09 69 66 20 28  s;.#endif...if (
d9d0: 75 6e 69 6e 69 74 69 61 6c 69 7a 65 29 20 7b 0a  uninitialize) {.
d9e0: 09 09 69 66 20 28 21 69 6e 69 74 69 61 6c 69 7a  ..if (!initializ
d9f0: 65 64 29 20 7b 0a 09 09 09 64 70 72 69 6e 74 66  ed) {....dprintf
da00: 28 22 41 73 6b 65 64 20 74 6f 20 75 6e 69 6e 69  ("Asked to unini
da10: 74 69 61 6c 69 7a 65 2c 20 62 75 74 20 77 65 20  tialize, but we 
da20: 61 72 65 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69  are not initiali
da30: 7a 65 64 22 29 3b 0a 0a 09 09 09 72 65 74 75 72  zed");.....retur
da40: 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 09 09 7d 0a 0a  n(TCL_OK);...}..
da50: 09 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65 64  ..dprintf("Asked
da60: 20 74 6f 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65   to uninitialize
da70: 22 29 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64  ");..#if defined
da80: 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53  (OPENSSL_THREADS
da90: 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c  ) && defined(TCL
daa0: 5f 54 48 52 45 41 44 53 29 0a 09 09 54 63 6c 5f  _THREADS)...Tcl_
dab0: 4d 75 74 65 78 4c 6f 63 6b 28 26 69 6e 69 74 5f  MutexLock(&init_
dac0: 6d 78 29 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53  mx);..#if OPENSS
dad0: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52  L_VERSION_NUMBER
dae0: 20 3c 20 30 78 31 30 30 30 30 30 30 30 4c 0a 09   < 0x10000000L..
daf0: 09 43 52 59 50 54 4f 5f 73 65 74 5f 6c 6f 63 6b  .CRYPTO_set_lock
db00: 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28 4e 55 4c  ing_callback(NUL
db10: 4c 29 3b 0a 09 09 43 52 59 50 54 4f 5f 73 65 74  L);...CRYPTO_set
db20: 5f 69 64 5f 63 61 6c 6c 62 61 63 6b 28 4e 55 4c  _id_callback(NUL
db30: 4c 29 3b 0a 23 65 6c 69 66 20 4f 50 45 4e 53 53  L);.#elif OPENSS
db40: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52  L_VERSION_NUMBER
db50: 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a 09   < 0x10100000L..
db60: 09 43 52 59 50 54 4f 5f 73 65 74 5f 6c 6f 63 6b  .CRYPTO_set_lock
db70: 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28 4e 55 4c  ing_callback(NUL
db80: 4c 29 3b 0a 09 09 43 52 59 50 54 4f 5f 54 48 52  L);...CRYPTO_THR
db90: 45 41 44 49 44 5f 73 65 74 5f 63 61 6c 6c 62 61  EADID_set_callba
dba0: 63 6b 28 4e 55 4c 4c 29 0a 23 65 6e 64 69 66 0a  ck(NULL).#endif.
dbb0: 0a 09 09 69 66 20 28 6c 6f 63 6b 73 29 20 7b 0a  ...if (locks) {.
dbc0: 09 09 09 66 72 65 65 28 6c 6f 63 6b 73 29 3b 0a  ...free(locks);.
dbd0: 09 09 09 6c 6f 63 6b 73 20 3d 20 4e 55 4c 4c 3b  ...locks = NULL;
dbe0: 0a 09 09 09 6c 6f 63 6b 73 43 6f 75 6e 74 20 3d  ....locksCount =
dbf0: 20 30 3b 0a 09 09 7d 0a 23 65 6e 64 69 66 0a 09   0;...}.#endif..
dc00: 09 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 30  .initialized = 0
dc10: 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f  ;..#if defined(O
dc20: 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20  PENSSL_THREADS) 
dc30: 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54  && defined(TCL_T
dc40: 48 52 45 41 44 53 29 0a 09 09 54 63 6c 5f 4d 75  HREADS)...Tcl_Mu
dc50: 74 65 78 55 6e 6c 6f 63 6b 28 26 69 6e 69 74 5f  texUnlock(&init_
dc60: 6d 78 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 09 72  mx);.#endif....r
dc70: 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 09  eturn(TCL_OK);..
dc80: 7d 0a 0a 09 69 66 20 28 69 6e 69 74 69 61 6c 69  }...if (initiali
dc90: 7a 65 64 29 20 7b 0a 09 09 64 70 72 69 6e 74 66  zed) {...dprintf
dca0: 28 22 43 61 6c 6c 65 64 2c 20 62 75 74 20 75 73  ("Called, but us
dcb0: 69 6e 67 20 63 61 63 68 65 64 20 76 61 6c 75 65  ing cached value
dcc0: 22 29 3b 0a 09 09 72 65 74 75 72 6e 28 73 74 61  ");...return(sta
dcd0: 74 75 73 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e  tus);..}...dprin
dce0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 23  tf("Called");..#
dcf0: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53  if defined(OPENS
dd00: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64  SL_THREADS) && d
dd10: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41  efined(TCL_THREA
dd20: 44 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78 4c 6f  DS)..Tcl_MutexLo
dd30: 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65  ck(&init_mx);.#e
dd40: 6e 64 69 66 0a 09 69 6e 69 74 69 61 6c 69 7a 65  ndif..initialize
dd50: 64 20 3d 20 31 3b 0a 0a 23 69 66 20 64 65 66 69  d = 1;..#if defi
dd60: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45  ned(OPENSSL_THRE
dd70: 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28  ADS) && defined(
dd80: 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 23 69 66  TCL_THREADS).#if
dd90: 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e   OPENSSL_VERSION
dda0: 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31 30  _NUMBER < 0x1010
ddb0: 30 30 30 30 4c 0a 09 6e 75 6d 5f 6c 6f 63 6b 73  0000L..num_locks
ddc0: 20 3d 20 43 52 59 50 54 4f 5f 6e 75 6d 5f 6c 6f   = CRYPTO_num_lo
ddd0: 63 6b 73 28 29 3b 0a 23 65 6c 73 65 0a 09 6e 75  cks();.#else..nu
dde0: 6d 5f 6c 6f 63 6b 73 20 3d 20 31 3b 0a 23 65 6e  m_locks = 1;.#en
ddf0: 64 69 66 0a 09 6c 6f 63 6b 73 43 6f 75 6e 74 20  dif..locksCount 
de00: 3d 20 28 69 6e 74 29 20 6e 75 6d 5f 6c 6f 63 6b  = (int) num_lock
de10: 73 3b 0a 09 6c 6f 63 6b 73 20 3d 20 6d 61 6c 6c  s;..locks = mall
de20: 6f 63 28 73 69 7a 65 6f 66 28 2a 6c 6f 63 6b 73  oc(sizeof(*locks
de30: 29 20 2a 20 6e 75 6d 5f 6c 6f 63 6b 73 29 3b 0a  ) * num_locks);.
de40: 09 6d 65 6d 73 65 74 28 6c 6f 63 6b 73 2c 20 30  .memset(locks, 0
de50: 2c 20 73 69 7a 65 6f 66 28 2a 6c 6f 63 6b 73 29  , sizeof(*locks)
de60: 20 2a 20 6e 75 6d 5f 6c 6f 63 6b 73 29 3b 0a 0a   * num_locks);..
de70: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53  #if OPENSSL_VERS
de80: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31  ION_NUMBER < 0x1
de90: 30 30 30 30 30 30 30 4c 0a 09 43 52 59 50 54 4f  0000000L..CRYPTO
dea0: 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 61 6c  _set_locking_cal
deb0: 6c 62 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65  lback(CryptoThre
dec0: 61 64 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b 29 3b  adLockCallback);
ded0: 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f 69 64 5f  ..CRYPTO_set_id_
dee0: 63 61 6c 6c 62 61 63 6b 28 43 72 79 70 74 6f 54  callback(CryptoT
def0: 68 72 65 61 64 49 64 43 61 6c 6c 62 61 63 6b 29  hreadIdCallback)
df00: 3b 0a 23 65 6c 69 66 20 4f 50 45 4e 53 53 4c 5f  ;.#elif OPENSSL_
df10: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c  VERSION_NUMBER <
df20: 20 30 78 31 30 31 30 30 30 30 30 4c 0a 09 43 52   0x10100000L..CR
df30: 59 50 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67  YPTO_set_locking
df40: 5f 63 61 6c 6c 62 61 63 6b 28 43 72 79 70 74 6f  _callback(Crypto
df50: 54 68 72 65 61 64 4c 6f 63 6b 43 61 6c 6c 62 61  ThreadLockCallba
df60: 63 6b 29 3b 0a 09 43 52 59 50 54 4f 5f 54 48 52  ck);..CRYPTO_THR
df70: 45 41 44 49 44 5f 73 65 74 5f 63 61 6c 6c 62 61  EADID_set_callba
df80: 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 64 49  ck(CryptoThreadI
df90: 64 43 61 6c 6c 62 61 63 6b 29 0a 23 65 6e 64 69  dCallback).#endi
dfa0: 66 0a 23 65 6e 64 69 66 0a 0a 23 20 69 66 20 4f  f.#endif..# if O
dfb0: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e  PENSSL_VERSION_N
dfc0: 55 4d 42 45 52 20 3c 20 30 78 31 30 31 30 30 30  UMBER < 0x101000
dfd0: 30 30 4c 0a 09 69 66 20 28 53 53 4c 5f 6c 69 62  00L..if (SSL_lib
dfe0: 72 61 72 79 5f 69 6e 69 74 28 29 20 21 3d 20 31  rary_init() != 1
dff0: 29 20 7b 0a 09 09 73 74 61 74 75 73 20 3d 20 54  ) {...status = T
e000: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f  CL_ERROR;...goto
e010: 20 64 6f 6e 65 3b 0a 09 7d 0a 23 65 6c 73 65 0a   done;..}.#else.
e020: 09 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 42  ./* Initialize B
e030: 4f 54 48 20 6c 69 62 63 72 79 70 74 6f 20 61 6e  OTH libcrypto an
e040: 64 20 6c 69 62 73 73 6c 2e 20 2a 2f 0a 09 4f 50  d libssl. */..OP
e050: 45 4e 53 53 4c 5f 69 6e 69 74 5f 73 73 6c 28 4f  ENSSL_init_ssl(O
e060: 50 45 4e 53 53 4c 5f 49 4e 49 54 5f 4c 4f 41 44  PENSSL_INIT_LOAD
e070: 5f 53 53 4c 5f 53 54 52 49 4e 47 53 20 7c 20 4f  _SSL_STRINGS | O
e080: 50 45 4e 53 53 4c 5f 49 4e 49 54 5f 4c 4f 41 44  PENSSL_INIT_LOAD
e090: 5f 43 52 59 50 54 4f 5f 53 54 52 49 4e 47 53 0a  _CRYPTO_STRINGS.
e0a0: 09 20 20 20 20 7c 20 4f 50 45 4e 53 53 4c 5f 49  .    | OPENSSL_I
e0b0: 4e 49 54 5f 41 44 44 5f 41 4c 4c 5f 43 49 50 48  NIT_ADD_ALL_CIPH
e0c0: 45 52 53 20 7c 20 4f 50 45 4e 53 53 4c 5f 49 4e  ERS | OPENSSL_IN
e0d0: 49 54 5f 41 44 44 5f 41 4c 4c 5f 44 49 47 45 53  IT_ADD_ALL_DIGES
e0e0: 54 53 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69  TS, NULL);.#endi
e0f0: 66 0a 0a 23 20 69 66 20 4f 50 45 4e 53 53 4c 5f  f..# if OPENSSL_
e100: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c  VERSION_NUMBER <
e110: 20 30 78 31 30 31 30 30 30 30 30 4c 0a 09 53 53   0x10100000L..SS
e120: 4c 5f 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 72  L_load_error_str
e130: 69 6e 67 73 28 29 3b 0a 09 45 52 52 5f 6c 6f 61  ings();..ERR_loa
e140: 64 5f 63 72 79 70 74 6f 5f 73 74 72 69 6e 67 73  d_crypto_strings
e150: 28 29 3b 0a 23 65 6c 73 65 0a 09 2f 2a 20 4f 6e  ();.#else../* On
e160: 6c 79 20 69 6e 69 74 69 61 6c 69 7a 65 20 6c 69  ly initialize li
e170: 62 63 72 79 70 74 6f 20 20 2a 2f 0a 09 4f 50 45  bcrypto  */..OPE
e180: 4e 53 53 4c 5f 69 6e 69 74 5f 63 72 79 70 74 6f  NSSL_init_crypto
e190: 28 4f 50 45 4e 53 53 4c 5f 49 4e 49 54 5f 4c 4f  (OPENSSL_INIT_LO
e1a0: 41 44 5f 43 52 59 50 54 4f 5f 53 54 52 49 4e 47  AD_CRYPTO_STRING
e1b0: 53 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66  S, NULL);.#endif
e1c0: 0a 0a 09 42 49 4f 5f 6e 65 77 5f 74 63 6c 28 4e  ...BIO_new_tcl(N
e1d0: 55 4c 4c 2c 20 30 29 3b 0a 0a 23 69 66 20 30 0a  ULL, 0);..#if 0.
e1e0: 09 2f 2a 0a 09 20 2a 20 58 58 58 3a 54 4f 44 4f  ./*.. * XXX:TODO
e1f0: 3a 20 52 65 6d 6f 76 65 20 74 68 69 73 20 63 6f  : Remove this co
e200: 64 65 20 61 6e 64 20 72 65 70 6c 61 63 65 20 69  de and replace i
e210: 74 20 77 69 74 68 20 61 20 63 68 65 63 6b 0a 09  t with a check..
e220: 20 2a 20 66 6f 72 20 65 6e 6f 75 67 68 20 65 6e   * for enough en
e230: 74 72 6f 70 79 20 61 6e 64 20 64 6f 20 6e 6f 74  tropy and do not
e240: 20 74 72 79 20 74 6f 20 63 72 65 61 74 65 20 6f   try to create o
e250: 75 72 20 6f 77 6e 0a 09 20 2a 20 74 65 72 72 69  ur own.. * terri
e260: 62 6c 65 20 65 6e 74 72 6f 70 79 0a 09 20 2a 2f  ble entropy.. */
e270: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53  .    /*.     * S
e280: 65 65 64 20 74 68 65 20 72 61 6e 64 6f 6d 20 6e  eed the random n
e290: 75 6d 62 65 72 20 67 65 6e 65 72 61 74 6f 72 20  umber generator 
e2a0: 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62 72 61  in the SSL libra
e2b0: 72 79 2c 0a 20 20 20 20 20 2a 20 75 73 69 6e 67  ry,.     * using
e2c0: 20 74 68 65 20 64 6f 2f 77 68 69 6c 65 20 63 6f   the do/while co
e2d0: 6e 73 74 72 75 63 74 20 62 65 63 61 75 73 65 20  nstruct because 
e2e0: 6f 66 20 74 68 65 20 62 75 67 20 6e 6f 74 65 20  of the bug note 
e2f0: 69 6e 20 74 68 65 0a 20 20 20 20 20 2a 20 4f 70  in the.     * Op
e300: 65 6e 53 53 4c 20 46 41 51 20 61 74 20 68 74 74  enSSL FAQ at htt
e310: 70 3a 2f 2f 77 77 77 2e 6f 70 65 6e 73 73 6c 2e  p://www.openssl.
e320: 6f 72 67 2f 73 75 70 70 6f 72 74 2f 66 61 71 2e  org/support/faq.
e330: 68 74 6d 6c 23 55 53 45 52 31 0a 20 20 20 20 20  html#USER1.     
e340: 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 63 72 75  *.     * The cru
e350: 78 20 6f 66 20 74 68 65 20 70 72 6f 62 6c 65 6d  x of the problem
e360: 20 69 73 20 74 68 61 74 20 53 6f 6c 61 72 69 73   is that Solaris
e370: 20 37 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65   7 does not have
e380: 20 61 20 0a 20 20 20 20 20 2a 20 2f 64 65 76 2f   a .     * /dev/
e390: 72 61 6e 64 6f 6d 20 6f 72 20 2f 64 65 76 2f 75  random or /dev/u
e3a0: 72 61 6e 64 6f 6d 20 64 65 76 69 63 65 20 73 6f  random device so
e3b0: 20 69 74 20 63 61 6e 6e 6f 74 20 67 61 74 68 65   it cannot gathe
e3c0: 72 20 65 6e 6f 75 67 68 0a 20 20 20 20 20 2a 20  r enough.     * 
e3d0: 65 6e 74 72 6f 70 79 20 66 72 6f 6d 20 74 68 65  entropy from the
e3e0: 20 52 41 4e 44 5f 73 65 65 64 28 29 20 77 68 65   RAND_seed() whe
e3f0: 6e 20 54 4c 53 20 69 6e 69 74 69 61 6c 69 7a 65  n TLS initialize
e400: 73 20 61 6e 64 20 72 65 66 75 73 65 73 0a 20 20  s and refuses.  
e410: 20 20 20 2a 20 74 6f 20 67 6f 20 66 75 72 74 68     * to go furth
e420: 65 72 2e 20 45 61 72 6c 69 65 72 20 76 65 72 73  er. Earlier vers
e430: 69 6f 6e 73 20 6f 66 20 4f 70 65 6e 53 53 4c 20  ions of OpenSSL 
e440: 63 61 72 72 69 65 64 20 6f 6e 20 72 65 67 61 72  carried on regar
e450: 64 6c 65 73 73 2e 0a 20 20 20 20 20 2a 2f 0a 20  dless..     */. 
e460: 20 20 20 73 72 61 6e 64 28 28 75 6e 73 69 67 6e     srand((unsign
e470: 65 64 20 69 6e 74 29 20 74 69 6d 65 28 28 74 69  ed int) time((ti
e480: 6d 65 5f 74 20 2a 29 20 4e 55 4c 4c 29 29 3b 0a  me_t *) NULL));.
e490: 20 20 20 20 64 6f 20 7b 0a 09 66 6f 72 20 28 69      do {..for (i
e4a0: 20 3d 20 30 3b 20 69 20 3c 20 31 36 3b 20 69 2b   = 0; i < 16; i+
e4b0: 2b 29 20 7b 0a 09 20 20 20 20 72 6e 64 5f 73 65  +) {..    rnd_se
e4c0: 65 64 5b 69 5d 20 3d 20 31 20 2b 20 28 63 68 61  ed[i] = 1 + (cha
e4d0: 72 29 20 28 32 35 35 2e 30 20 2a 20 72 61 6e 64  r) (255.0 * rand
e4e0: 28 29 2f 28 52 41 4e 44 5f 4d 41 58 2b 31 2e 30  ()/(RAND_MAX+1.0
e4f0: 29 29 3b 0a 09 7d 0a 09 52 41 4e 44 5f 73 65 65  ));..}..RAND_see
e500: 64 28 72 6e 64 5f 73 65 65 64 2c 20 73 69 7a 65  d(rnd_seed, size
e510: 6f 66 28 72 6e 64 5f 73 65 65 64 29 29 3b 0a 20  of(rnd_seed));. 
e520: 20 20 20 7d 20 77 68 69 6c 65 20 28 52 41 4e 44     } while (RAND
e530: 5f 73 74 61 74 75 73 28 29 20 21 3d 20 31 29 3b  _status() != 1);
e540: 0a 23 65 6e 64 69 66 0a 0a 23 20 69 66 20 4f 50  .#endif..# if OP
e550: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55  ENSSL_VERSION_NU
e560: 4d 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30  MBER < 0x1010000
e570: 30 4c 0a 64 6f 6e 65 3a 0a 23 65 6e 64 69 66 0a  0L.done:.#endif.
e580: 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e  #if defined(OPEN
e590: 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20  SSL_THREADS) && 
e5a0: 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45  defined(TCL_THRE
e5b0: 41 44 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78 55  ADS)..Tcl_MutexU
e5c0: 6e 6c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b  nlock(&init_mx);
e5d0: 0a 23 65 6e 64 69 66 0a 0a 09 72 65 74 75 72 6e  .#endif...return
e5e0: 28 73 74 61 74 75 73 29 3b 0a 7d 0a              (status);.}.