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 0a 2f 2a 0a 20 2a estack.h>../*. *
0110: 20 56 61 6c 69 64 20 53 53 4c 20 61 6e 64 20 54 Valid SSL and T
0120: 4c 53 20 50 72 6f 74 6f 63 6f 6c 20 56 65 72 73 LS Protocol Vers
0130: 69 6f 6e 73 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ions. */.static
0140: 63 6f 6e 73 74 20 63 68 61 72 20 2a 70 72 6f 74 const char *prot
0150: 6f 63 6f 6c 73 5b 5d 20 3d 20 7b 0a 09 22 73 73 ocols[] = {.."ss
0160: 6c 32 22 2c 20 22 73 73 6c 33 22 2c 20 22 74 6c l2", "ssl3", "tl
0170: 73 31 22 2c 20 22 74 6c 73 31 2e 31 22 2c 20 22 s1", "tls1.1", "
0180: 74 6c 73 31 2e 32 22 2c 20 22 74 6c 73 31 2e 33 tls1.2", "tls1.3
0190: 22 2c 20 4e 55 4c 4c 0a 7d 3b 0a 65 6e 75 6d 20 ", NULL.};.enum
01a0: 70 72 6f 74 6f 63 6f 6c 20 7b 0a 20 20 20 20 54 protocol {. T
01b0: 4c 53 5f 53 53 4c 32 2c 20 54 4c 53 5f 53 53 4c LS_SSL2, TLS_SSL
01c0: 33 2c 20 54 4c 53 5f 54 4c 53 31 2c 20 54 4c 53 3, TLS_TLS1, TLS
01d0: 5f 54 4c 53 31 5f 31 2c 20 54 4c 53 5f 54 4c 53 _TLS1_1, TLS_TLS
01e0: 31 5f 32 2c 20 54 4c 53 5f 54 4c 53 31 5f 33 2c 1_2, TLS_TLS1_3,
01f0: 20 54 4c 53 5f 4e 4f 4e 45 0a 7d 3b 0a 0a 2f 2a TLS_NONE.};../*
0200: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0210: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0240: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
0250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0290: 0a 20 2a 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 . * NamesCallbac
02a0: 6b 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 62 k --. *. *.Callb
02b0: 61 63 6b 20 74 6f 20 61 64 64 20 61 6c 67 6f 72 ack to add algor
02c0: 69 74 68 6d 20 6f 72 20 6d 65 74 68 6f 64 20 6e ithm or method n
02d0: 61 6d 65 73 20 74 6f 20 61 20 54 43 4c 20 6c 69 ames to a TCL li
02e0: 73 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a 20 2a st object.. *. *
02f0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 70 70 Results:. *.App
0300: 65 6e 64 20 6e 61 6d 65 20 74 6f 20 54 43 4c 20 end name to TCL
0310: 6c 69 73 74 20 6f 62 6a 65 63 74 2e 0a 20 2a 0a list object.. *.
0320: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
0330: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 4e 61 6d 65 --. */.void Name
0390: 73 43 61 6c 6c 62 61 63 6b 28 63 6f 6e 73 74 20 sCallback(const
03a0: 4f 42 4a 5f 4e 41 4d 45 20 2a 6f 62 6a 2c 20 76 OBJ_NAME *obj, v
03b0: 6f 69 64 20 2a 61 72 67 29 20 7b 0a 20 20 20 20 oid *arg) {.
03c0: 54 63 6c 5f 4f 62 6a 20 2a 6c 69 73 74 4f 62 6a Tcl_Obj *listObj
03d0: 20 3d 20 28 54 63 6c 5f 4f 62 6a 20 2a 29 20 61 = (Tcl_Obj *) a
03e0: 72 67 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 65 6c rg;.. /* Fiel
03f0: 64 73 3a 20 28 69 6e 74 29 20 74 79 70 65 20 61 ds: (int) type a
0400: 6e 64 20 61 6c 69 61 73 2c 20 28 63 6f 6e 73 74 nd alias, (const
0410: 20 63 68 61 72 2a 29 20 6e 61 6d 65 20 28 61 6c char*) name (al
0420: 69 61 73 20 66 72 6f 6d 29 20 61 6e 64 20 64 61 ias from) and da
0430: 74 61 20 28 61 6c 69 61 73 20 74 6f 29 20 2a 2f ta (alias to) */
0440: 0a 20 20 20 20 69 66 20 28 73 74 72 73 74 72 28 . if (strstr(
0450: 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 22 72 73 61 22 obj->name, "rsa"
0460: 29 20 3d 3d 20 4e 55 4c 4c 20 26 26 20 73 74 72 ) == NULL && str
0470: 73 74 72 28 6f 62 6a 2d 3e 6e 61 6d 65 2c 20 22 str(obj->name, "
0480: 52 53 41 22 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b RSA") == NULL) {
0490: 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ..Tcl_ListObjApp
04a0: 65 6e 64 45 6c 65 6d 65 6e 74 28 4e 55 4c 4c 2c endElement(NULL,
04b0: 20 6c 69 73 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 listObj, Tcl_Ne
04c0: 77 53 74 72 69 6e 67 4f 62 6a 28 6f 62 6a 2d 3e wStringObj(obj->
04d0: 6e 61 6d 65 2c 20 2d 31 29 29 3b 0a 20 20 20 20 name, -1));.
04e0: 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }.}../**********
04f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0500: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0510: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0520: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
0530: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0570: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 69 70 68 65 ----. *. * Ciphe
0580: 72 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 rInfo --. *. *.R
0590: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
05a0: 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 properties and v
05b0: 61 6c 75 65 73 20 66 6f 72 20 63 69 70 68 65 72 alues for cipher
05c0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
05d0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
05e0: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
05f0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
0600: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
0650: 2a 2f 0a 69 6e 74 20 43 69 70 68 65 72 49 6e 66 */.int CipherInf
0660: 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e o(Tcl_Interp *in
0670: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e terp, Tcl_Obj *n
0680: 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 63 6f ameObj) {. co
0690: 6e 73 74 20 45 56 50 5f 43 49 50 48 45 52 20 2a nst EVP_CIPHER *
06a0: 63 69 70 68 65 72 3b 0a 20 20 20 20 54 63 6c 5f cipher;. Tcl_
06b0: 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 2c 20 Obj *resultObj,
06c0: 2a 6c 69 73 74 4f 62 6a 3b 0a 20 20 20 20 75 6e *listObj;. un
06d0: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 signed long flag
06e0: 73 2c 20 6d 6f 64 65 3b 0a 20 20 20 20 63 68 61 s, mode;. cha
06f0: 72 20 2a 6d 6f 64 65 4e 61 6d 65 20 3d 20 4e 55 r *modeName = NU
0700: 4c 4c 3b 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 LL;. char *na
0710: 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 me = Tcl_GetStri
0720: 6e 67 46 72 6f 6d 4f 62 6a 28 6e 61 6d 65 4f 62 ngFromObj(nameOb
0730: 6a 2c 20 28 54 63 6c 5f 53 69 7a 65 20 2a 29 20 j, (Tcl_Size *)
0740: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 NULL);.. /* G
0750: 65 74 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 20 et cipher */.
0760: 20 63 69 70 68 65 72 20 3d 20 45 56 50 5f 67 65 cipher = EVP_ge
0770: 74 5f 63 69 70 68 65 72 62 79 6e 61 6d 65 28 6e t_cipherbyname(n
0780: 61 6d 65 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 ame);.. if (c
0790: 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b ipher == NULL) {
07a0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
07b0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 lt(interp, "Inva
07c0: 6c 69 64 20 63 69 70 68 65 72 20 5c 22 22 2c 20 lid cipher \"",
07d0: 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 28 63 68 61 name, "\"", (cha
07e0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
07f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
0800: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
0810: 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 properties */.
0820: 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 resultObj = T
0830: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
0840: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 NULL);. if (
0850: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
0860: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
0870: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
0880: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
0890: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
08a0: 20 22 6e 69 64 22 2c 20 4f 42 4a 5f 6e 69 64 32 "nid", OBJ_nid2
08b0: 6c 6e 28 45 56 50 5f 43 49 50 48 45 52 5f 6e 69 ln(EVP_CIPHER_ni
08c0: 64 28 63 69 70 68 65 72 29 29 2c 20 2d 31 29 3b d(cipher)), -1);
08d0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
08e0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
08f0: 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 45 56 50 5f bj, "name", EVP_
0900: 43 49 50 48 45 52 5f 6e 61 6d 65 28 63 69 70 68 CIPHER_name(ciph
0910: 65 72 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 er), -1);. LA
0920: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
0930: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 , resultObj, "de
0940: 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20 scription", "",
0950: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 -1);. LAPPEND
0960: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 _INT(interp, res
0970: 75 6c 74 4f 62 6a 2c 20 22 62 6c 6f 63 6b 5f 73 ultObj, "block_s
0980: 69 7a 65 22 2c 20 45 56 50 5f 43 49 50 48 45 52 ize", EVP_CIPHER
0990: 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 63 69 70 68 _block_size(ciph
09a0: 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e er));. LAPPEN
09b0: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 D_INT(interp, re
09c0: 73 75 6c 74 4f 62 6a 2c 20 22 6b 65 79 5f 6c 65 sultObj, "key_le
09d0: 6e 67 74 68 22 2c 20 45 56 50 5f 43 49 50 48 45 ngth", EVP_CIPHE
09e0: 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 R_key_length(cip
09f0: 68 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 her));. LAPPE
0a00: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 ND_INT(interp, r
0a10: 65 73 75 6c 74 4f 62 6a 2c 20 22 69 76 5f 6c 65 esultObj, "iv_le
0a20: 6e 67 74 68 22 2c 20 45 56 50 5f 43 49 50 48 45 ngth", EVP_CIPHE
0a30: 52 5f 69 76 5f 6c 65 6e 67 74 68 28 63 69 70 68 R_iv_length(ciph
0a40: 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e er));. LAPPEN
0a50: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
0a60: 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 2c sultObj, "type",
0a70: 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f OBJ_nid2ln(EVP_
0a80: 43 49 50 48 45 52 5f 74 79 70 65 28 63 69 70 68 CIPHER_type(ciph
0a90: 65 72 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c er)), -1);. L
0aa0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
0ab0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 70 p, resultObj, "p
0ac0: 72 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 rovider", "", -1
0ad0: 29 3b 0a 20 20 20 20 66 6c 61 67 73 20 3d 20 45 );. flags = E
0ae0: 56 50 5f 43 49 50 48 45 52 5f 66 6c 61 67 73 28 VP_CIPHER_flags(
0af0: 63 69 70 68 65 72 29 3b 0a 20 20 20 20 6d 6f 64 cipher);. mod
0b00: 65 20 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f e = EVP_CIPHER_
0b10: 6d 6f 64 65 28 63 69 70 68 65 72 29 3b 0a 0a 20 mode(cipher);..
0b20: 20 20 20 2f 2a 20 45 56 50 5f 43 49 50 48 45 52 /* EVP_CIPHER
0b30: 5f 67 65 74 5f 6d 6f 64 65 20 2a 2f 0a 20 20 20 _get_mode */.
0b40: 20 73 77 69 74 63 68 28 6d 6f 64 65 29 20 7b 0a switch(mode) {.
0b50: 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 53 .case EVP_CIPH_S
0b60: 54 52 45 41 4d 5f 43 49 50 48 45 52 3a 0a 09 20 TREAM_CIPHER:..
0b70: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 53 modeName = "S
0b80: 54 52 45 41 4d 22 3b 0a 09 20 20 20 20 62 72 65 TREAM";.. bre
0b90: 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 ak;..case EVP_CI
0ba0: 50 48 5f 45 43 42 5f 4d 4f 44 45 3a 0a 09 20 20 PH_ECB_MODE:..
0bb0: 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 45 43 modeName = "EC
0bc0: 42 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a B";.. break;.
0bd0: 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 43 .case EVP_CIPH_C
0be0: 42 43 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f BC_MODE:.. mo
0bf0: 64 65 4e 61 6d 65 20 3d 20 22 43 42 43 22 3b 0a deName = "CBC";.
0c00: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
0c10: 65 20 45 56 50 5f 43 49 50 48 5f 43 46 42 5f 4d e EVP_CIPH_CFB_M
0c20: 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 ODE:.. modeNa
0c30: 6d 65 20 3d 20 22 43 46 42 22 3b 0a 09 20 20 20 me = "CFB";..
0c40: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 break;..case EV
0c50: 50 5f 43 49 50 48 5f 4f 46 42 5f 4d 4f 44 45 3a P_CIPH_OFB_MODE:
0c60: 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d .. modeName =
0c70: 20 22 4f 46 42 22 3b 0a 09 20 20 20 20 62 72 65 "OFB";.. bre
0c80: 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 ak;..case EVP_CI
0c90: 50 48 5f 43 54 52 5f 4d 4f 44 45 3a 0a 09 20 20 PH_CTR_MODE:..
0ca0: 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 54 modeName = "CT
0cb0: 52 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a R";.. break;.
0cc0: 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 47 .case EVP_CIPH_G
0cd0: 43 4d 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f CM_MODE:.. mo
0ce0: 64 65 4e 61 6d 65 20 3d 20 22 47 43 4d 22 3b 0a deName = "GCM";.
0cf0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
0d00: 65 20 45 56 50 5f 43 49 50 48 5f 58 54 53 5f 4d e EVP_CIPH_XTS_M
0d10: 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 ODE:.. modeNa
0d20: 6d 65 20 3d 20 22 58 54 53 22 3b 0a 09 20 20 20 me = "XTS";..
0d30: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 break;..case EV
0d40: 50 5f 43 49 50 48 5f 43 43 4d 5f 4d 4f 44 45 3a P_CIPH_CCM_MODE:
0d50: 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d .. modeName =
0d60: 20 22 43 43 4d 22 3b 0a 09 20 20 20 20 62 72 65 "CCM";.. bre
0d70: 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 49 ak;..case EVP_CI
0d80: 50 48 5f 4f 43 42 5f 4d 4f 44 45 3a 0a 09 20 20 PH_OCB_MODE:..
0d90: 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 4f 43 modeName = "OC
0da0: 42 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a B";.. break;.
0db0: 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f 57 .case EVP_CIPH_W
0dc0: 52 41 50 5f 4d 4f 44 45 20 3a 0a 09 20 20 20 20 RAP_MODE :..
0dd0: 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 57 52 41 50 modeName = "WRAP
0de0: 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 ";.. break;..
0df0: 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 6d 6f default:.. mo
0e00: 64 65 4e 61 6d 65 20 3d 20 22 75 6e 6b 6e 6f 77 deName = "unknow
0e10: 6e 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a n";.. break;.
0e20: 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e }. LAPPEN
0e30: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
0e40: 73 75 6c 74 4f 62 6a 2c 20 22 6d 6f 64 65 22 2c sultObj, "mode",
0e50: 20 6d 6f 64 65 4e 61 6d 65 2c 20 2d 31 29 3b 0a modeName, -1);.
0e60: 0a 20 20 20 20 2f 2a 20 46 6c 61 67 73 20 2a 2f . /* Flags */
0e70: 0a 20 20 20 20 6c 69 73 74 4f 62 6a 20 3d 20 54 . listObj = T
0e80: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
0e90: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 50 50 NULL);. LAPP
0ea0: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
0eb0: 20 6c 69 73 74 4f 62 6a 2c 20 22 56 61 72 69 61 listObj, "Varia
0ec0: 62 6c 65 20 4c 65 6e 67 74 68 22 2c 20 66 6c 61 ble Length", fla
0ed0: 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 56 41 gs & EVP_CIPH_VA
0ee0: 52 49 41 42 4c 45 5f 4c 45 4e 47 54 48 29 3b 0a RIABLE_LENGTH);.
0ef0: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c LAPPEND_BOOL
0f00: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a (interp, listObj
0f10: 2c 20 22 41 6c 77 61 79 73 20 43 61 6c 6c 20 49 , "Always Call I
0f20: 6e 69 74 22 2c 20 66 6c 61 67 73 20 26 20 45 56 nit", flags & EV
0f30: 50 5f 43 49 50 48 5f 41 4c 57 41 59 53 5f 43 41 P_CIPH_ALWAYS_CA
0f40: 4c 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 4c 41 LL_INIT);. LA
0f50: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 PPEND_BOOL(inter
0f60: 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 73 p, listObj, "Cus
0f70: 74 6f 6d 20 49 56 22 2c 20 66 6c 61 67 73 20 26 tom IV", flags &
0f80: 20 45 56 50 5f 43 49 50 48 5f 43 55 53 54 4f 4d EVP_CIPH_CUSTOM
0f90: 5f 49 56 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e _IV);. LAPPEN
0fa0: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
0fb0: 69 73 74 4f 62 6a 2c 20 22 43 6f 6e 74 72 6f 6c istObj, "Control
0fc0: 20 49 6e 69 74 22 2c 20 66 6c 61 67 73 20 26 20 Init", flags &
0fd0: 45 56 50 5f 43 49 50 48 5f 43 54 52 4c 5f 49 4e EVP_CIPH_CTRL_IN
0fe0: 49 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 IT);. LAPPEND
0ff0: 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 _BOOL(interp, li
1000: 73 74 4f 62 6a 2c 20 22 43 75 73 74 6f 6d 20 43 stObj, "Custom C
1010: 69 70 68 65 72 22 2c 20 66 6c 61 67 73 20 26 20 ipher", flags &
1020: 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 5f 43 55 EVP_CIPH_FLAG_CU
1030: 53 54 4f 4d 5f 43 49 50 48 45 52 29 3b 0a 20 20 STOM_CIPHER);.
1040: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 LAPPEND_BOOL(i
1050: 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 nterp, listObj,
1060: 22 41 45 41 44 20 43 69 70 68 65 72 22 2c 20 66 "AEAD Cipher", f
1070: 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f lags & EVP_CIPH_
1080: 46 4c 41 47 5f 41 45 41 44 5f 43 49 50 48 45 52 FLAG_AEAD_CIPHER
1090: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
10a0: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
10b0: 4f 62 6a 2c 20 22 43 75 73 74 6f 6d 20 43 6f 70 Obj, "Custom Cop
10c0: 79 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f y", flags & EVP_
10d0: 43 49 50 48 5f 43 55 53 54 4f 4d 5f 43 4f 50 59 CIPH_CUSTOM_COPY
10e0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 );. LAPPEND_B
10f0: 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 OOL(interp, list
1100: 4f 62 6a 2c 20 22 4e 6f 6e 20 46 49 50 53 20 41 Obj, "Non FIPS A
1110: 6c 6c 6f 77 22 2c 20 66 6c 61 67 73 20 26 20 45 llow", flags & E
1120: 56 50 5f 43 49 50 48 5f 46 4c 41 47 5f 4e 4f 4e VP_CIPH_FLAG_NON
1130: 5f 46 49 50 53 5f 41 4c 4c 4f 57 29 3b 0a 20 20 _FIPS_ALLOW);.
1140: 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 6e LAPPEND_OBJ(in
1150: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
1160: 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 4f 62 "flags", listOb
1170: 6a 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 54 58 20 j);.. /* CTX
1180: 6f 6e 6c 79 20 70 72 6f 70 65 72 74 69 65 73 20 only properties
1190: 2a 2f 0a 20 20 20 20 7b 0a 09 45 56 50 5f 43 49 */. {..EVP_CI
11a0: 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 3d 20 PHER_CTX *ctx =
11b0: 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f 6e EVP_CIPHER_CTX_n
11c0: 65 77 28 29 3b 0a 09 69 6e 74 20 74 61 67 5f 6c ew();..int tag_l
11d0: 65 6e 20 3d 20 30 3b 0a 0a 09 45 56 50 5f 45 6e en = 0;...EVP_En
11e0: 63 72 79 70 74 49 6e 69 74 5f 65 78 28 63 74 78 cryptInit_ex(ctx
11f0: 2c 20 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 , cipher, NULL,
1200: 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 69 66 NULL, NULL);..if
1210: 20 28 6d 6f 64 65 20 3d 3d 20 45 56 50 5f 43 49 (mode == EVP_CI
1220: 50 48 5f 47 43 4d 5f 4d 4f 44 45 20 7c 7c 20 6d PH_GCM_MODE || m
1230: 6f 64 65 20 3d 3d 20 45 56 50 5f 43 49 50 48 5f ode == EVP_CIPH_
1240: 4f 43 42 5f 4d 4f 44 45 29 20 7b 0a 09 20 20 20 OCB_MODE) {..
1250: 20 74 61 67 5f 6c 65 6e 20 3d 20 45 56 50 5f 47 tag_len = EVP_G
1260: 43 4d 5f 54 4c 53 5f 54 41 47 5f 4c 45 4e 3b 20 CM_TLS_TAG_LEN;
1270: 2f 2a 20 45 56 50 5f 4d 41 58 5f 41 45 41 44 5f /* EVP_MAX_AEAD_
1280: 54 41 47 5f 4c 45 4e 47 54 48 20 2a 2f 0a 09 7d TAG_LENGTH */..}
1290: 20 65 6c 73 65 20 69 66 20 28 6d 6f 64 65 20 3d else if (mode =
12a0: 3d 20 45 56 50 5f 43 49 50 48 5f 43 43 4d 5f 4d = EVP_CIPH_CCM_M
12b0: 4f 44 45 29 20 7b 0a 09 20 20 20 20 74 61 67 5f ODE) {.. tag_
12c0: 6c 65 6e 20 3d 20 45 56 50 5f 43 43 4d 5f 54 4c len = EVP_CCM_TL
12d0: 53 5f 54 41 47 5f 4c 45 4e 3b 0a 09 7d 20 65 6c S_TAG_LEN;..} el
12e0: 73 65 20 69 66 20 28 63 69 70 68 65 72 20 3d 3d se if (cipher ==
12f0: 20 45 56 50 5f 67 65 74 5f 63 69 70 68 65 72 62 EVP_get_cipherb
1300: 79 6e 61 6d 65 28 22 63 68 61 63 68 61 32 30 2d yname("chacha20-
1310: 70 6f 6c 79 31 33 30 35 22 29 29 20 7b 0a 09 20 poly1305")) {..
1320: 20 20 20 74 61 67 5f 6c 65 6e 20 3d 20 45 56 50 tag_len = EVP
1330: 5f 43 48 41 43 48 41 50 4f 4c 59 5f 54 4c 53 5f _CHACHAPOLY_TLS_
1340: 54 41 47 5f 4c 45 4e 3b 20 2f 2a 20 50 4f 4c 59 TAG_LEN; /* POLY
1350: 31 33 30 35 5f 42 4c 4f 43 4b 5f 53 49 5a 45 20 1305_BLOCK_SIZE
1360: 2a 2f 0a 09 7d 0a 09 45 56 50 5f 43 49 50 48 45 */..}..EVP_CIPHE
1370: 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b R_CTX_free(ctx);
1380: 0a 09 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e ..LAPPEND_INT(in
1390: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
13a0: 20 22 74 61 67 5f 6c 65 6e 67 74 68 22 2c 20 74 "tag_length", t
13b0: 61 67 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 ag_len);. }.
13c0: 20 20 20 0a 20 20 20 20 2f 2a 20 41 45 41 44 20 . /* AEAD
13d0: 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 properties */.
13e0: 20 20 7b 0a 09 69 6e 74 20 61 61 64 5f 6c 65 6e {..int aad_len
13f0: 20 3d 20 30 3b 0a 09 69 66 20 28 66 6c 61 67 73 = 0;..if (flags
1400: 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 & EVP_CIPH_FLAG
1410: 5f 41 45 41 44 5f 43 49 50 48 45 52 29 20 7b 0a _AEAD_CIPHER) {.
1420: 09 20 20 20 20 61 61 64 5f 6c 65 6e 20 3d 20 45 . aad_len = E
1430: 56 50 5f 41 45 41 44 5f 54 4c 53 31 5f 41 41 44 VP_AEAD_TLS1_AAD
1440: 5f 4c 45 4e 3b 0a 09 7d 0a 09 4c 41 50 50 45 4e _LEN;..}..LAPPEN
1450: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 D_INT(interp, re
1460: 73 75 6c 74 4f 62 6a 2c 20 22 61 61 64 5f 6c 65 sultObj, "aad_le
1470: 6e 67 74 68 22 2c 20 61 61 64 5f 6c 65 6e 29 3b ngth", aad_len);
1480: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f . }.. Tcl_
1490: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
14a0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
14b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
14c0: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1510: 20 2a 0a 20 2a 20 43 69 70 68 65 72 4c 69 73 74 *. * CipherList
1520: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e --. *. *.Return
1530: 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 63 a list of all c
1540: 69 70 68 65 72 20 61 6c 67 6f 72 69 74 68 6d 73 ipher algorithms
1550: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
1560: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
1570: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
1580: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
1590: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
15a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
15e0: 2f 0a 69 6e 74 20 43 69 70 68 65 72 4c 69 73 74 /.int CipherList
15f0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
1600: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f erp) {. Tcl_O
1610: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 bj *resultObj =
1620: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
1630: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
1640: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
1650: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
1660: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
1670: 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 45 /* Same as E
1680: 56 50 5f 43 49 50 48 45 52 5f 64 6f 5f 61 6c 6c VP_CIPHER_do_all
1690: 20 2a 2f 0a 20 20 20 20 4f 42 4a 5f 4e 41 4d 45 */. OBJ_NAME
16a0: 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 _do_all(OBJ_NAME
16b0: 5f 54 59 50 45 5f 43 49 50 48 45 52 5f 4d 45 54 _TYPE_CIPHER_MET
16c0: 48 2c 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 6b H, NamesCallback
16d0: 2c 20 28 76 6f 69 64 20 2a 29 20 72 65 73 75 6c , (void *) resul
16e0: 74 4f 62 6a 29 3b 0a 20 20 20 20 54 63 6c 5f 53 tObj);. Tcl_S
16f0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
1700: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
1710: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
1720: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d K;.}../*. *-----
1730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1770: 2a 0a 20 2a 20 43 69 70 68 65 72 4f 62 6a 43 6d *. * CipherObjCm
1780: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 d --. *. *.Retur
1790: 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 n a list of prop
17a0: 65 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 65 erties and value
17b0: 73 20 66 6f 72 20 63 69 70 68 65 72 4e 61 6d 65 s for cipherName
17c0: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
17d0: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
17e0: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
17f0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
1800: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
1810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1850: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 43 69 */.static int Ci
1860: 70 68 65 72 4f 62 6a 43 6d 64 28 43 6c 69 65 6e pherObjCmd(Clien
1870: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
1880: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
1890: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
18a0: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
18b0: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f bjv[]) {. (vo
18c0: 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a id) clientData;.
18d0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
18e0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
18f0: 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a Clear errors */.
1900: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
1910: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 ult(interp);.
1920: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 ERR_clear_error
1930: 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 ();.. /* Vali
1940: 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a date arg count *
1950: 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d /. if (objc =
1960: 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 43 = 1) {..return C
1970: 69 70 68 65 72 4c 69 73 74 28 69 6e 74 65 72 70 ipherList(interp
1980: 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
1990: 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a f (objc == 2) {.
19a0: 09 72 65 74 75 72 6e 20 43 69 70 68 65 72 49 6e .return CipherIn
19b0: 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b fo(interp, objv[
19c0: 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 1]);.. } else
19d0: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
19e0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
19f0: 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b objv, "?name?");
1a00: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
1a10: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
1a20: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
1a30: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
1a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a70: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 43 --------. *. * C
1a80: 69 70 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d 0a iphersObjCmd --.
1a90: 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 65 *. *.This proce
1aa0: 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 20 dure is invoked
1ab0: 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 22 to process the "
1ac0: 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 63 6f tls::ciphers" co
1ad0: 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 73 74 mmand. *.to list
1ae0: 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 65 available ciphe
1af0: 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e 20 70 rs, based upon p
1b00: 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 64 rotocol selected
1b10: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
1b20: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
1b30: 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 2e 0a cl result list..
1b40: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1b50: 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 74 ts:. *.construct
1b60: 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 20 53 s and destroys S
1b70: 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 29 SL context (CTX)
1b80: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
1bd0: 61 74 69 63 20 69 6e 74 20 43 69 70 68 65 72 73 atic int Ciphers
1be0: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
1bf0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
1c00: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1c10: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
1c20: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
1c30: 5d 29 20 7b 0a 20 20 20 20 53 53 4c 5f 43 54 58 ]) {. SSL_CTX
1c40: 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *ctx = NULL;.
1c50: 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e 55 4c SSL *ssl = NUL
1c60: 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f 46 28 L;. STACK_OF(
1c70: 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 6b 20 SSL_CIPHER) *sk
1c80: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
1c90: 53 69 7a 65 20 69 6e 64 65 78 3b 0a 20 20 20 20 Size index;.
1ca0: 69 6e 74 20 76 65 72 62 6f 73 65 20 3d 20 30 2c int verbose = 0,
1cb0: 20 75 73 65 5f 73 75 70 70 6f 72 74 65 64 20 3d use_supported =
1cc0: 20 30 2c 20 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 0, res = TCL_OK
1cd0: 3b 0a 20 20 20 20 69 6e 74 20 6d 69 6e 5f 76 65 ;. int min_ve
1ce0: 72 73 69 6f 6e 2c 20 6d 61 78 5f 76 65 72 73 69 rsion, max_versi
1cf0: 6f 6e 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 on;. (void) c
1d00: 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 lientData;..
1d10: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
1d20: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 );.. /* Clear
1d30: 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 errors */. T
1d40: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
1d50: 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f nterp);. ERR_
1d60: 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a clear_error();..
1d70: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
1d80: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 arg count */.
1d90: 20 69 66 20 28 6f 62 6a 63 20 3e 20 34 29 20 7b if (objc > 4) {
1da0: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
1db0: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
1dc0: 6a 76 2c 20 22 3f 70 72 6f 74 6f 63 6f 6c 3f 20 jv, "?protocol?
1dd0: 3f 76 65 72 62 6f 73 65 3f 20 3f 73 75 70 70 6f ?verbose? ?suppo
1de0: 72 74 65 64 3f 22 29 3b 0a 09 72 65 74 75 72 6e rted?");..return
1df0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
1e00: 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 61 }.. /* List a
1e10: 6c 6c 20 63 69 70 68 65 72 73 20 2a 2f 0a 20 20 ll ciphers */.
1e20: 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 if (objc == 1)
1e30: 20 7b 0a 09 72 65 74 75 72 6e 20 43 69 70 68 65 {..return Ciphe
1e40: 72 4c 69 73 74 28 69 6e 74 65 72 70 29 3b 0a 20 rList(interp);.
1e50: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
1e60: 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 options */.
1e70: 69 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 if (Tcl_GetIndex
1e80: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
1e90: 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f objv[1], protoco
1ea0: 6c 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 ls, "protocol",
1eb0: 30 2c 20 26 69 6e 64 65 78 29 20 21 3d 20 54 43 0, &index) != TC
1ec0: 4c 5f 4f 4b 20 7c 7c 0a 09 28 6f 62 6a 63 20 3e L_OK ||..(objc >
1ed0: 20 32 20 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f 2 && Tcl_GetBoo
1ee0: 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 leanFromObj(inte
1ef0: 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 65 rp, objv[2], &ve
1f00: 72 62 6f 73 65 29 20 21 3d 20 54 43 4c 5f 4f 4b rbose) != TCL_OK
1f10: 29 20 7c 7c 0a 09 28 6f 62 6a 63 20 3e 20 33 20 ) ||..(objc > 3
1f20: 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 && Tcl_GetBoolea
1f30: 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c nFromObj(interp,
1f40: 20 6f 62 6a 76 5b 33 5d 2c 20 26 75 73 65 5f 73 objv[3], &use_s
1f50: 75 70 70 6f 72 74 65 64 29 20 21 3d 20 54 43 4c upported) != TCL
1f60: 5f 4f 4b 29 29 20 7b 0a 09 72 65 74 75 72 6e 20 _OK)) {..return
1f70: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
1f80: 0a 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 65 .. switch ((e
1f90: 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 num protocol)ind
1fa0: 65 78 29 20 7b 0a 09 63 61 73 65 20 54 4c 53 5f ex) {..case TLS_
1fb0: 53 53 4c 32 3a 0a 09 20 20 20 20 54 63 6c 5f 41 SSL2:.. Tcl_A
1fc0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1fd0: 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e rp, protocols[in
1fe0: 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f dex], ": protoco
1ff0: 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 l not supported"
2000: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
2010: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
2020: 4c 5f 45 52 52 4f 52 3b 0a 09 63 61 73 65 20 54 L_ERROR;..case T
2030: 4c 53 5f 53 53 4c 33 3a 0a 23 69 66 20 64 65 66 LS_SSL3:.#if def
2040: 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 7c 7c ined(NO_SSL3) ||
2050: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
2060: 5f 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 64 65 66 _NO_SSL3) || def
2070: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
2080: 53 53 4c 33 5f 4d 45 54 48 4f 44 29 0a 09 20 20 SSL3_METHOD)..
2090: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
20a0: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f lt(interp, proto
20b0: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 cols[index], ":
20c0: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
20d0: 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a ported", (char *
20e0: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 ) NULL);.. re
20f0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2100: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 #else.
2110: 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 min_version =
2120: 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 SSL3_VERSION;.
2130: 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 max_ve
2140: 72 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 rsion = SSL3_VER
2150: 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b SION;.. break
2160: 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54 ;.#endif..case T
2170: 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 65 66 LS_TLS1:.#if def
2180: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 7c 7c ined(NO_TLS1) ||
2190: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
21a0: 5f 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 _NO_TLS1) || def
21b0: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
21c0: 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 TLS1_METHOD)..
21d0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
21e0: 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f lt(interp, proto
21f0: 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 cols[index], ":
2200: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
2210: 70 6f 72 74 65 64 22 2c 20 28 63 68 61 72 20 2a ported", (char *
2220: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 ) NULL);.. re
2230: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2240: 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 #else.
2250: 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 min_version =
2260: 54 4c 53 31 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 TLS1_VERSION;.
2270: 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f 76 65 max_ve
2280: 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 52 rsion = TLS1_VER
2290: 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b SION;.. break
22a0: 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54 ;.#endif..case T
22b0: 4c 53 5f 54 4c 53 31 5f 31 3a 0a 23 69 66 20 64 LS_TLS1_1:.#if d
22c0: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 31 efined(NO_TLS1_1
22d0: 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 ) || defined(OPE
22e0: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 NSSL_NO_TLS1_1)
22f0: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
2300: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 SL_NO_TLS1_1_MET
2310: 48 4f 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 HOD).. Tcl_Ap
2320: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
2330: 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 p, protocols[ind
2340: 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c ex], ": protocol
2350: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
2360: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
2370: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
2380: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 _ERROR;.#else.
2390: 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 min_ve
23a0: 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f 56 rsion = TLS1_1_V
23b0: 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 ERSION;.
23c0: 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 max_version
23d0: 3d 20 54 4c 53 31 5f 31 5f 56 45 52 53 49 4f 4e = TLS1_1_VERSION
23e0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 ;.. break;.#e
23f0: 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 ndif..case TLS_T
2400: 4c 53 31 5f 32 3a 0a 23 69 66 20 64 65 66 69 6e LS1_2:.#if defin
2410: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c ed(NO_TLS1_2) ||
2420: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
2430: 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 _NO_TLS1_2) || d
2440: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
2450: 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 O_TLS1_2_METHOD)
2460: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
2470: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
2480: 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c rotocols[index],
2490: 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 ": protocol not
24a0: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 28 63 68 supported", (ch
24b0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
24c0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
24d0: 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 OR;.#else.
24e0: 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f min_versio
24f0: 6e 20 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 49 n = TLS1_2_VERSI
2500: 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ON;.
2510: 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c max_version = TL
2520: 53 31 5f 32 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 S1_2_VERSION;..
2530: 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 break;.#endif
2540: 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f ..case TLS_TLS1_
2550: 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 3:.#if defined(N
2560: 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c 20 64 65 66 O_TLS1_3) || def
2570: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
2580: 54 4c 53 31 5f 33 29 0a 09 20 20 20 20 54 63 6c TLS1_3).. Tcl
2590: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
25a0: 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b terp, protocols[
25b0: 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f index], ": proto
25c0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
25d0: 64 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c d", (char *) NUL
25e0: 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 L);.. return
25f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 TCL_ERROR;.#else
2600: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e . min
2610: 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f _version = TLS1_
2620: 33 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 3_VERSION;.
2630: 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 max_versi
2640: 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 on = TLS1_3_VERS
2650: 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b ION;.. break;
2660: 0a 23 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 .#endif..default
2670: 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 :. mi
2680: 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c 33 n_version = SSL3
2690: 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 _VERSION;.
26a0: 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f max_versio
26b0: 6e 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 n = TLS1_3_VERSI
26c0: 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a ON;.. break;.
26d0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 }.. /* Cr
26e0: 65 61 74 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a eate context */.
26f0: 20 20 20 20 69 66 20 28 28 63 74 78 20 3d 20 53 if ((ctx = S
2700: 53 4c 5f 43 54 58 5f 6e 65 77 28 54 4c 53 5f 73 SL_CTX_new(TLS_s
2710: 65 72 76 65 72 5f 6d 65 74 68 6f 64 28 29 29 29 erver_method()))
2720: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
2730: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
2740: 74 65 72 70 2c 20 47 45 54 5f 45 52 52 5f 52 45 terp, GET_ERR_RE
2750: 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 2a 29 ASON(), (char *)
2760: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
2770: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
2780: 0a 0a 20 20 20 20 2f 2a 20 53 65 74 20 70 72 6f .. /* Set pro
2790: 74 6f 63 6f 6c 20 76 65 72 73 69 6f 6e 73 20 2a tocol versions *
27a0: 2f 0a 20 20 20 20 69 66 20 28 53 53 4c 5f 43 54 /. if (SSL_CT
27b0: 58 5f 73 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f X_set_min_proto_
27c0: 76 65 72 73 69 6f 6e 28 63 74 78 2c 20 6d 69 6e version(ctx, min
27d0: 5f 76 65 72 73 69 6f 6e 29 20 3d 3d 20 30 20 7c _version) == 0 |
27e0: 7c 0a 09 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d |..SSL_CTX_set_m
27f0: 61 78 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e ax_proto_version
2800: 28 63 74 78 2c 20 6d 61 78 5f 76 65 72 73 69 6f (ctx, max_versio
2810: 6e 29 20 3d 3d 20 30 29 20 7b 0a 09 53 53 4c 5f n) == 0) {..SSL_
2820: 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 CTX_free(ctx);..
2830: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
2840: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
2850: 43 72 65 61 74 65 20 53 53 4c 20 63 6f 6e 74 65 Create SSL conte
2860: 78 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 xt */. if ((s
2870: 73 6c 20 3d 20 53 53 4c 5f 6e 65 77 28 63 74 78 sl = SSL_new(ctx
2880: 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 )) == NULL) {..T
2890: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
28a0: 69 6e 74 65 72 70 2c 20 47 45 54 5f 45 52 52 5f interp, GET_ERR_
28b0: 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 72 20 REASON(), (char
28c0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 *) NULL);..SSL_C
28d0: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 TX_free(ctx);..r
28e0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
28f0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 55 . }.. /* U
2900: 73 65 20 6c 69 73 74 20 61 6e 64 20 6f 72 64 65 se list and orde
2910: 72 20 61 73 20 77 6f 75 6c 64 20 62 65 20 73 65 r as would be se
2920: 6e 74 20 69 6e 20 61 20 43 6c 69 65 6e 74 48 65 nt in a ClientHe
2930: 6c 6c 6f 20 6f 72 20 61 6c 6c 20 61 76 61 69 6c llo or all avail
2940: 61 62 6c 65 20 63 69 70 68 65 72 73 20 2a 2f 0a able ciphers */.
2950: 20 20 20 20 69 66 20 28 75 73 65 5f 73 75 70 70 if (use_supp
2960: 6f 72 74 65 64 29 20 7b 0a 09 73 6b 20 3d 20 53 orted) {..sk = S
2970: 53 4c 5f 67 65 74 31 5f 73 75 70 70 6f 72 74 65 SL_get1_supporte
2980: 64 5f 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a d_ciphers(ssl);.
2990: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 6b } else {..sk
29a0: 20 3d 20 53 53 4c 5f 67 65 74 5f 63 69 70 68 65 = SSL_get_ciphe
29b0: 72 73 28 73 73 6c 29 3b 0a 09 2f 2a 73 6b 20 3d rs(ssl);../*sk =
29c0: 20 53 53 4c 5f 43 54 58 5f 67 65 74 5f 63 69 70 SSL_CTX_get_cip
29d0: 68 65 72 73 28 63 74 78 29 3b 2a 2f 0a 20 20 20 hers(ctx);*/.
29e0: 20 7d 0a 0a 20 20 20 20 69 66 20 28 73 6b 20 21 }.. if (sk !
29f0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 4f = NULL) {..Tcl_O
2a00: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 bj *resultObj =
2a10: 4e 55 4c 4c 3b 0a 0a 09 69 66 20 28 21 76 65 72 NULL;...if (!ver
2a20: 62 6f 73 65 29 20 7b 0a 09 20 20 20 20 63 6f 6e bose) {.. con
2a30: 73 74 20 63 68 61 72 20 2a 63 70 3b 0a 09 20 20 st char *cp;..
2a40: 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 resultObj = Tc
2a50: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 l_NewListObj(0,
2a60: 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 69 66 20 28 NULL);.. if (
2a70: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
2a80: 4c 29 20 7b 0a 09 09 72 65 73 20 3d 20 54 43 4c L) {...res = TCL
2a90: 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 _ERROR;...goto d
2aa0: 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 one;.. }...
2ab0: 20 20 66 6f 72 20 28 69 6e 74 20 69 20 3d 20 30 for (int i = 0
2ac0: 3b 20 69 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 ; i < sk_SSL_CIP
2ad0: 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 2b 2b HER_num(sk); i++
2ae0: 29 20 7b 0a 09 09 63 6f 6e 73 74 20 53 53 4c 5f ) {...const SSL_
2af0: 43 49 50 48 45 52 20 2a 63 20 3d 20 73 6b 5f 53 CIPHER *c = sk_S
2b00: 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 SL_CIPHER_value(
2b10: 73 6b 2c 20 69 29 3b 0a 09 09 69 66 20 28 63 20 sk, i);...if (c
2b20: 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e 74 69 6e 75 == NULL) continu
2b30: 65 3b 0a 0a 09 09 2f 2a 20 63 69 70 68 65 72 20 e;..../* cipher
2b40: 6e 61 6d 65 20 6f 72 20 28 4e 4f 4e 45 29 20 2a name or (NONE) *
2b50: 2f 0a 09 09 63 70 20 3d 20 53 53 4c 5f 43 49 50 /...cp = SSL_CIP
2b60: 48 45 52 5f 67 65 74 5f 6e 61 6d 65 28 63 29 3b HER_get_name(c);
2b70: 0a 09 09 69 66 20 28 63 70 20 3d 3d 20 4e 55 4c ...if (cp == NUL
2b80: 4c 29 20 62 72 65 61 6b 3b 0a 09 09 54 63 6c 5f L) break;...Tcl_
2b90: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
2ba0: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 ment(interp, res
2bb0: 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 ultObj, Tcl_NewS
2bc0: 74 72 69 6e 67 4f 62 6a 28 28 63 68 61 72 20 2a tringObj((char *
2bd0: 29 20 63 70 2c 20 2d 31 29 29 3b 0a 09 20 20 20 ) cp, -1));..
2be0: 20 7d 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 }...} else {..
2bf0: 20 20 20 63 68 61 72 20 62 75 66 5b 42 55 46 53 char buf[BUFS
2c00: 49 5a 5d 3b 0a 09 20 20 20 20 72 65 73 75 6c 74 IZ];.. result
2c10: 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 Obj = Tcl_NewStr
2c20: 69 6e 67 4f 62 6a 28 22 22 2c 20 30 29 3b 0a 09 ingObj("", 0);..
2c30: 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 if (resultOb
2c40: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 j == NULL) {...r
2c50: 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a es = TCL_ERROR;.
2c60: 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 ..goto done;..
2c70: 20 20 7d 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 }... for (i
2c80: 6e 74 20 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b nt i = 0; i < sk
2c90: 5f 53 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 _SSL_CIPHER_num(
2ca0: 73 6b 29 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f sk); i++) {...co
2cb0: 6e 73 74 20 53 53 4c 5f 43 49 50 48 45 52 20 2a nst SSL_CIPHER *
2cc0: 63 20 3d 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 c = sk_SSL_CIPHE
2cd0: 52 5f 76 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a R_value(sk, i);.
2ce0: 09 09 69 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 ..if (c == NULL)
2cf0: 20 63 6f 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a continue;..../*
2d00: 20 74 65 78 74 75 61 6c 20 64 65 73 63 72 69 70 textual descrip
2d10: 74 69 6f 6e 20 6f 66 20 74 68 65 20 63 69 70 68 tion of the ciph
2d20: 65 72 20 2a 2f 0a 09 09 69 66 20 28 53 53 4c 5f er */...if (SSL_
2d30: 43 49 50 48 45 52 5f 64 65 73 63 72 69 70 74 69 CIPHER_descripti
2d40: 6f 6e 28 63 2c 20 62 75 66 2c 20 73 69 7a 65 6f on(c, buf, sizeo
2d50: 66 28 62 75 66 29 29 20 21 3d 20 4e 55 4c 4c 29 f(buf)) != NULL)
2d60: 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 41 70 70 {... Tcl_App
2d70: 65 6e 64 54 6f 4f 62 6a 28 72 65 73 75 6c 74 4f endToObj(resultO
2d80: 62 6a 2c 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 bj, buf, (Tcl_Si
2d90: 7a 65 29 20 73 74 72 6c 65 6e 28 62 75 66 29 29 ze) strlen(buf))
2da0: 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09 20 ;...} else {...
2db0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f Tcl_AppendToO
2dc0: 62 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 22 55 bj(resultObj, "U
2dd0: 4e 4b 4e 4f 57 4e 5c 6e 22 2c 20 38 29 3b 0a 09 NKNOWN\n", 8);..
2de0: 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 0a 09 2f .}.. }..}.../
2df0: 2a 20 43 6c 65 61 6e 20 75 70 20 2a 2f 0a 09 69 * Clean up */..i
2e00: 66 20 28 75 73 65 5f 73 75 70 70 6f 72 74 65 64 f (use_supported
2e10: 29 20 7b 0a 09 20 20 20 20 73 6b 5f 53 53 4c 5f ) {.. sk_SSL_
2e20: 43 49 50 48 45 52 5f 66 72 65 65 28 73 6b 29 3b CIPHER_free(sk);
2e30: 0a 09 7d 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 ..}..Tcl_SetObjR
2e40: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 esult(interp, re
2e50: 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 7d 0a sultObj);. }.
2e60: 0a 64 6f 6e 65 3a 0a 20 20 20 20 53 53 4c 5f 66 .done:. SSL_f
2e70: 72 65 65 28 73 73 6c 29 3b 0a 20 20 20 20 53 53 ree(ssl);. SS
2e80: 4c 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b L_CTX_free(ctx);
2e90: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b . return res;
2ea0: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
2eb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2ec0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2ed0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2ee0: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
2ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f30: 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
2f40: 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 Info --. *. *.Re
2f50: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 turn a list of p
2f60: 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 roperties and va
2f70: 6c 75 65 73 20 66 6f 72 20 64 69 67 65 73 74 2e lues for digest.
2f80: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
2f90: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
2fa0: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
2fb0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
2fc0: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
2fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3010: 2f 0a 69 6e 74 20 44 69 67 65 73 74 49 6e 66 6f /.int DigestInfo
3020: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
3030: 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 erp, Tcl_Obj *na
3040: 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 63 6f 6e meObj) {. con
3050: 73 74 20 45 56 50 5f 4d 44 20 2a 6d 64 3b 0a 20 st EVP_MD *md;.
3060: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 Tcl_Obj *resu
3070: 6c 74 4f 62 6a 2c 20 2a 6c 69 73 74 4f 62 6a 3b ltObj, *listObj;
3080: 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 6c 6f . unsigned lo
3090: 6e 67 20 66 6c 61 67 73 3b 0a 20 20 20 20 63 68 ng flags;. ch
30a0: 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 ar *name = Tcl_G
30b0: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
30c0: 6e 61 6d 65 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 nameObj, (Tcl_Si
30d0: 7a 65 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 ze *) NULL);..
30e0: 20 20 2f 2a 20 47 65 74 20 6d 65 73 73 61 67 65 /* Get message
30f0: 20 64 69 67 65 73 74 20 2a 2f 0a 20 20 20 20 6d digest */. m
3100: 64 20 3d 20 45 56 50 5f 67 65 74 5f 64 69 67 65 d = EVP_get_dige
3110: 73 74 62 79 6e 61 6d 65 28 6e 61 6d 65 29 3b 0a stbyname(name);.
3120: 0a 20 20 20 20 69 66 20 28 6d 64 20 3d 3d 20 4e . if (md == N
3130: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
3140: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
3150: 20 22 49 6e 76 61 6c 69 64 20 64 69 67 65 73 74 "Invalid digest
3160: 20 5c 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 \"", name, "\""
3170: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
3180: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
3190: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
31a0: 2f 2a 20 47 65 74 20 70 72 6f 70 65 72 74 69 65 /* Get propertie
31b0: 73 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f s */. resultO
31c0: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 bj = Tcl_NewList
31d0: 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 Obj(0, NULL);.
31e0: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
31f0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 == NULL) {..retu
3200: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3210: 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f }. LAPPEND_
3220: 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 STR(interp, resu
3230: 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 45 ltObj, "name", E
3240: 56 50 5f 4d 44 5f 6e 61 6d 65 28 6d 64 29 2c 20 VP_MD_name(md),
3250: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 -1);. LAPPEND
3260: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
3270: 75 6c 74 4f 62 6a 2c 20 22 64 65 73 63 72 69 70 ultObj, "descrip
3280: 74 69 6f 6e 22 2c 20 22 22 2c 20 2d 31 29 3b 0a tion", "", -1);.
3290: 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 LAPPEND_INT(
32a0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
32b0: 6a 2c 20 22 73 69 7a 65 22 2c 20 45 56 50 5f 4d j, "size", EVP_M
32c0: 44 5f 73 69 7a 65 28 6d 64 29 29 3b 0a 20 20 20 D_size(md));.
32d0: 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 LAPPEND_INT(int
32e0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
32f0: 22 62 6c 6f 63 6b 5f 73 69 7a 65 22 2c 20 45 56 "block_size", EV
3300: 50 5f 4d 44 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 P_MD_block_size(
3310: 6d 64 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e md));. LAPPEN
3320: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
3330: 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 sultObj, "provid
3340: 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 er", "", -1);.
3350: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
3360: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
3370: 20 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 "type", OBJ_nid
3380: 32 6c 6e 28 45 56 50 5f 4d 44 5f 74 79 70 65 28 2ln(EVP_MD_type(
3390: 6d 64 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c md)), -1);. L
33a0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
33b0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 70 p, resultObj, "p
33c0: 6b 65 79 5f 74 79 70 65 22 2c 20 4f 42 4a 5f 6e key_type", OBJ_n
33d0: 69 64 32 6c 6e 28 45 56 50 5f 4d 44 5f 70 6b 65 id2ln(EVP_MD_pke
33e0: 79 5f 74 79 70 65 28 6d 64 29 29 2c 20 2d 31 29 y_type(md)), -1)
33f0: 3b 0a 20 20 20 20 66 6c 61 67 73 20 3d 20 45 56 ;. flags = EV
3400: 50 5f 4d 44 5f 66 6c 61 67 73 28 6d 64 29 3b 0a P_MD_flags(md);.
3410: 0a 20 20 20 20 2f 2a 20 46 6c 61 67 73 20 2a 2f . /* Flags */
3420: 0a 20 20 20 20 6c 69 73 74 4f 62 6a 20 3d 20 54 . listObj = T
3430: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
3440: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 50 50 NULL);. LAPP
3450: 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c END_BOOL(interp,
3460: 20 6c 69 73 74 4f 62 6a 2c 20 22 4f 6e 65 2d 73 listObj, "One-s
3470: 68 6f 74 22 2c 20 66 6c 61 67 73 20 26 20 45 56 hot", flags & EV
3480: 50 5f 4d 44 5f 46 4c 41 47 5f 4f 4e 45 53 48 4f P_MD_FLAG_ONESHO
3490: 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f T);. LAPPEND_
34a0: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
34b0: 74 4f 62 6a 2c 20 22 58 4f 46 22 2c 20 66 6c 61 tObj, "XOF", fla
34c0: 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 gs & EVP_MD_FLAG
34d0: 5f 58 4f 46 29 3b 0a 20 20 20 20 4c 41 50 50 45 _XOF);. LAPPE
34e0: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 ND_BOOL(interp,
34f0: 6c 69 73 74 4f 62 6a 2c 20 22 44 69 67 65 73 74 listObj, "Digest
3500: 41 6c 67 6f 72 69 74 68 6d 49 64 5f 4e 55 4c 4c AlgorithmId_NULL
3510: 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d ", flags & EVP_M
3520: 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f D_FLAG_DIGALGID_
3530: 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 50 50 45 NULL);. LAPPE
3540: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 ND_BOOL(interp,
3550: 6c 69 73 74 4f 62 6a 2c 20 22 44 69 67 65 73 74 listObj, "Digest
3560: 41 6c 67 6f 72 69 74 68 6d 49 64 5f 41 62 73 63 AlgorithmId_Absc
3570: 65 6e 74 22 2c 20 66 6c 61 67 73 20 26 20 45 56 ent", flags & EV
3580: 50 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 P_MD_FLAG_DIGALG
3590: 49 44 5f 41 42 53 45 4e 54 29 3b 0a 20 20 20 20 ID_ABSENT);.
35a0: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
35b0: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 44 erp, listObj, "D
35c0: 69 67 65 73 74 41 6c 67 6f 72 69 74 68 6d 49 64 igestAlgorithmId
35d0: 5f 43 75 73 74 6f 6d 22 2c 20 66 6c 61 67 73 20 _Custom", flags
35e0: 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 44 49 & EVP_MD_FLAG_DI
35f0: 47 41 4c 47 49 44 5f 43 55 53 54 4f 4d 29 3b 0a GALGID_CUSTOM);.
3600: 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c LAPPEND_BOOL
3610: 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a (interp, listObj
3620: 2c 20 22 46 49 50 53 22 2c 20 66 6c 61 67 73 20 , "FIPS", flags
3630: 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 46 49 & EVP_MD_FLAG_FI
3640: 50 53 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 PS);. LAPPEND
3650: 5f 4f 42 4a 28 69 6e 74 65 72 70 2c 20 72 65 73 _OBJ(interp, res
3660: 75 6c 74 4f 62 6a 2c 20 22 66 6c 61 67 73 22 2c ultObj, "flags",
3670: 20 6c 69 73 74 4f 62 6a 29 3b 0a 0a 20 20 20 20 listObj);..
3680: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
3690: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
36a0: 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 bj);. return
36b0: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a TCL_OK;.}../*. *
36c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 44 69 67 65 73 74 ---. *. * Digest
3710: 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 List --. *. *.Re
3720: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 turn a list of a
3730: 6c 6c 20 64 69 67 65 73 74 20 61 6c 67 6f 72 69 ll digest algori
3740: 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c thms. *. * Resul
3750: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
3760: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 d Tcl list.. *.
3770: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3780: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
3790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37b0: 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 -. */.int Digest
37e0: 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 List(Tcl_Interp
37f0: 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 *interp) {. T
3800: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
3810: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f j = Tcl_NewListO
3820: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 bj(0, NULL);.
3830: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d if (resultObj =
3840: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
3850: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
3860: 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 61 6d 65 20 }.. /* Same
3870: 61 73 20 45 56 50 5f 4d 44 5f 64 6f 5f 61 6c 6c as EVP_MD_do_all
3880: 20 2a 2f 0a 20 20 20 20 4f 42 4a 5f 4e 41 4d 45 */. OBJ_NAME
3890: 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 4d 45 _do_all(OBJ_NAME
38a0: 5f 54 59 50 45 5f 4d 44 5f 4d 45 54 48 2c 20 4e _TYPE_MD_METH, N
38b0: 61 6d 65 73 43 61 6c 6c 62 61 63 6b 2c 20 28 76 amesCallback, (v
38c0: 6f 69 64 20 2a 29 20 72 65 73 75 6c 74 4f 62 6a oid *) resultObj
38d0: 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 );. Tcl_SetOb
38e0: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
38f0: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
3900: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d return TCL_OK;.}
3910: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
3920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3930: 2d 2d 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 0a 20 2a 0a 20 2a ----------. *. *
3960: 20 44 69 67 65 73 74 73 4f 62 6a 43 6d 64 20 2d DigestsObjCmd -
3970: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
3980: 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c list of all val
3990: 69 64 20 68 61 73 68 20 61 6c 67 6f 72 69 74 68 id hash algorith
39a0: 6d 73 20 6f 72 20 6d 65 73 73 61 67 65 20 64 69 ms or message di
39b0: 67 65 73 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 gests.. *. * Res
39c0: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
39d0: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
39e0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
39f0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
3a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 69 6e 74 20 44 69 67 65 ---. */.int Dige
3a50: 73 74 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 stsObjCmd(Client
3a60: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
3a70: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
3a80: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
3a90: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
3aa0: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 jv[]) {. (voi
3ab0: 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a d) clientData;..
3ac0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
3ad0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 led");.. /* C
3ae0: 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 lear errors */.
3af0: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 Tcl_ResetResu
3b00: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 lt(interp);.
3b10: 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 ERR_clear_error(
3b20: 29 3b 0a 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 );... /* Vali
3b30: 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a date arg count *
3b40: 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d /. if (objc =
3b50: 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 = 1) {..return D
3b60: 69 67 65 73 74 4c 69 73 74 28 69 6e 74 65 72 70 igestList(interp
3b70: 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
3b80: 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a f (objc == 2) {.
3b90: 09 72 65 74 75 72 6e 20 44 69 67 65 73 74 49 6e .return DigestIn
3ba0: 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b fo(interp, objv[
3bb0: 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 1]);.. } else
3bc0: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
3bd0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
3be0: 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b objv, "?name?");
3bf0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
3c00: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
3c10: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
3c20: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
3c30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
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 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ****/../*. *----
3c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c80: 2d 2d 2d 2d 2d 2d 2d 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 0a ---------------.
3cb0: 20 2a 0a 20 2a 20 4b 64 66 4c 69 73 74 20 2d 2d *. * KdfList --
3cc0: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 . *. *.Return a
3cd0: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 4b 44 46 20 list of all KDF
3ce0: 61 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a 20 2a algorithms. *. *
3cf0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
3d00: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 tandard Tcl list
3d10: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
3d20: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
3d30: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
3d80: 4b 64 66 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 KdfList(Tcl_Inte
3d90: 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 68 61 72 rp *interp, char
3da0: 20 2a 73 65 6c 65 63 74 5f 6e 61 6d 65 29 20 7b *select_name) {
3db0: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
3dc0: 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 sultObj = Tcl_Ne
3dd0: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
3de0: 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c );. if (resul
3df0: 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a tObj == NULL) {.
3e00: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3e10: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 R;. }.. Tc
3e20: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
3e30: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 lement(interp, r
3e40: 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 esultObj, Tcl_Ne
3e50: 77 53 74 72 69 6e 67 4f 62 6a 28 22 68 6b 64 66 wStringObj("hkdf
3e60: 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c ", -1));. Tcl
3e70: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
3e80: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
3e90: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
3ea0: 53 74 72 69 6e 67 4f 62 6a 28 22 70 62 6b 64 66 StringObj("pbkdf
3eb0: 32 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 2", -1));. Tc
3ec0: 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 l_ListObjAppendE
3ed0: 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 lement(interp, r
3ee0: 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 esultObj, Tcl_Ne
3ef0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 73 63 72 79 wStringObj("scry
3f00: 70 74 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 54 pt", -1));. T
3f10: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
3f20: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
3f30: 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 j);. return T
3f40: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d CL_OK;.}../*. *-
3f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 4b 64 66 73 4f 62 6a --. *. * KdfsObj
3fa0: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 Cmd --. *. *.Ret
3fb0: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c urn a list of al
3fc0: 6c 20 76 61 6c 69 64 20 4b 65 79 20 44 65 72 69 l valid Key Deri
3fd0: 76 61 74 69 6f 6e 20 46 75 6e 63 74 69 6f 6e 20 vation Function
3fe0: 28 4b 44 46 29 2e 0a 20 2a 0a 20 2a 20 52 65 73 (KDF).. *. * Res
3ff0: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
4000: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
4010: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4020: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
4030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f 0a 69 6e 74 20 4b 64 66 73 ---. */.int Kdfs
4080: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
4090: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
40a0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
40b0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
40c0: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
40d0: 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 ]) {. (void)
40e0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
40f0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
4100: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 ");.. /* Clea
4110: 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 r errors */.
4120: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
4130: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 interp);. ERR
4140: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
4150: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
4160: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
4170: 20 20 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 if (objc == 1
4180: 29 20 7b 0a 09 72 65 74 75 72 6e 20 4b 64 66 4c ) {..return KdfL
4190: 69 73 74 28 69 6e 74 65 72 70 2c 20 4e 55 4c 4c ist(interp, NULL
41a0: 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
41b0: 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a f (objc == 2) {.
41c0: 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
41d0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
41e0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
41f0: 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 , "?name?");..re
4200: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4210: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
4220: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a TCL_OK;.}../***
4230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4240: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4270: 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d /../*. *--------
4280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
42c0: 2a 20 4d 61 63 49 6e 66 6f 20 2d 2d 0a 20 2a 0a * MacInfo --. *.
42d0: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
42e0: 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 of properties a
42f0: 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 6d 61 nd values for ma
4300: 63 4e 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 cName.. *. * Res
4310: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
4320: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
4330: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4340: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
4350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4390: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 49 ---. */.int MacI
43a0: 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nfo(Tcl_Interp *
43b0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 interp, Tcl_Obj
43c0: 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 *nameObj) {.
43d0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
43e0: 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 bj;. int res
43f0: 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 68 = TCL_OK;. ch
4400: 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 ar *name = Tcl_G
4410: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
4420: 6e 61 6d 65 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 nameObj, (Tcl_Si
4430: 7a 65 20 2a 29 20 4e 55 4c 4c 29 3b 0a 0a 20 20 ze *) NULL);..
4440: 20 20 69 66 20 28 73 74 72 63 6d 70 28 6e 61 6d if (strcmp(nam
4450: 65 2c 20 22 63 6d 61 63 22 29 20 21 3d 20 30 20 e, "cmac") != 0
4460: 26 26 20 73 74 72 63 6d 70 28 6e 61 6d 65 2c 20 && strcmp(name,
4470: 22 68 6d 61 63 22 29 20 21 3d 20 30 29 20 7b 0a "hmac") != 0) {.
4480: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
4490: 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c t(interp, "Inval
44a0: 69 64 20 4d 41 43 20 5c 22 22 2c 20 6e 61 6d 65 id MAC \"", name
44b0: 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 , "\"", (char *)
44c0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
44d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
44e0: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72 6f .. /* Get pro
44f0: 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 72 perties */. r
4500: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
4510: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
4520: 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 L);. if (resu
4530: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
4540: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
4550: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 OR;. }. LA
4560: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
4570: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 , resultObj, "na
4580: 6d 65 22 2c 20 6e 61 6d 65 2c 20 2d 31 29 3b 0a me", name, -1);.
4590: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
45a0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
45b0: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
45c0: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c , "", -1);. L
45d0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
45e0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 70 p, resultObj, "p
45f0: 72 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 rovider", "", -1
4600: 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f );.. Tcl_SetO
4610: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
4620: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 resultObj);.
4630: 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a return res;.}..
4640: 2f 2a 0a 20 2a 2d 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 0a 20 2a 0a 20 2a 20 4d --------. *. * M
4690: 61 63 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 acList --. *. *.
46a0: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 Return a list of
46b0: 20 61 6c 6c 20 4d 41 43 20 61 6c 67 6f 72 69 74 all MAC algorit
46c0: 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 hms. *. * Result
46d0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
46e0: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a Tcl list.. *. *
46f0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
4700: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 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: 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 4c 69 73 74 . */.int MacList
4760: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
4770: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f erp) {. Tcl_O
4780: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 bj *resultObj =
4790: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
47a0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
47b0: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
47c0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
47d0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
47e0: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
47f0: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
4800: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
4810: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
4820: 28 22 63 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 ("cmac", -1));.
4830: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
4840: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
4850: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
4860: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
4870: 22 68 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 20 "hmac", -1));.
4880: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
4890: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
48a0: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 tObj);. retur
48b0: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
48c0: 20 2a 2d 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 0a 20 2a 0a 20 2a 20 4d 61 63 73 -----. *. * Macs
4910: 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 ObjCmd --. *. *.
4920: 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 Return a list of
4930: 20 61 6c 6c 20 76 61 6c 69 64 20 6d 65 73 73 61 all valid messa
4940: 67 65 20 61 75 74 68 65 6e 74 69 63 61 74 69 6f ge authenticatio
4950: 6e 20 63 6f 64 65 73 20 28 4d 41 43 29 2e 0a 20 n codes (MAC)..
4960: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
4970: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
4980: 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 list.. *. * Side
4990: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
49a0: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
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 0a 20 2a 2f 0a -----------. */.
49f0: 69 6e 74 20 4d 61 63 73 4f 62 6a 43 6d 64 28 43 int MacsObjCmd(C
4a00: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
4a10: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
4a20: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
4a30: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
4a40: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
4a50: 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 (void) clientDa
4a60: 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 ta;.. dprintf
4a70: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
4a80: 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 /* Clear errors
4a90: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 */. Tcl_Rese
4aa0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
4ab0: 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 . ERR_clear_e
4ac0: 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 rror();.. /*
4ad0: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
4ae0: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
4af0: 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 jc == 1) {..retu
4b00: 72 6e 20 4d 61 63 4c 69 73 74 28 69 6e 74 65 72 rn MacList(inter
4b10: 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 p);.. } else
4b20: 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b if (objc == 2) {
4b30: 0a 09 72 65 74 75 72 6e 20 4d 61 63 49 6e 66 6f ..return MacInfo
4b40: 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d (interp, objv[1]
4b50: 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b );.. } else {
4b60: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
4b70: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
4b80: 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 jv, "?name?");..
4b90: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4ba0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
4bb0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn 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 2f 0a 0a 2f 2a 0a 20 2a 2d 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 0a 20 2a -------------. *
4c50: 0a 20 2a 20 50 6b 65 79 49 6e 66 6f 20 2d 2d 0a . * PkeyInfo --.
4c60: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c *. *.Return a l
4c70: 69 73 74 20 6f 66 20 70 72 6f 70 65 72 74 69 65 ist of propertie
4c80: 73 20 61 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 s and values for
4c90: 20 70 6b 65 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 pkey.. *. * Res
4ca0: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
4cb0: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
4cc0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4cd0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
4ce0: 2d 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 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 ---. */.int Pkey
4d30: 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 Info(Tcl_Interp
4d40: 2a 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a *interp, Tcl_Obj
4d50: 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 *nameObj) {.
4d60: 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 Tcl_Obj *result
4d70: 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 Obj;. int res
4d80: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 = TCL_OK;. c
4d90: 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f har *name = Tcl_
4da0: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
4db0: 28 6e 61 6d 65 4f 62 6a 2c 20 28 54 63 6c 5f 53 (nameObj, (Tcl_S
4dc0: 69 7a 65 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 ize *) NULL);.
4dd0: 20 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 EVP_PKEY *pkey
4de0: 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 = NULL;.. if
4df0: 20 28 70 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 20 (pkey == NULL)
4e00: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
4e10: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 ult(interp, "Inv
4e20: 61 6c 69 64 20 70 75 62 6c 69 63 20 6b 65 79 20 alid public key
4e30: 6d 65 74 68 6f 64 20 5c 22 22 2c 20 6e 61 6d 65 method \"", name
4e40: 2c 20 22 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 , "\"", (char *)
4e50: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
4e60: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
4e70: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72 6f .. /* Get pro
4e80: 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 72 perties */. r
4e90: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
4ea0: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
4eb0: 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 L);. if (resu
4ec0: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
4ed0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
4ee0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 OR;. }. LA
4ef0: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
4f00: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 , resultObj, "na
4f10: 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 me", OBJ_nid2ln(
4f20: 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b 65 79 EVP_PKEY_id(pkey
4f30: 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 )), -1);. LAP
4f40: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
4f50: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 73 resultObj, "des
4f60: 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20 2d cription", "", -
4f70: 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 1);. LAPPEND_
4f80: 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 INT(interp, resu
4f90: 6c 74 4f 62 6a 2c 20 22 73 69 7a 65 22 2c 20 45 ltObj, "size", E
4fa0: 56 50 5f 50 4b 45 59 5f 73 69 7a 65 28 70 6b 65 VP_PKEY_size(pke
4fb0: 79 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 y));. LAPPEND
4fc0: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 _INT(interp, res
4fd0: 75 6c 74 4f 62 6a 2c 20 22 62 69 74 73 22 2c 20 ultObj, "bits",
4fe0: 45 56 50 5f 50 4b 45 59 5f 62 69 74 73 28 70 6b EVP_PKEY_bits(pk
4ff0: 65 79 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e ey));. LAPPEN
5000: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 D_INT(interp, re
5010: 73 75 6c 74 4f 62 6a 2c 20 22 73 65 63 75 72 69 sultObj, "securi
5020: 74 79 5f 62 69 74 73 22 2c 20 45 56 50 5f 50 4b ty_bits", EVP_PK
5030: 45 59 5f 73 65 63 75 72 69 74 79 5f 62 69 74 73 EY_security_bits
5040: 28 70 6b 65 79 29 29 3b 0a 20 20 20 20 4c 41 50 (pkey));. LAP
5050: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
5060: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 61 73 resultObj, "bas
5070: 65 49 64 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e eId", OBJ_nid2ln
5080: 28 45 56 50 5f 50 4b 45 59 5f 62 61 73 65 5f 69 (EVP_PKEY_base_i
5090: 64 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a 20 d(pkey)), -1);.
50a0: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
50b0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
50c0: 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 22 22 , "provider", ""
50d0: 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 , -1);. LAPPE
50e0: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
50f0: 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 esultObj, "type"
5100: 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 , OBJ_nid2ln(EVP
5110: 5f 50 4b 45 59 5f 74 79 70 65 28 45 56 50 5f 50 _PKEY_type(EVP_P
5120: 4b 45 59 5f 69 64 28 70 6b 65 79 29 29 29 2c 20 KEY_id(pkey))),
5130: 2d 31 29 3b 0a 0a 20 20 20 20 7b 0a 09 69 6e 74 -1);.. {..int
5140: 20 70 6e 69 64 3b 0a 09 69 66 20 28 45 56 50 5f pnid;..if (EVP_
5150: 50 4b 45 59 5f 67 65 74 5f 64 65 66 61 75 6c 74 PKEY_get_default
5160: 5f 64 69 67 65 73 74 5f 6e 69 64 28 70 6b 65 79 _digest_nid(pkey
5170: 2c 20 26 70 6e 69 64 29 20 3e 20 30 29 20 7b 0a , &pnid) > 0) {.
5180: 09 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
5190: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
51a0: 62 6a 2c 20 22 64 65 66 61 75 6c 74 5f 64 69 67 bj, "default_dig
51b0: 65 73 74 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e est", OBJ_nid2ln
51c0: 28 70 6e 69 64 29 2c 20 2d 32 29 3b 0a 09 7d 0a (pnid), -2);..}.
51d0: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 53 }.. Tcl_S
51e0: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
51f0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
5200: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a return res;.
5210: 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
5260: 2a 20 50 6b 65 79 4c 69 73 74 20 2d 2d 0a 20 2a * PkeyList --. *
5270: 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 . *.Return a lis
5280: 74 20 6f 66 20 61 6c 6c 20 70 75 62 6c 69 63 20 t of all public
5290: 6b 65 79 20 6d 65 74 68 6f 64 73 0a 20 2a 0a 20 key methods. *.
52a0: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
52b0: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 standard Tcl lis
52c0: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
52d0: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
52e0: 20 2a 0a 20 2a 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 2d ----------------
5310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5320: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
5330: 20 50 6b 65 79 4c 69 73 74 28 54 63 6c 5f 49 6e PkeyList(Tcl_In
5340: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a terp *interp) {.
5350: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 Tcl_Obj *res
5360: 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 ultObj = Tcl_New
5370: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
5380: 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 ;. if (result
5390: 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj == NULL) {..
53a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
53b0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 6f 72 ;. }.. for
53c0: 20 28 73 69 7a 65 5f 74 20 69 20 3d 20 30 3b 20 (size_t i = 0;
53d0: 69 20 3c 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 i < EVP_PKEY_met
53e0: 68 5f 67 65 74 5f 63 6f 75 6e 74 28 29 3b 20 69 h_get_count(); i
53f0: 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 63 6f ++) {. co
5400: 6e 73 74 20 45 56 50 5f 50 4b 45 59 5f 4d 45 54 nst EVP_PKEY_MET
5410: 48 4f 44 20 2a 70 6d 65 74 68 20 3d 20 45 56 50 HOD *pmeth = EVP
5420: 5f 50 4b 45 59 5f 6d 65 74 68 5f 67 65 74 30 28 _PKEY_meth_get0(
5430: 69 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 i);. int
5440: 70 6b 65 79 5f 69 64 2c 20 70 6b 65 79 5f 66 6c pkey_id, pkey_fl
5450: 61 67 73 3b 0a 0a 20 20 20 20 20 20 20 20 45 56 ags;.. EV
5460: 50 5f 50 4b 45 59 5f 6d 65 74 68 5f 67 65 74 30 P_PKEY_meth_get0
5470: 5f 69 6e 66 6f 28 26 70 6b 65 79 5f 69 64 2c 20 _info(&pkey_id,
5480: 26 70 6b 65 79 5f 66 6c 61 67 73 2c 20 70 6d 65 &pkey_flags, pme
5490: 74 68 29 3b 0a 09 2f 2a 4c 41 50 50 45 4e 44 5f th);../*LAPPEND_
54a0: 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 STR(interp, resu
54b0: 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 4f ltObj, "name", O
54c0: 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 5f 69 BJ_nid2ln(pkey_i
54d0: 64 29 2c 20 2d 31 29 3b 0a 09 4c 41 50 50 45 4e d), -1);..LAPPEN
54e0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
54f0: 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 2c sultObj, "type",
5500: 20 70 6b 65 79 5f 66 6c 61 67 73 20 26 20 41 53 pkey_flags & AS
5510: 4e 31 5f 50 4b 45 59 5f 44 59 4e 41 4d 49 43 20 N1_PKEY_DYNAMIC
5520: 3f 20 22 45 78 74 65 72 6e 61 6c 22 20 3a 20 22 ? "External" : "
5530: 42 75 69 6c 74 2d 69 6e 22 2c 20 2d 31 29 3b 2a Built-in", -1);*
5540: 2f 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 /...Tcl_ListObjA
5550: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
5560: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
5570: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
5580: 28 4f 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 (OBJ_nid2ln(pkey
5590: 5f 69 64 29 2c 20 2d 31 29 29 3b 0a 20 20 20 20 _id), -1));.
55a0: 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a }. Tcl_SetObj
55b0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 Result(interp, r
55c0: 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 esultObj);. r
55d0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
55e0: 0a 2f 2a 0a 20 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
5630: 50 6b 65 79 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 PkeysObjCmd --.
5640: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 *. *.Return a li
5650: 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 st of all valid
5660: 68 61 73 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 hash algorithms
5670: 6f 72 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 or message diges
5680: 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ts.. *. * Result
5690: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
56a0: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a Tcl list.. *. *
56b0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
56c0: 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d *.None.. *. *---
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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5710: 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 73 4f 62 . */.int PkeysOb
5720: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
5730: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
5740: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
5750: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
5760: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
5770: 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c {. (void) cl
5780: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 ientData;.. d
5790: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
57a0: 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 ;.. /* Clear
57b0: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 errors */. Tc
57c0: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
57d0: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 terp);. ERR_c
57e0: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 lear_error();..
57f0: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
5800: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
5810: 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b if (objc == 1) {
5820: 0a 09 72 65 74 75 72 6e 20 50 6b 65 79 4c 69 73 ..return PkeyLis
5830: 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 t(interp);..
5840: 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 } else if (objc
5850: 3d 3d 20 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 2) {..return
5860: 50 6b 65 79 49 6e 66 6f 28 69 6e 74 65 72 70 2c PkeyInfo(interp,
5870: 20 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 objv[1]);..
5880: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 } else {..Tcl_Wr
5890: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
58a0: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 p, 1, objv, "?na
58b0: 6d 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 me?");..return T
58c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
58d0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
58e0: 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a K;.}../*********
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5920: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
5930: 20 2a 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 2d 2d 2d 2d ----------------
5960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5970: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 72 6f 74 -----. *. * Prot
5980: 6f 63 6f 6c 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 ocolsObjCmd --.
5990: 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 *. *.Return a li
59a0: 73 74 20 6f 66 20 74 68 65 20 61 76 61 69 6c 61 st of the availa
59b0: 62 6c 65 20 6f 72 20 73 75 70 70 6f 72 74 65 64 ble or supported
59c0: 20 53 53 4c 2f 54 4c 53 20 70 72 6f 74 6f 63 6f SSL/TLS protoco
59d0: 6c 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 ls.. *. * Result
59e0: 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 s:. *.A standard
59f0: 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a Tcl list.. *. *
5a00: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
5a10: 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d *.none. *. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5a60: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 50 */.static int.P
5a70: 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 28 43 rotocolsObjCmd(C
5a80: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
5a90: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
5aa0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
5ab0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
5ac0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
5ad0: 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 Tcl_Obj *result
5ae0: 4f 62 6a 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 Obj;. (void)
5af0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
5b00: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
5b10: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 ");.. /* Clea
5b20: 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 r errors */.
5b30: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
5b40: 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 interp);. ERR
5b50: 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a _clear_error();.
5b60: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
5b70: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
5b80: 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 29 if (objc != 1)
5b90: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
5ba0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
5bb0: 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 objv, NULL);..re
5bc0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5bd0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 }.. /* Li
5be0: 73 74 20 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c 73 st all protocols
5bf0: 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 */. resultOb
5c00: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f j = Tcl_NewListO
5c10: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 bj(0, NULL);.
5c20: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d if (resultObj =
5c30: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
5c40: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5c50: 20 7d 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 }.#if OPENSSL_V
5c60: 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 ERSION_NUMBER <
5c70: 30 78 31 30 31 30 30 30 30 30 4c 20 26 26 20 21 0x10100000L && !
5c80: 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 defined(NO_SSL2)
5c90: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 && !defined(OPE
5ca0: 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 20 NSSL_NO_SSL2).
5cb0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
5cc0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
5cd0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 p, resultObj, Tc
5ce0: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 l_NewStringObj(p
5cf0: 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53 4c rotocols[TLS_SSL
5d00: 32 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 2], -1));.#endif
5d10: 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f .#if !defined(NO
5d20: 5f 53 53 4c 33 29 20 26 26 20 21 64 65 66 69 6e _SSL3) && !defin
5d30: 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 ed(OPENSSL_NO_SS
5d40: 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 L3) && !defined(
5d50: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f OPENSSL_NO_SSL3_
5d60: 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c 5f METHOD). Tcl_
5d70: 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 ListObjAppendEle
5d80: 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 ment(interp, res
5d90: 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 ultObj, Tcl_NewS
5da0: 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f tringObj(protoco
5db0: 6c 73 5b 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d 31 ls[TLS_SSL3], -1
5dc0: 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 ));.#endif.#if !
5dd0: 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 defined(NO_TLS1)
5de0: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 && !defined(OPE
5df0: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 26 NSSL_NO_TLS1) &&
5e00: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
5e10: 4c 5f 4e 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 L_NO_TLS1_METHOD
5e20: 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ). Tcl_ListOb
5e30: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
5e40: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
5e50: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
5e60: 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 bj(protocols[TLS
5e70: 5f 54 4c 53 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 _TLS1], -1));.#e
5e80: 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 ndif.#if !define
5e90: 64 28 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 d(NO_TLS1_1) &&
5ea0: 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c !defined(OPENSSL
5eb0: 5f 4e 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 _NO_TLS1_1) && !
5ec0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
5ed0: 4e 4f 5f 54 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 NO_TLS1_1_METHOD
5ee0: 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 ). Tcl_ListOb
5ef0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
5f00: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
5f10: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
5f20: 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 bj(protocols[TLS
5f30: 5f 54 4c 53 31 5f 31 5d 2c 20 2d 31 29 29 3b 0a _TLS1_1], -1));.
5f40: 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 #endif.#if !defi
5f50: 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 ned(NO_TLS1_2) &
5f60: 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 & !defined(OPENS
5f70: 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 SL_NO_TLS1_2) &&
5f80: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
5f90: 4c 5f 4e 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 L_NO_TLS1_2_METH
5fa0: 4f 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 OD). Tcl_List
5fb0: 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 ObjAppendElement
5fc0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
5fd0: 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e bj, Tcl_NewStrin
5fe0: 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 gObj(protocols[T
5ff0: 4c 53 5f 54 4c 53 31 5f 32 5d 2c 20 2d 31 29 29 LS_TLS1_2], -1))
6000: 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 ;.#endif.#if !de
6010: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 fined(NO_TLS1_3)
6020: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 && !defined(OPE
6030: 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a NSSL_NO_TLS1_3).
6040: 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 Tcl_ListObjA
6050: 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 ppendElement(int
6060: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
6070: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a Tcl_NewStringObj
6080: 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 (protocols[TLS_T
6090: 4c 53 31 5f 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 LS1_3], -1));.#e
60a0: 6e 64 69 66 0a 20 20 20 20 54 63 6c 5f 53 65 74 ndif. Tcl_Set
60b0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
60c0: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 , resultObj);.
60d0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
60e0: 0a 7d 0a 0a 2f 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 2a ****************
6110: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6120: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
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 2d 2d 2d 2d 2d 2d ----------------
6160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6170: 2d 2d 2d 0a 20 2a 0a 20 2a 20 56 65 72 73 69 6f ---. *. * Versio
6180: 6e 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a nObjCmd --. *. *
6190: 09 52 65 74 75 72 6e 20 61 20 73 74 72 69 6e 67 .Return a string
61a0: 20 77 69 74 68 20 74 68 65 20 4f 70 65 6e 53 53 with the OpenSS
61b0: 4c 20 76 65 72 73 69 6f 6e 20 69 6e 66 6f 2e 0a L version info..
61c0: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
61d0: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
61e0: 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 53 result.. *. * S
61f0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
6200: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
6210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6250: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 0a 56 65 */.static int.Ve
6260: 72 73 69 6f 6e 4f 62 6a 43 6d 64 28 43 6c 69 65 rsionObjCmd(Clie
6270: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
6280: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
6290: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
62a0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
62b0: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 objv[]) {. Tc
62c0: 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a l_Obj *resultObj
62d0: 3b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 ;. (void) cli
62e0: 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 entData;.. dp
62f0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
6300: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
6310: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
6320: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 if (objc != 1
6330: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
6340: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
6350: 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 objv, NULL);..r
6360: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6370: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 65 73 75 . }.. resu
6380: 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 53 ltObj = Tcl_NewS
6390: 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 4c tringObj(OPENSSL
63a0: 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c 20 2d _VERSION_TEXT, -
63b0: 31 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 1);. Tcl_SetO
63c0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
63d0: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 resultObj);.
63e0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
63f0: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
6400: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6410: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6420: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6430: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
6440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6480: 2d 2d 0a 20 2a 0a 20 2a 20 54 6c 73 5f 49 6e 66 --. *. * Tls_Inf
6490: 6f 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a oCommands --. *.
64a0: 20 2a 09 43 72 65 61 74 65 20 69 6e 66 6f 20 63 *.Create info c
64b0: 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 20 52 65 ommands. *. * Re
64c0: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
64d0: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
64e0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
64f0: 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 6f 6d :. *.Creates com
6500: 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d mands. *. *-----
6510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6550: 2a 2f 0a 69 6e 74 20 54 6c 73 5f 49 6e 66 6f 43 */.int Tls_InfoC
6560: 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 ommands(Tcl_Inte
6570: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 0a 23 rp *interp) {..#
6580: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
6590: 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 30 ON_NUMBER < 0x10
65a0: 31 30 30 30 30 30 4c 0a 20 20 20 20 4f 70 65 6e 100000L. Open
65b0: 53 53 4c 5f 61 64 64 5f 61 6c 6c 5f 63 69 70 68 SSL_add_all_ciph
65c0: 65 72 73 28 29 3b 0a 20 20 20 20 4f 70 65 6e 53 ers();. OpenS
65d0: 53 4c 5f 61 64 64 5f 61 6c 6c 5f 64 69 67 65 73 SL_add_all_diges
65e0: 74 73 28 29 3b 0a 20 20 20 20 4f 70 65 6e 53 53 ts();. OpenSS
65f0: 4c 5f 61 64 64 5f 61 6c 6c 5f 61 6c 67 6f 72 69 L_add_all_algori
6600: 74 68 6d 73 28 29 3b 0a 23 65 6e 64 69 66 0a 0a thms();.#endif..
6610: 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 Tcl_CreateOb
6620: 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c jCommand(interp,
6630: 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 22 2c 20 "tls::cipher",
6640: 43 69 70 68 65 72 4f 62 6a 43 6d 64 2c 20 28 43 CipherObjCmd, (C
6650: 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c lientData) NULL,
6660: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
6670: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
6680: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
6690: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
66a0: 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 2c 20 43 tls::ciphers", C
66b0: 69 70 68 65 72 73 4f 62 6a 43 6d 64 2c 20 28 43 iphersObjCmd, (C
66c0: 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c lientData) NULL,
66d0: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
66e0: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
66f0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
6700: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
6710: 74 6c 73 3a 3a 64 69 67 65 73 74 73 22 2c 20 44 tls::digests", D
6720: 69 67 65 73 74 73 4f 62 6a 43 6d 64 2c 20 28 43 igestsObjCmd, (C
6730: 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c lientData) NULL,
6740: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
6750: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
6760: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
6770: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
6780: 74 6c 73 3a 3a 6b 64 66 73 22 2c 20 4b 64 66 73 tls::kdfs", Kdfs
6790: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
67a0: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
67b0: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
67c0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
67d0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
67e0: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d (interp, "tls::m
67f0: 61 63 73 22 2c 20 4d 61 63 73 4f 62 6a 43 6d 64 acs", MacsObjCmd
6800: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e , (ClientData) N
6810: 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ULL, (Tcl_CmdDel
6820: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
6830: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
6840: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
6850: 70 2c 20 22 74 6c 73 3a 3a 70 6b 65 79 73 22 2c p, "tls::pkeys",
6860: 20 50 6b 65 79 73 4f 62 6a 43 6d 64 2c 20 28 43 PkeysObjCmd, (C
6870: 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c lientData) NULL,
6880: 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 (Tcl_CmdDeleteP
6890: 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 roc *) NULL);.
68a0: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
68b0: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
68c0: 74 6c 73 3a 3a 70 72 6f 74 6f 63 6f 6c 73 22 2c tls::protocols",
68d0: 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 ProtocolsObjCmd
68e0: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e , (ClientData) N
68f0: 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ULL, (Tcl_CmdDel
6900: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
6910: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
6920: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
6930: 70 2c 20 22 74 6c 73 3a 3a 76 65 72 73 69 6f 6e p, "tls::version
6940: 22 2c 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 ", VersionObjCmd
6950: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e , (ClientData) N
6960: 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ULL, (Tcl_CmdDel
6970: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
6980: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
6990: 5f 4f 4b 3b 0a 7d 0a 0a _OK;.}..