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 2d 31 29 29 3b 0a 20 20 20 20 7d name,-1));. }
04e0: 0a 7d 0a 0a 2f 2a 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 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
0530: 2d 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 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 ---. *. * Cipher
0580: 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 Info --. *. *.Re
0590: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 turn a list of p
05a0: 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 roperties and va
05b0: 6c 75 65 73 20 66 6f 72 20 63 69 70 68 65 72 2e lues for cipher.
05c0: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
05d0: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
05e0: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
05f0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
0600: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
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 0a 20 2a -------------. *
0650: 2f 0a 69 6e 74 20 43 69 70 68 65 72 49 6e 66 6f /.int CipherInfo
0660: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
0670: 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 erp, Tcl_Obj *na
0680: 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 63 6f 6e meObj) {. con
0690: 73 74 20 45 56 50 5f 43 49 50 48 45 52 20 2a 63 st EVP_CIPHER *c
06a0: 69 70 68 65 72 3b 0a 20 20 20 20 54 63 6c 5f 4f ipher;. Tcl_O
06b0: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 2c 20 2a bj *resultObj, *
06c0: 6c 69 73 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73 listObj;. uns
06d0: 69 67 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73 igned long flags
06e0: 2c 20 6d 6f 64 65 3b 0a 20 20 20 20 75 6e 73 69 , mode;. unsi
06f0: 67 6e 65 64 20 63 68 61 72 20 2a 6d 6f 64 65 4e gned char *modeN
0700: 61 6d 65 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ame = NULL;.
0710: 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c char *name = Tcl
0720: 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 _GetStringFromOb
0730: 6a 28 6e 61 6d 65 4f 62 6a 2c 4e 55 4c 4c 29 3b j(nameObj,NULL);
0740: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 69 70 .. /* Get cip
0750: 68 65 72 20 2a 2f 0a 20 20 20 20 63 69 70 68 65 her */. ciphe
0760: 72 20 3d 20 45 56 50 5f 67 65 74 5f 63 69 70 68 r = EVP_get_ciph
0770: 65 72 62 79 6e 61 6d 65 28 6e 61 6d 65 29 3b 0a erbyname(name);.
0780: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 20 . if (cipher
0790: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
07a0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
07b0: 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 63 69 erp, "Invalid ci
07c0: 70 68 65 72 20 5c 22 22 2c 20 6e 61 6d 65 2c 20 pher \"", name,
07d0: 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 "\"", NULL);..re
07e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
07f0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
0800: 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a t properties */.
0810: 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 resultObj =
0820: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
0830: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
0840: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
0850: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
0860: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
0870: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
0880: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
0890: 2c 20 22 6e 69 64 22 2c 20 4f 42 4a 5f 6e 69 64 , "nid", OBJ_nid
08a0: 32 6c 6e 28 45 56 50 5f 43 49 50 48 45 52 5f 6e 2ln(EVP_CIPHER_n
08b0: 69 64 28 63 69 70 68 65 72 29 29 2c 20 2d 31 29 id(cipher)), -1)
08c0: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 ;. LAPPEND_ST
08d0: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
08e0: 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 45 56 50 Obj, "name", EVP
08f0: 5f 43 49 50 48 45 52 5f 6e 61 6d 65 28 63 69 70 _CIPHER_name(cip
0900: 68 65 72 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c her), -1);. L
0910: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
0920: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 p, resultObj, "d
0930: 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c escription", "",
0940: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
0950: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 D_INT(interp, re
0960: 73 75 6c 74 4f 62 6a 2c 20 22 62 6c 6f 63 6b 5f sultObj, "block_
0970: 73 69 7a 65 22 2c 20 45 56 50 5f 43 49 50 48 45 size", EVP_CIPHE
0980: 52 5f 62 6c 6f 63 6b 5f 73 69 7a 65 28 63 69 70 R_block_size(cip
0990: 68 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 her));. LAPPE
09a0: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 ND_INT(interp, r
09b0: 65 73 75 6c 74 4f 62 6a 2c 20 22 6b 65 79 5f 6c esultObj, "key_l
09c0: 65 6e 67 74 68 22 2c 20 45 56 50 5f 43 49 50 48 ength", EVP_CIPH
09d0: 45 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 ER_key_length(ci
09e0: 70 68 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 pher));. LAPP
09f0: 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 END_INT(interp,
0a00: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 69 76 5f 6c resultObj, "iv_l
0a10: 65 6e 67 74 68 22 2c 20 45 56 50 5f 43 49 50 48 ength", EVP_CIPH
0a20: 45 52 5f 69 76 5f 6c 65 6e 67 74 68 28 63 69 70 ER_iv_length(cip
0a30: 68 65 72 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 her));. LAPPE
0a40: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
0a50: 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 22 esultObj, "type"
0a60: 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 , OBJ_nid2ln(EVP
0a70: 5f 43 49 50 48 45 52 5f 74 79 70 65 28 63 69 70 _CIPHER_type(cip
0a80: 68 65 72 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 her)), -1);.
0a90: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
0aa0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
0ab0: 70 72 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d provider", "", -
0ac0: 31 29 3b 0a 20 20 20 20 66 6c 61 67 73 20 3d 20 1);. flags =
0ad0: 45 56 50 5f 43 49 50 48 45 52 5f 66 6c 61 67 73 EVP_CIPHER_flags
0ae0: 28 63 69 70 68 65 72 29 3b 0a 20 20 20 20 6d 6f (cipher);. mo
0af0: 64 65 20 20 3d 20 45 56 50 5f 43 49 50 48 45 52 de = EVP_CIPHER
0b00: 5f 6d 6f 64 65 28 63 69 70 68 65 72 29 3b 0a 0a _mode(cipher);..
0b10: 20 20 20 20 2f 2a 20 45 56 50 5f 43 49 50 48 45 /* EVP_CIPHE
0b20: 52 5f 67 65 74 5f 6d 6f 64 65 20 2a 2f 0a 20 20 R_get_mode */.
0b30: 20 20 73 77 69 74 63 68 28 6d 6f 64 65 29 20 7b switch(mode) {
0b40: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0b50: 53 54 52 45 41 4d 5f 43 49 50 48 45 52 3a 0a 09 STREAM_CIPHER:..
0b60: 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 modeName = "
0b70: 53 54 52 45 41 4d 22 3b 0a 09 20 20 20 20 62 72 STREAM";.. br
0b80: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0b90: 49 50 48 5f 45 43 42 5f 4d 4f 44 45 3a 0a 09 20 IPH_ECB_MODE:..
0ba0: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 45 modeName = "E
0bb0: 43 42 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b CB";.. break;
0bc0: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0bd0: 43 42 43 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d CBC_MODE:.. m
0be0: 6f 64 65 4e 61 6d 65 20 3d 20 22 43 42 43 22 3b odeName = "CBC";
0bf0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
0c00: 73 65 20 45 56 50 5f 43 49 50 48 5f 43 46 42 5f se EVP_CIPH_CFB_
0c10: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e MODE:.. modeN
0c20: 61 6d 65 20 3d 20 22 43 46 42 22 3b 0a 09 20 20 ame = "CFB";..
0c30: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 break;..case E
0c40: 56 50 5f 43 49 50 48 5f 4f 46 42 5f 4d 4f 44 45 VP_CIPH_OFB_MODE
0c50: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0c60: 3d 20 22 4f 46 42 22 3b 0a 09 20 20 20 20 62 72 = "OFB";.. br
0c70: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0c80: 49 50 48 5f 43 54 52 5f 4d 4f 44 45 3a 0a 09 20 IPH_CTR_MODE:..
0c90: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 43 modeName = "C
0ca0: 54 52 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b TR";.. break;
0cb0: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0cc0: 47 43 4d 5f 4d 4f 44 45 3a 0a 09 20 20 20 20 6d GCM_MODE:.. m
0cd0: 6f 64 65 4e 61 6d 65 20 3d 20 22 47 43 4d 22 3b odeName = "GCM";
0ce0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
0cf0: 73 65 20 45 56 50 5f 43 49 50 48 5f 58 54 53 5f se EVP_CIPH_XTS_
0d00: 4d 4f 44 45 3a 0a 09 20 20 20 20 6d 6f 64 65 4e MODE:.. modeN
0d10: 61 6d 65 20 3d 20 22 58 54 53 22 3b 0a 09 20 20 ame = "XTS";..
0d20: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 45 break;..case E
0d30: 56 50 5f 43 49 50 48 5f 43 43 4d 5f 4d 4f 44 45 VP_CIPH_CCM_MODE
0d40: 3a 0a 09 20 20 20 20 6d 6f 64 65 4e 61 6d 65 20 :.. modeName
0d50: 3d 20 22 43 43 4d 22 3b 0a 09 20 20 20 20 62 72 = "CCM";.. br
0d60: 65 61 6b 3b 0a 09 63 61 73 65 20 45 56 50 5f 43 eak;..case EVP_C
0d70: 49 50 48 5f 4f 43 42 5f 4d 4f 44 45 3a 0a 09 20 IPH_OCB_MODE:..
0d80: 20 20 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 4f modeName = "O
0d90: 43 42 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b CB";.. break;
0da0: 0a 09 63 61 73 65 20 45 56 50 5f 43 49 50 48 5f ..case EVP_CIPH_
0db0: 57 52 41 50 5f 4d 4f 44 45 20 3a 0a 09 20 20 20 WRAP_MODE :..
0dc0: 20 6d 6f 64 65 4e 61 6d 65 20 3d 20 22 57 52 41 modeName = "WRA
0dd0: 50 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a P";.. break;.
0de0: 09 64 65 66 61 75 6c 74 3a 0a 09 20 20 20 20 6d .default:.. m
0df0: 6f 64 65 4e 61 6d 65 20 3d 20 22 75 6e 6b 6e 6f odeName = "unkno
0e00: 77 6e 22 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b wn";.. break;
0e10: 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 45 . }. LAPPE
0e20: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
0e30: 65 73 75 6c 74 4f 62 6a 2c 20 22 6d 6f 64 65 22 esultObj, "mode"
0e40: 2c 20 6d 6f 64 65 4e 61 6d 65 2c 20 2d 31 29 3b , modeName, -1);
0e50: 0a 0a 20 20 20 20 2f 2a 20 46 6c 61 67 73 20 2a .. /* Flags *
0e60: 2f 0a 20 20 20 20 6c 69 73 74 4f 62 6a 20 3d 20 /. listObj =
0e70: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
0e80: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 4c 41 50 , NULL);. LAP
0e90: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
0ea0: 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 56 61 72 69 , listObj, "Vari
0eb0: 61 62 6c 65 20 4c 65 6e 67 74 68 22 2c 20 66 6c able Length", fl
0ec0: 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 5f 56 ags & EVP_CIPH_V
0ed0: 41 52 49 41 42 4c 45 5f 4c 45 4e 47 54 48 29 3b ARIABLE_LENGTH);
0ee0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
0ef0: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 L(interp, listOb
0f00: 6a 2c 20 22 41 6c 77 61 79 73 20 43 61 6c 6c 20 j, "Always Call
0f10: 49 6e 69 74 22 2c 20 66 6c 61 67 73 20 26 20 45 Init", flags & E
0f20: 56 50 5f 43 49 50 48 5f 41 4c 57 41 59 53 5f 43 VP_CIPH_ALWAYS_C
0f30: 41 4c 4c 5f 49 4e 49 54 29 3b 0a 20 20 20 20 4c ALL_INIT);. L
0f40: 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 APPEND_BOOL(inte
0f50: 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 43 75 rp, listObj, "Cu
0f60: 73 74 6f 6d 20 49 56 22 2c 20 66 6c 61 67 73 20 stom IV", flags
0f70: 26 20 45 56 50 5f 43 49 50 48 5f 43 55 53 54 4f & EVP_CIPH_CUSTO
0f80: 4d 5f 49 56 29 3b 0a 20 20 20 20 4c 41 50 50 45 M_IV);. LAPPE
0f90: 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 ND_BOOL(interp,
0fa0: 6c 69 73 74 4f 62 6a 2c 20 22 43 6f 6e 74 72 6f listObj, "Contro
0fb0: 6c 20 49 6e 69 74 22 2c 20 66 6c 61 67 73 20 26 l Init", flags &
0fc0: 20 45 56 50 5f 43 49 50 48 5f 43 54 52 4c 5f 49 EVP_CIPH_CTRL_I
0fd0: 4e 49 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e NIT);. LAPPEN
0fe0: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
0ff0: 69 73 74 4f 62 6a 2c 20 22 43 75 73 74 6f 6d 20 istObj, "Custom
1000: 43 69 70 68 65 72 22 2c 20 66 6c 61 67 73 20 26 Cipher", flags &
1010: 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 5f 43 EVP_CIPH_FLAG_C
1020: 55 53 54 4f 4d 5f 43 49 50 48 45 52 29 3b 0a 20 USTOM_CIPHER);.
1030: 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 LAPPEND_BOOL(
1040: 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c interp, listObj,
1050: 20 22 41 45 41 44 20 43 69 70 68 65 72 22 2c 20 "AEAD Cipher",
1060: 66 6c 61 67 73 20 26 20 45 56 50 5f 43 49 50 48 flags & EVP_CIPH
1070: 5f 46 4c 41 47 5f 41 45 41 44 5f 43 49 50 48 45 _FLAG_AEAD_CIPHE
1080: 52 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f R);. LAPPEND_
1090: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
10a0: 74 4f 62 6a 2c 20 22 43 75 73 74 6f 6d 20 43 6f tObj, "Custom Co
10b0: 70 79 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 py", flags & EVP
10c0: 5f 43 49 50 48 5f 43 55 53 54 4f 4d 5f 43 4f 50 _CIPH_CUSTOM_COP
10d0: 59 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f Y);. LAPPEND_
10e0: 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 BOOL(interp, lis
10f0: 74 4f 62 6a 2c 20 22 4e 6f 6e 20 46 49 50 53 20 tObj, "Non FIPS
1100: 41 6c 6c 6f 77 22 2c 20 66 6c 61 67 73 20 26 20 Allow", flags &
1110: 45 56 50 5f 43 49 50 48 5f 46 4c 41 47 5f 4e 4f EVP_CIPH_FLAG_NO
1120: 4e 5f 46 49 50 53 5f 41 4c 4c 4f 57 29 3b 0a 20 N_FIPS_ALLOW);.
1130: 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 LAPPEND_OBJ(i
1140: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
1150: 2c 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 4f , "flags", listO
1160: 62 6a 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 54 58 bj);.. /* CTX
1170: 20 6f 6e 6c 79 20 70 72 6f 70 65 72 74 69 65 73 only properties
1180: 20 2a 2f 0a 20 20 20 20 7b 0a 09 45 56 50 5f 43 */. {..EVP_C
1190: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 3d IPHER_CTX *ctx =
11a0: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f EVP_CIPHER_CTX_
11b0: 6e 65 77 28 29 3b 0a 09 69 6e 74 20 74 61 67 5f new();..int tag_
11c0: 6c 65 6e 20 3d 20 30 3b 0a 0a 09 45 56 50 5f 45 len = 0;...EVP_E
11d0: 6e 63 72 79 70 74 49 6e 69 74 5f 65 78 28 63 74 ncryptInit_ex(ct
11e0: 78 2c 20 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c x, cipher, NULL,
11f0: 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 09 69 NULL, NULL);..i
1200: 66 20 28 6d 6f 64 65 20 3d 3d 20 45 56 50 5f 43 f (mode == EVP_C
1210: 49 50 48 5f 47 43 4d 5f 4d 4f 44 45 20 7c 7c 20 IPH_GCM_MODE ||
1220: 6d 6f 64 65 20 3d 3d 20 45 56 50 5f 43 49 50 48 mode == EVP_CIPH
1230: 5f 4f 43 42 5f 4d 4f 44 45 29 20 7b 0a 09 20 20 _OCB_MODE) {..
1240: 20 20 74 61 67 5f 6c 65 6e 20 3d 20 45 56 50 5f tag_len = EVP_
1250: 47 43 4d 5f 54 4c 53 5f 54 41 47 5f 4c 45 4e 3b GCM_TLS_TAG_LEN;
1260: 20 2f 2a 20 45 56 50 5f 4d 41 58 5f 41 45 41 44 /* EVP_MAX_AEAD
1270: 5f 54 41 47 5f 4c 45 4e 47 54 48 20 2a 2f 0a 09 _TAG_LENGTH */..
1280: 7d 20 65 6c 73 65 20 69 66 20 28 6d 6f 64 65 20 } else if (mode
1290: 3d 3d 20 45 56 50 5f 43 49 50 48 5f 43 43 4d 5f == EVP_CIPH_CCM_
12a0: 4d 4f 44 45 29 20 7b 0a 09 20 20 20 20 74 61 67 MODE) {.. tag
12b0: 5f 6c 65 6e 20 3d 20 45 56 50 5f 43 43 4d 5f 54 _len = EVP_CCM_T
12c0: 4c 53 5f 54 41 47 5f 4c 45 4e 3b 0a 09 7d 20 65 LS_TAG_LEN;..} e
12d0: 6c 73 65 20 69 66 20 28 63 69 70 68 65 72 20 3d lse if (cipher =
12e0: 3d 20 45 56 50 5f 67 65 74 5f 63 69 70 68 65 72 = EVP_get_cipher
12f0: 62 79 6e 61 6d 65 28 22 63 68 61 63 68 61 32 30 byname("chacha20
1300: 2d 70 6f 6c 79 31 33 30 35 22 29 29 20 7b 0a 09 -poly1305")) {..
1310: 20 20 20 20 74 61 67 5f 6c 65 6e 20 3d 20 45 56 tag_len = EV
1320: 50 5f 43 48 41 43 48 41 50 4f 4c 59 5f 54 4c 53 P_CHACHAPOLY_TLS
1330: 5f 54 41 47 5f 4c 45 4e 3b 20 2f 2a 20 50 4f 4c _TAG_LEN; /* POL
1340: 59 31 33 30 35 5f 42 4c 4f 43 4b 5f 53 49 5a 45 Y1305_BLOCK_SIZE
1350: 20 2a 2f 0a 09 7d 0a 09 45 56 50 5f 43 49 50 48 */..}..EVP_CIPH
1360: 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 ER_CTX_free(ctx)
1370: 3b 0a 09 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 ;..LAPPEND_INT(i
1380: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
1390: 2c 20 22 74 61 67 5f 6c 65 6e 67 74 68 22 2c 20 , "tag_length",
13a0: 74 61 67 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a tag_len);. }.
13b0: 20 20 20 20 0a 20 20 20 20 2f 2a 20 41 45 41 44 . /* AEAD
13c0: 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 properties */.
13d0: 20 20 20 7b 0a 09 69 6e 74 20 61 61 64 5f 6c 65 {..int aad_le
13e0: 6e 20 3d 20 30 3b 0a 09 69 66 20 28 66 6c 61 67 n = 0;..if (flag
13f0: 73 20 26 20 45 56 50 5f 43 49 50 48 5f 46 4c 41 s & EVP_CIPH_FLA
1400: 47 5f 41 45 41 44 5f 43 49 50 48 45 52 29 20 7b G_AEAD_CIPHER) {
1410: 0a 09 20 20 20 20 61 61 64 5f 6c 65 6e 20 3d 20 .. aad_len =
1420: 45 56 50 5f 41 45 41 44 5f 54 4c 53 31 5f 41 41 EVP_AEAD_TLS1_AA
1430: 44 5f 4c 45 4e 3b 0a 09 7d 0a 09 4c 41 50 50 45 D_LEN;..}..LAPPE
1440: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 ND_INT(interp, r
1450: 65 73 75 6c 74 4f 62 6a 2c 20 22 61 61 64 5f 6c esultObj, "aad_l
1460: 65 6e 67 74 68 22 2c 20 61 61 64 5f 6c 65 6e 29 ength", aad_len)
1470: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c ;. }.. Tcl
1480: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
1490: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 terp, resultObj)
14a0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
14b0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
14c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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: 0a 20 2a 0a 20 2a 20 43 69 70 68 65 72 4c 69 73 . *. * CipherLis
1510: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 t --. *. *.Retur
1520: 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 n a list of all
1530: 63 69 70 68 65 72 20 61 6c 67 6f 72 69 74 68 6d cipher algorithm
1540: 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a s. *. * Results:
1550: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
1560: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
1570: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
1580: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
1590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 --------------.
15d0: 2a 2f 0a 69 6e 74 20 43 69 70 68 65 72 4c 69 73 */.int CipherLis
15e0: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e t(Tcl_Interp *in
15f0: 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f terp) {. Tcl_
1600: 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d Obj *resultObj =
1610: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
1620: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 0, NULL);. if
1630: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
1640: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
1650: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
1660: 0a 20 20 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 . /* Same as
1670: 45 56 50 5f 43 49 50 48 45 52 5f 64 6f 5f 61 6c EVP_CIPHER_do_al
1680: 6c 20 2a 2f 0a 20 20 20 20 4f 42 4a 5f 4e 41 4d l */. OBJ_NAM
1690: 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a 5f 4e 41 4d E_do_all(OBJ_NAM
16a0: 45 5f 54 59 50 45 5f 43 49 50 48 45 52 5f 4d 45 E_TYPE_CIPHER_ME
16b0: 54 48 2c 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 TH, NamesCallbac
16c0: 6b 2c 20 28 76 6f 69 64 20 2a 29 20 72 65 73 75 k, (void *) resu
16d0: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 54 63 6c 5f ltObj);. Tcl_
16e0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
16f0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
1700: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
1710: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
1720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1760: 20 2a 0a 20 2a 20 43 69 70 68 65 72 4f 62 6a 43 *. * CipherObjC
1770: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
1780: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f rn a list of pro
1790: 70 65 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 perties and valu
17a0: 65 73 20 66 6f 72 20 63 69 70 68 65 72 4e 61 6d es for cipherNam
17b0: 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 e.. *. * Results
17c0: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
17d0: 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 Tcl list.. *. *
17e0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
17f0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
1800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a ---------------.
1840: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 43 */.static int C
1850: 69 70 68 65 72 4f 62 6a 43 6d 64 28 43 6c 69 65 ipherObjCmd(Clie
1860: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
1870: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
1880: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
1890: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
18a0: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 objv[]) {. (v
18b0: 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b oid) clientData;
18c0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
18d0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
18e0: 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f Clear errors */
18f0: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 . Tcl_ResetRe
1900: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
1910: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
1920: 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c r();.. /* Val
1930: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
1940: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
1950: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 1) {..return
1960: 43 69 70 68 65 72 4c 69 73 74 28 69 6e 74 65 72 CipherList(inter
1970: 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 p);.. } else
1980: 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b if (objc == 2) {
1990: 0a 09 72 65 74 75 72 6e 20 43 69 70 68 65 72 49 ..return CipherI
19a0: 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 nfo(interp, objv
19b0: 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 [1]);.. } els
19c0: 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 e {..Tcl_WrongNu
19d0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
19e0: 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 objv, "?name?")
19f0: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
1a00: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ROR;. }. r
1a10: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
1a20: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
1a30: 2d 2d 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 ---------. *. *
1a70: 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 20 2d 2d CiphersObjCmd --
1a80: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 6f 63 . *. *.This proc
1a90: 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b 65 64 edure is invoked
1aa0: 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 65 20 to process the
1ab0: 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 20 63 "tls::ciphers" c
1ac0: 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c 69 73 ommand. *.to lis
1ad0: 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 t available ciph
1ae0: 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f 6e 20 ers, based upon
1af0: 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 74 65 protocol selecte
1b00: 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 d.. *. * Results
1b10: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
1b20: 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 74 2e Tcl result list.
1b30: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
1b40: 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 75 63 cts:. *.construc
1b50: 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 73 20 ts and destroys
1b60: 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 54 58 SSL context (CTX
1b70: 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ). *. *---------
1b80: 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 73 ----------. */.s
1bc0: 74 61 74 69 63 20 69 6e 74 20 43 69 70 68 65 72 tatic int Cipher
1bd0: 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 sObjCmd(ClientDa
1be0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
1bf0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1c00: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
1c10: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
1c20: 5b 5d 29 20 7b 0a 20 20 20 20 53 53 4c 5f 43 54 []) {. SSL_CT
1c30: 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 X *ctx = NULL;.
1c40: 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 4e 55 SSL *ssl = NU
1c50: 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f 4f 46 LL;. STACK_OF
1c60: 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a 73 6b (SSL_CIPHER) *sk
1c70: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 = NULL;. int
1c80: 20 69 6e 64 65 78 2c 20 76 65 72 62 6f 73 65 20 index, verbose
1c90: 3d 20 30 2c 20 75 73 65 5f 73 75 70 70 6f 72 74 = 0, use_support
1ca0: 65 64 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 ed = 0, res = TC
1cb0: 4c 5f 4f 4b 3b 0a 20 20 20 20 69 6e 74 20 6d 69 L_OK;. int mi
1cc0: 6e 5f 76 65 72 73 69 6f 6e 2c 20 6d 61 78 5f 76 n_version, max_v
1cd0: 65 72 73 69 6f 6e 3b 0a 20 20 20 20 28 76 6f 69 ersion;. (voi
1ce0: 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a d) clientData;..
1cf0: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
1d00: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 led");.. /* C
1d10: 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a 20 lear errors */.
1d20: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 Tcl_ResetResu
1d30: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 20 lt(interp);.
1d40: 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 28 ERR_clear_error(
1d50: 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 );.. /* Valid
1d60: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f ate arg count */
1d70: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3e 20 . if (objc >
1d80: 34 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 4) {..Tcl_WrongN
1d90: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
1da0: 2c 20 6f 62 6a 76 2c 20 22 3f 70 72 6f 74 6f 63 , objv, "?protoc
1db0: 6f 6c 3f 20 3f 76 65 72 62 6f 73 65 3f 20 3f 73 ol? ?verbose? ?s
1dc0: 75 70 70 6f 72 74 65 64 3f 22 29 3b 0a 09 72 65 upported?");..re
1dd0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
1de0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 }.. /* Li
1df0: 73 74 20 61 6c 6c 20 63 69 70 68 65 72 73 20 2a st all ciphers *
1e00: 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3d /. if (objc =
1e10: 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 43 = 1) {..return C
1e20: 69 70 68 65 72 4c 69 73 74 28 69 6e 74 65 72 70 ipherList(interp
1e30: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a );. }.. /*
1e40: 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a Get options */.
1e50: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 if (Tcl_GetI
1e60: 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 ndexFromObj(inte
1e70: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 70 72 6f rp, objv[1], pro
1e80: 74 6f 63 6f 6c 73 2c 20 22 70 72 6f 74 6f 63 6f tocols, "protoco
1e90: 6c 22 2c 20 30 2c 20 26 69 6e 64 65 78 29 20 21 l", 0, &index) !
1ea0: 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 28 6f 62 = TCL_OK ||..(ob
1eb0: 6a 63 20 3e 20 32 20 26 26 20 54 63 6c 5f 47 65 jc > 2 && Tcl_Ge
1ec0: 74 42 6f 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 tBooleanFromObj(
1ed0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 32 5d 2c interp, objv[2],
1ee0: 20 26 76 65 72 62 6f 73 65 29 20 21 3d 20 54 43 &verbose) != TC
1ef0: 4c 5f 4f 4b 29 20 7c 7c 0a 09 28 6f 62 6a 63 20 L_OK) ||..(objc
1f00: 3e 20 33 20 26 26 20 54 63 6c 5f 47 65 74 42 6f > 3 && Tcl_GetBo
1f10: 6f 6c 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 oleanFromObj(int
1f20: 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 75 erp, objv[3], &u
1f30: 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 21 3d se_supported) !=
1f40: 20 54 43 4c 5f 4f 4b 29 29 20 7b 0a 09 72 65 74 TCL_OK)) {..ret
1f50: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1f60: 20 20 20 7d 0a 0a 20 20 20 20 73 77 69 74 63 68 }.. switch
1f70: 20 28 28 65 6e 75 6d 20 70 72 6f 74 6f 63 6f 6c ((enum protocol
1f80: 29 69 6e 64 65 78 29 20 7b 0a 09 63 61 73 65 20 )index) {..case
1f90: 54 4c 53 5f 53 53 4c 32 3a 0a 09 20 20 20 20 54 TLS_SSL2:.. T
1fa0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1fb0: 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c interp, protocol
1fc0: 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f s[index], ": pro
1fd0: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
1fe0: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 ted", NULL);..
1ff0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
2000: 4f 52 3b 0a 09 63 61 73 65 20 54 4c 53 5f 53 53 OR;..case TLS_SS
2010: 4c 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 L3:.#if defined(
2020: 4e 4f 5f 53 53 4c 33 29 20 7c 7c 20 64 65 66 69 NO_SSL3) || defi
2030: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 ned(OPENSSL_NO_S
2040: 53 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 SL3) || defined(
2050: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f OPENSSL_NO_SSL3_
2060: 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 63 6c METHOD).. Tcl
2070: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
2080: 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b terp, protocols[
2090: 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f index], ": proto
20a0: 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 col not supporte
20b0: 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 d", NULL);..
20c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
20d0: 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 20 ;.#else.
20e0: 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e 20 min_version
20f0: 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f 4e 3b 0a = SSL3_VERSION;.
2100: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 78 5f max_
2110: 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 version = SSL3_V
2120: 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 ERSION;.. bre
2130: 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 ak;.#endif..case
2140: 20 54 4c 53 5f 54 4c 53 31 3a 0a 23 69 66 20 64 TLS_TLS1:.#if d
2150: 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 efined(NO_TLS1)
2160: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
2170: 53 4c 5f 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 SL_NO_TLS1) || d
2180: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
2190: 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 09 O_TLS1_METHOD)..
21a0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
21b0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f sult(interp, pro
21c0: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 tocols[index], "
21d0: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 : protocol not s
21e0: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
21f0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
2200: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 L_ERROR;.#else.
2210: 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 min_v
2220: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 56 45 ersion = TLS1_VE
2230: 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 RSION;.
2240: 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d max_version =
2250: 20 54 4c 53 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 TLS1_VERSION;..
2260: 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 break;.#endi
2270: 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 f..case TLS_TLS1
2280: 5f 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 _1:.#if defined(
2290: 4e 4f 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 NO_TLS1_1) || de
22a0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
22b0: 5f 54 4c 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 _TLS1_1) || defi
22c0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
22d0: 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 0a 09 20 LS1_1_METHOD)..
22e0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 Tcl_AppendRes
22f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 ult(interp, prot
2300: 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a ocols[index], ":
2310: 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 protocol not su
2320: 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b pported", NULL);
2330: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
2340: 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 _ERROR;.#else.
2350: 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 min_ve
2360: 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 31 5f 56 rsion = TLS1_1_V
2370: 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 ERSION;.
2380: 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 max_version
2390: 3d 20 54 4c 53 31 5f 31 5f 56 45 52 53 49 4f 4e = TLS1_1_VERSION
23a0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 ;.. break;.#e
23b0: 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 ndif..case TLS_T
23c0: 4c 53 31 5f 32 3a 0a 23 69 66 20 64 65 66 69 6e LS1_2:.#if defin
23d0: 65 64 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c ed(NO_TLS1_2) ||
23e0: 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c defined(OPENSSL
23f0: 5f 4e 4f 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 _NO_TLS1_2) || d
2400: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
2410: 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 O_TLS1_2_METHOD)
2420: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
2430: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 Result(interp, p
2440: 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c rotocols[index],
2450: 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 ": protocol not
2460: 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c supported", NUL
2470: 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 L);.. return
2480: 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 TCL_ERROR;.#else
2490: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e . min
24a0: 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f _version = TLS1_
24b0: 32 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 2_VERSION;.
24c0: 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 max_versi
24d0: 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f 56 45 52 53 on = TLS1_2_VERS
24e0: 49 4f 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b ION;.. break;
24f0: 0a 23 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c .#endif..case TL
2500: 53 5f 54 4c 53 31 5f 33 3a 0a 23 69 66 20 64 65 S_TLS1_3:.#if de
2510: 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 fined(NO_TLS1_3)
2520: 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e || defined(OPEN
2530: 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 09 SSL_NO_TLS1_3)..
2540: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
2550: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 70 72 6f sult(interp, pro
2560: 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 tocols[index], "
2570: 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 : protocol not s
2580: 75 70 70 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 upported", NULL)
2590: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
25a0: 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 L_ERROR;.#else.
25b0: 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 min_v
25c0: 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 5f 33 5f ersion = TLS1_3_
25d0: 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 VERSION;.
25e0: 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e max_version
25f0: 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f = TLS1_3_VERSIO
2600: 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 N;.. break;.#
2610: 65 6e 64 69 66 0a 09 64 65 66 61 75 6c 74 3a 0a endif..default:.
2620: 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 5f min_
2630: 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c 33 5f 56 version = SSL3_V
2640: 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 ERSION;.
2650: 20 20 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 max_version
2660: 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 4f 4e = TLS1_3_VERSION
2670: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 ;.. break;.
2680: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 }.. /* Crea
2690: 74 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 te context */.
26a0: 20 20 69 66 20 28 28 63 74 78 20 3d 20 53 53 4c if ((ctx = SSL
26b0: 5f 43 54 58 5f 6e 65 77 28 54 4c 53 5f 73 65 72 _CTX_new(TLS_ser
26c0: 76 65 72 5f 6d 65 74 68 6f 64 28 29 29 29 20 3d ver_method())) =
26d0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
26e0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
26f0: 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 rp, REASON(), NU
2700: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
2710: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
2720: 20 20 20 2f 2a 20 53 65 74 20 70 72 6f 74 6f 63 /* Set protoc
2730: 6f 6c 20 76 65 72 73 69 6f 6e 73 20 2a 2f 0a 20 ol versions */.
2740: 20 20 20 69 66 20 28 53 53 4c 5f 43 54 58 5f 73 if (SSL_CTX_s
2750: 65 74 5f 6d 69 6e 5f 70 72 6f 74 6f 5f 76 65 72 et_min_proto_ver
2760: 73 69 6f 6e 28 63 74 78 2c 20 6d 69 6e 5f 76 65 sion(ctx, min_ve
2770: 72 73 69 6f 6e 29 20 3d 3d 20 30 20 7c 7c 0a 09 rsion) == 0 ||..
2780: 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 61 78 5f SSL_CTX_set_max_
2790: 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 63 74 proto_version(ct
27a0: 78 2c 20 6d 61 78 5f 76 65 72 73 69 6f 6e 29 20 x, max_version)
27b0: 3d 3d 20 30 29 20 7b 0a 09 53 53 4c 5f 43 54 58 == 0) {..SSL_CTX
27c0: 5f 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 _free(ctx);..ret
27d0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
27e0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 }.. /* Cre
27f0: 61 74 65 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 ate SSL context
2800: 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 73 6c 20 */. if ((ssl
2810: 3d 20 53 53 4c 5f 6e 65 77 28 63 74 78 29 29 20 = SSL_new(ctx))
2820: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
2830: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2840: 65 72 70 2c 20 52 45 41 53 4f 4e 28 29 2c 20 4e erp, REASON(), N
2850: 55 4c 4c 29 3b 0a 09 53 53 4c 5f 43 54 58 5f 66 ULL);..SSL_CTX_f
2860: 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 ree(ctx);..retur
2870: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
2880: 20 7d 0a 0a 20 20 20 20 2f 2a 20 55 73 65 20 6c }.. /* Use l
2890: 69 73 74 20 61 6e 64 20 6f 72 64 65 72 20 61 73 ist and order as
28a0: 20 77 6f 75 6c 64 20 62 65 20 73 65 6e 74 20 69 would be sent i
28b0: 6e 20 61 20 43 6c 69 65 6e 74 48 65 6c 6c 6f 20 n a ClientHello
28c0: 6f 72 20 61 6c 6c 20 61 76 61 69 6c 61 62 6c 65 or all available
28d0: 20 63 69 70 68 65 72 73 20 2a 2f 0a 20 20 20 20 ciphers */.
28e0: 69 66 20 28 75 73 65 5f 73 75 70 70 6f 72 74 65 if (use_supporte
28f0: 64 29 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 d) {..sk = SSL_g
2900: 65 74 31 5f 73 75 70 70 6f 72 74 65 64 5f 63 69 et1_supported_ci
2910: 70 68 65 72 73 28 73 73 6c 29 3b 0a 20 20 20 20 phers(ssl);.
2920: 7d 20 65 6c 73 65 20 7b 0a 09 73 6b 20 3d 20 53 } else {..sk = S
2930: 53 4c 5f 67 65 74 5f 63 69 70 68 65 72 73 28 73 SL_get_ciphers(s
2940: 73 6c 29 3b 0a 09 2f 2a 73 6b 20 3d 20 53 53 4c sl);../*sk = SSL
2950: 5f 43 54 58 5f 67 65 74 5f 63 69 70 68 65 72 73 _CTX_get_ciphers
2960: 28 63 74 78 29 3b 2a 2f 0a 20 20 20 20 7d 0a 0a (ctx);*/. }..
2970: 20 20 20 20 69 66 20 28 73 6b 20 21 3d 20 4e 55 if (sk != NU
2980: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 4f 62 6a 20 2a LL) {..Tcl_Obj *
2990: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 4e 55 4c 4c resultObj = NULL
29a0: 3b 0a 0a 09 69 66 20 28 21 76 65 72 62 6f 73 65 ;...if (!verbose
29b0: 29 20 7b 0a 09 20 20 20 20 63 68 61 72 20 2a 63 ) {.. char *c
29c0: 70 3b 0a 09 20 20 20 20 72 65 73 75 6c 74 4f 62 p;.. resultOb
29d0: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f j = Tcl_NewListO
29e0: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 bj(0, NULL);..
29f0: 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 if (resultObj
2a00: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 == NULL) {...res
2a10: 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 = TCL_ERROR;...
2a20: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 goto done;..
2a30: 7d 0a 0a 09 20 20 20 20 66 6f 72 20 28 69 6e 74 }... for (int
2a40: 20 69 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 i = 0; i < sk_S
2a50: 53 4c 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b SL_CIPHER_num(sk
2a60: 29 3b 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 ); i++) {...cons
2a70: 74 20 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 t SSL_CIPHER *c
2a80: 3d 20 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f = sk_SSL_CIPHER_
2a90: 76 61 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 value(sk, i);...
2aa0: 69 66 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 if (c == NULL) c
2ab0: 6f 6e 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 63 ontinue;..../* c
2ac0: 69 70 68 65 72 20 6e 61 6d 65 20 6f 72 20 28 4e ipher name or (N
2ad0: 4f 4e 45 29 20 2a 2f 0a 09 09 63 70 20 3d 20 53 ONE) */...cp = S
2ae0: 53 4c 5f 43 49 50 48 45 52 5f 67 65 74 5f 6e 61 SL_CIPHER_get_na
2af0: 6d 65 28 63 29 3b 0a 09 09 69 66 20 28 63 70 20 me(c);...if (cp
2b00: 3d 3d 20 4e 55 4c 4c 29 20 62 72 65 61 6b 3b 0a == NULL) break;.
2b10: 09 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 ..Tcl_ListObjApp
2b20: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
2b30: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 p, resultObj, Tc
2b40: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 63 l_NewStringObj(c
2b50: 70 2c 20 2d 31 29 29 3b 0a 09 20 20 20 20 7d 0a p, -1));.. }.
2b60: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
2b70: 63 68 61 72 20 62 75 66 5b 42 55 46 53 49 5a 5d char buf[BUFSIZ]
2b80: 3b 0a 09 20 20 20 20 72 65 73 75 6c 74 4f 62 6a ;.. resultObj
2b90: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 = Tcl_NewString
2ba0: 4f 62 6a 28 22 22 2c 30 29 3b 0a 09 20 20 20 20 Obj("",0);..
2bb0: 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d if (resultObj ==
2bc0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 72 65 73 20 3d NULL) {...res =
2bd0: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f TCL_ERROR;...go
2be0: 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a to done;.. }.
2bf0: 0a 09 20 20 20 20 66 6f 72 20 28 69 6e 74 20 69 .. for (int i
2c00: 20 3d 20 30 3b 20 69 20 3c 20 73 6b 5f 53 53 4c = 0; i < sk_SSL
2c10: 5f 43 49 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b _CIPHER_num(sk);
2c20: 20 69 2b 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 20 i++) {...const
2c30: 53 53 4c 5f 43 49 50 48 45 52 20 2a 63 20 3d 20 SSL_CIPHER *c =
2c40: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 sk_SSL_CIPHER_va
2c50: 6c 75 65 28 73 6b 2c 20 69 29 3b 0a 09 09 69 66 lue(sk, i);...if
2c60: 20 28 63 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e (c == NULL) con
2c70: 74 69 6e 75 65 3b 0a 0a 09 09 2f 2a 20 74 65 78 tinue;..../* tex
2c80: 74 75 61 6c 20 64 65 73 63 72 69 70 74 69 6f 6e tual description
2c90: 20 6f 66 20 74 68 65 20 63 69 70 68 65 72 20 2a of the cipher *
2ca0: 2f 0a 09 09 69 66 20 28 53 53 4c 5f 43 49 50 48 /...if (SSL_CIPH
2cb0: 45 52 5f 64 65 73 63 72 69 70 74 69 6f 6e 28 63 ER_description(c
2cc0: 2c 20 62 75 66 2c 20 73 69 7a 65 6f 66 28 62 75 , buf, sizeof(bu
2cd0: 66 29 29 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 f)) != NULL) {..
2ce0: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 54 . Tcl_AppendT
2cf0: 6f 4f 62 6a 28 72 65 73 75 6c 74 4f 62 6a 2c 20 oObj(resultObj,
2d00: 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 buf, (Tcl_Size)
2d10: 73 74 72 6c 65 6e 28 62 75 66 29 29 3b 0a 09 09 strlen(buf));...
2d20: 7d 20 65 6c 73 65 20 7b 0a 09 09 20 20 20 20 54 } else {... T
2d30: 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 72 cl_AppendToObj(r
2d40: 65 73 75 6c 74 4f 62 6a 2c 20 22 55 4e 4b 4e 4f esultObj, "UNKNO
2d50: 57 4e 5c 6e 22 2c 20 38 29 3b 0a 09 09 7d 0a 09 WN\n", 8);...}..
2d60: 20 20 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 43 6c }..}.../* Cl
2d70: 65 61 6e 20 75 70 20 2a 2f 0a 09 69 66 20 28 75 ean up */..if (u
2d80: 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 7b 0a se_supported) {.
2d90: 09 20 20 20 20 73 6b 5f 53 53 4c 5f 43 49 50 48 . sk_SSL_CIPH
2da0: 45 52 5f 66 72 65 65 28 73 6b 29 3b 0a 09 7d 0a ER_free(sk);..}.
2db0: 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c .Tcl_SetObjResul
2dc0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
2dd0: 4f 62 6a 29 3b 0a 20 20 20 20 7d 0a 0a 64 6f 6e Obj);. }..don
2de0: 65 3a 0a 20 20 20 20 53 53 4c 5f 66 72 65 65 28 e:. SSL_free(
2df0: 73 73 6c 29 3b 0a 20 20 20 20 53 53 4c 5f 43 54 ssl);. SSL_CT
2e00: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 20 X_free(ctx);.
2e10: 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a return res;.}..
2e20: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
2e30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2e40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2e50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
2e60: 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d ****/../*. *----
2e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
2eb0: 20 2a 0a 20 2a 20 44 69 67 65 73 74 49 6e 66 6f *. * DigestInfo
2ec0: 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e --. *. *.Return
2ed0: 20 61 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 a list of prope
2ee0: 72 74 69 65 73 20 61 6e 64 20 76 61 6c 75 65 73 rties and values
2ef0: 20 66 6f 72 20 64 69 67 65 73 74 2e 0a 20 2a 0a for digest.. *.
2f00: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
2f10: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 standard Tcl li
2f20: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 st.. *. * Side e
2f30: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
2f40: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
2f90: 74 20 44 69 67 65 73 74 49 6e 66 6f 28 54 63 6c t DigestInfo(Tcl
2fa0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
2fb0: 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 6d 65 4f 62 Tcl_Obj *nameOb
2fc0: 6a 29 20 7b 0a 20 20 20 20 45 56 50 5f 4d 44 20 j) {. EVP_MD
2fd0: 2a 6d 64 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a *md;. Tcl_Obj
2fe0: 20 2a 72 65 73 75 6c 74 4f 62 6a 2c 20 2a 6c 69 *resultObj, *li
2ff0: 73 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73 69 67 stObj;. unsig
3000: 6e 65 64 20 6c 6f 6e 67 20 66 6c 61 67 73 3b 0a ned long flags;.
3010: 20 20 20 20 69 6e 74 20 72 65 73 20 3d 20 54 43 int res = TC
3020: 4c 5f 4f 4b 3b 0a 20 20 20 20 63 68 61 72 20 2a L_OK;. char *
3030: 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 name = Tcl_GetSt
3040: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6e 61 6d 65 ringFromObj(name
3050: 4f 62 6a 2c 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 Obj,NULL);..
3060: 2f 2a 20 47 65 74 20 6d 65 73 73 61 67 65 20 64 /* Get message d
3070: 69 67 65 73 74 20 2a 2f 0a 20 20 20 20 6d 64 20 igest */. md
3080: 3d 20 45 56 50 5f 67 65 74 5f 64 69 67 65 73 74 = EVP_get_digest
3090: 62 79 6e 61 6d 65 28 6e 61 6d 65 29 3b 0a 0a 20 byname(name);..
30a0: 20 20 20 69 66 20 28 6d 64 20 3d 3d 20 4e 55 4c if (md == NUL
30b0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
30c0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
30d0: 49 6e 76 61 6c 69 64 20 64 69 67 65 73 74 20 5c Invalid digest \
30e0: 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 "", name, "\"",
30f0: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
3100: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
3110: 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 72 6f 70 . /* Get prop
3120: 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 72 65 erties */. re
3130: 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 sultObj = Tcl_Ne
3140: 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c wListObj(0, NULL
3150: 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c );. if (resul
3160: 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a tObj == NULL) {.
3170: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
3180: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 R;. }. LAP
3190: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
31a0: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d resultObj, "nam
31b0: 65 22 2c 20 45 56 50 5f 4d 44 5f 6e 61 6d 65 28 e", EVP_MD_name(
31c0: 6d 64 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 md), -1);. LA
31d0: 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 PPEND_STR(interp
31e0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 , resultObj, "de
31f0: 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20 scription", "",
3200: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 -1);. LAPPEND
3210: 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 73 _INT(interp, res
3220: 75 6c 74 4f 62 6a 2c 20 22 73 69 7a 65 22 2c 20 ultObj, "size",
3230: 45 56 50 5f 4d 44 5f 73 69 7a 65 28 6d 64 29 29 EVP_MD_size(md))
3240: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 49 4e ;. LAPPEND_IN
3250: 54 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 T(interp, result
3260: 4f 62 6a 2c 20 22 62 6c 6f 63 6b 5f 73 69 7a 65 Obj, "block_size
3270: 22 2c 20 45 56 50 5f 4d 44 5f 62 6c 6f 63 6b 5f ", EVP_MD_block_
3280: 73 69 7a 65 28 6d 64 29 29 3b 0a 20 20 20 20 4c size(md));. L
3290: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
32a0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 70 p, resultObj, "p
32b0: 72 6f 76 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 rovider", "", -1
32c0: 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 );. LAPPEND_S
32d0: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c TR(interp, resul
32e0: 74 4f 62 6a 2c 20 22 74 79 70 65 22 2c 20 4f 42 tObj, "type", OB
32f0: 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 4d 44 5f J_nid2ln(EVP_MD_
3300: 74 79 70 65 28 6d 64 29 29 2c 20 2d 31 29 3b 0a type(md)), -1);.
3310: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
3320: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
3330: 6a 2c 20 22 70 6b 65 79 5f 74 79 70 65 22 2c 20 j, "pkey_type",
3340: 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 4d OBJ_nid2ln(EVP_M
3350: 44 5f 70 6b 65 79 5f 74 79 70 65 28 6d 64 29 29 D_pkey_type(md))
3360: 2c 20 2d 31 29 3b 0a 20 20 20 20 66 6c 61 67 73 , -1);. flags
3370: 20 3d 20 45 56 50 5f 4d 44 5f 66 6c 61 67 73 28 = EVP_MD_flags(
3380: 6d 64 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 6c 61 md);.. /* Fla
3390: 67 73 20 2a 2f 0a 20 20 20 20 6c 69 73 74 4f 62 gs */. listOb
33a0: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f j = Tcl_NewListO
33b0: 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 bj(0, NULL);.
33c0: 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e LAPPEND_BOOL(in
33d0: 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 terp, listObj, "
33e0: 4f 6e 65 2d 73 68 6f 74 22 2c 20 66 6c 61 67 73 One-shot", flags
33f0: 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 4f & EVP_MD_FLAG_O
3400: 4e 45 53 48 4f 54 29 3b 0a 20 20 20 20 4c 41 50 NESHOT);. LAP
3410: 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 PEND_BOOL(interp
3420: 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 58 4f 46 22 , listObj, "XOF"
3430: 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 , flags & EVP_MD
3440: 5f 46 4c 41 47 5f 58 4f 46 29 3b 0a 20 20 20 20 _FLAG_XOF);.
3450: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
3460: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 44 erp, listObj, "D
3470: 69 67 65 73 74 41 6c 67 6f 72 69 74 68 6d 49 64 igestAlgorithmId
3480: 5f 4e 55 4c 4c 22 2c 20 66 6c 61 67 73 20 26 20 _NULL", flags &
3490: 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 44 49 47 41 EVP_MD_FLAG_DIGA
34a0: 4c 47 49 44 5f 4e 55 4c 4c 29 3b 0a 20 20 20 20 LGID_NULL);.
34b0: 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 LAPPEND_BOOL(int
34c0: 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 44 erp, listObj, "D
34d0: 69 67 65 73 74 41 6c 67 6f 72 69 74 68 6d 49 64 igestAlgorithmId
34e0: 5f 41 62 73 63 65 6e 74 22 2c 20 66 6c 61 67 73 _Abscent", flags
34f0: 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 5f 44 & EVP_MD_FLAG_D
3500: 49 47 41 4c 47 49 44 5f 41 42 53 45 4e 54 29 3b IGALGID_ABSENT);
3510: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
3520: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 L(interp, listOb
3530: 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 69 j, "DigestAlgori
3540: 74 68 6d 49 64 5f 43 75 73 74 6f 6d 22 2c 20 66 thmId_Custom", f
3550: 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c lags & EVP_MD_FL
3560: 41 47 5f 44 49 47 41 4c 47 49 44 5f 43 55 53 54 AG_DIGALGID_CUST
3570: 4f 4d 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 OM);. LAPPEND
3580: 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 _BOOL(interp, li
3590: 73 74 4f 62 6a 2c 20 22 46 49 50 53 22 2c 20 66 stObj, "FIPS", f
35a0: 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c lags & EVP_MD_FL
35b0: 41 47 5f 46 49 50 53 29 3b 0a 20 20 20 20 4c 41 AG_FIPS);. LA
35c0: 50 50 45 4e 44 5f 4f 42 4a 28 69 6e 74 65 72 70 PPEND_OBJ(interp
35d0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 66 6c , resultObj, "fl
35e0: 61 67 73 22 2c 20 6c 69 73 74 4f 62 6a 29 3b 0a ags", listObj);.
35f0: 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
3600: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 esult(interp, re
3610: 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 sultObj);. re
3620: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
3630: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
3640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3670: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 --------. *. * D
3680: 69 67 65 73 74 4c 69 73 74 20 2d 2d 0a 20 2a 0a igestList --. *.
3690: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
36a0: 20 6f 66 20 61 6c 6c 20 64 69 67 65 73 74 20 61 of all digest a
36b0: 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 lgorithms. *. *
36c0: 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 Results:. *.A st
36d0: 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e andard Tcl list.
36e0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
36f0: 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a cts:. *.None.. *
3700: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3740: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 44 ------. */.int D
3750: 69 67 65 73 74 4c 69 73 74 28 54 63 6c 5f 49 6e igestList(Tcl_In
3760: 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a terp *interp) {.
3770: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 Tcl_Obj *res
3780: 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 ultObj = Tcl_New
3790: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
37a0: 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 ;. if (result
37b0: 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj == NULL) {..
37c0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
37d0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
37e0: 53 61 6d 65 20 61 73 20 45 56 50 5f 4d 44 5f 64 Same as EVP_MD_d
37f0: 6f 5f 61 6c 6c 20 2a 2f 0a 20 20 20 20 4f 42 4a o_all */. OBJ
3800: 5f 4e 41 4d 45 5f 64 6f 5f 61 6c 6c 28 4f 42 4a _NAME_do_all(OBJ
3810: 5f 4e 41 4d 45 5f 54 59 50 45 5f 4d 44 5f 4d 45 _NAME_TYPE_MD_ME
3820: 54 48 2c 20 4e 61 6d 65 73 43 61 6c 6c 62 61 63 TH, NamesCallbac
3830: 6b 2c 20 28 76 6f 69 64 20 2a 29 20 72 65 73 75 k, (void *) resu
3840: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 54 63 6c 5f ltObj);. Tcl_
3850: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
3860: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
3870: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
3880: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
3890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
38d0: 20 2a 0a 20 2a 20 44 69 67 65 73 74 73 4f 62 6a *. * DigestsObj
38e0: 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 Cmd --. *. *.Ret
38f0: 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c urn a list of al
3900: 6c 20 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 l valid hash alg
3910: 6f 72 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 orithms or messa
3920: 67 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 ge digests.. *.
3930: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
3940: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 standard Tcl lis
3950: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
3960: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
3970: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39b0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
39c0: 20 44 69 67 65 73 74 73 4f 62 6a 43 6d 64 28 43 DigestsObjCmd(C
39d0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
39e0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
39f0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
3a00: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
3a10: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
3a20: 20 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 (void) clientDa
3a30: 74 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 ta;.. dprintf
3a40: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
3a50: 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 /* Clear errors
3a60: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 */. Tcl_Rese
3a70: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
3a80: 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 . ERR_clear_e
3a90: 72 72 6f 72 28 29 3b 0a 0a 0a 20 20 20 20 2f 2a rror();... /*
3aa0: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
3ab0: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
3ac0: 62 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 bjc == 1) {..ret
3ad0: 75 72 6e 20 44 69 67 65 73 74 4c 69 73 74 28 69 urn DigestList(i
3ae0: 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 nterp);.. } e
3af0: 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 lse if (objc ==
3b00: 32 29 20 7b 0a 09 72 65 74 75 72 6e 20 44 69 67 2) {..return Dig
3b10: 65 73 74 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 estInfo(interp,
3b20: 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d objv[1]);.. }
3b30: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f else {..Tcl_Wro
3b40: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
3b50: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d , 1, objv, "?nam
3b60: 65 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 e?");..return TC
3b70: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
3b80: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
3b90: 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;.}../**********
3ba0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
3bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
3be0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
3bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c20: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4b 64 66 4c 69 ----. *. * KdfLi
3c30: 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 st --. *. *.Retu
3c40: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c rn a list of all
3c50: 20 4b 44 46 20 61 6c 67 6f 72 69 74 68 6d 73 0a KDF algorithms.
3c60: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
3c70: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
3c80: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 list.. *. * Sid
3c90: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
3ca0: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
3cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
3cf0: 0a 69 6e 74 20 4b 64 66 4c 69 73 74 28 54 63 6c .int KdfList(Tcl
3d00: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
3d10: 20 63 68 61 72 20 2a 73 65 6c 65 63 74 5f 6e 61 char *select_na
3d20: 6d 65 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 me) {. Tcl_Ob
3d30: 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 j *resultObj = T
3d40: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
3d50: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 NULL);. if (
3d60: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
3d70: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
3d80: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
3d90: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
3da0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
3db0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
3dc0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
3dd0: 22 68 6b 64 66 22 2c 20 2d 31 29 29 3b 0a 20 20 "hkdf", -1));.
3de0: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
3df0: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
3e00: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 p, resultObj, Tc
3e10: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
3e20: 70 62 6b 64 66 32 22 2c 20 2d 31 29 29 3b 0a 20 pbkdf2", -1));.
3e30: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
3e40: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
3e50: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
3e60: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
3e70: 22 73 63 72 79 70 74 22 2c 20 2d 31 29 29 3b 0a "scrypt", -1));.
3e80: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
3e90: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 sult(interp, res
3ea0: 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 ultObj);. ret
3eb0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
3ec0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f00: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4b 64 -------. *. * Kd
3f10: 66 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 fsObjCmd --. *.
3f20: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
3f30: 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 4b 65 79 of all valid Key
3f40: 20 44 65 72 69 76 61 74 69 6f 6e 20 46 75 6e 63 Derivation Func
3f50: 74 69 6f 6e 20 28 4b 44 46 29 2e 0a 20 2a 0a 20 tion (KDF).. *.
3f60: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
3f70: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 standard Tcl lis
3f80: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
3f90: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
3fa0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3fe0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
3ff0: 20 4b 64 66 73 4f 62 6a 43 6d 64 28 43 6c 69 65 KdfsObjCmd(Clie
4000: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
4010: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
4020: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
4030: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
4040: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 objv[]) {. (v
4050: 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b oid) clientData;
4060: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
4070: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
4080: 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f Clear errors */
4090: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 . Tcl_ResetRe
40a0: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
40b0: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
40c0: 72 28 29 3b 0a 0a 0a 20 20 20 20 2f 2a 20 56 61 r();... /* Va
40d0: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
40e0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
40f0: 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e == 1) {..return
4100: 20 4b 64 66 4c 69 73 74 28 69 6e 74 65 72 70 2c KdfList(interp,
4110: 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 7d 20 65 NULL);.. } e
4120: 6c 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 lse if (objc ==
4130: 32 29 20 7b 0a 0a 0a 20 20 20 20 7d 20 65 6c 73 2) {... } els
4140: 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 e {..Tcl_WrongNu
4150: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
4160: 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 objv, "?name?")
4170: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
4180: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ROR;. }. r
4190: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
41a0: 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ./**************
41b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
41c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
41d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
41e0: 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d *****/../*. *---
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4230: 0a 20 2a 0a 20 2a 20 4d 61 63 49 6e 66 6f 20 2d . *. * MacInfo -
4240: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
4250: 20 6c 69 73 74 20 6f 66 20 70 72 6f 70 65 72 74 list of propert
4260: 69 65 73 20 61 6e 64 20 76 61 6c 75 65 73 20 66 ies and values f
4270: 6f 72 20 6d 61 63 4e 61 6d 65 2e 0a 20 2a 0a 20 or macName.. *.
4280: 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 * Results:. *.A
4290: 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 standard Tcl lis
42a0: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
42b0: 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a fects:. *.None..
42c0: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
42d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4300: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
4310: 20 4d 61 63 49 6e 66 6f 28 54 63 6c 5f 49 6e 74 MacInfo(Tcl_Int
4320: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 54 63 6c erp *interp, Tcl
4330: 5f 4f 62 6a 20 2a 6e 61 6d 65 4f 62 6a 29 20 7b _Obj *nameObj) {
4340: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
4350: 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 69 6e 74 sultObj;. int
4360: 20 72 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 res = TCL_OK;.
4370: 20 20 20 63 68 61 72 20 2a 6e 61 6d 65 20 3d 20 char *name =
4380: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f Tcl_GetStringFro
4390: 6d 4f 62 6a 28 6e 61 6d 65 4f 62 6a 2c 4e 55 4c mObj(nameObj,NUL
43a0: 4c 29 3b 0a 0a 20 20 20 20 69 66 20 28 73 74 72 L);.. if (str
43b0: 63 6d 70 28 6e 61 6d 65 2c 20 22 63 6d 61 63 22 cmp(name, "cmac"
43c0: 29 20 21 3d 20 30 20 26 26 20 73 74 72 63 6d 70 ) != 0 && strcmp
43d0: 28 6e 61 6d 65 2c 20 22 68 6d 61 63 22 29 20 21 (name, "hmac") !
43e0: 3d 20 30 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 = 0) {..Tcl_Appe
43f0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
4400: 20 22 49 6e 76 61 6c 69 64 20 4d 41 43 20 5c 22 "Invalid MAC \"
4410: 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e ", name, "\"", N
4420: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
4430: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
4440: 20 20 20 20 2f 2a 20 47 65 74 20 70 72 6f 70 65 /* Get prope
4450: 72 74 69 65 73 20 2a 2f 0a 20 20 20 20 72 65 73 rties */. res
4460: 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 ultObj = Tcl_New
4470: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
4480: 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 ;. if (result
4490: 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj == NULL) {..
44a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
44b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 4c 41 50 50 ;. }. LAPP
44c0: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
44d0: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 resultObj, "name
44e0: 22 2c 20 6e 61 6d 65 2c 20 2d 31 29 3b 0a 20 20 ", name, -1);.
44f0: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
4500: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
4510: 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 "description",
4520: 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 "", -1);. LAP
4530: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
4540: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f resultObj, "pro
4550: 76 69 64 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b vider", "", -1);
4560: 0a 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a .. Tcl_SetObj
4570: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 Result(interp, r
4580: 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 esultObj);. r
4590: 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a eturn res;.}../*
45a0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
45b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45e0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 ------. *. * Mac
45f0: 4c 69 73 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 List --. *. *.Re
4600: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 turn a list of a
4610: 6c 6c 20 4d 41 43 20 61 6c 67 6f 72 69 74 68 6d ll MAC algorithm
4620: 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a s. *. * Results:
4630: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
4640: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
4650: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4660: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
4670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
46a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
46b0: 2a 2f 0a 69 6e 74 20 4d 61 63 4c 69 73 74 28 54 */.int MacList(T
46c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
46d0: 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a p) {. Tcl_Obj
46e0: 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 *resultObj = Tc
46f0: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 l_NewListObj(0,
4700: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 NULL);. if (r
4710: 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c esultObj == NULL
4720: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
4730: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
4740: 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 Tcl_ListObjApp
4750: 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 endElement(inter
4760: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 p, resultObj, Tc
4770: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
4780: 63 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 20 20 cmac", -1));.
4790: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
47a0: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
47b0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c , resultObj, Tcl
47c0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 68 _NewStringObj("h
47d0: 6d 61 63 22 2c 20 2d 31 29 29 3b 0a 20 20 20 20 mac", -1));.
47e0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
47f0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
4800: 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 bj);. return
4810: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a TCL_OK;.}../*. *
4820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4860: 2d 2d 2d 0a 20 2a 0a 20 2a 20 4d 61 63 73 4f 62 ---. *. * MacsOb
4870: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 jCmd --. *. *.Re
4880: 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 turn a list of a
4890: 6c 6c 20 76 61 6c 69 64 20 6d 65 73 73 61 67 65 ll valid message
48a0: 20 61 75 74 68 65 6e 74 69 63 61 74 69 6f 6e 20 authentication
48b0: 63 6f 64 65 73 20 28 4d 41 43 29 2e 0a 20 2a 0a codes (MAC).. *.
48c0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 * Results:. *.A
48d0: 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 standard Tcl li
48e0: 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 st.. *. * Side e
48f0: 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e ffects:. *.None.
4900: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
4910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
4950: 74 20 4d 61 63 73 4f 62 6a 43 6d 64 28 43 6c 69 t MacsObjCmd(Cli
4960: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
4970: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
4980: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
4990: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
49a0: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 objv[]) {. (
49b0: 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 void) clientData
49c0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
49d0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
49e0: 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a * Clear errors *
49f0: 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 /. Tcl_ResetR
4a00: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 esult(interp);.
4a10: 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 ERR_clear_err
4a20: 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 or();.. /* Va
4a30: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
4a40: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
4a50: 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e == 1) {..return
4a60: 20 4d 61 63 4c 69 73 74 28 69 6e 74 65 72 70 29 MacList(interp)
4a70: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ;.. } else if
4a80: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 (objc == 2) {..
4a90: 72 65 74 75 72 6e 20 4d 61 63 49 6e 66 6f 28 69 return MacInfo(i
4aa0: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b nterp, objv[1]);
4ab0: 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
4ac0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
4ad0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
4ae0: 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 , "?name?");..re
4af0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4b00: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
4b10: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a TCL_OK;.}../***
4b20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4b30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4b40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4b50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
4b60: 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d /../*. *--------
4b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
4bb0: 2a 20 50 6b 65 79 49 6e 66 6f 20 2d 2d 0a 20 2a * PkeyInfo --. *
4bc0: 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 . *.Return a lis
4bd0: 74 20 6f 66 20 70 72 6f 70 65 72 74 69 65 73 20 t of properties
4be0: 61 6e 64 20 76 61 6c 75 65 73 20 66 6f 72 20 70 and values for p
4bf0: 6b 65 79 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c key.. *. * Resul
4c00: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
4c10: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 d Tcl list.. *.
4c20: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
4c30: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c80: 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 49 6e -. */.int PkeyIn
4c90: 66 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 fo(Tcl_Interp *i
4ca0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a nterp, Tcl_Obj *
4cb0: 6e 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 54 nameObj) {. T
4cc0: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
4cd0: 6a 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 3d j;. int res =
4ce0: 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 68 61 TCL_OK;. cha
4cf0: 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 r *name = Tcl_Ge
4d00: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6e tStringFromObj(n
4d10: 61 6d 65 4f 62 6a 2c 4e 55 4c 4c 29 3b 0a 20 20 ameObj,NULL);.
4d20: 20 20 45 56 50 5f 50 4b 45 59 20 2a 70 6b 65 79 EVP_PKEY *pkey
4d30: 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 69 66 = NULL;.. if
4d40: 20 28 70 6b 65 79 20 3d 3d 20 4e 55 4c 4c 29 20 (pkey == NULL)
4d50: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
4d60: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 ult(interp, "Inv
4d70: 61 6c 69 64 20 70 75 62 6c 69 63 20 6b 65 79 20 alid public key
4d80: 6d 65 74 68 6f 64 20 5c 22 22 2c 20 6e 61 6d 65 method \"", name
4d90: 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 , "\"", NULL);..
4da0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4db0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
4dc0: 47 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a Get properties *
4dd0: 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 /. resultObj
4de0: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
4df0: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 (0, NULL);. i
4e00: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
4e10: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
4e20: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
4e30: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
4e40: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
4e50: 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 4f 42 4a 5f bj, "name", OBJ_
4e60: 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f nid2ln(EVP_PKEY_
4e70: 69 64 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b 0a id(pkey)), -1);.
4e80: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
4e90: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
4ea0: 6a 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 j, "description"
4eb0: 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c , "", -1);. L
4ec0: 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 APPEND_INT(inter
4ed0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73 p, resultObj, "s
4ee0: 69 7a 65 22 2c 20 45 56 50 5f 50 4b 45 59 5f 73 ize", EVP_PKEY_s
4ef0: 69 7a 65 28 70 6b 65 79 29 29 3b 0a 20 20 20 20 ize(pkey));.
4f00: 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 LAPPEND_INT(inte
4f10: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
4f20: 62 69 74 73 22 2c 20 45 56 50 5f 50 4b 45 59 5f bits", EVP_PKEY_
4f30: 62 69 74 73 28 70 6b 65 79 29 29 3b 0a 20 20 20 bits(pkey));.
4f40: 20 4c 41 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 LAPPEND_INT(int
4f50: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
4f60: 22 73 65 63 75 72 69 74 79 5f 62 69 74 73 22 2c "security_bits",
4f70: 20 45 56 50 5f 50 4b 45 59 5f 73 65 63 75 72 69 EVP_PKEY_securi
4f80: 74 79 5f 62 69 74 73 28 70 6b 65 79 29 29 3b 0a ty_bits(pkey));.
4f90: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
4fa0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
4fb0: 6a 2c 20 22 62 61 73 65 49 64 22 2c 20 4f 42 4a j, "baseId", OBJ
4fc0: 5f 6e 69 64 32 6c 6e 28 45 56 50 5f 50 4b 45 59 _nid2ln(EVP_PKEY
4fd0: 5f 62 61 73 65 5f 69 64 28 70 6b 65 79 29 29 2c _base_id(pkey)),
4fe0: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
4ff0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
5000: 73 75 6c 74 4f 62 6a 2c 20 22 70 72 6f 76 69 64 sultObj, "provid
5010: 65 72 22 2c 20 22 22 2c 20 2d 31 29 3b 0a 20 20 er", "", -1);.
5020: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
5030: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
5040: 20 22 74 79 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 "type", OBJ_nid
5050: 32 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 74 79 70 2ln(EVP_PKEY_typ
5060: 65 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b e(EVP_PKEY_id(pk
5070: 65 79 29 29 29 2c 20 2d 31 29 3b 0a 0a 20 20 20 ey))), -1);..
5080: 20 7b 0a 09 69 6e 74 20 70 6e 69 64 3b 0a 09 69 {..int pnid;..i
5090: 66 20 28 45 56 50 5f 50 4b 45 59 5f 67 65 74 5f f (EVP_PKEY_get_
50a0: 64 65 66 61 75 6c 74 5f 64 69 67 65 73 74 5f 6e default_digest_n
50b0: 69 64 28 70 6b 65 79 2c 20 26 70 6e 69 64 29 20 id(pkey, &pnid)
50c0: 3e 20 30 29 20 7b 0a 09 20 20 20 20 4c 41 50 50 > 0) {.. LAPP
50d0: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
50e0: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 66 61 resultObj, "defa
50f0: 75 6c 74 5f 64 69 67 65 73 74 22 2c 20 4f 42 4a ult_digest", OBJ
5100: 5f 6e 69 64 32 6c 6e 28 70 6e 69 64 29 2c 20 2d _nid2ln(pnid), -
5110: 32 29 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 2);..}. }..
5120: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
5130: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
5140: 74 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 tObj);. retur
5150: 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d n res;.}../*. *-
5160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51a0: 2d 2d 0a 20 2a 0a 20 2a 20 50 6b 65 79 4c 69 73 --. *. * PkeyLis
51b0: 74 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 t --. *. *.Retur
51c0: 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 n a list of all
51d0: 70 75 62 6c 69 63 20 6b 65 79 20 6d 65 74 68 6f public key metho
51e0: 64 73 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 ds. *. * Results
51f0: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
5200: 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 Tcl list.. *. *
5210: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
5220: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
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 2d 2d 2d 2d 2d ----------------
5260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
5270: 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 4c 69 73 74 */.int PkeyList
5280: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
5290: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f erp) {. Tcl_O
52a0: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 bj *resultObj =
52b0: 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 Tcl_NewListObj(0
52c0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 , NULL);. if
52d0: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
52e0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
52f0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
5300: 20 20 20 20 66 6f 72 20 28 73 69 7a 65 5f 74 20 for (size_t
5310: 69 20 3d 20 30 3b 20 69 20 3c 20 45 56 50 5f 50 i = 0; i < EVP_P
5320: 4b 45 59 5f 6d 65 74 68 5f 67 65 74 5f 63 6f 75 KEY_meth_get_cou
5330: 6e 74 28 29 3b 20 69 2b 2b 29 20 7b 0a 20 20 20 nt(); i++) {.
5340: 20 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 50 const EVP_P
5350: 4b 45 59 5f 4d 45 54 48 4f 44 20 2a 70 6d 65 74 KEY_METHOD *pmet
5360: 68 20 3d 20 45 56 50 5f 50 4b 45 59 5f 6d 65 74 h = EVP_PKEY_met
5370: 68 5f 67 65 74 30 28 69 29 3b 0a 20 20 20 20 20 h_get0(i);.
5380: 20 20 20 69 6e 74 20 70 6b 65 79 5f 69 64 2c 20 int pkey_id,
5390: 70 6b 65 79 5f 66 6c 61 67 73 3b 0a 0a 20 20 20 pkey_flags;..
53a0: 20 20 20 20 20 45 56 50 5f 50 4b 45 59 5f 6d 65 EVP_PKEY_me
53b0: 74 68 5f 67 65 74 30 5f 69 6e 66 6f 28 26 70 6b th_get0_info(&pk
53c0: 65 79 5f 69 64 2c 20 26 70 6b 65 79 5f 66 6c 61 ey_id, &pkey_fla
53d0: 67 73 2c 20 70 6d 65 74 68 29 3b 0a 09 2f 2a 4c gs, pmeth);../*L
53e0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
53f0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 6e p, resultObj, "n
5400: 61 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e ame", OBJ_nid2ln
5410: 28 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29 3b 0a (pkey_id), -1);.
5420: 09 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 .LAPPEND_STR(int
5430: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 erp, resultObj,
5440: 22 74 79 70 65 22 2c 20 70 6b 65 79 5f 66 6c 61 "type", pkey_fla
5450: 67 73 20 26 20 41 53 4e 31 5f 50 4b 45 59 5f 44 gs & ASN1_PKEY_D
5460: 59 4e 41 4d 49 43 20 3f 20 22 45 78 74 65 72 6e YNAMIC ? "Extern
5470: 61 6c 22 20 3a 20 22 42 75 69 6c 74 2d 69 6e 22 al" : "Built-in"
5480: 2c 20 2d 31 29 3b 2a 2f 0a 0a 09 54 63 6c 5f 4c , -1);*/...Tcl_L
5490: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
54a0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ent(interp, resu
54b0: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 ltObj, Tcl_NewSt
54c0: 72 69 6e 67 4f 62 6a 28 4f 42 4a 5f 6e 69 64 32 ringObj(OBJ_nid2
54d0: 6c 6e 28 70 6b 65 79 5f 69 64 29 2c 20 2d 31 29 ln(pkey_id), -1)
54e0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c );. }. Tcl
54f0: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
5500: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 terp, resultObj)
5510: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
5520: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
5530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5570: 0a 20 2a 0a 20 2a 20 50 6b 65 79 73 4f 62 6a 43 . *. * PkeysObjC
5580: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
5590: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c rn a list of all
55a0: 20 76 61 6c 69 64 20 68 61 73 68 20 61 6c 67 6f valid hash algo
55b0: 72 69 74 68 6d 73 20 6f 72 20 6d 65 73 73 61 67 rithms or messag
55c0: 65 20 64 69 67 65 73 74 73 2e 0a 20 2a 0a 20 2a e digests.. *. *
55d0: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
55e0: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 tandard Tcl list
55f0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
5600: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
5610: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5650: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
5660: 50 6b 65 79 73 4f 62 6a 43 6d 64 28 43 6c 69 65 PkeysObjCmd(Clie
5670: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
5680: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
5690: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
56a0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
56b0: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 objv[]) {. (v
56c0: 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b oid) clientData;
56d0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
56e0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
56f0: 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f Clear errors */
5700: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 . Tcl_ResetRe
5710: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
5720: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
5730: 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c r();.. /* Val
5740: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
5750: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
5760: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 1) {..return
5770: 50 6b 65 79 4c 69 73 74 28 69 6e 74 65 72 70 29 PkeyList(interp)
5780: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 ;.. } else if
5790: 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a 09 (objc == 2) {..
57a0: 72 65 74 75 72 6e 20 50 6b 65 79 49 6e 66 6f 28 return PkeyInfo(
57b0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 interp, objv[1])
57c0: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
57d0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
57e0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
57f0: 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 v, "?name?");..r
5800: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
5810: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
5820: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a n TCL_OK;.}../**
5830: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5840: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5850: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5860: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5870: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
5880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
58a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
58b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
58c0: 20 2a 20 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 * ProtocolsObjC
58d0: 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 md --. *. *.Retu
58e0: 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 rn a list of the
58f0: 20 61 76 61 69 6c 61 62 6c 65 20 6f 72 20 73 75 available or su
5900: 70 70 6f 72 74 65 64 20 53 53 4c 2f 54 4c 53 20 pported SSL/TLS
5910: 70 72 6f 74 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 2a protocols.. *. *
5920: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
5930: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 tandard Tcl list
5940: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
5950: 65 63 74 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a ects:. *.none. *
5960: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
5970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
59b0: 63 20 69 6e 74 0a 50 72 6f 74 6f 63 6f 6c 73 4f c int.ProtocolsO
59c0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
59d0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
59e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
59f0: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
5a00: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
5a10: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 ) {. Tcl_Obj
5a20: 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 *resultObj;.
5a30: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 (void) clientDat
5a40: 61 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 a;.. dprintf(
5a50: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
5a60: 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 /* Clear errors
5a70: 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 */. Tcl_Reset
5a80: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
5a90: 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 ERR_clear_er
5aa0: 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 ror();.. /* V
5ab0: 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e alidate arg coun
5ac0: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a t */. if (obj
5ad0: 63 20 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f 57 c != 1) {..Tcl_W
5ae0: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
5af0: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 4c rp, 1, objv, NUL
5b00: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
5b10: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5b20: 20 20 2f 2a 20 4c 69 73 74 20 61 6c 6c 20 70 72 /* List all pr
5b30: 6f 74 6f 63 6f 6c 73 20 2a 2f 0a 20 20 20 20 72 otocols */. r
5b40: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
5b50: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
5b60: 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 L);. if (resu
5b70: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
5b80: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5b90: 4f 52 3b 0a 20 20 20 20 7d 0a 23 69 66 20 4f 50 OR;. }.#if OP
5ba0: 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 ENSSL_VERSION_NU
5bb0: 4d 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30 MBER < 0x1010000
5bc0: 30 4c 20 26 26 20 21 64 65 66 69 6e 65 64 28 4e 0L && !defined(N
5bd0: 4f 5f 53 53 4c 32 29 20 26 26 20 21 64 65 66 69 O_SSL2) && !defi
5be0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 ned(OPENSSL_NO_S
5bf0: 53 4c 32 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 SL2). Tcl_Lis
5c00: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
5c10: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
5c20: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
5c30: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b ngObj(protocols[
5c40: 54 4c 53 5f 53 53 4c 32 5d 2c 20 2d 31 29 29 3b TLS_SSL2], -1));
5c50: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
5c60: 69 6e 65 64 28 4e 4f 5f 53 53 4c 33 29 20 26 26 ined(NO_SSL3) &&
5c70: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
5c80: 4c 5f 4e 4f 5f 53 53 4c 33 29 20 26 26 20 21 64 L_NO_SSL3) && !d
5c90: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
5ca0: 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f 44 29 0a 20 O_SSL3_METHOD).
5cb0: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
5cc0: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
5cd0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
5ce0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
5cf0: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53 protocols[TLS_SS
5d00: 4c 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 L3], -1));.#endi
5d10: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
5d20: 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 65 66 69 O_TLS1) && !defi
5d30: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
5d40: 4c 53 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 LS1) && !defined
5d50: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
5d60: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c _METHOD). Tcl
5d70: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
5d80: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
5d90: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
5da0: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 StringObj(protoc
5db0: 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5d 2c 20 2d ols[TLS_TLS1], -
5dc0: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 66 20 1));.#endif.#if
5dd0: 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 !defined(NO_TLS1
5de0: 5f 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 _1) && !defined(
5df0: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f OPENSSL_NO_TLS1_
5e00: 31 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 1) && !defined(O
5e10: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 PENSSL_NO_TLS1_1
5e20: 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 63 6c _METHOD). Tcl
5e30: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
5e40: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
5e50: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
5e60: 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 StringObj(protoc
5e70: 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 31 5d 2c ols[TLS_TLS1_1],
5e80: 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 -1));.#endif.#i
5e90: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c f !defined(NO_TL
5ea0: 53 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65 S1_2) && !define
5eb0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
5ec0: 31 5f 32 29 20 26 26 20 21 64 65 66 69 6e 65 64 1_2) && !defined
5ed0: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
5ee0: 5f 32 5f 4d 45 54 48 4f 44 29 0a 20 20 20 20 54 _2_METHOD). T
5ef0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
5f00: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
5f10: 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e resultObj, Tcl_N
5f20: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 ewStringObj(prot
5f30: 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 5f 32 ocols[TLS_TLS1_2
5f40: 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a ], -1));.#endif.
5f50: 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f #if !defined(NO_
5f60: 54 4c 53 31 5f 33 29 20 26 26 20 21 64 65 66 69 TLS1_3) && !defi
5f70: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
5f80: 4c 53 31 5f 33 29 0a 20 20 20 20 54 63 6c 5f 4c LS1_3). Tcl_L
5f90: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
5fa0: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ent(interp, resu
5fb0: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 ltObj, Tcl_NewSt
5fc0: 72 69 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c ringObj(protocol
5fd0: 73 5b 54 4c 53 5f 54 4c 53 31 5f 33 5d 2c 20 2d s[TLS_TLS1_3], -
5fe0: 31 29 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 1));.#endif.
5ff0: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
6000: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
6010: 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 bj);. return
6020: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a TCL_OK;.}../****
6030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6040: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6050: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6060: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
6070: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
60c0: 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d VersionObjCmd -
60d0: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
60e0: 20 73 74 72 69 6e 67 20 77 69 74 68 20 74 68 65 string with the
60f0: 20 4f 70 65 6e 53 53 4c 20 76 65 72 73 69 6f 6e OpenSSL version
6100: 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a 20 52 65 73 info.. *. * Res
6110: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
6120: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a ard Tcl result..
6130: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
6140: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
6150: 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6190: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
61a0: 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 int.VersionObjC
61b0: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
61c0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
61d0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
61e0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
61f0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
6200: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
6210: 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 28 76 6f sultObj;. (vo
6220: 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a id) clientData;.
6230: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
6240: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
6250: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
6260: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
6270: 6a 63 20 21 3d 20 31 29 20 7b 0a 09 54 63 6c 5f jc != 1) {..Tcl_
6280: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
6290: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 4e 55 erp, 1, objv, NU
62a0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
62b0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
62c0: 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 resultObj = T
62d0: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
62e0: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
62f0: 54 45 58 54 2c 20 2d 31 29 3b 0a 20 20 20 20 54 TEXT, -1);. T
6300: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
6310: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
6320: 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 j);. return T
6330: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a CL_OK;.}../*****
6340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6360: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6370: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a **************/.
6380: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
6390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
63c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
63d0: 54 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 73 Tls_InfoCommands
63e0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 --. *. *.Create
63f0: 20 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 0a 20 info commands.
6400: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
6410: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
6420: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
6430: 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 effects:. *.Crea
6440: 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a tes commands. *.
6450: 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6490: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c -----. */.int Tl
64a0: 73 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 73 28 54 s_InfoCommands(T
64b0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
64c0: 70 29 20 7b 0a 0a 23 69 66 20 4f 50 45 4e 53 53 p) {..#if OPENSS
64d0: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
64e0: 20 3c 20 30 78 31 30 31 30 30 30 30 30 4c 0a 20 < 0x10100000L.
64f0: 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 OpenSSL_add_a
6500: 6c 6c 5f 63 69 70 68 65 72 73 28 29 3b 0a 20 20 ll_ciphers();.
6510: 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c OpenSSL_add_al
6520: 6c 5f 64 69 67 65 73 74 73 28 29 3b 0a 20 20 20 l_digests();.
6530: 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f 61 6c 6c OpenSSL_add_all
6540: 5f 61 6c 67 6f 72 69 74 68 6d 73 28 29 3b 0a 23 _algorithms();.#
6550: 65 6e 64 69 66 0a 0a 20 20 20 20 54 63 6c 5f 43 endif.. Tcl_C
6560: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
6570: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 interp, "tls::ci
6580: 70 68 65 72 22 2c 20 43 69 70 68 65 72 4f 62 6a pher", CipherObj
6590: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
65a0: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
65b0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
65c0: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
65d0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
65e0: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 terp, "tls::ciph
65f0: 65 72 73 22 2c 20 43 69 70 68 65 72 73 4f 62 6a ers", CiphersObj
6600: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
6610: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
6620: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
6630: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
6640: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
6650: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 64 69 67 65 terp, "tls::dige
6660: 73 74 73 22 2c 20 44 69 67 65 73 74 73 4f 62 6a sts", DigestsObj
6670: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
6680: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
6690: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
66a0: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
66b0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
66c0: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6b 64 66 73 terp, "tls::kdfs
66d0: 22 2c 20 4b 64 66 73 4f 62 6a 43 6d 64 2c 20 28 ", KdfsObjCmd, (
66e0: 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c ClientData) NULL
66f0: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
6700: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
6710: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
6720: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
6730: 22 74 6c 73 3a 3a 6d 61 63 73 22 2c 20 4d 61 63 "tls::macs", Mac
6740: 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 sObjCmd, (Client
6750: 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c Data) NULL, (Tcl
6760: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
6770: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
6780: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
6790: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
67a0: 70 6b 65 79 73 22 2c 20 50 6b 65 79 73 4f 62 6a pkeys", PkeysObj
67b0: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
67c0: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
67d0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
67e0: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
67f0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
6800: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 72 6f 74 terp, "tls::prot
6810: 6f 63 6f 6c 73 22 2c 20 50 72 6f 74 6f 63 6f 6c ocols", Protocol
6820: 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 sObjCmd, (Client
6830: 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c Data) NULL, (Tcl
6840: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
6850: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
6860: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
6870: 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a d(interp, "tls::
6880: 76 65 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f version", Versio
6890: 6e 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 nObjCmd, (Client
68a0: 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c Data) NULL, (Tcl
68b0: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
68c0: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 ) NULL);. ret
68d0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a urn TCL_OK;.}..