TclTLS
Hex Artifact Content
Login
HomeTimelineDownloadBrowse SourceBranchesTagsTicketsWiki
Download

Artifact 95753c0faa25d6ed8558dabb0da5ac05875b7e101d6761f19c448b7d5d6db451:

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 45 56 50  tName) {.    EVP
2a40: 5f 4d 44 20 2a 6d 64 3b 0a 20 20 20 20 54 63 6c  _MD *md;.    Tcl
2a50: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 2c 20 2a 6c  _Obj *objPtr, *l
2a60: 69 73 74 50 74 72 3b 0a 20 20 20 20 75 6e 73 69  istPtr;.    unsi
2a70: 67 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73 3b  gned long flags;
2a80: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 6d 65 73  ..    /* Get mes
2a90: 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 20  sage digest */. 
2aa0: 20 20 20 6d 64 20 3d 20 45 56 50 5f 67 65 74 5f     md = EVP_get_
2ab0: 64 69 67 65 73 74 62 79 6e 61 6d 65 28 64 69 67  digestbyname(dig
2ac0: 65 73 74 4e 61 6d 65 29 3b 0a 0a 20 20 20 20 69  estName);..    i
2ad0: 66 20 28 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b  f (md == NULL) {
2ae0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
2af0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61  lt(interp, "Inva
2b00: 6c 69 64 20 64 69 67 65 73 74 20 5c 22 22 2c 20  lid digest \"", 
2b10: 64 69 67 65 73 74 4e 61 6d 65 2c 20 22 5c 22 22  digestName, "\""
2b20: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e  , NULL);..return
2b30: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
2b40: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72  }..    /* Get pr
2b50: 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20  operties */.    
2b60: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77  objPtr = Tcl_New
2b70: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29  ListObj(0, NULL)
2b80: 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 50 74 72  ;.    if (objPtr
2b90: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74   == NULL) {..ret
2ba0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
2bb0: 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44     }.    LAPPEND
2bc0: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _STR(interp, obj
2bd0: 50 74 72 2c 20 22 6e 61 6d 65 22 2c 20 45 56 50  Ptr, "name", EVP
2be0: 5f 4d 44 5f 6e 61 6d 65 28 6d 64 29 2c 20 2d 31  _MD_name(md), -1
2bf0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53  );.    LAPPEND_S
2c00: 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  TR(interp, objPt
2c10: 72 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22  r, "description"
2c20: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c  , "", -1);.    L
2c30: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72  APPEND_INT(inter
2c40: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 73 69 7a 65  p, objPtr, "size
2c50: 22 2c 20 45 56 50 5f 4d 44 5f 73 69 7a 65 28 6d  ", EVP_MD_size(m
2c60: 64 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44  d));.    LAPPEND
2c70: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _INT(interp, obj
2c80: 50 74 72 2c 20 22 62 6c 6f 63 6b 5f 73 69 7a 65  Ptr, "block_size
2c90: 22 2c 20 45 56 50 5f 4d 44 5f 62 6c 6f 63 6b 5f  ", EVP_MD_block_
2ca0: 73 69 7a 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c  size(md));.    L
2cb0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
2cc0: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 70 72 6f 76  p, objPtr, "prov
2cd0: 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a  ider", "", -1);.
2ce0: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28      LAPPEND_STR(
2cf0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20  interp, objPtr, 
2d00: 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32  "type", OBJ_nid2
2d10: 6c 6e 28 45 56 50 5f 4d 44 5f 74 79 70 65 28 6d  ln(EVP_MD_type(m
2d20: 64 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41  d)), -1);.    LA
2d30: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70  PPEND_STR(interp
2d40: 2c 20 6f 62 6a 50 74 72 2c 20 22 70 6b 65 79 5f  , objPtr, "pkey_
2d50: 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c  type", OBJ_nid2l
2d60: 6e 28 45 56 50 5f 4d 44 5f 70 6b 65 79 5f 74 79  n(EVP_MD_pkey_ty
2d70: 70 65 28 6d 64 29 29 2c 20 2d 31 29 3b 0a 20 20  pe(md)), -1);.  
2d80: 20 20 66 6c 61 67 73 20 3d 20 45 56 50 5f 4d 44    flags = EVP_MD
2d90: 5f 66 6c 61 67 73 28 6d 64 29 3b 0a 0a 20 20 20  _flags(md);..   
2da0: 20 2f 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20   /* Flags */.   
2db0: 20 6c 69 73 74 50 74 72 20 3d 20 54 63 6c 5f 4e   listPtr = Tcl_N
2dc0: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c  ewListObj(0, NUL
2dd0: 4c 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f  L);.    LAPPEND_
2de0: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73  BOOL(interp, lis
2df0: 74 50 74 72 2c 20 22 4f 6e 65 2d 73 68 6f 74 22  tPtr, "One-shot"
2e00: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44  , flags & EVP_MD
2e10: 5f 46 4c 41 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a  _FLAG_ONESHOT);.
2e20: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c      LAPPEND_BOOL
2e30: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72  (interp, listPtr
2e40: 2c 20 22 58 4f 46 22 2c 20 66 6c 61 67 73 20 26  , "XOF", flags &
2e50: 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46   EVP_MD_FLAG_XOF
2e60: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42  );.    LAPPEND_B
2e70: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74  OOL(interp, list
2e80: 50 74 72 2c 20 22 44 69 67 65 73 74 41 6c 67 6f  Ptr, "DigestAlgo
2e90: 72 69 74 68 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66  rithmId_NULL", f
2ea0: 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c  lags & EVP_MD_FL
2eb0: 41 47 5f 44 49 47 41 4c 47 49 44 5f 4e 55 4c 4c  AG_DIGALGID_NULL
2ec0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42  );.    LAPPEND_B
2ed0: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74  OOL(interp, list
2ee0: 50 74 72 2c 20 22 44 69 67 65 73 74 41 6c 67 6f  Ptr, "DigestAlgo
2ef0: 72 69 74 68 6d 49 64 5f 41 62 73 63 65 6e 74 22  rithmId_Abscent"
2f00: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44  , flags & EVP_MD
2f10: 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 41  _FLAG_DIGALGID_A
2f20: 42 53 45 4e 54 29 3b 0a 20 20 20 20 4c 41 50 50  BSENT);.    LAPP
2f30: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c  END_BOOL(interp,
2f40: 20 6c 69 73 74 50 74 72 2c 20 22 44 69 67 65 73   listPtr, "Diges
2f50: 74 41 6c 67 6f 72 69 74 68 6d 49 64 5f 43 75 73  tAlgorithmId_Cus
2f60: 74 6f 6d 22 2c 20 66 6c 61 67 73 20 26 20 45 56  tom", flags & EV
2f70: 50 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47  P_MD_FLAG_DIGALG
2f80: 49 44 5f 43 55 53 54 4f 4d 29 3b 0a 20 20 20 20  ID_CUSTOM);.    
2f90: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74  LAPPEND_BOOL(int
2fa0: 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 46  erp, listPtr, "F
2fb0: 49 50 53 22 2c 20 66 6c 61 67 73 20 26 20 45 56  IPS", flags & EV
2fc0: 50 5f 4d 44 5f 46 4c 41 47 5f 46 49 50 53 29 3b  P_MD_FLAG_FIPS);
2fd0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a  .    LAPPEND_OBJ
2fe0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c  (interp, objPtr,
2ff0: 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 50 74   "flags", listPt
3000: 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74  r);..    Tcl_Set
3010: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
3020: 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72  , objPtr);.    r
3030: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a  eturn TCL_OK;.}.
3040: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
3090: 44 69 67 65 73 74 4c 69 73 74 20 2d 2d 0a 20 2a  DigestList --. *
30a0: 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73  . *.Return a lis
30b0: 74 20 6f 66 20 61 6c 6c 20 64 69 67 65 73 74 20  t of all digest 
30c0: 61 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a 20 2a  algorithms. *. *
30d0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
30e0: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74  tandard Tcl list
30f0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
3100: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ects:. *.None.. 
3110: 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3150: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20  -------. */.int 
3160: 44 69 67 65 73 74 4c 69 73 74 28 54 63 6c 5f 49  DigestList(Tcl_I
3170: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b  nterp *interp) {
3180: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62  .    Tcl_Obj *ob
3190: 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69  jPtr = Tcl_NewLi
31a0: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a  stObj(0, NULL);.
31b0: 20 20 20 20 69 66 20 28 6f 62 6a 50 74 72 20 3d      if (objPtr =
31c0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72  = NULL) {..retur
31d0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
31e0: 20 7d 0a 0a 20 20 20 20 4f 42 4a 5f 4e 41 4d 45   }..    OBJ_NAME
31f0: 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 4d 45  _do_all(OBJ_NAME
3200: 5f 54 59 50 45 5f 4d 44 5f 4d 45 54 48 2c 20 4e  _TYPE_MD_METH, N
3210: 61 6d 65 73 43 61 6c 6c 62 61 63 6b 2c 20 28 76  amesCallback, (v
3220: 6f 69 64 20 2a 29 20 6f 62 6a 50 74 72 29 3b 0a  oid *) objPtr);.
3230: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65      Tcl_SetObjRe
3240: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a  sult(interp, obj
3250: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  Ptr);.    return
3260: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20   TCL_OK;.}../*. 
3270: 2a 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 2d 2d  ----------------
3290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
32b0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73  ----. *. * Diges
32c0: 74 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20  tsObjCmd --. *. 
32d0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20  *.Return a list 
32e0: 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 68 61 73  of all valid has
32f0: 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 6f 72 20  h algorithms or 
3300: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 73 2e  message digests.
3310: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
3320: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63   *.A standard Tc
3330: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69  l list.. *. * Si
3340: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e  de effects:. *.N
3350: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  one.. *. *------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
33a0: 2f 0a 69 6e 74 20 44 69 67 65 73 74 73 4f 62 6a  /.int DigestsObj
33b0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63  Cmd(ClientData c
33c0: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49  lientData, Tcl_I
33d0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69  nterp *interp, i
33e0: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a  nt objc, Tcl_Obj
33f0: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20   *const objv[]) 
3400: 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43  {.    dprintf("C
3410: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a  alled");..    /*
3420: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f   Validate arg co
3430: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f  unt */.    if (o
3440: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74  bjc == 1) {..ret
3450: 75 72 6e 20 44 69 67 65 73 74 4c 69 73 74 28 69  urn DigestList(i
3460: 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65  nterp);..    } e
3470: 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20  lse if (objc == 
3480: 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69 67  2) {..return Dig
3490: 65 73 74 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20  estInfo(interp, 
34a0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f  Tcl_GetStringFro
34b0: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 4e 55 4c  mObj(objv[1],NUL
34c0: 4c 29 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65  L));..    } else
34d0: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d   {..Tcl_WrongNum
34e0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20  Args(interp, 1, 
34f0: 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b  objv, "?name?");
3500: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
3510: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  OR;.    }.    re
3520: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c  turn TCL_OK;..cl
3530: 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e  ientData = clien
3540: 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a  tData;.}../*****
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 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3570: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3580: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a  **************/.
3590: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
35c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
35d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
35e0: 4d 61 63 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a  MacInfo --. *. *
35f0: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f  .Return a list o
3600: 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64  f properties and
3610: 20 76 61 6c 75 65 73 20 66 6f 72 20 6d 61 63 4e   values for macN
3620: 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  ame.. *. * Resul
3630: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72  ts:. *.A standar
3640: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20  d Tcl list.. *. 
3650: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
3660: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
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 2d 2d 2d 2d 2d  ----------------
3690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36b0: 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 49 6e 66  -. */.int MacInf
36c0: 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  o(Tcl_Interp *in
36d0: 74 65 72 70 2c 20 63 68 61 72 20 2a 6d 61 63 4e  terp, char *macN
36e0: 61 6d 65 29 20 7b 0a 20 20 20 20 69 66 20 28 73  ame) {.    if (s
36f0: 74 72 63 6d 70 28 6d 61 63 4e 61 6d 65 2c 20 22  trcmp(macName, "
3700: 63 6d 61 63 22 29 20 21 3d 20 30 20 26 26 20 73  cmac") != 0 && s
3710: 74 72 63 6d 70 28 6d 61 63 4e 61 6d 65 2c 20 22  trcmp(macName, "
3720: 68 6d 61 63 22 29 20 21 3d 20 30 29 20 7b 0a 09  hmac") != 0) {..
3730: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
3740: 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c 69  (interp, "Invali
3750: 64 20 4d 41 43 20 5c 22 22 2c 20 6d 61 63 4e 61  d MAC \"", macNa
3760: 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b  me, "\"", NULL);
3770: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
3780: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  OR;.    }..    /
3790: 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 73  * Get properties
37a0: 20 2a 2f 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d   */.    objPtr =
37b0: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28   Tcl_NewListObj(
37c0: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66  0, NULL);.    if
37d0: 20 28 6f 62 6a 50 74 72 20 3d 3d 20 4e 55 4c 4c   (objPtr == NULL
37e0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  ) {..return TCL_
37f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20  ERROR;.    }.   
3800: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74   LAPPEND_STR(int
3810: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 6e 61  erp, objPtr, "na
3820: 6d 65 22 2c 20 6d 61 63 4e 61 6d 65 2c 20 2d 31  me", macName, -1
3830: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53  );.    LAPPEND_S
3840: 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74  TR(interp, objPt
3850: 72 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22  r, "description"
3860: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c  , "", -1);.    L
3870: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
3880: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 70 72 6f 76  p, objPtr, "prov
3890: 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a  ider", "", -1);.
38a0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52  .    Tcl_SetObjR
38b0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62  esult(interp, ob
38c0: 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72  jPtr);.    retur
38d0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
38e0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
38f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3920: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 4c  -----. *. * MacL
3930: 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74  ist --. *. *.Ret
3940: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c  urn a list of al
3950: 6c 20 4d 41 43 20 61 6c 67 6f 72 69 74 68 6d 73  l MAC algorithms
3960: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
3970: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63   *.A standard Tc
3980: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69  l list.. *. * Si
3990: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e  de effects:. *.N
39a0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  one.. *. *------
39b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
39c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
39e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
39f0: 2f 0a 69 6e 74 20 4d 61 63 4c 69 73 74 28 54 63  /.int MacList(Tc
3a00: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
3a10: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20  ) {.    Tcl_Obj 
3a20: 2a 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65  *objPtr = Tcl_Ne
3a30: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c  wListObj(0, NULL
3a40: 29 3b 0a 20 20 20 20 69 66 20 28 6f 62 6a 50 74  );.    if (objPt
3a50: 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65  r == NULL) {..re
3a60: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
3a70: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c      }..    Tcl_L
3a80: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d  istObjAppendElem
3a90: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50  ent(interp, objP
3aa0: 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  tr, Tcl_NewStrin
3ab0: 67 4f 62 6a 28 22 63 6d 61 63 22 2c 20 2d 31 29  gObj("cmac", -1)
3ac0: 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f  );.    Tcl_ListO
3ad0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
3ae0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20  interp, objPtr, 
3af0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
3b00: 28 22 68 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20  ("hmac", -1));. 
3b10: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
3b20: 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50  ult(interp, objP
3b30: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  tr);.    return 
3b40: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a  TCL_OK;.}../*. *
3b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b90: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 73 4f 62  ---. *. * MacsOb
3ba0: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65  jCmd --. *. *.Re
3bb0: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61  turn a list of a
3bc0: 6c 6c 20 76 61 6c 69 64 20 6d 65 73 73 61 67 65  ll valid message
3bd0: 20 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20   authentication 
3be0: 63 6f 64 65 73 20 28 4d 41 43 29 2e 0a 20 2a 0a  codes (MAC).. *.
3bf0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41   * Results:. *.A
3c00: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69   standard Tcl li
3c10: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  st.. *. * Side e
3c20: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e  ffects:. *.None.
3c30: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *. *----------
3c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e  ---------. */.in
3c80: 74 20 4d 61 63 73 4f 62 6a 43 6d 64 28 43 6c 69  t MacsObjCmd(Cli
3c90: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61  entData clientDa
3ca0: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ta, Tcl_Interp *
3cb0: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63  interp, int objc
3cc0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74  , Tcl_Obj *const
3cd0: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 64   objv[]) {.    d
3ce0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29  printf("Called")
3cf0: 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20  ;..    /* Clear 
3d00: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63  errors */.    Tc
3d10: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e  l_ResetResult(in
3d20: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63  terp);.    ERR_c
3d30: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20  lear_error();.. 
3d40: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61     /* Validate a
3d50: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20  rg count */.    
3d60: 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b  if (objc == 1) {
3d70: 0a 09 72 65 74 75 72 6e 20 4d 61 63 4c 69 73 74  ..return MacList
3d80: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d  (interp);..    }
3d90: 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d   else if (objc =
3da0: 3d 20 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 4d  = 2) {..return M
3db0: 61 63 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 54  acInfo(interp, T
3dc0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d  cl_GetStringFrom
3dd0: 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 4e 55 4c 4c  Obj(objv[1],NULL
3de0: 29 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20  ));..    } else 
3df0: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41  {..Tcl_WrongNumA
3e00: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
3e10: 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a  bjv, "?name?");.
3e20: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
3e30: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  R;.    }.    ret
3e40: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69  urn TCL_OK;..cli
3e50: 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74  entData = client
3e60: 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a  Data;.}../******
3e70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3e80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3e90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3ea0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a  *************/..
3eb0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
3ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ef0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50  --------. *. * P
3f00: 6b 65 79 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a  keyInfo --. *. *
3f10: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f  .Return a list o
3f20: 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64  f properties and
3f30: 20 76 61 6c 75 65 73 20 66 6f 72 20 70 6b 65 79   values for pkey
3f40: 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  Name.. *. * Resu
3f50: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61  lts:. *.A standa
3f60: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a  rd Tcl list.. *.
3f70: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
3f80: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d  . *.None.. *. *-
3f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3fd0: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 49  --. */.int PkeyI
3fe0: 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  nfo(Tcl_Interp *
3ff0: 69 6e 74 65 72 70 2c 20 63 68 61 72 20 2a 70 6b  interp, char *pk
4000: 65 79 4e 61 6d 65 29 20 7b 0a 20 20 20 20 54 63  eyName) {.    Tc
4010: 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 20  l_Obj *objPtr;. 
4020: 20 20 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65     EVP_PKEY *pke
4030: 79 20 3d 20 4e 55 4c 4c 3b 0a 0a 2f 2a 20 49 6e  y = NULL;../* In
4040: 20 77 6f 72 6b 20 2a 2f 0a 20 20 20 20 69 66 20   work */.    if 
4050: 28 70 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 20 7b  (pkey == NULL) {
4060: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
4070: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61  lt(interp, "Inva
4080: 6c 69 64 20 70 75 62 6c 69 63 20 6b 65 79 20 6d  lid public key m
4090: 65 74 68 6f 64 20 5c 22 22 2c 20 70 6b 65 79 4e  ethod \"", pkeyN
40a0: 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29  ame, "\"", NULL)
40b0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  ;..return TCL_ER
40c0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  ROR;.    }..    
40d0: 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 65  /* Get propertie
40e0: 73 20 2a 2f 0a 20 20 20 20 6f 62 6a 50 74 72 20  s */.    objPtr 
40f0: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a  = Tcl_NewListObj
4100: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69  (0, NULL);.    i
4110: 66 20 28 6f 62 6a 50 74 72 20 3d 3d 20 4e 55 4c  f (objPtr == NUL
4120: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c  L) {..return TCL
4130: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20  _ERROR;.    }.  
4140: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e    LAPPEND_STR(in
4150: 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 6e  terp, objPtr, "n
4160: 61 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e  ame", OBJ_nid2ln
4170: 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b 65  (EVP_PKEY_id(pke
4180: 79 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41  y)), -1);.    LA
4190: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70  PPEND_STR(interp
41a0: 2c 20 6f 62 6a 50 74 72 2c 20 22 64 65 73 63 72  , objPtr, "descr
41b0: 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20 2d 31 29  iption", "", -1)
41c0: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54  ;.    LAPPEND_ST
41d0: 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72  R(interp, objPtr
41e0: 2c 20 22 62 61 73 65 49 64 22 2c 20 4f 42 4a 5f  , "baseId", OBJ_
41f0: 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f  nid2ln(EVP_PKEY_
4200: 62 61 73 65 5f 69 64 28 70 6b 65 79 29 29 2c 20  base_id(pkey)), 
4210: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44  -1);.    LAPPEND
4220: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _STR(interp, obj
4230: 50 74 72 2c 20 22 70 72 6f 76 69 64 65 72 22 2c  Ptr, "provider",
4240: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41   "", -1);.    LA
4250: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70  PPEND_STR(interp
4260: 2c 20 6f 62 6a 50 74 72 2c 20 22 74 79 70 65 22  , objPtr, "type"
4270: 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50  , OBJ_nid2ln(EVP
4280: 5f 50 4b 45 59 5f 74 79 70 65 28 45 56 50 5f 50  _PKEY_type(EVP_P
4290: 4b 45 59 5f 69 64 28 70 6b 65 79 29 29 29 2c 20  KEY_id(pkey))), 
42a0: 2d 31 29 3b 0a 0a 20 20 20 20 4c 41 50 50 45 4e  -1);..    LAPPEN
42b0: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62  D_INT(interp, ob
42c0: 6a 50 74 72 2c 20 22 73 69 7a 65 22 2c 20 45 56  jPtr, "size", EV
42d0: 50 5f 50 4b 45 59 5f 73 69 7a 65 28 70 6b 65 79  P_PKEY_size(pkey
42e0: 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f  ));.    LAPPEND_
42f0: 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50  INT(interp, objP
4300: 74 72 2c 20 22 62 69 74 73 22 2c 20 45 56 50 5f  tr, "bits", EVP_
4310: 50 4b 45 59 5f 62 69 74 73 28 70 6b 65 79 29 29  PKEY_bits(pkey))
4320: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e  ;.    LAPPEND_IN
4330: 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72  T(interp, objPtr
4340: 2c 20 22 73 65 63 75 72 69 74 79 5f 62 69 74 73  , "security_bits
4350: 22 2c 20 45 56 50 5f 50 4b 45 59 5f 73 65 63 75  ", EVP_PKEY_secu
4360: 72 69 74 79 5f 62 69 74 73 28 70 6b 65 79 29 29  rity_bits(pkey))
4370: 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  ;..    Tcl_SetOb
4380: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
4390: 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74  objPtr);.    ret
43a0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
43b0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *. *------------
43c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
43d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
43e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
43f0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 6b  -------. *. * Pk
4400: 65 79 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09  eyList --. *. *.
4410: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66  Return a list of
4420: 20 61 6c 6c 20 70 75 62 6c 69 63 20 6b 65 79 20   all public key 
4430: 6d 65 74 68 6f 64 73 0a 20 2a 0a 20 2a 20 52 65  methods. *. * Re
4440: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e  sults:. *.A stan
4450: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20  dard Tcl list.. 
4460: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
4470: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
4480: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
4490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
44c0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65  ----. */.int Pke
44d0: 79 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70  yList(Tcl_Interp
44e0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20   *interp) {.    
44f0: 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20  Tcl_Obj *objPtr 
4500: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a  = Tcl_NewListObj
4510: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69  (0, NULL);.    i
4520: 66 20 28 6f 62 6a 50 74 72 20 3d 3d 20 4e 55 4c  f (objPtr == NUL
4530: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c  L) {..return TCL
4540: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20  _ERROR;.    }.. 
4550: 20 20 20 66 6f 72 20 28 73 69 7a 65 5f 74 20 69     for (size_t i
4560: 20 3d 20 30 3b 20 69 20 3c 20 45 56 50 5f 50 4b   = 0; i < EVP_PK
4570: 45 59 5f 6d 65 74 68 5f 67 65 74 5f 63 6f 75 6e  EY_meth_get_coun
4580: 74 28 29 3b 20 69 2b 2b 29 20 7b 0a 20 20 20 20  t(); i++) {.    
4590: 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 50 4b      const EVP_PK
45a0: 45 59 5f 4d 45 54 48 4f 44 20 2a 70 6d 65 74 68  EY_METHOD *pmeth
45b0: 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 68   = EVP_PKEY_meth
45c0: 5f 67 65 74 30 28 69 29 3b 0a 20 20 20 20 20 20  _get0(i);.      
45d0: 20 20 69 6e 74 20 70 6b 65 79 5f 69 64 2c 20 70    int pkey_id, p
45e0: 6b 65 79 5f 66 6c 61 67 73 3b 0a 0a 20 20 20 20  key_flags;..    
45f0: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74      EVP_PKEY_met
4600: 68 5f 67 65 74 30 5f 69 6e 66 6f 28 26 70 6b 65  h_get0_info(&pke
4610: 79 5f 69 64 2c 20 26 70 6b 65 79 5f 66 6c 61 67  y_id, &pkey_flag
4620: 73 2c 20 70 6d 65 74 68 29 3b 0a 09 2f 2a 4c 41  s, pmeth);../*LA
4630: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70  PPEND_STR(interp
4640: 2c 20 6f 62 6a 50 74 72 2c 20 22 6e 61 6d 65 22  , objPtr, "name"
4650: 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65  , OBJ_nid2ln(pke
4660: 79 5f 69 64 29 2c 20 2d 31 29 3b 0a 09 4c 41 50  y_id), -1);..LAP
4670: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c  PEND_STR(interp,
4680: 20 6f 62 6a 50 74 72 2c 20 22 74 79 70 65 22 2c   objPtr, "type",
4690: 20 70 6b 65 79 5f 66 6c 61 67 73 20 26 20 41 53   pkey_flags & AS
46a0: 4e 31 5f 50 4b 45 59 5f 44 59 4e 41 4d 49 43 20  N1_PKEY_DYNAMIC 
46b0: 3f 20 22 45 78 74 65 72 6e 61 6c 22 20 3a 20 22  ? "External" : "
46c0: 42 75 69 6c 74 2d 69 6e 22 2c 20 2d 31 29 3b 2a  Built-in", -1);*
46d0: 2f 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41  /...Tcl_ListObjA
46e0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
46f0: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c  erp, objPtr, Tcl
4700: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 4f 42  _NewStringObj(OB
4710: 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 5f 69 64  J_nid2ln(pkey_id
4720: 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 20  ), -1));.    }. 
4730: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
4740: 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50  ult(interp, objP
4750: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  tr);.    return 
4760: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a  TCL_OK;.}../*. *
4770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
47a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
47b0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 6b 65 79 73 4f  ---. *. * PkeysO
47c0: 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52  bjCmd --. *. *.R
47d0: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20  eturn a list of 
47e0: 61 6c 6c 20 76 61 6c 69 64 20 68 61 73 68 20 61  all valid hash a
47f0: 6c 67 6f 72 69 74 68 6d 73 20 6f 72 20 6d 65 73  lgorithms or mes
4800: 73 61 67 65 20 64 69 67 65 73 74 73 2e 0a 20 2a  sage digests.. *
4810: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09  . * Results:. *.
4820: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c  A standard Tcl l
4830: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  ist.. *. * Side 
4840: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65  effects:. *.None
4850: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
4860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69  ----------. */.i
48a0: 6e 74 20 50 6b 65 79 73 4f 62 6a 43 6d 64 28 43  nt PkeysObjCmd(C
48b0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74  lientData client
48c0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70  Data, Tcl_Interp
48d0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62   *interp, int ob
48e0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e  jc, Tcl_Obj *con
48f0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20  st objv[]) {.   
4900: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64   dprintf("Called
4910: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61  ");..    /* Clea
4920: 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20  r errors */.    
4930: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28  Tcl_ResetResult(
4940: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52  interp);.    ERR
4950: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a  _clear_error();.
4960: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65  .    /* Validate
4970: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20   arg count */.  
4980: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29    if (objc == 1)
4990: 20 7b 0a 09 72 65 74 75 72 6e 20 50 6b 65 79 4c   {..return PkeyL
49a0: 69 73 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20  ist(interp);..  
49b0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 6a    } else if (obj
49c0: 63 20 3d 3d 20 32 29 20 7b 0a 09 72 65 74 75 72  c == 2) {..retur
49d0: 6e 20 50 6b 65 79 49 6e 66 6f 28 69 6e 74 65 72  n PkeyInfo(inter
49e0: 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67  p, Tcl_GetString
49f0: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c  FromObj(objv[1],
4a00: 4e 55 4c 4c 29 29 3b 0a 0a 20 20 20 20 7d 20 65  NULL));..    } e
4a10: 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67  lse {..Tcl_Wrong
4a20: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
4a30: 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f  1, objv, "?name?
4a40: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  ");..return TCL_
4a50: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20  ERROR;.    }.   
4a60: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
4a70: 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c  .clientData = cl
4a80: 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a  ientData;.}../**
4a90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4aa0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4ab0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4ac0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4ad0: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  */../*. *-------
4ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
4b20: 20 2a 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43   * ProtocolsObjC
4b30: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75  md --. *. *.Retu
4b40: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65  rn a list of the
4b50: 20 61 76 61 69 6c 61 62 6c 65 20 6f 72 20 73 75   available or su
4b60: 70 70 6f 72 74 65 64 20 53 53 4c 2f 54 4c 53 20  pported SSL/TLS 
4b70: 70 72 6f 74 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 2a  protocols.. *. *
4b80: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
4b90: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74  tandard Tcl list
4ba0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
4bb0: 65 63 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a  ects:. *.none. *
4bc0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
4bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c00: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69  ------. */.stati
4c10: 63 20 69 6e 74 0a 50 72 6f 74 6f 63 6f 6c 73 4f  c int.ProtocolsO
4c20: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61  bjCmd(ClientData
4c30: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c   clientData, Tcl
4c40: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
4c50: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f   int objc, Tcl_O
4c60: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d  bj *const objv[]
4c70: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20  ) {.    Tcl_Obj 
4c80: 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 64 70  *objPtr;..    dp
4c90: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b  rintf("Called");
4ca0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65  ..    /* Clear e
4cb0: 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c  rrors */.    Tcl
4cc0: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74  _ResetResult(int
4cd0: 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c  erp);.    ERR_cl
4ce0: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20  ear_error();..  
4cf0: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72    /* Validate ar
4d00: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69  g count */.    i
4d10: 66 20 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a  f (objc != 1) {.
4d20: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67  .Tcl_WrongNumArg
4d30: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
4d40: 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72  v, NULL);..retur
4d50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
4d60: 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20   }..    /* List 
4d70: 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c 73 20 2a 2f  all protocols */
4d80: 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63  .    objPtr = Tc
4d90: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20  l_NewListObj(0, 
4da0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 6f  NULL);.    if (o
4db0: 62 6a 50 74 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b  bjPtr == NULL) {
4dc0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
4dd0: 4f 52 3b 0a 20 20 20 20 7d 0a 23 69 66 20 4f 50  OR;.    }.#if OP
4de0: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55  ENSSL_VERSION_NU
4df0: 4d 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30  MBER < 0x1010000
4e00: 30 4c 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e  0L && !defined(N
4e10: 4f 5f 53 53 4c 32 29 20 26 26 20 21 64 65 66 69  O_SSL2) && !defi
4e20: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53  ned(OPENSSL_NO_S
4e30: 53 4c 32 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73  SL2).    Tcl_Lis
4e40: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
4e50: 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72  t(interp, objPtr
4e60: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  , Tcl_NewStringO
4e70: 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53  bj(protocols[TLS
4e80: 5f 53 53 4c 32 5d 2c 20 2d 31 29 29 3b 0a 23 65  _SSL2], -1));.#e
4e90: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65  ndif.#if !define
4ea0: 64 28 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 64  d(NO_SSL3) && !d
4eb0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e  efined(OPENSSL_N
4ec0: 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 69  O_SSL3) && !defi
4ed0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53  ned(OPENSSL_NO_S
4ee0: 53 4c 33 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20  SL3_METHOD).    
4ef0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e  Tcl_ListObjAppen
4f00: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c  dElement(interp,
4f10: 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77   objPtr, Tcl_New
4f20: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63  StringObj(protoc
4f30: 6f 6c 73 5b 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d  ols[TLS_SSL3], -
4f40: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20  1));.#endif.#if 
4f50: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31  !defined(NO_TLS1
4f60: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50  ) && !defined(OP
4f70: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26  ENSSL_NO_TLS1) &
4f80: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53  & !defined(OPENS
4f90: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f  SL_NO_TLS1_METHO
4fa0: 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f  D).    Tcl_ListO
4fb0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28  bjAppendElement(
4fc0: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20  interp, objPtr, 
4fd0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
4fe0: 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54  (protocols[TLS_T
4ff0: 4c 53 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64  LS1], -1));.#end
5000: 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28  if.#if !defined(
5010: 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64  NO_TLS1_1) && !d
5020: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e  efined(OPENSSL_N
5030: 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64 65  O_TLS1_1) && !de
5040: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f  fined(OPENSSL_NO
5050: 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 0a  _TLS1_1_METHOD).
5060: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
5070: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
5080: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c  erp, objPtr, Tcl
5090: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72  _NewStringObj(pr
50a0: 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31  otocols[TLS_TLS1
50b0: 5f 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69  _1], -1));.#endi
50c0: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e  f.#if !defined(N
50d0: 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 64 65  O_TLS1_2) && !de
50e0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f  fined(OPENSSL_NO
50f0: 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 64 65 66  _TLS1_2) && !def
5100: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f  ined(OPENSSL_NO_
5110: 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 20  TLS1_2_METHOD). 
5120: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70     Tcl_ListObjAp
5130: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65  pendElement(inte
5140: 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f  rp, objPtr, Tcl_
5150: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f  NewStringObj(pro
5160: 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f  tocols[TLS_TLS1_
5170: 32 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66  2], -1));.#endif
5180: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f  .#if !defined(NO
5190: 5f 54 4c 53 31 5f 33 29 20 26 26 20 21 64 65 66  _TLS1_3) && !def
51a0: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f  ined(OPENSSL_NO_
51b0: 54 4c 53 31 5f 33 29 0a 20 20 20 20 54 63 6c 5f  TLS1_3).    Tcl_
51c0: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65  ListObjAppendEle
51d0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a  ment(interp, obj
51e0: 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  Ptr, Tcl_NewStri
51f0: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b  ngObj(protocols[
5200: 54 4c 53 5f 54 4c 53 31 5f 33 5d 2c 20 2d 31 29  TLS_TLS1_3], -1)
5210: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 54 63  );.#endif.    Tc
5220: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69  l_SetObjResult(i
5230: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a  nterp, objPtr);.
5240: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f      return TCL_O
5250: 4b 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d  K;..clientData =
5260: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a   clientData;.}..
5270: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  /***************
5280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
52a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
52b0: 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d  ****/../*. *----
52c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
52f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
5300: 20 2a 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a   *. * VersionObj
5310: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74  Cmd --. *. *.Ret
5320: 75 72 6e 20 61 20 73 74 72 69 6e 67 20 77 69 74  urn a string wit
5330: 68 20 74 68 65 20 4f 70 65 6e 53 53 4c 20 76 65  h the OpenSSL ve
5340: 72 73 69 6f 6e 20 69 6e 66 6f 2e 0a 20 2a 0a 20  rsion info.. *. 
5350: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20  * Results:. *.A 
5360: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73  standard Tcl res
5370: 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  ult.. *. * Side 
5380: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65  effects:. *.None
5390: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  .. *. *---------
53a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
53d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73  ----------. */.s
53e0: 74 61 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f  tatic int.Versio
53f0: 6e 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61  nObjCmd(ClientDa
5400: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54  ta clientData, T
5410: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
5420: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c  p, int objc, Tcl
5430: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76  _Obj *const objv
5440: 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62  []) {.    Tcl_Ob
5450: 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20  j *objPtr;..    
5460: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22  dprintf("Called"
5470: 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64  );..    /* Valid
5480: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f  ate arg count */
5490: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d  .    if (objc !=
54a0: 20 31 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67   1) {..Tcl_Wrong
54b0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
54c0: 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a  1, objv, NULL);.
54d0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
54e0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6f 62  R;.    }..    ob
54f0: 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74  jPtr = Tcl_NewSt
5500: 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 4c 5f  ringObj(OPENSSL_
5510: 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c 20 2d 31  VERSION_TEXT, -1
5520: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62  );.    Tcl_SetOb
5530: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  jResult(interp, 
5540: 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74  objPtr);.    ret
5550: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69  urn TCL_OK;..cli
5560: 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74  entData = client
5570: 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a  Data;.}../******
5580: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5590: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
55a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
55b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a  *************/..
55c0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
55d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
55e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
55f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5600: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54  --------. *. * T
5610: 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 73 20  ls_InfoCommands 
5620: 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20  --. *. *.Create 
5630: 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a  info commands. *
5640: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09  . * Returns:. *.
5650: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52  TCL_OK or TCL_ER
5660: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65  ROR. *. * Side e
5670: 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74  ffects:. *.Creat
5680: 65 73 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20  es commands. *. 
5690: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
56a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
56b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
56c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
56d0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73  ----. */.int Tls
56e0: 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 73 28 54 63  _InfoCommands(Tc
56f0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
5700: 29 20 7b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c  ) {..#if OPENSSL
5710: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20  _VERSION_NUMBER 
5720: 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a 20 20  < 0x10100000L.  
5730: 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c    OpenSSL_add_al
5740: 6c 5f 63 69 70 68 65 72 73 28 29 3b 0a 20 20 20  l_ciphers();.   
5750: 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c   OpenSSL_add_all
5760: 5f 64 69 67 65 73 74 73 28 29 3b 0a 20 20 20 20  _digests();.    
5770: 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f  OpenSSL_add_all_
5780: 61 6c 67 6f 72 69 74 68 6d 73 28 29 3b 0a 23 65  algorithms();.#e
5790: 6e 64 69 66 0a 0a 20 20 20 20 54 63 6c 5f 43 72  ndif..    Tcl_Cr
57a0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69  eateObjCommand(i
57b0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 70  nterp, "tls::cip
57c0: 68 65 72 22 2c 20 43 69 70 68 65 72 4f 62 6a 43  her", CipherObjC
57d0: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29  md, (ClientData)
57e0: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65   0, (Tcl_CmdDele
57f0: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b  teProc *) NULL);
5800: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f  .    Tcl_CreateO
5810: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70  bjCommand(interp
5820: 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22  , "tls::ciphers"
5830: 2c 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c  , CiphersObjCmd,
5840: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c   (ClientData) 0,
5850: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50   (Tcl_CmdDeleteP
5860: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  roc *) NULL);.  
5870: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
5880: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
5890: 74 6c 73 3a 3a 64 69 67 65 73 74 73 22 2c 20 44  tls::digests", D
58a0: 69 67 65 73 74 73 4f 62 6a 43 6d 64 2c 20 28 43  igestsObjCmd, (C
58b0: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54  lientData) 0, (T
58c0: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63  cl_CmdDeleteProc
58d0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54   *) NULL);.    T
58e0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d  cl_CreateObjComm
58f0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73  and(interp, "tls
5900: 3a 3a 6d 61 63 73 22 2c 20 4d 61 63 73 4f 62 6a  ::macs", MacsObj
5910: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61  Cmd, (ClientData
5920: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c  ) 0, (Tcl_CmdDel
5930: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29  eteProc *) NULL)
5940: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65  ;.    Tcl_Create
5950: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ObjCommand(inter
5960: 70 2c 20 22 74 6c 73 3a 3a 70 6b 65 79 73 22 2c  p, "tls::pkeys",
5970: 20 50 6b 65 79 73 4f 62 6a 43 6d 64 2c 20 28 43   PkeysObjCmd, (C
5980: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54  lientData) 0, (T
5990: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63  cl_CmdDeleteProc
59a0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54   *) NULL);.    T
59b0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d  cl_CreateObjComm
59c0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73  and(interp, "tls
59d0: 3a 3a 70 72 6f 74 6f 63 6f 6c 73 22 2c 20 50 72  ::protocols", Pr
59e0: 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 2c 20 28  otocolsObjCmd, (
59f0: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28  ClientData) 0, (
5a00: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f  Tcl_CmdDeletePro
5a10: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20  c *) NULL);.    
5a20: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
5a30: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c  mand(interp, "tl
5a40: 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 56 65 72  s::version", Ver
5a50: 73 69 6f 6e 4f 62 6a 43 6d 64 2c 20 28 43 6c 69  sionObjCmd, (Cli
5a60: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c  entData) 0, (Tcl
5a70: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a  _CmdDeleteProc *
5a80: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74  ) NULL);.    ret
5a90: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a        urn TCL_OK;.}.
Powered by Fossil · RSS