0000: 2f 2a 0a 20 2a 20 49 6e 66 6f 72 6d 61 74 69 6f /*. * Informatio
0010: 6e 20 43 6f 6d 6d 61 6e 64 73 20 4d 6f 64 75 6c n Commands Modul
0020: 65 0a 20 2a 0a 20 2a 20 50 72 6f 76 69 64 65 73 e. *. * Provides
0030: 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 72 commands that r
0040: 65 74 75 72 6e 20 69 6e 66 6f 20 72 65 6c 61 74 eturn info relat
0050: 65 64 20 74 6f 20 74 68 65 20 4f 70 65 6e 53 53 ed to the OpenSS
0060: 4c 20 63 6f 6e 66 69 67 20 61 6e 64 20 64 61 74 L config and dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 3c nt.h".#include <
00c0: 6f 70 65 6e 73 73 6c 2f 63 72 79 70 74 6f 2e 68 openssl/crypto.h
00d0: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 6e >.#include <open
00e0: 73 73 6c 2f 73 73 6c 2e 68 3e 0a 23 69 6e 63 6c ssl/ssl.h>.#incl
00f0: 75 64 65 20 3c 6f 70 65 6e 73 73 6c 2f 73 61 66 ude <openssl/saf
0100: 65 73 74 61 63 6b 2e 68 3e 0a 23 69 66 20 4f 50 estack.h>.#if OP
0110: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 ENSSL_VERSION_NU
0120: 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 30 30 MBER >= 0x300000
0130: 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 00L.#include <op
0140: 65 6e 73 73 6c 2f 70 72 6f 76 69 64 65 72 2e 68 enssl/provider.h
0150: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 0a 20 2a 20 >.#endif../*. *
0160: 56 61 6c 69 64 20 53 53 4c 20 61 6e 64 20 54 4c Valid SSL and TL
0170: 53 20 50 72 6f 74 6f 63 6f 6c 20 56 65 72 73 69 S Protocol Versi
0180: 6f 6e 73 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 ons. */.static c
0190: 6f 6e 73 74 20 63 68 61 72 20 2a 70 72 6f 74 6f onst char *proto
01a0: 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 22 73 73 6c cols[] = {.."ssl
01b0: 32 22 2c 20 22 73 73 6c 33 22 2c 20 22 74 6c 73 2", "ssl3", "tls
01c0: 31 22 2c 20 22 74 6c 73 31 2e 31 22 2c 20 22 74 1", "tls1.1", "t
01d0: 6c 73 31 2e 32 22 2c 20 22 74 6c 73 31 2e 33 22 ls1.2", "tls1.3"
01e0: 2c 20 4e 55 4c 4c 0a 7d 3b 0a 65 6e 75 6d 20 70 , NULL.};.enum p
01f0: 72 6f 74 6f 63 6f 6c 20 7b 0a 20 20 20 20 54 4c rotocol {. TL
0200: 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c 33 S_SSL2, TLS_SSL3
0210: 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 5f , TLS_TLS1, TLS_
0220: 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53 31 TLS1_1, TLS_TLS1
0230: 5f 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 2c 20 _2, TLS_TLS1_3,
0240: 54 4c 53 5f 4e 4f 4e 45 0a 7d 3b 0a 0a 2f 2a 2a TLS_NONE.};../**
0250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0290: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
02a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
02e0: 20 2a 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b * NamesCallback
02f0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 62 61 --. *. *.Callba
0300: 63 6b 20 74 6f 20 61 64 64 20 61 6c 67 6f 72 69 ck to add algori
0310: 74 68 6d 20 6f 72 20 6d 65 74 68 6f 64 20 6e 61 thm or method na
0320: 6d 65 73 20 74 6f 20 61 20 54 43 4c 20 6c 69 73 mes to a TCL lis
0330: 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20 2a 20 t object.. *. *
0340: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 70 70 65 Results:. *.Appe
0350: 6e 64 20 6e 61 6d 65 20 74 6f 20 54 43 4c 20 6c nd name to TCL l
0360: 69 73 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20 ist object.. *.
0370: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
0380: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03d0: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 4e 61 6d 65 73 -. */.void Names
03e0: 43 61 6c 6c 62 61 63 6b 28 63 6f 6e 73 74 20 4f Callback(const O
03f0: 42 4a 5f 4e 41 4d 45 20 2a 6f 62 6a 2c 20 76 6f BJ_NAME *obj, vo
0400: 69 64 20 2a 61 72 67 29 20 7b 0a 20 20 20 20 54 id *arg) {. T
0410: 63 6c 5f 4f 62 6a 20 2a 6c 69 73 74 4f 62 6a 20 cl_Obj *listObj
0420: 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 61 72 = (Tcl_Obj *) ar
0430: 67 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 65 6c 64 g;.. /* Field
0440: 73 3a 20 28 69 6e 74 29 20 74 79 70 65 20 61 6e s: (int) type an
0450: 64 20 61 6c 69 61 73 2c 20 28 63 6f 6e 73 74 20 d alias, (const
0460: 63 68 61 72 2a 29 20 6e 61 6d 65 20 28 61 6c 69 char*) name (ali
0470: 61 73 20 66 72 6f 6d 29 20 61 6e 64 20 64 61 74 as from) and dat
0480: 61 20 28 61 6c 69 61 73 20 74 6f 29 20 2a 2f 0a a (alias to) */.
0490: 20 20 20 20 69 66 20 28 73 74 72 73 74 72 28 6f if (strstr(o
04a0: 62 6a 2d 3e 6e 61 6d 65 2c 20 22 72 73 61 22 29 bj->name, "rsa")
04b0: 20 3d 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 73 == NULL && strs
04c0: 74 72 28 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 22 52 tr(obj->name, "R
04d0: 53 41 22 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a SA") == NULL) {.
04e0: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
04f0: 6e 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c 20 ndElement(NULL,
0500: 6c 69 73 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 listObj, Tcl_New
0510: 53 74 72 69 6e 67 4f 62 6a 28 6f 62 6a 2d 3e 6e StringObj(obj->n
0520: 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 20 20 7d ame, -1));. }
0530: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
0540: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0550: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0560: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0570: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
0580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05c0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 ---. *. * Cipher
05d0: 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 Info --. *. *.Re
05e0: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 turn a list of p
05f0: 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 roperties and va
0600: 6c 75 65 73 20 66 6f 72 20 63 69 70 68 65 72 2e lues for cipher.
0610: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
0620: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
0630: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
0640: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
0650: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
0660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
06a0: 2f 0a 69 6e 74 20 43 69 70 68 65 72 49 6e 66 6f /.int CipherInfo
06b0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
06c0: 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 erp, Tcl_Obj *na
06d0: 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 63 6f 6e meObj) {. con
06e0: 73 74 20 45 56 50 5f 43 49 50 48 45 52 20 2a 63 st EVP_CIPHER *c
06f0: 69 70 68 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f ipher;. Tcl_O
0700: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 2c 20 2a bj *resultObj, *
0710: 6c 69 73 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73 listObj;. uns
0720: 69 67 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73 igned long flags
0730: 2c 20 6d 6f 64 65 3b 0a 20 20 20 20 63 68 61 72 , mode;. char
0740: 20 2a 6d 6f 64 65 4e 61 6d 65 20 3d 20 4e 55 4c *modeName = NUL
0750: 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 6d L;. char *nam
0760: 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e e = Tcl_GetStrin
0770: 67 28 6e 61 6d 65 4f 62 6a 29 3b 0a 0a 20 20 20 g(nameObj);..
0780: 20 2f 2a 20 47 65 74 20 63 69 70 68 65 72 20 2a /* Get cipher *
0790: 2f 0a 20 20 20 20 63 69 70 68 65 72 20 3d 20 45 /. cipher = E
07a0: 56 50 5f 67 65 74 5f 63 69 70 68 65 72 62 79 6e VP_get_cipherbyn
07b0: 61 6d 65 28 6e 61 6d 65 29 3b 0a 0a 20 20 20 20 ame(name);..
07c0: 69 66 20 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 if (cipher == NU
07d0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e LL) {..Tcl_Appen
07e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
07f0: 22 49 6e 76 61 6c 69 64 20 63 69 70 68 65 72 20 "Invalid cipher
0800: 5c 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c \"", name, "\"",
0810: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
0820: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
0830: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
0840: 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 73 * Get properties
0850: 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 */. resultOb
0860: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f j = Tcl_NewListO
0870: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 bj(0, NULL);.
0880: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d if (resultObj =
0890: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
08a0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
08b0: 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 }. LAPPEND_S
08c0: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c TR(interp, resul
08d0: 74 4f 62 6a 2c 20 22 6e 69 64 22 2c 20 4f 42 4a tObj, "nid", OBJ
08e0: 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 43 49 50 48 _nid2ln(EVP_CIPH
08f0: 45 52 5f 6e 69 64 28 63 69 70 68 65 72 29 29 2c ER_nid(cipher)),
0900: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
0910: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
0920: 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c sultObj, "name",
0930: 20 45 56 50 5f 43 49 50 48 45 52 5f 6e 61 6d 65 EVP_CIPHER_name
0940: 28 63 69 70 68 65 72 29 2c 20 2d 31 29 3b 0a 20 (cipher), -1);.
0950: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
0960: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
0970: 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 2c , "description",
0980: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 "", -1);. LA
0990: 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 PPEND_INT(interp
09a0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 6c , resultObj, "bl
09b0: 6f 63 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 43 ock_size", EVP_C
09c0: 49 50 48 45 52 5f 62 6c 6f 63 6b 5f 73 69 7a 65 IPHER_block_size
09d0: 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 4c (cipher));. L
09e0: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
09f0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6b p, resultObj, "k
0a00: 65 79 5f 6c 65 6e 67 74 68 22 2c 20 45 56 50 5f ey_length", EVP_
0a10: 43 49 50 48 45 52 5f 6b 65 79 5f 6c 65 6e 67 74 CIPHER_key_lengt
0a20: 68 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 h(cipher));.
0a30: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
0a40: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
0a50: 69 76 5f 6c 65 6e 67 74 68 22 2c 20 45 56 50 5f iv_length", EVP_
0a60: 43 49 50 48 45 52 5f 69 76 5f 6c 65 6e 67 74 68 CIPHER_iv_length
0a70: 28 63 69 70 68 65 72 29 29 3b 0a 20 20 20 20 4c (cipher));. L
0a80: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
0a90: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 p, resultObj, "t
0aa0: 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e ype", OBJ_nid2ln
0ab0: 28 45 56 50 5f 43 49 50 48 45 52 5f 74 79 70 65 (EVP_CIPHER_type
0ac0: 28 63 69 70 68 65 72 29 29 2c 20 2d 31 29 3b 0a (cipher)), -1);.
0ad0: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
0ae0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
0af0: 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 22 j, "provider", "
0b00: 22 2c 20 2d 31 29 3b 0a 20 20 20 20 66 6c 61 67 ", -1);. flag
0b10: 73 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f 66 s = EVP_CIPHER_f
0b20: 6c 61 67 73 28 63 69 70 68 65 72 29 3b 0a 20 20 lags(cipher);.
0b30: 20 20 6d 6f 64 65 20 20 3d 20 45 56 50 5f 43 49 mode = EVP_CI
0b40: 50 48 45 52 5f 6d 6f 64 65 28 63 69 70 68 65 72 PHER_mode(cipher
0b50: 29 3b 0a 0a 20 20 20 20 2f 2a 20 45 56 50 5f 43 );.. /* EVP_C
0b60: 49 50 48 45 52 5f 67 65 74 5f 6d 6f 64 65 20 2a IPHER_get_mode *
0b70: 2f 0a 20 20 20 20 73 77 69 74 63 68 28 6d 6f 64 /. switch(mod
0b80: 65 29 20 7b 0a 09 63 61 73 65 20 45 56 50 5f 43 e) {..case EVP_C
0b90: 49 50 48 5f 53 54 52 45 41 4d 5f 43 49 50 48 45 IPH_STREAM_CIPHE
0ba0: 52 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 R:.. modeName
0bb0: 20 3d 20 22 53 54 52 45 41 4d 22 3b 0a 09 20 20 = "STREAM";..
0bc0: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 break;..case E
0bd0: 56 50 5f 43 49 50 48 5f 45 43 42 5f 4d 4f 44 45 VP_CIPH_ECB_MODE
0be0: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0bf0: 3d 20 22 45 43 42 22 3b 0a 09 20 20 20 20 62 72 = "ECB";.. br
0c00: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0c10: 49 50 48 5f 43 42 43 5f 4d 4f 44 45 3a 0a 09 20 IPH_CBC_MODE:..
0c20: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 modeName = "C
0c30: 42 43 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b BC";.. break;
0c40: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0c50: 43 46 42 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d CFB_MODE:.. m
0c60: 6f 64 65 4e 61 6d 65 20 3d 20 22 43 46 42 22 3b odeName = "CFB";
0c70: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
0c80: 73 65 20 45 56 50 5f 43 49 50 48 5f 4f 46 42 5f se EVP_CIPH_OFB_
0c90: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e MODE:.. modeN
0ca0: 61 6d 65 20 3d 20 22 4f 46 42 22 3b 0a 09 20 20 ame = "OFB";..
0cb0: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 break;..case E
0cc0: 56 50 5f 43 49 50 48 5f 43 54 52 5f 4d 4f 44 45 VP_CIPH_CTR_MODE
0cd0: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0ce0: 3d 20 22 43 54 52 22 3b 0a 09 20 20 20 20 62 72 = "CTR";.. br
0cf0: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0d00: 49 50 48 5f 47 43 4d 5f 4d 4f 44 45 3a 0a 09 20 IPH_GCM_MODE:..
0d10: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 47 modeName = "G
0d20: 43 4d 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b CM";.. break;
0d30: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0d40: 58 54 53 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d XTS_MODE:.. m
0d50: 6f 64 65 4e 61 6d 65 20 3d 20 22 58 54 53 22 3b odeName = "XTS";
0d60: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
0d70: 73 65 20 45 56 50 5f 43 49 50 48 5f 43 43 4d 5f se EVP_CIPH_CCM_
0d80: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e MODE:.. modeN
0d90: 61 6d 65 20 3d 20 22 43 43 4d 22 3b 0a 09 20 20 ame = "CCM";..
0da0: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 break;..case E
0db0: 56 50 5f 43 49 50 48 5f 4f 43 42 5f 4d 4f 44 45 VP_CIPH_OCB_MODE
0dc0: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0dd0: 3d 20 22 4f 43 42 22 3b 0a 09 20 20 20 20 62 72 = "OCB";.. br
0de0: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0df0: 49 50 48 5f 57 52 41 50 5f 4d 4f 44 45 20 3a 0a IPH_WRAP_MODE :.
0e00: 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 . modeName =
0e10: 22 57 52 41 50 22 3b 0a 09 20 20 20 20 62 72 65 "WRAP";.. bre
0e20: 61 6b 3b 0a 09 64 65 66 61 75 6c 74 3a 0a 09 20 ak;..default:..
0e30: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 75 modeName = "u
0e40: 6e 6b 6e 6f 77 6e 22 3b 0a 09 20 20 20 20 62 72 nknown";.. br
0e50: 65 61 6b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c eak;. }. L
0e60: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
0e70: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6d p, resultObj, "m
0e80: 6f 64 65 22 2c 20 6d 6f 64 65 4e 61 6d 65 2c 20 ode", modeName,
0e90: 2d 31 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c 61 -1);.. /* Fla
0ea0: 67 73 20 2a 2f 0a 20 20 20 20 6c 69 73 74 4f 62 gs */. listOb
0eb0: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f j = Tcl_NewListO
0ec0: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 bj(0, NULL);.
0ed0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e LAPPEND_BOOL(in
0ee0: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 terp, listObj, "
0ef0: 56 61 72 69 61 62 6c 65 20 4c 65 6e 67 74 68 22 Variable Length"
0f00: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 , flags & EVP_CI
0f10: 50 48 5f 56 41 52 49 41 42 4c 45 5f 4c 45 4e 47 PH_VARIABLE_LENG
0f20: 54 48 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 TH);. LAPPEND
0f30: 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 _BOOL(interp, li
0f40: 73 74 4f 62 6a 2c 20 22 41 6c 77 61 79 73 20 43 stObj, "Always C
0f50: 61 6c 6c 20 49 6e 69 74 22 2c 20 66 6c 61 67 73 all Init", flags
0f60: 20 26 20 45 56 50 5f 43 49 50 48 5f 41 4c 57 41 & EVP_CIPH_ALWA
0f70: 59 53 5f 43 41 4c 4c 5f 49 4e 49 54 29 3b 0a 20 YS_CALL_INIT);.
0f80: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 LAPPEND_BOOL(
0f90: 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c interp, listObj,
0fa0: 20 22 43 75 73 74 6f 6d 20 49 56 22 2c 20 66 6c "Custom IV", fl
0fb0: 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 ags & EVP_CIPH_C
0fc0: 55 53 54 4f 4d 5f 49 56 29 3b 0a 20 20 20 20 4c USTOM_IV);. L
0fd0: 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 APPEND_BOOL(inte
0fe0: 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 6f rp, listObj, "Co
0ff0: 6e 74 72 6f 6c 20 49 6e 69 74 22 2c 20 66 6c 61 ntrol Init", fla
1000: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 43 54 gs & EVP_CIPH_CT
1010: 52 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 4c 41 RL_INIT);. LA
1020: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 PPEND_BOOL(inter
1030: 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 73 p, listObj, "Cus
1040: 74 6f 6d 20 43 69 70 68 65 72 22 2c 20 66 6c 61 tom Cipher", fla
1050: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c gs & EVP_CIPH_FL
1060: 41 47 5f 43 55 53 54 4f 4d 5f 43 49 50 48 45 52 AG_CUSTOM_CIPHER
1070: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
1080: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
1090: 4f 62 6a 2c 20 22 41 45 41 44 20 43 69 70 68 65 Obj, "AEAD Ciphe
10a0: 72 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f r", flags & EVP_
10b0: 43 49 50 48 5f 46 4c 41 47 5f 41 45 41 44 5f 43 CIPH_FLAG_AEAD_C
10c0: 49 50 48 45 52 29 3b 0a 20 20 20 20 4c 41 50 50 IPHER);. LAPP
10d0: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
10e0: 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 73 74 6f listObj, "Custo
10f0: 6d 20 43 6f 70 79 22 2c 20 66 6c 61 67 73 20 26 m Copy", flags &
1100: 20 45 56 50 5f 43 49 50 48 5f 43 55 53 54 4f 4d EVP_CIPH_CUSTOM
1110: 5f 43 4f 50 59 29 3b 0a 20 20 20 20 4c 41 50 50 _COPY);. LAPP
1120: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
1130: 20 6c 69 73 74 4f 62 6a 2c 20 22 4e 6f 6e 20 46 listObj, "Non F
1140: 49 50 53 20 41 6c 6c 6f 77 22 2c 20 66 6c 61 67 IPS Allow", 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 4e 4f 4e 5f 46 49 50 53 5f 41 4c 4c 4f 57 G_NON_FIPS_ALLOW
1170: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f );. LAPPEND_O
1180: 42 4a 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c BJ(interp, resul
1190: 74 4f 62 6a 2c 20 22 66 6c 61 67 73 22 2c 20 6c tObj, "flags", l
11a0: 69 73 74 4f 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a istObj);.. /*
11b0: 20 43 54 58 20 6f 6e 6c 79 20 70 72 6f 70 65 72 CTX only proper
11c0: 74 69 65 73 20 2a 2f 0a 20 20 20 20 7b 0a 09 45 ties */. {..E
11d0: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 VP_CIPHER_CTX *c
11e0: 74 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f tx = EVP_CIPHER_
11f0: 43 54 58 5f 6e 65 77 28 29 3b 0a 09 69 6e 74 20 CTX_new();..int
1200: 74 61 67 5f 6c 65 6e 20 3d 20 30 3b 0a 0a 09 45 tag_len = 0;...E
1210: 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65 VP_EncryptInit_e
1220: 78 28 63 74 78 2c 20 63 69 70 68 65 72 2c 20 4e x(ctx, cipher, N
1230: 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 ULL, NULL, NULL)
1240: 3b 0a 09 69 66 20 28 6d 6f 64 65 20 3d 3d 20 45 ;..if (mode == E
1250: 56 50 5f 43 49 50 48 5f 47 43 4d 5f 4d 4f 44 45 VP_CIPH_GCM_MODE
1260: 20 7c 7c 20 6d 6f 64 65 20 3d 3d 20 45 56 50 5f || mode == EVP_
1270: 43 49 50 48 5f 4f 43 42 5f 4d 4f 44 45 29 20 7b CIPH_OCB_MODE) {
1280: 0a 09 20 20 20 20 74 61 67 5f 6c 65 6e 20 3d 20 .. tag_len =
1290: 45 56 50 5f 47 43 4d 5f 54 4c 53 5f 54 41 47 5f EVP_GCM_TLS_TAG_
12a0: 4c 45 4e 3b 20 2f 2a 20 45 56 50 5f 4d 41 58 5f LEN; /* EVP_MAX_
12b0: 41 45 41 44 5f 54 41 47 5f 4c 45 4e 47 54 48 20 AEAD_TAG_LENGTH
12c0: 2a 2f 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 6d */..} else if (m
12d0: 6f 64 65 20 3d 3d 20 45 56 50 5f 43 49 50 48 5f ode == EVP_CIPH_
12e0: 43 43 4d 5f 4d 4f 44 45 29 20 7b 0a 09 20 20 20 CCM_MODE) {..
12f0: 20 74 61 67 5f 6c 65 6e 20 3d 20 45 56 50 5f 43 tag_len = EVP_C
1300: 43 4d 5f 54 4c 53 5f 54 41 47 5f 4c 45 4e 3b 0a CM_TLS_TAG_LEN;.
1310: 09 7d 20 65 6c 73 65 20 69 66 20 28 63 69 70 68 .} else if (ciph
1320: 65 72 20 3d 3d 20 45 56 50 5f 67 65 74 5f 63 69 er == EVP_get_ci
1330: 70 68 65 72 62 79 6e 61 6d 65 28 22 63 68 61 63 pherbyname("chac
1340: 68 61 32 30 2d 70 6f 6c 79 31 33 30 35 22 29 29 ha20-poly1305"))
1350: 20 7b 0a 09 20 20 20 20 74 61 67 5f 6c 65 6e 20 {.. tag_len
1360: 3d 20 45 56 50 5f 43 48 41 43 48 41 50 4f 4c 59 = EVP_CHACHAPOLY
1370: 5f 54 4c 53 5f 54 41 47 5f 4c 45 4e 3b 20 2f 2a _TLS_TAG_LEN; /*
1380: 20 50 4f 4c 59 31 33 30 35 5f 42 4c 4f 43 4b 5f POLY1305_BLOCK_
1390: 53 49 5a 45 20 2a 2f 0a 09 7d 0a 09 45 56 50 5f SIZE */..}..EVP_
13a0: 43 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 CIPHER_CTX_free(
13b0: 63 74 78 29 3b 0a 09 4c 41 50 50 45 4e 44 5f 49 ctx);..LAPPEND_I
13c0: 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c NT(interp, resul
13d0: 74 4f 62 6a 2c 20 22 74 61 67 5f 6c 65 6e 67 74 tObj, "tag_lengt
13e0: 68 22 2c 20 74 61 67 5f 6c 65 6e 29 3b 0a 20 20 h", tag_len);.
13f0: 20 20 7d 0a 20 20 20 20 0a 20 20 20 20 2f 2a 20 }. . /*
1400: 41 45 41 44 20 70 72 6f 70 65 72 74 69 65 73 20 AEAD properties
1410: 2a 2f 0a 20 20 20 20 7b 0a 09 69 6e 74 20 61 61 */. {..int aa
1420: 64 5f 6c 65 6e 20 3d 20 30 3b 0a 09 69 66 20 28 d_len = 0;..if (
1430: 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 flags & EVP_CIPH
1440: 5f 46 4c 41 47 5f 41 45 41 44 5f 43 49 50 48 45 _FLAG_AEAD_CIPHE
1450: 52 29 20 7b 0a 09 20 20 20 20 61 61 64 5f 6c 65 R) {.. aad_le
1460: 6e 20 3d 20 45 56 50 5f 41 45 41 44 5f 54 4c 53 n = EVP_AEAD_TLS
1470: 31 5f 41 41 44 5f 4c 45 4e 3b 0a 09 7d 0a 09 4c 1_AAD_LEN;..}..L
1480: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
1490: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 61 p, resultObj, "a
14a0: 61 64 5f 6c 65 6e 67 74 68 22 2c 20 61 61 64 5f ad_length", aad_
14b0: 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 len);. }..
14c0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
14d0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
14e0: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
14f0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 TCL_OK;.}../*.
1500: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1540: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 ----. *. * Ciphe
1550: 72 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 rList --. *. *.R
1560: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
1570: 61 6c 6c 20 63 69 70 68 65 72 20 61 6c 67 6f 72 all cipher algor
1580: 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 ithms. *. * Resu
1590: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
15a0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
15b0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
15c0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
15d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1610: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 43 69 70 68 65 --. */.int Ciphe
1620: 72 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 rList(Tcl_Interp
1630: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 *interp) {.
1640: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
1650: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
1660: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
1670: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
1680: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
1690: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
16a0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65 }.. /* Same
16b0: 20 61 73 20 45 56 50 5f 43 49 50 48 45 52 5f 64 as EVP_CIPHER_d
16c0: 6f 5f 61 6c 6c 20 2a 2f 0a 20 20 20 20 4f 42 4a o_all */. OBJ
16d0: 5f 4e 41 4d 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a _NAME_do_all(OBJ
16e0: 5f 4e 41 4d 45 5f 54 59 50 45 5f 43 49 50 48 45 _NAME_TYPE_CIPHE
16f0: 52 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 43 61 6c R_METH, NamesCal
1700: 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 2a 29 20 lback, (void *)
1710: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
1720: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
1730: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
1740: 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 bj);. return
1750: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a TCL_OK;.}../*. *
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17a0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 ---. *. * Cipher
17b0: 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 ObjCmd --. *. *.
17c0: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 Return a list of
17d0: 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 properties and
17e0: 76 61 6c 75 65 73 20 66 6f 72 20 63 69 70 68 65 values for ciphe
17f0: 72 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 rName.. *. * Res
1800: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
1810: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
1820: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
1830: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
1840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1880: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
1890: 6e 74 20 43 69 70 68 65 72 4f 62 6a 43 6d 64 28 nt CipherObjCmd(
18a0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
18b0: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
18c0: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
18d0: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
18e0: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
18f0: 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 (void) clientD
1900: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ata;.. dprint
1910: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
1920: 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 /* Clear error
1930: 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 s */. Tcl_Res
1940: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 etResult(interp)
1950: 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f ;. ERR_clear_
1960: 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a error();.. /*
1970: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
1980: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
1990: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 bjc == 1) {..ret
19a0: 75 72 6e 20 43 69 70 68 65 72 4c 69 73 74 28 69 urn CipherList(i
19b0: 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 nterp);.. } e
19c0: 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 lse if (objc ==
19d0: 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 43 69 70 2) {..return Cip
19e0: 68 65 72 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 herInfo(interp,
19f0: 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d objv[1]);.. }
1a00: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f else {..Tcl_Wro
1a10: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
1a20: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d , 1, objv, "?nam
1a30: 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 e?");..return TC
1a40: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
1a50: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
1a60: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
1a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1ab0: 0a 20 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d . * CiphersObjCm
1ac0: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 d --. *. *.This
1ad0: 70 72 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 procedure is inv
1ae0: 6f 6b 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 oked to process
1af0: 74 68 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 the "tls::cipher
1b00: 73 22 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f s" command. *.to
1b10: 20 6c 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 list available
1b20: 63 69 70 68 65 72 73 2c 20 62 61 73 65 64 20 75 ciphers, based u
1b30: 70 6f 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c pon protocol sel
1b40: 65 63 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 ected.. *. * Res
1b50: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
1b60: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c ard Tcl result l
1b70: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
1b80: 65 66 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 effects:. *.cons
1b90: 74 72 75 63 74 73 20 61 6e 64 20 64 65 73 74 72 tructs and destr
1ba0: 6f 79 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 oys SSL context
1bb0: 28 43 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d (CTX). *. *-----
1bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1c00: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 43 69 */.static int Ci
1c10: 70 68 65 72 73 4f 62 6a 43 6d 64 28 43 6c 69 65 phersObjCmd(Clie
1c20: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
1c30: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
1c40: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
1c50: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
1c60: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 53 53 objv[]) {. SS
1c70: 4c 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c L_CTX *ctx = NUL
1c80: 4c 3b 0a 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 L;. SSL *ssl
1c90: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43 = NULL;. STAC
1ca0: 4b 5f 4f 46 28 53 53 4c 5f 43 49 50 48 45 52 29 K_OF(SSL_CIPHER)
1cb0: 20 2a 73 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 *sk = NULL;.
1cc0: 20 54 63 6c 5f 53 69 7a 65 20 69 6e 64 65 78 3b Tcl_Size index;
1cd0: 0a 20 20 20 20 69 6e 74 20 76 65 72 62 6f 73 65 . int verbose
1ce0: 20 3d 20 30 2c 20 75 73 65 5f 73 75 70 70 6f 72 = 0, use_suppor
1cf0: 74 65 64 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 ted = 0, res = T
1d00: 43 4c 5f 4f 4b 3b 0a 20 20 20 20 69 6e 74 20 6d CL_OK;. int m
1d10: 69 6e 5f 76 65 72 73 69 6f 6e 2c 20 6d 61 78 5f in_version, max_
1d20: 76 65 72 73 69 6f 6e 3b 0a 20 20 20 20 28 76 6f version;. (vo
1d30: 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a id) clientData;.
1d40: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
1d50: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
1d60: 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a Clear errors */.
1d70: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
1d80: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 ult(interp);.
1d90: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 ERR_clear_error
1da0: 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 ();.. /* Vali
1db0: 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a date arg count *
1dc0: 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3e /. if (objc >
1dd0: 20 34 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4) {..Tcl_Wrong
1de0: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
1df0: 31 2c 20 6f 62 6a 76 2c 20 22 3f 70 72 6f 74 6f 1, objv, "?proto
1e00: 63 6f 6c 3f 20 3f 76 65 72 62 6f 73 65 3f 20 3f col? ?verbose? ?
1e10: 73 75 70 70 6f 72 74 65 64 3f 22 29 3b 0a 09 72 supported?");..r
1e20: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
1e30: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c . }.. /* L
1e40: 69 73 74 20 61 6c 6c 20 63 69 70 68 65 72 73 20 ist all ciphers
1e50: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
1e60: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 1) {..return
1e70: 43 69 70 68 65 72 4c 69 73 74 28 69 6e 74 65 72 CipherList(inter
1e80: 70 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f p);. }.. /
1e90: 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f * Get options */
1ea0: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
1eb0: 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 IndexFromObj(int
1ec0: 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 erp, objv[1], pr
1ed0: 6f 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 otocols, "protoc
1ee0: 6f 6c 22 2c 20 30 2c 20 26 69 6e 64 65 78 29 20 ol", 0, &index)
1ef0: 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 28 6f != TCL_OK ||..(o
1f00: 62 6a 63 20 3e 20 32 20 26 26 20 54 63 6c 5f 47 bjc > 2 && Tcl_G
1f10: 65 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a etBooleanFromObj
1f20: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d (interp, objv[2]
1f30: 2c 20 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54 , &verbose) != T
1f40: 43 4c 5f 4f 4b 29 20 7c 7c 0a 09 28 6f 62 6a 63 CL_OK) ||..(objc
1f50: 20 3e 20 33 20 26 26 20 54 63 6c 5f 47 65 74 42 > 3 && Tcl_GetB
1f60: 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e ooleanFromObj(in
1f70: 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 terp, objv[3], &
1f80: 75 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 21 use_supported) !
1f90: 3d 20 54 43 4c 5f 4f 4b 29 29 20 7b 0a 09 72 65 = TCL_OK)) {..re
1fa0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1fb0: 20 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 }.. switc
1fc0: 68 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f h ((enum protoco
1fd0: 6c 29 69 6e 64 65 78 29 20 7b 0a 09 63 61 73 65 l)index) {..case
1fe0: 20 54 4c 53 5f 53 53 4c 32 3a 0a 09 20 20 20 20 TLS_SSL2:..
1ff0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
2000: 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f (interp, protoco
2010: 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 ls[index], ": pr
2020: 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f otocol not suppo
2030: 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 20 rted", (char *)
2040: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 NULL);.. retu
2050: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 63 rn TCL_ERROR;..c
2060: 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 69 ase TLS_SSL3:.#i
2070: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c f defined(NO_SSL
2080: 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 3) || defined(OP
2090: 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 7c ENSSL_NO_SSL3) |
20a0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 | defined(OPENSS
20b0: 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 L_NO_SSL3_METHOD
20c0: 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ).. Tcl_Appen
20d0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
20e0: 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d protocols[index]
20f0: 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f , ": protocol no
2100: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 t supported", (c
2110: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
2120: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2130: 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 ROR;.#else.
2140: 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 min_versi
2150: 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f on = SSL3_VERSIO
2160: 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d N;. m
2170: 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c ax_version = SSL
2180: 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 3_VERSION;..
2190: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 break;.#endif..c
21a0: 61 73 65 20 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 ase TLS_TLS1:.#i
21b0: 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 f defined(NO_TLS
21c0: 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 1) || defined(OP
21d0: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 7c ENSSL_NO_TLS1) |
21e0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 | defined(OPENSS
21f0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 L_NO_TLS1_METHOD
2200: 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e ).. Tcl_Appen
2210: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
2220: 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d protocols[index]
2230: 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f , ": protocol no
2240: 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 t supported", (c
2250: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 har *) NULL);..
2260: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 return TCL_ER
2270: 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 ROR;.#else.
2280: 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 min_versi
2290: 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 52 53 49 4f on = TLS1_VERSIO
22a0: 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d N;. m
22b0: 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 ax_version = TLS
22c0: 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 1_VERSION;..
22d0: 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 break;.#endif..c
22e0: 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a 0a ase TLS_TLS1_1:.
22f0: 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 #if defined(NO_T
2300: 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 LS1_1) || define
2310: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
2320: 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 1_1) || defined(
2330: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
2340: 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 1_METHOD).. T
2350: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2360: 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c interp, protocol
2370: 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f s[index], ": pro
2380: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
2390: 74 65 64 22 2c 20 28 63 68 61 72 20 2a 29 20 4e ted", (char *) N
23a0: 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ULL);.. retur
23b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c n TCL_ERROR;.#el
23c0: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d se. m
23d0: 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 in_version = TLS
23e0: 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 1_1_VERSION;.
23f0: 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 max_ver
2400: 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f 56 45 sion = TLS1_1_VE
2410: 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 RSION;.. brea
2420: 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 k;.#endif..case
2430: 54 4c 53 5f 54 4c 53 31 5f 32 3a 0a 23 69 66 20 TLS_TLS1_2:.#if
2440: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f defined(NO_TLS1_
2450: 32 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 2) || defined(OP
2460: 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 ENSSL_NO_TLS1_2)
2470: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e || defined(OPEN
2480: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 SSL_NO_TLS1_2_ME
2490: 54 48 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 THOD).. Tcl_A
24a0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
24b0: 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e rp, protocols[in
24c0: 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f dex], ": protoco
24d0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
24e0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
24f0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
2500: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 L_ERROR;.#else.
2510: 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 min_v
2520: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f ersion = TLS1_2_
2530: 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 VERSION;.
2540: 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e max_version
2550: 20 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 49 4f = TLS1_2_VERSIO
2560: 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 N;.. break;.#
2570: 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f endif..case TLS_
2580: 54 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65 66 69 TLS1_3:.#if defi
2590: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c ned(NO_TLS1_3) |
25a0: 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 | defined(OPENSS
25b0: 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 20 20 L_NO_TLS1_3)..
25c0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
25d0: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f lt(interp, proto
25e0: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 cols[index], ":
25f0: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
2600: 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a ported", (char *
2610: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 ) NULL);.. re
2620: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2630: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 #else.
2640: 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 min_version =
2650: 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a TLS1_3_VERSION;.
2660: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f max_
2670: 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 version = TLS1_3
2680: 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 _VERSION;.. b
2690: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 64 65 reak;.#endif..de
26a0: 66 61 75 6c 74 3a 0a 20 20 20 20 20 20 20 20 20 fault:.
26b0: 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d min_version =
26c0: 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 20 SSL3_VERSION;.
26d0: 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 max_v
26e0: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f ersion = TLS1_3_
26f0: 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 VERSION;.. br
2700: 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 eak;. }..
2710: 2f 2a 20 43 72 65 61 74 65 20 63 6f 6e 74 65 78 /* Create contex
2720: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 63 74 t */. if ((ct
2730: 78 20 3d 20 53 53 4c 5f 43 54 58 5f 6e 65 77 28 x = SSL_CTX_new(
2740: 54 4c 53 5f 73 65 72 76 65 72 5f 6d 65 74 68 6f TLS_server_metho
2750: 64 28 29 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b d())) == NULL) {
2760: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
2770: 6c 74 28 69 6e 74 65 72 70 2c 20 47 45 54 5f 45 lt(interp, GET_E
2780: 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 RR_REASON(), (ch
2790: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
27a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
27b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 65 }.. /* Se
27c0: 74 20 70 72 6f 74 6f 63 6f 6c 20 76 65 72 73 69 t protocol versi
27d0: 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 53 ons */. if (S
27e0: 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 6e 5f 70 SL_CTX_set_min_p
27f0: 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 78 roto_version(ctx
2800: 2c 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 29 20 3d , min_version) =
2810: 3d 20 30 20 7c 7c 0a 09 53 53 4c 5f 43 54 58 5f = 0 ||..SSL_CTX_
2820: 73 65 74 5f 6d 61 78 5f 70 72 6f 74 6f 5f 76 65 set_max_proto_ve
2830: 72 73 69 6f 6e 28 63 74 78 2c 20 6d 61 78 5f 76 rsion(ctx, max_v
2840: 65 72 73 69 6f 6e 29 20 3d 3d 20 30 29 20 7b 0a ersion) == 0) {.
2850: 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 .SSL_CTX_free(ct
2860: 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f x);..return TCL_
2870: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
2880: 20 20 2f 2a 20 43 72 65 61 74 65 20 53 53 4c 20 /* Create SSL
2890: 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 context */. i
28a0: 66 20 28 28 73 73 6c 20 3d 20 53 53 4c 5f 6e 65 f ((ssl = SSL_ne
28b0: 77 28 63 74 78 29 29 20 3d 3d 20 4e 55 4c 4c 29 w(ctx)) == NULL)
28c0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
28d0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 47 45 54 sult(interp, GET
28e0: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
28f0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
2900: 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 SSL_CTX_free(ctx
2910: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
2920: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
2930: 20 2f 2a 20 55 73 65 20 6c 69 73 74 20 61 6e 64 /* Use list and
2940: 20 6f 72 64 65 72 20 61 73 20 77 6f 75 6c 64 20 order as would
2950: 62 65 20 73 65 6e 74 20 69 6e 20 61 20 43 6c 69 be sent in a Cli
2960: 65 6e 74 48 65 6c 6c 6f 20 6f 72 20 61 6c 6c 20 entHello or all
2970: 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 72 available cipher
2980: 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 75 73 65 s */. if (use
2990: 5f 73 75 70 70 6f 72 74 65 64 29 20 7b 0a 09 73 _supported) {..s
29a0: 6b 20 3d 20 53 53 4c 5f 67 65 74 31 5f 73 75 70 k = SSL_get1_sup
29b0: 70 6f 72 74 65 64 5f 63 69 70 68 65 72 73 28 73 ported_ciphers(s
29c0: 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 sl);. } else
29d0: 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 5f {..sk = SSL_get_
29e0: 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a 09 2f ciphers(ssl);../
29f0: 2a 73 6b 20 3d 20 53 53 4c 5f 43 54 58 5f 67 65 *sk = SSL_CTX_ge
2a00: 74 5f 63 69 70 68 65 72 73 28 63 74 78 29 3b 2a t_ciphers(ctx);*
2a10: 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 /. }.. if
2a20: 28 73 6b 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 (sk != NULL) {..
2a30: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
2a40: 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 69 66 20 bj = NULL;...if
2a50: 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 20 20 (!verbose) {..
2a60: 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 70 const char *cp
2a70: 3b 0a 09 20 20 20 20 72 65 73 75 6c 74 4f 62 6a ;.. resultObj
2a80: 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 = Tcl_NewListOb
2a90: 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 j(0, NULL);..
2aa0: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d if (resultObj =
2ab0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 20 = NULL) {...res
2ac0: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 = TCL_ERROR;...g
2ad0: 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d oto done;.. }
2ae0: 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 6e 74 20 ... for (int
2af0: 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53 i = 0; i < sk_SS
2b00: 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 L_CIPHER_num(sk)
2b10: 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 ; i++) {...const
2b20: 20 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d SSL_CIPHER *c =
2b30: 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 sk_SSL_CIPHER_v
2b40: 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69 alue(sk, i);...i
2b50: 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f f (c == NULL) co
2b60: 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 63 69 ntinue;..../* ci
2b70: 70 68 65 72 20 6e 61 6d 65 20 6f 72 20 28 4e 4f pher name or (NO
2b80: 4e 45 29 20 2a 2f 0a 09 09 63 70 20 3d 20 53 53 NE) */...cp = SS
2b90: 4c 5f 43 49 50 48 45 52 5f 67 65 74 5f 6e 61 6d L_CIPHER_get_nam
2ba0: 65 28 63 29 3b 0a 09 09 69 66 20 28 63 70 20 3d e(c);...if (cp =
2bb0: 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 = NULL) break;..
2bc0: 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 .Tcl_ListObjAppe
2bd0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
2be0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c , resultObj, Tcl
2bf0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 28 63 _NewStringObj((c
2c00: 68 61 72 20 2a 29 20 63 70 2c 20 2d 31 29 29 3b har *) cp, -1));
2c10: 0a 09 20 20 20 20 7d 0a 0a 09 7d 20 65 6c 73 65 .. }...} else
2c20: 20 7b 0a 09 20 20 20 20 63 68 61 72 20 62 75 66 {.. char buf
2c30: 5b 42 55 46 53 49 5a 5d 3b 0a 09 20 20 20 20 72 [BUFSIZ];.. r
2c40: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
2c50: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 22 2c 20 ewStringObj("",
2c60: 30 29 3b 0a 09 20 20 20 20 69 66 20 28 72 65 73 0);.. if (res
2c70: 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 ultObj == NULL)
2c80: 7b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 {...res = TCL_ER
2c90: 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 ROR;...goto done
2ca0: 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 66 ;.. }... f
2cb0: 6f 72 20 28 69 6e 74 20 69 20 3d 20 30 3b 20 69 or (int i = 0; i
2cc0: 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 < sk_SSL_CIPHER
2cd0: 5f 6e 75 6d 28 73 6b 29 3b 20 69 2b 2b 29 20 7b _num(sk); i++) {
2ce0: 0a 09 09 63 6f 6e 73 74 20 53 53 4c 5f 43 49 50 ...const SSL_CIP
2cf0: 48 45 52 20 2a 63 20 3d 20 73 6b 5f 53 53 4c 5f HER *c = sk_SSL_
2d00: 43 49 50 48 45 52 5f 76 61 6c 75 65 28 73 6b 2c CIPHER_value(sk,
2d10: 20 69 29 3b 0a 09 09 69 66 20 28 63 20 3d 3d 20 i);...if (c ==
2d20: 4e 55 4c 4c 29 20 63 6f 6e 74 69 6e 75 65 3b 0a NULL) continue;.
2d30: 0a 09 09 2f 2a 20 74 65 78 74 75 61 6c 20 64 65 .../* textual de
2d40: 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 68 65 scription of the
2d50: 20 63 69 70 68 65 72 20 2a 2f 0a 09 09 69 66 20 cipher */...if
2d60: 28 53 53 4c 5f 43 49 50 48 45 52 5f 64 65 73 63 (SSL_CIPHER_desc
2d70: 72 69 70 74 69 6f 6e 28 63 2c 20 62 75 66 2c 20 ription(c, buf,
2d80: 73 69 7a 65 6f 66 28 62 75 66 29 29 20 21 3d 20 sizeof(buf)) !=
2d90: 4e 55 4c 4c 29 20 7b 0a 09 09 20 20 20 20 54 63 NULL) {... Tc
2da0: 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 65 l_AppendToObj(re
2db0: 73 75 6c 74 4f 62 6a 2c 20 62 75 66 2c 20 28 54 sultObj, buf, (T
2dc0: 63 6c 5f 53 69 7a 65 29 20 73 74 72 6c 65 6e 28 cl_Size) strlen(
2dd0: 62 75 66 29 29 3b 0a 09 09 7d 20 65 6c 73 65 20 buf));...} else
2de0: 7b 0a 09 09 20 20 20 20 54 63 6c 5f 41 70 70 65 {... Tcl_Appe
2df0: 6e 64 54 6f 4f 62 6a 28 72 65 73 75 6c 74 4f 62 ndToObj(resultOb
2e00: 6a 2c 20 22 55 4e 4b 4e 4f 57 4e 5c 6e 22 2c 20 j, "UNKNOWN\n",
2e10: 38 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 8);...}.. }..
2e20: 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 20 75 70 20 }.../* Clean up
2e30: 2a 2f 0a 09 69 66 20 28 75 73 65 5f 73 75 70 70 */..if (use_supp
2e40: 6f 72 74 65 64 29 20 7b 0a 09 20 20 20 20 73 6b orted) {.. sk
2e50: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 66 72 65 65 _SSL_CIPHER_free
2e60: 28 73 6b 29 3b 0a 09 7d 0a 09 54 63 6c 5f 53 65 (sk);..}..Tcl_Se
2e70: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
2e80: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 p, resultObj);.
2e90: 20 20 20 7d 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 }..done:.
2ea0: 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b 0a 20 SSL_free(ssl);.
2eb0: 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 SSL_CTX_free(
2ec0: 63 74 78 29 3b 0a 20 20 20 20 72 65 74 75 72 6e ctx);. return
2ed0: 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a res;.}../******
2ee0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2ef0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2f00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2f10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
2f20: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
2f30: 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 44 --------. *. * D
2f70: 69 67 65 73 74 49 6e 66 6f 20 2d 2d 0a 20 2a 0a igestInfo --. *.
2f80: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
2f90: 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 of properties a
2fa0: 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 64 69 nd values for di
2fb0: 67 65 73 74 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 gest.. *. * Resu
2fc0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
2fd0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
2fe0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
2ff0: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3040: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 --. */.int Diges
3050: 74 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 tInfo(Tcl_Interp
3060: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 *interp, Tcl_Ob
3070: 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 j *nameObj) {.
3080: 20 20 63 6f 6e 73 74 20 45 56 50 5f 4d 44 20 2a const EVP_MD *
3090: 6d 64 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 md;. Tcl_Obj
30a0: 2a 72 65 73 75 6c 74 4f 62 6a 2c 20 2a 6c 69 73 *resultObj, *lis
30b0: 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73 69 67 6e tObj;. unsign
30c0: 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73 3b 0a 20 ed long flags;.
30d0: 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 char *name =
30e0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6e 61 Tcl_GetString(na
30f0: 6d 65 4f 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a 20 meObj);.. /*
3100: 47 65 74 20 6d 65 73 73 61 67 65 20 64 69 67 65 Get message dige
3110: 73 74 20 2a 2f 0a 20 20 20 20 6d 64 20 3d 20 45 st */. md = E
3120: 56 50 5f 67 65 74 5f 64 69 67 65 73 74 62 79 6e VP_get_digestbyn
3130: 61 6d 65 28 6e 61 6d 65 29 3b 0a 0a 20 20 20 20 ame(name);..
3140: 69 66 20 28 6d 64 20 3d 3d 20 4e 55 4c 4c 29 20 if (md == NULL)
3150: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
3160: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 ult(interp, "Inv
3170: 61 6c 69 64 20 64 69 67 65 73 74 20 5c 22 22 2c alid digest \"",
3180: 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28 63 68 name, "\"", (ch
3190: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
31a0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
31b0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
31c0: 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a t properties */.
31d0: 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 resultObj =
31e0: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
31f0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
3200: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
3210: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
3220: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
3230: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
3240: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
3250: 2c 20 22 6e 61 6d 65 22 2c 20 45 56 50 5f 4d 44 , "name", EVP_MD
3260: 5f 6e 61 6d 65 28 6d 64 29 2c 20 2d 31 29 3b 0a _name(md), -1);.
3270: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
3280: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
3290: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
32a0: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c , "", -1);. L
32b0: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
32c0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73 p, resultObj, "s
32d0: 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f 73 69 7a ize", EVP_MD_siz
32e0: 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c 41 50 50 e(md));. LAPP
32f0: 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 END_INT(interp,
3300: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 6c 6f 63 resultObj, "bloc
3310: 6b 5f 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f k_size", EVP_MD_
3320: 62 6c 6f 63 6b 5f 73 69 7a 65 28 6d 64 29 29 3b block_size(md));
3330: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
3340: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
3350: 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 bj, "provider",
3360: 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 "", -1);. LAP
3370: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
3380: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 resultObj, "typ
3390: 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 e", OBJ_nid2ln(E
33a0: 56 50 5f 4d 44 5f 74 79 70 65 28 6d 64 29 29 2c VP_MD_type(md)),
33b0: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
33c0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
33d0: 73 75 6c 74 4f 62 6a 2c 20 22 70 6b 65 79 5f 74 sultObj, "pkey_t
33e0: 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e ype", OBJ_nid2ln
33f0: 28 45 56 50 5f 4d 44 5f 70 6b 65 79 5f 74 79 70 (EVP_MD_pkey_typ
3400: 65 28 6d 64 29 29 2c 20 2d 31 29 3b 0a 20 20 20 e(md)), -1);.
3410: 20 66 6c 61 67 73 20 3d 20 45 56 50 5f 4d 44 5f flags = EVP_MD_
3420: 66 6c 61 67 73 28 6d 64 29 3b 0a 0a 20 20 20 20 flags(md);..
3430: 2f 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20 20 /* Flags */.
3440: 6c 69 73 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 listObj = Tcl_Ne
3450: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
3460: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
3470: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
3480: 4f 62 6a 2c 20 22 4f 6e 65 2d 73 68 6f 74 22 2c Obj, "One-shot",
3490: 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f flags & EVP_MD_
34a0: 46 4c 41 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a 20 FLAG_ONESHOT);.
34b0: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 LAPPEND_BOOL(
34c0: 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c interp, listObj,
34d0: 20 22 58 4f 46 22 2c 20 66 6c 61 67 73 20 26 20 "XOF", flags &
34e0: 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46 29 EVP_MD_FLAG_XOF)
34f0: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
3500: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f OL(interp, listO
3510: 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 bj, "DigestAlgor
3520: 69 74 68 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66 6c ithmId_NULL", fl
3530: 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 ags & EVP_MD_FLA
3540: 47 5f 44 49 47 41 4c 47 49 44 5f 4e 55 4c 4c 29 G_DIGALGID_NULL)
3550: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
3560: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f OL(interp, listO
3570: 62 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 bj, "DigestAlgor
3580: 69 74 68 6d 49 64 5f 41 62 73 63 65 6e 74 22 2c ithmId_Abscent",
3590: 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f flags & EVP_MD_
35a0: 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 41 42 FLAG_DIGALGID_AB
35b0: 53 45 4e 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 SENT);. LAPPE
35c0: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 ND_BOOL(interp,
35d0: 6c 69 73 74 4f 62 6a 2c 20 22 44 69 67 65 73 74 listObj, "Digest
35e0: 41 6c 67 6f 72 69 74 68 6d 49 64 5f 43 75 73 74 AlgorithmId_Cust
35f0: 6f 6d 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 om", flags & EVP
3600: 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 _MD_FLAG_DIGALGI
3610: 44 5f 43 55 53 54 4f 4d 29 3b 0a 20 20 20 20 4c D_CUSTOM);. L
3620: 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 APPEND_BOOL(inte
3630: 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 46 49 rp, listObj, "FI
3640: 50 53 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 PS", flags & EVP
3650: 5f 4d 44 5f 46 4c 41 47 5f 46 49 50 53 29 3b 0a _MD_FLAG_FIPS);.
3660: 20 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 LAPPEND_OBJ(
3670: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
3680: 6a 2c 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 j, "flags", list
3690: 4f 62 6a 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 Obj);.. Tcl_S
36a0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
36b0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
36c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
36d0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d K;.}../*. *-----
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3720: 2a 0a 20 2a 20 44 69 67 65 73 74 4c 69 73 74 20 *. * DigestList
3730: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 --. *. *.Return
3740: 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 64 69 a list of all di
3750: 67 65 73 74 20 61 6c 67 6f 72 69 74 68 6d 73 0a gest algorithms.
3760: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
3770: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
3780: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 list.. *. * Sid
3790: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
37a0: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
37b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
37f0: 0a 69 6e 74 20 44 69 67 65 73 74 4c 69 73 74 28 .int DigestList(
3800: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
3810: 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 rp) {. Tcl_Ob
3820: 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 j *resultObj = T
3830: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
3840: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 NULL);. if (
3850: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
3860: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
3870: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
3880: 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 45 56 /* Same as EV
3890: 50 5f 4d 44 5f 64 6f 5f 61 6c 6c 20 2a 2f 0a 20 P_MD_do_all */.
38a0: 20 20 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f 61 OBJ_NAME_do_a
38b0: 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 45 ll(OBJ_NAME_TYPE
38c0: 5f 4d 44 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 43 _MD_METH, NamesC
38d0: 61 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 2a allback, (void *
38e0: 29 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 ) resultObj);.
38f0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
3900: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
3910: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 tObj);. retur
3920: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
3930: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3970: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 -----. *. * Dige
3980: 73 74 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a stsObjCmd --. *.
3990: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
39a0: 20 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 68 61 of all valid ha
39b0: 73 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 6f 72 sh algorithms or
39c0: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 73 message digests
39d0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
39e0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
39f0: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
3a00: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
3a10: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
3a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3a60: 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 73 4f 62 */.int DigestsOb
3a70: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
3a80: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
3a90: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
3aa0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
3ab0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
3ac0: 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c {. (void) cl
3ad0: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 ientData;.. d
3ae0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
3af0: 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 ;.. /* Clear
3b00: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 errors */. Tc
3b10: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
3b20: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 terp);. ERR_c
3b30: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 0a lear_error();...
3b40: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
3b50: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 arg count */.
3b60: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 if (objc == 1)
3b70: 7b 0a 09 72 65 74 75 72 6e 20 44 69 67 65 73 74 {..return Digest
3b80: 4c 69 73 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 List(interp);..
3b90: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 } else if (ob
3ba0: 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 72 65 74 75 jc == 2) {..retu
3bb0: 72 6e 20 44 69 67 65 73 74 49 6e 66 6f 28 69 6e rn DigestInfo(in
3bc0: 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a terp, objv[1]);.
3bd0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
3be0: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
3bf0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
3c00: 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74 "?name?");..ret
3c10: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3c20: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
3c30: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a TCL_OK;.}../****
3c40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3c50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3c60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3c70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
3c80: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
3c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
3cd0: 20 4b 64 66 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 KdfList --. *.
3ce0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
3cf0: 6f 66 20 61 6c 6c 20 4b 44 46 20 61 6c 67 6f 72 of all KDF algor
3d00: 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 ithms. *. * Resu
3d10: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
3d20: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
3d30: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
3d40: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
3d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d90: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4b 64 66 4c 69 --. */.int KdfLi
3da0: 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 st(Tcl_Interp *i
3db0: 6e 74 65 72 70 2c 20 63 68 61 72 20 2a 73 65 6c nterp, char *sel
3dc0: 65 63 74 5f 6e 61 6d 65 29 20 7b 0a 20 20 20 20 ect_name) {.
3dd0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
3de0: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
3df0: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
3e00: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
3e10: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
3e20: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3e30: 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 73 }.. Tcl_Lis
3e40: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
3e50: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
3e60: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
3e70: 6e 67 4f 62 6a 28 22 68 6b 64 66 22 2c 20 2d 31 ngObj("hkdf", -1
3e80: 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 ));. Tcl_List
3e90: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
3ea0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
3eb0: 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e bj, Tcl_NewStrin
3ec0: 67 4f 62 6a 28 22 70 62 6b 64 66 32 22 2c 20 2d gObj("pbkdf2", -
3ed0: 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 1));. Tcl_Lis
3ee0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
3ef0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
3f00: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
3f10: 6e 67 4f 62 6a 28 22 73 63 72 79 70 74 22 2c 20 ngObj("scrypt",
3f20: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 -1));. Tcl_Se
3f30: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
3f40: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 p, resultObj);.
3f50: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
3f60: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
3f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3fb0: 0a 20 2a 20 4b 64 66 73 4f 62 6a 43 6d 64 20 2d . * KdfsObjCmd -
3fc0: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
3fd0: 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c list of all val
3fe0: 69 64 20 4b 65 79 20 44 65 72 69 76 61 74 69 6f id Key Derivatio
3ff0: 6e 20 46 75 6e 63 74 69 6f 6e 20 28 4b 44 46 29 n Function (KDF)
4000: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
4010: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
4020: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
4030: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4040: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
4050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4090: 2a 2f 0a 69 6e 74 20 4b 64 66 73 4f 62 6a 43 6d */.int KdfsObjCm
40a0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
40b0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
40c0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
40d0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
40e0: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
40f0: 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e (void) clien
4100: 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 tData;.. dpri
4110: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
4120: 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 /* Clear err
4130: 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 ors */. Tcl_R
4140: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 esetResult(inter
4150: 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 p);. ERR_clea
4160: 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 0a 20 20 20 r_error();...
4170: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 /* Validate arg
4180: 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 count */. if
4190: 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 (objc == 1) {..
41a0: 72 65 74 75 72 6e 20 4b 64 66 4c 69 73 74 28 69 return KdfList(i
41b0: 6e 74 65 72 70 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 nterp, NULL);..
41c0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 } else if (ob
41d0: 6a 63 20 3d 3d 20 32 29 20 7b 0a 0a 0a 20 20 20 jc == 2) {...
41e0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 } else {..Tcl_W
41f0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
4200: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e rp, 1, objv, "?n
4210: 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ame?");..return
4220: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
4230: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
4240: 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a OK;.}../********
4250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
4290: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
42a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 ------. *. * Mac
42e0: 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 Info --. *. *.Re
42f0: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 turn a list of p
4300: 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 roperties and va
4310: 6c 75 65 73 20 66 6f 72 20 6d 61 63 4e 61 6d 65 lues for macName
4320: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
4330: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
4340: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
4350: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4360: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
4370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
43a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
43b0: 2a 2f 0a 69 6e 74 20 4d 61 63 49 6e 66 6f 28 54 */.int MacInfo(T
43c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
43d0: 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 6d 65 p, Tcl_Obj *name
43e0: 4f 62 6a 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f Obj) {. Tcl_O
43f0: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 bj *resultObj;.
4400: 20 20 20 69 6e 74 20 72 65 73 20 3d 20 54 43 4c int res = TCL
4410: 5f 4f 4b 3b 0a 20 20 20 20 63 68 61 72 20 2a 6e _OK;. char *n
4420: 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 ame = Tcl_GetStr
4430: 69 6e 67 28 6e 61 6d 65 4f 62 6a 29 3b 0a 0a 20 ing(nameObj);..
4440: 20 20 20 69 66 20 28 73 74 72 63 6d 70 28 6e 61 if (strcmp(na
4450: 6d 65 2c 20 22 63 6d 61 63 22 29 20 21 3d 20 30 me, "cmac") != 0
4460: 20 26 26 20 73 74 72 63 6d 70 28 6e 61 6d 65 2c && strcmp(name,
4470: 20 22 68 6d 61 63 22 29 20 21 3d 20 30 29 20 7b "hmac") != 0) {
4480: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
4490: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 lt(interp, "Inva
44a0: 6c 69 64 20 4d 41 43 20 5c 22 22 2c 20 6e 61 6d lid MAC \"", nam
44b0: 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20 2a e, "\"", (char *
44c0: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
44d0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
44e0: 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72 }.. /* Get pr
44f0: 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 operties */.
4500: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
4510: 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 NewListObj(0, NU
4520: 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 LL);. if (res
4530: 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 ultObj == NULL)
4540: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
4550: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c ROR;. }. L
4560: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
4570: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e p, resultObj, "n
4580: 61 6d 65 22 2c 20 6e 61 6d 65 2c 20 2d 31 29 3b ame", name, -1);
4590: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
45a0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
45b0: 62 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e bj, "description
45c0: 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 ", "", -1);.
45d0: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
45e0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
45f0: 70 72 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d provider", "", -
4600: 31 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 1);.. Tcl_Set
4610: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
4620: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 , resultObj);.
4630: 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a return res;.}.
4640: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
4650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
4690: 4d 61 63 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a MacList --. *. *
46a0: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f .Return a list o
46b0: 66 20 61 6c 6c 20 4d 41 43 20 61 6c 67 6f 72 69 f all MAC algori
46c0: 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c thms. *. * Resul
46d0: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
46e0: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 d Tcl list.. *.
46f0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4700: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
4710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4750: 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 4c 69 73 -. */.int MacLis
4760: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e t(Tcl_Interp *in
4770: 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f terp) {. Tcl_
4780: 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d Obj *resultObj =
4790: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
47a0: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 0, NULL);. if
47b0: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
47c0: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
47d0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
47e0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
47f0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
4800: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
4810: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
4820: 6a 28 22 63 6d 61 63 22 2c 20 2d 31 29 29 3b 0a j("cmac", -1));.
4830: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
4840: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
4850: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
4860: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
4870: 28 22 68 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 ("hmac", -1));.
4880: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
4890: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
48a0: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 ltObj);. retu
48b0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
48c0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
48d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4900: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 ------. *. * Mac
4910: 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a sObjCmd --. *. *
4920: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f .Return a list o
4930: 66 20 61 6c 6c 20 76 61 6c 69 64 20 6d 65 73 73 f all valid mess
4940: 61 67 65 20 61 75 74 68 65 6e 74 69 63 61 74 69 age authenticati
4950: 6f 6e 20 63 6f 64 65 73 20 28 4d 41 43 29 2e 0a on codes (MAC)..
4960: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
4970: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
4980: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 list.. *. * Sid
4990: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
49a0: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
49b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
49f0: 0a 69 6e 74 20 4d 61 63 73 4f 62 6a 43 6d 64 28 .int MacsObjCmd(
4a00: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
4a10: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
4a20: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
4a30: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
4a40: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
4a50: 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 (void) clientD
4a60: 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ata;.. dprint
4a70: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
4a80: 20 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 /* Clear error
4a90: 73 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 s */. Tcl_Res
4aa0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 etResult(interp)
4ab0: 3b 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f ;. ERR_clear_
4ac0: 65 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a error();.. /*
4ad0: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
4ae0: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
4af0: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 bjc == 1) {..ret
4b00: 75 72 6e 20 4d 61 63 4c 69 73 74 28 69 6e 74 65 urn MacList(inte
4b10: 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 rp);.. } else
4b20: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 if (objc == 2)
4b30: 7b 0a 09 72 65 74 75 72 6e 20 4d 61 63 49 6e 66 {..return MacInf
4b40: 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 o(interp, objv[1
4b50: 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 ]);.. } else
4b60: 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 {..Tcl_WrongNumA
4b70: 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f rgs(interp, 1, o
4b80: 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a bjv, "?name?");.
4b90: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
4ba0: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 R;. }. ret
4bb0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
4bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4bf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4c00: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
4c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4c50: 2a 0a 20 2a 20 50 6b 65 79 49 6e 66 6f 20 2d 2d *. * PkeyInfo --
4c60: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 . *. *.Return a
4c70: 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69 list of properti
4c80: 65 73 20 61 6e 64 20 76 61 6c 75 65 73 20 66 6f es and values fo
4c90: 72 20 70 6b 65 79 2e 0a 20 2a 0a 20 2a 20 52 65 r pkey.. *. * Re
4ca0: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
4cb0: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 dard Tcl list..
4cc0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
4cd0: 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 s:. *.None.. *.
4ce0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d20: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 ----. */.int Pke
4d30: 79 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 yInfo(Tcl_Interp
4d40: 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 *interp, Tcl_Ob
4d50: 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 j *nameObj) {.
4d60: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
4d70: 74 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 tObj;. int re
4d80: 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 s = TCL_OK;.
4d90: 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c char *name = Tcl
4da0: 5f 47 65 74 53 74 72 69 6e 67 28 6e 61 6d 65 4f _GetString(nameO
4db0: 62 6a 29 3b 0a 20 20 20 20 45 56 50 5f 50 4b 45 bj);. EVP_PKE
4dc0: 59 20 2a 70 6b 65 79 20 3d 20 4e 55 4c 4c 3b 0a Y *pkey = NULL;.
4dd0: 0a 20 20 20 20 69 66 20 28 70 6b 65 79 20 3d 3d . if (pkey ==
4de0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
4df0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
4e00: 70 2c 20 22 49 6e 76 61 6c 69 64 20 70 75 62 6c p, "Invalid publ
4e10: 69 63 20 6b 65 79 20 6d 65 74 68 6f 64 20 5c 22 ic key method \"
4e20: 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28 ", name, "\"", (
4e30: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
4e40: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4e50: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
4e60: 47 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a Get properties *
4e70: 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 /. resultObj
4e80: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
4e90: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 (0, NULL);. i
4ea0: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
4eb0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
4ec0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
4ed0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
4ee0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
4ef0: 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 4f 42 4a 5f bj, "name", OBJ_
4f00: 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f nid2ln(EVP_PKEY_
4f10: 69 64 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a id(pkey)), -1);.
4f20: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
4f30: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
4f40: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
4f50: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c , "", -1);. L
4f60: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
4f70: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73 p, resultObj, "s
4f80: 69 7a 65 22 2c 20 45 56 50 5f 50 4b 45 59 5f 73 ize", EVP_PKEY_s
4f90: 69 7a 65 28 70 6b 65 79 29 29 3b 0a 20 20 20 20 ize(pkey));.
4fa0: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
4fb0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
4fc0: 62 69 74 73 22 2c 20 45 56 50 5f 50 4b 45 59 5f bits", EVP_PKEY_
4fd0: 62 69 74 73 28 70 6b 65 79 29 29 3b 0a 20 20 20 bits(pkey));.
4fe0: 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 LAPPEND_INT(int
4ff0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
5000: 22 73 65 63 75 72 69 74 79 5f 62 69 74 73 22 2c "security_bits",
5010: 20 45 56 50 5f 50 4b 45 59 5f 73 65 63 75 72 69 EVP_PKEY_securi
5020: 74 79 5f 62 69 74 73 28 70 6b 65 79 29 29 3b 0a ty_bits(pkey));.
5030: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
5040: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
5050: 6a 2c 20 22 62 61 73 65 49 64 22 2c 20 4f 42 4a j, "baseId", OBJ
5060: 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 _nid2ln(EVP_PKEY
5070: 5f 62 61 73 65 5f 69 64 28 70 6b 65 79 29 29 2c _base_id(pkey)),
5080: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
5090: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
50a0: 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 sultObj, "provid
50b0: 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 er", "", -1);.
50c0: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
50d0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
50e0: 20 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 "type", OBJ_nid
50f0: 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 74 79 70 2ln(EVP_PKEY_typ
5100: 65 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b e(EVP_PKEY_id(pk
5110: 65 79 29 29 29 2c 20 2d 31 29 3b 0a 0a 20 20 20 ey))), -1);..
5120: 20 7b 0a 09 69 6e 74 20 70 6e 69 64 3b 0a 09 69 {..int pnid;..i
5130: 66 20 28 45 56 50 5f 50 4b 45 59 5f 67 65 74 5f f (EVP_PKEY_get_
5140: 64 65 66 61 75 6c 74 5f 64 69 67 65 73 74 5f 6e default_digest_n
5150: 69 64 28 70 6b 65 79 2c 20 26 70 6e 69 64 29 20 id(pkey, &pnid)
5160: 3e 20 30 29 20 7b 0a 09 20 20 20 20 4c 41 50 50 > 0) {.. LAPP
5170: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
5180: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 66 61 resultObj, "defa
5190: 75 6c 74 5f 64 69 67 65 73 74 22 2c 20 4f 42 4a ult_digest", OBJ
51a0: 5f 6e 69 64 32 6c 6e 28 70 6e 69 64 29 2c 20 2d _nid2ln(pnid), -
51b0: 32 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 2);..}. }..
51c0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
51d0: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
51e0: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 tObj);. retur
51f0: 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d n res;.}../*. *-
5200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5240: 2d 2d 0a 20 2a 0a 20 2a 20 50 6b 65 79 4c 69 73 --. *. * PkeyLis
5250: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 t --. *. *.Retur
5260: 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 n a list of all
5270: 70 75 62 6c 69 63 20 6b 65 79 20 6d 65 74 68 6f public key metho
5280: 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 ds. *. * Results
5290: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
52a0: 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 Tcl list.. *. *
52b0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
52c0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
52d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5310: 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 4c 69 73 74 */.int PkeyList
5320: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
5330: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f erp) {. Tcl_O
5340: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 bj *resultObj =
5350: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
5360: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
5370: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
5380: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
5390: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
53a0: 20 20 20 20 66 6f 72 20 28 73 69 7a 65 5f 74 20 for (size_t
53b0: 69 20 3d 20 30 3b 20 69 20 3c 20 45 56 50 5f 50 i = 0; i < EVP_P
53c0: 4b 45 59 5f 6d 65 74 68 5f 67 65 74 5f 63 6f 75 KEY_meth_get_cou
53d0: 6e 74 28 29 3b 20 69 2b 2b 29 20 7b 0a 20 20 20 nt(); i++) {.
53e0: 20 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 50 const EVP_P
53f0: 4b 45 59 5f 4d 45 54 48 4f 44 20 2a 70 6d 65 74 KEY_METHOD *pmet
5400: 68 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 h = EVP_PKEY_met
5410: 68 5f 67 65 74 30 28 69 29 3b 0a 20 20 20 20 20 h_get0(i);.
5420: 20 20 20 69 6e 74 20 70 6b 65 79 5f 69 64 2c 20 int pkey_id,
5430: 70 6b 65 79 5f 66 6c 61 67 73 3b 0a 0a 20 20 20 pkey_flags;..
5440: 20 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 6d 65 EVP_PKEY_me
5450: 74 68 5f 67 65 74 30 5f 69 6e 66 6f 28 26 70 6b th_get0_info(&pk
5460: 65 79 5f 69 64 2c 20 26 70 6b 65 79 5f 66 6c 61 ey_id, &pkey_fla
5470: 67 73 2c 20 70 6d 65 74 68 29 3b 0a 09 2f 2a 4c gs, pmeth);../*L
5480: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
5490: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e p, resultObj, "n
54a0: 61 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e ame", OBJ_nid2ln
54b0: 28 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29 3b 0a (pkey_id), -1);.
54c0: 09 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 .LAPPEND_STR(int
54d0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
54e0: 22 74 79 70 65 22 2c 20 70 6b 65 79 5f 66 6c 61 "type", pkey_fla
54f0: 67 73 20 26 20 41 53 4e 31 5f 50 4b 45 59 5f 44 gs & ASN1_PKEY_D
5500: 59 4e 41 4d 49 43 20 3f 20 22 45 78 74 65 72 6e YNAMIC ? "Extern
5510: 61 6c 22 20 3a 20 22 42 75 69 6c 74 2d 69 6e 22 al" : "Built-in"
5520: 2c 20 2d 31 29 3b 2a 2f 0a 0a 09 54 63 6c 5f 4c , -1);*/...Tcl_L
5530: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
5540: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ent(interp, resu
5550: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 ltObj, Tcl_NewSt
5560: 72 69 6e 67 4f 62 6a 28 4f 42 4a 5f 6e 69 64 32 ringObj(OBJ_nid2
5570: 6c 6e 28 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29 ln(pkey_id), -1)
5580: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c );. }. Tcl
5590: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
55a0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 terp, resultObj)
55b0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
55c0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
55d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
55e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
55f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5610: 0a 20 2a 0a 20 2a 20 50 6b 65 79 73 4f 62 6a 43 . *. * PkeysObjC
5620: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
5630: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c rn a list of all
5640: 20 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 6f valid hash algo
5650: 72 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 67 rithms or messag
5660: 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a e digests.. *. *
5670: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
5680: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 tandard Tcl list
5690: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
56a0: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
56b0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
56c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
56f0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
5700: 50 6b 65 79 73 4f 62 6a 43 6d 64 28 43 6c 69 65 PkeysObjCmd(Clie
5710: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
5720: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
5730: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
5740: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
5750: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 objv[]) {. (v
5760: 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b oid) clientData;
5770: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
5780: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
5790: 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f Clear errors */
57a0: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 . Tcl_ResetRe
57b0: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
57c0: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
57d0: 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c r();.. /* Val
57e0: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
57f0: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
5800: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 1) {..return
5810: 50 6b 65 79 4c 69 73 74 28 69 6e 74 65 72 70 29 PkeyList(interp)
5820: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ;.. } else if
5830: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 (objc == 2) {..
5840: 72 65 74 75 72 6e 20 50 6b 65 79 49 6e 66 6f 28 return PkeyInfo(
5850: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 interp, objv[1])
5860: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
5870: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
5880: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
5890: 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 v, "?name?");..r
58a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
58b0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
58c0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a n TCL_OK;.}../**
58d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
58e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
58f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5900: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5910: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
5960: 20 2a 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 * ProtocolsObjC
5970: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
5980: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 rn a list of the
5990: 20 61 76 61 69 6c 61 62 6c 65 20 6f 72 20 73 75 available or su
59a0: 70 70 6f 72 74 65 64 20 53 53 4c 2f 54 4c 53 20 pported SSL/TLS
59b0: 70 72 6f 74 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 2a protocols.. *. *
59c0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
59d0: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 tandard Tcl list
59e0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
59f0: 65 63 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ects:. *.none. *
5a00: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a40: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
5a50: 63 20 69 6e 74 0a 50 72 6f 74 6f 63 6f 6c 73 4f c int.ProtocolsO
5a60: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
5a70: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
5a80: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
5a90: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
5aa0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
5ab0: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ) {. Tcl_Obj
5ac0: 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 *resultObj;.
5ad0: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 (void) clientDat
5ae0: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
5af0: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
5b00: 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 /* Clear errors
5b10: 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 */. Tcl_Reset
5b20: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
5b30: 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 ERR_clear_er
5b40: 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 ror();.. /* V
5b50: 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e alidate arg coun
5b60: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a t */. if (obj
5b70: 63 20 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f 57 c != 1) {..Tcl_W
5b80: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
5b90: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c rp, 1, objv, NUL
5ba0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
5bb0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5bc0: 20 20 2f 2a 20 4c 69 73 74 20 61 6c 6c 20 70 72 /* List all pr
5bd0: 6f 74 6f 63 6f 6c 73 20 2a 2f 0a 20 20 20 20 72 otocols */. r
5be0: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
5bf0: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
5c00: 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 L);. if (resu
5c10: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
5c20: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5c30: 4f 52 3b 0a 20 20 20 20 7d 0a 23 69 66 20 4f 50 OR;. }.#if OP
5c40: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 ENSSL_VERSION_NU
5c50: 4d 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30 MBER < 0x1010000
5c60: 30 4c 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e 0L && !defined(N
5c70: 4f 5f 53 53 4c 32 29 20 26 26 20 21 64 65 66 69 O_SSL2) && !defi
5c80: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 ned(OPENSSL_NO_S
5c90: 53 4c 32 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 SL2). Tcl_Lis
5ca0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
5cb0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
5cc0: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
5cd0: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b ngObj(protocols[
5ce0: 54 4c 53 5f 53 53 4c 32 5d 2c 20 2d 31 29 29 3b TLS_SSL2], -1));
5cf0: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
5d00: 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 26 26 ined(NO_SSL3) &&
5d10: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
5d20: 4c 5f 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 L_NO_SSL3) && !d
5d30: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
5d40: 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 29 0a 20 O_SSL3_METHOD).
5d50: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
5d60: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
5d70: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
5d80: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
5d90: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53 protocols[TLS_SS
5da0: 4c 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 L3], -1));.#endi
5db0: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
5dc0: 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 66 69 O_TLS1) && !defi
5dd0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
5de0: 4c 53 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 LS1) && !defined
5df0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
5e00: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c _METHOD). Tcl
5e10: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
5e20: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
5e30: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
5e40: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 StringObj(protoc
5e50: 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5d 2c 20 2d ols[TLS_TLS1], -
5e60: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 1));.#endif.#if
5e70: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
5e80: 5f 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 _1) && !defined(
5e90: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
5ea0: 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 1) && !defined(O
5eb0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 PENSSL_NO_TLS1_1
5ec0: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c _METHOD). Tcl
5ed0: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
5ee0: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
5ef0: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
5f00: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 StringObj(protoc
5f10: 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 31 5d 2c ols[TLS_TLS1_1],
5f20: 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 -1));.#endif.#i
5f30: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c f !defined(NO_TL
5f40: 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65 S1_2) && !define
5f50: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
5f60: 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 1_2) && !defined
5f70: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
5f80: 5f 32 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 _2_METHOD). T
5f90: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
5fa0: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
5fb0: 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e resultObj, Tcl_N
5fc0: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 ewStringObj(prot
5fd0: 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 32 ocols[TLS_TLS1_2
5fe0: 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a ], -1));.#endif.
5ff0: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
6000: 54 4c 53 31 5f 33 29 20 26 26 20 21 64 65 66 69 TLS1_3) && !defi
6010: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
6020: 4c 53 31 5f 33 29 0a 20 20 20 20 54 63 6c 5f 4c LS1_3). Tcl_L
6030: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
6040: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ent(interp, resu
6050: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 ltObj, Tcl_NewSt
6060: 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c ringObj(protocol
6070: 73 5b 54 4c 53 5f 54 4c 53 31 5f 33 5d 2c 20 2d s[TLS_TLS1_3], -
6080: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 1));.#endif.
6090: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
60a0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
60b0: 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 bj);. return
60c0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a TCL_OK;.}../****
60d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
60e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
60f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6100: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
6110: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
6160: 20 50 72 6f 76 69 64 65 72 4f 62 6a 43 6d 64 20 ProviderObjCmd
6170: 2d 2d 0a 20 2a 0a 20 2a 09 4c 6f 61 64 20 61 20 --. *. *.Load a
6180: 70 72 6f 76 69 64 65 72 2e 0a 20 2a 0a 20 2a 20 provider.. *. *
6190: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
61a0: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
61b0: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
61c0: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
61d0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
61e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6210: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 23 69 66 --------. */.#if
6220: 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e OPENSSL_VERSION
6230: 5f 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 _NUMBER >= 0x300
6240: 30 30 30 30 30 4c 0a 73 74 61 74 69 63 20 69 6e 00000L.static in
6250: 74 0a 50 72 6f 76 69 64 65 72 4f 62 6a 43 6d 64 t.ProviderObjCmd
6260: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
6270: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
6280: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
6290: 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 objc, Tcl_Obj *c
62a0: 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 onst objv[]) {.
62b0: 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 3b 0a 20 char *name;.
62c0: 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 (void) client
62d0: 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e Data;.. dprin
62e0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
62f0: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
6300: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
6310: 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 20 7b if (objc != 2) {
6320: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
6330: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
6340: 6a 76 2c 20 22 6e 61 6d 65 22 29 3b 0a 09 72 65 jv, "name");..re
6350: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6360: 20 20 20 20 7d 0a 0a 20 20 20 20 6e 61 6d 65 20 }.. name
6370: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 = Tcl_GetString(
6380: 6f 62 6a 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66 objv[1]);. if
6390: 20 28 21 4f 53 53 4c 5f 50 52 4f 56 49 44 45 52 (!OSSL_PROVIDER
63a0: 5f 74 72 79 5f 6c 6f 61 64 28 4e 55 4c 4c 2c 20 _try_load(NULL,
63b0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 6e (const char *) n
63c0: 61 6d 65 2c 20 31 29 29 20 7b 0a 09 54 63 6c 5f ame, 1)) {..Tcl_
63d0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
63e0: 65 72 70 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 erp, GET_ERR_REA
63f0: 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 20 SON(), (char *)
6400: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
6410: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
6420: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6430: 4f 4b 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a OK;.}.#endif../*
6440: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6450: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6460: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6470: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6480: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
6490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
64d0: 0a 20 2a 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d . * VersionObjCm
64e0: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 d --. *. *.Retur
64f0: 6e 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 20 n a string with
6500: 74 68 65 20 4f 70 65 6e 53 53 4c 20 76 65 72 73 the OpenSSL vers
6510: 69 6f 6e 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a 20 ion info.. *. *
6520: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
6530: 61 6e 64 61 72 64 20 54 63 6c 20 72 65 73 75 6c andard Tcl resul
6540: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
6550: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
6560: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
65a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 --------. */.sta
65b0: 74 69 63 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f tic int.VersionO
65c0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
65d0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
65e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
65f0: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
6600: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
6610: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ) {. Tcl_Obj
6620: 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 *resultObj;.
6630: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 (void) clientDat
6640: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
6650: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
6660: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
6670: 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 count */. if
6680: 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a 09 54 (objc != 1) {..T
6690: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
66a0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
66b0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
66c0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
66d0: 0a 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 .. resultObj
66e0: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f = Tcl_NewStringO
66f0: 62 6a 28 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 bj(OPENSSL_VERSI
6700: 4f 4e 5f 54 45 58 54 2c 20 2d 31 29 3b 0a 20 20 ON_TEXT, -1);.
6710: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
6720: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
6730: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 tObj);. retur
6740: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a n TCL_OK;.}../**
6750: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6760: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6770: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6780: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6790: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
67a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
67e0: 20 2a 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61 * Tls_InfoComma
67f0: 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 nds --. *. *.Cre
6800: 61 74 65 20 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 ate info command
6810: 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a s. *. * Returns:
6820: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
6830: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
6840: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
6850: 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a reates commands.
6860: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
68b0: 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 Tls_InfoCommand
68c0: 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e s(Tcl_Interp *in
68d0: 74 65 72 70 29 20 7b 0a 0a 23 69 66 20 4f 50 45 terp) {..#if OPE
68e0: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
68f0: 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30 30 BER < 0x10100000
6900: 4c 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 L. OpenSSL_ad
6910: 64 5f 61 6c 6c 5f 63 69 70 68 65 72 73 28 29 3b d_all_ciphers();
6920: 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 . OpenSSL_add
6930: 5f 61 6c 6c 5f 64 69 67 65 73 74 73 28 29 3b 0a _all_digests();.
6940: 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f OpenSSL_add_
6950: 61 6c 6c 5f 61 6c 67 6f 72 69 74 68 6d 73 28 29 all_algorithms()
6960: 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 54 63 ;.#endif.. Tc
6970: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
6980: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
6990: 3a 63 69 70 68 65 72 22 2c 20 43 69 70 68 65 72 :cipher", Cipher
69a0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
69b0: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
69c0: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
69d0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
69e0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
69f0: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 (interp, "tls::c
6a00: 69 70 68 65 72 73 22 2c 20 43 69 70 68 65 72 73 iphers", Ciphers
6a10: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
6a20: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
6a30: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
6a40: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
6a50: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
6a60: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 64 (interp, "tls::d
6a70: 69 67 65 73 74 73 22 2c 20 44 69 67 65 73 74 73 igests", Digests
6a80: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
6a90: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
6aa0: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
6ab0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
6ac0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
6ad0: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6b (interp, "tls::k
6ae0: 64 66 73 22 2c 20 4b 64 66 73 4f 62 6a 43 6d 64 dfs", KdfsObjCmd
6af0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e , (ClientData) N
6b00: 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ULL, (Tcl_CmdDel
6b10: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
6b20: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
6b30: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
6b40: 70 2c 20 22 74 6c 73 3a 3a 6d 61 63 73 22 2c 20 p, "tls::macs",
6b50: 4d 61 63 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 MacsObjCmd, (Cli
6b60: 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 entData) NULL, (
6b70: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
6b80: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 c *) NULL);.
6b90: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
6ba0: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c mand(interp, "tl
6bb0: 73 3a 3a 70 6b 65 79 73 22 2c 20 50 6b 65 79 73 s::pkeys", Pkeys
6bc0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
6bd0: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
6be0: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
6bf0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
6c00: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
6c10: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 (interp, "tls::p
6c20: 72 6f 74 6f 63 6f 6c 73 22 2c 20 50 72 6f 74 6f rotocols", Proto
6c30: 63 6f 6c 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 colsObjCmd, (Cli
6c40: 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 entData) NULL, (
6c50: 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f Tcl_CmdDeletePro
6c60: 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 23 69 66 20 c *) NULL);.#if
6c70: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
6c80: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
6c90: 30 30 30 30 4c 0a 20 20 20 20 54 63 6c 5f 43 72 0000L. Tcl_Cr
6ca0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
6cb0: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 72 6f nterp, "tls::pro
6cc0: 76 69 64 65 72 22 2c 20 50 72 6f 76 69 64 65 72 vider", Provider
6cd0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
6ce0: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
6cf0: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
6d00: 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 66 0a 20 NULL);.#endif.
6d10: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
6d20: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
6d30: 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 2c 20 "tls::version",
6d40: 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 2c 20 28 VersionObjCmd, (
6d50: 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c ClientData) NULL
6d60: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
6d70: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
6d80: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
6d90: 3b 0a 7d 0a 0a ;.}..