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 69 6e 74 20 , mode;. int
0740: 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 res = TCL_OK;.
0750: 20 20 63 68 61 72 20 2a 6d 6f 64 65 4e 61 6d 65 char *modeName
0760: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 68 61 = NULL;. cha
0770: 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 r *name = Tcl_Ge
0780: 74 53 74 72 69 6e 67 28 6e 61 6d 65 4f 62 6a 29 tString(nameObj)
0790: 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 69 ;.. /* Get ci
07a0: 70 68 65 72 20 2a 2f 0a 23 69 66 20 4f 50 45 4e pher */.#if OPEN
07b0: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 SSL_VERSION_NUMB
07c0: 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c ER < 0x30000000L
07d0: 0a 20 20 20 20 63 69 70 68 65 72 20 3d 20 45 56 . cipher = EV
07e0: 50 5f 67 65 74 5f 63 69 70 68 65 72 62 79 6e 61 P_get_cipherbyna
07f0: 6d 65 28 6e 61 6d 65 29 3b 0a 23 65 6c 73 65 0a me(name);.#else.
0800: 20 20 20 20 63 69 70 68 65 72 20 3d 20 45 56 50 cipher = EVP
0810: 5f 43 49 50 48 45 52 5f 66 65 74 63 68 28 4e 55 _CIPHER_fetch(NU
0820: 4c 4c 2c 20 6e 61 6d 65 2c 20 4e 55 4c 4c 29 3b LL, name, NULL);
0830: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20 .#endif.. if
0840: 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 (cipher == NULL)
0850: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
0860: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e sult(interp, "In
0870: 76 61 6c 69 64 20 63 69 70 68 65 72 20 5c 22 22 valid cipher \""
0880: 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28 63 , name, "\"", (c
0890: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
08a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
08b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
08c0: 72 65 61 74 65 20 72 65 73 75 6c 74 20 6f 62 6a reate result obj
08d0: 65 63 74 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c ect */. resul
08e0: 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 tObj = Tcl_NewLi
08f0: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
0900: 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 if (resultOb
0910: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 j == NULL) {..re
0920: 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 s = TCL_ERROR;..
0930: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d goto done;. }
0940: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72 6f .. /* Get pro
0950: 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 4c perties */. L
0960: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
0970: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e p, resultObj, "n
0980: 69 64 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 id", OBJ_nid2ln(
0990: 45 56 50 5f 43 49 50 48 45 52 5f 6e 69 64 28 63 EVP_CIPHER_nid(c
09a0: 69 70 68 65 72 29 29 2c 20 2d 31 29 3b 0a 20 20 ipher)), -1);.
09b0: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
09c0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
09d0: 20 22 6e 61 6d 65 22 2c 20 45 56 50 5f 43 49 50 "name", EVP_CIP
09e0: 48 45 52 5f 6e 61 6d 65 28 63 69 70 68 65 72 29 HER_name(cipher)
09f0: 2c 20 2d 31 29 3b 0a 23 69 66 20 4f 50 45 4e 53 , -1);.#if OPENS
0a00: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
0a10: 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a R < 0x30000000L.
0a20: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
0a30: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
0a40: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
0a50: 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 65 6c 73 65 , "", -1);.#else
0a60: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
0a70: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
0a80: 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e bj, "description
0a90: 22 2c 20 45 56 50 5f 43 49 50 48 45 52 5f 67 65 ", EVP_CIPHER_ge
0aa0: 74 30 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 63 t0_description(c
0ab0: 69 70 68 65 72 29 2c 20 2d 31 29 3b 0a 23 65 6e ipher), -1);.#en
0ac0: 64 69 66 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f dif. LAPPEND_
0ad0: 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 INT(interp, resu
0ae0: 6c 74 4f 62 6a 2c 20 22 62 6c 6f 63 6b 5f 73 69 ltObj, "block_si
0af0: 7a 65 22 2c 20 45 56 50 5f 43 49 50 48 45 52 5f ze", EVP_CIPHER_
0b00: 62 6c 6f 63 6b 5f 73 69 7a 65 28 63 69 70 68 65 block_size(ciphe
0b10: 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 r));. LAPPEND
0b20: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 _INT(interp, res
0b30: 75 6c 74 4f 62 6a 2c 20 22 6b 65 79 5f 6c 65 6e ultObj, "key_len
0b40: 67 74 68 22 2c 20 45 56 50 5f 43 49 50 48 45 52 gth", EVP_CIPHER
0b50: 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 68 _key_length(ciph
0b60: 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e er));. LAPPEN
0b70: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 D_INT(interp, re
0b80: 73 75 6c 74 4f 62 6a 2c 20 22 69 76 5f 6c 65 6e sultObj, "iv_len
0b90: 67 74 68 22 2c 20 45 56 50 5f 43 49 50 48 45 52 gth", EVP_CIPHER
0ba0: 5f 69 76 5f 6c 65 6e 67 74 68 28 63 69 70 68 65 _iv_length(ciphe
0bb0: 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 r));. LAPPEND
0bc0: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
0bd0: 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 2c 20 ultObj, "type",
0be0: 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 43 OBJ_nid2ln(EVP_C
0bf0: 49 50 48 45 52 5f 74 79 70 65 28 63 69 70 68 65 IPHER_type(ciphe
0c00: 72 29 29 2c 20 2d 31 29 3b 0a 23 69 66 20 4f 50 r)), -1);.#if OP
0c10: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 ENSSL_VERSION_NU
0c20: 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 MBER < 0x3000000
0c30: 30 4c 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 0L. LAPPEND_S
0c40: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c TR(interp, resul
0c50: 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 tObj, "provider"
0c60: 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 65 6c 73 65 , "", -1);.#else
0c70: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
0c80: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
0c90: 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 bj, "provider",
0ca0: 4f 53 53 4c 5f 50 52 4f 56 49 44 45 52 5f 67 65 OSSL_PROVIDER_ge
0cb0: 74 30 5f 6e 61 6d 65 28 45 56 50 5f 43 49 50 48 t0_name(EVP_CIPH
0cc0: 45 52 5f 67 65 74 30 5f 70 72 6f 76 69 64 65 72 ER_get0_provider
0cd0: 28 63 69 70 68 65 72 29 29 2c 20 2d 31 29 3b 0a (cipher)), -1);.
0ce0: 23 65 6e 64 69 66 0a 20 20 20 20 66 6c 61 67 73 #endif. flags
0cf0: 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f 66 6c = EVP_CIPHER_fl
0d00: 61 67 73 28 63 69 70 68 65 72 29 3b 0a 20 20 20 ags(cipher);.
0d10: 20 6d 6f 64 65 20 20 3d 20 45 56 50 5f 43 49 50 mode = EVP_CIP
0d20: 48 45 52 5f 6d 6f 64 65 28 63 69 70 68 65 72 29 HER_mode(cipher)
0d30: 3b 0a 0a 20 20 20 20 2f 2a 20 45 56 50 5f 43 49 ;.. /* EVP_CI
0d40: 50 48 45 52 5f 67 65 74 5f 6d 6f 64 65 20 2a 2f PHER_get_mode */
0d50: 0a 20 20 20 20 73 77 69 74 63 68 28 6d 6f 64 65 . switch(mode
0d60: 29 20 7b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 ) {..case EVP_CI
0d70: 50 48 5f 53 54 52 45 41 4d 5f 43 49 50 48 45 52 PH_STREAM_CIPHER
0d80: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0d90: 3d 20 22 53 54 52 45 41 4d 22 3b 0a 09 20 20 20 = "STREAM";..
0da0: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 break;..case EV
0db0: 50 5f 43 49 50 48 5f 45 43 42 5f 4d 4f 44 45 3a P_CIPH_ECB_MODE:
0dc0: 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d .. modeName =
0dd0: 20 22 45 43 42 22 3b 0a 09 20 20 20 20 62 72 65 "ECB";.. bre
0de0: 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 ak;..case EVP_CI
0df0: 50 48 5f 43 42 43 5f 4d 4f 44 45 3a 0a 09 20 20 PH_CBC_MODE:..
0e00: 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 42 modeName = "CB
0e10: 43 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a C";.. break;.
0e20: 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 43 .case EVP_CIPH_C
0e30: 46 42 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f FB_MODE:.. mo
0e40: 64 65 4e 61 6d 65 20 3d 20 22 43 46 42 22 3b 0a deName = "CFB";.
0e50: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
0e60: 65 20 45 56 50 5f 43 49 50 48 5f 4f 46 42 5f 4d e EVP_CIPH_OFB_M
0e70: 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 ODE:.. modeNa
0e80: 6d 65 20 3d 20 22 4f 46 42 22 3b 0a 09 20 20 20 me = "OFB";..
0e90: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 break;..case EV
0ea0: 50 5f 43 49 50 48 5f 43 54 52 5f 4d 4f 44 45 3a P_CIPH_CTR_MODE:
0eb0: 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d .. modeName =
0ec0: 20 22 43 54 52 22 3b 0a 09 20 20 20 20 62 72 65 "CTR";.. bre
0ed0: 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 ak;..case EVP_CI
0ee0: 50 48 5f 47 43 4d 5f 4d 4f 44 45 3a 0a 09 20 20 PH_GCM_MODE:..
0ef0: 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 47 43 modeName = "GC
0f00: 4d 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a M";.. break;.
0f10: 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 43 .case EVP_CIPH_C
0f20: 43 4d 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f CM_MODE:.. mo
0f30: 64 65 4e 61 6d 65 20 3d 20 22 43 43 4d 22 3b 0a deName = "CCM";.
0f40: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
0f50: 65 20 45 56 50 5f 43 49 50 48 5f 58 54 53 5f 4d e EVP_CIPH_XTS_M
0f60: 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 ODE:.. modeNa
0f70: 6d 65 20 3d 20 22 58 54 53 22 3b 0a 09 20 20 20 me = "XTS";..
0f80: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 break;..case EV
0f90: 50 5f 43 49 50 48 5f 57 52 41 50 5f 4d 4f 44 45 P_CIPH_WRAP_MODE
0fa0: 20 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 :.. modeName
0fb0: 20 3d 20 22 57 52 41 50 22 3b 0a 09 20 20 20 20 = "WRAP";..
0fc0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 break;..case EVP
0fd0: 5f 43 49 50 48 5f 4f 43 42 5f 4d 4f 44 45 3a 0a _CIPH_OCB_MODE:.
0fe0: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 . modeName =
0ff0: 22 4f 43 42 22 3b 0a 09 20 20 20 20 62 72 65 61 "OCB";.. brea
1000: 6b 3b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 k;.#if OPENSSL_V
1010: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d ERSION_NUMBER >=
1020: 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 63 61 0x30000000L..ca
1030: 73 65 20 45 56 50 5f 43 49 50 48 5f 53 49 56 5f se EVP_CIPH_SIV_
1040: 4d 4f 44 45 20 3a 0a 09 20 20 20 20 6d 6f 64 65 MODE :.. mode
1050: 4e 61 6d 65 20 3d 20 22 53 49 56 22 3b 0a 09 20 Name = "SIV";..
1060: 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 break;.#endif
1070: 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 ..default:..
1080: 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 75 6e 6b 6e modeName = "unkn
1090: 6f 77 6e 22 3b 0a 09 20 20 20 20 62 72 65 61 6b own";.. break
10a0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 ;. }. LAPP
10b0: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
10c0: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6d 6f 64 65 resultObj, "mode
10d0: 22 2c 20 6d 6f 64 65 4e 61 6d 65 2c 20 2d 31 29 ", modeName, -1)
10e0: 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c 61 67 73 20 ;.. /* Flags
10f0: 2a 2f 0a 20 20 20 20 6c 69 73 74 4f 62 6a 20 3d */. listObj =
1100: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
1110: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 0, NULL);. LA
1120: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 PPEND_BOOL(inter
1130: 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 57 72 61 p, listObj, "Wra
1140: 70 20 41 6c 6c 6f 77 65 64 22 2c 20 66 6c 61 67 p Allowed", flag
1150: 73 20 26 20 45 56 50 5f 43 49 50 48 45 52 5f 43 s & EVP_CIPHER_C
1160: 54 58 5f 46 4c 41 47 5f 57 52 41 50 5f 41 4c 4c TX_FLAG_WRAP_ALL
1170: 4f 57 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 OW);. LAPPEND
1180: 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 _BOOL(interp, li
1190: 73 74 4f 62 6a 2c 20 22 56 61 72 69 61 62 6c 65 stObj, "Variable
11a0: 20 4c 65 6e 67 74 68 22 2c 20 66 6c 61 67 73 20 Length", flags
11b0: 26 20 45 56 50 5f 43 49 50 48 5f 56 41 52 49 41 & EVP_CIPH_VARIA
11c0: 42 4c 45 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 BLE_LENGTH);.
11d0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e LAPPEND_BOOL(in
11e0: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 terp, listObj, "
11f0: 43 75 73 74 6f 6d 20 49 56 22 2c 20 66 6c 61 67 Custom IV", flag
1200: 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 55 53 s & EVP_CIPH_CUS
1210: 54 4f 4d 5f 49 56 29 3b 0a 20 20 20 20 4c 41 50 TOM_IV);. LAP
1220: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
1230: 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 41 6c 77 61 , listObj, "Alwa
1240: 79 73 20 43 61 6c 6c 20 49 6e 69 74 22 2c 20 66 ys Call Init", f
1250: 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f lags & EVP_CIPH_
1260: 41 4c 57 41 59 53 5f 43 41 4c 4c 5f 49 4e 49 54 ALWAYS_CALL_INIT
1270: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
1280: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
1290: 4f 62 6a 2c 20 22 43 6f 6e 74 72 6f 6c 20 49 6e Obj, "Control In
12a0: 69 74 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 it", flags & EVP
12b0: 5f 43 49 50 48 5f 43 54 52 4c 5f 49 4e 49 54 29 _CIPH_CTRL_INIT)
12c0: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
12d0: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f OL(interp, listO
12e0: 62 6a 2c 20 22 43 75 73 74 6f 6d 20 4b 65 79 20 bj, "Custom Key
12f0: 4c 65 6e 67 74 68 22 2c 20 66 6c 61 67 73 20 26 Length", flags &
1300: 20 45 56 50 5f 43 49 50 48 5f 43 55 53 54 4f 4d EVP_CIPH_CUSTOM
1310: 5f 4b 45 59 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 _KEY_LENGTH);.
1320: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 LAPPEND_BOOL(i
1330: 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 nterp, listObj,
1340: 22 4e 6f 20 70 61 64 64 69 6e 67 22 2c 20 66 6c "No padding", fl
1350: 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 4e ags & EVP_CIPH_N
1360: 4f 5f 50 41 44 44 49 4e 47 29 3b 0a 20 20 20 20 O_PADDING);.
1370: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
1380: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 48 erp, listObj, "H
1390: 61 73 20 72 61 6e 64 6f 6d 20 6b 65 79 22 2c 20 as random key",
13a0: 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 flags & EVP_CIPH
13b0: 5f 52 41 4e 44 5f 4b 45 59 29 3b 0a 20 20 20 20 _RAND_KEY);.
13c0: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
13d0: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 erp, listObj, "C
13e0: 75 73 74 6f 6d 20 43 6f 70 79 22 2c 20 66 6c 61 ustom Copy", fla
13f0: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 55 gs & EVP_CIPH_CU
1400: 53 54 4f 4d 5f 43 4f 50 59 29 3b 0a 20 20 20 20 STOM_COPY);.
1410: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
1420: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 erp, listObj, "C
1430: 75 73 74 6f 6d 20 49 56 20 4c 65 6e 67 74 68 22 ustom IV Length"
1440: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 , flags & EVP_CI
1450: 50 48 5f 43 55 53 54 4f 4d 5f 49 56 5f 4c 45 4e PH_CUSTOM_IV_LEN
1460: 47 54 48 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e GTH);. LAPPEN
1470: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
1480: 69 73 74 4f 62 6a 2c 20 22 44 65 66 61 75 6c 74 istObj, "Default
1490: 20 41 53 4e 31 22 2c 20 66 6c 61 67 73 20 26 20 ASN1", flags &
14a0: 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 5f 44 45 EVP_CIPH_FLAG_DE
14b0: 46 41 55 4c 54 5f 41 53 4e 31 29 3b 0a 20 20 20 FAULT_ASN1);.
14c0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e LAPPEND_BOOL(in
14d0: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 terp, listObj, "
14e0: 43 75 73 74 6f 6d 20 43 69 70 68 65 72 22 2c 20 Custom Cipher",
14f0: 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 flags & EVP_CIPH
1500: 5f 46 4c 41 47 5f 43 55 53 54 4f 4d 5f 43 49 50 _FLAG_CUSTOM_CIP
1510: 48 45 52 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e HER);. LAPPEN
1520: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
1530: 69 73 74 4f 62 6a 2c 20 22 41 45 41 44 20 43 69 istObj, "AEAD Ci
1540: 70 68 65 72 22 2c 20 66 6c 61 67 73 20 26 20 45 pher", flags & E
1550: 56 50 5f 43 49 50 48 5f 46 4c 41 47 5f 41 45 41 VP_CIPH_FLAG_AEA
1560: 44 5f 43 49 50 48 45 52 29 3b 0a 20 20 20 20 4c D_CIPHER);. L
1570: 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 APPEND_BOOL(inte
1580: 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 54 4c rp, listObj, "TL
1590: 53 20 31 2e 31 20 4d 75 6c 74 69 62 6c 6f 63 6b S 1.1 Multiblock
15a0: 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 ", flags & EVP_C
15b0: 49 50 48 5f 46 4c 41 47 5f 54 4c 53 31 5f 31 5f IPH_FLAG_TLS1_1_
15c0: 4d 55 4c 54 49 42 4c 4f 43 4b 29 3b 0a 20 20 20 MULTIBLOCK);.
15d0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e LAPPEND_BOOL(in
15e0: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 terp, listObj, "
15f0: 50 69 70 65 6c 69 6e 65 22 2c 20 66 6c 61 67 73 Pipeline", flags
1600: 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 & EVP_CIPH_FLAG
1610: 5f 50 49 50 45 4c 49 4e 45 29 3b 0a 23 69 66 20 _PIPELINE);.#if
1620: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
1630: 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 NUMBER < 0x30000
1640: 30 30 30 4c 0a 20 20 20 20 4c 41 50 50 45 4e 44 000L. LAPPEND
1650: 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 _BOOL(interp, li
1660: 73 74 4f 62 6a 2c 20 22 46 49 50 53 22 2c 20 66 stObj, "FIPS", f
1670: 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f lags & EVP_CIPH_
1680: 46 4c 41 47 5f 46 49 50 53 29 3b 0a 20 20 20 20 FLAG_FIPS);.
1690: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
16a0: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 4e erp, listObj, "N
16b0: 6f 6e 20 46 49 50 53 20 41 6c 6c 6f 77 22 2c 20 on FIPS Allow",
16c0: 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 flags & EVP_CIPH
16d0: 5f 46 4c 41 47 5f 4e 4f 4e 5f 46 49 50 53 5f 41 _FLAG_NON_FIPS_A
16e0: 4c 4c 4f 57 29 3b 0a 23 65 6c 73 65 0a 20 20 20 LLOW);.#else.
16f0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e LAPPEND_BOOL(in
1700: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 terp, listObj, "
1710: 43 54 53 22 2c 20 66 6c 61 67 73 20 26 20 45 56 CTS", flags & EV
1720: 50 5f 43 49 50 48 5f 46 4c 41 47 5f 43 54 53 29 P_CIPH_FLAG_CTS)
1730: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
1740: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f OL(interp, listO
1750: 62 6a 2c 20 22 43 75 73 74 6f 6d 20 41 53 4e 31 bj, "Custom ASN1
1760: 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 ", flags & EVP_C
1770: 49 50 48 5f 46 4c 41 47 5f 43 55 53 54 4f 4d 5f IPH_FLAG_CUSTOM_
1780: 41 53 4e 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 ASN1);. LAPPE
1790: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 ND_BOOL(interp,
17a0: 6c 69 73 74 4f 62 6a 2c 20 22 43 69 70 68 65 72 listObj, "Cipher
17b0: 20 77 69 74 68 20 4d 41 43 22 2c 20 66 6c 61 67 with MAC", flag
17c0: 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 s & EVP_CIPH_FLA
17d0: 47 5f 43 49 50 48 45 52 5f 57 49 54 48 5f 4d 41 G_CIPHER_WITH_MA
17e0: 43 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f C);. LAPPEND_
17f0: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
1800: 74 4f 62 6a 2c 20 22 47 65 74 20 57 72 61 70 20 tObj, "Get Wrap
1810: 43 69 70 68 65 72 22 2c 20 66 6c 61 67 73 20 26 Cipher", flags &
1820: 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 5f 47 EVP_CIPH_FLAG_G
1830: 45 54 5f 57 52 41 50 5f 43 49 50 48 45 52 29 3b ET_WRAP_CIPHER);
1840: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
1850: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 L(interp, listOb
1860: 6a 2c 20 22 49 6e 76 65 72 73 65 20 43 69 70 68 j, "Inverse Ciph
1870: 65 72 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 er", flags & EVP
1880: 5f 43 49 50 48 5f 46 4c 41 47 5f 49 4e 56 45 52 _CIPH_FLAG_INVER
1890: 53 45 5f 43 49 50 48 45 52 29 3b 0a 23 65 6e 64 SE_CIPHER);.#end
18a0: 69 66 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f if. LAPPEND_O
18b0: 42 4a 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c BJ(interp, resul
18c0: 74 4f 62 6a 2c 20 22 66 6c 61 67 73 22 2c 20 6c tObj, "flags", l
18d0: 69 73 74 4f 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a istObj);.. /*
18e0: 20 43 54 58 20 6f 6e 6c 79 20 70 72 6f 70 65 72 CTX only proper
18f0: 74 69 65 73 20 2a 2f 0a 20 20 20 20 7b 0a 09 45 ties */. {..E
1900: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 VP_CIPHER_CTX *c
1910: 74 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f tx = EVP_CIPHER_
1920: 43 54 58 5f 6e 65 77 28 29 3b 0a 09 69 6e 74 20 CTX_new();..int
1930: 74 61 67 5f 6c 65 6e 20 3d 20 30 3b 0a 0a 09 45 tag_len = 0;...E
1940: 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65 VP_EncryptInit_e
1950: 78 28 63 74 78 2c 20 63 69 70 68 65 72 2c 20 4e x(ctx, cipher, N
1960: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 ULL, NULL, NULL)
1970: 3b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 ;.#if OPENSSL_VE
1980: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 RSION_NUMBER < 0
1990: 78 33 30 30 30 30 30 30 30 4c 0a 09 69 66 20 28 x30000000L..if (
19a0: 6d 6f 64 65 20 3d 3d 20 45 56 50 5f 43 49 50 48 mode == EVP_CIPH
19b0: 5f 47 43 4d 5f 4d 4f 44 45 20 7c 7c 20 6d 6f 64 _GCM_MODE || mod
19c0: 65 20 3d 3d 20 45 56 50 5f 43 49 50 48 5f 4f 43 e == EVP_CIPH_OC
19d0: 42 5f 4d 4f 44 45 29 20 7b 0a 09 20 20 20 20 74 B_MODE) {.. t
19e0: 61 67 5f 6c 65 6e 20 3d 20 45 56 50 5f 47 43 4d ag_len = EVP_GCM
19f0: 5f 54 4c 53 5f 54 41 47 5f 4c 45 4e 3b 20 2f 2a _TLS_TAG_LEN; /*
1a00: 20 45 56 50 5f 4d 41 58 5f 41 45 41 44 5f 54 41 EVP_MAX_AEAD_TA
1a10: 47 5f 4c 45 4e 47 54 48 20 2a 2f 0a 09 7d 20 65 G_LENGTH */..} e
1a20: 6c 73 65 20 69 66 20 28 6d 6f 64 65 20 3d 3d 20 lse if (mode ==
1a30: 45 56 50 5f 43 49 50 48 5f 43 43 4d 5f 4d 4f 44 EVP_CIPH_CCM_MOD
1a40: 45 29 20 7b 0a 09 20 20 20 20 74 61 67 5f 6c 65 E) {.. tag_le
1a50: 6e 20 3d 20 45 56 50 5f 43 43 4d 5f 54 4c 53 5f n = EVP_CCM_TLS_
1a60: 54 41 47 5f 4c 45 4e 3b 0a 09 7d 20 65 6c 73 65 TAG_LEN;..} else
1a70: 20 69 66 20 28 63 69 70 68 65 72 20 3d 3d 20 45 if (cipher == E
1a80: 56 50 5f 67 65 74 5f 63 69 70 68 65 72 62 79 6e VP_get_cipherbyn
1a90: 61 6d 65 28 22 63 68 61 63 68 61 32 30 2d 70 6f ame("chacha20-po
1aa0: 6c 79 31 33 30 35 22 29 29 20 7b 0a 09 20 20 20 ly1305")) {..
1ab0: 20 74 61 67 5f 6c 65 6e 20 3d 20 45 56 50 5f 43 tag_len = EVP_C
1ac0: 48 41 43 48 41 50 4f 4c 59 5f 54 4c 53 5f 54 41 HACHAPOLY_TLS_TA
1ad0: 47 5f 4c 45 4e 3b 20 2f 2a 20 50 4f 4c 59 31 33 G_LEN; /* POLY13
1ae0: 30 35 5f 42 4c 4f 43 4b 5f 53 49 5a 45 20 2a 2f 05_BLOCK_SIZE */
1af0: 0a 09 7d 0a 23 65 6c 73 65 0a 09 74 61 67 5f 6c ..}.#else..tag_l
1b00: 65 6e 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f en = EVP_CIPHER_
1b10: 43 54 58 5f 67 65 74 5f 74 61 67 5f 6c 65 6e 67 CTX_get_tag_leng
1b20: 74 68 28 63 74 78 29 3b 0a 23 65 6e 64 69 66 0a th(ctx);.#endif.
1b30: 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f .EVP_CIPHER_CTX_
1b40: 66 72 65 65 28 63 74 78 29 3b 0a 09 4c 41 50 50 free(ctx);..LAPP
1b50: 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 END_INT(interp,
1b60: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 61 67 5f resultObj, "tag_
1b70: 6c 65 6e 67 74 68 22 2c 20 74 61 67 5f 6c 65 6e length", tag_len
1b80: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 );. }. .
1b90: 20 20 2f 2a 20 41 45 41 44 20 70 72 6f 70 65 72 /* AEAD proper
1ba0: 74 69 65 73 20 2a 2f 0a 20 20 20 20 7b 0a 09 69 ties */. {..i
1bb0: 6e 74 20 61 61 64 5f 6c 65 6e 20 3d 20 30 3b 0a nt aad_len = 0;.
1bc0: 09 69 66 20 28 66 6c 61 67 73 20 26 20 45 56 50 .if (flags & EVP
1bd0: 5f 43 49 50 48 5f 46 4c 41 47 5f 41 45 41 44 5f _CIPH_FLAG_AEAD_
1be0: 43 49 50 48 45 52 29 20 7b 0a 09 20 20 20 20 61 CIPHER) {.. a
1bf0: 61 64 5f 6c 65 6e 20 3d 20 45 56 50 5f 41 45 41 ad_len = EVP_AEA
1c00: 44 5f 54 4c 53 31 5f 41 41 44 5f 4c 45 4e 3b 0a D_TLS1_AAD_LEN;.
1c10: 09 7d 0a 09 4c 41 50 50 45 4e 44 5f 49 4e 54 28 .}..LAPPEND_INT(
1c20: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
1c30: 6a 2c 20 22 61 61 64 5f 6c 65 6e 67 74 68 22 2c j, "aad_length",
1c40: 20 61 61 64 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d aad_len);. }
1c50: 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a .. Tcl_SetObj
1c60: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 Result(interp, r
1c70: 65 73 75 6c 74 4f 62 6a 29 3b 0a 0a 64 6f 6e 65 esultObj);..done
1c80: 3a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 :.#if OPENSSL_VE
1c90: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 RSION_NUMBER >=
1ca0: 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 20 20 0x30000000L.
1cb0: 45 56 50 5f 43 49 50 48 45 52 5f 66 72 65 65 28 EVP_CIPHER_free(
1cc0: 63 69 70 68 65 72 29 3b 0a 23 65 6e 64 69 66 0a cipher);.#endif.
1cd0: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a return res;.
1ce0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
1cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
1d30: 2a 20 43 69 70 68 65 72 4c 69 73 74 20 2d 2d 0a * CipherList --.
1d40: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c *. *.Return a l
1d50: 69 73 74 20 6f 66 20 61 6c 6c 20 63 69 70 68 65 ist of all ciphe
1d60: 72 20 61 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a r algorithms. *.
1d70: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
1d80: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 standard Tcl li
1d90: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 st.. *. * Side e
1da0: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
1db0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
1dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
1e00: 74 20 43 69 70 68 65 72 4c 69 73 74 28 54 63 6c t CipherList(Tcl
1e10: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
1e20: 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a {. Tcl_Obj *
1e30: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
1e40: 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 NewListObj(0, NU
1e50: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 LL);. if (res
1e60: 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 ultObj == NULL)
1e70: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
1e80: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
1e90: 2f 2a 20 53 61 6d 65 20 61 73 20 45 56 50 5f 43 /* Same as EVP_C
1ea0: 49 50 48 45 52 5f 64 6f 5f 61 6c 6c 20 2a 2f 0a IPHER_do_all */.
1eb0: 20 20 20 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f OBJ_NAME_do_
1ec0: 61 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 all(OBJ_NAME_TYP
1ed0: 45 5f 43 49 50 48 45 52 5f 4d 45 54 48 2c 20 4e E_CIPHER_METH, N
1ee0: 61 6d 65 73 43 61 6c 6c 62 61 63 6b 2c 20 28 76 amesCallback, (v
1ef0: 6f 69 64 20 2a 29 20 72 65 73 75 6c 74 4f 62 6a oid *) resultObj
1f00: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 );. Tcl_SetOb
1f10: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
1f20: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
1f30: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
1f40: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
1f90: 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 20 2d 2d CipherObjCmd --
1fa0: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 . *. *.Return a
1fb0: 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69 list of properti
1fc0: 65 73 20 61 6e 64 20 76 61 6c 75 65 73 20 66 6f es and values fo
1fd0: 72 20 63 69 70 68 65 72 4e 61 6d 65 2e 0a 20 2a r cipherName.. *
1fe0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
1ff0: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c A standard Tcl l
2000: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
2010: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
2020: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
2030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
2070: 74 61 74 69 63 20 69 6e 74 20 43 69 70 68 65 72 tatic int Cipher
2080: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
2090: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
20a0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
20b0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
20c0: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
20d0: 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 ]) {. (void)
20e0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
20f0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
2100: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 ");.. /* Clea
2110: 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 r errors */.
2120: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
2130: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 interp);. ERR
2140: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
2150: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
2160: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
2170: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 if (objc == 1)
2180: 20 7b 0a 09 72 65 74 75 72 6e 20 43 69 70 68 65 {..return Ciphe
2190: 72 4c 69 73 74 28 69 6e 74 65 72 70 29 3b 0a 0a rList(interp);..
21a0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f } else if (o
21b0: 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 72 65 74 bjc == 2) {..ret
21c0: 75 72 6e 20 43 69 70 68 65 72 49 6e 66 6f 28 69 urn CipherInfo(i
21d0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b nterp, objv[1]);
21e0: 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
21f0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
2200: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
2210: 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 , "?name?");..re
2220: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2230: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
2240: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 TCL_OK;.}../*.
2250: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2290: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 ----. *. * Ciphe
22a0: 72 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 rsObjCmd --. *.
22b0: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
22c0: 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 is invoked to p
22d0: 72 6f 63 65 73 73 20 74 68 65 20 22 74 6c 73 3a rocess the "tls:
22e0: 3a 63 69 70 68 65 72 73 22 20 63 6f 6d 6d 61 6e :ciphers" comman
22f0: 64 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 76 61 d. *.to list ava
2300: 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 2c 20 ilable ciphers,
2310: 62 61 73 65 64 20 75 70 6f 6e 20 70 72 6f 74 6f based upon proto
2320: 63 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a 20 2a col selected.. *
2330: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
2340: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 A standard Tcl r
2350: 65 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 esult list.. *.
2360: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
2370: 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 61 6e *.constructs an
2380: 64 20 64 65 73 74 72 6f 79 73 20 53 53 4c 20 63 d destroys SSL c
2390: 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a ontext (CTX). *.
23a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
23b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23e0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
23f0: 20 69 6e 74 20 43 69 70 68 65 72 73 4f 62 6a 43 int CiphersObjC
2400: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
2410: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
2420: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
2430: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
2440: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
2450: 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 . SSL_CTX *ct
2460: 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 x = NULL;. SS
2470: 4c 20 2a 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 L *ssl = NULL;.
2480: 20 20 20 53 54 41 43 4b 5f 4f 46 28 53 53 4c 5f STACK_OF(SSL_
2490: 43 49 50 48 45 52 29 20 2a 73 6b 20 3d 20 4e 55 CIPHER) *sk = NU
24a0: 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 LL;. Tcl_Size
24b0: 20 69 6e 64 65 78 3b 0a 20 20 20 20 69 6e 74 20 index;. int
24c0: 76 65 72 62 6f 73 65 20 3d 20 30 2c 20 75 73 65 verbose = 0, use
24d0: 5f 73 75 70 70 6f 72 74 65 64 20 3d 20 30 2c 20 _supported = 0,
24e0: 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 res = TCL_OK;.
24f0: 20 20 69 6e 74 20 6d 69 6e 5f 76 65 72 73 69 6f int min_versio
2500: 6e 2c 20 6d 61 78 5f 76 65 72 73 69 6f 6e 3b 0a n, max_version;.
2510: 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e (void) clien
2520: 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 tData;.. dpri
2530: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
2540: 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 /* Clear err
2550: 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 ors */. Tcl_R
2560: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 esetResult(inter
2570: 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 p);. ERR_clea
2580: 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 r_error();..
2590: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
25a0: 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 count */. if
25b0: 28 6f 62 6a 63 20 3e 20 34 29 20 7b 0a 09 54 63 (objc > 4) {..Tc
25c0: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
25d0: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
25e0: 22 3f 70 72 6f 74 6f 63 6f 6c 3f 20 3f 76 65 72 "?protocol? ?ver
25f0: 62 6f 73 65 3f 20 3f 73 75 70 70 6f 72 74 65 64 bose? ?supported
2600: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c ?");..return TCL
2610: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
2620: 20 20 20 2f 2a 20 4c 69 73 74 20 61 6c 6c 20 63 /* List all c
2630: 69 70 68 65 72 73 20 2a 2f 0a 20 20 20 20 69 66 iphers */. if
2640: 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 (objc == 1) {..
2650: 72 65 74 75 72 6e 20 43 69 70 68 65 72 4c 69 73 return CipherLis
2660: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 7d t(interp);. }
2670: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f 70 74 .. /* Get opt
2680: 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 ions */. if (
2690: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d Tcl_GetIndexFrom
26a0: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
26b0: 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 [1], protocols,
26c0: 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c 20 26 "protocol", 0, &
26d0: 69 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b index) != TCL_OK
26e0: 20 7c 7c 0a 09 28 6f 62 6a 63 20 3e 20 32 20 26 ||..(objc > 2 &
26f0: 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e & Tcl_GetBoolean
2700: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
2710: 6f 62 6a 76 5b 32 5d 2c 20 26 76 65 72 62 6f 73 objv[2], &verbos
2720: 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7c 7c e) != TCL_OK) ||
2730: 0a 09 28 6f 62 6a 63 20 3e 20 33 20 26 26 20 54 ..(objc > 3 && T
2740: 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f cl_GetBooleanFro
2750: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
2760: 76 5b 33 5d 2c 20 26 75 73 65 5f 73 75 70 70 6f v[3], &use_suppo
2770: 72 74 65 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 rted) != TCL_OK)
2780: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
2790: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
27a0: 20 20 73 77 69 74 63 68 20 28 28 65 6e 75 6d 20 switch ((enum
27b0: 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78 29 20 protocol)index)
27c0: 7b 0a 09 63 61 73 65 20 54 4c 53 5f 53 53 4c 32 {..case TLS_SSL2
27d0: 3a 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e :.. Tcl_Appen
27e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
27f0: 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d protocols[index]
2800: 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f , ": protocol no
2810: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 t supported", (c
2820: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
2830: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2840: 52 4f 52 3b 0a 09 63 61 73 65 20 54 4c 53 5f 53 ROR;..case TLS_S
2850: 53 4c 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 SL3:.#if defined
2860: 28 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 64 65 66 (NO_SSL3) || def
2870: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
2880: 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 SSL3) || defined
2890: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
28a0: 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 63 _METHOD).. Tc
28b0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
28c0: 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 nterp, protocols
28d0: 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 [index], ": prot
28e0: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 ocol not support
28f0: 65 64 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ed", (char *) NU
2900: 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e LL);.. return
2910: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 TCL_ERROR;.#els
2920: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 e. mi
2930: 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c 33 n_version = SSL3
2940: 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 _VERSION;.
2950: 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f max_versio
2960: 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e n = SSL3_VERSION
2970: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 ;.. break;.#e
2980: 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 ndif..case TLS_T
2990: 4c 53 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 LS1:.#if defined
29a0: 28 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 (NO_TLS1) || def
29b0: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
29c0: 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 TLS1) || defined
29d0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
29e0: 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 63 _METHOD).. Tc
29f0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
2a00: 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 nterp, protocols
2a10: 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 [index], ": prot
2a20: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 ocol not support
2a30: 65 64 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ed", (char *) NU
2a40: 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e LL);.. return
2a50: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 TCL_ERROR;.#els
2a60: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 e. mi
2a70: 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 n_version = TLS1
2a80: 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 _VERSION;.
2a90: 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f max_versio
2aa0: 6e 20 3d 20 54 4c 53 31 5f 56 45 52 53 49 4f 4e n = TLS1_VERSION
2ab0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 ;.. break;.#e
2ac0: 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 ndif..case TLS_T
2ad0: 4c 53 31 5f 31 3a 0a 23 69 66 20 64 65 66 69 6e LS1_1:.#if defin
2ae0: 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c ed(NO_TLS1_1) ||
2af0: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
2b00: 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 _NO_TLS1_1) || d
2b10: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
2b20: 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 O_TLS1_1_METHOD)
2b30: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
2b40: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
2b50: 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c rotocols[index],
2b60: 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 ": protocol not
2b70: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 supported", (ch
2b80: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
2b90: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
2ba0: 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 OR;.#else.
2bb0: 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f min_versio
2bc0: 6e 20 3d 20 54 4c 53 31 5f 31 5f 56 45 52 53 49 n = TLS1_1_VERSI
2bd0: 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ON;.
2be0: 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c max_version = TL
2bf0: 53 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 S1_1_VERSION;..
2c00: 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 break;.#endif
2c10: 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f ..case TLS_TLS1_
2c20: 32 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 2:.#if defined(N
2c30: 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 O_TLS1_2) || def
2c40: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
2c50: 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e TLS1_2) || defin
2c60: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
2c70: 53 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 09 20 20 S1_2_METHOD)..
2c80: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
2c90: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f lt(interp, proto
2ca0: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 cols[index], ":
2cb0: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
2cc0: 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a ported", (char *
2cd0: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 ) NULL);.. re
2ce0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2cf0: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 #else.
2d00: 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 min_version =
2d10: 54 4c 53 31 5f 32 5f 56 45 52 53 49 4f 4e 3b 0a TLS1_2_VERSION;.
2d20: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f max_
2d30: 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 32 version = TLS1_2
2d40: 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 _VERSION;.. b
2d50: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 reak;.#endif..ca
2d60: 73 65 20 54 4c 53 5f 54 4c 53 31 5f 33 3a 0a 23 se TLS_TLS1_3:.#
2d70: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c if defined(NO_TL
2d80: 53 31 5f 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 S1_3) || defined
2d90: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
2da0: 5f 33 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 _3).. Tcl_App
2db0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2dc0: 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 , protocols[inde
2dd0: 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 x], ": protocol
2de0: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
2df0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
2e00: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2e10: 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 ERROR;.#else.
2e20: 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 min_ver
2e30: 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f 56 45 sion = TLS1_3_VE
2e40: 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 RSION;.
2e50: 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d max_version =
2e60: 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b TLS1_3_VERSION;
2e70: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e .. break;.#en
2e80: 64 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a 20 20 dif..default:.
2e90: 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 min_ve
2ea0: 72 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 rsion = SSL3_VER
2eb0: 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 SION;.
2ec0: 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 max_version =
2ed0: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a TLS1_3_VERSION;.
2ee0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 . break;.
2ef0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
2f00: 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 context */.
2f10: 69 66 20 28 28 63 74 78 20 3d 20 53 53 4c 5f 43 if ((ctx = SSL_C
2f20: 54 58 5f 6e 65 77 28 54 4c 53 5f 73 65 72 76 65 TX_new(TLS_serve
2f30: 72 5f 6d 65 74 68 6f 64 28 29 29 29 20 3d 3d 20 r_method())) ==
2f40: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
2f50: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2f60: 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e , GET_ERR_REASON
2f70: 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c (), (char *) NUL
2f80: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
2f90: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
2fa0: 20 20 2f 2a 20 53 65 74 20 70 72 6f 74 6f 63 6f /* Set protoco
2fb0: 6c 20 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20 l versions */.
2fc0: 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f 73 65 if (SSL_CTX_se
2fd0: 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 73 t_min_proto_vers
2fe0: 69 6f 6e 28 63 74 78 2c 20 6d 69 6e 5f 76 65 72 ion(ctx, min_ver
2ff0: 73 69 6f 6e 29 20 3d 3d 20 30 20 7c 7c 0a 09 53 sion) == 0 ||..S
3000: 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 SL_CTX_set_max_p
3010: 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78 roto_version(ctx
3020: 2c 20 6d 61 78 5f 76 65 72 73 69 6f 6e 29 20 3d , max_version) =
3030: 3d 20 30 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f = 0) {..SSL_CTX_
3040: 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 free(ctx);..retu
3050: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3060: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 }.. /* Crea
3070: 74 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a te SSL context *
3080: 2f 0a 20 20 20 20 69 66 20 28 28 73 73 6c 20 3d /. if ((ssl =
3090: 20 53 53 4c 5f 6e 65 77 28 63 74 78 29 29 20 3d SSL_new(ctx)) =
30a0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
30b0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
30c0: 72 70 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 53 rp, GET_ERR_REAS
30d0: 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 4e ON(), (char *) N
30e0: 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 ULL);..SSL_CTX_f
30f0: 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 ree(ctx);..retur
3100: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
3110: 20 7d 0a 0a 20 20 20 20 2f 2a 20 55 73 65 20 6c }.. /* Use l
3120: 69 73 74 20 61 6e 64 20 6f 72 64 65 72 20 61 73 ist and order as
3130: 20 77 6f 75 6c 64 20 62 65 20 73 65 6e 74 20 69 would be sent i
3140: 6e 20 61 20 43 6c 69 65 6e 74 48 65 6c 6c 6f 20 n a ClientHello
3150: 6f 72 20 61 6c 6c 20 61 76 61 69 6c 61 62 6c 65 or all available
3160: 20 63 69 70 68 65 72 73 20 2a 2f 0a 20 20 20 20 ciphers */.
3170: 69 66 20 28 75 73 65 5f 73 75 70 70 6f 72 74 65 if (use_supporte
3180: 64 29 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 d) {..sk = SSL_g
3190: 65 74 31 5f 73 75 70 70 6f 72 74 65 64 5f 63 69 et1_supported_ci
31a0: 70 68 65 72 73 28 73 73 6c 29 3b 0a 20 20 20 20 phers(ssl);.
31b0: 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 } else {..sk = S
31c0: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 SL_get_ciphers(s
31d0: 73 6c 29 3b 0a 09 2f 2a 73 6b 20 3d 20 53 53 4c sl);../*sk = SSL
31e0: 5f 43 54 58 5f 67 65 74 5f 63 69 70 68 65 72 73 _CTX_get_ciphers
31f0: 28 63 74 78 29 3b 2a 2f 0a 20 20 20 20 7d 0a 0a (ctx);*/. }..
3200: 20 20 20 20 69 66 20 28 73 6b 20 21 3d 20 4e 55 if (sk != NU
3210: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a LL) {..Tcl_Obj *
3220: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 4e 55 4c 4c resultObj = NULL
3230: 3b 0a 0a 09 69 66 20 28 21 76 65 72 62 6f 73 65 ;...if (!verbose
3240: 29 20 7b 0a 09 20 20 20 20 63 6f 6e 73 74 20 63 ) {.. const c
3250: 68 61 72 20 2a 63 70 3b 0a 09 20 20 20 20 72 65 har *cp;.. re
3260: 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 sultObj = Tcl_Ne
3270: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
3280: 29 3b 0a 09 20 20 20 20 69 66 20 28 72 65 73 75 );.. if (resu
3290: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
32a0: 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 ...res = TCL_ERR
32b0: 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b OR;...goto done;
32c0: 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 66 6f .. }... fo
32d0: 72 20 28 69 6e 74 20 69 20 3d 20 30 3b 20 69 20 r (int i = 0; i
32e0: 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f < sk_SSL_CIPHER_
32f0: 6e 75 6d 28 73 6b 29 3b 20 69 2b 2b 29 20 7b 0a num(sk); i++) {.
3300: 09 09 63 6f 6e 73 74 20 53 53 4c 5f 43 49 50 48 ..const SSL_CIPH
3310: 45 52 20 2a 63 20 3d 20 73 6b 5f 53 53 4c 5f 43 ER *c = sk_SSL_C
3320: 49 50 48 45 52 5f 76 61 6c 75 65 28 73 6b 2c 20 IPHER_value(sk,
3330: 69 29 3b 0a 09 09 69 66 20 28 63 20 3d 3d 20 4e i);...if (c == N
3340: 55 4c 4c 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 0a ULL) continue;..
3350: 09 09 2f 2a 20 63 69 70 68 65 72 20 6e 61 6d 65 ../* cipher name
3360: 20 6f 72 20 28 4e 4f 4e 45 29 20 2a 2f 0a 09 09 or (NONE) */...
3370: 63 70 20 3d 20 53 53 4c 5f 43 49 50 48 45 52 5f cp = SSL_CIPHER_
3380: 67 65 74 5f 6e 61 6d 65 28 63 29 3b 0a 09 09 69 get_name(c);...i
3390: 66 20 28 63 70 20 3d 3d 20 4e 55 4c 4c 29 20 62 f (cp == NULL) b
33a0: 72 65 61 6b 3b 0a 09 09 54 63 6c 5f 4c 69 73 74 reak;...Tcl_List
33b0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
33c0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
33d0: 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e bj, Tcl_NewStrin
33e0: 67 4f 62 6a 28 28 63 68 61 72 20 2a 29 20 63 70 gObj((char *) cp
33f0: 2c 20 2d 31 29 29 3b 0a 09 20 20 20 20 7d 0a 0a , -1));.. }..
3400: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 63 .} else {.. c
3410: 68 61 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b har buf[BUFSIZ];
3420: 0a 09 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 .. resultObj
3430: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f = Tcl_NewStringO
3440: 62 6a 28 22 22 2c 20 30 29 3b 0a 09 20 20 20 20 bj("", 0);..
3450: 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d if (resultObj ==
3460: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 20 3d NULL) {...res =
3470: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f TCL_ERROR;...go
3480: 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a to done;.. }.
3490: 0a 09 20 20 20 20 66 6f 72 20 28 69 6e 74 20 69 .. for (int i
34a0: 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53 4c = 0; i < sk_SSL
34b0: 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b _CIPHER_num(sk);
34c0: 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 20 i++) {...const
34d0: 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d 20 SSL_CIPHER *c =
34e0: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 sk_SSL_CIPHER_va
34f0: 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69 66 lue(sk, i);...if
3500: 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e (c == NULL) con
3510: 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 74 65 78 tinue;..../* tex
3520: 74 75 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e tual description
3530: 20 6f 66 20 74 68 65 20 63 69 70 68 65 72 20 2a of the cipher *
3540: 2f 0a 09 09 69 66 20 28 53 53 4c 5f 43 49 50 48 /...if (SSL_CIPH
3550: 45 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 63 ER_description(c
3560: 2c 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 , buf, sizeof(bu
3570: 66 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 f)) != NULL) {..
3580: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 54 . Tcl_AppendT
3590: 6f 4f 62 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 oObj(resultObj,
35a0: 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 buf, (Tcl_Size)
35b0: 73 74 72 6c 65 6e 28 62 75 66 29 29 3b 0a 09 09 strlen(buf));...
35c0: 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 54 } else {... T
35d0: 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 cl_AppendToObj(r
35e0: 65 73 75 6c 74 4f 62 6a 2c 20 22 55 4e 4b 4e 4f esultObj, "UNKNO
35f0: 57 4e 5c 6e 22 2c 20 38 29 3b 0a 09 09 7d 0a 09 WN\n", 8);...}..
3600: 20 20 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 43 6c }..}.../* Cl
3610: 65 61 6e 20 75 70 20 2a 2f 0a 09 69 66 20 28 75 ean up */..if (u
3620: 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 7b 0a se_supported) {.
3630: 09 20 20 20 20 73 6b 5f 53 53 4c 5f 43 49 50 48 . sk_SSL_CIPH
3640: 45 52 5f 66 72 65 65 28 73 6b 29 3b 0a 09 7d 0a ER_free(sk);..}.
3650: 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c .Tcl_SetObjResul
3660: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
3670: 4f 62 6a 29 3b 0a 20 20 20 20 7d 0a 0a 64 6f 6e Obj);. }..don
3680: 65 3a 0a 20 20 20 20 53 53 4c 5f 66 72 65 65 28 e:. SSL_free(
3690: 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f 43 54 ssl);. SSL_CT
36a0: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 20 X_free(ctx);.
36b0: 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a return res;.}..
36c0: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
36d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
36e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
36f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3700: 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ****/../*. *----
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3750: 20 2a 0a 20 2a 20 44 69 67 65 73 74 49 6e 66 6f *. * DigestInfo
3760: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e --. *. *.Return
3770: 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 a list of prope
3780: 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 65 73 rties and values
3790: 20 66 6f 72 20 64 69 67 65 73 74 2e 0a 20 2a 0a for digest.. *.
37a0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
37b0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 standard Tcl li
37c0: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 st.. *. * Side e
37d0: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
37e0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
37f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
3830: 74 20 44 69 67 65 73 74 49 6e 66 6f 28 54 63 6c t DigestInfo(Tcl
3840: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3850: 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 6d 65 4f 62 Tcl_Obj *nameOb
3860: 6a 29 20 7b 0a 20 20 20 20 63 6f 6e 73 74 20 45 j) {. const E
3870: 56 50 5f 4d 44 20 2a 6d 64 3b 0a 20 20 20 20 54 VP_MD *md;. T
3880: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
3890: 6a 2c 20 2a 6c 69 73 74 4f 62 6a 3b 0a 20 20 20 j, *listObj;.
38a0: 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 66 unsigned long f
38b0: 6c 61 67 73 3b 0a 20 20 20 20 69 6e 74 20 72 65 lags;. int re
38c0: 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 s = TCL_OK;.
38d0: 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c char *name = Tcl
38e0: 5f 47 65 74 53 74 72 69 6e 67 28 6e 61 6d 65 4f _GetString(nameO
38f0: 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 bj);.. /* Get
3900: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
3910: 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 */.#if OPENSSL_V
3920: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 ERSION_NUMBER <
3930: 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 20 20 0x30000000L.
3940: 6d 64 20 3d 20 45 56 50 5f 67 65 74 5f 64 69 67 md = EVP_get_dig
3950: 65 73 74 62 79 6e 61 6d 65 28 6e 61 6d 65 29 3b estbyname(name);
3960: 0a 23 65 6c 73 65 0a 20 20 20 20 6d 64 20 3d 20 .#else. md =
3970: 45 56 50 5f 4d 44 5f 66 65 74 63 68 28 4e 55 4c EVP_MD_fetch(NUL
3980: 4c 2c 20 6e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a L, name, NULL);.
3990: 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20 28 #endif.. if (
39a0: 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 md == NULL) {..T
39b0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
39c0: 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 interp, "Invalid
39d0: 20 64 69 67 65 73 74 20 5c 22 22 2c 20 6e 61 6d digest \"", nam
39e0: 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20 2a e, "\"", (char *
39f0: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
3a00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3a10: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72 }.. /* Get pr
3a20: 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 operties */.
3a30: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
3a40: 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 NewListObj(0, NU
3a50: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 LL);. if (res
3a60: 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 ultObj == NULL)
3a70: 7b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 {..res = TCL_ERR
3a80: 4f 52 3b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a OR;..goto done;.
3a90: 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e }. LAPPEN
3aa0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
3ab0: 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c sultObj, "name",
3ac0: 20 45 56 50 5f 4d 44 5f 6e 61 6d 65 28 6d 64 29 EVP_MD_name(md)
3ad0: 2c 20 2d 31 29 3b 0a 23 69 66 20 4f 50 45 4e 53 , -1);.#if OPENS
3ae0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
3af0: 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a R < 0x30000000L.
3b00: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
3b10: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
3b20: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
3b30: 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 65 6c 73 65 , "", -1);.#else
3b40: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
3b50: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
3b60: 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e bj, "description
3b70: 22 2c 20 45 56 50 5f 4d 44 5f 67 65 74 30 5f 64 ", EVP_MD_get0_d
3b80: 65 73 63 72 69 70 74 69 6f 6e 28 6d 64 29 2c 20 escription(md),
3b90: 2d 31 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 -1);.#endif.
3ba0: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
3bb0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
3bc0: 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f 73 69 size", EVP_MD_si
3bd0: 7a 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c 41 50 ze(md));. LAP
3be0: 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c PEND_INT(interp,
3bf0: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 6c 6f resultObj, "blo
3c00: 63 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 ck_size", EVP_MD
3c10: 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 6d 64 29 29 _block_size(md))
3c20: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 ;. LAPPEND_ST
3c30: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
3c40: 4f 62 6a 2c 20 22 74 79 70 65 22 2c 20 4f 42 4a Obj, "type", OBJ
3c50: 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 4d 44 5f 74 _nid2ln(EVP_MD_t
3c60: 79 70 65 28 6d 64 29 29 2c 20 2d 31 29 3b 0a 20 ype(md)), -1);.
3c70: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
3c80: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
3c90: 2c 20 22 70 6b 65 79 5f 74 79 70 65 22 2c 20 4f , "pkey_type", O
3ca0: 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 4d 44 BJ_nid2ln(EVP_MD
3cb0: 5f 70 6b 65 79 5f 74 79 70 65 28 6d 64 29 29 2c _pkey_type(md)),
3cc0: 20 2d 31 29 3b 0a 23 69 66 20 4f 50 45 4e 53 53 -1);.#if OPENSS
3cd0: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
3ce0: 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 < 0x30000000L.
3cf0: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
3d00: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
3d10: 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 22 22 , "provider", ""
3d20: 2c 20 2d 31 29 3b 0a 23 65 6c 73 65 0a 20 20 20 , -1);.#else.
3d30: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
3d40: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
3d50: 22 70 72 6f 76 69 64 65 72 22 2c 20 4f 53 53 4c "provider", OSSL
3d60: 5f 50 52 4f 56 49 44 45 52 5f 67 65 74 30 5f 6e _PROVIDER_get0_n
3d70: 61 6d 65 28 45 56 50 5f 4d 44 5f 67 65 74 30 5f ame(EVP_MD_get0_
3d80: 70 72 6f 76 69 64 65 72 28 6d 64 29 29 2c 20 2d provider(md)), -
3d90: 31 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 66 1);.#endif. f
3da0: 6c 61 67 73 20 3d 20 45 56 50 5f 4d 44 5f 66 6c lags = EVP_MD_fl
3db0: 61 67 73 28 6d 64 29 3b 0a 0a 20 20 20 20 2f 2a ags(md);.. /*
3dc0: 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20 20 6c 69 Flags */. li
3dd0: 73 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c stObj = Tcl_NewL
3de0: 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b istObj(0, NULL);
3df0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
3e00: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 L(interp, listOb
3e10: 6a 2c 20 22 4f 6e 65 2d 73 68 6f 74 22 2c 20 66 j, "One-shot", f
3e20: 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c lags & EVP_MD_FL
3e30: 41 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a 20 20 20 AG_ONESHOT);.
3e40: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e LAPPEND_BOOL(in
3e50: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 terp, listObj, "
3e60: 58 4f 46 22 2c 20 66 6c 61 67 73 20 26 20 45 56 XOF", flags & EV
3e70: 50 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46 29 3b 0a P_MD_FLAG_XOF);.
3e80: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c LAPPEND_BOOL
3e90: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a (interp, listObj
3ea0: 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 69 74 , "DigestAlgorit
3eb0: 68 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66 6c 61 67 hmId_NULL", flag
3ec0: 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f s & EVP_MD_FLAG_
3ed0: 44 49 47 41 4c 47 49 44 5f 4e 55 4c 4c 29 3b 0a DIGALGID_NULL);.
3ee0: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c LAPPEND_BOOL
3ef0: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a (interp, listObj
3f00: 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 69 74 , "DigestAlgorit
3f10: 68 6d 49 64 5f 41 62 73 65 6e 74 22 2c 20 66 6c hmId_Absent", fl
3f20: 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 ags & EVP_MD_FLA
3f30: 47 5f 44 49 47 41 4c 47 49 44 5f 41 42 53 45 4e G_DIGALGID_ABSEN
3f40: 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f T);. LAPPEND_
3f50: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
3f60: 74 4f 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 tObj, "DigestAlg
3f70: 6f 72 69 74 68 6d 49 64 5f 43 75 73 74 6f 6d 22 orithmId_Custom"
3f80: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 , flags & EVP_MD
3f90: 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 43 _FLAG_DIGALGID_C
3fa0: 55 53 54 4f 4d 29 3b 0a 20 20 20 20 4c 41 50 50 USTOM);. LAPP
3fb0: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
3fc0: 20 6c 69 73 74 4f 62 6a 2c 20 22 46 49 50 53 22 listObj, "FIPS"
3fd0: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 , flags & EVP_MD
3fe0: 5f 46 4c 41 47 5f 46 49 50 53 29 3b 0a 20 20 20 _FLAG_FIPS);.
3ff0: 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 6e 74 LAPPEND_OBJ(int
4000: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
4010: 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 4f 62 6a "flags", listObj
4020: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f );.. Tcl_SetO
4030: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
4040: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 0a 64 6f resultObj);..do
4050: 6e 65 3a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f ne:.#if OPENSSL_
4060: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
4070: 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 = 0x30000000L.
4080: 20 20 45 56 50 5f 4d 44 5f 66 72 65 65 28 6d 64 EVP_MD_free(md
4090: 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 72 65 );.#endif. re
40a0: 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a turn res;.}../*.
40b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
40c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 -----. *. * Dige
4100: 73 74 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 stList --. *. *.
4110: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 Return a list of
4120: 20 61 6c 6c 20 64 69 67 65 73 74 20 61 6c 67 6f all digest algo
4130: 72 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 rithms. *. * Res
4140: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
4150: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
4160: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4170: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
4180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41c0: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 ---. */.int Dige
41d0: 73 74 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 stList(Tcl_Inter
41e0: 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 p *interp) {.
41f0: 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 Tcl_Obj *result
4200: 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Obj = Tcl_NewLis
4210: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 tObj(0, NULL);.
4220: 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a if (resultObj
4230: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 == NULL) {..ret
4240: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
4250: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 61 6d }.. /* Sam
4260: 65 20 61 73 20 45 56 50 5f 4d 44 5f 64 6f 5f 61 e as EVP_MD_do_a
4270: 6c 6c 20 2a 2f 0a 20 20 20 20 4f 42 4a 5f 4e 41 ll */. OBJ_NA
4280: 4d 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 ME_do_all(OBJ_NA
4290: 4d 45 5f 54 59 50 45 5f 4d 44 5f 4d 45 54 48 2c ME_TYPE_MD_METH,
42a0: 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b 2c 20 NamesCallback,
42b0: 28 76 6f 69 64 20 2a 29 20 72 65 73 75 6c 74 4f (void *) resultO
42c0: 62 6a 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 bj);. Tcl_Set
42d0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
42e0: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 , resultObj);.
42f0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
4300: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
4310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
4350: 20 2a 20 44 69 67 65 73 74 73 4f 62 6a 43 6d 64 * DigestsObjCmd
4360: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e --. *. *.Return
4370: 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 a list of all v
4380: 61 6c 69 64 20 68 61 73 68 20 61 6c 67 6f 72 69 alid hash algori
4390: 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 67 65 20 thms or message
43a0: 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a 20 52 digests.. *. * R
43b0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
43c0: 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a ndard Tcl list..
43d0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
43e0: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
43f0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4430: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 -----. */.int Di
4440: 67 65 73 74 73 4f 62 6a 43 6d 64 28 43 6c 69 65 gestsObjCmd(Clie
4450: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
4460: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
4470: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
4480: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
4490: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 objv[]) {. (v
44a0: 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b oid) clientData;
44b0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
44c0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
44d0: 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f Clear errors */
44e0: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 . Tcl_ResetRe
44f0: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
4500: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
4510: 72 28 29 3b 0a 0a 0a 20 20 20 20 2f 2a 20 56 61 r();... /* Va
4520: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
4530: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
4540: 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e == 1) {..return
4550: 20 44 69 67 65 73 74 4c 69 73 74 28 69 6e 74 65 DigestList(inte
4560: 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 rp);.. } else
4570: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 if (objc == 2)
4580: 7b 0a 09 72 65 74 75 72 6e 20 44 69 67 65 73 74 {..return Digest
4590: 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a Info(interp, obj
45a0: 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c v[1]);.. } el
45b0: 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e se {..Tcl_WrongN
45c0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
45d0: 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 , objv, "?name?"
45e0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
45f0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
4600: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
4610: 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ../*************
4620: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4630: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4640: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4650: 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d ----------------
4690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
46a0: 2d 0a 20 2a 0a 20 2a 20 4b 64 66 4c 69 73 74 20 -. *. * KdfList
46b0: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 --. *. *.Return
46c0: 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 4b 44 a list of all KD
46d0: 46 20 61 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a F algorithms. *.
46e0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
46f0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 standard Tcl li
4700: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 st.. *. * Side e
4710: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
4720: 0a 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
4770: 74 20 4b 64 66 4c 69 73 74 28 54 63 6c 5f 49 6e t KdfList(Tcl_In
4780: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 68 terp *interp, ch
4790: 61 72 20 2a 73 65 6c 65 63 74 5f 6e 61 6d 65 29 ar *select_name)
47a0: 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a {. Tcl_Obj *
47b0: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
47c0: 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 NewListObj(0, NU
47d0: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 LL);. if (res
47e0: 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 ultObj == NULL)
47f0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
4800: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
4810: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
4820: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
4830: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f resultObj, Tcl_
4840: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 68 6b NewStringObj("hk
4850: 64 66 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 df", -1));. T
4860: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
4870: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
4880: 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e resultObj, Tcl_N
4890: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 70 62 6b ewStringObj("pbk
48a0: 64 66 32 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 df2", -1));.
48b0: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
48c0: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
48d0: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f resultObj, Tcl_
48e0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 73 63 NewStringObj("sc
48f0: 72 79 70 74 22 2c 20 2d 31 29 29 3b 0a 20 20 20 rypt", -1));.
4900: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
4910: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
4920: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
4930: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 TCL_OK;.}../*.
4940: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4980: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4b 64 66 73 4f ----. *. * KdfsO
4990: 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 bjCmd --. *. *.R
49a0: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
49b0: 61 6c 6c 20 76 61 6c 69 64 20 4b 65 79 20 44 65 all valid Key De
49c0: 72 69 76 61 74 69 6f 6e 20 46 75 6e 63 74 69 6f rivation Functio
49d0: 6e 20 28 4b 44 46 29 2e 0a 20 2a 0a 20 2a 20 52 n (KDF).. *. * R
49e0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
49f0: 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a ndard Tcl list..
4a00: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
4a10: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
4a20: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a60: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4b 64 -----. */.int Kd
4a70: 66 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 fsObjCmd(ClientD
4a80: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
4a90: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4aa0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
4ab0: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
4ac0: 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 v[]) {. (void
4ad0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 ) clientData;..
4ae0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
4af0: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c ed");.. /* Cl
4b00: 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 ear errors */.
4b10: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c Tcl_ResetResul
4b20: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 t(interp);. E
4b30: 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 RR_clear_error()
4b40: 3b 0a 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 ;... /* Valid
4b50: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f ate arg count */
4b60: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d . if (objc ==
4b70: 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 4b 64 1) {..return Kd
4b80: 66 4c 69 73 74 28 69 6e 74 65 72 70 2c 20 4e 55 fList(interp, NU
4b90: 4c 4c 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 LL);.. } else
4ba0: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 if (objc == 2)
4bb0: 7b 0a 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b {... } else {
4bc0: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
4bd0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
4be0: 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 jv, "?name?");..
4bf0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4c00: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
4c10: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
4c20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4c30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4c40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4c50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4c60: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
4c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4cb0: 0a 20 2a 20 4d 61 63 49 6e 66 6f 20 2d 2d 0a 20 . * MacInfo --.
4cc0: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 *. *.Return a li
4cd0: 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 st of properties
4ce0: 20 61 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 and values for
4cf0: 6d 61 63 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 macName.. *. * R
4d00: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
4d10: 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a ndard Tcl list..
4d20: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
4d30: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
4d40: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d80: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 -----. */.int Ma
4d90: 63 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 cInfo(Tcl_Interp
4da0: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 *interp, Tcl_Ob
4db0: 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 j *nameObj) {.
4dc0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
4dd0: 74 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 tObj;. int re
4de0: 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 s = TCL_OK;.
4df0: 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c char *name = Tcl
4e00: 5f 47 65 74 53 74 72 69 6e 67 28 6e 61 6d 65 4f _GetString(nameO
4e10: 62 6a 29 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 bj);..#if OPENSS
4e20: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
4e30: 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 < 0x30000000L.
4e40: 20 20 20 69 66 20 28 73 74 72 63 6d 70 28 6e 61 if (strcmp(na
4e50: 6d 65 2c 20 22 63 6d 61 63 22 29 20 21 3d 20 30 me, "cmac") != 0
4e60: 20 26 26 20 73 74 72 63 6d 70 28 6e 61 6d 65 2c && strcmp(name,
4e70: 20 22 68 6d 61 63 22 29 20 21 3d 20 30 29 20 7b "hmac") != 0) {
4e80: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
4e90: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 lt(interp, "Inva
4ea0: 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 6e 61 6d lid MAC \"", nam
4eb0: 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20 2a e, "\"", (char *
4ec0: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
4ed0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4ee0: 7d 0a 23 65 6c 73 65 0a 20 20 20 20 45 56 50 5f }.#else. EVP_
4ef0: 4d 41 43 20 2a 6d 61 63 20 3d 20 45 56 50 5f 4d MAC *mac = EVP_M
4f00: 41 43 5f 66 65 74 63 68 28 4e 55 4c 4c 2c 20 6e AC_fetch(NULL, n
4f10: 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 ame, NULL);..
4f20: 20 69 66 20 28 6d 61 63 20 3d 3d 20 4e 55 4c 4c if (mac == NULL
4f30: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
4f40: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 esult(interp, "I
4f50: 6e 76 61 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 nvalid MAC \"",
4f60: 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 name, "\"", (cha
4f70: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
4f80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
4f90: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 }.#endif..
4fa0: 20 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 /* Get properti
4fb0: 65 73 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 es */. result
4fc0: 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Obj = Tcl_NewLis
4fd0: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 tObj(0, NULL);.
4fe0: 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a if (resultObj
4ff0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 == NULL) {..res
5000: 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 67 = TCL_ERROR;..g
5010: 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a oto done;. }.
5020: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 #if OPENSSL_VERS
5030: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 ION_NUMBER < 0x3
5040: 30 30 30 30 30 30 30 4c 0a 20 20 20 20 4c 41 50 0000000L. LAP
5050: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
5060: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d resultObj, "nam
5070: 65 22 2c 20 6e 61 6d 65 2c 20 2d 31 29 3b 0a 20 e", name, -1);.
5080: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
5090: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
50a0: 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 2c , "description",
50b0: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 "", -1);. LA
50c0: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
50d0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 70 72 , resultObj, "pr
50e0: 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 29 ovider", "", -1)
50f0: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 4c 41 50 50 ;.#else. LAPP
5100: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
5110: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 resultObj, "name
5120: 22 2c 20 45 56 50 5f 4d 41 43 5f 67 65 74 30 5f ", EVP_MAC_get0_
5130: 6e 61 6d 65 28 6d 61 63 29 2c 20 2d 31 29 3b 0a name(mac), -1);.
5140: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
5150: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
5160: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
5170: 2c 20 45 56 50 5f 4d 41 43 5f 67 65 74 30 5f 64 , EVP_MAC_get0_d
5180: 65 73 63 72 69 70 74 69 6f 6e 28 6d 61 63 29 2c escription(mac),
5190: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
51a0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
51b0: 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 sultObj, "provid
51c0: 65 72 22 2c 20 4f 53 53 4c 5f 50 52 4f 56 49 44 er", OSSL_PROVID
51d0: 45 52 5f 67 65 74 30 5f 6e 61 6d 65 28 45 56 50 ER_get0_name(EVP
51e0: 5f 4d 41 43 5f 67 65 74 30 5f 70 72 6f 76 69 64 _MAC_get0_provid
51f0: 65 72 28 6d 61 63 29 29 2c 20 2d 31 29 3b 0a 23 er(mac)), -1);.#
5200: 65 6e 64 69 66 0a 0a 20 20 20 20 54 63 6c 5f 53 endif.. Tcl_S
5210: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
5220: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
5230: 0a 64 6f 6e 65 3a 0a 23 69 66 20 4f 50 45 4e 53 .done:.#if OPENS
5240: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
5250: 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c R >= 0x30000000L
5260: 0a 20 20 20 20 45 56 50 5f 4d 41 43 5f 66 72 65 . EVP_MAC_fre
5270: 65 28 6d 61 63 29 3b 0a 23 65 6e 64 69 66 0a 20 e(mac);.#endif.
5280: 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d return res;.}
5290: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
52a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
52e0: 20 4d 61 63 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 MacList --. *.
52f0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
5300: 6f 66 20 61 6c 6c 20 4d 41 43 20 61 6c 67 6f 72 of all MAC algor
5310: 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 ithms. *. * Resu
5320: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
5330: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
5340: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
5350: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
5360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53a0: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 4c 69 --. */.int MacLi
53b0: 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 st(Tcl_Interp *i
53c0: 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c nterp) {. Tcl
53d0: 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 _Obj *resultObj
53e0: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
53f0: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 (0, NULL);. i
5400: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
5410: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
5420: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
5430: 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 .. Tcl_ListOb
5440: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
5450: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
5460: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
5470: 62 6a 28 22 63 6d 61 63 22 2c 20 2d 31 29 29 3b bj("cmac", -1));
5480: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
5490: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
54a0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
54b0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
54c0: 6a 28 22 68 6d 61 63 22 2c 20 2d 31 29 29 3b 0a j("hmac", -1));.
54d0: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
54e0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 sult(interp, res
54f0: 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 ultObj);. ret
5500: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
5510: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5550: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 -------. *. * Ma
5560: 63 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 csObjCmd --. *.
5570: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
5580: 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 6d 65 73 of all valid mes
5590: 73 61 67 65 20 61 75 74 68 65 6e 74 69 63 61 74 sage authenticat
55a0: 69 6f 6e 20 63 6f 64 65 73 20 28 4d 41 43 29 2e ion codes (MAC).
55b0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
55c0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
55d0: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
55e0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
55f0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
5600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
5640: 2f 0a 69 6e 74 20 4d 61 63 73 4f 62 6a 43 6d 64 /.int MacsObjCmd
5650: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
5660: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
5670: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
5680: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
5690: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 onst objv[]) {.
56a0: 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 (void) client
56b0: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
56c0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
56d0: 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f /* Clear erro
56e0: 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 rs */. Tcl_Re
56f0: 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 setResult(interp
5700: 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 );. ERR_clear
5710: 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f _error();.. /
5720: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 * Validate arg c
5730: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ount */. if (
5740: 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 objc == 1) {..re
5750: 74 75 72 6e 20 4d 61 63 4c 69 73 74 28 69 6e 74 turn MacList(int
5760: 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 erp);.. } els
5770: 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 e if (objc == 2)
5780: 20 7b 0a 09 72 65 74 75 72 6e 20 4d 61 63 49 6e {..return MacIn
5790: 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b fo(interp, objv[
57a0: 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 1]);.. } else
57b0: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
57c0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
57d0: 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b objv, "?name?");
57e0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
57f0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
5800: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
5810: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
5820: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5830: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5840: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5850: 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ****/../*. *----
5860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
58a0: 20 2a 0a 20 2a 20 50 6b 65 79 49 6e 66 6f 20 2d *. * PkeyInfo -
58b0: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
58c0: 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 72 74 list of propert
58d0: 69 65 73 20 61 6e 64 20 76 61 6c 75 65 73 20 66 ies and values f
58e0: 6f 72 20 70 6b 65 79 2e 0a 20 2a 0a 20 2a 20 52 or pkey.. *. * R
58f0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
5900: 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a ndard Tcl list..
5910: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
5920: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
5930: 20 2a 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 2d 2d 2d 2d ----------------
5960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5970: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b -----. */.int Pk
5980: 65 79 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 eyInfo(Tcl_Inter
5990: 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f p *interp, Tcl_O
59a0: 62 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 bj *nameObj) {.
59b0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 Tcl_Obj *resu
59c0: 6c 74 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 ltObj;. int r
59d0: 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 es = TCL_OK;.
59e0: 20 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 char *name = Tc
59f0: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6e 61 6d 65 l_GetString(name
5a00: 4f 62 6a 29 3b 0a 20 20 20 20 45 56 50 5f 50 4b Obj);. EVP_PK
5a10: 45 59 20 2a 70 6b 65 79 20 3d 20 4e 55 4c 4c 3b EY *pkey = NULL;
5a20: 0a 0a 20 20 20 20 69 66 20 28 70 6b 65 79 20 3d .. if (pkey =
5a30: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
5a40: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
5a50: 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 70 75 62 rp, "Invalid pub
5a60: 6c 69 63 20 6b 65 79 20 6d 65 74 68 6f 64 20 5c lic key method \
5a70: 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 "", name, "\"",
5a80: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
5a90: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5aa0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5ab0: 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 Get properties
5ac0: 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a */. resultObj
5ad0: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
5ae0: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 j(0, NULL);.
5af0: 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d if (resultObj ==
5b00: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 NULL) {..res =
5b10: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 67 6f 74 6f TCL_ERROR;..goto
5b20: 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 20 20 20 done;. }.
5b30: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
5b40: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
5b50: 22 6e 61 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 "name", OBJ_nid2
5b60: 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 ln(EVP_PKEY_id(p
5b70: 6b 65 79 29 29 2c 20 2d 31 29 3b 0a 23 69 66 20 key)), -1);.#if
5b80: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
5b90: 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 NUMBER < 0x30000
5ba0: 30 30 30 4c 0a 20 20 20 20 4c 41 50 50 45 4e 44 000L. LAPPEND
5bb0: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
5bc0: 75 6c 74 4f 62 6a 2c 20 22 64 65 73 63 72 69 70 ultObj, "descrip
5bd0: 74 69 6f 6e 22 2c 20 22 22 2c 20 2d 31 29 3b 0a tion", "", -1);.
5be0: 23 65 6c 73 65 0a 20 20 20 20 4c 41 50 50 45 4e #else. LAPPEN
5bf0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
5c00: 73 75 6c 74 4f 62 6a 2c 20 22 64 65 73 63 72 69 sultObj, "descri
5c10: 70 74 69 6f 6e 22 2c 20 45 56 50 5f 50 4b 45 59 ption", EVP_PKEY
5c20: 5f 67 65 74 30 5f 64 65 73 63 72 69 70 74 69 6f _get0_descriptio
5c30: 6e 28 70 6b 65 79 29 2c 20 2d 31 29 3b 0a 23 65 n(pkey), -1);.#e
5c40: 6e 64 69 66 0a 20 20 20 20 4c 41 50 50 45 4e 44 ndif. LAPPEND
5c50: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 _INT(interp, res
5c60: 75 6c 74 4f 62 6a 2c 20 22 73 69 7a 65 22 2c 20 ultObj, "size",
5c70: 45 56 50 5f 50 4b 45 59 5f 73 69 7a 65 28 70 6b EVP_PKEY_size(pk
5c80: 65 79 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e ey));. LAPPEN
5c90: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 D_INT(interp, re
5ca0: 73 75 6c 74 4f 62 6a 2c 20 22 62 69 74 73 22 2c sultObj, "bits",
5cb0: 20 45 56 50 5f 50 4b 45 59 5f 62 69 74 73 28 70 EVP_PKEY_bits(p
5cc0: 6b 65 79 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 key));. LAPPE
5cd0: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 ND_INT(interp, r
5ce0: 65 73 75 6c 74 4f 62 6a 2c 20 22 73 65 63 75 72 esultObj, "secur
5cf0: 69 74 79 5f 62 69 74 73 22 2c 20 45 56 50 5f 50 ity_bits", EVP_P
5d00: 4b 45 59 5f 73 65 63 75 72 69 74 79 5f 62 69 74 KEY_security_bit
5d10: 73 28 70 6b 65 79 29 29 3b 0a 20 20 20 20 4c 41 s(pkey));. LA
5d20: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
5d30: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 61 , resultObj, "ba
5d40: 73 65 49 64 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c seId", OBJ_nid2l
5d50: 6e 28 45 56 50 5f 50 4b 45 59 5f 62 61 73 65 5f n(EVP_PKEY_base_
5d60: 69 64 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a id(pkey)), -1);.
5d70: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
5d80: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
5d90: 6a 2c 20 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e j, "type", OBJ_n
5da0: 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 74 id2ln(EVP_PKEY_t
5db0: 79 70 65 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 ype(EVP_PKEY_id(
5dc0: 70 6b 65 79 29 29 29 2c 20 2d 31 29 3b 0a 23 69 pkey))), -1);.#i
5dd0: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
5de0: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30 N_NUMBER < 0x300
5df0: 30 30 30 30 30 4c 0a 20 20 20 20 4c 41 50 50 45 00000L. LAPPE
5e00: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
5e10: 65 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 esultObj, "provi
5e20: 64 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 der", "", -1);.#
5e30: 65 6c 73 65 0a 20 20 20 20 4c 41 50 50 45 4e 44 else. LAPPEND
5e40: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
5e50: 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 ultObj, "provide
5e60: 72 22 2c 20 4f 53 53 4c 5f 50 52 4f 56 49 44 45 r", OSSL_PROVIDE
5e70: 52 5f 67 65 74 30 5f 6e 61 6d 65 28 45 56 50 5f R_get0_name(EVP_
5e80: 50 4b 45 59 5f 67 65 74 30 5f 70 72 6f 76 69 64 PKEY_get0_provid
5e90: 65 72 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a er(pkey)), -1);.
5ea0: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
5eb0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
5ec0: 6a 2c 20 22 74 79 70 65 5f 6e 61 6d 65 22 2c 20 j, "type_name",
5ed0: 45 56 50 5f 50 4b 45 59 5f 67 65 74 30 5f 74 79 EVP_PKEY_get0_ty
5ee0: 70 65 5f 6e 61 6d 65 28 70 6b 65 79 29 2c 20 2d pe_name(pkey), -
5ef0: 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 1);. LAPPEND_
5f00: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 72 65 73 BOOL(interp, res
5f10: 75 6c 74 4f 62 6a 2c 20 22 63 61 6e 5f 73 69 67 ultObj, "can_sig
5f20: 6e 22 2c 20 45 56 50 5f 50 4b 45 59 5f 63 61 6e n", EVP_PKEY_can
5f30: 5f 73 69 67 6e 28 70 6b 65 79 29 29 3b 0a 23 65 _sign(pkey));.#e
5f40: 6e 64 69 66 0a 0a 20 20 20 20 7b 0a 09 69 6e 74 ndif.. {..int
5f50: 20 70 6e 69 64 3b 0a 09 69 66 20 28 45 56 50 5f pnid;..if (EVP_
5f60: 50 4b 45 59 5f 67 65 74 5f 64 65 66 61 75 6c 74 PKEY_get_default
5f70: 5f 64 69 67 65 73 74 5f 6e 69 64 28 70 6b 65 79 _digest_nid(pkey
5f80: 2c 20 26 70 6e 69 64 29 20 3e 20 30 29 20 7b 0a , &pnid) > 0) {.
5f90: 09 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
5fa0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
5fb0: 62 6a 2c 20 22 64 65 66 61 75 6c 74 5f 64 69 67 bj, "default_dig
5fc0: 65 73 74 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e est", OBJ_nid2ln
5fd0: 28 70 6e 69 64 29 2c 20 2d 32 29 3b 0a 09 7d 0a (pnid), -2);..}.
5fe0: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 53 }.. Tcl_S
5ff0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
6000: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
6010: 0a 64 6f 6e 65 3a 0a 23 69 66 20 4f 50 45 4e 53 .done:.#if OPENS
6020: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
6030: 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c R >= 0x30000000L
6040: 0a 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 . EVP_PKEY_fr
6050: 65 65 28 70 6b 65 79 29 3b 0a 23 65 6e 64 69 66 ee(pkey);.#endif
6060: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b . return res;
6070: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
60c0: 20 2a 20 50 6b 65 79 4c 69 73 74 20 2d 2d 0a 20 * PkeyList --.
60d0: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 *. *.Return a li
60e0: 73 74 20 6f 66 20 61 6c 6c 20 70 75 62 6c 69 63 st of all public
60f0: 20 6b 65 79 20 6d 65 74 68 6f 64 73 0a 20 2a 0a key methods. *.
6100: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
6110: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 standard Tcl li
6120: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 st.. *. * Side e
6130: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
6140: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
6150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
6190: 74 20 50 6b 65 79 4c 69 73 74 28 54 63 6c 5f 49 t PkeyList(Tcl_I
61a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b nterp *interp) {
61b0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
61c0: 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 sultObj = Tcl_Ne
61d0: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
61e0: 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c );. if (resul
61f0: 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a tObj == NULL) {.
6200: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
6210: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f R;. }.. fo
6220: 72 20 28 73 69 7a 65 5f 74 20 69 20 3d 20 30 3b r (size_t i = 0;
6230: 20 69 20 3c 20 45 56 50 5f 50 4b 45 59 5f 6d 65 i < EVP_PKEY_me
6240: 74 68 5f 67 65 74 5f 63 6f 75 6e 74 28 29 3b 20 th_get_count();
6250: 69 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 63 i++) {. c
6260: 6f 6e 73 74 20 45 56 50 5f 50 4b 45 59 5f 4d 45 onst EVP_PKEY_ME
6270: 54 48 4f 44 20 2a 70 6d 65 74 68 20 3d 20 45 56 THOD *pmeth = EV
6280: 50 5f 50 4b 45 59 5f 6d 65 74 68 5f 67 65 74 30 P_PKEY_meth_get0
6290: 28 69 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 (i);. int
62a0: 20 70 6b 65 79 5f 69 64 2c 20 70 6b 65 79 5f 66 pkey_id, pkey_f
62b0: 6c 61 67 73 3b 0a 0a 20 20 20 20 20 20 20 20 45 lags;.. E
62c0: 56 50 5f 50 4b 45 59 5f 6d 65 74 68 5f 67 65 74 VP_PKEY_meth_get
62d0: 30 5f 69 6e 66 6f 28 26 70 6b 65 79 5f 69 64 2c 0_info(&pkey_id,
62e0: 20 26 70 6b 65 79 5f 66 6c 61 67 73 2c 20 70 6d &pkey_flags, pm
62f0: 65 74 68 29 3b 0a 09 2f 2a 4c 41 50 50 45 4e 44 eth);../*LAPPEND
6300: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
6310: 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 ultObj, "name",
6320: 4f 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 5f OBJ_nid2ln(pkey_
6330: 69 64 29 2c 20 2d 31 29 3b 0a 09 4c 41 50 50 45 id), -1);..LAPPE
6340: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
6350: 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 esultObj, "type"
6360: 2c 20 70 6b 65 79 5f 66 6c 61 67 73 20 26 20 41 , pkey_flags & A
6370: 53 4e 31 5f 50 4b 45 59 5f 44 59 4e 41 4d 49 43 SN1_PKEY_DYNAMIC
6380: 20 3f 20 22 45 78 74 65 72 6e 61 6c 22 20 3a 20 ? "External" :
6390: 22 42 75 69 6c 74 2d 69 6e 22 2c 20 2d 31 29 3b "Built-in", -1);
63a0: 2a 2f 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a */...Tcl_ListObj
63b0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
63c0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
63d0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
63e0: 6a 28 4f 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 j(OBJ_nid2ln(pke
63f0: 79 5f 69 64 29 2c 20 2d 31 29 29 3b 0a 20 20 20 y_id), -1));.
6400: 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 }. Tcl_SetOb
6410: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
6420: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
6430: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
6440: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
6490: 20 50 6b 65 79 73 4f 62 6a 43 6d 64 20 2d 2d 0a PkeysObjCmd --.
64a0: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c *. *.Return a l
64b0: 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c 69 64 ist of all valid
64c0: 20 68 61 73 68 20 61 6c 67 6f 72 69 74 68 6d 73 hash algorithms
64d0: 20 6f 72 20 6d 65 73 73 61 67 65 20 64 69 67 65 or message dige
64e0: 73 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c sts.. *. * Resul
64f0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
6500: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 d Tcl list.. *.
6510: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
6520: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6570: 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 73 4f -. */.int PkeysO
6580: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
6590: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
65a0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
65b0: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
65c0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
65d0: 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 ) {. (void) c
65e0: 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 lientData;..
65f0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
6600: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 );.. /* Clear
6610: 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 errors */. T
6620: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
6630: 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f nterp);. ERR_
6640: 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a clear_error();..
6650: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
6660: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 arg count */.
6670: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 if (objc == 1)
6680: 7b 0a 09 72 65 74 75 72 6e 20 50 6b 65 79 4c 69 {..return PkeyLi
6690: 73 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 st(interp);..
66a0: 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 } else if (objc
66b0: 20 3d 3d 20 32 29 20 7b 0a 09 72 65 74 75 72 6e == 2) {..return
66c0: 20 50 6b 65 79 49 6e 66 6f 28 69 6e 74 65 72 70 PkeyInfo(interp
66d0: 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 , objv[1]);..
66e0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 } else {..Tcl_W
66f0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
6700: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e rp, 1, objv, "?n
6710: 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ame?");..return
6720: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6730: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6740: 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 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 2f 0a 0a 2f 2a ***********/../*
6790: 0a 20 2a 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 50 72 6f ------. *. * Pro
67e0: 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 20 2d 2d 0a tocolsObjCmd --.
67f0: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c *. *.Return a l
6800: 69 73 74 20 6f 66 20 74 68 65 20 61 76 61 69 6c ist of the avail
6810: 61 62 6c 65 20 6f 72 20 73 75 70 70 6f 72 74 65 able or supporte
6820: 64 20 53 53 4c 2f 54 4c 53 20 70 72 6f 74 6f 63 d SSL/TLS protoc
6830: 6f 6c 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ols.. *. * Resul
6840: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
6850: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 d Tcl list.. *.
6860: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
6870: 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d *.none. *. *---
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68c0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a . */.static int.
68d0: 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 28 ProtocolsObjCmd(
68e0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
68f0: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
6900: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
6910: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
6920: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
6930: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
6940: 74 4f 62 6a 3b 0a 20 20 20 20 28 76 6f 69 64 29 tObj;. (void)
6950: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
6960: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
6970: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 d");.. /* Cle
6980: 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 ar errors */.
6990: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 Tcl_ResetResult
69a0: 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 (interp);. ER
69b0: 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b R_clear_error();
69c0: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
69d0: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
69e0: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 if (objc != 1
69f0: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
6a00: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
6a10: 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 objv, NULL);..r
6a20: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6a30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c . }.. /* L
6a40: 69 73 74 20 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c ist all protocol
6a50: 73 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f s */. resultO
6a60: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
6a70: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
6a80: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
6a90: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
6aa0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6ab0: 20 20 7d 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f }.#if OPENSSL_
6ac0: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c VERSION_NUMBER <
6ad0: 20 30 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 0x10100000L &&
6ae0: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 !defined(NO_SSL2
6af0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
6b00: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 ENSSL_NO_SSL2).
6b10: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
6b20: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
6b30: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
6b40: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
6b50: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53 protocols[TLS_SS
6b60: 4c 32 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 L2], -1));.#endi
6b70: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
6b80: 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 O_SSL3) && !defi
6b90: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 ned(OPENSSL_NO_S
6ba0: 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 SL3) && !defined
6bb0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
6bc0: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c _METHOD). Tcl
6bd0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
6be0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
6bf0: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
6c00: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 StringObj(protoc
6c10: 6f 6c 73 5b 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d ols[TLS_SSL3], -
6c20: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 1));.#endif.#if
6c30: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
6c40: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
6c50: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 ENSSL_NO_TLS1) &
6c60: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
6c70: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f SL_NO_TLS1_METHO
6c80: 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f D). Tcl_ListO
6c90: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
6ca0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
6cb0: 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 j, Tcl_NewString
6cc0: 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c Obj(protocols[TL
6cd0: 53 5f 54 4c 53 31 5d 2c 20 2d 31 29 29 3b 0a 23 S_TLS1], -1));.#
6ce0: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
6cf0: 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 ed(NO_TLS1_1) &&
6d00: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
6d10: 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 L_NO_TLS1_1) &&
6d20: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
6d30: 5f 4e 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f _NO_TLS1_1_METHO
6d40: 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f D). Tcl_ListO
6d50: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
6d60: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
6d70: 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 j, Tcl_NewString
6d80: 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c Obj(protocols[TL
6d90: 53 5f 54 4c 53 31 5f 31 5d 2c 20 2d 31 29 29 3b S_TLS1_1], -1));
6da0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
6db0: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 ined(NO_TLS1_2)
6dc0: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
6dd0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 SSL_NO_TLS1_2) &
6de0: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
6df0: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 SL_NO_TLS1_2_MET
6e00: 48 4f 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 HOD). Tcl_Lis
6e10: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
6e20: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
6e30: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
6e40: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b ngObj(protocols[
6e50: 54 4c 53 5f 54 4c 53 31 5f 32 5d 2c 20 2d 31 29 TLS_TLS1_2], -1)
6e60: 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 );.#endif.#if !d
6e70: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 efined(NO_TLS1_3
6e80: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
6e90: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 ENSSL_NO_TLS1_3)
6ea0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
6eb0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
6ec0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
6ed0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
6ee0: 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f j(protocols[TLS_
6ef0: 54 4c 53 31 5f 33 5d 2c 20 2d 31 29 29 3b 0a 23 TLS1_3], -1));.#
6f00: 65 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f 53 65 endif. Tcl_Se
6f10: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
6f20: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 p, resultObj);.
6f30: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
6f40: 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;.}../**********
6f50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
6f90: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fd0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 72 6f 76 69 ----. *. * Provi
6fe0: 64 65 72 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a derObjCmd --. *.
6ff0: 20 2a 09 4c 6f 61 64 20 61 20 70 72 6f 76 69 64 *.Load a provid
7000: 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 er.. *. * Result
7010: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
7020: 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a Tcl result.. *.
7030: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
7040: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
7050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7090: 2d 2d 0a 20 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 --. */.#if OPENS
70a0: 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 SL_VERSION_NUMBE
70b0: 52 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c R >= 0x30000000L
70c0: 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 72 6f 76 .static int.Prov
70d0: 69 64 65 72 4f 62 6a 43 6d 64 28 43 6c 69 65 6e iderObjCmd(Clien
70e0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
70f0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
7100: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
7110: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
7120: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 63 68 61 bjv[]) {. cha
7130: 72 20 2a 6e 61 6d 65 3b 0a 20 20 20 20 28 76 6f r *name;. (vo
7140: 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a id) clientData;.
7150: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
7160: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
7170: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
7180: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
7190: 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f jc != 2) {..Tcl_
71a0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
71b0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 6e erp, 1, objv, "n
71c0: 61 6d 65 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 ame");..return T
71d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
71e0: 0a 20 20 20 20 6e 61 6d 65 20 3d 20 54 63 6c 5f . name = Tcl_
71f0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
7200: 5d 29 3b 0a 20 20 20 20 69 66 20 28 21 4f 53 53 ]);. if (!OSS
7210: 4c 5f 50 52 4f 56 49 44 45 52 5f 74 72 79 5f 6c L_PROVIDER_try_l
7220: 6f 61 64 28 4e 55 4c 4c 2c 20 28 63 6f 6e 73 74 oad(NULL, (const
7230: 20 63 68 61 72 20 2a 29 20 6e 61 6d 65 2c 20 31 char *) name, 1
7240: 29 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 )) {..Tcl_Append
7250: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 47 Result(interp, G
7260: 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c ET_ERR_REASON(),
7270: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
7280: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
7290: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 OR;. }.. r
72a0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
72b0: 23 65 6e 64 69 66 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a #endif../*******
72c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
72f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f ************/../
7300: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
7310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7340: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 -------. *. * Ve
7350: 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 0a 20 rsionObjCmd --.
7360: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 73 74 *. *.Return a st
7370: 72 69 6e 67 20 77 69 74 68 20 74 68 65 20 4f 70 ring with the Op
7380: 65 6e 53 53 4c 20 76 65 72 73 69 6f 6e 20 69 6e enSSL version in
7390: 66 6f 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 fo.. *. * Result
73a0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
73b0: 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a Tcl result.. *.
73c0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
73d0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
73e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
73f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7420: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
7430: 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 t.VersionObjCmd(
7440: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
7450: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
7460: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
7470: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
7480: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
7490: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
74a0: 74 4f 62 6a 3b 0a 20 20 20 20 28 76 6f 69 64 29 tObj;. (void)
74b0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
74c0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
74d0: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c d");.. /* Val
74e0: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
74f0: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
7500: 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f 57 72 6f != 1) {..Tcl_Wro
7510: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
7520: 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 , 1, objv, NULL)
7530: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
7540: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7550: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
7560: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 NewStringObj(OPE
7570: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 NSSL_VERSION_TEX
7580: 54 2c 20 2d 31 29 3b 0a 20 20 20 20 54 63 6c 5f T, -1);. Tcl_
7590: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
75a0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
75b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
75c0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a OK;.}../********
75d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
75e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
75f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7600: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
7610: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
7620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7650: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
7660: 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 73 20 2d 2d _InfoCommands --
7670: 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 69 6e . *. *.Create in
7680: 66 6f 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 fo commands. *.
7690: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
76a0: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
76b0: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
76c0: 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 ects:. *.Creates
76d0: 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d commands. *. *-
76e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7720: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 49 --. */.int Tls_I
7730: 6e 66 6f 43 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f nfoCommands(Tcl_
7740: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
7750: 7b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 {..#if OPENSSL_V
7760: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 ERSION_NUMBER <
7770: 30 78 31 30 31 30 30 30 30 30 4c 0a 20 20 20 20 0x10100000L.
7780: 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f OpenSSL_add_all_
7790: 63 69 70 68 65 72 73 28 29 3b 0a 20 20 20 20 4f ciphers();. O
77a0: 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 64 penSSL_add_all_d
77b0: 69 67 65 73 74 73 28 29 3b 0a 20 20 20 20 4f 70 igests();. Op
77c0: 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 61 6c enSSL_add_all_al
77d0: 67 6f 72 69 74 68 6d 73 28 29 3b 0a 23 65 6e 64 gorithms();.#end
77e0: 69 66 0a 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 if.. Tcl_Crea
77f0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
7800: 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 63 69 70 erp, "::tls::cip
7810: 68 65 72 22 2c 20 43 69 70 68 65 72 4f 62 6a 43 her", CipherObjC
7820: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
7830: 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 NULL, (Tcl_CmdD
7840: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
7850: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
7860: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
7870: 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 63 69 70 erp, "::tls::cip
7880: 68 65 72 73 22 2c 20 43 69 70 68 65 72 73 4f 62 hers", CiphersOb
7890: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
78a0: 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d a) NULL, (Tcl_Cm
78b0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
78c0: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
78d0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
78e0: 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 64 nterp, "::tls::d
78f0: 69 67 65 73 74 73 22 2c 20 44 69 67 65 73 74 73 igests", Digests
7900: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
7910: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
7920: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
7930: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
7940: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
7950: 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a (interp, "::tls:
7960: 3a 6b 64 66 73 22 2c 20 4b 64 66 73 4f 62 6a 43 :kdfs", KdfsObjC
7970: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
7980: 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 NULL, (Tcl_CmdD
7990: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
79a0: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
79b0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
79c0: 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 6d 61 63 erp, "::tls::mac
79d0: 73 22 2c 20 4d 61 63 73 4f 62 6a 43 6d 64 2c 20 s", MacsObjCmd,
79e0: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c (ClientData) NUL
79f0: 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 L, (Tcl_CmdDelet
7a00: 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a eProc *) NULL);.
7a10: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
7a20: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
7a30: 20 22 3a 3a 74 6c 73 3a 3a 70 6b 65 79 73 22 2c "::tls::pkeys",
7a40: 20 50 6b 65 79 73 4f 62 6a 43 6d 64 2c 20 28 43 PkeysObjCmd, (C
7a50: 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c lientData) NULL,
7a60: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
7a70: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
7a80: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
7a90: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
7aa0: 3a 3a 74 6c 73 3a 3a 70 72 6f 74 6f 63 6f 6c 73 ::tls::protocols
7ab0: 22 2c 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 ", ProtocolsObjC
7ac0: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
7ad0: 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 NULL, (Tcl_CmdD
7ae0: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
7af0: 4c 29 3b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f L);.#if OPENSSL_
7b00: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
7b10: 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 = 0x30000000L.
7b20: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
7b30: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
7b40: 3a 3a 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 22 ::tls::provider"
7b50: 2c 20 50 72 6f 76 69 64 65 72 4f 62 6a 43 6d 64 , ProviderObjCmd
7b60: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e , (ClientData) N
7b70: 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ULL, (Tcl_CmdDel
7b80: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
7b90: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 54 63 6c ;.#endif. Tcl
7ba0: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
7bb0: 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 d(interp, "::tls
7bc0: 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 ::version", Vers
7bd0: 69 6f 6e 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 ionObjCmd, (Clie
7be0: 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 ntData) NULL, (T
7bf0: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
7c00: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 *) NULL);. r
7c10: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
7c20: 0a .