0000: 2f 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e /*. * Encryption
0010: 20 46 75 6e 63 74 69 6f 6e 73 20 4d 6f 64 75 6c Functions Modul
0020: 65 0a 20 2a 0a 20 2a 20 54 68 69 73 20 6d 6f 64 e. *. * This mod
0030: 75 6c 65 20 70 72 6f 76 69 64 65 73 20 63 6f 6d ule provides com
0040: 6d 61 6e 64 73 20 74 68 61 74 20 63 61 6e 20 62 mands that can b
0050: 65 20 75 73 65 64 20 74 6f 20 65 6e 63 72 79 70 e used to encryp
0060: 74 20 6f 72 20 64 65 63 72 79 70 74 20 64 61 74 t or decrypt dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 ude <tcl.h>.#inc
00e0: 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 lude <stdio.h>.#
00f0: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e include <string.
0100: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 h>.#include <ope
0110: 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 23 69 66 20 nssl/evp.h>.#if
0120: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
0130: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
0140: 30 30 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 0000L.#include <
0150: 6f 70 65 6e 73 73 6c 2f 70 61 72 61 6d 73 2e 68 openssl/params.h
0160: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 4d 61 63 >.#endif../* Mac
0170: 72 6f 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 42 ros */.#define B
0180: 55 46 46 45 52 5f 53 49 5a 45 09 33 32 37 36 38 UFFER_SIZE.32768
0190: 0a 0a 2f 2a 20 45 6e 63 72 79 70 74 69 6f 6e 20 ../* Encryption
01a0: 66 75 6e 63 74 69 6f 6e 73 20 2a 2f 0a 23 64 65 functions */.#de
01b0: 66 69 6e 65 20 54 59 50 45 5f 4d 44 09 09 30 78 fine TYPE_MD..0x
01c0: 30 31 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 010.#define TYPE
01d0: 5f 48 4d 41 43 09 30 78 30 32 30 0a 23 64 65 66 _HMAC.0x020.#def
01e0: 69 6e 65 20 54 59 50 45 5f 43 4d 41 43 09 30 78 ine TYPE_CMAC.0x
01f0: 30 34 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 040.#define TYPE
0200: 5f 4d 41 43 09 30 78 30 38 30 0a 23 64 65 66 69 _MAC.0x080.#defi
0210: 6e 65 20 54 59 50 45 5f 45 4e 43 52 59 50 54 09 ne TYPE_ENCRYPT.
0220: 30 78 31 30 30 0a 23 64 65 66 69 6e 65 20 54 59 0x100.#define TY
0230: 50 45 5f 44 45 43 52 59 50 54 09 30 78 32 30 30 PE_DECRYPT.0x200
0240: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 53 49 .#define TYPE_SI
0250: 47 4e 09 30 78 34 30 30 0a 23 64 65 66 69 6e 65 GN.0x400.#define
0260: 20 54 59 50 45 5f 56 45 52 49 46 59 09 30 78 38 TYPE_VERIFY.0x8
0270: 30 30 0a 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00.../**********
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
02c0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0300: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 ----. *. * Encry
0310: 70 74 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d 0a ptInitialize --.
0320: 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 *. *.Initialize
0330: 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 an encryption f
0340: 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 unction. *. * Re
0350: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
0360: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
0370: 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 20 r TCL_ERROR for
0380: 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 73 failure with res
0390: 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 72 ult set. *.to er
03a0: 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a ror message.. *.
03b0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
03c0: 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f 72 . *.No result or
03d0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 error message.
03e0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
03f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0420: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
0430: 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a EncryptInitializ
0440: 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e e(Tcl_Interp *in
0450: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 terp, int type,
0460: 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a EVP_CIPHER_CTX *
0470: 2a 63 74 78 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a *ctx,..Tcl_Obj *
0480: 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f 4f cipherObj, Tcl_O
0490: 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f bj *keyObj, Tcl_
04a0: 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 Obj *ivObj) {.
04b0: 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 const EVP_CIPH
04c0: 45 52 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 20 ER *cipher;.
04d0: 63 68 61 72 20 2a 63 69 70 68 65 72 4e 61 6d 65 char *cipherName
04e0: 20 3d 20 20 4e 55 4c 4c 2c 20 2a 6b 65 79 20 3d = NULL, *key =
04f0: 20 4e 55 4c 4c 2c 20 2a 69 76 20 3d 20 4e 55 4c NULL, *iv = NUL
0500: 4c 3b 0a 20 20 20 20 69 6e 74 20 63 69 70 68 65 L;. int ciphe
0510: 72 5f 6c 65 6e 20 3d 20 30 2c 20 64 61 74 61 5f r_len = 0, data_
0520: 6c 65 6e 20 3d 20 30 2c 20 6b 65 79 5f 6c 65 6e len = 0, key_len
0530: 20 3d 20 30 2c 20 69 76 5f 6c 65 6e 20 3d 20 30 = 0, iv_len = 0
0540: 2c 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 72 69 , res;.. dpri
0550: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
0560: 20 20 20 20 2f 2a 20 47 65 74 20 65 6e 63 72 79 /* Get encry
0570: 70 74 69 6f 6e 20 70 61 72 61 6d 65 74 65 72 73 ption parameters
0580: 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 69 70 68 */. if (ciph
0590: 65 72 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b erObj != NULL) {
05a0: 0a 09 63 69 70 68 65 72 4e 61 6d 65 20 3d 20 54 ..cipherName = T
05b0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
05c0: 4f 62 6a 28 63 69 70 68 65 72 4f 62 6a 2c 20 26 Obj(cipherObj, &
05d0: 63 69 70 68 65 72 5f 6c 65 6e 29 3b 0a 20 20 20 cipher_len);.
05e0: 20 7d 0a 20 20 20 20 69 66 20 28 6b 65 79 4f 62 }. if (keyOb
05f0: 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6b 65 j != NULL) {..ke
0600: 79 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e y = Tcl_GetStrin
0610: 67 46 72 6f 6d 4f 62 6a 28 6b 65 79 4f 62 6a 2c gFromObj(keyObj,
0620: 20 26 6b 65 79 5f 6c 65 6e 29 3b 0a 20 20 20 20 &key_len);.
0630: 7d 0a 20 20 20 20 69 66 20 28 69 76 4f 62 6a 20 }. if (ivObj
0640: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 76 20 3d != NULL) {..iv =
0650: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
0660: 6f 6d 4f 62 6a 28 69 76 4f 62 6a 2c 20 26 69 76 omObj(ivObj, &iv
0670: 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 _len);. }..
0680: 20 20 2f 2a 20 47 65 74 20 63 69 70 68 65 72 20 /* Get cipher
0690: 6e 61 6d 65 20 2a 2f 0a 23 69 66 20 4f 50 45 4e name */.#if OPEN
06a0: 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 SSL_VERSION_NUMB
06b0: 45 52 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c ER < 0x30000000L
06c0: 0a 20 20 20 20 63 69 70 68 65 72 20 3d 20 45 56 . cipher = EV
06d0: 50 5f 67 65 74 5f 63 69 70 68 65 72 62 79 6e 61 P_get_cipherbyna
06e0: 6d 65 28 63 69 70 68 65 72 4e 61 6d 65 29 3b 0a me(cipherName);.
06f0: 23 65 6c 73 65 0a 20 20 20 20 63 69 70 68 65 72 #else. cipher
0700: 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f 66 65 = EVP_CIPHER_fe
0710: 74 63 68 28 4e 55 4c 4c 2c 20 63 69 70 68 65 72 tch(NULL, cipher
0720: 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e Name, NULL);.#en
0730: 64 69 66 0a 20 20 20 20 69 66 20 28 63 69 70 68 dif. if (ciph
0740: 65 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 er == NULL) {..T
0750: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
0760: 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 interp, "Invalid
0770: 20 63 69 70 68 65 72 3a 20 5c 22 22 2c 20 63 69 cipher: \"", ci
0780: 70 68 65 72 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 pherName, "\"",
0790: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
07a0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
07b0: 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 61 . /* Create a
07c0: 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 nd initialize th
07d0: 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 e context */.
07e0: 20 69 66 28 28 2a 63 74 78 20 3d 20 45 56 50 5f if((*ctx = EVP_
07f0: 43 49 50 48 45 52 5f 43 54 58 5f 6e 65 77 28 29 CIPHER_CTX_new()
0800: 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ) == NULL) {..Tc
0810: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
0820: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
0830: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
0840: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
0850: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
0860: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
0870: 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 /* Initialize th
0880: 65 20 6f 70 65 72 61 74 69 6f 6e 2e 20 4e 65 65 e operation. Nee
0890: 64 20 61 70 70 72 6f 70 72 69 61 74 65 20 6b 65 d appropriate ke
08a0: 79 20 61 6e 64 20 69 76 20 73 69 7a 65 2e 20 2a y and iv size. *
08b0: 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 /.#if OPENSSL_VE
08c0: 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 RSION_NUMBER < 0
08d0: 78 33 30 30 30 30 30 30 30 4c 0a 20 20 20 20 69 x30000000L. i
08e0: 66 20 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f f (type == TYPE_
08f0: 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 ENCRYPT) {..res
0900: 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 = EVP_EncryptIni
0910: 74 5f 65 78 28 2a 63 74 78 2c 20 63 69 70 68 65 t_ex(*ctx, ciphe
0920: 72 2c 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 r, NULL, key, iv
0930: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
0940: 09 72 65 73 20 3d 20 45 56 50 5f 44 65 63 72 79 .res = EVP_Decry
0950: 70 74 49 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 ptInit_ex(*ctx,
0960: 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 6b 65 cipher, NULL, ke
0970: 79 2c 20 69 76 29 3b 0a 20 20 20 20 7d 0a 23 65 y, iv);. }.#e
0980: 6c 73 65 0a 09 4f 53 53 4c 5f 50 41 52 41 4d 20 lse..OSSL_PARAM
0990: 70 61 72 61 6d 73 5b 32 5d 3b 0a 09 69 6e 74 20 params[2];..int
09a0: 69 6e 64 65 78 20 3d 20 30 3b 0a 0a 09 69 66 20 index = 0;...if
09b0: 28 69 76 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 (iv != NULL) {..
09c0: 20 20 20 20 70 61 72 61 6d 73 5b 69 6e 64 65 78 params[index
09d0: 2b 2b 5d 20 3d 20 4f 53 53 4c 5f 50 41 52 41 4d ++] = OSSL_PARAM
09e0: 5f 63 6f 6e 73 74 72 75 63 74 5f 6f 63 74 65 74 _construct_octet
09f0: 5f 73 74 72 69 6e 67 28 4f 53 53 4c 5f 43 49 50 _string(OSSL_CIP
0a00: 48 45 52 5f 50 41 52 41 4d 5f 49 56 2c 20 28 76 HER_PARAM_IV, (v
0a10: 6f 69 64 20 2a 29 20 69 76 2c 20 28 73 69 7a 65 oid *) iv, (size
0a20: 5f 74 29 20 69 76 5f 6c 65 6e 29 3b 0a 09 7d 0a _t) iv_len);..}.
0a30: 09 70 61 72 61 6d 73 5b 69 6e 64 65 78 5d 20 3d .params[index] =
0a40: 20 4f 53 53 4c 5f 50 41 52 41 4d 5f 63 6f 6e 73 OSSL_PARAM_cons
0a50: 74 72 75 63 74 5f 65 6e 64 28 29 3b 0a 0a 20 20 truct_end();..
0a60: 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 if (type == TY
0a70: 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 PE_ENCRYPT) {..r
0a80: 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 es = EVP_Encrypt
0a90: 49 6e 69 74 5f 65 78 32 28 63 74 78 2c 20 63 69 Init_ex2(ctx, ci
0aa0: 70 68 65 72 2c 20 6b 65 79 2c 20 69 76 2c 20 70 pher, key, iv, p
0ab0: 61 72 61 6d 73 29 3b 0a 20 20 20 20 7d 20 65 6c arams);. } el
0ac0: 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f se {..res = EVP_
0ad0: 44 65 63 72 79 70 74 49 6e 69 74 5f 65 78 32 28 DecryptInit_ex2(
0ae0: 63 74 78 2c 20 63 69 70 68 65 72 2c 20 6b 65 79 ctx, cipher, key
0af0: 2c 20 69 76 2c 20 70 61 72 61 6d 73 29 3b 0a 20 , iv, params);.
0b00: 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 20 20 }.#endif..
0b10: 20 69 66 28 21 72 65 73 29 20 7b 0a 09 54 63 6c if(!res) {..Tcl
0b20: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
0b30: 74 65 72 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a terp, "Initializ
0b40: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 45 41 e failed: ", REA
0b50: 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 72 SON(), NULL);..r
0b60: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
0b70: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
0b80: 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a n TCL_OK;.}../*.
0b90: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bd0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
0be0: 79 70 74 55 70 64 61 74 65 20 2d 2d 0a 20 2a 0a yptUpdate --. *.
0bf0: 20 2a 09 55 70 64 61 74 65 20 61 6e 20 65 6e 63 *.Update an enc
0c00: 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e ryption function
0c10: 20 77 69 74 68 20 64 61 74 61 0a 20 2a 0a 20 2a with data. *. *
0c20: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 31 20 69 Returns:. *.1 i
0c30: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 f successful or
0c40: 30 20 66 6f 72 20 66 61 69 6c 75 72 65 0a 20 2a 0 for failure. *
0c50: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0c60: 3a 0a 20 2a 09 41 64 64 73 20 65 6e 63 72 79 70 :. *.Adds encryp
0c70: 74 65 64 20 64 61 74 61 20 74 6f 20 62 75 66 66 ted data to buff
0c80: 65 72 20 6f 72 20 73 65 74 73 20 72 65 73 75 6c er or sets resul
0c90: 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 t to error messa
0ca0: 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ge. *. *--------
0cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
0cf0: 69 6e 74 20 45 6e 63 72 79 70 74 55 70 64 61 74 int EncryptUpdat
0d00: 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e e(Tcl_Interp *in
0d10: 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 terp, int type,
0d20: 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a EVP_CIPHER_CTX *
0d30: 63 74 78 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 ctx, unsigned ch
0d40: 61 72 20 2a 6f 75 74 62 75 66 2c 0a 09 69 6e 74 ar *outbuf,..int
0d50: 20 2a 6f 75 74 5f 6c 65 6e 2c 20 75 6e 73 69 67 *out_len, unsig
0d60: 6e 65 64 20 63 68 61 72 20 2a 64 61 74 61 2c 20 ned char *data,
0d70: 69 6e 74 20 64 61 74 61 5f 6c 65 6e 29 20 7b 0a int data_len) {.
0d80: 20 20 20 20 69 6e 74 20 72 65 73 2c 20 6c 65 6e int res, len
0d90: 20 3d 20 30 3b 0a 0a 20 20 20 20 64 70 72 69 6e = 0;.. dprin
0da0: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
0db0: 20 20 20 2f 2a 20 45 6e 63 72 79 70 74 2f 64 65 /* Encrypt/de
0dc0: 63 72 79 70 74 20 64 61 74 61 20 2a 2f 0a 20 20 crypt data */.
0dd0: 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 if (type == TY
0de0: 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 PE_ENCRYPT) {..r
0df0: 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 es = EVP_Encrypt
0e00: 55 70 64 61 74 65 28 63 74 78 2c 20 6f 75 74 62 Update(ctx, outb
0e10: 75 66 2c 20 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 uf, out_len, dat
0e20: 61 2c 20 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 a, data_len);.
0e30: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 } else {..res
0e40: 3d 20 45 56 50 5f 44 65 63 72 79 70 74 55 70 64 = EVP_DecryptUpd
0e50: 61 74 65 28 63 74 78 2c 20 6f 75 74 62 75 66 2c ate(ctx, outbuf,
0e60: 20 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 out_len, data,
0e70: 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d data_len);. }
0e80: 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 20 7b .. if (res) {
0e90: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
0ea0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
0eb0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
0ec0: 69 6e 74 65 72 70 2c 20 22 55 70 64 61 74 65 20 interp, "Update
0ed0: 66 61 69 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f failed: ", REASO
0ee0: 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 N(), NULL);..ret
0ef0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
0f00: 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d }.}../*. *---
0f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f50: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 46 69 . *. * EncryptFi
0f60: 6e 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 nalize --. *. *.
0f70: 46 69 6e 61 6c 69 7a 65 20 61 6e 20 65 6e 63 72 Finalize an encr
0f80: 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 0a yption function.
0f90: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
0fa0: 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 *.TCL_OK if succ
0fb0: 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 essful or TCL_ER
0fc0: 52 4f 52 20 66 6f 72 20 66 61 69 6c 75 72 65 20 ROR for failure
0fd0: 77 69 74 68 20 72 65 73 75 6c 74 20 73 65 74 0a with result set.
0fe0: 20 2a 09 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 *.to error mess
0ff0: 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 age.. *. * Side
1000: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 effects:. *.Adds
1010: 20 65 6e 63 72 79 70 74 65 64 20 64 61 74 61 20 encrypted data
1020: 74 6f 20 62 75 66 66 65 72 20 6f 72 20 73 65 74 to buffer or set
1030: 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f s result to erro
1040: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1090: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
10a0: 70 74 46 69 6e 61 6c 69 7a 65 28 54 63 6c 5f 49 ptFinalize(Tcl_I
10b0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
10c0: 6e 74 20 74 79 70 65 2c 20 45 56 50 5f 43 49 50 nt type, EVP_CIP
10d0: 48 45 52 5f 43 54 58 20 2a 63 74 78 2c 20 75 6e HER_CTX *ctx, un
10e0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6f 75 74 signed char *out
10f0: 62 75 66 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f 6c buf,..int *out_l
1100: 65 6e 29 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 en) {. int re
1110: 73 2c 20 6c 65 6e 20 3d 20 30 3b 0a 0a 20 20 20 s, len = 0;..
1120: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
1130: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 ");.. /* Fina
1140: 6c 69 7a 65 20 64 61 74 61 20 2a 2f 0a 20 20 20 lize data */.
1150: 20 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 50 if (type == TYP
1160: 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 E_ENCRYPT) {..re
1170: 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 46 s = EVP_EncryptF
1180: 69 6e 61 6c 5f 65 78 28 63 74 78 2c 20 6f 75 74 inal_ex(ctx, out
1190: 62 75 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 buf, out_len);.
11a0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 } else {..res
11b0: 20 3d 20 45 56 50 5f 44 65 63 72 79 70 74 46 69 = EVP_DecryptFi
11c0: 6e 61 6c 5f 65 78 28 63 74 78 2c 20 6f 75 74 62 nal_ex(ctx, outb
11d0: 75 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 uf, out_len);.
11e0: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 73 }.. if (res
11f0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
1200: 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b OK;. } else {
1210: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
1220: 6c 74 28 69 6e 74 65 72 70 2c 20 22 46 69 6e 61 lt(interp, "Fina
1230: 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 lize failed: ",
1240: 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b REASON(), NULL);
1250: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
1260: 4f 52 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a OR;. }.}../**
1270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1290: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
12a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
12b0: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1300: 20 2a 20 45 6e 63 72 79 70 74 44 61 74 61 48 61 * EncryptDataHa
1310: 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 ndler --. *. *.P
1320: 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f erform encryptio
1330: 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 n function on a
1340: 62 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e block of data an
1350: 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e d return result.
1360: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
1370: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
1380: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
1390: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 e effects:. *.Se
13a0: 74 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 ts result or err
13b0: 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a or message. *. *
13c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1400: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 ---. */.int Encr
1410: 79 70 74 44 61 74 61 48 61 6e 64 6c 65 72 28 54 yptDataHandler(T
1420: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
1430: 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c p, int type, Tcl
1440: 5f 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 54 _Obj *dataObj, T
1450: 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 cl_Obj *cipherOb
1460: 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 j,..Tcl_Obj *dig
1470: 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 estObj, Tcl_Obj
1480: 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a *keyObj, Tcl_Obj
1490: 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 45 *ivObj) {. E
14a0: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 VP_CIPHER_CTX *c
14b0: 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 tx = NULL;. i
14c0: 6e 74 20 64 61 74 61 5f 6c 65 6e 20 3d 20 30 2c nt data_len = 0,
14d0: 20 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 out_len = 0, le
14e0: 6e 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 4c n = 0, res = TCL
14f0: 5f 4f 4b 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 _OK;. unsigne
1500: 64 20 63 68 61 72 20 2a 64 61 74 61 2c 20 2a 6f d char *data, *o
1510: 75 74 62 75 66 3b 0a 20 20 20 20 54 63 6c 5f 4f utbuf;. Tcl_O
1520: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 0a bj *resultObj;..
1530: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
1540: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 led");.. /* G
1550: 65 74 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 et data */. i
1560: 66 20 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e 55 f (dataObj != NU
1570: 4c 4c 29 20 7b 0a 09 64 61 74 61 20 3d 20 54 63 LL) {..data = Tc
1580: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 l_GetByteArrayFr
1590: 6f 6d 4f 62 6a 28 64 61 74 61 4f 62 6a 2c 20 26 omObj(dataObj, &
15a0: 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d data_len);. }
15b0: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 else {..Tcl_App
15c0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
15d0: 2c 20 22 4e 6f 20 64 61 74 61 22 2c 20 4e 55 4c , "No data", NUL
15e0: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
15f0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
1600: 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 74 /* Allocate st
1610: 6f 72 61 67 65 20 66 6f 72 20 65 6e 63 72 79 70 orage for encryp
1620: 74 65 64 20 64 61 74 61 2e 20 53 69 7a 65 20 73 ted data. Size s
1630: 68 6f 75 6c 64 20 62 65 20 64 61 74 61 20 73 69 hould be data si
1640: 7a 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a 65 2e ze + block size.
1650: 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 */. resultOb
1660: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 j = Tcl_NewObj()
1670: 3b 0a 20 20 20 20 6f 75 74 62 75 66 20 3d 20 54 ;. outbuf = T
1680: 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c cl_SetByteArrayL
1690: 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c ength(resultObj,
16a0: 20 64 61 74 61 5f 6c 65 6e 2b 31 30 32 34 29 3b data_len+1024);
16b0: 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f . if (resultO
16c0: 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 bj == NULL || ou
16d0: 74 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a tbuf == NULL) {.
16e0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
16f0: 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 t(interp, "Memor
1700: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 y allocation err
1710: 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 or", (char *) NU
1720: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
1730: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
1740: 20 20 20 2f 2a 20 50 65 72 66 6f 72 6d 20 6f 70 /* Perform op
1750: 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 eration */. i
1760: 66 20 28 45 6e 63 72 79 70 74 49 6e 69 74 69 61 f (EncryptInitia
1770: 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 70 lize(interp, typ
1780: 65 2c 20 26 63 74 78 2c 20 63 69 70 68 65 72 4f e, &ctx, cipherO
1790: 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 bj, keyObj, ivOb
17a0: 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a j) != TCL_OK ||.
17b0: 09 45 6e 63 72 79 70 74 55 70 64 61 74 65 28 69 .EncryptUpdate(i
17c0: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 74 78 nterp, type, ctx
17d0: 2c 20 6f 75 74 62 75 66 2c 20 26 6f 75 74 5f 6c , outbuf, &out_l
17e0: 65 6e 2c 20 64 61 74 61 2c 20 64 61 74 61 5f 6c en, data, data_l
17f0: 65 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 7c 7c en) != TCL_OK ||
1800: 0a 09 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a ..EncryptFinaliz
1810: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
1820: 63 74 78 2c 20 6f 75 74 62 75 66 2b 6f 75 74 5f ctx, outbuf+out_
1830: 6c 65 6e 2c 20 26 6c 65 6e 29 20 21 3d 20 54 43 len, &len) != TC
1840: 4c 5f 4f 4b 29 20 7b 0a 09 72 65 73 20 3d 20 54 L_OK) {..res = T
1850: 43 4c 5f 45 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 CL_ERROR;..goto
1860: 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 20 20 20 20 done;. }.
1870: 6f 75 74 5f 6c 65 6e 20 2b 3d 20 6c 65 6e 3b 0a out_len += len;.
1880: 0a 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 53 65 .done:. /* Se
1890: 74 20 6f 75 74 70 75 74 20 72 65 73 75 6c 74 20 t output result
18a0: 2a 2f 0a 20 20 20 20 69 66 20 28 72 65 73 20 3d */. if (res =
18b0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 6f 75 74 = TCL_OK) {..out
18c0: 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 buf = Tcl_SetByt
18d0: 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 eArrayLength(res
18e0: 75 6c 74 4f 62 6a 2c 20 6f 75 74 5f 6c 65 6e 29 ultObj, out_len)
18f0: 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 ;..Tcl_SetObjRes
1900: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
1910: 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c ltObj);. } el
1920: 73 65 20 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 se {..Tcl_DecrRe
1930: 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a fCount(resultObj
1940: 29 3b 0a 09 2f 2a 20 52 65 73 75 6c 74 20 69 73 );../* Result is
1950: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 20 2a error message *
1960: 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 /. }.. /*
1970: 43 6c 65 61 6e 20 75 70 20 2a 2f 0a 20 20 20 20 Clean up */.
1980: 69 66 20 28 63 74 78 20 21 3d 20 4e 55 4c 4c 29 if (ctx != NULL)
1990: 20 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f 43 {..EVP_CIPHER_C
19a0: 54 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 TX_free(ctx);.
19b0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 }. return r
19c0: 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a es;.}../********
19d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
19e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
19f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1a00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a ***********/../*
1a10: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
1a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a50: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
1a60: 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 20 ryptFileHandler
1a70: 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d --. *. *.Perform
1a80: 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 encryption func
1a90: 74 69 6f 6e 20 6f 6e 20 61 20 62 6c 6f 63 6b 20 tion on a block
1aa0: 6f 66 20 64 61 74 61 20 61 6e 64 20 72 65 74 75 of data and retu
1ab0: 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a rn result.. *. *
1ac0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
1ad0: 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 _OK or TCL_ERROR
1ae0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
1af0: 63 74 73 3a 0a 20 2a 09 45 6e 63 72 79 70 74 73 cts:. *.Encrypts
1b00: 20 6f 72 20 64 65 63 72 79 70 74 73 20 69 6e 46 or decrypts inF
1b10: 69 6c 65 20 64 61 74 61 20 74 6f 20 6f 75 74 46 ile data to outF
1b20: 69 6c 65 20 61 6e 64 20 73 65 74 73 20 72 65 73 ile and sets res
1b30: 75 6c 74 20 74 6f 0a 20 2a 09 73 69 7a 65 20 6f ult to. *.size o
1b40: 66 20 6f 75 74 46 69 6c 65 2c 20 6f 72 20 61 6e f outFile, or an
1b50: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a error message..
1b60: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
1b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ba0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
1bb0: 20 45 6e 63 72 79 70 74 46 69 6c 65 48 61 6e 64 EncryptFileHand
1bc0: 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ler(Tcl_Interp *
1bd0: 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 interp, int type
1be0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 6c , Tcl_Obj *inFil
1bf0: 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6f eObj, Tcl_Obj *o
1c00: 75 74 46 69 6c 65 4f 62 6a 2c 0a 09 54 63 6c 5f utFileObj,..Tcl_
1c10: 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 Obj *cipherObj,
1c20: 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f Tcl_Obj *digestO
1c30: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 bj, Tcl_Obj *key
1c40: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 Obj, Tcl_Obj *iv
1c50: 4f 62 6a 29 20 7b 0a 20 20 20 20 45 56 50 5f 43 Obj) {. EVP_C
1c60: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 3d IPHER_CTX *ctx =
1c70: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 74 NULL;. int t
1c80: 6f 74 61 6c 20 3d 20 30 2c 20 72 65 73 2c 20 6f otal = 0, res, o
1c90: 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e 3b ut_len = 0, len;
1ca0: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
1cb0: 20 69 6e 20 3d 20 4e 55 4c 4c 2c 20 6f 75 74 20 in = NULL, out
1cc0: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e 73 69 = NULL;. unsi
1cd0: 67 6e 65 64 20 63 68 61 72 20 69 6e 5f 62 75 66 gned char in_buf
1ce0: 5b 42 55 46 46 45 52 5f 53 49 5a 45 5d 3b 0a 20 [BUFFER_SIZE];.
1cf0: 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 unsigned char
1d00: 20 6f 75 74 5f 62 75 66 5b 42 55 46 46 45 52 5f out_buf[BUFFER_
1d10: 53 49 5a 45 2b 31 30 32 34 5d 3b 0a 0a 20 20 20 SIZE+1024];..
1d20: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
1d30: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e ");.. /* Open
1d40: 20 69 6e 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 input file */.
1d50: 20 20 20 69 66 20 28 28 69 6e 20 3d 20 54 63 6c if ((in = Tcl
1d60: 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e _FSOpenFileChann
1d70: 65 6c 28 69 6e 74 65 72 70 2c 20 69 6e 46 69 6c el(interp, inFil
1d80: 65 4f 62 6a 2c 20 22 72 62 22 2c 20 30 34 34 34 eObj, "rb", 0444
1d90: 29 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e )) == (Tcl_Chann
1da0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
1db0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1dc0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 }.. /* Ope
1dd0: 6e 20 6f 75 74 70 75 74 20 66 69 6c 65 20 2a 2f n output file */
1de0: 0a 20 20 20 20 69 66 20 28 28 6f 75 74 20 3d 20 . if ((out =
1df0: 54 63 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 Tcl_FSOpenFileCh
1e00: 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6f 75 annel(interp, ou
1e10: 74 46 69 6c 65 4f 62 6a 2c 20 22 77 62 22 2c 20 tFileObj, "wb",
1e20: 30 36 34 34 29 29 20 3d 3d 20 28 54 63 6c 5f 43 0644)) == (Tcl_C
1e30: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
1e40: 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 .Tcl_Close(inter
1e50: 70 2c 20 69 6e 29 3b 0a 09 72 65 74 75 72 6e 20 p, in);..return
1e60: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
1e70: 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c .. /* Initial
1e80: 69 7a 65 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f ize operation */
1e90: 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 . if ((res =
1ea0: 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a EncryptInitializ
1eb0: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
1ec0: 26 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c &ctx, cipherObj,
1ed0: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 29 keyObj, ivObj))
1ee0: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 67 != TCL_OK) {..g
1ef0: 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a oto done;. }.
1f00: 0a 20 20 20 20 2f 2a 20 52 65 61 64 20 66 69 6c . /* Read fil
1f10: 65 20 64 61 74 61 20 66 72 6f 6d 20 69 6e 46 69 e data from inFi
1f20: 6c 65 2c 20 65 6e 63 72 79 70 74 2f 64 65 63 72 le, encrypt/decr
1f30: 79 70 74 20 69 74 2c 20 74 68 65 6e 20 6f 75 74 ypt it, then out
1f40: 70 75 74 20 74 6f 20 6f 75 74 46 69 6c 65 20 2a put to outFile *
1f50: 2f 0a 20 20 20 20 77 68 69 6c 65 20 28 21 54 63 /. while (!Tc
1f60: 6c 5f 45 6f 66 28 69 6e 29 29 20 7b 0a 09 69 6e l_Eof(in)) {..in
1f70: 74 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 65 61 t read = Tcl_Rea
1f80: 64 52 61 77 28 69 6e 2c 20 28 63 68 61 72 20 2a dRaw(in, (char *
1f90: 29 20 69 6e 5f 62 75 66 2c 20 42 55 46 46 45 52 ) in_buf, BUFFER
1fa0: 5f 53 49 5a 45 29 3b 0a 09 69 66 20 28 72 65 61 _SIZE);..if (rea
1fb0: 64 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 d > 0) {.. if
1fc0: 20 28 28 72 65 73 20 3d 20 45 6e 63 72 79 70 74 ((res = Encrypt
1fd0: 55 70 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 Update(interp, t
1fe0: 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 ype, ctx, out_bu
1ff0: 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f f, &out_len, in_
2000: 62 75 66 2c 20 72 65 61 64 29 29 20 3d 3d 20 54 buf, read)) == T
2010: 43 4c 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28 6f CL_OK) {...if (o
2020: 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 ut_len > 0) {...
2030: 20 20 20 20 6c 65 6e 20 3d 20 54 63 6c 5f 57 72 len = Tcl_Wr
2040: 69 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e iteRaw(out, (con
2050: 73 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 st char *) out_b
2060: 75 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 09 uf, out_len);...
2070: 20 20 20 20 69 66 20 28 6c 65 6e 20 3e 3d 20 30 if (len >= 0
2080: 29 20 7b 0a 09 09 09 74 6f 74 61 6c 20 2b 3d 20 ) {....total +=
2090: 6c 65 6e 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 len;... } els
20a0: 65 20 7b 0a 09 09 09 54 63 6c 5f 41 70 70 65 6e e {....Tcl_Appen
20b0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
20c0: 22 57 72 69 74 65 20 65 72 72 6f 72 3a 20 22 2c "Write error: ",
20d0: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 Tcl_ErrnoMsg(Tc
20e0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 28 l_GetErrno()), (
20f0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
2100: 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f ..res = TCL_ERRO
2110: 52 3b 0a 09 09 09 67 6f 74 6f 20 64 6f 6e 65 3b R;....goto done;
2120: 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 ... }...}..
2130: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 67 6f 74 } else {...got
2140: 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 o done;.. }..
2150: 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 20 } else if (read
2160: 3c 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f < 0) {.. Tcl_
2170: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2180: 65 72 70 2c 20 22 52 65 61 64 20 65 72 72 6f 72 erp, "Read error
2190: 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 : ", Tcl_ErrnoMs
21a0: 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 g(Tcl_GetErrno()
21b0: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ), (char *) NULL
21c0: 29 3b 0a 09 20 20 20 20 72 65 73 20 3d 20 54 43 );.. res = TC
21d0: 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 67 6f L_ERROR;.. go
21e0: 74 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 20 20 20 20 to done;..}.
21f0: 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 }.. /* Finali
2200: 7a 65 20 64 61 74 61 20 61 6e 64 20 77 72 69 74 ze data and writ
2210: 65 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 e any remaining
2220: 64 61 74 61 20 69 6e 20 62 6c 6f 63 6b 20 2a 2f data in block */
2230: 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 . if ((res =
2240: 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 EncryptFinalize(
2250: 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 74 interp, type, ct
2260: 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 x, out_buf, &out
2270: 5f 6c 65 6e 29 29 20 3d 3d 20 54 43 4c 5f 4f 4b _len)) == TCL_OK
2280: 29 20 7b 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e ) {..if (out_len
2290: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 6c 65 6e > 0) {.. len
22a0: 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 = Tcl_WriteRaw(
22b0: 6f 75 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 out, (const char
22c0: 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 *) out_buf, out
22d0: 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 69 66 20 28 _len);.. if (
22e0: 6c 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 74 6f len >= 0) {...to
22f0: 74 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 20 20 20 tal += len;..
2300: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 6c 5f } else {...Tcl_
2310: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
2320: 65 72 70 2c 20 22 57 72 69 74 65 20 65 72 72 6f erp, "Write erro
2330: 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d r: ", Tcl_ErrnoM
2340: 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 sg(Tcl_GetErrno(
2350: 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c )), (char *) NUL
2360: 4c 29 3b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f L);...res = TCL_
2370: 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f ERROR;...goto do
2380: 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 54 ne;.. }..}..T
2390: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
23a0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 interp, Tcl_NewI
23b0: 6e 74 4f 62 6a 28 74 6f 74 61 6c 29 29 3b 0a 20 ntObj(total));.
23c0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 67 6f 74 } else {..got
23d0: 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 64 o done;. }..d
23e0: 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 one:. /* Clea
23f0: 6e 20 75 70 20 2a 2f 0a 20 20 20 20 69 66 20 28 n up */. if (
2400: 69 6e 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 in != NULL) {..T
2410: 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c cl_Close(interp,
2420: 20 69 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 in);. }.
2430: 69 66 20 28 6f 75 74 20 21 3d 20 4e 55 4c 4c 29 if (out != NULL)
2440: 20 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e {..Tcl_Close(in
2450: 74 65 72 70 2c 20 6f 75 74 29 3b 0a 20 20 20 20 terp, out);.
2460: 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 21 3d }. if (ctx !=
2470: 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 NULL) {..EVP_CI
2480: 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 PHER_CTX_free(ct
2490: 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 x);. }. re
24a0: 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a turn res;.}../**
24b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
24c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
24d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
24e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
24f0: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
2500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
2540: 20 2a 20 45 6e 63 72 79 70 74 4d 61 69 6e 20 2d * EncryptMain -
2550: 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 -. *. *.Perform
2560: 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 encryption funct
2570: 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e 20 72 ion and return r
2580: 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 esult.. *. * Ret
2590: 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 urns:. *.TCL_OK
25a0: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a or TCL_ERROR. *.
25b0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
25c0: 0a 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 . *.Sets result
25d0: 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 or error message
25e0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
25f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
2630: 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 atic int Encrypt
2640: 4d 61 69 6e 28 69 6e 74 20 74 79 70 65 2c 20 54 Main(int type, T
2650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
2660: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
2670: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
2680: 5b 5d 29 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 []) {. int re
2690: 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 s = TCL_OK;.
26a0: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
26b0: 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 63 6d 64 4f bj = NULL, *cmdO
26c0: 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 61 74 61 bj = NULL, *data
26d0: 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 69 67 Obj = NULL, *dig
26e0: 65 73 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 estObj = NULL;.
26f0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 Tcl_Obj *inFi
2700: 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6f leObj = NULL, *o
2710: 75 74 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c utFileObj = NULL
2720: 2c 20 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c , *keyObj = NULL
2730: 2c 20 2a 69 76 4f 62 6a 20 3d 20 4e 55 4c 4c 2c , *ivObj = NULL,
2740: 20 2a 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c 4c 3b *macObj = NULL;
2750: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
2760: 2a 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c *channel = NULL,
2770: 20 2a 6f 70 74 3b 0a 20 20 20 20 63 6f 6e 73 74 *opt;. const
2780: 20 45 56 50 5f 4d 44 20 2a 6d 64 20 3d 20 4e 55 EVP_MD *md = NU
2790: 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 LL;. const EV
27a0: 50 5f 43 49 50 48 45 52 20 2a 63 69 70 68 65 72 P_CIPHER *cipher
27b0: 20 3d 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 64 70 = NULL;.. dp
27c0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
27d0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 69 .. /* Clear i
27e0: 6e 74 65 72 70 20 72 65 73 75 6c 74 20 2a 2f 0a nterp result */.
27f0: 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 Tcl_ResetRes
2800: 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 ult(interp);..
2810: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
2820: 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 g count */. i
2830: 66 20 28 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f f (objc < 3 || o
2840: 62 6a 63 20 3e 20 31 32 29 20 7b 0a 09 54 63 6c bjc > 12) {..Tcl
2850: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
2860: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
2870: 2d 63 69 70 68 65 72 20 6e 61 6d 65 20 3f 2d 64 -cipher name ?-d
2880: 69 67 65 73 74 20 6e 61 6d 65 3f 20 2d 6b 65 79 igest name? -key
2890: 20 6b 65 79 20 3f 2d 69 76 20 73 74 72 69 6e 67 key ?-iv string
28a0: 3f 20 5b 2d 69 6e 66 69 6c 65 20 66 69 6c 65 6e ? [-infile filen
28b0: 61 6d 65 20 2d 6f 75 74 66 69 6c 65 20 66 69 6c ame -outfile fil
28c0: 65 6e 61 6d 65 20 7c 20 2d 64 61 74 61 20 64 61 ename | -data da
28d0: 74 61 5d 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 ta]");..return T
28e0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
28f0: 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f 70 74 69 . /* Get opti
2900: 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 6f 72 20 28 ons */. for (
2910: 69 6e 74 20 69 64 78 20 3d 20 31 3b 20 69 64 78 int idx = 1; idx
2920: 20 3c 20 6f 62 6a 63 3b 20 69 64 78 2b 2b 29 20 < objc; idx++)
2930: 7b 0a 09 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 {..opt = Tcl_Get
2940: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
2950: 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a jv[idx], NULL);.
2960: 0a 09 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 ..if (opt[0] !=
2970: 27 2d 27 29 20 7b 0a 09 20 20 20 20 62 72 65 61 '-') {.. brea
2980: 6b 3b 0a 09 7d 0a 0a 09 4f 50 54 4f 42 4a 28 22 k;..}...OPTOBJ("
2990: 2d 63 69 70 68 65 72 22 2c 20 63 69 70 68 65 72 -cipher", cipher
29a0: 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d Obj);..OPTOBJ("-
29b0: 64 61 74 61 22 2c 20 64 61 74 61 4f 62 6a 29 3b data", dataObj);
29c0: 0a 09 4f 50 54 4f 42 4a 28 22 2d 64 69 67 65 73 ..OPTOBJ("-diges
29d0: 74 22 2c 20 64 69 67 65 73 74 4f 62 6a 29 3b 0a t", digestObj);.
29e0: 09 4f 50 54 4f 42 4a 28 22 2d 69 6e 66 69 6c 65 .OPTOBJ("-infile
29f0: 22 2c 20 69 6e 46 69 6c 65 4f 62 6a 29 3b 0a 09 ", inFileObj);..
2a00: 4f 50 54 4f 42 4a 28 22 2d 6f 75 74 66 69 6c 65 OPTOBJ("-outfile
2a10: 22 2c 20 6f 75 74 46 69 6c 65 4f 62 6a 29 3b 0a ", outFileObj);.
2a20: 09 4f 50 54 4f 42 4a 28 22 2d 6b 65 79 22 2c 20 .OPTOBJ("-key",
2a30: 6b 65 79 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a keyObj);..OPTOBJ
2a40: 28 22 2d 69 76 22 2c 20 69 76 4f 62 6a 29 3b 0a ("-iv", ivObj);.
2a50: 0a 09 4f 50 54 42 41 44 28 22 6f 70 74 69 6f 6e ..OPTBAD("option
2a60: 22 2c 20 22 2d 63 69 70 68 65 72 2c 20 2d 64 61 ", "-cipher, -da
2a70: 74 61 2c 20 2d 64 69 67 65 73 74 2c 20 2d 69 6e ta, -digest, -in
2a80: 66 69 6c 65 2c 20 2d 6b 65 79 2c 20 2d 69 76 2c file, -key, -iv,
2a90: 20 2d 6f 75 74 66 69 6c 65 22 29 3b 0a 09 72 65 -outfile");..re
2aa0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
2ab0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 }.. /* Ch
2ac0: 65 63 6b 20 66 6f 72 20 72 65 71 75 69 72 65 64 eck for required
2ad0: 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 options */.
2ae0: 69 66 20 28 63 69 70 68 65 72 4f 62 6a 20 3d 3d if (cipherObj ==
2af0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
2b00: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
2b10: 70 2c 20 22 4e 6f 20 63 69 70 68 65 72 22 2c 20 p, "No cipher",
2b20: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 NULL);. } els
2b30: 65 20 69 66 20 28 6b 65 79 4f 62 6a 20 3d 3d 20 e if (keyObj ==
2b40: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
2b50: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
2b60: 2c 20 22 4e 6f 20 6b 65 79 22 2c 20 4e 55 4c 4c , "No key", NULL
2b70: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
2b80: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
2b90: 20 2f 2a 20 50 65 72 66 6f 72 6d 20 65 6e 63 72 /* Perform encr
2ba0: 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 yption function
2bb0: 6f 6e 20 66 69 6c 65 2c 20 73 74 61 63 6b 65 64 on file, stacked
2bc0: 20 63 68 61 6e 6e 65 6c 2c 20 75 73 69 6e 67 20 channel, using
2bd0: 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e 64 instance command
2be0: 2c 20 6f 72 20 64 61 74 61 20 62 6c 6f 62 20 2a , or data blob *
2bf0: 2f 0a 20 20 20 20 69 66 20 28 69 6e 46 69 6c 65 /. if (inFile
2c00: 4f 62 6a 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6f Obj != NULL && o
2c10: 75 74 46 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c utFileObj != NUL
2c20: 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 72 L) {..res = Encr
2c30: 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 69 yptFileHandler(i
2c40: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 69 6e 46 nterp, type, inF
2c50: 69 6c 65 4f 62 6a 2c 20 6f 75 74 46 69 6c 65 4f ileObj, outFileO
2c60: 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 bj, cipherObj, d
2c70: 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a igestObj, keyObj
2c80: 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 , ivObj);. }
2c90: 65 6c 73 65 20 69 66 20 28 64 61 74 61 4f 62 6a else if (dataObj
2ca0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 != NULL) {..res
2cb0: 20 3d 20 45 6e 63 72 79 70 74 44 61 74 61 48 61 = EncryptDataHa
2cc0: 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 ndler(interp, ty
2cd0: 70 65 2c 20 64 61 74 61 4f 62 6a 2c 20 63 69 70 pe, dataObj, cip
2ce0: 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 herObj, digestOb
2cf0: 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a j, keyObj, ivObj
2d00: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
2d10: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
2d20: 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6f 70 t(interp, "No op
2d30: 65 72 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 eration specifie
2d40: 64 3a 20 55 73 65 20 2d 64 61 74 61 2c 20 2d 69 d: Use -data, -i
2d50: 6e 66 69 6c 65 2c 20 6f 72 20 2d 6f 75 74 66 69 nfile, or -outfi
2d60: 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 4e 55 4c 4c le option", NULL
2d70: 29 3b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 );..res = TCL_ER
2d80: 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 ROR;. }. r
2d90: 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a eturn res;.}../*
2da0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2de0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
2df0: 72 79 70 74 69 6f 6e 20 43 6f 6d 6d 61 6e 64 73 ryption Commands
2e00: 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 --. *. *.Perfor
2e10: 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e m encryption fun
2e20: 63 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e ction and return
2e30: 20 72 65 73 75 6c 74 73 0a 20 2a 0a 20 2a 20 52 results. *. * R
2e40: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
2e50: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
2e60: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
2e70: 73 3a 0a 20 2a 09 43 6f 6d 6d 61 6e 64 20 64 65 s:. *.Command de
2e80: 70 65 6e 64 65 6e 74 0a 20 2a 0a 20 2a 2d 2d 2d pendent. *. *---
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ed0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
2ee0: 45 6e 63 72 79 70 74 4f 62 6a 43 6d 64 28 43 6c EncryptObjCmd(Cl
2ef0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
2f00: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
2f10: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
2f20: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
2f30: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
2f40: 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 4d 61 return EncryptMa
2f50: 69 6e 28 54 59 50 45 5f 45 4e 43 52 59 50 54 2c in(TYPE_ENCRYPT,
2f60: 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f interp, objc, o
2f70: 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 bjv);.}..static
2f80: 69 6e 74 20 44 65 63 72 79 70 74 4f 62 6a 43 6d int DecryptObjCm
2f90: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
2fa0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
2fb0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
2fc0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
2fd0: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
2fe0: 20 20 20 20 72 65 74 75 72 6e 20 45 6e 63 72 79 return Encry
2ff0: 70 74 4d 61 69 6e 28 54 59 50 45 5f 44 45 43 52 ptMain(TYPE_DECR
3000: 59 50 54 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a YPT, interp, obj
3010: 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a 0a c, objv);.}../*.
3020: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3060: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
3070: 79 70 74 5f 49 6e 69 74 69 61 6c 69 7a 65 20 2d ypt_Initialize -
3080: 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 6e -. *. *.Create n
3090: 61 6d 65 73 70 61 63 65 2c 20 63 6f 6d 6d 61 6e amespace, comman
30a0: 64 73 2c 20 61 6e 64 20 72 65 67 69 73 74 65 72 ds, and register
30b0: 20 70 61 63 6b 61 67 65 20 76 65 72 73 69 6f 6e package version
30c0: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
30d0: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
30e0: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
30f0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 e effects:. *.Cr
3100: 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a 20 eates commands.
3110: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3150: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
3160: 54 6c 73 5f 45 6e 63 72 79 70 74 43 6f 6d 6d 61 Tls_EncryptComma
3170: 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a nds(Tcl_Interp *
3180: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 63 interp) {. Tc
3190: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
31a0: 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a nd(interp, "tls:
31b0: 3a 65 6e 63 72 79 70 74 22 2c 20 45 6e 63 72 79 :encrypt", Encry
31c0: 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e ptObjCmd, (Clien
31d0: 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 tData) 0, (Tcl_C
31e0: 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 mdDeleteProc *)
31f0: 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 NULL);. Tcl_C
3200: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
3210: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 64 65 interp, "tls::de
3220: 63 72 79 70 74 22 2c 20 44 65 63 72 79 70 74 4f crypt", DecryptO
3230: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
3240: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
3250: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
3260: 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 L);. return T
3270: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a CL_OK;.}..