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 28 61 6c 69 61 har*) name (alia
03f0: 73 20 66 72 6f 6d 29 20 61 6e 64 20 64 61 74 61 s from) and data
0400: 20 28 61 6c 69 61 73 20 74 6f 29 20 2a 2f 0a 20 (alias to) */.
0410: 20 20 20 69 66 20 28 73 74 72 73 74 72 28 6f 62 if (strstr(ob
0420: 6a 2d 3e 6e 61 6d 65 2c 20 22 72 73 61 22 29 20 j->name, "rsa")
0430: 3d 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 73 74 == NULL && strst
0440: 72 28 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 22 52 53 r(obj->name, "RS
0450: 41 22 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 A") == NULL) {..
0460: 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e Tcl_ListObjAppen
0470: 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20 6f dElement(NULL, o
0480: 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 bjPtr, Tcl_NewSt
0490: 72 69 6e 67 4f 62 6a 28 6f 62 6a 2d 3e 6e 61 6d ringObj(obj->nam
04a0: 65 2c 2d 31 29 29 3b 0a 20 20 20 20 7d 0a 7d 0a e,-1));. }.}.
04b0: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
04c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
04d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
04e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
04f0: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d *****/../*. *---
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0540: 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 49 6e 66 . *. * CipherInf
0550: 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 o --. *. *.Retur
0560: 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 n a list of prop
0570: 65 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 65 erties and value
0580: 73 20 66 6f 72 20 63 69 70 68 65 72 4e 61 6d 65 s for cipherName
0590: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
05a0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
05b0: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
05c0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
05d0: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0620: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 43 69 */.static int Ci
0630: 70 68 65 72 4f 62 6a 43 6d 64 28 43 6c 69 65 6e pherObjCmd(Clien
0640: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
0650: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
0660: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
0670: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
0680: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c bjv[]) {. Tcl
0690: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 2c 20 2a 6c _Obj *objPtr, *l
06a0: 69 73 74 50 74 72 3b 0a 20 20 20 20 75 6e 73 69 istPtr;. unsi
06b0: 67 6e 65 64 20 63 68 61 72 20 2a 63 69 70 68 65 gned char *ciphe
06c0: 72 4e 61 6d 65 20 3d 20 4e 55 4c 4c 2c 20 2a 6d rName = NULL, *m
06d0: 6f 64 65 4e 61 6d 65 20 3d 20 4e 55 4c 4c 3b 0a odeName = NULL;.
06e0: 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 const EVP_CI
06f0: 50 48 45 52 20 2a 63 69 70 68 65 72 3b 0a 20 20 PHER *cipher;.
0700: 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 unsigned long
0710: 66 6c 61 67 73 2c 20 6d 6f 64 65 3b 0a 0a 23 69 flags, mode;..#i
0720: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
0730: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31 N_NUMBER < 0x101
0740: 30 30 30 30 30 4c 0a 20 20 20 20 4f 70 65 6e 53 00000L. OpenS
0750: 53 4c 5f 61 64 64 5f 61 6c 6c 5f 63 69 70 68 65 SL_add_all_ciphe
0760: 72 73 28 29 3b 20 2f 2a 20 4d 61 6b 65 20 73 75 rs(); /* Make su
0770: 72 65 20 74 68 65 79 27 72 65 20 6c 6f 61 64 65 re they're loade
0780: 64 20 2a 2f 0a 23 65 6e 64 69 66 0a 0a 20 20 20 d */.#endif..
0790: 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 /* Clear errors
07a0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 */. Tcl_Rese
07b0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
07c0: 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 . ERR_clear_e
07d0: 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 rror();.. /*
07e0: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
07f0: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
0800: 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f jc != 2) {..Tcl_
0810: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
0820: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 6e erp, 1, objv, "n
0830: 61 6d 65 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 ame");..return T
0840: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
0850: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 69 70 68 . /* Get ciph
0860: 65 72 20 2a 2f 0a 20 20 20 20 63 69 70 68 65 72 er */. cipher
0870: 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 Name = Tcl_GetSt
0880: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
0890: 5b 31 5d 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 [1], NULL);.
08a0: 63 69 70 68 65 72 20 3d 20 45 56 50 5f 67 65 74 cipher = EVP_get
08b0: 5f 63 69 70 68 65 72 62 79 6e 61 6d 65 28 63 69 _cipherbyname(ci
08c0: 70 68 65 72 4e 61 6d 65 29 3b 0a 0a 20 20 20 20 pherName);..
08d0: 69 66 20 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 if (cipher == NU
08e0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e LL) {..Tcl_Appen
08f0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
0900: 22 49 6e 76 61 6c 69 64 20 63 69 70 68 65 72 20 "Invalid cipher
0910: 5c 22 22 2c 20 63 69 70 68 65 72 4e 61 6d 65 2c \"", cipherName,
0920: 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 "\"", NULL);..r
0930: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
0940: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
0950: 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f et properties */
0960: 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 63 . objPtr = Tc
0970: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 l_NewListObj(0,
0980: 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 50 50 45 NULL);. LAPPE
0990: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f ND_STR(interp, o
09a0: 62 6a 50 74 72 2c 20 22 6e 69 64 22 2c 20 4f 42 bjPtr, "nid", OB
09b0: 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 43 49 50 J_nid2ln(EVP_CIP
09c0: 48 45 52 5f 6e 69 64 28 63 69 70 68 65 72 29 29 HER_nid(cipher))
09d0: 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 , -1);. LAPPE
09e0: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f ND_STR(interp, o
09f0: 62 6a 50 74 72 2c 20 22 6e 61 6d 65 22 2c 20 45 bjPtr, "name", E
0a00: 56 50 5f 43 49 50 48 45 52 5f 6e 61 6d 65 28 63 VP_CIPHER_name(c
0a10: 69 70 68 65 72 29 2c 20 2d 31 29 3b 0a 20 20 20 ipher), -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 64 65 erp, objPtr, "de
0a40: 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20 scription", "",
0a50: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 -1);. LAPPEND
0a60: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a _INT(interp, obj
0a70: 50 74 72 2c 20 22 62 6c 6f 63 6b 5f 73 69 7a 65 Ptr, "block_size
0a80: 22 2c 20 45 56 50 5f 43 49 50 48 45 52 5f 62 6c ", EVP_CIPHER_bl
0a90: 6f 63 6b 5f 73 69 7a 65 28 63 69 70 68 65 72 29 ock_size(cipher)
0aa0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 );. LAPPEND_I
0ab0: 4e 54 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 NT(interp, objPt
0ac0: 72 2c 20 22 6b 65 79 5f 6c 65 6e 67 74 68 22 2c r, "key_length",
0ad0: 20 45 56 50 5f 43 49 50 48 45 52 5f 6b 65 79 5f EVP_CIPHER_key_
0ae0: 6c 65 6e 67 74 68 28 63 69 70 68 65 72 29 29 3b length(cipher));
0af0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54 . LAPPEND_INT
0b00: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
0b10: 20 22 69 76 5f 6c 65 6e 67 74 68 22 2c 20 45 56 "iv_length", EV
0b20: 50 5f 43 49 50 48 45 52 5f 69 76 5f 6c 65 6e 67 P_CIPHER_iv_leng
0b30: 74 68 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 th(cipher));.
0b40: 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 LAPPEND_STR(int
0b50: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 74 79 erp, objPtr, "ty
0b60: 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 pe", OBJ_nid2ln(
0b70: 45 56 50 5f 43 49 50 48 45 52 5f 74 79 70 65 28 EVP_CIPHER_type(
0b80: 63 69 70 68 65 72 29 29 2c 20 2d 31 29 3b 0a 20 cipher)), -1);.
0b90: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
0ba0: 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 nterp, objPtr, "
0bb0: 70 72 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d provider", "", -
0bc0: 31 29 3b 0a 20 20 20 20 66 6c 61 67 73 20 3d 20 1);. flags =
0bd0: 45 56 50 5f 43 49 50 48 45 52 5f 66 6c 61 67 73 EVP_CIPHER_flags
0be0: 28 63 69 70 68 65 72 29 3b 0a 20 20 20 20 6d 6f (cipher);. mo
0bf0: 64 65 20 20 3d 20 45 56 50 5f 43 49 50 48 45 52 de = EVP_CIPHER
0c00: 5f 6d 6f 64 65 28 63 69 70 68 65 72 29 3b 0a 0a _mode(cipher);..
0c10: 20 20 20 20 2f 2a 20 45 56 50 5f 43 49 50 48 45 /* EVP_CIPHE
0c20: 52 5f 67 65 74 5f 6d 6f 64 65 20 2a 2f 0a 20 20 R_get_mode */.
0c30: 20 20 73 77 69 74 63 68 28 6d 6f 64 65 29 20 7b switch(mode) {
0c40: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0c50: 53 54 52 45 41 4d 5f 43 49 50 48 45 52 3a 0a 09 STREAM_CIPHER:..
0c60: 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 modeName = "
0c70: 53 54 52 45 41 4d 22 3b 0a 09 20 20 20 20 62 72 STREAM";.. br
0c80: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0c90: 49 50 48 5f 45 43 42 5f 4d 4f 44 45 3a 0a 09 20 IPH_ECB_MODE:..
0ca0: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 45 modeName = "E
0cb0: 43 42 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b CB";.. break;
0cc0: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0cd0: 43 42 43 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d CBC_MODE:.. m
0ce0: 6f 64 65 4e 61 6d 65 20 3d 20 22 43 42 43 22 3b odeName = "CBC";
0cf0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
0d00: 73 65 20 45 56 50 5f 43 49 50 48 5f 43 46 42 5f se EVP_CIPH_CFB_
0d10: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e MODE:.. modeN
0d20: 61 6d 65 20 3d 20 22 43 46 42 22 3b 0a 09 20 20 ame = "CFB";..
0d30: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 break;..case E
0d40: 56 50 5f 43 49 50 48 5f 4f 46 42 5f 4d 4f 44 45 VP_CIPH_OFB_MODE
0d50: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0d60: 3d 20 22 4f 46 42 22 3b 0a 09 20 20 20 20 62 72 = "OFB";.. br
0d70: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0d80: 49 50 48 5f 43 54 52 5f 4d 4f 44 45 3a 0a 09 20 IPH_CTR_MODE:..
0d90: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 modeName = "C
0da0: 54 52 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b TR";.. break;
0db0: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0dc0: 47 43 4d 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d GCM_MODE:.. m
0dd0: 6f 64 65 4e 61 6d 65 20 3d 20 22 47 43 4d 22 3b odeName = "GCM";
0de0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
0df0: 73 65 20 45 56 50 5f 43 49 50 48 5f 58 54 53 5f se EVP_CIPH_XTS_
0e00: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e MODE:.. modeN
0e10: 61 6d 65 20 3d 20 22 58 54 53 22 3b 0a 09 20 20 ame = "XTS";..
0e20: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 break;..case E
0e30: 56 50 5f 43 49 50 48 5f 43 43 4d 5f 4d 4f 44 45 VP_CIPH_CCM_MODE
0e40: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0e50: 3d 20 22 43 43 4d 22 3b 0a 09 20 20 20 20 62 72 = "CCM";.. br
0e60: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0e70: 49 50 48 5f 4f 43 42 5f 4d 4f 44 45 3a 0a 09 20 IPH_OCB_MODE:..
0e80: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 4f modeName = "O
0e90: 43 42 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b CB";.. break;
0ea0: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0eb0: 57 52 41 50 5f 4d 4f 44 45 20 3a 0a 09 20 20 20 WRAP_MODE :..
0ec0: 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 57 52 41 modeName = "WRA
0ed0: 50 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a P";.. break;.
0ee0: 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 6d .default:.. m
0ef0: 6f 64 65 4e 61 6d 65 20 3d 20 22 75 6e 6b 6e 6f odeName = "unkno
0f00: 77 6e 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b wn";.. break;
0f10: 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 . }. LAPPE
0f20: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f ND_STR(interp, o
0f30: 62 6a 50 74 72 2c 20 22 6d 6f 64 65 22 2c 20 6d bjPtr, "mode", m
0f40: 6f 64 65 4e 61 6d 65 2c 20 2d 31 29 3b 0a 0a 20 odeName, -1);..
0f50: 20 20 20 2f 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 /* Flags */.
0f60: 20 20 20 6c 69 73 74 50 74 72 20 3d 20 54 63 6c listPtr = Tcl
0f70: 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e _NewListObj(0, N
0f80: 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e ULL);. LAPPEN
0f90: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
0fa0: 69 73 74 50 74 72 2c 20 22 56 61 72 69 61 62 6c istPtr, "Variabl
0fb0: 65 20 4c 65 6e 67 74 68 22 2c 20 66 6c 61 67 73 e Length", flags
0fc0: 20 26 20 45 56 50 5f 43 49 50 48 5f 56 41 52 49 & EVP_CIPH_VARI
0fd0: 41 42 4c 45 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 ABLE_LENGTH);.
0fe0: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 LAPPEND_BOOL(i
0ff0: 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 nterp, listPtr,
1000: 22 41 6c 77 61 79 73 20 43 61 6c 6c 20 49 6e 69 "Always Call Ini
1010: 74 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f t", flags & EVP_
1020: 43 49 50 48 5f 41 4c 57 41 59 53 5f 43 41 4c 4c CIPH_ALWAYS_CALL
1030: 5f 49 4e 49 54 29 3b 0a 20 20 20 20 4c 41 50 50 _INIT);. LAPP
1040: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
1050: 20 6c 69 73 74 50 74 72 2c 20 22 43 75 73 74 6f listPtr, "Custo
1060: 6d 20 49 56 22 2c 20 66 6c 61 67 73 20 26 20 45 m IV", flags & E
1070: 56 50 5f 43 49 50 48 5f 43 55 53 54 4f 4d 5f 49 VP_CIPH_CUSTOM_I
1080: 56 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f V);. LAPPEND_
1090: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
10a0: 74 50 74 72 2c 20 22 43 6f 6e 74 72 6f 6c 20 49 tPtr, "Control I
10b0: 6e 69 74 22 2c 20 66 6c 61 67 73 20 26 20 45 56 nit", flags & EV
10c0: 50 5f 43 49 50 48 5f 43 54 52 4c 5f 49 4e 49 54 P_CIPH_CTRL_INIT
10d0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
10e0: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
10f0: 50 74 72 2c 20 22 43 75 73 74 6f 6d 20 43 69 70 Ptr, "Custom Cip
1100: 68 65 72 22 2c 20 66 6c 61 67 73 20 26 20 45 56 her", flags & EV
1110: 50 5f 43 49 50 48 5f 46 4c 41 47 5f 43 55 53 54 P_CIPH_FLAG_CUST
1120: 4f 4d 5f 43 49 50 48 45 52 29 3b 0a 20 20 20 20 OM_CIPHER);.
1130: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
1140: 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 41 erp, listPtr, "A
1150: 45 41 44 20 43 69 70 68 65 72 22 2c 20 66 6c 61 EAD Cipher", fla
1160: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c gs & EVP_CIPH_FL
1170: 41 47 5f 41 45 41 44 5f 43 49 50 48 45 52 29 3b AG_AEAD_CIPHER);
1180: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
1190: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 L(interp, listPt
11a0: 72 2c 20 22 43 75 73 74 6f 6d 20 43 6f 70 79 22 r, "Custom Copy"
11b0: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 , flags & EVP_CI
11c0: 50 48 5f 43 55 53 54 4f 4d 5f 43 4f 50 59 29 3b PH_CUSTOM_COPY);
11d0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
11e0: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 L(interp, listPt
11f0: 72 2c 20 22 4e 6f 6e 20 46 49 50 53 20 41 6c 6c r, "Non FIPS All
1200: 6f 77 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 ow", flags & EVP
1210: 5f 43 49 50 48 5f 46 4c 41 47 5f 4e 4f 4e 5f 46 _CIPH_FLAG_NON_F
1220: 49 50 53 5f 41 4c 4c 4f 57 29 3b 0a 20 20 20 20 IPS_ALLOW);.
1230: 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 6e 74 65 LAPPEND_OBJ(inte
1240: 72 70 2c 20 6f 62 6a 50 74 72 2c 20 22 66 6c 61 rp, objPtr, "fla
1250: 67 73 22 2c 20 6c 69 73 74 50 74 72 29 3b 0a 0a gs", listPtr);..
1260: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
1270: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a sult(interp, obj
1280: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Ptr);. return
1290: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 TCL_OK;.}../*.
12a0: 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12e0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 ----. *. * Ciphe
12f0: 72 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 rsObjCmd --. *.
1300: 2a 09 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 *.This procedure
1310: 20 69 73 20 69 6e 76 6f 6b 65 64 20 74 6f 20 70 is invoked to p
1320: 72 6f 63 65 73 73 20 74 68 65 20 22 74 6c 73 3a rocess the "tls:
1330: 3a 63 69 70 68 65 72 73 22 20 63 6f 6d 6d 61 6e :ciphers" comman
1340: 64 0a 20 2a 09 74 6f 20 6c 69 73 74 20 61 76 61 d. *.to list ava
1350: 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 2c 20 ilable ciphers,
1360: 62 61 73 65 64 20 75 70 6f 6e 20 70 72 6f 74 6f based upon proto
1370: 63 6f 6c 20 73 65 6c 65 63 74 65 64 2e 0a 20 2a col selected.. *
1380: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
1390: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 72 A standard Tcl r
13a0: 65 73 75 6c 74 20 6c 69 73 74 2e 0a 20 2a 0a 20 esult list.. *.
13b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
13c0: 20 2a 09 63 6f 6e 73 74 72 75 63 74 73 20 61 6e *.constructs an
13d0: 64 20 64 65 73 74 72 6f 79 73 20 53 53 4c 20 63 d destroys SSL c
13e0: 6f 6e 74 65 78 74 20 28 43 54 58 29 0a 20 2a 0a ontext (CTX). *.
13f0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1430: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
1440: 20 69 6e 74 20 43 69 70 68 65 72 73 4f 62 6a 43 int CiphersObjC
1450: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
1460: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
1470: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
1480: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
1490: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
14a0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 20 2a 63 74 . SSL_CTX *ct
14b0: 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 53 x = NULL;. SS
14c0: 4c 20 2a 73 73 6c 20 3d 20 4e 55 4c 4c 3b 0a 20 L *ssl = NULL;.
14d0: 20 20 20 53 54 41 43 4b 5f 4f 46 28 53 53 4c 5f STACK_OF(SSL_
14e0: 43 49 50 48 45 52 29 20 2a 73 6b 20 3d 20 4e 55 CIPHER) *sk = NU
14f0: 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 69 6e 64 65 LL;. int inde
1500: 78 2c 20 76 65 72 62 6f 73 65 20 3d 20 30 2c 20 x, verbose = 0,
1510: 75 73 65 5f 73 75 70 70 6f 72 74 65 64 20 3d 20 use_supported =
1520: 30 3b 0a 20 20 20 20 69 6e 74 20 6d 69 6e 5f 76 0;. int min_v
1530: 65 72 73 69 6f 6e 2c 20 6d 61 78 5f 76 65 72 73 ersion, max_vers
1540: 69 6f 6e 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ion;.. dprint
1550: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 23 69 f("Called");..#i
1560: 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f f OPENSSL_VERSIO
1570: 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 31 N_NUMBER < 0x101
1580: 30 30 30 30 30 4c 0a 20 20 20 20 4f 70 65 6e 53 00000L. OpenS
1590: 53 4c 5f 61 64 64 5f 61 6c 6c 5f 63 69 70 68 65 SL_add_all_ciphe
15a0: 72 73 28 29 3b 20 2f 2a 20 4d 61 6b 65 20 73 75 rs(); /* Make su
15b0: 72 65 20 74 68 65 79 27 72 65 20 6c 6f 61 64 65 re they're loade
15c0: 64 20 2a 2f 0a 23 65 6e 64 69 66 0a 0a 20 20 20 d */.#endif..
15d0: 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 /* Clear errors
15e0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 */. Tcl_Rese
15f0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
1600: 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 . ERR_clear_e
1610: 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 rror();.. /*
1620: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
1630: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
1640: 6a 63 20 3e 20 34 29 20 7b 0a 09 54 63 6c 5f 57 jc > 4) {..Tcl_W
1650: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
1660: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 70 rp, 1, objv, "?p
1670: 72 6f 74 6f 63 6f 6c 3f 20 3f 76 65 72 62 6f 73 rotocol? ?verbos
1680: 65 3f 20 3f 73 75 70 70 6f 72 74 65 64 3f 22 29 e? ?supported?")
1690: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
16a0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
16b0: 2f 2a 20 4c 69 73 74 20 61 6c 6c 20 63 69 70 68 /* List all ciph
16c0: 65 72 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f ers */. if (o
16d0: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 54 63 6c bjc == 1) {..Tcl
16e0: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d 20 54 _Obj *objPtr = T
16f0: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
1700: 20 4e 55 4c 4c 29 3b 0a 0a 09 4f 42 4a 5f 4e 41 NULL);...OBJ_NA
1710: 4d 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 ME_do_all(OBJ_NA
1720: 4d 45 5f 54 59 50 45 5f 43 49 50 48 45 52 5f 4d ME_TYPE_CIPHER_M
1730: 45 54 48 2c 20 4e 61 6d 65 73 43 61 6c 6c 62 61 ETH, NamesCallba
1740: 63 6b 2c 20 28 76 6f 69 64 20 2a 29 20 6f 62 6a ck, (void *) obj
1750: 50 74 72 29 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 Ptr);..Tcl_SetOb
1760: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
1770: 6f 62 6a 50 74 72 29 3b 0a 09 72 65 74 75 72 6e objPtr);..return
1780: 20 54 43 4c 5f 4f 4b 3b 0a 0a 20 20 20 20 7d 0a TCL_OK;.. }.
1790: 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f 70 74 69 . /* Get opti
17a0: 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 ons */. if (T
17b0: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f cl_GetIndexFromO
17c0: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
17d0: 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c 73 2c 20 22 1], protocols, "
17e0: 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 2c 20 26 69 protocol", 0, &i
17f0: 6e 64 65 78 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 ndex) != TCL_OK
1800: 7c 7c 0a 09 28 6f 62 6a 63 20 3e 20 32 20 26 26 ||..(objc > 2 &&
1810: 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 Tcl_GetBooleanF
1820: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
1830: 62 6a 76 5b 32 5d 2c 20 26 76 65 72 62 6f 73 65 bjv[2], &verbose
1840: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7c 7c 0a ) != TCL_OK) ||.
1850: 09 28 6f 62 6a 63 20 3e 20 33 20 26 26 20 54 63 .(objc > 3 && Tc
1860: 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d l_GetBooleanFrom
1870: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
1880: 5b 33 5d 2c 20 26 75 73 65 5f 73 75 70 70 6f 72 [3], &use_suppor
1890: 74 65 64 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 29 ted) != TCL_OK))
18a0: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
18b0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
18c0: 20 73 77 69 74 63 68 20 28 28 65 6e 75 6d 20 70 switch ((enum p
18d0: 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 78 29 20 7b rotocol)index) {
18e0: 0a 09 63 61 73 65 20 54 4c 53 5f 53 53 4c 32 3a ..case TLS_SSL2:
18f0: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
1900: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
1910: 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c rotocols[index],
1920: 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 ": protocol not
1930: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c supported", NUL
1940: 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 L);.. return
1950: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 63 61 73 65 TCL_ERROR;..case
1960: 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 69 66 20 64 TLS_SSL3:.#if d
1970: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 efined(NO_SSL3)
1980: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
1990: 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 64 SL_NO_SSL3) || d
19a0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
19b0: 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 29 0a 09 O_SSL3_METHOD)..
19c0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
19d0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f sult(interp, pro
19e0: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 tocols[index], "
19f0: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 : protocol not s
1a00: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
1a10: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
1a20: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 L_ERROR;.#else.
1a30: 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 min_v
1a40: 65 72 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 ersion = SSL3_VE
1a50: 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 RSION;.
1a60: 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d max_version =
1a70: 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 SSL3_VERSION;..
1a80: 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 break;.#endi
1a90: 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 f..case TLS_TLS1
1aa0: 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f :.#if defined(NO
1ab0: 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 _TLS1) || define
1ac0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
1ad0: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 1) || defined(OP
1ae0: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 ENSSL_NO_TLS1_ME
1af0: 54 48 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 THOD).. Tcl_A
1b00: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1b10: 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e rp, protocols[in
1b20: 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f dex], ": protoco
1b30: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
1b40: 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 , NULL);.. re
1b50: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1b60: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 #else.
1b70: 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 min_version =
1b80: 54 4c 53 31 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 TLS1_VERSION;.
1b90: 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 max_ve
1ba0: 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 52 rsion = TLS1_VER
1bb0: 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b SION;.. break
1bc0: 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54 ;.#endif..case T
1bd0: 4c 53 5f 54 4c 53 31 5f 31 3a 0a 23 69 66 20 64 LS_TLS1_1:.#if d
1be0: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 efined(NO_TLS1_1
1bf0: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
1c00: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 NSSL_NO_TLS1_1)
1c10: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
1c20: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 SL_NO_TLS1_1_MET
1c30: 48 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 HOD).. Tcl_Ap
1c40: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1c50: 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 p, protocols[ind
1c60: 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c ex], ": protocol
1c70: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
1c80: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
1c90: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 urn TCL_ERROR;.#
1ca0: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
1cb0: 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 54 min_version = T
1cc0: 4c 53 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 20 LS1_1_VERSION;.
1cd0: 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 max_v
1ce0: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f ersion = TLS1_1_
1cf0: 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 VERSION;.. br
1d00: 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 eak;.#endif..cas
1d10: 65 20 54 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 e TLS_TLS1_2:.#i
1d20: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
1d30: 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 1_2) || defined(
1d40: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
1d50: 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 2) || defined(OP
1d60: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f ENSSL_NO_TLS1_2_
1d70: 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 63 6c METHOD).. Tcl
1d80: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1d90: 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b terp, protocols[
1da0: 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f index], ": proto
1db0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
1dc0: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 d", NULL);..
1dd0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1de0: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ;.#else.
1df0: 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 min_version
1e00: 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 49 4f 4e = TLS1_2_VERSION
1e10: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 ;. ma
1e20: 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 x_version = TLS1
1e30: 5f 32 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 _2_VERSION;..
1e40: 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 break;.#endif..
1e50: 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 33 3a case TLS_TLS1_3:
1e60: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f .#if defined(NO_
1e70: 54 4c 53 31 5f 33 29 20 7c 7c 20 64 65 66 69 6e TLS1_3) || defin
1e80: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
1e90: 53 31 5f 33 29 0a 09 20 20 20 20 54 63 6c 5f 41 S1_3).. Tcl_A
1ea0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1eb0: 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e rp, protocols[in
1ec0: 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f dex], ": protoco
1ed0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
1ee0: 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 , NULL);.. re
1ef0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1f00: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 #else.
1f10: 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 min_version =
1f20: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a TLS1_3_VERSION;.
1f30: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f max_
1f40: 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 version = TLS1_3
1f50: 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 _VERSION;.. b
1f60: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65 reak;.#endif..de
1f70: 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 20 20 fault:.
1f80: 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d min_version =
1f90: 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 20 SSL3_VERSION;.
1fa0: 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 max_v
1fb0: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f ersion = TLS1_3_
1fc0: 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 VERSION;.. br
1fd0: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 eak;. }..
1fe0: 2f 2a 20 43 72 65 61 74 65 20 63 6f 6e 74 65 78 /* Create contex
1ff0: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 63 74 t */. if ((ct
2000: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 x = SSL_CTX_new(
2010: 54 4c 53 5f 73 65 72 76 65 72 5f 6d 65 74 68 6f TLS_server_metho
2020: 64 28 29 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b d())) == NULL) {
2030: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
2040: 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 4f lt(interp, REASO
2050: 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 N(), NULL);..ret
2060: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
2070: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 65 74 }.. /* Set
2080: 20 70 72 6f 74 6f 63 6f 6c 20 76 65 72 73 69 6f protocol versio
2090: 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 53 53 ns */. if (SS
20a0: 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 6e 5f 70 72 L_CTX_set_min_pr
20b0: 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78 2c oto_version(ctx,
20c0: 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 29 20 3d 3d min_version) ==
20d0: 20 30 20 7c 7c 0a 09 53 53 4c 5f 43 54 58 5f 73 0 ||..SSL_CTX_s
20e0: 65 74 5f 6d 61 78 5f 70 72 6f 74 6f 5f 76 65 72 et_max_proto_ver
20f0: 73 69 6f 6e 28 63 74 78 2c 20 6d 61 78 5f 76 65 sion(ctx, max_ve
2100: 72 73 69 6f 6e 29 20 3d 3d 20 30 29 20 7b 0a 09 rsion) == 0) {..
2110: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
2120: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
2130: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
2140: 20 2f 2a 20 43 72 65 61 74 65 20 53 53 4c 20 63 /* Create SSL c
2150: 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 66 ontext */. if
2160: 20 28 28 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 ((ssl = SSL_new
2170: 28 63 74 78 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 (ctx)) == NULL)
2180: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
2190: 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 45 41 53 ult(interp, REAS
21a0: 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 53 53 ON(), NULL);..SS
21b0: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b L_CTX_free(ctx);
21c0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
21d0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
21e0: 2a 20 55 73 65 20 6c 69 73 74 20 61 6e 64 20 6f * Use list and o
21f0: 72 64 65 72 20 61 73 20 77 6f 75 6c 64 20 62 65 rder as would be
2200: 20 73 65 6e 74 20 69 6e 20 61 20 43 6c 69 65 6e sent in a Clien
2210: 74 48 65 6c 6c 6f 20 6f 72 20 61 6c 6c 20 61 76 tHello or all av
2220: 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 73 20 ailable ciphers
2230: 2a 2f 0a 20 20 20 20 69 66 20 28 75 73 65 5f 73 */. if (use_s
2240: 75 70 70 6f 72 74 65 64 29 20 7b 0a 09 73 6b 20 upported) {..sk
2250: 3d 20 53 53 4c 5f 67 65 74 31 5f 73 75 70 70 6f = SSL_get1_suppo
2260: 72 74 65 64 5f 63 69 70 68 65 72 73 28 73 73 6c rted_ciphers(ssl
2270: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
2280: 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 5f 63 69 .sk = SSL_get_ci
2290: 70 68 65 72 73 28 73 73 6c 29 3b 0a 09 2f 2a 73 phers(ssl);../*s
22a0: 6b 20 3d 20 53 53 4c 5f 43 54 58 5f 67 65 74 5f k = SSL_CTX_get_
22b0: 63 69 70 68 65 72 73 28 63 74 78 29 3b 2a 2f 0a ciphers(ctx);*/.
22c0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 }.. if (s
22d0: 6b 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 k != NULL) {..Tc
22e0: 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 20 3d 20 l_Obj *objPtr =
22f0: 4e 55 4c 4c 3b 0a 0a 09 69 66 20 28 21 76 65 72 NULL;...if (!ver
2300: 62 6f 73 65 29 20 7b 0a 09 20 20 20 20 63 68 61 bose) {.. cha
2310: 72 20 2a 63 70 3b 0a 09 20 20 20 20 6f 62 6a 50 r *cp;.. objP
2320: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 tr = Tcl_NewList
2330: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 Obj(0, NULL);...
2340: 20 20 20 20 66 6f 72 20 28 69 6e 74 20 69 20 3d for (int i =
2350: 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53 4c 5f 43 0; i < sk_SSL_C
2360: 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 IPHER_num(sk); i
2370: 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 20 53 53 ++) {...const SS
2380: 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d 20 73 6b L_CIPHER *c = sk
2390: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 _SSL_CIPHER_valu
23a0: 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69 66 20 28 e(sk, i);...if (
23b0: 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e 74 69 c == NULL) conti
23c0: 6e 75 65 3b 0a 0a 09 09 2f 2a 20 63 69 70 68 65 nue;..../* ciphe
23d0: 72 20 6e 61 6d 65 20 6f 72 20 28 4e 4f 4e 45 29 r name or (NONE)
23e0: 20 2a 2f 0a 09 09 63 70 20 3d 20 53 53 4c 5f 43 */...cp = SSL_C
23f0: 49 50 48 45 52 5f 67 65 74 5f 6e 61 6d 65 28 63 IPHER_get_name(c
2400: 29 3b 0a 09 09 69 66 20 28 63 70 20 3d 3d 20 4e );...if (cp == N
2410: 55 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 09 54 63 ULL) break;...Tc
2420: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
2430: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f lement(interp, o
2440: 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 bjPtr, Tcl_NewSt
2450: 72 69 6e 67 4f 62 6a 28 63 70 2c 20 2d 31 29 29 ringObj(cp, -1))
2460: 3b 0a 09 20 20 20 20 7d 0a 0a 09 7d 20 65 6c 73 ;.. }...} els
2470: 65 20 7b 0a 09 20 20 20 20 63 68 61 72 20 62 75 e {.. char bu
2480: 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 20 20 20 20 f[BUFSIZ];..
2490: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 objPtr = Tcl_New
24a0: 53 74 72 69 6e 67 4f 62 6a 28 22 22 2c 30 29 3b StringObj("",0);
24b0: 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 6e 74 20 ... for (int
24c0: 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53 i = 0; i < sk_SS
24d0: 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 L_CIPHER_num(sk)
24e0: 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 ; i++) {...const
24f0: 20 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d SSL_CIPHER *c =
2500: 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 sk_SSL_CIPHER_v
2510: 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69 alue(sk, i);...i
2520: 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f f (c == NULL) co
2530: 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 74 65 ntinue;..../* te
2540: 78 74 75 61 6c 20 64 65 73 63 72 69 70 74 69 6f xtual descriptio
2550: 6e 20 6f 66 20 74 68 65 20 63 69 70 68 65 72 20 n of the cipher
2560: 2a 2f 0a 09 09 69 66 20 28 53 53 4c 5f 43 49 50 */...if (SSL_CIP
2570: 48 45 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 HER_description(
2580: 63 2c 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 62 c, buf, sizeof(b
2590: 75 66 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a uf)) != NULL) {.
25a0: 09 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
25b0: 54 6f 4f 62 6a 28 6f 62 6a 50 74 72 2c 20 62 75 ToObj(objPtr, bu
25c0: 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 73 74 f, (Tcl_Size) st
25d0: 72 6c 65 6e 28 62 75 66 29 29 3b 0a 09 09 7d 20 rlen(buf));...}
25e0: 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 54 63 6c else {... Tcl
25f0: 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 6f 62 6a _AppendToObj(obj
2600: 50 74 72 2c 20 22 55 4e 4b 4e 4f 57 4e 5c 6e 22 Ptr, "UNKNOWN\n"
2610: 2c 20 38 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d , 8);...}.. }
2620: 0a 09 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 20 75 ..}.../* Clean u
2630: 70 20 2a 2f 0a 09 69 66 20 28 75 73 65 5f 73 75 p */..if (use_su
2640: 70 70 6f 72 74 65 64 29 20 7b 0a 09 20 20 20 20 pported) {..
2650: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 66 72 sk_SSL_CIPHER_fr
2660: 65 65 28 73 6b 29 3b 0a 09 7d 0a 09 54 63 6c 5f ee(sk);..}..Tcl_
2670: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
2680: 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b 0a 20 20 erp, objPtr);.
2690: 20 20 7d 0a 0a 20 20 20 20 53 53 4c 5f 66 72 65 }.. SSL_fre
26a0: 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f e(ssl);. SSL_
26b0: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 CTX_free(ctx);.
26c0: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
26d0: 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 ;..clientData =
26e0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f clientData;.}../
26f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2700: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2710: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2720: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2730: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
2740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2780: 2a 0a 20 2a 20 44 69 67 65 73 74 49 6e 66 6f 20 *. * DigestInfo
2790: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 --. *. *.Return
27a0: 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 72 a list of proper
27b0: 74 69 65 73 20 61 6e 64 20 76 61 6c 75 65 73 20 ties and values
27c0: 66 6f 72 20 64 69 67 65 73 74 4e 61 6d 65 2e 0a for digestName..
27d0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
27e0: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
27f0: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 list.. *. * Sid
2800: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
2810: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
2820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
2860: 0a 69 6e 74 20 44 69 67 65 73 74 49 6e 66 6f 28 .int DigestInfo(
2870: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
2880: 72 70 2c 20 63 68 61 72 20 2a 64 69 67 65 73 74 rp, char *digest
2890: 4e 61 6d 65 29 20 7b 0a 20 20 20 20 54 63 6c 5f Name) {. Tcl_
28a0: 4f 62 6a 20 2a 6f 62 6a 50 74 72 2c 20 2a 6c 69 Obj *objPtr, *li
28b0: 73 74 50 74 72 3b 0a 20 20 20 20 45 56 50 5f 4d stPtr;. EVP_M
28c0: 44 20 2a 6d 64 20 3d 20 45 56 50 5f 67 65 74 5f D *md = EVP_get_
28d0: 64 69 67 65 73 74 62 79 6e 61 6d 65 28 64 69 67 digestbyname(dig
28e0: 65 73 74 4e 61 6d 65 29 3b 0a 20 20 20 20 75 6e estName);. un
28f0: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 signed long flag
2900: 73 3b 0a 0a 20 20 20 20 69 66 20 28 6d 64 20 3d s;.. if (md =
2910: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
2920: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
2930: 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 64 69 67 rp, "Invalid dig
2940: 65 73 74 20 5c 22 22 2c 20 64 69 67 65 73 74 4e est \"", digestN
2950: 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 ame, "\"", NULL)
2960: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
2970: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
2980: 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 /* Get propertie
2990: 73 20 2a 2f 0a 20 20 20 20 6f 62 6a 50 74 72 20 s */. objPtr
29a0: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
29b0: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c (0, NULL);. L
29c0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
29d0: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 6e 61 6d 65 p, objPtr, "name
29e0: 22 2c 20 45 56 50 5f 4d 44 5f 6e 61 6d 65 28 6d ", EVP_MD_name(m
29f0: 64 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 d), -1);. LAP
2a00: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
2a10: 20 6f 62 6a 50 74 72 2c 20 22 64 65 73 63 72 69 objPtr, "descri
2a20: 70 74 69 6f 6e 22 2c 20 22 22 2c 20 2d 31 29 3b ption", "", -1);
2a30: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54 . LAPPEND_INT
2a40: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
2a50: 20 22 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f "size", EVP_MD_
2a60: 73 69 7a 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c size(md));. L
2a70: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
2a80: 70 2c 20 6f 62 6a 50 74 72 2c 20 22 62 6c 6f 63 p, objPtr, "bloc
2a90: 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f k_size", EVP_MD_
2aa0: 62 6c 6f 63 6b 5f 73 69 7a 65 28 6d 64 29 29 3b block_size(md));
2ab0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
2ac0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
2ad0: 20 22 70 72 6f 76 69 64 65 72 22 2c 20 22 22 2c "provider", "",
2ae0: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
2af0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 6f 62 D_STR(interp, ob
2b00: 6a 50 74 72 2c 20 22 74 79 70 65 22 2c 20 4f 42 jPtr, "type", OB
2b10: 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 4d 44 5f J_nid2ln(EVP_MD_
2b20: 74 79 70 65 28 6d 64 29 29 2c 20 2d 31 29 3b 0a type(md)), -1);.
2b30: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
2b40: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 interp, objPtr,
2b50: 22 70 6b 65 79 5f 74 79 70 65 22 2c 20 4f 42 4a "pkey_type", OBJ
2b60: 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 4d 44 5f 70 _nid2ln(EVP_MD_p
2b70: 6b 65 79 5f 74 79 70 65 28 6d 64 29 29 2c 20 2d key_type(md)), -
2b80: 31 29 3b 0a 20 20 20 20 66 6c 61 67 73 20 3d 20 1);. flags =
2b90: 45 56 50 5f 4d 44 5f 66 6c 61 67 73 28 6d 64 29 EVP_MD_flags(md)
2ba0: 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c 61 67 73 20 ;.. /* Flags
2bb0: 2a 2f 0a 20 20 20 20 6c 69 73 74 50 74 72 20 3d */. listPtr =
2bc0: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
2bd0: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 0, NULL);. LA
2be0: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 PPEND_BOOL(inter
2bf0: 70 2c 20 6c 69 73 74 50 74 72 2c 20 22 4f 6e 65 p, listPtr, "One
2c00: 2d 73 68 6f 74 22 2c 20 66 6c 61 67 73 20 26 20 -shot", flags &
2c10: 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 4f 4e 45 53 EVP_MD_FLAG_ONES
2c20: 48 4f 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e HOT);. LAPPEN
2c30: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
2c40: 69 73 74 50 74 72 2c 20 22 58 4f 46 22 2c 20 66 istPtr, "XOF", f
2c50: 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c lags & EVP_MD_FL
2c60: 41 47 5f 58 4f 46 29 3b 0a 20 20 20 20 4c 41 50 AG_XOF);. LAP
2c70: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
2c80: 2c 20 6c 69 73 74 50 74 72 2c 20 22 44 69 67 65 , listPtr, "Dige
2c90: 73 74 41 6c 67 6f 72 69 74 68 6d 49 64 5f 4e 55 stAlgorithmId_NU
2ca0: 4c 4c 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 LL", flags & EVP
2cb0: 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 _MD_FLAG_DIGALGI
2cc0: 44 5f 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 50 D_NULL);. LAP
2cd0: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
2ce0: 2c 20 6c 69 73 74 50 74 72 2c 20 22 44 69 67 65 , listPtr, "Dige
2cf0: 73 74 41 6c 67 6f 72 69 74 68 6d 49 64 5f 41 62 stAlgorithmId_Ab
2d00: 73 63 65 6e 74 22 2c 20 66 6c 61 67 73 20 26 20 scent", flags &
2d10: 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 EVP_MD_FLAG_DIGA
2d20: 4c 47 49 44 5f 41 42 53 45 4e 54 29 3b 0a 20 20 LGID_ABSENT);.
2d30: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 LAPPEND_BOOL(i
2d40: 6e 74 65 72 70 2c 20 6c 69 73 74 50 74 72 2c 20 nterp, listPtr,
2d50: 22 44 69 67 65 73 74 41 6c 67 6f 72 69 74 68 6d "DigestAlgorithm
2d60: 49 64 5f 43 75 73 74 6f 6d 22 2c 20 66 6c 61 67 Id_Custom", flag
2d70: 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f s & EVP_MD_FLAG_
2d80: 44 49 47 41 4c 47 49 44 5f 43 55 53 54 4f 4d 29 DIGALGID_CUSTOM)
2d90: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
2da0: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 50 OL(interp, listP
2db0: 74 72 2c 20 22 46 49 50 53 22 2c 20 66 6c 61 67 tr, "FIPS", flag
2dc0: 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f s & EVP_MD_FLAG_
2dd0: 46 49 50 53 29 3b 0a 20 20 20 20 4c 41 50 50 45 FIPS);. LAPPE
2de0: 4e 44 5f 4f 42 4a 28 69 6e 74 65 72 70 2c 20 6f ND_OBJ(interp, o
2df0: 62 6a 50 74 72 2c 20 22 66 6c 61 67 73 22 2c 20 bjPtr, "flags",
2e00: 6c 69 73 74 50 74 72 29 3b 0a 0a 20 20 20 20 54 listPtr);.. T
2e10: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
2e20: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
2e30: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
2e40: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
2e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2e90: 20 2a 0a 20 2a 20 44 69 67 65 73 74 73 4f 62 6a *. * DigestsObj
2ea0: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 Cmd --. *. *.Ret
2eb0: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c urn a list of al
2ec0: 6c 20 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 l valid hash alg
2ed0: 6f 72 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 orithms or messa
2ee0: 67 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 ge digests.. *.
2ef0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
2f00: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 standard Tcl lis
2f10: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
2f20: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
2f30: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
2f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
2f80: 20 44 69 67 65 73 74 73 4f 62 6a 43 6d 64 28 43 DigestsObjCmd(C
2f90: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
2fa0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
2fb0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
2fc0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
2fd0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
2fe0: 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 Tcl_Obj *objPtr
2ff0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
3000: 43 61 6c 6c 65 64 22 29 3b 0a 0a 23 69 66 20 4f Called");..#if O
3010: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
3020: 55 4d 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 UMBER < 0x101000
3030: 30 30 4c 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f 00L. OpenSSL_
3040: 61 64 64 5f 61 6c 6c 5f 64 69 67 65 73 74 73 28 add_all_digests(
3050: 29 3b 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 ); /* Make sure
3060: 74 68 65 79 27 72 65 20 6c 6f 61 64 65 64 20 2a they're loaded *
3070: 2f 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 2f 2a /.#endif.. /*
3080: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
3090: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
30a0: 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 63 68 61 bjc == 2) {..cha
30b0: 72 20 2a 64 69 67 65 73 74 4e 61 6d 65 20 3d 20 r *digestName =
30c0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
30d0: 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 4e 55 4c mObj(objv[1],NUL
30e0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 44 69 67 65 L);..return Dige
30f0: 73 74 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 64 stInfo(interp, d
3100: 69 67 65 73 74 4e 61 6d 65 29 3b 0a 20 20 20 20 igestName);.
3110: 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 } else if (objc
3120: 3e 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e > 2) {..Tcl_Wron
3130: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
3140: 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 1, objv, "?name
3150: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c ?");..return TCL
3160: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
3170: 20 20 20 2f 2a 20 4c 69 73 74 20 61 6c 6c 20 64 /* List all d
3180: 69 67 65 73 74 73 20 2a 2f 0a 20 20 20 20 6f 62 igests */. ob
3190: 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 jPtr = Tcl_NewLi
31a0: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
31b0: 20 20 20 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f OBJ_NAME_do_
31c0: 61 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 all(OBJ_NAME_TYP
31d0: 45 5f 4d 44 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 E_MD_METH, Names
31e0: 43 61 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 Callback, (void
31f0: 2a 29 20 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 *) objPtr);.
3200: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
3210: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 (interp, objPtr)
3220: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
3230: 5f 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 _OK;..clientData
3240: 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d = clientData;.}
3250: 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ../*************
3260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3290: 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d ******/../*. *--
32a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
32e0: 2d 0a 20 2a 0a 20 2a 20 4d 61 63 73 4f 62 6a 43 -. *. * MacsObjC
32f0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
3300: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c rn a list of all
3310: 20 76 61 6c 69 64 20 6d 65 73 73 61 67 65 20 61 valid message a
3320: 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 63 6f uthentication co
3330: 64 65 73 20 28 4d 41 43 29 2e 0a 20 2a 0a 20 2a des (MAC).. *. *
3340: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
3350: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 tandard Tcl list
3360: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
3370: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
3380: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
33d0: 4d 61 63 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e MacsObjCmd(Clien
33e0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
33f0: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
3400: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
3410: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
3420: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c bjv[]) {. Tcl
3430: 5f 4f 62 6a 20 2a 6f 62 6a 50 74 72 3b 0a 0a 20 _Obj *objPtr;..
3440: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
3450: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 ed");.. /* Va
3460: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
3470: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
3480: 20 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f 57 72 != 1) {..Tcl_Wr
3490: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
34a0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c 4c p, 1, objv, NULL
34b0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
34c0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
34d0: 20 2f 2a 20 4c 69 73 74 20 61 6c 6c 20 4d 41 43 /* List all MAC
34e0: 73 20 2a 2f 0a 20 20 20 20 6f 62 6a 50 74 72 20 s */. objPtr
34f0: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
3500: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 (0, NULL);. T
3510: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
3520: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
3530: 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 objPtr, Tcl_NewS
3540: 74 72 69 6e 67 4f 62 6a 28 22 63 6d 61 63 22 2c tringObj("cmac",
3550: 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c -1));. Tcl_L
3560: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
3570: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ent(interp, objP
3580: 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e tr, Tcl_NewStrin
3590: 67 4f 62 6a 28 22 68 6d 61 63 22 2c 20 2d 31 29 gObj("hmac", -1)
35a0: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 );. Tcl_SetOb
35b0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
35c0: 6f 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 objPtr);. ret
35d0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 urn TCL_OK;..cli
35e0: 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 entData = client
35f0: 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a Data;.}../******
3600: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3610: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3620: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3630: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
3640: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
3650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3680: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 --------. *. * P
3690: 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 20 2d rotocolsObjCmd -
36a0: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
36b0: 20 6c 69 73 74 20 6f 66 20 74 68 65 20 61 76 61 list of the ava
36c0: 69 6c 61 62 6c 65 20 6f 72 20 73 75 70 70 6f 72 ilable or suppor
36d0: 74 65 64 20 53 53 4c 2f 54 4c 53 20 70 72 6f 74 ted SSL/TLS prot
36e0: 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 ocols.. *. * Res
36f0: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
3700: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
3710: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
3720: 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d :. *.none. *. *-
3730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3770: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
3780: 74 0a 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d t.ProtocolsObjCm
3790: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
37a0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
37b0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
37c0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
37d0: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
37e0: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a Tcl_Obj *obj
37f0: 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 Ptr;.. dprint
3800: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
3810: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
3820: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 g count */. i
3830: 66 20 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a f (objc != 1) {.
3840: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
3850: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
3860: 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 v, NULL);..retur
3870: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
3880: 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 }.. /* List
3890: 61 6c 6c 20 4d 41 43 73 20 2a 2f 0a 20 20 20 20 all MACs */.
38a0: 6f 62 6a 50 74 72 20 3d 20 54 63 6c 5f 4e 65 77 objPtr = Tcl_New
38b0: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
38c0: 3b 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 ;.#if OPENSSL_VE
38d0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 RSION_NUMBER < 0
38e0: 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 21 64 x10100000L && !d
38f0: 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 efined(NO_SSL2)
3900: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
3910: 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 SSL_NO_SSL2).
3920: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
3930: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
3940: 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 , objPtr, Tcl_Ne
3950: 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f wStringObj(proto
3960: 63 6f 6c 73 5b 54 4c 53 5f 53 53 4c 32 5d 2c 20 cols[TLS_SSL2],
3970: 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 -1));.#endif.#if
3980: 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c !defined(NO_SSL
3990: 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 3) && !defined(O
39a0: 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 PENSSL_NO_SSL3)
39b0: 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e && !defined(OPEN
39c0: 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 SSL_NO_SSL3_METH
39d0: 4f 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 OD). Tcl_List
39e0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
39f0: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 2c (interp, objPtr,
3a00: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
3a10: 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f j(protocols[TLS_
3a20: 53 53 4c 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e SSL3], -1));.#en
3a30: 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 dif.#if !defined
3a40: 28 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 (NO_TLS1) && !de
3a50: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
3a60: 5f 54 4c 53 31 29 20 26 26 20 21 64 65 66 69 6e _TLS1) && !defin
3a70: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c ed(OPENSSL_NO_TL
3a80: 53 31 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 S1_METHOD). T
3a90: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
3aa0: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
3ab0: 6f 62 6a 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 objPtr, Tcl_NewS
3ac0: 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f tringObj(protoco
3ad0: 6c 73 5b 54 4c 53 5f 54 4c 53 31 5d 2c 20 2d 31 ls[TLS_TLS1], -1
3ae0: 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 ));.#endif.#if !
3af0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
3b00: 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 1) && !defined(O
3b10: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 PENSSL_NO_TLS1_1
3b20: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
3b30: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 5f ENSSL_NO_TLS1_1_
3b40: 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c 5f METHOD). Tcl_
3b50: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
3b60: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a ment(interp, obj
3b70: 50 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Ptr, Tcl_NewStri
3b80: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b ngObj(protocols[
3b90: 54 4c 53 5f 54 4c 53 31 5f 31 5d 2c 20 2d 31 29 TLS_TLS1_1], -1)
3ba0: 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 );.#endif.#if !d
3bb0: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 efined(NO_TLS1_2
3bc0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 ) && !defined(OP
3bd0: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 ENSSL_NO_TLS1_2)
3be0: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 && !defined(OPE
3bf0: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d NSSL_NO_TLS1_2_M
3c00: 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c 5f 4c ETHOD). Tcl_L
3c10: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
3c20: 65 6e 74 28 69 6e 74 65 72 70 2c 20 6f 62 6a 50 ent(interp, objP
3c30: 74 72 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e tr, Tcl_NewStrin
3c40: 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 gObj(protocols[T
3c50: 4c 53 5f 54 4c 53 31 5f 32 5d 2c 20 2d 31 29 29 LS_TLS1_2], -1))
3c60: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 ;.#endif.#if !de
3c70: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 fined(NO_TLS1_3)
3c80: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 && !defined(OPE
3c90: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a NSSL_NO_TLS1_3).
3ca0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
3cb0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
3cc0: 65 72 70 2c 20 6f 62 6a 50 74 72 2c 20 54 63 6c erp, objPtr, Tcl
3cd0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 _NewStringObj(pr
3ce0: 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 otocols[TLS_TLS1
3cf0: 5f 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 _3], -1));.#endi
3d00: 66 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a f. Tcl_SetObj
3d10: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 6f Result(interp, o
3d20: 62 6a 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 bjPtr);. retu
3d30: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 rn TCL_OK;..clie
3d40: 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 ntData = clientD
3d50: 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a ata;.}../*******
3d60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3d70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3d80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3d90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f ************/../
3da0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3de0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 -------. *. * Ve
3df0: 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d 2d 0a 20 rsionObjCmd --.
3e00: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 73 74 *. *.Return a st
3e10: 72 69 6e 67 20 77 69 74 68 20 74 68 65 20 4f 70 ring with the Op
3e20: 65 6e 53 53 4c 20 76 65 72 73 69 6f 6e 20 69 6e enSSL version in
3e30: 66 6f 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 fo.. *. * Result
3e40: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
3e50: 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a 20 2a 0a Tcl result.. *.
3e60: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
3e70: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
3e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ec0: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
3ed0: 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 t.VersionObjCmd(
3ee0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3ef0: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
3f00: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
3f10: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
3f20: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
3f30: 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f 62 6a 50 74 Tcl_Obj *objPt
3f40: 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 r;.. dprintf(
3f50: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
3f60: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
3f70: 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 count */. if
3f80: 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a 09 54 (objc != 1) {..T
3f90: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
3fa0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
3fb0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
3fc0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
3fd0: 0a 0a 20 20 20 20 6f 62 6a 50 74 72 20 3d 20 54 .. objPtr = T
3fe0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
3ff0: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
4000: 54 45 58 54 2c 20 2d 31 29 3b 0a 20 20 20 20 54 TEXT, -1);. T
4010: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
4020: 69 6e 74 65 72 70 2c 20 6f 62 6a 50 74 72 29 3b interp, objPtr);
4030: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4040: 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 61 74 61 20 OK;..clientData
4050: 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d 0a = clientData;.}.
4060: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
4070: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4080: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4090: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
40a0: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d *****/../*. *---
40b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 66 6f 43 . *. * Tls_InfoC
4100: 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a ommands --. *. *
4110: 09 43 72 65 61 74 65 20 69 6e 66 6f 20 63 6f 6d .Create info com
4120: 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 74 75 mands. *. * Retu
4130: 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f rns:. *.TCL_OK o
4140: 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 r TCL_ERROR. *.
4150: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4160: 20 2a 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 *.Creates comma
4170: 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d nds. *. *-------
4180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
41c0: 0a 69 6e 74 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d .int Tls_InfoCom
41d0: 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 mands(Tcl_Interp
41e0: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 *interp) {.
41f0: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
4200: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
4210: 73 3a 3a 63 69 70 68 65 72 22 2c 20 43 69 70 68 s::cipher", Ciph
4220: 65 72 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e erObjCmd, (Clien
4230: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
4240: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
4250: 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 NULL);. Tcl_C
4260: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
4270: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 interp, "tls::ci
4280: 70 68 65 72 73 22 2c 20 43 69 70 68 65 72 73 4f phers", CiphersO
4290: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
42a0: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
42b0: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
42c0: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
42d0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
42e0: 65 72 70 2c 20 22 74 6c 73 3a 3a 64 69 67 65 73 erp, "tls::diges
42f0: 74 73 22 2c 20 44 69 67 65 73 74 73 4f 62 6a 43 ts", DigestsObjC
4300: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
4310: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
4320: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
4330: 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f . Tcl_CreateO
4340: 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 bjCommand(interp
4350: 2c 20 22 74 6c 73 3a 3a 6d 61 63 73 22 2c 20 4d , "tls::macs", M
4360: 61 63 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 acsObjCmd, (Clie
4370: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f ntData) 0, (Tcl_
4380: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
4390: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
43a0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
43b0: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 (interp, "tls::p
43c0: 72 6f 74 6f 63 6f 6c 73 22 2c 20 50 72 6f 74 6f rotocols", Proto
43d0: 63 6f 6c 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 colsObjCmd, (Cli
43e0: 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c entData) 0, (Tcl
43f0: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
4400: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
4410: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
4420: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
4430: 76 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f version", Versio
4440: 6e 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 nObjCmd, (Client
4450: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
4460: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
4470: 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ULL);. return
4480: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a TCL_OK;.}.