0000: 2f 2a 0a 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f /*. * Informatio
0010: 6e 20 43 6f 6d 6d 61 6e 64 73 20 4d 6f 64 75 6c n Commands Modul
0020: 65 0a 20 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 e. *. * Provides
0030: 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 72 commands that r
0040: 65 74 75 72 6e 20 69 6e 66 6f 20 72 65 6c 61 74 eturn info relat
0050: 65 64 20 74 6f 20 74 68 65 20 4f 70 65 6e 53 53 ed to the OpenSS
0060: 4c 20 63 6f 6e 66 69 67 20 61 6e 64 20 64 61 74 L config and dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 ude <openssl/cry
00e0: 70 74 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 pto.h>.#include
00f0: 3c 6f 70 65 6e 73 73 6c 2f 73 73 6c 2e 68 3e 0a <openssl/ssl.h>.
0100: 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 #include <openss
0110: 6c 2f 73 61 66 65 73 74 61 63 6b 2e 68 3e 0a 0a l/safestack.h>..
0120: 2f 2a 0a 20 2a 20 56 61 6c 69 64 20 53 53 4c 20 /*. * Valid SSL
0130: 61 6e 64 20 54 4c 53 20 50 72 6f 74 6f 63 6f 6c and TLS Protocol
0140: 20 56 65 72 73 69 6f 6e 73 0a 20 2a 2f 0a 73 74 Versions. */.st
0150: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 atic const char
0160: 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b *protocols[] = {
0170: 0a 09 22 73 73 6c 32 22 2c 20 22 73 73 6c 33 22 .."ssl2", "ssl3"
0180: 2c 20 22 74 6c 73 31 22 2c 20 22 74 6c 73 31 2e , "tls1", "tls1.
0190: 31 22 2c 20 22 74 6c 73 31 2e 32 22 2c 20 22 74 1", "tls1.2", "t
01a0: 6c 73 31 2e 33 22 2c 20 4e 55 4c 4c 0a 7d 3b 0a ls1.3", NULL.};.
01b0: 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a enum protocol {.
01c0: 20 20 20 20 54 4c 53 5f 53 53 4c 32 2c 20 54 4c TLS_SSL2, TL
01d0: 53 5f 53 53 4c 33 2c 20 54 4c 53 5f 54 4c 53 31 S_SSL3, TLS_TLS1
01e0: 2c 20 54 4c 53 5f 54 4c 53 31 5f 31 2c 20 54 4c , TLS_TLS1_1, TL
01f0: 53 5f 54 4c 53 31 5f 32 2c 20 54 4c 53 5f 54 4c S_TLS1_2, TLS_TL
0200: 53 31 5f 33 2c 20 54 4c 53 5f 4e 4f 4e 45 0a 7d S1_3, TLS_NONE.}
0210: 3b 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;../************
0220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0240: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0250: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
0260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02a0: 2d 2d 0a 20 2a 0a 20 2a 20 4e 61 6d 65 73 43 61 --. *. * NamesCa
02b0: 6c 6c 62 61 63 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 llback --. *. *.
02c0: 43 61 6c 6c 62 61 63 6b 20 74 6f 20 61 64 64 20 Callback to add
02d0: 61 6c 67 6f 72 69 74 68 6d 20 6f 72 20 6d 65 74 algorithm or met
02e0: 68 6f 64 20 6e 61 6d 65 73 20 74 6f 20 61 20 54 hod names to a T
02f0: 43 4c 20 6c 69 73 74 20 6f 62 6a 65 63 74 2e 0a CL list object..
0300: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
0310: 2a 09 41 70 70 65 6e 64 20 6e 61 6d 65 20 74 6f *.Append name to
0320: 20 54 43 4c 20 6c 69 73 74 20 6f 62 6a 65 63 74 TCL list object
0330: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
0340: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
0350: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0390: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 -------. */.void
03a0: 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b 28 63 NamesCallback(c
03b0: 6f 6e 73 74 20 4f 42 4a 5f 4e 41 4d 45 20 2a 6f onst OBJ_NAME *o
03c0: 62 6a 2c 20 76 6f 69 64 20 2a 61 72 67 29 20 7b bj, void *arg) {
03d0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6c 69 . Tcl_Obj *li
03e0: 73 74 4f 62 6a 20 3d 20 28 54 63 6c 5f 4f 62 6a stObj = (Tcl_Obj
03f0: 20 2a 29 20 61 72 67 3b 0a 0a 20 20 20 20 2f 2a *) arg;.. /*
0400: 20 46 69 65 6c 64 73 3a 20 28 69 6e 74 29 20 74 Fields: (int) t
0410: 79 70 65 20 61 6e 64 20 61 6c 69 61 73 2c 20 28 ype and alias, (
0420: 63 6f 6e 73 74 20 63 68 61 72 2a 29 20 6e 61 6d const char*) nam
0430: 65 20 28 61 6c 69 61 73 20 66 72 6f 6d 29 20 61 e (alias from) a
0440: 6e 64 20 64 61 74 61 20 28 61 6c 69 61 73 20 74 nd data (alias t
0450: 6f 29 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 o) */. if (st
0460: 72 73 74 72 28 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 rstr(obj->name,
0470: 22 72 73 61 22 29 20 3d 3d 20 4e 55 4c 4c 20 26 "rsa") == NULL &
0480: 26 20 73 74 72 73 74 72 28 6f 62 6a 2d 3e 6e 61 & strstr(obj->na
0490: 6d 65 2c 20 22 52 53 41 22 29 20 3d 3d 20 4e 55 me, "RSA") == NU
04a0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 4c 69 73 74 4f LL) {..Tcl_ListO
04b0: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
04c0: 4e 55 4c 4c 2c 20 6c 69 73 74 4f 62 6a 2c 20 54 NULL, listObj, T
04d0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
04e0: 6f 62 6a 2d 3e 6e 61 6d 65 2c 2d 31 29 29 3b 0a obj->name,-1));.
04f0: 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a }.}../******
0500: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0510: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0520: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0530: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
0540: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0580: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 --------. *. * C
0590: 69 70 68 65 72 49 6e 66 6f 20 2d 2d 0a 20 2a 0a ipherInfo --. *.
05a0: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
05b0: 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 of properties a
05c0: 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 63 69 nd values for ci
05d0: 70 68 65 72 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 pher.. *. * Resu
05e0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
05f0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
0600: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
0610: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0660: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 43 69 70 68 65 --. */.int Ciphe
0670: 72 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 rInfo(Tcl_Interp
0680: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 *interp, Tcl_Ob
0690: 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 j *nameObj) {.
06a0: 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 const EVP_CIPH
06b0: 45 52 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 20 ER *cipher;.
06c0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
06d0: 62 6a 2c 20 2a 6c 69 73 74 4f 62 6a 3b 0a 20 20 bj, *listObj;.
06e0: 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 unsigned long
06f0: 66 6c 61 67 73 2c 20 6d 6f 64 65 3b 0a 20 20 20 flags, mode;.
0700: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
0710: 6d 6f 64 65 4e 61 6d 65 20 3d 20 4e 55 4c 4c 3b modeName = NULL;
0720: 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 20 . char *name
0730: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
0740: 72 6f 6d 4f 62 6a 28 6e 61 6d 65 4f 62 6a 2c 4e romObj(nameObj,N
0750: 55 4c 4c 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 ULL);.. /* Ge
0760: 74 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 20 20 t cipher */.
0770: 63 69 70 68 65 72 20 3d 20 45 56 50 5f 67 65 74 cipher = EVP_get
0780: 5f 63 69 70 68 65 72 62 79 6e 61 6d 65 28 6e 61 _cipherbyname(na
0790: 6d 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 69 me);.. if (ci
07a0: 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a pher == NULL) {.
07b0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
07c0: 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c t(interp, "Inval
07d0: 69 64 20 63 69 70 68 65 72 20 5c 22 22 2c 20 6e id cipher \"", n
07e0: 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 ame, "\"", NULL)
07f0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
0800: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
0810: 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 /* Get propertie
0820: 73 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f s */. resultO
0830: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
0840: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
0850: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
0860: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
0870: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
0880: 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f }. LAPPEND_
0890: 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 STR(interp, resu
08a0: 6c 74 4f 62 6a 2c 20 22 6e 69 64 22 2c 20 4f 42 ltObj, "nid", OB
08b0: 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 43 49 50 J_nid2ln(EVP_CIP
08c0: 48 45 52 5f 6e 69 64 28 63 69 70 68 65 72 29 29 HER_nid(cipher))
08d0: 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 , -1);. LAPPE
08e0: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
08f0: 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 esultObj, "name"
0900: 2c 20 45 56 50 5f 43 49 50 48 45 52 5f 6e 61 6d , EVP_CIPHER_nam
0910: 65 28 63 69 70 68 65 72 29 2c 20 2d 31 29 3b 0a e(cipher), -1);.
0920: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
0930: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
0940: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
0950: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c , "", -1);. L
0960: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
0970: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 p, resultObj, "b
0980: 6c 6f 63 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f lock_size", EVP_
0990: 43 49 50 48 45 52 5f 62 6c 6f 63 6b 5f 73 69 7a CIPHER_block_siz
09a0: 65 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 e(cipher));.
09b0: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
09c0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
09d0: 6b 65 79 5f 6c 65 6e 67 74 68 22 2c 20 45 56 50 key_length", EVP
09e0: 5f 43 49 50 48 45 52 5f 6b 65 79 5f 6c 65 6e 67 _CIPHER_key_leng
09f0: 74 68 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 th(cipher));.
0a00: 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 LAPPEND_INT(int
0a10: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
0a20: 22 69 76 5f 6c 65 6e 67 74 68 22 2c 20 45 56 50 "iv_length", EVP
0a30: 5f 43 49 50 48 45 52 5f 69 76 5f 6c 65 6e 67 74 _CIPHER_iv_lengt
0a40: 68 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 h(cipher));.
0a50: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
0a60: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
0a70: 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c type", OBJ_nid2l
0a80: 6e 28 45 56 50 5f 43 49 50 48 45 52 5f 74 79 70 n(EVP_CIPHER_typ
0a90: 65 28 63 69 70 68 65 72 29 29 2c 20 2d 31 29 3b e(cipher)), -1);
0aa0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
0ab0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
0ac0: 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 bj, "provider",
0ad0: 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 66 6c 61 "", -1);. fla
0ae0: 67 73 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f gs = EVP_CIPHER_
0af0: 66 6c 61 67 73 28 63 69 70 68 65 72 29 3b 0a 20 flags(cipher);.
0b00: 20 20 20 6d 6f 64 65 20 20 3d 20 45 56 50 5f 43 mode = EVP_C
0b10: 49 50 48 45 52 5f 6d 6f 64 65 28 63 69 70 68 65 IPHER_mode(ciphe
0b20: 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 45 56 50 5f r);.. /* EVP_
0b30: 43 49 50 48 45 52 5f 67 65 74 5f 6d 6f 64 65 20 CIPHER_get_mode
0b40: 2a 2f 0a 20 20 20 20 73 77 69 74 63 68 28 6d 6f */. switch(mo
0b50: 64 65 29 20 7b 0a 09 63 61 73 65 20 45 56 50 5f de) {..case EVP_
0b60: 43 49 50 48 5f 53 54 52 45 41 4d 5f 43 49 50 48 CIPH_STREAM_CIPH
0b70: 45 52 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d ER:.. modeNam
0b80: 65 20 3d 20 22 53 54 52 45 41 4d 22 3b 0a 09 20 e = "STREAM";..
0b90: 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 break;..case
0ba0: 45 56 50 5f 43 49 50 48 5f 45 43 42 5f 4d 4f 44 EVP_CIPH_ECB_MOD
0bb0: 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 E:.. modeName
0bc0: 20 3d 20 22 45 43 42 22 3b 0a 09 20 20 20 20 62 = "ECB";.. b
0bd0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f reak;..case EVP_
0be0: 43 49 50 48 5f 43 42 43 5f 4d 4f 44 45 3a 0a 09 CIPH_CBC_MODE:..
0bf0: 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 modeName = "
0c00: 43 42 43 22 3b 0a 09 20 20 20 20 62 72 65 61 6b CBC";.. break
0c10: 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 ;..case EVP_CIPH
0c20: 5f 43 46 42 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 _CFB_MODE:..
0c30: 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 46 42 22 modeName = "CFB"
0c40: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 ;.. break;..c
0c50: 61 73 65 20 45 56 50 5f 43 49 50 48 5f 4f 46 42 ase EVP_CIPH_OFB
0c60: 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 _MODE:.. mode
0c70: 4e 61 6d 65 20 3d 20 22 4f 46 42 22 3b 0a 09 20 Name = "OFB";..
0c80: 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 break;..case
0c90: 45 56 50 5f 43 49 50 48 5f 43 54 52 5f 4d 4f 44 EVP_CIPH_CTR_MOD
0ca0: 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 E:.. modeName
0cb0: 20 3d 20 22 43 54 52 22 3b 0a 09 20 20 20 20 62 = "CTR";.. b
0cc0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f reak;..case EVP_
0cd0: 43 49 50 48 5f 47 43 4d 5f 4d 4f 44 45 3a 0a 09 CIPH_GCM_MODE:..
0ce0: 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 modeName = "
0cf0: 47 43 4d 22 3b 0a 09 20 20 20 20 62 72 65 61 6b GCM";.. break
0d00: 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 ;..case EVP_CIPH
0d10: 5f 58 54 53 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 _XTS_MODE:..
0d20: 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 58 54 53 22 modeName = "XTS"
0d30: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 ;.. break;..c
0d40: 61 73 65 20 45 56 50 5f 43 49 50 48 5f 43 43 4d ase EVP_CIPH_CCM
0d50: 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 _MODE:.. mode
0d60: 4e 61 6d 65 20 3d 20 22 43 43 4d 22 3b 0a 09 20 Name = "CCM";..
0d70: 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 break;..case
0d80: 45 56 50 5f 43 49 50 48 5f 4f 43 42 5f 4d 4f 44 EVP_CIPH_OCB_MOD
0d90: 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 E:.. modeName
0da0: 20 3d 20 22 4f 43 42 22 3b 0a 09 20 20 20 20 62 = "OCB";.. b
0db0: 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f reak;..case EVP_
0dc0: 43 49 50 48 5f 57 52 41 50 5f 4d 4f 44 45 20 3a CIPH_WRAP_MODE :
0dd0: 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d .. modeName =
0de0: 20 22 57 52 41 50 22 3b 0a 09 20 20 20 20 62 72 "WRAP";.. br
0df0: 65 61 6b 3b 0a 09 64 65 66 61 75 6c 74 3a 0a 09 eak;..default:..
0e00: 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 modeName = "
0e10: 75 6e 6b 6e 6f 77 6e 22 3b 0a 09 20 20 20 20 62 unknown";.. b
0e20: 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 reak;. }.
0e30: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
0e40: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
0e50: 6d 6f 64 65 22 2c 20 6d 6f 64 65 4e 61 6d 65 2c mode", modeName,
0e60: 20 2d 31 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c -1);.. /* Fl
0e70: 61 67 73 20 2a 2f 0a 20 20 20 20 6c 69 73 74 4f ags */. listO
0e80: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
0e90: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
0ea0: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 LAPPEND_BOOL(i
0eb0: 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 nterp, listObj,
0ec0: 22 56 61 72 69 61 62 6c 65 20 4c 65 6e 67 74 68 "Variable Length
0ed0: 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 ", flags & EVP_C
0ee0: 49 50 48 5f 56 41 52 49 41 42 4c 45 5f 4c 45 4e IPH_VARIABLE_LEN
0ef0: 47 54 48 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e GTH);. LAPPEN
0f00: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
0f10: 69 73 74 4f 62 6a 2c 20 22 41 6c 77 61 79 73 20 istObj, "Always
0f20: 43 61 6c 6c 20 49 6e 69 74 22 2c 20 66 6c 61 67 Call Init", flag
0f30: 73 20 26 20 45 56 50 5f 43 49 50 48 5f 41 4c 57 s & EVP_CIPH_ALW
0f40: 41 59 53 5f 43 41 4c 4c 5f 49 4e 49 54 29 3b 0a AYS_CALL_INIT);.
0f50: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c LAPPEND_BOOL
0f60: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a (interp, listObj
0f70: 2c 20 22 43 75 73 74 6f 6d 20 49 56 22 2c 20 66 , "Custom IV", f
0f80: 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f lags & EVP_CIPH_
0f90: 43 55 53 54 4f 4d 5f 49 56 29 3b 0a 20 20 20 20 CUSTOM_IV);.
0fa0: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
0fb0: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 erp, listObj, "C
0fc0: 6f 6e 74 72 6f 6c 20 49 6e 69 74 22 2c 20 66 6c ontrol Init", fl
0fd0: 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 ags & EVP_CIPH_C
0fe0: 54 52 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 4c TRL_INIT);. L
0ff0: 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 APPEND_BOOL(inte
1000: 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 rp, listObj, "Cu
1010: 73 74 6f 6d 20 43 69 70 68 65 72 22 2c 20 66 6c stom Cipher", fl
1020: 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 ags & EVP_CIPH_F
1030: 4c 41 47 5f 43 55 53 54 4f 4d 5f 43 49 50 48 45 LAG_CUSTOM_CIPHE
1040: 52 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f R);. LAPPEND_
1050: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
1060: 74 4f 62 6a 2c 20 22 41 45 41 44 20 43 69 70 68 tObj, "AEAD Ciph
1070: 65 72 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 er", flags & EVP
1080: 5f 43 49 50 48 5f 46 4c 41 47 5f 41 45 41 44 5f _CIPH_FLAG_AEAD_
1090: 43 49 50 48 45 52 29 3b 0a 20 20 20 20 4c 41 50 CIPHER);. LAP
10a0: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
10b0: 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 73 74 , listObj, "Cust
10c0: 6f 6d 20 43 6f 70 79 22 2c 20 66 6c 61 67 73 20 om Copy", flags
10d0: 26 20 45 56 50 5f 43 49 50 48 5f 43 55 53 54 4f & EVP_CIPH_CUSTO
10e0: 4d 5f 43 4f 50 59 29 3b 0a 20 20 20 20 4c 41 50 M_COPY);. LAP
10f0: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
1100: 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 4e 6f 6e 20 , listObj, "Non
1110: 46 49 50 53 20 41 6c 6c 6f 77 22 2c 20 66 6c 61 FIPS Allow", fla
1120: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c gs & EVP_CIPH_FL
1130: 41 47 5f 4e 4f 4e 5f 46 49 50 53 5f 41 4c 4c 4f AG_NON_FIPS_ALLO
1140: 57 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f W);. LAPPEND_
1150: 4f 42 4a 28 69 6e 74 65 72 70 2c 20 72 65 73 75 OBJ(interp, resu
1160: 6c 74 4f 62 6a 2c 20 22 66 6c 61 67 73 22 2c 20 ltObj, "flags",
1170: 6c 69 73 74 4f 62 6a 29 3b 0a 0a 20 20 20 20 54 listObj);.. T
1180: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
1190: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
11a0: 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 j);. return T
11b0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d CL_OK;.}../*. *-
11c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1200: 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 4c --. *. * CipherL
1210: 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 ist --. *. *.Ret
1220: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c urn a list of al
1230: 6c 20 63 69 70 68 65 72 20 61 6c 67 6f 72 69 74 l cipher algorit
1240: 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 hms. *. * Result
1250: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
1260: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a Tcl list.. *. *
1270: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1280: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d *.None.. *. *---
1290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12d0: 0a 20 2a 2f 0a 69 6e 74 20 43 69 70 68 65 72 4c . */.int CipherL
12e0: 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ist(Tcl_Interp *
12f0: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 interp) {. Tc
1300: 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a l_Obj *resultObj
1310: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
1320: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 j(0, NULL);.
1330: 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d if (resultObj ==
1340: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
1350: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
1360: 7d 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 }.. /* Same a
1370: 73 20 45 56 50 5f 43 49 50 48 45 52 5f 64 6f 5f s EVP_CIPHER_do_
1380: 61 6c 6c 20 2a 2f 0a 20 20 20 20 4f 42 4a 5f 4e all */. OBJ_N
1390: 41 4d 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e AME_do_all(OBJ_N
13a0: 41 4d 45 5f 54 59 50 45 5f 43 49 50 48 45 52 5f AME_TYPE_CIPHER_
13b0: 4d 45 54 48 2c 20 4e 61 6d 65 73 43 61 6c 6c 62 METH, NamesCallb
13c0: 61 63 6b 2c 20 28 76 6f 69 64 20 2a 29 20 72 65 ack, (void *) re
13d0: 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 54 63 sultObj);. Tc
13e0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
13f0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
1400: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 );. return TC
1410: 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d L_OK;.}../*. *--
1420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1460: 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 4f 62 -. *. * CipherOb
1470: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 jCmd --. *. *.Re
1480: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 turn a list of p
1490: 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 roperties and va
14a0: 6c 75 65 73 20 66 6f 72 20 63 69 70 68 65 72 4e lues for cipherN
14b0: 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ame.. *. * Resul
14c0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
14d0: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 d Tcl list.. *.
14e0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
14f0: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1540: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
1550: 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 28 43 6c CipherObjCmd(Cl
1560: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
1570: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
1580: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
1590: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
15a0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
15b0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
15c0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 );.. /* Clear
15d0: 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 errors */. T
15e0: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
15f0: 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f nterp);. ERR_
1600: 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a clear_error();..
1610: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
1620: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 arg count */.
1630: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 if (objc == 1)
1640: 7b 0a 09 72 65 74 75 72 6e 20 43 69 70 68 65 72 {..return Cipher
1650: 4c 69 73 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 List(interp);..
1660: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 } else if (ob
1670: 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 72 65 74 75 jc == 2) {..retu
1680: 72 6e 20 43 69 70 68 65 72 49 6e 66 6f 28 69 6e rn CipherInfo(in
1690: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a terp, objv[1]);.
16a0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
16b0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
16c0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
16d0: 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74 "?name?");..ret
16e0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
16f0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
1700: 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 TCL_OK;..clientD
1710: 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 ata = clientData
1720: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
1730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1770: 0a 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d . * CiphersObjCm
1780: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 d --. *. *.This
1790: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
17a0: 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 oked to process
17b0: 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 the "tls::cipher
17c0: 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f s" command. *.to
17d0: 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 list available
17e0: 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 75 ciphers, based u
17f0: 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c pon protocol sel
1800: 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 ected.. *. * Res
1810: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
1820: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c ard Tcl result l
1830: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
1840: 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 effects:. *.cons
1850: 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 72 tructs and destr
1860: 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 oys SSL context
1870: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d (CTX). *. *-----
1880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
18c0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 43 69 */.static int Ci
18d0: 70 68 65 72 73 4f 62 6a 43 6d 64 28 43 6c 69 65 phersObjCmd(Clie
18e0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
18f0: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
1900: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
1910: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
1920: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 53 53 objv[]) {. SS
1930: 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c L_CTX *ctx = NUL
1940: 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 L;. SSL *ssl
1950: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43 = NULL;. STAC
1960: 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 52 29 K_OF(SSL_CIPHER)
1970: 20 2a 73 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 *sk = NULL;.
1980: 20 69 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 62 int index, verb
1990: 6f 73 65 20 3d 20 30 2c 20 75 73 65 5f 73 75 70 ose = 0, use_sup
19a0: 70 6f 72 74 65 64 20 3d 20 30 2c 20 72 65 73 20 ported = 0, res
19b0: 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 69 6e = TCL_OK;. in
19c0: 74 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 2c 20 6d t min_version, m
19d0: 61 78 5f 76 65 72 73 69 6f 6e 3b 0a 0a 20 20 20 ax_version;..
19e0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
19f0: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 ");.. /* Clea
1a00: 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 r errors */.
1a10: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
1a20: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 interp);. ERR
1a30: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
1a40: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
1a50: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
1a60: 20 20 69 66 20 28 6f 62 6a 63 20 3e 20 34 29 20 if (objc > 4)
1a70: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
1a80: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
1a90: 62 6a 76 2c 20 22 3f 70 72 6f 74 6f 63 6f 6c 3f bjv, "?protocol?
1aa0: 20 3f 76 65 72 62 6f 73 65 3f 20 3f 73 75 70 70 ?verbose? ?supp
1ab0: 6f 72 74 65 64 3f 22 29 3b 0a 09 72 65 74 75 72 orted?");..retur
1ac0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
1ad0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 }.. /* List
1ae0: 61 6c 6c 20 63 69 70 68 65 72 73 20 2a 2f 0a 20 all ciphers */.
1af0: 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 if (objc == 1
1b00: 29 20 7b 0a 09 72 65 74 75 72 6e 20 43 69 70 68 ) {..return Ciph
1b10: 65 72 4c 69 73 74 28 69 6e 74 65 72 70 29 3b 0a erList(interp);.
1b20: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
1b30: 74 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 t options */.
1b40: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 if (Tcl_GetInde
1b50: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c xFromObj(interp,
1b60: 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 objv[1], protoc
1b70: 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c ols, "protocol",
1b80: 20 30 2c 20 26 69 6e 64 65 78 29 20 21 3d 20 54 0, &index) != T
1b90: 43 4c 5f 4f 4b 20 7c 7c 0a 09 28 6f 62 6a 63 20 CL_OK ||..(objc
1ba0: 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 74 42 6f > 2 && Tcl_GetBo
1bb0: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 oleanFromObj(int
1bc0: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 erp, objv[2], &v
1bd0: 65 72 62 6f 73 65 29 20 21 3d 20 54 43 4c 5f 4f erbose) != TCL_O
1be0: 4b 29 20 7c 7c 0a 09 28 6f 62 6a 63 20 3e 20 33 K) ||..(objc > 3
1bf0: 20 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 && Tcl_GetBoole
1c00: 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 anFromObj(interp
1c10: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 75 73 65 5f , objv[3], &use_
1c20: 73 75 70 70 6f 72 74 65 64 29 20 21 3d 20 54 43 supported) != TC
1c30: 4c 5f 4f 4b 29 29 20 7b 0a 09 72 65 74 75 72 6e L_OK)) {..return
1c40: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
1c50: 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 }.. switch ((
1c60: 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e enum protocol)in
1c70: 64 65 78 29 20 7b 0a 09 63 61 73 65 20 54 4c 53 dex) {..case TLS
1c80: 5f 53 53 4c 32 3a 0a 09 20 20 20 20 54 63 6c 5f _SSL2:.. Tcl_
1c90: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1ca0: 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 erp, protocols[i
1cb0: 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 ndex], ": protoc
1cc0: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
1cd0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 ", NULL);.. r
1ce0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1cf0: 0a 09 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a ..case TLS_SSL3:
1d00: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
1d10: 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 SSL3) || defined
1d20: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
1d30: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
1d40: 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 NSSL_NO_SSL3_MET
1d50: 48 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 HOD).. Tcl_Ap
1d60: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1d70: 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 p, protocols[ind
1d80: 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c ex], ": protocol
1d90: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
1da0: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
1db0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
1dc0: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
1dd0: 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 53 min_version = S
1de0: 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 SL3_VERSION;.
1df0: 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 max_ver
1e00: 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 sion = SSL3_VERS
1e10: 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b ION;.. break;
1e20: 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c .#endif..case TL
1e30: 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 66 69 S_TLS1:.#if defi
1e40: 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 ned(NO_TLS1) ||
1e50: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
1e60: 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 NO_TLS1) || defi
1e70: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
1e80: 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 LS1_METHOD)..
1e90: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1ea0: 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 t(interp, protoc
1eb0: 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 ols[index], ": p
1ec0: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
1ed0: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
1ee0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1ef0: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 RROR;.#else.
1f00: 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 min_vers
1f10: 69 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 52 53 49 ion = TLS1_VERSI
1f20: 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ON;.
1f30: 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c max_version = TL
1f40: 53 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 S1_VERSION;..
1f50: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 break;.#endif..
1f60: 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a case TLS_TLS1_1:
1f70: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
1f80: 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e TLS1_1) || defin
1f90: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
1fa0: 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 S1_1) || defined
1fb0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
1fc0: 5f 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 _1_METHOD)..
1fd0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1fe0: 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f (interp, protoco
1ff0: 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 ls[index], ": pr
2000: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
2010: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 rted", NULL);..
2020: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2030: 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 ROR;.#else.
2040: 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 min_versi
2050: 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f 56 45 52 53 on = TLS1_1_VERS
2060: 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ION;.
2070: 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 max_version = T
2080: 4c 53 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 LS1_1_VERSION;..
2090: 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 break;.#endi
20a0: 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 f..case TLS_TLS1
20b0: 5f 32 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 _2:.#if defined(
20c0: 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 NO_TLS1_2) || de
20d0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
20e0: 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 _TLS1_2) || defi
20f0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
2100: 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 09 20 LS1_2_METHOD)..
2110: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
2120: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 ult(interp, prot
2130: 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a ocols[index], ":
2140: 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 protocol not su
2150: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
2160: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
2170: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 _ERROR;.#else.
2180: 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 min_ve
2190: 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f 56 rsion = TLS1_2_V
21a0: 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 ERSION;.
21b0: 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 max_version
21c0: 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 49 4f 4e = TLS1_2_VERSION
21d0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 ;.. break;.#e
21e0: 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 ndif..case TLS_T
21f0: 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65 66 69 6e LS1_3:.#if defin
2200: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c ed(NO_TLS1_3) ||
2210: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
2220: 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 20 20 20 _NO_TLS1_3)..
2230: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
2240: 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 t(interp, protoc
2250: 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 ols[index], ": p
2260: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
2270: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
2280: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
2290: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 RROR;.#else.
22a0: 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 min_vers
22b0: 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 ion = TLS1_3_VER
22c0: 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 SION;.
22d0: 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 max_version =
22e0: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a TLS1_3_VERSION;.
22f0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 . break;.#end
2300: 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a 20 20 20 if..default:.
2310: 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 min_ver
2320: 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 sion = SSL3_VERS
2330: 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ION;.
2340: 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 max_version = T
2350: 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 LS1_3_VERSION;..
2360: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d break;. }
2370: 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 .. /* Create
2380: 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 context */. i
2390: 66 20 28 28 63 74 78 20 3d 20 53 53 4c 5f 43 54 f ((ctx = SSL_CT
23a0: 58 5f 6e 65 77 28 54 4c 53 5f 73 65 72 76 65 72 X_new(TLS_server
23b0: 5f 6d 65 74 68 6f 64 28 29 29 29 20 3d 3d 20 4e _method())) == N
23c0: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
23d0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
23e0: 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 REASON(), NULL)
23f0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
2400: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
2410: 2f 2a 20 53 65 74 20 70 72 6f 74 6f 63 6f 6c 20 /* Set protocol
2420: 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 versions */.
2430: 69 66 20 28 53 53 4c 5f 43 54 58 5f 73 65 74 5f if (SSL_CTX_set_
2440: 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f min_proto_versio
2450: 6e 28 63 74 78 2c 20 6d 69 6e 5f 76 65 72 73 69 n(ctx, min_versi
2460: 6f 6e 29 20 3d 3d 20 30 20 7c 7c 0a 09 53 53 4c on) == 0 ||..SSL
2470: 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f _CTX_set_max_pro
2480: 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78 2c 20 to_version(ctx,
2490: 6d 61 78 5f 76 65 72 73 69 6f 6e 29 20 3d 3d 20 max_version) ==
24a0: 30 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 0) {..SSL_CTX_fr
24b0: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
24c0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
24d0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
24e0: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a SSL context */.
24f0: 20 20 20 20 69 66 20 28 28 73 73 6c 20 3d 20 53 if ((ssl = S
2500: 53 4c 5f 6e 65 77 28 63 74 78 29 29 20 3d 3d 20 SL_new(ctx)) ==
2510: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
2520: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2530: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c , REASON(), NULL
2540: 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 );..SSL_CTX_free
2550: 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 (ctx);..return T
2560: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
2570: 0a 20 20 20 20 2f 2a 20 55 73 65 20 6c 69 73 74 . /* Use list
2580: 20 61 6e 64 20 6f 72 64 65 72 20 61 73 20 77 6f and order as wo
2590: 75 6c 64 20 62 65 20 73 65 6e 74 20 69 6e 20 61 uld be sent in a
25a0: 20 43 6c 69 65 6e 74 48 65 6c 6c 6f 20 6f 72 20 ClientHello or
25b0: 61 6c 6c 20 61 76 61 69 6c 61 62 6c 65 20 63 69 all available ci
25c0: 70 68 65 72 73 20 2a 2f 0a 20 20 20 20 69 66 20 phers */. if
25d0: 28 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 (use_supported)
25e0: 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 31 {..sk = SSL_get1
25f0: 5f 73 75 70 70 6f 72 74 65 64 5f 63 69 70 68 65 _supported_ciphe
2600: 72 73 28 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 rs(ssl);. } e
2610: 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f lse {..sk = SSL_
2620: 67 65 74 5f 63 69 70 68 65 72 73 28 73 73 6c 29 get_ciphers(ssl)
2630: 3b 0a 09 2f 2a 73 6b 20 3d 20 53 53 4c 5f 43 54 ;../*sk = SSL_CT
2640: 58 5f 67 65 74 5f 63 69 70 68 65 72 73 28 63 74 X_get_ciphers(ct
2650: 78 29 3b 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 x);*/. }..
2660: 20 69 66 20 28 73 6b 20 21 3d 20 4e 55 4c 4c 29 if (sk != NULL)
2670: 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 {..Tcl_Obj *res
2680: 75 6c 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 0a ultObj = NULL;..
2690: 09 69 66 20 28 21 76 65 72 62 6f 73 65 29 20 7b .if (!verbose) {
26a0: 0a 09 20 20 20 20 63 68 61 72 20 2a 63 70 3b 0a .. char *cp;.
26b0: 09 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d . resultObj =
26c0: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
26d0: 30 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 69 0, NULL);.. i
26e0: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
26f0: 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 20 3d 20 NULL) {...res =
2700: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 TCL_ERROR;...got
2710: 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 0a o done;.. }..
2720: 09 20 20 20 20 66 6f 72 20 28 69 6e 74 20 69 20 . for (int i
2730: 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53 4c 5f = 0; i < sk_SSL_
2740: 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 CIPHER_num(sk);
2750: 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 20 53 i++) {...const S
2760: 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d 20 73 SL_CIPHER *c = s
2770: 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c k_SSL_CIPHER_val
2780: 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69 66 20 ue(sk, i);...if
2790: 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e 74 (c == NULL) cont
27a0: 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 63 69 70 68 inue;..../* ciph
27b0: 65 72 20 6e 61 6d 65 20 6f 72 20 28 4e 4f 4e 45 er name or (NONE
27c0: 29 20 2a 2f 0a 09 09 63 70 20 3d 20 53 53 4c 5f ) */...cp = SSL_
27d0: 43 49 50 48 45 52 5f 67 65 74 5f 6e 61 6d 65 28 CIPHER_get_name(
27e0: 63 29 3b 0a 09 09 69 66 20 28 63 70 20 3d 3d 20 c);...if (cp ==
27f0: 4e 55 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 09 54 NULL) break;...T
2800: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
2810: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
2820: 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e resultObj, Tcl_N
2830: 65 77 53 74 72 69 6e 67 4f 62 6a 28 63 70 2c 20 ewStringObj(cp,
2840: 2d 31 29 29 3b 0a 09 20 20 20 20 7d 0a 0a 09 7d -1));.. }...}
2850: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 63 68 61 else {.. cha
2860: 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 r buf[BUFSIZ];..
2870: 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 resultObj =
2880: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
2890: 28 22 22 2c 30 29 3b 0a 09 20 20 20 20 69 66 20 ("",0);.. if
28a0: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
28b0: 4c 4c 29 20 7b 0a 09 09 72 65 73 20 3d 20 54 43 LL) {...res = TC
28c0: 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 L_ERROR;...goto
28d0: 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 done;.. }...
28e0: 20 20 20 66 6f 72 20 28 69 6e 74 20 69 20 3d 20 for (int i =
28f0: 30 3b 20 69 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 0; i < sk_SSL_CI
2900: 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 2b PHER_num(sk); i+
2910: 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 20 53 53 4c +) {...const SSL
2920: 5f 43 49 50 48 45 52 20 2a 63 20 3d 20 73 6b 5f _CIPHER *c = sk_
2930: 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 SSL_CIPHER_value
2940: 28 73 6b 2c 20 69 29 3b 0a 09 09 69 66 20 28 63 (sk, i);...if (c
2950: 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e 74 69 6e == NULL) contin
2960: 75 65 3b 0a 0a 09 09 2f 2a 20 74 65 78 74 75 61 ue;..../* textua
2970: 6c 20 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 l description of
2980: 20 74 68 65 20 63 69 70 68 65 72 20 2a 2f 0a 09 the cipher */..
2990: 09 69 66 20 28 53 53 4c 5f 43 49 50 48 45 52 5f .if (SSL_CIPHER_
29a0: 64 65 73 63 72 69 70 74 69 6f 6e 28 63 2c 20 62 description(c, b
29b0: 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 uf, sizeof(buf))
29c0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 20 20 != NULL) {...
29d0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 Tcl_AppendToOb
29e0: 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 62 75 66 j(resultObj, buf
29f0: 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 73 74 72 , (Tcl_Size) str
2a00: 6c 65 6e 28 62 75 66 29 29 3b 0a 09 09 7d 20 65 len(buf));...} e
2a10: 6c 73 65 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f lse {... Tcl_
2a20: 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 65 73 75 AppendToObj(resu
2a30: 6c 74 4f 62 6a 2c 20 22 55 4e 4b 4e 4f 57 4e 5c ltObj, "UNKNOWN\
2a40: 6e 22 2c 20 38 29 3b 0a 09 09 7d 0a 09 20 20 20 n", 8);...}..
2a50: 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e }..}.../* Clean
2a60: 20 75 70 20 2a 2f 0a 09 69 66 20 28 75 73 65 5f up */..if (use_
2a70: 73 75 70 70 6f 72 74 65 64 29 20 7b 0a 09 20 20 supported) {..
2a80: 20 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f sk_SSL_CIPHER_
2a90: 66 72 65 65 28 73 6b 29 3b 0a 09 7d 0a 09 54 63 free(sk);..}..Tc
2aa0: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
2ab0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
2ac0: 29 3b 0a 20 20 20 20 7d 0a 0a 64 6f 6e 65 3a 0a );. }..done:.
2ad0: 20 20 20 20 53 53 4c 5f 66 72 65 65 28 73 73 6c SSL_free(ssl
2ae0: 29 3b 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 );. SSL_CTX_f
2af0: 72 65 65 28 63 74 78 29 3b 0a 20 20 20 20 72 65 ree(ctx);. re
2b00: 74 75 72 6e 20 72 65 73 3b 0a 09 63 6c 69 65 6e turn res;..clien
2b10: 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 tData = clientDa
2b20: 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a ta;.}../********
2b30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2b40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2b50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2b60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
2b70: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bb0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 ------. *. * Dig
2bc0: 65 73 74 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a estInfo --. *. *
2bd0: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f .Return a list o
2be0: 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 f properties and
2bf0: 20 76 61 6c 75 65 73 20 66 6f 72 20 64 69 67 65 values for dige
2c00: 73 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 st.. *. * Result
2c10: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
2c20: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a Tcl list.. *. *
2c30: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
2c40: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d *.None.. *. *---
2c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c90: 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 49 . */.int DigestI
2ca0: 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nfo(Tcl_Interp *
2cb0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 interp, Tcl_Obj
2cc0: 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 *nameObj) {.
2cd0: 45 56 50 5f 4d 44 20 2a 6d 64 3b 0a 20 20 20 20 EVP_MD *md;.
2ce0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
2cf0: 62 6a 2c 20 2a 6c 69 73 74 4f 62 6a 3b 0a 20 20 bj, *listObj;.
2d00: 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 unsigned long
2d10: 66 6c 61 67 73 3b 0a 20 20 20 20 69 6e 74 20 72 flags;. int r
2d20: 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 es = TCL_OK;.
2d30: 20 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 char *name = Tc
2d40: 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f l_GetStringFromO
2d50: 62 6a 28 6e 61 6d 65 4f 62 6a 2c 4e 55 4c 4c 29 bj(nameObj,NULL)
2d60: 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 6d 65 ;.. /* Get me
2d70: 73 73 61 67 65 20 64 69 67 65 73 74 20 2a 2f 0a ssage digest */.
2d80: 20 20 20 20 6d 64 20 3d 20 45 56 50 5f 67 65 74 md = EVP_get
2d90: 5f 64 69 67 65 73 74 62 79 6e 61 6d 65 28 6e 61 _digestbyname(na
2da0: 6d 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 6d 64 me);.. if (md
2db0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
2dc0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
2dd0: 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 64 terp, "Invalid d
2de0: 69 67 65 73 74 20 5c 22 22 2c 20 6e 61 6d 65 2c igest \"", name,
2df0: 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 "\"", NULL);..r
2e00: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
2e10: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
2e20: 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f et properties */
2e30: 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d . resultObj =
2e40: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
2e50: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 0, NULL);. if
2e60: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
2e70: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
2e80: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
2e90: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
2ea0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
2eb0: 6a 2c 20 22 6e 61 6d 65 22 2c 20 45 56 50 5f 4d j, "name", EVP_M
2ec0: 44 5f 6e 61 6d 65 28 6d 64 29 2c 20 2d 31 29 3b D_name(md), -1);
2ed0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
2ee0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
2ef0: 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e bj, "description
2f00: 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 ", "", -1);.
2f10: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
2f20: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
2f30: 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f 73 69 size", EVP_MD_si
2f40: 7a 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c 41 50 ze(md));. LAP
2f50: 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c PEND_INT(interp,
2f60: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 6c 6f resultObj, "blo
2f70: 63 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 ck_size", EVP_MD
2f80: 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 6d 64 29 29 _block_size(md))
2f90: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 ;. LAPPEND_ST
2fa0: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
2fb0: 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c Obj, "provider",
2fc0: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 "", -1);. LA
2fd0: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
2fe0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 , resultObj, "ty
2ff0: 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 pe", OBJ_nid2ln(
3000: 45 56 50 5f 4d 44 5f 74 79 70 65 28 6d 64 29 29 EVP_MD_type(md))
3010: 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 , -1);. LAPPE
3020: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
3030: 65 73 75 6c 74 4f 62 6a 2c 20 22 70 6b 65 79 5f esultObj, "pkey_
3040: 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c type", OBJ_nid2l
3050: 6e 28 45 56 50 5f 4d 44 5f 70 6b 65 79 5f 74 79 n(EVP_MD_pkey_ty
3060: 70 65 28 6d 64 29 29 2c 20 2d 31 29 3b 0a 20 20 pe(md)), -1);.
3070: 20 20 66 6c 61 67 73 20 3d 20 45 56 50 5f 4d 44 flags = EVP_MD
3080: 5f 66 6c 61 67 73 28 6d 64 29 3b 0a 0a 20 20 20 _flags(md);..
3090: 20 2f 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20 /* Flags */.
30a0: 20 6c 69 73 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e listObj = Tcl_N
30b0: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
30c0: 4c 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f L);. LAPPEND_
30d0: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
30e0: 74 4f 62 6a 2c 20 22 4f 6e 65 2d 73 68 6f 74 22 tObj, "One-shot"
30f0: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 , flags & EVP_MD
3100: 5f 46 4c 41 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a _FLAG_ONESHOT);.
3110: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c LAPPEND_BOOL
3120: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a (interp, listObj
3130: 2c 20 22 58 4f 46 22 2c 20 66 6c 61 67 73 20 26 , "XOF", flags &
3140: 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46 EVP_MD_FLAG_XOF
3150: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
3160: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
3170: 4f 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f Obj, "DigestAlgo
3180: 72 69 74 68 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66 rithmId_NULL", f
3190: 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c lags & EVP_MD_FL
31a0: 41 47 5f 44 49 47 41 4c 47 49 44 5f 4e 55 4c 4c AG_DIGALGID_NULL
31b0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
31c0: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
31d0: 4f 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f Obj, "DigestAlgo
31e0: 72 69 74 68 6d 49 64 5f 41 62 73 63 65 6e 74 22 rithmId_Abscent"
31f0: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 , flags & EVP_MD
3200: 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 41 _FLAG_DIGALGID_A
3210: 42 53 45 4e 54 29 3b 0a 20 20 20 20 4c 41 50 50 BSENT);. LAPP
3220: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
3230: 20 6c 69 73 74 4f 62 6a 2c 20 22 44 69 67 65 73 listObj, "Diges
3240: 74 41 6c 67 6f 72 69 74 68 6d 49 64 5f 43 75 73 tAlgorithmId_Cus
3250: 74 6f 6d 22 2c 20 66 6c 61 67 73 20 26 20 45 56 tom", flags & EV
3260: 50 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 P_MD_FLAG_DIGALG
3270: 49 44 5f 43 55 53 54 4f 4d 29 3b 0a 20 20 20 20 ID_CUSTOM);.
3280: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
3290: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 46 erp, listObj, "F
32a0: 49 50 53 22 2c 20 66 6c 61 67 73 20 26 20 45 56 IPS", flags & EV
32b0: 50 5f 4d 44 5f 46 4c 41 47 5f 46 49 50 53 29 3b P_MD_FLAG_FIPS);
32c0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a . LAPPEND_OBJ
32d0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
32e0: 62 6a 2c 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 bj, "flags", lis
32f0: 74 4f 62 6a 29 3b 0a 0a 20 20 20 20 54 63 6c 5f tObj);.. Tcl_
3300: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
3310: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
3320: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
3330: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
3340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3380: 20 2a 0a 20 2a 20 44 69 67 65 73 74 4c 69 73 74 *. * DigestList
3390: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e --. *. *.Return
33a0: 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 64 a list of all d
33b0: 69 67 65 73 74 20 61 6c 67 6f 72 69 74 68 6d 73 igest algorithms
33c0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
33d0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
33e0: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
33f0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
3400: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
3410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3450: 2f 0a 69 6e 74 20 44 69 67 65 73 74 4c 69 73 74 /.int DigestList
3460: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
3470: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f erp) {. Tcl_O
3480: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 bj *resultObj =
3490: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
34a0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
34b0: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
34c0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
34d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
34e0: 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 45 /* Same as E
34f0: 56 50 5f 4d 44 5f 64 6f 5f 61 6c 6c 20 2a 2f 0a VP_MD_do_all */.
3500: 20 20 20 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f OBJ_NAME_do_
3510: 61 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 all(OBJ_NAME_TYP
3520: 45 5f 4d 44 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 E_MD_METH, Names
3530: 43 61 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 Callback, (void
3540: 2a 29 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 *) resultObj);.
3550: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
3560: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
3570: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 ltObj);. retu
3580: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
3590: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
35a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 ------. *. * Dig
35e0: 65 73 74 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a estsObjCmd --. *
35f0: 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 . *.Return a lis
3600: 74 20 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 68 t of all valid h
3610: 61 73 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 6f ash algorithms o
3620: 72 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 r message digest
3630: 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 s.. *. * Results
3640: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
3650: 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 Tcl list.. *. *
3660: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
3670: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
3680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
36c0: 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 73 4f */.int DigestsO
36d0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
36e0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
36f0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3700: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
3710: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
3720: 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 ) {. dprintf(
3730: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
3740: 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 /* Clear errors
3750: 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 */. Tcl_Reset
3760: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
3770: 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 ERR_clear_er
3780: 72 6f 72 28 29 3b 0a 0a 0a 20 20 20 20 2f 2a 20 ror();... /*
3790: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
37a0: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
37b0: 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 jc == 1) {..retu
37c0: 72 6e 20 44 69 67 65 73 74 4c 69 73 74 28 69 6e rn DigestList(in
37d0: 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c terp);.. } el
37e0: 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 se if (objc == 2
37f0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69 67 65 ) {..return Dige
3800: 73 74 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6f stInfo(interp, o
3810: 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 bjv[1]);.. }
3820: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e else {..Tcl_Wron
3830: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
3840: 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 1, objv, "?name
3850: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c ?");..return TCL
3860: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
3870: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3880: 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 ..clientData = c
3890: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a lientData;.}../*
38a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
38b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
38c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
38d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
38e0: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
38f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3930: 0a 20 2a 20 4d 61 63 49 6e 66 6f 20 2d 2d 0a 20 . * MacInfo --.
3940: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 *. *.Return a li
3950: 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 st of properties
3960: 20 61 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 and values for
3970: 6d 61 63 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 macName.. *. * R
3980: 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 esults:. *.A sta
3990: 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a ndard Tcl list..
39a0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
39b0: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
39c0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a00: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 -----. */.int Ma
3a10: 63 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 cInfo(Tcl_Interp
3a20: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 *interp, Tcl_Ob
3a30: 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 j *nameObj) {.
3a40: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
3a50: 74 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 tObj;. int re
3a60: 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 s = TCL_OK;.
3a70: 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c char *name = Tcl
3a80: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
3a90: 6a 28 6e 61 6d 65 4f 62 6a 2c 4e 55 4c 4c 29 3b j(nameObj,NULL);
3aa0: 0a 0a 20 20 20 20 69 66 20 28 73 74 72 63 6d 70 .. if (strcmp
3ab0: 28 6e 61 6d 65 2c 20 22 63 6d 61 63 22 29 20 21 (name, "cmac") !
3ac0: 3d 20 30 20 26 26 20 73 74 72 63 6d 70 28 6e 61 = 0 && strcmp(na
3ad0: 6d 65 2c 20 22 68 6d 61 63 22 29 20 21 3d 20 30 me, "hmac") != 0
3ae0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
3af0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 esult(interp, "I
3b00: 6e 76 61 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 nvalid MAC \"",
3b10: 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c name, "\"", NULL
3b20: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
3b30: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
3b40: 20 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 /* Get properti
3b50: 65 73 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 es */. result
3b60: 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Obj = Tcl_NewLis
3b70: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 tObj(0, NULL);.
3b80: 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a if (resultObj
3b90: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 == NULL) {..ret
3ba0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3bb0: 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44 }. LAPPEND
3bc0: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
3bd0: 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 ultObj, "name",
3be0: 6e 61 6d 65 2c 20 2d 31 29 3b 0a 20 20 20 20 4c name, -1);. L
3bf0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
3c00: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 p, resultObj, "d
3c10: 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c escription", "",
3c20: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
3c30: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
3c40: 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 sultObj, "provid
3c50: 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 0a 20 er", "", -1);..
3c60: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
3c70: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
3c80: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 ltObj);. retu
3c90: 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a rn res;.}../*. *
3ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ce0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 4c 69 73 ---. *. * MacLis
3cf0: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 t --. *. *.Retur
3d00: 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 n a list of all
3d10: 4d 41 43 20 61 6c 67 6f 72 69 74 68 6d 73 0a 20 MAC algorithms.
3d20: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
3d30: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
3d40: 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 list.. *. * Side
3d50: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
3d60: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
3d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3db0: 69 6e 74 20 4d 61 63 4c 69 73 74 28 54 63 6c 5f int MacList(Tcl_
3dc0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
3dd0: 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 {. Tcl_Obj *r
3de0: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
3df0: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
3e00: 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 L);. if (resu
3e10: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
3e20: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3e30: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 OR;. }.. T
3e40: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
3e50: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
3e60: 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e resultObj, Tcl_N
3e70: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 63 6d 61 ewStringObj("cma
3e80: 63 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 c", -1));. Tc
3e90: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
3ea0: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 lement(interp, r
3eb0: 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 esultObj, Tcl_Ne
3ec0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 68 6d 61 63 wStringObj("hmac
3ed0: 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c ", -1));. Tcl
3ee0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
3ef0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 terp, resultObj)
3f00: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
3f10: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
3f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f60: 0a 20 2a 0a 20 2a 20 4d 61 63 73 4f 62 6a 43 6d . *. * MacsObjCm
3f70: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 d --. *. *.Retur
3f80: 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 n a list of all
3f90: 76 61 6c 69 64 20 6d 65 73 73 61 67 65 20 61 75 valid message au
3fa0: 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 63 6f 64 thentication cod
3fb0: 65 73 20 28 4d 41 43 29 2e 0a 20 2a 0a 20 2a 20 es (MAC).. *. *
3fc0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
3fd0: 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e andard Tcl list.
3fe0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
3ff0: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
4000: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
4010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4040: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d ------. */.int M
4050: 61 63 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 acsObjCmd(Client
4060: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
4070: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
4080: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
4090: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
40a0: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 64 70 72 69 jv[]) {. dpri
40b0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
40c0: 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 /* Clear err
40d0: 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 ors */. Tcl_R
40e0: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 esetResult(inter
40f0: 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 p);. ERR_clea
4100: 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 r_error();..
4110: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
4120: 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 count */. if
4130: 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 (objc == 1) {..r
4140: 65 74 75 72 6e 20 4d 61 63 4c 69 73 74 28 69 6e eturn MacList(in
4150: 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c terp);.. } el
4160: 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 se if (objc == 2
4170: 29 20 7b 0a 09 72 65 74 75 72 6e 20 4d 61 63 49 ) {..return MacI
4180: 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 nfo(interp, objv
4190: 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 [1]);.. } els
41a0: 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 e {..Tcl_WrongNu
41b0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
41c0: 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 objv, "?name?")
41d0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
41e0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ROR;. }. r
41f0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 eturn TCL_OK;..c
4200: 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 lientData = clie
4210: 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a ntData;.}../****
4220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4240: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
4260: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
4270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
42b0: 20 50 6b 65 79 49 6e 66 6f 20 2d 2d 0a 20 2a 0a PkeyInfo --. *.
42c0: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
42d0: 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 of properties a
42e0: 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 70 6b nd values for pk
42f0: 65 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ey.. *. * Result
4300: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
4310: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a Tcl list.. *. *
4320: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
4330: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d *.None.. *. *---
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 2d 2d 2d 2d 2d 2d 2d ----------------
4360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4380: 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 49 6e 66 . */.int PkeyInf
4390: 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e o(Tcl_Interp *in
43a0: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e terp, Tcl_Obj *n
43b0: 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 54 63 ameObj) {. Tc
43c0: 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a l_Obj *resultObj
43d0: 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 3d 20 ;. int res =
43e0: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 68 61 72 TCL_OK;. char
43f0: 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 *name = Tcl_Get
4400: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6e 61 StringFromObj(na
4410: 6d 65 4f 62 6a 2c 4e 55 4c 4c 29 3b 0a 20 20 20 meObj,NULL);.
4420: 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 20 EVP_PKEY *pkey
4430: 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 = NULL;.. if
4440: 28 70 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 20 7b (pkey == NULL) {
4450: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
4460: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 lt(interp, "Inva
4470: 6c 69 64 20 70 75 62 6c 69 63 20 6b 65 79 20 6d lid public key m
4480: 65 74 68 6f 64 20 5c 22 22 2c 20 6e 61 6d 65 2c ethod \"", name,
4490: 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 "\"", NULL);..r
44a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
44b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
44c0: 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f et properties */
44d0: 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d . resultObj =
44e0: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
44f0: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 0, NULL);. if
4500: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
4510: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
4520: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
4530: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
4540: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
4550: 6a 2c 20 22 6e 61 6d 65 22 2c 20 4f 42 4a 5f 6e j, "name", OBJ_n
4560: 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 69 id2ln(EVP_PKEY_i
4570: 64 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a 20 d(pkey)), -1);.
4580: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
4590: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
45a0: 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 2c , "description",
45b0: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 "", -1);. LA
45c0: 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 PPEND_INT(interp
45d0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73 69 , resultObj, "si
45e0: 7a 65 22 2c 20 45 56 50 5f 50 4b 45 59 5f 73 69 ze", EVP_PKEY_si
45f0: 7a 65 28 70 6b 65 79 29 29 3b 0a 20 20 20 20 4c ze(pkey));. L
4600: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
4610: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 p, resultObj, "b
4620: 69 74 73 22 2c 20 45 56 50 5f 50 4b 45 59 5f 62 its", EVP_PKEY_b
4630: 69 74 73 28 70 6b 65 79 29 29 3b 0a 20 20 20 20 its(pkey));.
4640: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
4650: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
4660: 73 65 63 75 72 69 74 79 5f 62 69 74 73 22 2c 20 security_bits",
4670: 45 56 50 5f 50 4b 45 59 5f 73 65 63 75 72 69 74 EVP_PKEY_securit
4680: 79 5f 62 69 74 73 28 70 6b 65 79 29 29 3b 0a 20 y_bits(pkey));.
4690: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
46a0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
46b0: 2c 20 22 62 61 73 65 49 64 22 2c 20 4f 42 4a 5f , "baseId", OBJ_
46c0: 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f nid2ln(EVP_PKEY_
46d0: 62 61 73 65 5f 69 64 28 70 6b 65 79 29 29 2c 20 base_id(pkey)),
46e0: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 -1);. LAPPEND
46f0: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
4700: 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 ultObj, "provide
4710: 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 r", "", -1);.
4720: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
4730: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
4740: 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 "type", OBJ_nid2
4750: 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 74 79 70 65 ln(EVP_PKEY_type
4760: 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b 65 (EVP_PKEY_id(pke
4770: 79 29 29 29 2c 20 2d 31 29 3b 0a 0a 20 20 20 20 y))), -1);..
4780: 7b 0a 09 69 6e 74 20 70 6e 69 64 3b 0a 09 69 66 {..int pnid;..if
4790: 20 28 45 56 50 5f 50 4b 45 59 5f 67 65 74 5f 64 (EVP_PKEY_get_d
47a0: 65 66 61 75 6c 74 5f 64 69 67 65 73 74 5f 6e 69 efault_digest_ni
47b0: 64 28 70 6b 65 79 2c 20 26 70 6e 69 64 29 20 3e d(pkey, &pnid) >
47c0: 20 30 29 20 7b 0a 09 20 20 20 20 4c 41 50 50 45 0) {.. LAPPE
47d0: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
47e0: 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 66 61 75 esultObj, "defau
47f0: 6c 74 5f 64 69 67 65 73 74 22 2c 20 4f 42 4a 5f lt_digest", OBJ_
4800: 6e 69 64 32 6c 6e 28 70 6e 69 64 29 2c 20 2d 32 nid2ln(pnid), -2
4810: 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 );..}. }..
4820: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
4830: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
4840: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
4850: 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d res;.}../*. *--
4860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48a0: 2d 0a 20 2a 0a 20 2a 20 50 6b 65 79 4c 69 73 74 -. *. * PkeyList
48b0: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e --. *. *.Return
48c0: 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 70 a list of all p
48d0: 75 62 6c 69 63 20 6b 65 79 20 6d 65 74 68 6f 64 ublic key method
48e0: 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a s. *. * Results:
48f0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
4900: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
4910: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4920: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
4930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4970: 2a 2f 0a 69 6e 74 20 50 6b 65 79 4c 69 73 74 28 */.int PkeyList(
4980: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
4990: 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 rp) {. Tcl_Ob
49a0: 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 j *resultObj = T
49b0: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
49c0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 NULL);. if (
49d0: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
49e0: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
49f0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
4a00: 20 20 20 66 6f 72 20 28 73 69 7a 65 5f 74 20 69 for (size_t i
4a10: 20 3d 20 30 3b 20 69 20 3c 20 45 56 50 5f 50 4b = 0; i < EVP_PK
4a20: 45 59 5f 6d 65 74 68 5f 67 65 74 5f 63 6f 75 6e EY_meth_get_coun
4a30: 74 28 29 3b 20 69 2b 2b 29 20 7b 0a 20 20 20 20 t(); i++) {.
4a40: 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 50 4b const EVP_PK
4a50: 45 59 5f 4d 45 54 48 4f 44 20 2a 70 6d 65 74 68 EY_METHOD *pmeth
4a60: 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 68 = EVP_PKEY_meth
4a70: 5f 67 65 74 30 28 69 29 3b 0a 20 20 20 20 20 20 _get0(i);.
4a80: 20 20 69 6e 74 20 70 6b 65 79 5f 69 64 2c 20 70 int pkey_id, p
4a90: 6b 65 79 5f 66 6c 61 67 73 3b 0a 0a 20 20 20 20 key_flags;..
4aa0: 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 EVP_PKEY_met
4ab0: 68 5f 67 65 74 30 5f 69 6e 66 6f 28 26 70 6b 65 h_get0_info(&pke
4ac0: 79 5f 69 64 2c 20 26 70 6b 65 79 5f 66 6c 61 67 y_id, &pkey_flag
4ad0: 73 2c 20 70 6d 65 74 68 29 3b 0a 09 2f 2a 4c 41 s, pmeth);../*LA
4ae0: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
4af0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 , resultObj, "na
4b00: 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 me", OBJ_nid2ln(
4b10: 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29 3b 0a 09 pkey_id), -1);..
4b20: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
4b30: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
4b40: 74 79 70 65 22 2c 20 70 6b 65 79 5f 66 6c 61 67 type", pkey_flag
4b50: 73 20 26 20 41 53 4e 31 5f 50 4b 45 59 5f 44 59 s & ASN1_PKEY_DY
4b60: 4e 41 4d 49 43 20 3f 20 22 45 78 74 65 72 6e 61 NAMIC ? "Externa
4b70: 6c 22 20 3a 20 22 42 75 69 6c 74 2d 69 6e 22 2c l" : "Built-in",
4b80: 20 2d 31 29 3b 2a 2f 0a 0a 09 54 63 6c 5f 4c 69 -1);*/...Tcl_Li
4b90: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
4ba0: 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c nt(interp, resul
4bb0: 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 tObj, Tcl_NewStr
4bc0: 69 6e 67 4f 62 6a 28 4f 42 4a 5f 6e 69 64 32 6c ingObj(OBJ_nid2l
4bd0: 6e 28 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29 29 n(pkey_id), -1))
4be0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f ;. }. Tcl_
4bf0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
4c00: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
4c10: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4c20: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
4c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4c70: 20 2a 0a 20 2a 20 50 6b 65 79 73 4f 62 6a 43 6d *. * PkeysObjCm
4c80: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 d --. *. *.Retur
4c90: 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 n a list of all
4ca0: 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 6f 72 valid hash algor
4cb0: 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 67 65 ithms or message
4cc0: 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a 20 digests.. *. *
4cd0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
4ce0: 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e andard Tcl list.
4cf0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
4d00: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
4d10: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
4d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d50: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 ------. */.int P
4d60: 6b 65 79 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e keysObjCmd(Clien
4d70: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
4d80: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
4d90: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
4da0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
4db0: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 64 70 72 bjv[]) {. dpr
4dc0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
4dd0: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 . /* Clear er
4de0: 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f rors */. Tcl_
4df0: 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 ResetResult(inte
4e00: 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 rp);. ERR_cle
4e10: 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 ar_error();..
4e20: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 /* Validate arg
4e30: 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 count */. if
4e40: 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 (objc == 1) {..
4e50: 72 65 74 75 72 6e 20 50 6b 65 79 4c 69 73 74 28 return PkeyList(
4e60: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 interp);.. }
4e70: 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d else if (objc ==
4e80: 20 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 50 6b 2) {..return Pk
4e90: 65 79 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6f eyInfo(interp, o
4ea0: 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 bjv[1]);.. }
4eb0: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e else {..Tcl_Wron
4ec0: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
4ed0: 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 1, objv, "?name
4ee0: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c ?");..return TCL
4ef0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
4f00: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
4f10: 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 ..clientData = c
4f20: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a lientData;.}../*
4f30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4f40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4f50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4f60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4f70: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
4f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4fc0: 0a 20 2a 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a . * ProtocolsObj
4fd0: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 Cmd --. *. *.Ret
4fe0: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 urn a list of th
4ff0: 65 20 61 76 61 69 6c 61 62 6c 65 20 6f 72 20 73 e available or s
5000: 75 70 70 6f 72 74 65 64 20 53 53 4c 2f 54 4c 53 upported SSL/TLS
5010: 20 70 72 6f 74 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 protocols.. *.
5020: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
5030: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 standard Tcl lis
5040: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
5050: 66 65 63 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 fects:. *.none.
5060: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
50a0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
50b0: 69 63 20 69 6e 74 0a 50 72 6f 74 6f 63 6f 6c 73 ic int.Protocols
50c0: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
50d0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
50e0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
50f0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
5100: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
5110: 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a ]) {. Tcl_Obj
5120: 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 *resultObj;..
5130: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
5140: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 d");.. /* Cle
5150: 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 ar errors */.
5160: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 Tcl_ResetResult
5170: 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 (interp);. ER
5180: 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b R_clear_error();
5190: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
51a0: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
51b0: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 if (objc != 1
51c0: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
51d0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
51e0: 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 objv, NULL);..r
51f0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5200: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c . }.. /* L
5210: 69 73 74 20 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c ist all protocol
5220: 73 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f s */. resultO
5230: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
5240: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
5250: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
5260: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
5270: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
5280: 20 20 7d 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f }.#if OPENSSL_
5290: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c VERSION_NUMBER <
52a0: 20 30 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 0x10100000L &&
52b0: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 !defined(NO_SSL2
52c0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
52d0: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 ENSSL_NO_SSL2).
52e0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
52f0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
5300: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
5310: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
5320: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53 protocols[TLS_SS
5330: 4c 32 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 L2], -1));.#endi
5340: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
5350: 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 O_SSL3) && !defi
5360: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 ned(OPENSSL_NO_S
5370: 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 SL3) && !defined
5380: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
5390: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c _METHOD). Tcl
53a0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
53b0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
53c0: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
53d0: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 StringObj(protoc
53e0: 6f 6c 73 5b 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d ols[TLS_SSL3], -
53f0: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 1));.#endif.#if
5400: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
5410: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
5420: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 ENSSL_NO_TLS1) &
5430: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
5440: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f SL_NO_TLS1_METHO
5450: 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f D). Tcl_ListO
5460: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
5470: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
5480: 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 j, Tcl_NewString
5490: 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c Obj(protocols[TL
54a0: 53 5f 54 4c 53 31 5d 2c 20 2d 31 29 29 3b 0a 23 S_TLS1], -1));.#
54b0: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
54c0: 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 ed(NO_TLS1_1) &&
54d0: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
54e0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 L_NO_TLS1_1) &&
54f0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
5500: 5f 4e 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f _NO_TLS1_1_METHO
5510: 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f D). Tcl_ListO
5520: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
5530: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
5540: 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 j, Tcl_NewString
5550: 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c Obj(protocols[TL
5560: 53 5f 54 4c 53 31 5f 31 5d 2c 20 2d 31 29 29 3b S_TLS1_1], -1));
5570: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
5580: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 ined(NO_TLS1_2)
5590: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
55a0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 SSL_NO_TLS1_2) &
55b0: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
55c0: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 SL_NO_TLS1_2_MET
55d0: 48 4f 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 HOD). Tcl_Lis
55e0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
55f0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
5600: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
5610: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b ngObj(protocols[
5620: 54 4c 53 5f 54 4c 53 31 5f 32 5d 2c 20 2d 31 29 TLS_TLS1_2], -1)
5630: 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 );.#endif.#if !d
5640: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 efined(NO_TLS1_3
5650: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
5660: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 ENSSL_NO_TLS1_3)
5670: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
5680: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
5690: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
56a0: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
56b0: 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f j(protocols[TLS_
56c0: 54 4c 53 31 5f 33 5d 2c 20 2d 31 29 29 3b 0a 23 TLS1_3], -1));.#
56d0: 65 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f 53 65 endif. Tcl_Se
56e0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
56f0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 p, resultObj);.
5700: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
5710: 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 ;..clientData =
5720: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f clientData;.}../
5730: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5740: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5770: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
5780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
57c0: 2a 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a 43 *. * VersionObjC
57d0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
57e0: 72 6e 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 rn a string with
57f0: 20 74 68 65 20 4f 70 65 6e 53 53 4c 20 76 65 72 the OpenSSL ver
5800: 73 69 6f 6e 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a sion info.. *. *
5810: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
5820: 74 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 tandard Tcl resu
5830: 6c 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 lt.. *. * Side e
5840: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
5850: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
5860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
58a0: 61 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f 6e atic int.Version
58b0: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
58c0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
58d0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
58e0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
58f0: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
5900: 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a ]) {. Tcl_Obj
5910: 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 *resultObj;..
5920: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
5930: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c d");.. /* Val
5940: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
5950: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
5960: 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f 57 72 6f != 1) {..Tcl_Wro
5970: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
5980: 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 , 1, objv, NULL)
5990: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
59a0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
59b0: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
59c0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 4f 50 45 NewStringObj(OPE
59d0: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 54 45 58 NSSL_VERSION_TEX
59e0: 54 2c 20 2d 31 29 3b 0a 20 20 20 20 54 63 6c 5f T, -1);. Tcl_
59f0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
5a00: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
5a10: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
5a20: 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 OK;..clientData
5a30: 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a = clientData;.}.
5a40: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
5a50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5a60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5a70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5a80: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d *****/../*. *---
5a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ad0: 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 66 6f 43 . *. * Tls_InfoC
5ae0: 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a ommands --. *. *
5af0: 09 43 72 65 61 74 65 20 69 6e 66 6f 20 63 6f 6d .Create info com
5b00: 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 74 75 mands. *. * Retu
5b10: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
5b20: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
5b30: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
5b40: 20 2a 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 *.Creates comma
5b50: 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d nds. *. *-------
5b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
5ba0: 0a 69 6e 74 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d .int Tls_InfoCom
5bb0: 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 mands(Tcl_Interp
5bc0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 0a 23 69 66 *interp) {..#if
5bd0: 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e OPENSSL_VERSION
5be0: 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31 30 _NUMBER < 0x1010
5bf0: 30 30 30 30 4c 0a 20 20 20 20 4f 70 65 6e 53 53 0000L. OpenSS
5c00: 4c 5f 61 64 64 5f 61 6c 6c 5f 63 69 70 68 65 72 L_add_all_cipher
5c10: 73 28 29 3b 0a 20 20 20 20 4f 70 65 6e 53 53 4c s();. OpenSSL
5c20: 5f 61 64 64 5f 61 6c 6c 5f 64 69 67 65 73 74 73 _add_all_digests
5c30: 28 29 3b 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f ();. OpenSSL_
5c40: 61 64 64 5f 61 6c 6c 5f 61 6c 67 6f 72 69 74 68 add_all_algorith
5c50: 6d 73 28 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 ms();.#endif..
5c60: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
5c70: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
5c80: 74 6c 73 3a 3a 63 69 70 68 65 72 22 2c 20 43 69 tls::cipher", Ci
5c90: 70 68 65 72 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 pherObjCmd, (Cli
5ca0: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
5cb0: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
5cc0: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
5cd0: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
5ce0: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
5cf0: 63 69 70 68 65 72 73 22 2c 20 43 69 70 68 65 72 ciphers", Cipher
5d00: 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 sObjCmd, (Client
5d10: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
5d20: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
5d30: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
5d40: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
5d50: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 64 69 67 nterp, "tls::dig
5d60: 65 73 74 73 22 2c 20 44 69 67 65 73 74 73 4f 62 ests", DigestsOb
5d70: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
5d80: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
5d90: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
5da0: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
5db0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
5dc0: 72 70 2c 20 22 74 6c 73 3a 3a 6d 61 63 73 22 2c rp, "tls::macs",
5dd0: 20 4d 61 63 73 4f 62 6a 43 6d 64 2c 20 28 43 6c MacsObjCmd, (Cl
5de0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
5df0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
5e00: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 *) NULL);. Tc
5e10: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
5e20: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
5e30: 3a 70 6b 65 79 73 22 2c 20 50 6b 65 79 73 4f 62 :pkeys", PkeysOb
5e40: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
5e50: 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 a) 0, (Tcl_CmdDe
5e60: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
5e70: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
5e80: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
5e90: 72 70 2c 20 22 74 6c 73 3a 3a 70 72 6f 74 6f 63 rp, "tls::protoc
5ea0: 6f 6c 73 22 2c 20 50 72 6f 74 6f 63 6f 6c 73 4f ols", ProtocolsO
5eb0: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
5ec0: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
5ed0: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
5ee0: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
5ef0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
5f00: 65 72 70 2c 20 22 74 6c 73 3a 3a 76 65 72 73 69 erp, "tls::versi
5f10: 6f 6e 22 2c 20 56 65 72 73 69 6f 6e 4f 62 6a 43 on", VersionObjC
5f20: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
5f30: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
5f40: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
5f50: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
5f60: 4f 4b 3b 0a 7d 0a 0a OK;.}..