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 0a 20 20 20 20 2f 2a );. }.. /*
1b90: 20 41 45 41 44 20 70 72 6f 70 65 72 74 69 65 73 AEAD properties
1ba0: 20 2a 2f 0a 20 20 20 20 7b 0a 09 69 6e 74 20 61 */. {..int a
1bb0: 61 64 5f 6c 65 6e 20 3d 20 30 3b 0a 09 69 66 20 ad_len = 0;..if
1bc0: 28 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 (flags & EVP_CIP
1bd0: 48 5f 46 4c 41 47 5f 41 45 41 44 5f 43 49 50 48 H_FLAG_AEAD_CIPH
1be0: 45 52 29 20 7b 0a 09 20 20 20 20 61 61 64 5f 6c ER) {.. aad_l
1bf0: 65 6e 20 3d 20 45 56 50 5f 41 45 41 44 5f 54 4c en = EVP_AEAD_TL
1c00: 53 31 5f 41 41 44 5f 4c 45 4e 3b 0a 09 7d 0a 09 S1_AAD_LEN;..}..
1c10: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
1c20: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
1c30: 61 61 64 5f 6c 65 6e 67 74 68 22 2c 20 61 61 64 aad_length", aad
1c40: 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 _len);. }..
1c50: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
1c60: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
1c70: 74 4f 62 6a 29 3b 0a 0a 64 6f 6e 65 3a 0a 23 69 tObj);..done:.#i
1c80: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
1c90: 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 N_NUMBER >= 0x30
1ca0: 30 30 30 30 30 30 4c 0a 20 20 20 20 45 56 50 5f 000000L. EVP_
1cb0: 43 49 50 48 45 52 5f 66 72 65 65 28 28 45 56 50 CIPHER_free((EVP
1cc0: 5f 43 49 50 48 45 52 20 2a 29 20 63 69 70 68 65 _CIPHER *) ciphe
1cd0: 72 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 72 r);.#endif. r
1ce0: 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a eturn res;.}../*
1cf0: 0a 20 2a 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 2d 2d 2d 2d 2d ----------------
1d30: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 ------. *. * Cip
1d40: 68 65 72 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a herList --. *. *
1d50: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f .Return a list o
1d60: 66 20 61 6c 6c 20 63 69 70 68 65 72 20 61 6c 67 f all cipher alg
1d70: 6f 72 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 orithms. *. * Re
1d80: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
1d90: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 dard Tcl list..
1da0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
1db0: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 s:. *.None.. *.
1dc0: 2a 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 2d 2d 2d 2d 2d 2d 2d ----------------
1e00: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 43 69 70 ----. */.int Cip
1e10: 68 65 72 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 herList(Tcl_Inte
1e20: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 rp *interp) {.
1e30: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
1e40: 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 tObj = Tcl_NewLi
1e50: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
1e60: 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 if (resultOb
1e70: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 j == NULL) {..re
1e80: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1e90: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 61 }.. /* Sa
1ea0: 6d 65 20 61 73 20 45 56 50 5f 43 49 50 48 45 52 me as EVP_CIPHER
1eb0: 5f 64 6f 5f 61 6c 6c 20 2a 2f 0a 20 20 20 20 4f _do_all */. O
1ec0: 42 4a 5f 4e 41 4d 45 5f 64 6f 5f 61 6c 6c 28 4f BJ_NAME_do_all(O
1ed0: 42 4a 5f 4e 41 4d 45 5f 54 59 50 45 5f 43 49 50 BJ_NAME_TYPE_CIP
1ee0: 48 45 52 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 43 HER_METH, NamesC
1ef0: 61 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 2a allback, (void *
1f00: 29 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 ) resultObj);.
1f10: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
1f20: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
1f30: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 tObj);. retur
1f40: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
1f50: 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
1f90: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 -----. *. * Ciph
1fa0: 65 72 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 erObjCmd --. *.
1fb0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
1fc0: 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e of properties an
1fd0: 64 20 76 61 6c 75 65 73 20 66 6f 72 20 63 69 70 d values for cip
1fe0: 68 65 72 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 herName.. *. * R
1ff0: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
2000: 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a ndard Tcl list..
2010: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
2020: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
2030: 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
2070: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
2080: 20 69 6e 74 20 43 69 70 68 65 72 4f 62 6a 43 6d int CipherObjCm
2090: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
20a0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
20b0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
20c0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
20d0: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
20e0: 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e (void) clien
20f0: 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 tData;.. dpri
2100: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
2110: 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 /* Clear err
2120: 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 ors */. Tcl_R
2130: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 esetResult(inter
2140: 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 p);. ERR_clea
2150: 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 r_error();..
2160: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
2170: 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 count */. if
2180: 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 (objc == 1) {..r
2190: 65 74 75 72 6e 20 43 69 70 68 65 72 4c 69 73 74 eturn CipherList
21a0: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d (interp);.. }
21b0: 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d else if (objc =
21c0: 3d 20 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 43 = 2) {..return C
21d0: 69 70 68 65 72 49 6e 66 6f 28 69 6e 74 65 72 70 ipherInfo(interp
21e0: 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 , objv[1]);..
21f0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 } else {..Tcl_W
2200: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
2210: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e rp, 1, objv, "?n
2220: 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ame?");..return
2230: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
2240: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2250: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
22a0: 20 2a 0a 20 2a 20 43 69 70 68 65 72 73 4f 62 6a *. * CiphersObj
22b0: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 Cmd --. *. *.Thi
22c0: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 s procedure is i
22d0: 6e 76 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 nvoked to proces
22e0: 73 20 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 s the "tls::ciph
22f0: 65 72 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 ers" command. *.
2300: 74 6f 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c to list availabl
2310: 65 20 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 e ciphers, based
2320: 20 75 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 upon protocol s
2330: 65 6c 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 elected.. *. * R
2340: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
2350: 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 ndard Tcl result
2360: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 list.. *. * Sid
2370: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f e effects:. *.co
2380: 6e 73 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 nstructs and des
2390: 74 72 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 troys SSL contex
23a0: 74 20 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d t (CTX). *. *---
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
23f0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
2400: 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 28 43 6c CiphersObjCmd(Cl
2410: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
2420: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
2430: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
2440: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
2450: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
2460: 53 53 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e SSL_CTX *ctx = N
2470: 55 4c 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 ULL;. SSL *ss
2480: 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 l = NULL;. ST
2490: 41 43 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 ACK_OF(SSL_CIPHE
24a0: 52 29 20 2a 73 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 R) *sk = NULL;.
24b0: 20 20 20 54 63 6c 5f 53 69 7a 65 20 69 6e 64 65 Tcl_Size inde
24c0: 78 3b 0a 20 20 20 20 69 6e 74 20 76 65 72 62 6f x;. int verbo
24d0: 73 65 20 3d 20 30 2c 20 75 73 65 5f 73 75 70 70 se = 0, use_supp
24e0: 6f 72 74 65 64 20 3d 20 30 2c 20 72 65 73 20 3d orted = 0, res =
24f0: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 69 6e 74 TCL_OK;. int
2500: 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 2c 20 6d 61 min_version, ma
2510: 78 5f 76 65 72 73 69 6f 6e 3b 0a 20 20 20 20 28 x_version;. (
2520: 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 void) clientData
2530: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
2540: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
2550: 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a * Clear errors *
2560: 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 /. Tcl_ResetR
2570: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 esult(interp);.
2580: 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 ERR_clear_err
2590: 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 or();.. /* Va
25a0: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
25b0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
25c0: 20 3e 20 34 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 4) {..Tcl_Wro
25d0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
25e0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 70 72 6f , 1, objv, "?pro
25f0: 74 6f 63 6f 6c 3f 20 3f 76 65 72 62 6f 73 65 3f tocol? ?verbose?
2600: 20 3f 73 75 70 70 6f 72 74 65 64 3f 22 29 3b 0a ?supported?");.
2610: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
2620: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
2630: 20 4c 69 73 74 20 61 6c 6c 20 63 69 70 68 65 72 List all cipher
2640: 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a s */. if (obj
2650: 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 c == 1) {..retur
2660: 6e 20 43 69 70 68 65 72 4c 69 73 74 28 69 6e 74 n CipherList(int
2670: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 erp);. }..
2680: 20 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 /* Get options
2690: 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 */. if (Tcl_G
26a0: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 etIndexFromObj(i
26b0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 nterp, objv[1],
26c0: 70 72 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 protocols, "prot
26d0: 6f 63 6f 6c 22 2c 20 30 2c 20 26 69 6e 64 65 78 ocol", 0, &index
26e0: 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 ) != TCL_OK ||..
26f0: 28 6f 62 6a 63 20 3e 20 32 20 26 26 20 54 63 6c (objc > 2 && Tcl
2700: 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f _GetBooleanFromO
2710: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
2720: 32 5d 2c 20 26 76 65 72 62 6f 73 65 29 20 21 3d 2], &verbose) !=
2730: 20 54 43 4c 5f 4f 4b 29 20 7c 7c 0a 09 28 6f 62 TCL_OK) ||..(ob
2740: 6a 63 20 3e 20 33 20 26 26 20 54 63 6c 5f 47 65 jc > 3 && Tcl_Ge
2750: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
2760: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c interp, objv[3],
2770: 20 26 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 &use_supported)
2780: 20 21 3d 20 54 43 4c 5f 4f 4b 29 29 20 7b 0a 09 != TCL_OK)) {..
2790: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
27a0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 ;. }.. swi
27b0: 74 63 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f tch ((enum proto
27c0: 63 6f 6c 29 69 6e 64 65 78 29 20 7b 0a 09 63 61 col)index) {..ca
27d0: 73 65 20 54 4c 53 5f 53 53 4c 32 3a 0a 09 20 20 se TLS_SSL2:..
27e0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
27f0: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f lt(interp, proto
2800: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 cols[index], ":
2810: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
2820: 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a ported", (char *
2830: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 ) NULL);.. re
2840: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2850: 09 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a .case TLS_SSL3:.
2860: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 #if defined(NO_S
2870: 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 SL3) || defined(
2880: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 OPENSSL_NO_SSL3)
2890: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e || defined(OPEN
28a0: 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 SSL_NO_SSL3_METH
28b0: 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 OD).. Tcl_App
28c0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
28d0: 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 , protocols[inde
28e0: 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 x], ": protocol
28f0: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
2900: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
2910: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2920: 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 ERROR;.#else.
2930: 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 min_ver
2940: 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 sion = SSL3_VERS
2950: 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ION;.
2960: 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 53 max_version = S
2970: 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 SL3_VERSION;..
2980: 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a break;.#endif.
2990: 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a 0a .case TLS_TLS1:.
29a0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
29b0: 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 LS1) || defined(
29c0: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 OPENSSL_NO_TLS1)
29d0: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e || defined(OPEN
29e0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 SSL_NO_TLS1_METH
29f0: 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 OD).. Tcl_App
2a00: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2a10: 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 , protocols[inde
2a20: 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 x], ": protocol
2a30: 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 not supported",
2a40: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
2a50: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2a60: 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 ERROR;.#else.
2a70: 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 min_ver
2a80: 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 52 53 sion = TLS1_VERS
2a90: 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ION;.
2aa0: 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 max_version = T
2ab0: 4c 53 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 LS1_VERSION;..
2ac0: 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a break;.#endif.
2ad0: 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 .case TLS_TLS1_1
2ae0: 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f :.#if defined(NO
2af0: 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 _TLS1_1) || defi
2b00: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
2b10: 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 LS1_1) || define
2b20: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
2b30: 31 5f 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 1_1_METHOD)..
2b40: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
2b50: 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 t(interp, protoc
2b60: 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 ols[index], ": p
2b70: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
2b80: 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 orted", (char *)
2b90: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
2ba0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
2bb0: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
2bc0: 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 54 min_version = T
2bd0: 4c 53 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 20 LS1_1_VERSION;.
2be0: 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 max_v
2bf0: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f ersion = TLS1_1_
2c00: 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 VERSION;.. br
2c10: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 eak;.#endif..cas
2c20: 65 20 54 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 e TLS_TLS1_2:.#i
2c30: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
2c40: 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 1_2) || defined(
2c50: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
2c60: 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 2) || defined(OP
2c70: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f ENSSL_NO_TLS1_2_
2c80: 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 63 6c METHOD).. Tcl
2c90: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
2ca0: 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b terp, protocols[
2cb0: 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f index], ": proto
2cc0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
2cd0: 64 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c d", (char *) NUL
2ce0: 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 L);.. return
2cf0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 TCL_ERROR;.#else
2d00: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e . min
2d10: 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f _version = TLS1_
2d20: 32 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 2_VERSION;.
2d30: 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 max_versi
2d40: 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 on = TLS1_2_VERS
2d50: 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b ION;.. break;
2d60: 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c .#endif..case TL
2d70: 53 5f 54 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65 S_TLS1_3:.#if de
2d80: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 fined(NO_TLS1_3)
2d90: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e || defined(OPEN
2da0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 SSL_NO_TLS1_3)..
2db0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
2dc0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f sult(interp, pro
2dd0: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 tocols[index], "
2de0: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 : protocol not s
2df0: 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 upported", (char
2e00: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 *) NULL);..
2e10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
2e20: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ;.#else.
2e30: 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 min_version
2e40: 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e = TLS1_3_VERSION
2e50: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 ;. ma
2e60: 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 x_version = TLS1
2e70: 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 _3_VERSION;..
2e80: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 break;.#endif..
2e90: 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 default:.
2ea0: 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e min_version
2eb0: 20 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b = SSL3_VERSION;
2ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 . max
2ed0: 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f _version = TLS1_
2ee0: 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 3_VERSION;..
2ef0: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 break;. }..
2f00: 20 20 2f 2a 20 43 72 65 61 74 65 20 63 6f 6e 74 /* Create cont
2f10: 65 78 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 ext */. if ((
2f20: 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 ctx = SSL_CTX_ne
2f30: 77 28 54 4c 53 5f 73 65 72 76 65 72 5f 6d 65 74 w(TLS_server_met
2f40: 68 6f 64 28 29 29 29 20 3d 3d 20 4e 55 4c 4c 29 hod())) == NULL)
2f50: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
2f60: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 47 45 54 sult(interp, GET
2f70: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
2f80: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
2f90: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
2fa0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
2fb0: 53 65 74 20 70 72 6f 74 6f 63 6f 6c 20 76 65 72 Set protocol ver
2fc0: 73 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 sions */. if
2fd0: 28 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 6e (SSL_CTX_set_min
2fe0: 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63 _proto_version(c
2ff0: 74 78 2c 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 29 tx, min_version)
3000: 20 3d 3d 20 30 20 7c 7c 0a 09 53 53 4c 5f 43 54 == 0 ||..SSL_CT
3010: 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f 74 6f 5f X_set_max_proto_
3020: 76 65 72 73 69 6f 6e 28 63 74 78 2c 20 6d 61 78 version(ctx, max
3030: 5f 76 65 72 73 69 6f 6e 29 20 3d 3d 20 30 29 20 _version) == 0)
3040: 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 {..SSL_CTX_free(
3050: 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ctx);..return TC
3060: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
3070: 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 53 53 /* Create SS
3080: 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 L context */.
3090: 20 69 66 20 28 28 73 73 6c 20 3d 20 53 53 4c 5f if ((ssl = SSL_
30a0: 6e 65 77 28 63 74 78 29 29 20 3d 3d 20 4e 55 4c new(ctx)) == NUL
30b0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
30c0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 47 Result(interp, G
30d0: 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c ET_ERR_REASON(),
30e0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
30f0: 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 ..SSL_CTX_free(c
3100: 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c tx);..return TCL
3110: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
3120: 20 20 20 2f 2a 20 55 73 65 20 6c 69 73 74 20 61 /* Use list a
3130: 6e 64 20 6f 72 64 65 72 20 61 73 20 77 6f 75 6c nd order as woul
3140: 64 20 62 65 20 73 65 6e 74 20 69 6e 20 61 20 43 d be sent in a C
3150: 6c 69 65 6e 74 48 65 6c 6c 6f 20 6f 72 20 61 6c lientHello or al
3160: 6c 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 l available ciph
3170: 65 72 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 75 ers */. if (u
3180: 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 7b 0a se_supported) {.
3190: 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 31 5f 73 .sk = SSL_get1_s
31a0: 75 70 70 6f 72 74 65 64 5f 63 69 70 68 65 72 73 upported_ciphers
31b0: 28 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 (ssl);. } els
31c0: 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 e {..sk = SSL_ge
31d0: 74 5f 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a t_ciphers(ssl);.
31e0: 09 2f 2a 73 6b 20 3d 20 53 53 4c 5f 43 54 58 5f ./*sk = SSL_CTX_
31f0: 67 65 74 5f 63 69 70 68 65 72 73 28 63 74 78 29 get_ciphers(ctx)
3200: 3b 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 ;*/. }.. i
3210: 66 20 28 73 6b 20 21 3d 20 4e 55 4c 4c 29 20 7b f (sk != NULL) {
3220: 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c ..Tcl_Obj *resul
3230: 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 69 tObj = NULL;...i
3240: 66 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 f (!verbose) {..
3250: 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a const char *
3260: 63 70 3b 0a 09 20 20 20 20 72 65 73 75 6c 74 4f cp;.. resultO
3270: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
3280: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 09 20 Obj(0, NULL);..
3290: 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a if (resultObj
32a0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 == NULL) {...re
32b0: 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 s = TCL_ERROR;..
32c0: 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 .goto done;..
32d0: 20 7d 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 6e }... for (in
32e0: 74 20 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f t i = 0; i < sk_
32f0: 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 SSL_CIPHER_num(s
3300: 6b 29 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e k); i++) {...con
3310: 73 74 20 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 st SSL_CIPHER *c
3320: 20 3d 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 = sk_SSL_CIPHER
3330: 5f 76 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 _value(sk, i);..
3340: 09 69 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 .if (c == NULL)
3350: 63 6f 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 continue;..../*
3360: 63 69 70 68 65 72 20 6e 61 6d 65 20 6f 72 20 28 cipher name or (
3370: 4e 4f 4e 45 29 20 2a 2f 0a 09 09 63 70 20 3d 20 NONE) */...cp =
3380: 53 53 4c 5f 43 49 50 48 45 52 5f 67 65 74 5f 6e SSL_CIPHER_get_n
3390: 61 6d 65 28 63 29 3b 0a 09 09 69 66 20 28 63 70 ame(c);...if (cp
33a0: 20 3d 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b 3b == NULL) break;
33b0: 0a 09 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 ...Tcl_ListObjAp
33c0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
33d0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
33e0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
33f0: 63 70 2c 20 2d 31 29 29 3b 0a 09 20 20 20 20 7d cp, -1));.. }
3400: 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 ...} else {..
3410: 20 63 68 61 72 20 62 75 66 5b 42 55 46 53 49 5a char buf[BUFSIZ
3420: 5d 3b 0a 09 20 20 20 20 72 65 73 75 6c 74 4f 62 ];.. resultOb
3430: 6a 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e j = Tcl_NewStrin
3440: 67 4f 62 6a 28 22 22 2c 20 30 29 3b 0a 09 20 20 gObj("", 0);..
3450: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
3460: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 == NULL) {...res
3470: 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 = TCL_ERROR;...
3480: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 goto done;..
3490: 7d 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 6e 74 }... for (int
34a0: 20 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 i = 0; i < sk_S
34b0: 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b SL_CIPHER_num(sk
34c0: 29 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 ); i++) {...cons
34d0: 74 20 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 t SSL_CIPHER *c
34e0: 3d 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f = sk_SSL_CIPHER_
34f0: 76 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 value(sk, i);...
3500: 69 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 if (c == NULL) c
3510: 6f 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 74 ontinue;..../* t
3520: 65 78 74 75 61 6c 20 64 65 73 63 72 69 70 74 69 extual descripti
3530: 6f 6e 20 6f 66 20 74 68 65 20 63 69 70 68 65 72 on of the cipher
3540: 20 2a 2f 0a 09 09 69 66 20 28 53 53 4c 5f 43 49 */...if (SSL_CI
3550: 50 48 45 52 5f 64 65 73 63 72 69 70 74 69 6f 6e PHER_description
3560: 28 63 2c 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 (c, buf, sizeof(
3570: 62 75 66 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b buf)) != NULL) {
3580: 0a 09 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ... Tcl_Appen
3590: 64 54 6f 4f 62 6a 28 72 65 73 75 6c 74 4f 62 6a dToObj(resultObj
35a0: 2c 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 , buf, (Tcl_Size
35b0: 29 20 73 74 72 6c 65 6e 28 62 75 66 29 29 3b 0a ) strlen(buf));.
35c0: 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 ..} else {...
35d0: 20 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a Tcl_AppendToObj
35e0: 28 72 65 73 75 6c 74 4f 62 6a 2c 20 22 55 4e 4b (resultObj, "UNK
35f0: 4e 4f 57 4e 5c 6e 22 2c 20 38 29 3b 0a 09 09 7d NOWN\n", 8);...}
3600: 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 .. }..}.../*
3610: 43 6c 65 61 6e 20 75 70 20 2a 2f 0a 09 69 66 20 Clean up */..if
3620: 28 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 (use_supported)
3630: 7b 0a 09 20 20 20 20 73 6b 5f 53 53 4c 5f 43 49 {.. sk_SSL_CI
3640: 50 48 45 52 5f 66 72 65 65 28 73 6b 29 3b 0a 09 PHER_free(sk);..
3650: 7d 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 }..Tcl_SetObjRes
3660: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
3670: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 7d 0a 0a 64 ltObj);. }..d
3680: 6f 6e 65 3a 0a 20 20 20 20 53 53 4c 5f 66 72 65 one:. SSL_fre
3690: 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f e(ssl);. SSL_
36a0: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 CTX_free(ctx);.
36b0: 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d return res;.}
36c0: 0a 0a 2f 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 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 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 2d ----------------
3750: 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 49 6e -. *. * DigestIn
3760: 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 fo --. *. *.Retu
3770: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f rn a list of pro
3780: 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 perties and valu
3790: 65 73 20 66 6f 72 20 64 69 67 65 73 74 2e 0a 20 es for digest..
37a0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
37b0: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
37c0: 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 list.. *. * Side
37d0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
37e0: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
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 2d 2d 0a 20 2a 2f 0a -----------. */.
3830: 69 6e 74 20 44 69 67 65 73 74 49 6e 66 6f 28 54 int DigestInfo(T
3840: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
3850: 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 6d 65 p, Tcl_Obj *name
3860: 4f 62 6a 29 20 7b 0a 20 20 20 20 63 6f 6e 73 74 Obj) {. const
3870: 20 45 56 50 5f 4d 44 20 2a 6d 64 3b 0a 20 20 20 EVP_MD *md;.
3880: 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 Tcl_Obj *result
3890: 4f 62 6a 2c 20 2a 6c 69 73 74 4f 62 6a 3b 0a 20 Obj, *listObj;.
38a0: 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 unsigned long
38b0: 20 66 6c 61 67 73 3b 0a 20 20 20 20 69 6e 74 20 flags;. int
38c0: 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 res = TCL_OK;.
38d0: 20 20 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 char *name = T
38e0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6e 61 6d cl_GetString(nam
38f0: 65 4f 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 eObj);.. /* G
3900: 65 74 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 et message diges
3910: 74 20 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c t */.#if OPENSSL
3920: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
3930: 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 < 0x30000000L.
3940: 20 20 6d 64 20 3d 20 45 56 50 5f 67 65 74 5f 64 md = EVP_get_d
3950: 69 67 65 73 74 62 79 6e 61 6d 65 28 6e 61 6d 65 igestbyname(name
3960: 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 6d 64 20 );.#else. md
3970: 3d 20 45 56 50 5f 4d 44 5f 66 65 74 63 68 28 4e = EVP_MD_fetch(N
3980: 55 4c 4c 2c 20 6e 61 6d 65 2c 20 4e 55 4c 4c 29 ULL, name, NULL)
3990: 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 ;.#endif.. if
39a0: 20 28 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a (md == NULL) {.
39b0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
39c0: 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c t(interp, "Inval
39d0: 69 64 20 64 69 67 65 73 74 20 5c 22 22 2c 20 6e id digest \"", n
39e0: 61 6d 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 ame, "\"", (char
39f0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 *) NULL);..retu
3a00: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3a10: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 }.. /* Get
3a20: 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 properties */.
3a30: 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 resultObj = Tc
3a40: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 l_NewListObj(0,
3a50: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 NULL);. if (r
3a60: 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c esultObj == NULL
3a70: 29 20 7b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 ) {..res = TCL_E
3a80: 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 64 6f 6e 65 RROR;..goto done
3a90: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 ;. }. LAPP
3aa0: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
3ab0: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 resultObj, "name
3ac0: 22 2c 20 45 56 50 5f 4d 44 5f 6e 61 6d 65 28 6d ", EVP_MD_name(m
3ad0: 64 29 2c 20 2d 31 29 3b 0a 23 69 66 20 4f 50 45 d), -1);.#if OPE
3ae0: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
3af0: 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 BER < 0x30000000
3b00: 4c 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 L. LAPPEND_ST
3b10: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
3b20: 4f 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f Obj, "descriptio
3b30: 6e 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 65 6c n", "", -1);.#el
3b40: 73 65 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 se. LAPPEND_S
3b50: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c TR(interp, resul
3b60: 74 4f 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 tObj, "descripti
3b70: 6f 6e 22 2c 20 45 56 50 5f 4d 44 5f 67 65 74 30 on", EVP_MD_get0
3b80: 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 6d 64 29 _description(md)
3b90: 2c 20 2d 31 29 3b 0a 23 65 6e 64 69 66 0a 20 20 , -1);.#endif.
3ba0: 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e LAPPEND_INT(in
3bb0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
3bc0: 20 22 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f "size", EVP_MD_
3bd0: 73 69 7a 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c size(md));. L
3be0: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
3bf0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 p, resultObj, "b
3c00: 6c 6f 63 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f lock_size", EVP_
3c10: 4d 44 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 6d 64 MD_block_size(md
3c20: 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f ));. LAPPEND_
3c30: 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 STR(interp, resu
3c40: 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 2c 20 4f ltObj, "type", O
3c50: 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 4d 44 BJ_nid2ln(EVP_MD
3c60: 5f 74 79 70 65 28 6d 64 29 29 2c 20 2d 31 29 3b _type(md)), -1);
3c70: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
3c80: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
3c90: 62 6a 2c 20 22 70 6b 65 79 5f 74 79 70 65 22 2c bj, "pkey_type",
3ca0: 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f OBJ_nid2ln(EVP_
3cb0: 4d 44 5f 70 6b 65 79 5f 74 79 70 65 28 6d 64 29 MD_pkey_type(md)
3cc0: 29 2c 20 2d 31 29 3b 0a 23 69 66 20 4f 50 45 4e ), -1);.#if OPEN
3cd0: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 SSL_VERSION_NUMB
3ce0: 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c ER < 0x30000000L
3cf0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
3d00: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
3d10: 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 bj, "provider",
3d20: 22 22 2c 20 2d 31 29 3b 0a 23 65 6c 73 65 0a 20 "", -1);.#else.
3d30: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
3d40: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
3d50: 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 4f 53 , "provider", OS
3d60: 53 4c 5f 50 52 4f 56 49 44 45 52 5f 67 65 74 30 SL_PROVIDER_get0
3d70: 5f 6e 61 6d 65 28 45 56 50 5f 4d 44 5f 67 65 74 _name(EVP_MD_get
3d80: 30 5f 70 72 6f 76 69 64 65 72 28 6d 64 29 29 2c 0_provider(md)),
3d90: 20 2d 31 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 -1);.#endif.
3da0: 20 66 6c 61 67 73 20 3d 20 45 56 50 5f 4d 44 5f flags = EVP_MD_
3db0: 66 6c 61 67 73 28 6d 64 29 3b 0a 0a 20 20 20 20 flags(md);..
3dc0: 2f 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20 20 /* Flags */.
3dd0: 6c 69 73 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 listObj = Tcl_Ne
3de0: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
3df0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
3e00: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
3e10: 4f 62 6a 2c 20 22 4f 6e 65 2d 73 68 6f 74 22 2c Obj, "One-shot",
3e20: 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f flags & EVP_MD_
3e30: 46 4c 41 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a 20 FLAG_ONESHOT);.
3e40: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 LAPPEND_BOOL(
3e50: 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c interp, listObj,
3e60: 20 22 58 4f 46 22 2c 20 66 6c 61 67 73 20 26 20 "XOF", flags &
3e70: 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46 29 EVP_MD_FLAG_XOF)
3e80: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
3e90: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f OL(interp, listO
3ea0: 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 bj, "DigestAlgor
3eb0: 69 74 68 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66 6c ithmId_NULL", fl
3ec0: 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 ags & EVP_MD_FLA
3ed0: 47 5f 44 49 47 41 4c 47 49 44 5f 4e 55 4c 4c 29 G_DIGALGID_NULL)
3ee0: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
3ef0: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f OL(interp, listO
3f00: 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 bj, "DigestAlgor
3f10: 69 74 68 6d 49 64 5f 41 62 73 65 6e 74 22 2c 20 ithmId_Absent",
3f20: 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 flags & EVP_MD_F
3f30: 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 41 42 53 LAG_DIGALGID_ABS
3f40: 45 4e 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e ENT);. LAPPEN
3f50: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
3f60: 69 73 74 4f 62 6a 2c 20 22 44 69 67 65 73 74 41 istObj, "DigestA
3f70: 6c 67 6f 72 69 74 68 6d 49 64 5f 43 75 73 74 6f lgorithmId_Custo
3f80: 6d 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f m", flags & EVP_
3f90: 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 MD_FLAG_DIGALGID
3fa0: 5f 43 55 53 54 4f 4d 29 3b 0a 20 20 20 20 4c 41 _CUSTOM);. LA
3fb0: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 PPEND_BOOL(inter
3fc0: 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 46 49 50 p, listObj, "FIP
3fd0: 53 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f S", flags & EVP_
3fe0: 4d 44 5f 46 4c 41 47 5f 46 49 50 53 29 3b 0a 20 MD_FLAG_FIPS);.
3ff0: 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 LAPPEND_OBJ(i
4000: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
4010: 2c 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 4f , "flags", listO
4020: 62 6a 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 bj);.. Tcl_Se
4030: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
4040: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 0a p, resultObj);..
4050: 64 6f 6e 65 3a 0a 23 69 66 20 4f 50 45 4e 53 53 done:.#if OPENSS
4060: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
4070: 20 3e 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a >= 0x30000000L.
4080: 20 20 20 20 45 56 50 5f 4d 44 5f 66 72 65 65 28 EVP_MD_free(
4090: 28 45 56 50 5f 4d 44 20 2a 29 20 6d 64 29 3b 0a (EVP_MD *) md);.
40a0: 23 65 6e 64 69 66 0a 20 20 20 20 72 65 74 75 72 #endif. retur
40b0: 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d n res;.}../*. *-
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4100: 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 4c --. *. * DigestL
4110: 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 ist --. *. *.Ret
4120: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c urn a list of al
4130: 6c 20 64 69 67 65 73 74 20 61 6c 67 6f 72 69 74 l digest algorit
4140: 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 hms. *. * Result
4150: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
4160: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a Tcl list.. *. *
4170: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
4180: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d *.None.. *. *---
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41d0: 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 4c . */.int DigestL
41e0: 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ist(Tcl_Interp *
41f0: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 interp) {. Tc
4200: 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a l_Obj *resultObj
4210: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
4220: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 j(0, NULL);.
4230: 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d if (resultObj ==
4240: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
4250: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4260: 7d 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 }.. /* Same a
4270: 73 20 45 56 50 5f 4d 44 5f 64 6f 5f 61 6c 6c 20 s EVP_MD_do_all
4280: 2a 2f 0a 20 20 20 20 4f 42 4a 5f 4e 41 4d 45 5f */. OBJ_NAME_
4290: 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 5f do_all(OBJ_NAME_
42a0: 54 59 50 45 5f 4d 44 5f 4d 45 54 48 2c 20 4e 61 TYPE_MD_METH, Na
42b0: 6d 65 73 43 61 6c 6c 62 61 63 6b 2c 20 28 76 6f mesCallback, (vo
42c0: 69 64 20 2a 29 20 72 65 73 75 6c 74 4f 62 6a 29 id *) resultObj)
42d0: 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a ;. Tcl_SetObj
42e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 Result(interp, r
42f0: 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 esultObj);. r
4300: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
4310: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d ----------------
4350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
4360: 44 69 67 65 73 74 73 4f 62 6a 43 6d 64 20 2d 2d DigestsObjCmd --
4370: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 . *. *.Return a
4380: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c 69 list of all vali
4390: 64 20 68 61 73 68 20 61 6c 67 6f 72 69 74 68 6d d hash algorithm
43a0: 73 20 6f 72 20 6d 65 73 73 61 67 65 20 64 69 67 s or message dig
43b0: 65 73 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 ests.. *. * Resu
43c0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
43d0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
43e0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
43f0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4440: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 --. */.int Diges
4450: 74 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 tsObjCmd(ClientD
4460: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
4470: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4480: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
4490: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
44a0: 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 v[]) {. (void
44b0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 ) clientData;..
44c0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
44d0: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c ed");.. /* Cl
44e0: 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 ear errors */.
44f0: 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c Tcl_ResetResul
4500: 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 t(interp);. E
4510: 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 RR_clear_error()
4520: 3b 0a 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 ;... /* Valid
4530: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f ate arg count */
4540: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d . if (objc ==
4550: 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69 1) {..return Di
4560: 67 65 73 74 4c 69 73 74 28 69 6e 74 65 72 70 29 gestList(interp)
4570: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ;.. } else if
4580: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 (objc == 2) {..
4590: 72 65 74 75 72 6e 20 44 69 67 65 73 74 49 6e 66 return DigestInf
45a0: 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 o(interp, objv[1
45b0: 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 ]);.. } else
45c0: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
45d0: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
45e0: 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a bjv, "?name?");.
45f0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
4600: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 R;. }. ret
4610: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4660: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
46b0: 2a 0a 20 2a 20 4b 64 66 4c 69 73 74 20 2d 2d 0a *. * KdfList --.
46c0: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c *. *.Return a l
46d0: 69 73 74 20 6f 66 20 61 6c 6c 20 4b 44 46 20 61 ist of all KDF a
46e0: 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 lgorithms. *. *
46f0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
4700: 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e andard Tcl list.
4710: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
4720: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
4730: 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d ----------------
4770: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4b ------. */.int K
4780: 64 66 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 dfList(Tcl_Inter
4790: 70 20 2a 69 6e 74 65 72 70 2c 20 63 68 61 72 20 p *interp, char
47a0: 2a 73 65 6c 65 63 74 5f 6e 61 6d 65 29 20 7b 0a *select_name) {.
47b0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 Tcl_Obj *res
47c0: 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 ultObj = Tcl_New
47d0: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
47e0: 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 ;. if (result
47f0: 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj == NULL) {..
4800: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4810: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c ;. }.. Tcl
4820: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
4830: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
4840: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
4850: 53 74 72 69 6e 67 4f 62 6a 28 22 68 6b 64 66 22 StringObj("hkdf"
4860: 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f , -1));. Tcl_
4870: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
4880: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 ment(interp, res
4890: 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 ultObj, Tcl_NewS
48a0: 74 72 69 6e 67 4f 62 6a 28 22 70 62 6b 64 66 32 tringObj("pbkdf2
48b0: 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c ", -1));. Tcl
48c0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
48d0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
48e0: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
48f0: 53 74 72 69 6e 67 4f 62 6a 28 22 73 63 72 79 70 StringObj("scryp
4900: 74 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 t", -1));. Tc
4910: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
4920: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
4930: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
4940: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d L_OK;.}../*. *--
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4990: 2d 0a 20 2a 0a 20 2a 20 4b 64 66 73 4f 62 6a 43 -. *. * KdfsObjC
49a0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
49b0: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c rn a list of all
49c0: 20 76 61 6c 69 64 20 4b 65 79 20 44 65 72 69 76 valid Key Deriv
49d0: 61 74 69 6f 6e 20 46 75 6e 63 74 69 6f 6e 20 28 ation Function (
49e0: 4b 44 46 29 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 KDF).. *. * Resu
49f0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
4a00: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
4a10: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
4a20: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a70: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4b 64 66 73 4f --. */.int KdfsO
4a80: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
4a90: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
4aa0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
4ab0: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
4ac0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
4ad0: 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 ) {. (void) c
4ae0: 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 lientData;..
4af0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
4b00: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 );.. /* Clear
4b10: 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 errors */. T
4b20: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
4b30: 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f nterp);. ERR_
4b40: 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a clear_error();..
4b50: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
4b60: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
4b70: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 if (objc == 1)
4b80: 20 7b 0a 09 72 65 74 75 72 6e 20 4b 64 66 4c 69 {..return KdfLi
4b90: 73 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c 29 st(interp, NULL)
4ba0: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ;.. } else if
4bb0: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 0a (objc == 2) {..
4bc0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
4bd0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
4be0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
4bf0: 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74 "?name?");..ret
4c00: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
4c10: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
4c20: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a TCL_OK;.}../****
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
4c70: 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d ----------------
4cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
4cc0: 20 4d 61 63 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 MacInfo --. *.
4cd0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
4ce0: 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e of properties an
4cf0: 64 20 76 61 6c 75 65 73 20 66 6f 72 20 6d 61 63 d values for mac
4d00: 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 Name.. *. * Resu
4d10: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
4d20: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
4d30: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
4d40: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d90: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 49 6e --. */.int MacIn
4da0: 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 fo(Tcl_Interp *i
4db0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a nterp, Tcl_Obj *
4dc0: 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 54 nameObj) {. T
4dd0: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
4de0: 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 3d j;. int res =
4df0: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 68 61 TCL_OK;. cha
4e00: 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 r *name = Tcl_Ge
4e10: 74 53 74 72 69 6e 67 28 6e 61 6d 65 4f 62 6a 29 tString(nameObj)
4e20: 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 ;..#if OPENSSL_V
4e30: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 ERSION_NUMBER <
4e40: 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 20 20 0x30000000L.
4e50: 69 66 20 28 73 74 72 63 6d 70 28 6e 61 6d 65 2c if (strcmp(name,
4e60: 20 22 63 6d 61 63 22 29 20 21 3d 20 30 20 26 26 "cmac") != 0 &&
4e70: 20 73 74 72 63 6d 70 28 6e 61 6d 65 2c 20 22 68 strcmp(name, "h
4e80: 6d 61 63 22 29 20 21 3d 20 30 29 20 7b 0a 09 54 mac") != 0) {..T
4e90: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
4ea0: 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 interp, "Invalid
4eb0: 20 4d 41 43 20 5c 22 22 2c 20 6e 61 6d 65 2c 20 MAC \"", name,
4ec0: 22 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e "\"", (char *) N
4ed0: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
4ee0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 23 L_ERROR;. }.#
4ef0: 65 6c 73 65 0a 20 20 20 20 45 56 50 5f 4d 41 43 else. EVP_MAC
4f00: 20 2a 6d 61 63 20 3d 20 45 56 50 5f 4d 41 43 5f *mac = EVP_MAC_
4f10: 66 65 74 63 68 28 4e 55 4c 4c 2c 20 6e 61 6d 65 fetch(NULL, name
4f20: 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 69 66 , NULL);.. if
4f30: 20 28 6d 61 63 20 3d 3d 20 4e 55 4c 4c 29 20 7b (mac == NULL) {
4f40: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
4f50: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 lt(interp, "Inva
4f60: 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 6e 61 6d lid MAC \"", nam
4f70: 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20 2a e, "\"", (char *
4f80: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
4f90: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
4fa0: 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a }.#endif.. /*
4fb0: 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 Get properties
4fc0: 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a */. resultObj
4fd0: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
4fe0: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 j(0, NULL);.
4ff0: 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d if (resultObj ==
5000: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 NULL) {..res =
5010: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 67 6f 74 6f TCL_ERROR;..goto
5020: 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 23 69 66 done;. }.#if
5030: 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e OPENSSL_VERSION
5040: 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 _NUMBER < 0x3000
5050: 30 30 30 30 4c 0a 20 20 20 20 4c 41 50 50 45 4e 0000L. LAPPEN
5060: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
5070: 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c sultObj, "name",
5080: 20 6e 61 6d 65 2c 20 2d 31 29 3b 0a 20 20 20 20 name, -1);.
5090: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
50a0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
50b0: 64 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 description", ""
50c0: 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 , -1);. LAPPE
50d0: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
50e0: 65 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 esultObj, "provi
50f0: 64 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 der", "", -1);.#
5100: 65 6c 73 65 0a 20 20 20 20 4c 41 50 50 45 4e 44 else. LAPPEND
5110: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
5120: 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 ultObj, "name",
5130: 45 56 50 5f 4d 41 43 5f 67 65 74 30 5f 6e 61 6d EVP_MAC_get0_nam
5140: 65 28 6d 61 63 29 2c 20 2d 31 29 3b 0a 20 20 20 e(mac), -1);.
5150: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
5160: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
5170: 22 64 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 45 "description", E
5180: 56 50 5f 4d 41 43 5f 67 65 74 30 5f 64 65 73 63 VP_MAC_get0_desc
5190: 72 69 70 74 69 6f 6e 28 6d 61 63 29 2c 20 2d 31 ription(mac), -1
51a0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 );. LAPPEND_S
51b0: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c TR(interp, resul
51c0: 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 tObj, "provider"
51d0: 2c 20 4f 53 53 4c 5f 50 52 4f 56 49 44 45 52 5f , OSSL_PROVIDER_
51e0: 67 65 74 30 5f 6e 61 6d 65 28 45 56 50 5f 4d 41 get0_name(EVP_MA
51f0: 43 5f 67 65 74 30 5f 70 72 6f 76 69 64 65 72 28 C_get0_provider(
5200: 6d 61 63 29 29 2c 20 2d 31 29 3b 0a 23 65 6e 64 mac)), -1);.#end
5210: 69 66 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f if.. Tcl_SetO
5220: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
5230: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 0a 64 6f resultObj);..do
5240: 6e 65 3a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f ne:.#if OPENSSL_
5250: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
5260: 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 = 0x30000000L.
5270: 20 20 45 56 50 5f 4d 41 43 5f 66 72 65 65 28 6d EVP_MAC_free(m
5280: 61 63 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 ac);.#endif.
5290: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f return res;.}../
52a0: 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
52e0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 -------. *. * Ma
52f0: 63 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 cList --. *. *.R
5300: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
5310: 61 6c 6c 20 4d 41 43 20 61 6c 67 6f 72 69 74 68 all MAC algorith
5320: 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 ms. *. * Results
5330: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
5340: 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 Tcl list.. *. *
5350: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
5360: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
53b0: 20 2a 2f 0a 69 6e 74 20 4d 61 63 4c 69 73 74 28 */.int MacList(
53c0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
53d0: 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 rp) {. Tcl_Ob
53e0: 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 j *resultObj = T
53f0: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
5400: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 NULL);. if (
5410: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
5420: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
5430: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5440: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
5450: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
5460: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
5470: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
5480: 22 63 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 20 "cmac", -1));.
5490: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
54a0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
54b0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 p, resultObj, Tc
54c0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
54d0: 68 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 20 20 hmac", -1));.
54e0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
54f0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
5500: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
5510: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 TCL_OK;.}../*.
5520: 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5560: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 73 4f ----. *. * MacsO
5570: 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 bjCmd --. *. *.R
5580: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
5590: 61 6c 6c 20 76 61 6c 69 64 20 6d 65 73 73 61 67 all valid messag
55a0: 65 20 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e e authentication
55b0: 20 63 6f 64 65 73 20 28 4d 41 43 29 2e 0a 20 2a codes (MAC).. *
55c0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
55d0: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c A standard Tcl l
55e0: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
55f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
5600: 2e 0a 20 2a 0a 20 2a 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 2d 2d 2d ----------------
5640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
5650: 6e 74 20 4d 61 63 73 4f 62 6a 43 6d 64 28 43 6c nt MacsObjCmd(Cl
5660: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
5670: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
5680: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
5690: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
56a0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
56b0: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 (void) clientDat
56c0: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
56d0: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
56e0: 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 /* Clear errors
56f0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 */. Tcl_Reset
5700: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
5710: 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 ERR_clear_er
5720: 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 ror();.. /* V
5730: 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e alidate arg coun
5740: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a t */. if (obj
5750: 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 c == 1) {..retur
5760: 6e 20 4d 61 63 4c 69 73 74 28 69 6e 74 65 72 70 n MacList(interp
5770: 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
5780: 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a f (objc == 2) {.
5790: 09 72 65 74 75 72 6e 20 4d 61 63 49 6e 66 6f 28 .return MacInfo(
57a0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 interp, objv[1])
57b0: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
57c0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
57d0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
57e0: 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 v, "?name?");..r
57f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5800: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
5810: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a n TCL_OK;.}../**
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5860: 2a 2f 0a 0a 2f 2a 0a 20 2a 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 2d ----------------
58a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
58b0: 20 2a 20 50 6b 65 79 49 6e 66 6f 20 2d 2d 0a 20 * PkeyInfo --.
58c0: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 *. *.Return a li
58d0: 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 st of properties
58e0: 20 61 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 and values for
58f0: 70 6b 65 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 pkey.. *. * Resu
5900: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
5910: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
5920: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
5930: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5980: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 49 --. */.int PkeyI
5990: 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nfo(Tcl_Interp *
59a0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 interp, Tcl_Obj
59b0: 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 *nameObj) {.
59c0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
59d0: 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 bj;. int res
59e0: 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 68 = TCL_OK;. ch
59f0: 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 ar *name = Tcl_G
5a00: 65 74 53 74 72 69 6e 67 28 6e 61 6d 65 4f 62 6a etString(nameObj
5a10: 29 3b 0a 20 20 20 20 45 56 50 5f 50 4b 45 59 20 );. EVP_PKEY
5a20: 2a 70 6b 65 79 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 *pkey = NULL;..
5a30: 20 20 20 69 66 20 28 70 6b 65 79 20 3d 3d 20 4e if (pkey == N
5a40: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
5a50: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
5a60: 20 22 49 6e 76 61 6c 69 64 20 70 75 62 6c 69 63 "Invalid public
5a70: 20 6b 65 79 20 6d 65 74 68 6f 64 20 5c 22 22 2c key method \"",
5a80: 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28 63 68 name, "\"", (ch
5a90: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
5aa0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5ab0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
5ac0: 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a t properties */.
5ad0: 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 resultObj =
5ae0: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
5af0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
5b00: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
5b10: 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 54 43 4c LL) {..res = TCL
5b20: 5f 45 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 64 6f _ERROR;..goto do
5b30: 6e 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 ne;. }. LA
5b40: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
5b50: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 , resultObj, "na
5b60: 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 me", OBJ_nid2ln(
5b70: 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b 65 79 EVP_PKEY_id(pkey
5b80: 29 29 2c 20 2d 31 29 3b 0a 23 69 66 20 4f 50 45 )), -1);.#if OPE
5b90: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
5ba0: 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 BER < 0x30000000
5bb0: 4c 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 L. LAPPEND_ST
5bc0: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
5bd0: 4f 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f Obj, "descriptio
5be0: 6e 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 65 6c n", "", -1);.#el
5bf0: 73 65 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 se. LAPPEND_S
5c00: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c TR(interp, resul
5c10: 74 4f 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 tObj, "descripti
5c20: 6f 6e 22 2c 20 45 56 50 5f 50 4b 45 59 5f 67 65 on", EVP_PKEY_ge
5c30: 74 30 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 70 t0_description(p
5c40: 6b 65 79 29 2c 20 2d 31 29 3b 0a 23 65 6e 64 69 key), -1);.#endi
5c50: 66 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e f. LAPPEND_IN
5c60: 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 T(interp, result
5c70: 4f 62 6a 2c 20 22 73 69 7a 65 22 2c 20 45 56 50 Obj, "size", EVP
5c80: 5f 50 4b 45 59 5f 73 69 7a 65 28 70 6b 65 79 29 _PKEY_size(pkey)
5c90: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 );. LAPPEND_I
5ca0: 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c NT(interp, resul
5cb0: 74 4f 62 6a 2c 20 22 62 69 74 73 22 2c 20 45 56 tObj, "bits", EV
5cc0: 50 5f 50 4b 45 59 5f 62 69 74 73 28 70 6b 65 79 P_PKEY_bits(pkey
5cd0: 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f ));. LAPPEND_
5ce0: 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 INT(interp, resu
5cf0: 6c 74 4f 62 6a 2c 20 22 73 65 63 75 72 69 74 79 ltObj, "security
5d00: 5f 62 69 74 73 22 2c 20 45 56 50 5f 50 4b 45 59 _bits", EVP_PKEY
5d10: 5f 73 65 63 75 72 69 74 79 5f 62 69 74 73 28 70 _security_bits(p
5d20: 6b 65 79 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 key));. LAPPE
5d30: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
5d40: 65 73 75 6c 74 4f 62 6a 2c 20 22 62 61 73 65 49 esultObj, "baseI
5d50: 64 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 d", OBJ_nid2ln(E
5d60: 56 50 5f 50 4b 45 59 5f 62 61 73 65 5f 69 64 28 VP_PKEY_base_id(
5d70: 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a 20 20 20 pkey)), -1);.
5d80: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
5d90: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
5da0: 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 "type", OBJ_nid2
5db0: 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 74 79 70 65 ln(EVP_PKEY_type
5dc0: 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b 65 (EVP_PKEY_id(pke
5dd0: 79 29 29 29 2c 20 2d 31 29 3b 0a 23 69 66 20 4f y))), -1);.#if O
5de0: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
5df0: 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 UMBER < 0x300000
5e00: 30 30 4c 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 00L. LAPPEND_
5e10: 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 STR(interp, resu
5e20: 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 ltObj, "provider
5e30: 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 23 65 6c 73 ", "", -1);.#els
5e40: 65 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 e. LAPPEND_ST
5e50: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
5e60: 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c Obj, "provider",
5e70: 20 4f 53 53 4c 5f 50 52 4f 56 49 44 45 52 5f 67 OSSL_PROVIDER_g
5e80: 65 74 30 5f 6e 61 6d 65 28 45 56 50 5f 50 4b 45 et0_name(EVP_PKE
5e90: 59 5f 67 65 74 30 5f 70 72 6f 76 69 64 65 72 28 Y_get0_provider(
5ea0: 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a 20 20 20 pkey)), -1);.
5eb0: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
5ec0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
5ed0: 22 74 79 70 65 5f 6e 61 6d 65 22 2c 20 45 56 50 "type_name", EVP
5ee0: 5f 50 4b 45 59 5f 67 65 74 30 5f 74 79 70 65 5f _PKEY_get0_type_
5ef0: 6e 61 6d 65 28 70 6b 65 79 29 2c 20 2d 31 29 3b name(pkey), -1);
5f00: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
5f10: 4c 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 L(interp, result
5f20: 4f 62 6a 2c 20 22 63 61 6e 5f 73 69 67 6e 22 2c Obj, "can_sign",
5f30: 20 45 56 50 5f 50 4b 45 59 5f 63 61 6e 5f 73 69 EVP_PKEY_can_si
5f40: 67 6e 28 70 6b 65 79 29 29 3b 0a 23 65 6e 64 69 gn(pkey));.#endi
5f50: 66 0a 0a 20 20 20 20 7b 0a 09 69 6e 74 20 70 6e f.. {..int pn
5f60: 69 64 3b 0a 09 69 66 20 28 45 56 50 5f 50 4b 45 id;..if (EVP_PKE
5f70: 59 5f 67 65 74 5f 64 65 66 61 75 6c 74 5f 64 69 Y_get_default_di
5f80: 67 65 73 74 5f 6e 69 64 28 70 6b 65 79 2c 20 26 gest_nid(pkey, &
5f90: 70 6e 69 64 29 20 3e 20 30 29 20 7b 0a 09 20 20 pnid) > 0) {..
5fa0: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
5fb0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
5fc0: 20 22 64 65 66 61 75 6c 74 5f 64 69 67 65 73 74 "default_digest
5fd0: 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 70 6e ", OBJ_nid2ln(pn
5fe0: 69 64 29 2c 20 2d 32 29 3b 0a 09 7d 0a 20 20 20 id), -2);..}.
5ff0: 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f }.. Tcl_SetO
6000: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
6010: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 0a 64 6f resultObj);..do
6020: 6e 65 3a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f ne:.#if OPENSSL_
6030: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
6040: 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 = 0x30000000L.
6050: 20 20 45 56 50 5f 50 4b 45 59 5f 66 72 65 65 28 EVP_PKEY_free(
6060: 70 6b 65 79 29 3b 0a 23 65 6e 64 69 66 0a 20 20 pkey);.#endif.
6070: 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a return res;.}.
6080: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d ----------------
60c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
60d0: 50 6b 65 79 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 PkeyList --. *.
60e0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
60f0: 6f 66 20 61 6c 6c 20 70 75 62 6c 69 63 20 6b 65 of all public ke
6100: 79 20 6d 65 74 68 6f 64 73 0a 20 2a 0a 20 2a 20 y methods. *. *
6110: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
6120: 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e andard Tcl list.
6130: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
6140: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
6150: 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d ----------------
6190: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 ------. */.int P
61a0: 6b 65 79 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 keyList(Tcl_Inte
61b0: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 rp *interp) {.
61c0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
61d0: 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 tObj = Tcl_NewLi
61e0: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
61f0: 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 if (resultOb
6200: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 j == NULL) {..re
6210: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6220: 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 20 28 }.. for (
6230: 73 69 7a 65 5f 74 20 69 20 3d 20 30 3b 20 69 20 size_t i = 0; i
6240: 3c 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 68 5f < EVP_PKEY_meth_
6250: 67 65 74 5f 63 6f 75 6e 74 28 29 3b 20 69 2b 2b get_count(); i++
6260: 29 20 7b 0a 20 20 20 20 20 20 20 20 63 6f 6e 73 ) {. cons
6270: 74 20 45 56 50 5f 50 4b 45 59 5f 4d 45 54 48 4f t EVP_PKEY_METHO
6280: 44 20 2a 70 6d 65 74 68 20 3d 20 45 56 50 5f 50 D *pmeth = EVP_P
6290: 4b 45 59 5f 6d 65 74 68 5f 67 65 74 30 28 69 29 KEY_meth_get0(i)
62a0: 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 70 6b ;. int pk
62b0: 65 79 5f 69 64 2c 20 70 6b 65 79 5f 66 6c 61 67 ey_id, pkey_flag
62c0: 73 3b 0a 0a 20 20 20 20 20 20 20 20 45 56 50 5f s;.. EVP_
62d0: 50 4b 45 59 5f 6d 65 74 68 5f 67 65 74 30 5f 69 PKEY_meth_get0_i
62e0: 6e 66 6f 28 26 70 6b 65 79 5f 69 64 2c 20 26 70 nfo(&pkey_id, &p
62f0: 6b 65 79 5f 66 6c 61 67 73 2c 20 70 6d 65 74 68 key_flags, pmeth
6300: 29 3b 0a 09 2f 2a 4c 41 50 50 45 4e 44 5f 53 54 );../*LAPPEND_ST
6310: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
6320: 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 4f 42 4a Obj, "name", OBJ
6330: 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 5f 69 64 29 _nid2ln(pkey_id)
6340: 2c 20 2d 31 29 3b 0a 09 4c 41 50 50 45 4e 44 5f , -1);..LAPPEND_
6350: 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 STR(interp, resu
6360: 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 2c 20 70 ltObj, "type", p
6370: 6b 65 79 5f 66 6c 61 67 73 20 26 20 41 53 4e 31 key_flags & ASN1
6380: 5f 50 4b 45 59 5f 44 59 4e 41 4d 49 43 20 3f 20 _PKEY_DYNAMIC ?
6390: 22 45 78 74 65 72 6e 61 6c 22 20 3a 20 22 42 75 "External" : "Bu
63a0: 69 6c 74 2d 69 6e 22 2c 20 2d 31 29 3b 2a 2f 0a ilt-in", -1);*/.
63b0: 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ..Tcl_ListObjApp
63c0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
63d0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 p, resultObj, Tc
63e0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 4f l_NewStringObj(O
63f0: 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 5f 69 BJ_nid2ln(pkey_i
6400: 64 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d 0a d), -1));. }.
6410: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
6420: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 sult(interp, res
6430: 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 ultObj);. ret
6440: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
6450: 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
6490: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 6b -------. *. * Pk
64a0: 65 79 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a eysObjCmd --. *.
64b0: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
64c0: 20 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 68 61 of all valid ha
64d0: 73 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 6f 72 sh algorithms or
64e0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 73 message digests
64f0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
6500: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
6510: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
6520: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
6530: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6580: 2a 2f 0a 69 6e 74 20 50 6b 65 79 73 4f 62 6a 43 */.int PkeysObjC
6590: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
65a0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
65b0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
65c0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
65d0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
65e0: 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 . (void) clie
65f0: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 ntData;.. dpr
6600: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
6610: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 . /* Clear er
6620: 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f rors */. Tcl_
6630: 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 ResetResult(inte
6640: 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 rp);. ERR_cle
6650: 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 ar_error();..
6660: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 /* Validate arg
6670: 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 count */. if
6680: 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 (objc == 1) {..
6690: 72 65 74 75 72 6e 20 50 6b 65 79 4c 69 73 74 28 return PkeyList(
66a0: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 interp);.. }
66b0: 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d else if (objc ==
66c0: 20 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 50 6b 2) {..return Pk
66d0: 65 79 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6f eyInfo(interp, o
66e0: 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 bjv[1]);.. }
66f0: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e else {..Tcl_Wron
6700: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
6710: 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 1, objv, "?name
6720: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c ?");..return TCL
6730: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
6740: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
6750: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
6760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6780: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6790: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
67a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67e0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 72 6f 74 6f 63 ---. *. * Protoc
67f0: 6f 6c 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a olsObjCmd --. *.
6800: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
6810: 20 6f 66 20 74 68 65 20 61 76 61 69 6c 61 62 6c of the availabl
6820: 65 20 6f 72 20 73 75 70 70 6f 72 74 65 64 20 53 e or supported S
6830: 53 4c 2f 54 4c 53 20 70 72 6f 74 6f 63 6f 6c 73 SL/TLS protocols
6840: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
6850: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
6860: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
6870: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
6880: 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d none. *. *------
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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
68d0: 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 72 6f /.static int.Pro
68e0: 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 28 43 6c 69 tocolsObjCmd(Cli
68f0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
6900: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
6910: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
6920: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
6930: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 objv[]) {. T
6940: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
6950: 6a 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c j;. (void) cl
6960: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 ientData;.. d
6970: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
6980: 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 ;.. /* Clear
6990: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 errors */. Tc
69a0: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
69b0: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 terp);. ERR_c
69c0: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 lear_error();..
69d0: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
69e0: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
69f0: 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b if (objc != 1) {
6a00: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
6a10: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
6a20: 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 jv, NULL);..retu
6a30: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6a40: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 }.. /* List
6a50: 20 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c 73 20 2a all protocols *
6a60: 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 /. resultObj
6a70: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
6a80: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 (0, NULL);. i
6a90: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
6aa0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
6ab0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6ac0: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
6ad0: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 SION_NUMBER < 0x
6ae0: 31 30 31 30 30 30 30 30 4c 20 26 26 20 21 64 65 10100000L && !de
6af0: 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 26 fined(NO_SSL2) &
6b00: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
6b10: 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 SL_NO_SSL2).
6b20: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
6b30: 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c dElement(interp,
6b40: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f resultObj, Tcl_
6b50: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f NewStringObj(pro
6b60: 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53 4c 32 5d tocols[TLS_SSL2]
6b70: 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 , -1));.#endif.#
6b80: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 if !defined(NO_S
6b90: 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 SL3) && !defined
6ba0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
6bb0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
6bc0: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 ENSSL_NO_SSL3_ME
6bd0: 54 48 4f 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 THOD). Tcl_Li
6be0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
6bf0: 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c nt(interp, resul
6c00: 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 tObj, Tcl_NewStr
6c10: 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 ingObj(protocols
6c20: 5b 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d 31 29 29 [TLS_SSL3], -1))
6c30: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 ;.#endif.#if !de
6c40: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 fined(NO_TLS1) &
6c50: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
6c60: 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21 SL_NO_TLS1) && !
6c70: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
6c80: 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a NO_TLS1_METHOD).
6c90: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
6ca0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
6cb0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
6cc0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
6cd0: 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 (protocols[TLS_T
6ce0: 4c 53 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 LS1], -1));.#end
6cf0: 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 if.#if !defined(
6d00: 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64 NO_TLS1_1) && !d
6d10: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
6d20: 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64 65 O_TLS1_1) && !de
6d30: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
6d40: 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 0a _TLS1_1_METHOD).
6d50: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
6d60: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
6d70: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
6d80: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
6d90: 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 (protocols[TLS_T
6da0: 4c 53 31 5f 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 LS1_1], -1));.#e
6db0: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 ndif.#if !define
6dc0: 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 d(NO_TLS1_2) &&
6dd0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
6de0: 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 _NO_TLS1_2) && !
6df0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
6e00: 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 NO_TLS1_2_METHOD
6e10: 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ). Tcl_ListOb
6e20: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
6e30: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
6e40: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
6e50: 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 bj(protocols[TLS
6e60: 5f 54 4c 53 31 5f 32 5d 2c 20 2d 31 29 29 3b 0a _TLS1_2], -1));.
6e70: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
6e80: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 ned(NO_TLS1_3) &
6e90: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
6ea0: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 SL_NO_TLS1_3).
6eb0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
6ec0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
6ed0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 p, resultObj, Tc
6ee0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 l_NewStringObj(p
6ef0: 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 rotocols[TLS_TLS
6f00: 31 5f 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 1_3], -1));.#end
6f10: 69 66 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 if. Tcl_SetOb
6f20: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
6f30: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
6f40: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
6f50: 0a 0a 2f 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 2a 2a 2a 2a 2a 2a 2a ****************
6f90: 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fe0: 2d 0a 20 2a 0a 20 2a 20 50 72 6f 76 69 64 65 72 -. *. * Provider
6ff0: 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 ObjCmd --. *. *.
7000: 4c 6f 61 64 20 61 20 70 72 6f 76 69 64 65 72 2e Load a provider.
7010: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
7020: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
7030: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
7040: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
7050: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
70a0: 20 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f */.#if OPENSSL_
70b0: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e VERSION_NUMBER >
70c0: 3d 20 30 78 33 30 30 30 30 30 30 30 4c 0a 73 74 = 0x30000000L.st
70d0: 61 74 69 63 20 69 6e 74 0a 50 72 6f 76 69 64 65 atic int.Provide
70e0: 72 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 rObjCmd(ClientDa
70f0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
7100: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
7110: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
7120: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
7130: 5b 5d 29 20 7b 0a 20 20 20 20 63 68 61 72 20 2a []) {. char *
7140: 6e 61 6d 65 3b 0a 20 20 20 20 28 76 6f 69 64 29 name;. (void)
7150: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
7160: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
7170: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c d");.. /* Val
7180: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
7190: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
71a0: 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f != 2) {..Tcl_Wro
71b0: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
71c0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 6e 61 6d 65 , 1, objv, "name
71d0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
71e0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
71f0: 20 20 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 name = Tcl_Get
7200: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b String(objv[1]);
7210: 0a 20 20 20 20 69 66 20 28 21 4f 53 53 4c 5f 50 . if (!OSSL_P
7220: 52 4f 56 49 44 45 52 5f 74 72 79 5f 6c 6f 61 64 ROVIDER_try_load
7230: 28 4e 55 4c 4c 2c 20 28 63 6f 6e 73 74 20 63 68 (NULL, (const ch
7240: 61 72 20 2a 29 20 6e 61 6d 65 2c 20 31 29 29 20 ar *) name, 1))
7250: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
7260: 75 6c 74 28 69 6e 74 65 72 70 2c 20 47 45 54 5f ult(interp, GET_
7270: 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 ERR_REASON(), (c
7280: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
7290: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
72a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 65 74 75 . }.. retu
72b0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 23 65 6e rn TCL_OK;.}.#en
72c0: 64 69 66 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a dif../**********
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 2a 2a 2a 2a ****************
7300: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
7310: 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7350: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 72 73 69 ----. *. * Versi
7360: 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 onObjCmd --. *.
7370: 2a 09 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e *.Return a strin
7380: 67 20 77 69 74 68 20 74 68 65 20 4f 70 65 6e 53 g with the OpenS
7390: 53 4c 20 76 65 72 73 69 6f 6e 20 69 6e 66 6f 2e SL version info.
73a0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
73b0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
73c0: 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 l result.. *. *
73d0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
73e0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7430: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56 */.static int.V
7440: 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 43 6c 69 ersionObjCmd(Cli
7450: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
7460: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
7470: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
7480: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
7490: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 objv[]) {. T
74a0: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
74b0: 6a 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c j;. (void) cl
74c0: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 ientData;.. d
74d0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
74e0: 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 ;.. /* Valida
74f0: 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a te arg count */.
7500: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 if (objc !=
7510: 31 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 1) {..Tcl_WrongN
7520: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
7530: 2c 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 , objv, NULL);..
7540: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
7550: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 65 73 ;. }.. res
7560: 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 ultObj = Tcl_New
7570: 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 StringObj(OPENSS
7580: 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c 20 L_VERSION_TEXT,
7590: 2d 31 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 -1);. Tcl_Set
75a0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
75b0: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 , resultObj);.
75c0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
75d0: 0a 7d 0a 0a 2f 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 2a 2a 2a 2a 2a ****************
7610: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7660: 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e ---. *. * Tls_In
7670: 66 6f 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a foCommands --. *
7680: 0a 20 2a 09 43 72 65 61 74 65 20 69 6e 66 6f 20 . *.Create info
7690: 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 commands. *. * R
76a0: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
76b0: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
76c0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
76d0: 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 6f s:. *.Creates co
76e0: 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d mmands. *. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7730: 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 49 6e 66 6f */.int Tls_Info
7740: 43 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 Commands(Tcl_Int
7750: 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 0a erp *interp) {..
7760: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 #if OPENSSL_VERS
7770: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 ION_NUMBER < 0x1
7780: 30 31 30 30 30 30 30 4c 0a 20 20 20 20 4f 70 65 0100000L. Ope
7790: 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 63 69 70 nSSL_add_all_cip
77a0: 68 65 72 73 28 29 3b 0a 20 20 20 20 4f 70 65 6e hers();. Open
77b0: 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 64 69 67 65 SSL_add_all_dige
77c0: 73 74 73 28 29 3b 0a 20 20 20 20 4f 70 65 6e 53 sts();. OpenS
77d0: 53 4c 5f 61 64 64 5f 61 6c 6c 5f 61 6c 67 6f 72 SL_add_all_algor
77e0: 69 74 68 6d 73 28 29 3b 0a 23 65 6e 64 69 66 0a ithms();.#endif.
77f0: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
7800: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
7810: 2c 20 22 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 , "::tls::cipher
7820: 22 2c 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 2c ", CipherObjCmd,
7830: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 (ClientData) NU
7840: 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 LL, (Tcl_CmdDele
7850: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
7860: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
7870: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
7880: 2c 20 22 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 , "::tls::cipher
7890: 73 22 2c 20 43 69 70 68 65 72 73 4f 62 6a 43 6d s", CiphersObjCm
78a0: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
78b0: 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 NULL, (Tcl_CmdDe
78c0: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
78d0: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
78e0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
78f0: 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 64 69 67 65 rp, "::tls::dige
7900: 73 74 73 22 2c 20 44 69 67 65 73 74 73 4f 62 6a sts", DigestsObj
7910: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
7920: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
7930: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
7940: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
7950: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
7960: 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 6b 64 terp, "::tls::kd
7970: 66 73 22 2c 20 4b 64 66 73 4f 62 6a 43 6d 64 2c fs", KdfsObjCmd,
7980: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 (ClientData) NU
7990: 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 LL, (Tcl_CmdDele
79a0: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
79b0: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
79c0: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
79d0: 2c 20 22 3a 3a 74 6c 73 3a 3a 6d 61 63 73 22 2c , "::tls::macs",
79e0: 20 4d 61 63 73 4f 62 6a 43 6d 64 2c 20 28 43 6c MacsObjCmd, (Cl
79f0: 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 ientData) NULL,
7a00: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
7a10: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
7a20: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
7a30: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a mmand(interp, ":
7a40: 3a 74 6c 73 3a 3a 70 6b 65 79 73 22 2c 20 50 6b :tls::pkeys", Pk
7a50: 65 79 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 eysObjCmd, (Clie
7a60: 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 ntData) NULL, (T
7a70: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
7a80: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 *) NULL);. T
7a90: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
7aa0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 and(interp, "::t
7ab0: 6c 73 3a 3a 70 72 6f 74 6f 63 6f 6c 73 22 2c 20 ls::protocols",
7ac0: 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 2c ProtocolsObjCmd,
7ad0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 (ClientData) NU
7ae0: 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 LL, (Tcl_CmdDele
7af0: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
7b00: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
7b10: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 SION_NUMBER >= 0
7b20: 78 33 30 30 30 30 30 30 30 4c 0a 20 20 20 20 54 x30000000L. T
7b30: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
7b40: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 and(interp, "::t
7b50: 6c 73 3a 3a 70 72 6f 76 69 64 65 72 22 2c 20 50 ls::provider", P
7b60: 72 6f 76 69 64 65 72 4f 62 6a 43 6d 64 2c 20 28 roviderObjCmd, (
7b70: 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c ClientData) NULL
7b80: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
7b90: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 23 Proc *) NULL);.#
7ba0: 65 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f 43 72 endif. Tcl_Cr
7bb0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
7bc0: 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 76 nterp, "::tls::v
7bd0: 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f 6e ersion", Version
7be0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
7bf0: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
7c00: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
7c10: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 NULL);. retu
7c20: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a rn TCL_OK;.}..