TclTLS: Hex Artifact Content

Artifact 07454bb7bdd52b7877d8206979857aaaba613aaa66993e7a2b0b48761f919803:

File tls.c — part of check-in [6f19aa6623] at 2023-04-23 02:36:16 on branch trunk — Applied patch to add OpenSSL3 KTLS trivial processing. Description: Patch adds trivial processing for BIO_CTRL_GET_KTLS_SEND and BIO_CTRL_GET_KTLS_RECV control commands to make tcltls working with OpenSSL 3.0. See also: - https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1006587 - https://bugzilla.redhat.com/show_bug.cgi?id=2088363 Source: https://sources.debian.org/src/tcltls/1.7.22-3/debian/patches/openssl3.patch (user: bohagan, size: 58774) [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 20 20 20 20 7d 0a 23 65 6e 64 69  ON);.    }.#endi
8b50: 66 0a 20 20 20 20 0a 20 20 20 20 53 53 4c 5f 43  f.    .    SSL_C
8b60: 54 58 5f 73 65 74 5f 61 70 70 5f 64 61 74 61 28  TX_set_app_data(
8b70: 20 63 74 78 2c 20 28 76 6f 69 64 2a 29 69 6e 74   ctx, (void*)int
8b80: 65 72 70 29 3b 09 2f 2a 20 72 65 6d 65 6d 62 65  erp);./* remembe
8b90: 72 20 74 68 65 20 69 6e 74 65 72 70 72 65 74 65  r the interprete
8ba0: 72 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58  r */.    SSL_CTX
8bb0: 5f 73 65 74 5f 6f 70 74 69 6f 6e 73 28 20 63 74  _set_options( ct
8bc0: 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c 4c 29 3b 09  x, SSL_OP_ALL);.
8bd0: 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67 20 77  /* all SSL bug w
8be0: 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a 20 20  orkarounds */.  
8bf0: 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6f 70    SSL_CTX_set_op
8c00: 74 69 6f 6e 73 28 20 63 74 78 2c 20 6f 66 66 29  tions( ctx, off)
8c10: 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62 75 67  ;./* all SSL bug
8c20: 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a 2f 0a   workarounds */.
8c30: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53  #if OPENSSL_VERS
8c40: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31  ION_NUMBER < 0x1
8c50: 30 31 30 31 30 30 30 4c 0a 20 20 20 20 53 53 4c  0101000L.    SSL
8c60: 5f 43 54 58 5f 73 65 74 5f 6d 6f 64 65 28 63 74  _CTX_set_mode(ct
8c70: 78 2c 20 53 53 4c 5f 4d 4f 44 45 5f 41 55 54 4f  x, SSL_MODE_AUTO
8c80: 5f 52 45 54 52 59 29 3b 09 2f 2a 20 68 61 6e 64  _RETRY);./* hand
8c90: 6c 65 20 6e 65 77 20 68 61 6e 64 73 68 61 6b 65  le new handshake
8ca0: 73 20 69 6e 20 62 61 63 6b 67 72 6f 75 6e 64 20  s in background 
8cb0: 2a 2f 0a 23 65 6e 64 69 66 0a 20 20 20 20 53 53  */.#endif.    SS
8cc0: 4c 5f 43 54 58 5f 73 65 73 73 5f 73 65 74 5f 63  L_CTX_sess_set_c
8cd0: 61 63 68 65 5f 73 69 7a 65 28 20 63 74 78 2c 20  ache_size( ctx, 
8ce0: 31 32 38 29 3b 0a 0a 20 20 20 20 69 66 20 28 63  128);..    if (c
8cf0: 69 70 68 65 72 73 20 21 3d 20 4e 55 4c 4c 29 0a  iphers != NULL).
8d00: 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 69 70  .SSL_CTX_set_cip
8d10: 68 65 72 5f 6c 69 73 74 28 63 74 78 2c 20 63 69  her_list(ctx, ci
8d20: 70 68 65 72 73 29 3b 0a 0a 20 20 20 20 2f 2a 20  phers);..    /* 
8d30: 73 65 74 20 73 6f 6d 65 20 63 61 6c 6c 62 61 63  set some callbac
8d40: 6b 73 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54  ks */.    SSL_CT
8d50: 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 70 61  X_set_default_pa
8d60: 73 73 77 64 5f 63 62 28 63 74 78 2c 20 50 61 73  sswd_cb(ctx, Pas
8d70: 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 29 3b 0a  swordCallback);.
8d80: 0a 23 69 66 6e 64 65 66 20 42 53 41 46 45 0a 20  .#ifndef BSAFE. 
8d90: 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64     SSL_CTX_set_d
8da0: 65 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63 62  efault_passwd_cb
8db0: 5f 75 73 65 72 64 61 74 61 28 63 74 78 2c 20 28  _userdata(ctx, (
8dc0: 76 6f 69 64 20 2a 29 73 74 61 74 65 50 74 72 29  void *)statePtr)
8dd0: 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a  ;.#endif..    /*
8de0: 20 72 65 61 64 20 61 20 44 69 66 66 69 65 2d 48   read a Diffie-H
8df0: 65 6c 6c 6d 61 6e 20 70 61 72 61 6d 65 74 65 72  ellman parameter
8e00: 73 20 66 69 6c 65 2c 20 6f 72 20 75 73 65 20 74  s file, or use t
8e10: 68 65 20 62 75 69 6c 74 2d 69 6e 20 6f 6e 65 20  he built-in one 
8e20: 2a 2f 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 53  */.#ifdef OPENSS
8e30: 4c 5f 4e 4f 5f 44 48 0a 20 20 20 20 69 66 20 28  L_NO_DH.    if (
8e40: 44 48 70 61 72 61 6d 73 20 21 3d 20 4e 55 4c 4c  DHparams != NULL
8e50: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52  ) {..Tcl_AppendR
8e60: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 20  esult(interp,.. 
8e70: 20 20 20 22 44 48 20 70 61 72 61 6d 65 74 65 72     "DH parameter
8e80: 20 73 75 70 70 6f 72 74 20 6e 6f 74 20 61 76 61   support not ava
8e90: 69 6c 61 62 6c 65 22 2c 20 28 63 68 61 72 20 2a  ilable", (char *
8ea0: 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54  ) NULL);..SSL_CT
8eb0: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65  X_free(ctx);..re
8ec0: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29  turn (SSL_CTX *)
8ed0: 30 3b 0a 20 20 20 20 7d 0a 23 65 6c 73 65 0a 20  0;.    }.#else. 
8ee0: 20 20 20 7b 0a 09 44 48 2a 20 64 68 3b 0a 09 69     {..DH* dh;..i
8ef0: 66 20 28 44 48 70 61 72 61 6d 73 20 21 3d 20 4e  f (DHparams != N
8f00: 55 4c 4c 29 20 7b 0a 09 20 20 20 20 42 49 4f 20  ULL) {..    BIO 
8f10: 2a 62 69 6f 3b 0a 09 20 20 20 20 54 63 6c 5f 44  *bio;..    Tcl_D
8f20: 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 3b  StringInit(&ds);
8f30: 0a 09 20 20 20 20 62 69 6f 20 3d 20 42 49 4f 5f  ..    bio = BIO_
8f40: 6e 65 77 5f 66 69 6c 65 28 46 32 4e 28 44 48 70  new_file(F2N(DHp
8f50: 61 72 61 6d 73 2c 20 26 64 73 29 2c 20 22 72 22  arams, &ds), "r"
8f60: 29 3b 0a 09 20 20 20 20 69 66 20 28 21 62 69 6f  );..    if (!bio
8f70: 29 20 7b 0a 09 09 54 63 6c 5f 44 53 74 72 69 6e  ) {...Tcl_DStrin
8f80: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 09 54 63  gFree(&ds);...Tc
8f90: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
8fa0: 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 22 43 6f  nterp,...    "Co
8fb0: 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 44 48 20  uld not find DH 
8fc0: 70 61 72 61 6d 65 74 65 72 73 20 66 69 6c 65 22  parameters file"
8fd0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29  , (char *) NULL)
8fe0: 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72 65 65  ;...SSL_CTX_free
8ff0: 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72 6e 20  (ctx);...return 
9000: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 20  (SSL_CTX *)0;.. 
9010: 20 20 20 7d 0a 09 20 20 20 20 0a 09 20 20 20 20     }..    ..    
9020: 64 68 20 3d 20 50 45 4d 5f 72 65 61 64 5f 62 69  dh = PEM_read_bi
9030: 6f 5f 44 48 70 61 72 61 6d 73 28 62 69 6f 2c 20  o_DHparams(bio, 
9040: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c  NULL, NULL, NULL
9050: 29 3b 0a 09 20 20 20 20 42 49 4f 5f 66 72 65 65  );..    BIO_free
9060: 28 62 69 6f 29 3b 0a 09 20 20 20 20 54 63 6c 5f  (bio);..    Tcl_
9070: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29  DStringFree(&ds)
9080: 3b 0a 09 20 20 20 20 69 66 20 28 21 64 68 29 20  ;..    if (!dh) 
9090: 7b 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65  {...Tcl_AppendRe
90a0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 20  sult(interp,... 
90b0: 20 20 20 22 43 6f 75 6c 64 20 6e 6f 74 20 72 65     "Could not re
90c0: 61 64 20 44 48 20 70 61 72 61 6d 65 74 65 72 73  ad DH parameters
90d0: 20 66 72 6f 6d 20 66 69 6c 65 22 2c 20 28 63 68   from file", (ch
90e0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53  ar *) NULL);...S
90f0: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29  SL_CTX_free(ctx)
9100: 3b 0a 09 09 72 65 74 75 72 6e 20 28 53 53 4c 5f  ;...return (SSL_
9110: 43 54 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a  CTX *)0;..    }.
9120: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 64  .} else {..    d
9130: 68 20 3d 20 67 65 74 5f 64 68 50 61 72 61 6d 73  h = get_dhParams
9140: 28 29 3b 0a 09 7d 0a 09 53 53 4c 5f 43 54 58 5f  ();..}..SSL_CTX_
9150: 73 65 74 5f 74 6d 70 5f 64 68 28 63 74 78 2c 20  set_tmp_dh(ctx, 
9160: 64 68 29 3b 0a 09 44 48 5f 66 72 65 65 28 64 68  dh);..DH_free(dh
9170: 29 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a  );.    }.#endif.
9180: 0a 20 20 20 20 2f 2a 20 73 65 74 20 6f 75 72 20  .    /* set our 
9190: 63 65 72 74 69 66 69 63 61 74 65 20 2a 2f 0a 20  certificate */. 
91a0: 20 20 20 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f     load_private_
91b0: 6b 65 79 20 3d 20 30 3b 0a 20 20 20 20 69 66 20  key = 0;.    if 
91c0: 28 63 65 72 74 66 69 6c 65 20 21 3d 20 4e 55 4c  (certfile != NUL
91d0: 4c 29 20 7b 0a 09 6c 6f 61 64 5f 70 72 69 76 61  L) {..load_priva
91e0: 74 65 5f 6b 65 79 20 3d 20 31 3b 0a 0a 09 54 63  te_key = 1;...Tc
91f0: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 64  l_DStringInit(&d
9200: 73 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43 54  s);...if (SSL_CT
9210: 58 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61 74  X_use_certificat
9220: 65 5f 66 69 6c 65 28 63 74 78 2c 20 46 32 4e 28  e_file(ctx, F2N(
9230: 20 63 65 72 74 66 69 6c 65 2c 20 26 64 73 29 2c   certfile, &ds),
9240: 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59  ......SSL_FILETY
9250: 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a  PE_PEM) <= 0) {.
9260: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
9270: 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20  Free(&ds);..    
9280: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
9290: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20  (interp,....    
92a0: 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20   "unable to set 
92b0: 63 65 72 74 69 66 69 63 61 74 65 20 66 69 6c 65  certificate file
92c0: 20 22 2c 20 63 65 72 74 66 69 6c 65 2c 20 22 3a   ", certfile, ":
92d0: 20 22 2c 0a 09 09 09 20 20 20 20 20 52 45 41 53   ",....     REAS
92e0: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e  ON(), (char *) N
92f0: 55 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43  ULL);..    SSL_C
9300: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20  TX_free(ctx);.. 
9310: 20 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43     return (SSL_C
9320: 54 58 20 2a 29 30 3b 0a 09 7d 0a 20 20 20 20 7d  TX *)0;..}.    }
9330: 20 65 6c 73 65 20 69 66 20 28 63 65 72 74 20 21   else if (cert !
9340: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6c 6f 61 64 5f  = NULL) {..load_
9350: 70 72 69 76 61 74 65 5f 6b 65 79 20 3d 20 31 3b  private_key = 1;
9360: 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73  ..if (SSL_CTX_us
9370: 65 5f 63 65 72 74 69 66 69 63 61 74 65 5f 41 53  e_certificate_AS
9380: 4e 31 28 63 74 78 2c 20 63 65 72 74 5f 6c 65 6e  N1(ctx, cert_len
9390: 2c 20 63 65 72 74 29 20 3c 3d 20 30 29 20 7b 0a  , cert) <= 0) {.
93a0: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
93b0: 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20  Free(&ds);..    
93c0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
93d0: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20  (interp,....    
93e0: 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20   "unable to set 
93f0: 63 65 72 74 69 66 69 63 61 74 65 3a 20 22 2c 0a  certificate: ",.
9400: 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29  ...     REASON()
9410: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29  , (char *) NULL)
9420: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66  ;..    SSL_CTX_f
9430: 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72  ree(ctx);..    r
9440: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a  eturn (SSL_CTX *
9450: 29 30 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73  )0;..}.    } els
9460: 65 20 7b 0a 09 63 65 72 74 66 69 6c 65 20 3d 20  e {..certfile = 
9470: 28 63 68 61 72 2a 29 58 35 30 39 5f 67 65 74 5f  (char*)X509_get_
9480: 64 65 66 61 75 6c 74 5f 63 65 72 74 5f 66 69 6c  default_cert_fil
9490: 65 28 29 3b 0a 0a 09 69 66 20 28 53 53 4c 5f 43  e();...if (SSL_C
94a0: 54 58 5f 75 73 65 5f 63 65 72 74 69 66 69 63 61  TX_use_certifica
94b0: 74 65 5f 66 69 6c 65 28 63 74 78 2c 20 63 65 72  te_file(ctx, cer
94c0: 74 66 69 6c 65 2c 0a 09 09 09 09 09 53 53 4c 5f  tfile,......SSL_
94d0: 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d  FILETYPE_PEM) <=
94e0: 20 30 29 20 7b 0a 23 69 66 20 30 0a 09 20 20 20   0) {.#if 0..   
94f0: 20 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65   Tcl_DStringFree
9500: 28 26 64 73 29 3b 0a 09 20 20 20 20 54 63 6c 5f  (&ds);..    Tcl_
9510: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
9520: 65 72 70 2c 0a 09 09 09 20 20 20 20 20 22 75 6e  erp,....     "un
9530: 61 62 6c 65 20 74 6f 20 75 73 65 20 64 65 66 61  able to use defa
9540: 75 6c 74 20 63 65 72 74 69 66 69 63 61 74 65 20  ult certificate 
9550: 66 69 6c 65 20 22 2c 20 63 65 72 74 66 69 6c 65  file ", certfile
9560: 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20 20 20 20  , ": ",....     
9570: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20  REASON(), (char 
9580: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 53  *) NULL);..    S
9590: 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29  SL_CTX_free(ctx)
95a0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 28 53  ;..    return (S
95b0: 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23 65 6e 64  SL_CTX *)0;.#end
95c0: 69 66 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20  if..}.    }..   
95d0: 20 2f 2a 20 73 65 74 20 6f 75 72 20 70 72 69 76   /* set our priv
95e0: 61 74 65 20 6b 65 79 20 2a 2f 0a 20 20 20 20 69  ate key */.    i
95f0: 66 20 28 6c 6f 61 64 5f 70 72 69 76 61 74 65 5f  f (load_private_
9600: 6b 65 79 29 20 7b 0a 09 69 66 20 28 6b 65 79 66  key) {..if (keyf
9610: 69 6c 65 20 3d 3d 20 4e 55 4c 4c 20 26 26 20 6b  ile == NULL && k
9620: 65 79 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20  ey == NULL) {.. 
9630: 20 20 20 6b 65 79 66 69 6c 65 20 3d 20 63 65 72     keyfile = cer
9640: 74 66 69 6c 65 3b 0a 09 7d 0a 0a 09 69 66 20 28  tfile;..}...if (
9650: 6b 65 79 66 69 6c 65 20 21 3d 20 4e 55 4c 4c 29  keyfile != NULL)
9660: 20 7b 0a 09 20 20 20 20 2f 2a 20 67 65 74 20 74   {..    /* get t
9670: 68 65 20 70 72 69 76 61 74 65 20 6b 65 79 20 61  he private key a
9680: 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74  ssociated with t
9690: 68 69 73 20 63 65 72 74 69 66 69 63 61 74 65 20  his certificate 
96a0: 2a 2f 0a 09 20 20 20 20 69 66 20 28 6b 65 79 66  */..    if (keyf
96b0: 69 6c 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  ile == NULL) {..
96c0: 09 6b 65 79 66 69 6c 65 20 3d 20 63 65 72 74 66  .keyfile = certf
96d0: 69 6c 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20  ile;..    }...  
96e0: 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73    if (SSL_CTX_us
96f0: 65 5f 50 72 69 76 61 74 65 4b 65 79 5f 66 69 6c  e_PrivateKey_fil
9700: 65 28 63 74 78 2c 20 46 32 4e 28 20 6b 65 79 66  e(ctx, F2N( keyf
9710: 69 6c 65 2c 20 26 64 73 29 2c 20 53 53 4c 5f 46  ile, &ds), SSL_F
9720: 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d 20  ILETYPE_PEM) <= 
9730: 30 29 20 7b 0a 09 09 54 63 6c 5f 44 53 74 72 69  0) {...Tcl_DStri
9740: 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 09 2f  ngFree(&ds);.../
9750: 2a 20 66 6c 75 73 68 20 74 68 65 20 70 61 73 73  * flush the pass
9760: 70 68 72 61 73 65 20 77 68 69 63 68 20 6d 69 67  phrase which mig
9770: 68 74 20 62 65 20 6c 65 66 74 20 69 6e 20 74 68  ht be left in th
9780: 65 20 72 65 73 75 6c 74 20 2a 2f 0a 09 09 54 63  e result */...Tc
9790: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
97a0: 72 70 2c 20 4e 55 4c 4c 2c 20 54 43 4c 5f 53 54  rp, NULL, TCL_ST
97b0: 41 54 49 43 29 3b 0a 09 09 54 63 6c 5f 41 70 70  ATIC);...Tcl_App
97c0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
97d0: 2c 0a 09 09 09 20 20 20 20 20 20 20 20 20 22 75  ,....         "u
97e0: 6e 61 62 6c 65 20 74 6f 20 73 65 74 20 70 75 62  nable to set pub
97f0: 6c 69 63 20 6b 65 79 20 66 69 6c 65 20 22 2c 20  lic key file ", 
9800: 6b 65 79 66 69 6c 65 2c 20 22 20 22 2c 0a 09 09  keyfile, " ",...
9810: 09 20 20 20 20 20 20 20 20 20 52 45 41 53 4f 4e  .         REASON
9820: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c  (), (char *) NUL
9830: 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f 66 72  L);...SSL_CTX_fr
9840: 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74 75 72  ee(ctx);...retur
9850: 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a  n (SSL_CTX *)0;.
9860: 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 54 63 6c  .    }...    Tcl
9870: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73  _DStringFree(&ds
9880: 29 3b 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 6b  );..} else if (k
9890: 65 79 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20  ey != NULL) {.. 
98a0: 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f 75     if (SSL_CTX_u
98b0: 73 65 5f 50 72 69 76 61 74 65 4b 65 79 5f 41 53  se_PrivateKey_AS
98c0: 4e 31 28 45 56 50 5f 50 4b 45 59 5f 52 53 41 2c  N1(EVP_PKEY_RSA,
98d0: 20 63 74 78 2c 20 6b 65 79 2c 6b 65 79 5f 6c 65   ctx, key,key_le
98e0: 6e 29 20 3c 3d 20 30 29 20 7b 0a 09 09 54 63 6c  n) <= 0) {...Tcl
98f0: 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73  _DStringFree(&ds
9900: 29 3b 0a 09 09 2f 2a 20 66 6c 75 73 68 20 74 68  );.../* flush th
9910: 65 20 70 61 73 73 70 68 72 61 73 65 20 77 68 69  e passphrase whi
9920: 63 68 20 6d 69 67 68 74 20 62 65 20 6c 65 66 74  ch might be left
9930: 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20 2a   in the result *
9940: 2f 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c  /...Tcl_SetResul
9950: 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 2c 20  t(interp, NULL, 
9960: 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 09 09 54  TCL_STATIC);...T
9970: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
9980: 69 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 20 20  interp,...      
9990: 20 20 20 20 20 20 20 20 20 20 20 22 75 6e 61 62             "unab
99a0: 6c 65 20 74 6f 20 73 65 74 20 70 75 62 6c 69 63  le to set public
99b0: 20 6b 65 79 3a 20 22 2c 0a 09 09 20 20 20 20 20   key: ",...     
99c0: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 41 53              REAS
99d0: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e  ON(), (char *) N
99e0: 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58 5f  ULL);...SSL_CTX_
99f0: 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 65 74  free(ctx);...ret
9a00: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30  urn (SSL_CTX *)0
9a10: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 2f 2a 20  ;..    }..}../* 
9a20: 4e 6f 77 20 77 65 20 6b 6e 6f 77 20 74 68 61 74  Now we know that
9a30: 20 61 20 6b 65 79 20 61 6e 64 20 63 65 72 74 20   a key and cert 
9a40: 68 61 76 65 20 62 65 65 6e 20 73 65 74 20 61 67  have been set ag
9a50: 61 69 6e 73 74 0a 09 20 2a 20 74 68 65 20 53 53  ainst.. * the SS
9a60: 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 09 69 66  L context */..if
9a70: 20 28 21 53 53 4c 5f 43 54 58 5f 63 68 65 63 6b   (!SSL_CTX_check
9a80: 5f 70 72 69 76 61 74 65 5f 6b 65 79 28 63 74 78  _private_key(ctx
9a90: 29 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70  )) {..    Tcl_Ap
9aa0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
9ab0: 70 2c 0a 09 09 09 20 20 20 20 20 22 70 72 69 76  p,....     "priv
9ac0: 61 74 65 20 6b 65 79 20 64 6f 65 73 20 6e 6f 74  ate key does not
9ad0: 20 6d 61 74 63 68 20 74 68 65 20 63 65 72 74 69   match the certi
9ae0: 66 69 63 61 74 65 20 70 75 62 6c 69 63 20 6b 65  ficate public ke
9af0: 79 22 2c 0a 09 09 09 20 20 20 20 20 28 63 68 61  y",....     (cha
9b00: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20  r *) NULL);..   
9b10: 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74   SSL_CTX_free(ct
9b20: 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20  x);..    return 
9b30: 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 09 7d  (SSL_CTX *)0;..}
9b40: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53  .    }..    /* S
9b50: 65 74 20 76 65 72 69 66 69 63 61 74 69 6f 6e 20  et verification 
9b60: 43 41 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 44  CAs */.    Tcl_D
9b70: 53 74 72 69 6e 67 49 6e 69 74 28 26 64 73 29 3b  StringInit(&ds);
9b80: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
9b90: 49 6e 69 74 28 26 64 73 31 29 3b 0a 20 20 20 20  Init(&ds1);.    
9ba0: 69 66 20 28 21 53 53 4c 5f 43 54 58 5f 6c 6f 61  if (!SSL_CTX_loa
9bb0: 64 5f 76 65 72 69 66 79 5f 6c 6f 63 61 74 69 6f  d_verify_locatio
9bc0: 6e 73 28 63 74 78 2c 20 46 32 4e 28 43 41 66 69  ns(ctx, F2N(CAfi
9bd0: 6c 65 2c 20 26 64 73 29 2c 20 46 32 4e 28 43 41  le, &ds), F2N(CA
9be0: 64 69 72 2c 20 26 64 73 31 29 29 20 7c 7c 0a 09  dir, &ds1)) ||..
9bf0: 21 53 53 4c 5f 43 54 58 5f 73 65 74 5f 64 65 66  !SSL_CTX_set_def
9c00: 61 75 6c 74 5f 76 65 72 69 66 79 5f 70 61 74 68  ault_verify_path
9c10: 73 28 63 74 78 29 29 20 7b 0a 23 69 66 20 30 0a  s(ctx)) {.#if 0.
9c20: 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65  .Tcl_DStringFree
9c30: 28 26 64 73 29 3b 0a 09 54 63 6c 5f 44 53 74 72  (&ds);..Tcl_DStr
9c40: 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b 0a 09  ingFree(&ds1);..
9c50: 2f 2a 20 44 6f 6e 27 74 20 63 75 72 72 65 6e 74  /* Don't current
9c60: 6c 79 20 63 61 72 65 20 69 66 20 74 68 69 73 20  ly care if this 
9c70: 66 61 69 6c 73 20 2a 2f 0a 09 54 63 6c 5f 41 70  fails */..Tcl_Ap
9c80: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
9c90: 70 2c 20 22 53 53 4c 20 64 65 66 61 75 6c 74 20  p, "SSL default 
9ca0: 76 65 72 69 66 79 20 70 61 74 68 73 3a 20 22 2c  verify paths: ",
9cb0: 0a 09 09 52 45 41 53 4f 4e 28 29 2c 20 28 63 68  ...REASON(), (ch
9cc0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53  ar *) NULL);..SS
9cd0: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b  L_CTX_free(ctx);
9ce0: 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54  ..return (SSL_CT
9cf0: 58 20 2a 29 30 3b 0a 23 65 6e 64 69 66 0a 20 20  X *)0;.#endif.  
9d00: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 68 74 74 70    }..    /* http
9d10: 73 3a 2f 2f 73 6f 75 72 63 65 66 6f 72 67 65 2e  s://sourceforge.
9d20: 6e 65 74 2f 70 2f 74 6c 73 2f 62 75 67 73 2f 35  net/p/tls/bugs/5
9d30: 37 2f 20 2a 2f 0a 20 20 20 20 2f 2a 20 58 58 58  7/ */.    /* XXX
9d40: 3a 54 4f 44 4f 3a 20 4c 65 74 20 74 68 65 20 75  :TODO: Let the u
9d50: 73 65 72 20 73 75 70 70 6c 79 20 76 61 6c 75 65  ser supply value
9d60: 73 20 68 65 72 65 20 69 6e 73 74 65 61 64 20 6f  s here instead o
9d70: 66 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 61 74  f something that
9d80: 20 65 78 69 73 74 73 20 6f 6e 20 74 68 65 20 66   exists on the f
9d90: 69 6c 65 73 79 73 74 65 6d 20 2a 2f 0a 20 20 20  ilesystem */.   
9da0: 20 69 66 20 28 20 43 41 66 69 6c 65 20 21 3d 20   if ( CAfile != 
9db0: 4e 55 4c 4c 20 29 20 7b 0a 20 20 20 20 20 20 20  NULL ) {.       
9dc0: 20 53 54 41 43 4b 5f 4f 46 28 58 35 30 39 5f 4e   STACK_OF(X509_N
9dd0: 41 4d 45 29 20 2a 63 65 72 74 4e 61 6d 65 73 20  AME) *certNames 
9de0: 3d 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c 69 65 6e  = SSL_load_clien
9df0: 74 5f 43 41 5f 66 69 6c 65 28 20 46 32 4e 28 43  t_CA_file( F2N(C
9e00: 41 66 69 6c 65 2c 20 26 64 73 29 20 29 3b 0a 09  Afile, &ds) );..
9e10: 69 66 20 28 20 63 65 72 74 4e 61 6d 65 73 20 21  if ( certNames !
9e20: 3d 20 4e 55 4c 4c 20 29 20 7b 20 0a 09 20 20 20  = NULL ) { ..   
9e30: 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f 63 6c 69   SSL_CTX_set_cli
9e40: 65 6e 74 5f 43 41 5f 6c 69 73 74 28 63 74 78 2c  ent_CA_list(ctx,
9e50: 20 63 65 72 74 4e 61 6d 65 73 20 29 3b 0a 09 7d   certNames );..}
9e60: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f  .    }..    Tcl_
9e70: 44 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29  DStringFree(&ds)
9e80: 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e  ;.    Tcl_DStrin
9e90: 67 46 72 65 65 28 26 64 73 31 29 3b 0a 20 20 20  gFree(&ds1);.   
9ea0: 20 72 65 74 75 72 6e 20 63 74 78 3b 0a 7d 0a 0c   return ctx;.}..
9eb0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
9ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
9f00: 53 74 61 74 75 73 4f 62 6a 43 6d 64 20 2d 2d 20  StatusObjCmd -- 
9f10: 72 65 74 75 72 6e 20 63 65 72 74 69 66 69 63 61  return certifica
9f20: 74 65 20 66 6f 72 20 63 6f 6e 6e 65 63 74 65 64  te for connected
9f30: 20 70 65 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73   peer.. *. * Res
9f40: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64  ults:. *.A stand
9f50: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a  ard Tcl result..
9f60: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63   *. * Side effec
9f70: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a  ts:. *.None.. *.
9f80: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
9f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9fc0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63  -----. */.static
9fd0: 20 69 6e 74 0a 53 74 61 74 75 73 4f 62 6a 43 6d   int.StatusObjCm
9fe0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69  d(ClientData cli
9ff0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74  entData, Tcl_Int
a000: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74  erp *interp, int
a010: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a   objc, Tcl_Obj *
a020: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a  const objv[]) {.
a030: 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74 65      State *state
a040: 50 74 72 3b 0a 20 20 20 20 58 35 30 39 20 2a 70  Ptr;.    X509 *p
a050: 65 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a  eer;.    Tcl_Obj
a060: 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20 20 54 63   *objPtr;.    Tc
a070: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a  l_Channel chan;.
a080: 20 20 20 20 63 68 61 72 20 2a 63 68 61 6e 6e 65      char *channe
a090: 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 65 72 73 3b  lName, *ciphers;
a0a0: 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b 0a 23  .    int mode;.#
a0b0: 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e  ifndef OPENSSL_N
a0c0: 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 63 6f 6e  O_TLSEXT.    con
a0d0: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
a0e0: 20 2a 70 72 6f 74 6f 3b 0a 20 20 20 20 75 6e 73   *proto;.    uns
a0f0: 69 67 6e 65 64 20 69 6e 74 20 6c 65 6e 3b 0a 23  igned int len;.#
a100: 65 6e 64 69 66 0a 0a 20 20 20 20 64 70 72 69 6e  endif..    dprin
a110: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20  tf("Called");.. 
a120: 20 20 20 73 77 69 74 63 68 20 28 6f 62 6a 63 29     switch (objc)
a130: 20 7b 0a 09 63 61 73 65 20 32 3a 0a 09 20 20 20   {..case 2:..   
a140: 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54   channelName = T
a150: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
a160: 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c  Obj(objv[1], NUL
a170: 4c 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a  L);..    break;.
a180: 0a 09 63 61 73 65 20 33 3a 0a 09 20 20 20 20 69  ..case 3:..    i
a190: 66 20 28 21 73 74 72 63 6d 70 20 28 54 63 6c 5f  f (!strcmp (Tcl_
a1a0: 47 65 74 53 74 72 69 6e 67 20 28 6f 62 6a 76 5b  GetString (objv[
a1b0: 31 5d 29 2c 20 22 2d 6c 6f 63 61 6c 22 29 29 20  1]), "-local")) 
a1c0: 7b 0a 09 09 63 68 61 6e 6e 65 6c 4e 61 6d 65 20  {...channelName 
a1d0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  = Tcl_GetStringF
a1e0: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20  romObj(objv[2], 
a1f0: 4e 55 4c 4c 29 3b 0a 09 09 62 72 65 61 6b 3b 0a  NULL);...break;.
a200: 09 20 20 20 20 7d 0a 09 20 20 20 20 2f 2a 20 65  .    }..    /* e
a210: 6c 73 65 20 66 61 6c 6c 2d 74 68 72 6f 75 67 68  lse fall-through
a220: 20 2e 2e 2e 20 2a 2f 0a 23 69 66 20 64 65 66 69   ... */.#if defi
a230: 6e 65 64 28 5f 5f 47 4e 55 43 5f 5f 29 0a 09 20  ned(__GNUC__).. 
a240: 20 20 20 5f 5f 61 74 74 72 69 62 75 74 65 5f 5f     __attribute__
a250: 28 28 66 61 6c 6c 74 68 72 6f 75 67 68 29 29 3b  ((fallthrough));
a260: 0a 23 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74  .#endif..default
a270: 3a 0a 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67  :..    Tcl_Wrong
a280: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
a290: 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6c 6f 63 61  1, objv, "?-loca
a2a0: 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 20  l? channel");.. 
a2b0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
a2c0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ROR;.    }..    
a2d0: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68  chan = Tcl_GetCh
a2e0: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68  annel(interp, ch
a2f0: 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 6d 6f 64 65  annelName, &mode
a300: 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e 20  );.    if (chan 
a310: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29  == (Tcl_Channel)
a320: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e   NULL) {..return
a330: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
a340: 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  }.    /*.     * 
a350: 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 65  Make sure to ope
a360: 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d  rate on the topm
a370: 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20 20 20 20  ost channel.    
a380: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54   */.    chan = T
a390: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c  cl_GetTopChannel
a3a0: 28 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 28  (chan);.    if (
a3b0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79  Tcl_GetChannelTy
a3c0: 70 65 28 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f  pe(chan) != Tls_
a3d0: 43 68 61 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b  ChannelType()) {
a3e0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
a3f0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20  lt(interp, "bad 
a400: 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c  channel \"", Tcl
a410: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28  _GetChannelName(
a420: 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a 20 6e 6f  chan),..."\": no
a430: 74 20 61 20 54 4c 53 20 63 68 61 6e 6e 65 6c 22  t a TLS channel"
a440: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e  , NULL);..return
a450: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
a460: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 20 3d  }.    statePtr =
a470: 20 28 53 74 61 74 65 20 2a 29 20 54 63 6c 5f 47   (State *) Tcl_G
a480: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63  etChannelInstanc
a490: 65 44 61 74 61 28 63 68 61 6e 29 3b 0a 20 20 20  eData(chan);.   
a4a0: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20   if (objc == 2) 
a4b0: 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 65  {..peer = SSL_ge
a4c0: 74 5f 70 65 65 72 5f 63 65 72 74 69 66 69 63 61  t_peer_certifica
a4d0: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c  te(statePtr->ssl
a4e0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  );.    } else {.
a4f0: 09 70 65 65 72 20 3d 20 53 53 4c 5f 67 65 74 5f  .peer = SSL_get_
a500: 63 65 72 74 69 66 69 63 61 74 65 28 73 74 61 74  certificate(stat
a510: 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20 20 20  ePtr->ssl);.    
a520: 7d 0a 20 20 20 20 69 66 20 28 70 65 65 72 29 20  }.    if (peer) 
a530: 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54 6c 73 5f  {..objPtr = Tls_
a540: 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e 74 65 72  NewX509Obj(inter
a550: 70 2c 20 70 65 65 72 29 3b 0a 09 69 66 20 28 6f  p, peer);..if (o
a560: 62 6a 63 20 3d 3d 20 32 29 20 7b 20 58 35 30 39  bjc == 2) { X509
a570: 5f 66 72 65 65 28 70 65 65 72 29 3b 20 7d 0a 20  _free(peer); }. 
a580: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 6f 62 6a     } else {..obj
a590: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73  Ptr = Tcl_NewLis
a5a0: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20  tObj(0, NULL);. 
a5b0: 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69     }..    Tcl_Li
a5c0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
a5d0: 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50  nt (interp, objP
a5e0: 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77  tr,..    Tcl_New
a5f0: 53 74 72 69 6e 67 4f 62 6a 20 28 22 73 62 69 74  StringObj ("sbit
a600: 73 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63  s", -1));.    Tc
a610: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
a620: 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20  lement (interp, 
a630: 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c  objPtr,..    Tcl
a640: 5f 4e 65 77 49 6e 74 4f 62 6a 20 28 53 53 4c 5f  _NewIntObj (SSL_
a650: 67 65 74 5f 63 69 70 68 65 72 5f 62 69 74 73 20  get_cipher_bits 
a660: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20  (statePtr->ssl, 
a670: 4e 55 4c 4c 29 29 29 3b 0a 0a 20 20 20 20 63 69  NULL)));..    ci
a680: 70 68 65 72 73 20 3d 20 28 63 68 61 72 2a 29 53  phers = (char*)S
a690: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 28 73 74  SL_get_cipher(st
a6a0: 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20 20  atePtr->ssl);.  
a6b0: 20 20 69 66 20 28 28 63 69 70 68 65 72 73 20 21    if ((ciphers !
a6c0: 3d 20 4e 55 4c 4c 29 20 26 26 20 28 73 74 72 63  = NULL) && (strc
a6d0: 6d 70 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f  mp(ciphers, "(NO
a6e0: 4e 45 29 22 29 20 21 3d 20 30 29 29 20 7b 0a 09  NE)") != 0)) {..
a6f0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
a700: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
a710: 20 6f 62 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e   objPtr,...Tcl_N
a720: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 69 70  ewStringObj("cip
a730: 68 65 72 22 2c 20 2d 31 29 29 3b 0a 09 54 63 6c  her", -1));..Tcl
a740: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
a750: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62  ement(interp, ob
a760: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53  jPtr,...Tcl_NewS
a770: 74 72 69 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74  tringObj(SSL_get
a780: 5f 63 69 70 68 65 72 28 73 74 61 74 65 50 74 72  _cipher(statePtr
a790: 2d 3e 73 73 6c 29 2c 20 2d 31 29 29 3b 0a 20 20  ->ssl), -1));.  
a7a0: 20 20 7d 0a 0a 23 69 66 6e 64 65 66 20 4f 50 45    }..#ifndef OPE
a7b0: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20  NSSL_NO_TLSEXT. 
a7c0: 20 20 20 2f 2a 20 52 65 70 6f 72 74 20 74 68 65     /* Report the
a7d0: 20 73 65 6c 65 63 74 65 64 20 70 72 6f 74 6f 63   selected protoc
a7e0: 6f 6c 20 61 73 20 61 20 72 65 73 75 6c 74 20 6f  ol as a result o
a7f0: 66 20 74 68 65 20 6e 65 67 6f 74 69 61 74 69 6f  f the negotiatio
a800: 6e 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 67 65 74  n */.    SSL_get
a810: 30 5f 61 6c 70 6e 5f 73 65 6c 65 63 74 65 64 28  0_alpn_selected(
a820: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 26  statePtr->ssl, &
a830: 70 72 6f 74 6f 2c 20 26 6c 65 6e 29 3b 0a 20 20  proto, &len);.  
a840: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
a850: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72  endElement(inter
a860: 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e  p, objPtr, Tcl_N
a870: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 61 6c 70  ewStringObj("alp
a880: 6e 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63  n", -1));.    Tc
a890: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
a8a0: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f  lement(interp, o
a8b0: 62 6a 50 74 72 2c 0a 20 20 20 20 20 20 54 63 6c  bjPtr,.      Tcl
a8c0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63  _NewStringObj((c
a8d0: 68 61 72 20 2a 29 70 72 6f 74 6f 2c 20 28 69 6e  har *)proto, (in
a8e0: 74 29 6c 65 6e 29 29 3b 0a 23 65 6e 64 69 66 0a  t)len));.#endif.
a8f0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
a900: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
a910: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 54 63  erp, objPtr,..Tc
a920: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22  l_NewStringObj("
a930: 76 65 72 73 69 6f 6e 22 2c 20 2d 31 29 29 3b 0a  version", -1));.
a940: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
a950: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
a960: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 54 63  erp, objPtr,..Tc
a970: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 53  l_NewStringObj(S
a980: 53 4c 5f 67 65 74 5f 76 65 72 73 69 6f 6e 28 73  SL_get_version(s
a990: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 2c 20 2d  tatePtr->ssl), -
a9a0: 31 29 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65  1));..    Tcl_Se
a9b0: 74 4f 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65  tObjResult( inte
a9c0: 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20  rp, objPtr);.   
a9d0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
a9e0: 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20      .clientData 
a9f0: 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a  = clientData;.}.
aa00: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
aa10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aa20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aa30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aa40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
aa50: 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d   VersionObjCmd -
aa60: 2d 20 72 65 74 75 72 6e 20 76 65 72 73 69 6f 6e  - return version
aa70: 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 4f 70 65   string from Ope
aa80: 6e 53 53 4c 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  nSSL.. *. * Resu
aa90: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61  lts:. *.A standa
aaa0: 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20  rd Tcl result.. 
aab0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
aac0: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
aad0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
aae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aaf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ab10: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20  ----. */.static 
ab20: 69 6e 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d  int.VersionObjCm
ab30: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69  d(ClientData cli
ab40: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74  entData, Tcl_Int
ab50: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74  erp *interp, int
ab60: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a   objc, Tcl_Obj *
ab70: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a  const objv[]) {.
ab80: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a      Tcl_Obj *obj
ab90: 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74  Ptr;..    dprint
aba0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20  f("Called");..  
abb0: 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e    objPtr = Tcl_N
abc0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e  ewStringObj(OPEN
abd0: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54  SSL_VERSION_TEXT
abe0: 2c 20 2d 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f  , -1);..    Tcl_
abf0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
ac00: 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20  erp, objPtr);.  
ac10: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
ac20: 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61  .    .clientData
ac30: 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20   = clientData;. 
ac40: 20 20 20 09 6f 62 6a 63 20 3d 20 6f 62 6a 63 3b     .objc = objc;
ac50: 0a 20 20 20 20 09 6f 62 6a 76 20 3d 20 6f 62 6a  .    .objv = obj
ac60: 76 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  v;.}.../*. *----
ac70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ac80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ac90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
acb0: 20 2a 0a 20 2a 20 4d 69 73 63 4f 62 6a 43 6d 64   *. * MiscObjCmd
acc0: 20 2d 2d 20 6d 69 73 63 20 63 6f 6d 6d 61 6e 64   -- misc command
acd0: 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  s. *. * Results:
ace0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54  . *.A standard T
acf0: 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a  cl result.. *. *
ad00: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
ad10: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d  *.None.. *. *---
ad20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ad30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ad40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ad50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ad60: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a  . */.static int.
ad70: 4d 69 73 63 4f 62 6a 43 6d 64 28 43 6c 69 65 6e  MiscObjCmd(Clien
ad80: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
ad90: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  , Tcl_Interp *in
ada0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20  terp, int objc, 
adb0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f  Tcl_Obj *const o
adc0: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 73 74 61  bjv[]) {.    sta
add0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a  tic const char *
ade0: 63 6f 6d 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b 20  commands [] = { 
adf0: 22 72 65 71 22 2c 20 22 73 74 72 72 65 71 22 2c  "req", "strreq",
ae00: 20 4e 55 4c 4c 20 7d 3b 0a 20 20 20 20 65 6e 75   NULL };.    enu
ae10: 6d 20 63 6f 6d 6d 61 6e 64 20 7b 20 43 5f 52 45  m command { C_RE
ae20: 51 2c 20 43 5f 53 54 52 52 45 51 2c 20 43 5f 44  Q, C_STRREQ, C_D
ae30: 55 4d 4d 59 20 7d 3b 0a 20 20 20 20 69 6e 74 20  UMMY };.    int 
ae40: 63 6d 64 2c 20 69 73 53 74 72 3b 0a 20 20 20 20  cmd, isStr;.    
ae50: 63 68 61 72 20 62 75 66 66 65 72 5b 31 36 33 38  char buffer[1638
ae60: 34 5d 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66  4];..    dprintf
ae70: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20  ("Called");..   
ae80: 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 29 20 7b   if (objc < 2) {
ae90: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72  ..Tcl_WrongNumAr
aea0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62  gs(interp, 1, ob
aeb0: 6a 76 2c 20 22 73 75 62 63 6f 6d 6d 61 6e 64 20  jv, "subcommand 
aec0: 3f 61 72 67 73 3f 22 29 3b 0a 09 72 65 74 75 72  ?args?");..retur
aed0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
aee0: 20 7d 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47   }.    if (Tcl_G
aef0: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69  etIndexFromObj(i
af00: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20  nterp, objv[1], 
af10: 63 6f 6d 6d 61 6e 64 73 2c 20 22 63 6f 6d 6d 61  commands, "comma
af20: 6e 64 22 2c 20 30 2c 26 63 6d 64 29 20 21 3d 20  nd", 0,&cmd) != 
af30: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72  TCL_OK) {..retur
af40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
af50: 20 7d 0a 0a 20 20 20 20 69 73 53 74 72 20 3d 20   }..    isStr = 
af60: 28 63 6d 64 20 3d 3d 20 43 5f 53 54 52 52 45 51  (cmd == C_STRREQ
af70: 29 3b 0a 20 20 20 20 73 77 69 74 63 68 20 28 28  );.    switch ((
af80: 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 63 6d  enum command) cm
af90: 64 29 20 7b 0a 09 63 61 73 65 20 43 5f 52 45 51  d) {..case C_REQ
afa0: 3a 0a 09 63 61 73 65 20 43 5f 53 54 52 52 45 51  :..case C_STRREQ
afb0: 3a 20 7b 0a 09 20 20 20 20 45 56 50 5f 50 4b 45  : {..    EVP_PKE
afc0: 59 20 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a 09 20  Y *pkey=NULL;.. 
afd0: 20 20 20 58 35 30 39 20 2a 63 65 72 74 3d 4e 55     X509 *cert=NU
afe0: 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 5f 4e 41  LL;..    X509_NA
aff0: 4d 45 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b 0a 09  ME *name=NULL;..
b000: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69      Tcl_Obj **li
b010: 73 74 76 3b 0a 09 20 20 20 20 69 6e 74 20 6c 69  stv;..    int li
b020: 73 74 63 2c 69 3b 0a 0a 09 20 20 20 20 42 49 4f  stc,i;...    BIO
b030: 20 2a 6f 75 74 3d 4e 55 4c 4c 3b 0a 0a 09 20 20   *out=NULL;...  
b040: 20 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 2c 2a    char *k_C="",*
b050: 6b 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 22 2c  k_ST="",*k_L="",
b060: 2a 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d 22 22  *k_O="",*k_OU=""
b070: 2c 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 6d 61  ,*k_CN="",*k_Ema
b080: 69 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 61 72  il="";..    char
b090: 20 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f 75 74   *keyout,*pemout
b0a0: 2c 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e 74 20  ,*str;..    int 
b0b0: 6b 65 79 73 69 7a 65 2c 73 65 72 69 61 6c 3d 30  keysize,serial=0
b0c0: 2c 64 61 79 73 3d 33 36 35 3b 0a 0a 23 69 66 20  ,days=365;..#if 
b0d0: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f  OPENSSL_VERSION_
b0e0: 4e 55 4d 42 45 52 20 3c 3d 20 30 78 31 30 31 30  NUMBER <= 0x1010
b0f0: 30 30 30 30 4c 0a 09 20 20 20 20 52 53 41 20 2a  0000L..    RSA *
b100: 72 73 61 20 3d 20 4e 55 4c 4c 3b 0a 23 65 6c 69  rsa = NULL;.#eli
b110: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f  f OPENSSL_VERSIO
b120: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30  N_NUMBER < 0x300
b130: 30 30 30 30 30 4c 0a 09 20 20 20 20 42 49 47 4e  00000L..    BIGN
b140: 55 4d 20 2a 62 6e 65 20 3d 20 4e 55 4c 4c 3b 0a  UM *bne = NULL;.
b150: 09 20 20 20 20 52 53 41 20 2a 72 73 61 20 3d 20  .    RSA *rsa = 
b160: 4e 55 4c 4c 3b 0a 23 65 6c 73 65 0a 09 20 20 20  NULL;.#else..   
b170: 20 45 56 50 5f 50 4b 45 59 5f 43 54 58 20 2a 63   EVP_PKEY_CTX *c
b180: 74 78 20 3d 20 4e 55 4c 4c 3b 20 20 20 20 0a 23  tx = NULL;    .#
b190: 65 6e 64 69 66 0a 0a 09 20 20 20 20 69 66 20 28  endif...    if (
b1a0: 28 6f 62 6a 63 3c 35 29 20 7c 7c 20 28 6f 62 6a  (objc<5) || (obj
b1b0: 63 3e 36 29 29 20 7b 0a 09 09 54 63 6c 5f 57 72  c>6)) {...Tcl_Wr
b1c0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
b1d0: 70 2c 20 32 2c 20 6f 62 6a 76 2c 20 22 6b 65 79  p, 2, objv, "key
b1e0: 73 69 7a 65 20 6b 65 79 66 69 6c 65 20 63 65 72  size keyfile cer
b1f0: 74 66 69 6c 65 20 3f 69 6e 66 6f 3f 22 29 3b 0a  tfile ?info?");.
b200: 09 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
b210: 4f 52 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20  OR;..    }...   
b220: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46   if (Tcl_GetIntF
b230: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
b240: 62 6a 76 5b 32 5d 2c 20 26 6b 65 79 73 69 7a 65  bjv[2], &keysize
b250: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  ) != TCL_OK) {..
b260: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
b270: 52 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 6b  R;..    }..    k
b280: 65 79 6f 75 74 3d 54 63 6c 5f 47 65 74 53 74 72  eyout=Tcl_GetStr
b290: 69 6e 67 28 6f 62 6a 76 5b 33 5d 29 3b 0a 09 20  ing(objv[3]);.. 
b2a0: 20 20 20 70 65 6d 6f 75 74 3d 54 63 6c 5f 47 65     pemout=Tcl_Ge
b2b0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d 29  tString(objv[4])
b2c0: 3b 0a 09 20 20 20 20 69 66 20 28 69 73 53 74 72  ;..    if (isStr
b2d0: 29 20 7b 0a 09 09 54 63 6c 5f 53 65 74 56 61 72  ) {...Tcl_SetVar
b2e0: 28 69 6e 74 65 72 70 2c 6b 65 79 6f 75 74 2c 22  (interp,keyout,"
b2f0: 22 2c 30 29 3b 0a 09 09 54 63 6c 5f 53 65 74 56  ",0);...Tcl_SetV
b300: 61 72 28 69 6e 74 65 72 70 2c 70 65 6d 6f 75 74  ar(interp,pemout
b310: 2c 22 22 2c 30 29 3b 0a 09 20 20 20 20 7d 0a 0a  ,"",0);..    }..
b320: 09 20 20 20 20 69 66 20 28 6f 62 6a 63 3e 3d 36  .    if (objc>=6
b330: 29 20 7b 0a 09 09 69 66 20 28 54 63 6c 5f 4c 69  ) {...if (Tcl_Li
b340: 73 74 4f 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73  stObjGetElements
b350: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 35 5d  (interp, objv[5]
b360: 2c 0a 09 09 09 26 6c 69 73 74 63 2c 20 26 6c 69  ,....&listc, &li
b370: 73 74 76 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  stv) != TCL_OK) 
b380: 7b 0a 09 09 20 20 20 20 72 65 74 75 72 6e 20 54  {...    return T
b390: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09  CL_ERROR;...}...
b3a0: 09 69 66 20 28 28 6c 69 73 74 63 25 32 29 20 21  .if ((listc%2) !
b3b0: 3d 20 30 29 20 7b 0a 09 09 20 20 20 20 54 63 6c  = 0) {...    Tcl
b3c0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
b3d0: 70 2c 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6c  p,"Information l
b3e0: 69 73 74 20 6d 75 73 74 20 68 61 76 65 20 65 76  ist must have ev
b3f0: 65 6e 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67  en number of arg
b400: 75 6d 65 6e 74 73 22 2c 4e 55 4c 4c 29 3b 0a 09  uments",NULL);..
b410: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
b420: 45 52 52 4f 52 3b 0a 09 09 7d 0a 09 09 66 6f 72  ERROR;...}...for
b430: 20 28 69 3d 30 3b 20 69 3c 6c 69 73 74 63 3b 20   (i=0; i<listc; 
b440: 69 2b 3d 32 29 20 7b 0a 09 09 20 20 20 20 73 74  i+=2) {...    st
b450: 72 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  r=Tcl_GetString(
b460: 6c 69 73 74 76 5b 69 5d 29 3b 0a 09 09 20 20 20  listv[i]);...   
b470: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c   if (strcmp(str,
b480: 22 64 61 79 73 22 29 3d 3d 30 29 20 7b 0a 09 09  "days")==0) {...
b490: 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46  .if (Tcl_GetIntF
b4a0: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69  romObj(interp,li
b4b0: 73 74 76 5b 69 2b 31 5d 2c 26 64 61 79 73 29 21  stv[i+1],&days)!
b4c0: 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20  =TCL_OK)....    
b4d0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
b4e0: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69  ;...    } else i
b4f0: 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 73  f (strcmp(str,"s
b500: 65 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09  erial")==0) {...
b510: 09 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46  .if (Tcl_GetIntF
b520: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69  romObj(interp,li
b530: 73 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c  stv[i+1],&serial
b540: 29 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20  )!=TCL_OK)....  
b550: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
b560: 4f 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65  OR;...    } else
b570: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c   if (strcmp(str,
b580: 22 43 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f  "C")==0) {....k_
b590: 43 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  C=Tcl_GetString(
b5a0: 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20  listv[i+1]);... 
b5b0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74     } else if (st
b5c0: 72 63 6d 70 28 73 74 72 2c 22 53 54 22 29 3d 3d  rcmp(str,"ST")==
b5d0: 30 29 20 7b 0a 09 09 09 6b 5f 53 54 3d 54 63 6c  0) {....k_ST=Tcl
b5e0: 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76  _GetString(listv
b5f0: 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20  [i+1]);...    } 
b600: 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28  else if (strcmp(
b610: 73 74 72 2c 22 4c 22 29 3d 3d 30 29 20 7b 0a 09  str,"L")==0) {..
b620: 09 09 6b 5f 4c 3d 54 63 6c 5f 47 65 74 53 74 72  ..k_L=Tcl_GetStr
b630: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b  ing(listv[i+1]);
b640: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66  ...    } else if
b650: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f 22   (strcmp(str,"O"
b660: 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 3d 54  )==0) {....k_O=T
b670: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73  cl_GetString(lis
b680: 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20  tv[i+1]);...    
b690: 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d  } else if (strcm
b6a0: 70 28 73 74 72 2c 22 4f 55 22 29 3d 3d 30 29 20  p(str,"OU")==0) 
b6b0: 7b 0a 09 09 09 6b 5f 4f 55 3d 54 63 6c 5f 47 65  {....k_OU=Tcl_Ge
b6c0: 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b  tString(listv[i+
b6d0: 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73  1]);...    } els
b6e0: 65 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72  e if (strcmp(str
b6f0: 2c 22 43 4e 22 29 3d 3d 30 29 20 7b 0a 09 09 09  ,"CN")==0) {....
b700: 6b 5f 43 4e 3d 54 63 6c 5f 47 65 74 53 74 72 69  k_CN=Tcl_GetStri
b710: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a  ng(listv[i+1]);.
b720: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20  ..    } else if 
b730: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 45 6d 61  (strcmp(str,"Ema
b740: 69 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f  il")==0) {....k_
b750: 45 6d 61 69 6c 3d 54 63 6c 5f 47 65 74 53 74 72  Email=Tcl_GetStr
b760: 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b  ing(listv[i+1]);
b770: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  ...    } else {.
b780: 09 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74  ...Tcl_SetResult
b790: 28 69 6e 74 65 72 70 2c 22 55 6e 6b 6e 6f 77 6e  (interp,"Unknown
b7a0: 20 70 61 72 61 6d 65 74 65 72 22 2c 4e 55 4c 4c   parameter",NULL
b7b0: 29 3b 0a 09 09 09 72 65 74 75 72 6e 20 54 43 4c  );....return TCL
b7c0: 5f 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 0a  _ERROR;...    }.
b7d0: 09 09 7d 0a 09 20 20 20 20 7d 0a 0a 23 69 66 20  ..}..    }..#if 
b7e0: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f  OPENSSL_VERSION_
b7f0: 4e 55 4d 42 45 52 20 3c 3d 20 30 78 31 30 31 30  NUMBER <= 0x1010
b800: 30 30 30 30 4c 0a 09 20 20 20 20 70 6b 65 79 20  0000L..    pkey 
b810: 3d 20 45 56 50 5f 50 4b 45 59 5f 6e 65 77 28 29  = EVP_PKEY_new()
b820: 3b 0a 09 20 20 20 20 72 73 61 20 3d 20 52 53 41  ;..    rsa = RSA
b830: 5f 67 65 6e 65 72 61 74 65 5f 6b 65 79 28 6b 65  _generate_key(ke
b840: 79 73 69 7a 65 2c 20 30 78 31 30 30 30 31 2c 20  ysize, 0x10001, 
b850: 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20  NULL, NULL);..  
b860: 20 20 69 66 20 28 70 6b 65 79 20 3d 3d 20 4e 55    if (pkey == NU
b870: 4c 4c 20 7c 7c 20 72 73 61 20 3d 3d 20 4e 55 4c  LL || rsa == NUL
b880: 4c 20 7c 7c 20 21 45 56 50 5f 50 4b 45 59 5f 61  L || !EVP_PKEY_a
b890: 73 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 20  ssign_RSA(pkey, 
b8a0: 72 73 61 29 29 20 7b 0a 09 09 45 56 50 5f 50 4b  rsa)) {...EVP_PK
b8b0: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09  EY_free(pkey);..
b8c0: 09 2f 2a 20 52 53 41 5f 66 72 65 65 28 72 73 61  ./* RSA_free(rsa
b8d0: 29 3b 20 66 72 65 65 64 20 62 79 20 45 56 50 5f  ); freed by EVP_
b8e0: 50 4b 45 59 5f 66 72 65 65 20 2a 2f 0a 23 65 6c  PKEY_free */.#el
b8f0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49  if OPENSSL_VERSI
b900: 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30  ON_NUMBER < 0x30
b910: 30 30 30 30 30 30 4c 0a 09 20 20 20 20 62 6e 65  000000L..    bne
b920: 20 3d 20 42 4e 5f 6e 65 77 28 29 3b 0a 09 20 20   = BN_new();..  
b930: 20 20 72 73 61 20 3d 20 52 53 41 5f 6e 65 77 28    rsa = RSA_new(
b940: 29 3b 0a 09 20 20 20 20 70 6b 65 79 20 3d 20 45  );..    pkey = E
b950: 56 50 5f 50 4b 45 59 5f 6e 65 77 28 29 3b 0a 09  VP_PKEY_new();..
b960: 20 20 20 20 69 66 20 28 62 6e 65 20 3d 3d 20 4e      if (bne == N
b970: 55 4c 4c 20 7c 7c 20 72 73 61 20 3d 3d 20 4e 55  ULL || rsa == NU
b980: 4c 4c 20 7c 7c 20 70 6b 65 79 20 3d 3d 20 4e 55  LL || pkey == NU
b990: 4c 4c 20 7c 7c 20 21 42 4e 5f 73 65 74 5f 77 6f  LL || !BN_set_wo
b9a0: 72 64 28 62 6e 65 2c 52 53 41 5f 46 34 29 20 7c  rd(bne,RSA_F4) |
b9b0: 7c 0a 09 09 21 52 53 41 5f 67 65 6e 65 72 61 74  |...!RSA_generat
b9c0: 65 5f 6b 65 79 5f 65 78 28 72 73 61 2c 20 6b 65  e_key_ex(rsa, ke
b9d0: 79 73 69 7a 65 2c 20 62 6e 65 2c 20 4e 55 4c 4c  ysize, bne, NULL
b9e0: 29 20 7c 7c 20 21 45 56 50 5f 50 4b 45 59 5f 61  ) || !EVP_PKEY_a
b9f0: 73 73 69 67 6e 5f 52 53 41 28 70 6b 65 79 2c 20  ssign_RSA(pkey, 
ba00: 72 73 61 29 29 20 7b 0a 09 09 45 56 50 5f 50 4b  rsa)) {...EVP_PK
ba10: 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09  EY_free(pkey);..
ba20: 09 2f 2a 20 52 53 41 5f 66 72 65 65 28 72 73 61  ./* RSA_free(rsa
ba30: 29 3b 20 66 72 65 65 64 20 62 79 20 45 56 50 5f  ); freed by EVP_
ba40: 50 4b 45 59 5f 66 72 65 65 20 2a 2f 0a 09 09 42  PKEY_free */...B
ba50: 4e 5f 66 72 65 65 28 62 6e 65 29 3b 0a 23 65 6c  N_free(bne);.#el
ba60: 73 65 0a 09 20 20 20 20 70 6b 65 79 20 3d 20 45  se..    pkey = E
ba70: 56 50 5f 52 53 41 5f 67 65 6e 28 28 75 6e 73 69  VP_RSA_gen((unsi
ba80: 67 6e 65 64 20 69 6e 74 29 20 6b 65 79 73 69 7a  gned int) keysiz
ba90: 65 29 3b 0a 09 20 20 20 20 63 74 78 20 3d 20 45  e);..    ctx = E
baa0: 56 50 5f 50 4b 45 59 5f 43 54 58 5f 6e 65 77 28  VP_PKEY_CTX_new(
bab0: 70 6b 65 79 2c 4e 55 4c 4c 29 3b 0a 09 20 20 20  pkey,NULL);..   
bac0: 20 69 66 20 28 70 6b 65 79 20 3d 3d 20 4e 55 4c   if (pkey == NUL
bad0: 4c 20 7c 7c 20 63 74 78 20 3d 3d 20 4e 55 4c 4c  L || ctx == NULL
bae0: 20 7c 7c 20 21 45 56 50 5f 50 4b 45 59 5f 6b 65   || !EVP_PKEY_ke
baf0: 79 67 65 6e 5f 69 6e 69 74 28 63 74 78 29 20 7c  ygen_init(ctx) |
bb00: 7c 0a 09 09 21 45 56 50 5f 50 4b 45 59 5f 43 54  |...!EVP_PKEY_CT
bb10: 58 5f 73 65 74 5f 72 73 61 5f 6b 65 79 67 65 6e  X_set_rsa_keygen
bb20: 5f 62 69 74 73 28 63 74 78 2c 20 6b 65 79 73 69  _bits(ctx, keysi
bb30: 7a 65 29 20 7c 7c 20 21 45 56 50 5f 50 4b 45 59  ze) || !EVP_PKEY
bb40: 5f 6b 65 79 67 65 6e 28 63 74 78 2c 20 26 70 6b  _keygen(ctx, &pk
bb50: 65 79 29 29 20 7b 0a 09 09 45 56 50 5f 50 4b 45  ey)) {...EVP_PKE
bb60: 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a 09 09  Y_free(pkey);...
bb70: 45 56 50 5f 50 4b 45 59 5f 43 54 58 5f 66 72 65  EVP_PKEY_CTX_fre
bb80: 65 28 63 74 78 29 3b 0a 23 65 6e 64 69 66 0a 09  e(ctx);.#endif..
bb90: 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69  .Tcl_SetResult(i
bba0: 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67 65 6e  nterp,"Error gen
bbb0: 65 72 61 74 69 6e 67 20 70 72 69 76 61 74 65 20  erating private 
bbc0: 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09 72 65  key",NULL);...re
bbd0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
bbe0: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09  .    } else {...
bbf0: 69 66 20 28 69 73 53 74 72 29 20 7b 0a 09 09 20  if (isStr) {... 
bc00: 20 20 20 6f 75 74 3d 42 49 4f 5f 6e 65 77 28 42     out=BIO_new(B
bc10: 49 4f 5f 73 5f 6d 65 6d 28 29 29 3b 0a 09 09 20  IO_s_mem());... 
bc20: 20 20 20 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f     PEM_write_bio
bc30: 5f 50 72 69 76 61 74 65 4b 65 79 28 6f 75 74 2c  _PrivateKey(out,
bc40: 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c 4c 2c 30  pkey,NULL,NULL,0
bc50: 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a 09 09 20  ,NULL,NULL);... 
bc60: 20 20 20 69 3d 42 49 4f 5f 72 65 61 64 28 6f 75     i=BIO_read(ou
bc70: 74 2c 62 75 66 66 65 72 2c 73 69 7a 65 6f 66 28  t,buffer,sizeof(
bc80: 62 75 66 66 65 72 29 2d 31 29 3b 0a 09 09 20 20  buffer)-1);...  
bc90: 20 20 69 3d 28 69 3c 30 29 20 3f 20 30 20 3a 20    i=(i<0) ? 0 : 
bca0: 69 3b 0a 09 09 20 20 20 20 62 75 66 66 65 72 5b  i;...    buffer[
bcb0: 69 5d 3d 27 5c 30 27 3b 0a 09 09 20 20 20 20 54  i]='\0';...    T
bcc0: 63 6c 5f 53 65 74 56 61 72 28 69 6e 74 65 72 70  cl_SetVar(interp
bcd0: 2c 6b 65 79 6f 75 74 2c 62 75 66 66 65 72 2c 30  ,keyout,buffer,0
bce0: 29 3b 0a 09 09 20 20 20 20 42 49 4f 5f 66 6c 75  );...    BIO_flu
bcf0: 73 68 28 6f 75 74 29 3b 0a 09 09 20 20 20 20 42  sh(out);...    B
bd00: 49 4f 5f 66 72 65 65 28 6f 75 74 29 3b 0a 09 09  IO_free(out);...
bd10: 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 6f  } else {...    o
bd20: 75 74 3d 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73  ut=BIO_new(BIO_s
bd30: 5f 66 69 6c 65 28 29 29 3b 0a 09 09 20 20 20 20  _file());...    
bd40: 42 49 4f 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61  BIO_write_filena
bd50: 6d 65 28 6f 75 74 2c 6b 65 79 6f 75 74 29 3b 0a  me(out,keyout);.
bd60: 09 09 20 20 20 20 50 45 4d 5f 77 72 69 74 65 5f  ..    PEM_write_
bd70: 62 69 6f 5f 50 72 69 76 61 74 65 4b 65 79 28 6f  bio_PrivateKey(o
bd80: 75 74 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c  ut,pkey,NULL,NUL
bd90: 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a  L,0,NULL,NULL);.
bda0: 09 09 20 20 20 20 2f 2a 20 50 45 4d 5f 77 72 69  ..    /* PEM_wri
bdb0: 74 65 5f 62 69 6f 5f 52 53 41 50 72 69 76 61 74  te_bio_RSAPrivat
bdc0: 65 4b 65 79 28 6f 75 74 2c 20 72 73 61 2c 20 4e  eKey(out, rsa, N
bdd0: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 30 2c 20 4e 55  ULL, NULL, 0, NU
bde0: 4c 4c 2c 20 4e 55 4c 4c 29 3b 20 2a 2f 0a 09 09  LL, NULL); */...
bdf0: 20 20 20 20 42 49 4f 5f 66 72 65 65 5f 61 6c 6c      BIO_free_all
be00: 28 6f 75 74 29 3b 0a 09 20 09 7d 0a 0a 09 09 69  (out);.. .}....i
be10: 66 20 28 28 63 65 72 74 3d 58 35 30 39 5f 6e 65  f ((cert=X509_ne
be20: 77 28 29 29 3d 3d 4e 55 4c 4c 29 20 7b 0a 09 09  w())==NULL) {...
be30: 20 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c      Tcl_SetResul
be40: 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20  t(interp,"Error 
be50: 67 65 6e 65 72 61 74 69 6e 67 20 63 65 72 74 69  generating certi
be60: 66 69 63 61 74 65 20 72 65 71 75 65 73 74 22 2c  ficate request",
be70: 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 45 56 50  NULL);...    EVP
be80: 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29  _PKEY_free(pkey)
be90: 3b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45  ;.#if OPENSSL_VE
bea0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 20 30  RSION_NUMBER > 0
beb0: 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 4f 50  x10100000L && OP
bec0: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55  ENSSL_VERSION_NU
bed0: 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 30  MBER < 0x3000000
bee0: 30 4c 0a 09 09 20 20 20 20 42 4e 5f 66 72 65 65  0L...    BN_free
bef0: 28 62 6e 65 29 3b 0a 23 65 6e 64 69 66 0a 09 09  (bne);.#endif...
bf00: 20 20 20 20 72 65 74 75 72 6e 28 54 43 4c 5f 45      return(TCL_E
bf10: 52 52 4f 52 29 3b 0a 09 09 7d 0a 0a 09 09 58 35  RROR);...}....X5
bf20: 30 39 5f 73 65 74 5f 76 65 72 73 69 6f 6e 28 63  09_set_version(c
bf30: 65 72 74 2c 32 29 3b 0a 09 09 41 53 4e 31 5f 49  ert,2);...ASN1_I
bf40: 4e 54 45 47 45 52 5f 73 65 74 28 58 35 30 39 5f  NTEGER_set(X509_
bf50: 67 65 74 5f 73 65 72 69 61 6c 4e 75 6d 62 65 72  get_serialNumber
bf60: 28 63 65 72 74 29 2c 73 65 72 69 61 6c 29 3b 0a  (cert),serial);.
bf70: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53  #if OPENSSL_VERS
bf80: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31  ION_NUMBER < 0x1
bf90: 30 31 30 30 30 30 30 4c 0a 09 09 58 35 30 39 5f  0100000L...X509_
bfa0: 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f  gmtime_adj(X509_
bfb0: 67 65 74 5f 6e 6f 74 42 65 66 6f 72 65 28 63 65  get_notBefore(ce
bfc0: 72 74 29 2c 30 29 3b 0a 09 09 58 35 30 39 5f 67  rt),0);...X509_g
bfd0: 6d 74 69 6d 65 5f 61 64 6a 28 58 35 30 39 5f 67  mtime_adj(X509_g
bfe0: 65 74 5f 6e 6f 74 41 66 74 65 72 28 63 65 72 74  et_notAfter(cert
bff0: 29 2c 28 6c 6f 6e 67 29 36 30 2a 36 30 2a 32 34  ),(long)60*60*24
c000: 2a 64 61 79 73 29 3b 0a 23 65 6c 73 65 0a 09 09  *days);.#else...
c010: 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28  X509_gmtime_adj(
c020: 58 35 30 39 5f 67 65 74 6d 5f 6e 6f 74 42 65 66  X509_getm_notBef
c030: 6f 72 65 28 63 65 72 74 29 2c 30 29 3b 0a 09 09  ore(cert),0);...
c040: 58 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28  X509_gmtime_adj(
c050: 58 35 30 39 5f 67 65 74 6d 5f 6e 6f 74 41 66 74  X509_getm_notAft
c060: 65 72 28 63 65 72 74 29 2c 28 6c 6f 6e 67 29 36  er(cert),(long)6
c070: 30 2a 36 30 2a 32 34 2a 64 61 79 73 29 3b 0a 23  0*60*24*days);.#
c080: 65 6e 64 69 66 0a 09 09 58 35 30 39 5f 73 65 74  endif...X509_set
c090: 5f 70 75 62 6b 65 79 28 63 65 72 74 2c 70 6b 65  _pubkey(cert,pke
c0a0: 79 29 3b 0a 09 09 0a 09 09 6e 61 6d 65 3d 58 35  y);......name=X5
c0b0: 30 39 5f 67 65 74 5f 73 75 62 6a 65 63 74 5f 6e  09_get_subject_n
c0c0: 61 6d 65 28 63 65 72 74 29 3b 0a 0a 09 09 58 35  ame(cert);....X5
c0d0: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72  09_NAME_add_entr
c0e0: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 43  y_by_txt(name,"C
c0f0: 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c  ", MBSTRING_ASC,
c100: 20 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64   (const unsigned
c110: 20 63 68 61 72 20 2a 29 20 6b 5f 43 2c 20 2d 31   char *) k_C, -1
c120: 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39  , -1, 0);...X509
c130: 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f  _NAME_add_entry_
c140: 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 53 54 22  by_txt(name,"ST"
c150: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20  , MBSTRING_ASC, 
c160: 28 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20  (const unsigned 
c170: 63 68 61 72 20 2a 29 20 6b 5f 53 54 2c 20 2d 31  char *) k_ST, -1
c180: 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39  , -1, 0);...X509
c190: 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f  _NAME_add_entry_
c1a0: 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4c 22 2c  by_txt(name,"L",
c1b0: 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28   MBSTRING_ASC, (
c1c0: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63  const unsigned c
c1d0: 68 61 72 20 2a 29 20 6b 5f 4c 2c 20 2d 31 2c 20  har *) k_L, -1, 
c1e0: 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e  -1, 0);...X509_N
c1f0: 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79  AME_add_entry_by
c200: 5f 74 78 74 28 6e 61 6d 65 2c 22 4f 22 2c 20 4d  _txt(name,"O", M
c210: 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 63 6f  BSTRING_ASC, (co
c220: 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61  nst unsigned cha
c230: 72 20 2a 29 20 6b 5f 4f 2c 20 2d 31 2c 20 2d 31  r *) k_O, -1, -1
c240: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d  , 0);...X509_NAM
c250: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74  E_add_entry_by_t
c260: 78 74 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d 42  xt(name,"OU", MB
c270: 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 63 6f 6e  STRING_ASC, (con
c280: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
c290: 20 2a 29 20 6b 5f 4f 55 2c 20 2d 31 2c 20 2d 31   *) k_OU, -1, -1
c2a0: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d  , 0);...X509_NAM
c2b0: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74  E_add_entry_by_t
c2c0: 78 74 28 6e 61 6d 65 2c 22 43 4e 22 2c 20 4d 42  xt(name,"CN", MB
c2d0: 53 54 52 49 4e 47 5f 41 53 43 2c 20 28 63 6f 6e  STRING_ASC, (con
c2e0: 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72  st unsigned char
c2f0: 20 2a 29 20 6b 5f 43 4e 2c 20 2d 31 2c 20 2d 31   *) k_CN, -1, -1
c300: 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d  , 0);...X509_NAM
c310: 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74  E_add_entry_by_t
c320: 78 74 28 6e 61 6d 65 2c 22 45 6d 61 69 6c 22 2c  xt(name,"Email",
c330: 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20 28   MBSTRING_ASC, (
c340: 63 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63  const unsigned c
c350: 68 61 72 20 2a 29 20 6b 5f 45 6d 61 69 6c 2c 20  har *) k_Email, 
c360: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 0a 09 09 58  -1, -1, 0);....X
c370: 35 30 39 5f 73 65 74 5f 73 75 62 6a 65 63 74 5f  509_set_subject_
c380: 6e 61 6d 65 28 63 65 72 74 2c 6e 61 6d 65 29 3b  name(cert,name);
c390: 0a 0a 09 09 69 66 20 28 21 58 35 30 39 5f 73 69  ....if (!X509_si
c3a0: 67 6e 28 63 65 72 74 2c 70 6b 65 79 2c 45 56 50  gn(cert,pkey,EVP
c3b0: 5f 73 68 61 32 35 36 28 29 29 29 20 7b 0a 09 09  _sha256())) {...
c3c0: 20 20 20 20 58 35 30 39 5f 66 72 65 65 28 63 65      X509_free(ce
c3d0: 72 74 29 3b 0a 09 09 20 20 20 20 45 56 50 5f 50  rt);...    EVP_P
c3e0: 4b 45 59 5f 66 72 65 65 28 70 6b 65 79 29 3b 0a  KEY_free(pkey);.
c3f0: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53  #if OPENSSL_VERS
c400: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 20 30 78 31  ION_NUMBER > 0x1
c410: 30 31 30 30 30 30 30 4c 20 26 26 20 4f 50 45 4e  0100000L && OPEN
c420: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42  SSL_VERSION_NUMB
c430: 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c  ER < 0x30000000L
c440: 0a 09 09 20 20 20 20 42 4e 5f 66 72 65 65 28 62  ...    BN_free(b
c450: 6e 65 29 3b 0a 23 65 6e 64 69 66 0a 09 09 20 20  ne);.#endif...  
c460: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28    Tcl_SetResult(
c470: 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 73 69  interp,"Error si
c480: 67 6e 69 6e 67 20 63 65 72 74 69 66 69 63 61 74  gning certificat
c490: 65 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20  e",NULL);...    
c4a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
c4b0: 3b 0a 09 09 7d 0a 0a 09 09 69 66 20 28 69 73 53  ;...}....if (isS
c4c0: 74 72 29 20 7b 0a 09 09 20 20 20 20 6f 75 74 3d  tr) {...    out=
c4d0: 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 6d 65  BIO_new(BIO_s_me
c4e0: 6d 28 29 29 3b 0a 09 09 20 20 20 20 50 45 4d 5f  m());...    PEM_
c4f0: 77 72 69 74 65 5f 62 69 6f 5f 58 35 30 39 28 6f  write_bio_X509(o
c500: 75 74 2c 63 65 72 74 29 3b 0a 09 09 20 20 20 20  ut,cert);...    
c510: 69 3d 42 49 4f 5f 72 65 61 64 28 6f 75 74 2c 62  i=BIO_read(out,b
c520: 75 66 66 65 72 2c 73 69 7a 65 6f 66 28 62 75 66  uffer,sizeof(buf
c530: 66 65 72 29 2d 31 29 3b 0a 09 09 20 20 20 20 69  fer)-1);...    i
c540: 3d 28 69 3c 30 29 20 3f 20 30 20 3a 20 69 3b 0a  =(i<0) ? 0 : i;.
c550: 09 09 20 20 20 20 62 75 66 66 65 72 5b 69 5d 3d  ..    buffer[i]=
c560: 27 5c 30 27 3b 0a 09 09 20 20 20 20 54 63 6c 5f  '\0';...    Tcl_
c570: 53 65 74 56 61 72 28 69 6e 74 65 72 70 2c 70 65  SetVar(interp,pe
c580: 6d 6f 75 74 2c 62 75 66 66 65 72 2c 30 29 3b 0a  mout,buffer,0);.
c590: 09 09 20 20 20 20 42 49 4f 5f 66 6c 75 73 68 28  ..    BIO_flush(
c5a0: 6f 75 74 29 3b 0a 09 09 20 20 20 20 42 49 4f 5f  out);...    BIO_
c5b0: 66 72 65 65 28 6f 75 74 29 3b 0a 09 09 7d 20 65  free(out);...} e
c5c0: 6c 73 65 20 7b 0a 09 09 20 20 20 20 6f 75 74 3d  lse {...    out=
c5d0: 42 49 4f 5f 6e 65 77 28 42 49 4f 5f 73 5f 66 69  BIO_new(BIO_s_fi
c5e0: 6c 65 28 29 29 3b 0a 09 09 20 20 20 20 42 49 4f  le());...    BIO
c5f0: 5f 77 72 69 74 65 5f 66 69 6c 65 6e 61 6d 65 28  _write_filename(
c600: 6f 75 74 2c 70 65 6d 6f 75 74 29 3b 0a 09 09 20  out,pemout);... 
c610: 20 20 20 50 45 4d 5f 77 72 69 74 65 5f 62 69 6f     PEM_write_bio
c620: 5f 58 35 30 39 28 6f 75 74 2c 63 65 72 74 29 3b  _X509(out,cert);
c630: 0a 09 09 20 20 20 20 42 49 4f 5f 66 72 65 65 5f  ...    BIO_free_
c640: 61 6c 6c 28 6f 75 74 29 3b 0a 09 09 7d 0a 0a 09  all(out);...}...
c650: 09 58 35 30 39 5f 66 72 65 65 28 63 65 72 74 29  .X509_free(cert)
c660: 3b 0a 09 09 45 56 50 5f 50 4b 45 59 5f 66 72 65  ;...EVP_PKEY_fre
c670: 65 28 70 6b 65 79 29 3b 0a 23 69 66 20 4f 50 45  e(pkey);.#if OPE
c680: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d  NSSL_VERSION_NUM
c690: 42 45 52 20 3e 20 30 78 31 30 31 30 30 30 30 30  BER > 0x10100000
c6a0: 4c 20 26 26 20 4f 50 45 4e 53 53 4c 5f 56 45 52  L && OPENSSL_VER
c6b0: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78  SION_NUMBER < 0x
c6c0: 33 30 30 30 30 30 30 30 4c 0a 09 09 42 4e 5f 66  30000000L...BN_f
c6d0: 72 65 65 28 62 6e 65 29 3b 0a 23 65 6e 64 69 66  ree(bne);.#endif
c6e0: 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 62 72 65 61  ..    }..}..brea
c6f0: 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74 3a 0a  k;.    default:.
c700: 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20  .break;.    }.  
c710: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
c720: 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61  .    .clientData
c730: 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d   = clientData;.}
c740: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
c750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
c790: 2a 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a 20 2a  * Tls_Free --. *
c7a0: 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75  . *.This procedu
c7b0: 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77 68 65  re cleans up whe
c7c0: 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74 20 62  n a SSL socket b
c7d0: 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20 2a 09  ased channel. *.
c7e0: 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20 69 74  is closed and it
c7f0: 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f 75 6e  s reference coun
c800: 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20 31 0a  t falls below 1.
c810: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
c820: 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64  *.none. *. * Sid
c830: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 46 72  e effects:. *.Fr
c840: 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74 61 74  ees all the stat
c850: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  e. *. *---------
c860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76  ----------. */.v
c8a0: 6f 69 64 0a 54 6c 73 5f 46 72 65 65 28 20 63 68  oid.Tls_Free( ch
c8b0: 61 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29 0a 7b  ar *blockPtr ).{
c8c0: 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61 74  .    State *stat
c8d0: 65 50 74 72 20 3d 20 28 53 74 61 74 65 20 2a 29  ePtr = (State *)
c8e0: 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20 20 64  blockPtr;..    d
c8f0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29  printf("Called")
c900: 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65 61 6e  ;..    Tls_Clean
c910: 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20  (statePtr);.    
c920: 63 6b 66 72 65 65 28 62 6c 6f 63 6b 50 74 72 29  ckfree(blockPtr)
c930: 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  ;.}.../*. *-----
c940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
c970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
c980: 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 61 6e 20 2d  *. * Tls_Clean -
c990: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f  -. *. *.This pro
c9a0: 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20 75 70  cedure cleans up
c9b0: 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b   when a SSL sock
c9c0: 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c  et based channel
c9d0: 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 6e  . *.is closed an
c9e0: 64 20 69 74 73 20 72 65 66 65 72 65 6e 63 65 20  d its reference 
c9f0: 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f  count falls belo
ca00: 77 20 31 2e 20 20 54 68 69 73 20 73 68 6f 75 6c  w 1.  This shoul
ca10: 64 0a 20 2a 09 62 65 20 63 61 6c 6c 65 64 20 73  d. *.be called s
ca20: 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 62 79 20  ynchronously by 
ca30: 74 68 65 20 43 6c 6f 73 65 50 72 6f 63 2c 20 6e  the CloseProc, n
ca40: 6f 74 20 69 6e 20 74 68 65 0a 20 2a 09 45 76 65  ot in the. *.Eve
ca50: 6e 74 75 61 6c 6c 79 46 72 65 65 20 63 61 6c 6c  ntuallyFree call
ca60: 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  back.. *. * Resu
ca70: 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a  lts:. *.none. *.
ca80: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
ca90: 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20 74 68  . *.Frees all th
caa0: 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d  e state. *. *---
cab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
caf0: 0a 20 2a 2f 0a 76 6f 69 64 20 54 6c 73 5f 43 6c  . */.void Tls_Cl
cb00: 65 61 6e 28 53 74 61 74 65 20 2a 73 74 61 74 65  ean(State *state
cb10: 50 74 72 29 20 7b 0a 20 20 20 20 64 70 72 69 6e  Ptr) {.    dprin
cb20: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20  tf("Called");.. 
cb30: 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 77 65 27     /*.     * we'
cb40: 72 65 20 61 73 73 75 6d 69 6e 67 20 68 65 72 65  re assuming here
cb50: 20 74 68 61 74 20 77 65 27 72 65 20 73 69 6e 67   that we're sing
cb60: 6c 65 2d 74 68 72 65 61 64 65 64 0a 20 20 20 20  le-threaded.    
cb70: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74   */.    if (stat
cb80: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28  ePtr->timer != (
cb90: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20  Tcl_TimerToken) 
cba0: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c  NULL) {..Tcl_Del
cbb0: 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28  eteTimerHandler(
cbc0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29  statePtr->timer)
cbd0: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d  ;..statePtr->tim
cbe0: 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d  er = NULL;.    }
cbf0: 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50  ..    if (stateP
cc00: 74 72 2d 3e 62 69 6f 29 20 7b 0a 09 2f 2a 20 54  tr->bio) {../* T
cc10: 68 69 73 20 77 69 6c 6c 20 63 61 6c 6c 20 53 53  his will call SS
cc20: 4c 5f 73 68 75 74 64 6f 77 6e 2e 20 42 75 67 20  L_shutdown. Bug 
cc30: 31 34 31 34 30 34 35 20 2a 2f 0a 09 64 70 72 69  1414045 */..dpri
cc40: 6e 74 66 28 22 42 49 4f 5f 66 72 65 65 5f 61 6c  ntf("BIO_free_al
cc50: 6c 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 72  l(%p)", statePtr
cc60: 2d 3e 62 69 6f 29 3b 0a 09 42 49 4f 5f 66 72 65  ->bio);..BIO_fre
cc70: 65 5f 61 6c 6c 28 73 74 61 74 65 50 74 72 2d 3e  e_all(statePtr->
cc80: 62 69 6f 29 3b 0a 09 73 74 61 74 65 50 74 72 2d  bio);..statePtr-
cc90: 3e 62 69 6f 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20  >bio = NULL;.   
cca0: 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 65   }.    if (state
ccb0: 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 64 70 72  Ptr->ssl) {..dpr
ccc0: 69 6e 74 66 28 22 53 53 4c 5f 66 72 65 65 28 25  intf("SSL_free(%
ccd0: 70 29 22 2c 20 73 74 61 74 65 50 74 72 2d 3e 73  p)", statePtr->s
cce0: 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 65 65 28 73  sl);..SSL_free(s
ccf0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 09  tatePtr->ssl);..
cd00: 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d 20  statePtr->ssl = 
cd10: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20  NULL;.    }.    
cd20: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 63 74  if (statePtr->ct
cd30: 78 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 72  x) {..SSL_CTX_fr
cd40: 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63 74 78  ee(statePtr->ctx
cd50: 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 63 74  );..statePtr->ct
cd60: 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a  x = NULL;.    }.
cd70: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72      if (statePtr
cd80: 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 7b 0a 09 54  ->callback) {..T
cd90: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28  cl_DecrRefCount(
cda0: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61  statePtr->callba
cdb0: 63 6b 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e  ck);..statePtr->
cdc0: 63 61 6c 6c 62 61 63 6b 20 3d 20 4e 55 4c 4c 3b  callback = NULL;
cdd0: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73  .    }.    if (s
cde0: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72  tatePtr->passwor
cdf0: 64 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65  d) {..Tcl_DecrRe
ce00: 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74 72 2d  fCount(statePtr-
ce10: 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 73 74 61  >password);..sta
ce20: 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 20  tePtr->password 
ce30: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20  = NULL;.    }.. 
ce40: 20 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75     dprintf("Retu
ce50: 72 6e 69 6e 67 22 29 3b 0a 7d 0a 0c 0a 2f 2a 0a  rning");.}.../*.
ce60: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
ce70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ce80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ce90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cea0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f  -----. *. * Tls_
ceb0: 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68  Init --. *. *.Th
cec0: 69 73 20 69 73 20 61 20 70 61 63 6b 61 67 65 20  is is a package 
ced0: 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 70  initialization p
cee0: 72 6f 63 65 64 75 72 65 2c 20 77 68 69 63 68 20  rocedure, which 
cef0: 69 73 20 63 61 6c 6c 65 64 0a 20 2a 09 62 79 20  is called. *.by 
cf00: 54 63 6c 20 77 68 65 6e 20 74 68 69 73 20 70 61  Tcl when this pa
cf10: 63 6b 61 67 65 20 69 73 20 74 6f 20 62 65 20 61  ckage is to be a
cf20: 64 64 65 64 20 74 6f 20 61 6e 20 69 6e 74 65 72  dded to an inter
cf30: 70 72 65 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 65  preter.. *. * Re
cf40: 73 75 6c 74 73 3a 20 20 53 73 6c 20 63 6f 6e 66  sults:  Ssl conf
cf50: 69 67 75 72 65 64 20 61 6e 64 20 6c 6f 61 64 65  igured and loade
cf60: 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  d. *. * Side eff
cf70: 65 63 74 73 3a 0a 20 2a 09 20 63 72 65 61 74 65  ects:. *. create
cf80: 20 74 68 65 20 73 73 6c 20 63 6f 6d 6d 61 6e 64   the ssl command
cf90: 2c 20 69 6e 69 74 69 61 6c 69 7a 65 20 73 73 6c  , initialize ssl
cfa0: 20 63 6f 6e 74 65 78 74 0a 20 2a 0a 20 2a 2d 2d   context. *. *--
cfb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cfc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cfd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cfe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
cff0: 2d 0a 20 2a 2f 0a 0a 44 4c 4c 45 58 50 4f 52 54  -. */..DLLEXPORT
d000: 20 69 6e 74 20 54 6c 73 5f 49 6e 69 74 28 54 63   int Tls_Init(Tc
d010: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
d020: 29 20 7b 0a 09 63 6f 6e 73 74 20 63 68 61 72 20  ) {..const char 
d030: 74 6c 73 54 63 6c 49 6e 69 74 53 63 72 69 70 74  tlsTclInitScript
d040: 5b 5d 20 3d 20 7b 0a 23 69 6e 63 6c 75 64 65 20  [] = {.#include 
d050: 22 74 6c 73 2e 74 63 6c 2e 68 22 0a 20 20 20 20  "tls.tcl.h".    
d060: 20 20 20 20 20 20 20 20 30 78 30 30 0a 09 7d 3b          0x00..};
d070: 0a 0a 20 20 20 20 20 20 20 20 64 70 72 69 6e 74  ..        dprint
d080: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 2f  f("Called");.../
d090: 2a 0a 09 20 2a 20 57 65 20 6f 6e 6c 79 20 73 75  *.. * We only su
d0a0: 70 70 6f 72 74 20 54 63 6c 20 38 2e 34 20 6f 72  pport Tcl 8.4 or
d0b0: 20 6e 65 77 65 72 0a 09 20 2a 2f 0a 09 69 66 20   newer.. */..if 
d0c0: 28 0a 23 69 66 64 65 66 20 55 53 45 5f 54 43 4c  (.#ifdef USE_TCL
d0d0: 5f 53 54 55 42 53 0a 09 20 20 20 20 54 63 6c 5f  _STUBS..    Tcl_
d0e0: 49 6e 69 74 53 74 75 62 73 28 69 6e 74 65 72 70  InitStubs(interp
d0f0: 2c 20 22 38 2e 34 22 2c 20 30 29 0a 23 65 6c 73  , "8.4", 0).#els
d100: 65 0a 09 20 20 20 20 54 63 6c 5f 50 6b 67 52 65  e..    Tcl_PkgRe
d110: 71 75 69 72 65 28 69 6e 74 65 72 70 2c 20 22 54  quire(interp, "T
d120: 63 6c 22 2c 20 22 38 2e 34 2d 22 2c 20 30 29 0a  cl", "8.4-", 0).
d130: 23 65 6e 64 69 66 0a 09 20 20 20 20 20 3d 3d 20  #endif..     == 
d140: 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e  NULL) {...return
d150: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a   TCL_ERROR;..}..
d160: 09 69 66 20 28 54 6c 73 4c 69 62 49 6e 69 74 28  .if (TlsLibInit(
d170: 30 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a  0) != TCL_OK) {.
d180: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
d190: 6c 74 28 69 6e 74 65 72 70 2c 20 22 63 6f 75 6c  lt(interp, "coul
d1a0: 64 20 6e 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65  d not initialize
d1b0: 20 53 53 4c 20 6c 69 62 72 61 72 79 22 2c 20 4e   SSL library", N
d1c0: 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54  ULL);...return T
d1d0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 54  CL_ERROR;..}...T
d1e0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d  cl_CreateObjComm
d1f0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73  and(interp, "tls
d200: 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 69 70 68  ::ciphers", Ciph
d210: 65 72 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65  ersObjCmd, (Clie
d220: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f  ntData) 0, (Tcl_
d230: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29  CmdDeleteProc *)
d240: 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65   NULL);..Tcl_Cre
d250: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e  ateObjCommand(in
d260: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 68 61 6e 64  terp, "tls::hand
d270: 73 68 61 6b 65 22 2c 20 48 61 6e 64 73 68 61 6b  shake", Handshak
d280: 65 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74  eObjCmd, (Client
d290: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d  Data) 0, (Tcl_Cm
d2a0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e  dDeleteProc *) N
d2b0: 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74  ULL);..Tcl_Creat
d2c0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
d2d0: 72 70 2c 20 22 74 6c 73 3a 3a 69 6d 70 6f 72 74  rp, "tls::import
d2e0: 22 2c 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c  ", ImportObjCmd,
d2f0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c   (ClientData) 0,
d300: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50   (Tcl_CmdDeleteP
d310: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54  roc *) NULL);..T
d320: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d  cl_CreateObjComm
d330: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73  and(interp, "tls
d340: 3a 3a 75 6e 69 6d 70 6f 72 74 22 2c 20 55 6e 69  ::unimport", Uni
d350: 6d 70 6f 72 74 4f 62 6a 43 6d 64 2c 20 28 43 6c  mportObjCmd, (Cl
d360: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63  ientData) 0, (Tc
d370: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20  l_CmdDeleteProc 
d380: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43  *) NULL);..Tcl_C
d390: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28  reateObjCommand(
d3a0: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 73 74  interp, "tls::st
d3b0: 61 74 75 73 22 2c 20 53 74 61 74 75 73 4f 62 6a  atus", StatusObj
d3c0: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61  Cmd, (ClientData
d3d0: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c  ) 0, (Tcl_CmdDel
d3e0: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29  eteProc *) NULL)
d3f0: 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a  ;..Tcl_CreateObj
d400: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
d410: 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20  "tls::version", 
d420: 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 20 28  VersionObjCmd, (
d430: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28  ClientData) 0, (
d440: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f  Tcl_CmdDeletePro
d450: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c  c *) NULL);..Tcl
d460: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
d470: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a  d(interp, "tls::
d480: 6d 69 73 63 22 2c 20 4d 69 73 63 4f 62 6a 43 6d  misc", MiscObjCm
d490: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20  d, (ClientData) 
d4a0: 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74  0, (Tcl_CmdDelet
d4b0: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a  eProc *) NULL);.
d4c0: 0a 09 69 66 20 28 69 6e 74 65 72 70 29 20 7b 0a  ..if (interp) {.
d4d0: 09 09 54 63 6c 5f 45 76 61 6c 28 69 6e 74 65 72  ..Tcl_Eval(inter
d4e0: 70 2c 20 74 6c 73 54 63 6c 49 6e 69 74 53 63 72  p, tlsTclInitScr
d4f0: 69 70 74 29 3b 0a 09 7d 0a 0a 09 72 65 74 75 72  ipt);..}...retur
d500: 6e 28 54 63 6c 5f 50 6b 67 50 72 6f 76 69 64 65  n(Tcl_PkgProvide
d510: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 22 2c 20  (interp, "tls", 
d520: 50 41 43 4b 41 47 45 5f 56 45 52 53 49 4f 4e 29  PACKAGE_VERSION)
d530: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  );.}../*. *-----
d540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d570: 2d 2a 0a 20 2a 0a 20 2a 09 54 6c 73 5f 53 61 66  -*. *. *.Tls_Saf
d580: 65 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09 2d  eInit --. *. *.-
d590: 2d 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 2a  ---------------*
d5c0: 0a 20 2a 09 53 74 61 6e 64 61 72 64 20 70 72 6f  . *.Standard pro
d5d0: 63 65 64 75 72 65 20 72 65 71 75 69 72 65 64 20  cedure required 
d5e0: 62 79 20 27 6c 6f 61 64 27 2e 20 0a 20 2a 09 49  by 'load'. . *.I
d5f0: 6e 69 74 69 61 6c 69 7a 65 73 20 74 68 69 73 20  nitializes this 
d600: 65 78 74 65 6e 73 69 6f 6e 20 66 6f 72 20 61 20  extension for a 
d610: 73 61 66 65 20 69 6e 74 65 72 70 72 65 74 65 72  safe interpreter
d620: 2e 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *.-----------
d630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d650: 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09 53 69 64  -----*. *. *.Sid
d660: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 09 41  e effects:. *..A
d670: 73 20 6f 66 20 27 54 6c 73 5f 49 6e 69 74 27 0a  s of 'Tls_Init'.
d680: 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a   *. *.Result:. *
d690: 09 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c  ..A standard Tcl
d6a0: 20 65 72 72 6f 72 20 63 6f 64 65 2e 0a 20 2a 0a   error code.. *.
d6b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
d6c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d6d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d6e0: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 2f 0a 0a 44  --------*. */..D
d6f0: 4c 4c 45 58 50 4f 52 54 20 69 6e 74 20 54 6c 73  LLEXPORT int Tls
d700: 5f 53 61 66 65 49 6e 69 74 28 54 63 6c 5f 49 6e  _SafeInit(Tcl_In
d710: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a  terp *interp) {.
d720: 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64  .dprintf("Called
d730: 22 29 3b 0a 09 72 65 74 75 72 6e 28 54 6c 73 5f  ");..return(Tls_
d740: 49 6e 69 74 28 69 6e 74 65 72 70 29 29 3b 0a 7d  Init(interp));.}
d750: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
d760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20  -------------*. 
d790: 2a 0a 20 2a 09 54 6c 73 4c 69 62 49 6e 69 74 20  *. *.TlsLibInit 
d7a0: 2d 2d 0a 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d  --. *. *.-------
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 2a 0a 20 2a 09 49 6e  ---------*. *.In
d7e0: 69 74 69 61 6c 69 7a 65 73 20 53 53 4c 20 6c 69  itializes SSL li
d7f0: 62 72 61 72 79 20 6f 6e 63 65 20 70 65 72 20 61  brary once per a
d800: 70 70 6c 69 63 61 74 69 6f 6e 0a 20 2a 09 2d 2d  pplication. *.--
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 2d  ----------------
d830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a  --------------*.
d840: 20 2a 0a 20 2a 09 53 69 64 65 20 65 66 66 65 63   *. *.Side effec
d850: 74 73 3a 0a 20 2a 09 09 69 6e 69 74 69 61 6c 69  ts:. *..initiali
d860: 7a 65 73 20 53 53 4c 20 6c 69 62 72 61 72 79 0a  zes SSL library.
d870: 20 2a 0a 20 2a 09 52 65 73 75 6c 74 3a 0a 20 2a   *. *.Result:. *
d880: 09 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d  ..none. *. *----
d890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d8a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d8b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
d8c0: 2d 2d 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69  --*. */.static i
d8d0: 6e 74 20 54 6c 73 4c 69 62 49 6e 69 74 28 69 6e  nt TlsLibInit(in
d8e0: 74 20 75 6e 69 6e 69 74 69 61 6c 69 7a 65 29 20  t uninitialize) 
d8f0: 7b 0a 09 73 74 61 74 69 63 20 69 6e 74 20 69 6e  {..static int in
d900: 69 74 69 61 6c 69 7a 65 64 20 3d 20 30 3b 0a 09  itialized = 0;..
d910: 69 6e 74 20 73 74 61 74 75 73 20 3d 20 54 43 4c  int status = TCL
d920: 5f 4f 4b 3b 0a 23 69 66 20 64 65 66 69 6e 65 64  _OK;.#if defined
d930: 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53  (OPENSSL_THREADS
d940: 29 20 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c  ) && defined(TCL
d950: 5f 54 48 52 45 41 44 53 29 0a 09 73 69 7a 65 5f  _THREADS)..size_
d960: 74 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 23 65 6e  t num_locks;.#en
d970: 64 69 66 0a 0a 09 69 66 20 28 75 6e 69 6e 69 74  dif...if (uninit
d980: 69 61 6c 69 7a 65 29 20 7b 0a 09 09 69 66 20 28  ialize) {...if (
d990: 21 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b 0a  !initialized) {.
d9a0: 09 09 09 64 70 72 69 6e 74 66 28 22 41 73 6b 65  ...dprintf("Aske
d9b0: 64 20 74 6f 20 75 6e 69 6e 69 74 69 61 6c 69 7a  d to uninitializ
d9c0: 65 2c 20 62 75 74 20 77 65 20 61 72 65 20 6e 6f  e, but we are no
d9d0: 74 20 69 6e 69 74 69 61 6c 69 7a 65 64 22 29 3b  t initialized");
d9e0: 0a 0a 09 09 09 72 65 74 75 72 6e 28 54 43 4c 5f  .....return(TCL_
d9f0: 4f 4b 29 3b 0a 09 09 7d 0a 0a 09 09 64 70 72 69  OK);...}....dpri
da00: 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20 75 6e  ntf("Asked to un
da10: 69 6e 69 74 69 61 6c 69 7a 65 22 29 3b 0a 0a 23  initialize");..#
da20: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53  if defined(OPENS
da30: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64  SL_THREADS) && d
da40: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41  efined(TCL_THREA
da50: 44 53 29 0a 09 09 54 63 6c 5f 4d 75 74 65 78 4c  DS)...Tcl_MutexL
da60: 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 0a  ock(&init_mx);..
da70: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53  #if OPENSSL_VERS
da80: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31  ION_NUMBER < 0x1
da90: 30 30 30 30 30 30 30 4c 0a 09 09 43 52 59 50 54  0000000L...CRYPT
daa0: 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 61  O_set_locking_ca
dab0: 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 09 09  llback(NULL);...
dac0: 43 52 59 50 54 4f 5f 73 65 74 5f 69 64 5f 63 61  CRYPTO_set_id_ca
dad0: 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 23 65  llback(NULL);.#e
dae0: 6c 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53  lif OPENSSL_VERS
daf0: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31  ION_NUMBER < 0x1
db00: 30 31 30 30 30 30 30 4c 0a 09 09 43 52 59 50 54  0100000L...CRYPT
db10: 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 61  O_set_locking_ca
db20: 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a 09 09  llback(NULL);...
db30: 43 52 59 50 54 4f 5f 54 48 52 45 41 44 49 44 5f  CRYPTO_THREADID_
db40: 73 65 74 5f 63 61 6c 6c 62 61 63 6b 28 4e 55 4c  set_callback(NUL
db50: 4c 29 0a 23 65 6e 64 69 66 0a 0a 09 09 69 66 20  L).#endif....if 
db60: 28 6c 6f 63 6b 73 29 20 7b 0a 09 09 09 66 72 65  (locks) {....fre
db70: 65 28 6c 6f 63 6b 73 29 3b 0a 09 09 09 6c 6f 63  e(locks);....loc
db80: 6b 73 20 3d 20 4e 55 4c 4c 3b 0a 09 09 09 6c 6f  ks = NULL;....lo
db90: 63 6b 73 43 6f 75 6e 74 20 3d 20 30 3b 0a 09 09  cksCount = 0;...
dba0: 7d 0a 23 65 6e 64 69 66 0a 09 09 69 6e 69 74 69  }.#endif...initi
dbb0: 61 6c 69 7a 65 64 20 3d 20 30 3b 0a 0a 23 69 66  alized = 0;..#if
dbc0: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c   defined(OPENSSL
dbd0: 5f 54 48 52 45 41 44 53 29 20 26 26 20 64 65 66  _THREADS) && def
dbe0: 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41 44 53  ined(TCL_THREADS
dbf0: 29 0a 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c  )...Tcl_MutexUnl
dc00: 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23  ock(&init_mx);.#
dc10: 65 6e 64 69 66 0a 0a 09 09 72 65 74 75 72 6e 28  endif....return(
dc20: 54 43 4c 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 69 66  TCL_OK);..}...if
dc30: 20 28 69 6e 69 74 69 61 6c 69 7a 65 64 29 20 7b   (initialized) {
dc40: 0a 09 09 64 70 72 69 6e 74 66 28 22 43 61 6c 6c  ...dprintf("Call
dc50: 65 64 2c 20 62 75 74 20 75 73 69 6e 67 20 63 61  ed, but using ca
dc60: 63 68 65 64 20 76 61 6c 75 65 22 29 3b 0a 09 09  ched value");...
dc70: 72 65 74 75 72 6e 28 73 74 61 74 75 73 29 3b 0a  return(status);.
dc80: 09 7d 0a 0a 09 64 70 72 69 6e 74 66 28 22 43 61  .}...dprintf("Ca
dc90: 6c 6c 65 64 22 29 3b 0a 0a 23 69 66 20 64 65 66  lled");..#if def
dca0: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52  ined(OPENSSL_THR
dcb0: 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64  EADS) && defined
dcc0: 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 54  (TCL_THREADS)..T
dcd0: 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b 28 26 69 6e  cl_MutexLock(&in
dce0: 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 69 66 0a 09  it_mx);.#endif..
dcf0: 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 31 3b  initialized = 1;
dd00: 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50  ..#if defined(OP
dd10: 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26  ENSSL_THREADS) &
dd20: 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48  & defined(TCL_TH
dd30: 52 45 41 44 53 29 0a 23 69 66 20 4f 50 45 4e 53  READS).#if OPENS
dd40: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45  SL_VERSION_NUMBE
dd50: 52 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a  R < 0x10100000L.
dd60: 09 6e 75 6d 5f 6c 6f 63 6b 73 20 3d 20 43 52 59  .num_locks = CRY
dd70: 50 54 4f 5f 6e 75 6d 5f 6c 6f 63 6b 73 28 29 3b  PTO_num_locks();
dd80: 0a 23 65 6c 73 65 0a 09 6e 75 6d 5f 6c 6f 63 6b  .#else..num_lock
dd90: 73 20 3d 20 31 3b 0a 23 65 6e 64 69 66 0a 09 6c  s = 1;.#endif..l
dda0: 6f 63 6b 73 43 6f 75 6e 74 20 3d 20 28 69 6e 74  ocksCount = (int
ddb0: 29 20 6e 75 6d 5f 6c 6f 63 6b 73 3b 0a 09 6c 6f  ) num_locks;..lo
ddc0: 63 6b 73 20 3d 20 6d 61 6c 6c 6f 63 28 73 69 7a  cks = malloc(siz
ddd0: 65 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e 75  eof(*locks) * nu
dde0: 6d 5f 6c 6f 63 6b 73 29 3b 0a 09 6d 65 6d 73 65  m_locks);..memse
ddf0: 74 28 6c 6f 63 6b 73 2c 20 30 2c 20 73 69 7a 65  t(locks, 0, size
de00: 6f 66 28 2a 6c 6f 63 6b 73 29 20 2a 20 6e 75 6d  of(*locks) * num
de10: 5f 6c 6f 63 6b 73 29 3b 0a 0a 23 69 66 20 4f 50  _locks);..#if OP
de20: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55  ENSSL_VERSION_NU
de30: 4d 42 45 52 20 3c 20 30 78 31 30 30 30 30 30 30  MBER < 0x1000000
de40: 30 4c 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f 6c  0L..CRYPTO_set_l
de50: 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b 28  ocking_callback(
de60: 43 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63 6b  CryptoThreadLock
de70: 43 61 6c 6c 62 61 63 6b 29 3b 0a 09 43 52 59 50  Callback);..CRYP
de80: 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c 6c 62 61  TO_set_id_callba
de90: 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 64 49  ck(CryptoThreadI
dea0: 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 23 65 6c 69  dCallback);.#eli
deb0: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f  f OPENSSL_VERSIO
dec0: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31  N_NUMBER < 0x101
ded0: 30 30 30 30 30 4c 0a 09 43 52 59 50 54 4f 5f 73  00000L..CRYPTO_s
dee0: 65 74 5f 6c 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62  et_locking_callb
def0: 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 64  ack(CryptoThread
df00: 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b 29 3b 0a 09  LockCallback);..
df10: 43 52 59 50 54 4f 5f 54 48 52 45 41 44 49 44 5f  CRYPTO_THREADID_
df20: 73 65 74 5f 63 61 6c 6c 62 61 63 6b 28 43 72 79  set_callback(Cry
df30: 70 74 6f 54 68 72 65 61 64 49 64 43 61 6c 6c 62  ptoThreadIdCallb
df40: 61 63 6b 29 0a 23 65 6e 64 69 66 0a 23 65 6e 64  ack).#endif.#end
df50: 69 66 0a 0a 23 20 69 66 20 4f 50 45 4e 53 53 4c  if..# if OPENSSL
df60: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20  _VERSION_NUMBER 
df70: 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a 09 69  < 0x10100000L..i
df80: 66 20 28 53 53 4c 5f 6c 69 62 72 61 72 79 5f 69  f (SSL_library_i
df90: 6e 69 74 28 29 20 21 3d 20 31 29 20 7b 0a 09 09  nit() != 1) {...
dfa0: 73 74 61 74 75 73 20 3d 20 54 43 4c 5f 45 52 52  status = TCL_ERR
dfb0: 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b  OR;...goto done;
dfc0: 0a 09 7d 0a 23 65 6c 73 65 0a 09 2f 2a 20 49 6e  ..}.#else../* In
dfd0: 69 74 69 61 6c 69 7a 65 20 42 4f 54 48 20 6c 69  itialize BOTH li
dfe0: 62 63 72 79 70 74 6f 20 61 6e 64 20 6c 69 62 73  bcrypto and libs
dff0: 73 6c 2e 20 2a 2f 0a 09 4f 50 45 4e 53 53 4c 5f  sl. */..OPENSSL_
e000: 69 6e 69 74 5f 73 73 6c 28 4f 50 45 4e 53 53 4c  init_ssl(OPENSSL
e010: 5f 49 4e 49 54 5f 4c 4f 41 44 5f 53 53 4c 5f 53  _INIT_LOAD_SSL_S
e020: 54 52 49 4e 47 53 20 7c 20 4f 50 45 4e 53 53 4c  TRINGS | OPENSSL
e030: 5f 49 4e 49 54 5f 4c 4f 41 44 5f 43 52 59 50 54  _INIT_LOAD_CRYPT
e040: 4f 5f 53 54 52 49 4e 47 53 0a 09 20 20 20 20 7c  O_STRINGS..    |
e050: 20 4f 50 45 4e 53 53 4c 5f 49 4e 49 54 5f 41 44   OPENSSL_INIT_AD
e060: 44 5f 41 4c 4c 5f 43 49 50 48 45 52 53 20 7c 20  D_ALL_CIPHERS | 
e070: 4f 50 45 4e 53 53 4c 5f 49 4e 49 54 5f 41 44 44  OPENSSL_INIT_ADD
e080: 5f 41 4c 4c 5f 44 49 47 45 53 54 53 2c 20 4e 55  _ALL_DIGESTS, NU
e090: 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 0a 23 20 69  LL);.#endif..# i
e0a0: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f  f OPENSSL_VERSIO
e0b0: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31  N_NUMBER < 0x101
e0c0: 30 30 30 30 30 4c 0a 09 53 53 4c 5f 6c 6f 61 64  00000L..SSL_load
e0d0: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 73 28 29  _error_strings()
e0e0: 3b 0a 09 45 52 52 5f 6c 6f 61 64 5f 63 72 79 70  ;..ERR_load_cryp
e0f0: 74 6f 5f 73 74 72 69 6e 67 73 28 29 3b 0a 23 65  to_strings();.#e
e100: 6c 73 65 0a 09 2f 2a 20 4f 6e 6c 79 20 69 6e 69  lse../* Only ini
e110: 74 69 61 6c 69 7a 65 20 6c 69 62 63 72 79 70 74  tialize libcrypt
e120: 6f 20 20 2a 2f 0a 09 4f 50 45 4e 53 53 4c 5f 69  o  */..OPENSSL_i
e130: 6e 69 74 5f 63 72 79 70 74 6f 28 4f 50 45 4e 53  nit_crypto(OPENS
e140: 53 4c 5f 49 4e 49 54 5f 4c 4f 41 44 5f 43 52 59  SL_INIT_LOAD_CRY
e150: 50 54 4f 5f 53 54 52 49 4e 47 53 2c 20 4e 55 4c  PTO_STRINGS, NUL
e160: 4c 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 42 49 4f  L);.#endif...BIO
e170: 5f 6e 65 77 5f 74 63 6c 28 4e 55 4c 4c 2c 20 30  _new_tcl(NULL, 0
e180: 29 3b 0a 0a 23 69 66 20 30 0a 09 2f 2a 0a 09 20  );..#if 0../*.. 
e190: 2a 20 58 58 58 3a 54 4f 44 4f 3a 20 52 65 6d 6f  * XXX:TODO: Remo
e1a0: 76 65 20 74 68 69 73 20 63 6f 64 65 20 61 6e 64  ve this code and
e1b0: 20 72 65 70 6c 61 63 65 20 69 74 20 77 69 74 68   replace it with
e1c0: 20 61 20 63 68 65 63 6b 0a 09 20 2a 20 66 6f 72   a check.. * for
e1d0: 20 65 6e 6f 75 67 68 20 65 6e 74 72 6f 70 79 20   enough entropy 
e1e0: 61 6e 64 20 64 6f 20 6e 6f 74 20 74 72 79 20 74  and do not try t
e1f0: 6f 20 63 72 65 61 74 65 20 6f 75 72 20 6f 77 6e  o create our own
e200: 0a 09 20 2a 20 74 65 72 72 69 62 6c 65 20 65 6e  .. * terrible en
e210: 74 72 6f 70 79 0a 09 20 2a 2f 0a 20 20 20 20 2f  tropy.. */.    /
e220: 2a 0a 20 20 20 20 20 2a 20 53 65 65 64 20 74 68  *.     * Seed th
e230: 65 20 72 61 6e 64 6f 6d 20 6e 75 6d 62 65 72 20  e random number 
e240: 67 65 6e 65 72 61 74 6f 72 20 69 6e 20 74 68 65  generator in the
e250: 20 53 53 4c 20 6c 69 62 72 61 72 79 2c 0a 20 20   SSL library,.  
e260: 20 20 20 2a 20 75 73 69 6e 67 20 74 68 65 20 64     * using the d
e270: 6f 2f 77 68 69 6c 65 20 63 6f 6e 73 74 72 75 63  o/while construc
e280: 74 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65  t because of the
e290: 20 62 75 67 20 6e 6f 74 65 20 69 6e 20 74 68 65   bug note in the
e2a0: 0a 20 20 20 20 20 2a 20 4f 70 65 6e 53 53 4c 20  .     * OpenSSL 
e2b0: 46 41 51 20 61 74 20 68 74 74 70 3a 2f 2f 77 77  FAQ at http://ww
e2c0: 77 2e 6f 70 65 6e 73 73 6c 2e 6f 72 67 2f 73 75  w.openssl.org/su
e2d0: 70 70 6f 72 74 2f 66 61 71 2e 68 74 6d 6c 23 55  pport/faq.html#U
e2e0: 53 45 52 31 0a 20 20 20 20 20 2a 0a 20 20 20 20  SER1.     *.    
e2f0: 20 2a 20 54 68 65 20 63 72 75 78 20 6f 66 20 74   * The crux of t
e300: 68 65 20 70 72 6f 62 6c 65 6d 20 69 73 20 74 68  he problem is th
e310: 61 74 20 53 6f 6c 61 72 69 73 20 37 20 64 6f 65  at Solaris 7 doe
e320: 73 20 6e 6f 74 20 68 61 76 65 20 61 20 0a 20 20  s not have a .  
e330: 20 20 20 2a 20 2f 64 65 76 2f 72 61 6e 64 6f 6d     * /dev/random
e340: 20 6f 72 20 2f 64 65 76 2f 75 72 61 6e 64 6f 6d   or /dev/urandom
e350: 20 64 65 76 69 63 65 20 73 6f 20 69 74 20 63 61   device so it ca
e360: 6e 6e 6f 74 20 67 61 74 68 65 72 20 65 6e 6f 75  nnot gather enou
e370: 67 68 0a 20 20 20 20 20 2a 20 65 6e 74 72 6f 70  gh.     * entrop
e380: 79 20 66 72 6f 6d 20 74 68 65 20 52 41 4e 44 5f  y from the RAND_
e390: 73 65 65 64 28 29 20 77 68 65 6e 20 54 4c 53 20  seed() when TLS 
e3a0: 69 6e 69 74 69 61 6c 69 7a 65 73 20 61 6e 64 20  initializes and 
e3b0: 72 65 66 75 73 65 73 0a 20 20 20 20 20 2a 20 74  refuses.     * t
e3c0: 6f 20 67 6f 20 66 75 72 74 68 65 72 2e 20 45 61  o go further. Ea
e3d0: 72 6c 69 65 72 20 76 65 72 73 69 6f 6e 73 20 6f  rlier versions o
e3e0: 66 20 4f 70 65 6e 53 53 4c 20 63 61 72 72 69 65  f OpenSSL carrie
e3f0: 64 20 6f 6e 20 72 65 67 61 72 64 6c 65 73 73 2e  d on regardless.
e400: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 73 72 61  .     */.    sra
e410: 6e 64 28 28 75 6e 73 69 67 6e 65 64 20 69 6e 74  nd((unsigned int
e420: 29 20 74 69 6d 65 28 28 74 69 6d 65 5f 74 20 2a  ) time((time_t *
e430: 29 20 4e 55 4c 4c 29 29 3b 0a 20 20 20 20 64 6f  ) NULL));.    do
e440: 20 7b 0a 09 66 6f 72 20 28 69 20 3d 20 30 3b 20   {..for (i = 0; 
e450: 69 20 3c 20 31 36 3b 20 69 2b 2b 29 20 7b 0a 09  i < 16; i++) {..
e460: 20 20 20 20 72 6e 64 5f 73 65 65 64 5b 69 5d 20      rnd_seed[i] 
e470: 3d 20 31 20 2b 20 28 63 68 61 72 29 20 28 32 35  = 1 + (char) (25
e480: 35 2e 30 20 2a 20 72 61 6e 64 28 29 2f 28 52 41  5.0 * rand()/(RA
e490: 4e 44 5f 4d 41 58 2b 31 2e 30 29 29 3b 0a 09 7d  ND_MAX+1.0));..}
e4a0: 0a 09 52 41 4e 44 5f 73 65 65 64 28 72 6e 64 5f  ..RAND_seed(rnd_
e4b0: 73 65 65 64 2c 20 73 69 7a 65 6f 66 28 72 6e 64  seed, sizeof(rnd
e4c0: 5f 73 65 65 64 29 29 3b 0a 20 20 20 20 7d 20 77  _seed));.    } w
e4d0: 68 69 6c 65 20 28 52 41 4e 44 5f 73 74 61 74 75  hile (RAND_statu
e4e0: 73 28 29 20 21 3d 20 31 29 3b 0a 23 65 6e 64 69  s() != 1);.#endi
e4f0: 66 0a 0a 23 20 69 66 20 4f 50 45 4e 53 53 4c 5f  f..# if OPENSSL_
e500: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c  VERSION_NUMBER <
e510: 20 30 78 31 30 31 30 30 30 30 30 4c 0a 64 6f 6e   0x10100000L.don
e520: 65 3a 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65  e:.#endif.#if de
e530: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48  fined(OPENSSL_TH
e540: 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65  READS) && define
e550: 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09  d(TCL_THREADS)..
e560: 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f 63 6b 28  Tcl_MutexUnlock(
e570: 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65 6e 64 69  &init_mx);.#endi
e580: 66 0a 0a 09 72 65 74 75 72 6e 28 73 74 61 74 75  f...return(statu
e590: 73 29 3b 0a 7d 0a                                s);.}.