Hex Artifact Content

Artifact b408a2502490714ebd990fd1b3b3bcd51a4ecc3edbd1af70979615459417bb75:


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 6c 69 62 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 45  dlib.h>../*. * E
0350: 78 74 65 72 6e 61 6c 20 66 75 6e 63 74 69 6f 6e  xternal function
0360: 73 0a 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 46 6f 72  s. */../*. * For
0370: 77 61 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e  ward declaration
0380: 73 0a 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 46  s. */..#define F
0390: 32 4e 28 20 6b 65 79 2c 20 64 73 70 29 20 5c 0a  2N( key, dsp) \.
03a0: 09 28 28 28 6b 65 79 29 20 3d 3d 20 4e 55 4c 4c  .(((key) == NULL
03b0: 29 20 3f 20 28 63 68 61 72 20 2a 29 20 4e 55 4c  ) ? (char *) NUL
03c0: 4c 20 3a 20 5c 0a 09 09 54 63 6c 5f 54 72 61 6e  L : \...Tcl_Tran
03d0: 73 6c 61 74 65 46 69 6c 65 4e 61 6d 65 28 69 6e  slateFileName(in
03e0: 74 65 72 70 2c 20 28 6b 65 79 29 2c 20 28 64 73  terp, (key), (ds
03f0: 70 29 29 29 0a 23 64 65 66 69 6e 65 20 52 45 41  p))).#define REA
0400: 53 4f 4e 28 29 09 45 52 52 5f 72 65 61 73 6f 6e  SON().ERR_reason
0410: 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28 45 52  _error_string(ER
0420: 52 5f 67 65 74 5f 65 72 72 6f 72 28 29 29 0a 0a  R_get_error())..
0430: 73 74 61 74 69 63 20 76 6f 69 64 09 49 6e 66 6f  static void.Info
0440: 43 61 6c 6c 62 61 63 6b 28 43 4f 4e 53 54 20 53  Callback(CONST S
0450: 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20 77 68 65  SL *ssl, int whe
0460: 72 65 2c 20 69 6e 74 20 72 65 74 29 3b 0a 0a 73  re, int ret);..s
0470: 74 61 74 69 63 20 69 6e 74 09 43 69 70 68 65 72  tatic int.Cipher
0480: 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61  sObjCmd(ClientDa
0490: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09  ta clientData,..
04a0: 09 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  ..Tcl_Interp *in
04b0: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20  terp, int objc, 
04c0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f  Tcl_Obj *CONST o
04d0: 62 6a 76 5b 5d 29 3b 0a 0a 73 74 61 74 69 63 20  bjv[]);..static 
04e0: 69 6e 74 09 48 61 6e 64 73 68 61 6b 65 4f 62 6a  int.HandshakeObj
04f0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63  Cmd(ClientData c
0500: 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63  lientData,....Tc
0510: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
0520: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f  , int objc, Tcl_
0530: 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj *CONST objv[
0540: 5d 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e 74 09  ]);..static int.
0550: 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 28 43 6c 69  ImportObjCmd(Cli
0560: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61  entData clientDa
0570: 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e 74 65 72  ta,....Tcl_Inter
0580: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f  p *interp, int o
0590: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  bjc, Tcl_Obj *CO
05a0: 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b 0a 0a 73 74  NST objv[]);..st
05b0: 61 74 69 63 20 69 6e 74 09 53 74 61 74 75 73 4f  atic int.StatusO
05c0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61  bjCmd(ClientData
05d0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09 09   clientData,....
05e0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
05f0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63  rp, int objc, Tc
0600: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
0610: 76 5b 5d 29 3b 0a 0a 73 74 61 74 69 63 20 69 6e  v[]);..static in
0620: 74 09 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28  t.VersionObjCmd(
0630: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
0640: 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f 49 6e  tData,....Tcl_In
0650: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
0660: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20  t objc, Tcl_Obj 
0670: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 3b 0a  *CONST objv[]);.
0680: 0a 73 74 61 74 69 63 20 69 6e 74 09 4d 69 73 63  .static int.Misc
0690: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74  ObjCmd(ClientDat
06a0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 0a 09 09  a clientData,...
06b0: 09 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  .Tcl_Interp *int
06c0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54  erp, int objc, T
06d0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
06e0: 6a 76 5b 5d 29 3b 0a 0a 73 74 61 74 69 63 20 69  jv[]);..static i
06f0: 6e 74 09 55 6e 69 6d 70 6f 72 74 4f 62 6a 43 6d  nt.UnimportObjCm
0700: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69  d(ClientData cli
0710: 65 6e 74 44 61 74 61 2c 0a 09 09 09 54 63 6c 5f  entData,....Tcl_
0720: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
0730: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
0740: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29  j *CONST objv[])
0750: 3b 0a 0a 73 74 61 74 69 63 20 53 53 4c 5f 43 54  ;..static SSL_CT
0760: 58 20 2a 43 54 58 5f 49 6e 69 74 28 53 74 61 74  X *CTX_Init(Stat
0770: 65 20 2a 73 74 61 74 65 50 74 72 2c 20 69 6e 74  e *statePtr, int
0780: 20 70 72 6f 74 6f 2c 20 63 68 61 72 20 2a 6b 65   proto, char *ke
0790: 79 2c 0a 09 09 09 63 68 61 72 20 2a 63 65 72 74  y,....char *cert
07a0: 2c 20 63 68 61 72 20 2a 43 41 64 69 72 2c 20 63  , char *CAdir, c
07b0: 68 61 72 20 2a 43 41 66 69 6c 65 2c 20 63 68 61  har *CAfile, cha
07c0: 72 20 2a 63 69 70 68 65 72 73 2c 0a 09 09 09 63  r *ciphers,....c
07d0: 68 61 72 20 2a 44 48 70 61 72 61 6d 73 29 3b 0a  har *DHparams);.
07e0: 0a 73 74 61 74 69 63 20 69 6e 74 09 54 6c 73 4c  .static int.TlsL
07f0: 69 62 49 6e 69 74 28 69 6e 74 20 75 6e 69 6e 69  ibInit(int unini
0800: 74 69 61 6c 69 7a 65 29 3b 0a 0a 23 64 65 66 69  tialize);..#defi
0810: 6e 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c  ne TLS_PROTO_SSL
0820: 32 09 09 30 78 30 31 0a 23 64 65 66 69 6e 65 20  2..0x01.#define 
0830: 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 09 09  TLS_PROTO_SSL3..
0840: 30 78 30 32 0a 23 64 65 66 69 6e 65 20 54 4c 53  0x02.#define TLS
0850: 5f 50 52 4f 54 4f 5f 54 4c 53 31 09 09 30 78 30  _PROTO_TLS1..0x0
0860: 34 0a 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52  4.#define TLS_PR
0870: 4f 54 4f 5f 54 4c 53 31 5f 31 09 30 78 30 38 0a  OTO_TLS1_1.0x08.
0880: 23 64 65 66 69 6e 65 20 54 4c 53 5f 50 52 4f 54  #define TLS_PROT
0890: 4f 5f 54 4c 53 31 5f 32 09 30 78 31 30 0a 23 64  O_TLS1_2.0x10.#d
08a0: 65 66 69 6e 65 20 45 4e 41 42 4c 45 44 28 66 6c  efine ENABLED(fl
08b0: 61 67 2c 20 6d 61 73 6b 29 09 28 28 28 66 6c 61  ag, mask).(((fla
08c0: 67 29 20 26 20 28 6d 61 73 6b 29 29 20 3d 3d 20  g) & (mask)) == 
08d0: 28 6d 61 73 6b 29 29 0a 0a 2f 2a 0a 20 2a 20 53  (mask))../*. * S
08e0: 74 61 74 69 63 20 64 61 74 61 20 73 74 72 75 63  tatic data struc
08f0: 74 75 72 65 73 0a 20 2a 2f 0a 0a 23 69 66 6e 64  tures. */..#ifnd
0900: 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44 48  ef OPENSSL_NO_DH
0910: 0a 23 69 6e 63 6c 75 64 65 20 22 64 68 5f 70 61  .#include "dh_pa
0920: 72 61 6d 73 2e 68 22 0a 23 65 6e 64 69 66 0a 0a  rams.h".#endif..
0930: 2f 2a 0a 20 2a 20 57 65 20 6c 6f 73 65 20 74 68  /*. * We lose th
0940: 65 20 74 63 6c 20 70 61 73 73 77 6f 72 64 20 63  e tcl password c
0950: 61 6c 6c 62 61 63 6b 20 77 68 65 6e 20 77 65 20  allback when we 
0960: 75 73 65 20 74 68 65 20 52 53 41 20 42 53 41 46  use the RSA BSAF
0970: 45 20 53 53 4c 2d 43 20 31 2e 31 2e 32 0a 20 2a  E SSL-C 1.1.2. *
0980: 20 6c 69 62 72 61 72 69 65 73 20 69 6e 73 74 65   libraries inste
0990: 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e  ad of the curren
09a0: 74 20 4f 70 65 6e 53 53 4c 20 6c 69 62 72 61 72  t OpenSSL librar
09b0: 69 65 73 2e 0a 20 2a 2f 0a 0a 23 69 66 64 65 66  ies.. */..#ifdef
09c0: 20 42 53 41 46 45 0a 23 64 65 66 69 6e 65 20 50   BSAFE.#define P
09d0: 52 45 5f 4f 50 45 4e 53 53 4c 5f 30 5f 39 5f 34  RE_OPENSSL_0_9_4
09e0: 20 31 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a   1.#endif../*. *
09f0: 20 50 72 65 20 4f 70 65 6e 53 53 4c 20 30 2e 39   Pre OpenSSL 0.9
0a00: 2e 34 20 43 6f 6d 70 61 74 0a 20 2a 2f 0a 0a 23  .4 Compat. */..#
0a10: 69 66 6e 64 65 66 20 53 54 41 43 4b 5f 4f 46 0a  ifndef STACK_OF.
0a20: 23 64 65 66 69 6e 65 20 53 54 41 43 4b 5f 4f 46  #define STACK_OF
0a30: 28 78 29 09 09 09 53 54 41 43 4b 0a 23 64 65 66  (x)...STACK.#def
0a40: 69 6e 65 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45  ine sk_SSL_CIPHE
0a50: 52 5f 6e 75 6d 28 73 6b 29 09 09 73 6b 5f 6e 75  R_num(sk)..sk_nu
0a60: 6d 28 28 73 6b 29 29 0a 23 64 65 66 69 6e 65 20  m((sk)).#define 
0a70: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61  sk_SSL_CIPHER_va
0a80: 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 09  lue( sk, index).
0a90: 28 53 53 4c 5f 43 49 50 48 45 52 2a 29 73 6b 5f  (SSL_CIPHER*)sk_
0aa0: 76 61 6c 75 65 28 28 73 6b 29 2c 20 28 69 6e 64  value((sk), (ind
0ab0: 65 78 29 29 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a  ex)).#endif../*.
0ac0: 20 2a 20 54 68 72 65 61 64 2d 53 61 66 65 20 54   * Thread-Safe T
0ad0: 4c 53 20 43 6f 64 65 0a 20 2a 2f 0a 0a 23 69 66  LS Code. */..#if
0ae0: 64 65 66 20 54 43 4c 5f 54 48 52 45 41 44 53 0a  def TCL_THREADS.
0af0: 23 64 65 66 69 6e 65 20 4f 50 45 4e 53 53 4c 5f  #define OPENSSL_
0b00: 54 48 52 45 41 44 5f 44 45 46 49 4e 45 53 0a 23  THREAD_DEFINES.#
0b10: 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 6c  include <openssl
0b20: 2f 6f 70 65 6e 73 73 6c 63 6f 6e 66 2e 68 3e 0a  /opensslconf.h>.
0b30: 0a 23 69 66 64 65 66 20 4f 50 45 4e 53 53 4c 5f  .#ifdef OPENSSL_
0b40: 54 48 52 45 41 44 53 0a 23 69 6e 63 6c 75 64 65  THREADS.#include
0b50: 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 70 74 6f   <openssl/crypto
0b60: 2e 68 3e 0a 0a 2f 2a 0a 20 2a 20 54 68 72 65 61  .h>../*. * Threa
0b70: 64 65 64 20 6f 70 65 72 61 74 69 6f 6e 20 72 65  ded operation re
0b80: 71 75 69 72 65 73 20 6c 6f 63 6b 69 6e 67 20 63  quires locking c
0b90: 61 6c 6c 62 61 63 6b 73 0a 20 2a 20 42 61 73 65  allbacks. * Base
0ba0: 64 20 66 72 6f 6d 20 2f 63 72 79 70 74 6f 2f 63  d from /crypto/c
0bb0: 72 79 70 74 6c 69 62 2e 63 20 6f 66 20 4f 70 65  ryptlib.c of Ope
0bc0: 6e 53 53 4c 20 61 6e 64 20 4e 53 4f 70 65 6e 53  nSSL and NSOpenS
0bd0: 53 4c 2e 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20  SL.. */..static 
0be0: 54 63 6c 5f 4d 75 74 65 78 20 2a 6c 6f 63 6b 73  Tcl_Mutex *locks
0bf0: 20 3d 20 4e 55 4c 4c 3b 0a 73 74 61 74 69 63 20   = NULL;.static 
0c00: 69 6e 74 20 6c 6f 63 6b 73 43 6f 75 6e 74 20 3d  int locksCount =
0c10: 20 30 3b 0a 73 74 61 74 69 63 20 54 63 6c 5f 4d   0;.static Tcl_M
0c20: 75 74 65 78 20 69 6e 69 74 5f 6d 78 3b 0a 0a 76  utex init_mx;..v
0c30: 6f 69 64 20 43 72 79 70 74 6f 54 68 72 65 61 64  oid CryptoThread
0c40: 4c 6f 63 6b 43 61 6c 6c 62 61 63 6b 28 69 6e 74  LockCallback(int
0c50: 20 6d 6f 64 65 2c 20 69 6e 74 20 6e 2c 20 63 6f   mode, int n, co
0c60: 6e 73 74 20 63 68 61 72 20 2a 66 69 6c 65 2c 20  nst char *file, 
0c70: 69 6e 74 20 6c 69 6e 65 29 20 7b 0a 0a 09 69 66  int line) {...if
0c80: 20 28 6d 6f 64 65 20 26 20 43 52 59 50 54 4f 5f   (mode & CRYPTO_
0c90: 4c 4f 43 4b 29 20 7b 0a 09 09 2f 2a 20 54 68 69  LOCK) {.../* Thi
0ca0: 73 20 64 65 62 75 67 67 69 6e 67 20 69 73 20 74  s debugging is t
0cb0: 75 72 6e 65 64 20 6f 66 66 20 62 79 20 64 65 66  urned off by def
0cc0: 61 75 6c 74 20 2d 2d 20 69 74 27 73 20 74 6f 6f  ault -- it's too
0cd0: 20 6e 6f 69 73 79 2e 20 2a 2f 0a 09 09 2f 2a 20   noisy. */.../* 
0ce0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 20  dprintf("Called 
0cf0: 74 6f 20 6c 6f 63 6b 20 28 6e 3d 25 69 20 6f 66  to lock (n=%i of
0d00: 20 25 69 29 22 2c 20 6e 2c 20 6c 6f 63 6b 73 43   %i)", n, locksC
0d10: 6f 75 6e 74 29 3b 20 2a 2f 0a 09 09 54 63 6c 5f  ount); */...Tcl_
0d20: 4d 75 74 65 78 4c 6f 63 6b 28 26 6c 6f 63 6b 73  MutexLock(&locks
0d30: 5b 6e 5d 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a  [n]);..} else {.
0d40: 09 09 2f 2a 20 64 70 72 69 6e 74 66 28 22 43 61  ../* dprintf("Ca
0d50: 6c 6c 65 64 20 74 6f 20 75 6e 6c 6f 63 6b 20 28  lled to unlock (
0d60: 6e 3d 25 69 20 6f 66 20 25 69 29 22 2c 20 6e 2c  n=%i of %i)", n,
0d70: 20 6c 6f 63 6b 73 43 6f 75 6e 74 29 3b 20 2a 2f   locksCount); */
0d80: 0a 09 09 54 63 6c 5f 4d 75 74 65 78 55 6e 6c 6f  ...Tcl_MutexUnlo
0d90: 63 6b 28 26 6c 6f 63 6b 73 5b 6e 5d 29 3b 0a 09  ck(&locks[n]);..
0da0: 7d 0a 0a 09 2f 2a 20 64 70 72 69 6e 74 66 28 22  }.../* dprintf("
0db0: 52 65 74 75 72 6e 69 6e 67 22 29 3b 20 2a 2f 0a  Returning"); */.
0dc0: 0a 09 72 65 74 75 72 6e 3b 0a 09 66 69 6c 65 20  ..return;..file 
0dd0: 3d 20 66 69 6c 65 3b 0a 09 6c 69 6e 65 20 3d 20  = file;..line = 
0de0: 6c 69 6e 65 3b 0a 7d 0a 0a 75 6e 73 69 67 6e 65  line;.}..unsigne
0df0: 64 20 6c 6f 6e 67 20 43 72 79 70 74 6f 54 68 72  d long CryptoThr
0e00: 65 61 64 49 64 43 61 6c 6c 62 61 63 6b 28 76 6f  eadIdCallback(vo
0e10: 69 64 29 20 7b 0a 09 75 6e 73 69 67 6e 65 64 20  id) {..unsigned 
0e20: 6c 6f 6e 67 20 72 65 74 3b 0a 0a 09 64 70 72 69  long ret;...dpri
0e30: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a  ntf("Called");..
0e40: 09 72 65 74 20 3d 20 28 75 6e 73 69 67 6e 65 64  .ret = (unsigned
0e50: 20 6c 6f 6e 67 29 20 54 63 6c 5f 47 65 74 43 75   long) Tcl_GetCu
0e60: 72 72 65 6e 74 54 68 72 65 61 64 28 29 3b 0a 0a  rrentThread();..
0e70: 09 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e  .dprintf("Return
0e80: 69 6e 67 20 25 6c 75 22 2c 20 72 65 74 29 3b 0a  ing %lu", ret);.
0e90: 0a 09 72 65 74 75 72 6e 28 72 65 74 29 3b 0a 7d  ..return(ret);.}
0ea0: 0a 23 65 6e 64 69 66 20 2f 2a 20 4f 50 45 4e 53  .#endif /* OPENS
0eb0: 53 4c 5f 54 48 52 45 41 44 53 20 2a 2f 0a 23 65  SL_THREADS */.#e
0ec0: 6e 64 69 66 20 2f 2a 20 54 43 4c 5f 54 48 52 45  ndif /* TCL_THRE
0ed0: 41 44 53 20 2a 2f 0a 0a 0c 0a 2f 2a 0a 20 2a 2d  ADS */..../*. *-
0ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0f20: 2d 2d 0a 20 2a 0a 20 2a 20 49 6e 66 6f 43 61 6c  --. *. * InfoCal
0f30: 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 6d  lback --. *. *.m
0f40: 6f 6e 69 74 6f 72 73 20 53 53 4c 20 63 6f 6e 6e  onitors SSL conn
0f50: 65 63 74 69 6f 6e 20 70 72 6f 63 65 73 73 0a 20  ection process. 
0f60: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
0f70: 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 20 53 69 64 65  .None. *. * Side
0f80: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 61 6c   effects:. *.Cal
0f90: 6c 73 20 63 61 6c 6c 62 61 63 6b 20 28 69 66 20  ls callback (if 
0fa0: 64 65 66 69 6e 65 64 29 0a 20 2a 2d 2d 2d 2d 2d  defined). *-----
0fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
0ff0: 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64 0a 49  */.static void.I
1000: 6e 66 6f 43 61 6c 6c 62 61 63 6b 28 43 4f 4e 53  nfoCallback(CONS
1010: 54 20 53 53 4c 20 2a 73 73 6c 2c 20 69 6e 74 20  T SSL *ssl, int 
1020: 77 68 65 72 65 2c 20 69 6e 74 20 72 65 74 29 0a  where, int ret).
1030: 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74 61  {.    State *sta
1040: 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 2a 29  tePtr = (State*)
1050: 53 53 4c 5f 67 65 74 5f 61 70 70 5f 64 61 74 61  SSL_get_app_data
1060: 28 28 53 53 4c 20 2a 29 73 73 6c 29 3b 0a 20 20  ((SSL *)ssl);.  
1070: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74    Tcl_Obj *cmdPt
1080: 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 6d 61 6a  r;.    char *maj
1090: 6f 72 3b 20 63 68 61 72 20 2a 6d 69 6e 6f 72 3b  or; char *minor;
10a0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43  ..    dprintf("C
10b0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66  alled");..    if
10c0: 20 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c   (statePtr->call
10d0: 62 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a  back == (Tcl_Obj
10e0: 2a 29 4e 55 4c 4c 29 0a 09 72 65 74 75 72 6e 3b  *)NULL)..return;
10f0: 0a 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54  ..    cmdPtr = T
1100: 63 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28  cl_DuplicateObj(
1110: 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61  statePtr->callba
1120: 63 6b 29 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20  ck);..#if 0.    
1130: 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f  if (where & SSL_
1140: 43 42 5f 41 4c 45 52 54 29 20 7b 0a 09 73 65 76  CB_ALERT) {..sev
1150: 20 3d 20 53 53 4c 5f 61 6c 65 72 74 5f 74 79 70   = SSL_alert_typ
1160: 65 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65  e_string_long(re
1170: 74 29 3b 0a 09 69 66 20 28 73 74 72 63 6d 70 28  t);..if (strcmp(
1180: 20 73 65 76 2c 20 22 66 61 74 61 6c 22 29 3d 3d   sev, "fatal")==
1190: 30 29 20 7b 09 2f 2a 20 4d 61 70 20 74 6f 20 65  0) {./* Map to e
11a0: 72 72 6f 72 20 2a 2f 0a 09 20 20 20 20 54 6c 73  rror */..    Tls
11b0: 5f 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2c  _Error(statePtr,
11c0: 20 53 53 4c 5f 45 52 52 4f 52 28 73 73 6c 2c 20   SSL_ERROR(ssl, 
11d0: 30 29 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e  0));..    return
11e0: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 23 65 6e 64 69  ;..}.    }.#endi
11f0: 66 0a 20 20 20 20 69 66 20 28 77 68 65 72 65 20  f.    if (where 
1200: 26 20 53 53 4c 5f 43 42 5f 48 41 4e 44 53 48 41  & SSL_CB_HANDSHA
1210: 4b 45 5f 53 54 41 52 54 29 20 7b 0a 09 6d 61 6a  KE_START) {..maj
1220: 6f 72 20 3d 20 22 68 61 6e 64 73 68 61 6b 65 22  or = "handshake"
1230: 3b 0a 09 6d 69 6e 6f 72 20 3d 20 22 73 74 61 72  ;..minor = "star
1240: 74 22 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69  t";.    } else i
1250: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43  f (where & SSL_C
1260: 42 5f 48 41 4e 44 53 48 41 4b 45 5f 44 4f 4e 45  B_HANDSHAKE_DONE
1270: 29 20 7b 0a 09 6d 61 6a 6f 72 20 3d 20 22 68 61  ) {..major = "ha
1280: 6e 64 73 68 61 6b 65 22 3b 0a 09 6d 69 6e 6f 72  ndshake";..minor
1290: 20 3d 20 22 64 6f 6e 65 22 3b 0a 20 20 20 20 7d   = "done";.    }
12a0: 20 65 6c 73 65 20 7b 0a 09 69 66 20 28 77 68 65   else {..if (whe
12b0: 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c 45 52  re & SSL_CB_ALER
12c0: 54 29 09 09 6d 61 6a 6f 72 20 3d 20 22 61 6c 65  T)..major = "ale
12d0: 72 74 22 3b 0a 09 65 6c 73 65 20 69 66 20 28 77  rt";..else if (w
12e0: 68 65 72 65 20 26 20 53 53 4c 5f 53 54 5f 43 4f  here & SSL_ST_CO
12f0: 4e 4e 45 43 54 29 09 6d 61 6a 6f 72 20 3d 20 22  NNECT).major = "
1300: 63 6f 6e 6e 65 63 74 22 3b 0a 09 65 6c 73 65 20  connect";..else 
1310: 69 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f  if (where & SSL_
1320: 53 54 5f 41 43 43 45 50 54 29 09 09 6d 61 6a 6f  ST_ACCEPT)..majo
1330: 72 20 3d 20 22 61 63 63 65 70 74 22 3b 0a 09 65  r = "accept";..e
1340: 6c 73 65 09 09 09 09 09 6d 61 6a 6f 72 20 3d 20  lse.....major = 
1350: 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 0a 09 69 66 20  "unknown";...if 
1360: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f  (where & SSL_CB_
1370: 52 45 41 44 29 09 09 6d 69 6e 6f 72 20 3d 20 22  READ)..minor = "
1380: 72 65 61 64 22 3b 0a 09 65 6c 73 65 20 69 66 20  read";..else if 
1390: 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f  (where & SSL_CB_
13a0: 57 52 49 54 45 29 09 09 6d 69 6e 6f 72 20 3d 20  WRITE)..minor = 
13b0: 22 77 72 69 74 65 22 3b 0a 09 65 6c 73 65 20 69  "write";..else i
13c0: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43  f (where & SSL_C
13d0: 42 5f 4c 4f 4f 50 29 09 09 6d 69 6e 6f 72 20 3d  B_LOOP)..minor =
13e0: 20 22 6c 6f 6f 70 22 3b 0a 09 65 6c 73 65 20 69   "loop";..else i
13f0: 66 20 28 77 68 65 72 65 20 26 20 53 53 4c 5f 43  f (where & SSL_C
1400: 42 5f 45 58 49 54 29 09 09 6d 69 6e 6f 72 20 3d  B_EXIT)..minor =
1410: 20 22 65 78 69 74 22 3b 0a 09 65 6c 73 65 09 09   "exit";..else..
1420: 09 09 09 6d 69 6e 6f 72 20 3d 20 22 75 6e 6b 6e  ...minor = "unkn
1430: 6f 77 6e 22 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  own";.    }..   
1440: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
1450: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65  ndElement( state
1460: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64  Ptr->interp, cmd
1470: 50 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e  Ptr, ..    Tcl_N
1480: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 22 69 6e  ewStringObj( "in
1490: 66 6f 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20  fo", -1));..    
14a0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
14b0: 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65 50  dElement( stateP
14c0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50  tr->interp, cmdP
14d0: 74 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65  tr, ..    Tcl_Ne
14e0: 77 53 74 72 69 6e 67 4f 62 6a 28 20 54 63 6c 5f  wStringObj( Tcl_
14f0: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73  GetChannelName(s
1500: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c 20  tatePtr->self), 
1510: 2d 31 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f  -1) );..    Tcl_
1520: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
1530: 6d 65 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e  ment( statePtr->
1540: 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a  interp, cmdPtr,.
1550: 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69  .    Tcl_NewStri
1560: 6e 67 4f 62 6a 28 20 6d 61 6a 6f 72 2c 20 2d 31  ngObj( major, -1
1570: 29 20 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69  ) );..    Tcl_Li
1580: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
1590: 6e 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e  nt( statePtr->in
15a0: 74 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20  terp, cmdPtr,.. 
15b0: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
15c0: 4f 62 6a 28 20 6d 69 6e 6f 72 2c 20 2d 31 29 20  Obj( minor, -1) 
15d0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 77 68 65 72  );..    if (wher
15e0: 65 20 26 20 28 53 53 4c 5f 43 42 5f 4c 4f 4f 50  e & (SSL_CB_LOOP
15f0: 7c 53 53 4c 5f 43 42 5f 45 58 49 54 29 29 20 7b  |SSL_CB_EXIT)) {
1600: 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70  ..Tcl_ListObjApp
1610: 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74  endElement( stat
1620: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d  ePtr->interp, cm
1630: 64 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e  dPtr,..    Tcl_N
1640: 65 77 53 74 72 69 6e 67 4f 62 6a 28 20 53 53 4c  ewStringObj( SSL
1650: 5f 73 74 61 74 65 5f 73 74 72 69 6e 67 5f 6c 6f  _state_string_lo
1660: 6e 67 28 73 73 6c 29 2c 20 2d 31 29 20 29 3b 0a  ng(ssl), -1) );.
1670: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 77      } else if (w
1680: 68 65 72 65 20 26 20 53 53 4c 5f 43 42 5f 41 4c  here & SSL_CB_AL
1690: 45 52 54 29 20 7b 0a 09 43 4f 4e 53 54 20 63 68  ERT) {..CONST ch
16a0: 61 72 20 2a 63 70 20 3d 20 28 63 68 61 72 20 2a  ar *cp = (char *
16b0: 29 20 53 53 4c 5f 61 6c 65 72 74 5f 64 65 73 63  ) SSL_alert_desc
16c0: 5f 73 74 72 69 6e 67 5f 6c 6f 6e 67 28 72 65 74  _string_long(ret
16d0: 29 3b 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a  );...Tcl_ListObj
16e0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73  AppendElement( s
16f0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c  tatePtr->interp,
1700: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63   cmdPtr,..    Tc
1710: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20  l_NewStringObj( 
1720: 63 70 2c 20 2d 31 29 20 29 3b 0a 20 20 20 20 7d  cp, -1) );.    }
1730: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 4c 69 73   else {..Tcl_Lis
1740: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
1750: 74 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74  t( statePtr->int
1760: 65 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20  erp, cmdPtr,..  
1770: 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f    Tcl_NewStringO
1780: 62 6a 28 20 53 53 4c 5f 73 74 61 74 65 5f 73 74  bj( SSL_state_st
1790: 72 69 6e 67 5f 6c 6f 6e 67 28 73 73 6c 29 2c 20  ring_long(ssl), 
17a0: 2d 31 29 20 29 3b 0a 20 20 20 20 7d 0a 20 20 20  -1) );.    }.   
17b0: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20 28   Tcl_Preserve( (
17c0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74  ClientData) stat
17d0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20  ePtr->interp);. 
17e0: 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28     Tcl_Preserve(
17f0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74   (ClientData) st
1800: 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 54 63  atePtr);..    Tc
1810: 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 20  l_IncrRefCount( 
1820: 63 6d 64 50 74 72 29 3b 0a 20 20 20 20 28 76 6f  cmdPtr);.    (vo
1830: 69 64 29 20 54 63 6c 5f 45 76 61 6c 4f 62 6a 45  id) Tcl_EvalObjE
1840: 78 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  x(statePtr->inte
1850: 72 70 2c 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f  rp, cmdPtr, TCL_
1860: 45 56 41 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20  EVAL_GLOBAL);.  
1870: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75    Tcl_DecrRefCou
1880: 6e 74 28 20 63 6d 64 50 74 72 29 3b 0a 0a 20 20  nt( cmdPtr);..  
1890: 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28    Tcl_Release( (
18a0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74  ClientData) stat
18b0: 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f 52  ePtr);.    Tcl_R
18c0: 65 6c 65 61 73 65 28 20 28 43 6c 69 65 6e 74 44  elease( (ClientD
18d0: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69  ata) statePtr->i
18e0: 6e 74 65 72 70 29 3b 0a 0a 7d 0a 0c 0a 2f 2a 0a  nterp);..}.../*.
18f0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
1900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1930: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 72 69  -----. *. * Veri
1940: 66 79 43 61 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a  fyCallback --. *
1950: 0a 20 2a 09 4d 6f 6e 69 74 6f 72 73 20 53 53 4c  . *.Monitors SSL
1960: 20 63 65 72 74 69 66 69 63 61 74 65 20 76 61 6c   certificate val
1970: 69 64 61 74 69 6f 6e 20 70 72 6f 63 65 73 73 2e  idation process.
1980: 0a 20 2a 09 54 68 69 73 20 69 73 20 63 61 6c 6c  . *.This is call
1990: 65 64 20 77 68 65 6e 65 76 65 72 20 61 20 63 65  ed whenever a ce
19a0: 72 74 69 66 69 63 61 74 65 20 69 73 20 69 6e 73  rtificate is ins
19b0: 70 65 63 74 65 64 0a 20 2a 09 6f 72 20 64 65 63  pected. *.or dec
19c0: 69 64 65 64 20 69 6e 76 61 6c 69 64 2e 0a 20 2a  ided invalid.. *
19d0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
19e0: 41 20 63 61 6c 6c 62 61 63 6b 20 62 6f 75 6e 64  A callback bound
19f0: 20 74 6f 20 74 68 65 20 73 6f 63 6b 65 74 20 6d   to the socket m
1a00: 61 79 20 72 65 74 75 72 6e 20 6f 6e 65 20 6f 66  ay return one of
1a10: 3a 0a 20 2a 09 20 20 20 20 30 09 09 09 2d 20 74  :. *.    0...- t
1a20: 68 65 20 63 65 72 74 69 66 69 63 61 74 65 20 69  he certificate i
1a30: 73 20 64 65 65 6d 65 64 20 69 6e 76 61 6c 69 64  s deemed invalid
1a40: 0a 20 2a 09 20 20 20 20 31 09 09 09 2d 20 74 68  . *.    1...- th
1a50: 65 20 63 65 72 74 69 66 69 63 61 74 65 20 69 73  e certificate is
1a60: 20 64 65 65 6d 65 64 20 76 61 6c 69 64 0a 20 2a   deemed valid. *
1a70: 09 20 20 20 20 65 6d 70 74 79 20 73 74 72 69 6e  .    empty strin
1a80: 67 09 2d 20 6e 6f 20 63 68 61 6e 67 65 20 74 6f  g.- no change to
1a90: 20 63 65 72 74 69 66 69 63 61 74 65 20 76 61 6c   certificate val
1aa0: 69 64 61 74 69 6f 6e 0a 20 2a 0a 20 2a 20 53 69  idation. *. * Si
1ab0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 54  de effects:. *.T
1ac0: 68 65 20 65 72 72 20 66 69 65 6c 64 20 6f 66 20  he err field of 
1ad0: 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 6f 70  the currently op
1ae0: 65 72 61 74 69 76 65 20 53 74 61 74 65 20 69 73  erative State is
1af0: 20 73 65 74 0a 20 2a 09 20 20 74 6f 20 61 20 73   set. *.  to a s
1b00: 74 72 69 6e 67 20 64 65 73 63 72 69 62 69 6e 67  tring describing
1b10: 20 74 68 65 20 53 53 4c 20 6e 65 67 6f 74 69 61   the SSL negotia
1b20: 74 69 6f 6e 20 66 61 69 6c 75 72 65 20 72 65 61  tion failure rea
1b30: 73 6f 6e 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  son. *----------
1b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74  ---------. */.st
1b80: 61 74 69 63 20 69 6e 74 0a 56 65 72 69 66 79 43  atic int.VerifyC
1b90: 61 6c 6c 62 61 63 6b 28 69 6e 74 20 6f 6b 2c 20  allback(int ok, 
1ba0: 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58 20 2a  X509_STORE_CTX *
1bb0: 63 74 78 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 4f  ctx).{.    Tcl_O
1bc0: 62 6a 20 2a 63 6d 64 50 74 72 2c 20 2a 72 65 73  bj *cmdPtr, *res
1bd0: 75 6c 74 3b 0a 20 20 20 20 63 68 61 72 20 2a 65  ult;.    char *e
1be0: 72 72 53 74 72 2c 20 2a 73 74 72 69 6e 67 3b 0a  rrStr, *string;.
1bf0: 20 20 20 20 69 6e 74 20 6c 65 6e 67 74 68 3b 0a      int length;.
1c00: 20 20 20 20 53 53 4c 20 20 20 2a 73 73 6c 09 09      SSL   *ssl..
1c10: 3d 20 28 53 53 4c 2a 29 58 35 30 39 5f 53 54 4f  = (SSL*)X509_STO
1c20: 52 45 5f 43 54 58 5f 67 65 74 5f 65 78 5f 64 61  RE_CTX_get_ex_da
1c30: 74 61 28 63 74 78 2c 20 53 53 4c 5f 67 65 74 5f  ta(ctx, SSL_get_
1c40: 65 78 5f 64 61 74 61 5f 58 35 30 39 5f 53 54 4f  ex_data_X509_STO
1c50: 52 45 5f 43 54 58 5f 69 64 78 28 29 29 3b 0a 20  RE_CTX_idx());. 
1c60: 20 20 20 58 35 30 39 20 20 2a 63 65 72 74 09 09     X509  *cert..
1c70: 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58  = X509_STORE_CTX
1c80: 5f 67 65 74 5f 63 75 72 72 65 6e 74 5f 63 65 72  _get_current_cer
1c90: 74 28 63 74 78 29 3b 0a 20 20 20 20 53 74 61 74  t(ctx);.    Stat
1ca0: 65 20 2a 73 74 61 74 65 50 74 72 09 3d 20 28 53  e *statePtr.= (S
1cb0: 74 61 74 65 2a 29 53 53 4c 5f 67 65 74 5f 61 70  tate*)SSL_get_ap
1cc0: 70 5f 64 61 74 61 28 73 73 6c 29 3b 0a 20 20 20  p_data(ssl);.   
1cd0: 20 69 6e 74 20 64 65 70 74 68 09 09 3d 20 58 35   int depth..= X5
1ce0: 30 39 5f 53 54 4f 52 45 5f 43 54 58 5f 67 65 74  09_STORE_CTX_get
1cf0: 5f 65 72 72 6f 72 5f 64 65 70 74 68 28 63 74 78  _error_depth(ctx
1d00: 29 3b 0a 20 20 20 20 69 6e 74 20 65 72 72 09 09  );.    int err..
1d10: 3d 20 58 35 30 39 5f 53 54 4f 52 45 5f 43 54 58  = X509_STORE_CTX
1d20: 5f 67 65 74 5f 65 72 72 6f 72 28 63 74 78 29 3b  _get_error(ctx);
1d30: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 56  ..    dprintf("V
1d40: 65 72 69 66 79 3a 20 25 64 22 2c 20 6f 6b 29 3b  erify: %d", ok);
1d50: 0a 0a 20 20 20 20 69 66 20 28 21 6f 6b 29 20 7b  ..    if (!ok) {
1d60: 0a 09 65 72 72 53 74 72 20 3d 20 28 63 68 61 72  ..errStr = (char
1d70: 2a 29 58 35 30 39 5f 76 65 72 69 66 79 5f 63 65  *)X509_verify_ce
1d80: 72 74 5f 65 72 72 6f 72 5f 73 74 72 69 6e 67 28  rt_error_string(
1d90: 65 72 72 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65  err);.    } else
1da0: 20 7b 0a 09 65 72 72 53 74 72 20 3d 20 28 63 68   {..errStr = (ch
1db0: 61 72 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 0a 20  ar *)0;.    }.. 
1dc0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d     if (statePtr-
1dd0: 3e 63 61 6c 6c 62 61 63 6b 20 3d 3d 20 28 54 63  >callback == (Tc
1de0: 6c 5f 4f 62 6a 2a 29 4e 55 4c 4c 29 20 7b 0a 09  l_Obj*)NULL) {..
1df0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 76 66  if (statePtr->vf
1e00: 6c 61 67 73 20 26 20 53 53 4c 5f 56 45 52 49 46  lags & SSL_VERIF
1e10: 59 5f 46 41 49 4c 5f 49 46 5f 4e 4f 5f 50 45 45  Y_FAIL_IF_NO_PEE
1e20: 52 5f 43 45 52 54 29 20 7b 0a 09 20 20 20 20 72  R_CERT) {..    r
1e30: 65 74 75 72 6e 20 6f 6b 3b 0a 09 7d 20 65 6c 73  eturn ok;..} els
1e40: 65 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20  e {..    return 
1e50: 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20  1;..}.    }.    
1e60: 63 6d 64 50 74 72 20 3d 20 54 63 6c 5f 44 75 70  cmdPtr = Tcl_Dup
1e70: 6c 69 63 61 74 65 4f 62 6a 28 73 74 61 74 65 50  licateObj(stateP
1e80: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a  tr->callback);..
1e90: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
1ea0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74  ppendElement( st
1eb0: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20  atePtr->interp, 
1ec0: 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54 63  cmdPtr, ..    Tc
1ed0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20  l_NewStringObj( 
1ee0: 22 76 65 72 69 66 79 22 2c 20 2d 31 29 29 3b 0a  "verify", -1));.
1ef0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
1f00: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73  AppendElement( s
1f10: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c  tatePtr->interp,
1f20: 20 63 6d 64 50 74 72 2c 20 0a 09 20 20 20 20 54   cmdPtr, ..    T
1f30: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
1f40: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e   Tcl_GetChannelN
1f50: 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65  ame(statePtr->se
1f60: 6c 66 29 2c 20 2d 31 29 20 29 3b 0a 0a 20 20 20  lf), -1) );..   
1f70: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
1f80: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65  ndElement( state
1f90: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64  Ptr->interp, cmd
1fa0: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65  Ptr,..    Tcl_Ne
1fb0: 77 49 6e 74 4f 62 6a 28 20 64 65 70 74 68 29 20  wIntObj( depth) 
1fc0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74  );..    Tcl_List
1fd0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
1fe0: 28 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65  ( statePtr->inte
1ff0: 72 70 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20  rp, cmdPtr,..   
2000: 20 54 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28   Tls_NewX509Obj(
2010: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72   statePtr->inter
2020: 70 2c 20 63 65 72 74 29 20 29 3b 0a 0a 20 20 20  p, cert) );..   
2030: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
2040: 6e 64 45 6c 65 6d 65 6e 74 28 20 73 74 61 74 65  ndElement( state
2050: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64  Ptr->interp, cmd
2060: 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f 4e 65  Ptr,..    Tcl_Ne
2070: 77 49 6e 74 4f 62 6a 28 20 6f 6b 29 20 29 3b 0a  wIntObj( ok) );.
2080: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
2090: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20 73  AppendElement( s
20a0: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c  tatePtr->interp,
20b0: 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54 63   cmdPtr,..    Tc
20c0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 20  l_NewStringObj( 
20d0: 65 72 72 53 74 72 20 3f 20 65 72 72 53 74 72 20  errStr ? errStr 
20e0: 3a 20 22 22 2c 20 2d 31 29 20 29 3b 0a 0a 20 20  : "", -1) );..  
20f0: 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 20    Tcl_Preserve( 
2100: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61  (ClientData) sta
2110: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a  tePtr->interp);.
2120: 20 20 20 20 54 63 6c 5f 50 72 65 73 65 72 76 65      Tcl_Preserve
2130: 28 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73  ( (ClientData) s
2140: 74 61 74 65 50 74 72 29 3b 0a 0a 20 20 20 20 73  tatePtr);..    s
2150: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c  tatePtr->flags |
2160: 3d 20 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41  = TLS_TCL_CALLBA
2170: 43 4b 3b 0a 0a 20 20 20 20 54 63 6c 5f 49 6e 63  CK;..    Tcl_Inc
2180: 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64 50 74  rRefCount( cmdPt
2190: 72 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c 5f  r);.    if (Tcl_
21a0: 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 65 50  EvalObjEx(stateP
21b0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50  tr->interp, cmdP
21c0: 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f  tr, TCL_EVAL_GLO
21d0: 42 41 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20  BAL) != TCL_OK) 
21e0: 7b 0a 09 2f 2a 20 49 74 20 67 6f 74 20 61 6e 20  {../* It got an 
21f0: 65 72 72 6f 72 20 2d 20 72 65 6a 65 63 74 20 74  error - reject t
2200: 68 65 20 63 65 72 74 69 66 69 63 61 74 65 2e 09  he certificate..
2210: 09 2a 2f 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f  .*/..Tcl_Backgro
2220: 75 6e 64 45 72 72 6f 72 28 20 73 74 61 74 65 50  undError( stateP
2230: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 6f 6b  tr->interp);..ok
2240: 20 3d 20 30 3b 0a 20 20 20 20 7d 20 65 6c 73 65   = 0;.    } else
2250: 20 7b 0a 09 72 65 73 75 6c 74 20 3d 20 54 63 6c   {..result = Tcl
2260: 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 73 74  _GetObjResult(st
2270: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b  atePtr->interp);
2280: 0a 09 73 74 72 69 6e 67 20 3d 20 54 63 6c 5f 47  ..string = Tcl_G
2290: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28  etStringFromObj(
22a0: 72 65 73 75 6c 74 2c 20 26 6c 65 6e 67 74 68 29  result, &length)
22b0: 3b 0a 09 2f 2a 20 41 6e 20 65 6d 70 74 79 20 72  ;../* An empty r
22c0: 65 73 75 6c 74 20 6c 65 61 76 65 73 20 76 65 72  esult leaves ver
22d0: 69 66 69 63 61 74 69 6f 6e 20 75 6e 63 68 61 6e  ification unchan
22e0: 67 65 64 2e 09 2a 2f 0a 09 69 66 20 28 73 74 72  ged..*/..if (str
22f0: 69 6e 67 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6c  ing != NULL && l
2300: 65 6e 67 74 68 20 3e 20 30 29 20 7b 0a 09 20 20  ength > 0) {..  
2310: 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74    if (Tcl_GetInt
2320: 46 72 6f 6d 4f 62 6a 28 73 74 61 74 65 50 74 72  FromObj(statePtr
2330: 2d 3e 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74  ->interp, result
2340: 2c 20 26 6f 6b 29 20 21 3d 20 54 43 4c 5f 4f 4b  , &ok) != TCL_OK
2350: 29 20 7b 0a 09 09 54 63 6c 5f 42 61 63 6b 67 72  ) {...Tcl_Backgr
2360: 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50  oundError(stateP
2370: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 09 09 6f  tr->interp);...o
2380: 6b 20 3d 20 30 3b 0a 09 20 20 20 20 7d 0a 09 7d  k = 0;..    }..}
2390: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44  .    }.    Tcl_D
23a0: 65 63 72 52 65 66 43 6f 75 6e 74 28 20 63 6d 64  ecrRefCount( cmd
23b0: 50 74 72 29 3b 0a 0a 20 20 20 20 73 74 61 74 65  Ptr);..    state
23c0: 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28  Ptr->flags &= ~(
23d0: 54 4c 53 5f 54 43 4c 5f 43 41 4c 4c 42 41 43 4b  TLS_TCL_CALLBACK
23e0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65  );..    Tcl_Rele
23f0: 61 73 65 28 20 28 43 6c 69 65 6e 74 44 61 74 61  ase( (ClientData
2400: 29 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20  ) statePtr);.   
2410: 20 54 63 6c 5f 52 65 6c 65 61 73 65 28 20 28 43   Tcl_Release( (C
2420: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65  lientData) state
2430: 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20  Ptr->interp);.. 
2440: 20 20 20 72 65 74 75 72 6e 28 6f 6b 29 3b 09 2f     return(ok);./
2450: 2a 20 42 79 20 64 65 66 61 75 6c 74 2c 20 6c 65  * By default, le
2460: 61 76 65 20 76 65 72 69 66 69 63 61 74 69 6f 6e  ave verification
2470: 20 75 6e 63 68 61 6e 67 65 64 2e 09 2a 2f 0a 7d   unchanged..*/.}
2480: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
2490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
24d0: 2a 20 54 6c 73 5f 45 72 72 6f 72 20 2d 2d 0a 20  * Tls_Error --. 
24e0: 2a 0a 20 2a 09 43 61 6c 6c 73 20 63 61 6c 6c 62  *. *.Calls callb
24f0: 61 63 6b 20 77 69 74 68 20 24 66 64 20 61 6e 64  ack with $fd and
2500: 20 24 6d 73 67 20 2d 20 73 6f 20 74 68 65 20 63   $msg - so the c
2510: 61 6c 6c 62 61 63 6b 20 63 61 6e 20 64 65 63 69  allback can deci
2520: 64 65 0a 20 2a 09 77 68 61 74 20 74 6f 20 64 6f  de. *.what to do
2530: 20 77 69 74 68 20 65 72 72 6f 72 73 2e 0a 20 2a   with errors.. *
2540: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
2550: 3a 0a 20 2a 09 54 68 65 20 65 72 72 20 66 69 65  :. *.The err fie
2560: 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e  ld of the curren
2570: 74 6c 79 20 6f 70 65 72 61 74 69 76 65 20 53 74  tly operative St
2580: 61 74 65 20 69 73 20 73 65 74 0a 20 2a 09 20 20  ate is set. *.  
2590: 74 6f 20 61 20 73 74 72 69 6e 67 20 64 65 73 63  to a string desc
25a0: 72 69 62 69 6e 67 20 74 68 65 20 53 53 4c 20 6e  ribing the SSL n
25b0: 65 67 6f 74 69 61 74 69 6f 6e 20 66 61 69 6c 75  egotiation failu
25c0: 72 65 20 72 65 61 73 6f 6e 0a 20 2a 2d 2d 2d 2d  re reason. *----
25d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
25f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
2610: 20 2a 2f 0a 76 6f 69 64 0a 54 6c 73 5f 45 72 72   */.void.Tls_Err
2620: 6f 72 28 53 74 61 74 65 20 2a 73 74 61 74 65 50  or(State *stateP
2630: 74 72 2c 20 63 68 61 72 20 2a 6d 73 67 29 0a 7b  tr, char *msg).{
2640: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d  .    Tcl_Obj *cm
2650: 64 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e  dPtr;..    dprin
2660: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20  tf("Called");.. 
2670: 20 20 20 69 66 20 28 6d 73 67 20 26 26 20 2a 6d     if (msg && *m
2680: 73 67 29 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72  sg) {..Tcl_SetEr
2690: 72 6f 72 43 6f 64 65 28 73 74 61 74 65 50 74 72  rorCode(statePtr
26a0: 2d 3e 69 6e 74 65 72 70 2c 20 22 53 53 4c 22 2c  ->interp, "SSL",
26b0: 20 6d 73 67 2c 20 28 63 68 61 72 20 2a 29 4e 55   msg, (char *)NU
26c0: 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  LL);.    } else 
26d0: 7b 0a 09 6d 73 67 20 3d 20 54 63 6c 5f 47 65 74  {..msg = Tcl_Get
26e0: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 54 63  StringFromObj(Tc
26f0: 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 73  l_GetObjResult(s
2700: 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 29  tatePtr->interp)
2710: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 20  , NULL);.    }. 
2720: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 65 72 72     statePtr->err
2730: 20 3d 20 6d 73 67 3b 0a 0a 20 20 20 20 69 66 20   = msg;..    if 
2740: 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c 62  (statePtr->callb
2750: 61 63 6b 20 3d 3d 20 28 54 63 6c 5f 4f 62 6a 2a  ack == (Tcl_Obj*
2760: 29 4e 55 4c 4c 29 20 7b 0a 09 63 68 61 72 20 62  )NULL) {..char b
2770: 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 73 70 72  uf[BUFSIZ];..spr
2780: 69 6e 74 66 28 62 75 66 2c 20 22 53 53 4c 20 63  intf(buf, "SSL c
2790: 68 61 6e 6e 65 6c 20 5c 22 25 73 5c 22 3a 20 65  hannel \"%s\": e
27a0: 72 72 6f 72 3a 20 25 73 22 2c 0a 09 20 20 20 20  rror: %s",..    
27b0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61  Tcl_GetChannelNa
27c0: 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c  me(statePtr->sel
27d0: 66 29 2c 20 6d 73 67 29 3b 0a 09 54 63 6c 5f 53  f), msg);..Tcl_S
27e0: 65 74 52 65 73 75 6c 74 28 20 73 74 61 74 65 50  etResult( stateP
27f0: 74 72 2d 3e 69 6e 74 65 72 70 2c 20 62 75 66 2c  tr->interp, buf,
2800: 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a   TCL_VOLATILE);.
2810: 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75 6e 64 45  .Tcl_BackgroundE
2820: 72 72 6f 72 28 20 73 74 61 74 65 50 74 72 2d 3e  rror( statePtr->
2830: 69 6e 74 65 72 70 29 3b 0a 09 72 65 74 75 72 6e  interp);..return
2840: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 63 6d 64 50  ;.    }.    cmdP
2850: 74 72 20 3d 20 54 63 6c 5f 44 75 70 6c 69 63 61  tr = Tcl_Duplica
2860: 74 65 4f 62 6a 28 73 74 61 74 65 50 74 72 2d 3e  teObj(statePtr->
2870: 63 61 6c 6c 62 61 63 6b 29 3b 0a 0a 20 20 20 20  callback);..    
2880: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
2890: 64 45 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74  dElement(statePt
28a0: 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74  r->interp, cmdPt
28b0: 72 2c 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77  r, ..    Tcl_New
28c0: 53 74 72 69 6e 67 4f 62 6a 28 22 65 72 72 6f 72  StringObj("error
28d0: 22 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20 54 63  ", -1));..    Tc
28e0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45  l_ListObjAppendE
28f0: 6c 65 6d 65 6e 74 28 73 74 61 74 65 50 74 72 2d  lement(statePtr-
2900: 3e 69 6e 74 65 72 70 2c 20 63 6d 64 50 74 72 2c  >interp, cmdPtr,
2910: 20 0a 09 20 20 20 20 54 63 6c 5f 4e 65 77 53 74   ..    Tcl_NewSt
2920: 72 69 6e 67 4f 62 6a 28 54 63 6c 5f 47 65 74 43  ringObj(Tcl_GetC
2930: 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61 74 65  hannelName(state
2940: 50 74 72 2d 3e 73 65 6c 66 29 2c 20 2d 31 29 29  Ptr->self), -1))
2950: 3b 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f  ;..    Tcl_ListO
2960: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
2970: 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70  statePtr->interp
2980: 2c 20 63 6d 64 50 74 72 2c 0a 09 20 20 20 20 54  , cmdPtr,..    T
2990: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
29a0: 6d 73 67 2c 20 2d 31 29 29 3b 0a 0a 20 20 20 20  msg, -1));..    
29b0: 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43 6c  Tcl_Preserve((Cl
29c0: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50  ientData) stateP
29d0: 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20  tr->interp);.   
29e0: 20 54 63 6c 5f 50 72 65 73 65 72 76 65 28 28 43   Tcl_Preserve((C
29f0: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65  lientData) state
2a00: 50 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 49  Ptr);..    Tcl_I
2a10: 6e 63 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50  ncrRefCount(cmdP
2a20: 74 72 29 3b 0a 20 20 20 20 69 66 20 28 54 63 6c  tr);.    if (Tcl
2a30: 5f 45 76 61 6c 4f 62 6a 45 78 28 73 74 61 74 65  _EvalObjEx(state
2a40: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 63 6d 64  Ptr->interp, cmd
2a50: 50 74 72 2c 20 54 43 4c 5f 45 56 41 4c 5f 47 4c  Ptr, TCL_EVAL_GL
2a60: 4f 42 41 4c 29 20 21 3d 20 54 43 4c 5f 4f 4b 29  OBAL) != TCL_OK)
2a70: 20 7b 0a 09 54 63 6c 5f 42 61 63 6b 67 72 6f 75   {..Tcl_Backgrou
2a80: 6e 64 45 72 72 6f 72 28 73 74 61 74 65 50 74 72  ndError(statePtr
2a90: 2d 3e 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d  ->interp);.    }
2aa0: 0a 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66  .    Tcl_DecrRef
2ab0: 43 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 0a  Count(cmdPtr);..
2ac0: 20 20 20 20 54 63 6c 5f 52 65 6c 65 61 73 65 28      Tcl_Release(
2ad0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61  (ClientData) sta
2ae0: 74 65 50 74 72 29 3b 0a 20 20 20 20 54 63 6c 5f  tePtr);.    Tcl_
2af0: 52 65 6c 65 61 73 65 28 28 43 6c 69 65 6e 74 44  Release((ClientD
2b00: 61 74 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69  ata) statePtr->i
2b10: 6e 74 65 72 70 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20  nterp);.}.../*. 
2b20: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
2b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b60: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 61 73 73 77  ----. *. * Passw
2b70: 6f 72 64 43 61 6c 6c 62 61 63 6b 20 2d 2d 20 0a  ordCallback -- .
2b80: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 77 68 65   *. *.Called whe
2b90: 6e 20 61 20 70 61 73 73 77 6f 72 64 20 69 73 20  n a password is 
2ba0: 6e 65 65 64 65 64 20 74 6f 20 75 6e 70 61 63 6b  needed to unpack
2bb0: 20 52 53 41 20 61 6e 64 20 50 45 4d 20 6b 65 79   RSA and PEM key
2bc0: 73 2e 0a 20 2a 09 45 76 61 6c 73 20 61 6e 79 20  s.. *.Evals any 
2bd0: 62 6f 75 6e 64 20 70 61 73 73 77 6f 72 64 20 73  bound password s
2be0: 63 72 69 70 74 20 61 6e 64 20 72 65 74 75 72 6e  cript and return
2bf0: 73 20 74 68 65 20 72 65 73 75 6c 74 20 61 73 0a  s the result as.
2c00: 20 2a 09 74 68 65 20 70 61 73 73 77 6f 72 64 20   *.the password 
2c10: 73 74 72 69 6e 67 2e 0a 20 2a 2d 2d 2d 2d 2d 2d  string.. *------
2c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a  -------------. *
2c60: 2f 0a 23 69 66 64 65 66 20 50 52 45 5f 4f 50 45  /.#ifdef PRE_OPE
2c70: 4e 53 53 4c 5f 30 5f 39 5f 34 0a 2f 2a 0a 20 2a  NSSL_0_9_4./*. *
2c80: 20 4e 6f 20 77 61 79 20 74 6f 20 68 61 6e 64 6c   No way to handl
2c90: 65 20 75 73 65 72 2d 64 61 74 61 20 74 68 65 72  e user-data ther
2ca0: 65 66 6f 72 65 20 6e 6f 20 77 61 79 20 77 69 74  efore no way wit
2cb0: 68 6f 75 74 20 61 20 67 6c 6f 62 61 6c 0a 20 2a  hout a global. *
2cc0: 20 76 61 72 69 61 62 6c 65 20 74 6f 20 61 63 63   variable to acc
2cd0: 65 73 73 20 74 68 65 20 54 63 6c 20 69 6e 74 65  ess the Tcl inte
2ce0: 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 73 74 61 74  rpreter..*/.stat
2cf0: 69 63 20 69 6e 74 0a 50 61 73 73 77 6f 72 64 43  ic int.PasswordC
2d00: 61 6c 6c 62 61 63 6b 28 63 68 61 72 20 2a 62 75  allback(char *bu
2d10: 66 2c 20 69 6e 74 20 73 69 7a 65 2c 20 69 6e 74  f, int size, int
2d20: 20 76 65 72 69 66 79 29 0a 7b 0a 20 20 20 20 72   verify).{.    r
2d30: 65 74 75 72 6e 20 2d 31 3b 0a 20 20 20 20 09 62  eturn -1;.    .b
2d40: 75 66 20 3d 20 62 75 66 3b 0a 09 73 69 7a 65 20  uf = buf;..size 
2d50: 3d 20 73 69 7a 65 3b 0a 09 76 65 72 69 66 79 20  = size;..verify 
2d60: 3d 20 76 65 72 69 66 79 3b 0a 7d 0a 23 65 6c 73  = verify;.}.#els
2d70: 65 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 61 73  e.static int.Pas
2d80: 73 77 6f 72 64 43 61 6c 6c 62 61 63 6b 28 63 68  swordCallback(ch
2d90: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 73 69 7a  ar *buf, int siz
2da0: 65 2c 20 69 6e 74 20 76 65 72 69 66 79 2c 20 76  e, int verify, v
2db0: 6f 69 64 20 2a 75 64 61 74 61 29 0a 7b 0a 20 20  oid *udata).{.  
2dc0: 20 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74    State *statePt
2dd0: 72 09 3d 20 28 53 74 61 74 65 20 2a 29 20 75 64  r.= (State *) ud
2de0: 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 49 6e 74  ata;.    Tcl_Int
2df0: 65 72 70 20 2a 69 6e 74 65 72 70 09 3d 20 73 74  erp *interp.= st
2e00: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 3b 0a  atePtr->interp;.
2e10: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64      Tcl_Obj *cmd
2e20: 50 74 72 3b 0a 20 20 20 20 69 6e 74 20 72 65 73  Ptr;.    int res
2e30: 75 6c 74 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74  ult;..    dprint
2e40: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20  f("Called");..  
2e50: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e    if (statePtr->
2e60: 70 61 73 73 77 6f 72 64 20 3d 3d 20 4e 55 4c 4c  password == NULL
2e70: 29 20 7b 0a 09 69 66 20 28 54 63 6c 5f 45 76 61  ) {..if (Tcl_Eva
2e80: 6c 45 78 28 69 6e 74 65 72 70 2c 20 22 74 6c 73  lEx(interp, "tls
2e90: 3a 3a 70 61 73 73 77 6f 72 64 22 2c 20 2d 31 2c  ::password", -1,
2ea0: 20 54 43 4c 5f 45 56 41 4c 5f 47 4c 4f 42 41 4c   TCL_EVAL_GLOBAL
2eb0: 29 0a 09 09 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b  )...== TCL_OK) {
2ec0: 0a 09 20 20 20 20 63 68 61 72 20 2a 72 65 74 20  ..    char *ret 
2ed0: 3d 20 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47  = (char *) Tcl_G
2ee0: 65 74 53 74 72 69 6e 67 52 65 73 75 6c 74 28 69  etStringResult(i
2ef0: 6e 74 65 72 70 29 3b 0a 09 20 20 20 20 73 74 72  nterp);..    str
2f00: 6e 63 70 79 28 62 75 66 2c 20 72 65 74 2c 20 28  ncpy(buf, ret, (
2f10: 73 69 7a 65 5f 74 29 20 73 69 7a 65 29 3b 0a 09  size_t) size);..
2f20: 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74 29      return (int)
2f30: 73 74 72 6c 65 6e 28 72 65 74 29 3b 0a 09 7d 20  strlen(ret);..} 
2f40: 65 6c 73 65 20 7b 0a 09 20 20 20 20 72 65 74 75  else {..    retu
2f50: 72 6e 20 2d 31 3b 0a 09 7d 0a 20 20 20 20 7d 0a  rn -1;..}.    }.
2f60: 0a 20 20 20 20 63 6d 64 50 74 72 20 3d 20 54 63  .    cmdPtr = Tc
2f70: 6c 5f 44 75 70 6c 69 63 61 74 65 4f 62 6a 28 73  l_DuplicateObj(s
2f80: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72  tatePtr->passwor
2f90: 64 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 50 72 65  d);..    Tcl_Pre
2fa0: 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61 74  serve((ClientDat
2fb0: 61 29 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74  a) statePtr->int
2fc0: 65 72 70 29 3b 0a 20 20 20 20 54 63 6c 5f 50 72  erp);.    Tcl_Pr
2fd0: 65 73 65 72 76 65 28 28 43 6c 69 65 6e 74 44 61  eserve((ClientDa
2fe0: 74 61 29 20 73 74 61 74 65 50 74 72 29 3b 0a 0a  ta) statePtr);..
2ff0: 20 20 20 20 54 63 6c 5f 49 6e 63 72 52 65 66 43      Tcl_IncrRefC
3000: 6f 75 6e 74 28 63 6d 64 50 74 72 29 3b 0a 20 20  ount(cmdPtr);.  
3010: 20 20 72 65 73 75 6c 74 20 3d 20 54 63 6c 5f 45    result = Tcl_E
3020: 76 61 6c 4f 62 6a 45 78 28 69 6e 74 65 72 70 2c  valObjEx(interp,
3030: 20 63 6d 64 50 74 72 2c 20 54 43 4c 5f 45 56 41   cmdPtr, TCL_EVA
3040: 4c 5f 47 4c 4f 42 41 4c 29 3b 0a 20 20 20 20 69  L_GLOBAL);.    i
3050: 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 43 4c  f (result != TCL
3060: 5f 4f 4b 29 20 7b 0a 09 54 63 6c 5f 42 61 63 6b  _OK) {..Tcl_Back
3070: 67 72 6f 75 6e 64 45 72 72 6f 72 28 73 74 61 74  groundError(stat
3080: 65 50 74 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 20  ePtr->interp);. 
3090: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 44 65 63     }.    Tcl_Dec
30a0: 72 52 65 66 43 6f 75 6e 74 28 63 6d 64 50 74 72  rRefCount(cmdPtr
30b0: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 52 65 6c 65  );..    Tcl_Rele
30c0: 61 73 65 28 28 43 6c 69 65 6e 74 44 61 74 61 29  ase((ClientData)
30d0: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20   statePtr);.    
30e0: 54 63 6c 5f 52 65 6c 65 61 73 65 28 28 43 6c 69  Tcl_Release((Cli
30f0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74  entData) statePt
3100: 72 2d 3e 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20  r->interp);..   
3110: 20 69 66 20 28 72 65 73 75 6c 74 20 3d 3d 20 54   if (result == T
3120: 43 4c 5f 4f 4b 29 20 7b 0a 09 63 68 61 72 20 2a  CL_OK) {..char *
3130: 72 65 74 20 3d 20 28 63 68 61 72 20 2a 29 20 54  ret = (char *) T
3140: 63 6c 5f 47 65 74 53 74 72 69 6e 67 52 65 73 75  cl_GetStringResu
3150: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 09 73 74 72  lt(interp);..str
3160: 6e 63 70 79 28 62 75 66 2c 20 72 65 74 2c 20 28  ncpy(buf, ret, (
3170: 73 69 7a 65 5f 74 29 20 73 69 7a 65 29 3b 0a 09  size_t) size);..
3180: 72 65 74 75 72 6e 20 28 69 6e 74 29 73 74 72 6c  return (int)strl
3190: 65 6e 28 72 65 74 29 3b 0a 20 20 20 20 7d 20 65  en(ret);.    } e
31a0: 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e 20 2d 31  lse {..return -1
31b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 09 76 65 72  ;.    }.    .ver
31c0: 69 66 79 20 3d 20 76 65 72 69 66 79 3b 0a 7d 0a  ify = verify;.}.
31d0: 23 65 6e 64 69 66 0a 0c 0a 2f 2a 0a 20 2a 2d 2d  #endif.../*. *--
31e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
31f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3220: 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 73 4f  -. *. * CiphersO
3230: 62 6a 43 6d 64 20 2d 2d 20 6c 69 73 74 20 61 76  bjCmd -- list av
3240: 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 0a  ailable ciphers.
3250: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65   *. *.This proce
3260: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20  dure is invoked 
3270: 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 22  to process the "
3280: 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 63 6f  tls::ciphers" co
3290: 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 73 74  mmand. *.to list
32a0: 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65   available ciphe
32b0: 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e 20 70  rs, based upon p
32c0: 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64  rotocol selected
32d0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
32e0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54  . *.A standard T
32f0: 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 2e 0a  cl result list..
3300: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63   *. * Side effec
3310: 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74  ts:. *.construct
3320: 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 20 53  s and destroys S
3330: 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29  SL context (CTX)
3340: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
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 0a 20 2a 2f 0a 73 74  ---------. */.st
3390: 61 74 69 63 20 69 6e 74 0a 43 69 70 68 65 72 73  atic int.Ciphers
33a0: 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74  ObjCmd(clientDat
33b0: 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c  a, interp, objc,
33c0: 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e   objv).    Clien
33d0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61  tData clientData
33e0: 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a  ;./* Not used. *
33f0: 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70  /.    Tcl_Interp
3400: 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e   *interp;.    in
3410: 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f  t objc;.    Tcl_
3420: 4f 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b  Obj.*CONST objv[
3430: 5d 3b 0a 7b 0a 20 20 20 20 73 74 61 74 69 63 20  ];.{.    static 
3440: 43 4f 4e 53 54 38 34 20 63 68 61 72 20 2a 70 72  CONST84 char *pr
3450: 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 22  otocols[] = {.."
3460: 73 73 6c 32 22 2c 09 22 73 73 6c 33 22 2c 09 22  ssl2",."ssl3",."
3470: 74 6c 73 31 22 2c 09 22 74 6c 73 31 2e 31 22 2c  tls1",."tls1.1",
3480: 20 22 74 6c 73 31 2e 32 22 2c 20 22 74 6c 73 31   "tls1.2", "tls1
3490: 2e 33 22 2c 20 4e 55 4c 4c 0a 20 20 20 20 7d 3b  .3", NULL.    };
34a0: 0a 20 20 20 20 65 6e 75 6d 20 70 72 6f 74 6f 63  .    enum protoc
34b0: 6f 6c 20 7b 0a 09 54 4c 53 5f 53 53 4c 32 2c 20  ol {..TLS_SSL2, 
34c0: 54 4c 53 5f 53 53 4c 33 2c 20 54 4c 53 5f 54 4c  TLS_SSL3, TLS_TL
34d0: 53 31 2c 20 54 4c 53 5f 54 4c 53 31 5f 31 2c 20  S1, TLS_TLS1_1, 
34e0: 54 4c 53 5f 54 4c 53 31 5f 32 2c 20 54 4c 53 5f  TLS_TLS1_2, TLS_
34f0: 54 4c 53 31 5f 33 2c 20 54 4c 53 5f 4e 4f 4e 45  TLS1_3, TLS_NONE
3500: 0a 20 20 20 20 7d 3b 0a 20 20 20 20 54 63 6c 5f  .    };.    Tcl_
3510: 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20  Obj *objPtr;.   
3520: 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20   SSL_CTX *ctx = 
3530: 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73  NULL;.    SSL *s
3540: 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53  sl = NULL;.    S
3550: 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48  TACK_OF(SSL_CIPH
3560: 45 52 29 20 2a 73 6b 3b 0a 20 20 20 20 63 68 61  ER) *sk;.    cha
3570: 72 20 2a 63 70 2c 20 62 75 66 5b 42 55 46 53 49  r *cp, buf[BUFSI
3580: 5a 5d 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 65  Z];.    int inde
3590: 78 2c 20 76 65 72 62 6f 73 65 20 3d 20 30 3b 0a  x, verbose = 0;.
35a0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61  .    dprintf("Ca
35b0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20  lled");..    if 
35c0: 28 6f 62 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 6a  (objc < 2 || obj
35d0: 63 20 3e 20 33 29 20 7b 0a 09 54 63 6c 5f 57 72  c > 3) {..Tcl_Wr
35e0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
35f0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 70 72 6f  p, 1, objv, "pro
3600: 74 6f 63 6f 6c 20 3f 76 65 72 62 6f 73 65 3f 22  tocol ?verbose?"
3610: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
3620: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20  RROR;.    }.    
3630: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78  if (Tcl_GetIndex
3640: 46 72 6f 6d 4f 62 6a 28 20 69 6e 74 65 72 70 2c  FromObj( interp,
3650: 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63   objv[1], protoc
3660: 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c  ols, "protocol",
3670: 20 30 2c 0a 09 26 69 6e 64 65 78 29 20 21 3d 20   0,..&index) != 
3680: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72  TCL_OK) {..retur
3690: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
36a0: 20 7d 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20   }.    if (objc 
36b0: 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 74 42 6f  > 2 && Tcl_GetBo
36c0: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 20 69 6e  oleanFromObj( in
36d0: 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 0a 09  terp, objv[2],..
36e0: 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 4c  &verbose) != TCL
36f0: 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54  _OK) {..return T
3700: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
3710: 20 20 20 20 73 77 69 74 63 68 20 28 28 65 6e 75      switch ((enu
3720: 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78  m protocol)index
3730: 29 20 7b 0a 20 20 20 20 63 61 73 65 20 54 4c 53  ) {.    case TLS
3740: 5f 53 53 4c 32 3a 0a 23 69 66 20 64 65 66 69 6e  _SSL2:.#if defin
3750: 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 09 09 54 63  ed(NO_SSL2)...Tc
3760: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
3770: 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c  nterp, "protocol
3780: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c   not supported",
3790: 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e   NULL);...return
37a0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73   TCL_ERROR;.#els
37b0: 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54  e...ctx = SSL_CT
37c0: 58 5f 6e 65 77 28 53 53 4c 76 32 5f 6d 65 74 68  X_new(SSLv2_meth
37d0: 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65  od()); break;.#e
37e0: 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 4c  ndif.    case TL
37f0: 53 5f 53 53 4c 33 3a 0a 23 69 66 20 64 65 66 69  S_SSL3:.#if defi
3800: 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 09 09 54  ned(NO_SSL3)...T
3810: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
3820: 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f  interp, "protoco
3830: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22  l not supported"
3840: 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72  , NULL);...retur
3850: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c  n TCL_ERROR;.#el
3860: 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f 43  se...ctx = SSL_C
3870: 54 58 5f 6e 65 77 28 53 53 4c 76 33 5f 6d 65 74  TX_new(SSLv3_met
3880: 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23  hod()); break;.#
3890: 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54  endif.    case T
38a0: 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 66  LS_TLS1:.#if def
38b0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 09 09  ined(NO_TLS1)...
38c0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
38d0: 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74 6f 63  (interp, "protoc
38e0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64  ol not supported
38f0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 74 75  ", NULL);...retu
3900: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65  rn TCL_ERROR;.#e
3910: 6c 73 65 0a 09 09 63 74 78 20 3d 20 53 53 4c 5f  lse...ctx = SSL_
3920: 43 54 58 5f 6e 65 77 28 54 4c 53 76 31 5f 6d 65  CTX_new(TLSv1_me
3930: 74 68 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a  thod()); break;.
3940: 23 65 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20  #endif.    case 
3950: 54 4c 53 5f 54 4c 53 31 5f 31 3a 0a 23 69 66 20  TLS_TLS1_1:.#if 
3960: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f  defined(NO_TLS1_
3970: 31 29 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52  1)...Tcl_AppendR
3980: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70  esult(interp, "p
3990: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70  rotocol not supp
39a0: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09  orted", NULL);..
39b0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
39c0: 52 3b 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d  R;.#else...ctx =
39d0: 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53   SSL_CTX_new(TLS
39e0: 76 31 5f 31 5f 6d 65 74 68 6f 64 28 29 29 3b 20  v1_1_method()); 
39f0: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20  break;.#endif.  
3a00: 20 20 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f    case TLS_TLS1_
3a10: 32 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e  2:.#if defined(N
3a20: 4f 5f 54 4c 53 31 5f 32 29 0a 09 09 54 63 6c 5f  O_TLS1_2)...Tcl_
3a30: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
3a40: 65 72 70 2c 20 22 70 72 6f 74 6f 63 6f 6c 20 6e  erp, "protocol n
3a50: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e  ot supported", N
3a60: 55 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 20 54  ULL);...return T
3a70: 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a  CL_ERROR;.#else.
3a80: 09 09 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f  ..ctx = SSL_CTX_
3a90: 6e 65 77 28 54 4c 53 76 31 5f 32 5f 6d 65 74 68  new(TLSv1_2_meth
3aa0: 6f 64 28 29 29 3b 20 62 72 65 61 6b 3b 0a 23 65  od()); break;.#e
3ab0: 6e 64 69 66 0a 20 20 20 20 63 61 73 65 20 54 4c  ndif.    case TL
3ac0: 53 5f 54 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65  S_TLS1_3:.#if de
3ad0: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29  fined(NO_TLS1_3)
3ae0: 0a 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73  ...Tcl_AppendRes
3af0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f  ult(interp, "pro
3b00: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72  tocol not suppor
3b10: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72  ted", NULL);...r
3b20: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
3b30: 0a 23 65 6c 73 65 0a 09 09 63 74 78 20 3d 20 53  .#else...ctx = S
3b40: 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 76 31  SL_CTX_new(TLSv1
3b50: 5f 33 5f 6d 65 74 68 6f 64 28 29 29 3b 20 62 72  _3_method()); br
3b60: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20  eak;.#endif.    
3b70: 64 65 66 61 75 6c 74 3a 0a 09 09 62 72 65 61 6b  default:...break
3b80: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28  ;.    }.    if (
3b90: 63 74 78 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  ctx == NULL) {..
3ba0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
3bb0: 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f 4e 28  (interp, REASON(
3bc0: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ), (char *) NULL
3bd0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
3be0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20  RROR;.    }.    
3bf0: 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 63 74  ssl = SSL_new(ct
3c00: 78 29 3b 0a 20 20 20 20 69 66 20 28 73 73 6c 20  x);.    if (ssl 
3c10: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f  == NULL) {..Tcl_
3c20: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
3c30: 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 28  erp, REASON(), (
3c40: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
3c50: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78  SSL_CTX_free(ctx
3c60: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
3c70: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20  RROR;.    }.    
3c80: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77  objPtr = Tcl_New
3c90: 4c 69 73 74 4f 62 6a 28 20 30 2c 20 4e 55 4c 4c  ListObj( 0, NULL
3ca0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 21 76 65 72  );..    if (!ver
3cb0: 62 6f 73 65 29 20 7b 0a 09 66 6f 72 20 28 69 6e  bose) {..for (in
3cc0: 64 65 78 20 3d 20 30 3b 20 3b 20 69 6e 64 65 78  dex = 0; ; index
3cd0: 2b 2b 29 20 7b 0a 09 20 20 20 20 63 70 20 3d 20  ++) {..    cp = 
3ce0: 28 63 68 61 72 2a 29 53 53 4c 5f 67 65 74 5f 63  (char*)SSL_get_c
3cf0: 69 70 68 65 72 5f 6c 69 73 74 28 20 73 73 6c 2c  ipher_list( ssl,
3d00: 20 69 6e 64 65 78 29 3b 0a 09 20 20 20 20 69 66   index);..    if
3d10: 20 28 63 70 20 3d 3d 20 4e 55 4c 4c 29 20 62 72   (cp == NULL) br
3d20: 65 61 6b 3b 0a 09 20 20 20 20 54 63 6c 5f 4c 69  eak;..    Tcl_Li
3d30: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
3d40: 6e 74 28 20 69 6e 74 65 72 70 2c 20 6f 62 6a 50  nt( interp, objP
3d50: 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72  tr,...Tcl_NewStr
3d60: 69 6e 67 4f 62 6a 28 20 63 70 2c 20 2d 31 29 20  ingObj( cp, -1) 
3d70: 29 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65  );..}.    } else
3d80: 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74   {..sk = SSL_get
3d90: 5f 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a 0a  _ciphers(ssl);..
3da0: 09 66 6f 72 20 28 69 6e 64 65 78 20 3d 20 30 3b  .for (index = 0;
3db0: 20 69 6e 64 65 78 20 3c 20 73 6b 5f 53 53 4c 5f   index < sk_SSL_
3dc0: 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20  CIPHER_num(sk); 
3dd0: 69 6e 64 65 78 2b 2b 29 20 7b 0a 09 20 20 20 20  index++) {..    
3de0: 72 65 67 69 73 74 65 72 20 73 69 7a 65 5f 74 20  register size_t 
3df0: 69 3b 0a 09 20 20 20 20 53 53 4c 5f 43 49 50 48  i;..    SSL_CIPH
3e00: 45 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 20  ER_description( 
3e10: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61  sk_SSL_CIPHER_va
3e20: 6c 75 65 28 20 73 6b 2c 20 69 6e 64 65 78 29 2c  lue( sk, index),
3e30: 0a 09 09 09 09 20 20 20 20 62 75 66 2c 20 73 69  .....    buf, si
3e40: 7a 65 6f 66 28 62 75 66 29 29 3b 0a 09 20 20 20  zeof(buf));..   
3e50: 20 66 6f 72 20 28 69 20 3d 20 73 74 72 6c 65 6e   for (i = strlen
3e60: 28 62 75 66 29 20 2d 20 31 3b 20 69 20 3b 20 69  (buf) - 1; i ; i
3e70: 2d 2d 29 20 7b 0a 09 09 69 66 20 28 62 75 66 5b  --) {...if (buf[
3e80: 69 5d 20 3d 3d 20 27 20 27 20 7c 7c 20 62 75 66  i] == ' ' || buf
3e90: 5b 69 5d 20 3d 3d 20 27 5c 6e 27 20 7c 7c 0a 09  [i] == '\n' ||..
3ea0: 09 20 20 20 20 62 75 66 5b 69 5d 20 3d 3d 20 27  .    buf[i] == '
3eb0: 5c 72 27 20 7c 7c 20 62 75 66 5b 69 5d 20 3d 3d  \r' || buf[i] ==
3ec0: 20 27 5c 74 27 29 20 7b 0a 09 09 20 20 20 20 62   '\t') {...    b
3ed0: 75 66 5b 69 5d 20 3d 20 27 5c 30 27 3b 0a 09 09  uf[i] = '\0';...
3ee0: 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 62  } else {...    b
3ef0: 72 65 61 6b 3b 0a 09 09 7d 0a 09 20 20 20 20 7d  reak;...}..    }
3f00: 0a 09 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ..    Tcl_ListOb
3f10: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 20  jAppendElement( 
3f20: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 0a  interp, objPtr,.
3f30: 09 09 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  ..Tcl_NewStringO
3f40: 62 6a 28 20 62 75 66 2c 20 2d 31 29 20 29 3b 0a  bj( buf, -1) );.
3f50: 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c  .}.    }.    SSL
3f60: 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 20 20 20  _free(ssl);.    
3f70: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78  SSL_CTX_free(ctx
3f80: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f  );..    Tcl_SetO
3f90: 62 6a 52 65 73 75 6c 74 28 20 69 6e 74 65 72 70  bjResult( interp
3fa0: 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72  , objPtr);.    r
3fb0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20  eturn TCL_OK;.  
3fc0: 20 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20    .clientData = 
3fd0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a  clientData;.}...
3fe0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
3ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4020: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 48  --------. *. * H
4030: 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 20 2d  andshakeObjCmd -
4040: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 63 6f 6d  -. *. *.This com
4050: 6d 61 6e 64 20 69 73 20 75 73 65 64 20 74 6f 20  mand is used to 
4060: 76 65 72 69 66 79 20 77 68 65 74 68 65 72 20 74  verify whether t
4070: 68 65 20 68 61 6e 64 73 68 61 6b 65 20 69 73 20  he handshake is 
4080: 63 6f 6d 70 6c 65 74 65 0a 20 2a 09 6f 72 20 6e  complete. *.or n
4090: 6f 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  ot.. *. * Result
40a0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64  s:. *.A standard
40b0: 20 54 63 6c 20 72 65 73 75 6c 74 2e 20 31 20 6d   Tcl result. 1 m
40c0: 65 61 6e 73 20 68 61 6e 64 73 68 61 6b 65 20 63  eans handshake c
40d0: 6f 6d 70 6c 65 74 65 2c 20 30 20 6d 65 61 6e 73  omplete, 0 means
40e0: 20 70 65 6e 64 69 6e 67 2e 0a 20 2a 0a 20 2a 20   pending.. *. * 
40f0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
4100: 09 4d 61 79 20 66 6f 72 63 65 20 53 53 4c 20 6e  .May force SSL n
4110: 65 67 6f 74 69 61 74 69 6f 6e 20 74 6f 20 74 61  egotiation to ta
4120: 6b 65 20 70 6c 61 63 65 2e 0a 20 2a 0a 20 2a 2d  ke place.. *. *-
4130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4170: 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74 69 63 20 69  --. */..static i
4180: 6e 74 20 48 61 6e 64 73 68 61 6b 65 4f 62 6a 43  nt HandshakeObjC
4190: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  md(ClientData cl
41a0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e  ientData, Tcl_In
41b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
41c0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20  t objc, Tcl_Obj 
41d0: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 20 7b  *CONST objv[]) {
41e0: 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68  ..Tcl_Channel ch
41f0: 61 6e 3b 09 09 2f 2a 20 54 68 65 20 63 68 61 6e  an;../* The chan
4200: 6e 65 6c 20 74 6f 20 73 65 74 20 61 20 6d 6f 64  nel to set a mod
4210: 65 20 6f 6e 2e 20 2a 2f 0a 09 53 74 61 74 65 20  e on. */..State 
4220: 2a 73 74 61 74 65 50 74 72 3b 09 09 2f 2a 20 63  *statePtr;../* c
4230: 6c 69 65 6e 74 20 73 74 61 74 65 20 66 6f 72 20  lient state for 
4240: 73 73 6c 20 73 6f 63 6b 65 74 20 2a 2f 0a 09 43  ssl socket */..C
4250: 4f 4e 53 54 20 63 68 61 72 20 2a 65 72 72 53 74  ONST char *errSt
4260: 72 20 3d 20 4e 55 4c 4c 3b 0a 09 69 6e 74 20 72  r = NULL;..int r
4270: 65 74 20 3d 20 31 3b 0a 09 69 6e 74 20 65 72 72  et = 1;..int err
4280: 20 3d 20 30 3b 0a 0a 09 64 70 72 69 6e 74 66 28   = 0;...dprintf(
4290: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 09 69 66 20  "Called");...if 
42a0: 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 09  (objc != 2) {...
42b0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
42c0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
42d0: 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 09  , "channel");...
42e0: 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52  return(TCL_ERROR
42f0: 29 3b 0a 09 7d 0a 0a 09 63 68 61 6e 20 3d 20 54  );..}...chan = T
4300: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e  cl_GetChannel(in
4310: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72  terp, Tcl_GetStr
4320: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b  ingFromObj(objv[
4330: 31 5d 2c 20 4e 55 4c 4c 29 2c 20 4e 55 4c 4c 29  1], NULL), NULL)
4340: 3b 0a 09 69 66 20 28 63 68 61 6e 20 3d 3d 20 28  ;..if (chan == (
4350: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c  Tcl_Channel) NUL
4360: 4c 29 20 7b 0a 09 09 72 65 74 75 72 6e 28 54 43  L) {...return(TC
4370: 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 2f  L_ERROR);..}.../
4380: 2a 0a 09 20 2a 20 4d 61 6b 65 20 73 75 72 65 20  *.. * Make sure 
4390: 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68  to operate on th
43a0: 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65  e topmost channe
43b0: 6c 0a 09 20 2a 2f 0a 09 63 68 61 6e 20 3d 20 54  l.. */..chan = T
43c0: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c  cl_GetTopChannel
43d0: 28 63 68 61 6e 29 3b 0a 09 69 66 20 28 54 63 6c  (chan);..if (Tcl
43e0: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28  _GetChannelType(
43f0: 63 68 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61  chan) != Tls_Cha
4400: 6e 6e 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 09  nnelType()) {...
4410: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
4420: 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 68  (interp, "bad ch
4430: 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47  annel \"", Tcl_G
4440: 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68  etChannelName(ch
4450: 61 6e 29 2c 20 22 5c 22 3a 20 6e 6f 74 20 61 20  an), "\": not a 
4460: 54 4c 53 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55  TLS channel", NU
4470: 4c 4c 29 3b 0a 09 09 72 65 74 75 72 6e 28 54 43  LL);...return(TC
4480: 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 09 73 74  L_ERROR);..}..st
4490: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20  atePtr = (State 
44a0: 2a 29 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  *)Tcl_GetChannel
44b0: 49 6e 73 74 61 6e 63 65 44 61 74 61 28 63 68 61  InstanceData(cha
44c0: 6e 29 3b 0a 0a 09 64 70 72 69 6e 74 66 28 22 43  n);...dprintf("C
44d0: 61 6c 6c 69 6e 67 20 54 6c 73 5f 57 61 69 74 46  alling Tls_WaitF
44e0: 6f 72 43 6f 6e 6e 65 63 74 22 29 3b 0a 09 72 65  orConnect");..re
44f0: 74 20 3d 20 54 6c 73 5f 57 61 69 74 46 6f 72 43  t = Tls_WaitForC
4500: 6f 6e 6e 65 63 74 28 73 74 61 74 65 50 74 72 2c  onnect(statePtr,
4510: 20 26 65 72 72 2c 20 31 29 3b 0a 09 64 70 72 69   &err, 1);..dpri
4520: 6e 74 66 28 22 54 6c 73 5f 57 61 69 74 46 6f 72  ntf("Tls_WaitFor
4530: 43 6f 6e 6e 65 63 74 20 72 65 74 75 72 6e 65 64  Connect returned
4540: 3a 20 25 69 22 2c 20 72 65 74 29 3b 0a 0a 09 69  : %i", ret);...i
4550: 66 20 28 0a 09 20 20 20 20 72 65 74 20 3c 20 30  f (..    ret < 0
4560: 20 26 26 20 5c 0a 09 20 20 20 20 28 28 73 74 61   && \..    ((sta
4570: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 54  tePtr->flags & T
4580: 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 20 26 26  LS_TCL_ASYNC) &&
4590: 20 65 72 72 20 3d 3d 20 45 41 47 41 49 4e 29 0a   err == EAGAIN).
45a0: 09 29 20 7b 0a 09 09 64 70 72 69 6e 74 66 28 22  .) {...dprintf("
45b0: 41 73 79 6e 63 20 73 65 74 20 61 6e 64 20 65 72  Async set and er
45c0: 72 20 3d 20 45 41 47 41 49 4e 22 29 3b 0a 09 09  r = EAGAIN");...
45d0: 72 65 74 20 3d 20 30 3b 0a 09 7d 20 65 6c 73 65  ret = 0;..} else
45e0: 20 69 66 20 28 72 65 74 20 3c 20 30 29 20 7b 0a   if (ret < 0) {.
45f0: 09 09 65 72 72 53 74 72 20 3d 20 73 74 61 74 65  ..errStr = state
4600: 50 74 72 2d 3e 65 72 72 3b 0a 09 09 54 63 6c 5f  Ptr->err;...Tcl_
4610: 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65  ResetResult(inte
4620: 72 70 29 3b 0a 09 09 54 63 6c 5f 53 65 74 45 72  rp);...Tcl_SetEr
4630: 72 6e 6f 28 65 72 72 29 3b 0a 0a 09 09 69 66 20  rno(err);....if 
4640: 28 21 65 72 72 53 74 72 20 7c 7c 20 2a 65 72 72  (!errStr || *err
4650: 53 74 72 20 3d 3d 20 30 29 20 7b 0a 09 09 09 65  Str == 0) {....e
4660: 72 72 53 74 72 20 3d 20 54 63 6c 5f 50 6f 73 69  rrStr = Tcl_Posi
4670: 78 45 72 72 6f 72 28 69 6e 74 65 72 70 29 3b 0a  xError(interp);.
4680: 09 09 7d 0a 0a 09 09 54 63 6c 5f 41 70 70 65 6e  ..}....Tcl_Appen
4690: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
46a0: 22 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c 65  "handshake faile
46b0: 64 3a 20 22 2c 20 65 72 72 53 74 72 2c 20 28 63  d: ", errStr, (c
46c0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09  har *) NULL);...
46d0: 64 70 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69  dprintf("Returni
46e0: 6e 67 20 54 43 4c 5f 45 52 52 4f 52 20 77 69 74  ng TCL_ERROR wit
46f0: 68 20 68 61 6e 64 73 68 61 6b 65 20 66 61 69 6c  h handshake fail
4700: 65 64 3a 20 25 73 22 2c 20 65 72 72 53 74 72 29  ed: %s", errStr)
4710: 3b 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45  ;...return(TCL_E
4720: 52 52 4f 52 29 3b 0a 09 7d 20 65 6c 73 65 20 7b  RROR);..} else {
4730: 0a 09 09 69 66 20 28 65 72 72 20 21 3d 20 30 29  ...if (err != 0)
4740: 20 7b 0a 09 09 09 64 70 72 69 6e 74 66 28 22 47   {....dprintf("G
4750: 6f 74 20 61 6e 20 65 72 72 6f 72 20 77 69 74 68  ot an error with
4760: 20 61 20 63 6f 6d 70 6c 65 74 65 64 20 68 61 6e   a completed han
4770: 64 73 68 61 6b 65 3a 20 65 72 72 20 3d 20 25 69  dshake: err = %i
4780: 22 2c 20 65 72 72 29 3b 0a 09 09 7d 0a 0a 09 09  ", err);...}....
4790: 72 65 74 20 3d 20 31 3b 0a 09 7d 0a 0a 09 64 70  ret = 1;..}...dp
47a0: 72 69 6e 74 66 28 22 52 65 74 75 72 6e 69 6e 67  rintf("Returning
47b0: 20 54 43 4c 5f 4f 4b 20 77 69 74 68 20 64 61 74   TCL_OK with dat
47c0: 61 20 5c 22 25 69 5c 22 22 2c 20 72 65 74 29 3b  a \"%i\"", ret);
47d0: 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75  ..Tcl_SetObjResu
47e0: 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e  lt(interp, Tcl_N
47f0: 65 77 49 6e 74 4f 62 6a 28 72 65 74 29 29 3b 0a  ewIntObj(ret));.
4800: 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b  .return(TCL_OK);
4810: 0a 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74  ..    .clientDat
4820: 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a  a = clientData;.
4830: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  }../*. *--------
4840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
4880: 2a 20 49 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 2d  * ImportObjCmd -
4890: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f  -. *. *.This pro
48a0: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65  cedure is invoke
48b0: 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65  d to process the
48c0: 20 22 73 73 6c 22 20 63 6f 6d 6d 61 6e 64 0a 20   "ssl" command. 
48d0: 2a 0a 20 2a 09 54 68 65 20 73 73 6c 20 63 6f 6d  *. *.The ssl com
48e0: 6d 61 6e 64 20 70 75 73 68 65 73 20 53 53 4c 20  mand pushes SSL 
48f0: 6f 76 65 72 20 61 20 28 6e 65 77 6c 79 20 63 6f  over a (newly co
4900: 6e 6e 65 63 74 65 64 29 20 74 63 70 20 73 6f 63  nnected) tcp soc
4910: 6b 65 74 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  ket. *. * Result
4920: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64  s:. *.A standard
4930: 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a   Tcl result.. *.
4940: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
4950: 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79 20 74  . *.May modify t
4960: 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 61  he behavior of a
4970: 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a  n IO channel.. *
4980: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
4990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49c0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74 61 74  ------. */..stat
49d0: 69 63 20 69 6e 74 0a 49 6d 70 6f 72 74 4f 62 6a  ic int.ImportObj
49e0: 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c 20  Cmd(clientData, 
49f0: 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62  interp, objc, ob
4a00: 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44 61  jv).    ClientDa
4a10: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09 2f  ta clientData;./
4a20: 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a 20  * Not used. */. 
4a30: 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69     Tcl_Interp *i
4a40: 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20 6f  nterp;.    int o
4a50: 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a  bjc;.    Tcl_Obj
4a60: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b 0a   *CONST objv[];.
4a70: 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65  {.    Tcl_Channe
4a80: 6c 20 63 68 61 6e 3b 09 09 2f 2a 20 54 68 65 20  l chan;../* The 
4a90: 63 68 61 6e 6e 65 6c 20 74 6f 20 73 65 74 20 61  channel to set a
4aa0: 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f 0a 20 20 20   mode on. */.   
4ab0: 20 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72   State *statePtr
4ac0: 3b 09 09 2f 2a 20 63 6c 69 65 6e 74 20 73 74 61  ;../* client sta
4ad0: 74 65 20 66 6f 72 20 73 73 6c 20 73 6f 63 6b 65  te for ssl socke
4ae0: 74 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58  t */.    SSL_CTX
4af0: 20 2a 63 74 78 09 3d 20 4e 55 4c 4c 3b 0a 20 20   *ctx.= NULL;.  
4b00: 20 20 54 63 6c 5f 4f 62 6a 20 2a 73 63 72 69 70    Tcl_Obj *scrip
4b10: 74 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63  t.= NULL;.    Tc
4b20: 6c 5f 4f 62 6a 20 2a 70 61 73 73 77 6f 72 64 09  l_Obj *password.
4b30: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f  = NULL;.    Tcl_
4b40: 44 53 74 72 69 6e 67 20 75 70 70 65 72 43 68 61  DString upperCha
4b50: 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f 6e 2c  nnelTranslation,
4b60: 20 75 70 70 65 72 43 68 61 6e 6e 65 6c 42 6c 6f   upperChannelBlo
4b70: 63 6b 69 6e 67 2c 20 75 70 70 65 72 43 68 61 6e  cking, upperChan
4b80: 6e 65 6c 45 6e 63 6f 64 69 6e 67 2c 20 75 70 70  nelEncoding, upp
4b90: 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43 68 61 72  erChannelEOFChar
4ba0: 3b 0a 20 20 20 20 69 6e 74 20 69 64 78 2c 20 6c  ;.    int idx, l
4bb0: 65 6e 3b 0a 20 20 20 20 69 6e 74 20 66 6c 61 67  en;.    int flag
4bc0: 73 09 09 3d 20 54 4c 53 5f 54 43 4c 5f 49 4e 49  s..= TLS_TCL_INI
4bd0: 54 3b 0a 20 20 20 20 69 6e 74 20 73 65 72 76 65  T;.    int serve
4be0: 72 09 09 3d 20 30 3b 09 2f 2a 20 69 73 20 63 6f  r..= 0;./* is co
4bf0: 6e 6e 65 63 74 69 6f 6e 20 69 6e 63 6f 6d 69 6e  nnection incomin
4c00: 67 20 6f 72 20 6f 75 74 67 6f 69 6e 67 3f 20 2a  g or outgoing? *
4c10: 2f 0a 20 20 20 20 63 68 61 72 20 2a 6b 65 79 09  /.    char *key.
4c20: 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61  .= NULL;.    cha
4c30: 72 20 2a 63 65 72 74 09 09 3d 20 4e 55 4c 4c 3b  r *cert..= NULL;
4c40: 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 65  .    char *ciphe
4c50: 72 73 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63  rs.= NULL;.    c
4c60: 68 61 72 20 2a 43 41 66 69 6c 65 09 3d 20 4e 55  har *CAfile.= NU
4c70: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 43 41  LL;.    char *CA
4c80: 64 69 72 09 09 3d 20 4e 55 4c 4c 3b 0a 20 20 20  dir..= NULL;.   
4c90: 20 63 68 61 72 20 2a 44 48 70 61 72 61 6d 73 09   char *DHparams.
4ca0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 72  = NULL;.    char
4cb0: 20 2a 6d 6f 64 65 6c 09 09 3d 20 4e 55 4c 4c 3b   *model..= NULL;
4cc0: 0a 23 69 66 6e 64 65 66 20 4f 50 45 4e 53 53 4c  .#ifndef OPENSSL
4cd0: 5f 4e 4f 5f 54 4c 53 45 58 54 0a 20 20 20 20 63  _NO_TLSEXT.    c
4ce0: 68 61 72 20 2a 73 65 72 76 65 72 6e 61 6d 65 09  har *servername.
4cf0: 3d 20 4e 55 4c 4c 3b 09 2f 2a 20 68 6f 73 74 6e  = NULL;./* hostn
4d00: 61 6d 65 20 66 6f 72 20 53 65 72 76 65 72 20 4e  ame for Server N
4d10: 61 6d 65 20 49 6e 64 69 63 61 74 69 6f 6e 20 2a  ame Indication *
4d20: 2f 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 6e 74  /.#endif.    int
4d30: 20 73 73 6c 32 20 3d 20 30 2c 20 73 73 6c 33 20   ssl2 = 0, ssl3 
4d40: 3d 20 30 3b 0a 20 20 20 20 69 6e 74 20 74 6c 73  = 0;.    int tls
4d50: 31 20 3d 20 31 2c 20 74 6c 73 31 5f 31 20 3d 20  1 = 1, tls1_1 = 
4d60: 31 2c 20 74 6c 73 31 5f 32 20 3d 20 31 2c 20 74  1, tls1_2 = 1, t
4d70: 6c 73 31 5f 33 20 3d 20 31 3b 0a 20 20 20 20 69  ls1_3 = 1;.    i
4d80: 6e 74 20 70 72 6f 74 6f 20 3d 20 30 3b 0a 20 20  nt proto = 0;.  
4d90: 20 20 69 6e 74 20 76 65 72 69 66 79 20 3d 20 30    int verify = 0
4da0: 2c 20 72 65 71 75 69 72 65 20 3d 20 30 2c 20 72  , require = 0, r
4db0: 65 71 75 65 73 74 20 3d 20 31 3b 0a 0a 20 20 20  equest = 1;..   
4dc0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64   dprintf("Called
4dd0: 22 29 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64  ");..#if defined
4de0: 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 64 65 66  (NO_TLS1) && def
4df0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20  ined(NO_TLS1_1) 
4e00: 26 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c  && defined(NO_TL
4e10: 53 31 5f 32 29 20 26 26 20 64 65 66 69 6e 65 64  S1_2) && defined
4e20: 28 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 65  (NO_SSL3) && !de
4e30: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20  fined(NO_SSL2). 
4e40: 20 20 20 73 73 6c 32 20 3d 20 31 3b 0a 23 65 6e     ssl2 = 1;.#en
4e50: 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28  dif.#if defined(
4e60: 4e 4f 5f 54 4c 53 31 29 20 26 26 20 64 65 66 69  NO_TLS1) && defi
4e70: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 26  ned(NO_TLS1_1) &
4e80: 26 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53  & defined(NO_TLS
4e90: 31 5f 32 29 20 26 26 20 64 65 66 69 6e 65 64 28  1_2) && defined(
4ea0: 4e 4f 5f 53 53 4c 32 29 20 26 26 20 21 64 65 66  NO_SSL2) && !def
4eb0: 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 0a 20 20  ined(NO_SSL3).  
4ec0: 20 20 73 73 6c 33 20 3d 20 31 3b 0a 23 65 6e 64    ssl3 = 1;.#end
4ed0: 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e  if.#if defined(N
4ee0: 4f 5f 54 4c 53 31 29 0a 20 20 20 20 74 6c 73 31  O_TLS1).    tls1
4ef0: 20 3d 20 30 3b 0a 23 65 6e 64 69 66 0a 23 69 66   = 0;.#endif.#if
4f00: 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31   defined(NO_TLS1
4f10: 5f 31 29 0a 20 20 20 20 74 6c 73 31 5f 31 20 3d  _1).    tls1_1 =
4f20: 20 30 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64   0;.#endif.#if d
4f30: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32  efined(NO_TLS1_2
4f40: 29 0a 20 20 20 20 74 6c 73 31 5f 32 20 3d 20 30  ).    tls1_2 = 0
4f50: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 64 65 66  ;.#endif.#if def
4f60: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 0a  ined(NO_TLS1_3).
4f70: 20 20 20 20 74 6c 73 31 5f 33 20 3d 20 30 3b 0a      tls1_3 = 0;.
4f80: 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20 28  #endif..    if (
4f90: 6f 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c  objc < 2) {..Tcl
4fa0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e  _WrongNumArgs(in
4fb0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22  terp, 1, objv, "
4fc0: 63 68 61 6e 6e 65 6c 20 3f 6f 70 74 69 6f 6e 73  channel ?options
4fd0: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c  ?");..return TCL
4fe0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20  _ERROR;.    }.. 
4ff0: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65     chan = Tcl_Ge
5000: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c  tChannel(interp,
5010: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72   Tcl_GetStringFr
5020: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e  omObj(objv[1], N
5030: 55 4c 4c 29 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20  ULL), NULL);.   
5040: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63   if (chan == (Tc
5050: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29  l_Channel) NULL)
5060: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45   {..return TCL_E
5070: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  RROR;.    }..   
5080: 20 2f 2a 0a 20 20 20 20 20 2a 20 4d 61 6b 65 20   /*.     * Make 
5090: 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20  sure to operate 
50a0: 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63  on the topmost c
50b0: 68 61 6e 6e 65 6c 0a 20 20 20 20 20 2a 2f 0a 20  hannel.     */. 
50c0: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65     chan = Tcl_Ge
50d0: 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e  tTopChannel(chan
50e0: 29 3b 0a 0a 20 20 20 20 66 6f 72 20 28 69 64 78  );..    for (idx
50f0: 20 3d 20 32 3b 20 69 64 78 20 3c 20 6f 62 6a 63   = 2; idx < objc
5100: 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 63 68 61 72  ; idx++) {..char
5110: 20 2a 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53   *opt = Tcl_GetS
5120: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a  tringFromObj(obj
5130: 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a  v[idx], NULL);..
5140: 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27  .if (opt[0] != '
5150: 2d 27 29 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a  -')..    break;.
5160: 0a 09 4f 50 54 53 54 52 28 20 22 2d 63 61 64 69  ..OPTSTR( "-cadi
5170: 72 22 2c 20 43 41 64 69 72 29 3b 0a 09 4f 50 54  r", CAdir);..OPT
5180: 53 54 52 28 20 22 2d 63 61 66 69 6c 65 22 2c 20  STR( "-cafile", 
5190: 43 41 66 69 6c 65 29 3b 0a 09 4f 50 54 53 54 52  CAfile);..OPTSTR
51a0: 28 20 22 2d 63 65 72 74 66 69 6c 65 22 2c 20 63  ( "-certfile", c
51b0: 65 72 74 29 3b 0a 09 4f 50 54 53 54 52 28 20 22  ert);..OPTSTR( "
51c0: 2d 63 69 70 68 65 72 22 2c 20 63 69 70 68 65 72  -cipher", cipher
51d0: 73 29 3b 0a 09 4f 50 54 4f 42 4a 28 20 22 2d 63  s);..OPTOBJ( "-c
51e0: 6f 6d 6d 61 6e 64 22 2c 20 73 63 72 69 70 74 29  ommand", script)
51f0: 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 64 68 70  ;..OPTSTR( "-dhp
5200: 61 72 61 6d 73 22 2c 20 44 48 70 61 72 61 6d 73  arams", DHparams
5210: 29 3b 0a 09 4f 50 54 53 54 52 28 20 22 2d 6b 65  );..OPTSTR( "-ke
5220: 79 66 69 6c 65 22 2c 20 6b 65 79 29 3b 0a 09 4f  yfile", key);..O
5230: 50 54 53 54 52 28 20 22 2d 6d 6f 64 65 6c 22 2c  PTSTR( "-model",
5240: 20 6d 6f 64 65 6c 29 3b 0a 09 4f 50 54 4f 42 4a   model);..OPTOBJ
5250: 28 20 22 2d 70 61 73 73 77 6f 72 64 22 2c 20 70  ( "-password", p
5260: 61 73 73 77 6f 72 64 29 3b 0a 09 4f 50 54 42 4f  assword);..OPTBO
5270: 4f 4c 28 20 22 2d 72 65 71 75 69 72 65 22 2c 20  OL( "-require", 
5280: 72 65 71 75 69 72 65 29 3b 0a 09 4f 50 54 42 4f  require);..OPTBO
5290: 4f 4c 28 20 22 2d 72 65 71 75 65 73 74 22 2c 20  OL( "-request", 
52a0: 72 65 71 75 65 73 74 29 3b 0a 09 4f 50 54 42 4f  request);..OPTBO
52b0: 4f 4c 28 20 22 2d 73 65 72 76 65 72 22 2c 20 73  OL( "-server", s
52c0: 65 72 76 65 72 29 3b 0a 23 69 66 6e 64 65 66 20  erver);.#ifndef 
52d0: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 45 58  OPENSSL_NO_TLSEX
52e0: 54 0a 20 20 20 20 20 20 20 20 4f 50 54 53 54 52  T.        OPTSTR
52f0: 28 20 22 2d 73 65 72 76 65 72 6e 61 6d 65 22 2c  ( "-servername",
5300: 20 73 65 72 76 65 72 6e 61 6d 65 29 3b 0a 23 65   servername);.#e
5310: 6e 64 69 66 0a 0a 09 4f 50 54 42 4f 4f 4c 28 20  ndif...OPTBOOL( 
5320: 22 2d 73 73 6c 32 22 2c 20 73 73 6c 32 29 3b 0a  "-ssl2", ssl2);.
5330: 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 73 73 6c 33  .OPTBOOL( "-ssl3
5340: 22 2c 20 73 73 6c 33 29 3b 0a 09 4f 50 54 42 4f  ", ssl3);..OPTBO
5350: 4f 4c 28 20 22 2d 74 6c 73 31 22 2c 20 74 6c 73  OL( "-tls1", tls
5360: 31 29 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d  1);..OPTBOOL( "-
5370: 74 6c 73 31 2e 31 22 2c 20 74 6c 73 31 5f 31 29  tls1.1", tls1_1)
5380: 3b 0a 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c  ;..OPTBOOL( "-tl
5390: 73 31 2e 32 22 2c 20 74 6c 73 31 5f 32 29 3b 0a  s1.2", tls1_2);.
53a0: 09 4f 50 54 42 4f 4f 4c 28 20 22 2d 74 6c 73 31  .OPTBOOL( "-tls1
53b0: 2e 33 22 2c 20 74 6c 73 31 5f 33 29 3b 0a 0a 09  .3", tls1_3);...
53c0: 4f 50 54 42 41 44 28 20 22 6f 70 74 69 6f 6e 22  OPTBAD( "option"
53d0: 2c 20 22 2d 63 61 64 69 72 2c 20 2d 63 61 66 69  , "-cadir, -cafi
53e0: 6c 65 2c 20 2d 63 65 72 74 66 69 6c 65 2c 20 2d  le, -certfile, -
53f0: 63 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64  cipher, -command
5400: 2c 20 2d 64 68 70 61 72 61 6d 73 2c 20 2d 6b 65  , -dhparams, -ke
5410: 79 66 69 6c 65 2c 20 2d 6d 6f 64 65 6c 2c 20 2d  yfile, -model, -
5420: 70 61 73 73 77 6f 72 64 2c 20 2d 72 65 71 75 69  password, -requi
5430: 72 65 2c 20 2d 72 65 71 75 65 73 74 2c 20 2d 73  re, -request, -s
5440: 65 72 76 65 72 2c 20 2d 73 65 72 76 65 72 6e 61  erver, -serverna
5450: 6d 65 2c 20 2d 73 73 6c 32 2c 20 2d 73 73 6c 33  me, -ssl2, -ssl3
5460: 2c 20 2d 74 6c 73 31 2c 20 2d 74 6c 73 31 2e 31  , -tls1, -tls1.1
5470: 2c 20 2d 74 6c 73 31 2e 32 2c 20 6f 72 20 74 6c  , -tls1.2, or tl
5480: 73 31 2e 33 22 29 3b 0a 0a 09 72 65 74 75 72 6e  s1.3");...return
5490: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
54a0: 7d 0a 20 20 20 20 69 66 20 28 72 65 71 75 65 73  }.    if (reques
54b0: 74 29 09 20 20 20 20 76 65 72 69 66 79 20 7c 3d  t).    verify |=
54c0: 20 53 53 4c 5f 56 45 52 49 46 59 5f 43 4c 49 45   SSL_VERIFY_CLIE
54d0: 4e 54 5f 4f 4e 43 45 20 7c 20 53 53 4c 5f 56 45  NT_ONCE | SSL_VE
54e0: 52 49 46 59 5f 50 45 45 52 3b 0a 20 20 20 20 69  RIFY_PEER;.    i
54f0: 66 20 28 72 65 71 75 65 73 74 20 26 26 20 72 65  f (request && re
5500: 71 75 69 72 65 29 20 76 65 72 69 66 79 20 7c 3d  quire) verify |=
5510: 20 53 53 4c 5f 56 45 52 49 46 59 5f 46 41 49 4c   SSL_VERIFY_FAIL
5520: 5f 49 46 5f 4e 4f 5f 50 45 45 52 5f 43 45 52 54  _IF_NO_PEER_CERT
5530: 3b 0a 20 20 20 20 69 66 20 28 76 65 72 69 66 79  ;.    if (verify
5540: 20 3d 3d 20 30 29 09 76 65 72 69 66 79 20 3d 20   == 0).verify = 
5550: 53 53 4c 5f 56 45 52 49 46 59 5f 4e 4f 4e 45 3b  SSL_VERIFY_NONE;
5560: 0a 0a 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28  ..    proto |= (
5570: 73 73 6c 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f  ssl2 ? TLS_PROTO
5580: 5f 53 53 4c 32 20 3a 20 30 29 3b 0a 20 20 20 20  _SSL2 : 0);.    
5590: 70 72 6f 74 6f 20 7c 3d 20 28 73 73 6c 33 20 3f  proto |= (ssl3 ?
55a0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 20   TLS_PROTO_SSL3 
55b0: 3a 20 30 29 3b 0a 20 20 20 20 70 72 6f 74 6f 20  : 0);.    proto 
55c0: 7c 3d 20 28 74 6c 73 31 20 3f 20 54 4c 53 5f 50  |= (tls1 ? TLS_P
55d0: 52 4f 54 4f 5f 54 4c 53 31 20 3a 20 30 29 3b 0a  ROTO_TLS1 : 0);.
55e0: 20 20 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c      proto |= (tl
55f0: 73 31 5f 31 20 3f 20 54 4c 53 5f 50 52 4f 54 4f  s1_1 ? TLS_PROTO
5600: 5f 54 4c 53 31 5f 31 20 3a 20 30 29 3b 0a 20 20  _TLS1_1 : 0);.  
5610: 20 20 70 72 6f 74 6f 20 7c 3d 20 28 74 6c 73 31    proto |= (tls1
5620: 5f 32 20 3f 20 54 4c 53 5f 50 52 4f 54 4f 5f 54  _2 ? TLS_PROTO_T
5630: 4c 53 31 5f 32 20 3a 20 30 29 3b 0a 0a 20 20 20  LS1_2 : 0);..   
5640: 20 2f 2a 20 72 65 73 65 74 20 74 6f 20 4e 55 4c   /* reset to NUL
5650: 4c 20 69 66 20 62 6c 61 6e 6b 20 73 74 72 69 6e  L if blank strin
5660: 67 20 70 72 6f 76 69 64 65 64 20 2a 2f 0a 20 20  g provided */.  
5670: 20 20 69 66 20 28 63 65 72 74 20 26 26 20 21 2a    if (cert && !*
5680: 63 65 72 74 29 09 09 63 65 72 74 09 20 3d 20 4e  cert)..cert. = N
5690: 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28 6b 65 79  ULL;.    if (key
56a0: 20 26 26 20 21 2a 6b 65 79 29 09 09 6b 65 79 09   && !*key)..key.
56b0: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20   = NULL;.    if 
56c0: 28 63 69 70 68 65 72 73 20 26 26 20 21 2a 63 69  (ciphers && !*ci
56d0: 70 68 65 72 73 29 09 63 69 70 68 65 72 73 09 20  phers).ciphers. 
56e0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 66 20 28  = NULL;.    if (
56f0: 43 41 66 69 6c 65 20 26 26 20 21 2a 43 41 66 69  CAfile && !*CAfi
5700: 6c 65 29 09 43 41 66 69 6c 65 09 20 3d 20 4e 55  le).CAfile. = NU
5710: 4c 4c 3b 0a 20 20 20 20 69 66 20 28 43 41 64 69  LL;.    if (CAdi
5720: 72 20 26 26 20 21 2a 43 41 64 69 72 29 09 43 41  r && !*CAdir).CA
5730: 64 69 72 09 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20  dir. = NULL;.   
5740: 20 69 66 20 28 44 48 70 61 72 61 6d 73 20 26 26   if (DHparams &&
5750: 20 21 2a 44 48 70 61 72 61 6d 73 29 09 44 48 70   !*DHparams).DHp
5760: 61 72 61 6d 73 20 3d 20 4e 55 4c 4c 3b 0a 0a 20  arams = NULL;.. 
5770: 20 20 20 2f 2a 20 6e 65 77 20 53 53 4c 20 73 74     /* new SSL st
5780: 61 74 65 20 2a 2f 0a 20 20 20 20 73 74 61 74 65  ate */.    state
5790: 50 74 72 09 09 3d 20 28 53 74 61 74 65 20 2a 29  Ptr..= (State *)
57a0: 20 63 6b 61 6c 6c 6f 63 28 28 75 6e 73 69 67 6e   ckalloc((unsign
57b0: 65 64 29 20 73 69 7a 65 6f 66 28 53 74 61 74 65  ed) sizeof(State
57c0: 29 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 73  ));.    memset(s
57d0: 74 61 74 65 50 74 72 2c 20 30 2c 20 73 69 7a 65  tatePtr, 0, size
57e0: 6f 66 28 53 74 61 74 65 29 29 3b 0a 0a 20 20 20  of(State));..   
57f0: 20 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73   statePtr->flags
5800: 09 3d 20 66 6c 61 67 73 3b 0a 20 20 20 20 73 74  .= flags;.    st
5810: 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 09 3d  atePtr->interp.=
5820: 20 69 6e 74 65 72 70 3b 0a 20 20 20 20 73 74 61   interp;.    sta
5830: 74 65 50 74 72 2d 3e 76 66 6c 61 67 73 09 3d 20  tePtr->vflags.= 
5840: 76 65 72 69 66 79 3b 0a 20 20 20 20 73 74 61 74  verify;.    stat
5850: 65 50 74 72 2d 3e 65 72 72 09 3d 20 22 22 3b 0a  ePtr->err.= "";.
5860: 0a 20 20 20 20 2f 2a 20 61 6c 6c 6f 63 61 74 65  .    /* allocate
5870: 20 73 63 72 69 70 74 20 2a 2f 0a 20 20 20 20 69   script */.    i
5880: 66 20 28 73 63 72 69 70 74 29 20 7b 0a 09 28 76  f (script) {..(v
5890: 6f 69 64 29 20 54 63 6c 5f 47 65 74 53 74 72 69  oid) Tcl_GetStri
58a0: 6e 67 46 72 6f 6d 4f 62 6a 28 73 63 72 69 70 74  ngFromObj(script
58b0: 2c 20 26 6c 65 6e 29 3b 0a 09 69 66 20 28 6c 65  , &len);..if (le
58c0: 6e 29 20 7b 0a 09 20 20 20 20 73 74 61 74 65 50  n) {..    stateP
58d0: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 73  tr->callback = s
58e0: 63 72 69 70 74 3b 0a 09 20 20 20 20 54 63 6c 5f  cript;..    Tcl_
58f0: 49 6e 63 72 52 65 66 43 6f 75 6e 74 28 73 74 61  IncrRefCount(sta
5900: 74 65 50 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29  tePtr->callback)
5910: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ;..}.    }..    
5920: 2f 2a 20 61 6c 6c 6f 63 61 74 65 20 70 61 73 73  /* allocate pass
5930: 77 6f 72 64 20 2a 2f 0a 20 20 20 20 69 66 20 28  word */.    if (
5940: 70 61 73 73 77 6f 72 64 29 20 7b 0a 09 28 76 6f  password) {..(vo
5950: 69 64 29 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  id) Tcl_GetStrin
5960: 67 46 72 6f 6d 4f 62 6a 28 70 61 73 73 77 6f 72  gFromObj(passwor
5970: 64 2c 20 26 6c 65 6e 29 3b 0a 09 69 66 20 28 6c  d, &len);..if (l
5980: 65 6e 29 20 7b 0a 09 20 20 20 20 73 74 61 74 65  en) {..    state
5990: 50 74 72 2d 3e 70 61 73 73 77 6f 72 64 20 3d 20  Ptr->password = 
59a0: 70 61 73 73 77 6f 72 64 3b 0a 09 20 20 20 20 54  password;..    T
59b0: 63 6c 5f 49 6e 63 72 52 65 66 43 6f 75 6e 74 28  cl_IncrRefCount(
59c0: 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f  statePtr->passwo
59d0: 72 64 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20  rd);..}.    }.. 
59e0: 20 20 20 69 66 20 28 6d 6f 64 65 6c 20 21 3d 20     if (model != 
59f0: 4e 55 4c 4c 29 20 7b 0a 09 69 6e 74 20 6d 6f 64  NULL) {..int mod
5a00: 65 3b 0a 09 2f 2a 20 47 65 74 20 74 68 65 20 22  e;../* Get the "
5a10: 6d 6f 64 65 6c 22 20 63 6f 6e 74 65 78 74 20 2a  model" context *
5a20: 2f 0a 09 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65  /..chan = Tcl_Ge
5a30: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c  tChannel(interp,
5a40: 20 6d 6f 64 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a   model, &mode);.
5a50: 09 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63  .if (chan == (Tc
5a60: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29  l_Channel) NULL)
5a70: 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46 72 65 65   {..    Tls_Free
5a80: 28 28 63 68 61 72 20 2a 29 20 73 74 61 74 65 50  ((char *) stateP
5a90: 74 72 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e  tr);..    return
5aa0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a   TCL_ERROR;..}..
5ab0: 20 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20          /*.     
5ac0: 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 65 20      * Make sure 
5ad0: 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68  to operate on th
5ae0: 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65  e topmost channe
5af0: 6c 0a 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20  l.         */.  
5b00: 20 20 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c        chan = Tcl
5b10: 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63  _GetTopChannel(c
5b20: 68 61 6e 29 3b 0a 09 69 66 20 28 54 63 6c 5f 47  han);..if (Tcl_G
5b30: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68  etChannelType(ch
5b40: 61 6e 29 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e  an) != Tls_Chann
5b50: 65 6c 54 79 70 65 28 29 29 20 7b 0a 09 20 20 20  elType()) {..   
5b60: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
5b70: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63  t(interp, "bad c
5b80: 68 61 6e 6e 65 6c 20 5c 22 22 2c 0a 09 09 20 20  hannel \"",...  
5b90: 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c    Tcl_GetChannel
5ba0: 4e 61 6d 65 28 63 68 61 6e 29 2c 20 22 5c 22 3a  Name(chan), "\":
5bb0: 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e   not a TLS chann
5bc0: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20  el", NULL);..   
5bd0: 20 54 6c 73 5f 46 72 65 65 28 28 63 68 61 72 20   Tls_Free((char 
5be0: 2a 29 20 73 74 61 74 65 50 74 72 29 3b 0a 09 20  *) statePtr);.. 
5bf0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
5c00: 52 4f 52 3b 0a 09 7d 0a 09 63 74 78 20 3d 20 28  ROR;..}..ctx = (
5c10: 28 53 74 61 74 65 20 2a 29 54 63 6c 5f 47 65 74  (State *)Tcl_Get
5c20: 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44  ChannelInstanceD
5c30: 61 74 61 28 63 68 61 6e 29 29 2d 3e 63 74 78 3b  ata(chan))->ctx;
5c40: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 69  .    } else {..i
5c50: 66 20 28 28 63 74 78 20 3d 20 43 54 58 5f 49 6e  f ((ctx = CTX_In
5c60: 69 74 28 73 74 61 74 65 50 74 72 2c 20 70 72 6f  it(statePtr, pro
5c70: 74 6f 2c 20 6b 65 79 2c 20 63 65 72 74 2c 20 43  to, key, cert, C
5c80: 41 64 69 72 2c 20 43 41 66 69 6c 65 2c 20 63 69  Adir, CAfile, ci
5c90: 70 68 65 72 73 2c 0a 09 09 44 48 70 61 72 61 6d  phers,...DHparam
5ca0: 73 29 29 20 3d 3d 20 28 53 53 4c 5f 43 54 58 2a  s)) == (SSL_CTX*
5cb0: 29 30 29 20 7b 0a 09 20 20 20 20 54 6c 73 5f 46  )0) {..    Tls_F
5cc0: 72 65 65 28 28 63 68 61 72 20 2a 29 20 73 74 61  ree((char *) sta
5cd0: 74 65 50 74 72 29 3b 0a 09 20 20 20 20 72 65 74  tePtr);..    ret
5ce0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09  urn TCL_ERROR;..
5cf0: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61  }.    }..    sta
5d00: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 63 74 78  tePtr->ctx = ctx
5d10: 3b 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  ;..    /*.     *
5d20: 20 57 65 20 6e 65 65 64 20 74 6f 20 6d 61 6b 65   We need to make
5d30: 20 73 75 72 65 20 74 68 61 74 20 74 68 65 20 63   sure that the c
5d40: 68 61 6e 6e 65 6c 20 77 6f 72 6b 73 20 69 6e 20  hannel works in 
5d50: 62 69 6e 61 72 79 20 28 66 6f 72 20 74 68 65 0a  binary (for the.
5d60: 20 20 20 20 20 2a 20 65 6e 63 72 79 70 74 69 6f       * encryptio
5d70: 6e 20 6e 6f 74 20 74 6f 20 67 65 74 20 67 6f 6f  n not to get goo
5d80: 66 65 64 20 75 70 29 2e 0a 20 20 20 20 20 2a 20  fed up)..     * 
5d90: 57 65 20 6f 6e 6c 79 20 77 61 6e 74 20 74 6f 20  We only want to 
5da0: 61 64 6a 75 73 74 20 74 68 65 20 62 75 66 66 65  adjust the buffe
5db0: 72 69 6e 67 20 69 6e 20 70 72 65 2d 76 32 20 63  ring in pre-v2 c
5dc0: 68 61 6e 6e 65 6c 73 2c 20 77 68 65 72 65 0a 20  hannels, where. 
5dd0: 20 20 20 20 2a 20 65 61 63 68 20 63 68 61 6e 6e      * each chann
5de0: 65 6c 20 69 6e 20 74 68 65 20 73 74 61 63 6b 20  el in the stack 
5df0: 6d 61 69 6e 74 61 69 6e 65 64 20 69 74 73 20 6f  maintained its o
5e00: 77 6e 20 62 75 66 66 65 72 73 2e 0a 20 20 20 20  wn buffers..    
5e10: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 44 53 74 72   */.    Tcl_DStr
5e20: 69 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 68  ingInit(&upperCh
5e30: 61 6e 6e 65 6c 54 72 61 6e 73 6c 61 74 69 6f 6e  annelTranslation
5e40: 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69  );.    Tcl_DStri
5e50: 6e 67 49 6e 69 74 28 26 75 70 70 65 72 43 68 61  ngInit(&upperCha
5e60: 6e 6e 65 6c 42 6c 6f 63 6b 69 6e 67 29 3b 0a 20  nnelBlocking);. 
5e70: 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e     Tcl_DStringIn
5e80: 69 74 28 26 75 70 70 65 72 43 68 61 6e 6e 65 6c  it(&upperChannel
5e90: 45 4f 46 43 68 61 72 29 3b 0a 20 20 20 20 54 63  EOFChar);.    Tc
5ea0: 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26 75  l_DStringInit(&u
5eb0: 70 70 65 72 43 68 61 6e 6e 65 6c 45 6e 63 6f 64  pperChannelEncod
5ec0: 69 6e 67 29 3b 0a 20 20 20 20 54 63 6c 5f 47 65  ing);.    Tcl_Ge
5ed0: 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69  tChannelOption(i
5ee0: 6e 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 65  nterp, chan, "-e
5ef0: 6f 66 63 68 61 72 22 2c 20 26 75 70 70 65 72 43  ofchar", &upperC
5f00: 68 61 6e 6e 65 6c 45 4f 46 43 68 61 72 29 3b 0a  hannelEOFChar);.
5f10: 20 20 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e      Tcl_GetChann
5f20: 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c  elOption(interp,
5f30: 20 63 68 61 6e 2c 20 22 2d 65 6e 63 6f 64 69 6e   chan, "-encodin
5f40: 67 22 2c 20 26 75 70 70 65 72 43 68 61 6e 6e 65  g", &upperChanne
5f50: 6c 45 6e 63 6f 64 69 6e 67 29 3b 0a 20 20 20 20  lEncoding);.    
5f60: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4f 70  Tcl_GetChannelOp
5f70: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61  tion(interp, cha
5f80: 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e  n, "-translation
5f90: 22 2c 20 26 75 70 70 65 72 43 68 61 6e 6e 65 6c  ", &upperChannel
5fa0: 54 72 61 6e 73 6c 61 74 69 6f 6e 29 3b 0a 20 20  Translation);.  
5fb0: 20 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c    Tcl_GetChannel
5fc0: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63  Option(interp, c
5fd0: 68 61 6e 2c 20 22 2d 62 6c 6f 63 6b 69 6e 67 22  han, "-blocking"
5fe0: 2c 20 26 75 70 70 65 72 43 68 61 6e 6e 65 6c 42  , &upperChannelB
5ff0: 6c 6f 63 6b 69 6e 67 29 3b 0a 20 20 20 20 54 63  locking);.    Tc
6000: 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69  l_SetChannelOpti
6010: 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 2c  on(interp, chan,
6020: 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e 22 2c   "-translation",
6030: 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 20 20   "binary");.    
6040: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70  Tcl_SetChannelOp
6050: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61  tion(interp, cha
6060: 6e 2c 20 22 2d 62 6c 6f 63 6b 69 6e 67 22 2c 20  n, "-blocking", 
6070: 22 74 72 75 65 22 29 3b 0a 20 20 20 20 64 70 72  "true");.    dpr
6080: 69 6e 74 66 28 22 43 6f 6e 73 75 6d 69 6e 67 20  intf("Consuming 
6090: 54 63 6c 20 63 68 61 6e 6e 65 6c 20 25 73 22 2c  Tcl channel %s",
60a0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e   Tcl_GetChannelN
60b0: 61 6d 65 28 63 68 61 6e 29 29 3b 0a 20 20 20 20  ame(chan));.    
60c0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d  statePtr->self =
60d0: 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65   Tcl_StackChanne
60e0: 6c 28 69 6e 74 65 72 70 2c 20 54 6c 73 5f 43 68  l(interp, Tls_Ch
60f0: 61 6e 6e 65 6c 54 79 70 65 28 29 2c 20 28 43 6c  annelType(), (Cl
6100: 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50  ientData) stateP
6110: 74 72 2c 20 28 54 43 4c 5f 52 45 41 44 41 42 4c  tr, (TCL_READABL
6120: 45 20 7c 20 54 43 4c 5f 57 52 49 54 41 42 4c 45  E | TCL_WRITABLE
6130: 29 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 64 70  ), chan);.    dp
6140: 72 69 6e 74 66 28 22 43 72 65 61 74 65 64 20 63  rintf("Created c
6150: 68 61 6e 6e 65 6c 20 6e 61 6d 65 64 20 25 73 22  hannel named %s"
6160: 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  , Tcl_GetChannel
6170: 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73  Name(statePtr->s
6180: 65 6c 66 29 29 3b 0a 20 20 20 20 69 66 20 28 73  elf));.    if (s
6190: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d  tatePtr->self ==
61a0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e   (Tcl_Channel) N
61b0: 55 4c 4c 29 20 7b 0a 09 2f 2a 0a 09 20 2a 20 4e  ULL) {../*.. * N
61c0: 6f 20 75 73 65 20 6f 66 20 54 63 6c 5f 45 76 65  o use of Tcl_Eve
61d0: 6e 74 75 61 6c 6c 79 46 72 65 65 20 62 65 63 61  ntuallyFree beca
61e0: 75 73 65 20 6e 6f 20 70 6f 73 73 69 62 6c 65 20  use no possible 
61f0: 54 63 6c 5f 50 72 65 73 65 72 76 65 2e 0a 09 20  Tcl_Preserve... 
6200: 2a 2f 0a 09 54 6c 73 5f 46 72 65 65 28 28 63 68  */..Tls_Free((ch
6210: 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b  ar *) statePtr);
6220: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
6230: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54  OR;.    }..    T
6240: 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74  cl_SetChannelOpt
6250: 69 6f 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 74  ion(interp, stat
6260: 65 50 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 74 72  ePtr->self, "-tr
6270: 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 54 63 6c 5f  anslation", Tcl_
6280: 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26 75 70  DStringValue(&up
6290: 70 65 72 43 68 61 6e 6e 65 6c 54 72 61 6e 73 6c  perChannelTransl
62a0: 61 74 69 6f 6e 29 29 3b 0a 20 20 20 20 54 63 6c  ation));.    Tcl
62b0: 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f  _SetChannelOptio
62c0: 6e 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50  n(interp, stateP
62d0: 74 72 2d 3e 73 65 6c 66 2c 20 22 2d 65 6e 63 6f  tr->self, "-enco
62e0: 64 69 6e 67 22 2c 20 54 63 6c 5f 44 53 74 72 69  ding", Tcl_DStri
62f0: 6e 67 56 61 6c 75 65 28 26 75 70 70 65 72 43 68  ngValue(&upperCh
6300: 61 6e 6e 65 6c 45 6e 63 6f 64 69 6e 67 29 29 3b  annelEncoding));
6310: 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e  .    Tcl_SetChan
6320: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70  nelOption(interp
6330: 2c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66  , statePtr->self
6340: 2c 20 22 2d 65 6f 66 63 68 61 72 22 2c 20 54 63  , "-eofchar", Tc
6350: 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26  l_DStringValue(&
6360: 75 70 70 65 72 43 68 61 6e 6e 65 6c 45 4f 46 43  upperChannelEOFC
6370: 68 61 72 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53  har));.    Tcl_S
6380: 65 74 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28  etChannelOption(
6390: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72  interp, statePtr
63a0: 2d 3e 73 65 6c 66 2c 20 22 2d 62 6c 6f 63 6b 69  ->self, "-blocki
63b0: 6e 67 22 2c 20 54 63 6c 5f 44 53 74 72 69 6e 67  ng", Tcl_DString
63c0: 56 61 6c 75 65 28 26 75 70 70 65 72 43 68 61 6e  Value(&upperChan
63d0: 6e 65 6c 42 6c 6f 63 6b 69 6e 67 29 29 3b 0a 0a  nelBlocking));..
63e0: 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 53 53      /*.     * SS
63f0: 4c 20 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e  L Initialization
6400: 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 73 74  .     */..    st
6410: 61 74 65 50 74 72 2d 3e 73 73 6c 20 3d 20 53 53  atePtr->ssl = SS
6420: 4c 5f 6e 65 77 28 73 74 61 74 65 50 74 72 2d 3e  L_new(statePtr->
6430: 63 74 78 29 3b 0a 20 20 20 20 69 66 20 28 21 73  ctx);.    if (!s
6440: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a  tatePtr->ssl) {.
6450: 09 2f 2a 20 53 53 4c 20 6c 69 62 72 61 72 79 20  ./* SSL library 
6460: 65 72 72 6f 72 20 2a 2f 0a 09 54 63 6c 5f 41 70  error */..Tcl_Ap
6470: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
6480: 70 2c 20 22 63 6f 75 6c 64 6e 27 74 20 63 6f 6e  p, "couldn't con
6490: 73 74 72 75 63 74 20 73 73 6c 20 73 65 73 73 69  struct ssl sessi
64a0: 6f 6e 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c  on: ", REASON(),
64b0: 0a 09 09 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ...(char *) NULL
64c0: 29 3b 0a 09 54 6c 73 5f 46 72 65 65 28 28 63 68  );..Tls_Free((ch
64d0: 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29 3b  ar *) statePtr);
64e0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
64f0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 23 69 66 6e 64  OR;.    }..#ifnd
6500: 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c  ef OPENSSL_NO_TL
6510: 53 45 58 54 0a 20 20 20 20 69 66 20 28 73 65 72  SEXT.    if (ser
6520: 76 65 72 6e 61 6d 65 29 20 7b 0a 20 20 20 20 20  vername) {.     
6530: 20 20 20 69 66 20 28 21 53 53 4c 5f 73 65 74 5f     if (!SSL_set_
6540: 74 6c 73 65 78 74 5f 68 6f 73 74 5f 6e 61 6d 65  tlsext_host_name
6550: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20  (statePtr->ssl, 
6560: 73 65 72 76 65 72 6e 61 6d 65 29 20 26 26 20 72  servername) && r
6570: 65 71 75 69 72 65 29 20 7b 0a 20 20 20 20 20 20  equire) {.      
6580: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64        Tcl_Append
6590: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
65a0: 73 65 74 74 69 6e 67 20 54 4c 53 20 68 6f 73 74  setting TLS host
65b0: 20 6e 61 6d 65 20 65 78 74 65 6e 73 69 6f 6e 20   name extension 
65c0: 66 61 69 6c 65 64 22 2c 0a 20 20 20 20 20 20 20  failed",.       
65d0: 20 20 20 20 20 20 20 20 20 28 63 68 61 72 20 2a           (char *
65e0: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20  ) NULL);.       
65f0: 20 20 20 20 20 54 6c 73 5f 46 72 65 65 28 28 63       Tls_Free((c
6600: 68 61 72 20 2a 29 20 73 74 61 74 65 50 74 72 29  har *) statePtr)
6610: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  ;.            re
6620: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
6630: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a          }.    }.
6640: 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a 0a 20  #endif..    /*. 
6650: 20 20 20 20 2a 20 53 53 4c 20 43 61 6c 6c 62 61      * SSL Callba
6660: 63 6b 73 0a 20 20 20 20 20 2a 2f 0a 0a 20 20 20  cks.     */..   
6670: 20 53 53 4c 5f 73 65 74 5f 61 70 70 5f 64 61 74   SSL_set_app_dat
6680: 61 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c  a(statePtr->ssl,
6690: 20 28 56 4f 49 44 20 2a 29 73 74 61 74 65 50 74   (VOID *)statePt
66a0: 72 29 3b 09 2f 2a 20 70 6f 69 6e 74 20 62 61 63  r);./* point bac
66b0: 6b 20 74 6f 20 75 73 20 2a 2f 0a 0a 20 20 20 20  k to us */..    
66c0: 53 53 4c 5f 73 65 74 5f 76 65 72 69 66 79 28 73  SSL_set_verify(s
66d0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 2c 20 76 65  tatePtr->ssl, ve
66e0: 72 69 66 79 2c 20 56 65 72 69 66 79 43 61 6c 6c  rify, VerifyCall
66f0: 62 61 63 6b 29 3b 0a 0a 20 20 20 20 53 53 4c 5f  back);..    SSL_
6700: 43 54 58 5f 73 65 74 5f 69 6e 66 6f 5f 63 61 6c  CTX_set_info_cal
6710: 6c 62 61 63 6b 28 73 74 61 74 65 50 74 72 2d 3e  lback(statePtr->
6720: 63 74 78 2c 20 49 6e 66 6f 43 61 6c 6c 62 61 63  ctx, InfoCallbac
6730: 6b 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61  k);..    /* Crea
6740: 74 65 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 42  te Tcl_Channel B
6750: 49 4f 20 48 61 6e 64 6c 65 72 20 2a 2f 0a 20 20  IO Handler */.  
6760: 20 20 73 74 61 74 65 50 74 72 2d 3e 70 5f 62 69    statePtr->p_bi
6770: 6f 09 3d 20 42 49 4f 5f 6e 65 77 5f 74 63 6c 28  o.= BIO_new_tcl(
6780: 73 74 61 74 65 50 74 72 2c 20 42 49 4f 5f 4e 4f  statePtr, BIO_NO
6790: 43 4c 4f 53 45 29 3b 0a 20 20 20 20 73 74 61 74  CLOSE);.    stat
67a0: 65 50 74 72 2d 3e 62 69 6f 09 3d 20 42 49 4f 5f  ePtr->bio.= BIO_
67b0: 6e 65 77 28 42 49 4f 5f 66 5f 73 73 6c 28 29 29  new(BIO_f_ssl())
67c0: 3b 0a 0a 20 20 20 20 69 66 20 28 73 65 72 76 65  ;..    if (serve
67d0: 72 29 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e  r) {..statePtr->
67e0: 66 6c 61 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c  flags |= TLS_TCL
67f0: 5f 53 45 52 56 45 52 3b 0a 09 53 53 4c 5f 73 65  _SERVER;..SSL_se
6800: 74 5f 61 63 63 65 70 74 5f 73 74 61 74 65 28 73  t_accept_state(s
6810: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20  tatePtr->ssl);. 
6820: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 53 53 4c     } else {..SSL
6830: 5f 73 65 74 5f 63 6f 6e 6e 65 63 74 5f 73 74 61  _set_connect_sta
6840: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c  te(statePtr->ssl
6850: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 53 53 4c  );.    }.    SSL
6860: 5f 73 65 74 5f 62 69 6f 28 73 74 61 74 65 50 74  _set_bio(statePt
6870: 72 2d 3e 73 73 6c 2c 20 73 74 61 74 65 50 74 72  r->ssl, statePtr
6880: 2d 3e 70 5f 62 69 6f 2c 20 73 74 61 74 65 50 74  ->p_bio, statePt
6890: 72 2d 3e 70 5f 62 69 6f 29 3b 0a 20 20 20 20 42  r->p_bio);.    B
68a0: 49 4f 5f 73 65 74 5f 73 73 6c 28 73 74 61 74 65  IO_set_ssl(state
68b0: 50 74 72 2d 3e 62 69 6f 2c 20 73 74 61 74 65 50  Ptr->bio, stateP
68c0: 74 72 2d 3e 73 73 6c 2c 20 42 49 4f 5f 4e 4f 43  tr->ssl, BIO_NOC
68d0: 4c 4f 53 45 29 3b 0a 0a 20 20 20 20 2f 2a 0a 20  LOSE);..    /*. 
68e0: 20 20 20 20 2a 20 45 6e 64 20 6f 66 20 53 53 4c      * End of SSL
68f0: 20 49 6e 69 74 0a 20 20 20 20 20 2a 2f 0a 20 20   Init.     */.  
6900: 20 20 64 70 72 69 6e 74 66 28 22 52 65 74 75 72    dprintf("Retur
6910: 6e 69 6e 67 20 25 73 22 2c 20 54 63 6c 5f 47 65  ning %s", Tcl_Ge
6920: 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 73 74 61  tChannelName(sta
6930: 74 65 50 74 72 2d 3e 73 65 6c 66 29 29 3b 0a 20  tePtr->self));. 
6940: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74     Tcl_SetResult
6950: 28 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a  (interp, (char *
6960: 29 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c  ) Tcl_GetChannel
6970: 4e 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73  Name(statePtr->s
6980: 65 6c 66 29 2c 0a 09 20 20 20 20 54 43 4c 5f 56  elf),..    TCL_V
6990: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65  OLATILE);.    re
69a0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20  turn TCL_OK;.   
69b0: 20 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63   .clientData = c
69c0: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f  lientData;.}.../
69d0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
69e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
69f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6a10: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e  -------. *. * Un
6a20: 69 6d 70 6f 72 74 4f 62 6a 43 6d 64 20 2d 2d 0a  importObjCmd --.
6a30: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65   *. *.This proce
6a40: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20  dure is invoked 
6a50: 74 6f 20 72 65 6d 6f 76 65 20 74 68 65 20 74 6f  to remove the to
6a60: 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 66 69  pmost channel fi
6a70: 6c 74 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  lter.. *. * Resu
6a80: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61  lts:. *.A standa
6a90: 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20  rd Tcl result.. 
6aa0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
6ab0: 73 3a 0a 20 2a 09 4d 61 79 20 6d 6f 64 69 66 79  s:. *.May modify
6ac0: 20 74 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66   the behavior of
6ad0: 20 61 6e 20 49 4f 20 63 68 61 6e 6e 65 6c 2e 0a   an IO channel..
6ae0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
6af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6b20: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 0a 73 74  --------. */..st
6b30: 61 74 69 63 20 69 6e 74 0a 55 6e 69 6d 70 6f 72  atic int.Unimpor
6b40: 74 4f 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61  tObjCmd(clientDa
6b50: 74 61 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63  ta, interp, objc
6b60: 2c 20 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65  , objv).    Clie
6b70: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
6b80: 61 3b 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20  a;./* Not used. 
6b90: 2a 2f 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72  */.    Tcl_Inter
6ba0: 70 20 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69  p *interp;.    i
6bb0: 6e 74 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c  nt objc;.    Tcl
6bc0: 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76  _Obj *CONST objv
6bd0: 5b 5d 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f 43 68  [];.{.    Tcl_Ch
6be0: 61 6e 6e 65 6c 20 63 68 61 6e 3b 09 09 2f 2a 20  annel chan;../* 
6bf0: 54 68 65 20 63 68 61 6e 6e 65 6c 20 74 6f 20 73  The channel to s
6c00: 65 74 20 61 20 6d 6f 64 65 20 6f 6e 2e 20 2a 2f  et a mode on. */
6c10: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43  ..    dprintf("C
6c20: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66  alled");..    if
6c30: 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09   (objc != 2) {..
6c40: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73  Tcl_WrongNumArgs
6c50: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76  (interp, 1, objv
6c60: 2c 20 22 63 68 61 6e 6e 65 6c 22 29 3b 0a 09 72  , "channel");..r
6c70: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
6c80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 63 68 61 6e  .    }..    chan
6c90: 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65   = Tcl_GetChanne
6ca0: 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65  l(interp, Tcl_Ge
6cb0: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29  tString(objv[1])
6cc0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20  , NULL);.    if 
6cd0: 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68  (chan == (Tcl_Ch
6ce0: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09  annel) NULL) {..
6cf0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
6d00: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 0a  ;.    }..    /*.
6d10: 20 20 20 20 20 2a 20 4d 61 6b 65 20 73 75 72 65       * Make sure
6d20: 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74   to operate on t
6d30: 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e  he topmost chann
6d40: 65 6c 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 63  el.     */.    c
6d50: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70  han = Tcl_GetTop
6d60: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a  Channel(chan);..
6d70: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43      if (Tcl_GetC
6d80: 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e 29  hannelType(chan)
6d90: 20 21 3d 20 54 6c 73 5f 43 68 61 6e 6e 65 6c 54   != Tls_ChannelT
6da0: 79 70 65 28 29 29 20 7b 0a 09 54 63 6c 5f 41 70  ype()) {..Tcl_Ap
6db0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
6dc0: 70 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20  p, "bad channel 
6dd0: 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e  \"", Tcl_GetChan
6de0: 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09  nelName(chan),..
6df0: 09 22 5c 22 3a 20 6e 6f 74 20 61 20 54 4c 53 20  ."\": not a TLS 
6e00: 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b  channel", NULL);
6e10: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
6e20: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69  OR;.    }..    i
6e30: 66 20 28 54 63 6c 5f 55 6e 73 74 61 63 6b 43 68  f (Tcl_UnstackCh
6e40: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68  annel(interp, ch
6e50: 61 6e 29 20 3d 3d 20 54 43 4c 5f 45 52 52 4f 52  an) == TCL_ERROR
6e60: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  ) {..return TCL_
6e70: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20  ERROR;.    }..  
6e80: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b    return TCL_OK;
6e90: 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61  .    .clientData
6ea0: 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d   = clientData;.}
6eb0: 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  .../*. *--------
6ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20  -----------. *. 
6f00: 2a 20 43 54 58 5f 49 6e 69 74 20 2d 2d 20 63 6f  * CTX_Init -- co
6f10: 6e 73 74 72 75 63 74 20 61 20 53 53 4c 5f 43 54  nstruct a SSL_CT
6f20: 58 20 69 6e 73 74 61 6e 63 65 0a 20 2a 0a 20 2a  X instance. *. *
6f30: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 76   Results:. *.A v
6f40: 61 6c 69 64 20 53 53 4c 5f 43 54 58 20 69 6e 73  alid SSL_CTX ins
6f50: 74 61 6e 63 65 20 6f 72 20 4e 55 4c 4c 2e 0a 20  tance or NULL.. 
6f60: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
6f70: 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 73  s:. *.constructs
6f80: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54   SSL context (CT
6f90: 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  X). *. *--------
6fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
6fe0: 0a 73 74 61 74 69 63 20 53 53 4c 5f 43 54 58 20  .static SSL_CTX 
6ff0: 2a 0a 43 54 58 5f 49 6e 69 74 28 73 74 61 74 65  *.CTX_Init(state
7000: 50 74 72 2c 20 70 72 6f 74 6f 2c 20 6b 65 79 2c  Ptr, proto, key,
7010: 20 63 65 72 74 2c 20 43 41 64 69 72 2c 20 43 41   cert, CAdir, CA
7020: 66 69 6c 65 2c 20 63 69 70 68 65 72 73 2c 20 44  file, ciphers, D
7030: 48 70 61 72 61 6d 73 29 0a 20 20 20 20 53 74 61  Hparams).    Sta
7040: 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20  te *statePtr;.  
7050: 20 20 69 6e 74 20 70 72 6f 74 6f 3b 0a 20 20 20    int proto;.   
7060: 20 63 68 61 72 20 2a 6b 65 79 3b 0a 20 20 20 20   char *key;.    
7070: 63 68 61 72 20 2a 63 65 72 74 3b 0a 20 20 20 20  char *cert;.    
7080: 63 68 61 72 20 2a 43 41 64 69 72 3b 0a 20 20 20  char *CAdir;.   
7090: 20 63 68 61 72 20 2a 43 41 66 69 6c 65 3b 0a 20   char *CAfile;. 
70a0: 20 20 20 63 68 61 72 20 2a 63 69 70 68 65 72 73     char *ciphers
70b0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 44 48 70 61  ;.    char *DHpa
70c0: 72 61 6d 73 3b 0a 7b 0a 20 20 20 20 54 63 6c 5f  rams;.{.    Tcl_
70d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 20 3d  Interp *interp =
70e0: 20 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72   statePtr->inter
70f0: 70 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a  p;.    SSL_CTX *
7100: 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20  ctx = NULL;.    
7110: 54 63 6c 5f 44 53 74 72 69 6e 67 20 64 73 3b 0a  Tcl_DString ds;.
7120: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 20      Tcl_DString 
7130: 64 73 31 3b 0a 20 20 20 20 69 6e 74 20 6f 66 66  ds1;.    int off
7140: 20 3d 20 30 3b 0a 20 20 20 20 63 6f 6e 73 74 20   = 0;.    const 
7150: 53 53 4c 5f 4d 45 54 48 4f 44 20 2a 6d 65 74 68  SSL_METHOD *meth
7160: 6f 64 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66  od;..    dprintf
7170: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20  ("Called");..   
7180: 20 69 66 20 28 21 70 72 6f 74 6f 29 20 7b 0a 09   if (!proto) {..
7190: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
71a0: 28 69 6e 74 65 72 70 2c 20 22 6e 6f 20 76 61 6c  (interp, "no val
71b0: 69 64 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65  id protocol sele
71c0: 63 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72  cted", NULL);..r
71d0: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a  eturn (SSL_CTX *
71e0: 29 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  )0;.    }..    /
71f0: 2a 20 63 72 65 61 74 65 20 53 53 4c 20 63 6f 6e  * create SSL con
7200: 74 65 78 74 20 2a 2f 0a 23 69 66 20 64 65 66 69  text */.#if defi
7210: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20  ned(NO_SSL2).   
7220: 20 69 66 20 28 45 4e 41 42 4c 45 44 28 70 72 6f   if (ENABLED(pro
7230: 74 6f 2c 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53  to, TLS_PROTO_SS
7240: 4c 32 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65  L2)) {..Tcl_Appe
7250: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
7260: 20 22 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73   "protocol not s
7270: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29  upported", NULL)
7280: 3b 0a 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43  ;..return (SSL_C
7290: 54 58 20 2a 29 30 3b 0a 20 20 20 20 7d 0a 23 65  TX *)0;.    }.#e
72a0: 6e 64 69 66 0a 23 69 66 20 64 65 66 69 6e 65 64  ndif.#if defined
72b0: 28 4e 4f 5f 53 53 4c 33 29 0a 20 20 20 20 69 66  (NO_SSL3).    if
72c0: 20 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c   (ENABLED(proto,
72d0: 20 54 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 29   TLS_PROTO_SSL3)
72e0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52  ) {..Tcl_AppendR
72f0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70  esult(interp, "p
7300: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70  rotocol not supp
7310: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09  orted", NULL);..
7320: 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20  return (SSL_CTX 
7330: 2a 29 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69  *)0;.    }.#endi
7340: 66 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f  f.#if defined(NO
7350: 5f 54 4c 53 31 29 0a 20 20 20 20 69 66 20 28 45  _TLS1).    if (E
7360: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c  NABLED(proto, TL
7370: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 29 29 20 7b  S_PROTO_TLS1)) {
7380: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
7390: 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f 74  lt(interp, "prot
73a0: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74  ocol not support
73b0: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74  ed", NULL);..ret
73c0: 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30  urn (SSL_CTX *)0
73d0: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 23  ;.    }.#endif.#
73e0: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c  if defined(NO_TL
73f0: 53 31 5f 31 29 0a 20 20 20 20 69 66 20 28 45 4e  S1_1).    if (EN
7400: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53  ABLED(proto, TLS
7410: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 29 20  _PROTO_TLS1_1)) 
7420: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73  {..Tcl_AppendRes
7430: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72 6f  ult(interp, "pro
7440: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72  tocol not suppor
7450: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65  ted", NULL);..re
7460: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29  turn (SSL_CTX *)
7470: 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a  0;.    }.#endif.
7480: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54  #if defined(NO_T
7490: 4c 53 31 5f 32 29 0a 20 20 20 20 69 66 20 28 45  LS1_2).    if (E
74a0: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c  NABLED(proto, TL
74b0: 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32 29 29  S_PROTO_TLS1_2))
74c0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65   {..Tcl_AppendRe
74d0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 70 72  sult(interp, "pr
74e0: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f  otocol not suppo
74f0: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72  rted", NULL);..r
7500: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a  eturn (SSL_CTX *
7510: 29 30 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66  )0;.    }.#endif
7520: 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 70 72  ..    switch (pr
7530: 6f 74 6f 29 20 7b 0a 23 69 66 20 21 64 65 66 69  oto) {.#if !defi
7540: 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 0a 20 20 20  ned(NO_SSL2).   
7550: 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f   case TLS_PROTO_
7560: 53 53 4c 32 3a 0a 09 6d 65 74 68 6f 64 20 3d 20  SSL2:..method = 
7570: 53 53 4c 76 32 5f 6d 65 74 68 6f 64 20 28 29 3b  SSLv2_method ();
7580: 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a  ..break;.#endif.
7590: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f  #if !defined(NO_
75a0: 53 53 4c 33 29 0a 20 20 20 20 63 61 73 65 20 54  SSL3).    case T
75b0: 4c 53 5f 50 52 4f 54 4f 5f 53 53 4c 33 3a 0a 09  LS_PROTO_SSL3:..
75c0: 6d 65 74 68 6f 64 20 3d 20 53 53 4c 76 33 5f 6d  method = SSLv3_m
75d0: 65 74 68 6f 64 20 28 29 3b 0a 09 62 72 65 61 6b  ethod ();..break
75e0: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65  ;.#endif.#if !de
75f0: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 0a 20  fined(NO_TLS1). 
7600: 20 20 20 63 61 73 65 20 54 4c 53 5f 50 52 4f 54     case TLS_PROT
7610: 4f 5f 54 4c 53 31 3a 0a 09 6d 65 74 68 6f 64 20  O_TLS1:..method 
7620: 3d 20 54 4c 53 76 31 5f 6d 65 74 68 6f 64 20 28  = TLSv1_method (
7630: 29 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69  );..break;.#endi
7640: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e  f.#if !defined(N
7650: 4f 5f 54 4c 53 31 5f 31 29 0a 20 20 20 20 63 61  O_TLS1_1).    ca
7660: 73 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53  se TLS_PROTO_TLS
7670: 31 5f 31 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54  1_1:..method = T
7680: 4c 53 76 31 5f 31 5f 6d 65 74 68 6f 64 20 28 29  LSv1_1_method ()
7690: 3b 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66  ;..break;.#endif
76a0: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f  .#if !defined(NO
76b0: 5f 54 4c 53 31 5f 32 29 0a 20 20 20 20 63 61 73  _TLS1_2).    cas
76c0: 65 20 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31  e TLS_PROTO_TLS1
76d0: 5f 32 3a 0a 09 6d 65 74 68 6f 64 20 3d 20 54 4c  _2:..method = TL
76e0: 53 76 31 5f 32 5f 6d 65 74 68 6f 64 20 28 29 3b  Sv1_2_method ();
76f0: 0a 09 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a  ..break;.#endif.
7700: 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20      default:.   
7710: 20 20 20 20 20 6d 65 74 68 6f 64 20 3d 20 53 53       method = SS
7720: 4c 76 32 33 5f 6d 65 74 68 6f 64 20 28 29 3b 0a  Lv23_method ();.
7730: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f  #if !defined(NO_
7740: 53 53 4c 32 29 0a 09 6f 66 66 20 7c 3d 20 28 45  SSL2)..off |= (E
7750: 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c  NABLED(proto, TL
7760: 53 5f 50 52 4f 54 4f 5f 53 53 4c 32 29 20 20 20  S_PROTO_SSL2)   
7770: 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f  ? 0 : SSL_OP_NO_
7780: 53 53 4c 76 32 29 3b 0a 23 65 6e 64 69 66 0a 23  SSLv2);.#endif.#
7790: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53  if !defined(NO_S
77a0: 53 4c 33 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e  SL3)..off |= (EN
77b0: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53  ABLED(proto, TLS
77c0: 5f 50 52 4f 54 4f 5f 53 53 4c 33 29 20 20 20 3f  _PROTO_SSL3)   ?
77d0: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 53   0 : SSL_OP_NO_S
77e0: 53 4c 76 33 29 3b 0a 23 65 6e 64 69 66 0a 23 69  SLv3);.#endif.#i
77f0: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c  f !defined(NO_TL
7800: 53 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e 41  S1)..off |= (ENA
7810: 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53 5f  BLED(proto, TLS_
7820: 50 52 4f 54 4f 5f 54 4c 53 31 29 20 20 20 3f 20  PROTO_TLS1)   ? 
7830: 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54 4c  0 : SSL_OP_NO_TL
7840: 53 76 31 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66  Sv1);.#endif.#if
7850: 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53   !defined(NO_TLS
7860: 31 5f 31 29 0a 09 6f 66 66 20 7c 3d 20 28 45 4e  1_1)..off |= (EN
7870: 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20 54 4c 53  ABLED(proto, TLS
7880: 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 31 29 20 3f  _PROTO_TLS1_1) ?
7890: 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e 4f 5f 54   0 : SSL_OP_NO_T
78a0: 4c 53 76 31 5f 31 29 3b 0a 23 65 6e 64 69 66 0a  LSv1_1);.#endif.
78b0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f  #if !defined(NO_
78c0: 54 4c 53 31 5f 32 29 0a 09 6f 66 66 20 7c 3d 20  TLS1_2)..off |= 
78d0: 28 45 4e 41 42 4c 45 44 28 70 72 6f 74 6f 2c 20  (ENABLED(proto, 
78e0: 54 4c 53 5f 50 52 4f 54 4f 5f 54 4c 53 31 5f 32  TLS_PROTO_TLS1_2
78f0: 29 20 3f 20 30 20 3a 20 53 53 4c 5f 4f 50 5f 4e  ) ? 0 : SSL_OP_N
7900: 4f 5f 54 4c 53 76 31 5f 32 29 3b 0a 23 65 6e 64  O_TLSv1_2);.#end
7910: 69 66 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d  if..break;.    }
7920: 0a 20 20 20 20 0a 20 20 20 20 63 74 78 20 3d 20  .    .    ctx = 
7930: 53 53 4c 5f 43 54 58 5f 6e 65 77 20 28 6d 65 74  SSL_CTX_new (met
7940: 68 6f 64 29 3b 0a 20 20 20 20 0a 20 20 20 20 53  hod);.    .    S
7950: 53 4c 5f 43 54 58 5f 73 65 74 5f 61 70 70 5f 64  SL_CTX_set_app_d
7960: 61 74 61 28 20 63 74 78 2c 20 28 56 4f 49 44 2a  ata( ctx, (VOID*
7970: 29 69 6e 74 65 72 70 29 3b 09 2f 2a 20 72 65 6d  )interp);./* rem
7980: 65 6d 62 65 72 20 74 68 65 20 69 6e 74 65 72 70  ember the interp
7990: 72 65 74 65 72 20 2a 2f 0a 20 20 20 20 53 53 4c  reter */.    SSL
79a0: 5f 43 54 58 5f 73 65 74 5f 6f 70 74 69 6f 6e 73  _CTX_set_options
79b0: 28 20 63 74 78 2c 20 53 53 4c 5f 4f 50 5f 41 4c  ( ctx, SSL_OP_AL
79c0: 4c 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c 20 62  L);./* all SSL b
79d0: 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73 20 2a  ug workarounds *
79e0: 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65  /.    SSL_CTX_se
79f0: 74 5f 6f 70 74 69 6f 6e 73 28 20 63 74 78 2c 20  t_options( ctx, 
7a00: 6f 66 66 29 3b 09 2f 2a 20 61 6c 6c 20 53 53 4c  off);./* all SSL
7a10: 20 62 75 67 20 77 6f 72 6b 61 72 6f 75 6e 64 73   bug workarounds
7a20: 20 2a 2f 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f   */.    SSL_CTX_
7a30: 73 65 73 73 5f 73 65 74 5f 63 61 63 68 65 5f 73  sess_set_cache_s
7a40: 69 7a 65 28 20 63 74 78 2c 20 31 32 38 29 3b 0a  ize( ctx, 128);.
7a50: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73  .    if (ciphers
7a60: 20 21 3d 20 4e 55 4c 4c 29 0a 09 53 53 4c 5f 43   != NULL)..SSL_C
7a70: 54 58 5f 73 65 74 5f 63 69 70 68 65 72 5f 6c 69  TX_set_cipher_li
7a80: 73 74 28 63 74 78 2c 20 63 69 70 68 65 72 73 29  st(ctx, ciphers)
7a90: 3b 0a 0a 20 20 20 20 2f 2a 20 73 65 74 20 73 6f  ;..    /* set so
7aa0: 6d 65 20 63 61 6c 6c 62 61 63 6b 73 20 2a 2f 0a  me callbacks */.
7ab0: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f      SSL_CTX_set_
7ac0: 64 65 66 61 75 6c 74 5f 70 61 73 73 77 64 5f 63  default_passwd_c
7ad0: 62 28 63 74 78 2c 20 50 61 73 73 77 6f 72 64 43  b(ctx, PasswordC
7ae0: 61 6c 6c 62 61 63 6b 29 3b 0a 0a 23 69 66 6e 64  allback);..#ifnd
7af0: 65 66 20 42 53 41 46 45 0a 20 20 20 20 53 53 4c  ef BSAFE.    SSL
7b00: 5f 43 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74  _CTX_set_default
7b10: 5f 70 61 73 73 77 64 5f 63 62 5f 75 73 65 72 64  _passwd_cb_userd
7b20: 61 74 61 28 63 74 78 2c 20 28 76 6f 69 64 20 2a  ata(ctx, (void *
7b30: 29 73 74 61 74 65 50 74 72 29 3b 0a 23 65 6e 64  )statePtr);.#end
7b40: 69 66 0a 0a 20 20 20 20 2f 2a 20 72 65 61 64 20  if..    /* read 
7b50: 61 20 44 69 66 66 69 65 2d 48 65 6c 6c 6d 61 6e  a Diffie-Hellman
7b60: 20 70 61 72 61 6d 65 74 65 72 73 20 66 69 6c 65   parameters file
7b70: 2c 20 6f 72 20 75 73 65 20 74 68 65 20 62 75 69  , or use the bui
7b80: 6c 74 2d 69 6e 20 6f 6e 65 20 2a 2f 0a 23 69 66  lt-in one */.#if
7b90: 64 65 66 20 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 44  def OPENSSL_NO_D
7ba0: 48 0a 20 20 20 20 69 66 20 28 44 48 70 61 72 61  H.    if (DHpara
7bb0: 6d 73 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54  ms != NULL) {..T
7bc0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
7bd0: 69 6e 74 65 72 70 2c 0a 09 20 20 20 20 22 44 48  interp,..    "DH
7be0: 20 70 61 72 61 6d 65 74 65 72 20 73 75 70 70 6f   parameter suppo
7bf0: 72 74 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65  rt not available
7c00: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c  ", (char *) NULL
7c10: 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65  );..SSL_CTX_free
7c20: 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 28  (ctx);..return (
7c30: 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 20 20 20  SSL_CTX *)0;.   
7c40: 20 7d 0a 23 65 6c 73 65 0a 20 20 20 20 7b 0a 09   }.#else.    {..
7c50: 44 48 2a 20 64 68 3b 0a 09 69 66 20 28 44 48 70  DH* dh;..if (DHp
7c60: 61 72 61 6d 73 20 21 3d 20 4e 55 4c 4c 29 20 7b  arams != NULL) {
7c70: 0a 09 20 20 20 20 42 49 4f 20 2a 62 69 6f 3b 0a  ..    BIO *bio;.
7c80: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
7c90: 49 6e 69 74 28 26 64 73 29 3b 0a 09 20 20 20 20  Init(&ds);..    
7ca0: 62 69 6f 20 3d 20 42 49 4f 5f 6e 65 77 5f 66 69  bio = BIO_new_fi
7cb0: 6c 65 28 46 32 4e 28 44 48 70 61 72 61 6d 73 2c  le(F2N(DHparams,
7cc0: 20 26 64 73 29 2c 20 22 72 22 29 3b 0a 09 20 20   &ds), "r");..  
7cd0: 20 20 69 66 20 28 21 62 69 6f 29 20 7b 0a 09 09    if (!bio) {...
7ce0: 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28  Tcl_DStringFree(
7cf0: 26 64 73 29 3b 0a 09 09 54 63 6c 5f 41 70 70 65  &ds);...Tcl_Appe
7d00: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
7d10: 0a 09 09 20 20 20 20 22 43 6f 75 6c 64 20 6e 6f  ...    "Could no
7d20: 74 20 66 69 6e 64 20 44 48 20 70 61 72 61 6d 65  t find DH parame
7d30: 74 65 72 73 20 66 69 6c 65 22 2c 20 28 63 68 61  ters file", (cha
7d40: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 53 53  r *) NULL);...SS
7d50: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b  L_CTX_free(ctx);
7d60: 0a 09 09 72 65 74 75 72 6e 20 28 53 53 4c 5f 43  ...return (SSL_C
7d70: 54 58 20 2a 29 30 3b 0a 09 20 20 20 20 7d 0a 09  TX *)0;..    }..
7d80: 20 20 20 20 0a 09 20 20 20 20 64 68 20 3d 20 50      ..    dh = P
7d90: 45 4d 5f 72 65 61 64 5f 62 69 6f 5f 44 48 70 61  EM_read_bio_DHpa
7da0: 72 61 6d 73 28 62 69 6f 2c 20 4e 55 4c 4c 2c 20  rams(bio, NULL, 
7db0: 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20  NULL, NULL);..  
7dc0: 20 20 42 49 4f 5f 66 72 65 65 28 62 69 6f 29 3b    BIO_free(bio);
7dd0: 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e  ..    Tcl_DStrin
7de0: 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20  gFree(&ds);..   
7df0: 20 69 66 20 28 21 64 68 29 20 7b 0a 09 09 54 63   if (!dh) {...Tc
7e00: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
7e10: 6e 74 65 72 70 2c 0a 09 09 20 20 20 20 22 43 6f  nterp,...    "Co
7e20: 75 6c 64 20 6e 6f 74 20 72 65 61 64 20 44 48 20  uld not read DH 
7e30: 70 61 72 61 6d 65 74 65 72 73 20 66 72 6f 6d 20  parameters from 
7e40: 66 69 6c 65 22 2c 20 28 63 68 61 72 20 2a 29 20  file", (char *) 
7e50: 4e 55 4c 4c 29 3b 0a 09 09 53 53 4c 5f 43 54 58  NULL);...SSL_CTX
7e60: 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 09 72 65  _free(ctx);...re
7e70: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29  turn (SSL_CTX *)
7e80: 30 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73  0;..    }..} els
7e90: 65 20 7b 0a 09 20 20 20 20 64 68 20 3d 20 67 65  e {..    dh = ge
7ea0: 74 5f 64 68 50 61 72 61 6d 73 28 29 3b 0a 09 7d  t_dhParams();..}
7eb0: 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 74 6d  ..SSL_CTX_set_tm
7ec0: 70 5f 64 68 28 63 74 78 2c 20 64 68 29 3b 0a 09  p_dh(ctx, dh);..
7ed0: 44 48 5f 66 72 65 65 28 64 68 29 3b 0a 20 20 20  DH_free(dh);.   
7ee0: 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f   }.#endif..    /
7ef0: 2a 20 73 65 74 20 6f 75 72 20 63 65 72 74 69 66  * set our certif
7f00: 69 63 61 74 65 20 2a 2f 0a 20 20 20 20 69 66 20  icate */.    if 
7f10: 28 63 65 72 74 20 21 3d 20 4e 55 4c 4c 29 20 7b  (cert != NULL) {
7f20: 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69  ..Tcl_DStringIni
7f30: 74 28 26 64 73 29 3b 0a 0a 09 69 66 20 28 53 53  t(&ds);...if (SS
7f40: 4c 5f 43 54 58 5f 75 73 65 5f 63 65 72 74 69 66  L_CTX_use_certif
7f50: 69 63 61 74 65 5f 66 69 6c 65 28 63 74 78 2c 20  icate_file(ctx, 
7f60: 46 32 4e 28 20 63 65 72 74 2c 20 26 64 73 29 2c  F2N( cert, &ds),
7f70: 0a 09 09 09 09 09 53 53 4c 5f 46 49 4c 45 54 59  ......SSL_FILETY
7f80: 50 45 5f 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a  PE_PEM) <= 0) {.
7f90: 09 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
7fa0: 46 72 65 65 28 26 64 73 29 3b 0a 09 20 20 20 20  Free(&ds);..    
7fb0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
7fc0: 28 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20  (interp,....    
7fd0: 20 22 75 6e 61 62 6c 65 20 74 6f 20 73 65 74 20   "unable to set 
7fe0: 63 65 72 74 69 66 69 63 61 74 65 20 66 69 6c 65  certificate file
7ff0: 20 22 2c 20 63 65 72 74 2c 20 22 3a 20 22 2c 0a   ", cert, ": ",.
8000: 09 09 09 20 20 20 20 20 52 45 41 53 4f 4e 28 29  ...     REASON()
8010: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29  , (char *) NULL)
8020: 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66  ;..    SSL_CTX_f
8030: 72 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72  ree(ctx);..    r
8040: 65 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a  eturn (SSL_CTX *
8050: 29 30 3b 0a 09 7d 0a 0a 09 2f 2a 20 67 65 74 20  )0;..}.../* get 
8060: 74 68 65 20 70 72 69 76 61 74 65 20 6b 65 79 20  the private key 
8070: 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20  associated with 
8080: 74 68 69 73 20 63 65 72 74 69 66 69 63 61 74 65  this certificate
8090: 20 2a 2f 0a 09 69 66 20 28 6b 65 79 20 3d 3d 20   */..if (key == 
80a0: 4e 55 4c 4c 29 20 6b 65 79 3d 63 65 72 74 3b 0a  NULL) key=cert;.
80b0: 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73  ..if (SSL_CTX_us
80c0: 65 5f 50 72 69 76 61 74 65 4b 65 79 5f 66 69 6c  e_PrivateKey_fil
80d0: 65 28 63 74 78 2c 20 46 32 4e 28 20 6b 65 79 2c  e(ctx, F2N( key,
80e0: 20 26 64 73 29 2c 0a 09 09 09 09 09 53 53 4c 5f   &ds),......SSL_
80f0: 46 49 4c 45 54 59 50 45 5f 50 45 4d 29 20 3c 3d  FILETYPE_PEM) <=
8100: 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44   0) {..    Tcl_D
8110: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b  StringFree(&ds);
8120: 0a 09 20 20 20 20 2f 2a 20 66 6c 75 73 68 20 74  ..    /* flush t
8130: 68 65 20 70 61 73 73 70 68 72 61 73 65 20 77 68  he passphrase wh
8140: 69 63 68 20 6d 69 67 68 74 20 62 65 20 6c 65 66  ich might be lef
8150: 74 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 20  t in the result 
8160: 2a 2f 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 52  */..    Tcl_SetR
8170: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 4e 55  esult(interp, NU
8180: 4c 4c 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b  LL, TCL_STATIC);
8190: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64  ..    Tcl_Append
81a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09  Result(interp,..
81b0: 09 09 20 20 20 20 20 22 75 6e 61 62 6c 65 20 74  ..     "unable t
81c0: 6f 20 73 65 74 20 70 75 62 6c 69 63 20 6b 65 79  o set public key
81d0: 20 66 69 6c 65 20 22 2c 20 6b 65 79 2c 20 22 20   file ", key, " 
81e0: 22 2c 0a 09 09 09 20 20 20 20 20 52 45 41 53 4f  ",....     REASO
81f0: 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55  N(), (char *) NU
8200: 4c 4c 29 3b 0a 09 20 20 20 20 53 53 4c 5f 43 54  LL);..    SSL_CT
8210: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 20 20  X_free(ctx);..  
8220: 20 20 72 65 74 75 72 6e 20 28 53 53 4c 5f 43 54    return (SSL_CT
8230: 58 20 2a 29 30 3b 0a 09 7d 0a 09 54 63 6c 5f 44  X *)0;..}..Tcl_D
8240: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b  StringFree(&ds);
8250: 0a 09 2f 2a 20 4e 6f 77 20 77 65 20 6b 6e 6f 77  ../* Now we know
8260: 20 74 68 61 74 20 61 20 6b 65 79 20 61 6e 64 20   that a key and 
8270: 63 65 72 74 20 68 61 76 65 20 62 65 65 6e 20 73  cert have been s
8280: 65 74 20 61 67 61 69 6e 73 74 0a 09 20 2a 20 74  et against.. * t
8290: 68 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a  he SSL context *
82a0: 2f 0a 09 69 66 20 28 21 53 53 4c 5f 43 54 58 5f  /..if (!SSL_CTX_
82b0: 63 68 65 63 6b 5f 70 72 69 76 61 74 65 5f 6b 65  check_private_ke
82c0: 79 28 63 74 78 29 29 20 7b 0a 09 20 20 20 20 54  y(ctx)) {..    T
82d0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
82e0: 69 6e 74 65 72 70 2c 0a 09 09 09 20 20 20 20 20  interp,....     
82f0: 22 70 72 69 76 61 74 65 20 6b 65 79 20 64 6f 65  "private key doe
8300: 73 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20  s not match the 
8310: 63 65 72 74 69 66 69 63 61 74 65 20 70 75 62 6c  certificate publ
8320: 69 63 20 6b 65 79 22 2c 0a 09 09 09 20 20 20 20  ic key",....    
8330: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b   (char *) NULL);
8340: 0a 09 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72  ..    SSL_CTX_fr
8350: 65 65 28 63 74 78 29 3b 0a 09 20 20 20 20 72 65  ee(ctx);..    re
8360: 74 75 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29  turn (SSL_CTX *)
8370: 30 3b 0a 09 7d 0a 20 20 20 20 7d 20 65 6c 73 65  0;..}.    } else
8380: 20 7b 0a 09 63 65 72 74 20 3d 20 28 63 68 61 72   {..cert = (char
8390: 2a 29 58 35 30 39 5f 67 65 74 5f 64 65 66 61 75  *)X509_get_defau
83a0: 6c 74 5f 63 65 72 74 5f 66 69 6c 65 28 29 3b 0a  lt_cert_file();.
83b0: 0a 09 69 66 20 28 53 53 4c 5f 43 54 58 5f 75 73  ..if (SSL_CTX_us
83c0: 65 5f 63 65 72 74 69 66 69 63 61 74 65 5f 66 69  e_certificate_fi
83d0: 6c 65 28 63 74 78 2c 20 63 65 72 74 2c 0a 09 09  le(ctx, cert,...
83e0: 09 09 09 53 53 4c 5f 46 49 4c 45 54 59 50 45 5f  ...SSL_FILETYPE_
83f0: 50 45 4d 29 20 3c 3d 20 30 29 20 7b 0a 23 69 66  PEM) <= 0) {.#if
8400: 20 30 0a 09 20 20 20 20 54 63 6c 5f 44 53 74 72   0..    Tcl_DStr
8410: 69 6e 67 46 72 65 65 28 26 64 73 29 3b 0a 09 20  ingFree(&ds);.. 
8420: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
8430: 75 6c 74 28 69 6e 74 65 72 70 2c 0a 09 09 09 20  ult(interp,.... 
8440: 20 20 20 20 22 75 6e 61 62 6c 65 20 74 6f 20 75      "unable to u
8450: 73 65 20 64 65 66 61 75 6c 74 20 63 65 72 74 69  se default certi
8460: 66 69 63 61 74 65 20 66 69 6c 65 20 22 2c 20 63  ficate file ", c
8470: 65 72 74 2c 20 22 3a 20 22 2c 0a 09 09 09 20 20  ert, ": ",....  
8480: 20 20 20 52 45 41 53 4f 4e 28 29 2c 20 28 63 68     REASON(), (ch
8490: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20  ar *) NULL);..  
84a0: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63    SSL_CTX_free(c
84b0: 74 78 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e  tx);..    return
84c0: 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b 0a 23   (SSL_CTX *)0;.#
84d0: 65 6e 64 69 66 0a 09 7d 0a 20 20 20 20 7d 0a 09  endif..}.    }..
84e0: 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67  .    Tcl_DString
84f0: 49 6e 69 74 28 26 64 73 29 3b 0a 20 20 20 20 54  Init(&ds);.    T
8500: 63 6c 5f 44 53 74 72 69 6e 67 49 6e 69 74 28 26  cl_DStringInit(&
8510: 64 73 31 29 3b 0a 20 20 20 20 69 66 20 28 21 53  ds1);.    if (!S
8520: 53 4c 5f 43 54 58 5f 6c 6f 61 64 5f 76 65 72 69  SL_CTX_load_veri
8530: 66 79 5f 6c 6f 63 61 74 69 6f 6e 73 28 63 74 78  fy_locations(ctx
8540: 2c 20 46 32 4e 28 43 41 66 69 6c 65 2c 20 26 64  , F2N(CAfile, &d
8550: 73 29 2c 20 46 32 4e 28 43 41 64 69 72 2c 20 26  s), F2N(CAdir, &
8560: 64 73 31 29 29 20 7c 7c 0a 09 21 53 53 4c 5f 43  ds1)) ||..!SSL_C
8570: 54 58 5f 73 65 74 5f 64 65 66 61 75 6c 74 5f 76  TX_set_default_v
8580: 65 72 69 66 79 5f 70 61 74 68 73 28 63 74 78 29  erify_paths(ctx)
8590: 29 20 7b 0a 23 69 66 20 30 0a 09 54 63 6c 5f 44  ) {.#if 0..Tcl_D
85a0: 53 74 72 69 6e 67 46 72 65 65 28 26 64 73 29 3b  StringFree(&ds);
85b0: 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 46 72 65  ..Tcl_DStringFre
85c0: 65 28 26 64 73 31 29 3b 0a 09 2f 2a 20 44 6f 6e  e(&ds1);../* Don
85d0: 27 74 20 63 75 72 72 65 6e 74 6c 79 20 63 61 72  't currently car
85e0: 65 20 69 66 20 74 68 69 73 20 66 61 69 6c 73 20  e if this fails 
85f0: 2a 2f 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65  */..Tcl_AppendRe
8600: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 53 53  sult(interp, "SS
8610: 4c 20 64 65 66 61 75 6c 74 20 76 65 72 69 66 79  L default verify
8620: 20 70 61 74 68 73 3a 20 22 2c 0a 09 09 52 45 41   paths: ",...REA
8630: 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20  SON(), (char *) 
8640: 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f  NULL);..SSL_CTX_
8650: 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75  free(ctx);..retu
8660: 72 6e 20 28 53 53 4c 5f 43 54 58 20 2a 29 30 3b  rn (SSL_CTX *)0;
8670: 0a 23 65 6e 64 69 66 0a 20 20 20 20 7d 0a 0a 20  .#endif.    }.. 
8680: 20 20 20 2f 2a 20 68 74 74 70 73 3a 2f 2f 73 6f     /* https://so
8690: 75 72 63 65 66 6f 72 67 65 2e 6e 65 74 2f 70 2f  urceforge.net/p/
86a0: 74 6c 73 2f 62 75 67 73 2f 35 37 2f 20 2a 2f 0a  tls/bugs/57/ */.
86b0: 20 20 20 20 69 66 20 28 20 43 41 66 69 6c 65 20      if ( CAfile 
86c0: 21 3d 20 4e 55 4c 4c 20 29 20 7b 0a 20 20 20 20  != NULL ) {.    
86d0: 20 20 20 20 53 54 41 43 4b 5f 4f 46 28 58 35 30      STACK_OF(X50
86e0: 39 5f 4e 41 4d 45 29 20 2a 63 65 72 74 4e 61 6d  9_NAME) *certNam
86f0: 65 73 20 3d 20 53 53 4c 5f 6c 6f 61 64 5f 63 6c  es = SSL_load_cl
8700: 69 65 6e 74 5f 43 41 5f 66 69 6c 65 28 20 46 32  ient_CA_file( F2
8710: 4e 28 43 41 66 69 6c 65 2c 20 26 64 73 29 20 29  N(CAfile, &ds) )
8720: 3b 0a 09 69 66 20 28 20 63 65 72 74 4e 61 6d 65  ;..if ( certName
8730: 73 20 21 3d 20 4e 55 4c 4c 20 29 20 7b 20 0a 09  s != NULL ) { ..
8740: 20 20 20 20 53 53 4c 5f 43 54 58 5f 73 65 74 5f      SSL_CTX_set_
8750: 63 6c 69 65 6e 74 5f 43 41 5f 6c 69 73 74 28 63  client_CA_list(c
8760: 74 78 2c 20 63 65 72 74 4e 61 6d 65 73 20 29 3b  tx, certNames );
8770: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54  ..}.    }..    T
8780: 63 6c 5f 44 53 74 72 69 6e 67 46 72 65 65 28 26  cl_DStringFree(&
8790: 64 73 29 3b 0a 20 20 20 20 54 63 6c 5f 44 53 74  ds);.    Tcl_DSt
87a0: 72 69 6e 67 46 72 65 65 28 26 64 73 31 29 3b 0a  ringFree(&ds1);.
87b0: 20 20 20 20 72 65 74 75 72 6e 20 63 74 78 3b 0a      return ctx;.
87c0: 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  }.../*. *-------
87d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
87e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
87f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
8800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
8810: 20 2a 20 53 74 61 74 75 73 4f 62 6a 43 6d 64 20   * StatusObjCmd 
8820: 2d 2d 20 72 65 74 75 72 6e 20 63 65 72 74 69 66  -- return certif
8830: 69 63 61 74 65 20 66 6f 72 20 63 6f 6e 6e 65 63  icate for connec
8840: 74 65 64 20 70 65 65 72 2e 0a 20 2a 0a 20 2a 20  ted peer.. *. * 
8850: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74  Results:. *.A st
8860: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c  andard Tcl resul
8870: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  t.. *. * Side ef
8880: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a  fects:. *.None..
8890: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
88a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
88b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
88c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
88d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61  --------. */.sta
88e0: 74 69 63 20 69 6e 74 0a 53 74 61 74 75 73 4f 62  tic int.StatusOb
88f0: 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61 2c  jCmd(clientData,
8900: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f   interp, objc, o
8910: 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74 44  bjv).    ClientD
8920: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b 09  ata clientData;.
8930: 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f 0a  /* Not used. */.
8940: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a      Tcl_Interp *
8950: 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74 20  interp;.    int 
8960: 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f 62  objc;.    Tcl_Ob
8970: 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 3b  j.*CONST objv[];
8980: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74  .{.    State *st
8990: 61 74 65 50 74 72 3b 0a 20 20 20 20 58 35 30 39  atePtr;.    X509
89a0: 20 2a 70 65 65 72 3b 0a 20 20 20 20 54 63 6c 5f   *peer;.    Tcl_
89b0: 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20 20 20  Obj *objPtr;.   
89c0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61   Tcl_Channel cha
89d0: 6e 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 68 61  n;.    char *cha
89e0: 6e 6e 65 6c 4e 61 6d 65 2c 20 2a 63 69 70 68 65  nnelName, *ciphe
89f0: 72 73 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65  rs;.    int mode
8a00: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22  ;..    dprintf("
8a10: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 73  Called");..    s
8a20: 77 69 74 63 68 20 28 6f 62 6a 63 29 20 7b 0a 09  witch (objc) {..
8a30: 63 61 73 65 20 32 3a 0a 09 20 20 20 20 63 68 61  case 2:..    cha
8a40: 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63 6c 5f 47  nnelName = Tcl_G
8a50: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28  etStringFromObj(
8a60: 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 3b 0a  objv[1], NULL);.
8a70: 09 20 20 20 20 62 72 65 61 6b 3b 0a 0a 09 63 61  .    break;...ca
8a80: 73 65 20 33 3a 0a 09 20 20 20 20 69 66 20 28 21  se 3:..    if (!
8a90: 73 74 72 63 6d 70 20 28 54 63 6c 5f 47 65 74 53  strcmp (Tcl_GetS
8aa0: 74 72 69 6e 67 20 28 6f 62 6a 76 5b 31 5d 29 2c  tring (objv[1]),
8ab0: 20 22 2d 6c 6f 63 61 6c 22 29 29 20 7b 0a 09 09   "-local")) {...
8ac0: 63 68 61 6e 6e 65 6c 4e 61 6d 65 20 3d 20 54 63  channelName = Tc
8ad0: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f  l_GetStringFromO
8ae0: 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 4e 55 4c 4c  bj(objv[2], NULL
8af0: 29 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20  );...break;..   
8b00: 20 7d 0a 09 20 20 20 20 2f 2a 20 65 6c 73 65 20   }..    /* else 
8b10: 66 61 6c 6c 2e 2e 2e 20 2a 2f 0a 09 64 65 66 61  fall... */..defa
8b20: 75 6c 74 3a 0a 09 20 20 20 20 54 63 6c 5f 57 72  ult:..    Tcl_Wr
8b30: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72  ongNumArgs(inter
8b40: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 6c  p, 1, objv, "?-l
8b50: 6f 63 61 6c 3f 20 63 68 61 6e 6e 65 6c 22 29 3b  ocal? channel");
8b60: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ..    return TCL
8b70: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20  _ERROR;.    }.. 
8b80: 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65     chan = Tcl_Ge
8b90: 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c  tChannel(interp,
8ba0: 20 63 68 61 6e 6e 65 6c 4e 61 6d 65 2c 20 26 6d   channelName, &m
8bb0: 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68  ode);.    if (ch
8bc0: 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e  an == (Tcl_Chann
8bd0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74  el) NULL) {..ret
8be0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
8bf0: 20 20 20 7d 0a 20 20 20 20 2f 2a 0a 20 20 20 20     }.    /*.    
8c00: 20 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20   * Make sure to 
8c10: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74  operate on the t
8c20: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 0a 20  opmost channel. 
8c30: 20 20 20 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20      */.    chan 
8c40: 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e  = Tcl_GetTopChan
8c50: 6e 65 6c 28 63 68 61 6e 29 3b 0a 20 20 20 20 69  nel(chan);.    i
8c60: 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65  f (Tcl_GetChanne
8c70: 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d 20 54  lType(chan) != T
8c80: 6c 73 5f 43 68 61 6e 6e 65 6c 54 79 70 65 28 29  ls_ChannelType()
8c90: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52  ) {..Tcl_AppendR
8ca0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 62  esult(interp, "b
8cb0: 61 64 20 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20  ad channel \"", 
8cc0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61  Tcl_GetChannelNa
8cd0: 6d 65 28 63 68 61 6e 29 2c 0a 09 09 22 5c 22 3a  me(chan),..."\":
8ce0: 20 6e 6f 74 20 61 20 54 4c 53 20 63 68 61 6e 6e   not a TLS chann
8cf0: 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74  el", NULL);..ret
8d00: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
8d10: 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 74     }.    statePt
8d20: 72 20 3d 20 28 53 74 61 74 65 20 2a 29 20 54 63  r = (State *) Tc
8d30: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74  l_GetChannelInst
8d40: 61 6e 63 65 44 61 74 61 28 63 68 61 6e 29 3b 0a  anceData(chan);.
8d50: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20      if (objc == 
8d60: 32 29 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c  2) {..peer = SSL
8d70: 5f 67 65 74 5f 70 65 65 72 5f 63 65 72 74 69 66  _get_peer_certif
8d80: 69 63 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e  icate(statePtr->
8d90: 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65  ssl);.    } else
8da0: 20 7b 0a 09 70 65 65 72 20 3d 20 53 53 4c 5f 67   {..peer = SSL_g
8db0: 65 74 5f 63 65 72 74 69 66 69 63 61 74 65 28 73  et_certificate(s
8dc0: 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b 0a 20  tatePtr->ssl);. 
8dd0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 70 65 65     }.    if (pee
8de0: 72 29 20 7b 0a 09 6f 62 6a 50 74 72 20 3d 20 54  r) {..objPtr = T
8df0: 6c 73 5f 4e 65 77 58 35 30 39 4f 62 6a 28 69 6e  ls_NewX509Obj(in
8e00: 74 65 72 70 2c 20 70 65 65 72 29 3b 0a 09 69 66  terp, peer);..if
8e10: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 20 58   (objc == 2) { X
8e20: 35 30 39 5f 66 72 65 65 28 70 65 65 72 29 3b 20  509_free(peer); 
8e30: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09  }.    } else {..
8e40: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77  objPtr = Tcl_New
8e50: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29  ListObj(0, NULL)
8e60: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c  ;.    }..    Tcl
8e70: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
8e80: 65 6d 65 6e 74 20 28 69 6e 74 65 72 70 2c 20 6f  ement (interp, o
8e90: 62 6a 50 74 72 2c 0a 09 20 20 20 20 54 63 6c 5f  bjPtr,..    Tcl_
8ea0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 20 28 22 73  NewStringObj ("s
8eb0: 62 69 74 73 22 2c 20 2d 31 29 29 3b 0a 20 20 20  bits", -1));.   
8ec0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
8ed0: 6e 64 45 6c 65 6d 65 6e 74 20 28 69 6e 74 65 72  ndElement (inter
8ee0: 70 2c 20 6f 62 6a 50 74 72 2c 0a 09 20 20 20 20  p, objPtr,..    
8ef0: 54 63 6c 5f 4e 65 77 49 6e 74 4f 62 6a 20 28 53  Tcl_NewIntObj (S
8f00: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 5f 62 69  SL_get_cipher_bi
8f10: 74 73 20 28 73 74 61 74 65 50 74 72 2d 3e 73 73  ts (statePtr->ss
8f20: 6c 2c 20 4e 55 4c 4c 29 29 29 3b 0a 0a 20 20 20  l, NULL)));..   
8f30: 20 63 69 70 68 65 72 73 20 3d 20 28 63 68 61 72   ciphers = (char
8f40: 2a 29 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72  *)SSL_get_cipher
8f50: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b  (statePtr->ssl);
8f60: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 73  .    if (ciphers
8f70: 20 21 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 63   != NULL && strc
8f80: 6d 70 28 63 69 70 68 65 72 73 2c 20 22 28 4e 4f  mp(ciphers, "(NO
8f90: 4e 45 29 22 29 21 3d 30 29 20 7b 0a 09 54 63 6c  NE)")!=0) {..Tcl
8fa0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
8fb0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62  ement(interp, ob
8fc0: 6a 50 74 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53  jPtr,...Tcl_NewS
8fd0: 74 72 69 6e 67 4f 62 6a 28 22 63 69 70 68 65 72  tringObj("cipher
8fe0: 22 2c 20 2d 31 29 29 3b 0a 09 54 63 6c 5f 4c 69  ", -1));..Tcl_Li
8ff0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
9000: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  nt(interp, objPt
9010: 72 2c 0a 09 09 54 63 6c 5f 4e 65 77 53 74 72 69  r,...Tcl_NewStri
9020: 6e 67 4f 62 6a 28 53 53 4c 5f 67 65 74 5f 63 69  ngObj(SSL_get_ci
9030: 70 68 65 72 28 73 74 61 74 65 50 74 72 2d 3e 73  pher(statePtr->s
9040: 73 6c 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d  sl), -1));.    }
9050: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52  .    Tcl_SetObjR
9060: 65 73 75 6c 74 28 20 69 6e 74 65 72 70 2c 20 6f  esult( interp, o
9070: 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75  bjPtr);.    retu
9080: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 09  rn TCL_OK;.    .
9090: 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69  clientData = cli
90a0: 65 6e 74 44 61 74 61 3b 0a 7d 0a 0c 0a 2f 2a 0a  entData;.}.../*.
90b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
90c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
90d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
90e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
90f0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 72 73  -----. *. * Vers
9100: 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 20 72 65 74  ionObjCmd -- ret
9110: 75 72 6e 20 76 65 72 73 69 6f 6e 20 73 74 72 69  urn version stri
9120: 6e 67 20 66 72 6f 6d 20 4f 70 65 6e 53 53 4c 2e  ng from OpenSSL.
9130: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
9140: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63   *.A standard Tc
9150: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20  l result.. *. * 
9160: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
9170: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d  .None.. *. *----
9180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
91a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
91b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
91c0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56   */.static int.V
91d0: 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 63 6c 69  ersionObjCmd(cli
91e0: 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 2c  entData, interp,
91f0: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 0a 20 20 20   objc, objv).   
9200: 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65   ClientData clie
9210: 6e 74 44 61 74 61 3b 09 2f 2a 20 4e 6f 74 20 75  ntData;./* Not u
9220: 73 65 64 2e 20 2a 2f 0a 20 20 20 20 54 63 6c 5f  sed. */.    Tcl_
9230: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 0a  Interp *interp;.
9240: 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b 0a 20 20      int objc;.  
9250: 20 20 54 63 6c 5f 4f 62 6a 09 2a 43 4f 4e 53 54    Tcl_Obj.*CONST
9260: 20 6f 62 6a 76 5b 5d 3b 0a 7b 0a 20 20 20 20 54   objv[];.{.    T
9270: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a  cl_Obj *objPtr;.
9280: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61  .    dprintf("Ca
9290: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 6f 62 6a  lled");..    obj
92a0: 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72  Ptr = Tcl_NewStr
92b0: 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 4c 5f 56  ingObj(OPENSSL_V
92c0: 45 52 53 49 4f 4e 5f 54 45 58 54 2c 20 2d 31 29  ERSION_TEXT, -1)
92d0: 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  ;..    Tcl_SetOb
92e0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
92f0: 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74  objPtr);.    ret
9300: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20  urn TCL_OK;.    
9310: 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c  .clientData = cl
9320: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 09 6f  ientData;.    .o
9330: 62 6a 63 20 3d 20 6f 62 6a 63 3b 0a 20 20 20 20  bjc = objc;.    
9340: 09 6f 62 6a 76 20 3d 20 6f 62 6a 76 3b 0a 7d 0a  .objv = objv;.}.
9350: 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
9360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
93a0: 20 4d 69 73 63 4f 62 6a 43 6d 64 20 2d 2d 20 6d   MiscObjCmd -- m
93b0: 69 73 63 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a  isc commands. *.
93c0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41   * Results:. *.A
93d0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65   standard Tcl re
93e0: 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  sult.. *. * Side
93f0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e   effects:. *.Non
9400: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  e.. *. *--------
9410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
9440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
9450: 73 74 61 74 69 63 20 69 6e 74 0a 4d 69 73 63 4f  static int.MiscO
9460: 62 6a 43 6d 64 28 63 6c 69 65 6e 74 44 61 74 61  bjCmd(clientData
9470: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20  , interp, objc, 
9480: 6f 62 6a 76 29 0a 20 20 20 20 43 6c 69 65 6e 74  objv).    Client
9490: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 3b  Data clientData;
94a0: 09 2f 2a 20 4e 6f 74 20 75 73 65 64 2e 20 2a 2f  ./* Not used. */
94b0: 0a 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20  .    Tcl_Interp 
94c0: 2a 69 6e 74 65 72 70 3b 0a 20 20 20 20 69 6e 74  *interp;.    int
94d0: 20 6f 62 6a 63 3b 0a 20 20 20 20 54 63 6c 5f 4f   objc;.    Tcl_O
94e0: 62 6a 09 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d  bj.*CONST objv[]
94f0: 3b 0a 7b 0a 20 20 20 20 73 74 61 74 69 63 20 43  ;.{.    static C
9500: 4f 4e 53 54 38 34 20 63 68 61 72 20 2a 63 6f 6d  ONST84 char *com
9510: 6d 61 6e 64 73 20 5b 5d 20 3d 20 7b 20 22 72 65  mands [] = { "re
9520: 71 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 20 20 20 20  q", NULL };.    
9530: 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 20 7b 20 43  enum command { C
9540: 5f 52 45 51 2c 20 43 5f 44 55 4d 4d 59 20 7d 3b  _REQ, C_DUMMY };
9550: 0a 20 20 20 20 69 6e 74 20 63 6d 64 3b 0a 0a 20  .    int cmd;.. 
9560: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c     dprintf("Call
9570: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 6f  ed");..    if (o
9580: 62 6a 63 20 3c 20 32 29 20 7b 0a 09 54 63 6c 5f  bjc < 2) {..Tcl_
9590: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74  WrongNumArgs(int
95a0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 73  erp, 1, objv, "s
95b0: 75 62 63 6f 6d 6d 61 6e 64 20 3f 61 72 67 73 3f  ubcommand ?args?
95c0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  ");..return TCL_
95d0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20  ERROR;.    }.   
95e0: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65   if (Tcl_GetInde
95f0: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c  xFromObj(interp,
9600: 20 6f 62 6a 76 5b 31 5d 2c 20 63 6f 6d 6d 61 6e   objv[1], comman
9610: 64 73 2c 0a 09 20 20 20 20 22 63 6f 6d 6d 61 6e  ds,..    "comman
9620: 64 22 2c 20 30 2c 26 63 6d 64 29 20 21 3d 20 54  d", 0,&cmd) != T
9630: 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 72 6e  CL_OK) {..return
9640: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
9650: 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 28  }..    switch ((
9660: 65 6e 75 6d 20 63 6f 6d 6d 61 6e 64 29 20 63 6d  enum command) cm
9670: 64 29 20 7b 0a 09 63 61 73 65 20 43 5f 52 45 51  d) {..case C_REQ
9680: 3a 20 7b 0a 09 20 20 20 20 45 56 50 5f 50 4b 45  : {..    EVP_PKE
9690: 59 20 2a 70 6b 65 79 3d 4e 55 4c 4c 3b 0a 09 20  Y *pkey=NULL;.. 
96a0: 20 20 20 58 35 30 39 20 2a 63 65 72 74 3d 4e 55     X509 *cert=NU
96b0: 4c 4c 3b 0a 09 20 20 20 20 58 35 30 39 5f 4e 41  LL;..    X509_NA
96c0: 4d 45 20 2a 6e 61 6d 65 3d 4e 55 4c 4c 3b 0a 09  ME *name=NULL;..
96d0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 2a 6c 69      Tcl_Obj **li
96e0: 73 74 76 3b 0a 09 20 20 20 20 69 6e 74 20 6c 69  stv;..    int li
96f0: 73 74 63 2c 69 3b 0a 0a 09 20 20 20 20 42 49 4f  stc,i;...    BIO
9700: 20 2a 6f 75 74 3d 4e 55 4c 4c 3b 0a 0a 09 20 20   *out=NULL;...  
9710: 20 20 63 68 61 72 20 2a 6b 5f 43 3d 22 22 2c 2a    char *k_C="",*
9720: 6b 5f 53 54 3d 22 22 2c 2a 6b 5f 4c 3d 22 22 2c  k_ST="",*k_L="",
9730: 2a 6b 5f 4f 3d 22 22 2c 2a 6b 5f 4f 55 3d 22 22  *k_O="",*k_OU=""
9740: 2c 2a 6b 5f 43 4e 3d 22 22 2c 2a 6b 5f 45 6d 61  ,*k_CN="",*k_Ema
9750: 69 6c 3d 22 22 3b 0a 09 20 20 20 20 63 68 61 72  il="";..    char
9760: 20 2a 6b 65 79 6f 75 74 2c 2a 70 65 6d 6f 75 74   *keyout,*pemout
9770: 2c 2a 73 74 72 3b 0a 09 20 20 20 20 69 6e 74 20  ,*str;..    int 
9780: 6b 65 79 73 69 7a 65 2c 73 65 72 69 61 6c 3d 30  keysize,serial=0
9790: 2c 64 61 79 73 3d 33 36 35 3b 0a 09 20 20 20 20  ,days=365;..    
97a0: 0a 09 20 20 20 20 69 66 20 28 28 6f 62 6a 63 3c  ..    if ((objc<
97b0: 35 29 20 7c 7c 20 28 6f 62 6a 63 3e 36 29 29 20  5) || (objc>6)) 
97c0: 7b 0a 09 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d  {...Tcl_WrongNum
97d0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 32 2c 20  Args(interp, 2, 
97e0: 6f 62 6a 76 2c 20 22 6b 65 79 73 69 7a 65 20 6b  objv, "keysize k
97f0: 65 79 66 69 6c 65 20 63 65 72 74 66 69 6c 65 20  eyfile certfile 
9800: 3f 69 6e 66 6f 3f 22 29 3b 0a 09 09 72 65 74 75  ?info?");...retu
9810: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20  rn TCL_ERROR;.. 
9820: 20 20 20 7d 0a 0a 09 20 20 20 20 69 66 20 28 54     }...    if (T
9830: 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f 62 6a  cl_GetIntFromObj
9840: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
9850: 2c 20 26 6b 65 79 73 69 7a 65 29 20 21 3d 20 54  , &keysize) != T
9860: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 72 65 74 75 72  CL_OK) {...retur
9870: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20  n TCL_ERROR;..  
9880: 20 20 7d 0a 09 20 20 20 20 6b 65 79 6f 75 74 3d    }..    keyout=
9890: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
98a0: 6a 76 5b 33 5d 29 3b 0a 09 20 20 20 20 70 65 6d  jv[3]);..    pem
98b0: 6f 75 74 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e  out=Tcl_GetStrin
98c0: 67 28 6f 62 6a 76 5b 34 5d 29 3b 0a 0a 09 20 20  g(objv[4]);...  
98d0: 20 20 69 66 20 28 6f 62 6a 63 3e 3d 36 29 20 7b    if (objc>=6) {
98e0: 0a 09 09 69 66 20 28 54 63 6c 5f 4c 69 73 74 4f  ...if (Tcl_ListO
98f0: 62 6a 47 65 74 45 6c 65 6d 65 6e 74 73 28 69 6e  bjGetElements(in
9900: 74 65 72 70 2c 20 6f 62 6a 76 5b 35 5d 2c 0a 09  terp, objv[5],..
9910: 09 09 26 6c 69 73 74 63 2c 20 26 6c 69 73 74 76  ..&listc, &listv
9920: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  ) != TCL_OK) {..
9930: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
9940: 45 52 52 4f 52 3b 0a 09 09 7d 0a 0a 09 09 69 66  ERROR;...}....if
9950: 20 28 28 6c 69 73 74 63 25 32 29 20 21 3d 20 30   ((listc%2) != 0
9960: 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 53 65  ) {...    Tcl_Se
9970: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 22  tResult(interp,"
9980: 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6c 69 73 74  Information list
9990: 20 6d 75 73 74 20 68 61 76 65 20 65 76 65 6e 20   must have even 
99a0: 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  number of argume
99b0: 6e 74 73 22 2c 4e 55 4c 4c 29 3b 0a 09 09 20 20  nts",NULL);...  
99c0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
99d0: 4f 52 3b 0a 09 09 7d 0a 09 09 66 6f 72 20 28 69  OR;...}...for (i
99e0: 3d 30 3b 20 69 3c 6c 69 73 74 63 3b 20 69 2b 3d  =0; i<listc; i+=
99f0: 32 29 20 7b 0a 09 09 20 20 20 20 73 74 72 3d 54  2) {...    str=T
9a00: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73  cl_GetString(lis
9a10: 74 76 5b 69 5d 29 3b 0a 09 09 20 20 20 20 69 66  tv[i]);...    if
9a20: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 64 61   (strcmp(str,"da
9a30: 79 73 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66  ys")==0) {....if
9a40: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d   (Tcl_GetIntFrom
9a50: 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76  Obj(interp,listv
9a60: 5b 69 2b 31 5d 2c 26 64 61 79 73 29 21 3d 54 43  [i+1],&days)!=TC
9a70: 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72 65 74  L_OK)....    ret
9a80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09  urn TCL_ERROR;..
9a90: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28  .    } else if (
9aa0: 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65 72 69  strcmp(str,"seri
9ab0: 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 69 66  al")==0) {....if
9ac0: 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d   (Tcl_GetIntFrom
9ad0: 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73 74 76  Obj(interp,listv
9ae0: 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29 21 3d  [i+1],&serial)!=
9af0: 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20 20 72  TCL_OK)....    r
9b00: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
9b10: 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66  ...    } else if
9b20: 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22 73 65   (strcmp(str,"se
9b30: 72 69 61 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09  rial")==0) {....
9b40: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 74 46 72  if (Tcl_GetIntFr
9b50: 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 6c 69 73  omObj(interp,lis
9b60: 74 76 5b 69 2b 31 5d 2c 26 73 65 72 69 61 6c 29  tv[i+1],&serial)
9b70: 21 3d 54 43 4c 5f 4f 4b 29 0a 09 09 09 20 20 20  !=TCL_OK)....   
9b80: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
9b90: 52 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20  R;...    } else 
9ba0: 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c 22  if (strcmp(str,"
9bb0: 43 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 43  C")==0) {....k_C
9bc0: 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c  =Tcl_GetString(l
9bd0: 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20  istv[i+1]);...  
9be0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 73 74 72    } else if (str
9bf0: 63 6d 70 28 73 74 72 2c 22 53 54 22 29 3d 3d 30  cmp(str,"ST")==0
9c00: 29 20 7b 0a 09 09 09 6b 5f 53 54 3d 54 63 6c 5f  ) {....k_ST=Tcl_
9c10: 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74 76 5b  GetString(listv[
9c20: 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65  i+1]);...    } e
9c30: 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70 28 73  lse if (strcmp(s
9c40: 74 72 2c 22 4c 22 29 3d 3d 30 29 20 7b 0a 09 09  tr,"L")==0) {...
9c50: 09 6b 5f 4c 3d 54 63 6c 5f 47 65 74 53 74 72 69  .k_L=Tcl_GetStri
9c60: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a  ng(listv[i+1]);.
9c70: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20  ..    } else if 
9c80: 28 73 74 72 63 6d 70 28 73 74 72 2c 22 4f 22 29  (strcmp(str,"O")
9c90: 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 4f 3d 54 63  ==0) {....k_O=Tc
9ca0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6c 69 73 74  l_GetString(list
9cb0: 76 5b 69 2b 31 5d 29 3b 0a 09 09 20 20 20 20 7d  v[i+1]);...    }
9cc0: 20 65 6c 73 65 20 69 66 20 28 73 74 72 63 6d 70   else if (strcmp
9cd0: 28 73 74 72 2c 22 4f 55 22 29 3d 3d 30 29 20 7b  (str,"OU")==0) {
9ce0: 0a 09 09 09 6b 5f 4f 55 3d 54 63 6c 5f 47 65 74  ....k_OU=Tcl_Get
9cf0: 53 74 72 69 6e 67 28 6c 69 73 74 76 5b 69 2b 31  String(listv[i+1
9d00: 5d 29 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65  ]);...    } else
9d10: 20 69 66 20 28 73 74 72 63 6d 70 28 73 74 72 2c   if (strcmp(str,
9d20: 22 43 4e 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b  "CN")==0) {....k
9d30: 5f 43 4e 3d 54 63 6c 5f 47 65 74 53 74 72 69 6e  _CN=Tcl_GetStrin
9d40: 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a 09  g(listv[i+1]);..
9d50: 09 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28  .    } else if (
9d60: 73 74 72 63 6d 70 28 73 74 72 2c 22 45 6d 61 69  strcmp(str,"Emai
9d70: 6c 22 29 3d 3d 30 29 20 7b 0a 09 09 09 6b 5f 45  l")==0) {....k_E
9d80: 6d 61 69 6c 3d 54 63 6c 5f 47 65 74 53 74 72 69  mail=Tcl_GetStri
9d90: 6e 67 28 6c 69 73 74 76 5b 69 2b 31 5d 29 3b 0a  ng(listv[i+1]);.
9da0: 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09  ..    } else {..
9db0: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28  ..Tcl_SetResult(
9dc0: 69 6e 74 65 72 70 2c 22 55 6e 6b 6e 6f 77 6e 20  interp,"Unknown 
9dd0: 70 61 72 61 6d 65 74 65 72 22 2c 4e 55 4c 4c 29  parameter",NULL)
9de0: 3b 0a 09 09 09 72 65 74 75 72 6e 20 54 43 4c 5f  ;....return TCL_
9df0: 45 52 52 4f 52 3b 0a 09 09 20 20 20 20 7d 0a 09  ERROR;...    }..
9e00: 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 69  .}..    }..    i
9e10: 66 20 28 28 70 6b 65 79 20 3d 20 45 56 50 5f 50  f ((pkey = EVP_P
9e20: 4b 45 59 5f 6e 65 77 28 29 29 20 21 3d 20 4e 55  KEY_new()) != NU
9e30: 4c 4c 29 20 7b 0a 09 09 69 66 20 28 21 45 56 50  LL) {...if (!EVP
9e40: 5f 50 4b 45 59 5f 61 73 73 69 67 6e 5f 52 53 41  _PKEY_assign_RSA
9e50: 28 70 6b 65 79 2c 0a 09 09 09 52 53 41 5f 67 65  (pkey,....RSA_ge
9e60: 6e 65 72 61 74 65 5f 6b 65 79 28 6b 65 79 73 69  nerate_key(keysi
9e70: 7a 65 2c 20 30 78 31 30 30 30 31 2c 20 4e 55 4c  ze, 0x10001, NUL
9e80: 4c 2c 20 4e 55 4c 4c 29 29 29 20 7b 0a 09 09 20  L, NULL))) {... 
9e90: 20 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74     Tcl_SetResult
9ea0: 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20 67  (interp,"Error g
9eb0: 65 6e 65 72 61 74 69 6e 67 20 70 72 69 76 61 74  enerating privat
9ec0: 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09 09  e key",NULL);...
9ed0: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65      EVP_PKEY_fre
9ee0: 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 72  e(pkey);...    r
9ef0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
9f00: 0a 09 09 7d 0a 09 09 6f 75 74 3d 42 49 4f 5f 6e  ...}...out=BIO_n
9f10: 65 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29  ew(BIO_s_file())
9f20: 3b 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 69  ;...BIO_write_fi
9f30: 6c 65 6e 61 6d 65 28 6f 75 74 2c 6b 65 79 6f 75  lename(out,keyou
9f40: 74 29 3b 0a 09 09 50 45 4d 5f 77 72 69 74 65 5f  t);...PEM_write_
9f50: 62 69 6f 5f 50 72 69 76 61 74 65 4b 65 79 28 6f  bio_PrivateKey(o
9f60: 75 74 2c 70 6b 65 79 2c 4e 55 4c 4c 2c 4e 55 4c  ut,pkey,NULL,NUL
9f70: 4c 2c 30 2c 4e 55 4c 4c 2c 4e 55 4c 4c 29 3b 0a  L,0,NULL,NULL);.
9f80: 09 09 42 49 4f 5f 66 72 65 65 5f 61 6c 6c 28 6f  ..BIO_free_all(o
9f90: 75 74 29 3b 0a 0a 09 09 69 66 20 28 28 63 65 72  ut);....if ((cer
9fa0: 74 3d 58 35 30 39 5f 6e 65 77 28 29 29 3d 3d 4e  t=X509_new())==N
9fb0: 55 4c 4c 29 20 7b 0a 09 09 20 20 20 20 54 63 6c  ULL) {...    Tcl
9fc0: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
9fd0: 70 2c 22 45 72 72 6f 72 20 67 65 6e 65 72 61 74  p,"Error generat
9fe0: 69 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 20  ing certificate 
9ff0: 72 65 71 75 65 73 74 22 2c 4e 55 4c 4c 29 3b 0a  request",NULL);.
a000: 09 09 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66  ..    EVP_PKEY_f
a010: 72 65 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20  ree(pkey);...   
a020: 20 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f   return(TCL_ERRO
a030: 52 29 3b 0a 09 09 7d 0a 0a 09 09 58 35 30 39 5f  R);...}....X509_
a040: 73 65 74 5f 76 65 72 73 69 6f 6e 28 63 65 72 74  set_version(cert
a050: 2c 32 29 3b 0a 09 09 41 53 4e 31 5f 49 4e 54 45  ,2);...ASN1_INTE
a060: 47 45 52 5f 73 65 74 28 58 35 30 39 5f 67 65 74  GER_set(X509_get
a070: 5f 73 65 72 69 61 6c 4e 75 6d 62 65 72 28 63 65  _serialNumber(ce
a080: 72 74 29 2c 73 65 72 69 61 6c 29 3b 0a 09 09 58  rt),serial);...X
a090: 35 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58  509_gmtime_adj(X
a0a0: 35 30 39 5f 67 65 74 5f 6e 6f 74 42 65 66 6f 72  509_get_notBefor
a0b0: 65 28 63 65 72 74 29 2c 30 29 3b 0a 09 09 58 35  e(cert),0);...X5
a0c0: 30 39 5f 67 6d 74 69 6d 65 5f 61 64 6a 28 58 35  09_gmtime_adj(X5
a0d0: 30 39 5f 67 65 74 5f 6e 6f 74 41 66 74 65 72 28  09_get_notAfter(
a0e0: 63 65 72 74 29 2c 28 6c 6f 6e 67 29 36 30 2a 36  cert),(long)60*6
a0f0: 30 2a 32 34 2a 64 61 79 73 29 3b 0a 09 09 58 35  0*24*days);...X5
a100: 30 39 5f 73 65 74 5f 70 75 62 6b 65 79 28 63 65  09_set_pubkey(ce
a110: 72 74 2c 70 6b 65 79 29 3b 0a 09 09 0a 09 09 6e  rt,pkey);......n
a120: 61 6d 65 3d 58 35 30 39 5f 67 65 74 5f 73 75 62  ame=X509_get_sub
a130: 6a 65 63 74 5f 6e 61 6d 65 28 63 65 72 74 29 3b  ject_name(cert);
a140: 0a 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f 61 64  ....X509_NAME_ad
a150: 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74 28 6e  d_entry_by_txt(n
a160: 61 6d 65 2c 22 43 22 2c 20 4d 42 53 54 52 49 4e  ame,"C", MBSTRIN
a170: 47 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e 65 64  G_ASC, (unsigned
a180: 20 63 68 61 72 20 2a 29 20 6b 5f 43 2c 20 2d 31   char *) k_C, -1
a190: 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39  , -1, 0);...X509
a1a0: 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f  _NAME_add_entry_
a1b0: 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 53 54 22  by_txt(name,"ST"
a1c0: 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c 20  , MBSTRING_ASC, 
a1d0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a  (unsigned char *
a1e0: 29 20 6b 5f 53 54 2c 20 2d 31 2c 20 2d 31 2c 20  ) k_ST, -1, -1, 
a1f0: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f  0);...X509_NAME_
a200: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74  add_entry_by_txt
a210: 28 6e 61 6d 65 2c 22 4c 22 2c 20 4d 42 53 54 52  (name,"L", MBSTR
a220: 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 67 6e  ING_ASC, (unsign
a230: 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 4c 2c 20  ed char *) k_L, 
a240: 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09 58 35  -1, -1, 0);...X5
a250: 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e 74 72  09_NAME_add_entr
a260: 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c 22 4f  y_by_txt(name,"O
a270: 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c  ", MBSTRING_ASC,
a280: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20   (unsigned char 
a290: 2a 29 20 6b 5f 4f 2c 20 2d 31 2c 20 2d 31 2c 20  *) k_O, -1, -1, 
a2a0: 30 29 3b 0a 09 09 58 35 30 39 5f 4e 41 4d 45 5f  0);...X509_NAME_
a2b0: 61 64 64 5f 65 6e 74 72 79 5f 62 79 5f 74 78 74  add_entry_by_txt
a2c0: 28 6e 61 6d 65 2c 22 4f 55 22 2c 20 4d 42 53 54  (name,"OU", MBST
a2d0: 52 49 4e 47 5f 41 53 43 2c 20 28 75 6e 73 69 67  RING_ASC, (unsig
a2e0: 6e 65 64 20 63 68 61 72 20 2a 29 20 6b 5f 4f 55  ned char *) k_OU
a2f0: 2c 20 2d 31 2c 20 2d 31 2c 20 30 29 3b 0a 09 09  , -1, -1, 0);...
a300: 58 35 30 39 5f 4e 41 4d 45 5f 61 64 64 5f 65 6e  X509_NAME_add_en
a310: 74 72 79 5f 62 79 5f 74 78 74 28 6e 61 6d 65 2c  try_by_txt(name,
a320: 22 43 4e 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41  "CN", MBSTRING_A
a330: 53 43 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68  SC, (unsigned ch
a340: 61 72 20 2a 29 20 6b 5f 43 4e 2c 20 2d 31 2c 20  ar *) k_CN, -1, 
a350: 2d 31 2c 20 30 29 3b 0a 09 09 58 35 30 39 5f 4e  -1, 0);...X509_N
a360: 41 4d 45 5f 61 64 64 5f 65 6e 74 72 79 5f 62 79  AME_add_entry_by
a370: 5f 74 78 74 28 6e 61 6d 65 2c 22 45 6d 61 69 6c  _txt(name,"Email
a380: 22 2c 20 4d 42 53 54 52 49 4e 47 5f 41 53 43 2c  ", MBSTRING_ASC,
a390: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20   (unsigned char 
a3a0: 2a 29 20 6b 5f 45 6d 61 69 6c 2c 20 2d 31 2c 20  *) k_Email, -1, 
a3b0: 2d 31 2c 20 30 29 3b 0a 0a 09 09 58 35 30 39 5f  -1, 0);....X509_
a3c0: 73 65 74 5f 73 75 62 6a 65 63 74 5f 6e 61 6d 65  set_subject_name
a3d0: 28 63 65 72 74 2c 6e 61 6d 65 29 3b 0a 0a 09 09  (cert,name);....
a3e0: 69 66 20 28 21 58 35 30 39 5f 73 69 67 6e 28 63  if (!X509_sign(c
a3f0: 65 72 74 2c 70 6b 65 79 2c 45 56 50 5f 6d 64 35  ert,pkey,EVP_md5
a400: 28 29 29 29 20 7b 0a 09 09 20 20 20 20 58 35 30  ())) {...    X50
a410: 39 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 09 09  9_free(cert);...
a420: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65      EVP_PKEY_fre
a430: 65 28 70 6b 65 79 29 3b 0a 09 09 20 20 20 20 54  e(pkey);...    T
a440: 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74  cl_SetResult(int
a450: 65 72 70 2c 22 45 72 72 6f 72 20 73 69 67 6e 69  erp,"Error signi
a460: 6e 67 20 63 65 72 74 69 66 69 63 61 74 65 22 2c  ng certificate",
a470: 4e 55 4c 4c 29 3b 0a 09 09 20 20 20 20 72 65 74  NULL);...    ret
a480: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09  urn TCL_ERROR;..
a490: 09 7d 0a 0a 09 09 6f 75 74 3d 42 49 4f 5f 6e 65  .}....out=BIO_ne
a4a0: 77 28 42 49 4f 5f 73 5f 66 69 6c 65 28 29 29 3b  w(BIO_s_file());
a4b0: 0a 09 09 42 49 4f 5f 77 72 69 74 65 5f 66 69 6c  ...BIO_write_fil
a4c0: 65 6e 61 6d 65 28 6f 75 74 2c 70 65 6d 6f 75 74  ename(out,pemout
a4d0: 29 3b 0a 0a 09 09 50 45 4d 5f 77 72 69 74 65 5f  );....PEM_write_
a4e0: 62 69 6f 5f 58 35 30 39 28 6f 75 74 2c 63 65 72  bio_X509(out,cer
a4f0: 74 29 3b 0a 09 09 42 49 4f 5f 66 72 65 65 5f 61  t);...BIO_free_a
a500: 6c 6c 28 6f 75 74 29 3b 0a 0a 09 09 58 35 30 39  ll(out);....X509
a510: 5f 66 72 65 65 28 63 65 72 74 29 3b 0a 09 09 45  _free(cert);...E
a520: 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 70 6b 65  VP_PKEY_free(pke
a530: 79 29 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20  y);..    } else 
a540: 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c  {...Tcl_SetResul
a550: 74 28 69 6e 74 65 72 70 2c 22 45 72 72 6f 72 20  t(interp,"Error 
a560: 67 65 6e 65 72 61 74 69 6e 67 20 70 72 69 76 61  generating priva
a570: 74 65 20 6b 65 79 22 2c 4e 55 4c 4c 29 3b 0a 09  te key",NULL);..
a580: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
a590: 52 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 62 72  R;..    }..}..br
a5a0: 65 61 6b 3b 0a 20 20 20 20 64 65 66 61 75 6c 74  eak;.    default
a5b0: 3a 0a 09 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a  :..break;.    }.
a5c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f      return TCL_O
a5d0: 4b 3b 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61  K;.    .clientDa
a5e0: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b  ta = clientData;
a5f0: 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  .}.../*. *------
a600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
a640: 0a 20 2a 20 54 6c 73 5f 46 72 65 65 20 2d 2d 0a  . * Tls_Free --.
a650: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65   *. *.This proce
a660: 64 75 72 65 20 63 6c 65 61 6e 73 20 75 70 20 77  dure cleans up w
a670: 68 65 6e 20 61 20 53 53 4c 20 73 6f 63 6b 65 74  hen a SSL socket
a680: 20 62 61 73 65 64 20 63 68 61 6e 6e 65 6c 0a 20   based channel. 
a690: 2a 09 69 73 20 63 6c 6f 73 65 64 20 61 6e 64 20  *.is closed and 
a6a0: 69 74 73 20 72 65 66 65 72 65 6e 63 65 20 63 6f  its reference co
a6b0: 75 6e 74 20 66 61 6c 6c 73 20 62 65 6c 6f 77 20  unt falls below 
a6c0: 31 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  1. *. * Results:
a6d0: 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 20 53  . *.none. *. * S
a6e0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09  ide effects:. *.
a6f0: 46 72 65 65 73 20 61 6c 6c 20 74 68 65 20 73 74  Frees all the st
a700: 61 74 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ate. *. *-------
a710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
a750: 0a 76 6f 69 64 0a 54 6c 73 5f 46 72 65 65 28 20  .void.Tls_Free( 
a760: 63 68 61 72 20 2a 62 6c 6f 63 6b 50 74 72 20 29  char *blockPtr )
a770: 0a 7b 0a 20 20 20 20 53 74 61 74 65 20 2a 73 74  .{.    State *st
a780: 61 74 65 50 74 72 20 3d 20 28 53 74 61 74 65 20  atePtr = (State 
a790: 2a 29 62 6c 6f 63 6b 50 74 72 3b 0a 0a 20 20 20  *)blockPtr;..   
a7a0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64   dprintf("Called
a7b0: 22 29 3b 0a 0a 20 20 20 20 54 6c 73 5f 43 6c 65  ");..    Tls_Cle
a7c0: 61 6e 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20  an(statePtr);.  
a7d0: 20 20 63 6b 66 72 65 65 28 62 6c 6f 63 6b 50 74    ckfree(blockPt
a7e0: 72 29 3b 0a 7d 0a 0c 0a 2f 2a 0a 20 2a 2d 2d 2d  r);.}.../*. *---
a7f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a830: 0a 20 2a 0a 20 2a 20 54 6c 73 5f 43 6c 65 61 6e  . *. * Tls_Clean
a840: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70   --. *. *.This p
a850: 72 6f 63 65 64 75 72 65 20 63 6c 65 61 6e 73 20  rocedure cleans 
a860: 75 70 20 77 68 65 6e 20 61 20 53 53 4c 20 73 6f  up when a SSL so
a870: 63 6b 65 74 20 62 61 73 65 64 20 63 68 61 6e 6e  cket based chann
a880: 65 6c 0a 20 2a 09 69 73 20 63 6c 6f 73 65 64 20  el. *.is closed 
a890: 61 6e 64 20 69 74 73 20 72 65 66 65 72 65 6e 63  and its referenc
a8a0: 65 20 63 6f 75 6e 74 20 66 61 6c 6c 73 20 62 65  e count falls be
a8b0: 6c 6f 77 20 31 2e 20 20 54 68 69 73 20 73 68 6f  low 1.  This sho
a8c0: 75 6c 64 0a 20 2a 09 62 65 20 63 61 6c 6c 65 64  uld. *.be called
a8d0: 20 73 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 62   synchronously b
a8e0: 79 20 74 68 65 20 43 6c 6f 73 65 50 72 6f 63 2c  y the CloseProc,
a8f0: 20 6e 6f 74 20 69 6e 20 74 68 65 0a 20 2a 09 45   not in the. *.E
a900: 76 65 6e 74 75 61 6c 6c 79 46 72 65 65 20 63 61  ventuallyFree ca
a910: 6c 6c 62 61 63 6b 2e 0a 20 2a 0a 20 2a 20 52 65  llback.. *. * Re
a920: 73 75 6c 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20  sults:. *.none. 
a930: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
a940: 73 3a 0a 20 2a 09 46 72 65 65 73 20 61 6c 6c 20  s:. *.Frees all 
a950: 74 68 65 20 73 74 61 74 65 0a 20 2a 0a 20 2a 2d  the state. *. *-
a960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
a9a0: 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 54 6c 73 5f  --. */.void Tls_
a9b0: 43 6c 65 61 6e 28 53 74 61 74 65 20 2a 73 74 61  Clean(State *sta
a9c0: 74 65 50 74 72 29 20 7b 0a 20 20 20 20 64 70 72  tePtr) {.    dpr
a9d0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a  intf("Called");.
a9e0: 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20 77  .    /*.     * w
a9f0: 65 27 72 65 20 61 73 73 75 6d 69 6e 67 20 68 65  e're assuming he
aa00: 72 65 20 74 68 61 74 20 77 65 27 72 65 20 73 69  re that we're si
aa10: 6e 67 6c 65 2d 74 68 72 65 61 64 65 64 0a 20 20  ngle-threaded.  
aa20: 20 20 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74     */.    if (st
aa30: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d  atePtr->timer !=
aa40: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e   (Tcl_TimerToken
aa50: 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44  ) NULL) {..Tcl_D
aa60: 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65  eleteTimerHandle
aa70: 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65  r(statePtr->time
aa80: 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74  r);..statePtr->t
aa90: 69 6d 65 72 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20  imer = NULL;.   
aaa0: 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 74 61 74   }..    if (stat
aab0: 65 50 74 72 2d 3e 62 69 6f 29 20 7b 0a 09 2f 2a  ePtr->bio) {../*
aac0: 20 54 68 69 73 20 77 69 6c 6c 20 63 61 6c 6c 20   This will call 
aad0: 53 53 4c 5f 73 68 75 74 64 6f 77 6e 2e 20 42 75  SSL_shutdown. Bu
aae0: 67 20 31 34 31 34 30 34 35 20 2a 2f 0a 09 64 70  g 1414045 */..dp
aaf0: 72 69 6e 74 66 28 22 42 49 4f 5f 66 72 65 65 5f  rintf("BIO_free_
ab00: 61 6c 6c 28 25 70 29 22 2c 20 73 74 61 74 65 50  all(%p)", stateP
ab10: 74 72 2d 3e 62 69 6f 29 3b 0a 09 42 49 4f 5f 66  tr->bio);..BIO_f
ab20: 72 65 65 5f 61 6c 6c 28 73 74 61 74 65 50 74 72  ree_all(statePtr
ab30: 2d 3e 62 69 6f 29 3b 0a 09 73 74 61 74 65 50 74  ->bio);..statePt
ab40: 72 2d 3e 62 69 6f 20 3d 20 4e 55 4c 4c 3b 0a 20  r->bio = NULL;. 
ab50: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 73 74 61     }.    if (sta
ab60: 74 65 50 74 72 2d 3e 73 73 6c 29 20 7b 0a 09 64  tePtr->ssl) {..d
ab70: 70 72 69 6e 74 66 28 22 53 53 4c 5f 66 72 65 65  printf("SSL_free
ab80: 28 25 70 29 22 2c 20 73 74 61 74 65 50 74 72 2d  (%p)", statePtr-
ab90: 3e 73 73 6c 29 3b 0a 09 53 53 4c 5f 66 72 65 65  >ssl);..SSL_free
aba0: 28 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 29 3b  (statePtr->ssl);
abb0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 73 73 6c 20  ..statePtr->ssl 
abc0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20  = NULL;.    }.  
abd0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e    if (statePtr->
abe0: 63 74 78 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f  ctx) {..SSL_CTX_
abf0: 66 72 65 65 28 73 74 61 74 65 50 74 72 2d 3e 63  free(statePtr->c
ac00: 74 78 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e  tx);..statePtr->
ac10: 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20  ctx = NULL;.    
ac20: 7d 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50  }.    if (stateP
ac30: 74 72 2d 3e 63 61 6c 6c 62 61 63 6b 29 20 7b 0a  tr->callback) {.
ac40: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e  .Tcl_DecrRefCoun
ac50: 74 28 73 74 61 74 65 50 74 72 2d 3e 63 61 6c 6c  t(statePtr->call
ac60: 62 61 63 6b 29 3b 0a 09 73 74 61 74 65 50 74 72  back);..statePtr
ac70: 2d 3e 63 61 6c 6c 62 61 63 6b 20 3d 20 4e 55 4c  ->callback = NUL
ac80: 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20  L;.    }.    if 
ac90: 28 73 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77  (statePtr->passw
aca0: 6f 72 64 29 20 7b 0a 09 54 63 6c 5f 44 65 63 72  ord) {..Tcl_Decr
acb0: 52 65 66 43 6f 75 6e 74 28 73 74 61 74 65 50 74  RefCount(statePt
acc0: 72 2d 3e 70 61 73 73 77 6f 72 64 29 3b 0a 09 73  r->password);..s
acd0: 74 61 74 65 50 74 72 2d 3e 70 61 73 73 77 6f 72  tatePtr->passwor
ace0: 64 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a  d = NULL;.    }.
acf0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 52 65  .    dprintf("Re
ad00: 74 75 72 6e 69 6e 67 22 29 3b 0a 7d 0a 0c 0a 2f  turning");.}.../
ad10: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
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 0a 20 2a 0a 20 2a 20 54 6c  -------. *. * Tl
ad60: 73 5f 49 6e 69 74 20 2d 2d 0a 20 2a 0a 20 2a 09  s_Init --. *. *.
ad70: 54 68 69 73 20 69 73 20 61 20 70 61 63 6b 61 67  This is a packag
ad80: 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e  e initialization
ad90: 20 70 72 6f 63 65 64 75 72 65 2c 20 77 68 69 63   procedure, whic
ada0: 68 20 69 73 20 63 61 6c 6c 65 64 0a 20 2a 09 62  h is called. *.b
adb0: 79 20 54 63 6c 20 77 68 65 6e 20 74 68 69 73 20  y Tcl when this 
adc0: 70 61 63 6b 61 67 65 20 69 73 20 74 6f 20 62 65  package is to be
add0: 20 61 64 64 65 64 20 74 6f 20 61 6e 20 69 6e 74   added to an int
ade0: 65 72 70 72 65 74 65 72 2e 0a 20 2a 0a 20 2a 20  erpreter.. *. * 
adf0: 52 65 73 75 6c 74 73 3a 20 20 53 73 6c 20 63 6f  Results:  Ssl co
ae00: 6e 66 69 67 75 72 65 64 20 61 6e 64 20 6c 6f 61  nfigured and loa
ae10: 64 65 64 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ded. *. * Side e
ae20: 66 66 65 63 74 73 3a 0a 20 2a 09 20 63 72 65 61  ffects:. *. crea
ae30: 74 65 20 74 68 65 20 73 73 6c 20 63 6f 6d 6d 61  te the ssl comma
ae40: 6e 64 2c 20 69 6e 69 74 69 61 6c 69 73 65 20 73  nd, initialise s
ae50: 73 6c 20 63 6f 6e 74 65 78 74 0a 20 2a 0a 20 2a  sl context. *. *
ae60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ae70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ae80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
ae90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
aea0: 2d 2d 2d 0a 20 2a 2f 0a 0a 69 6e 74 20 54 6c 73  ---. */..int Tls
aeb0: 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70  _Init(Tcl_Interp
aec0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 09 63 6f 6e   *interp) {..con
aed0: 73 74 20 63 68 61 72 20 74 6c 73 54 63 6c 49 6e  st char tlsTclIn
aee0: 69 74 53 63 72 69 70 74 5b 5d 20 3d 20 7b 0a 23  itScript[] = {.#
aef0: 69 6e 63 6c 75 64 65 20 22 74 6c 73 2e 74 63 6c  include "tls.tcl
af00: 2e 68 22 0a 20 20 20 20 20 20 20 20 20 20 20 20  .h".            
af10: 30 78 30 30 0a 09 7d 3b 0a 0a 20 20 20 20 20 20  0x00..};..      
af20: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65    dprintf("Calle
af30: 64 22 29 3b 0a 0a 09 2f 2a 0a 09 20 2a 20 57 65  d");.../*.. * We
af40: 20 6f 6e 6c 79 20 73 75 70 70 6f 72 74 20 54 63   only support Tc
af50: 6c 20 38 2e 34 20 6f 72 20 6e 65 77 65 72 0a 09  l 8.4 or newer..
af60: 20 2a 2f 0a 09 69 66 20 28 0a 23 69 66 64 65 66   */..if (.#ifdef
af70: 20 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 0a 09   USE_TCL_STUBS..
af80: 20 20 20 20 54 63 6c 5f 49 6e 69 74 53 74 75 62      Tcl_InitStub
af90: 73 28 69 6e 74 65 72 70 2c 20 22 38 2e 34 22 2c  s(interp, "8.4",
afa0: 20 30 29 0a 23 65 6c 73 65 0a 09 20 20 20 20 54   0).#else..    T
afb0: 63 6c 5f 50 6b 67 52 65 71 75 69 72 65 28 69 6e  cl_PkgRequire(in
afc0: 74 65 72 70 2c 20 22 54 63 6c 22 2c 20 22 38 2e  terp, "Tcl", "8.
afd0: 34 22 2c 20 30 29 0a 23 65 6e 64 69 66 0a 09 20  4", 0).#endif.. 
afe0: 20 20 20 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09      == NULL) {..
aff0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
b000: 52 3b 0a 09 7d 0a 0a 09 69 66 20 28 54 6c 73 4c  R;..}...if (TlsL
b010: 69 62 49 6e 69 74 28 30 29 20 21 3d 20 54 43 4c  ibInit(0) != TCL
b020: 5f 4f 4b 29 20 7b 0a 09 09 54 63 6c 5f 41 70 70  _OK) {...Tcl_App
b030: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
b040: 2c 20 22 63 6f 75 6c 64 20 6e 6f 74 20 69 6e 69  , "could not ini
b050: 74 69 61 6c 69 7a 65 20 53 53 4c 20 6c 69 62 72  tialize SSL libr
b060: 61 72 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 09 72  ary", NULL);...r
b070: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
b080: 0a 09 7d 0a 0a 09 54 63 6c 5f 43 72 65 61 74 65  ..}...Tcl_Create
b090: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ObjCommand(inter
b0a0: 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73  p, "tls::ciphers
b0b0: 22 2c 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64  ", CiphersObjCmd
b0c0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30  , (ClientData) 0
b0d0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65  , (Tcl_CmdDelete
b0e0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  Proc *) NULL);..
b0f0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
b100: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c  mand(interp, "tl
b110: 73 3a 3a 68 61 6e 64 73 68 61 6b 65 22 2c 20 48  s::handshake", H
b120: 61 6e 64 73 68 61 6b 65 4f 62 6a 43 6d 64 2c 20  andshakeObjCmd, 
b130: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20  (ClientData) 0, 
b140: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72  (Tcl_CmdDeletePr
b150: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63  oc *) NULL);..Tc
b160: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
b170: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a  nd(interp, "tls:
b180: 3a 69 6d 70 6f 72 74 22 2c 20 49 6d 70 6f 72 74  :import", Import
b190: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44  ObjCmd, (ClientD
b1a0: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64  ata) 0, (Tcl_Cmd
b1b0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55  DeleteProc *) NU
b1c0: 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65  LL);..Tcl_Create
b1d0: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ObjCommand(inter
b1e0: 70 2c 20 22 74 6c 73 3a 3a 75 6e 69 6d 70 6f 72  p, "tls::unimpor
b1f0: 74 22 2c 20 55 6e 69 6d 70 6f 72 74 4f 62 6a 43  t", UnimportObjC
b200: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29  md, (ClientData)
b210: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65   0, (Tcl_CmdDele
b220: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b  teProc *) NULL);
b230: 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43  ..Tcl_CreateObjC
b240: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
b250: 74 6c 73 3a 3a 73 74 61 74 75 73 22 2c 20 53 74  tls::status", St
b260: 61 74 75 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69  atusObjCmd, (Cli
b270: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c  entData) 0, (Tcl
b280: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a  _CmdDeleteProc *
b290: 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 43 72  ) NULL);..Tcl_Cr
b2a0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69  eateObjCommand(i
b2b0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 76 65 72  nterp, "tls::ver
b2c0: 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f 6e 4f 62  sion", VersionOb
b2d0: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74  jCmd, (ClientDat
b2e0: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65  a) 0, (Tcl_CmdDe
b2f0: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c  leteProc *) NULL
b300: 29 3b 0a 09 54 63 6c 5f 43 72 65 61 74 65 4f 62  );..Tcl_CreateOb
b310: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c  jCommand(interp,
b320: 20 22 74 6c 73 3a 3a 6d 69 73 63 22 2c 20 4d 69   "tls::misc", Mi
b330: 73 63 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e  scObjCmd, (Clien
b340: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43  tData) 0, (Tcl_C
b350: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20  mdDeleteProc *) 
b360: 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 69 6e 74  NULL);...if (int
b370: 65 72 70 29 20 7b 0a 09 09 54 63 6c 5f 45 76 61  erp) {...Tcl_Eva
b380: 6c 28 69 6e 74 65 72 70 2c 20 74 6c 73 54 63 6c  l(interp, tlsTcl
b390: 49 6e 69 74 53 63 72 69 70 74 29 3b 0a 09 7d 0a  InitScript);..}.
b3a0: 0a 09 72 65 74 75 72 6e 28 54 63 6c 5f 50 6b 67  ..return(Tcl_Pkg
b3b0: 50 72 6f 76 69 64 65 28 69 6e 74 65 72 70 2c 20  Provide(interp, 
b3c0: 22 74 6c 73 22 2c 20 50 41 43 4b 41 47 45 5f 56  "tls", PACKAGE_V
b3d0: 45 52 53 49 4f 4e 29 29 3b 0a 7d 0a 0a 2f 2a 0a  ERSION));.}../*.
b3e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
b3f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b410: 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a 09  --------*. *. *.
b420: 54 6c 73 5f 53 61 66 65 49 6e 69 74 20 2d 2d 0a  Tls_SafeInit --.
b430: 20 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *.----------
b440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b460: 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 09 53 74 61 6e 64  ------*. *.Stand
b470: 61 72 64 20 70 72 6f 63 65 64 75 72 65 20 72 65  ard procedure re
b480: 71 75 69 72 65 64 20 62 79 20 27 6c 6f 61 64 27  quired by 'load'
b490: 2e 20 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65  . . *.Initialize
b4a0: 73 20 74 68 69 73 20 65 78 74 65 6e 73 69 6f 6e  s this extension
b4b0: 20 66 6f 72 20 61 20 73 61 66 65 20 69 6e 74 65   for a safe inte
b4c0: 72 70 72 65 74 65 72 2e 0a 20 2a 09 2d 2d 2d 2d  rpreter.. *.----
b4d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b4e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b4f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a  ------------*. *
b500: 0a 20 2a 09 53 69 64 65 65 66 66 65 63 74 73 3a  . *.Sideeffects:
b510: 0a 20 2a 09 09 41 73 20 6f 66 20 27 54 6c 73 5f  . *..As of 'Tls_
b520: 49 6e 69 74 27 0a 20 2a 0a 20 2a 09 52 65 73 75  Init'. *. *.Resu
b530: 6c 74 3a 0a 20 2a 09 09 41 20 73 74 61 6e 64 61  lt:. *..A standa
b540: 72 64 20 54 63 6c 20 65 72 72 6f 72 20 63 6f 64  rd Tcl error cod
b550: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  e.. *. *--------
b560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a  --------------*.
b590: 20 2a 2f 0a 0a 69 6e 74 20 54 6c 73 5f 53 61 66   */..int Tls_Saf
b5a0: 65 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65 72 70  eInit(Tcl_Interp
b5b0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 09 64 70 72   *interp) {..dpr
b5c0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a  intf("Called");.
b5d0: 09 72 65 74 75 72 6e 28 54 6c 73 5f 49 6e 69 74  .return(Tls_Init
b5e0: 28 69 6e 74 65 72 70 29 29 3b 0a 7d 0a 0a 2f 2a  (interp));.}../*
b5f0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
b600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20 2a  ---------*. *. *
b630: 09 54 6c 73 4c 69 62 49 6e 69 74 20 2d 2d 0a 20  .TlsLibInit --. 
b640: 2a 0a 20 2a 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *.-----------
b650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b670: 2d 2d 2d 2d 2d 2a 0a 20 2a 09 49 6e 69 74 69 61  -----*. *.Initia
b680: 6c 69 7a 65 73 20 53 53 4c 20 6c 69 62 72 61 72  lizes SSL librar
b690: 79 20 6f 6e 63 65 20 70 65 72 20 61 70 70 6c 69  y once per appli
b6a0: 63 61 74 69 6f 6e 0a 20 2a 09 2d 2d 2d 2d 2d 2d  cation. *.------
b6b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b6c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b6d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20 2a 0a 20  ----------*. *. 
b6e0: 2a 09 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  *.Side effects:.
b6f0: 20 2a 09 09 69 6e 69 74 69 6c 69 7a 65 73 20 53   *..initilizes S
b700: 53 4c 20 6c 69 62 72 61 72 79 0a 20 2a 0a 20 2a  SL library. *. *
b710: 09 52 65 73 75 6c 74 3a 0a 20 2a 09 09 6e 6f 6e  .Result:. *..non
b720: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  e. *. *---------
b730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
b750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 0a 20  -------------*. 
b760: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 54 6c  */.static int Tl
b770: 73 4c 69 62 49 6e 69 74 28 69 6e 74 20 75 6e 69  sLibInit(int uni
b780: 6e 69 74 69 61 6c 69 7a 65 29 20 7b 0a 09 73 74  nitialize) {..st
b790: 61 74 69 63 20 69 6e 74 20 69 6e 69 74 69 61 6c  atic int initial
b7a0: 69 7a 65 64 20 3d 20 30 3b 0a 09 69 6e 74 20 73  ized = 0;..int s
b7b0: 74 61 74 75 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a  tatus = TCL_OK;.
b7c0: 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e  #if defined(OPEN
b7d0: 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20  SSL_THREADS) && 
b7e0: 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45  defined(TCL_THRE
b7f0: 41 44 53 29 0a 09 73 69 7a 65 5f 74 20 6e 75 6d  ADS)..size_t num
b800: 5f 6c 6f 63 6b 73 3b 0a 23 65 6e 64 69 66 0a 0a  _locks;.#endif..
b810: 09 69 66 20 28 75 6e 69 6e 69 74 69 61 6c 69 7a  .if (uninitializ
b820: 65 29 20 7b 0a 09 09 69 66 20 28 21 69 6e 69 74  e) {...if (!init
b830: 69 61 6c 69 7a 65 64 29 20 7b 0a 09 09 09 64 70  ialized) {....dp
b840: 72 69 6e 74 66 28 22 41 73 6b 65 64 20 74 6f 20  rintf("Asked to 
b850: 75 6e 69 6e 69 74 69 61 6c 69 7a 65 2c 20 62 75  uninitialize, bu
b860: 74 20 77 65 20 61 72 65 20 6e 6f 74 20 69 6e 69  t we are not ini
b870: 74 69 61 6c 69 7a 65 64 22 29 3b 0a 0a 09 09 09  tialized");.....
b880: 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a  return(TCL_OK);.
b890: 09 09 7d 0a 0a 09 09 64 70 72 69 6e 74 66 28 22  ..}....dprintf("
b8a0: 41 73 6b 65 64 20 74 6f 20 75 6e 69 6e 69 74 69  Asked to uniniti
b8b0: 61 6c 69 7a 65 22 29 3b 0a 0a 23 69 66 20 64 65  alize");..#if de
b8c0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48  fined(OPENSSL_TH
b8d0: 52 45 41 44 53 29 20 26 26 20 64 65 66 69 6e 65  READS) && define
b8e0: 64 28 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09  d(TCL_THREADS)..
b8f0: 09 54 63 6c 5f 4d 75 74 65 78 4c 6f 63 6b 28 26  .Tcl_MutexLock(&
b900: 69 6e 69 74 5f 6d 78 29 3b 0a 0a 09 09 43 52 59  init_mx);....CRY
b910: 50 54 4f 5f 73 65 74 5f 6c 6f 63 6b 69 6e 67 5f  PTO_set_locking_
b920: 63 61 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a  callback(NULL);.
b930: 09 09 43 52 59 50 54 4f 5f 73 65 74 5f 69 64 5f  ..CRYPTO_set_id_
b940: 63 61 6c 6c 62 61 63 6b 28 4e 55 4c 4c 29 3b 0a  callback(NULL);.
b950: 0a 09 09 69 66 20 28 6c 6f 63 6b 73 29 20 7b 0a  ...if (locks) {.
b960: 09 09 09 66 72 65 65 28 6c 6f 63 6b 73 29 3b 0a  ...free(locks);.
b970: 09 09 09 6c 6f 63 6b 73 20 3d 20 4e 55 4c 4c 3b  ...locks = NULL;
b980: 0a 09 09 09 6c 6f 63 6b 73 43 6f 75 6e 74 20 3d  ....locksCount =
b990: 20 30 3b 0a 09 09 7d 0a 23 65 6e 64 69 66 0a 09   0;...}.#endif..
b9a0: 09 69 6e 69 74 69 61 6c 69 7a 65 64 20 3d 20 30  .initialized = 0
b9b0: 3b 0a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f  ;..#if defined(O
b9c0: 50 45 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20  PENSSL_THREADS) 
b9d0: 26 26 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54  && defined(TCL_T
b9e0: 48 52 45 41 44 53 29 0a 09 09 54 63 6c 5f 4d 75  HREADS)...Tcl_Mu
b9f0: 74 65 78 55 6e 6c 6f 63 6b 28 26 69 6e 69 74 5f  texUnlock(&init_
ba00: 6d 78 29 3b 0a 23 65 6e 64 69 66 0a 0a 09 09 72  mx);.#endif....r
ba10: 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 09  eturn(TCL_OK);..
ba20: 7d 0a 0a 09 69 66 20 28 69 6e 69 74 69 61 6c 69  }...if (initiali
ba30: 7a 65 64 29 20 7b 0a 09 09 64 70 72 69 6e 74 66  zed) {...dprintf
ba40: 28 22 43 61 6c 6c 65 64 2c 20 62 75 74 20 75 73  ("Called, but us
ba50: 69 6e 67 20 63 61 63 68 65 64 20 76 61 6c 75 65  ing cached value
ba60: 22 29 3b 0a 09 09 72 65 74 75 72 6e 28 73 74 61  ");...return(sta
ba70: 74 75 73 29 3b 0a 09 7d 0a 0a 09 64 70 72 69 6e  tus);..}...dprin
ba80: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 23  tf("Called");..#
ba90: 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53  if defined(OPENS
baa0: 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26 20 64  SL_THREADS) && d
bab0: 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52 45 41  efined(TCL_THREA
bac0: 44 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78 4c 6f  DS)..Tcl_MutexLo
bad0: 63 6b 28 26 69 6e 69 74 5f 6d 78 29 3b 0a 23 65  ck(&init_mx);.#e
bae0: 6e 64 69 66 0a 09 69 6e 69 74 69 61 6c 69 7a 65  ndif..initialize
baf0: 64 20 3d 20 31 3b 0a 0a 23 69 66 20 64 65 66 69  d = 1;..#if defi
bb00: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 54 48 52 45  ned(OPENSSL_THRE
bb10: 41 44 53 29 20 26 26 20 64 65 66 69 6e 65 64 28  ADS) && defined(
bb20: 54 43 4c 5f 54 48 52 45 41 44 53 29 0a 09 6e 75  TCL_THREADS)..nu
bb30: 6d 5f 6c 6f 63 6b 73 20 3d 20 43 52 59 50 54 4f  m_locks = CRYPTO
bb40: 5f 6e 75 6d 5f 6c 6f 63 6b 73 28 29 3b 0a 09 6c  _num_locks();..l
bb50: 6f 63 6b 73 43 6f 75 6e 74 20 3d 20 6e 75 6d 5f  ocksCount = num_
bb60: 6c 6f 63 6b 73 3b 0a 09 6c 6f 63 6b 73 20 3d 20  locks;..locks = 
bb70: 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 2a 6c  malloc(sizeof(*l
bb80: 6f 63 6b 73 29 20 2a 20 6e 75 6d 5f 6c 6f 63 6b  ocks) * num_lock
bb90: 73 29 3b 0a 09 6d 65 6d 73 65 74 28 6c 6f 63 6b  s);..memset(lock
bba0: 73 2c 20 30 2c 20 73 69 7a 65 6f 66 28 2a 6c 6f  s, 0, sizeof(*lo
bbb0: 63 6b 73 29 20 2a 20 6e 75 6d 5f 6c 6f 63 6b 73  cks) * num_locks
bbc0: 29 3b 0a 0a 09 43 52 59 50 54 4f 5f 73 65 74 5f  );...CRYPTO_set_
bbd0: 6c 6f 63 6b 69 6e 67 5f 63 61 6c 6c 62 61 63 6b  locking_callback
bbe0: 28 43 72 79 70 74 6f 54 68 72 65 61 64 4c 6f 63  (CryptoThreadLoc
bbf0: 6b 43 61 6c 6c 62 61 63 6b 29 3b 0a 09 43 52 59  kCallback);..CRY
bc00: 50 54 4f 5f 73 65 74 5f 69 64 5f 63 61 6c 6c 62  PTO_set_id_callb
bc10: 61 63 6b 28 43 72 79 70 74 6f 54 68 72 65 61 64  ack(CryptoThread
bc20: 49 64 43 61 6c 6c 62 61 63 6b 29 3b 0a 23 65 6e  IdCallback);.#en
bc30: 64 69 66 0a 0a 09 69 66 20 28 53 53 4c 5f 6c 69  dif...if (SSL_li
bc40: 62 72 61 72 79 5f 69 6e 69 74 28 29 20 21 3d 20  brary_init() != 
bc50: 31 29 20 7b 0a 09 09 73 74 61 74 75 73 20 3d 20  1) {...status = 
bc60: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74  TCL_ERROR;...got
bc70: 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 0a 09 53 53 4c  o done;..}...SSL
bc80: 5f 6c 6f 61 64 5f 65 72 72 6f 72 5f 73 74 72 69  _load_error_stri
bc90: 6e 67 73 28 29 3b 0a 09 45 52 52 5f 6c 6f 61 64  ngs();..ERR_load
bca0: 5f 63 72 79 70 74 6f 5f 73 74 72 69 6e 67 73 28  _crypto_strings(
bcb0: 29 3b 0a 0a 09 42 49 4f 5f 6e 65 77 5f 74 63 6c  );...BIO_new_tcl
bcc0: 28 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 23 69 66 20  (NULL, 0);..#if 
bcd0: 30 0a 09 2f 2a 0a 09 20 2a 20 58 58 58 3a 54 4f  0../*.. * XXX:TO
bce0: 44 4f 3a 20 52 65 6d 6f 76 65 20 74 68 69 73 20  DO: Remove this 
bcf0: 63 6f 64 65 20 61 6e 64 20 72 65 70 6c 61 63 65  code and replace
bd00: 20 69 74 20 77 69 74 68 20 61 20 63 68 65 63 6b   it with a check
bd10: 0a 09 20 2a 20 66 6f 72 20 65 6e 6f 75 67 68 20  .. * for enough 
bd20: 65 6e 74 72 6f 70 79 20 61 6e 64 20 64 6f 20 6e  entropy and do n
bd30: 6f 74 20 74 72 79 20 74 6f 20 63 72 65 61 74 65  ot try to create
bd40: 20 6f 75 72 20 6f 77 6e 0a 09 20 2a 20 74 65 72   our own.. * ter
bd50: 72 69 62 6c 65 20 65 6e 74 72 6f 70 79 0a 09 20  rible entropy.. 
bd60: 2a 2f 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a  */.    /*.     *
bd70: 20 53 65 65 64 20 74 68 65 20 72 61 6e 64 6f 6d   Seed the random
bd80: 20 6e 75 6d 62 65 72 20 67 65 6e 65 72 61 74 6f   number generato
bd90: 72 20 69 6e 20 74 68 65 20 53 53 4c 20 6c 69 62  r in the SSL lib
bda0: 72 61 72 79 2c 0a 20 20 20 20 20 2a 20 75 73 69  rary,.     * usi
bdb0: 6e 67 20 74 68 65 20 64 6f 2f 77 68 69 6c 65 20  ng the do/while 
bdc0: 63 6f 6e 73 74 72 75 63 74 20 62 65 63 61 75 73  construct becaus
bdd0: 65 20 6f 66 20 74 68 65 20 62 75 67 20 6e 6f 74  e of the bug not
bde0: 65 20 69 6e 20 74 68 65 0a 20 20 20 20 20 2a 20  e in the.     * 
bdf0: 4f 70 65 6e 53 53 4c 20 46 41 51 20 61 74 20 68  OpenSSL FAQ at h
be00: 74 74 70 3a 2f 2f 77 77 77 2e 6f 70 65 6e 73 73  ttp://www.openss
be10: 6c 2e 6f 72 67 2f 73 75 70 70 6f 72 74 2f 66 61  l.org/support/fa
be20: 71 2e 68 74 6d 6c 23 55 53 45 52 31 0a 20 20 20  q.html#USER1.   
be30: 20 20 2a 0a 20 20 20 20 20 2a 20 54 68 65 20 63    *.     * The c
be40: 72 75 78 20 6f 66 20 74 68 65 20 70 72 6f 62 6c  rux of the probl
be50: 65 6d 20 69 73 20 74 68 61 74 20 53 6f 6c 61 72  em is that Solar
be60: 69 73 20 37 20 64 6f 65 73 20 6e 6f 74 20 68 61  is 7 does not ha
be70: 76 65 20 61 20 0a 20 20 20 20 20 2a 20 2f 64 65  ve a .     * /de
be80: 76 2f 72 61 6e 64 6f 6d 20 6f 72 20 2f 64 65 76  v/random or /dev
be90: 2f 75 72 61 6e 64 6f 6d 20 64 65 76 69 63 65 20  /urandom device 
bea0: 73 6f 20 69 74 20 63 61 6e 6e 6f 74 20 67 61 74  so it cannot gat
beb0: 68 65 72 20 65 6e 6f 75 67 68 0a 20 20 20 20 20  her enough.     
bec0: 2a 20 65 6e 74 72 6f 70 79 20 66 72 6f 6d 20 74  * entropy from t
bed0: 68 65 20 52 41 4e 44 5f 73 65 65 64 28 29 20 77  he RAND_seed() w
bee0: 68 65 6e 20 54 4c 53 20 69 6e 69 74 69 61 6c 69  hen TLS initiali
bef0: 7a 65 73 20 61 6e 64 20 72 65 66 75 73 65 73 0a  zes and refuses.
bf00: 20 20 20 20 20 2a 20 74 6f 20 67 6f 20 66 75 72       * to go fur
bf10: 74 68 65 72 2e 20 45 61 72 6c 69 65 72 20 76 65  ther. Earlier ve
bf20: 72 73 69 6f 6e 73 20 6f 66 20 4f 70 65 6e 53 53  rsions of OpenSS
bf30: 4c 20 63 61 72 72 69 65 64 20 6f 6e 20 72 65 67  L carried on reg
bf40: 61 72 64 6c 65 73 73 2e 0a 20 20 20 20 20 2a 2f  ardless..     */
bf50: 0a 20 20 20 20 73 72 61 6e 64 28 28 75 6e 73 69  .    srand((unsi
bf60: 67 6e 65 64 20 69 6e 74 29 20 74 69 6d 65 28 28  gned int) time((
bf70: 74 69 6d 65 5f 74 20 2a 29 20 4e 55 4c 4c 29 29  time_t *) NULL))
bf80: 3b 0a 20 20 20 20 64 6f 20 7b 0a 09 66 6f 72 20  ;.    do {..for 
bf90: 28 69 20 3d 20 30 3b 20 69 20 3c 20 31 36 3b 20  (i = 0; i < 16; 
bfa0: 69 2b 2b 29 20 7b 0a 09 20 20 20 20 72 6e 64 5f  i++) {..    rnd_
bfb0: 73 65 65 64 5b 69 5d 20 3d 20 31 20 2b 20 28 63  seed[i] = 1 + (c
bfc0: 68 61 72 29 20 28 32 35 35 2e 30 20 2a 20 72 61  har) (255.0 * ra
bfd0: 6e 64 28 29 2f 28 52 41 4e 44 5f 4d 41 58 2b 31  nd()/(RAND_MAX+1
bfe0: 2e 30 29 29 3b 0a 09 7d 0a 09 52 41 4e 44 5f 73  .0));..}..RAND_s
bff0: 65 65 64 28 72 6e 64 5f 73 65 65 64 2c 20 73 69  eed(rnd_seed, si
c000: 7a 65 6f 66 28 72 6e 64 5f 73 65 65 64 29 29 3b  zeof(rnd_seed));
c010: 0a 20 20 20 20 7d 20 77 68 69 6c 65 20 28 52 41  .    } while (RA
c020: 4e 44 5f 73 74 61 74 75 73 28 29 20 21 3d 20 31  ND_status() != 1
c030: 29 3b 0a 23 65 6e 64 69 66 0a 0a 64 6f 6e 65 3a  );.#endif..done:
c040: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4f 50 45  .#if defined(OPE
c050: 4e 53 53 4c 5f 54 48 52 45 41 44 53 29 20 26 26  NSSL_THREADS) &&
c060: 20 64 65 66 69 6e 65 64 28 54 43 4c 5f 54 48 52   defined(TCL_THR
c070: 45 41 44 53 29 0a 09 54 63 6c 5f 4d 75 74 65 78  EADS)..Tcl_Mutex
c080: 55 6e 6c 6f 63 6b 28 26 69 6e 69 74 5f 6d 78 29  Unlock(&init_mx)
c090: 3b 0a 23 65 6e 64 69 66 0a 0a 09 72 65 74 75 72  ;.#endif...retur
c0a0: 6e 28 73 74 61 74 75 73 29 3b 0a 7d 0a           n(status);.}.