0000: 2f 2a 0a 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f /*. * Informatio
0010: 6e 20 43 6f 6d 6d 61 6e 64 73 20 4d 6f 64 75 6c n Commands Modul
0020: 65 0a 20 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 e. *. * Provides
0030: 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 72 commands that r
0040: 65 74 75 72 6e 20 69 6e 66 6f 20 72 65 6c 61 74 eturn info relat
0050: 65 64 20 74 6f 20 74 68 65 20 4f 70 65 6e 53 53 ed to the OpenSS
0060: 4c 20 63 6f 6e 66 69 67 20 61 6e 64 20 64 61 74 L config and dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 63 72 79 ude <openssl/cry
00e0: 70 74 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 pto.h>.#include
00f0: 3c 6f 70 65 6e 73 73 6c 2f 73 73 6c 2e 68 3e 0a <openssl/ssl.h>.
0100: 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e 73 73 #include <openss
0110: 6c 2f 73 61 66 65 73 74 61 63 6b 2e 68 3e 0a 0a l/safestack.h>..
0120: 2f 2a 0a 20 2a 20 56 61 6c 69 64 20 53 53 4c 20 /*. * Valid SSL
0130: 61 6e 64 20 54 4c 53 20 50 72 6f 74 6f 63 6f 6c and TLS Protocol
0140: 20 56 65 72 73 69 6f 6e 73 0a 20 2a 2f 0a 73 74 Versions. */.st
0150: 61 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 atic const char
0160: 2a 70 72 6f 74 6f 63 6f 6c 73 5b 5d 20 3d 20 7b *protocols[] = {
0170: 0a 09 22 73 73 6c 32 22 2c 20 22 73 73 6c 33 22 .."ssl2", "ssl3"
0180: 2c 20 22 74 6c 73 31 22 2c 20 22 74 6c 73 31 2e , "tls1", "tls1.
0190: 31 22 2c 20 22 74 6c 73 31 2e 32 22 2c 20 22 74 1", "tls1.2", "t
01a0: 6c 73 31 2e 33 22 2c 20 4e 55 4c 4c 0a 7d 3b 0a ls1.3", NULL.};.
01b0: 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 20 7b 0a enum protocol {.
01c0: 20 20 20 20 54 4c 53 5f 53 53 4c 32 2c 20 54 4c TLS_SSL2, TL
01d0: 53 5f 53 53 4c 33 2c 20 54 4c 53 5f 54 4c 53 31 S_SSL3, TLS_TLS1
01e0: 2c 20 54 4c 53 5f 54 4c 53 31 5f 31 2c 20 54 4c , TLS_TLS1_1, TL
01f0: 53 5f 54 4c 53 31 5f 32 2c 20 54 4c 53 5f 54 4c S_TLS1_2, TLS_TL
0200: 53 31 5f 33 2c 20 54 4c 53 5f 4e 4f 4e 45 0a 7d S1_3, TLS_NONE.}
0210: 3b 0a 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ;.../*. *-------
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
0260: 20 2a 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b * NamesCallback
0270: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 62 61 --. *. *.Callba
0280: 63 6b 20 74 6f 20 61 64 64 20 61 6c 67 6f 72 69 ck to add algori
0290: 74 68 6d 20 6f 72 20 6d 65 74 68 6f 64 20 6e 61 thm or method na
02a0: 6d 65 73 20 74 6f 20 61 20 54 43 4c 20 6c 69 73 mes to a TCL lis
02b0: 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20 2a 20 t object.. *. *
02c0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 70 70 65 Results:. *.Appe
02d0: 6e 64 20 6e 61 6d 65 20 74 6f 20 54 43 4c 20 6c nd name to TCL l
02e0: 69 73 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20 ist object.. *.
02f0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0300: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
0310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0350: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 4e 61 6d 65 73 -. */.void Names
0360: 43 61 6c 6c 62 61 63 6b 28 63 6f 6e 73 74 20 4f Callback(const O
0370: 42 4a 5f 4e 41 4d 45 20 2a 6f 62 6a 2c 20 76 6f BJ_NAME *obj, vo
0380: 69 64 20 2a 61 72 67 29 20 7b 0a 20 20 20 20 54 id *arg) {. T
0390: 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d cl_Obj *objPtr =
03a0: 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 61 72 67 (Tcl_Obj *) arg
03b0: 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 65 6c 64 73 ;.. /* Fields
03c0: 3a 20 28 69 6e 74 29 20 74 79 70 65 20 61 6e 64 : (int) type and
03d0: 20 61 6c 69 61 73 2c 20 28 63 6f 6e 73 74 20 63 alias, (const c
03e0: 68 61 72 2a 29 20 6e 61 6d 65 20 61 6e 64 20 64 har*) name and d
03f0: 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 31 ata */. if (1
0400: 20 7c 7c 20 21 6f 62 6a 2d 3e 61 6c 69 61 73 29 || !obj->alias)
0410: 20 7b 0a 09 2f 2a 20 46 69 6c 74 65 72 20 6f 75 {../* Filter ou
0420: 74 20 73 69 67 6e 65 64 20 64 69 67 65 73 74 73 t signed digests
0430: 20 28 61 2e 6b 2e 61 20 73 69 67 6e 61 74 75 72 (a.k.a signatur
0440: 65 20 61 6c 67 6f 72 69 74 68 6d 73 29 20 2a 2f e algorithms) */
0450: 0a 09 69 66 20 28 73 74 72 73 74 72 28 6f 62 6a ..if (strstr(obj
0460: 2d 3e 6e 61 6d 65 2c 20 22 72 73 61 22 29 20 3d ->name, "rsa") =
0470: 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 73 74 72 = NULL && strstr
0480: 28 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 22 52 53 41 (obj->name, "RSA
0490: 22 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 ") == NULL) {..
04a0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
04b0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c pendElement(NULL
04c0: 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 , objPtr, Tcl_Ne
04d0: 77 53 74 72 69 6e 67 4f 62 6a 28 6f 62 6a 2d 3e wStringObj(obj->
04e0: 6e 61 6d 65 2c 2d 31 29 29 3b 0a 09 7d 0a 20 20 name,-1));..}.
04f0: 20 20 7d 0a 7d 0a 0a 2f 2a 2a 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 2f 0a 0a 2f 2a ***********/../*
0540: 0a 20 2a 2d 2d 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 0a 20 2a 0a 20 2a 20 43 69 70 ------. *. * Cip
0590: 68 65 72 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a herInfo --. *. *
05a0: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f .Return a list o
05b0: 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 f properties and
05c0: 20 76 61 6c 75 65 73 20 66 6f 72 20 63 69 70 68 values for ciph
05d0: 65 72 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 erName.. *. * Re
05e0: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
05f0: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 dard Tcl list..
0600: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
0610: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 s:. *.None.. *.
0620: 2a 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 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
0670: 69 6e 74 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 int CipherObjCmd
0680: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
0690: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
06a0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
06b0: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
06c0: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 onst objv[]) {.
06d0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 Tcl_Obj *objP
06e0: 74 72 2c 20 2a 6c 69 73 74 50 74 72 3b 0a 20 20 tr, *listPtr;.
06f0: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
0700: 2a 63 69 70 68 65 72 4e 61 6d 65 20 3d 20 4e 55 *cipherName = NU
0710: 4c 4c 2c 20 2a 6d 6f 64 65 4e 61 6d 65 20 3d 20 LL, *modeName =
0720: 4e 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 NULL;. const
0730: 45 56 50 5f 43 49 50 48 45 52 20 2a 63 69 70 68 EVP_CIPHER *ciph
0740: 65 72 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 er;. unsigned
0750: 20 6c 6f 6e 67 20 66 6c 61 67 73 2c 20 6d 6f 64 long flags, mod
0760: 65 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f e;..#if OPENSSL_
0770: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c VERSION_NUMBER <
0780: 20 30 78 31 30 31 30 30 30 30 30 4c 0a 20 20 20 0x10100000L.
0790: 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c OpenSSL_add_all
07a0: 5f 63 69 70 68 65 72 73 28 29 3b 20 2f 2a 20 4d _ciphers(); /* M
07b0: 61 6b 65 20 73 75 72 65 20 74 68 65 79 27 72 65 ake sure they're
07c0: 20 6c 6f 61 64 65 64 20 2a 2f 0a 23 65 6e 64 69 loaded */.#endi
07d0: 66 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 f.. /* Clear
07e0: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 errors */. Tc
07f0: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
0800: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 terp);. ERR_c
0810: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 lear_error();..
0820: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
0830: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
0840: 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b if (objc != 2) {
0850: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
0860: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
0870: 6a 76 2c 20 22 6e 61 6d 65 22 29 3b 0a 09 72 65 jv, "name");..re
0880: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
0890: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
08a0: 74 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 20 20 t cipher */.
08b0: 63 69 70 68 65 72 4e 61 6d 65 20 3d 20 54 63 6c cipherName = Tcl
08c0: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
08d0: 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c 4c 29 j(objv[1], NULL)
08e0: 3b 0a 20 20 20 20 63 69 70 68 65 72 20 3d 20 45 ;. cipher = E
08f0: 56 50 5f 67 65 74 5f 63 69 70 68 65 72 62 79 6e VP_get_cipherbyn
0900: 61 6d 65 28 63 69 70 68 65 72 4e 61 6d 65 29 3b ame(cipherName);
0910: 0a 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 .. if (cipher
0920: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
0930: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
0940: 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 63 terp, "Invalid c
0950: 69 70 68 65 72 20 5c 22 22 2c 20 63 69 70 68 65 ipher \"", ciphe
0960: 72 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c rName, "\"", NUL
0970: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
0980: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
0990: 20 20 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 /* Get propert
09a0: 69 65 73 20 2a 2f 0a 20 20 20 20 6f 62 6a 50 74 ies */. objPt
09b0: 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f r = Tcl_NewListO
09c0: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 bj(0, NULL);.
09d0: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
09e0: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 6e 69 erp, objPtr, "ni
09f0: 64 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 d", OBJ_nid2ln(E
0a00: 56 50 5f 43 49 50 48 45 52 5f 6e 69 64 28 63 69 VP_CIPHER_nid(ci
0a10: 70 68 65 72 29 29 2c 20 2d 31 29 3b 0a 20 20 20 pher)), -1);.
0a20: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
0a30: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 6e 61 erp, objPtr, "na
0a40: 6d 65 22 2c 20 45 56 50 5f 43 49 50 48 45 52 5f me", EVP_CIPHER_
0a50: 6e 61 6d 65 28 63 69 70 68 65 72 29 2c 20 2d 31 name(cipher), -1
0a60: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 );. LAPPEND_S
0a70: 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 TR(interp, objPt
0a80: 72 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 r, "description"
0a90: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c , "", -1);. L
0aa0: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
0ab0: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 62 6c 6f 63 p, objPtr, "bloc
0ac0: 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 43 49 50 k_size", EVP_CIP
0ad0: 48 45 52 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 63 HER_block_size(c
0ae0: 69 70 68 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 ipher));. LAP
0af0: 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c PEND_INT(interp,
0b00: 20 6f 62 6a 50 74 72 2c 20 22 6b 65 79 5f 6c 65 objPtr, "key_le
0b10: 6e 67 74 68 22 2c 20 45 56 50 5f 43 49 50 48 45 ngth", EVP_CIPHE
0b20: 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 R_key_length(cip
0b30: 68 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 her));. LAPPE
0b40: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f ND_INT(interp, o
0b50: 62 6a 50 74 72 2c 20 22 69 76 5f 6c 65 6e 67 74 bjPtr, "iv_lengt
0b60: 68 22 2c 20 45 56 50 5f 43 49 50 48 45 52 5f 69 h", EVP_CIPHER_i
0b70: 76 5f 6c 65 6e 67 74 68 28 63 69 70 68 65 72 29 v_length(cipher)
0b80: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 );. LAPPEND_S
0b90: 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 TR(interp, objPt
0ba0: 72 2c 20 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e r, "type", OBJ_n
0bb0: 69 64 32 6c 6e 28 45 56 50 5f 43 49 50 48 45 52 id2ln(EVP_CIPHER
0bc0: 5f 74 79 70 65 28 63 69 70 68 65 72 29 29 2c 20 _type(cipher)),
0bd0: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 -1);. LAPPEND
0be0: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 6a _STR(interp, obj
0bf0: 50 74 72 2c 20 22 70 72 6f 76 69 64 65 72 22 2c Ptr, "provider",
0c00: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 66 6c "", -1);. fl
0c10: 61 67 73 20 3d 20 45 56 50 5f 43 49 50 48 45 52 ags = EVP_CIPHER
0c20: 5f 66 6c 61 67 73 28 63 69 70 68 65 72 29 3b 0a _flags(cipher);.
0c30: 20 20 20 20 6d 6f 64 65 20 20 3d 20 45 56 50 5f mode = EVP_
0c40: 43 49 50 48 45 52 5f 6d 6f 64 65 28 63 69 70 68 CIPHER_mode(ciph
0c50: 65 72 29 3b 0a 0a 20 20 20 20 2f 2a 20 45 56 50 er);.. /* EVP
0c60: 5f 43 49 50 48 45 52 5f 67 65 74 5f 6d 6f 64 65 _CIPHER_get_mode
0c70: 20 2a 2f 0a 20 20 20 20 73 77 69 74 63 68 28 6d */. switch(m
0c80: 6f 64 65 29 20 7b 0a 09 63 61 73 65 20 45 56 50 ode) {..case EVP
0c90: 5f 43 49 50 48 5f 53 54 52 45 41 4d 5f 43 49 50 _CIPH_STREAM_CIP
0ca0: 48 45 52 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 HER:.. modeNa
0cb0: 6d 65 20 3d 20 22 53 54 52 45 41 4d 22 3b 0a 09 me = "STREAM";..
0cc0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 break;..case
0cd0: 20 45 56 50 5f 43 49 50 48 5f 45 43 42 5f 4d 4f EVP_CIPH_ECB_MO
0ce0: 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d DE:.. modeNam
0cf0: 65 20 3d 20 22 45 43 42 22 3b 0a 09 20 20 20 20 e = "ECB";..
0d00: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 break;..case EVP
0d10: 5f 43 49 50 48 5f 43 42 43 5f 4d 4f 44 45 3a 0a _CIPH_CBC_MODE:.
0d20: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 . modeName =
0d30: 22 43 42 43 22 3b 0a 09 20 20 20 20 62 72 65 61 "CBC";.. brea
0d40: 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 k;..case EVP_CIP
0d50: 48 5f 43 46 42 5f 4d 4f 44 45 3a 0a 09 20 20 20 H_CFB_MODE:..
0d60: 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 46 42 modeName = "CFB
0d70: 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 ";.. break;..
0d80: 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 4f 46 case EVP_CIPH_OF
0d90: 42 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 B_MODE:.. mod
0da0: 65 4e 61 6d 65 20 3d 20 22 4f 46 42 22 3b 0a 09 eName = "OFB";..
0db0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 break;..case
0dc0: 20 45 56 50 5f 43 49 50 48 5f 43 54 52 5f 4d 4f EVP_CIPH_CTR_MO
0dd0: 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d DE:.. modeNam
0de0: 65 20 3d 20 22 43 54 52 22 3b 0a 09 20 20 20 20 e = "CTR";..
0df0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 break;..case EVP
0e00: 5f 43 49 50 48 5f 47 43 4d 5f 4d 4f 44 45 3a 0a _CIPH_GCM_MODE:.
0e10: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 . modeName =
0e20: 22 47 43 4d 22 3b 0a 09 20 20 20 20 62 72 65 61 "GCM";.. brea
0e30: 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 k;..case EVP_CIP
0e40: 48 5f 58 54 53 5f 4d 4f 44 45 3a 0a 09 20 20 20 H_XTS_MODE:..
0e50: 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 58 54 53 modeName = "XTS
0e60: 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 ";.. break;..
0e70: 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 43 43 case EVP_CIPH_CC
0e80: 4d 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 M_MODE:.. mod
0e90: 65 4e 61 6d 65 20 3d 20 22 43 43 4d 22 3b 0a 09 eName = "CCM";..
0ea0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 break;..case
0eb0: 20 45 56 50 5f 43 49 50 48 5f 4f 43 42 5f 4d 4f EVP_CIPH_OCB_MO
0ec0: 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d DE:.. modeNam
0ed0: 65 20 3d 20 22 4f 43 42 22 3b 0a 09 20 20 20 20 e = "OCB";..
0ee0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 break;..case EVP
0ef0: 5f 43 49 50 48 5f 57 52 41 50 5f 4d 4f 44 45 20 _CIPH_WRAP_MODE
0f00: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0f10: 3d 20 22 57 52 41 50 22 3b 0a 09 20 20 20 20 62 = "WRAP";.. b
0f20: 72 65 61 6b 3b 0a 09 64 65 66 61 75 6c 74 3a 0a reak;..default:.
0f30: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 . modeName =
0f40: 22 75 6e 6b 6e 6f 77 6e 22 3b 0a 09 20 20 20 20 "unknown";..
0f50: 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 break;. }.
0f60: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
0f70: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 6d 6f erp, objPtr, "mo
0f80: 64 65 22 2c 20 6d 6f 64 65 4e 61 6d 65 2c 20 2d de", modeName, -
0f90: 31 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c 61 67 1);.. /* Flag
0fa0: 73 20 2a 2f 0a 20 20 20 20 6c 69 73 74 50 74 72 s */. listPtr
0fb0: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
0fc0: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 j(0, NULL);.
0fd0: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
0fe0: 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 56 erp, listPtr, "V
0ff0: 61 72 69 61 62 6c 65 20 4c 65 6e 67 74 68 22 2c ariable Length",
1000: 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 flags & EVP_CIP
1010: 48 5f 56 41 52 49 41 42 4c 45 5f 4c 45 4e 47 54 H_VARIABLE_LENGT
1020: 48 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f H);. LAPPEND_
1030: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
1040: 74 50 74 72 2c 20 22 41 6c 77 61 79 73 20 43 61 tPtr, "Always Ca
1050: 6c 6c 20 49 6e 69 74 22 2c 20 66 6c 61 67 73 20 ll Init", flags
1060: 26 20 45 56 50 5f 43 49 50 48 5f 41 4c 57 41 59 & EVP_CIPH_ALWAY
1070: 53 5f 43 41 4c 4c 5f 49 4e 49 54 29 3b 0a 20 20 S_CALL_INIT);.
1080: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 LAPPEND_BOOL(i
1090: 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 nterp, listPtr,
10a0: 22 43 75 73 74 6f 6d 20 49 56 22 2c 20 66 6c 61 "Custom IV", fla
10b0: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 55 gs & EVP_CIPH_CU
10c0: 53 54 4f 4d 5f 49 56 29 3b 0a 20 20 20 20 4c 41 STOM_IV);. LA
10d0: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 PPEND_BOOL(inter
10e0: 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 43 6f 6e p, listPtr, "Con
10f0: 74 72 6f 6c 20 49 6e 69 74 22 2c 20 66 6c 61 67 trol Init", flag
1100: 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 54 52 s & EVP_CIPH_CTR
1110: 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 4c 41 50 L_INIT);. LAP
1120: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
1130: 2c 20 6c 69 73 74 50 74 72 2c 20 22 43 75 73 74 , listPtr, "Cust
1140: 6f 6d 20 43 69 70 68 65 72 22 2c 20 66 6c 61 67 om Cipher", flag
1150: 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 s & EVP_CIPH_FLA
1160: 47 5f 43 55 53 54 4f 4d 5f 43 49 50 48 45 52 29 G_CUSTOM_CIPHER)
1170: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
1180: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 OL(interp, listP
1190: 74 72 2c 20 22 41 45 41 44 20 43 69 70 68 65 72 tr, "AEAD Cipher
11a0: 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 ", flags & EVP_C
11b0: 49 50 48 5f 46 4c 41 47 5f 41 45 41 44 5f 43 49 IPH_FLAG_AEAD_CI
11c0: 50 48 45 52 29 3b 0a 20 20 20 20 4c 41 50 50 45 PHER);. LAPPE
11d0: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 ND_BOOL(interp,
11e0: 6c 69 73 74 50 74 72 2c 20 22 43 75 73 74 6f 6d listPtr, "Custom
11f0: 20 43 6f 70 79 22 2c 20 66 6c 61 67 73 20 26 20 Copy", flags &
1200: 45 56 50 5f 43 49 50 48 5f 43 55 53 54 4f 4d 5f EVP_CIPH_CUSTOM_
1210: 43 4f 50 59 29 3b 0a 20 20 20 20 4c 41 50 50 45 COPY);. LAPPE
1220: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 ND_BOOL(interp,
1230: 6c 69 73 74 50 74 72 2c 20 22 4e 6f 6e 20 46 49 listPtr, "Non FI
1240: 50 53 20 41 6c 6c 6f 77 22 2c 20 66 6c 61 67 73 PS Allow", flags
1250: 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 & EVP_CIPH_FLAG
1260: 5f 4e 4f 4e 5f 46 49 50 53 5f 41 4c 4c 4f 57 29 _NON_FIPS_ALLOW)
1270: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 ;. LAPPEND_OB
1280: 4a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 J(interp, objPtr
1290: 2c 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 50 , "flags", listP
12a0: 74 72 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 tr);.. Tcl_Se
12b0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
12c0: 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 p, objPtr);.
12d0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
12e0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
12f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
1330: 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 20 2d CiphersObjCmd -
1340: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f -. *. *.This pro
1350: 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 cedure is invoke
1360: 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 d to process the
1370: 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 "tls::ciphers"
1380: 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 command. *.to li
1390: 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 st available cip
13a0: 68 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e hers, based upon
13b0: 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 protocol select
13c0: 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ed.. *. * Result
13d0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
13e0: 20 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 Tcl result list
13f0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
1400: 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 ects:. *.constru
1410: 63 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 cts and destroys
1420: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 SSL context (CT
1430: 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d X). *. *--------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
1480: 73 74 61 74 69 63 20 69 6e 74 20 43 69 70 68 65 static int Ciphe
1490: 72 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 rsObjCmd(ClientD
14a0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
14b0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
14c0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
14d0: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
14e0: 76 5b 5d 29 20 7b 0a 20 20 20 20 53 53 4c 5f 43 v[]) {. SSL_C
14f0: 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a TX *ctx = NULL;.
1500: 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e SSL *ssl = N
1510: 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f ULL;. STACK_O
1520: 46 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 F(SSL_CIPHER) *s
1530: 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e k = NULL;. in
1540: 74 20 69 6e 64 65 78 2c 20 76 65 72 62 6f 73 65 t index, verbose
1550: 20 3d 20 30 2c 20 75 73 65 5f 73 75 70 70 6f 72 = 0, use_suppor
1560: 74 65 64 20 3d 20 30 3b 0a 20 20 20 20 69 6e 74 ted = 0;. int
1570: 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 2c 20 6d 61 min_version, ma
1580: 78 5f 76 65 72 73 69 6f 6e 3b 0a 0a 20 20 20 20 x_version;..
1590: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
15a0: 29 3b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f );..#if OPENSSL_
15b0: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c VERSION_NUMBER <
15c0: 20 30 78 31 30 31 30 30 30 30 30 4c 0a 20 20 20 0x10100000L.
15d0: 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c OpenSSL_add_all
15e0: 5f 63 69 70 68 65 72 73 28 29 3b 20 2f 2a 20 4d _ciphers(); /* M
15f0: 61 6b 65 20 73 75 72 65 20 74 68 65 79 27 72 65 ake sure they're
1600: 20 6c 6f 61 64 65 64 20 2a 2f 0a 23 65 6e 64 69 loaded */.#endi
1610: 66 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 f.. /* Clear
1620: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 errors */. Tc
1630: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
1640: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 terp);. ERR_c
1650: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 lear_error();..
1660: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
1670: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
1680: 69 66 20 28 6f 62 6a 63 20 3e 20 34 29 20 7b 0a if (objc > 4) {.
1690: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
16a0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
16b0: 76 2c 20 22 3f 70 72 6f 74 6f 63 6f 6c 3f 20 3f v, "?protocol? ?
16c0: 76 65 72 62 6f 73 65 3f 20 3f 73 75 70 70 6f 72 verbose? ?suppor
16d0: 74 65 64 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ted?");..return
16e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
16f0: 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 61 6c .. /* List al
1700: 6c 20 63 69 70 68 65 72 73 20 2a 2f 0a 20 20 20 l ciphers */.
1710: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 if (objc == 1)
1720: 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 {..Tcl_Obj *objP
1730: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 tr = Tcl_NewList
1740: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 Obj(0, NULL);...
1750: 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f 61 6c 6c 28 OBJ_NAME_do_all(
1760: 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 45 5f 43 49 OBJ_NAME_TYPE_CI
1770: 50 48 45 52 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 PHER_METH, Names
1780: 43 61 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 Callback, (void
1790: 2a 29 20 6f 62 6a 50 74 72 29 3b 0a 09 54 63 6c *) objPtr);..Tcl
17a0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
17b0: 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 09 terp, objPtr);..
17c0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a return TCL_OK;..
17d0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
17e0: 74 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 t options */.
17f0: 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 if (Tcl_GetInde
1800: 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c xFromObj(interp,
1810: 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 objv[1], protoc
1820: 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c ols, "protocol",
1830: 20 30 2c 20 26 69 6e 64 65 78 29 20 21 3d 20 54 0, &index) != T
1840: 43 4c 5f 4f 4b 20 7c 7c 0a 09 28 6f 62 6a 63 20 CL_OK ||..(objc
1850: 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 74 42 6f > 2 && Tcl_GetBo
1860: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 oleanFromObj(int
1870: 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 erp, objv[2], &v
1880: 65 72 62 6f 73 65 29 20 21 3d 20 54 43 4c 5f 4f erbose) != TCL_O
1890: 4b 29 20 7c 7c 0a 09 28 6f 62 6a 63 20 3e 20 33 K) ||..(objc > 3
18a0: 20 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 && Tcl_GetBoole
18b0: 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 anFromObj(interp
18c0: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 75 73 65 5f , objv[3], &use_
18d0: 73 75 70 70 6f 72 74 65 64 29 20 21 3d 20 54 43 supported) != TC
18e0: 4c 5f 4f 4b 29 29 20 7b 0a 09 72 65 74 75 72 6e L_OK)) {..return
18f0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
1900: 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 }.. switch ((
1910: 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e enum protocol)in
1920: 64 65 78 29 20 7b 0a 09 63 61 73 65 20 54 4c 53 dex) {..case TLS
1930: 5f 53 53 4c 32 3a 0a 09 20 20 20 20 54 63 6c 5f _SSL2:.. Tcl_
1940: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
1950: 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 erp, protocols[i
1960: 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 ndex], ": protoc
1970: 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 ol not supported
1980: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 ", NULL);.. r
1990: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
19a0: 0a 09 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a ..case TLS_SSL3:
19b0: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
19c0: 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 SSL3) || defined
19d0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 (OPENSSL_NO_SSL3
19e0: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
19f0: 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 NSSL_NO_SSL3_MET
1a00: 48 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 HOD).. Tcl_Ap
1a10: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1a20: 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 p, protocols[ind
1a30: 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c ex], ": protocol
1a40: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
1a50: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
1a60: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
1a70: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
1a80: 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 53 min_version = S
1a90: 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 SL3_VERSION;.
1aa0: 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 max_ver
1ab0: 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 sion = SSL3_VERS
1ac0: 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b ION;.. break;
1ad0: 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c .#endif..case TL
1ae0: 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 66 69 S_TLS1:.#if defi
1af0: 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 ned(NO_TLS1) ||
1b00: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
1b10: 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 NO_TLS1) || defi
1b20: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
1b30: 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 LS1_METHOD)..
1b40: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1b50: 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 t(interp, protoc
1b60: 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 ols[index], ": p
1b70: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
1b80: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
1b90: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1ba0: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 RROR;.#else.
1bb0: 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 min_vers
1bc0: 69 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 52 53 49 ion = TLS1_VERSI
1bd0: 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ON;.
1be0: 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c max_version = TL
1bf0: 53 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 S1_VERSION;..
1c00: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 break;.#endif..
1c10: 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a case TLS_TLS1_1:
1c20: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
1c30: 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e TLS1_1) || defin
1c40: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
1c50: 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 S1_1) || defined
1c60: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
1c70: 5f 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 _1_METHOD)..
1c80: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1c90: 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f (interp, protoco
1ca0: 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 ls[index], ": pr
1cb0: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
1cc0: 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 rted", NULL);..
1cd0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
1ce0: 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 ROR;.#else.
1cf0: 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 min_versi
1d00: 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f 56 45 52 53 on = TLS1_1_VERS
1d10: 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ION;.
1d20: 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 max_version = T
1d30: 4c 53 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 LS1_1_VERSION;..
1d40: 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 break;.#endi
1d50: 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 f..case TLS_TLS1
1d60: 5f 32 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 _2:.#if defined(
1d70: 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 NO_TLS1_2) || de
1d80: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
1d90: 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 _TLS1_2) || defi
1da0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
1db0: 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 09 20 LS1_2_METHOD)..
1dc0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
1dd0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 ult(interp, prot
1de0: 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a ocols[index], ":
1df0: 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 protocol not su
1e00: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
1e10: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
1e20: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 _ERROR;.#else.
1e30: 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 min_ve
1e40: 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f 56 rsion = TLS1_2_V
1e50: 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 ERSION;.
1e60: 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 max_version
1e70: 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 49 4f 4e = TLS1_2_VERSION
1e80: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 ;.. break;.#e
1e90: 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 ndif..case TLS_T
1ea0: 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65 66 69 6e LS1_3:.#if defin
1eb0: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c ed(NO_TLS1_3) ||
1ec0: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
1ed0: 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 20 20 20 _NO_TLS1_3)..
1ee0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
1ef0: 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 t(interp, protoc
1f00: 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 ols[index], ": p
1f10: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
1f20: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
1f30: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
1f40: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 RROR;.#else.
1f50: 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 min_vers
1f60: 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 ion = TLS1_3_VER
1f70: 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 SION;.
1f80: 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 max_version =
1f90: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a TLS1_3_VERSION;.
1fa0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 . break;.#end
1fb0: 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a 20 20 20 if..default:.
1fc0: 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 min_ver
1fd0: 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 sion = SSL3_VERS
1fe0: 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ION;.
1ff0: 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 max_version = T
2000: 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 LS1_3_VERSION;..
2010: 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d break;. }
2020: 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 .. /* Create
2030: 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 context */. i
2040: 66 20 28 28 63 74 78 20 3d 20 53 53 4c 5f 43 54 f ((ctx = SSL_CT
2050: 58 5f 6e 65 77 28 54 4c 53 5f 73 65 72 76 65 72 X_new(TLS_server
2060: 5f 6d 65 74 68 6f 64 28 29 29 29 20 3d 3d 20 4e _method())) == N
2070: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
2080: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
2090: 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 REASON(), NULL)
20a0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
20b0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
20c0: 2f 2a 20 53 65 74 20 70 72 6f 74 6f 63 6f 6c 20 /* Set protocol
20d0: 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 versions */.
20e0: 69 66 20 28 53 53 4c 5f 43 54 58 5f 73 65 74 5f if (SSL_CTX_set_
20f0: 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f min_proto_versio
2100: 6e 28 63 74 78 2c 20 6d 69 6e 5f 76 65 72 73 69 n(ctx, min_versi
2110: 6f 6e 29 20 3d 3d 20 30 20 7c 7c 0a 09 53 53 4c on) == 0 ||..SSL
2120: 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f _CTX_set_max_pro
2130: 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78 2c 20 to_version(ctx,
2140: 6d 61 78 5f 76 65 72 73 69 6f 6e 29 20 3d 3d 20 max_version) ==
2150: 30 29 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 0) {..SSL_CTX_fr
2160: 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e ee(ctx);..return
2170: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
2180: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
2190: 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a SSL context */.
21a0: 20 20 20 20 69 66 20 28 28 73 73 6c 20 3d 20 53 if ((ssl = S
21b0: 53 4c 5f 6e 65 77 28 63 74 78 29 29 20 3d 3d 20 SL_new(ctx)) ==
21c0: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
21d0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
21e0: 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c , REASON(), NULL
21f0: 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 );..SSL_CTX_free
2200: 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 (ctx);..return T
2210: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
2220: 0a 20 20 20 20 2f 2a 20 55 73 65 20 6c 69 73 74 . /* Use list
2230: 20 61 6e 64 20 6f 72 64 65 72 20 61 73 20 77 6f and order as wo
2240: 75 6c 64 20 62 65 20 73 65 6e 74 20 69 6e 20 61 uld be sent in a
2250: 20 43 6c 69 65 6e 74 48 65 6c 6c 6f 20 6f 72 20 ClientHello or
2260: 61 6c 6c 20 61 76 61 69 6c 61 62 6c 65 20 63 69 all available ci
2270: 70 68 65 72 73 20 2a 2f 0a 20 20 20 20 69 66 20 phers */. if
2280: 28 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 (use_supported)
2290: 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 31 {..sk = SSL_get1
22a0: 5f 73 75 70 70 6f 72 74 65 64 5f 63 69 70 68 65 _supported_ciphe
22b0: 72 73 28 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 rs(ssl);. } e
22c0: 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f lse {..sk = SSL_
22d0: 67 65 74 5f 63 69 70 68 65 72 73 28 73 73 6c 29 get_ciphers(ssl)
22e0: 3b 0a 09 2f 2a 73 6b 20 3d 20 53 53 4c 5f 43 54 ;../*sk = SSL_CT
22f0: 58 5f 67 65 74 5f 63 69 70 68 65 72 73 28 63 74 X_get_ciphers(ct
2300: 78 29 3b 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 x);*/. }..
2310: 20 69 66 20 28 73 6b 20 21 3d 20 4e 55 4c 4c 29 if (sk != NULL)
2320: 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a {..Tcl_Obj *obj
2330: 50 74 72 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 69 66 Ptr = NULL;...if
2340: 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 20 (!verbose) {..
2350: 20 20 20 63 68 61 72 20 2a 63 70 3b 0a 09 20 20 char *cp;..
2360: 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e objPtr = Tcl_N
2370: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
2380: 4c 29 3b 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 L);... for (i
2390: 6e 74 20 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b nt i = 0; i < sk
23a0: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 _SSL_CIPHER_num(
23b0: 73 6b 29 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f sk); i++) {...co
23c0: 6e 73 74 20 53 53 4c 5f 43 49 50 48 45 52 20 2a nst SSL_CIPHER *
23d0: 63 20 3d 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 c = sk_SSL_CIPHE
23e0: 52 5f 76 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a R_value(sk, i);.
23f0: 09 09 69 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 ..if (c == NULL)
2400: 20 63 6f 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a continue;..../*
2410: 20 63 69 70 68 65 72 20 6e 61 6d 65 20 6f 72 20 cipher name or
2420: 28 4e 4f 4e 45 29 20 2a 2f 0a 09 09 63 70 20 3d (NONE) */...cp =
2430: 20 53 53 4c 5f 43 49 50 48 45 52 5f 67 65 74 5f SSL_CIPHER_get_
2440: 6e 61 6d 65 28 63 29 3b 0a 09 09 69 66 20 28 63 name(c);...if (c
2450: 70 20 3d 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b p == NULL) break
2460: 3b 0a 09 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 ;...Tcl_ListObjA
2470: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
2480: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c erp, objPtr, Tcl
2490: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 63 70 _NewStringObj(cp
24a0: 2c 20 2d 31 29 29 3b 0a 09 20 20 20 20 7d 0a 0a , -1));.. }..
24b0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 63 .} else {.. c
24c0: 68 61 72 20 62 75 66 5b 42 55 46 53 49 5a 5d 3b har buf[BUFSIZ];
24d0: 0a 09 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 .. objPtr = T
24e0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
24f0: 22 22 2c 30 29 3b 0a 0a 09 20 20 20 20 66 6f 72 "",0);... for
2500: 20 28 69 6e 74 20 69 20 3d 20 30 3b 20 69 20 3c (int i = 0; i <
2510: 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e sk_SSL_CIPHER_n
2520: 75 6d 28 73 6b 29 3b 20 69 2b 2b 29 20 7b 0a 09 um(sk); i++) {..
2530: 09 63 6f 6e 73 74 20 53 53 4c 5f 43 49 50 48 45 .const SSL_CIPHE
2540: 52 20 2a 63 20 3d 20 73 6b 5f 53 53 4c 5f 43 49 R *c = sk_SSL_CI
2550: 50 48 45 52 5f 76 61 6c 75 65 28 73 6b 2c 20 69 PHER_value(sk, i
2560: 29 3b 0a 09 09 69 66 20 28 63 20 3d 3d 20 4e 55 );...if (c == NU
2570: 4c 4c 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 0a 09 LL) continue;...
2580: 09 2f 2a 20 74 65 78 74 75 61 6c 20 64 65 73 63 ./* textual desc
2590: 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 ription of the c
25a0: 69 70 68 65 72 20 2a 2f 0a 09 09 69 66 20 28 53 ipher */...if (S
25b0: 53 4c 5f 43 49 50 48 45 52 5f 64 65 73 63 72 69 SL_CIPHER_descri
25c0: 70 74 69 6f 6e 28 63 2c 20 62 75 66 2c 20 73 69 ption(c, buf, si
25d0: 7a 65 6f 66 28 62 75 66 29 29 20 21 3d 20 4e 55 zeof(buf)) != NU
25e0: 4c 4c 29 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f LL) {... Tcl_
25f0: 41 70 70 65 6e 64 54 6f 4f 62 6a 28 6f 62 6a 50 AppendToObj(objP
2600: 74 72 2c 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 tr, buf, (Tcl_Si
2610: 7a 65 29 20 73 74 72 6c 65 6e 28 62 75 66 29 29 ze) strlen(buf))
2620: 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 ;...} else {...
2630: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f Tcl_AppendToO
2640: 62 6a 28 6f 62 6a 50 74 72 2c 20 22 55 4e 4b 4e bj(objPtr, "UNKN
2650: 4f 57 4e 5c 6e 22 2c 20 38 29 3b 0a 09 09 7d 0a OWN\n", 8);...}.
2660: 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 43 . }..}.../* C
2670: 6c 65 61 6e 20 75 70 20 2a 2f 0a 09 69 66 20 28 lean up */..if (
2680: 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 7b use_supported) {
2690: 0a 09 20 20 20 20 73 6b 5f 53 53 4c 5f 43 49 50 .. sk_SSL_CIP
26a0: 48 45 52 5f 66 72 65 65 28 73 6b 29 3b 0a 09 7d HER_free(sk);..}
26b0: 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 ..Tcl_SetObjResu
26c0: 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 lt(interp, objPt
26d0: 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 53 r);. }.. S
26e0: 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 20 SL_free(ssl);.
26f0: 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 SSL_CTX_free(c
2700: 74 78 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 tx);. return
2710: 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 TCL_OK;..clientD
2720: 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 ata = clientData
2730: 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;.}../**********
2740: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
2780: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
2790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27c0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
27d0: 74 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 tInfo --. *. *.R
27e0: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
27f0: 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 properties and v
2800: 61 6c 75 65 73 20 66 6f 72 20 64 69 67 65 73 74 alues for digest
2810: 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 Name.. *. * Resu
2820: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
2830: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
2840: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2850: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
2860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28a0: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 --. */.int Diges
28b0: 74 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 tInfo(Tcl_Interp
28c0: 20 2a 69 6e 74 65 72 70 2c 20 63 68 61 72 20 2a *interp, char *
28d0: 64 69 67 65 73 74 4e 61 6d 65 29 20 7b 0a 20 20 digestName) {.
28e0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 Tcl_Obj *objPt
28f0: 72 2c 20 2a 6c 69 73 74 50 74 72 3b 0a 20 20 20 r, *listPtr;.
2900: 20 45 56 50 5f 4d 44 20 2a 6d 64 20 3d 20 45 56 EVP_MD *md = EV
2910: 50 5f 67 65 74 5f 64 69 67 65 73 74 62 79 6e 61 P_get_digestbyna
2920: 6d 65 28 64 69 67 65 73 74 4e 61 6d 65 29 3b 0a me(digestName);.
2930: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e unsigned lon
2940: 67 20 66 6c 61 67 73 3b 0a 0a 20 20 20 20 69 66 g flags;.. if
2950: 20 28 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a (md == NULL) {.
2960: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
2970: 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c t(interp, "Inval
2980: 69 64 20 64 69 67 65 73 74 20 5c 22 22 2c 20 64 id digest \"", d
2990: 69 67 65 73 74 4e 61 6d 65 2c 20 22 5c 22 22 2c igestName, "\"",
29a0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
29b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
29c0: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72 6f .. /* Get pro
29d0: 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 6f perties */. o
29e0: 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c bjPtr = Tcl_NewL
29f0: 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b istObj(0, NULL);
2a00: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
2a10: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
2a20: 20 22 6e 61 6d 65 22 2c 20 45 56 50 5f 4d 44 5f "name", EVP_MD_
2a30: 6e 61 6d 65 28 6d 64 29 2c 20 2d 31 29 3b 0a 20 name(md), -1);.
2a40: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
2a50: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 nterp, objPtr, "
2a60: 64 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 description", ""
2a70: 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 , -1);. LAPPE
2a80: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f ND_INT(interp, o
2a90: 62 6a 50 74 72 2c 20 22 73 69 7a 65 22 2c 20 45 bjPtr, "size", E
2aa0: 56 50 5f 4d 44 5f 73 69 7a 65 28 6d 64 29 29 3b VP_MD_size(md));
2ab0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54 . LAPPEND_INT
2ac0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
2ad0: 20 22 62 6c 6f 63 6b 5f 73 69 7a 65 22 2c 20 45 "block_size", E
2ae0: 56 50 5f 4d 44 5f 62 6c 6f 63 6b 5f 73 69 7a 65 VP_MD_block_size
2af0: 28 6d 64 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 (md));. LAPPE
2b00: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f ND_STR(interp, o
2b10: 62 6a 50 74 72 2c 20 22 70 72 6f 76 69 64 65 72 bjPtr, "provider
2b20: 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 ", "", -1);.
2b30: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
2b40: 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 74 79 70 rp, objPtr, "typ
2b50: 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 e", OBJ_nid2ln(E
2b60: 56 50 5f 4d 44 5f 74 79 70 65 28 6d 64 29 29 2c VP_MD_type(md)),
2b70: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
2b80: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 D_STR(interp, ob
2b90: 6a 50 74 72 2c 20 22 70 6b 65 79 5f 74 79 70 65 jPtr, "pkey_type
2ba0: 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 ", OBJ_nid2ln(EV
2bb0: 50 5f 4d 44 5f 70 6b 65 79 5f 74 79 70 65 28 6d P_MD_pkey_type(m
2bc0: 64 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 66 6c d)), -1);. fl
2bd0: 61 67 73 20 3d 20 45 56 50 5f 4d 44 5f 66 6c 61 ags = EVP_MD_fla
2be0: 67 73 28 6d 64 29 3b 0a 0a 20 20 20 20 2f 2a 20 gs(md);.. /*
2bf0: 46 6c 61 67 73 20 2a 2f 0a 20 20 20 20 6c 69 73 Flags */. lis
2c00: 74 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 tPtr = Tcl_NewLi
2c10: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
2c20: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c LAPPEND_BOOL
2c30: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 (interp, listPtr
2c40: 2c 20 22 4f 6e 65 2d 73 68 6f 74 22 2c 20 66 6c , "One-shot", fl
2c50: 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 ags & EVP_MD_FLA
2c60: 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a 20 20 20 20 G_ONESHOT);.
2c70: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
2c80: 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 58 erp, listPtr, "X
2c90: 4f 46 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 OF", flags & EVP
2ca0: 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46 29 3b 0a 20 _MD_FLAG_XOF);.
2cb0: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 LAPPEND_BOOL(
2cc0: 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c interp, listPtr,
2cd0: 20 22 44 69 67 65 73 74 41 6c 67 6f 72 69 74 68 "DigestAlgorith
2ce0: 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66 6c 61 67 73 mId_NULL", flags
2cf0: 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 44 & EVP_MD_FLAG_D
2d00: 49 47 41 4c 47 49 44 5f 4e 55 4c 4c 29 3b 0a 20 IGALGID_NULL);.
2d10: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 LAPPEND_BOOL(
2d20: 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c interp, listPtr,
2d30: 20 22 44 69 67 65 73 74 41 6c 67 6f 72 69 74 68 "DigestAlgorith
2d40: 6d 49 64 5f 41 62 73 63 65 6e 74 22 2c 20 66 6c mId_Abscent", fl
2d50: 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 ags & EVP_MD_FLA
2d60: 47 5f 44 49 47 41 4c 47 49 44 5f 41 42 53 45 4e G_DIGALGID_ABSEN
2d70: 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f T);. LAPPEND_
2d80: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
2d90: 74 50 74 72 2c 20 22 44 69 67 65 73 74 41 6c 67 tPtr, "DigestAlg
2da0: 6f 72 69 74 68 6d 49 64 5f 43 75 73 74 6f 6d 22 orithmId_Custom"
2db0: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 , flags & EVP_MD
2dc0: 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 43 _FLAG_DIGALGID_C
2dd0: 55 53 54 4f 4d 29 3b 0a 20 20 20 20 4c 41 50 50 USTOM);. LAPP
2de0: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
2df0: 20 6c 69 73 74 50 74 72 2c 20 22 46 49 50 53 22 listPtr, "FIPS"
2e00: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 , flags & EVP_MD
2e10: 5f 46 4c 41 47 5f 46 49 50 53 29 3b 0a 20 20 20 _FLAG_FIPS);.
2e20: 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 6e 74 LAPPEND_OBJ(int
2e30: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 66 6c erp, objPtr, "fl
2e40: 61 67 73 22 2c 20 6c 69 73 74 50 74 72 29 3b 0a ags", listPtr);.
2e50: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
2e60: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 esult(interp, ob
2e70: 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 jPtr);. retur
2e80: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
2e90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
2ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ed0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 -----. *. * Dige
2ee0: 73 74 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a stsObjCmd --. *.
2ef0: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
2f00: 20 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 68 61 of all valid ha
2f10: 73 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 6f 72 sh algorithms or
2f20: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 73 message digests
2f30: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
2f40: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
2f50: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
2f60: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
2f70: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
2f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2fc0: 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 73 4f 62 */.int DigestsOb
2fd0: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
2fe0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
2ff0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3000: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
3010: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
3020: 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a {. Tcl_Obj *
3030: 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 objPtr;.. dpr
3040: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
3050: 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 .#if OPENSSL_VER
3060: 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 SION_NUMBER < 0x
3070: 31 30 31 30 30 30 30 30 4c 0a 20 20 20 20 4f 70 10100000L. Op
3080: 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 64 69 enSSL_add_all_di
3090: 67 65 73 74 73 28 29 3b 20 2f 2a 20 4d 61 6b 65 gests(); /* Make
30a0: 20 73 75 72 65 20 74 68 65 79 27 72 65 20 6c 6f sure they're lo
30b0: 61 64 65 64 20 2a 2f 0a 23 65 6e 64 69 66 0a 0a aded */.#endif..
30c0: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
30d0: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 arg count */.
30e0: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 if (objc == 2)
30f0: 7b 0a 09 63 68 61 72 20 2a 64 69 67 65 73 74 4e {..char *digestN
3100: 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ame = Tcl_GetStr
3110: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
3120: 31 5d 2c 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 1],NULL);..retur
3130: 6e 20 44 69 67 65 73 74 49 6e 66 6f 28 69 6e 74 n DigestInfo(int
3140: 65 72 70 2c 20 64 69 67 65 73 74 4e 61 6d 65 29 erp, digestName)
3150: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
3160: 28 6f 62 6a 63 20 3e 20 32 29 20 7b 0a 09 54 63 (objc > 2) {..Tc
3170: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
3180: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
3190: 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75 "?name?");..retu
31a0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
31b0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 }.. /* List
31c0: 20 61 6c 6c 20 64 69 67 65 73 74 73 20 2a 2f 0a all digests */.
31d0: 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 6c objPtr = Tcl
31e0: 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e _NewListObj(0, N
31f0: 55 4c 4c 29 3b 0a 20 20 20 20 4f 42 4a 5f 4e 41 ULL);. OBJ_NA
3200: 4d 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 ME_do_all(OBJ_NA
3210: 4d 45 5f 54 59 50 45 5f 4d 44 5f 4d 45 54 48 2c ME_TYPE_MD_METH,
3220: 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b 2c 20 NamesCallback,
3230: 28 76 6f 69 64 20 2a 29 20 6f 62 6a 50 74 72 29 (void *) objPtr)
3240: 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a ;. Tcl_SetObj
3250: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f Result(interp, o
3260: 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 bjPtr);. retu
3270: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 rn TCL_OK;..clie
3280: 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 ntData = clientD
3290: 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a ata;.}../*******
32a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
32b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
32c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
32d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f ************/../
32e0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
32f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3320: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 -------. *. * Ma
3330: 63 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 csObjCmd --. *.
3340: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
3350: 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 6d 65 73 of all valid mes
3360: 73 61 67 65 20 61 75 74 68 65 6e 74 69 63 61 74 sage authenticat
3370: 69 6f 6e 20 63 6f 64 65 73 20 28 4d 41 43 29 2e ion codes (MAC).
3380: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
3390: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
33a0: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
33b0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
33c0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
33d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3410: 2f 0a 69 6e 74 20 4d 61 63 73 4f 62 6a 43 6d 64 /.int MacsObjCmd
3420: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
3430: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
3440: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
3450: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
3460: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 onst objv[]) {.
3470: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 Tcl_Obj *objP
3480: 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 tr;.. dprintf
3490: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
34a0: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 /* Validate arg
34b0: 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 count */. if
34c0: 20 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a 09 (objc != 1) {..
34d0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
34e0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
34f0: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
3500: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
3510: 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 61 }.. /* List a
3520: 6c 6c 20 4d 41 43 73 20 2a 2f 0a 20 20 20 20 6f ll MACs */. o
3530: 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c bjPtr = Tcl_NewL
3540: 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b istObj(0, NULL);
3550: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
3560: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
3570: 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 terp, objPtr, Tc
3580: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
3590: 63 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 20 20 cmac", -1));.
35a0: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
35b0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
35c0: 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 , objPtr, Tcl_Ne
35d0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 68 6d 61 63 wStringObj("hmac
35e0: 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c ", -1));. Tcl
35f0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
3600: 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 terp, objPtr);.
3610: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
3620: 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 ;..clientData =
3630: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f clientData;.}../
3640: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3650: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3660: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3670: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3680: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 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 2d ----------------
36c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
36d0: 2a 0a 20 2a 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 *. * ProtocolsOb
36e0: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 jCmd --. *. *.Re
36f0: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 turn a list of t
3700: 68 65 20 61 76 61 69 6c 61 62 6c 65 20 6f 72 20 he available or
3710: 73 75 70 70 6f 72 74 65 64 20 53 53 4c 2f 54 4c supported SSL/TL
3720: 53 20 70 72 6f 74 6f 63 6f 6c 73 2e 0a 20 2a 0a S protocols.. *.
3730: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
3740: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 standard Tcl li
3750: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 st.. *. * Side e
3760: 66 66 65 63 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a ffects:. *.none.
3770: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37b0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
37c0: 74 69 63 20 69 6e 74 0a 50 72 6f 74 6f 63 6f 6c tic int.Protocol
37d0: 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 sObjCmd(ClientDa
37e0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
37f0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
3800: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
3810: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
3820: 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 []) {. Tcl_Ob
3830: 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 j *objPtr;..
3840: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
3850: 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 );.. /* Valid
3860: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f ate arg count */
3870: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d . if (objc !=
3880: 20 31 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 1) {..Tcl_Wrong
3890: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
38a0: 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 1, objv, NULL);.
38b0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
38c0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
38d0: 20 4c 69 73 74 20 61 6c 6c 20 4d 41 43 73 20 2a List all MACs *
38e0: 2f 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 /. objPtr = T
38f0: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
3900: 20 4e 55 4c 4c 29 3b 0a 23 69 66 20 4f 50 45 4e NULL);.#if OPEN
3910: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 SSL_VERSION_NUMB
3920: 45 52 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c ER < 0x10100000L
3930: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f && !defined(NO_
3940: 53 53 4c 32 29 20 26 26 20 21 64 65 66 69 6e 65 SSL2) && !define
3950: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c d(OPENSSL_NO_SSL
3960: 32 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 2). Tcl_ListO
3970: 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 bjAppendElement(
3980: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 interp, objPtr,
3990: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
39a0: 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 (protocols[TLS_S
39b0: 53 4c 32 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 SL2], -1));.#end
39c0: 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 if.#if !defined(
39d0: 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 NO_SSL3) && !def
39e0: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
39f0: 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 SSL3) && !define
3a00: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c d(OPENSSL_NO_SSL
3a10: 33 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 3_METHOD). Tc
3a20: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
3a30: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f lement(interp, o
3a40: 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 bjPtr, Tcl_NewSt
3a50: 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c ringObj(protocol
3a60: 73 5b 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d 31 29 s[TLS_SSL3], -1)
3a70: 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 );.#endif.#if !d
3a80: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 efined(NO_TLS1)
3a90: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
3aa0: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 26 20 SSL_NO_TLS1) &&
3ab0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
3ac0: 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 _NO_TLS1_METHOD)
3ad0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
3ae0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
3af0: 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 terp, objPtr, Tc
3b00: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 l_NewStringObj(p
3b10: 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 rotocols[TLS_TLS
3b20: 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 1], -1));.#endif
3b30: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f .#if !defined(NO
3b40: 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64 65 66 _TLS1_1) && !def
3b50: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
3b60: 54 4c 53 31 5f 31 29 20 26 26 20 21 64 65 66 69 TLS1_1) && !defi
3b70: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
3b80: 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 0a 20 20 LS1_1_METHOD).
3b90: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
3ba0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
3bb0: 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e p, objPtr, Tcl_N
3bc0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 ewStringObj(prot
3bd0: 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 31 ocols[TLS_TLS1_1
3be0: 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a ], -1));.#endif.
3bf0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
3c00: 54 4c 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 TLS1_2) && !defi
3c10: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
3c20: 4c 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e LS1_2) && !defin
3c30: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
3c40: 53 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 20 20 20 S1_2_METHOD).
3c50: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
3c60: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
3c70: 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 , objPtr, Tcl_Ne
3c80: 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f wStringObj(proto
3c90: 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 32 5d cols[TLS_TLS1_2]
3ca0: 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 , -1));.#endif.#
3cb0: 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 if !defined(NO_T
3cc0: 4c 53 31 5f 33 29 20 26 26 20 21 64 65 66 69 6e LS1_3) && !defin
3cd0: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
3ce0: 53 31 5f 33 29 0a 20 20 20 20 54 63 6c 5f 4c 69 S1_3). Tcl_Li
3cf0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
3d00: 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 nt(interp, objPt
3d10: 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 r, Tcl_NewString
3d20: 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c Obj(protocols[TL
3d30: 53 5f 54 4c 53 31 5f 33 5d 2c 20 2d 31 29 29 3b S_TLS1_3], -1));
3d40: 0a 23 65 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f .#endif. Tcl_
3d50: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
3d60: 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 erp, objPtr);.
3d70: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
3d80: 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 ..clientData = c
3d90: 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a lientData;.}../*
3da0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3db0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3dc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3dd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3de0: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
3df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3e30: 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d . * VersionObjCm
3e40: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 d --. *. *.Retur
3e50: 6e 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 20 n a string with
3e60: 74 68 65 20 4f 70 65 6e 53 53 4c 20 76 65 72 73 the OpenSSL vers
3e70: 69 6f 6e 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a 20 ion info.. *. *
3e80: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
3e90: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
3ea0: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
3eb0: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
3ec0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f00: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
3f10: 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f tic int.VersionO
3f20: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
3f30: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
3f40: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3f50: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
3f60: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
3f70: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ) {. Tcl_Obj
3f80: 2a 6f 62 6a 50 74 72 3b 0a 0a 20 20 20 20 64 70 *objPtr;.. dp
3f90: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
3fa0: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
3fb0: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
3fc0: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 if (objc != 1
3fd0: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
3fe0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
3ff0: 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 objv, NULL);..r
4000: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
4010: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6f 62 6a 50 . }.. objP
4020: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 tr = Tcl_NewStri
4030: 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 ngObj(OPENSSL_VE
4040: 52 53 49 4f 4e 5f 54 45 58 54 2c 20 2d 31 29 3b RSION_TEXT, -1);
4050: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
4060: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 esult(interp, ob
4070: 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 jPtr);. retur
4080: 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e n TCL_OK;..clien
4090: 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 tData = clientDa
40a0: 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a ta;.}../********
40b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
40c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
40d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
40e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
40f0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
4100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4130: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 ------. *. * Tls
4140: 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 73 20 2d 2d _InfoCommands --
4150: 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 69 6e . *. *.Create in
4160: 66 6f 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 fo commands. *.
4170: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
4180: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
4190: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
41a0: 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 ects:. *.Creates
41b0: 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d commands. *. *-
41c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4200: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 49 --. */.int Tls_I
4210: 6e 66 6f 43 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f nfoCommands(Tcl_
4220: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
4230: 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 {. Tcl_Create
4240: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
4250: 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 22 p, "tls::cipher"
4260: 2c 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 2c 20 , CipherObjCmd,
4270: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
4280: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
4290: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
42a0: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
42b0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
42c0: 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 69 ls::ciphers", Ci
42d0: 70 68 65 72 73 4f 62 6a 43 6d 64 2c 20 28 43 6c phersObjCmd, (Cl
42e0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
42f0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
4300: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 *) NULL);. Tc
4310: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
4320: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
4330: 3a 64 69 67 65 73 74 73 22 2c 20 44 69 67 65 73 :digests", Diges
4340: 74 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e tsObjCmd, (Clien
4350: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
4360: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
4370: 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 NULL);. Tcl_C
4380: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
4390: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 61 interp, "tls::ma
43a0: 63 73 22 2c 20 4d 61 63 73 4f 62 6a 43 6d 64 2c cs", MacsObjCmd,
43b0: 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c (ClientData) 0,
43c0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
43d0: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
43e0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
43f0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
4400: 74 6c 73 3a 3a 70 72 6f 74 6f 63 6f 6c 73 22 2c tls::protocols",
4410: 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 ProtocolsObjCmd
4420: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
4430: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
4440: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
4450: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
4460: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
4470: 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 "tls::version",
4480: 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 20 28 VersionObjCmd, (
4490: 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 ClientData) 0, (
44a0: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
44b0: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 c *) NULL);.
44c0: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
44d0: 0a .