TclTLS: Hex Artifact Content

Artifact 28c894841a776e238d36af06e11cf16ef559f245468d25572d8222b0fc074d26:

File generic/tlsInfo.c — part of check-in [c0bbfde5a4] at 2024-03-10 05:56:07 on branch crypto — Added global namespace qualifier to command names. Catch error for eval embedded tls.tcl script. (user: bohagan, size: 28071) [annotate] [blame] [check-ins using]
0000: 2f 2a 0a 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f  /*. * Informatio
0010: 6e 20 43 6f 6d 6d 61 6e 64 73 20 4d 6f 64 75 6c  n Commands Modul
0020: 65 0a 20 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73  e. *. * Provides
0030: 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 72   commands that r
0040: 65 74 75 72 6e 20 69 6e 66 6f 20 72 65 6c 61 74  eturn info relat
0050: 65 64 20 74 6f 20 74 68 65 20 4f 70 65 6e 53 53  ed to the OpenSS
0060: 4c 20 63 6f 6e 66 69 67 20 61 6e 64 20 64 61 74  L config and dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67  a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61  ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f  n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49  ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c  nt.h".#include <
00c0: 6f 70 65 6e 73 73 6c 2f 63 72 79 70 74 6f 2e 68  openssl/crypto.h
00d0: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e  >.#include <open
00e0: 73 73 6c 2f 73 73 6c 2e 68 3e 0a 23 69 6e 63 6c  ssl/ssl.h>.#incl
00f0: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 73 61 66  ude <openssl/saf
0100: 65 73 74 61 63 6b 2e 68 3e 0a 23 69 66 20 4f 50  estack.h>.#if OP
0110: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55  ENSSL_VERSION_NU
0120: 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30  MBER >= 0x300000
0130: 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70  00L.#include <op
0140: 65 6e 73 73 6c 2f 70 72 6f 76 69 64 65 72 2e 68  enssl/provider.h
0150: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20  >.#endif../*. * 
0160: 56 61 6c 69 64 20 53 53 4c 20 61 6e 64 20 54 4c  Valid SSL and TL
0170: 53 20 50 72 6f 74 6f 63 6f 6c 20 56 65 72 73 69  S Protocol Versi
0180: 6f 6e 73 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63  ons. */.static c
0190: 6f 6e 73 74 20 63 68 61 72 20 2a 70 72 6f 74 6f  onst char *proto
01a0: 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c  cols[] = {.."ssl
01b0: 32 22 2c 20 22 73 73 6c 33 22 2c 20 22 74 6c 73  2", "ssl3", "tls
01c0: 31 22 2c 20 22 74 6c 73 31 2e 31 22 2c 20 22 74  1", "tls1.1", "t
01d0: 6c 73 31 2e 32 22 2c 20 22 74 6c 73 31 2e 33 22  ls1.2", "tls1.3"
01e0: 2c 20 4e 55 4c 4c 0a 7d 3b 0a 65 6e 75 6d 20 70  , NULL.};.enum p
01f0: 72 6f 74 6f 63 6f 6c 20 7b 0a 20 20 20 20 54 4c  rotocol {.    TL
0200: 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c 33  S_SSL2, TLS_SSL3
0210: 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 5f  , TLS_TLS1, TLS_
0220: 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53 31  TLS1_1, TLS_TLS1
0230: 5f 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 2c 20  _2, TLS_TLS1_3, 
0240: 54 4c 53 5f 4e 4f 4e 45 0a 7d 3b 0a 0a 2f 2a 2a  TLS_NONE.};../**
0250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0290: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  */../*. *-------
02a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
02b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
02c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
02e0: 20 2a 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b   * NamesCallback
02f0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 62 61   --. *. *.Callba
0300: 63 6b 20 74 6f 20 61 64 64 20 61 6c 67 6f 72 69  ck to add algori
0310: 74 68 6d 20 6f 72 20 6d 65 74 68 6f 64 20 6e 61  thm or method na
0320: 6d 65 73 20 74 6f 20 61 20 54 43 4c 20 6c 69 73  mes to a TCL lis
0330: 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20 2a 20  t object.. *. * 
0340: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 70 70 65  Results:. *.Appe
0350: 6e 64 20 6e 61 6d 65 20 74 6f 20 54 43 4c 20 6c  nd name to TCL l
0360: 69 73 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20  ist object.. *. 
0370: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
0380: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03d0: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 4e 61 6d 65 73  -. */.void Names
03e0: 43 61 6c 6c 62 61 63 6b 28 63 6f 6e 73 74 20 4f  Callback(const O
03f0: 42 4a 5f 4e 41 4d 45 20 2a 6f 62 6a 2c 20 76 6f  BJ_NAME *obj, vo
0400: 69 64 20 2a 61 72 67 29 20 7b 0a 20 20 20 20 54  id *arg) {.    T
0410: 63 6c 5f 4f 62 6a 20 2a 6c 69 73 74 4f 62 6a 20  cl_Obj *listObj 
0420: 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 61 72  = (Tcl_Obj *) ar
0430: 67 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 65 6c 64  g;..    /* Field
0440: 73 3a 20 28 69 6e 74 29 20 74 79 70 65 20 61 6e  s: (int) type an
0450: 64 20 61 6c 69 61 73 2c 20 28 63 6f 6e 73 74 20  d alias, (const 
0460: 63 68 61 72 2a 29 20 6e 61 6d 65 20 28 61 6c 69  char*) name (ali
0470: 61 73 20 66 72 6f 6d 29 20 61 6e 64 20 64 61 74  as from) and dat
0480: 61 20 28 61 6c 69 61 73 20 74 6f 29 20 2a 2f 0a  a (alias to) */.
0490: 20 20 20 20 69 66 20 28 73 74 72 73 74 72 28 6f      if (strstr(o
04a0: 62 6a 2d 3e 6e 61 6d 65 2c 20 22 72 73 61 22 29  bj->name, "rsa")
04b0: 20 3d 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 73   == NULL && strs
04c0: 74 72 28 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 22 52  tr(obj->name, "R
04d0: 53 41 22 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  SA") == NULL) {.
04e0: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65  .Tcl_ListObjAppe
04f0: 6e 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20  ndElement(NULL, 
0500: 6c 69 73 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77  listObj, Tcl_New
0510: 53 74 72 69 6e 67 4f 62 6a 28 6f 62 6a 2d 3e 6e  StringObj(obj->n
0520: 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d  ame, -1));.    }
0530: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .}../***********
0540: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0550: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0560: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0570: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a  ********/../*. *
0580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
05a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
05c0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72  ---. *. * Cipher
05d0: 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65  Info --. *. *.Re
05e0: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70  turn a list of p
05f0: 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61  roperties and va
0600: 6c 75 65 73 20 66 6f 72 20 63 69 70 68 65 72 2e  lues for cipher.
0610: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a  . *. * Results:.
0620: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63   *.A standard Tc
0630: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69  l list.. *. * Si
0640: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e  de effects:. *.N
0650: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  one.. *. *------
0660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
06a0: 2f 0a 69 6e 74 20 43 69 70 68 65 72 49 6e 66 6f  /.int CipherInfo
06b0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
06c0: 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61  erp, Tcl_Obj *na
06d0: 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 63 6f 6e  meObj) {.    con
06e0: 73 74 20 45 56 50 5f 43 49 50 48 45 52 20 2a 63  st EVP_CIPHER *c
06f0: 69 70 68 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f  ipher;.    Tcl_O
0700: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 2c 20 2a  bj *resultObj, *
0710: 6c 69 73 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73  listObj;.    uns
0720: 69 67 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73  igned long flags
0730: 2c 20 6d 6f 64 65 3b 0a 20 20 20 20 63 68 61 72  , mode;.    char
0740: 20 2a 6d 6f 64 65 4e 61 6d 65 20 3d 20 4e 55 4c   *modeName = NUL
0750: 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 6d  L;.    char *nam
0760: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e  e = Tcl_GetStrin
0770: 67 28 6e 61 6d 65 4f 62 6a 29 3b 0a 0a 20 20 20  g(nameObj);..   
0780: 20 2f 2a 20 47 65 74 20 63 69 70 68 65 72 20 2a   /* Get cipher *
0790: 2f 0a 20 20 20 20 63 69 70 68 65 72 20 3d 20 45  /.    cipher = E
07a0: 56 50 5f 67 65 74 5f 63 69 70 68 65 72 62 79 6e  VP_get_cipherbyn
07b0: 61 6d 65 28 6e 61 6d 65 29 3b 0a 0a 20 20 20 20  ame(name);..    
07c0: 69 66 20 28 63 69 70 68 65 72 20 3d 3d 20 4e 55  if (cipher == NU
07d0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e  LL) {..Tcl_Appen
07e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
07f0: 22 49 6e 76 61 6c 69 64 20 63 69 70 68 65 72 20  "Invalid cipher 
0800: 5c 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c  \"", name, "\"",
0810: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b   (char *) NULL);
0820: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
0830: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  OR;.    }..    /
0840: 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 73  * Get properties
0850: 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62   */.    resultOb
0860: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f  j = Tcl_NewListO
0870: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20  bj(0, NULL);.   
0880: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d   if (resultObj =
0890: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72  = NULL) {..retur
08a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20  n TCL_ERROR;.   
08b0: 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53   }.    LAPPEND_S
08c0: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c  TR(interp, resul
08d0: 74 4f 62 6a 2c 20 22 6e 69 64 22 2c 20 4f 42 4a  tObj, "nid", OBJ
08e0: 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 43 49 50 48  _nid2ln(EVP_CIPH
08f0: 45 52 5f 6e 69 64 28 63 69 70 68 65 72 29 29 2c  ER_nid(cipher)),
0900: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e   -1);.    LAPPEN
0910: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65  D_STR(interp, re
0920: 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c  sultObj, "name",
0930: 20 45 56 50 5f 43 49 50 48 45 52 5f 6e 61 6d 65   EVP_CIPHER_name
0940: 28 63 69 70 68 65 72 29 2c 20 2d 31 29 3b 0a 20  (cipher), -1);. 
0950: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69     LAPPEND_STR(i
0960: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a  nterp, resultObj
0970: 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 2c  , "description",
0980: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41   "", -1);.    LA
0990: 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70  PPEND_INT(interp
09a0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 6c  , resultObj, "bl
09b0: 6f 63 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 43  ock_size", EVP_C
09c0: 49 50 48 45 52 5f 62 6c 6f 63 6b 5f 73 69 7a 65  IPHER_block_size
09d0: 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 4c  (cipher));.    L
09e0: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72  APPEND_INT(inter
09f0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6b  p, resultObj, "k
0a00: 65 79 5f 6c 65 6e 67 74 68 22 2c 20 45 56 50 5f  ey_length", EVP_
0a10: 43 49 50 48 45 52 5f 6b 65 79 5f 6c 65 6e 67 74  CIPHER_key_lengt
0a20: 68 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20  h(cipher));.    
0a30: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65  LAPPEND_INT(inte
0a40: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22  rp, resultObj, "
0a50: 69 76 5f 6c 65 6e 67 74 68 22 2c 20 45 56 50 5f  iv_length", EVP_
0a60: 43 49 50 48 45 52 5f 69 76 5f 6c 65 6e 67 74 68  CIPHER_iv_length
0a70: 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 4c  (cipher));.    L
0a80: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
0a90: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74  p, resultObj, "t
0aa0: 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e  ype", OBJ_nid2ln
0ab0: 28 45 56 50 5f 43 49 50 48 45 52 5f 74 79 70 65  (EVP_CIPHER_type
0ac0: 28 63 69 70 68 65 72 29 29 2c 20 2d 31 29 3b 0a  (cipher)), -1);.
0ad0: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28      LAPPEND_STR(
0ae0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62  interp, resultOb
0af0: 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 22  j, "provider", "
0b00: 22 2c 20 2d 31 29 3b 0a 20 20 20 20 66 6c 61 67  ", -1);.    flag
0b10: 73 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f 66  s = EVP_CIPHER_f
0b20: 6c 61 67 73 28 63 69 70 68 65 72 29 3b 0a 20 20  lags(cipher);.  
0b30: 20 20 6d 6f 64 65 20 20 3d 20 45 56 50 5f 43 49    mode  = EVP_CI
0b40: 50 48 45 52 5f 6d 6f 64 65 28 63 69 70 68 65 72  PHER_mode(cipher
0b50: 29 3b 0a 0a 20 20 20 20 2f 2a 20 45 56 50 5f 43  );..    /* EVP_C
0b60: 49 50 48 45 52 5f 67 65 74 5f 6d 6f 64 65 20 2a  IPHER_get_mode *
0b70: 2f 0a 20 20 20 20 73 77 69 74 63 68 28 6d 6f 64  /.    switch(mod
0b80: 65 29 20 7b 0a 09 63 61 73 65 20 45 56 50 5f 43  e) {..case EVP_C
0b90: 49 50 48 5f 53 54 52 45 41 4d 5f 43 49 50 48 45  IPH_STREAM_CIPHE
0ba0: 52 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65  R:..    modeName
0bb0: 20 3d 20 22 53 54 52 45 41 4d 22 3b 0a 09 20 20   = "STREAM";..  
0bc0: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45    break;..case E
0bd0: 56 50 5f 43 49 50 48 5f 45 43 42 5f 4d 4f 44 45  VP_CIPH_ECB_MODE
0be0: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20  :..    modeName 
0bf0: 3d 20 22 45 43 42 22 3b 0a 09 20 20 20 20 62 72  = "ECB";..    br
0c00: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43  eak;..case EVP_C
0c10: 49 50 48 5f 43 42 43 5f 4d 4f 44 45 3a 0a 09 20  IPH_CBC_MODE:.. 
0c20: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43     modeName = "C
0c30: 42 43 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b  BC";..    break;
0c40: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f  ..case EVP_CIPH_
0c50: 43 46 42 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d  CFB_MODE:..    m
0c60: 6f 64 65 4e 61 6d 65 20 3d 20 22 43 46 42 22 3b  odeName = "CFB";
0c70: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61  ..    break;..ca
0c80: 73 65 20 45 56 50 5f 43 49 50 48 5f 4f 46 42 5f  se EVP_CIPH_OFB_
0c90: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e  MODE:..    modeN
0ca0: 61 6d 65 20 3d 20 22 4f 46 42 22 3b 0a 09 20 20  ame = "OFB";..  
0cb0: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45    break;..case E
0cc0: 56 50 5f 43 49 50 48 5f 43 54 52 5f 4d 4f 44 45  VP_CIPH_CTR_MODE
0cd0: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20  :..    modeName 
0ce0: 3d 20 22 43 54 52 22 3b 0a 09 20 20 20 20 62 72  = "CTR";..    br
0cf0: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43  eak;..case EVP_C
0d00: 49 50 48 5f 47 43 4d 5f 4d 4f 44 45 3a 0a 09 20  IPH_GCM_MODE:.. 
0d10: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 47     modeName = "G
0d20: 43 4d 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b  CM";..    break;
0d30: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f  ..case EVP_CIPH_
0d40: 58 54 53 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d  XTS_MODE:..    m
0d50: 6f 64 65 4e 61 6d 65 20 3d 20 22 58 54 53 22 3b  odeName = "XTS";
0d60: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61  ..    break;..ca
0d70: 73 65 20 45 56 50 5f 43 49 50 48 5f 43 43 4d 5f  se EVP_CIPH_CCM_
0d80: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e  MODE:..    modeN
0d90: 61 6d 65 20 3d 20 22 43 43 4d 22 3b 0a 09 20 20  ame = "CCM";..  
0da0: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45    break;..case E
0db0: 56 50 5f 43 49 50 48 5f 4f 43 42 5f 4d 4f 44 45  VP_CIPH_OCB_MODE
0dc0: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20  :..    modeName 
0dd0: 3d 20 22 4f 43 42 22 3b 0a 09 20 20 20 20 62 72  = "OCB";..    br
0de0: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43  eak;..case EVP_C
0df0: 49 50 48 5f 57 52 41 50 5f 4d 4f 44 45 20 3a 0a  IPH_WRAP_MODE :.
0e00: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20  .    modeName = 
0e10: 22 57 52 41 50 22 3b 0a 09 20 20 20 20 62 72 65  "WRAP";..    bre
0e20: 61 6b 3b 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20  ak;..default:.. 
0e30: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 75     modeName = "u
0e40: 6e 6b 6e 6f 77 6e 22 3b 0a 09 20 20 20 20 62 72  nknown";..    br
0e50: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c  eak;.    }.    L
0e60: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
0e70: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6d  p, resultObj, "m
0e80: 6f 64 65 22 2c 20 6d 6f 64 65 4e 61 6d 65 2c 20  ode", modeName, 
0e90: 2d 31 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c 61  -1);..    /* Fla
0ea0: 67 73 20 2a 2f 0a 20 20 20 20 6c 69 73 74 4f 62  gs */.    listOb
0eb0: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f  j = Tcl_NewListO
0ec0: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20  bj(0, NULL);.   
0ed0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e   LAPPEND_BOOL(in
0ee0: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22  terp, listObj, "
0ef0: 56 61 72 69 61 62 6c 65 20 4c 65 6e 67 74 68 22  Variable Length"
0f00: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49  , flags & EVP_CI
0f10: 50 48 5f 56 41 52 49 41 42 4c 45 5f 4c 45 4e 47  PH_VARIABLE_LENG
0f20: 54 48 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44  TH);.    LAPPEND
0f30: 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69  _BOOL(interp, li
0f40: 73 74 4f 62 6a 2c 20 22 41 6c 77 61 79 73 20 43  stObj, "Always C
0f50: 61 6c 6c 20 49 6e 69 74 22 2c 20 66 6c 61 67 73  all Init", flags
0f60: 20 26 20 45 56 50 5f 43 49 50 48 5f 41 4c 57 41   & EVP_CIPH_ALWA
0f70: 59 53 5f 43 41 4c 4c 5f 49 4e 49 54 29 3b 0a 20  YS_CALL_INIT);. 
0f80: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28     LAPPEND_BOOL(
0f90: 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c  interp, listObj,
0fa0: 20 22 43 75 73 74 6f 6d 20 49 56 22 2c 20 66 6c   "Custom IV", fl
0fb0: 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43  ags & EVP_CIPH_C
0fc0: 55 53 54 4f 4d 5f 49 56 29 3b 0a 20 20 20 20 4c  USTOM_IV);.    L
0fd0: 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65  APPEND_BOOL(inte
0fe0: 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 6f  rp, listObj, "Co
0ff0: 6e 74 72 6f 6c 20 49 6e 69 74 22 2c 20 66 6c 61  ntrol Init", fla
1000: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 54  gs & EVP_CIPH_CT
1010: 52 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 4c 41  RL_INIT);.    LA
1020: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72  PPEND_BOOL(inter
1030: 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 73  p, listObj, "Cus
1040: 74 6f 6d 20 43 69 70 68 65 72 22 2c 20 66 6c 61  tom Cipher", fla
1050: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c  gs & EVP_CIPH_FL
1060: 41 47 5f 43 55 53 54 4f 4d 5f 43 49 50 48 45 52  AG_CUSTOM_CIPHER
1070: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42  );.    LAPPEND_B
1080: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74  OOL(interp, list
1090: 4f 62 6a 2c 20 22 41 45 41 44 20 43 69 70 68 65  Obj, "AEAD Ciphe
10a0: 72 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f  r", flags & EVP_
10b0: 43 49 50 48 5f 46 4c 41 47 5f 41 45 41 44 5f 43  CIPH_FLAG_AEAD_C
10c0: 49 50 48 45 52 29 3b 0a 20 20 20 20 4c 41 50 50  IPHER);.    LAPP
10d0: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c  END_BOOL(interp,
10e0: 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 73 74 6f   listObj, "Custo
10f0: 6d 20 43 6f 70 79 22 2c 20 66 6c 61 67 73 20 26  m Copy", flags &
1100: 20 45 56 50 5f 43 49 50 48 5f 43 55 53 54 4f 4d   EVP_CIPH_CUSTOM
1110: 5f 43 4f 50 59 29 3b 0a 20 20 20 20 4c 41 50 50  _COPY);.    LAPP
1120: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c  END_BOOL(interp,
1130: 20 6c 69 73 74 4f 62 6a 2c 20 22 4e 6f 6e 20 46   listObj, "Non F
1140: 49 50 53 20 41 6c 6c 6f 77 22 2c 20 66 6c 61 67  IPS Allow", flag
1150: 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41  s & EVP_CIPH_FLA
1160: 47 5f 4e 4f 4e 5f 46 49 50 53 5f 41 4c 4c 4f 57  G_NON_FIPS_ALLOW
1170: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f  );.    LAPPEND_O
1180: 42 4a 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c  BJ(interp, resul
1190: 74 4f 62 6a 2c 20 22 66 6c 61 67 73 22 2c 20 6c  tObj, "flags", l
11a0: 69 73 74 4f 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a  istObj);..    /*
11b0: 20 43 54 58 20 6f 6e 6c 79 20 70 72 6f 70 65 72   CTX only proper
11c0: 74 69 65 73 20 2a 2f 0a 20 20 20 20 7b 0a 09 45  ties */.    {..E
11d0: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63  VP_CIPHER_CTX *c
11e0: 74 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f  tx = EVP_CIPHER_
11f0: 43 54 58 5f 6e 65 77 28 29 3b 0a 09 69 6e 74 20  CTX_new();..int 
1200: 74 61 67 5f 6c 65 6e 20 3d 20 30 3b 0a 0a 09 45  tag_len = 0;...E
1210: 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65  VP_EncryptInit_e
1220: 78 28 63 74 78 2c 20 63 69 70 68 65 72 2c 20 4e  x(ctx, cipher, N
1230: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29  ULL, NULL, NULL)
1240: 3b 0a 09 69 66 20 28 6d 6f 64 65 20 3d 3d 20 45  ;..if (mode == E
1250: 56 50 5f 43 49 50 48 5f 47 43 4d 5f 4d 4f 44 45  VP_CIPH_GCM_MODE
1260: 20 7c 7c 20 6d 6f 64 65 20 3d 3d 20 45 56 50 5f   || mode == EVP_
1270: 43 49 50 48 5f 4f 43 42 5f 4d 4f 44 45 29 20 7b  CIPH_OCB_MODE) {
1280: 0a 09 20 20 20 20 74 61 67 5f 6c 65 6e 20 3d 20  ..    tag_len = 
1290: 45 56 50 5f 47 43 4d 5f 54 4c 53 5f 54 41 47 5f  EVP_GCM_TLS_TAG_
12a0: 4c 45 4e 3b 20 2f 2a 20 45 56 50 5f 4d 41 58 5f  LEN; /* EVP_MAX_
12b0: 41 45 41 44 5f 54 41 47 5f 4c 45 4e 47 54 48 20  AEAD_TAG_LENGTH 
12c0: 2a 2f 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 6d  */..} else if (m
12d0: 6f 64 65 20 3d 3d 20 45 56 50 5f 43 49 50 48 5f  ode == EVP_CIPH_
12e0: 43 43 4d 5f 4d 4f 44 45 29 20 7b 0a 09 20 20 20  CCM_MODE) {..   
12f0: 20 74 61 67 5f 6c 65 6e 20 3d 20 45 56 50 5f 43   tag_len = EVP_C
1300: 43 4d 5f 54 4c 53 5f 54 41 47 5f 4c 45 4e 3b 0a  CM_TLS_TAG_LEN;.
1310: 09 7d 20 65 6c 73 65 20 69 66 20 28 63 69 70 68  .} else if (ciph
1320: 65 72 20 3d 3d 20 45 56 50 5f 67 65 74 5f 63 69  er == EVP_get_ci
1330: 70 68 65 72 62 79 6e 61 6d 65 28 22 63 68 61 63  pherbyname("chac
1340: 68 61 32 30 2d 70 6f 6c 79 31 33 30 35 22 29 29  ha20-poly1305"))
1350: 20 7b 0a 09 20 20 20 20 74 61 67 5f 6c 65 6e 20   {..    tag_len 
1360: 3d 20 45 56 50 5f 43 48 41 43 48 41 50 4f 4c 59  = EVP_CHACHAPOLY
1370: 5f 54 4c 53 5f 54 41 47 5f 4c 45 4e 3b 20 2f 2a  _TLS_TAG_LEN; /*
1380: 20 50 4f 4c 59 31 33 30 35 5f 42 4c 4f 43 4b 5f   POLY1305_BLOCK_
1390: 53 49 5a 45 20 2a 2f 0a 09 7d 0a 09 45 56 50 5f  SIZE */..}..EVP_
13a0: 43 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28  CIPHER_CTX_free(
13b0: 63 74 78 29 3b 0a 09 4c 41 50 50 45 4e 44 5f 49  ctx);..LAPPEND_I
13c0: 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c  NT(interp, resul
13d0: 74 4f 62 6a 2c 20 22 74 61 67 5f 6c 65 6e 67 74  tObj, "tag_lengt
13e0: 68 22 2c 20 74 61 67 5f 6c 65 6e 29 3b 0a 20 20  h", tag_len);.  
13f0: 20 20 7d 0a 20 20 20 20 0a 20 20 20 20 2f 2a 20    }.    .    /* 
1400: 41 45 41 44 20 70 72 6f 70 65 72 74 69 65 73 20  AEAD properties 
1410: 2a 2f 0a 20 20 20 20 7b 0a 09 69 6e 74 20 61 61  */.    {..int aa
1420: 64 5f 6c 65 6e 20 3d 20 30 3b 0a 09 69 66 20 28  d_len = 0;..if (
1430: 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48  flags & EVP_CIPH
1440: 5f 46 4c 41 47 5f 41 45 41 44 5f 43 49 50 48 45  _FLAG_AEAD_CIPHE
1450: 52 29 20 7b 0a 09 20 20 20 20 61 61 64 5f 6c 65  R) {..    aad_le
1460: 6e 20 3d 20 45 56 50 5f 41 45 41 44 5f 54 4c 53  n = EVP_AEAD_TLS
1470: 31 5f 41 41 44 5f 4c 45 4e 3b 0a 09 7d 0a 09 4c  1_AAD_LEN;..}..L
1480: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72  APPEND_INT(inter
1490: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 61  p, resultObj, "a
14a0: 61 64 5f 6c 65 6e 67 74 68 22 2c 20 61 61 64 5f  ad_length", aad_
14b0: 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  len);.    }..   
14c0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c   Tcl_SetObjResul
14d0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74  t(interp, result
14e0: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  Obj);.    return
14f0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20   TCL_OK;.}../*. 
1500: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1540: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65  ----. *. * Ciphe
1550: 72 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52  rList --. *. *.R
1560: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20  eturn a list of 
1570: 61 6c 6c 20 63 69 70 68 65 72 20 61 6c 67 6f 72  all cipher algor
1580: 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75  ithms. *. * Resu
1590: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61  lts:. *.A standa
15a0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a  rd Tcl list.. *.
15b0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
15c0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d  . *.None.. *. *-
15d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
15e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
15f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1610: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 43 69 70 68 65  --. */.int Ciphe
1620: 72 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70  rList(Tcl_Interp
1630: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20   *interp) {.    
1640: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f  Tcl_Obj *resultO
1650: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74  bj = Tcl_NewList
1660: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20  Obj(0, NULL);.  
1670: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20    if (resultObj 
1680: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75  == NULL) {..retu
1690: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
16a0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65    }..    /* Same
16b0: 20 61 73 20 45 56 50 5f 43 49 50 48 45 52 5f 64   as EVP_CIPHER_d
16c0: 6f 5f 61 6c 6c 20 2a 2f 0a 20 20 20 20 4f 42 4a  o_all */.    OBJ
16d0: 5f 4e 41 4d 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a  _NAME_do_all(OBJ
16e0: 5f 4e 41 4d 45 5f 54 59 50 45 5f 43 49 50 48 45  _NAME_TYPE_CIPHE
16f0: 52 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 43 61 6c  R_METH, NamesCal
1700: 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 2a 29 20  lback, (void *) 
1710: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20  resultObj);.    
1720: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
1730: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f  (interp, resultO
1740: 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  bj);.    return 
1750: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a  TCL_OK;.}../*. *
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
17a0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72  ---. *. * Cipher
17b0: 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09  ObjCmd --. *. *.
17c0: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66  Return a list of
17d0: 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20   properties and 
17e0: 76 61 6c 75 65 73 20 66 6f 72 20 63 69 70 68 65  values for ciphe
17f0: 72 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73  rName.. *. * Res
1800: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64  ults:. *.A stand
1810: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a  ard Tcl list.. *
1820: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73  . * Side effects
1830: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a  :. *.None.. *. *
1840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1880: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69  ---. */.static i
1890: 6e 74 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 28  nt CipherObjCmd(
18a0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
18b0: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72  tData, Tcl_Inter
18c0: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f  p *interp, int o
18d0: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f  bjc, Tcl_Obj *co
18e0: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20  nst objv[]) {.  
18f0: 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44    (void) clientD
1900: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74  ata;..    dprint
1910: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20  f("Called");..  
1920: 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72    /* Clear error
1930: 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73  s */.    Tcl_Res
1940: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  etResult(interp)
1950: 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f  ;.    ERR_clear_
1960: 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a  error();..    /*
1970: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f   Validate arg co
1980: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f  unt */.    if (o
1990: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74  bjc == 1) {..ret
19a0: 75 72 6e 20 43 69 70 68 65 72 4c 69 73 74 28 69  urn CipherList(i
19b0: 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65  nterp);..    } e
19c0: 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20  lse if (objc == 
19d0: 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 43 69 70  2) {..return Cip
19e0: 68 65 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20  herInfo(interp, 
19f0: 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d  objv[1]);..    }
1a00: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f   else {..Tcl_Wro
1a10: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70  ngNumArgs(interp
1a20: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d  , 1, objv, "?nam
1a30: 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43  e?");..return TC
1a40: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  L_ERROR;.    }. 
1a50: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b     return TCL_OK
1a60: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  ;.}../*. *------
1a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
1ab0: 0a 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d  . * CiphersObjCm
1ac0: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20  d --. *. *.This 
1ad0: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76  procedure is inv
1ae0: 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20  oked to process 
1af0: 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72  the "tls::cipher
1b00: 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f  s" command. *.to
1b10: 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20   list available 
1b20: 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 75  ciphers, based u
1b30: 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c  pon protocol sel
1b40: 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73  ected.. *. * Res
1b50: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64  ults:. *.A stand
1b60: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c  ard Tcl result l
1b70: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20  ist.. *. * Side 
1b80: 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73  effects:. *.cons
1b90: 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 72  tructs and destr
1ba0: 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20  oys SSL context 
1bb0: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  (CTX). *. *-----
1bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
1c00: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 43 69  */.static int Ci
1c10: 70 68 65 72 73 4f 62 6a 43 6d 64 28 43 6c 69 65  phersObjCmd(Clie
1c20: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
1c30: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  a, Tcl_Interp *i
1c40: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c  nterp, int objc,
1c50: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20   Tcl_Obj *const 
1c60: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 53 53  objv[]) {.    SS
1c70: 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c  L_CTX *ctx = NUL
1c80: 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 6c 20  L;.    SSL *ssl 
1c90: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43  = NULL;.    STAC
1ca0: 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 52 29  K_OF(SSL_CIPHER)
1cb0: 20 2a 73 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20   *sk = NULL;.   
1cc0: 20 54 63 6c 5f 53 69 7a 65 20 69 6e 64 65 78 3b   Tcl_Size index;
1cd0: 0a 20 20 20 20 69 6e 74 20 76 65 72 62 6f 73 65  .    int verbose
1ce0: 20 3d 20 30 2c 20 75 73 65 5f 73 75 70 70 6f 72   = 0, use_suppor
1cf0: 74 65 64 20 3d 20 30 2c 20 72 65 73 20 3d 20 54  ted = 0, res = T
1d00: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 69 6e 74 20 6d  CL_OK;.    int m
1d10: 69 6e 5f 76 65 72 73 69 6f 6e 2c 20 6d 61 78 5f  in_version, max_
1d20: 76 65 72 73 69 6f 6e 3b 0a 20 20 20 20 28 76 6f  version;.    (vo
1d30: 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a  id) clientData;.
1d40: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61  .    dprintf("Ca
1d50: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20  lled");..    /* 
1d60: 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a  Clear errors */.
1d70: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73      Tcl_ResetRes
1d80: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20  ult(interp);.   
1d90: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72   ERR_clear_error
1da0: 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69  ();..    /* Vali
1db0: 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a  date arg count *
1dc0: 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3e  /.    if (objc >
1dd0: 20 34 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67   4) {..Tcl_Wrong
1de0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20  NumArgs(interp, 
1df0: 31 2c 20 6f 62 6a 76 2c 20 22 3f 70 72 6f 74 6f  1, objv, "?proto
1e00: 63 6f 6c 3f 20 3f 76 65 72 62 6f 73 65 3f 20 3f  col? ?verbose? ?
1e10: 73 75 70 70 6f 72 74 65 64 3f 22 29 3b 0a 09 72  supported?");..r
1e20: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
1e30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c  .    }..    /* L
1e40: 69 73 74 20 61 6c 6c 20 63 69 70 68 65 72 73 20  ist all ciphers 
1e50: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20  */.    if (objc 
1e60: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20  == 1) {..return 
1e70: 43 69 70 68 65 72 4c 69 73 74 28 69 6e 74 65 72  CipherList(inter
1e80: 70 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f  p);.    }..    /
1e90: 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f  * Get options */
1ea0: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74  .    if (Tcl_Get
1eb0: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74  IndexFromObj(int
1ec0: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72  erp, objv[1], pr
1ed0: 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63  otocols, "protoc
1ee0: 6f 6c 22 2c 20 30 2c 20 26 69 6e 64 65 78 29 20  ol", 0, &index) 
1ef0: 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 28 6f  != TCL_OK ||..(o
1f00: 62 6a 63 20 3e 20 32 20 26 26 20 54 63 6c 5f 47  bjc > 2 && Tcl_G
1f10: 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a  etBooleanFromObj
1f20: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d  (interp, objv[2]
1f30: 2c 20 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54  , &verbose) != T
1f40: 43 4c 5f 4f 4b 29 20 7c 7c 0a 09 28 6f 62 6a 63  CL_OK) ||..(objc
1f50: 20 3e 20 33 20 26 26 20 54 63 6c 5f 47 65 74 42   > 3 && Tcl_GetB
1f60: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e  ooleanFromObj(in
1f70: 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26  terp, objv[3], &
1f80: 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 21  use_supported) !
1f90: 3d 20 54 43 4c 5f 4f 4b 29 29 20 7b 0a 09 72 65  = TCL_OK)) {..re
1fa0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1fb0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63      }..    switc
1fc0: 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f  h ((enum protoco
1fd0: 6c 29 69 6e 64 65 78 29 20 7b 0a 09 63 61 73 65  l)index) {..case
1fe0: 20 54 4c 53 5f 53 53 4c 32 3a 0a 09 20 20 20 20   TLS_SSL2:..    
1ff0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
2000: 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f  (interp, protoco
2010: 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72  ls[index], ": pr
2020: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f  otocol not suppo
2030: 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 20  rted", (char *) 
2040: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75  NULL);..    retu
2050: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 63  rn TCL_ERROR;..c
2060: 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 69  ase TLS_SSL3:.#i
2070: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c  f defined(NO_SSL
2080: 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50  3) || defined(OP
2090: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 7c  ENSSL_NO_SSL3) |
20a0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53  | defined(OPENSS
20b0: 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44  L_NO_SSL3_METHOD
20c0: 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  )..    Tcl_Appen
20d0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
20e0: 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d  protocols[index]
20f0: 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f  , ": protocol no
2100: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63  t supported", (c
2110: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20  har *) NULL);.. 
2120: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
2130: 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20  ROR;.#else.     
2140: 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69         min_versi
2150: 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f  on = SSL3_VERSIO
2160: 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d  N;.            m
2170: 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c  ax_version = SSL
2180: 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20  3_VERSION;..    
2190: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63  break;.#endif..c
21a0: 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a 0a 23 69  ase TLS_TLS1:.#i
21b0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53  f defined(NO_TLS
21c0: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50  1) || defined(OP
21d0: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 7c  ENSSL_NO_TLS1) |
21e0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53  | defined(OPENSS
21f0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44  L_NO_TLS1_METHOD
2200: 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e  )..    Tcl_Appen
2210: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  dResult(interp, 
2220: 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d  protocols[index]
2230: 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f  , ": protocol no
2240: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63  t supported", (c
2250: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20  har *) NULL);.. 
2260: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52     return TCL_ER
2270: 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20  ROR;.#else.     
2280: 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69         min_versi
2290: 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 52 53 49 4f  on = TLS1_VERSIO
22a0: 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d  N;.            m
22b0: 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53  ax_version = TLS
22c0: 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20  1_VERSION;..    
22d0: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63  break;.#endif..c
22e0: 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a 0a  ase TLS_TLS1_1:.
22f0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54  #if defined(NO_T
2300: 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65  LS1_1) || define
2310: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53  d(OPENSSL_NO_TLS
2320: 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28  1_1) || defined(
2330: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f  OPENSSL_NO_TLS1_
2340: 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54  1_METHOD)..    T
2350: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28  cl_AppendResult(
2360: 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c  interp, protocol
2370: 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f  s[index], ": pro
2380: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72  tocol not suppor
2390: 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 20 4e  ted", (char *) N
23a0: 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72  ULL);..    retur
23b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c  n TCL_ERROR;.#el
23c0: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d  se.            m
23d0: 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53  in_version = TLS
23e0: 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20  1_1_VERSION;.   
23f0: 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72           max_ver
2400: 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f 56 45  sion = TLS1_1_VE
2410: 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61  RSION;..    brea
2420: 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20  k;.#endif..case 
2430: 54 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 66 20  TLS_TLS1_2:.#if 
2440: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f  defined(NO_TLS1_
2450: 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50  2) || defined(OP
2460: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29  ENSSL_NO_TLS1_2)
2470: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e   || defined(OPEN
2480: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45  SSL_NO_TLS1_2_ME
2490: 54 48 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41  THOD)..    Tcl_A
24a0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
24b0: 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e  rp, protocols[in
24c0: 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f  dex], ": protoco
24d0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22  l not supported"
24e0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29  , (char *) NULL)
24f0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43  ;..    return TC
2500: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20  L_ERROR;.#else. 
2510: 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76             min_v
2520: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f  ersion = TLS1_2_
2530: 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20  VERSION;.       
2540: 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e       max_version
2550: 20 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 49 4f   = TLS1_2_VERSIO
2560: 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23  N;..    break;.#
2570: 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f  endif..case TLS_
2580: 54 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65 66 69  TLS1_3:.#if defi
2590: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c  ned(NO_TLS1_3) |
25a0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53  | defined(OPENSS
25b0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 20 20  L_NO_TLS1_3)..  
25c0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
25d0: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f  lt(interp, proto
25e0: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20  cols[index], ": 
25f0: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70  protocol not sup
2600: 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a  ported", (char *
2610: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65  ) NULL);..    re
2620: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
2630: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20  #else.          
2640: 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20    min_version = 
2650: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a  TLS1_3_VERSION;.
2660: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f              max_
2670: 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33  version = TLS1_3
2680: 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62  _VERSION;..    b
2690: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65  reak;.#endif..de
26a0: 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 20 20  fault:.         
26b0: 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d     min_version =
26c0: 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 20   SSL3_VERSION;. 
26d0: 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76             max_v
26e0: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f  ersion = TLS1_3_
26f0: 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72  VERSION;..    br
2700: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  eak;.    }..    
2710: 2f 2a 20 43 72 65 61 74 65 20 63 6f 6e 74 65 78  /* Create contex
2720: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 63 74  t */.    if ((ct
2730: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28  x = SSL_CTX_new(
2740: 54 4c 53 5f 73 65 72 76 65 72 5f 6d 65 74 68 6f  TLS_server_metho
2750: 64 28 29 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b  d())) == NULL) {
2760: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
2770: 6c 74 28 69 6e 74 65 72 70 2c 20 47 45 54 5f 45  lt(interp, GET_E
2780: 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68  RR_REASON(), (ch
2790: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65  ar *) NULL);..re
27a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
27b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 65      }..    /* Se
27c0: 74 20 70 72 6f 74 6f 63 6f 6c 20 76 65 72 73 69  t protocol versi
27d0: 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 53  ons */.    if (S
27e0: 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 6e 5f 70  SL_CTX_set_min_p
27f0: 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78  roto_version(ctx
2800: 2c 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 29 20 3d  , min_version) =
2810: 3d 20 30 20 7c 7c 0a 09 53 53 4c 5f 43 54 58 5f  = 0 ||..SSL_CTX_
2820: 73 65 74 5f 6d 61 78 5f 70 72 6f 74 6f 5f 76 65  set_max_proto_ve
2830: 72 73 69 6f 6e 28 63 74 78 2c 20 6d 61 78 5f 76  rsion(ctx, max_v
2840: 65 72 73 69 6f 6e 29 20 3d 3d 20 30 29 20 7b 0a  ersion) == 0) {.
2850: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74  .SSL_CTX_free(ct
2860: 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  x);..return TCL_
2870: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20  ERROR;.    }..  
2880: 20 20 2f 2a 20 43 72 65 61 74 65 20 53 53 4c 20    /* Create SSL 
2890: 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69  context */.    i
28a0: 66 20 28 28 73 73 6c 20 3d 20 53 53 4c 5f 6e 65  f ((ssl = SSL_ne
28b0: 77 28 63 74 78 29 29 20 3d 3d 20 4e 55 4c 4c 29  w(ctx)) == NULL)
28c0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65   {..Tcl_AppendRe
28d0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 47 45 54  sult(interp, GET
28e0: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28  _ERR_REASON(), (
28f0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
2900: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78  SSL_CTX_free(ctx
2910: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45  );..return TCL_E
2920: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20  RROR;.    }..   
2930: 20 2f 2a 20 55 73 65 20 6c 69 73 74 20 61 6e 64   /* Use list and
2940: 20 6f 72 64 65 72 20 61 73 20 77 6f 75 6c 64 20   order as would 
2950: 62 65 20 73 65 6e 74 20 69 6e 20 61 20 43 6c 69  be sent in a Cli
2960: 65 6e 74 48 65 6c 6c 6f 20 6f 72 20 61 6c 6c 20  entHello or all 
2970: 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72  available cipher
2980: 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 75 73 65  s */.    if (use
2990: 5f 73 75 70 70 6f 72 74 65 64 29 20 7b 0a 09 73  _supported) {..s
29a0: 6b 20 3d 20 53 53 4c 5f 67 65 74 31 5f 73 75 70  k = SSL_get1_sup
29b0: 70 6f 72 74 65 64 5f 63 69 70 68 65 72 73 28 73  ported_ciphers(s
29c0: 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  sl);.    } else 
29d0: 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 5f  {..sk = SSL_get_
29e0: 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a 09 2f  ciphers(ssl);../
29f0: 2a 73 6b 20 3d 20 53 53 4c 5f 43 54 58 5f 67 65  *sk = SSL_CTX_ge
2a00: 74 5f 63 69 70 68 65 72 73 28 63 74 78 29 3b 2a  t_ciphers(ctx);*
2a10: 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20  /.    }..    if 
2a20: 28 73 6b 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09  (sk != NULL) {..
2a30: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f  Tcl_Obj *resultO
2a40: 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 69 66 20  bj = NULL;...if 
2a50: 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 20 20  (!verbose) {..  
2a60: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 70    const char *cp
2a70: 3b 0a 09 20 20 20 20 72 65 73 75 6c 74 4f 62 6a  ;..    resultObj
2a80: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62   = Tcl_NewListOb
2a90: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20  j(0, NULL);..   
2aa0: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d   if (resultObj =
2ab0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 20  = NULL) {...res 
2ac0: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67  = TCL_ERROR;...g
2ad0: 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d  oto done;..    }
2ae0: 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 6e 74 20  ...    for (int 
2af0: 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53  i = 0; i < sk_SS
2b00: 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29  L_CIPHER_num(sk)
2b10: 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74  ; i++) {...const
2b20: 20 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d   SSL_CIPHER *c =
2b30: 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76   sk_SSL_CIPHER_v
2b40: 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69  alue(sk, i);...i
2b50: 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f  f (c == NULL) co
2b60: 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 63 69  ntinue;..../* ci
2b70: 70 68 65 72 20 6e 61 6d 65 20 6f 72 20 28 4e 4f  pher name or (NO
2b80: 4e 45 29 20 2a 2f 0a 09 09 63 70 20 3d 20 53 53  NE) */...cp = SS
2b90: 4c 5f 43 49 50 48 45 52 5f 67 65 74 5f 6e 61 6d  L_CIPHER_get_nam
2ba0: 65 28 63 29 3b 0a 09 09 69 66 20 28 63 70 20 3d  e(c);...if (cp =
2bb0: 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b 3b 0a 09  = NULL) break;..
2bc0: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65  .Tcl_ListObjAppe
2bd0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70  ndElement(interp
2be0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c  , resultObj, Tcl
2bf0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63  _NewStringObj((c
2c00: 68 61 72 20 2a 29 20 63 70 2c 20 2d 31 29 29 3b  har *) cp, -1));
2c10: 0a 09 20 20 20 20 7d 0a 0a 09 7d 20 65 6c 73 65  ..    }...} else
2c20: 20 7b 0a 09 20 20 20 20 63 68 61 72 20 62 75 66   {..    char buf
2c30: 5b 42 55 46 53 49 5a 5d 3b 0a 09 20 20 20 20 72  [BUFSIZ];..    r
2c40: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e  esultObj = Tcl_N
2c50: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 22 2c 20  ewStringObj("", 
2c60: 30 29 3b 0a 09 20 20 20 20 69 66 20 28 72 65 73  0);..    if (res
2c70: 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20  ultObj == NULL) 
2c80: 7b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52  {...res = TCL_ER
2c90: 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65  ROR;...goto done
2ca0: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 66  ;..    }...    f
2cb0: 6f 72 20 28 69 6e 74 20 69 20 3d 20 30 3b 20 69  or (int i = 0; i
2cc0: 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52   < sk_SSL_CIPHER
2cd0: 5f 6e 75 6d 28 73 6b 29 3b 20 69 2b 2b 29 20 7b  _num(sk); i++) {
2ce0: 0a 09 09 63 6f 6e 73 74 20 53 53 4c 5f 43 49 50  ...const SSL_CIP
2cf0: 48 45 52 20 2a 63 20 3d 20 73 6b 5f 53 53 4c 5f  HER *c = sk_SSL_
2d00: 43 49 50 48 45 52 5f 76 61 6c 75 65 28 73 6b 2c  CIPHER_value(sk,
2d10: 20 69 29 3b 0a 09 09 69 66 20 28 63 20 3d 3d 20   i);...if (c == 
2d20: 4e 55 4c 4c 29 20 63 6f 6e 74 69 6e 75 65 3b 0a  NULL) continue;.
2d30: 0a 09 09 2f 2a 20 74 65 78 74 75 61 6c 20 64 65  .../* textual de
2d40: 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65  scription of the
2d50: 20 63 69 70 68 65 72 20 2a 2f 0a 09 09 69 66 20   cipher */...if 
2d60: 28 53 53 4c 5f 43 49 50 48 45 52 5f 64 65 73 63  (SSL_CIPHER_desc
2d70: 72 69 70 74 69 6f 6e 28 63 2c 20 62 75 66 2c 20  ription(c, buf, 
2d80: 73 69 7a 65 6f 66 28 62 75 66 29 29 20 21 3d 20  sizeof(buf)) != 
2d90: 4e 55 4c 4c 29 20 7b 0a 09 09 20 20 20 20 54 63  NULL) {...    Tc
2da0: 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 65  l_AppendToObj(re
2db0: 73 75 6c 74 4f 62 6a 2c 20 62 75 66 2c 20 28 54  sultObj, buf, (T
2dc0: 63 6c 5f 53 69 7a 65 29 20 73 74 72 6c 65 6e 28  cl_Size) strlen(
2dd0: 62 75 66 29 29 3b 0a 09 09 7d 20 65 6c 73 65 20  buf));...} else 
2de0: 7b 0a 09 09 20 20 20 20 54 63 6c 5f 41 70 70 65  {...    Tcl_Appe
2df0: 6e 64 54 6f 4f 62 6a 28 72 65 73 75 6c 74 4f 62  ndToObj(resultOb
2e00: 6a 2c 20 22 55 4e 4b 4e 4f 57 4e 5c 6e 22 2c 20  j, "UNKNOWN\n", 
2e10: 38 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09  8);...}..    }..
2e20: 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 20 75 70 20  }.../* Clean up 
2e30: 2a 2f 0a 09 69 66 20 28 75 73 65 5f 73 75 70 70  */..if (use_supp
2e40: 6f 72 74 65 64 29 20 7b 0a 09 20 20 20 20 73 6b  orted) {..    sk
2e50: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 66 72 65 65  _SSL_CIPHER_free
2e60: 28 73 6b 29 3b 0a 09 7d 0a 09 54 63 6c 5f 53 65  (sk);..}..Tcl_Se
2e70: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
2e80: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20  p, resultObj);. 
2e90: 20 20 20 7d 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20     }..done:.    
2ea0: 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20  SSL_free(ssl);. 
2eb0: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28     SSL_CTX_free(
2ec0: 63 74 78 29 3b 0a 20 20 20 20 72 65 74 75 72 6e  ctx);.    return
2ed0: 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a   res;.}../******
2ee0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2ef0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2f00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
2f10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a  *************/..
2f20: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  /*. *-----------
2f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44  --------. *. * D
2f70: 69 67 65 73 74 49 6e 66 6f 20 2d 2d 0a 20 2a 0a  igestInfo --. *.
2f80: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74   *.Return a list
2f90: 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 61   of properties a
2fa0: 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 64 69  nd values for di
2fb0: 67 65 73 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75  gest.. *. * Resu
2fc0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61  lts:. *.A standa
2fd0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a  rd Tcl list.. *.
2fe0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
2ff0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d  . *.None.. *. *-
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3040: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73  --. */.int Diges
3050: 74 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70  tInfo(Tcl_Interp
3060: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62   *interp, Tcl_Ob
3070: 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20  j *nameObj) {.  
3080: 20 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a    const EVP_MD *
3090: 6d 64 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20  md;.    Tcl_Obj 
30a0: 2a 72 65 73 75 6c 74 4f 62 6a 2c 20 2a 6c 69 73  *resultObj, *lis
30b0: 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73 69 67 6e  tObj;.    unsign
30c0: 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73 3b 0a 20  ed long flags;. 
30d0: 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20     char *name = 
30e0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6e 61  Tcl_GetString(na
30f0: 6d 65 4f 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a 20  meObj);..    /* 
3100: 47 65 74 20 6d 65 73 73 61 67 65 20 64 69 67 65  Get message dige
3110: 73 74 20 2a 2f 0a 20 20 20 20 6d 64 20 3d 20 45  st */.    md = E
3120: 56 50 5f 67 65 74 5f 64 69 67 65 73 74 62 79 6e  VP_get_digestbyn
3130: 61 6d 65 28 6e 61 6d 65 29 3b 0a 0a 20 20 20 20  ame(name);..    
3140: 69 66 20 28 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20  if (md == NULL) 
3150: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73  {..Tcl_AppendRes
3160: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76  ult(interp, "Inv
3170: 61 6c 69 64 20 64 69 67 65 73 74 20 5c 22 22 2c  alid digest \"",
3180: 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28 63 68   name, "\"", (ch
3190: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65  ar *) NULL);..re
31a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
31b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65      }..    /* Ge
31c0: 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a  t properties */.
31d0: 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20      resultObj = 
31e0: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30  Tcl_NewListObj(0
31f0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20  , NULL);.    if 
3200: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55  (resultObj == NU
3210: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43  LL) {..return TC
3220: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20  L_ERROR;.    }. 
3230: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69     LAPPEND_STR(i
3240: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a  nterp, resultObj
3250: 2c 20 22 6e 61 6d 65 22 2c 20 45 56 50 5f 4d 44  , "name", EVP_MD
3260: 5f 6e 61 6d 65 28 6d 64 29 2c 20 2d 31 29 3b 0a  _name(md), -1);.
3270: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28      LAPPEND_STR(
3280: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62  interp, resultOb
3290: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22  j, "description"
32a0: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c  , "", -1);.    L
32b0: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72  APPEND_INT(inter
32c0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73  p, resultObj, "s
32d0: 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f 73 69 7a  ize", EVP_MD_siz
32e0: 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c 41 50 50  e(md));.    LAPP
32f0: 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20  END_INT(interp, 
3300: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 6c 6f 63  resultObj, "bloc
3310: 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f  k_size", EVP_MD_
3320: 62 6c 6f 63 6b 5f 73 69 7a 65 28 6d 64 29 29 3b  block_size(md));
3330: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52  .    LAPPEND_STR
3340: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f  (interp, resultO
3350: 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20  bj, "provider", 
3360: 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50  "", -1);.    LAP
3370: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c  PEND_STR(interp,
3380: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70   resultObj, "typ
3390: 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45  e", OBJ_nid2ln(E
33a0: 56 50 5f 4d 44 5f 74 79 70 65 28 6d 64 29 29 2c  VP_MD_type(md)),
33b0: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e   -1);.    LAPPEN
33c0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65  D_STR(interp, re
33d0: 73 75 6c 74 4f 62 6a 2c 20 22 70 6b 65 79 5f 74  sultObj, "pkey_t
33e0: 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e  ype", OBJ_nid2ln
33f0: 28 45 56 50 5f 4d 44 5f 70 6b 65 79 5f 74 79 70  (EVP_MD_pkey_typ
3400: 65 28 6d 64 29 29 2c 20 2d 31 29 3b 0a 20 20 20  e(md)), -1);.   
3410: 20 66 6c 61 67 73 20 3d 20 45 56 50 5f 4d 44 5f   flags = EVP_MD_
3420: 66 6c 61 67 73 28 6d 64 29 3b 0a 0a 20 20 20 20  flags(md);..    
3430: 2f 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20 20  /* Flags */.    
3440: 6c 69 73 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65  listObj = Tcl_Ne
3450: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c  wListObj(0, NULL
3460: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42  );.    LAPPEND_B
3470: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74  OOL(interp, list
3480: 4f 62 6a 2c 20 22 4f 6e 65 2d 73 68 6f 74 22 2c  Obj, "One-shot",
3490: 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f   flags & EVP_MD_
34a0: 46 4c 41 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a 20  FLAG_ONESHOT);. 
34b0: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28     LAPPEND_BOOL(
34c0: 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c  interp, listObj,
34d0: 20 22 58 4f 46 22 2c 20 66 6c 61 67 73 20 26 20   "XOF", flags & 
34e0: 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46 29  EVP_MD_FLAG_XOF)
34f0: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f  ;.    LAPPEND_BO
3500: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f  OL(interp, listO
3510: 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72  bj, "DigestAlgor
3520: 69 74 68 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66 6c  ithmId_NULL", fl
3530: 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41  ags & EVP_MD_FLA
3540: 47 5f 44 49 47 41 4c 47 49 44 5f 4e 55 4c 4c 29  G_DIGALGID_NULL)
3550: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f  ;.    LAPPEND_BO
3560: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f  OL(interp, listO
3570: 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72  bj, "DigestAlgor
3580: 69 74 68 6d 49 64 5f 41 62 73 63 65 6e 74 22 2c  ithmId_Abscent",
3590: 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f   flags & EVP_MD_
35a0: 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 41 42  FLAG_DIGALGID_AB
35b0: 53 45 4e 54 29 3b 0a 20 20 20 20 4c 41 50 50 45  SENT);.    LAPPE
35c0: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20  ND_BOOL(interp, 
35d0: 6c 69 73 74 4f 62 6a 2c 20 22 44 69 67 65 73 74  listObj, "Digest
35e0: 41 6c 67 6f 72 69 74 68 6d 49 64 5f 43 75 73 74  AlgorithmId_Cust
35f0: 6f 6d 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50  om", flags & EVP
3600: 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49  _MD_FLAG_DIGALGI
3610: 44 5f 43 55 53 54 4f 4d 29 3b 0a 20 20 20 20 4c  D_CUSTOM);.    L
3620: 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65  APPEND_BOOL(inte
3630: 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 46 49  rp, listObj, "FI
3640: 50 53 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50  PS", flags & EVP
3650: 5f 4d 44 5f 46 4c 41 47 5f 46 49 50 53 29 3b 0a  _MD_FLAG_FIPS);.
3660: 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28      LAPPEND_OBJ(
3670: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62  interp, resultOb
3680: 6a 2c 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74  j, "flags", list
3690: 4f 62 6a 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53  Obj);..    Tcl_S
36a0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65  etObjResult(inte
36b0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a  rp, resultObj);.
36c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f      return TCL_O
36d0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  K;.}../*. *-----
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
3720: 2a 0a 20 2a 20 44 69 67 65 73 74 4c 69 73 74 20  *. * DigestList 
3730: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20  --. *. *.Return 
3740: 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 64 69  a list of all di
3750: 67 65 73 74 20 61 6c 67 6f 72 69 74 68 6d 73 0a  gest algorithms.
3760: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
3770: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c  *.A standard Tcl
3780: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64   list.. *. * Sid
3790: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f  e effects:. *.No
37a0: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ne.. *. *-------
37b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
37e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
37f0: 0a 69 6e 74 20 44 69 67 65 73 74 4c 69 73 74 28  .int DigestList(
3800: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65  Tcl_Interp *inte
3810: 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62  rp) {.    Tcl_Ob
3820: 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54  j *resultObj = T
3830: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c  cl_NewListObj(0,
3840: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28   NULL);.    if (
3850: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c  resultObj == NUL
3860: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c  L) {..return TCL
3870: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20  _ERROR;.    }.. 
3880: 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 45 56     /* Same as EV
3890: 50 5f 4d 44 5f 64 6f 5f 61 6c 6c 20 2a 2f 0a 20  P_MD_do_all */. 
38a0: 20 20 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f 61     OBJ_NAME_do_a
38b0: 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 45  ll(OBJ_NAME_TYPE
38c0: 5f 4d 44 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 43  _MD_METH, NamesC
38d0: 61 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 2a  allback, (void *
38e0: 29 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20  ) resultObj);.  
38f0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75    Tcl_SetObjResu
3900: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c  lt(interp, resul
3910: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72  tObj);.    retur
3920: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a  n TCL_OK;.}../*.
3930: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *--------------
3940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3970: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65  -----. *. * Dige
3980: 73 74 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a  stsObjCmd --. *.
3990: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74   *.Return a list
39a0: 20 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 68 61   of all valid ha
39b0: 73 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 6f 72  sh algorithms or
39c0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 73   message digests
39d0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
39e0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54  . *.A standard T
39f0: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53  cl list.. *. * S
3a00: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09  ide effects:. *.
3a10: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  None.. *. *-----
3a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
3a60: 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 73 4f 62  */.int DigestsOb
3a70: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20  jCmd(ClientData 
3a80: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f  clientData, Tcl_
3a90: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
3aa0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
3ab0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29  j *const objv[])
3ac0: 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c   {.    (void) cl
3ad0: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64  ientData;..    d
3ae0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29  printf("Called")
3af0: 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20  ;..    /* Clear 
3b00: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63  errors */.    Tc
3b10: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e  l_ResetResult(in
3b20: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63  terp);.    ERR_c
3b30: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 0a  lear_error();...
3b40: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20      /* Validate 
3b50: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20  arg count */.   
3b60: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20   if (objc == 1) 
3b70: 7b 0a 09 72 65 74 75 72 6e 20 44 69 67 65 73 74  {..return Digest
3b80: 4c 69 73 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20  List(interp);.. 
3b90: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62     } else if (ob
3ba0: 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 72 65 74 75  jc == 2) {..retu
3bb0: 72 6e 20 44 69 67 65 73 74 49 6e 66 6f 28 69 6e  rn DigestInfo(in
3bc0: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a  terp, objv[1]);.
3bd0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54  .    } else {..T
3be0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
3bf0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
3c00: 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74   "?name?");..ret
3c10: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20  urn TCL_ERROR;. 
3c20: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
3c30: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a  TCL_OK;.}../****
3c40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3c50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3c60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
3c70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f  ***************/
3c80: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
3c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
3cd0: 20 4b 64 66 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20   KdfList --. *. 
3ce0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20  *.Return a list 
3cf0: 6f 66 20 61 6c 6c 20 4b 44 46 20 61 6c 67 6f 72  of all KDF algor
3d00: 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75  ithms. *. * Resu
3d10: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61  lts:. *.A standa
3d20: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a  rd Tcl list.. *.
3d30: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a   * Side effects:
3d40: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d  . *.None.. *. *-
3d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3d90: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4b 64 66 4c 69  --. */.int KdfLi
3da0: 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  st(Tcl_Interp *i
3db0: 6e 74 65 72 70 2c 20 63 68 61 72 20 2a 73 65 6c  nterp, char *sel
3dc0: 65 63 74 5f 6e 61 6d 65 29 20 7b 0a 20 20 20 20  ect_name) {.    
3dd0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f  Tcl_Obj *resultO
3de0: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74  bj = Tcl_NewList
3df0: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20  Obj(0, NULL);.  
3e00: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20    if (resultObj 
3e10: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75  == NULL) {..retu
3e20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
3e30: 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73    }..    Tcl_Lis
3e40: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
3e50: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74  t(interp, result
3e60: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  Obj, Tcl_NewStri
3e70: 6e 67 4f 62 6a 28 22 68 6b 64 66 22 2c 20 2d 31  ngObj("hkdf", -1
3e80: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74  ));.    Tcl_List
3e90: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74  ObjAppendElement
3ea0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f  (interp, resultO
3eb0: 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  bj, Tcl_NewStrin
3ec0: 67 4f 62 6a 28 22 70 62 6b 64 66 32 22 2c 20 2d  gObj("pbkdf2", -
3ed0: 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73  1));.    Tcl_Lis
3ee0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
3ef0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74  t(interp, result
3f00: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  Obj, Tcl_NewStri
3f10: 6e 67 4f 62 6a 28 22 73 63 72 79 70 74 22 2c 20  ngObj("scrypt", 
3f20: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65  -1));.    Tcl_Se
3f30: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72  tObjResult(inter
3f40: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20  p, resultObj);. 
3f50: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b     return TCL_OK
3f60: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  ;.}../*. *------
3f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
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 0a 20 2a  -------------. *
3fb0: 0a 20 2a 20 4b 64 66 73 4f 62 6a 43 6d 64 20 2d  . * KdfsObjCmd -
3fc0: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61  -. *. *.Return a
3fd0: 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c   list of all val
3fe0: 69 64 20 4b 65 79 20 44 65 72 69 76 61 74 69 6f  id Key Derivatio
3ff0: 6e 20 46 75 6e 63 74 69 6f 6e 20 28 4b 44 46 29  n Function (KDF)
4000: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
4010: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54  . *.A standard T
4020: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53  cl list.. *. * S
4030: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09  ide effects:. *.
4040: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  None.. *. *-----
4050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
4090: 2a 2f 0a 69 6e 74 20 4b 64 66 73 4f 62 6a 43 6d  */.int KdfsObjCm
40a0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69  d(ClientData cli
40b0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74  entData, Tcl_Int
40c0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74  erp *interp, int
40d0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a   objc, Tcl_Obj *
40e0: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a  const objv[]) {.
40f0: 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e      (void) clien
4100: 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69  tData;..    dpri
4110: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a  ntf("Called");..
4120: 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72      /* Clear err
4130: 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52  ors */.    Tcl_R
4140: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  esetResult(inter
4150: 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61  p);.    ERR_clea
4160: 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 0a 20 20 20  r_error();...   
4170: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67   /* Validate arg
4180: 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66   count */.    if
4190: 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09   (objc == 1) {..
41a0: 72 65 74 75 72 6e 20 4b 64 66 4c 69 73 74 28 69  return KdfList(i
41b0: 6e 74 65 72 70 2c 20 4e 55 4c 4c 29 3b 0a 0a 20  nterp, NULL);.. 
41c0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62     } else if (ob
41d0: 6a 63 20 3d 3d 20 32 29 20 7b 0a 0a 0a 20 20 20  jc == 2) {...   
41e0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57   } else {..Tcl_W
41f0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
4200: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e  rp, 1, objv, "?n
4210: 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20  ame?");..return 
4220: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
4230: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
4240: 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a  OK;.}../********
4250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a  ***********/../*
4290: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
42a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
42b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
42c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
42d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63  ------. *. * Mac
42e0: 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65  Info --. *. *.Re
42f0: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70  turn a list of p
4300: 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61  roperties and va
4310: 6c 75 65 73 20 66 6f 72 20 6d 61 63 4e 61 6d 65  lues for macName
4320: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a  .. *. * Results:
4330: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54  . *.A standard T
4340: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53  cl list.. *. * S
4350: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09  ide effects:. *.
4360: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d  None.. *. *-----
4370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
43a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
43b0: 2a 2f 0a 69 6e 74 20 4d 61 63 49 6e 66 6f 28 54  */.int MacInfo(T
43c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
43d0: 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 6d 65  p, Tcl_Obj *name
43e0: 4f 62 6a 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f  Obj) {.    Tcl_O
43f0: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20  bj *resultObj;. 
4400: 20 20 20 69 6e 74 20 72 65 73 20 3d 20 54 43 4c     int res = TCL
4410: 5f 4f 4b 3b 0a 20 20 20 20 63 68 61 72 20 2a 6e  _OK;.    char *n
4420: 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72  ame = Tcl_GetStr
4430: 69 6e 67 28 6e 61 6d 65 4f 62 6a 29 3b 0a 0a 20  ing(nameObj);.. 
4440: 20 20 20 69 66 20 28 73 74 72 63 6d 70 28 6e 61     if (strcmp(na
4450: 6d 65 2c 20 22 63 6d 61 63 22 29 20 21 3d 20 30  me, "cmac") != 0
4460: 20 26 26 20 73 74 72 63 6d 70 28 6e 61 6d 65 2c   && strcmp(name,
4470: 20 22 68 6d 61 63 22 29 20 21 3d 20 30 29 20 7b   "hmac") != 0) {
4480: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75  ..Tcl_AppendResu
4490: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61  lt(interp, "Inva
44a0: 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 6e 61 6d  lid MAC \"", nam
44b0: 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20 2a  e, "\"", (char *
44c0: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e  ) NULL);..return
44d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20   TCL_ERROR;.    
44e0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72  }..    /* Get pr
44f0: 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20  operties */.    
4500: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f  resultObj = Tcl_
4510: 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55  NewListObj(0, NU
4520: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73  LL);.    if (res
4530: 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20  ultObj == NULL) 
4540: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52  {..return TCL_ER
4550: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c  ROR;.    }.    L
4560: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
4570: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e  p, resultObj, "n
4580: 61 6d 65 22 2c 20 6e 61 6d 65 2c 20 2d 31 29 3b  ame", name, -1);
4590: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52  .    LAPPEND_STR
45a0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f  (interp, resultO
45b0: 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e  bj, "description
45c0: 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20  ", "", -1);.    
45d0: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65  LAPPEND_STR(inte
45e0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22  rp, resultObj, "
45f0: 70 72 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d  provider", "", -
4600: 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74  1);..    Tcl_Set
4610: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70  ObjResult(interp
4620: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20  , resultObj);.  
4630: 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a    return res;.}.
4640: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ./*. *----------
4650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20  ---------. *. * 
4690: 4d 61 63 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a  MacList --. *. *
46a0: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f  .Return a list o
46b0: 66 20 61 6c 6c 20 4d 41 43 20 61 6c 67 6f 72 69  f all MAC algori
46c0: 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c  thms. *. * Resul
46d0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72  ts:. *.A standar
46e0: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20  d Tcl list.. *. 
46f0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a  * Side effects:.
4700: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d   *.None.. *. *--
4710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4750: 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 4c 69 73  -. */.int MacLis
4760: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
4770: 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f  terp) {.    Tcl_
4780: 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d  Obj *resultObj =
4790: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28   Tcl_NewListObj(
47a0: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66  0, NULL);.    if
47b0: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e   (resultObj == N
47c0: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54  ULL) {..return T
47d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
47e0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a  .    Tcl_ListObj
47f0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e  AppendElement(in
4800: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c  terp, resultObj,
4810: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
4820: 6a 28 22 63 6d 61 63 22 2c 20 2d 31 29 29 3b 0a  j("cmac", -1));.
4830: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41      Tcl_ListObjA
4840: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74  ppendElement(int
4850: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20  erp, resultObj, 
4860: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
4870: 28 22 68 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20  ("hmac", -1));. 
4880: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73     Tcl_SetObjRes
4890: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75  ult(interp, resu
48a0: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75  ltObj);.    retu
48b0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a  rn TCL_OK;.}../*
48c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
48d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
48e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
48f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4900: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63  ------. *. * Mac
4910: 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a  sObjCmd --. *. *
4920: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f  .Return a list o
4930: 66 20 61 6c 6c 20 76 61 6c 69 64 20 6d 65 73 73  f all valid mess
4940: 61 67 65 20 61 75 74 68 65 6e 74 69 63 61 74 69  age authenticati
4950: 6f 6e 20 63 6f 64 65 73 20 28 4d 41 43 29 2e 0a  on codes (MAC)..
4960: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20   *. * Results:. 
4970: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c  *.A standard Tcl
4980: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64   list.. *. * Sid
4990: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f  e effects:. *.No
49a0: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  ne.. *. *-------
49b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
49e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f  ------------. */
49f0: 0a 69 6e 74 20 4d 61 63 73 4f 62 6a 43 6d 64 28  .int MacsObjCmd(
4a00: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
4a10: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72  tData, Tcl_Inter
4a20: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f  p *interp, int o
4a30: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f  bjc, Tcl_Obj *co
4a40: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20  nst objv[]) {.  
4a50: 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44    (void) clientD
4a60: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74  ata;..    dprint
4a70: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20  f("Called");..  
4a80: 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72    /* Clear error
4a90: 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73  s */.    Tcl_Res
4aa0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29  etResult(interp)
4ab0: 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f  ;.    ERR_clear_
4ac0: 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a  error();..    /*
4ad0: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f   Validate arg co
4ae0: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f  unt */.    if (o
4af0: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74  bjc == 1) {..ret
4b00: 75 72 6e 20 4d 61 63 4c 69 73 74 28 69 6e 74 65  urn MacList(inte
4b10: 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65  rp);..    } else
4b20: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20   if (objc == 2) 
4b30: 7b 0a 09 72 65 74 75 72 6e 20 4d 61 63 49 6e 66  {..return MacInf
4b40: 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31  o(interp, objv[1
4b50: 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20  ]);..    } else 
4b60: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41  {..Tcl_WrongNumA
4b70: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f  rgs(interp, 1, o
4b80: 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a  bjv, "?name?");.
4b90: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f  .return TCL_ERRO
4ba0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  R;.    }.    ret
4bb0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f  urn TCL_OK;.}../
4bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4bf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
4c00: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d  ***/../*. *-----
4c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
4c50: 2a 0a 20 2a 20 50 6b 65 79 49 6e 66 6f 20 2d 2d  *. * PkeyInfo --
4c60: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20  . *. *.Return a 
4c70: 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69  list of properti
4c80: 65 73 20 61 6e 64 20 76 61 6c 75 65 73 20 66 6f  es and values fo
4c90: 72 20 70 6b 65 79 2e 0a 20 2a 0a 20 2a 20 52 65  r pkey.. *. * Re
4ca0: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e  sults:. *.A stan
4cb0: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20  dard Tcl list.. 
4cc0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74  *. * Side effect
4cd0: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20  s:. *.None.. *. 
4ce0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  *---------------
4cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d20: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65  ----. */.int Pke
4d30: 79 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70  yInfo(Tcl_Interp
4d40: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62   *interp, Tcl_Ob
4d50: 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20  j *nameObj) {.  
4d60: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c    Tcl_Obj *resul
4d70: 74 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65  tObj;.    int re
4d80: 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20  s = TCL_OK;.    
4d90: 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c  char *name = Tcl
4da0: 5f 47 65 74 53 74 72 69 6e 67 28 6e 61 6d 65 4f  _GetString(nameO
4db0: 62 6a 29 3b 0a 20 20 20 20 45 56 50 5f 50 4b 45  bj);.    EVP_PKE
4dc0: 59 20 2a 70 6b 65 79 20 3d 20 4e 55 4c 4c 3b 0a  Y *pkey = NULL;.
4dd0: 0a 20 20 20 20 69 66 20 28 70 6b 65 79 20 3d 3d  .    if (pkey ==
4de0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70   NULL) {..Tcl_Ap
4df0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
4e00: 70 2c 20 22 49 6e 76 61 6c 69 64 20 70 75 62 6c  p, "Invalid publ
4e10: 69 63 20 6b 65 79 20 6d 65 74 68 6f 64 20 5c 22  ic key method \"
4e20: 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28  ", name, "\"", (
4e30: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09  char *) NULL);..
4e40: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52  return TCL_ERROR
4e50: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20  ;.    }..    /* 
4e60: 47 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a  Get properties *
4e70: 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20  /.    resultObj 
4e80: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a  = Tcl_NewListObj
4e90: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69  (0, NULL);.    i
4ea0: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20  f (resultObj == 
4eb0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20  NULL) {..return 
4ec0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
4ed0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52  .    LAPPEND_STR
4ee0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f  (interp, resultO
4ef0: 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 4f 42 4a 5f  bj, "name", OBJ_
4f00: 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f  nid2ln(EVP_PKEY_
4f10: 69 64 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a  id(pkey)), -1);.
4f20: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28      LAPPEND_STR(
4f30: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62  interp, resultOb
4f40: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22  j, "description"
4f50: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c  , "", -1);.    L
4f60: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72  APPEND_INT(inter
4f70: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73  p, resultObj, "s
4f80: 69 7a 65 22 2c 20 45 56 50 5f 50 4b 45 59 5f 73  ize", EVP_PKEY_s
4f90: 69 7a 65 28 70 6b 65 79 29 29 3b 0a 20 20 20 20  ize(pkey));.    
4fa0: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65  LAPPEND_INT(inte
4fb0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22  rp, resultObj, "
4fc0: 62 69 74 73 22 2c 20 45 56 50 5f 50 4b 45 59 5f  bits", EVP_PKEY_
4fd0: 62 69 74 73 28 70 6b 65 79 29 29 3b 0a 20 20 20  bits(pkey));.   
4fe0: 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74   LAPPEND_INT(int
4ff0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20  erp, resultObj, 
5000: 22 73 65 63 75 72 69 74 79 5f 62 69 74 73 22 2c  "security_bits",
5010: 20 45 56 50 5f 50 4b 45 59 5f 73 65 63 75 72 69   EVP_PKEY_securi
5020: 74 79 5f 62 69 74 73 28 70 6b 65 79 29 29 3b 0a  ty_bits(pkey));.
5030: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28      LAPPEND_STR(
5040: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62  interp, resultOb
5050: 6a 2c 20 22 62 61 73 65 49 64 22 2c 20 4f 42 4a  j, "baseId", OBJ
5060: 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59  _nid2ln(EVP_PKEY
5070: 5f 62 61 73 65 5f 69 64 28 70 6b 65 79 29 29 2c  _base_id(pkey)),
5080: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e   -1);.    LAPPEN
5090: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65  D_STR(interp, re
50a0: 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64  sultObj, "provid
50b0: 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20  er", "", -1);.  
50c0: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e    LAPPEND_STR(in
50d0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c  terp, resultObj,
50e0: 20 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64   "type", OBJ_nid
50f0: 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 74 79 70  2ln(EVP_PKEY_typ
5100: 65 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b  e(EVP_PKEY_id(pk
5110: 65 79 29 29 29 2c 20 2d 31 29 3b 0a 0a 20 20 20  ey))), -1);..   
5120: 20 7b 0a 09 69 6e 74 20 70 6e 69 64 3b 0a 09 69   {..int pnid;..i
5130: 66 20 28 45 56 50 5f 50 4b 45 59 5f 67 65 74 5f  f (EVP_PKEY_get_
5140: 64 65 66 61 75 6c 74 5f 64 69 67 65 73 74 5f 6e  default_digest_n
5150: 69 64 28 70 6b 65 79 2c 20 26 70 6e 69 64 29 20  id(pkey, &pnid) 
5160: 3e 20 30 29 20 7b 0a 09 20 20 20 20 4c 41 50 50  > 0) {..    LAPP
5170: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20  END_STR(interp, 
5180: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 66 61  resultObj, "defa
5190: 75 6c 74 5f 64 69 67 65 73 74 22 2c 20 4f 42 4a  ult_digest", OBJ
51a0: 5f 6e 69 64 32 6c 6e 28 70 6e 69 64 29 2c 20 2d  _nid2ln(pnid), -
51b0: 32 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20  2);..}.    }..  
51c0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75    Tcl_SetObjResu
51d0: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c  lt(interp, resul
51e0: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72  tObj);.    retur
51f0: 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d  n res;.}../*. *-
5200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5240: 2d 2d 0a 20 2a 0a 20 2a 20 50 6b 65 79 4c 69 73  --. *. * PkeyLis
5250: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72  t --. *. *.Retur
5260: 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20  n a list of all 
5270: 70 75 62 6c 69 63 20 6b 65 79 20 6d 65 74 68 6f  public key metho
5280: 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73  ds. *. * Results
5290: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20  :. *.A standard 
52a0: 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20  Tcl list.. *. * 
52b0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a  Side effects:. *
52c0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d  .None.. *. *----
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 2d  ----------------
5300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
5310: 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 4c 69 73 74   */.int PkeyList
5320: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
5330: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f  erp) {.    Tcl_O
5340: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20  bj *resultObj = 
5350: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30  Tcl_NewListObj(0
5360: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20  , NULL);.    if 
5370: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55  (resultObj == NU
5380: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43  LL) {..return TC
5390: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a  L_ERROR;.    }..
53a0: 20 20 20 20 66 6f 72 20 28 73 69 7a 65 5f 74 20      for (size_t 
53b0: 69 20 3d 20 30 3b 20 69 20 3c 20 45 56 50 5f 50  i = 0; i < EVP_P
53c0: 4b 45 59 5f 6d 65 74 68 5f 67 65 74 5f 63 6f 75  KEY_meth_get_cou
53d0: 6e 74 28 29 3b 20 69 2b 2b 29 20 7b 0a 20 20 20  nt(); i++) {.   
53e0: 20 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 50       const EVP_P
53f0: 4b 45 59 5f 4d 45 54 48 4f 44 20 2a 70 6d 65 74  KEY_METHOD *pmet
5400: 68 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74  h = EVP_PKEY_met
5410: 68 5f 67 65 74 30 28 69 29 3b 0a 20 20 20 20 20  h_get0(i);.     
5420: 20 20 20 69 6e 74 20 70 6b 65 79 5f 69 64 2c 20     int pkey_id, 
5430: 70 6b 65 79 5f 66 6c 61 67 73 3b 0a 0a 20 20 20  pkey_flags;..   
5440: 20 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 6d 65       EVP_PKEY_me
5450: 74 68 5f 67 65 74 30 5f 69 6e 66 6f 28 26 70 6b  th_get0_info(&pk
5460: 65 79 5f 69 64 2c 20 26 70 6b 65 79 5f 66 6c 61  ey_id, &pkey_fla
5470: 67 73 2c 20 70 6d 65 74 68 29 3b 0a 09 2f 2a 4c  gs, pmeth);../*L
5480: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72  APPEND_STR(inter
5490: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e  p, resultObj, "n
54a0: 61 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e  ame", OBJ_nid2ln
54b0: 28 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29 3b 0a  (pkey_id), -1);.
54c0: 09 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74  .LAPPEND_STR(int
54d0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20  erp, resultObj, 
54e0: 22 74 79 70 65 22 2c 20 70 6b 65 79 5f 66 6c 61  "type", pkey_fla
54f0: 67 73 20 26 20 41 53 4e 31 5f 50 4b 45 59 5f 44  gs & ASN1_PKEY_D
5500: 59 4e 41 4d 49 43 20 3f 20 22 45 78 74 65 72 6e  YNAMIC ? "Extern
5510: 61 6c 22 20 3a 20 22 42 75 69 6c 74 2d 69 6e 22  al" : "Built-in"
5520: 2c 20 2d 31 29 3b 2a 2f 0a 0a 09 54 63 6c 5f 4c  , -1);*/...Tcl_L
5530: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d  istObjAppendElem
5540: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75  ent(interp, resu
5550: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74  ltObj, Tcl_NewSt
5560: 72 69 6e 67 4f 62 6a 28 4f 42 4a 5f 6e 69 64 32  ringObj(OBJ_nid2
5570: 6c 6e 28 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29  ln(pkey_id), -1)
5580: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c  );.    }.    Tcl
5590: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e  _SetObjResult(in
55a0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29  terp, resultObj)
55b0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c  ;.    return TCL
55c0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d  _OK;.}../*. *---
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 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5610: 0a 20 2a 0a 20 2a 20 50 6b 65 79 73 4f 62 6a 43  . *. * PkeysObjC
5620: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75  md --. *. *.Retu
5630: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c  rn a list of all
5640: 20 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 6f   valid hash algo
5650: 72 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 67  rithms or messag
5660: 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a  e digests.. *. *
5670: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
5680: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74  tandard Tcl list
5690: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
56a0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20  ects:. *.None.. 
56b0: 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
56e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
56f0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20  -------. */.int 
5700: 50 6b 65 79 73 4f 62 6a 43 6d 64 28 43 6c 69 65  PkeysObjCmd(Clie
5710: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74  ntData clientDat
5720: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  a, Tcl_Interp *i
5730: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c  nterp, int objc,
5740: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20   Tcl_Obj *const 
5750: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76  objv[]) {.    (v
5760: 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b  oid) clientData;
5770: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43  ..    dprintf("C
5780: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a  alled");..    /*
5790: 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f   Clear errors */
57a0: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65  .    Tcl_ResetRe
57b0: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20  sult(interp);.  
57c0: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f    ERR_clear_erro
57d0: 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c  r();..    /* Val
57e0: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20  idate arg count 
57f0: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20  */.    if (objc 
5800: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20  == 1) {..return 
5810: 50 6b 65 79 4c 69 73 74 28 69 6e 74 65 72 70 29  PkeyList(interp)
5820: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66  ;..    } else if
5830: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09   (objc == 2) {..
5840: 72 65 74 75 72 6e 20 50 6b 65 79 49 6e 66 6f 28  return PkeyInfo(
5850: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29  interp, objv[1])
5860: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a  ;..    } else {.
5870: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67  .Tcl_WrongNumArg
5880: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a  s(interp, 1, obj
5890: 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72  v, "?name?");..r
58a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
58b0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
58c0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a  n TCL_OK;.}../**
58d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
58e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
58f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5900: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
5910: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  */../*. *-------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
5960: 20 2a 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43   * ProtocolsObjC
5970: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75  md --. *. *.Retu
5980: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65  rn a list of the
5990: 20 61 76 61 69 6c 61 62 6c 65 20 6f 72 20 73 75   available or su
59a0: 70 70 6f 72 74 65 64 20 53 53 4c 2f 54 4c 53 20  pported SSL/TLS 
59b0: 70 72 6f 74 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 2a  protocols.. *. *
59c0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73   Results:. *.A s
59d0: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74  tandard Tcl list
59e0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66  .. *. * Side eff
59f0: 65 63 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a  ects:. *.none. *
5a00: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  . *-------------
5a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
5a40: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69  ------. */.stati
5a50: 63 20 69 6e 74 0a 50 72 6f 74 6f 63 6f 6c 73 4f  c int.ProtocolsO
5a60: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61  bjCmd(ClientData
5a70: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c   clientData, Tcl
5a80: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
5a90: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f   int objc, Tcl_O
5aa0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d  bj *const objv[]
5ab0: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20  ) {.    Tcl_Obj 
5ac0: 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20  *resultObj;.    
5ad0: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74  (void) clientDat
5ae0: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28  a;..    dprintf(
5af0: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20  "Called");..    
5b00: 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20  /* Clear errors 
5b10: 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74  */.    Tcl_Reset
5b20: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a  Result(interp);.
5b30: 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72      ERR_clear_er
5b40: 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56  ror();..    /* V
5b50: 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e  alidate arg coun
5b60: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a  t */.    if (obj
5b70: 63 20 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f 57  c != 1) {..Tcl_W
5b80: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65  rongNumArgs(inte
5b90: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c  rp, 1, objv, NUL
5ba0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f  L);..return TCL_
5bb0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20  ERROR;.    }..  
5bc0: 20 20 2f 2a 20 4c 69 73 74 20 61 6c 6c 20 70 72    /* List all pr
5bd0: 6f 74 6f 63 6f 6c 73 20 2a 2f 0a 20 20 20 20 72  otocols */.    r
5be0: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e  esultObj = Tcl_N
5bf0: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c  ewListObj(0, NUL
5c00: 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75  L);.    if (resu
5c10: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b  ltObj == NULL) {
5c20: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52  ..return TCL_ERR
5c30: 4f 52 3b 0a 20 20 20 20 7d 0a 23 69 66 20 4f 50  OR;.    }.#if OP
5c40: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55  ENSSL_VERSION_NU
5c50: 4d 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30  MBER < 0x1010000
5c60: 30 4c 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e  0L && !defined(N
5c70: 4f 5f 53 53 4c 32 29 20 26 26 20 21 64 65 66 69  O_SSL2) && !defi
5c80: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53  ned(OPENSSL_NO_S
5c90: 53 4c 32 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73  SL2).    Tcl_Lis
5ca0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e  tObjAppendElemen
5cb0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74  t(interp, result
5cc0: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69  Obj, Tcl_NewStri
5cd0: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b  ngObj(protocols[
5ce0: 54 4c 53 5f 53 53 4c 32 5d 2c 20 2d 31 29 29 3b  TLS_SSL2], -1));
5cf0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66  .#endif.#if !def
5d00: 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 26 26  ined(NO_SSL3) &&
5d10: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53   !defined(OPENSS
5d20: 4c 5f 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 64  L_NO_SSL3) && !d
5d30: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e  efined(OPENSSL_N
5d40: 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 29 0a 20  O_SSL3_METHOD). 
5d50: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70     Tcl_ListObjAp
5d60: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65  pendElement(inte
5d70: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54  rp, resultObj, T
5d80: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28  cl_NewStringObj(
5d90: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53  protocols[TLS_SS
5da0: 4c 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69  L3], -1));.#endi
5db0: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e  f.#if !defined(N
5dc0: 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 66 69  O_TLS1) && !defi
5dd0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54  ned(OPENSSL_NO_T
5de0: 4c 53 31 29 20 26 26 20 21 64 65 66 69 6e 65 64  LS1) && !defined
5df0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31  (OPENSSL_NO_TLS1
5e00: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c  _METHOD).    Tcl
5e10: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
5e20: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65  ement(interp, re
5e30: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77  sultObj, Tcl_New
5e40: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63  StringObj(protoc
5e50: 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5d 2c 20 2d  ols[TLS_TLS1], -
5e60: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20  1));.#endif.#if 
5e70: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31  !defined(NO_TLS1
5e80: 5f 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28  _1) && !defined(
5e90: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f  OPENSSL_NO_TLS1_
5ea0: 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f  1) && !defined(O
5eb0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31  PENSSL_NO_TLS1_1
5ec0: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c  _METHOD).    Tcl
5ed0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c  _ListObjAppendEl
5ee0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65  ement(interp, re
5ef0: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77  sultObj, Tcl_New
5f00: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63  StringObj(protoc
5f10: 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 31 5d 2c  ols[TLS_TLS1_1],
5f20: 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69   -1));.#endif.#i
5f30: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c  f !defined(NO_TL
5f40: 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65  S1_2) && !define
5f50: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53  d(OPENSSL_NO_TLS
5f60: 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65 64  1_2) && !defined
5f70: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31  (OPENSSL_NO_TLS1
5f80: 5f 32 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54  _2_METHOD).    T
5f90: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64  cl_ListObjAppend
5fa0: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20  Element(interp, 
5fb0: 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e  resultObj, Tcl_N
5fc0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74  ewStringObj(prot
5fd0: 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 32  ocols[TLS_TLS1_2
5fe0: 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a  ], -1));.#endif.
5ff0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f  #if !defined(NO_
6000: 54 4c 53 31 5f 33 29 20 26 26 20 21 64 65 66 69  TLS1_3) && !defi
6010: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54  ned(OPENSSL_NO_T
6020: 4c 53 31 5f 33 29 0a 20 20 20 20 54 63 6c 5f 4c  LS1_3).    Tcl_L
6030: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d  istObjAppendElem
6040: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75  ent(interp, resu
6050: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74  ltObj, Tcl_NewSt
6060: 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c  ringObj(protocol
6070: 73 5b 54 4c 53 5f 54 4c 53 31 5f 33 5d 2c 20 2d  s[TLS_TLS1_3], -
6080: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20  1));.#endif.    
6090: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74  Tcl_SetObjResult
60a0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f  (interp, resultO
60b0: 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  bj);.    return 
60c0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a  TCL_OK;.}../****
60d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
60e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
60f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6100: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f  ***************/
6110: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d  ../*. *---------
6120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a  ----------. *. *
6160: 20 50 72 6f 76 69 64 65 72 4f 62 6a 43 6d 64 20   ProviderObjCmd 
6170: 2d 2d 0a 20 2a 0a 20 2a 09 4c 6f 61 64 20 61 20  --. *. *.Load a 
6180: 70 72 6f 76 69 64 65 72 2e 0a 20 2a 0a 20 2a 20  provider.. *. * 
6190: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74  Results:. *.A st
61a0: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c  andard Tcl resul
61b0: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  t.. *. * Side ef
61c0: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a  fects:. *.None..
61d0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
61e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
61f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6210: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66  --------. */.#if
6220: 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e   OPENSSL_VERSION
6230: 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30  _NUMBER >= 0x300
6240: 30 30 30 30 30 4c 0a 73 74 61 74 69 63 20 69 6e  00000L.static in
6250: 74 0a 50 72 6f 76 69 64 65 72 4f 62 6a 43 6d 64  t.ProviderObjCmd
6260: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65  (ClientData clie
6270: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65  ntData, Tcl_Inte
6280: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20  rp *interp, int 
6290: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63  objc, Tcl_Obj *c
62a0: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20  onst objv[]) {. 
62b0: 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 3b 0a 20     char *name;. 
62c0: 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74     (void) client
62d0: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e  Data;..    dprin
62e0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20  tf("Called");.. 
62f0: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61     /* Validate a
6300: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20  rg count */.    
6310: 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b  if (objc != 2) {
6320: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72  ..Tcl_WrongNumAr
6330: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62  gs(interp, 1, ob
6340: 6a 76 2c 20 22 6e 61 6d 65 22 29 3b 0a 09 72 65  jv, "name");..re
6350: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
6360: 20 20 20 20 7d 0a 0a 20 20 20 20 6e 61 6d 65 20      }..    name 
6370: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28  = Tcl_GetString(
6380: 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66  objv[1]);.    if
6390: 20 28 21 4f 53 53 4c 5f 50 52 4f 56 49 44 45 52   (!OSSL_PROVIDER
63a0: 5f 74 72 79 5f 6c 6f 61 64 28 4e 55 4c 4c 2c 20  _try_load(NULL, 
63b0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 6e  (const char *) n
63c0: 61 6d 65 2c 20 31 29 29 20 7b 0a 09 54 63 6c 5f  ame, 1)) {..Tcl_
63d0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74  AppendResult(int
63e0: 65 72 70 2c 20 47 45 54 5f 45 52 52 5f 52 45 41  erp, GET_ERR_REA
63f0: 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20  SON(), (char *) 
6400: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54  NULL);..return T
6410: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a  CL_ERROR;.    }.
6420: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
6430: 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a  OK;.}.#endif../*
6440: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6450: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6460: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6470: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6480: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d  **/../*. *------
6490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
64c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a  -------------. *
64d0: 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d  . * VersionObjCm
64e0: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72  d --. *. *.Retur
64f0: 6e 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 20  n a string with 
6500: 74 68 65 20 4f 70 65 6e 53 53 4c 20 76 65 72 73  the OpenSSL vers
6510: 69 6f 6e 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a 20  ion info.. *. * 
6520: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74  Results:. *.A st
6530: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c  andard Tcl resul
6540: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66  t.. *. * Side ef
6550: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a  fects:. *.None..
6560: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
65a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61  --------. */.sta
65b0: 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f  tic int.VersionO
65c0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61  bjCmd(ClientData
65d0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c   clientData, Tcl
65e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c  _Interp *interp,
65f0: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f   int objc, Tcl_O
6600: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d  bj *const objv[]
6610: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20  ) {.    Tcl_Obj 
6620: 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20  *resultObj;.    
6630: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74  (void) clientDat
6640: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28  a;..    dprintf(
6650: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20  "Called");..    
6660: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20  /* Validate arg 
6670: 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20  count */.    if 
6680: 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a 09 54  (objc != 1) {..T
6690: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28  cl_WrongNumArgs(
66a0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c  interp, 1, objv,
66b0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20   NULL);..return 
66c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d  TCL_ERROR;.    }
66d0: 0a 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20  ..    resultObj 
66e0: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  = Tcl_NewStringO
66f0: 62 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49  bj(OPENSSL_VERSI
6700: 4f 4e 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 20 20  ON_TEXT, -1);.  
6710: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75    Tcl_SetObjResu
6720: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c  lt(interp, resul
6730: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72  tObj);.    retur
6740: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a  n TCL_OK;.}../**
6750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6780: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
6790: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d  */../*. *-------
67a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
67b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
67c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
67d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a  ------------. *.
67e0: 20 2a 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61   * Tls_InfoComma
67f0: 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65  nds --. *. *.Cre
6800: 61 74 65 20 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64  ate info command
6810: 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a  s. *. * Returns:
6820: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43  . *.TCL_OK or TC
6830: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69  L_ERROR. *. * Si
6840: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43  de effects:. *.C
6850: 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a  reates commands.
6860: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   *. *-----------
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
6890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
68a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74  --------. */.int
68b0: 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64   Tls_InfoCommand
68c0: 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  s(Tcl_Interp *in
68d0: 74 65 72 70 29 20 7b 0a 0a 23 69 66 20 4f 50 45  terp) {..#if OPE
68e0: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d  NSSL_VERSION_NUM
68f0: 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30 30  BER < 0x10100000
6900: 4c 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64  L.    OpenSSL_ad
6910: 64 5f 61 6c 6c 5f 63 69 70 68 65 72 73 28 29 3b  d_all_ciphers();
6920: 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64  .    OpenSSL_add
6930: 5f 61 6c 6c 5f 64 69 67 65 73 74 73 28 29 3b 0a  _all_digests();.
6940: 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f      OpenSSL_add_
6950: 61 6c 6c 5f 61 6c 67 6f 72 69 74 68 6d 73 28 29  all_algorithms()
6960: 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 54 63  ;.#endif..    Tc
6970: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
6980: 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c  nd(interp, "::tl
6990: 73 3a 3a 63 69 70 68 65 72 22 2c 20 43 69 70 68  s::cipher", Ciph
69a0: 65 72 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e  erObjCmd, (Clien
69b0: 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63  tData) NULL, (Tc
69c0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20  l_CmdDeleteProc 
69d0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63  *) NULL);.    Tc
69e0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
69f0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c  nd(interp, "::tl
6a00: 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 69 70  s::ciphers", Cip
6a10: 68 65 72 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69  hersObjCmd, (Cli
6a20: 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28  entData) NULL, (
6a30: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f  Tcl_CmdDeletePro
6a40: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20  c *) NULL);.    
6a50: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d  Tcl_CreateObjCom
6a60: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a  mand(interp, "::
6a70: 74 6c 73 3a 3a 64 69 67 65 73 74 73 22 2c 20 44  tls::digests", D
6a80: 69 67 65 73 74 73 4f 62 6a 43 6d 64 2c 20 28 43  igestsObjCmd, (C
6a90: 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c  lientData) NULL,
6aa0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50   (Tcl_CmdDeleteP
6ab0: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  roc *) NULL);.  
6ac0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
6ad0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22  ommand(interp, "
6ae0: 3a 3a 74 6c 73 3a 3a 6b 64 66 73 22 2c 20 4b 64  ::tls::kdfs", Kd
6af0: 66 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e  fsObjCmd, (Clien
6b00: 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63  tData) NULL, (Tc
6b10: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20  l_CmdDeleteProc 
6b20: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63  *) NULL);.    Tc
6b30: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61  l_CreateObjComma
6b40: 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c  nd(interp, "::tl
6b50: 73 3a 3a 6d 61 63 73 22 2c 20 4d 61 63 73 4f 62  s::macs", MacsOb
6b60: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74  jCmd, (ClientDat
6b70: 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d  a) NULL, (Tcl_Cm
6b80: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e  dDeleteProc *) N
6b90: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72  ULL);.    Tcl_Cr
6ba0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69  eateObjCommand(i
6bb0: 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 70  nterp, "::tls::p
6bc0: 6b 65 79 73 22 2c 20 50 6b 65 79 73 4f 62 6a 43  keys", PkeysObjC
6bd0: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29  md, (ClientData)
6be0: 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44   NULL, (Tcl_CmdD
6bf0: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c  eleteProc *) NUL
6c00: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61  L);.    Tcl_Crea
6c10: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74  teObjCommand(int
6c20: 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 70 72 6f  erp, "::tls::pro
6c30: 74 6f 63 6f 6c 73 22 2c 20 50 72 6f 74 6f 63 6f  tocols", Protoco
6c40: 6c 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e  lsObjCmd, (Clien
6c50: 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63  tData) NULL, (Tc
6c60: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20  l_CmdDeleteProc 
6c70: 2a 29 20 4e 55 4c 4c 29 3b 0a 23 69 66 20 4f 50  *) NULL);.#if OP
6c80: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55  ENSSL_VERSION_NU
6c90: 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30  MBER >= 0x300000
6ca0: 30 30 4c 0a 20 20 20 20 54 63 6c 5f 43 72 65 61  00L.    Tcl_Crea
6cb0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74  teObjCommand(int
6cc0: 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 70 72 6f  erp, "::tls::pro
6cd0: 76 69 64 65 72 22 2c 20 50 72 6f 76 69 64 65 72  vider", Provider
6ce0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44  ObjCmd, (ClientD
6cf0: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f  ata) NULL, (Tcl_
6d00: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29  CmdDeleteProc *)
6d10: 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 20   NULL);.#endif. 
6d20: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a     Tcl_CreateObj
6d30: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20  Command(interp, 
6d40: 22 3a 3a 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22  "::tls::version"
6d50: 2c 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c  , VersionObjCmd,
6d60: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55   (ClientData) NU
6d70: 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65  LL, (Tcl_CmdDele
6d80: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b  teProc *) NULL);
6d90: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f  .    return TCL_
6da0: 4f 4b 3b 0a 7d 0a 0a                             OK;.}..