Artifact e2ea39ef40c52668a981bff1babead3f6181e814cd0f52d8798b67198701e3bb:

• File generic/tlsInfo.c — part of check-in [9e6e94200c] at 2023-12-04 03:56:29 on branch crypto — Split list operations into separate functions to make it easier for OpenSSL 3.0 changes. Added pkey list function. Added mac info and pkey info placeholder functions. More checks for NULL pointers. Moved legacy load ciphers and digest to init routine. (user: bohagan, size: 21771) [annotate] [blame] [check-ins using]

0000: 2f 2a 0a 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f  /*. * Informatio
0010: 6e 20 43 6f 6d 6d 61 6e 64 73 20 4d 6f 64 75 6c  n Commands Modul
0020: 65 0a 20 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73  e. *. * Provides
0030: 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 72   commands that r
0040: 65 74 75 72 6e 20 69 6e 66 6f 20 72 65 6c 61 74  eturn info relat
0050: 65 64 20 74 6f 20 74 68 65 20 4f 70 65 6e 53 53  ed to the OpenSS
0060: 4c 20 63 6f 6e 66 69 67 20 61 6e 64 20 64 61 74  L config and dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67  a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61  ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f  n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49  ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22  nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c  tclOpts.h".#incl
00d0: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 79  ude <openssl/cry
00e0: 70 74 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20  pto.h>.#include 
00f0: 3c 6f 70 65 6e 73 73 6c 2f 73 73 6c 2e 68 3e 0a  <openssl/ssl.h>.
0100: 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73  #include <openss
0110: 6c 2f 73 61 66 65 73 74 61 63 6b 2e 68 3e 0a 0a  l/safestack.h>..
0120: 2f 2a 0a 20 2a 20 56 61 6c 69 64 20 53 53 4c 20  /*. * Valid SSL 
0130: 61 6e 64 20 54 4c 53 20 50 72 6f 74 6f 63 6f 6c  and TLS Protocol
0140: 20 56 65 72 73 69 6f 6e 73 0a 20 2a 2f 0a 73 74   Versions. */.st
0150: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20  atic const char 
0160: 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b  *protocols[] = {
0170: 0a 09 22 73 73 6c 32 22 2c 20 22 73 73 6c 33 22  .."ssl2", "ssl3"
0180: 2c 20 22 74 6c 73 31 22 2c 20 22 74 6c 73 31 2e  , "tls1", "tls1.
0190: 31 22 2c 20 22 74 6c 73 31 2e 32 22 2c 20 22 74  1", "tls1.2", "t
01a0: 6c 73 31 2e 33 22 2c 20 4e 55 4c 4c 0a 7d 3b 0a  ls1.3", NULL.};.
01b0: 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a  enum protocol {.
01c0: 20 20 20 20 54 4c 53 5f 53 53 4c 32 2c 20 54 4c      TLS_SSL2, TL
01d0: 53 5f 53 53 4c 33 2c 20 54 4c 53 5f 54 4c 53 31  S_SSL3, TLS_TLS1
01e0: 2c 20 54 4c 53 5f 54 4c 53 31 5f 31 2c 20 54 4c  , TLS_TLS1_1, TL
01f0: 53 5f 54 4c 53 31 5f 32 2c 20 54 4c 53 5f 54 4c  S_TLS1_2, TLS_TL
0200: 53 31 5f 33 2c 20 54 4c 53 5f 4e 4f 4e 45 0a 7d  S1_3, TLS_NONE.}
0210: 3b 0a 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ;.../*. *-------
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
0260: 20 2a 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b   * NamesCallback
0270: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 62 61   --. *. *.Callba
0280: 63 6b 20 74 6f 20 61 64 64 20 61 6c 67 6f 72 69  ck to add algori
0290: 74 68 6d 20 6f 72 20 6d 65 74 68 6f 64 20 6e 61  thm or method na
02a0: 6d 65 73 20 74 6f 20 61 20 54 43 4c 20 6c 69 73  mes to a TCL lis
02b0: 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20 2a 20  t object.. *. * 
02c0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 70 70 65  Results:. *.Appe
02d0: 6e 64 20 6e 61 6d 65 20 74 6f 20 54 43 4c 20 6c  nd name to TCL l
02e0: 69 73 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20  ist object.. *. 
02f0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
0300: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
0310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0350: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 4e 61 6d 65 73  -. */.void Names
0360: 43 61 6c 6c 62 61 63 6b 28 63 6f 6e 73 74 20 4f  Callback(const O
0370: 42 4a 5f 4e 41 4d 45 20 2a 6f 62 6a 2c 20 76 6f  BJ_NAME *obj, vo
0380: 69 64 20 2a 61 72 67 29 20 7b 0a 20 20 20 20 54  id *arg) {.    T
0390: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d  cl_Obj *objPtr =
03a0: 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 61 72 67   (Tcl_Obj *) arg
03b0: 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 65 6c 64 73  ;..    /* Fields
03c0: 3a 20 28 69 6e 74 29 20 74 79 70 65 20 61 6e 64  : (int) type and
03d0: 20 61 6c 69 61 73 2c 20 28 63 6f 6e 73 74 20 63   alias, (const c
03e0: 68 61 72 2a 29 20 6e 61 6d 65 20 28 61 6c 69 61  har*) name (alia
03f0: 73 20 66 72 6f 6d 29 20 61 6e 64 20 64 61 74 61  s from) and data
0400: 20 28 61 6c 69 61 73 20 74 6f 29 20 2a 2f 0a 20   (alias to) */. 
0410: 20 20 20 69 66 20 28 73 74 72 73 74 72 28 6f 62     if (strstr(ob
0420: 6a 2d 3e 6e 61 6d 65 2c 20 22 72 73 61 22 29 20  j->name, "rsa") 
0430: 3d 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 73 74  == NULL && strst
0440: 72 28 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 22 52 53  r(obj->name, "RS
0450: 41 22 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  A") == NULL) {..
0460: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
0470: 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20 6f  dElement(NULL, o
0480: 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74  bjPtr, Tcl_NewSt
0490: 72 69 6e 67 4f 62 6a 28 6f 62 6a 2d 3e 6e 61 6d  ringObj(obj->nam
04a0: 65 2c 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 7d 0a  e,-1));.    }.}.
04b0: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ./**************
04c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
04d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
04e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
04f0: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d  *****/../*. *---
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0540: 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 4f 62 6a  . *. * CipherObj
0550: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74  Cmd --. *. *.Ret
0560: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72  urn a list of pr
0570: 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 6c  operties and val
0580: 75 65 73 20 66 6f 72 20 63 69 70 68 65 72 4e 61  ues for cipherNa
0590: 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  me.. *. * Result
05a0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64  s:. *.A standard
05b0: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a   Tcl list.. *. *
05c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
05d0: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d  *.None.. *. *---
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0620: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  . */.static int 
0630: 43 69 70 68 65 72 4f 62 6a 43 6d 64 28 43 6c 69  CipherObjCmd(Cli
0640: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61  entData clientDa
0650: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ta, Tcl_Interp *
0660: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63  interp, int objc
0670: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74  , Tcl_Obj *const
0680: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54   objv[]) {.    T
0690: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 2c 20  cl_Obj *objPtr, 
06a0: 2a 6c 69 73 74 50 74 72 3b 0a 20 20 20 20 75 6e  *listPtr;.    un
06b0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 63 69 70  signed char *cip
06c0: 68 65 72 4e 61 6d 65 20 3d 20 4e 55 4c 4c 2c 20  herName = NULL, 
06d0: 2a 6d 6f 64 65 4e 61 6d 65 20 3d 20 4e 55 4c 4c  *modeName = NULL
06e0: 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f  ;.    const EVP_
06f0: 43 49 50 48 45 52 20 2a 63 69 70 68 65 72 3b 0a  CIPHER *cipher;.
0700: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e      unsigned lon
0710: 67 20 66 6c 61 67 73 2c 20 6d 6f 64 65 3b 0a 0a  g flags, mode;..
0720: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c      dprintf("Cal
0730: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43  led");..    /* C
0740: 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20  lear errors */. 
0750: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75     Tcl_ResetResu
0760: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20  lt(interp);.    
0770: 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28  ERR_clear_error(
0780: 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64  );..    /* Valid
0790: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f  ate arg count */
07a0: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d  .    if (objc !=
07b0: 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67   2) {..Tcl_Wrong
07c0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
07d0: 31 2c 20 6f 62 6a 76 2c 20 22 6e 61 6d 65 22 29  1, objv, "name")
07e0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  ;..return TCL_ER
07f0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ROR;.    }..    
0800: 2f 2a 20 47 65 74 20 63 69 70 68 65 72 20 2a 2f  /* Get cipher */
0810: 0a 20 20 20 20 63 69 70 68 65 72 4e 61 6d 65 20  .    cipherName 
0820: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46  = Tcl_GetStringF
0830: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20  romObj(objv[1], 
0840: 4e 55 4c 4c 29 3b 0a 20 20 20 20 63 69 70 68 65  NULL);.    ciphe
0850: 72 20 3d 20 45 56 50 5f 67 65 74 5f 63 69 70 68  r = EVP_get_ciph
0860: 65 72 62 79 6e 61 6d 65 28 63 69 70 68 65 72 4e  erbyname(cipherN
0870: 61 6d 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 63  ame);..    if (c
0880: 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b  ipher == NULL) {
0890: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
08a0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61  lt(interp, "Inva
08b0: 6c 69 64 20 63 69 70 68 65 72 20 5c 22 22 2c 20  lid cipher \"", 
08c0: 63 69 70 68 65 72 4e 61 6d 65 2c 20 22 5c 22 22  cipherName, "\""
08d0: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e  , NULL);..return
08e0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
08f0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72  }..    /* Get pr
0900: 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20  operties */.    
0910: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77  objPtr = Tcl_New
0920: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29  ListObj(0, NULL)
0930: 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 50 74 72  ;.    if (objPtr
0940: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74   == NULL) {..ret
0950: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
0960: 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44     }.    LAPPEND
0970: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _STR(interp, obj
0980: 50 74 72 2c 20 22 6e 69 64 22 2c 20 4f 42 4a 5f  Ptr, "nid", OBJ_
0990: 6e 69 64 32 6c 6e 28 45 56 50 5f 43 49 50 48 45  nid2ln(EVP_CIPHE
09a0: 52 5f 6e 69 64 28 63 69 70 68 65 72 29 29 2c 20  R_nid(cipher)), 
09b0: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44  -1);.    LAPPEND
09c0: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _STR(interp, obj
09d0: 50 74 72 2c 20 22 6e 61 6d 65 22 2c 20 45 56 50  Ptr, "name", EVP
09e0: 5f 43 49 50 48 45 52 5f 6e 61 6d 65 28 63 69 70  _CIPHER_name(cip
09f0: 68 65 72 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c  her), -1);.    L
0a00: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
0a10: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 64 65 73 63  p, objPtr, "desc
0a20: 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20 2d 31  ription", "", -1
0a30: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49  );.    LAPPEND_I
0a40: 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  NT(interp, objPt
0a50: 72 2c 20 22 62 6c 6f 63 6b 5f 73 69 7a 65 22 2c  r, "block_size",
0a60: 20 45 56 50 5f 43 49 50 48 45 52 5f 62 6c 6f 63   EVP_CIPHER_bloc
0a70: 6b 5f 73 69 7a 65 28 63 69 70 68 65 72 29 29 3b  k_size(cipher));
0a80: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54  .    LAPPEND_INT
0a90: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c  (interp, objPtr,
0aa0: 20 22 6b 65 79 5f 6c 65 6e 67 74 68 22 2c 20 45   "key_length", E
0ab0: 56 50 5f 43 49 50 48 45 52 5f 6b 65 79 5f 6c 65  VP_CIPHER_key_le
0ac0: 6e 67 74 68 28 63 69 70 68 65 72 29 29 3b 0a 20  ngth(cipher));. 
0ad0: 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69     LAPPEND_INT(i
0ae0: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22  nterp, objPtr, "
0af0: 69 76 5f 6c 65 6e 67 74 68 22 2c 20 45 56 50 5f  iv_length", EVP_
0b00: 43 49 50 48 45 52 5f 69 76 5f 6c 65 6e 67 74 68  CIPHER_iv_length
0b10: 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 4c  (cipher));.    L
0b20: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
0b30: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 74 79 70 65  p, objPtr, "type
0b40: 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56  ", OBJ_nid2ln(EV
0b50: 50 5f 43 49 50 48 45 52 5f 74 79 70 65 28 63 69  P_CIPHER_type(ci
0b60: 70 68 65 72 29 29 2c 20 2d 31 29 3b 0a 20 20 20  pher)), -1);.   
0b70: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74   LAPPEND_STR(int
0b80: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 70 72  erp, objPtr, "pr
0b90: 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 29  ovider", "", -1)
0ba0: 3b 0a 20 20 20 20 66 6c 61 67 73 20 3d 20 45 56  ;.    flags = EV
0bb0: 50 5f 43 49 50 48 45 52 5f 66 6c 61 67 73 28 63  P_CIPHER_flags(c
0bc0: 69 70 68 65 72 29 3b 0a 20 20 20 20 6d 6f 64 65  ipher);.    mode
0bd0: 20 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f 6d    = EVP_CIPHER_m
0be0: 6f 64 65 28 63 69 70 68 65 72 29 3b 0a 0a 20 20  ode(cipher);..  
0bf0: 20 20 2f 2a 20 45 56 50 5f 43 49 50 48 45 52 5f    /* EVP_CIPHER_
0c00: 67 65 74 5f 6d 6f 64 65 20 2a 2f 0a 20 20 20 20  get_mode */.    
0c10: 73 77 69 74 63 68 28 6d 6f 64 65 29 20 7b 0a 09  switch(mode) {..
0c20: 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 53 54  case EVP_CIPH_ST
0c30: 52 45 41 4d 5f 43 49 50 48 45 52 3a 0a 09 20 20  REAM_CIPHER:..  
0c40: 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 53 54    modeName = "ST
0c50: 52 45 41 4d 22 3b 0a 09 20 20 20 20 62 72 65 61  REAM";..    brea
0c60: 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50  k;..case EVP_CIP
0c70: 48 5f 45 43 42 5f 4d 4f 44 45 3a 0a 09 20 20 20  H_ECB_MODE:..   
0c80: 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 45 43 42   modeName = "ECB
0c90: 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09  ";..    break;..
0ca0: 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 43 42  case EVP_CIPH_CB
0cb0: 43 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64  C_MODE:..    mod
0cc0: 65 4e 61 6d 65 20 3d 20 22 43 42 43 22 3b 0a 09  eName = "CBC";..
0cd0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65      break;..case
0ce0: 20 45 56 50 5f 43 49 50 48 5f 43 46 42 5f 4d 4f   EVP_CIPH_CFB_MO
0cf0: 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d  DE:..    modeNam
0d00: 65 20 3d 20 22 43 46 42 22 3b 0a 09 20 20 20 20  e = "CFB";..    
0d10: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50  break;..case EVP
0d20: 5f 43 49 50 48 5f 4f 46 42 5f 4d 4f 44 45 3a 0a  _CIPH_OFB_MODE:.
0d30: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20  .    modeName = 
0d40: 22 4f 46 42 22 3b 0a 09 20 20 20 20 62 72 65 61  "OFB";..    brea
0d50: 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50  k;..case EVP_CIP
0d60: 48 5f 43 54 52 5f 4d 4f 44 45 3a 0a 09 20 20 20  H_CTR_MODE:..   
0d70: 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 54 52   modeName = "CTR
0d80: 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09  ";..    break;..
0d90: 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 47 43  case EVP_CIPH_GC
0da0: 4d 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64  M_MODE:..    mod
0db0: 65 4e 61 6d 65 20 3d 20 22 47 43 4d 22 3b 0a 09  eName = "GCM";..
0dc0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65      break;..case
0dd0: 20 45 56 50 5f 43 49 50 48 5f 58 54 53 5f 4d 4f   EVP_CIPH_XTS_MO
0de0: 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d  DE:..    modeNam
0df0: 65 20 3d 20 22 58 54 53 22 3b 0a 09 20 20 20 20  e = "XTS";..    
0e00: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50  break;..case EVP
0e10: 5f 43 49 50 48 5f 43 43 4d 5f 4d 4f 44 45 3a 0a  _CIPH_CCM_MODE:.
0e20: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20  .    modeName = 
0e30: 22 43 43 4d 22 3b 0a 09 20 20 20 20 62 72 65 61  "CCM";..    brea
0e40: 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50  k;..case EVP_CIP
0e50: 48 5f 4f 43 42 5f 4d 4f 44 45 3a 0a 09 20 20 20  H_OCB_MODE:..   
0e60: 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 4f 43 42   modeName = "OCB
0e70: 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09  ";..    break;..
0e80: 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 57 52  case EVP_CIPH_WR
0e90: 41 50 5f 4d 4f 44 45 20 3a 0a 09 20 20 20 20 6d  AP_MODE :..    m
0ea0: 6f 64 65 4e 61 6d 65 20 3d 20 22 57 52 41 50 22  odeName = "WRAP"
0eb0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 64  ;..    break;..d
0ec0: 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 6d 6f 64  efault:..    mod
0ed0: 65 4e 61 6d 65 20 3d 20 22 75 6e 6b 6e 6f 77 6e  eName = "unknown
0ee0: 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20  ";..    break;. 
0ef0: 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44     }.    LAPPEND
0f00: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _STR(interp, obj
0f10: 50 74 72 2c 20 22 6d 6f 64 65 22 2c 20 6d 6f 64  Ptr, "mode", mod
0f20: 65 4e 61 6d 65 2c 20 2d 31 29 3b 0a 0a 20 20 20  eName, -1);..   
0f30: 20 2f 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20   /* Flags */.   
0f40: 20 6c 69 73 74 50 74 72 20 3d 20 54 63 6c 5f 4e   listPtr = Tcl_N
0f50: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c  ewListObj(0, NUL
0f60: 4c 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f  L);.    LAPPEND_
0f70: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73  BOOL(interp, lis
0f80: 74 50 74 72 2c 20 22 56 61 72 69 61 62 6c 65 20  tPtr, "Variable 
0f90: 4c 65 6e 67 74 68 22 2c 20 66 6c 61 67 73 20 26  Length", flags &
0fa0: 20 45 56 50 5f 43 49 50 48 5f 56 41 52 49 41 42   EVP_CIPH_VARIAB
0fb0: 4c 45 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20  LE_LENGTH);.    
0fc0: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74  LAPPEND_BOOL(int
0fd0: 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 41  erp, listPtr, "A
0fe0: 6c 77 61 79 73 20 43 61 6c 6c 20 49 6e 69 74 22  lways Call Init"
0ff0: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49  , flags & EVP_CI
1000: 50 48 5f 41 4c 57 41 59 53 5f 43 41 4c 4c 5f 49  PH_ALWAYS_CALL_I
1010: 4e 49 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e  NIT);.    LAPPEN
1020: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c  D_BOOL(interp, l
1030: 69 73 74 50 74 72 2c 20 22 43 75 73 74 6f 6d 20  istPtr, "Custom 
1040: 49 56 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50  IV", flags & EVP
1050: 5f 43 49 50 48 5f 43 55 53 54 4f 4d 5f 49 56 29  _CIPH_CUSTOM_IV)
1060: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f  ;.    LAPPEND_BO
1070: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50  OL(interp, listP
1080: 74 72 2c 20 22 43 6f 6e 74 72 6f 6c 20 49 6e 69  tr, "Control Ini
1090: 74 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f  t", flags & EVP_
10a0: 43 49 50 48 5f 43 54 52 4c 5f 49 4e 49 54 29 3b  CIPH_CTRL_INIT);
10b0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f  .    LAPPEND_BOO
10c0: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74  L(interp, listPt
10d0: 72 2c 20 22 43 75 73 74 6f 6d 20 43 69 70 68 65  r, "Custom Ciphe
10e0: 72 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f  r", flags & EVP_
10f0: 43 49 50 48 5f 46 4c 41 47 5f 43 55 53 54 4f 4d  CIPH_FLAG_CUSTOM
1100: 5f 43 49 50 48 45 52 29 3b 0a 20 20 20 20 4c 41  _CIPHER);.    LA
1110: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72  PPEND_BOOL(inter
1120: 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 41 45 41  p, listPtr, "AEA
1130: 44 20 43 69 70 68 65 72 22 2c 20 66 6c 61 67 73  D Cipher", flags
1140: 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 47   & EVP_CIPH_FLAG
1150: 5f 41 45 41 44 5f 43 49 50 48 45 52 29 3b 0a 20  _AEAD_CIPHER);. 
1160: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28     LAPPEND_BOOL(
1170: 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c  interp, listPtr,
1180: 20 22 43 75 73 74 6f 6d 20 43 6f 70 79 22 2c 20   "Custom Copy", 
1190: 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48  flags & EVP_CIPH
11a0: 5f 43 55 53 54 4f 4d 5f 43 4f 50 59 29 3b 0a 20  _CUSTOM_COPY);. 
11b0: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28     LAPPEND_BOOL(
11c0: 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c  interp, listPtr,
11d0: 20 22 4e 6f 6e 20 46 49 50 53 20 41 6c 6c 6f 77   "Non FIPS Allow
11e0: 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43  ", flags & EVP_C
11f0: 49 50 48 5f 46 4c 41 47 5f 4e 4f 4e 5f 46 49 50  IPH_FLAG_NON_FIP
1200: 53 5f 41 4c 4c 4f 57 29 3b 0a 20 20 20 20 4c 41  S_ALLOW);.    LA
1210: 50 50 45 4e 44 5f 4f 42 4a 28 69 6e 74 65 72 70  PPEND_OBJ(interp
1220: 2c 20 6f 62 6a 50 74 72 2c 20 22 66 6c 61 67 73  , objPtr, "flags
1230: 22 2c 20 6c 69 73 74 50 74 72 29 3b 0a 0a 20 20  ", listPtr);..  
1240: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75    Tcl_SetObjResu
1250: 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  lt(interp, objPt
1260: 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  r);.    return T
1270: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d  CL_OK;.}../*. *-
1280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12c0: 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 4c  --. *. * CipherL
12d0: 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74  ist --. *. *.Ret
12e0: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c  urn a list of al
12f0: 6c 20 63 69 70 68 65 72 20 61 6c 67 6f 72 69 74  l cipher algorit
1300: 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74  hms. *. * Result
1310: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64  s:. *.A standard
1320: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a   Tcl list.. *. *
1330: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20   Side effects:. 
1340: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d  *.None.. *. *---
1350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1390: 0a 20 2a 2f 0a 69 6e 74 20 43 69 70 68 65 72 4c  . */.int CipherL
13a0: 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ist(Tcl_Interp *
13b0: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63  interp) {.    Tc
13c0: 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d 20  l_Obj *objPtr = 
13d0: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30  Tcl_NewListObj(0
13e0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20  , NULL);.    if 
13f0: 28 6f 62 6a 50 74 72 20 3d 3d 20 4e 55 4c 4c 29  (objPtr == NULL)
1400: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45   {..return TCL_E
1410: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  RROR;.    }..   
1420: 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f 61 6c 6c   OBJ_NAME_do_all
1430: 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 45 5f 43  (OBJ_NAME_TYPE_C
1440: 49 50 48 45 52 5f 4d 45 54 48 2c 20 4e 61 6d 65  IPHER_METH, Name
1450: 73 43 61 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64  sCallback, (void
1460: 20 2a 29 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20   *) objPtr);.   
1470: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
1480: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72  t(interp, objPtr
1490: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  );.    return TC
14a0: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d  L_OK;.}../*. *--
14b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
14c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
14f0: 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 73 4f  -. *. * CiphersO
1500: 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54  bjCmd --. *. *.T
1510: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 73  his procedure is
1520: 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63   invoked to proc
1530: 65 73 73 20 74 68 65 20 22 74 6c 73 3a 3a 63 69  ess the "tls::ci
1540: 70 68 65 72 73 22 20 63 6f 6d 6d 61 6e 64 0a 20  phers" command. 
1550: 2a 09 74 6f 20 6c 69 73 74 20 61 76 61 69 6c 61  *.to list availa
1560: 62 6c 65 20 63 69 70 68 65 72 73 2c 20 62 61 73  ble ciphers, bas
1570: 65 64 20 75 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c  ed upon protocol
1580: 20 73 65 6c 65 63 74 65 64 2e 0a 20 2a 0a 20 2a   selected.. *. *
1590: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
15a0: 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75  tandard Tcl resu
15b0: 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53  lt list.. *. * S
15c0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09  ide effects:. *.
15d0: 63 6f 6e 73 74 72 75 63 74 73 20 61 6e 64 20 64  constructs and d
15e0: 65 73 74 72 6f 79 73 20 53 53 4c 20 63 6f 6e 74  estroys SSL cont
15f0: 65 78 74 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d  ext (CTX). *. *-
1600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1640: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e  --. */.static in
1650: 74 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 28  t CiphersObjCmd(
1660: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
1670: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72  tData, Tcl_Inter
1680: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f  p *interp, int o
1690: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f  bjc, Tcl_Obj *co
16a0: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20  nst objv[]) {.  
16b0: 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d    SSL_CTX *ctx =
16c0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a   NULL;.    SSL *
16d0: 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20  ssl = NULL;.    
16e0: 53 54 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50  STACK_OF(SSL_CIP
16f0: 48 45 52 29 20 2a 73 6b 20 3d 20 4e 55 4c 4c 3b  HER) *sk = NULL;
1700: 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 78 2c 20  .    int index, 
1710: 76 65 72 62 6f 73 65 20 3d 20 30 2c 20 75 73 65  verbose = 0, use
1720: 5f 73 75 70 70 6f 72 74 65 64 20 3d 20 30 2c 20  _supported = 0, 
1730: 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20  res = TCL_OK;.  
1740: 20 20 69 6e 74 20 6d 69 6e 5f 76 65 72 73 69 6f    int min_versio
1750: 6e 2c 20 6d 61 78 5f 76 65 72 73 69 6f 6e 3b 0a  n, max_version;.
1760: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61  .    dprintf("Ca
1770: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20  lled");..    /* 
1780: 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a  Clear errors */.
1790: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73      Tcl_ResetRes
17a0: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20  ult(interp);.   
17b0: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72   ERR_clear_error
17c0: 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69  ();..    /* Vali
17d0: 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a  date arg count *
17e0: 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3e  /.    if (objc >
17f0: 20 34 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67   4) {..Tcl_Wrong
1800: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
1810: 31 2c 20 6f 62 6a 76 2c 20 22 3f 70 72 6f 74 6f  1, objv, "?proto
1820: 63 6f 6c 3f 20 3f 76 65 72 62 6f 73 65 3f 20 3f  col? ?verbose? ?
1830: 73 75 70 70 6f 72 74 65 64 3f 22 29 3b 0a 09 72  supported?");..r
1840: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1850: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c  .    }..    /* L
1860: 69 73 74 20 61 6c 6c 20 63 69 70 68 65 72 73 20  ist all ciphers 
1870: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20  */.    if (objc 
1880: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20  == 1) {..return 
1890: 43 69 70 68 65 72 4c 69 73 74 28 69 6e 74 65 72  CipherList(inter
18a0: 70 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  p);.    }..    /
18b0: 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f  * Get options */
18c0: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74  .    if (Tcl_Get
18d0: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74  IndexFromObj(int
18e0: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72  erp, objv[1], pr
18f0: 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63  otocols, "protoc
1900: 6f 6c 22 2c 20 30 2c 20 26 69 6e 64 65 78 29 20  ol", 0, &index) 
1910: 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 28 6f  != TCL_OK ||..(o
1920: 62 6a 63 20 3e 20 32 20 26 26 20 54 63 6c 5f 47  bjc > 2 && Tcl_G
1930: 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a  etBooleanFromObj
1940: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
1950: 2c 20 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54  , &verbose) != T
1960: 43 4c 5f 4f 4b 29 20 7c 7c 0a 09 28 6f 62 6a 63  CL_OK) ||..(objc
1970: 20 3e 20 33 20 26 26 20 54 63 6c 5f 47 65 74 42   > 3 && Tcl_GetB
1980: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e  ooleanFromObj(in
1990: 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26  terp, objv[3], &
19a0: 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 21  use_supported) !
19b0: 3d 20 54 43 4c 5f 4f 4b 29 29 20 7b 0a 09 72 65  = TCL_OK)) {..re
19c0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
19d0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63      }..    switc
19e0: 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f  h ((enum protoco
19f0: 6c 29 69 6e 64 65 78 29 20 7b 0a 09 63 61 73 65  l)index) {..case
1a00: 20 54 4c 53 5f 53 53 4c 32 3a 0a 09 20 20 20 20   TLS_SSL2:..    
1a10: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
1a20: 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f  (interp, protoco
1a30: 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72  ls[index], ": pr
1a40: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f  otocol not suppo
1a50: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20  rted", NULL);.. 
1a60: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
1a70: 52 4f 52 3b 0a 09 63 61 73 65 20 54 4c 53 5f 53  ROR;..case TLS_S
1a80: 53 4c 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64  SL3:.#if defined
1a90: 28 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 64 65 66  (NO_SSL3) || def
1aa0: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f  ined(OPENSSL_NO_
1ab0: 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64  SSL3) || defined
1ac0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33  (OPENSSL_NO_SSL3
1ad0: 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 63  _METHOD)..    Tc
1ae0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
1af0: 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73  nterp, protocols
1b00: 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74  [index], ": prot
1b10: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74  ocol not support
1b20: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20  ed", NULL);..   
1b30: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
1b40: 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20  R;.#else.       
1b50: 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e       min_version
1b60: 20 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b   = SSL3_VERSION;
1b70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78  .            max
1b80: 5f 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c 33 5f  _version = SSL3_
1b90: 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72  VERSION;..    br
1ba0: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73  eak;.#endif..cas
1bb0: 65 20 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20  e TLS_TLS1:.#if 
1bc0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29  defined(NO_TLS1)
1bd0: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e   || defined(OPEN
1be0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20  SSL_NO_TLS1) || 
1bf0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f  defined(OPENSSL_
1c00: 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a  NO_TLS1_METHOD).
1c10: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  .    Tcl_AppendR
1c20: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72  esult(interp, pr
1c30: 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20  otocols[index], 
1c40: 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20  ": protocol not 
1c50: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c  supported", NULL
1c60: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54  );..    return T
1c70: 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a  CL_ERROR;.#else.
1c80: 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f              min_
1c90: 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 56  version = TLS1_V
1ca0: 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20  ERSION;.        
1cb0: 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20      max_version 
1cc0: 3d 20 54 4c 53 31 5f 56 45 52 53 49 4f 4e 3b 0a  = TLS1_VERSION;.
1cd0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64  .    break;.#end
1ce0: 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53  if..case TLS_TLS
1cf0: 31 5f 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64  1_1:.#if defined
1d00: 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64  (NO_TLS1_1) || d
1d10: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e  efined(OPENSSL_N
1d20: 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66  O_TLS1_1) || def
1d30: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f  ined(OPENSSL_NO_
1d40: 54 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 0a 09  TLS1_1_METHOD)..
1d50: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
1d60: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f  sult(interp, pro
1d70: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22  tocols[index], "
1d80: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73  : protocol not s
1d90: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29  upported", NULL)
1da0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43  ;..    return TC
1db0: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20  L_ERROR;.#else. 
1dc0: 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76             min_v
1dd0: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f  ersion = TLS1_1_
1de0: 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20  VERSION;.       
1df0: 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e       max_version
1e00: 20 3d 20 54 4c 53 31 5f 31 5f 56 45 52 53 49 4f   = TLS1_1_VERSIO
1e10: 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23  N;..    break;.#
1e20: 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f  endif..case TLS_
1e30: 54 4c 53 31 5f 32 3a 0a 23 69 66 20 64 65 66 69  TLS1_2:.#if defi
1e40: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c  ned(NO_TLS1_2) |
1e50: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53  | defined(OPENSS
1e60: 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c 20  L_NO_TLS1_2) || 
1e70: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f  defined(OPENSSL_
1e80: 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44  NO_TLS1_2_METHOD
1e90: 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  )..    Tcl_Appen
1ea0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
1eb0: 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d  protocols[index]
1ec0: 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f  , ": protocol no
1ed0: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55  t supported", NU
1ee0: 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e  LL);..    return
1ef0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73   TCL_ERROR;.#els
1f00: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69  e.            mi
1f10: 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31  n_version = TLS1
1f20: 5f 32 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20  _2_VERSION;.    
1f30: 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73          max_vers
1f40: 69 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f 56 45 52  ion = TLS1_2_VER
1f50: 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b  SION;..    break
1f60: 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54  ;.#endif..case T
1f70: 4c 53 5f 54 4c 53 31 5f 33 3a 0a 23 69 66 20 64  LS_TLS1_3:.#if d
1f80: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33  efined(NO_TLS1_3
1f90: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45  ) || defined(OPE
1fa0: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a  NSSL_NO_TLS1_3).
1fb0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52  .    Tcl_AppendR
1fc0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72  esult(interp, pr
1fd0: 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20  otocols[index], 
1fe0: 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20  ": protocol not 
1ff0: 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c  supported", NULL
2000: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54  );..    return T
2010: 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a  CL_ERROR;.#else.
2020: 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f              min_
2030: 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33  version = TLS1_3
2040: 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20  _VERSION;.      
2050: 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f        max_versio
2060: 6e 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 49  n = TLS1_3_VERSI
2070: 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a  ON;..    break;.
2080: 23 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 3a  #endif..default:
2090: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e  .            min
20a0: 5f 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c 33 5f  _version = SSL3_
20b0: 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20  VERSION;.       
20c0: 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e       max_version
20d0: 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f   = TLS1_3_VERSIO
20e0: 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20  N;..    break;. 
20f0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65     }..    /* Cre
2100: 61 74 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20  ate context */. 
2110: 20 20 20 69 66 20 28 28 63 74 78 20 3d 20 53 53     if ((ctx = SS
2120: 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 5f 73 65  L_CTX_new(TLS_se
2130: 72 76 65 72 5f 6d 65 74 68 6f 64 28 29 29 29 20  rver_method())) 
2140: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f  == NULL) {..Tcl_
2150: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
2160: 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e  erp, REASON(), N
2170: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  ULL);..return TC
2180: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a  L_ERROR;.    }..
2190: 20 20 20 20 2f 2a 20 53 65 74 20 70 72 6f 74 6f      /* Set proto
21a0: 63 6f 6c 20 76 65 72 73 69 6f 6e 73 20 2a 2f 0a  col versions */.
21b0: 20 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f      if (SSL_CTX_
21c0: 73 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65  set_min_proto_ve
21d0: 72 73 69 6f 6e 28 63 74 78 2c 20 6d 69 6e 5f 76  rsion(ctx, min_v
21e0: 65 72 73 69 6f 6e 29 20 3d 3d 20 30 20 7c 7c 0a  ersion) == 0 ||.
21f0: 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78  .SSL_CTX_set_max
2200: 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63  _proto_version(c
2210: 74 78 2c 20 6d 61 78 5f 76 65 72 73 69 6f 6e 29  tx, max_version)
2220: 20 3d 3d 20 30 29 20 7b 0a 09 53 53 4c 5f 43 54   == 0) {..SSL_CT
2230: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65  X_free(ctx);..re
2240: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
2250: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72      }..    /* Cr
2260: 65 61 74 65 20 53 53 4c 20 63 6f 6e 74 65 78 74  eate SSL context
2270: 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 73 6c   */.    if ((ssl
2280: 20 3d 20 53 53 4c 5f 6e 65 77 28 63 74 78 29 29   = SSL_new(ctx))
2290: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c   == NULL) {..Tcl
22a0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
22b0: 74 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20  terp, REASON(), 
22c0: 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f  NULL);..SSL_CTX_
22d0: 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75  free(ctx);..retu
22e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
22f0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 55 73 65 20    }..    /* Use 
2300: 6c 69 73 74 20 61 6e 64 20 6f 72 64 65 72 20 61  list and order a
2310: 73 20 77 6f 75 6c 64 20 62 65 20 73 65 6e 74 20  s would be sent 
2320: 69 6e 20 61 20 43 6c 69 65 6e 74 48 65 6c 6c 6f  in a ClientHello
2330: 20 6f 72 20 61 6c 6c 20 61 76 61 69 6c 61 62 6c   or all availabl
2340: 65 20 63 69 70 68 65 72 73 20 2a 2f 0a 20 20 20  e ciphers */.   
2350: 20 69 66 20 28 75 73 65 5f 73 75 70 70 6f 72 74   if (use_support
2360: 65 64 29 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f  ed) {..sk = SSL_
2370: 67 65 74 31 5f 73 75 70 70 6f 72 74 65 64 5f 63  get1_supported_c
2380: 69 70 68 65 72 73 28 73 73 6c 29 3b 0a 20 20 20  iphers(ssl);.   
2390: 20 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20   } else {..sk = 
23a0: 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28  SSL_get_ciphers(
23b0: 73 73 6c 29 3b 0a 09 2f 2a 73 6b 20 3d 20 53 53  ssl);../*sk = SS
23c0: 4c 5f 43 54 58 5f 67 65 74 5f 63 69 70 68 65 72  L_CTX_get_cipher
23d0: 73 28 63 74 78 29 3b 2a 2f 0a 20 20 20 20 7d 0a  s(ctx);*/.    }.
23e0: 0a 20 20 20 20 69 66 20 28 73 6b 20 21 3d 20 4e  .    if (sk != N
23f0: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20  ULL) {..Tcl_Obj 
2400: 2a 6f 62 6a 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a  *objPtr = NULL;.
2410: 0a 09 69 66 20 28 21 76 65 72 62 6f 73 65 29 20  ..if (!verbose) 
2420: 7b 0a 09 20 20 20 20 63 68 61 72 20 2a 63 70 3b  {..    char *cp;
2430: 0a 09 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54  ..    objPtr = T
2440: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c  cl_NewListObj(0,
2450: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 69 66 20   NULL);..    if 
2460: 28 6f 62 6a 50 74 72 20 3d 3d 20 4e 55 4c 4c 29  (objPtr == NULL)
2470: 20 7b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45   {...res = TCL_E
2480: 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e  RROR;...goto don
2490: 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20  e;..    }...    
24a0: 66 6f 72 20 28 69 6e 74 20 69 20 3d 20 30 3b 20  for (int i = 0; 
24b0: 69 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45  i < sk_SSL_CIPHE
24c0: 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 2b 2b 29 20  R_num(sk); i++) 
24d0: 7b 0a 09 09 63 6f 6e 73 74 20 53 53 4c 5f 43 49  {...const SSL_CI
24e0: 50 48 45 52 20 2a 63 20 3d 20 73 6b 5f 53 53 4c  PHER *c = sk_SSL
24f0: 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 73 6b  _CIPHER_value(sk
2500: 2c 20 69 29 3b 0a 09 09 69 66 20 28 63 20 3d 3d  , i);...if (c ==
2510: 20 4e 55 4c 4c 29 20 63 6f 6e 74 69 6e 75 65 3b   NULL) continue;
2520: 0a 0a 09 09 2f 2a 20 63 69 70 68 65 72 20 6e 61  ..../* cipher na
2530: 6d 65 20 6f 72 20 28 4e 4f 4e 45 29 20 2a 2f 0a  me or (NONE) */.
2540: 09 09 63 70 20 3d 20 53 53 4c 5f 43 49 50 48 45  ..cp = SSL_CIPHE
2550: 52 5f 67 65 74 5f 6e 61 6d 65 28 63 29 3b 0a 09  R_get_name(c);..
2560: 09 69 66 20 28 63 70 20 3d 3d 20 4e 55 4c 4c 29  .if (cp == NULL)
2570: 20 62 72 65 61 6b 3b 0a 09 09 54 63 6c 5f 4c 69   break;...Tcl_Li
2580: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65  stObjAppendEleme
2590: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  nt(interp, objPt
25a0: 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67  r, Tcl_NewString
25b0: 4f 62 6a 28 63 70 2c 20 2d 31 29 29 3b 0a 09 20  Obj(cp, -1));.. 
25c0: 20 20 20 7d 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a     }...} else {.
25d0: 09 20 20 20 20 63 68 61 72 20 62 75 66 5b 42 55  .    char buf[BU
25e0: 46 53 49 5a 5d 3b 0a 09 20 20 20 20 6f 62 6a 50  FSIZ];..    objP
25f0: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  tr = Tcl_NewStri
2600: 6e 67 4f 62 6a 28 22 22 2c 30 29 3b 0a 09 20 20  ngObj("",0);..  
2610: 20 20 69 66 20 28 6f 62 6a 50 74 72 20 3d 3d 20    if (objPtr == 
2620: 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 20 3d 20  NULL) {...res = 
2630: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74  TCL_ERROR;...got
2640: 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 0a  o done;..    }..
2650: 09 20 20 20 20 66 6f 72 20 28 69 6e 74 20 69 20  .    for (int i 
2660: 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53 4c 5f  = 0; i < sk_SSL_
2670: 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20  CIPHER_num(sk); 
2680: 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 20 53  i++) {...const S
2690: 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d 20 73  SL_CIPHER *c = s
26a0: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c  k_SSL_CIPHER_val
26b0: 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69 66 20  ue(sk, i);...if 
26c0: 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e 74  (c == NULL) cont
26d0: 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 74 65 78 74  inue;..../* text
26e0: 75 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 20  ual description 
26f0: 6f 66 20 74 68 65 20 63 69 70 68 65 72 20 2a 2f  of the cipher */
2700: 0a 09 09 69 66 20 28 53 53 4c 5f 43 49 50 48 45  ...if (SSL_CIPHE
2710: 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 63 2c  R_description(c,
2720: 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66   buf, sizeof(buf
2730: 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  )) != NULL) {...
2740: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 54 6f      Tcl_AppendTo
2750: 4f 62 6a 28 6f 62 6a 50 74 72 2c 20 62 75 66 2c  Obj(objPtr, buf,
2760: 20 28 54 63 6c 5f 53 69 7a 65 29 20 73 74 72 6c   (Tcl_Size) strl
2770: 65 6e 28 62 75 66 29 29 3b 0a 09 09 7d 20 65 6c  en(buf));...} el
2780: 73 65 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 41  se {...    Tcl_A
2790: 70 70 65 6e 64 54 6f 4f 62 6a 28 6f 62 6a 50 74  ppendToObj(objPt
27a0: 72 2c 20 22 55 4e 4b 4e 4f 57 4e 5c 6e 22 2c 20  r, "UNKNOWN\n", 
27b0: 38 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09  8);...}..    }..
27c0: 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 20 75 70 20  }.../* Clean up 
27d0: 2a 2f 0a 09 69 66 20 28 75 73 65 5f 73 75 70 70  */..if (use_supp
27e0: 6f 72 74 65 64 29 20 7b 0a 09 20 20 20 20 73 6b  orted) {..    sk
27f0: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 66 72 65 65  _SSL_CIPHER_free
2800: 28 73 6b 29 3b 0a 09 7d 0a 09 54 63 6c 5f 53 65  (sk);..}..Tcl_Se
2810: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
2820: 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20  p, objPtr);.    
2830: 7d 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 53 53 4c  }..done:.    SSL
2840: 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 20 20 20  _free(ssl);.    
2850: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78  SSL_CTX_free(ctx
2860: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65  );.    return re
2870: 73 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d  s;..clientData =
2880: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a   clientData;.}..
2890: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  /***************
28a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
28b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
28c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
28d0: 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  ****/../*. *----
28e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
28f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
2920: 20 2a 0a 20 2a 20 44 69 67 65 73 74 49 6e 66 6f   *. * DigestInfo
2930: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e   --. *. *.Return
2940: 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 65   a list of prope
2950: 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 65 73  rties and values
2960: 20 66 6f 72 20 64 69 67 65 73 74 4e 61 6d 65 2e   for digestName.
2970: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
2980: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63   *.A standard Tc
2990: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69  l list.. *. * Si
29a0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e  de effects:. *.N
29b0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  one.. *. *------
29c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
2a00: 2f 0a 69 6e 74 20 44 69 67 65 73 74 49 6e 66 6f  /.int DigestInfo
2a10: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
2a20: 65 72 70 2c 20 63 68 61 72 20 2a 64 69 67 65 73  erp, char *diges
2a30: 74 4e 61 6d 65 29 20 7b 0a 20 20 20 20 54 63 6c  tName) {.    Tcl
2a40: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 2c 20 2a 6c  _Obj *objPtr, *l
2a50: 69 73 74 50 74 72 3b 0a 20 20 20 20 45 56 50 5f  istPtr;.    EVP_
2a60: 4d 44 20 2a 6d 64 20 3d 20 45 56 50 5f 67 65 74  MD *md = EVP_get
2a70: 5f 64 69 67 65 73 74 62 79 6e 61 6d 65 28 64 69  _digestbyname(di
2a80: 67 65 73 74 4e 61 6d 65 29 3b 0a 20 20 20 20 75  gestName);.    u
2a90: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 66 6c 61  nsigned long fla
2aa0: 67 73 3b 0a 0a 20 20 20 20 69 66 20 28 6d 64 20  gs;..    if (md 
2ab0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f  == NULL) {..Tcl_
2ac0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
2ad0: 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 64 69  erp, "Invalid di
2ae0: 67 65 73 74 20 5c 22 22 2c 20 64 69 67 65 73 74  gest \"", digest
2af0: 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c  Name, "\"", NULL
2b00: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
2b10: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  RROR;.    }..   
2b20: 20 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69   /* Get properti
2b30: 65 73 20 2a 2f 0a 20 20 20 20 6f 62 6a 50 74 72  es */.    objPtr
2b40: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62   = Tcl_NewListOb
2b50: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20  j(0, NULL);.    
2b60: 69 66 20 28 6f 62 6a 50 74 72 20 3d 3d 20 4e 55  if (objPtr == NU
2b70: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43  LL) {..return TC
2b80: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  L_ERROR;.    }. 
2b90: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69     LAPPEND_STR(i
2ba0: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22  nterp, objPtr, "
2bb0: 6e 61 6d 65 22 2c 20 45 56 50 5f 4d 44 5f 6e 61  name", EVP_MD_na
2bc0: 6d 65 28 6d 64 29 2c 20 2d 31 29 3b 0a 20 20 20  me(md), -1);.   
2bd0: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74   LAPPEND_STR(int
2be0: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 64 65  erp, objPtr, "de
2bf0: 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20  scription", "", 
2c00: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44  -1);.    LAPPEND
2c10: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _INT(interp, obj
2c20: 50 74 72 2c 20 22 73 69 7a 65 22 2c 20 45 56 50  Ptr, "size", EVP
2c30: 5f 4d 44 5f 73 69 7a 65 28 6d 64 29 29 3b 0a 20  _MD_size(md));. 
2c40: 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69     LAPPEND_INT(i
2c50: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22  nterp, objPtr, "
2c60: 62 6c 6f 63 6b 5f 73 69 7a 65 22 2c 20 45 56 50  block_size", EVP
2c70: 5f 4d 44 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 6d  _MD_block_size(m
2c80: 64 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44  d));.    LAPPEND
2c90: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _STR(interp, obj
2ca0: 50 74 72 2c 20 22 70 72 6f 76 69 64 65 72 22 2c  Ptr, "provider",
2cb0: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41   "", -1);.    LA
2cc0: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70  PPEND_STR(interp
2cd0: 2c 20 6f 62 6a 50 74 72 2c 20 22 74 79 70 65 22  , objPtr, "type"
2ce0: 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50  , OBJ_nid2ln(EVP
2cf0: 5f 4d 44 5f 74 79 70 65 28 6d 64 29 29 2c 20 2d  _MD_type(md)), -
2d00: 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f  1);.    LAPPEND_
2d10: 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50  STR(interp, objP
2d20: 74 72 2c 20 22 70 6b 65 79 5f 74 79 70 65 22 2c  tr, "pkey_type",
2d30: 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f   OBJ_nid2ln(EVP_
2d40: 4d 44 5f 70 6b 65 79 5f 74 79 70 65 28 6d 64 29  MD_pkey_type(md)
2d50: 29 2c 20 2d 31 29 3b 0a 20 20 20 20 66 6c 61 67  ), -1);.    flag
2d60: 73 20 3d 20 45 56 50 5f 4d 44 5f 66 6c 61 67 73  s = EVP_MD_flags
2d70: 28 6d 64 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c  (md);..    /* Fl
2d80: 61 67 73 20 2a 2f 0a 20 20 20 20 6c 69 73 74 50  ags */.    listP
2d90: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74  tr = Tcl_NewList
2da0: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20  Obj(0, NULL);.  
2db0: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69    LAPPEND_BOOL(i
2dc0: 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20  nterp, listPtr, 
2dd0: 22 4f 6e 65 2d 73 68 6f 74 22 2c 20 66 6c 61 67  "One-shot", flag
2de0: 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f  s & EVP_MD_FLAG_
2df0: 4f 4e 45 53 48 4f 54 29 3b 0a 20 20 20 20 4c 41  ONESHOT);.    LA
2e00: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72  PPEND_BOOL(inter
2e10: 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 58 4f 46  p, listPtr, "XOF
2e20: 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d  ", flags & EVP_M
2e30: 44 5f 46 4c 41 47 5f 58 4f 46 29 3b 0a 20 20 20  D_FLAG_XOF);.   
2e40: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e   LAPPEND_BOOL(in
2e50: 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 22  terp, listPtr, "
2e60: 44 69 67 65 73 74 41 6c 67 6f 72 69 74 68 6d 49  DigestAlgorithmI
2e70: 64 5f 4e 55 4c 4c 22 2c 20 66 6c 61 67 73 20 26  d_NULL", flags &
2e80: 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 44 49 47   EVP_MD_FLAG_DIG
2e90: 41 4c 47 49 44 5f 4e 55 4c 4c 29 3b 0a 20 20 20  ALGID_NULL);.   
2ea0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e   LAPPEND_BOOL(in
2eb0: 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 22  terp, listPtr, "
2ec0: 44 69 67 65 73 74 41 6c 67 6f 72 69 74 68 6d 49  DigestAlgorithmI
2ed0: 64 5f 41 62 73 63 65 6e 74 22 2c 20 66 6c 61 67  d_Abscent", flag
2ee0: 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f  s & EVP_MD_FLAG_
2ef0: 44 49 47 41 4c 47 49 44 5f 41 42 53 45 4e 54 29  DIGALGID_ABSENT)
2f00: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f  ;.    LAPPEND_BO
2f10: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50  OL(interp, listP
2f20: 74 72 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72  tr, "DigestAlgor
2f30: 69 74 68 6d 49 64 5f 43 75 73 74 6f 6d 22 2c 20  ithmId_Custom", 
2f40: 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46  flags & EVP_MD_F
2f50: 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 43 55 53  LAG_DIGALGID_CUS
2f60: 54 4f 4d 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e  TOM);.    LAPPEN
2f70: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c  D_BOOL(interp, l
2f80: 69 73 74 50 74 72 2c 20 22 46 49 50 53 22 2c 20  istPtr, "FIPS", 
2f90: 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46  flags & EVP_MD_F
2fa0: 4c 41 47 5f 46 49 50 53 29 3b 0a 20 20 20 20 4c  LAG_FIPS);.    L
2fb0: 41 50 50 45 4e 44 5f 4f 42 4a 28 69 6e 74 65 72  APPEND_OBJ(inter
2fc0: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 66 6c 61 67  p, objPtr, "flag
2fd0: 73 22 2c 20 6c 69 73 74 50 74 72 29 3b 0a 0a 20  s", listPtr);.. 
2fe0: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
2ff0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50  ult(interp, objP
3000: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  tr);.    return 
3010: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a  TCL_OK;.}../*. *
3020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3060: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74  ---. *. * Digest
3070: 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65  List --. *. *.Re
3080: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61  turn a list of a
3090: 6c 6c 20 64 69 67 65 73 74 20 61 6c 67 6f 72 69  ll digest algori
30a0: 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  thms. *. * Resul
30b0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72  ts:. *.A standar
30c0: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20  d Tcl list.. *. 
30d0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
30e0: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
30f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3130: 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74  -. */.int Digest
3140: 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20  List(Tcl_Interp 
3150: 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54  *interp) {.    T
3160: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d  cl_Obj *objPtr =
3170: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28   Tcl_NewListObj(
3180: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66  0, NULL);.    if
3190: 20 28 6f 62 6a 50 74 72 20 3d 3d 20 4e 55 4c 4c   (objPtr == NULL
31a0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  ) {..return TCL_
31b0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20  ERROR;.    }..  
31c0: 20 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f 61 6c    OBJ_NAME_do_al
31d0: 6c 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 45 5f  l(OBJ_NAME_TYPE_
31e0: 4d 44 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 43 61  MD_METH, NamesCa
31f0: 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 2a 29  llback, (void *)
3200: 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 54 63   objPtr);.    Tc
3210: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
3220: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a  nterp, objPtr);.
3230: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f      return TCL_O
3240: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  K;.}../*. *-----
3250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
3290: 2a 0a 20 2a 20 44 69 67 65 73 74 73 4f 62 6a 43  *. * DigestsObjC
32a0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75  md --. *. *.Retu
32b0: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c  rn a list of all
32c0: 20 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 6f   valid hash algo
32d0: 72 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 67  rithms or messag
32e0: 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a  e digests.. *. *
32f0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
3300: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74  tandard Tcl list
3310: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
3320: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ects:. *.None.. 
3330: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
3340: 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 69 6e 74 20  -------. */.int 
3380: 44 69 67 65 73 74 73 4f 62 6a 43 6d 64 28 43 6c  DigestsObjCmd(Cl
3390: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44  ientData clientD
33a0: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20  ata, Tcl_Interp 
33b0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a  *interp, int obj
33c0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73  c, Tcl_Obj *cons
33d0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20  t objv[]) {.    
33e0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22  dprintf("Called"
33f0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64  );..    /* Valid
3400: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f  ate arg count */
3410: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d  .    if (objc ==
3420: 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69   1) {..return Di
3430: 67 65 73 74 4c 69 73 74 28 69 6e 74 65 72 70 29  gestList(interp)
3440: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66  ;..    } else if
3450: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09   (objc == 2) {..
3460: 72 65 74 75 72 6e 20 44 69 67 65 73 74 49 6e 66  return DigestInf
3470: 6f 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65  o(interp, Tcl_Ge
3480: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f  tStringFromObj(o
3490: 62 6a 76 5b 31 5d 2c 4e 55 4c 4c 29 29 3b 0a 0a  bjv[1],NULL));..
34a0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63      } else {..Tc
34b0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
34c0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
34d0: 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75  "?name?");..retu
34e0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
34f0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54    }.    return T
3500: 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 61  CL_OK;..clientDa
3510: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b  ta = clientData;
3520: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .}../***********
3530: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3540: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3550: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3560: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a  ********/../*. *
3570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
35a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
35b0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 49 6e 66  ---. *. * MacInf
35c0: 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72  o --. *. *.Retur
35d0: 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 70  n a list of prop
35e0: 65 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 65  erties and value
35f0: 73 20 66 6f 72 20 6d 61 63 4e 61 6d 65 2e 0a 20  s for macName.. 
3600: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a  *. * Results:. *
3610: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20  .A standard Tcl 
3620: 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65  list.. *. * Side
3630: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e   effects:. *.Non
3640: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d  e.. *. *--------
3650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a  -----------. */.
3690: 69 6e 74 20 4d 61 63 49 6e 66 6f 28 54 63 6c 5f  int MacInfo(Tcl_
36a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
36b0: 63 68 61 72 20 2a 6d 61 63 4e 61 6d 65 29 20 7b  char *macName) {
36c0: 0a 20 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  .     return TCL
36d0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d  _OK;.}../*. *---
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3720: 0a 20 2a 0a 20 2a 20 4d 61 63 4c 69 73 74 20 2d  . *. * MacList -
3730: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61  -. *. *.Return a
3740: 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 4d 41 43   list of all MAC
3750: 20 61 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a 20   algorithms. *. 
3760: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20  * Results:. *.A 
3770: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73  standard Tcl lis
3780: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  t.. *. * Side ef
3790: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a  fects:. *.None..
37a0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
37b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37e0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74  --------. */.int
37f0: 20 4d 61 63 4c 69 73 74 28 54 63 6c 5f 49 6e 74   MacList(Tcl_Int
3800: 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20  erp *interp) {. 
3810: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50     Tcl_Obj *objP
3820: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74  tr = Tcl_NewList
3830: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20  Obj(0, NULL);.  
3840: 20 20 69 66 20 28 6f 62 6a 50 74 72 20 3d 3d 20    if (objPtr == 
3850: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20  NULL) {..return 
3860: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
3870: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ..    Tcl_ListOb
3880: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69  jAppendElement(i
3890: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54  nterp, objPtr, T
38a0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
38b0: 22 63 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 20  "cmac", -1));.  
38c0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70    Tcl_ListObjApp
38d0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72  endElement(inter
38e0: 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e  p, objPtr, Tcl_N
38f0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 68 6d 61  ewStringObj("hma
3900: 63 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63  c", -1));.    Tc
3910: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
3920: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a  nterp, objPtr);.
3930: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f      return TCL_O
3940: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  K;.}../*. *-----
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
3990: 2a 0a 20 2a 20 4d 61 63 73 4f 62 6a 43 6d 64 20  *. * MacsObjCmd 
39a0: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20  --. *. *.Return 
39b0: 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61  a list of all va
39c0: 6c 69 64 20 6d 65 73 73 61 67 65 20 61 75 74 68  lid message auth
39d0: 65 6e 74 69 63 61 74 69 6f 6e 20 63 6f 64 65 73  entication codes
39e0: 20 28 4d 41 43 29 2e 0a 20 2a 0a 20 2a 20 52 65   (MAC).. *. * Re
39f0: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e  sults:. *.A stan
3a00: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20  dard Tcl list.. 
3a10: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
3a20: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
3a30: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
3a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a70: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63  ----. */.int Mac
3a80: 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61  sObjCmd(ClientDa
3a90: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54  ta clientData, T
3aa0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
3ab0: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c  p, int objc, Tcl
3ac0: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76  _Obj *const objv
3ad0: 5b 5d 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74  []) {.    dprint
3ae0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20  f("Called");..  
3af0: 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72    /* Clear error
3b00: 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73  s */.    Tcl_Res
3b10: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  etResult(interp)
3b20: 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f  ;.    ERR_clear_
3b30: 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a  error();..    /*
3b40: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f   Validate arg co
3b50: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f  unt */.    if (o
3b60: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74  bjc == 1) {..ret
3b70: 75 72 6e 20 4d 61 63 4c 69 73 74 28 69 6e 74 65  urn MacList(inte
3b80: 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65  rp);..    } else
3b90: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20   if (objc == 2) 
3ba0: 7b 0a 09 72 65 74 75 72 6e 20 4d 61 63 49 6e 66  {..return MacInf
3bb0: 6f 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65  o(interp, Tcl_Ge
3bc0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f  tStringFromObj(o
3bd0: 62 6a 76 5b 31 5d 2c 4e 55 4c 4c 29 29 3b 0a 0a  bjv[1],NULL));..
3be0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63      } else {..Tc
3bf0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
3c00: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
3c10: 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75  "?name?");..retu
3c20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
3c30: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54    }.    return T
3c40: 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 61  CL_OK;..clientDa
3c50: 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b  ta = clientData;
3c60: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .}../***********
3c70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3c80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3c90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3ca0: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a  ********/../*. *
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cf0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 6b 65 79 49 6e  ---. *. * PkeyIn
3d00: 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75  fo --. *. *.Retu
3d10: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f  rn a list of pro
3d20: 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75  perties and valu
3d30: 65 73 20 66 6f 72 20 70 6b 65 79 4e 61 6d 65 2e  es for pkeyName.
3d40: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
3d50: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63   *.A standard Tc
3d60: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69  l list.. *. * Si
3d70: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e  de effects:. *.N
3d80: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  one.. *. *------
3d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
3dd0: 2f 0a 69 6e 74 20 50 6b 65 79 49 6e 66 6f 28 54  /.int PkeyInfo(T
3de0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
3df0: 70 2c 20 63 68 61 72 20 2a 70 6b 65 79 4e 61 6d  p, char *pkeyNam
3e00: 65 29 20 7b 0a 20 20 20 20 20 72 65 74 75 72 6e  e) {.     return
3e10: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20   TCL_OK;.}../*. 
3e20: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
3e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3e60: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 6b 65 79 4c  ----. *. * PkeyL
3e70: 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74  ist --. *. *.Ret
3e80: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c  urn a list of al
3e90: 6c 20 70 75 62 6c 69 63 20 6b 65 79 20 6d 65 74  l public key met
3ea0: 68 6f 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  hods. *. * Resul
3eb0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72  ts:. *.A standar
3ec0: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20  d Tcl list.. *. 
3ed0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
3ee0: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
3ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f30: 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 4c 69  -. */.int PkeyLi
3f40: 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  st(Tcl_Interp *i
3f50: 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c  nterp) {.    Tcl
3f60: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d 20 54  _Obj *objPtr = T
3f70: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c  cl_NewListObj(0,
3f80: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28   NULL);.    if (
3f90: 6f 62 6a 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20  objPtr == NULL) 
3fa0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  {..return TCL_ER
3fb0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ROR;.    }..    
3fc0: 66 6f 72 20 28 73 69 7a 65 5f 74 20 69 20 3d 20  for (size_t i = 
3fd0: 30 3b 20 69 20 3c 20 45 56 50 5f 50 4b 45 59 5f  0; i < EVP_PKEY_
3fe0: 6d 65 74 68 5f 67 65 74 5f 63 6f 75 6e 74 28 29  meth_get_count()
3ff0: 3b 20 69 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20  ; i++) {.       
4000: 20 63 6f 6e 73 74 20 45 56 50 5f 50 4b 45 59 5f   const EVP_PKEY_
4010: 4d 45 54 48 4f 44 20 2a 70 6d 65 74 68 20 3d 20  METHOD *pmeth = 
4020: 45 56 50 5f 50 4b 45 59 5f 6d 65 74 68 5f 67 65  EVP_PKEY_meth_ge
4030: 74 30 28 69 29 3b 0a 20 20 20 20 20 20 20 20 69  t0(i);.        i
4040: 6e 74 20 70 6b 65 79 5f 69 64 2c 20 70 6b 65 79  nt pkey_id, pkey
4050: 5f 66 6c 61 67 73 3b 0a 0a 20 20 20 20 20 20 20  _flags;..       
4060: 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 68 5f 67   EVP_PKEY_meth_g
4070: 65 74 30 5f 69 6e 66 6f 28 26 70 6b 65 79 5f 69  et0_info(&pkey_i
4080: 64 2c 20 26 70 6b 65 79 5f 66 6c 61 67 73 2c 20  d, &pkey_flags, 
4090: 70 6d 65 74 68 29 3b 0a 09 2f 2a 4c 41 50 50 45  pmeth);../*LAPPE
40a0: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f  ND_STR(interp, o
40b0: 62 6a 50 74 72 2c 20 22 6e 61 6d 65 22 2c 20 4f  bjPtr, "name", O
40c0: 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 5f 69  BJ_nid2ln(pkey_i
40d0: 64 29 2c 20 2d 31 29 3b 0a 09 4c 41 50 50 45 4e  d), -1);..LAPPEN
40e0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62  D_STR(interp, ob
40f0: 6a 50 74 72 2c 20 22 74 79 70 65 22 2c 20 70 6b  jPtr, "type", pk
4100: 65 79 5f 66 6c 61 67 73 20 26 20 41 53 4e 31 5f  ey_flags & ASN1_
4110: 50 4b 45 59 5f 44 59 4e 41 4d 49 43 20 3f 20 22  PKEY_DYNAMIC ? "
4120: 45 78 74 65 72 6e 61 6c 22 20 3a 20 22 42 75 69  External" : "Bui
4130: 6c 74 2d 69 6e 22 2c 20 2d 31 29 3b 2a 2f 0a 0a  lt-in", -1);*/..
4140: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65  .Tcl_ListObjAppe
4150: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70  ndElement(interp
4160: 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65  , objPtr, Tcl_Ne
4170: 77 53 74 72 69 6e 67 4f 62 6a 28 4f 42 4a 5f 6e  wStringObj(OBJ_n
4180: 69 64 32 6c 6e 28 70 6b 65 79 5f 69 64 29 2c 20  id2ln(pkey_id), 
4190: 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20  -1));.    }.    
41a0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
41b0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29  (interp, objPtr)
41c0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
41d0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d  _OK;.}../*. *---
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4220: 0a 20 2a 0a 20 2a 20 50 6b 65 79 73 4f 62 6a 43  . *. * PkeysObjC
4230: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75  md --. *. *.Retu
4240: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c  rn a list of all
4250: 20 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 6f   valid hash algo
4260: 72 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 67  rithms or messag
4270: 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a  e digests.. *. *
4280: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
4290: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74  tandard Tcl list
42a0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
42b0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ects:. *.None.. 
42c0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
42d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
42e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
42f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4300: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20  -------. */.int 
4310: 50 6b 65 79 73 4f 62 6a 43 6d 64 28 43 6c 69 65  PkeysObjCmd(Clie
4320: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
4330: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  a, Tcl_Interp *i
4340: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c  nterp, int objc,
4350: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20   Tcl_Obj *const 
4360: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 64 70  objv[]) {.    dp
4370: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b  rintf("Called");
4380: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65  ..    /* Clear e
4390: 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c  rrors */.    Tcl
43a0: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74  _ResetResult(int
43b0: 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c  erp);.    ERR_cl
43c0: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20  ear_error();..  
43d0: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72    /* Validate ar
43e0: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69  g count */.    i
43f0: 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a  f (objc == 1) {.
4400: 09 72 65 74 75 72 6e 20 50 6b 65 79 4c 69 73 74  .return PkeyList
4410: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d  (interp);..    }
4420: 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d   else if (objc =
4430: 3d 20 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 50  = 2) {..return P
4440: 6b 65 79 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20  keyInfo(interp, 
4450: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f  Tcl_GetStringFro
4460: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 4e 55 4c  mObj(objv[1],NUL
4470: 4c 29 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65  L));..    } else
4480: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d   {..Tcl_WrongNum
4490: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
44a0: 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b  objv, "?name?");
44b0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
44c0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  OR;.    }.    re
44d0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c  turn TCL_OK;..cl
44e0: 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e  ientData = clien
44f0: 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a  tData;.}../*****
4500: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4510: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4520: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4530: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a  **************/.
4540: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
4550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
4590: 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 20  ProtocolsObjCmd 
45a0: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20  --. *. *.Return 
45b0: 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 61 76  a list of the av
45c0: 61 69 6c 61 62 6c 65 20 6f 72 20 73 75 70 70 6f  ailable or suppo
45d0: 72 74 65 64 20 53 53 4c 2f 54 4c 53 20 70 72 6f  rted SSL/TLS pro
45e0: 74 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 2a 20 52 65  tocols.. *. * Re
45f0: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e  sults:. *.A stan
4600: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20  dard Tcl list.. 
4610: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
4620: 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a  s:. *.none. *. *
4630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4670: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69  ---. */.static i
4680: 6e 74 0a 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43  nt.ProtocolsObjC
4690: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  md(ClientData cl
46a0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e  ientData, Tcl_In
46b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
46c0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20  t objc, Tcl_Obj 
46d0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b  *const objv[]) {
46e0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62  .    Tcl_Obj *ob
46f0: 6a 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e  jPtr;..    dprin
4700: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20  tf("Called");.. 
4710: 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f     /* Clear erro
4720: 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65  rs */.    Tcl_Re
4730: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70  setResult(interp
4740: 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72  );.    ERR_clear
4750: 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f  _error();..    /
4760: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63  * Validate arg c
4770: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28  ount */.    if (
4780: 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a 09 54 63  objc != 1) {..Tc
4790: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
47a0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
47b0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54  NULL);..return T
47c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
47d0: 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 61 6c 6c  .    /* List all
47e0: 20 70 72 6f 74 6f 63 6f 6c 73 20 2a 2f 0a 20 20   protocols */.  
47f0: 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e    objPtr = Tcl_N
4800: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c  ewListObj(0, NUL
4810: 4c 29 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 50  L);.    if (objP
4820: 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72  tr == NULL) {..r
4830: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
4840: 0a 20 20 20 20 7d 0a 23 69 66 20 4f 50 45 4e 53  .    }.#if OPENS
4850: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45  SL_VERSION_NUMBE
4860: 52 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c 20  R < 0x10100000L 
4870: 26 26 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53  && !defined(NO_S
4880: 53 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 64  SL2) && !defined
4890: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32  (OPENSSL_NO_SSL2
48a0: 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62  ).    Tcl_ListOb
48b0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69  jAppendElement(i
48c0: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54  nterp, objPtr, T
48d0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
48e0: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53  protocols[TLS_SS
48f0: 4c 32 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69  L2], -1));.#endi
4900: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e  f.#if !defined(N
4910: 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 69  O_SSL3) && !defi
4920: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53  ned(OPENSSL_NO_S
4930: 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 64  SL3) && !defined
4940: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33  (OPENSSL_NO_SSL3
4950: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c  _METHOD).    Tcl
4960: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
4970: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62  ement(interp, ob
4980: 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72  jPtr, Tcl_NewStr
4990: 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73  ingObj(protocols
49a0: 5b 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d 31 29 29  [TLS_SSL3], -1))
49b0: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65  ;.#endif.#if !de
49c0: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26  fined(NO_TLS1) &
49d0: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53  & !defined(OPENS
49e0: 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21  SL_NO_TLS1) && !
49f0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f  defined(OPENSSL_
4a00: 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a  NO_TLS1_METHOD).
4a10: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
4a20: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
4a30: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c  erp, objPtr, Tcl
4a40: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72  _NewStringObj(pr
4a50: 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31  otocols[TLS_TLS1
4a60: 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a  ], -1));.#endif.
4a70: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f  #if !defined(NO_
4a80: 54 4c 53 31 5f 31 29 20 26 26 20 21 64 65 66 69  TLS1_1) && !defi
4a90: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54  ned(OPENSSL_NO_T
4aa0: 4c 53 31 5f 31 29 20 26 26 20 21 64 65 66 69 6e  LS1_1) && !defin
4ab0: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c  ed(OPENSSL_NO_TL
4ac0: 53 31 5f 31 5f 4d 45 54 48 4f 44 29 0a 20 20 20  S1_1_METHOD).   
4ad0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65   Tcl_ListObjAppe
4ae0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70  ndElement(interp
4af0: 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65  , objPtr, Tcl_Ne
4b00: 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f  wStringObj(proto
4b10: 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 31 5d  cols[TLS_TLS1_1]
4b20: 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23  , -1));.#endif.#
4b30: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54  if !defined(NO_T
4b40: 4c 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e  LS1_2) && !defin
4b50: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c  ed(OPENSSL_NO_TL
4b60: 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65  S1_2) && !define
4b70: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53  d(OPENSSL_NO_TLS
4b80: 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20  1_2_METHOD).    
4b90: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
4ba0: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
4bb0: 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77   objPtr, Tcl_New
4bc0: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63  StringObj(protoc
4bd0: 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 32 5d 2c  ols[TLS_TLS1_2],
4be0: 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69   -1));.#endif.#i
4bf0: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c  f !defined(NO_TL
4c00: 53 31 5f 33 29 20 26 26 20 21 64 65 66 69 6e 65  S1_3) && !define
4c10: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53  d(OPENSSL_NO_TLS
4c20: 31 5f 33 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73  1_3).    Tcl_Lis
4c30: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
4c40: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72  t(interp, objPtr
4c50: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
4c60: 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53  bj(protocols[TLS
4c70: 5f 54 4c 53 31 5f 33 5d 2c 20 2d 31 29 29 3b 0a  _TLS1_3], -1));.
4c80: 23 65 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f 53  #endif.    Tcl_S
4c90: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
4ca0: 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20  rp, objPtr);.   
4cb0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
4cc0: 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c  .clientData = cl
4cd0: 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a  ientData;.}../**
4ce0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4cf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4d00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4d10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4d20: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  */../*. *-------
4d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
4d70: 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64   * VersionObjCmd
4d80: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e   --. *. *.Return
4d90: 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 20 74   a string with t
4da0: 68 65 20 4f 70 65 6e 53 53 4c 20 76 65 72 73 69  he OpenSSL versi
4db0: 6f 6e 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a 20 52  on info.. *. * R
4dc0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61  esults:. *.A sta
4dd0: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74  ndard Tcl result
4de0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
4df0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ects:. *.None.. 
4e00: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
4e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4e40: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74  -------. */.stat
4e50: 69 63 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f 62  ic int.VersionOb
4e60: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20  jCmd(ClientData 
4e70: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f  clientData, Tcl_
4e80: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
4e90: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
4ea0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29  j *const objv[])
4eb0: 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a   {.    Tcl_Obj *
4ec0: 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 64 70 72  objPtr;..    dpr
4ed0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a  intf("Called");.
4ee0: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65  .    /* Validate
4ef0: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20   arg count */.  
4f00: 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 29    if (objc != 1)
4f10: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d   {..Tcl_WrongNum
4f20: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
4f30: 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65  objv, NULL);..re
4f40: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
4f50: 20 20 20 20 7d 0a 0a 20 20 20 20 6f 62 6a 50 74      }..    objPt
4f60: 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  r = Tcl_NewStrin
4f70: 67 4f 62 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 52  gObj(OPENSSL_VER
4f80: 53 49 4f 4e 5f 54 45 58 54 2c 20 2d 31 29 3b 0a  SION_TEXT, -1);.
4f90: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65      Tcl_SetObjRe
4fa0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a  sult(interp, obj
4fb0: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  Ptr);.    return
4fc0: 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e 74   TCL_OK;..client
4fd0: 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74  Data = clientDat
4fe0: 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a  a;.}../*********
4ff0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5000: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a  **********/../*.
5030: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
5040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5070: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f  -----. *. * Tls_
5080: 49 6e 66 6f 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a  InfoCommands --.
5090: 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 69 6e 66   *. *.Create inf
50a0: 6f 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a  o commands. *. *
50b0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c   Returns:. *.TCL
50c0: 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52  _OK or TCL_ERROR
50d0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65  . *. * Side effe
50e0: 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20  cts:. *.Creates 
50f0: 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d  commands. *. *--
5100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5140: 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 49 6e  -. */.int Tls_In
5150: 66 6f 43 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f 49  foCommands(Tcl_I
5160: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b  nterp *interp) {
5170: 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45  ..#if OPENSSL_VE
5180: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30  RSION_NUMBER < 0
5190: 78 31 30 31 30 30 30 30 30 4c 0a 20 20 20 20 4f  x10100000L.    O
51a0: 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 63  penSSL_add_all_c
51b0: 69 70 68 65 72 73 28 29 3b 0a 20 20 20 20 4f 70  iphers();.    Op
51c0: 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 64 69  enSSL_add_all_di
51d0: 67 65 73 74 73 28 29 3b 0a 20 20 20 20 4f 70 65  gests();.    Ope
51e0: 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 61 6c 67  nSSL_add_all_alg
51f0: 6f 72 69 74 68 6d 73 28 29 3b 0a 23 65 6e 64 69  orithms();.#endi
5200: 66 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74  f..    Tcl_Creat
5210: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65  eObjCommand(inte
5220: 72 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72  rp, "tls::cipher
5230: 22 2c 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 2c  ", CipherObjCmd,
5240: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c   (ClientData) 0,
5250: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50   (Tcl_CmdDeleteP
5260: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  roc *) NULL);.  
5270: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
5280: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
5290: 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43  tls::ciphers", C
52a0: 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 20 28 43  iphersObjCmd, (C
52b0: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54  lientData) 0, (T
52c0: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63  cl_CmdDeleteProc
52d0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54   *) NULL);.    T
52e0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d  cl_CreateObjComm
52f0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73  and(interp, "tls
5300: 3a 3a 64 69 67 65 73 74 73 22 2c 20 44 69 67 65  ::digests", Dige
5310: 73 74 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65  stsObjCmd, (Clie
5320: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f  ntData) 0, (Tcl_
5330: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29  CmdDeleteProc *)
5340: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f   NULL);.    Tcl_
5350: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
5360: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d  (interp, "tls::m
5370: 61 63 73 22 2c 20 4d 61 63 73 4f 62 6a 43 6d 64  acs", MacsObjCmd
5380: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30  , (ClientData) 0
5390: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65  , (Tcl_CmdDelete
53a0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20  Proc *) NULL);. 
53b0: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a     Tcl_CreateObj
53c0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
53d0: 22 74 6c 73 3a 3a 70 6b 65 79 73 22 2c 20 50 6b  "tls::pkeys", Pk
53e0: 65 79 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65  eysObjCmd, (Clie
53f0: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f  ntData) 0, (Tcl_
5400: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29  CmdDeleteProc *)
5410: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f   NULL);.    Tcl_
5420: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64  CreateObjCommand
5430: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70  (interp, "tls::p
5440: 72 6f 74 6f 63 6f 6c 73 22 2c 20 50 72 6f 74 6f  rotocols", Proto
5450: 63 6f 6c 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69  colsObjCmd, (Cli
5460: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c  entData) 0, (Tcl
5470: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a  _CmdDeleteProc *
5480: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c  ) NULL);.    Tcl
5490: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e  _CreateObjComman
54a0: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a  d(interp, "tls::
54b0: 76 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f  version", Versio
54c0: 6e 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74  nObjCmd, (Client
54d0: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d  Data) 0, (Tcl_Cm
54e0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e  dDeleteProc *) N
54f0: 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  ULL);.    return
5500: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a                  TCL_OK;.}.