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 45 6e 63 >.#endif../* Enc
0170: 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e ryption function
0180: 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 54 59 50 s */.#define TYP
0190: 45 5f 4d 44 09 09 30 78 30 31 30 0a 23 64 65 66 E_MD..0x010.#def
01a0: 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 09 30 78 ine TYPE_HMAC.0x
01b0: 30 32 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 020.#define TYPE
01c0: 5f 43 4d 41 43 09 30 78 30 34 30 0a 23 64 65 66 _CMAC.0x040.#def
01d0: 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 30 78 30 ine TYPE_MAC.0x0
01e0: 38 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 80.#define TYPE_
01f0: 45 4e 43 52 59 50 54 09 30 78 31 30 30 0a 23 64 ENCRYPT.0x100.#d
0200: 65 66 69 6e 65 20 54 59 50 45 5f 44 45 43 52 59 efine TYPE_DECRY
0210: 50 54 09 30 78 32 30 30 0a 23 64 65 66 69 6e 65 PT.0x200.#define
0220: 20 54 59 50 45 5f 53 49 47 4e 09 30 78 34 30 30 TYPE_SIGN.0x400
0230: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 56 45 .#define TYPE_VE
0240: 52 49 46 59 09 30 78 38 30 30 0a 0a 0a 2f 2a 2a RIFY.0x800.../**
0250: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0290: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
02a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
02e0: 20 2a 20 43 72 79 70 74 6f 44 61 74 61 48 61 6e * CryptoDataHan
02f0: 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 dler --. *. *.Pe
0300: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
0310: 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 function on a b
0320: 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 lock of data and
0330: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a return result..
0340: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
0350: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
0360: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
0370: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
0380: 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 6f s result or erro
0390: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03e0: 2d 2d 0a 20 2a 2f 0a 69 6e 74 0a 45 6e 63 72 79 --. */.int.Encry
03f0: 70 74 5f 44 61 74 61 48 61 6e 64 6c 65 72 28 54 pt_DataHandler(T
0400: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0410: 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c p, int type, Tcl
0420: 5f 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 54 _Obj *dataObj, T
0430: 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 cl_Obj *cipherOb
0440: 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 j,..Tcl_Obj *dig
0450: 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 estObj, Tcl_Obj
0460: 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a *keyObj, Tcl_Obj
0470: 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 45 *ivObj) {. E
0480: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 VP_CIPHER_CTX *c
0490: 74 78 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 tx;. const EV
04a0: 50 5f 43 49 50 48 45 52 20 2a 63 69 70 68 65 72 P_CIPHER *cipher
04b0: 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 69 70 68 ;. char *ciph
04c0: 65 72 4e 61 6d 65 20 3d 20 20 4e 55 4c 4c 2c 20 erName = NULL,
04d0: 2a 64 61 74 61 20 3d 20 4e 55 4c 4c 2c 20 2a 6b *data = NULL, *k
04e0: 65 79 20 3d 20 4e 55 4c 4c 2c 20 2a 69 76 20 3d ey = NULL, *iv =
04f0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 63 NULL;. int c
0500: 69 70 68 65 72 5f 6c 65 6e 20 3d 20 30 2c 20 64 ipher_len = 0, d
0510: 61 74 61 5f 6c 65 6e 20 3d 20 30 2c 20 6b 65 79 ata_len = 0, key
0520: 5f 6c 65 6e 20 3d 20 30 2c 20 69 76 5f 6c 65 6e _len = 0, iv_len
0530: 20 3d 20 30 2c 20 6f 75 74 5f 6c 65 6e 20 3d 20 = 0, out_len =
0540: 30 2c 20 74 6d 70 6c 65 6e 2c 20 72 65 73 3b 0a 0, tmplen, res;.
0550: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
0560: 72 20 2a 6f 75 74 62 75 66 3b 0a 20 20 20 20 54 r *outbuf;. T
0570: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
0580: 6a 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 j;.. dprintf(
0590: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
05a0: 69 66 20 28 63 69 70 68 65 72 4f 62 6a 20 21 3d if (cipherObj !=
05b0: 20 4e 55 4c 4c 29 20 7b 0a 09 63 69 70 68 65 72 NULL) {..cipher
05c0: 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 74 Name = Tcl_GetSt
05d0: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 69 70 68 ringFromObj(ciph
05e0: 65 72 4f 62 6a 2c 20 26 63 69 70 68 65 72 5f 6c erObj, &cipher_l
05f0: 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 en);. }. i
0600: 66 20 28 6b 65 79 4f 62 6a 20 21 3d 20 4e 55 4c f (keyObj != NUL
0610: 4c 29 20 7b 0a 09 6b 65 79 20 3d 20 54 63 6c 5f L) {..key = Tcl_
0620: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a GetStringFromObj
0630: 28 6b 65 79 4f 62 6a 2c 20 26 6b 65 79 5f 6c 65 (keyObj, &key_le
0640: 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 n);. }. if
0650: 20 28 69 76 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 (ivObj != NULL)
0660: 20 7b 0a 09 69 76 20 3d 20 54 63 6c 5f 47 65 74 {..iv = Tcl_Get
0670: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 69 76 StringFromObj(iv
0680: 4f 62 6a 2c 20 26 69 76 5f 6c 65 6e 29 3b 0a 20 Obj, &iv_len);.
0690: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 64 61 74 }. if (dat
06a0: 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a aObj != NULL) {.
06b0: 09 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 .data = Tcl_GetB
06c0: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
06d0: 64 61 74 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c dataObj, &data_l
06e0: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
06f0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
0700: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
0710: 64 61 74 61 22 2c 20 4e 55 4c 4c 29 3b 0a 20 20 data", NULL);.
0720: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 }.. /* Get
0730: 63 69 70 68 65 72 20 6e 61 6d 65 20 2a 2f 0a 23 cipher name */.#
0740: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
0750: 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 ON_NUMBER < 0x30
0760: 30 30 30 30 30 30 4c 0a 20 20 20 20 63 69 70 68 000000L. ciph
0770: 65 72 20 3d 20 45 56 50 5f 67 65 74 5f 63 69 70 er = EVP_get_cip
0780: 68 65 72 62 79 6e 61 6d 65 28 63 69 70 68 65 72 herbyname(cipher
0790: 4e 61 6d 65 29 3b 0a 23 65 6c 73 65 0a 20 20 20 Name);.#else.
07a0: 20 63 69 70 68 65 72 20 3d 20 45 56 50 5f 43 49 cipher = EVP_CI
07b0: 50 48 45 52 5f 66 65 74 63 68 28 4e 55 4c 4c 2c PHER_fetch(NULL,
07c0: 20 63 69 70 68 65 72 4e 61 6d 65 2c 20 4e 55 4c cipherName, NUL
07d0: 4c 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 L);.#endif. i
07e0: 66 20 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 4c f (cipher == NUL
07f0: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
0800: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
0810: 49 6e 76 61 6c 69 64 20 63 69 70 68 65 72 3a 20 Invalid cipher:
0820: 22 2c 20 63 69 70 68 65 72 4e 61 6d 65 2c 20 4e ", cipherName, N
0830: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
0840: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
0850: 20 20 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 /* Allocate
0860: 73 74 6f 72 61 67 65 20 66 6f 72 20 65 6e 63 72 storage for encr
0870: 79 70 74 65 64 20 64 61 74 61 2e 20 53 69 7a 65 ypted data. Size
0880: 20 73 68 6f 75 6c 64 20 62 65 20 64 61 74 61 20 should be data
0890: 73 69 7a 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a size + block siz
08a0: 65 2e 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 e. */. result
08b0: 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a Obj = Tcl_NewObj
08c0: 28 29 3b 0a 20 20 20 20 6f 75 74 62 75 66 20 3d ();. outbuf =
08d0: 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 Tcl_SetByteArra
08e0: 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 yLength(resultOb
08f0: 6a 2c 20 64 61 74 61 5f 6c 65 6e 2b 31 30 32 34 j, data_len+1024
0900: 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c );. if (resul
0910: 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 tObj == NULL ||
0920: 6f 75 74 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 outbuf == NULL)
0930: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
0940: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d ult(interp, "Mem
0950: 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 ory allocation e
0960: 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 rror", (char *)
0970: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
0980: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
0990: 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 61 . /* Create a
09a0: 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 74 68 nd initialize th
09b0: 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 20 e context */.
09c0: 20 69 66 28 28 63 74 78 20 3d 20 45 56 50 5f 43 if((ctx = EVP_C
09d0: 49 50 48 45 52 5f 43 54 58 5f 6e 65 77 28 29 29 IPHER_CTX_new())
09e0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
09f0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
0a00: 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c terp, "Memory al
0a10: 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c location error",
0a20: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
0a30: 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 ..Tcl_DecrRefCou
0a40: 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 nt(resultObj);..
0a50: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
0a60: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
0a70: 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6f Initialize the o
0a80: 70 65 72 61 74 69 6f 6e 2e 20 4e 65 65 64 20 61 peration. Need a
0a90: 70 70 72 6f 70 72 69 61 74 65 20 6b 65 79 20 61 ppropriate key a
0aa0: 6e 64 20 69 76 20 73 69 7a 65 2e 20 2a 2f 0a 23 nd iv size. */.#
0ab0: 69 66 20 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 if OPENSSL_VERSI
0ac0: 4f 4e 5f 4e 55 4d 42 45 52 20 3c 20 30 78 33 30 ON_NUMBER < 0x30
0ad0: 30 30 30 30 30 30 4c 0a 20 20 20 20 69 66 20 28 000000L. if (
0ae0: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
0af0: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
0b00: 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65 VP_EncryptInit_e
0b10: 78 28 63 74 78 2c 20 63 69 70 68 65 72 2c 20 4e x(ctx, cipher, N
0b20: 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b 0a 20 ULL, key, iv);.
0b30: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 } else {..res
0b40: 20 3d 20 45 56 50 5f 44 65 63 72 79 70 74 49 6e = EVP_DecryptIn
0b50: 69 74 5f 65 78 28 63 74 78 2c 20 63 69 70 68 65 it_ex(ctx, ciphe
0b60: 72 2c 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 r, NULL, key, iv
0b70: 29 3b 0a 20 20 20 20 7d 0a 23 65 6c 73 65 0a 09 );. }.#else..
0b80: 4f 53 53 4c 5f 50 41 52 41 4d 20 70 61 72 61 6d OSSL_PARAM param
0b90: 73 5b 32 5d 3b 0a 09 69 6e 74 20 69 6e 64 65 78 s[2];..int index
0ba0: 20 3d 20 30 3b 0a 0a 09 69 66 20 28 69 76 20 21 = 0;...if (iv !
0bb0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 20 20 70 = NULL) {.. p
0bc0: 61 72 61 6d 73 5b 69 6e 64 65 78 2b 2b 5d 20 3d arams[index++] =
0bd0: 20 4f 53 53 4c 5f 50 41 52 41 4d 5f 63 6f 6e 73 OSSL_PARAM_cons
0be0: 74 72 75 63 74 5f 6f 63 74 65 74 5f 73 74 72 69 truct_octet_stri
0bf0: 6e 67 28 4f 53 53 4c 5f 43 49 50 48 45 52 5f 50 ng(OSSL_CIPHER_P
0c00: 41 52 41 4d 5f 49 56 2c 20 28 76 6f 69 64 20 2a ARAM_IV, (void *
0c10: 29 20 69 76 2c 20 28 73 69 7a 65 5f 74 29 20 69 ) iv, (size_t) i
0c20: 76 5f 6c 65 6e 29 3b 0a 09 7d 0a 09 70 61 72 61 v_len);..}..para
0c30: 6d 73 5b 69 6e 64 65 78 5d 20 3d 20 4f 53 53 4c ms[index] = OSSL
0c40: 5f 50 41 52 41 4d 5f 63 6f 6e 73 74 72 75 63 74 _PARAM_construct
0c50: 5f 65 6e 64 28 29 3b 0a 0a 20 20 20 20 69 66 20 _end();.. if
0c60: 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e (type == TYPE_EN
0c70: 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 CRYPT) {..res =
0c80: 45 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f EVP_EncryptInit_
0c90: 65 78 32 28 63 74 78 2c 20 63 69 70 68 65 72 2c ex2(ctx, cipher,
0ca0: 20 6b 65 79 2c 20 69 76 2c 20 70 61 72 61 6d 73 key, iv, params
0cb0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
0cc0: 09 72 65 73 20 3d 20 45 56 50 5f 44 65 63 72 79 .res = EVP_Decry
0cd0: 70 74 49 6e 69 74 5f 65 78 32 28 63 74 78 2c 20 ptInit_ex2(ctx,
0ce0: 63 69 70 68 65 72 2c 20 6b 65 79 2c 20 69 76 2c cipher, key, iv,
0cf0: 20 70 61 72 61 6d 73 29 3b 0a 20 20 20 20 7d 0a params);. }.
0d00: 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 28 21 #endif.. if(!
0d10: 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 res) {..Tcl_Appe
0d20: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
0d30: 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 66 61 69 "Initialize fai
0d40: 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 led: ", REASON()
0d50: 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 44 65 , NULL);..Tcl_De
0d60: 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c crRefCount(resul
0d70: 74 4f 62 6a 29 3b 0a 09 45 56 50 5f 43 49 50 48 tObj);..EVP_CIPH
0d80: 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 ER_CTX_free(ctx)
0d90: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
0da0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
0db0: 2f 2a 20 45 6e 63 72 79 70 74 2f 64 65 63 72 79 /* Encrypt/decry
0dc0: 70 74 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 pt data */. i
0dd0: 66 20 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f f (type == TYPE_
0de0: 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 ENCRYPT) {..res
0df0: 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 55 70 64 = EVP_EncryptUpd
0e00: 61 74 65 28 63 74 78 2c 20 6f 75 74 62 75 66 2c ate(ctx, outbuf,
0e10: 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c &out_len, data,
0e20: 20 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 data_len);.
0e30: 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 } else {..res =
0e40: 45 56 50 5f 44 65 63 72 79 70 74 55 70 64 61 74 EVP_DecryptUpdat
0e50: 65 28 63 74 78 2c 20 6f 75 74 62 75 66 2c 20 26 e(ctx, outbuf, &
0e60: 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 out_len, data, d
0e70: 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a ata_len);. }.
0e80: 0a 20 20 20 20 69 66 20 28 21 72 65 73 29 20 7b . if (!res) {
0e90: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
0ea0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 55 70 64 61 lt(interp, "Upda
0eb0: 74 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 45 te failed: ", RE
0ec0: 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a 09 ASON(), NULL);..
0ed0: 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 Tcl_DecrRefCount
0ee0: 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 45 56 (resultObj);..EV
0ef0: 50 5f 43 49 50 48 45 52 5f 43 54 58 5f 66 72 65 P_CIPHER_CTX_fre
0f00: 65 28 63 74 78 29 3b 0a 09 72 65 74 75 72 6e 20 e(ctx);..return
0f10: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
0f20: 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a .. /* Finaliz
0f30: 65 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 e data */. if
0f40: 20 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 (type == TYPE_E
0f50: 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d NCRYPT) {..res =
0f60: 20 45 56 50 5f 45 6e 63 72 79 70 74 46 69 6e 61 EVP_EncryptFina
0f70: 6c 5f 65 78 28 63 74 78 2c 20 6f 75 74 62 75 66 l_ex(ctx, outbuf
0f80: 2b 6f 75 74 5f 6c 65 6e 2c 20 26 74 6d 70 6c 65 +out_len, &tmple
0f90: 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b n);. } else {
0fa0: 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 65 63 72 ..res = EVP_Decr
0fb0: 79 70 74 46 69 6e 61 6c 5f 65 78 28 63 74 78 2c yptFinal_ex(ctx,
0fc0: 20 6f 75 74 62 75 66 2b 6f 75 74 5f 6c 65 6e 2c outbuf+out_len,
0fd0: 20 26 74 6d 70 6c 65 6e 29 3b 0a 20 20 20 20 7d &tmplen);. }
0fe0: 0a 0a 20 20 20 20 69 66 20 28 21 72 65 73 29 20 .. if (!res)
0ff0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
1000: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 46 69 6e ult(interp, "Fin
1010: 61 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c alize failed: ",
1020: 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 REASON(), NULL)
1030: 3b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f ;..Tcl_DecrRefCo
1040: 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a unt(resultObj);.
1050: 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f .EVP_CIPHER_CTX_
1060: 66 72 65 65 28 63 74 78 29 3b 0a 09 72 65 74 75 free(ctx);..retu
1070: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1080: 20 20 7d 0a 0a 20 20 20 20 6f 75 74 5f 6c 65 6e }.. out_len
1090: 20 2b 3d 20 74 6d 70 6c 65 6e 3b 0a 20 20 20 20 += tmplen;.
10a0: 6f 75 74 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 outbuf = Tcl_Set
10b0: 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 ByteArrayLength(
10c0: 72 65 73 75 6c 74 4f 62 6a 2c 20 6f 75 74 5f 6c resultObj, out_l
10d0: 65 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 65 74 en);.. /* Set
10e0: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 20 2a return result *
10f0: 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a /. Tcl_SetObj
1100: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 Result(interp, r
1110: 65 73 75 6c 74 4f 62 6a 29 3b 0a 0a 20 20 20 20 esultObj);..
1120: 2f 2a 20 43 6c 65 61 6e 20 75 70 20 2a 2f 0a 20 /* Clean up */.
1130: 20 20 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 EVP_CIPHER_CT
1140: 58 5f 66 72 65 65 28 63 74 78 29 3b 0a 20 20 20 X_free(ctx);.
1150: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
1160: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
1170: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1180: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1190: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
11a0: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
11b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11f0: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
1200: 69 6f 6e 4d 61 69 6e 20 2d 2d 0a 20 2a 0a 20 2a ionMain --. *. *
1210: 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 .Perform encrypt
1220: 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 ion function and
1230: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a return result..
1240: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
1250: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
1260: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
1270: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
1280: 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 6f s result or erro
1290: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
12a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
12f0: 74 20 45 6e 63 72 79 70 74 69 6f 6e 4d 61 69 6e t EncryptionMain
1300: 28 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 49 (int type, Tcl_I
1310: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
1320: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
1330: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 *const objv[])
1340: 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 20 3d 20 {. int res =
1350: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 54 63 6c 5f TCL_OK;. Tcl_
1360: 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 20 3d Obj *cipherObj =
1370: 20 4e 55 4c 4c 2c 20 2a 63 6d 64 4f 62 6a 20 3d NULL, *cmdObj =
1380: 20 4e 55 4c 4c 2c 20 2a 64 61 74 61 4f 62 6a 20 NULL, *dataObj
1390: 3d 20 4e 55 4c 4c 2c 20 2a 64 69 67 65 73 74 4f = NULL, *digestO
13a0: 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 bj = NULL;. T
13b0: 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 6c 65 4f 62 cl_Obj *inFileOb
13c0: 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6f 75 74 46 69 j = NULL, *outFi
13d0: 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6b leObj = NULL, *k
13e0: 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 69 eyObj = NULL, *i
13f0: 76 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 vObj = NULL;.
1400: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 68 61 const char *cha
1410: 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c 20 2a 6f 70 nnel = NULL, *op
1420: 74 3b 0a 20 20 20 20 63 6f 6e 73 74 20 45 56 50 t;. const EVP
1430: 5f 4d 44 20 2a 6d 64 20 3d 20 4e 55 4c 4c 3b 0a _MD *md = NULL;.
1440: 20 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 const EVP_CI
1450: 50 48 45 52 20 2a 63 69 70 68 65 72 20 3d 20 4e PHER *cipher = N
1460: 55 4c 4c 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 ULL;.. dprint
1470: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
1480: 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 72 /* Clear inter
1490: 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 p result */.
14a0: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
14b0: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f 2a interp);.. /*
14c0: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
14d0: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
14e0: 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 bjc < 3 || objc
14f0: 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 12) {..Tcl_Wro
1500: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
1510: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 63 69 , 1, objv, "?-ci
1520: 70 68 65 72 20 6e 61 6d 65 3f 20 3f 2d 64 69 67 pher name? ?-dig
1530: 65 73 74 20 6e 61 6d 65 3f 20 3f 2d 6b 65 79 20 est name? ?-key
1540: 6b 65 79 3f 20 3f 2d 69 76 20 73 74 72 69 6e 67 key? ?-iv string
1550: 3f 20 5b 2d 64 61 74 61 20 64 61 74 61 5d 22 29 ? [-data data]")
1560: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
1570: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
1580: 2f 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 2a /* Get options *
1590: 2f 0a 20 20 20 20 66 6f 72 20 28 69 6e 74 20 69 /. for (int i
15a0: 64 78 20 3d 20 31 3b 20 69 64 78 20 3c 20 6f 62 dx = 1; idx < ob
15b0: 6a 63 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 6f 70 jc; idx++) {..op
15c0: 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e t = Tcl_GetStrin
15d0: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 gFromObj(objv[id
15e0: 78 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 x], NULL);...if
15f0: 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 20 (opt[0] != '-')
1600: 7b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d {.. break;..}
1610: 0a 0a 09 4f 50 54 4f 42 4a 28 22 2d 63 69 70 68 ...OPTOBJ("-ciph
1620: 65 72 22 2c 20 63 69 70 68 65 72 4f 62 6a 29 3b er", cipherObj);
1630: 0a 09 4f 50 54 4f 42 4a 28 22 2d 64 61 74 61 22 ..OPTOBJ("-data"
1640: 2c 20 64 61 74 61 4f 62 6a 29 3b 0a 09 4f 50 54 , dataObj);..OPT
1650: 4f 42 4a 28 22 2d 64 69 67 65 73 74 22 2c 20 64 OBJ("-digest", d
1660: 69 67 65 73 74 4f 62 6a 29 3b 0a 09 4f 50 54 4f igestObj);..OPTO
1670: 42 4a 28 22 2d 6b 65 79 22 2c 20 6b 65 79 4f 62 BJ("-key", keyOb
1680: 6a 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d 69 76 j);..OPTOBJ("-iv
1690: 22 2c 20 69 76 4f 62 6a 29 3b 0a 0a 09 4f 50 54 ", ivObj);...OPT
16a0: 42 41 44 28 22 6f 70 74 69 6f 6e 22 2c 20 22 2d BAD("option", "-
16b0: 63 69 70 68 65 72 2c 20 2d 64 61 74 61 2c 20 2d cipher, -data, -
16c0: 64 69 67 65 73 74 2c 20 2d 6b 65 79 2c 20 6f 72 digest, -key, or
16d0: 20 2d 69 76 22 29 3b 0a 09 72 65 74 75 72 6e 20 -iv");..return
16e0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
16f0: 0a 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 66 .. /* Check f
1700: 6f 72 20 72 65 71 75 69 72 65 64 20 6f 70 74 69 or required opti
1710: 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 ons */. if (c
1720: 69 70 68 65 72 4f 62 6a 20 3d 3d 20 4e 55 4c 4c ipherObj == NULL
1730: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
1740: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e esult(interp, "N
1750: 6f 20 63 69 70 68 65 72 22 2c 20 4e 55 4c 4c 29 o cipher", NULL)
1760: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
1770: 28 6b 65 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 (keyObj == NULL)
1780: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
1790: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f sult(interp, "No
17a0: 20 6b 65 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 key", NULL);..r
17b0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
17c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 50 . }.. /* P
17d0: 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f erform encryptio
17e0: 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 66 69 n function on fi
17f0: 6c 65 2c 20 73 74 61 63 6b 65 64 20 63 68 61 6e le, stacked chan
1800: 6e 65 6c 2c 20 75 73 69 6e 67 20 69 6e 73 74 61 nel, using insta
1810: 6e 63 65 20 63 6f 6d 6d 61 6e 64 2c 20 6f 72 20 nce command, or
1820: 64 61 74 61 20 62 6c 6f 62 20 2a 2f 0a 20 20 20 data blob */.
1830: 20 69 66 20 28 64 61 74 61 4f 62 6a 20 21 3d 20 if (dataObj !=
1840: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
1850: 6e 63 72 79 70 74 5f 44 61 74 61 48 61 6e 64 6c ncrypt_DataHandl
1860: 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c er(interp, type,
1870: 20 64 61 74 61 4f 62 6a 2c 20 63 69 70 68 65 72 dataObj, cipher
1880: 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 Obj, digestObj,
1890: 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 3b 0a keyObj, ivObj);.
18a0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 } else {..Tc
18b0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
18c0: 6e 74 65 72 70 2c 20 22 4e 6f 20 6f 70 65 72 61 nterp, "No opera
18d0: 74 69 6f 6e 20 73 70 65 63 69 66 69 65 64 3a 20 tion specified:
18e0: 55 73 65 20 2d 64 61 74 61 20 6f 70 74 69 6f 6e Use -data option
18f0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 73 20 3d ", NULL);..res =
1900: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
1910: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 }. return res
1920: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
1930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1970: 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e 20 43 . * Encryption C
1980: 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a ommands --. *. *
1990: 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 .Perform encrypt
19a0: 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 ion function and
19b0: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 73 0a return results.
19c0: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
19d0: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
19e0: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
19f0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 6f 6d effects:. *.Com
1a00: 6d 61 6e 64 20 64 65 70 65 6e 64 65 6e 74 0a 20 mand dependent.
1a10: 2a 0a 20 2a 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 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
1a60: 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 4f 62 ic int EncryptOb
1a70: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
1a80: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
1a90: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
1aa0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
1ab0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
1ac0: 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 45 6e {. return En
1ad0: 63 72 79 70 74 69 6f 6e 4d 61 69 6e 28 54 59 50 cryptionMain(TYP
1ae0: 45 5f 45 4e 43 52 59 50 54 2c 20 69 6e 74 65 72 E_ENCRYPT, inter
1af0: 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a p, objc, objv);.
1b00: 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 44 65 }..static int De
1b10: 63 72 79 70 74 4f 62 6a 43 6d 64 28 43 6c 69 65 cryptObjCmd(Clie
1b20: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
1b30: 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 a, Tcl_Interp *i
1b40: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
1b50: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
1b60: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 72 65 objv[]) {. re
1b70: 74 75 72 6e 20 45 6e 63 72 79 70 74 69 6f 6e 4d turn EncryptionM
1b80: 61 69 6e 28 54 59 50 45 5f 44 45 43 52 59 50 54 ain(TYPE_DECRYPT
1b90: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
1ba0: 6f 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d objv);.}../*. *-
1bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bf0: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
1c00: 5f 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d 0a 20 _Initialize --.
1c10: 2a 0a 20 2a 09 43 72 65 61 74 65 20 6e 61 6d 65 *. *.Create name
1c20: 73 70 61 63 65 2c 20 63 6f 6d 6d 61 6e 64 73 2c space, commands,
1c30: 20 61 6e 64 20 72 65 67 69 73 74 65 72 20 70 61 and register pa
1c40: 63 6b 61 67 65 20 76 65 72 73 69 6f 6e 0a 20 2a ckage version. *
1c50: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
1c60: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 TCL_OK or TCL_ER
1c70: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ROR. *. * Side e
1c80: 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 ffects:. *.Creat
1c90: 65 73 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 es commands. *.
1ca0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ce0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 ----. */.int Tls
1cf0: 5f 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 73 _EncryptCommands
1d00: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
1d10: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 erp) {. Tcl_C
1d20: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
1d30: 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 65 6e interp, "tls::en
1d40: 63 72 79 70 74 22 2c 20 45 6e 63 72 79 70 74 4f crypt", EncryptO
1d50: 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 bjCmd, (ClientDa
1d60: 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 ta) 0, (Tcl_CmdD
1d70: 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c eleteProc *) NUL
1d80: 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 L);. Tcl_Crea
1d90: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
1da0: 65 72 70 2c 20 22 74 6c 73 3a 3a 64 65 63 72 79 erp, "tls::decry
1db0: 70 74 22 2c 20 44 65 63 72 79 70 74 4f 62 6a 43 pt", DecryptObjC
1dc0: 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 md, (ClientData)
1dd0: 20 30 2c 20 28 54 63 6c 5f 43 6d 64 44 65 6c 65 0, (Tcl_CmdDele
1de0: 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b teProc *) NULL);
1df0: 0a 7d 0a 0a .}..