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 64 70 objv[]) {. dp
18b0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
18c0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 .. /* Clear e
18d0: 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c rrors */. Tcl
18e0: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 _ResetResult(int
18f0: 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c erp);. ERR_cl
1900: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 ear_error();..
1910: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
1920: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 g count */. i
1930: 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 7b 0a f (objc == 1) {.
1940: 09 72 65 74 75 72 6e 20 43 69 70 68 65 72 4c 69 .return CipherLi
1950: 73 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 st(interp);..
1960: 20 7d 20 65 6c 73 65 20 69 66 20 28 6f 62 6a 63 } else if (objc
1970: 20 3d 3d 20 32 29 20 7b 0a 09 72 65 74 75 72 6e == 2) {..return
1980: 20 43 69 70 68 65 72 49 6e 66 6f 28 69 6e 74 65 CipherInfo(inte
1990: 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 3b 0a 0a 20 rp, objv[1]);..
19a0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c } else {..Tcl
19b0: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
19c0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
19d0: 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 65 74 75 72 ?name?");..retur
19e0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
19f0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 }. return TC
1a00: 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e 74 44 61 74 L_OK;..clientDat
1a10: 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a a = clientData;.
1a20: 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 0a 20 2a 0a 20 -----------. *.
1a70: 2a 20 43 69 70 68 65 72 73 4f 62 6a 43 6d 64 20 * CiphersObjCmd
1a80: 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 70 72 --. *. *.This pr
1a90: 6f 63 65 64 75 72 65 20 69 73 20 69 6e 76 6f 6b ocedure is invok
1aa0: 65 64 20 74 6f 20 70 72 6f 63 65 73 73 20 74 68 ed to process th
1ab0: 65 20 22 74 6c 73 3a 3a 63 69 70 68 65 72 73 22 e "tls::ciphers"
1ac0: 20 63 6f 6d 6d 61 6e 64 0a 20 2a 09 74 6f 20 6c command. *.to l
1ad0: 69 73 74 20 61 76 61 69 6c 61 62 6c 65 20 63 69 ist available ci
1ae0: 70 68 65 72 73 2c 20 62 61 73 65 64 20 75 70 6f phers, based upo
1af0: 6e 20 70 72 6f 74 6f 63 6f 6c 20 73 65 6c 65 63 n protocol selec
1b00: 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ted.. *. * Resul
1b10: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
1b20: 64 20 54 63 6c 20 72 65 73 75 6c 74 20 6c 69 73 d Tcl result lis
1b30: 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 t.. *. * Side ef
1b40: 66 65 63 74 73 3a 0a 20 2a 09 63 6f 6e 73 74 72 fects:. *.constr
1b50: 75 63 74 73 20 61 6e 64 20 64 65 73 74 72 6f 79 ucts and destroy
1b60: 73 20 53 53 4c 20 63 6f 6e 74 65 78 74 20 28 43 s SSL context (C
1b70: 54 58 29 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d TX). *. *-------
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 2d 2d 0a 20 2a 2f ------------. */
1bc0: 0a 73 74 61 74 69 63 20 69 6e 74 20 43 69 70 68 .static int Ciph
1bd0: 65 72 73 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 ersObjCmd(Client
1be0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
1bf0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
1c00: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
1c10: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
1c20: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 53 53 4c 5f jv[]) {. SSL_
1c30: 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b CTX *ctx = NULL;
1c40: 0a 20 20 20 20 53 53 4c 20 2a 73 73 6c 20 3d 20 . SSL *ssl =
1c50: 4e 55 4c 4c 3b 0a 20 20 20 20 53 54 41 43 4b 5f NULL;. STACK_
1c60: 4f 46 28 53 53 4c 5f 43 49 50 48 45 52 29 20 2a OF(SSL_CIPHER) *
1c70: 73 6b 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 sk = NULL;. i
1c80: 6e 74 20 69 6e 64 65 78 2c 20 76 65 72 62 6f 73 nt index, verbos
1c90: 65 20 3d 20 30 2c 20 75 73 65 5f 73 75 70 70 6f e = 0, use_suppo
1ca0: 72 74 65 64 20 3d 20 30 2c 20 72 65 73 20 3d 20 rted = 0, res =
1cb0: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 69 6e 74 20 TCL_OK;. int
1cc0: 6d 69 6e 5f 76 65 72 73 69 6f 6e 2c 20 6d 61 78 min_version, max
1cd0: 5f 76 65 72 73 69 6f 6e 3b 0a 0a 20 20 20 20 64 _version;.. d
1ce0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
1cf0: 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 ;.. /* Clear
1d00: 65 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 errors */. Tc
1d10: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
1d20: 74 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 terp);. ERR_c
1d30: 6c 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 lear_error();..
1d40: 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 /* Validate a
1d50: 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 rg count */.
1d60: 69 66 20 28 6f 62 6a 63 20 3e 20 34 29 20 7b 0a if (objc > 4) {.
1d70: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
1d80: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
1d90: 76 2c 20 22 3f 70 72 6f 74 6f 63 6f 6c 3f 20 3f v, "?protocol? ?
1da0: 76 65 72 62 6f 73 65 3f 20 3f 73 75 70 70 6f 72 verbose? ?suppor
1db0: 74 65 64 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ted?");..return
1dc0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
1dd0: 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 61 6c .. /* List al
1de0: 6c 20 63 69 70 68 65 72 73 20 2a 2f 0a 20 20 20 l ciphers */.
1df0: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 31 29 20 if (objc == 1)
1e00: 7b 0a 09 72 65 74 75 72 6e 20 43 69 70 68 65 72 {..return Cipher
1e10: 4c 69 73 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 List(interp);.
1e20: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 }.. /* Get
1e30: 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 options */. i
1e40: 66 20 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 f (Tcl_GetIndexF
1e50: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f romObj(interp, o
1e60: 62 6a 76 5b 31 5d 2c 20 70 72 6f 74 6f 63 6f 6c bjv[1], protocol
1e70: 73 2c 20 22 70 72 6f 74 6f 63 6f 6c 22 2c 20 30 s, "protocol", 0
1e80: 2c 20 26 69 6e 64 65 78 29 20 21 3d 20 54 43 4c , &index) != TCL
1e90: 5f 4f 4b 20 7c 7c 0a 09 28 6f 62 6a 63 20 3e 20 _OK ||..(objc >
1ea0: 32 20 26 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 2 && Tcl_GetBool
1eb0: 65 61 6e 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 eanFromObj(inter
1ec0: 70 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 76 65 72 p, objv[2], &ver
1ed0: 62 6f 73 65 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 bose) != TCL_OK)
1ee0: 20 7c 7c 0a 09 28 6f 62 6a 63 20 3e 20 33 20 26 ||..(objc > 3 &
1ef0: 26 20 54 63 6c 5f 47 65 74 42 6f 6f 6c 65 61 6e & Tcl_GetBoolean
1f00: 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 FromObj(interp,
1f10: 6f 62 6a 76 5b 33 5d 2c 20 26 75 73 65 5f 73 75 objv[3], &use_su
1f20: 70 70 6f 72 74 65 64 29 20 21 3d 20 54 43 4c 5f pported) != TCL_
1f30: 4f 4b 29 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 OK)) {..return T
1f40: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
1f50: 0a 20 20 20 20 73 77 69 74 63 68 20 28 28 65 6e . switch ((en
1f60: 75 6d 20 70 72 6f 74 6f 63 6f 6c 29 69 6e 64 65 um protocol)inde
1f70: 78 29 20 7b 0a 09 63 61 73 65 20 54 4c 53 5f 53 x) {..case TLS_S
1f80: 53 4c 32 3a 0a 09 20 20 20 20 54 63 6c 5f 41 70 SL2:.. Tcl_Ap
1f90: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
1fa0: 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 p, protocols[ind
1fb0: 65 78 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c ex], ": protocol
1fc0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c not supported",
1fd0: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
1fe0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
1ff0: 63 61 73 65 20 54 4c 53 5f 53 53 4c 33 3a 0a 23 case TLS_SSL3:.#
2000: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 if defined(NO_SS
2010: 4c 33 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f L3) || defined(O
2020: 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 20 PENSSL_NO_SSL3)
2030: 7c 7c 20 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 || defined(OPENS
2040: 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 48 4f SL_NO_SSL3_METHO
2050: 44 29 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 D).. Tcl_Appe
2060: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
2070: 20 70 72 6f 74 6f 63 6f 6c 73 5b 69 6e 64 65 78 protocols[index
2080: 5d 2c 20 22 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e ], ": protocol n
2090: 6f 74 20 73 75 70 70 6f 72 74 65 64 22 2c 20 4e ot supported", N
20a0: 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 75 72 ULL);.. retur
20b0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 23 65 6c n TCL_ERROR;.#el
20c0: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d se. m
20d0: 69 6e 5f 76 65 72 73 69 6f 6e 20 3d 20 53 53 4c in_version = SSL
20e0: 33 5f 56 45 52 53 49 4f 4e 3b 0a 20 20 20 20 20 3_VERSION;.
20f0: 20 20 20 20 20 20 20 6d 61 78 5f 76 65 72 73 69 max_versi
2100: 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f on = SSL3_VERSIO
2110: 4e 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 N;.. break;.#
2120: 65 6e 64 69 66 0a 09 63 61 73 65 20 54 4c 53 5f endif..case TLS_
2130: 54 4c 53 31 3a 0a 23 69 66 20 64 65 66 69 6e 65 TLS1:.#if define
2140: 64 28 4e 4f 5f 54 4c 53 31 29 20 7c 7c 20 64 65 d(NO_TLS1) || de
2150: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
2160: 5f 54 4c 53 31 29 20 7c 7c 20 64 65 66 69 6e 65 _TLS1) || define
2170: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
2180: 31 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 1_METHOD).. T
2190: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
21a0: 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c interp, protocol
21b0: 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f s[index], ": pro
21c0: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
21d0: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 ted", NULL);..
21e0: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
21f0: 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 OR;.#else.
2200: 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f min_versio
2210: 6e 20 3d 20 54 4c 53 31 5f 56 45 52 53 49 4f 4e n = TLS1_VERSION
2220: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 ;. ma
2230: 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 31 x_version = TLS1
2240: 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 20 20 62 _VERSION;.. b
2250: 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a 09 63 61 reak;.#endif..ca
2260: 73 65 20 54 4c 53 5f 54 4c 53 31 5f 31 3a 0a 23 se TLS_TLS1_1:.#
2270: 69 66 20 64 65 66 69 6e 65 64 28 4e 4f 5f 54 4c if defined(NO_TL
2280: 53 31 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 S1_1) || defined
2290: 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 (OPENSSL_NO_TLS1
22a0: 5f 31 29 20 7c 7c 20 64 65 66 69 6e 65 64 28 4f _1) || defined(O
22b0: 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 31 5f 31 PENSSL_NO_TLS1_1
22c0: 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 20 54 63 _METHOD).. Tc
22d0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
22e0: 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c 73 nterp, protocols
22f0: 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f 74 [index], ": prot
2300: 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 74 ocol not support
2310: 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 ed", NULL);..
2320: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
2330: 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 20 R;.#else.
2340: 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f 6e min_version
2350: 20 3d 20 54 4c 53 31 5f 31 5f 56 45 52 53 49 4f = TLS1_1_VERSIO
2360: 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d N;. m
2370: 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 ax_version = TLS
2380: 31 5f 31 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 1_1_VERSION;..
2390: 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 0a break;.#endif.
23a0: 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 31 5f 32 .case TLS_TLS1_2
23b0: 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 28 4e 4f :.#if defined(NO
23c0: 5f 54 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 _TLS1_2) || defi
23d0: 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 ned(OPENSSL_NO_T
23e0: 4c 53 31 5f 32 29 20 7c 7c 20 64 65 66 69 6e 65 LS1_2) || define
23f0: 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 54 4c 53 d(OPENSSL_NO_TLS
2400: 31 5f 32 5f 4d 45 54 48 4f 44 29 0a 09 20 20 20 1_2_METHOD)..
2410: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c Tcl_AppendResul
2420: 74 28 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 t(interp, protoc
2430: 6f 6c 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 ols[index], ": p
2440: 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 rotocol not supp
2450: 6f 72 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 orted", NULL);..
2460: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
2470: 52 52 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 RROR;.#else.
2480: 20 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 min_vers
2490: 69 6f 6e 20 3d 20 54 4c 53 31 5f 32 5f 56 45 52 ion = TLS1_2_VER
24a0: 53 49 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 SION;.
24b0: 20 20 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 max_version =
24c0: 54 4c 53 31 5f 32 5f 56 45 52 53 49 4f 4e 3b 0a TLS1_2_VERSION;.
24d0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 . break;.#end
24e0: 69 66 0a 09 63 61 73 65 20 54 4c 53 5f 54 4c 53 if..case TLS_TLS
24f0: 31 5f 33 3a 0a 23 69 66 20 64 65 66 69 6e 65 64 1_3:.#if defined
2500: 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 7c 7c 20 64 (NO_TLS1_3) || d
2510: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
2520: 4f 5f 54 4c 53 31 5f 33 29 0a 09 20 20 20 20 54 O_TLS1_3).. T
2530: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
2540: 69 6e 74 65 72 70 2c 20 70 72 6f 74 6f 63 6f 6c interp, protocol
2550: 73 5b 69 6e 64 65 78 5d 2c 20 22 3a 20 70 72 6f s[index], ": pro
2560: 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 70 6f 72 tocol not suppor
2570: 74 65 64 22 2c 20 4e 55 4c 4c 29 3b 0a 09 20 20 ted", NULL);..
2580: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
2590: 4f 52 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20 20 OR;.#else.
25a0: 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 6f min_versio
25b0: 6e 20 3d 20 54 4c 53 31 5f 33 5f 56 45 52 53 49 n = TLS1_3_VERSI
25c0: 4f 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ON;.
25d0: 6d 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c max_version = TL
25e0: 53 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 S1_3_VERSION;..
25f0: 20 20 20 62 72 65 61 6b 3b 0a 23 65 6e 64 69 66 break;.#endif
2600: 0a 09 64 65 66 61 75 6c 74 3a 0a 20 20 20 20 20 ..default:.
2610: 20 20 20 20 20 20 20 6d 69 6e 5f 76 65 72 73 69 min_versi
2620: 6f 6e 20 3d 20 53 53 4c 33 5f 56 45 52 53 49 4f on = SSL3_VERSIO
2630: 4e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d N;. m
2640: 61 78 5f 76 65 72 73 69 6f 6e 20 3d 20 54 4c 53 ax_version = TLS
2650: 31 5f 33 5f 56 45 52 53 49 4f 4e 3b 0a 09 20 20 1_3_VERSION;..
2660: 20 20 62 72 65 61 6b 3b 0a 20 20 20 20 7d 0a 0a break;. }..
2670: 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 63 6f /* Create co
2680: 6e 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 66 20 ntext */. if
2690: 28 28 63 74 78 20 3d 20 53 53 4c 5f 43 54 58 5f ((ctx = SSL_CTX_
26a0: 6e 65 77 28 54 4c 53 5f 73 65 72 76 65 72 5f 6d new(TLS_server_m
26b0: 65 74 68 6f 64 28 29 29 29 20 3d 3d 20 4e 55 4c ethod())) == NUL
26c0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
26d0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 52 Result(interp, R
26e0: 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a EASON(), NULL);.
26f0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
2700: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
2710: 20 53 65 74 20 70 72 6f 74 6f 63 6f 6c 20 76 65 Set protocol ve
2720: 72 73 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 rsions */. if
2730: 20 28 53 53 4c 5f 43 54 58 5f 73 65 74 5f 6d 69 (SSL_CTX_set_mi
2740: 6e 5f 70 72 6f 74 6f 5f 76 65 72 73 69 6f 6e 28 n_proto_version(
2750: 63 74 78 2c 20 6d 69 6e 5f 76 65 72 73 69 6f 6e ctx, min_version
2760: 29 20 3d 3d 20 30 20 7c 7c 0a 09 53 53 4c 5f 43 ) == 0 ||..SSL_C
2770: 54 58 5f 73 65 74 5f 6d 61 78 5f 70 72 6f 74 6f TX_set_max_proto
2780: 5f 76 65 72 73 69 6f 6e 28 63 74 78 2c 20 6d 61 _version(ctx, ma
2790: 78 5f 76 65 72 73 69 6f 6e 29 20 3d 3d 20 30 29 x_version) == 0)
27a0: 20 7b 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 {..SSL_CTX_free
27b0: 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 (ctx);..return T
27c0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
27d0: 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 53 . /* Create S
27e0: 53 4c 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 SL context */.
27f0: 20 20 69 66 20 28 28 73 73 6c 20 3d 20 53 53 4c if ((ssl = SSL
2800: 5f 6e 65 77 28 63 74 78 29 29 20 3d 3d 20 4e 55 _new(ctx)) == NU
2810: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e LL) {..Tcl_Appen
2820: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
2830: 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b REASON(), NULL);
2840: 0a 09 53 53 4c 5f 43 54 58 5f 66 72 65 65 28 63 ..SSL_CTX_free(c
2850: 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c tx);..return TCL
2860: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
2870: 20 20 20 2f 2a 20 55 73 65 20 6c 69 73 74 20 61 /* Use list a
2880: 6e 64 20 6f 72 64 65 72 20 61 73 20 77 6f 75 6c nd order as woul
2890: 64 20 62 65 20 73 65 6e 74 20 69 6e 20 61 20 43 d be sent in a C
28a0: 6c 69 65 6e 74 48 65 6c 6c 6f 20 6f 72 20 61 6c lientHello or al
28b0: 6c 20 61 76 61 69 6c 61 62 6c 65 20 63 69 70 68 l available ciph
28c0: 65 72 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 75 ers */. if (u
28d0: 73 65 5f 73 75 70 70 6f 72 74 65 64 29 20 7b 0a se_supported) {.
28e0: 09 73 6b 20 3d 20 53 53 4c 5f 67 65 74 31 5f 73 .sk = SSL_get1_s
28f0: 75 70 70 6f 72 74 65 64 5f 63 69 70 68 65 72 73 upported_ciphers
2900: 28 73 73 6c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 (ssl);. } els
2910: 65 20 7b 0a 09 73 6b 20 3d 20 53 53 4c 5f 67 65 e {..sk = SSL_ge
2920: 74 5f 63 69 70 68 65 72 73 28 73 73 6c 29 3b 0a t_ciphers(ssl);.
2930: 09 2f 2a 73 6b 20 3d 20 53 53 4c 5f 43 54 58 5f ./*sk = SSL_CTX_
2940: 67 65 74 5f 63 69 70 68 65 72 73 28 63 74 78 29 get_ciphers(ctx)
2950: 3b 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 ;*/. }.. i
2960: 66 20 28 73 6b 20 21 3d 20 4e 55 4c 4c 29 20 7b f (sk != NULL) {
2970: 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c ..Tcl_Obj *resul
2980: 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 0a 09 69 tObj = NULL;...i
2990: 66 20 28 21 76 65 72 62 6f 73 65 29 20 7b 0a 09 f (!verbose) {..
29a0: 20 20 20 20 63 68 61 72 20 2a 63 70 3b 0a 09 20 char *cp;..
29b0: 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 resultObj = T
29c0: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
29d0: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 69 66 20 NULL);.. if
29e0: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
29f0: 4c 4c 29 20 7b 0a 09 09 72 65 73 20 3d 20 54 43 LL) {...res = TC
2a00: 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 L_ERROR;...goto
2a10: 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 done;.. }...
2a20: 20 20 20 66 6f 72 20 28 69 6e 74 20 69 20 3d 20 for (int i =
2a30: 30 3b 20 69 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 0; i < sk_SSL_CI
2a40: 50 48 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 2b PHER_num(sk); i+
2a50: 2b 29 20 7b 0a 09 09 63 6f 6e 73 74 20 53 53 4c +) {...const SSL
2a60: 5f 43 49 50 48 45 52 20 2a 63 20 3d 20 73 6b 5f _CIPHER *c = sk_
2a70: 53 53 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 SSL_CIPHER_value
2a80: 28 73 6b 2c 20 69 29 3b 0a 09 09 69 66 20 28 63 (sk, i);...if (c
2a90: 20 3d 3d 20 4e 55 4c 4c 29 20 63 6f 6e 74 69 6e == NULL) contin
2aa0: 75 65 3b 0a 0a 09 09 2f 2a 20 63 69 70 68 65 72 ue;..../* cipher
2ab0: 20 6e 61 6d 65 20 6f 72 20 28 4e 4f 4e 45 29 20 name or (NONE)
2ac0: 2a 2f 0a 09 09 63 70 20 3d 20 53 53 4c 5f 43 49 */...cp = SSL_CI
2ad0: 50 48 45 52 5f 67 65 74 5f 6e 61 6d 65 28 63 29 PHER_get_name(c)
2ae0: 3b 0a 09 09 69 66 20 28 63 70 20 3d 3d 20 4e 55 ;...if (cp == NU
2af0: 4c 4c 29 20 62 72 65 61 6b 3b 0a 09 09 54 63 6c LL) break;...Tcl
2b00: 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c _ListObjAppendEl
2b10: 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 ement(interp, re
2b20: 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 sultObj, Tcl_New
2b30: 53 74 72 69 6e 67 4f 62 6a 28 63 70 2c 20 2d 31 StringObj(cp, -1
2b40: 29 29 3b 0a 09 20 20 20 20 7d 0a 0a 09 7d 20 65 ));.. }...} e
2b50: 6c 73 65 20 7b 0a 09 20 20 20 20 63 68 61 72 20 lse {.. char
2b60: 62 75 66 5b 42 55 46 53 49 5a 5d 3b 0a 09 20 20 buf[BUFSIZ];..
2b70: 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 resultObj = Tc
2b80: 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 l_NewStringObj("
2b90: 22 2c 30 29 3b 0a 09 20 20 20 20 69 66 20 28 72 ",0);.. if (r
2ba0: 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c esultObj == NULL
2bb0: 29 20 7b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f ) {...res = TCL_
2bc0: 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f ERROR;...goto do
2bd0: 6e 65 3b 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 ne;.. }...
2be0: 20 66 6f 72 20 28 69 6e 74 20 69 20 3d 20 30 3b for (int i = 0;
2bf0: 20 69 20 3c 20 73 6b 5f 53 53 4c 5f 43 49 50 48 i < sk_SSL_CIPH
2c00: 45 52 5f 6e 75 6d 28 73 6b 29 3b 20 69 2b 2b 29 ER_num(sk); i++)
2c10: 20 7b 0a 09 09 63 6f 6e 73 74 20 53 53 4c 5f 43 {...const SSL_C
2c20: 49 50 48 45 52 20 2a 63 20 3d 20 73 6b 5f 53 53 IPHER *c = sk_SS
2c30: 4c 5f 43 49 50 48 45 52 5f 76 61 6c 75 65 28 73 L_CIPHER_value(s
2c40: 6b 2c 20 69 29 3b 0a 09 09 69 66 20 28 63 20 3d k, i);...if (c =
2c50: 3d 20 4e 55 4c 4c 29 20 63 6f 6e 74 69 6e 75 65 = NULL) continue
2c60: 3b 0a 0a 09 09 2f 2a 20 74 65 78 74 75 61 6c 20 ;..../* textual
2c70: 64 65 73 63 72 69 70 74 69 6f 6e 20 6f 66 20 74 description of t
2c80: 68 65 20 63 69 70 68 65 72 20 2a 2f 0a 09 09 69 he cipher */...i
2c90: 66 20 28 53 53 4c 5f 43 49 50 48 45 52 5f 64 65 f (SSL_CIPHER_de
2ca0: 73 63 72 69 70 74 69 6f 6e 28 63 2c 20 62 75 66 scription(c, buf
2cb0: 2c 20 73 69 7a 65 6f 66 28 62 75 66 29 29 20 21 , sizeof(buf)) !
2cc0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 20 20 20 20 = NULL) {...
2cd0: 54 63 6c 5f 41 70 70 65 6e 64 54 6f 4f 62 6a 28 Tcl_AppendToObj(
2ce0: 72 65 73 75 6c 74 4f 62 6a 2c 20 62 75 66 2c 20 resultObj, buf,
2cf0: 28 54 63 6c 5f 53 69 7a 65 29 20 73 74 72 6c 65 (Tcl_Size) strle
2d00: 6e 28 62 75 66 29 29 3b 0a 09 09 7d 20 65 6c 73 n(buf));...} els
2d10: 65 20 7b 0a 09 09 20 20 20 20 54 63 6c 5f 41 70 e {... Tcl_Ap
2d20: 70 65 6e 64 54 6f 4f 62 6a 28 72 65 73 75 6c 74 pendToObj(result
2d30: 4f 62 6a 2c 20 22 55 4e 4b 4e 4f 57 4e 5c 6e 22 Obj, "UNKNOWN\n"
2d40: 2c 20 38 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d , 8);...}.. }
2d50: 0a 09 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 20 75 ..}.../* Clean u
2d60: 70 20 2a 2f 0a 09 69 66 20 28 75 73 65 5f 73 75 p */..if (use_su
2d70: 70 70 6f 72 74 65 64 29 20 7b 0a 09 20 20 20 20 pported) {..
2d80: 73 6b 5f 53 53 4c 5f 43 49 50 48 45 52 5f 66 72 sk_SSL_CIPHER_fr
2d90: 65 65 28 73 6b 29 3b 0a 09 7d 0a 09 54 63 6c 5f ee(sk);..}..Tcl_
2da0: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
2db0: 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b erp, resultObj);
2dc0: 0a 20 20 20 20 7d 0a 0a 64 6f 6e 65 3a 0a 20 20 . }..done:.
2dd0: 20 20 53 53 4c 5f 66 72 65 65 28 73 73 6c 29 3b SSL_free(ssl);
2de0: 0a 20 20 20 20 53 53 4c 5f 43 54 58 5f 66 72 65 . SSL_CTX_fre
2df0: 65 28 63 74 78 29 3b 0a 20 20 20 20 72 65 74 75 e(ctx);. retu
2e00: 72 6e 20 72 65 73 3b 0a 09 63 6c 69 65 6e 74 44 rn res;..clientD
2e10: 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 ata = clientData
2e20: 3b 0a 7d 0a 0a 2f 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 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
2e70: 2a 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 2d ----------------
2eb0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
2ec0: 74 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 tInfo --. *. *.R
2ed0: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
2ee0: 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 properties and v
2ef0: 61 6c 75 65 73 20 66 6f 72 20 64 69 67 65 73 74 alues for digest
2f00: 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a .. *. * Results:
2f10: 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 . *.A standard T
2f20: 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 cl list.. *. * S
2f30: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
2f40: 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d None.. *. *-----
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 2d 2d 2d 2d 2d 0a 20 --------------.
2f90: 2a 2f 0a 69 6e 74 20 44 69 67 65 73 74 49 6e 66 */.int DigestInf
2fa0: 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e o(Tcl_Interp *in
2fb0: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e terp, Tcl_Obj *n
2fc0: 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 45 56 ameObj) {. EV
2fd0: 50 5f 4d 44 20 2a 6d 64 3b 0a 20 20 20 20 54 63 P_MD *md;. Tc
2fe0: 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a l_Obj *resultObj
2ff0: 2c 20 2a 6c 69 73 74 4f 62 6a 3b 0a 20 20 20 20 , *listObj;.
3000: 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 66 6c unsigned long fl
3010: 61 67 73 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 ags;. int res
3020: 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 = TCL_OK;. c
3030: 68 61 72 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f har *name = Tcl_
3040: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
3050: 28 6e 61 6d 65 4f 62 6a 2c 4e 55 4c 4c 29 3b 0a (nameObj,NULL);.
3060: 0a 20 20 20 20 2f 2a 20 47 65 74 20 6d 65 73 73 . /* Get mess
3070: 61 67 65 20 64 69 67 65 73 74 20 2a 2f 0a 20 20 age digest */.
3080: 20 20 6d 64 20 3d 20 45 56 50 5f 67 65 74 5f 64 md = EVP_get_d
3090: 69 67 65 73 74 62 79 6e 61 6d 65 28 6e 61 6d 65 igestbyname(name
30a0: 29 3b 0a 0a 20 20 20 20 69 66 20 28 6d 64 20 3d );.. if (md =
30b0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
30c0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
30d0: 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 64 69 67 rp, "Invalid dig
30e0: 65 73 74 20 5c 22 22 2c 20 6e 61 6d 65 2c 20 22 est \"", name, "
30f0: 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 \"", NULL);..ret
3100: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3110: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
3120: 20 70 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 properties */.
3130: 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 resultObj = T
3140: 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c cl_NewListObj(0,
3150: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 NULL);. if (
3160: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
3170: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
3180: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 _ERROR;. }.
3190: 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e LAPPEND_STR(in
31a0: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
31b0: 20 22 6e 61 6d 65 22 2c 20 45 56 50 5f 4d 44 5f "name", EVP_MD_
31c0: 6e 61 6d 65 28 6d 64 29 2c 20 2d 31 29 3b 0a 20 name(md), -1);.
31d0: 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 LAPPEND_STR(i
31e0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
31f0: 2c 20 22 64 65 73 63 72 69 70 74 69 6f 6e 22 2c , "description",
3200: 20 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 "", -1);. LA
3210: 50 50 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 PPEND_INT(interp
3220: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73 69 , resultObj, "si
3230: 7a 65 22 2c 20 45 56 50 5f 4d 44 5f 73 69 7a 65 ze", EVP_MD_size
3240: 28 6d 64 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 (md));. LAPPE
3250: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 ND_INT(interp, r
3260: 65 73 75 6c 74 4f 62 6a 2c 20 22 62 6c 6f 63 6b esultObj, "block
3270: 5f 73 69 7a 65 22 2c 20 45 56 50 5f 4d 44 5f 62 _size", EVP_MD_b
3280: 6c 6f 63 6b 5f 73 69 7a 65 28 6d 64 29 29 3b 0a lock_size(md));.
3290: 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 28 LAPPEND_STR(
32a0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
32b0: 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 22 j, "provider", "
32c0: 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 ", -1);. LAPP
32d0: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
32e0: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 resultObj, "type
32f0: 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 56 ", OBJ_nid2ln(EV
3300: 50 5f 4d 44 5f 74 79 70 65 28 6d 64 29 29 2c 20 P_MD_type(md)),
3310: 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 -1);. LAPPEND
3320: 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 _STR(interp, res
3330: 75 6c 74 4f 62 6a 2c 20 22 70 6b 65 79 5f 74 79 ultObj, "pkey_ty
3340: 70 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 pe", OBJ_nid2ln(
3350: 45 56 50 5f 4d 44 5f 70 6b 65 79 5f 74 79 70 65 EVP_MD_pkey_type
3360: 28 6d 64 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 (md)), -1);.
3370: 66 6c 61 67 73 20 3d 20 45 56 50 5f 4d 44 5f 66 flags = EVP_MD_f
3380: 6c 61 67 73 28 6d 64 29 3b 0a 0a 20 20 20 20 2f lags(md);.. /
3390: 2a 20 46 6c 61 67 73 20 2a 2f 0a 20 20 20 20 6c * Flags */. l
33a0: 69 73 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 istObj = Tcl_New
33b0: 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 ListObj(0, NULL)
33c0: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f ;. LAPPEND_BO
33d0: 4f 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f OL(interp, listO
33e0: 62 6a 2c 20 22 4f 6e 65 2d 73 68 6f 74 22 2c 20 bj, "One-shot",
33f0: 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 flags & EVP_MD_F
3400: 4c 41 47 5f 4f 4e 45 53 48 4f 54 29 3b 0a 20 20 LAG_ONESHOT);.
3410: 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 LAPPEND_BOOL(i
3420: 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 nterp, listObj,
3430: 22 58 4f 46 22 2c 20 66 6c 61 67 73 20 26 20 45 "XOF", flags & E
3440: 56 50 5f 4d 44 5f 46 4c 41 47 5f 58 4f 46 29 3b VP_MD_FLAG_XOF);
3450: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
3460: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 L(interp, listOb
3470: 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 69 j, "DigestAlgori
3480: 74 68 6d 49 64 5f 4e 55 4c 4c 22 2c 20 66 6c 61 thmId_NULL", fla
3490: 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 4c 41 47 gs & EVP_MD_FLAG
34a0: 5f 44 49 47 41 4c 47 49 44 5f 4e 55 4c 4c 29 3b _DIGALGID_NULL);
34b0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 42 4f 4f . LAPPEND_BOO
34c0: 4c 28 69 6e 74 65 72 70 2c 20 6c 69 73 74 4f 62 L(interp, listOb
34d0: 6a 2c 20 22 44 69 67 65 73 74 41 6c 67 6f 72 69 j, "DigestAlgori
34e0: 74 68 6d 49 64 5f 41 62 73 63 65 6e 74 22 2c 20 thmId_Abscent",
34f0: 66 6c 61 67 73 20 26 20 45 56 50 5f 4d 44 5f 46 flags & EVP_MD_F
3500: 4c 41 47 5f 44 49 47 41 4c 47 49 44 5f 41 42 53 LAG_DIGALGID_ABS
3510: 45 4e 54 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e ENT);. LAPPEN
3520: 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 70 2c 20 6c D_BOOL(interp, l
3530: 69 73 74 4f 62 6a 2c 20 22 44 69 67 65 73 74 41 istObj, "DigestA
3540: 6c 67 6f 72 69 74 68 6d 49 64 5f 43 75 73 74 6f lgorithmId_Custo
3550: 6d 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f m", flags & EVP_
3560: 4d 44 5f 46 4c 41 47 5f 44 49 47 41 4c 47 49 44 MD_FLAG_DIGALGID
3570: 5f 43 55 53 54 4f 4d 29 3b 0a 20 20 20 20 4c 41 _CUSTOM);. LA
3580: 50 50 45 4e 44 5f 42 4f 4f 4c 28 69 6e 74 65 72 PPEND_BOOL(inter
3590: 70 2c 20 6c 69 73 74 4f 62 6a 2c 20 22 46 49 50 p, listObj, "FIP
35a0: 53 22 2c 20 66 6c 61 67 73 20 26 20 45 56 50 5f S", flags & EVP_
35b0: 4d 44 5f 46 4c 41 47 5f 46 49 50 53 29 3b 0a 20 MD_FLAG_FIPS);.
35c0: 20 20 20 4c 41 50 50 45 4e 44 5f 4f 42 4a 28 69 LAPPEND_OBJ(i
35d0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
35e0: 2c 20 22 66 6c 61 67 73 22 2c 20 6c 69 73 74 4f , "flags", listO
35f0: 62 6a 29 3b 0a 0a 20 20 20 20 54 63 6c 5f 53 65 bj);.. Tcl_Se
3600: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
3610: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 p, resultObj);.
3620: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
3630: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 0a 20 2a -------------. *
3680: 0a 20 2a 20 44 69 67 65 73 74 4c 69 73 74 20 2d . * DigestList -
3690: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
36a0: 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 64 69 67 list of all dig
36b0: 65 73 74 20 61 6c 67 6f 72 69 74 68 6d 73 0a 20 est algorithms.
36c0: 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a *. * Results:. *
36d0: 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 .A standard Tcl
36e0: 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 list.. *. * Side
36f0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
3700: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
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 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3750: 69 6e 74 20 44 69 67 65 73 74 4c 69 73 74 28 54 int DigestList(T
3760: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
3770: 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a p) {. Tcl_Obj
3780: 20 2a 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 *resultObj = Tc
3790: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 l_NewListObj(0,
37a0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 NULL);. if (r
37b0: 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c esultObj == NULL
37c0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
37d0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
37e0: 20 20 2f 2a 20 53 61 6d 65 20 61 73 20 45 56 50 /* Same as EVP
37f0: 5f 4d 44 5f 64 6f 5f 61 6c 6c 20 2a 2f 0a 20 20 _MD_do_all */.
3800: 20 20 4f 42 4a 5f 4e 41 4d 45 5f 64 6f 5f 61 6c OBJ_NAME_do_al
3810: 6c 28 4f 42 4a 5f 4e 41 4d 45 5f 54 59 50 45 5f l(OBJ_NAME_TYPE_
3820: 4d 44 5f 4d 45 54 48 2c 20 4e 61 6d 65 73 43 61 MD_METH, NamesCa
3830: 6c 6c 62 61 63 6b 2c 20 28 76 6f 69 64 20 2a 29 llback, (void *)
3840: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 resultObj);.
3850: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
3860: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
3870: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
3880: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 TCL_OK;.}../*.
3890: 2a 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 2d ----------------
38d0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 44 69 67 65 73 ----. *. * Diges
38e0: 74 73 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 tsObjCmd --. *.
38f0: 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 *.Return a list
3900: 6f 66 20 61 6c 6c 20 76 61 6c 69 64 20 68 61 73 of all valid has
3910: 68 20 61 6c 67 6f 72 69 74 68 6d 73 20 6f 72 20 h algorithms or
3920: 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 73 2e message digests.
3930: 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a . *. * Results:.
3940: 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 *.A standard Tc
3950: 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 l list.. *. * Si
3960: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
3970: 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d one.. *. *------
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 2d 2d 2d 2d 2d 0a 20 2a -------------. *
39c0: 2f 0a 69 6e 74 20 44 69 67 65 73 74 73 4f 62 6a /.int DigestsObj
39d0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
39e0: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 lientData, Tcl_I
39f0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
3a00: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
3a10: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 *const objv[])
3a20: 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 {. dprintf("C
3a30: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
3a40: 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f Clear errors */
3a50: 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 . Tcl_ResetRe
3a60: 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 sult(interp);.
3a70: 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f ERR_clear_erro
3a80: 72 28 29 3b 0a 0a 0a 20 20 20 20 2f 2a 20 56 61 r();... /* Va
3a90: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
3aa0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
3ab0: 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e == 1) {..return
3ac0: 20 44 69 67 65 73 74 4c 69 73 74 28 69 6e 74 65 DigestList(inte
3ad0: 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 rp);.. } else
3ae0: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 if (objc == 2)
3af0: 7b 0a 09 72 65 74 75 72 6e 20 44 69 67 65 73 74 {..return Digest
3b00: 49 6e 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a Info(interp, obj
3b10: 76 5b 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c v[1]);.. } el
3b20: 73 65 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e se {..Tcl_WrongN
3b30: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
3b40: 2c 20 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 , objv, "?name?"
3b50: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
3b60: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
3b70: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 return TCL_OK;..
3b80: 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 clientData = cli
3b90: 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a entData;.}../***
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 2a 2a 2a 2a 2a 2a 2a ****************
3be0: 2f 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
3c30: 2a 20 4b 64 66 4c 69 73 74 20 2d 2d 0a 20 2a 0a * KdfList --. *.
3c40: 20 2a 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 *.Return a list
3c50: 20 6f 66 20 61 6c 6c 20 4b 44 46 20 61 6c 67 6f of all KDF algo
3c60: 72 69 74 68 6d 73 0a 20 2a 0a 20 2a 20 52 65 73 rithms. *. * Res
3c70: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
3c80: 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a ard Tcl list.. *
3c90: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
3ca0: 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a :. *.None.. *. *
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 2d 2d 2d 2d ----------------
3cf0: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4b 64 66 4c ---. */.int KdfL
3d00: 69 73 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ist(Tcl_Interp *
3d10: 69 6e 74 65 72 70 2c 20 63 68 61 72 20 2a 73 65 interp, char *se
3d20: 6c 65 63 74 5f 6e 61 6d 65 29 20 7b 0a 20 20 20 lect_name) {.
3d30: 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 Tcl_Obj *result
3d40: 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 Obj = Tcl_NewLis
3d50: 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 tObj(0, NULL);.
3d60: 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a if (resultObj
3d70: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 == NULL) {..ret
3d80: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
3d90: 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c 69 }.. Tcl_Li
3da0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
3db0: 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c nt(interp, resul
3dc0: 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 tObj, Tcl_NewStr
3dd0: 69 6e 67 4f 62 6a 28 22 68 6b 64 66 22 2c 20 2d ingObj("hkdf", -
3de0: 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 73 1));. Tcl_Lis
3df0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
3e00: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
3e10: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
3e20: 6e 67 4f 62 6a 28 22 70 62 6b 64 66 32 22 2c 20 ngObj("pbkdf2",
3e30: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 -1));. Tcl_Li
3e40: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
3e50: 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c nt(interp, resul
3e60: 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 tObj, Tcl_NewStr
3e70: 69 6e 67 4f 62 6a 28 22 73 63 72 79 70 74 22 2c ingObj("scrypt",
3e80: 20 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 -1));. Tcl_S
3e90: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
3ea0: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
3eb0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
3ec0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d K;.}../*. *-----
3ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3f10: 2a 0a 20 2a 20 4b 64 66 73 4f 62 6a 43 6d 64 20 *. * KdfsObjCmd
3f20: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 --. *. *.Return
3f30: 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 a list of all va
3f40: 6c 69 64 20 4b 65 79 20 44 65 72 69 76 61 74 69 lid Key Derivati
3f50: 6f 6e 20 46 75 6e 63 74 69 6f 6e 20 28 4b 44 46 on Function (KDF
3f60: 29 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 ).. *. * Results
3f70: 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 64 20 :. *.A standard
3f80: 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 Tcl list.. *. *
3f90: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
3fa0: 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d .None.. *. *----
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 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
3ff0: 20 2a 2f 0a 69 6e 74 20 4b 64 66 73 4f 62 6a 43 */.int KdfsObjC
4000: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
4010: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
4020: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
4030: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
4040: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
4050: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
4060: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
4070: 43 6c 65 61 72 20 65 72 72 6f 72 73 20 2a 2f 0a Clear errors */.
4080: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
4090: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 20 ult(interp);.
40a0: 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 72 6f 72 ERR_clear_error
40b0: 28 29 3b 0a 0a 0a 20 20 20 20 2f 2a 20 56 61 6c ();... /* Val
40c0: 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 idate arg count
40d0: 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 */. if (objc
40e0: 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 6e 20 == 1) {..return
40f0: 4b 64 66 4c 69 73 74 28 69 6e 74 65 72 70 2c 20 KdfList(interp,
4100: 4e 55 4c 4c 29 3b 0a 0a 20 20 20 20 7d 20 65 6c NULL);.. } el
4110: 73 65 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 se if (objc == 2
4120: 29 20 7b 0a 0a 0a 20 20 20 20 7d 20 65 6c 73 65 ) {... } else
4130: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
4140: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
4150: 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b objv, "?name?");
4160: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
4170: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
4180: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c turn TCL_OK;..cl
4190: 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e ientData = clien
41a0: 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a tData;.}../*****
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a **************/.
41f0: 0a 2f 2a 0a 20 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
4240: 4d 61 63 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a MacInfo --. *. *
4250: 09 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f .Return a list o
4260: 66 20 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 f properties and
4270: 20 76 61 6c 75 65 73 20 66 6f 72 20 6d 61 63 4e values for macN
4280: 61 6d 65 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 6c ame.. *. * Resul
4290: 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 72 ts:. *.A standar
42a0: 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a 20 d Tcl list.. *.
42b0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
42c0: 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d *.None.. *. *--
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4310: 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 49 6e 66 -. */.int MacInf
4320: 6f 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e o(Tcl_Interp *in
4330: 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e terp, Tcl_Obj *n
4340: 61 6d 65 4f 62 6a 29 20 7b 0a 20 20 20 20 54 63 ameObj) {. Tc
4350: 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a l_Obj *resultObj
4360: 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 3d 20 ;. int res =
4370: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 63 68 61 72 TCL_OK;. char
4380: 20 2a 6e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 *name = Tcl_Get
4390: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6e 61 StringFromObj(na
43a0: 6d 65 4f 62 6a 2c 4e 55 4c 4c 29 3b 0a 0a 20 20 meObj,NULL);..
43b0: 20 20 69 66 20 28 73 74 72 63 6d 70 28 6e 61 6d if (strcmp(nam
43c0: 65 2c 20 22 63 6d 61 63 22 29 20 21 3d 20 30 20 e, "cmac") != 0
43d0: 26 26 20 73 74 72 63 6d 70 28 6e 61 6d 65 2c 20 && strcmp(name,
43e0: 22 68 6d 61 63 22 29 20 21 3d 20 30 29 20 7b 0a "hmac") != 0) {.
43f0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
4400: 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c t(interp, "Inval
4410: 69 64 20 4d 41 43 20 5c 22 22 2c 20 6e 61 6d 65 id MAC \"", name
4420: 2c 20 22 5c 22 22 2c 20 4e 55 4c 4c 29 3b 0a 09 , "\"", NULL);..
4430: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
4440: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
4450: 47 65 74 20 70 72 6f 70 65 72 74 69 65 73 20 2a Get properties *
4460: 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 /. resultObj
4470: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a = Tcl_NewListObj
4480: 28 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 (0, NULL);. i
4490: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
44a0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
44b0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
44c0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
44d0: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
44e0: 62 6a 2c 20 22 6e 61 6d 65 22 2c 20 6e 61 6d 65 bj, "name", name
44f0: 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 , -1);. LAPPE
4500: 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 ND_STR(interp, r
4510: 65 73 75 6c 74 4f 62 6a 2c 20 22 64 65 73 63 72 esultObj, "descr
4520: 69 70 74 69 6f 6e 22 2c 20 22 22 2c 20 2d 31 29 iption", "", -1)
4530: 3b 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 ;. LAPPEND_ST
4540: 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 R(interp, result
4550: 4f 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c Obj, "provider",
4560: 20 22 22 2c 20 2d 31 29 3b 0a 0a 20 20 20 20 54 "", -1);.. T
4570: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
4580: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
4590: 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 j);. return r
45a0: 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d es;.}../*. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
45f0: 20 2a 0a 20 2a 20 4d 61 63 4c 69 73 74 20 2d 2d *. * MacList --
4600: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 . *. *.Return a
4610: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 4d 41 43 20 list of all MAC
4620: 61 6c 67 6f 72 69 74 68 6d 73 0a 20 2a 0a 20 2a algorithms. *. *
4630: 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 Results:. *.A s
4640: 74 61 6e 64 61 72 64 20 54 63 6c 20 6c 69 73 74 tandard Tcl list
4650: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
4660: 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 ects:. *.None..
4670: 2a 0a 20 2a 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 2d 2d ----------------
46b0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
46c0: 4d 61 63 4c 69 73 74 28 54 63 6c 5f 49 6e 74 65 MacList(Tcl_Inte
46d0: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 rp *interp) {.
46e0: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
46f0: 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4c 69 tObj = Tcl_NewLi
4700: 73 74 4f 62 6a 28 30 2c 20 4e 55 4c 4c 29 3b 0a stObj(0, NULL);.
4710: 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f 62 if (resultOb
4720: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 j == NULL) {..re
4730: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
4740: 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c 5f 4c }.. Tcl_L
4750: 69 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d istObjAppendElem
4760: 65 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ent(interp, resu
4770: 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 ltObj, Tcl_NewSt
4780: 72 69 6e 67 4f 62 6a 28 22 63 6d 61 63 22 2c 20 ringObj("cmac",
4790: 2d 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 4c 69 -1));. Tcl_Li
47a0: 73 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 stObjAppendEleme
47b0: 6e 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c nt(interp, resul
47c0: 74 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 tObj, Tcl_NewStr
47d0: 69 6e 67 4f 62 6a 28 22 68 6d 61 63 22 2c 20 2d ingObj("hmac", -
47e0: 31 29 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 1));. Tcl_Set
47f0: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
4800: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 , resultObj);.
4810: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
4820: 0a 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
4870: 20 2a 20 4d 61 63 73 4f 62 6a 43 6d 64 20 2d 2d * MacsObjCmd --
4880: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 . *. *.Return a
4890: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c 69 list of all vali
48a0: 64 20 6d 65 73 73 61 67 65 20 61 75 74 68 65 6e d message authen
48b0: 74 69 63 61 74 69 6f 6e 20 63 6f 64 65 73 20 28 tication codes (
48c0: 4d 41 43 29 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 MAC).. *. * Resu
48d0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
48e0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
48f0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
4900: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
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 2d 2d 2d 2d 2d 2d 2d ----------------
4950: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 4d 61 63 73 4f --. */.int MacsO
4960: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
4970: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
4980: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
4990: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
49a0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
49b0: 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 28 ) {. dprintf(
49c0: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
49d0: 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 20 /* Clear errors
49e0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 */. Tcl_Reset
49f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a Result(interp);.
4a00: 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 72 ERR_clear_er
4a10: 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 ror();.. /* V
4a20: 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e alidate arg coun
4a30: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a t */. if (obj
4a40: 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 72 c == 1) {..retur
4a50: 6e 20 4d 61 63 4c 69 73 74 28 69 6e 74 65 72 70 n MacList(interp
4a60: 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 );.. } else i
4a70: 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 7b 0a f (objc == 2) {.
4a80: 09 72 65 74 75 72 6e 20 4d 61 63 49 6e 66 6f 28 .return MacInfo(
4a90: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 5d 29 interp, objv[1])
4aa0: 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
4ab0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
4ac0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
4ad0: 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b 0a 09 72 v, "?name?");..r
4ae0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
4af0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
4b00: 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c 69 65 6e n TCL_OK;..clien
4b10: 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 44 61 tData = clientDa
4b20: 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a ta;.}../********
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: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
4b70: 0a 20 2a 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 2d 2d 2d 2d 2d ----------------
4bb0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 50 6b 65 ------. *. * Pke
4bc0: 79 49 6e 66 6f 20 2d 2d 0a 20 2a 0a 20 2a 09 52 yInfo --. *. *.R
4bd0: 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 eturn a list of
4be0: 70 72 6f 70 65 72 74 69 65 73 20 61 6e 64 20 76 properties and v
4bf0: 61 6c 75 65 73 20 66 6f 72 20 70 6b 65 79 2e 0a alues for pkey..
4c00: 20 2a 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 *. * Results:.
4c10: 2a 09 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c *.A standard Tcl
4c20: 20 6c 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 list.. *. * Sid
4c30: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f e effects:. *.No
4c40: 6e 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ne.. *. *-------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
4c90: 0a 69 6e 74 20 50 6b 65 79 49 6e 66 6f 28 54 63 .int PkeyInfo(Tc
4ca0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
4cb0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6e 61 6d 65 4f , Tcl_Obj *nameO
4cc0: 62 6a 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 bj) {. Tcl_Ob
4cd0: 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 j *resultObj;.
4ce0: 20 20 69 6e 74 20 72 65 73 20 3d 20 54 43 4c 5f int res = TCL_
4cf0: 4f 4b 3b 0a 20 20 20 20 63 68 61 72 20 2a 6e 61 OK;. char *na
4d00: 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 me = Tcl_GetStri
4d10: 6e 67 46 72 6f 6d 4f 62 6a 28 6e 61 6d 65 4f 62 ngFromObj(nameOb
4d20: 6a 2c 4e 55 4c 4c 29 3b 0a 20 20 20 20 45 56 50 j,NULL);. EVP
4d30: 5f 50 4b 45 59 20 2a 70 6b 65 79 20 3d 20 4e 55 _PKEY *pkey = NU
4d40: 4c 4c 3b 0a 0a 20 20 20 20 69 66 20 28 70 6b 65 LL;.. if (pke
4d50: 79 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 y == NULL) {..Tc
4d60: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
4d70: 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 nterp, "Invalid
4d80: 70 75 62 6c 69 63 20 6b 65 79 20 6d 65 74 68 6f public key metho
4d90: 64 20 5c 22 22 2c 20 6e 61 6d 65 2c 20 22 5c 22 d \"", name, "\"
4da0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
4db0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
4dc0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 70 }.. /* Get p
4dd0: 72 6f 70 65 72 74 69 65 73 20 2a 2f 0a 20 20 20 roperties */.
4de0: 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c resultObj = Tcl
4df0: 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e _NewListObj(0, N
4e00: 55 4c 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 ULL);. if (re
4e10: 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 sultObj == NULL)
4e20: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
4e30: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
4e40: 4c 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 LAPPEND_STR(inte
4e50: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 rp, resultObj, "
4e60: 6e 61 6d 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c name", OBJ_nid2l
4e70: 6e 28 45 56 50 5f 50 4b 45 59 5f 69 64 28 70 6b n(EVP_PKEY_id(pk
4e80: 65 79 29 29 2c 20 2d 31 29 3b 0a 20 20 20 20 4c ey)), -1);. L
4e90: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
4ea0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 64 p, resultObj, "d
4eb0: 65 73 63 72 69 70 74 69 6f 6e 22 2c 20 22 22 2c escription", "",
4ec0: 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 50 45 4e -1);. LAPPEN
4ed0: 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 65 D_INT(interp, re
4ee0: 73 75 6c 74 4f 62 6a 2c 20 22 73 69 7a 65 22 2c sultObj, "size",
4ef0: 20 45 56 50 5f 50 4b 45 59 5f 73 69 7a 65 28 70 EVP_PKEY_size(p
4f00: 6b 65 79 29 29 3b 0a 20 20 20 20 4c 41 50 50 45 key));. LAPPE
4f10: 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 72 ND_INT(interp, r
4f20: 65 73 75 6c 74 4f 62 6a 2c 20 22 62 69 74 73 22 esultObj, "bits"
4f30: 2c 20 45 56 50 5f 50 4b 45 59 5f 62 69 74 73 28 , EVP_PKEY_bits(
4f40: 70 6b 65 79 29 29 3b 0a 20 20 20 20 4c 41 50 50 pkey));. LAPP
4f50: 45 4e 44 5f 49 4e 54 28 69 6e 74 65 72 70 2c 20 END_INT(interp,
4f60: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 73 65 63 75 resultObj, "secu
4f70: 72 69 74 79 5f 62 69 74 73 22 2c 20 45 56 50 5f rity_bits", EVP_
4f80: 50 4b 45 59 5f 73 65 63 75 72 69 74 79 5f 62 69 PKEY_security_bi
4f90: 74 73 28 70 6b 65 79 29 29 3b 0a 20 20 20 20 4c ts(pkey));. L
4fa0: 41 50 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 APPEND_STR(inter
4fb0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 62 p, resultObj, "b
4fc0: 61 73 65 49 64 22 2c 20 4f 42 4a 5f 6e 69 64 32 aseId", OBJ_nid2
4fd0: 6c 6e 28 45 56 50 5f 50 4b 45 59 5f 62 61 73 65 ln(EVP_PKEY_base
4fe0: 5f 69 64 28 70 6b 65 79 29 29 2c 20 2d 31 29 3b _id(pkey)), -1);
4ff0: 0a 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 54 52 . LAPPEND_STR
5000: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
5010: 62 6a 2c 20 22 70 72 6f 76 69 64 65 72 22 2c 20 bj, "provider",
5020: 22 22 2c 20 2d 31 29 3b 0a 20 20 20 20 4c 41 50 "", -1);. LAP
5030: 50 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c PEND_STR(interp,
5040: 20 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 resultObj, "typ
5050: 65 22 2c 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 45 e", OBJ_nid2ln(E
5060: 56 50 5f 50 4b 45 59 5f 74 79 70 65 28 45 56 50 VP_PKEY_type(EVP
5070: 5f 50 4b 45 59 5f 69 64 28 70 6b 65 79 29 29 29 _PKEY_id(pkey)))
5080: 2c 20 2d 31 29 3b 0a 0a 20 20 20 20 7b 0a 09 69 , -1);.. {..i
5090: 6e 74 20 70 6e 69 64 3b 0a 09 69 66 20 28 45 56 nt pnid;..if (EV
50a0: 50 5f 50 4b 45 59 5f 67 65 74 5f 64 65 66 61 75 P_PKEY_get_defau
50b0: 6c 74 5f 64 69 67 65 73 74 5f 6e 69 64 28 70 6b lt_digest_nid(pk
50c0: 65 79 2c 20 26 70 6e 69 64 29 20 3e 20 30 29 20 ey, &pnid) > 0)
50d0: 7b 0a 09 20 20 20 20 4c 41 50 50 45 4e 44 5f 53 {.. LAPPEND_S
50e0: 54 52 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c TR(interp, resul
50f0: 74 4f 62 6a 2c 20 22 64 65 66 61 75 6c 74 5f 64 tObj, "default_d
5100: 69 67 65 73 74 22 2c 20 4f 42 4a 5f 6e 69 64 32 igest", OBJ_nid2
5110: 6c 6e 28 70 6e 69 64 29 2c 20 2d 32 29 3b 0a 09 ln(pnid), -2);..
5120: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 54 63 6c }. }.. Tcl
5130: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
5140: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 terp, resultObj)
5150: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 ;. return res
5160: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
51b0: 0a 20 2a 20 50 6b 65 79 4c 69 73 74 20 2d 2d 0a . * PkeyList --.
51c0: 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 6c *. *.Return a l
51d0: 69 73 74 20 6f 66 20 61 6c 6c 20 70 75 62 6c 69 ist of all publi
51e0: 63 20 6b 65 79 20 6d 65 74 68 6f 64 73 0a 20 2a c key methods. *
51f0: 0a 20 2a 20 52 65 73 75 6c 74 73 3a 0a 20 2a 09 . * Results:. *.
5200: 41 20 73 74 61 6e 64 61 72 64 20 54 63 6c 20 6c A standard Tcl l
5210: 69 73 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ist.. *. * Side
5220: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
5230: 2e 0a 20 2a 0a 20 2a 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 2d ----------------
5270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
5280: 6e 74 20 50 6b 65 79 4c 69 73 74 28 54 63 6c 5f nt PkeyList(Tcl_
5290: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
52a0: 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 {. Tcl_Obj *r
52b0: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
52c0: 65 77 4c 69 73 74 4f 62 6a 28 30 2c 20 4e 55 4c ewListObj(0, NUL
52d0: 4c 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 L);. if (resu
52e0: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b ltObj == NULL) {
52f0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5300: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 66 OR;. }.. f
5310: 6f 72 20 28 73 69 7a 65 5f 74 20 69 20 3d 20 30 or (size_t i = 0
5320: 3b 20 69 20 3c 20 45 56 50 5f 50 4b 45 59 5f 6d ; i < EVP_PKEY_m
5330: 65 74 68 5f 67 65 74 5f 63 6f 75 6e 74 28 29 3b eth_get_count();
5340: 20 69 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 i++) {.
5350: 63 6f 6e 73 74 20 45 56 50 5f 50 4b 45 59 5f 4d const EVP_PKEY_M
5360: 45 54 48 4f 44 20 2a 70 6d 65 74 68 20 3d 20 45 ETHOD *pmeth = E
5370: 56 50 5f 50 4b 45 59 5f 6d 65 74 68 5f 67 65 74 VP_PKEY_meth_get
5380: 30 28 69 29 3b 0a 20 20 20 20 20 20 20 20 69 6e 0(i);. in
5390: 74 20 70 6b 65 79 5f 69 64 2c 20 70 6b 65 79 5f t pkey_id, pkey_
53a0: 66 6c 61 67 73 3b 0a 0a 20 20 20 20 20 20 20 20 flags;..
53b0: 45 56 50 5f 50 4b 45 59 5f 6d 65 74 68 5f 67 65 EVP_PKEY_meth_ge
53c0: 74 30 5f 69 6e 66 6f 28 26 70 6b 65 79 5f 69 64 t0_info(&pkey_id
53d0: 2c 20 26 70 6b 65 79 5f 66 6c 61 67 73 2c 20 70 , &pkey_flags, p
53e0: 6d 65 74 68 29 3b 0a 09 2f 2a 4c 41 50 50 45 4e meth);../*LAPPEN
53f0: 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 72 65 D_STR(interp, re
5400: 73 75 6c 74 4f 62 6a 2c 20 22 6e 61 6d 65 22 2c sultObj, "name",
5410: 20 4f 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b 65 79 OBJ_nid2ln(pkey
5420: 5f 69 64 29 2c 20 2d 31 29 3b 0a 09 4c 41 50 50 _id), -1);..LAPP
5430: 45 4e 44 5f 53 54 52 28 69 6e 74 65 72 70 2c 20 END_STR(interp,
5440: 72 65 73 75 6c 74 4f 62 6a 2c 20 22 74 79 70 65 resultObj, "type
5450: 22 2c 20 70 6b 65 79 5f 66 6c 61 67 73 20 26 20 ", pkey_flags &
5460: 41 53 4e 31 5f 50 4b 45 59 5f 44 59 4e 41 4d 49 ASN1_PKEY_DYNAMI
5470: 43 20 3f 20 22 45 78 74 65 72 6e 61 6c 22 20 3a C ? "External" :
5480: 20 22 42 75 69 6c 74 2d 69 6e 22 2c 20 2d 31 29 "Built-in", -1)
5490: 3b 2a 2f 0a 0a 09 54 63 6c 5f 4c 69 73 74 4f 62 ;*/...Tcl_ListOb
54a0: 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 jAppendElement(i
54b0: 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a nterp, resultObj
54c0: 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f , Tcl_NewStringO
54d0: 62 6a 28 4f 42 4a 5f 6e 69 64 32 6c 6e 28 70 6b bj(OBJ_nid2ln(pk
54e0: 65 79 5f 69 64 29 2c 20 2d 31 29 29 3b 0a 20 20 ey_id), -1));.
54f0: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f }. Tcl_SetO
5500: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
5510: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 resultObj);.
5520: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
5530: 7d 0a 0a 2f 2a 0a 20 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
5580: 2a 20 50 6b 65 79 73 4f 62 6a 43 6d 64 20 2d 2d * PkeysObjCmd --
5590: 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 20 . *. *.Return a
55a0: 6c 69 73 74 20 6f 66 20 61 6c 6c 20 76 61 6c 69 list of all vali
55b0: 64 20 68 61 73 68 20 61 6c 67 6f 72 69 74 68 6d d hash algorithm
55c0: 73 20 6f 72 20 6d 65 73 73 61 67 65 20 64 69 67 s or message dig
55d0: 65 73 74 73 2e 0a 20 2a 0a 20 2a 20 52 65 73 75 ests.. *. * Resu
55e0: 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 61 lts:. *.A standa
55f0: 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 2a 0a rd Tcl list.. *.
5600: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
5610: 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a 20 2a 2d . *.None.. *. *-
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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5660: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 50 6b 65 79 73 --. */.int Pkeys
5670: 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 ObjCmd(ClientDat
5680: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
5690: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
56a0: 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f , int objc, Tcl_
56b0: 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b Obj *const objv[
56c0: 5d 29 20 7b 0a 20 20 20 20 64 70 72 69 6e 74 66 ]) {. dprintf
56d0: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
56e0: 20 2f 2a 20 43 6c 65 61 72 20 65 72 72 6f 72 73 /* Clear errors
56f0: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 */. Tcl_Rese
5700: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b tResult(interp);
5710: 0a 20 20 20 20 45 52 52 5f 63 6c 65 61 72 5f 65 . ERR_clear_e
5720: 72 72 6f 72 28 29 3b 0a 0a 20 20 20 20 2f 2a 20 rror();.. /*
5730: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
5740: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
5750: 6a 63 20 3d 3d 20 31 29 20 7b 0a 09 72 65 74 75 jc == 1) {..retu
5760: 72 6e 20 50 6b 65 79 4c 69 73 74 28 69 6e 74 65 rn PkeyList(inte
5770: 72 70 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 rp);.. } else
5780: 20 69 66 20 28 6f 62 6a 63 20 3d 3d 20 32 29 20 if (objc == 2)
5790: 7b 0a 09 72 65 74 75 72 6e 20 50 6b 65 79 49 6e {..return PkeyIn
57a0: 66 6f 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b fo(interp, objv[
57b0: 31 5d 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 65 1]);.. } else
57c0: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
57d0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
57e0: 6f 62 6a 76 2c 20 22 3f 6e 61 6d 65 3f 22 29 3b objv, "?name?");
57f0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5800: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
5810: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 6c turn TCL_OK;..cl
5820: 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e ientData = clien
5830: 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a tData;.}../*****
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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a **************/.
5880: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d ----------------
58c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
58d0: 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 6d 64 20 ProtocolsObjCmd
58e0: 2d 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 --. *. *.Return
58f0: 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 61 76 a list of the av
5900: 61 69 6c 61 62 6c 65 20 6f 72 20 73 75 70 70 6f ailable or suppo
5910: 72 74 65 64 20 53 53 4c 2f 54 4c 53 20 70 72 6f rted SSL/TLS pro
5920: 74 6f 63 6f 6c 73 2e 0a 20 2a 0a 20 2a 20 52 65 tocols.. *. * Re
5930: 73 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e sults:. *.A stan
5940: 64 61 72 64 20 54 63 6c 20 6c 69 73 74 2e 0a 20 dard Tcl list..
5950: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
5960: 73 3a 0a 20 2a 09 6e 6f 6e 65 0a 20 2a 0a 20 2a s:. *.none. *. *
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59b0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
59c0: 6e 74 0a 50 72 6f 74 6f 63 6f 6c 73 4f 62 6a 43 nt.ProtocolsObjC
59d0: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
59e0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
59f0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
5a00: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
5a10: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
5a20: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
5a30: 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 sultObj;.. dp
5a40: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
5a50: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 65 .. /* Clear e
5a60: 72 72 6f 72 73 20 2a 2f 0a 20 20 20 20 54 63 6c rrors */. Tcl
5a70: 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 _ResetResult(int
5a80: 65 72 70 29 3b 0a 20 20 20 20 45 52 52 5f 63 6c erp);. ERR_cl
5a90: 65 61 72 5f 65 72 72 6f 72 28 29 3b 0a 0a 20 20 ear_error();..
5aa0: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
5ab0: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 g count */. i
5ac0: 66 20 28 6f 62 6a 63 20 21 3d 20 31 29 20 7b 0a f (objc != 1) {.
5ad0: 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 .Tcl_WrongNumArg
5ae0: 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a s(interp, 1, obj
5af0: 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 v, NULL);..retur
5b00: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5b10: 20 7d 0a 0a 20 20 20 20 2f 2a 20 4c 69 73 74 20 }.. /* List
5b20: 61 6c 6c 20 70 72 6f 74 6f 63 6f 6c 73 20 2a 2f all protocols */
5b30: 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d . resultObj =
5b40: 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 Tcl_NewListObj(
5b50: 30 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 69 66 0, NULL);. if
5b60: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
5b70: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 ULL) {..return T
5b80: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
5b90: 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 #if OPENSSL_VERS
5ba0: 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 31 ION_NUMBER < 0x1
5bb0: 30 31 30 30 30 30 30 4c 20 26 26 20 21 64 65 66 0100000L && !def
5bc0: 69 6e 65 64 28 4e 4f 5f 53 53 4c 32 29 20 26 26 ined(NO_SSL2) &&
5bd0: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
5be0: 4c 5f 4e 4f 5f 53 53 4c 32 29 0a 20 20 20 20 54 L_NO_SSL2). T
5bf0: 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 6e 64 cl_ListObjAppend
5c00: 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 2c 20 Element(interp,
5c10: 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c 5f 4e resultObj, Tcl_N
5c20: 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 6f 74 ewStringObj(prot
5c30: 6f 63 6f 6c 73 5b 54 4c 53 5f 53 53 4c 32 5d 2c ocols[TLS_SSL2],
5c40: 20 2d 31 29 29 3b 0a 23 65 6e 64 69 66 0a 23 69 -1));.#endif.#i
5c50: 66 20 21 64 65 66 69 6e 65 64 28 4e 4f 5f 53 53 f !defined(NO_SS
5c60: 4c 33 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 L3) && !defined(
5c70: 4f 50 45 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 29 OPENSSL_NO_SSL3)
5c80: 20 26 26 20 21 64 65 66 69 6e 65 64 28 4f 50 45 && !defined(OPE
5c90: 4e 53 53 4c 5f 4e 4f 5f 53 53 4c 33 5f 4d 45 54 NSSL_NO_SSL3_MET
5ca0: 48 4f 44 29 0a 20 20 20 20 54 63 6c 5f 4c 69 73 HOD). Tcl_Lis
5cb0: 74 4f 62 6a 41 70 70 65 6e 64 45 6c 65 6d 65 6e tObjAppendElemen
5cc0: 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 t(interp, result
5cd0: 4f 62 6a 2c 20 54 63 6c 5f 4e 65 77 53 74 72 69 Obj, Tcl_NewStri
5ce0: 6e 67 4f 62 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b ngObj(protocols[
5cf0: 54 4c 53 5f 53 53 4c 33 5d 2c 20 2d 31 29 29 3b TLS_SSL3], -1));
5d00: 0a 23 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 .#endif.#if !def
5d10: 69 6e 65 64 28 4e 4f 5f 54 4c 53 31 29 20 26 26 ined(NO_TLS1) &&
5d20: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
5d30: 4c 5f 4e 4f 5f 54 4c 53 31 29 20 26 26 20 21 64 L_NO_TLS1) && !d
5d40: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
5d50: 4f 5f 54 4c 53 31 5f 4d 45 54 48 4f 44 29 0a 20 O_TLS1_METHOD).
5d60: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
5d70: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
5d80: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
5d90: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
5da0: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c protocols[TLS_TL
5db0: 53 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 S1], -1));.#endi
5dc0: 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 28 4e f.#if !defined(N
5dd0: 4f 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64 65 O_TLS1_1) && !de
5de0: 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f fined(OPENSSL_NO
5df0: 5f 54 4c 53 31 5f 31 29 20 26 26 20 21 64 65 66 _TLS1_1) && !def
5e00: 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e 4f 5f ined(OPENSSL_NO_
5e10: 54 4c 53 31 5f 31 5f 4d 45 54 48 4f 44 29 0a 20 TLS1_1_METHOD).
5e20: 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 Tcl_ListObjAp
5e30: 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 pendElement(inte
5e40: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 rp, resultObj, T
5e50: 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 cl_NewStringObj(
5e60: 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c protocols[TLS_TL
5e70: 53 31 5f 31 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e S1_1], -1));.#en
5e80: 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e 65 64 dif.#if !defined
5e90: 28 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 (NO_TLS1_2) && !
5ea0: 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f defined(OPENSSL_
5eb0: 4e 4f 5f 54 4c 53 31 5f 32 29 20 26 26 20 21 64 NO_TLS1_2) && !d
5ec0: 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 4c 5f 4e efined(OPENSSL_N
5ed0: 4f 5f 54 4c 53 31 5f 32 5f 4d 45 54 48 4f 44 29 O_TLS1_2_METHOD)
5ee0: 0a 20 20 20 20 54 63 6c 5f 4c 69 73 74 4f 62 6a . Tcl_ListObj
5ef0: 41 70 70 65 6e 64 45 6c 65 6d 65 6e 74 28 69 6e AppendElement(in
5f00: 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 2c terp, resultObj,
5f10: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 Tcl_NewStringOb
5f20: 6a 28 70 72 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f j(protocols[TLS_
5f30: 54 4c 53 31 5f 32 5d 2c 20 2d 31 29 29 3b 0a 23 TLS1_2], -1));.#
5f40: 65 6e 64 69 66 0a 23 69 66 20 21 64 65 66 69 6e endif.#if !defin
5f50: 65 64 28 4e 4f 5f 54 4c 53 31 5f 33 29 20 26 26 ed(NO_TLS1_3) &&
5f60: 20 21 64 65 66 69 6e 65 64 28 4f 50 45 4e 53 53 !defined(OPENSS
5f70: 4c 5f 4e 4f 5f 54 4c 53 31 5f 33 29 0a 20 20 20 L_NO_TLS1_3).
5f80: 20 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70 70 65 Tcl_ListObjAppe
5f90: 6e 64 45 6c 65 6d 65 6e 74 28 69 6e 74 65 72 70 ndElement(interp
5fa0: 2c 20 72 65 73 75 6c 74 4f 62 6a 2c 20 54 63 6c , resultObj, Tcl
5fb0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 70 72 _NewStringObj(pr
5fc0: 6f 74 6f 63 6f 6c 73 5b 54 4c 53 5f 54 4c 53 31 otocols[TLS_TLS1
5fd0: 5f 33 5d 2c 20 2d 31 29 29 3b 0a 23 65 6e 64 69 _3], -1));.#endi
5fe0: 66 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a f. Tcl_SetObj
5ff0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 Result(interp, r
6000: 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 72 esultObj);. r
6010: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 09 63 eturn TCL_OK;..c
6020: 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 lientData = clie
6030: 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a ntData;.}../****
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 2a ****************
6070: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
6080: 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
60c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
60d0: 20 56 65 72 73 69 6f 6e 4f 62 6a 43 6d 64 20 2d VersionObjCmd -
60e0: 2d 0a 20 2a 0a 20 2a 09 52 65 74 75 72 6e 20 61 -. *. *.Return a
60f0: 20 73 74 72 69 6e 67 20 77 69 74 68 20 74 68 65 string with the
6100: 20 4f 70 65 6e 53 53 4c 20 76 65 72 73 69 6f 6e OpenSSL version
6110: 20 69 6e 66 6f 2e 0a 20 2a 0a 20 2a 20 52 65 73 info.. *. * Res
6120: 75 6c 74 73 3a 0a 20 2a 09 41 20 73 74 61 6e 64 ults:. *.A stand
6130: 61 72 64 20 54 63 6c 20 72 65 73 75 6c 74 2e 0a ard Tcl result..
6140: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
6150: 74 73 3a 0a 20 2a 09 4e 6f 6e 65 2e 0a 20 2a 0a ts:. *.None.. *.
6160: 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61a0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
61b0: 20 69 6e 74 0a 56 65 72 73 69 6f 6e 4f 62 6a 43 int.VersionObjC
61c0: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
61d0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
61e0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
61f0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
6200: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
6210: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
6220: 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 sultObj;.. dp
6230: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
6240: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
6250: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
6260: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 31 if (objc != 1
6270: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
6280: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
6290: 20 6f 62 6a 76 2c 20 4e 55 4c 4c 29 3b 0a 09 72 objv, NULL);..r
62a0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
62b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 72 65 73 75 . }.. resu
62c0: 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 53 ltObj = Tcl_NewS
62d0: 74 72 69 6e 67 4f 62 6a 28 4f 50 45 4e 53 53 4c tringObj(OPENSSL
62e0: 5f 56 45 52 53 49 4f 4e 5f 54 45 58 54 2c 20 2d _VERSION_TEXT, -
62f0: 31 29 3b 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 1);. Tcl_SetO
6300: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
6310: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 resultObj);.
6320: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
6330: 09 63 6c 69 65 6e 74 44 61 74 61 20 3d 20 63 6c .clientData = cl
6340: 69 65 6e 74 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a ientData;.}../**
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 2a 2a ****************
6380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6390: 2a 2f 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d ----------------
63d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
63e0: 20 2a 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61 * Tls_InfoComma
63f0: 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 nds --. *. *.Cre
6400: 61 74 65 20 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 ate info command
6410: 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a s. *. * Returns:
6420: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
6430: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
6440: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
6450: 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a reates commands.
6460: 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
64a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
64b0: 20 54 6c 73 5f 49 6e 66 6f 43 6f 6d 6d 61 6e 64 Tls_InfoCommand
64c0: 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e s(Tcl_Interp *in
64d0: 74 65 72 70 29 20 7b 0a 0a 23 69 66 20 4f 50 45 terp) {..#if OPE
64e0: 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d NSSL_VERSION_NUM
64f0: 42 45 52 20 3c 20 30 78 31 30 31 30 30 30 30 30 BER < 0x10100000
6500: 4c 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 L. OpenSSL_ad
6510: 64 5f 61 6c 6c 5f 63 69 70 68 65 72 73 28 29 3b d_all_ciphers();
6520: 0a 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 . OpenSSL_add
6530: 5f 61 6c 6c 5f 64 69 67 65 73 74 73 28 29 3b 0a _all_digests();.
6540: 20 20 20 20 4f 70 65 6e 53 53 4c 5f 61 64 64 5f OpenSSL_add_
6550: 61 6c 6c 5f 61 6c 67 6f 72 69 74 68 6d 73 28 29 all_algorithms()
6560: 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 54 63 ;.#endif.. Tc
6570: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
6580: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
6590: 3a 63 69 70 68 65 72 22 2c 20 43 69 70 68 65 72 :cipher", Cipher
65a0: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
65b0: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
65c0: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
65d0: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
65e0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
65f0: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 63 69 70 68 terp, "tls::ciph
6600: 65 72 73 22 2c 20 43 69 70 68 65 72 73 4f 62 6a ers", CiphersObj
6610: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
6620: 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c ) 0, (Tcl_CmdDel
6630: 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 eteProc *) NULL)
6640: 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 65 ;. Tcl_Create
6650: 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 ObjCommand(inter
6660: 70 2c 20 22 74 6c 73 3a 3a 64 69 67 65 73 74 73 p, "tls::digests
6670: 22 2c 20 44 69 67 65 73 74 73 4f 62 6a 43 6d 64 ", DigestsObjCmd
6680: 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 , (ClientData) 0
6690: 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 , (Tcl_CmdDelete
66a0: 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Proc *) NULL);.
66b0: 20 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a Tcl_CreateObj
66c0: 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 Command(interp,
66d0: 22 74 6c 73 3a 3a 6b 64 66 73 22 2c 20 4b 64 66 "tls::kdfs", Kdf
66e0: 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 sObjCmd, (Client
66f0: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
6700: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
6710: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
6720: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
6730: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 6d 61 63 nterp, "tls::mac
6740: 73 22 2c 20 4d 61 63 73 4f 62 6a 43 6d 64 2c 20 s", MacsObjCmd,
6750: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
6760: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
6770: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
6780: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
6790: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
67a0: 6c 73 3a 3a 70 6b 65 79 73 22 2c 20 50 6b 65 79 ls::pkeys", Pkey
67b0: 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 sObjCmd, (Client
67c0: 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d Data) 0, (Tcl_Cm
67d0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
67e0: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
67f0: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
6800: 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 70 72 6f nterp, "tls::pro
6810: 74 6f 63 6f 6c 73 22 2c 20 50 72 6f 74 6f 63 6f tocols", Protoco
6820: 6c 73 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e lsObjCmd, (Clien
6830: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
6840: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
6850: 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 NULL);. Tcl_C
6860: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
6870: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 76 65 interp, "tls::ve
6880: 72 73 69 6f 6e 22 2c 20 56 65 72 73 69 6f 6e 4f rsion", VersionO
6890: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
68a0: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
68b0: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
68c0: 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 L);. return T
68d0: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a CL_OK;.}..