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 23 64 65 66 69 6e 65 20 43 48 41 4e 5f 45 4f .#define CHAN_EO
01a0: 46 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 52 F.0x10.#define R
01b0: 45 41 44 5f 44 45 4c 41 59 09 35 0a 0a 2f 2a 20 EAD_DELAY.5../*
01c0: 45 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 Encryption funct
01d0: 69 6f 6e 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 ions */.#define
01e0: 54 59 50 45 5f 4d 44 09 09 30 78 30 31 30 0a 23 TYPE_MD..0x010.#
01f0: 64 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 define TYPE_HMAC
0200: 09 30 78 30 32 30 0a 23 64 65 66 69 6e 65 20 54 .0x020.#define T
0210: 59 50 45 5f 43 4d 41 43 09 30 78 30 34 30 0a 23 YPE_CMAC.0x040.#
0220: 64 65 66 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 define TYPE_MAC.
0230: 30 78 30 38 30 0a 23 64 65 66 69 6e 65 20 54 59 0x080.#define TY
0240: 50 45 5f 45 4e 43 52 59 50 54 09 30 78 31 30 30 PE_ENCRYPT.0x100
0250: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 44 45 .#define TYPE_DE
0260: 43 52 59 50 54 09 30 78 32 30 30 0a 23 64 65 66 CRYPT.0x200.#def
0270: 69 6e 65 20 54 59 50 45 5f 53 49 47 4e 09 30 78 ine TYPE_SIGN.0x
0280: 34 30 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 400.#define TYPE
0290: 5f 56 45 52 49 46 59 09 30 78 38 30 30 0a 0a 2f _VERIFY.0x800../
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 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 ***/../*. * This
02f0: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e structure defin
0300: 65 73 20 74 68 65 20 70 65 72 2d 69 6e 73 74 61 es the per-insta
0310: 6e 63 65 20 73 74 61 74 65 20 6f 66 20 61 20 65 nce state of a e
0320: 6e 63 72 79 70 74 20 6f 70 65 72 61 74 69 6f 6e ncrypt operation
0330: 2e 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 .. */.typedef st
0340: 72 75 63 74 20 45 6e 63 72 79 70 74 53 74 61 74 ruct EncryptStat
0350: 65 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c e {..Tcl_Channel
0360: 20 73 65 6c 66 3b 09 2f 2a 20 54 68 69 73 20 73 self;./* This s
0370: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f ocket channel */
0380: 0a 09 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e ..Tcl_TimerToken
0390: 20 74 69 6d 65 72 3b 09 2f 2a 20 54 69 6d 65 72 timer;./* Timer
03a0: 20 66 6f 72 20 72 65 61 64 20 65 76 65 6e 74 73 for read events
03b0: 20 2a 2f 0a 0a 09 69 6e 74 20 66 6c 61 67 73 3b */...int flags;
03c0: 09 09 2f 2a 20 43 68 61 6e 20 63 6f 6e 66 69 67 ../* Chan config
03d0: 20 66 6c 61 67 73 20 2a 2f 0a 09 69 6e 74 20 77 flags */..int w
03e0: 61 74 63 68 4d 61 73 6b 3b 09 09 2f 2a 20 43 75 atchMask;../* Cu
03f0: 72 72 65 6e 74 20 57 61 74 63 68 50 72 6f 63 20 rrent WatchProc
0400: 6d 61 73 6b 20 2a 2f 0a 09 69 6e 74 20 6d 6f 64 mask */..int mod
0410: 65 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d e;../* Current m
0420: 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 ode of parent ch
0430: 61 6e 6e 65 6c 20 2a 2f 0a 09 69 6e 74 20 74 79 annel */..int ty
0440: 70 65 3b 09 09 2f 2a 20 4f 70 65 72 61 74 69 6f pe;../* Operatio
0450: 6e 20 74 79 70 65 20 2a 2f 0a 0a 09 54 63 6c 5f n type */...Tcl_
0460: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 Interp *interp;.
0470: 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 /* Current inter
0480: 70 72 65 74 65 72 20 2a 2f 0a 09 45 56 50 5f 43 preter */..EVP_C
0490: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 3b 09 IPHER_CTX *ctx;.
04a0: 2f 2a 20 43 69 70 68 65 72 20 43 6f 6e 74 65 78 /* Cipher Contex
04b0: 74 20 2a 2f 0a 09 54 63 6c 5f 43 6f 6d 6d 61 6e t */..Tcl_Comman
04c0: 64 20 74 6f 6b 65 6e 3b 09 2f 2a 20 43 6f 6d 6d d token;./* Comm
04d0: 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a 7d 20 45 and token */.} E
04e0: 6e 63 72 79 70 74 53 74 61 74 65 3b 0a 0a 0a 2f ncryptState;.../
04f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
0540: 63 72 79 70 74 53 74 61 74 65 4e 65 77 20 2d 2d cryptStateNew --
0550: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
0560: 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 20 70 tion creates a p
0570: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
0580: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
0590: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
05a0: 20 2a 09 53 74 61 74 65 20 73 74 72 75 63 74 75 *.State structu
05b0: 72 65 20 70 6f 69 6e 74 65 72 0a 20 2a 0a 20 2a re pointer. *. *
05c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
05d0: 2a 09 43 72 65 61 74 65 73 20 73 74 72 75 63 74 *.Creates struct
05e0: 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ure. *. *-------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 2f ------------. */
0630: 0a 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 45 .EncryptState *E
0640: 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 54 ncryptStateNew(T
0650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0660: 70 2c 20 69 6e 74 20 74 79 70 65 29 20 7b 0a 20 p, int type) {.
0670: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
0680: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
0690: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6b 61 ryptState *) cka
06a0: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 lloc((unsigned)
06b0: 73 69 7a 65 6f 66 28 45 6e 63 72 79 70 74 53 74 sizeof(EncryptSt
06c0: 61 74 65 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 ate));.. if (
06d0: 73 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c statePtr != NULL
06e0: 29 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 ) {..memset(stat
06f0: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
0700: 45 6e 63 72 79 70 74 53 74 61 74 65 29 29 3b 0a EncryptState));.
0710: 09 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 .statePtr->self.
0720: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 = NULL;../* This
0730: 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 socket channel
0740: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
0750: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 mer = NULL;../*
0760: 54 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 Timer to flush d
0770: 61 74 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 ata */..statePtr
0780: 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a ->flags = 0;../*
0790: 20 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 Chan config fla
07a0: 67 73 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d gs */..statePtr-
07b0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 >watchMask = 0;.
07c0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
07d0: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 Proc mask */..st
07e0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 atePtr->mode.= 0
07f0: 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f ;../* Current mo
0800: 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 de of parent cha
0810: 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 nnel */..statePt
0820: 72 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 3b 09 r->type = type;.
0830: 09 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 74 79 ./* Operation ty
0840: 70 65 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d pe */..statePtr-
0850: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
0860: 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ;./* Current int
0870: 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 erpreter */..sta
0880: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
0890: 4c 3b 09 09 2f 2a 20 43 69 70 68 65 72 20 43 6f L;../* Cipher Co
08a0: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
08b0: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e 55 4c 4c tr->token = NULL
08c0: 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f ;../* Command to
08d0: 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a 20 20 20 ken */. }.
08e0: 20 72 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 return statePtr
08f0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0940: 0a 20 2a 20 45 6e 63 72 79 70 74 53 74 61 74 65 . * EncryptState
0950: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
0960: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 65 6c 65 is function dele
0970: 74 65 73 20 61 20 73 74 61 74 65 20 64 61 74 61 tes a state data
0980: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0990: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
09a0: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
09b0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
09c0: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
09d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0a20: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
0a30: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 (EncryptState *s
0a40: 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 69 tatePtr) {. i
0a50: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 28 f (statePtr == (
0a60: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
0a70: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
0a80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 . }.. /* R
0a90: 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 69 emove pending ti
0aa0: 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 mer */. if (s
0ab0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
0ac0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
0ad0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
0ae0: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
0af0: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
0b00: 65 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 er);. }..
0b10: 2f 2a 20 46 72 65 65 20 63 6f 6e 74 65 78 74 20 /* Free context
0b20: 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 20 structures */.
0b30: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0b40: 63 74 78 20 21 3d 20 28 45 56 50 5f 43 49 50 48 ctx != (EVP_CIPH
0b50: 45 52 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 ER_CTX *) NULL)
0b60: 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 {..EVP_CIPHER_CT
0b70: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
0b80: 3e 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 >ctx);. }.
0b90: 20 63 6b 66 72 65 65 28 73 74 61 74 65 50 74 72 ckfree(statePtr
0ba0: 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a );.}../*********
0bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
0bf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
0c40: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d yptInitialize --
0c50: 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a . *. *.Initializ
0c60: 65 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 e an encryption
0c70: 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 function. *. * R
0c80: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
0c90: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0ca0: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 or TCL_ERROR for
0cb0: 20 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 failure with re
0cc0: 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 sult set. *.to e
0cd0: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
0ce0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0cf0: 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f :. *.No result o
0d00: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
0d10: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
0d60: 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 EncryptInitiali
0d70: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ze(Tcl_Interp *i
0d80: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c nterp, int type,
0d90: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 EVP_CIPHER_CTX
0da0: 2a 2a 63 74 78 2c 0a 09 54 63 6c 5f 4f 62 6a 20 **ctx,..Tcl_Obj
0db0: 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f *cipherObj, Tcl_
0dc0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
0dd0: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 _Obj *ivObj, int
0de0: 20 70 61 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 padding) {.
0df0: 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 45 52 const EVP_CIPHER
0e00: 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 20 76 6f *cipher;. vo
0e10: 69 64 20 2a 6b 65 79 53 74 72 69 6e 67 20 3d 20 id *keyString =
0e20: 4e 55 4c 4c 2c 20 2a 69 76 53 74 72 69 6e 67 20 NULL, *ivString
0e30: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
0e40: 53 69 7a 65 20 6b 65 79 5f 6c 65 6e 20 3d 20 30 Size key_len = 0
0e50: 2c 20 69 76 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 , iv_len = 0;.
0e60: 20 20 69 6e 74 20 72 65 73 2c 20 6d 61 78 3b 0a int res, max;.
0e70: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
0e80: 72 20 6b 65 79 5b 45 56 50 5f 4d 41 58 5f 4b 45 r key[EVP_MAX_KE
0e90: 59 5f 4c 45 4e 47 54 48 5d 2c 20 69 76 5b 45 56 Y_LENGTH], iv[EV
0ea0: 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 5d P_MAX_IV_LENGTH]
0eb0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
0ec0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
0ed0: 2a 20 49 6e 69 74 20 62 75 66 66 65 72 73 20 2a * Init buffers *
0ee0: 2f 0a 20 20 20 20 6d 65 6d 73 65 74 28 6b 65 79 /. memset(key
0ef0: 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f 4b 45 59 , 0, EVP_MAX_KEY
0f00: 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 6d 65 _LENGTH);. me
0f10: 6d 73 65 74 28 69 76 2c 20 30 2c 20 45 56 50 5f mset(iv, 0, EVP_
0f20: 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 29 3b 0a MAX_IV_LENGTH);.
0f30: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 69 70 68 . /* Get ciph
0f40: 65 72 20 2a 2f 0a 20 20 20 20 63 69 70 68 65 72 er */. cipher
0f50: 20 3d 20 55 74 69 6c 5f 47 65 74 43 69 70 68 65 = Util_GetCiphe
0f60: 72 28 69 6e 74 65 72 70 2c 20 63 69 70 68 65 72 r(interp, cipher
0f70: 4f 62 6a 2c 20 31 29 3b 0a 20 20 20 20 69 66 20 Obj, 1);. if
0f80: 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 (cipher == NULL)
0f90: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
0fa0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
0fb0: 20 2f 2a 20 20 47 65 74 20 6b 65 79 20 2d 20 4f /* Get key - O
0fc0: 6e 6c 79 20 73 75 70 70 6f 72 74 20 69 6e 74 65 nly support inte
0fd0: 72 6e 61 6c 6c 79 20 64 65 66 69 6e 65 64 20 63 rnally defined c
0fe0: 69 70 68 65 72 20 6c 65 6e 67 74 68 73 2e 0a 09 ipher lengths...
0ff0: 43 75 73 74 6f 6d 20 63 69 70 68 65 72 73 20 63 Custom ciphers c
1000: 61 6e 20 62 65 20 75 70 20 74 6f 20 73 69 7a 65 an be up to size
1010: 5f 74 20 62 79 74 65 73 2e 20 2a 2f 0a 20 20 20 _t bytes. */.
1020: 20 6d 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 max = EVP_CIPHE
1030: 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 R_key_length(cip
1040: 68 65 72 29 3b 0a 20 20 20 20 6b 65 79 53 74 72 her);. keyStr
1050: 69 6e 67 20 3d 20 55 74 69 6c 5f 47 65 74 4b 65 ing = Util_GetKe
1060: 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4f 62 6a y(interp, keyObj
1070: 2c 20 26 6b 65 79 5f 6c 65 6e 2c 20 22 6b 65 79 , &key_len, "key
1080: 22 2c 20 6d 61 78 2c 20 30 29 3b 0a 20 20 20 20 ", max, 0);.
1090: 69 66 20 28 6b 65 79 53 74 72 69 6e 67 20 21 3d if (keyString !=
10a0: 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d 63 70 79 NULL) {..memcpy
10b0: 28 28 76 6f 69 64 20 2a 29 20 6b 65 79 2c 20 6b ((void *) key, k
10c0: 65 79 53 74 72 69 6e 67 2c 20 28 73 69 7a 65 5f eyString, (size_
10d0: 74 29 20 6b 65 79 5f 6c 65 6e 29 3b 0a 20 20 20 t) key_len);.
10e0: 20 7d 20 65 6c 73 65 20 69 66 20 28 6b 65 79 4f } else if (keyO
10f0: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 20 7b 0a 09 bj != NULL) {..
1100: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1110: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
1120: 20 47 65 74 20 49 56 20 2a 2f 0a 20 20 20 20 6d Get IV */. m
1130: 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f ax = EVP_CIPHER_
1140: 69 76 5f 6c 65 6e 67 74 68 28 63 69 70 68 65 72 iv_length(cipher
1150: 29 3b 0a 20 20 20 20 69 76 53 74 72 69 6e 67 20 );. ivString
1160: 3d 20 55 74 69 6c 5f 47 65 74 49 56 28 69 6e 74 = Util_GetIV(int
1170: 65 72 70 2c 20 69 76 4f 62 6a 2c 20 26 69 76 5f erp, ivObj, &iv_
1180: 6c 65 6e 2c 20 6d 61 78 2c 20 30 29 3b 0a 20 20 len, max, 0);.
1190: 20 20 69 66 20 28 69 76 53 74 72 69 6e 67 20 21 if (ivString !
11a0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d 63 70 = NULL) {..memcp
11b0: 79 28 28 76 6f 69 64 20 2a 29 20 69 76 2c 20 69 y((void *) iv, i
11c0: 76 53 74 72 69 6e 67 2c 20 28 73 69 7a 65 5f 74 vString, (size_t
11d0: 29 20 69 76 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d ) iv_len);. }
11e0: 20 65 6c 73 65 20 69 66 20 28 69 76 4f 62 6a 20 else if (ivObj
11f0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 != NULL) {..retu
1200: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1210: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 }.. /* Crea
1220: 74 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 te context */.
1230: 20 20 69 66 28 28 2a 63 74 78 20 3d 20 45 56 50 if((*ctx = EVP
1240: 5f 43 49 50 48 45 52 5f 43 54 58 5f 6e 65 77 28 _CIPHER_CTX_new(
1250: 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 )) == NULL) {..T
1260: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1270: 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 interp, "Memory
1280: 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 allocation error
1290: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
12a0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
12b0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
12c0: 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 /* Initialize t
12d0: 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a he operation */.
12e0: 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 if (type ==
12f0: 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a TYPE_ENCRYPT) {.
1300: 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 .res = EVP_Encry
1310: 70 74 49 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 ptInit_ex(*ctx,
1320: 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 4e 55 cipher, NULL, NU
1330: 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d LL, NULL);. }
1340: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
1350: 56 50 5f 44 65 63 72 79 70 74 49 6e 69 74 5f 65 VP_DecryptInit_e
1360: 78 28 2a 63 74 78 2c 20 63 69 70 68 65 72 2c 20 x(*ctx, cipher,
1370: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c NULL, NULL, NULL
1380: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 );. }.. if
1390: 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 (!res) {..Tcl_Ap
13a0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
13b0: 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 66 p, "Initialize f
13c0: 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f 45 52 ailed: ", GET_ER
13d0: 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 R_REASON(), (cha
13e0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
13f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1400: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 54 75 72 }.. /* Tur
1410: 6e 20 6f 66 66 20 50 4b 43 53 23 37 20 70 61 64 n off PKCS#7 pad
1420: 64 69 6e 67 20 2a 2f 0a 20 20 20 20 69 66 20 28 ding */. if (
1430: 21 70 61 64 64 69 6e 67 29 20 7b 0a 09 45 56 50 !padding) {..EVP
1440: 5f 43 49 50 48 45 52 5f 43 54 58 5f 73 65 74 5f _CIPHER_CTX_set_
1450: 70 61 64 64 69 6e 67 28 2a 63 74 78 2c 20 70 61 padding(*ctx, pa
1460: 64 64 69 6e 67 29 3b 0a 20 20 20 20 7d 0a 0a 20 dding);. }..
1470: 20 20 20 2f 2a 20 53 65 74 20 6b 65 79 20 61 6e /* Set key an
1480: 64 20 49 56 20 2a 2f 0a 20 20 20 20 69 66 20 28 d IV */. if (
1490: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
14a0: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
14b0: 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65 VP_EncryptInit_e
14c0: 78 28 2a 63 74 78 2c 20 4e 55 4c 4c 2c 20 4e 55 x(*ctx, NULL, NU
14d0: 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b 0a 20 20 LL, key, iv);.
14e0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 } else {..res
14f0: 3d 20 45 56 50 5f 44 65 63 72 79 70 74 49 6e 69 = EVP_DecryptIni
1500: 74 5f 65 78 28 2a 63 74 78 2c 20 4e 55 4c 4c 2c t_ex(*ctx, NULL,
1510: 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b NULL, key, iv);
1520: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 28 21 . }.. if(!
1530: 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 res) {..Tcl_Appe
1540: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1550: 20 22 53 65 74 20 6b 65 79 20 61 6e 64 20 49 56 "Set key and IV
1560: 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f failed: ", GET_
1570: 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 ERR_REASON(), (c
1580: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
1590: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
15a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 45 . }.. /* E
15b0: 72 61 73 65 20 62 75 66 66 65 72 73 20 2a 2f 0a rase buffers */.
15c0: 20 20 20 20 6d 65 6d 73 65 74 28 6b 65 79 2c 20 memset(key,
15d0: 30 2c 20 45 56 50 5f 4d 41 58 5f 4b 45 59 5f 4c 0, EVP_MAX_KEY_L
15e0: 45 4e 47 54 48 29 3b 0a 20 20 20 20 6d 65 6d 73 ENGTH);. mems
15f0: 65 74 28 69 76 2c 20 30 2c 20 45 56 50 5f 4d 41 et(iv, 0, EVP_MA
1600: 58 5f 49 56 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 X_IV_LENGTH);.
1610: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1620: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
1630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1670: 20 2a 20 45 6e 63 72 79 70 74 55 70 64 61 74 65 * EncryptUpdate
1680: 20 2d 2d 0a 20 2a 0a 20 2a 09 55 70 64 61 74 65 --. *. *.Update
1690: 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 an encryption f
16a0: 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 64 61 74 unction with dat
16b0: 61 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a a. *. * Returns:
16c0: 0a 20 2a 09 31 20 69 66 20 73 75 63 63 65 73 73 . *.1 if success
16d0: 66 75 6c 20 6f 72 20 30 20 66 6f 72 20 66 61 69 ful or 0 for fai
16e0: 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 lure. *. * Side
16f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 effects:. *.Adds
1700: 20 65 6e 63 72 79 70 74 65 64 20 64 61 74 61 20 encrypted data
1710: 74 6f 20 62 75 66 66 65 72 20 6f 72 20 73 65 74 to buffer or set
1720: 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f s result to erro
1730: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1780: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
1790: 70 74 55 70 64 61 74 65 28 54 63 6c 5f 49 6e 74 ptUpdate(Tcl_Int
17a0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
17b0: 20 74 79 70 65 2c 20 45 56 50 5f 43 49 50 48 45 type, EVP_CIPHE
17c0: 52 5f 43 54 58 20 2a 63 74 78 2c 20 75 6e 73 69 R_CTX *ctx, unsi
17d0: 67 6e 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 gned char *out_b
17e0: 75 66 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f 6c 65 uf,..int *out_le
17f0: 6e 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 n, unsigned char
1800: 20 2a 64 61 74 61 2c 20 54 63 6c 5f 53 69 7a 65 *data, Tcl_Size
1810: 20 64 61 74 61 5f 6c 65 6e 29 20 7b 0a 20 20 20 data_len) {.
1820: 20 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 int res;.. d
1830: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
1840: 3b 0a 0a 20 20 20 20 2f 2a 20 45 6e 63 72 79 70 ;.. /* Encryp
1850: 74 2f 64 65 63 72 79 70 74 20 64 61 74 61 20 2a t/decrypt data *
1860: 2f 0a 20 20 20 20 69 66 20 28 74 79 70 65 20 3d /. if (type =
1870: 3d 20 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 = TYPE_ENCRYPT)
1880: 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 {..res = EVP_Enc
1890: 72 79 70 74 55 70 64 61 74 65 28 63 74 78 2c 20 ryptUpdate(ctx,
18a0: 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 6e out_buf, out_len
18b0: 2c 20 64 61 74 61 2c 20 28 69 6e 74 29 20 64 61 , data, (int) da
18c0: 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 ta_len);. } e
18d0: 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 lse {..res = EVP
18e0: 5f 44 65 63 72 79 70 74 55 70 64 61 74 65 28 63 _DecryptUpdate(c
18f0: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 tx, out_buf, out
1900: 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 28 69 6e 74 _len, data, (int
1910: 29 20 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 ) data_len);.
1920: 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 }.. if (res)
1930: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f {..return TCL_O
1940: 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a K;. } else {.
1950: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1960: 74 28 69 6e 74 65 72 70 2c 20 22 55 70 64 61 74 t(interp, "Updat
1970: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 e failed: ", GET
1980: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
1990: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
19a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
19b0: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a ;. }.}../*. *
19c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a00: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
1a10: 74 46 69 6e 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a tFinalize --. *.
1a20: 20 2a 09 46 69 6e 61 6c 69 7a 65 20 61 6e 20 65 *.Finalize an e
1a30: 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 ncryption functi
1a40: 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 on. *. * Returns
1a50: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 :. *.TCL_OK if s
1a60: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
1a70: 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 6c 75 _ERROR for failu
1a80: 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 20 73 re with result s
1a90: 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 20 6d et. *.to error m
1aa0: 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 69 essage.. *. * Si
1ab0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 de effects:. *.A
1ac0: 64 64 73 20 65 6e 63 72 79 70 74 65 64 20 64 61 dds encrypted da
1ad0: 74 61 20 74 6f 20 62 75 66 66 65 72 20 6f 72 20 ta to buffer or
1ae0: 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 65 sets result to e
1af0: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a rror message. *.
1b00: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b40: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
1b50: 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 54 63 cryptFinalize(Tc
1b60: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1b70: 2c 20 69 6e 74 20 74 79 70 65 2c 20 45 56 50 5f , int type, EVP_
1b80: 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 2c CIPHER_CTX *ctx,
1b90: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
1ba0: 6f 75 74 5f 62 75 66 2c 0a 09 69 6e 74 20 2a 6f out_buf,..int *o
1bb0: 75 74 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 69 6e ut_len) {. in
1bc0: 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 72 69 t res;.. dpri
1bd0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
1be0: 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 /* Finalize
1bf0: 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 data */. if (
1c00: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
1c10: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
1c20: 56 50 5f 45 6e 63 72 79 70 74 46 69 6e 61 6c 5f VP_EncryptFinal_
1c30: 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c ex(ctx, out_buf,
1c40: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d out_len);. }
1c50: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
1c60: 56 50 5f 44 65 63 72 79 70 74 46 69 6e 61 6c 5f VP_DecryptFinal_
1c70: 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c ex(ctx, out_buf,
1c80: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d out_len);. }
1c90: 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 20 7b .. if (res) {
1ca0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
1cb0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
1cc0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1cd0: 69 6e 74 65 72 70 2c 20 22 46 69 6e 61 6c 69 7a interp, "Finaliz
1ce0: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 e failed: ", GET
1cf0: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
1d00: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
1d10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1d20: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a ;. }.}../****
1d30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
1d70: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
1dc0: 20 45 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 EncryptBlockMod
1dd0: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 eProc --. *. *.T
1de0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
1df0: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
1e00: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a eneric IO level.
1e10: 20 2a 09 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 *.to set blocki
1e20: 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 ng and nonblocki
1e30: 6e 67 20 6d 6f 64 65 73 2e 0a 20 2a 0a 20 2a 20 ng modes.. *. *
1e40: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 Returns:. *.0 if
1e50: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 successful or P
1e60: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
1e70: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
1e80: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1e90: 2a 09 53 65 74 73 20 74 68 65 20 64 65 76 69 63 *.Sets the devic
1ea0: 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 e into blocking
1eb0: 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d or nonblocking m
1ec0: 6f 64 65 2e 0a 20 2a 09 43 61 6e 20 63 61 6c 6c ode.. *.Can call
1ed0: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 Tcl_SetChannelE
1ee0: 72 72 6f 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d rror.. *. *-----
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1f30: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
1f40: 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 cryptBlockModePr
1f50: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
1f60: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 6f ientData, int mo
1f70: 64 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 de) {. Encryp
1f80: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
1f90: 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 = (EncryptState
1fa0: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
1fb0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
1fc0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
1fd0: 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 (mode == TCL_MOD
1fe0: 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b E_NONBLOCKING) {
1ff0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2000: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 s |= TLS_TCL_ASY
2010: 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b NC;. } else {
2020: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2030: 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 s &= ~(TLS_TCL_A
2040: 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 SYNC);. }.
2050: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
2060: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
20b0: 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 20 2d 2d ryptCloseProc --
20c0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
20d0: 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 tion is invoked
20e0: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
20f0: 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f O level to perfo
2100: 72 6d 0a 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 rm. *.channel-ty
2110: 70 65 20 73 70 65 63 69 66 69 63 20 63 6c 65 61 pe specific clea
2120: 6e 75 70 20 77 68 65 6e 20 74 68 65 20 63 68 61 nup when the cha
2130: 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 2e 20 nnel is closed.
2140: 41 6c 6c 0a 20 2a 09 71 75 65 75 65 64 20 6f 75 All. *.queued ou
2150: 74 70 75 74 20 69 73 20 66 6c 75 73 68 65 64 20 tput is flushed
2160: 70 72 69 6f 72 20 74 6f 20 63 61 6c 6c 69 6e 67 prior to calling
2170: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a this function..
2180: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
2190: 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 66 75 *.0 if successfu
21a0: 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 l or POSIX error
21b0: 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e code if failed.
21c0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
21d0: 63 74 73 3a 0a 20 2a 09 44 65 6c 65 74 65 73 20 cts:. *.Deletes
21e0: 73 74 6f 72 65 64 20 73 74 61 74 65 20 64 61 74 stored state dat
21f0: 61 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d a.. *. *--------
2200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
2240: 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 int EncryptClose
2250: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
2260: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
2270: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
2280: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
2290: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
22a0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
22b0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
22c0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
22d0: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e 63 ");.. /* Canc
22e0: 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 72 2c el active timer,
22f0: 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 if any */. i
2300: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d f (statePtr->tim
2310: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 er != (Tcl_Timer
2320: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 Token) NULL) {..
2330: 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 Tcl_DeleteTimerH
2340: 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d andler(statePtr-
2350: 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 >timer);..stateP
2360: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c tr->timer = (Tcl
2370: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
2380: 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a L;. }.. /*
2390: 20 4f 75 74 70 75 74 20 72 65 6d 61 69 6e 69 6e Output remainin
23a0: 67 20 64 61 74 61 2c 20 69 66 20 61 6e 79 20 2a g data, if any *
23b0: 2f 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 74 /. if (!(stat
23c0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 48 ePtr->flags & CH
23d0: 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 54 63 6c 5f AN_EOF)) {..Tcl_
23e0: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d Channel parent =
23f0: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
2400: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
2410: 3e 73 65 6c 66 29 3b 0a 09 69 6e 74 20 6f 75 74 >self);..int out
2420: 5f 6c 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 20 _len;..unsigned
2430: 63 68 61 72 20 6f 75 74 5f 62 75 66 5b 45 56 50 char out_buf[EVP
2440: 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 _MAX_BLOCK_LENGT
2450: 48 5d 3b 0a 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a H];.../* Finaliz
2460: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 e function */..i
2470: 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 f (EncryptFinali
2480: 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 ze(interp, state
2490: 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 Ptr->type, state
24a0: 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 Ptr->ctx, out_bu
24b0: 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 f, &out_len) ==
24c0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 69 TCL_OK) {.. i
24d0: 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 f (out_len > 0)
24e0: 7b 0a 09 09 54 63 6c 5f 53 69 7a 65 20 6c 65 6e {...Tcl_Size len
24f0: 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 = Tcl_WriteRaw(
2500: 70 61 72 65 6e 74 2c 20 28 63 6f 6e 73 74 20 63 parent, (const c
2510: 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 har *) out_buf,
2520: 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c (Tcl_Size) out_l
2530: 65 6e 29 3b 0a 09 09 69 66 20 28 6c 65 6e 20 3c en);...if (len <
2540: 20 30 29 20 7b 0a 09 09 20 20 20 20 72 65 74 75 0) {... retu
2550: 72 6e 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 rn Tcl_GetErrno(
2560: 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d );...}.. }..}
2570: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2f 2a 20 else {.. /*
2580: 45 72 72 6f 72 20 2a 2f 0a 09 7d 0a 0a 09 73 74 Error */..}...st
2590: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
25a0: 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d CHAN_EOF;. }
25b0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 .. /* Clean-u
25c0: 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 p */. Encrypt
25d0: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
25e0: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 tr);. return
25f0: 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 6d 65 0;.}../*. * Same
2600: 20 61 73 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 as EncryptClose
2610: 50 72 6f 63 20 62 75 74 20 77 69 74 68 20 69 6e Proc but with in
2620: 64 69 76 69 64 75 61 6c 20 72 65 61 64 20 61 6e dividual read an
2630: 64 20 77 72 69 74 65 20 63 6c 6f 73 65 20 63 6f d write close co
2640: 6e 74 72 6f 6c 0a 20 2a 2f 0a 73 74 61 74 69 63 ntrol. */.static
2650: 20 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 int EncryptClos
2660: 65 32 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 e2Proc(ClientDat
2670: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 a instanceData,
2680: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
2690: 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 20 7b rp, int flags) {
26a0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
26b0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 lled");.. if
26c0: 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f 43 ((flags & (TCL_C
26d0: 4c 4f 53 45 5f 52 45 41 44 20 7c 20 54 43 4c 5f LOSE_READ | TCL_
26e0: 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d CLOSE_WRITE)) ==
26f0: 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 45 6e 0) {..return En
2700: 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 28 69 cryptCloseProc(i
2710: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
2720: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 erp);. }.
2730: 72 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d return EINVAL;.}
2740: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2790: 0a 20 2a 20 45 6e 63 72 79 70 74 49 6e 70 75 74 . * EncryptInput
27a0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
27b0: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
27c0: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
27d0: 20 72 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 read data from
27e0: 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 0a 20 2a transform and. *
27f0: 09 70 6c 61 63 65 20 69 6e 20 62 75 66 2e 20 54 .place in buf. T
2800: 72 61 6e 73 66 6f 72 6d 20 67 65 74 73 20 64 61 ransform gets da
2810: 74 61 20 66 72 6f 6d 20 74 68 65 20 75 6e 64 65 ta from the unde
2820: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a rlying channel..
2830: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
2840: 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 72 65 *.Total bytes re
2850: 61 64 20 6f 72 20 2d 31 20 66 6f 72 20 61 6e 20 ad or -1 for an
2860: 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 74 68 error along with
2870: 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 0a 20 a POSIX error.
2880: 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f 72 43 *.code in errorC
2890: 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 47 41 odePtr. Use EAGA
28a0: 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 IN for nonblocki
28b0: 6e 67 20 61 6e 64 20 6e 6f 20 64 61 74 61 2e 0a ng and no data..
28c0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
28d0: 74 73 3a 0a 20 2a 09 52 65 61 64 20 64 61 74 61 ts:. *.Read data
28e0: 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d 20 from transform
28f0: 61 6e 64 20 77 72 69 74 65 20 74 6f 20 62 75 66 and write to buf
2900: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
2910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
2950: 0a 69 6e 74 20 45 6e 63 72 79 70 74 49 6e 70 75 .int EncryptInpu
2960: 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 tProc(ClientData
2970: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 68 61 clientData, cha
2980: 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 52 65 r *buf, int toRe
2990: 61 64 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f ad, int *errorCo
29a0: 64 65 50 74 72 29 20 7b 0a 20 20 20 20 45 6e 63 dePtr) {. Enc
29b0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
29c0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
29d0: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
29e0: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
29f0: 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 69 el parent;. i
2a00: 6e 74 20 6f 75 74 5f 6c 65 6e 3b 0a 20 20 20 20 nt out_len;.
2a10: 54 63 6c 5f 53 69 7a 65 20 72 65 61 64 3b 0a 20 Tcl_Size read;.
2a20: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
2a30: 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 72 20 2a = 0;. char *
2a40: 69 6e 5f 62 75 66 3b 0a 0a 20 20 20 20 64 70 72 in_buf;.. dpr
2a50: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
2a60: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
2a70: 20 6e 6f 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 nothing to proc
2a80: 65 73 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 ess */. if (t
2a90: 6f 52 65 61 64 20 3c 3d 20 30 20 7c 7c 20 73 74 oRead <= 0 || st
2aa0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 atePtr->self ==
2ab0: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
2ac0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b LL) {..return 0;
2ad0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
2ae0: 65 74 20 62 79 74 65 73 20 66 72 6f 6d 20 75 6e et bytes from un
2af0: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
2b00: 20 2a 2f 0a 20 20 20 20 69 6e 5f 62 75 66 20 3d */. in_buf =
2b10: 20 54 63 6c 5f 41 6c 6c 6f 63 28 28 54 63 6c 5f Tcl_Alloc((Tcl_
2b20: 53 69 7a 65 29 20 74 6f 52 65 61 64 29 3b 0a 20 Size) toRead);.
2b30: 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f parent = Tcl_
2b40: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 GetStackedChanne
2b50: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
2b60: 29 3b 0a 20 20 20 20 72 65 61 64 20 3d 20 54 63 );. read = Tc
2b70: 6c 5f 52 65 61 64 52 61 77 28 70 61 72 65 6e 74 l_ReadRaw(parent
2b80: 2c 20 69 6e 5f 62 75 66 2c 20 28 54 63 6c 5f 53 , in_buf, (Tcl_S
2b90: 69 7a 65 29 20 74 6f 52 65 61 64 29 3b 0a 0a 20 ize) toRead);..
2ba0: 20 20 20 2f 2a 20 55 70 64 61 74 65 20 66 75 6e /* Update fun
2bb0: 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 ction */. if
2bc0: 28 72 65 61 64 20 3e 20 30 29 20 7b 0a 09 2f 2a (read > 0) {../*
2bd0: 20 48 61 76 65 20 64 61 74 61 20 2d 20 55 70 64 Have data - Upd
2be0: 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a ate function */.
2bf0: 09 69 66 20 28 45 6e 63 72 79 70 74 55 70 64 61 .if (EncryptUpda
2c00: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 te(statePtr->int
2c10: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 erp, statePtr->t
2c20: 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 ype, statePtr->c
2c30: 74 78 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 tx, (unsigned ch
2c40: 61 72 20 2a 29 20 62 75 66 2c 0a 09 09 26 6f 75 ar *) buf,...&ou
2c50: 74 5f 6c 65 6e 2c 20 28 75 6e 73 69 67 6e 65 64 t_len, (unsigned
2c60: 20 63 68 61 72 20 2a 29 20 69 6e 5f 62 75 66 2c char *) in_buf,
2c70: 20 72 65 61 64 29 20 3d 3d 20 54 43 4c 5f 4f 4b read) == TCL_OK
2c80: 29 20 7b 0a 09 20 20 20 20 2f 2a 20 49 66 20 68 ) {.. /* If h
2c90: 61 76 65 20 64 61 74 61 2c 20 70 75 74 20 69 6e ave data, put in
2ca0: 20 62 75 66 2c 20 6f 74 68 65 72 77 69 73 65 20 buf, otherwise
2cb0: 74 65 6c 6c 20 54 43 4c 20 74 6f 20 74 72 79 20 tell TCL to try
2cc0: 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 20 69 66 again */.. if
2cd0: 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b (out_len > 0) {
2ce0: 0a 09 09 72 65 61 64 20 3d 20 28 54 63 6c 5f 53 ...read = (Tcl_S
2cf0: 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 3b 0a 09 20 ize) out_len;..
2d00: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 2a 65 } else {...*e
2d10: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
2d20: 47 41 49 4e 3b 0a 09 09 72 65 61 64 20 3d 20 2d GAIN;...read = -
2d30: 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 1;.. }..} els
2d40: 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 e {.. Tcl_Set
2d50: 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 ChannelError(sta
2d60: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c tePtr->self, Tcl
2d70: 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 64 61 _ObjPrintf("Upda
2d80: 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 te failed: %s",
2d90: 47 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 GET_ERR_REASON()
2da0: 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ));.. *errorC
2db0: 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b odePtr = EINVAL;
2dc0: 0a 09 20 20 20 20 72 65 61 64 20 3d 20 30 3b 0a .. read = 0;.
2dd0: 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 .}.. } else i
2de0: 66 20 28 72 65 61 64 20 3c 20 30 29 20 7b 0a 09 f (read < 0) {..
2df0: 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a 09 2a 65 72 /* Error */..*er
2e00: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
2e10: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 0a 20 20 _GetErrno();..
2e20: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 21 28 73 } else if (!(s
2e30: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
2e40: 20 43 48 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 2f CHAN_EOF)) {../
2e50: 2a 20 45 4f 46 20 2d 20 46 69 6e 61 6c 69 7a 65 * EOF - Finalize
2e60: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 70 75 function and pu
2e70: 74 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 t any remaining
2e80: 64 61 74 61 20 69 6e 20 62 75 66 20 2a 2f 0a 09 data in buf */..
2e90: 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c if (EncryptFinal
2ea0: 69 7a 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ize(statePtr->in
2eb0: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
2ec0: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
2ed0: 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 ctx, (unsigned c
2ee0: 68 61 72 20 2a 29 20 62 75 66 2c 20 26 6f 75 74 har *) buf, &out
2ef0: 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 _len) == TCL_OK)
2f00: 20 7b 0a 09 20 20 20 20 72 65 61 64 20 3d 20 28 {.. read = (
2f10: 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 Tcl_Size) out_le
2f20: 6e 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 n;..} else {..
2f30: 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c Tcl_SetChannel
2f40: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e Error(statePtr->
2f50: 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 self, Tcl_ObjPri
2f60: 6e 74 66 28 22 46 69 6e 61 6c 69 7a 65 20 66 61 ntf("Finalize fa
2f70: 69 6c 65 64 3a 20 25 73 22 2c 20 47 45 54 5f 45 iled: %s", GET_E
2f80: 52 52 5f 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 RR_REASON()));..
2f90: 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 *errorCodePt
2fa0: 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 20 20 r = EINVAL;..
2fb0: 20 72 65 61 64 20 3d 20 30 3b 0a 09 7d 0a 0a 09 read = 0;..}...
2fc0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2fd0: 7c 3d 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 |= CHAN_EOF;.
2fe0: 20 7d 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 }. Tcl_Free(
2ff0: 69 6e 5f 62 75 66 29 3b 0a 20 20 20 20 72 65 74 in_buf);. ret
3000: 75 72 6e 20 28 69 6e 74 29 20 72 65 61 64 3b 0a urn (int) read;.
3010: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
3020: 2d 2d 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 0a 20 --------------.
3060: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 4f 75 74 70 *. * EncryptOutp
3070: 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 utProc --. *. *.
3080: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 Called by the ge
3090: 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 neric IO system
30a0: 74 6f 20 77 72 69 74 65 20 64 61 74 61 20 69 6e to write data in
30b0: 20 62 75 66 20 74 6f 20 74 72 61 6e 73 66 6f 72 buf to transfor
30c0: 6d 2e 0a 20 2a 09 54 68 65 20 74 72 61 6e 73 66 m.. *.The transf
30d0: 6f 72 6d 20 77 72 69 74 65 73 20 74 68 65 20 72 orm writes the r
30e0: 65 73 75 6c 74 20 74 6f 20 74 68 65 20 75 6e 64 esult to the und
30f0: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
3100: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
3110: 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 77 *.Total bytes w
3120: 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 66 6f 72 ritten or -1 for
3130: 20 61 6e 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 an error along
3140: 77 69 74 68 20 61 20 50 4f 53 49 58 20 65 72 72 with a POSIX err
3150: 6f 72 0a 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 or. *.code in er
3160: 72 6f 72 43 6f 64 65 50 74 72 2e 20 55 73 65 20 rorCodePtr. Use
3170: 45 41 47 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c EAGAIN for nonbl
3180: 6f 63 6b 69 6e 67 20 61 6e 64 20 63 61 6e 27 74 ocking and can't
3190: 20 77 72 69 74 65 20 64 61 74 61 2e 0a 20 2a 0a write data.. *.
31a0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
31b0: 0a 20 2a 09 47 65 74 20 64 61 74 61 20 66 72 6f . *.Get data fro
31c0: 6d 20 62 75 66 20 61 6e 64 20 75 70 64 61 74 65 m buf and update
31d0: 20 65 6e 63 72 79 70 74 69 6f 6e 0a 20 2a 0a 20 encryption. *.
31e0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
31f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3220: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 20 69 6e 74 -------. */. int
3230: 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 EncryptOutputPr
3240: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
3250: 69 65 6e 74 44 61 74 61 2c 20 63 6f 6e 73 74 20 ientData, const
3260: 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 char *buf, int t
3270: 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 72 72 oWrite, int *err
3280: 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 orCodePtr) {.
3290: 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 EncryptState *s
32a0: 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 tatePtr = (Encry
32b0: 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e ptState *) clien
32c0: 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 tData;. int w
32d0: 72 69 74 65 20 3d 20 30 2c 20 6f 75 74 5f 6c 65 rite = 0, out_le
32e0: 6e 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 n;. *errorCod
32f0: 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 63 68 ePtr = 0;. ch
3300: 61 72 20 2a 6f 75 74 5f 62 75 66 3b 0a 0a 20 20 ar *out_buf;..
3310: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
3320: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f d");.. /* Abo
3330: 72 74 20 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f rt if nothing to
3340: 20 70 72 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 process */.
3350: 69 66 20 28 74 6f 57 72 69 74 65 20 3c 3d 20 30 if (toWrite <= 0
3360: 20 7c 7c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 || statePtr->se
3370: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
3380: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
3390: 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 urn 0;. }..
33a0: 20 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f out_buf = Tcl_
33b0: 41 6c 6c 6f 63 28 28 54 63 6c 5f 53 69 7a 65 29 Alloc((Tcl_Size)
33c0: 20 74 6f 57 72 69 74 65 2b 45 56 50 5f 4d 41 58 toWrite+EVP_MAX
33d0: 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 3b 0a _BLOCK_LENGTH);.
33e0: 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 20 66 . /* Update f
33f0: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 unction */. i
3400: 66 20 28 45 6e 63 72 79 70 74 55 70 64 61 74 65 f (EncryptUpdate
3410: 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 65 72 (statePtr->inter
3420: 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 79 70 p, statePtr->typ
3430: 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 e, statePtr->ctx
3440: 2c 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 , (unsigned char
3450: 20 2a 29 20 6f 75 74 5f 62 75 66 2c 0a 09 20 20 *) out_buf,..
3460: 20 20 26 6f 75 74 5f 6c 65 6e 2c 20 28 75 6e 73 &out_len, (uns
3470: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 62 75 igned char *) bu
3480: 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 74 6f f, (Tcl_Size) to
3490: 57 72 69 74 65 29 20 3d 3d 20 54 43 4c 5f 4f 4b Write) == TCL_OK
34a0: 29 20 7b 0a 09 2f 2a 20 49 66 20 68 61 76 65 20 ) {../* If have
34b0: 64 61 74 61 2c 20 6f 75 74 70 75 74 20 69 74 2c data, output it,
34c0: 20 6f 74 68 65 72 77 69 73 65 20 74 65 6c 6c 20 otherwise tell
34d0: 54 43 4c 20 74 6f 20 74 72 79 20 61 67 61 69 6e TCL to try again
34e0: 20 2a 2f 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e */..if (out_len
34f0: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c > 0) {.. Tcl
3500: 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 _Channel parent
3510: 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 = Tcl_GetStacked
3520: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
3530: 2d 3e 73 65 6c 66 29 3b 0a 09 20 20 20 20 77 72 ->self);.. wr
3540: 69 74 65 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f ite = (int) Tcl_
3550: 57 72 69 74 65 52 61 77 28 70 61 72 65 6e 74 2c WriteRaw(parent,
3560: 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 (const char *)
3570: 6f 75 74 5f 62 75 66 2c 20 28 54 63 6c 5f 53 69 out_buf, (Tcl_Si
3580: 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 ze) out_len);..
3590: 20 20 20 77 72 69 74 65 20 3d 20 74 6f 57 72 69 write = toWri
35a0: 74 65 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 te;..} else {..
35b0: 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 *errorCodePtr
35c0: 20 3d 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 = EAGAIN;..
35d0: 77 72 69 74 65 20 3d 20 2d 31 3b 0a 09 7d 0a 0a write = -1;..}..
35e0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 } else {..Tc
35f0: 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f l_SetChannelErro
3600: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 r(statePtr->self
3610: 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 , Tcl_ObjPrintf(
3620: 22 55 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 "Update failed:
3630: 25 73 22 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 %s", GET_ERR_REA
3640: 53 4f 4e 28 29 29 29 3b 0a 09 2a 65 72 72 6f 72 SON()));..*error
3650: 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c CodePtr = EINVAL
3660: 3b 0a 09 77 72 69 74 65 20 3d 20 30 3b 0a 20 20 ;..write = 0;.
3670: 20 20 7d 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 }. Tcl_Free
3680: 28 6f 75 74 5f 62 75 66 29 3b 0a 20 20 20 20 72 (out_buf);. r
3690: 65 74 75 72 6e 20 77 72 69 74 65 3b 0a 7d 0a 0a eturn write;.}..
36a0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
36b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
36e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
36f0: 2a 20 45 6e 63 72 79 70 74 53 65 74 4f 70 74 69 * EncryptSetOpti
3700: 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 onProc --. *. *.
3710: 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 Called by the ge
3720: 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 neric IO system
3730: 74 6f 20 73 65 74 20 63 68 61 6e 6e 65 6c 20 6f to set channel o
3740: 70 74 69 6f 6e 20 6e 61 6d 65 20 74 6f 20 76 61 ption name to va
3750: 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 lue.. *. * Retur
3760: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 ns:. *.TCL_OK if
3770: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 successful or T
3780: 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c CL_ERROR if fail
3790: 65 64 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e ed along with an
37a0: 20 65 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 error. *.messag
37b0: 65 20 69 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 e in interp and
37c0: 54 63 6c 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a Tcl_SetErrno.. *
37d0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
37e0: 3a 0a 20 2a 09 55 70 64 61 74 65 73 20 63 68 61 :. *.Updates cha
37f0: 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e nnel option to n
3800: 65 77 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d ew value.. *. *-
3810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3850: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
3860: 20 69 6e 74 20 45 6e 63 72 79 70 74 53 65 74 4f int EncryptSetO
3870: 70 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 ptionProc(Client
3880: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
3890: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
38a0: 65 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 erp, const char
38b0: 2a 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 63 6f *optionName,..co
38c0: 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e nst char *option
38d0: 56 61 6c 75 65 29 20 7b 0a 20 20 20 20 45 6e 63 Value) {. Enc
38e0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
38f0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
3900: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
3910: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
3920: 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 el parent;. T
3930: 63 6c 5f 44 72 69 76 65 72 53 65 74 4f 70 74 69 cl_DriverSetOpti
3940: 6f 6e 50 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f onProc *setOptio
3950: 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 64 70 72 69 nProc;.. dpri
3960: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
3970: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
3980: 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 no channel */.
3990: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
39a0: 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 self == (Tcl_Cha
39b0: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
39c0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
39d0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 . }.. /* D
39e0: 65 6c 65 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 elegate options
39f0: 64 6f 77 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 downstream */.
3a00: 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 parent = Tcl_G
3a10: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
3a20: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
3a30: 3b 0a 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 ;. setOptionP
3a40: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
3a50: 6c 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 lSetOptionProc(T
3a60: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
3a70: 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 e(parent));.
3a80: 69 66 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f if (setOptionPro
3a90: 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 c != NULL) {..re
3aa0: 74 75 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e turn (*setOption
3ab0: 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 Proc)(Tcl_GetCha
3ac0: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
3ad0: 28 70 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 (parent), interp
3ae0: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 , optionName, op
3af0: 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 tionValue);.
3b00: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 65 } else {..Tcl_Se
3b10: 74 45 72 72 6e 6f 28 45 49 4e 56 41 4c 29 3b 0a tErrno(EINVAL);.
3b20: 09 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 .return Tcl_BadC
3b30: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
3b40: 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c erp, optionName,
3b50: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d 0a NULL);. }.}.
3b60: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
3b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
3bb0: 20 2a 20 45 6e 63 72 79 70 74 47 65 74 4f 70 74 * EncryptGetOpt
3bc0: 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a ionProc --. *. *
3bd0: 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 .Called by the g
3be0: 65 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d eneric IO system
3bf0: 20 74 6f 20 67 65 74 20 63 68 61 6e 6e 65 6c 20 to get channel
3c00: 6f 70 74 69 6f 6e 20 6e 61 6d 65 27 73 20 76 61 option name's va
3c10: 6c 75 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 lue.. *. * Retur
3c20: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 ns:. *.TCL_OK if
3c30: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 successful or T
3c40: 43 4c 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c CL_ERROR if fail
3c50: 65 64 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e ed along with an
3c60: 20 65 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 error. *.messag
3c70: 65 20 69 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 e in interp and
3c80: 54 63 6c 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a Tcl_SetErrno.. *
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 53 65 74 73 20 72 65 73 75 6c 74 :. *.Sets result
3cb0: 20 74 6f 20 6f 70 74 69 6f 6e 27 73 20 76 61 6c to option's val
3cc0: 75 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ue. *. *--------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3d10: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
3d20: 63 72 79 70 74 47 65 74 4f 70 74 69 6f 6e 50 72 cryptGetOptionPr
3d30: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
3d40: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
3d50: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f terp *interp, co
3d60: 6e 73 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e nst char *option
3d70: 4e 61 6d 65 2c 0a 09 54 63 6c 5f 44 53 74 72 69 Name,..Tcl_DStri
3d80: 6e 67 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 ng *optionValue)
3d90: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
3da0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
3db0: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
3dc0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
3dd0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
3de0: 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 ent;. Tcl_Dri
3df0: 76 65 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 verGetOptionProc
3e00: 20 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b *getOptionProc;
3e10: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
3e20: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
3e30: 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 Abort if no cha
3e40: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 nnel */. if (
3e50: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
3e60: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
3e70: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
3e80: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
3e90: 0a 0a 20 20 20 20 2f 2a 20 44 65 6c 65 67 61 74 .. /* Delegat
3ea0: 65 20 6f 70 74 69 6f 6e 73 20 64 6f 77 6e 73 74 e options downst
3eb0: 72 65 61 6d 20 2a 2f 0a 20 20 20 20 70 61 72 65 ream */. pare
3ec0: 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 nt = Tcl_GetStac
3ed0: 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 kedChannel(state
3ee0: 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 Ptr->self);.
3ef0: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 getOptionProc =
3f00: 54 63 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 Tcl_ChannelGetOp
3f10: 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 tionProc(Tcl_Get
3f20: 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 ChannelType(pare
3f30: 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 nt));. if (ge
3f40: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e tOptionProc != N
3f50: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 ULL) {..return (
3f60: 2a 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 *getOptionProc)(
3f70: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e Tcl_GetChannelIn
3f80: 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e stanceData(paren
3f90: 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 t), interp, opti
3fa0: 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 onName, optionVa
3fb0: 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 lue);. } else
3fc0: 20 69 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 if (optionName
3fd0: 3d 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 == (char*) NULL)
3fe0: 20 7b 0a 09 2f 2a 20 52 65 71 75 65 73 74 20 69 {../* Request i
3ff0: 73 20 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 s query for all
4000: 6f 70 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 options, this is
4010: 20 6f 6b 2e 20 2a 2f 0a 09 72 65 74 75 72 6e 20 ok. */..return
4020: 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c TCL_OK;. } el
4030: 73 65 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 se {..Tcl_SetErr
4040: 6e 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 72 65 74 no(EINVAL);..ret
4050: 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e urn Tcl_BadChann
4060: 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c elOption(interp,
4070: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 4c optionName, NUL
4080: 4c 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a L);. }.}../*.
4090: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
40a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40d0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
40e0: 6e 63 72 79 70 74 54 69 6d 65 72 48 61 6e 64 6c ncryptTimerHandl
40f0: 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c er --. *. *.Call
4100: 65 64 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 ed by the notifi
4110: 65 72 20 76 69 61 20 74 69 6d 65 72 20 74 6f 20 er via timer to
4120: 66 6c 75 73 68 20 6f 75 74 20 70 65 6e 64 69 6e flush out pendin
4130: 67 20 69 6e 70 75 74 20 64 61 74 61 2e 0a 20 2a g input data.. *
4140: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
4150: 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 Nothing. *. * Si
4160: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d de effects:. *.M
4170: 61 79 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 ay call Tcl_Noti
4180: 66 79 43 68 61 6e 6e 65 6c 0a 20 2a 0a 20 2a 2d fyChannel. *. *-
4190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41d0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
41e0: 20 76 6f 69 64 20 45 6e 63 72 79 70 74 54 69 6d void EncryptTim
41f0: 65 72 48 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 erHandler(Client
4200: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 Data clientData)
4210: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
4220: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
4230: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
4240: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
4250: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
4260: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f d");.. /* Abo
4270: 72 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c rt if no channel
4280: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
4290: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 ePtr->self == (T
42a0: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
42b0: 29 20 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 ) {..return;.
42c0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 }.. /* Clear
42d0: 20 74 69 6d 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a timer token */.
42e0: 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 statePtr->ti
42f0: 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 mer = (Tcl_Timer
4300: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 Token) NULL;..
4310: 20 20 2f 2a 20 46 69 72 65 20 65 76 65 6e 74 20 /* Fire event
4320: 69 66 20 74 68 65 72 65 20 69 73 20 70 65 6e 64 if there is pend
4330: 69 6e 67 20 64 61 74 61 2c 20 73 6b 69 70 20 6f ing data, skip o
4340: 74 68 65 72 77 69 73 65 20 2a 2f 0a 20 20 20 20 therwise */.
4350: 69 66 20 28 28 73 74 61 74 65 50 74 72 2d 3e 77 if ((statePtr->w
4360: 61 74 63 68 4d 61 73 6b 20 26 20 54 43 4c 5f 52 atchMask & TCL_R
4370: 45 41 44 41 42 4c 45 29 20 26 26 20 28 54 63 6c EADABLE) && (Tcl
4380: 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 _InputBuffered(s
4390: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e tatePtr->self) >
43a0: 20 30 29 29 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 0)) {..Tcl_Noti
43b0: 66 79 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 fyChannel(stateP
43c0: 74 72 2d 3e 73 65 6c 66 2c 20 54 43 4c 5f 52 45 tr->self, TCL_RE
43d0: 41 44 41 42 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d ADABLE);. }.}
43e0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
43f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4430: 0a 20 2a 20 45 6e 63 72 79 70 74 57 61 74 63 68 . * EncryptWatch
4440: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e Proc --. *. *.In
4450: 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 itialize the not
4460: 69 66 69 65 72 20 74 6f 20 77 61 74 63 68 20 66 ifier to watch f
4470: 6f 72 20 65 76 65 6e 74 73 20 66 72 6f 6d 20 74 or events from t
4480: 68 69 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a his channel.. *.
4490: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e * Returns:. *.N
44a0: 6f 74 68 69 6e 67 20 28 63 61 6e 27 74 20 72 65 othing (can't re
44b0: 74 75 72 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 turn error messa
44c0: 67 65 73 29 0a 20 2a 0a 20 2a 20 53 69 64 65 20 ges). *. * Side
44d0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 effects:. *.Conf
44e0: 69 67 75 72 65 20 6e 6f 74 69 66 69 65 72 20 73 igure notifier s
44f0: 6f 20 66 75 74 75 72 65 20 65 76 65 6e 74 73 20 o future events
4500: 6f 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 on the channel w
4510: 69 6c 6c 20 62 65 20 73 65 65 6e 20 62 79 20 54 ill be seen by T
4520: 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d cl.. *. *-------
4530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4570: 20 2a 2f 0a 76 6f 69 64 20 45 6e 63 72 79 70 74 */.void Encrypt
4580: 57 61 74 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 WatchProc(Client
4590: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
45a0: 20 69 6e 74 20 6d 61 73 6b 29 20 7b 0a 20 20 20 int mask) {.
45b0: 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 EncryptState *s
45c0: 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 tatePtr = (Encry
45d0: 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e ptState *) clien
45e0: 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 tData;. Tcl_C
45f0: 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 hannel parent;.
4600: 20 20 20 54 63 6c 5f 44 72 69 76 65 72 57 61 74 Tcl_DriverWat
4610: 63 68 50 72 6f 63 20 2a 77 61 74 63 68 50 72 6f chProc *watchPro
4620: 63 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 c;.. dprintf(
4630: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
4640: 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 /* Abort if no c
4650: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 hannel */. if
4660: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 (statePtr->self
4670: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
4680: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
4690: 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a n;. }.. /*
46a0: 20 53 74 6f 72 65 20 4f 52 2d 65 64 20 63 6f 6d Store OR-ed com
46b0: 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f bination of TCL_
46c0: 52 45 41 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 READABLE, TCL_WR
46d0: 49 54 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 ITABLE and TCL_E
46e0: 58 43 45 50 54 49 4f 4e 20 2a 2f 0a 20 20 20 20 XCEPTION */.
46f0: 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d statePtr->watchM
4700: 61 73 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 ask = mask;..
4710: 20 2f 2a 20 50 72 6f 70 61 67 61 74 65 20 6d 61 /* Propagate ma
4720: 73 6b 20 69 6e 66 6f 20 74 6f 20 70 61 72 65 6e sk info to paren
4730: 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 t channel */.
4740: 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 parent = Tcl_Ge
4750: 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 tStackedChannel(
4760: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
4770: 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 20 3d . watchProc =
4780: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 Tcl_ChannelWatc
4790: 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 hProc(Tcl_GetCha
47a0: 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 nnelType(parent)
47b0: 29 3b 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 );. watchProc
47c0: 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 (Tcl_GetChannelI
47d0: 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 nstanceData(pare
47e0: 6e 74 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 nt), mask);..
47f0: 20 2f 2a 20 52 65 6d 6f 76 65 20 70 65 6e 64 69 /* Remove pendi
4800: 6e 67 20 74 69 6d 65 72 20 2a 2f 0a 20 20 20 20 ng timer */.
4810: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 if (statePtr->ti
4820: 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 mer != (Tcl_Time
4830: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a rToken) NULL) {.
4840: 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 .Tcl_DeleteTimer
4850: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 Handler(statePtr
4860: 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 ->timer);..state
4870: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
4880: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
4890: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f LL;. }.. /
48a0: 2a 20 49 66 20 74 68 65 72 65 20 69 73 20 64 61 * If there is da
48b0: 74 61 20 70 65 6e 64 69 6e 67 2c 20 73 65 74 20 ta pending, set
48c0: 6e 65 77 20 74 69 6d 65 72 20 74 6f 20 63 61 6c new timer to cal
48d0: 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e l Tcl_NotifyChan
48e0: 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 nel */. if ((
48f0: 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 mask & TCL_READA
4900: 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e 70 BLE) && (Tcl_Inp
4910: 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 65 utBuffered(state
4920: 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 29 Ptr->self) > 0))
4930: 20 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 {..statePtr->ti
4940: 6d 65 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 mer = Tcl_Create
4950: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 52 45 41 TimerHandler(REA
4960: 44 5f 44 45 4c 41 59 2c 20 45 6e 63 72 79 70 74 D_DELAY, Encrypt
4970: 54 69 6d 65 72 48 61 6e 64 6c 65 72 2c 20 28 43 TimerHandler, (C
4980: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
4990: 50 74 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f Ptr);. }.}../
49a0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
49b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
49e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
49f0: 20 45 6e 63 72 79 70 74 47 65 74 48 61 6e 64 6c EncryptGetHandl
4a00: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 eProc --. *. *.C
4a10: 61 6c 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 alled from Tcl_G
4a20: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 20 etChannelHandle
4a30: 74 6f 20 72 65 74 72 69 65 76 65 20 4f 53 20 73 to retrieve OS s
4a40: 70 65 63 69 66 69 63 20 66 69 6c 65 20 68 61 6e pecific file han
4a50: 64 6c 65 0a 20 2a 09 66 72 6f 6d 20 69 6e 73 69 dle. *.from insi
4a60: 64 65 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e de this channel.
4a70: 20 4e 6f 74 20 75 73 65 64 20 66 6f 72 20 74 72 Not used for tr
4a80: 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 3f 0a 20 ansformations?.
4a90: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
4aa0: 09 54 43 4c 5f 4f 4b 20 66 6f 72 20 73 75 63 63 .TCL_OK for succ
4ab0: 65 73 73 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 ess or TCL_ERROR
4ac0: 20 66 6f 72 20 65 72 72 6f 72 20 6f 72 20 69 66 for error or if
4ad0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 2e 20 not supported.
4ae0: 49 66 0a 20 2a 09 64 69 72 65 63 74 69 6f 6e 20 If. *.direction
4af0: 69 73 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c is TCL_READABLE,
4b00: 20 73 65 74 73 20 68 61 6e 64 6c 65 50 74 72 20 sets handlePtr
4b10: 74 6f 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 to the handle us
4b20: 65 64 20 66 6f 72 0a 20 2a 09 69 6e 70 75 74 2c ed for. *.input,
4b30: 20 6f 72 20 69 66 20 54 43 4c 5f 57 52 49 54 41 or if TCL_WRITA
4b40: 42 4c 45 20 73 65 74 73 20 74 6f 20 74 68 65 20 BLE sets to the
4b50: 68 61 6e 64 6c 65 20 75 73 65 64 20 66 6f 72 20 handle used for
4b60: 6f 75 74 70 75 74 2e 0a 20 2a 0a 20 2a 20 53 69 output.. *. * Si
4b70: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e de effects:. *.N
4b80: 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d one. *. *-------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4bd0: 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 47 */.int EncryptG
4be0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 etHandleProc(Cli
4bf0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
4c00: 74 61 2c 20 69 6e 74 20 64 69 72 65 63 74 69 6f ta, int directio
4c10: 6e 2c 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 n, ClientData *h
4c20: 61 6e 64 6c 65 50 74 72 29 20 7b 0a 20 20 20 20 andlePtr) {.
4c30: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 EncryptState *st
4c40: 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 atePtr = (Encryp
4c50: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
4c60: 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 Data;. Tcl_Ch
4c70: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 0a 20 annel parent;..
4c80: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
4c90: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 ed");.. /* Ab
4ca0: 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 ort if no channe
4cb0: 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 l */. if (sta
4cc0: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 tePtr->self == (
4cd0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
4ce0: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
4cf0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
4d00: 20 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f parent = Tcl_
4d10: 47 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 GetStackedChanne
4d20: 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 l(statePtr->self
4d30: 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 );. return Tc
4d40: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 l_GetChannelHand
4d50: 6c 65 28 70 61 72 65 6e 74 2c 20 64 69 72 65 63 le(parent, direc
4d60: 74 69 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 tion, handlePtr)
4d70: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
4d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4dc0: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 4e 6f . *. * EncryptNo
4dd0: 74 69 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 tifyProc --. *.
4de0: 2a 09 43 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 *.Called by Tcl
4df0: 74 6f 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 to inform us of
4e00: 61 63 74 69 76 69 74 79 20 6f 6e 20 74 68 65 20 activity on the
4e10: 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e underlying chann
4e20: 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e el.. *. * Return
4e30: 73 3a 0a 20 2a 09 55 6e 63 68 61 6e 67 65 64 20 s:. *.Unchanged
4e40: 69 6e 74 65 72 65 73 74 4d 61 73 6b 20 77 68 69 interestMask whi
4e50: 63 68 20 69 73 20 61 6e 20 4f 52 2d 65 64 20 63 ch is an OR-ed c
4e60: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 ombination of TC
4e70: 4c 5f 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 L_READABLE or TC
4e80: 4c 5f 57 52 49 54 41 42 4c 45 0a 20 2a 0a 20 2a L_WRITABLE. *. *
4e90: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
4ea0: 2a 09 43 61 6e 63 65 6c 73 20 61 6e 79 20 70 65 *.Cancels any pe
4eb0: 6e 64 69 6e 67 20 74 69 6d 65 72 2e 0a 20 2a 0a nding timer.. *.
4ec0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
4ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f00: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
4f10: 20 45 6e 63 72 79 70 74 4e 6f 74 69 66 79 50 72 EncryptNotifyPr
4f20: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
4f30: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 69 6e ientData, int in
4f40: 74 65 72 65 73 74 4d 61 73 6b 29 20 7b 0a 20 20 terestMask) {.
4f50: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a EncryptState *
4f60: 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 statePtr = (Encr
4f70: 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 yptState *) clie
4f80: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 ntData;.. dpr
4f90: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
4fa0: 0a 20 20 20 20 2f 2a 20 53 6b 69 70 20 74 69 6d . /* Skip tim
4fb0: 65 72 20 65 76 65 6e 74 20 61 73 20 72 65 64 75 er event as redu
4fc0: 6e 64 61 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 ndant */. if
4fd0: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
4fe0: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
4ff0: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ken) NULL) {..Tc
5000: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
5010: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
5020: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
5030: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
5040: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
5050: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
5060: 6e 20 69 6e 74 65 72 65 73 74 4d 61 73 6b 3b 0a n interestMask;.
5070: 7d 0a 0a 2f 2a 0a 20 2a 0a 20 2a 20 43 68 61 6e }../*. *. * Chan
5080: 6e 65 6c 20 74 79 70 65 20 73 74 72 75 63 74 75 nel type structu
5090: 72 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f re definition fo
50a0: 72 20 65 6e 63 72 79 70 74 69 6f 6e 20 74 72 61 r encryption tra
50b0: 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 2e 0a 20 2a nsformations.. *
50c0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 . */.static cons
50d0: 74 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 t Tcl_ChannelTyp
50e0: 65 20 65 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c e encryptChannel
50f0: 54 79 70 65 20 3d 20 7b 0a 20 20 20 20 22 65 6e Type = {. "en
5100: 63 72 79 70 74 69 6f 6e 22 2c 09 09 2f 2a 20 54 cryption",../* T
5110: 79 70 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 ype name */.
5120: 54 43 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 TCL_CHANNEL_VERS
5130: 49 4f 4e 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 ION_5,./* v5 cha
5140: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 45 6e 63 72 nnel */. Encr
5150: 79 70 74 43 6c 6f 73 65 50 72 6f 63 2c 09 09 2f yptCloseProc,../
5160: 2a 20 43 6c 6f 73 65 20 70 72 6f 63 20 2a 2f 0a * Close proc */.
5170: 20 20 20 20 45 6e 63 72 79 70 74 49 6e 70 75 74 EncryptInput
5180: 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 Proc,../* Input
5190: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 proc */. Encr
51a0: 79 70 74 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 yptOutputProc,..
51b0: 2f 2a 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a /* Output proc *
51c0: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a /. NULL,.../*
51d0: 20 53 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 Seek proc */.
51e0: 20 20 45 6e 63 72 79 70 74 53 65 74 4f 70 74 69 EncryptSetOpti
51f0: 6f 6e 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 6f onProc,./* Set o
5200: 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 ption proc */.
5210: 20 20 45 6e 63 72 79 70 74 47 65 74 4f 70 74 69 EncryptGetOpti
5220: 6f 6e 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 6f onProc,./* Get o
5230: 70 74 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 ption proc */.
5240: 20 20 45 6e 63 72 79 70 74 57 61 74 63 68 50 72 EncryptWatchPr
5250: 6f 63 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c 69 oc,../* Initiali
5260: 7a 65 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a 20 ze notifier */.
5270: 20 20 20 45 6e 63 72 79 70 74 47 65 74 48 61 6e EncryptGetHan
5280: 64 6c 65 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 dleProc,./* Get
5290: 4f 53 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f OS handles out o
52a0: 66 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 f channel */.
52b0: 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 32 50 72 EncryptClose2Pr
52c0: 6f 63 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 oc,../* close2pr
52d0: 6f 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 oc */. Encryp
52e0: 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 tBlockModeProc,.
52f0: 2f 2a 20 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f /* Set blocking/
5300: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 nonblocking mode
5310: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
5320: 2a 20 46 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a * Flush proc */.
5330: 20 20 20 20 45 6e 63 72 79 70 74 4e 6f 74 69 66 EncryptNotif
5340: 79 50 72 6f 63 2c 09 09 2f 2a 20 48 61 6e 64 6c yProc,../* Handl
5350: 69 6e 67 20 6f 66 20 65 76 65 6e 74 73 20 62 75 ing of events bu
5360: 62 62 6c 69 6e 67 20 75 70 20 2a 2f 0a 20 20 20 bbling up */.
5370: 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 57 69 64 65 NULL,.../* Wide
5380: 20 73 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 seek proc */.
5390: 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 54 68 72 NULL,.../* Thr
53a0: 65 61 64 20 61 63 74 69 6f 6e 20 2a 2f 0a 20 20 ead action */.
53b0: 20 20 4e 55 4c 4c 09 09 09 2f 2a 20 54 72 75 6e NULL.../* Trun
53c0: 63 61 74 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 cate */.};../*.
53d0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
53e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
53f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5410: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
5420: 63 72 79 70 74 43 68 61 6e 6e 65 6c 48 61 6e 64 cryptChannelHand
5430: 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 ler --. *. *.Cre
5440: 61 74 65 20 61 20 73 74 61 63 6b 65 64 20 63 68 ate a stacked ch
5450: 61 6e 6e 65 6c 20 66 6f 72 20 61 20 6d 65 73 73 annel for a mess
5460: 61 67 65 20 65 6e 63 72 79 70 74 69 6f 6e 20 74 age encryption t
5470: 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 2e 0a 20 ransformation..
5480: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
5490: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
54a0: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
54b0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 effects:. *.Adds
54c0: 20 74 72 61 6e 73 66 6f 72 6d 20 74 6f 20 63 68 transform to ch
54d0: 61 6e 6e 65 6c 20 61 6e 64 20 73 65 74 73 20 72 annel and sets r
54e0: 65 73 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c esult to channel
54f0: 20 69 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 id or error mes
5500: 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d sage.. *. *-----
5510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5550: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
5560: 20 45 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 48 EncryptChannelH
5570: 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 andler(Tcl_Inter
5580: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 p *interp, int t
5590: 79 70 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 ype, const char
55a0: 2a 63 68 61 6e 6e 65 6c 2c 0a 09 54 63 6c 5f 4f *channel,..Tcl_O
55b0: 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 bj *cipherObj, T
55c0: 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 cl_Obj *digestOb
55d0: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f j, Tcl_Obj *keyO
55e0: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f bj, Tcl_Obj *ivO
55f0: 62 6a 2c 20 69 6e 74 20 70 61 64 64 69 6e 67 29 bj, int padding)
5600: 20 7b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b {. int mode;
5610: 20 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e /* OR-ed combin
5620: 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 ation of TCL_REA
5630: 44 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 57 52 DABLE and TCL_WR
5640: 49 54 41 42 4c 45 20 2a 2f 0a 20 20 20 20 54 63 ITABLE */. Tc
5650: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a l_Channel chan;.
5660: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
5670: 20 2a 73 74 61 74 65 50 74 72 3b 0a 0a 20 20 20 *statePtr;..
5680: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
5690: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 ");.. /* Vali
56a0: 64 61 74 65 20 61 72 67 73 20 2a 2f 0a 20 20 20 date args */.
56b0: 20 69 66 20 28 63 68 61 6e 6e 65 6c 20 3d 3d 20 if (channel ==
56c0: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 4e (const char *) N
56d0: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 ULL) {..Tcl_Appe
56e0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
56f0: 20 22 4e 6f 20 63 68 61 6e 6e 65 6c 22 2c 20 28 "No channel", (
5700: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
5710: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5720: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
5730: 47 65 74 20 63 68 61 6e 6e 65 6c 20 49 64 20 2a Get channel Id *
5740: 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c /. chan = Tcl
5750: 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 65 _GetChannel(inte
5760: 72 70 2c 20 63 68 61 6e 6e 65 6c 2c 20 26 6d 6f rp, channel, &mo
5770: 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 de);. if (cha
5780: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
5790: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
57a0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
57b0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d 61 6b 65 }.. /* Make
57c0: 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 sure to operate
57d0: 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 on the topmost
57e0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 channel */. c
57f0: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 han = Tcl_GetTop
5800: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a Channel(chan);..
5810: 20 20 20 20 2f 2a 20 43 6f 6e 66 69 67 75 72 65 /* Configure
5820: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5830: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f 70 Tcl_SetChannelOp
5840: 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 61 tion(interp, cha
5850: 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f 6e n, "-translation
5860: 22 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 20 20 ", "binary");.
5870: 20 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 if (Tcl_GetCha
5880: 6e 6e 65 6c 42 75 66 66 65 72 53 69 7a 65 28 63 nnelBufferSize(c
5890: 68 61 6e 29 20 3c 20 45 56 50 5f 4d 41 58 5f 42 han) < EVP_MAX_B
58a0: 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 20 7b 0a 09 LOCK_LENGTH) {..
58b0: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 42 75 Tcl_SetChannelBu
58c0: 66 66 65 72 53 69 7a 65 28 63 68 61 6e 2c 20 45 fferSize(chan, E
58d0: 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e VP_MAX_BLOCK_LEN
58e0: 47 54 48 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 GTH);. }..
58f0: 20 2f 2a 20 43 72 65 61 74 65 20 73 74 61 74 65 /* Create state
5900: 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 20 data structure
5910: 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 */. if ((stat
5920: 65 50 74 72 20 3d 20 45 6e 63 72 79 70 74 53 74 ePtr = EncryptSt
5930: 61 74 65 4e 65 77 28 69 6e 74 65 72 70 2c 20 74 ateNew(interp, t
5940: 79 70 65 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b ype)) == NULL) {
5950: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
5960: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f lt(interp, "Memo
5970: 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 ry allocation er
5980: 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e ror", (char *) N
5990: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
59a0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
59b0: 20 20 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c statePtr->sel
59c0: 66 20 3d 20 63 68 61 6e 3b 0a 20 20 20 20 73 74 f = chan;. st
59d0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 20 3d 20 6d atePtr->mode = m
59e0: 6f 64 65 3b 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 ode;.. /* Ini
59f0: 74 69 61 6c 69 7a 65 20 66 75 6e 63 74 69 6f 6e tialize function
5a00: 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 6e 63 72 */. if (Encr
5a10: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e yptInitialize(in
5a20: 74 65 72 70 2c 20 74 79 70 65 2c 20 26 73 74 61 terp, type, &sta
5a30: 74 65 50 74 72 2d 3e 63 74 78 2c 20 63 69 70 68 tePtr->ctx, ciph
5a40: 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 erObj, keyObj, i
5a50: 76 4f 62 6a 2c 20 70 61 64 64 69 6e 67 29 20 21 vObj, padding) !
5a60: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 6e 63 = TCL_OK) {..Enc
5a70: 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 74 ryptStateFree(st
5a80: 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e atePtr);..return
5a90: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5aa0: 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 61 63 6b 20 }.. /* Stack
5ab0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 73 channel */. s
5ac0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 tatePtr->self =
5ad0: 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 6c Tcl_StackChannel
5ae0: 28 69 6e 74 65 72 70 2c 20 26 65 6e 63 72 79 70 (interp, &encryp
5af0: 74 43 68 61 6e 6e 65 6c 54 79 70 65 2c 20 28 43 tChannelType, (C
5b00: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
5b10: 50 74 72 2c 20 6d 6f 64 65 2c 20 63 68 61 6e 29 Ptr, mode, chan)
5b20: 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 ;. if (stateP
5b30: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
5b40: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
5b50: 7b 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 46 {..EncryptStateF
5b60: 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 ree(statePtr);..
5b70: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
5b80: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 64 70 72 ;. }.. dpr
5b90: 69 6e 74 66 28 22 43 72 65 61 74 65 64 20 63 68 intf("Created ch
5ba0: 61 6e 6e 65 6c 20 6e 61 6d 65 64 20 25 73 22 2c annel named %s",
5bb0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
5bc0: 61 6d 65 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ame(statePtr->se
5bd0: 6c 66 29 29 3b 0a 0a 20 20 20 20 2f 2a 20 53 65 lf));.. /* Se
5be0: 74 20 72 65 73 75 6c 74 20 74 6f 20 63 68 61 6e t result to chan
5bf0: 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 20 54 63 nel Id */. Tc
5c00: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 l_SetResult(inte
5c10: 72 70 2c 20 28 63 68 61 72 20 2a 29 20 54 63 6c rp, (char *) Tcl
5c20: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
5c30: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 2c statePtr->self),
5c40: 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a TCL_VOLATILE);.
5c50: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
5c60: 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a K;.}../*********
5c70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5c80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5c90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ca0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
5cb0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
5cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5cf0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
5d00: 79 70 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d yptInstanceObjCm
5d10: 64 20 2d 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c d --. *. *.Handl
5d20: 65 72 20 66 6f 72 20 65 6e 63 72 79 70 74 2f 64 er for encrypt/d
5d30: 65 63 72 79 70 74 20 63 6f 6d 6d 61 6e 64 20 69 ecrypt command i
5d40: 6e 73 74 61 6e 63 65 73 2e 20 55 73 65 64 20 74 nstances. Used t
5d50: 6f 20 75 70 64 61 74 65 0a 20 2a 09 61 6e 64 20 o update. *.and
5d60: 66 69 6e 61 6c 69 7a 65 20 64 61 74 61 20 66 6f finalize data fo
5d70: 72 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 r encrypt/decryp
5d80: 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 t function.. *.
5d90: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
5da0: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
5db0: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
5dc0: 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 64 61 ects:. *.Adds da
5dd0: 74 61 20 74 6f 20 65 6e 63 72 79 70 74 2f 64 65 ta to encrypt/de
5de0: 63 72 79 70 74 20 66 75 6e 63 74 69 6f 6e 0a 20 crypt function.
5df0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
5e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e30: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
5e40: 45 6e 63 72 79 70 74 49 6e 73 74 61 6e 63 65 4f EncryptInstanceO
5e50: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
5e60: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
5e70: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
5e80: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
5e90: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
5ea0: 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 ) {. EncryptS
5eb0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
5ec0: 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a (EncryptState *
5ed0: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
5ee0: 20 20 69 6e 74 20 66 6e 2c 20 6f 75 74 5f 6c 65 int fn, out_le
5ef0: 6e 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 n;. Tcl_Size
5f00: 64 61 74 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 data_len = 0;.
5f10: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
5f20: 2a 64 61 74 61 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *data = NULL;.
5f30: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
5f40: 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73 69 67 6e tObj;. unsign
5f50: 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 ed char *out_buf
5f60: 3b 0a 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e ;. static con
5f70: 73 74 20 63 68 61 72 20 2a 69 6e 73 74 61 6e 63 st char *instanc
5f80: 65 5f 66 6e 73 20 5b 5d 20 3d 20 7b 20 22 66 69 e_fns [] = { "fi
5f90: 6e 61 6c 69 7a 65 22 2c 20 22 75 70 64 61 74 65 nalize", "update
5fa0: 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 0a 20 20 20 20 ", NULL };..
5fb0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
5fc0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 );.. /* Valid
5fd0: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f ate arg count */
5fe0: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 . if (objc <
5ff0: 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 2 || objc > 3) {
6000: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
6010: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
6020: 6a 76 2c 20 22 66 75 6e 63 74 69 6f 6e 20 3f 64 jv, "function ?d
6030: 61 74 61 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ata?");..return
6040: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6050: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 66 75 6e .. /* Get fun
6060: 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 ction */. if
6070: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f (Tcl_GetIndexFro
6080: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
6090: 76 5b 31 5d 2c 20 69 6e 73 74 61 6e 63 65 5f 66 v[1], instance_f
60a0: 6e 73 2c 20 22 66 75 6e 63 74 69 6f 6e 22 2c 20 ns, "function",
60b0: 30 2c 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 0, &fn) != TCL_O
60c0: 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c K) {..return TCL
60d0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
60e0: 20 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 /* Allocate s
60f0: 74 6f 72 61 67 65 20 66 6f 72 20 72 65 73 75 6c torage for resul
6100: 74 2e 20 53 69 7a 65 20 73 68 6f 75 6c 64 20 62 t. Size should b
6110: 65 20 64 61 74 61 20 73 69 7a 65 20 2b 20 62 6c e data size + bl
6120: 6f 63 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 ock size. */.
6130: 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c resultObj = Tcl
6140: 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 69 _NewObj();. i
6150: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
6160: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
6170: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6180: 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 , "Memory alloca
6190: 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 tion error", (ch
61a0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
61b0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
61c0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 6f }.. /* Do
61d0: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
61e0: 20 69 66 20 28 66 6e 29 20 7b 0a 09 2f 2a 20 47 if (fn) {../* G
61f0: 65 74 20 64 61 74 61 20 6f 72 20 72 65 74 75 72 et data or retur
6200: 6e 20 65 72 72 6f 72 20 69 66 20 6e 6f 6e 65 20 n error if none
6210: 2a 2f 0a 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 */..if (objc ==
6220: 33 29 20 7b 0a 09 20 20 20 20 64 61 74 61 20 3d 3) {.. data =
6230: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 Tcl_GetByteArra
6240: 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d yFromObj(objv[2]
6250: 2c 20 26 64 61 74 61 5f 6c 65 6e 29 3b 0a 09 7d , &data_len);..}
6260: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c else {.. Tcl
6270: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
6280: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
6290: 75 70 64 61 74 65 20 64 61 74 61 22 29 3b 0a 09 update data");..
62a0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
62b0: 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 41 6c RROR;..}.../* Al
62c0: 6c 6f 63 61 74 65 20 6f 75 74 70 75 74 20 62 75 locate output bu
62d0: 66 66 65 72 20 2a 2f 0a 09 6f 75 74 5f 62 75 66 ffer */..out_buf
62e0: 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 = Tcl_SetByteAr
62f0: 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 rayLength(result
6300: 4f 62 6a 2c 20 64 61 74 61 5f 6c 65 6e 2b 45 56 Obj, data_len+EV
6310: 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 P_MAX_BLOCK_LENG
6320: 54 48 29 3b 0a 09 69 66 20 28 64 61 74 61 20 3d TH);..if (data =
6330: 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 = NULL || out_bu
6340: 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 20 20 f == NULL) {..
6350: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
6360: 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 nt(resultObj);..
6370: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 Tcl_AppendRe
6380: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 sult(interp, "Me
6390: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
63a0: 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 error", (char *)
63b0: 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 74 NULL);.. ret
63c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
63d0: 7d 0a 0a 09 2f 2a 20 55 70 64 61 74 65 20 66 75 }.../* Update fu
63e0: 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 nction */..if (E
63f0: 6e 63 72 79 70 74 55 70 64 61 74 65 28 69 6e 74 ncryptUpdate(int
6400: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 erp, statePtr->t
6410: 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 ype, statePtr->c
6420: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 tx, out_buf, &ou
6430: 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 74 t_len, data, dat
6440: 61 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b a_len) == TCL_OK
6450: 29 20 7b 0a 09 20 20 20 20 6f 75 74 5f 62 75 66 ) {.. out_buf
6460: 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 = Tcl_SetByteAr
6470: 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 rayLength(result
6480: 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 Obj, (Tcl_Size)
6490: 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 54 out_len);.. T
64a0: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
64b0: 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f 62 interp, resultOb
64c0: 6a 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 j);..} else {..
64d0: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f Tcl_DecrRefCo
64e0: 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a unt(resultObj);.
64f0: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6500: 45 52 52 4f 52 3b 0a 09 7d 0a 0a 20 20 20 20 7d ERROR;..}.. }
6510: 20 65 6c 73 65 20 7b 0a 09 2f 2a 20 41 6c 6c 6f else {../* Allo
6520: 63 61 74 65 20 6f 75 74 70 75 74 20 62 75 66 66 cate output buff
6530: 65 72 20 2a 2f 0a 09 6f 75 74 5f 62 75 66 20 3d er */..out_buf =
6540: 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 Tcl_SetByteArra
6550: 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 yLength(resultOb
6560: 6a 2c 20 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b j, EVP_MAX_BLOCK
6570: 5f 4c 45 4e 47 54 48 29 3b 0a 09 69 66 20 28 6f _LENGTH);..if (o
6580: 75 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 ut_buf == NULL)
6590: 7b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 {.. Tcl_DecrR
65a0: 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 efCount(resultOb
65b0: 6a 29 3b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 j);.. Tcl_App
65c0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
65d0: 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 , "Memory alloca
65e0: 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 tion error", (ch
65f0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 ar *) NULL);..
6600: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 return TCL_ERR
6610: 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 46 69 6e 61 OR;..}.../* Fina
6620: 6c 69 7a 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f lize function */
6630: 0a 09 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e ..if (EncryptFin
6640: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 alize(interp, st
6650: 61 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 atePtr->type, st
6660: 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 atePtr->ctx, out
6670: 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 _buf, &out_len)
6680: 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 == TCL_OK) {..
6690: 20 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f out_buf = Tcl_
66a0: 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 SetByteArrayLeng
66b0: 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 28 54 th(resultObj, (T
66c0: 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e cl_Size) out_len
66d0: 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 4f );.. Tcl_SetO
66e0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c bjResult(interp,
66f0: 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d 20 resultObj);..}
6700: 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f else {.. Tcl_
6710: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 DecrRefCount(res
6720: 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 65 ultObj);.. re
6730: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
6740: 09 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 2d 75 70 .}.../* Clean-up
6750: 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c 65 74 65 43 */..Tcl_DeleteC
6760: 6f 6d 6d 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e 28 ommandFromToken(
6770: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
6780: 2d 3e 74 6f 6b 65 6e 29 3b 0a 20 20 20 20 7d 0a ->token);. }.
6790: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
67a0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d K;.}../*. *-----
67b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
67f0: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6f 6d 6d *. * EncryptComm
6800: 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 andDeleteHandler
6810: 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 61 6c 6c 62 --. *. *. Callb
6820: 61 63 6b 20 74 6f 20 63 6c 65 61 6e 2d 75 70 20 ack to clean-up
6830: 77 68 65 6e 20 65 6e 63 72 79 70 74 2f 64 65 63 when encrypt/dec
6840: 72 79 70 74 20 63 6f 6d 6d 61 6e 64 20 69 73 20 rypt command is
6850: 64 65 6c 65 74 65 64 2e 0a 20 2a 0a 20 2a 20 52 deleted.. *. * R
6860: 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 69 eturns:. *.Nothi
6870: 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 ng. *. * Side ef
6880: 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 6f fects:. *.Destro
6890: 79 73 20 73 74 61 74 65 20 69 6e 66 6f 20 73 74 ys state info st
68a0: 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d ructure. *. *---
68b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68f0: 0a 20 2a 2f 0a 76 6f 69 64 20 45 6e 63 72 79 70 . */.void Encryp
6900: 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 65 48 61 tCommandDeleteHa
6910: 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 61 ndler(ClientData
6920: 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a 20 clientData) {.
6930: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
6940: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
6950: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 ryptState *) cli
6960: 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 entData;.. dp
6970: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
6980: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 .. /* Clean-u
6990: 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 p */. Encrypt
69a0: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
69b0: 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d tr);.}../*. *---
69c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a00: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6f . *. * EncryptCo
6a10: 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 20 2d 2d 0a mmandHandler --.
6a20: 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 20 63 6f *. *. Create co
6a30: 6d 6d 61 6e 64 20 74 6f 20 61 64 64 20 64 61 74 mmand to add dat
6a40: 61 20 74 6f 20 65 6e 63 72 79 70 74 2f 64 65 63 a to encrypt/dec
6a50: 72 79 70 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 rypt function..
6a60: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
6a70: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
6a80: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
6a90: 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 effects:. *.Crea
6aa0: 74 65 73 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 65 tes command or e
6ab0: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a rror message. *.
6ac0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b00: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
6b10: 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 cryptCommandHand
6b20: 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ler(Tcl_Interp *
6b30: 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 interp, int type
6b40: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 4f 62 , Tcl_Obj *cmdOb
6b50: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 j, Tcl_Obj *ciph
6b60: 65 72 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 erObj,..Tcl_Obj
6b70: 2a 64 69 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f *digestObj, Tcl_
6b80: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
6b90: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 _Obj *ivObj, int
6ba0: 20 70 61 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 padding) {.
6bb0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 EncryptState *st
6bc0: 61 74 65 50 74 72 3b 0a 20 20 20 20 63 68 61 72 atePtr;. char
6bd0: 20 2a 63 6d 64 4e 61 6d 65 20 3d 20 54 63 6c 5f *cmdName = Tcl_
6be0: 47 65 74 53 74 72 69 6e 67 28 63 6d 64 4f 62 6a GetString(cmdObj
6bf0: 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 );.. dprintf(
6c00: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
6c10: 69 66 20 28 28 73 74 61 74 65 50 74 72 20 3d 20 if ((statePtr =
6c20: 45 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 EncryptStateNew(
6c30: 69 6e 74 65 72 70 2c 20 74 79 70 65 29 29 20 3d interp, type)) =
6c40: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
6c50: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6c60: 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f rp, "Memory allo
6c70: 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 cation error", (
6c80: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
6c90: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6ca0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
6cb0: 49 6e 69 74 69 61 6c 69 7a 65 20 66 75 6e 63 74 Initialize funct
6cc0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 ion */. if (E
6cd0: 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 ncryptInitialize
6ce0: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 (interp, type, &
6cf0: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 63 statePtr->ctx, c
6d00: 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a ipherObj, keyObj
6d10: 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 69 6e 67 , ivObj, padding
6d20: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
6d30: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
6d40: 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 (statePtr);..ret
6d50: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6d60: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 }.. /* Cre
6d70: 61 74 65 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d ate instance com
6d80: 6d 61 6e 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 mand */. stat
6d90: 65 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 ePtr->token = Tc
6da0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
6db0: 6e 64 28 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 nd(interp, cmdNa
6dc0: 6d 65 2c 20 45 6e 63 72 79 70 74 49 6e 73 74 61 me, EncryptInsta
6dd0: 6e 63 65 4f 62 6a 43 6d 64 2c 0a 09 28 43 6c 69 nceObjCmd,..(Cli
6de0: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
6df0: 72 2c 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e r, EncryptComman
6e00: 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 29 3b dDeleteHandler);
6e10: 0a 0a 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 .. /* Return
6e20: 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a command name */.
6e30: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
6e40: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 sult(interp, cmd
6e50: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
6e60: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a TCL_OK;.}../***
6e70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6e80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6e90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6ea0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6eb0: 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d /../*. *--------
6ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
6f00: 2a 20 45 6e 63 72 79 70 74 44 61 74 61 48 61 6e * EncryptDataHan
6f10: 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 dler --. *. *.Pe
6f20: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
6f30: 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 function on a b
6f40: 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 lock of data and
6f50: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a return result..
6f60: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
6f70: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
6f80: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
6f90: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
6fa0: 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 6f s result or erro
6fb0: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
6fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7000: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
7010: 70 74 44 61 74 61 48 61 6e 64 6c 65 72 28 54 63 ptDataHandler(Tc
7020: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7030: 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f , int type, Tcl_
7040: 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 54 63 Obj *dataObj, Tc
7050: 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a l_Obj *cipherObj
7060: 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 ,..Tcl_Obj *dige
7070: 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a stObj, Tcl_Obj *
7080: 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 keyObj, Tcl_Obj
7090: 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 70 61 64 64 *ivObj, int padd
70a0: 69 6e 67 29 20 7b 0a 20 20 20 20 45 56 50 5f 43 ing) {. EVP_C
70b0: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 3d IPHER_CTX *ctx =
70c0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 6f NULL;. int o
70d0: 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e 20 ut_len = 0, len
70e0: 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 4c 5f 4f = 0, res = TCL_O
70f0: 4b 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 K;. Tcl_Size
7100: 64 61 74 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 data_len = 0;.
7110: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
7120: 2a 64 61 74 61 2c 20 2a 6f 75 74 5f 62 75 66 3b *data, *out_buf;
7130: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
7140: 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 sultObj;.. dp
7150: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
7160: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 61 74 .. /* Get dat
7170: 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 64 61 74 a */. if (dat
7180: 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a aObj != NULL) {.
7190: 09 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 .data = Tcl_GetB
71a0: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
71b0: 64 61 74 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c dataObj, &data_l
71c0: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
71d0: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
71e0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
71f0: 64 61 74 61 22 2c 20 28 63 68 61 72 20 2a 29 20 data", (char *)
7200: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
7210: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
7220: 0a 20 20 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 . /* Allocate
7230: 20 73 74 6f 72 61 67 65 20 66 6f 72 20 72 65 73 storage for res
7240: 75 6c 74 2e 20 53 69 7a 65 20 73 68 6f 75 6c 64 ult. Size should
7250: 20 62 65 20 64 61 74 61 20 73 69 7a 65 20 2b 20 be data size +
7260: 62 6c 6f 63 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 block size. */.
7270: 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 resultObj = T
7280: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 cl_NewObj();.
7290: 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 out_buf = Tcl_S
72a0: 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 etByteArrayLengt
72b0: 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 64 61 74 h(resultObj, dat
72c0: 61 5f 6c 65 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c a_len+EVP_MAX_BL
72d0: 4f 43 4b 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 OCK_LENGTH);.
72e0: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d if (resultObj =
72f0: 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 = NULL || out_bu
7300: 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 f == NULL) {..Tc
7310: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7320: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
7330: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
7340: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
7350: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
7360: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7370: 2f 2a 20 50 65 72 66 6f 72 6d 20 6f 70 65 72 61 /* Perform opera
7380: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 tion */. if (
7390: 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a EncryptInitializ
73a0: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
73b0: 26 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c &ctx, cipherObj,
73c0: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 keyObj, ivObj,
73d0: 70 61 64 64 69 6e 67 29 20 21 3d 20 54 43 4c 5f padding) != TCL_
73e0: 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 55 70 OK ||..EncryptUp
73f0: 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 79 70 date(interp, typ
7400: 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c e, ctx, out_buf,
7410: 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c &out_len, data,
7420: 20 64 61 74 61 5f 6c 65 6e 29 20 21 3d 20 54 43 data_len) != TC
7430: 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 L_OK ||..Encrypt
7440: 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c Finalize(interp,
7450: 20 74 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f type, ctx, out_
7460: 62 75 66 2b 6f 75 74 5f 6c 65 6e 2c 20 26 6c 65 buf+out_len, &le
7470: 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a n) != TCL_OK) {.
7480: 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 .res = TCL_ERROR
7490: 3b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 ;..goto done;.
74a0: 20 20 7d 0a 20 20 20 20 6f 75 74 5f 6c 65 6e 20 }. out_len
74b0: 2b 3d 20 6c 65 6e 3b 0a 0a 64 6f 6e 65 3a 0a 20 += len;..done:.
74c0: 20 20 20 2f 2a 20 53 65 74 20 6f 75 74 70 75 74 /* Set output
74d0: 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 69 result */. i
74e0: 66 20 28 72 65 73 20 3d 3d 20 54 43 4c 5f 4f 4b f (res == TCL_OK
74f0: 29 20 7b 0a 09 6f 75 74 5f 62 75 66 20 3d 20 54 ) {..out_buf = T
7500: 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c cl_SetByteArrayL
7510: 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c ength(resultObj,
7520: 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f (Tcl_Size) out_
7530: 6c 65 6e 29 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 len);..Tcl_SetOb
7540: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
7550: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
7560: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 44 65 } else {..Tcl_De
7570: 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c crRefCount(resul
7580: 74 4f 62 6a 29 3b 0a 09 2f 2a 20 52 65 73 75 6c tObj);../* Resul
7590: 74 20 69 73 20 65 72 72 6f 72 20 6d 65 73 73 61 t is error messa
75a0: 67 65 20 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 ge */. }..
75b0: 20 2f 2a 20 43 6c 65 61 6e 20 75 70 20 2a 2f 0a /* Clean up */.
75c0: 20 20 20 20 69 66 20 28 63 74 78 20 21 3d 20 4e if (ctx != N
75d0: 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 50 48 ULL) {..EVP_CIPH
75e0: 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 ER_CTX_free(ctx)
75f0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
7600: 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a rn res;.}../****
7610: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7620: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7630: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7640: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
7650: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
7660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
76a0: 20 45 6e 63 72 79 70 74 46 69 6c 65 48 61 6e 64 EncryptFileHand
76b0: 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 ler --. *. *.Per
76c0: 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 form encryption
76d0: 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 6c function on a bl
76e0: 6f 63 6b 20 6f 66 20 64 61 74 61 2c 20 77 72 69 ock of data, wri
76f0: 74 65 20 69 74 20 74 6f 20 61 0a 20 2a 09 66 69 te it to a. *.fi
7700: 6c 65 2c 20 74 68 65 6e 20 72 65 74 75 72 6e 20 le, then return
7710: 74 68 65 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 the result.. *.
7720: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
7730: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
7740: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
7750: 65 63 74 73 3a 0a 20 2a 09 45 6e 63 72 79 70 74 ects:. *.Encrypt
7760: 73 20 6f 72 20 64 65 63 72 79 70 74 73 20 69 6e s or decrypts in
7770: 46 69 6c 65 20 64 61 74 61 20 74 6f 20 6f 75 74 File data to out
7780: 46 69 6c 65 20 61 6e 64 20 73 65 74 73 20 72 65 File and sets re
7790: 73 75 6c 74 20 74 6f 0a 20 2a 09 73 69 7a 65 20 sult to. *.size
77a0: 6f 66 20 6f 75 74 46 69 6c 65 2c 20 6f 72 20 61 of outFile, or a
77b0: 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e n error message.
77c0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
77d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
77f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e ---------. */.in
7810: 74 20 45 6e 63 72 79 70 74 46 69 6c 65 48 61 6e t EncryptFileHan
7820: 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 dler(Tcl_Interp
7830: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 *interp, int typ
7840: 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 e, Tcl_Obj *inFi
7850: 6c 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a leObj, Tcl_Obj *
7860: 6f 75 74 46 69 6c 65 4f 62 6a 2c 0a 09 54 63 6c outFileObj,..Tcl
7870: 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c _Obj *cipherObj,
7880: 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 Tcl_Obj *digest
7890: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 Obj, Tcl_Obj *ke
78a0: 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 yObj, Tcl_Obj *i
78b0: 76 4f 62 6a 2c 20 69 6e 74 20 70 61 64 64 69 6e vObj, int paddin
78c0: 67 29 20 7b 0a 20 20 20 20 45 56 50 5f 43 49 50 g) {. EVP_CIP
78d0: 48 45 52 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e HER_CTX *ctx = N
78e0: 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 74 6f 74 ULL;. int tot
78f0: 61 6c 20 3d 20 30 2c 20 72 65 73 2c 20 6f 75 74 al = 0, res, out
7900: 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e 3b 0a 20 _len = 0, len;.
7910: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 69 Tcl_Channel i
7920: 6e 20 3d 20 4e 55 4c 4c 2c 20 6f 75 74 20 3d 20 n = NULL, out =
7930: 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e 73 69 67 6e NULL;. unsign
7940: 65 64 20 63 68 61 72 20 69 6e 5f 62 75 66 5b 42 ed char in_buf[B
7950: 55 46 46 45 52 5f 53 49 5a 45 5d 3b 0a 20 20 20 UFFER_SIZE];.
7960: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6f unsigned char o
7970: 75 74 5f 62 75 66 5b 42 55 46 46 45 52 5f 53 49 ut_buf[BUFFER_SI
7980: 5a 45 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b ZE+EVP_MAX_BLOCK
7990: 5f 4c 45 4e 47 54 48 5d 3b 0a 0a 20 20 20 20 64 _LENGTH];.. d
79a0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
79b0: 3b 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 69 ;.. /* Open i
79c0: 6e 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 nput file */.
79d0: 20 69 66 20 28 28 69 6e 20 3d 20 54 63 6c 5f 46 if ((in = Tcl_F
79e0: 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c SOpenFileChannel
79f0: 28 69 6e 74 65 72 70 2c 20 69 6e 46 69 6c 65 4f (interp, inFileO
7a00: 62 6a 2c 20 22 72 62 22 2c 20 30 34 34 34 29 29 bj, "rb", 0444))
7a10: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
7a20: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
7a30: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
7a40: 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 }.. /* Open
7a50: 6f 75 74 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 output file */.
7a60: 20 20 20 69 66 20 28 28 6f 75 74 20 3d 20 54 63 if ((out = Tc
7a70: 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e l_FSOpenFileChan
7a80: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6f 75 74 46 nel(interp, outF
7a90: 69 6c 65 4f 62 6a 2c 20 22 77 62 22 2c 20 30 36 ileObj, "wb", 06
7aa0: 34 34 29 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 44)) == (Tcl_Cha
7ab0: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 nnel) NULL) {..T
7ac0: 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c cl_Close(interp,
7ad0: 20 69 6e 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 in);..return TC
7ae0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
7af0: 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a /* Initializ
7b00: 65 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 e operation */.
7b10: 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 45 6e if ((res = En
7b20: 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 cryptInitialize(
7b30: 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 63 interp, type, &c
7b40: 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b tx, cipherObj, k
7b50: 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 eyObj, ivObj, pa
7b60: 64 64 69 6e 67 29 29 20 21 3d 20 54 43 4c 5f 4f dding)) != TCL_O
7b70: 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b K) {..goto done;
7b80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 . }.. /* R
7b90: 65 61 64 20 66 69 6c 65 20 64 61 74 61 20 66 72 ead file data fr
7ba0: 6f 6d 20 69 6e 46 69 6c 65 2c 20 65 6e 63 72 79 om inFile, encry
7bb0: 70 74 2f 64 65 63 72 79 70 74 20 69 74 2c 20 74 pt/decrypt it, t
7bc0: 68 65 6e 20 6f 75 74 70 75 74 20 74 6f 20 6f 75 hen output to ou
7bd0: 74 46 69 6c 65 20 2a 2f 0a 20 20 20 20 77 68 69 tFile */. whi
7be0: 6c 65 20 28 21 54 63 6c 5f 45 6f 66 28 69 6e 29 le (!Tcl_Eof(in)
7bf0: 29 20 7b 0a 09 54 63 6c 5f 53 69 7a 65 20 72 65 ) {..Tcl_Size re
7c00: 61 64 20 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 ad = Tcl_ReadRaw
7c10: 28 69 6e 2c 20 28 63 68 61 72 20 2a 29 20 69 6e (in, (char *) in
7c20: 5f 62 75 66 2c 20 42 55 46 46 45 52 5f 53 49 5a _buf, BUFFER_SIZ
7c30: 45 29 3b 0a 09 69 66 20 28 72 65 61 64 20 3e 20 E);..if (read >
7c40: 30 29 20 7b 0a 09 20 20 20 20 69 66 20 28 28 72 0) {.. if ((r
7c50: 65 73 20 3d 20 45 6e 63 72 79 70 74 55 70 64 61 es = EncryptUpda
7c60: 74 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c te(interp, type,
7c70: 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 ctx, out_buf, &
7c80: 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f 62 75 66 2c out_len, in_buf,
7c90: 20 72 65 61 64 29 29 20 3d 3d 20 54 43 4c 5f 4f read)) == TCL_O
7ca0: 4b 29 20 7b 0a 09 09 69 66 20 28 6f 75 74 5f 6c K) {...if (out_l
7cb0: 65 6e 20 3e 20 30 29 20 7b 0a 09 09 20 20 20 20 en > 0) {...
7cc0: 6c 65 6e 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f len = (int) Tcl_
7cd0: 57 72 69 74 65 52 61 77 28 6f 75 74 2c 20 28 63 WriteRaw(out, (c
7ce0: 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 6f 75 74 onst char *) out
7cf0: 5f 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 _buf, (Tcl_Size)
7d00: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 09 20 20 20 out_len);...
7d10: 20 69 66 20 28 6c 65 6e 20 3e 3d 20 30 29 20 7b if (len >= 0) {
7d20: 0a 09 09 09 74 6f 74 61 6c 20 2b 3d 20 6c 65 6e ....total += len
7d30: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;... } else {
7d40: 0a 09 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 ....Tcl_AppendRe
7d50: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 57 72 sult(interp, "Wr
7d60: 69 74 65 20 65 72 72 6f 72 3a 20 22 2c 20 54 63 ite error: ", Tc
7d70: 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 6c 5f 47 l_ErrnoMsg(Tcl_G
7d80: 65 74 45 72 72 6e 6f 28 29 29 2c 20 28 63 68 61 etErrno()), (cha
7d90: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 09 72 r *) NULL);....r
7da0: 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a es = TCL_ERROR;.
7db0: 09 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 09 ...goto done;...
7dc0: 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 7d }...}.. }
7dd0: 20 65 6c 73 65 20 7b 0a 09 09 67 6f 74 6f 20 64 else {...goto d
7de0: 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 one;.. }..} e
7df0: 6c 73 65 20 69 66 20 28 72 65 61 64 20 3c 20 30 lse if (read < 0
7e00: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 ) {.. Tcl_App
7e10: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
7e20: 2c 20 22 52 65 61 64 20 65 72 72 6f 72 3a 20 22 , "Read error: "
7e30: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 , Tcl_ErrnoMsg(T
7e40: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 cl_GetErrno()),
7e50: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
7e60: 09 20 20 20 20 72 65 73 20 3d 20 54 43 4c 5f 45 . res = TCL_E
7e70: 52 52 4f 52 3b 0a 09 20 20 20 20 67 6f 74 6f 20 RROR;.. goto
7e80: 64 6f 6e 65 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a done;..}. }..
7e90: 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 /* Finalize
7ea0: 64 61 74 61 20 61 6e 64 20 77 72 69 74 65 20 61 data and write a
7eb0: 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 64 61 74 ny remaining dat
7ec0: 61 20 69 6e 20 62 6c 6f 63 6b 20 2a 2f 0a 20 20 a in block */.
7ed0: 20 20 69 66 20 28 28 72 65 73 20 3d 20 45 6e 63 if ((res = Enc
7ee0: 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 ryptFinalize(int
7ef0: 65 72 70 2c 20 74 79 70 65 2c 20 63 74 78 2c 20 erp, type, ctx,
7f00: 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 out_buf, &out_le
7f10: 6e 29 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b n)) == TCL_OK) {
7f20: 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 ..if (out_len >
7f30: 30 29 20 7b 0a 09 20 20 20 20 6c 65 6e 20 3d 20 0) {.. len =
7f40: 28 69 6e 74 29 20 54 63 6c 5f 57 72 69 74 65 52 (int) Tcl_WriteR
7f50: 61 77 28 6f 75 74 2c 20 28 63 6f 6e 73 74 20 63 aw(out, (const c
7f60: 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 har *) out_buf,
7f70: 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c (Tcl_Size) out_l
7f80: 65 6e 29 3b 0a 09 20 20 20 20 69 66 20 28 6c 65 en);.. if (le
7f90: 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 74 6f 74 61 n >= 0) {...tota
7fa0: 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 20 20 20 20 7d l += len;.. }
7fb0: 20 65 6c 73 65 20 7b 0a 09 09 54 63 6c 5f 41 70 else {...Tcl_Ap
7fc0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
7fd0: 70 2c 20 22 57 72 69 74 65 20 65 72 72 6f 72 3a p, "Write error:
7fe0: 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 ", Tcl_ErrnoMsg
7ff0: 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 (Tcl_GetErrno())
8000: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
8010: 3b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 ;...res = TCL_ER
8020: 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 ROR;...goto done
8030: 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 54 63 6c ;.. }..}..Tcl
8040: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
8050: 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 terp, Tcl_NewInt
8060: 4f 62 6a 28 74 6f 74 61 6c 29 29 3b 0a 20 20 20 Obj(total));.
8070: 20 7d 20 65 6c 73 65 20 7b 0a 09 67 6f 74 6f 20 } else {..goto
8080: 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 64 6f 6e done;. }..don
8090: 65 3a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 20 e:. /* Clean
80a0: 75 70 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e up */. if (in
80b0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c != NULL) {..Tcl
80c0: 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 69 _Close(interp, i
80d0: 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 n);. }. if
80e0: 20 28 6f 75 74 20 21 3d 20 4e 55 4c 4c 29 20 7b (out != NULL) {
80f0: 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 ..Tcl_Close(inte
8100: 72 70 2c 20 6f 75 74 29 3b 0a 20 20 20 20 7d 0a rp, out);. }.
8110: 20 20 20 20 69 66 20 28 63 74 78 20 21 3d 20 4e if (ctx != N
8120: 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 50 48 ULL) {..EVP_CIPH
8130: 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 ER_CTX_free(ctx)
8140: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
8150: 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a rn res;.}../****
8160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8170: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8180: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8190: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
81a0: 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 ..static const c
81b0: 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 5f 6f 70 74 har *command_opt
81c0: 73 20 5b 5d 20 3d 20 7b 0a 20 20 20 20 22 2d 63 s [] = {. "-c
81d0: 68 61 6e 22 2c 20 22 2d 63 68 61 6e 6e 65 6c 22 han", "-channel"
81e0: 2c 20 22 2d 63 69 70 68 65 72 22 2c 20 22 2d 63 , "-cipher", "-c
81f0: 6f 6d 6d 61 6e 64 22 2c 20 22 2d 64 61 74 61 22 ommand", "-data"
8200: 2c 20 22 2d 64 69 67 65 73 74 22 2c 20 22 2d 69 , "-digest", "-i
8210: 6e 66 69 6c 65 22 2c 20 22 2d 66 69 6c 65 6e 61 nfile", "-filena
8220: 6d 65 22 2c 0a 20 20 20 20 22 2d 6f 75 74 66 69 me",. "-outfi
8230: 6c 65 22 2c 20 22 2d 68 61 73 68 22 2c 20 22 2d le", "-hash", "-
8240: 69 76 22 2c 20 22 2d 6b 65 79 22 2c 20 22 2d 6d iv", "-key", "-m
8250: 61 63 22 2c 20 22 2d 70 61 64 64 69 6e 67 22 2c ac", "-padding",
8260: 20 4e 55 4c 4c 7d 3b 0a 0a 65 6e 75 6d 20 5f 63 NULL};..enum _c
8270: 6f 6d 6d 61 6e 64 5f 6f 70 74 73 20 7b 0a 20 20 ommand_opts {.
8280: 20 20 5f 6f 70 74 5f 63 68 61 6e 2c 20 5f 6f 70 _opt_chan, _op
8290: 74 5f 63 68 61 6e 6e 65 6c 2c 20 5f 6f 70 74 5f t_channel, _opt_
82a0: 63 69 70 68 65 72 2c 20 5f 6f 70 74 5f 63 6f 6d cipher, _opt_com
82b0: 6d 61 6e 64 2c 20 5f 6f 70 74 5f 64 61 74 61 2c mand, _opt_data,
82c0: 20 5f 6f 70 74 5f 64 69 67 65 73 74 2c 20 5f 6f _opt_digest, _o
82d0: 70 74 5f 69 6e 66 69 6c 65 2c 0a 20 20 20 20 5f pt_infile,. _
82e0: 6f 70 74 5f 66 69 6c 65 6e 61 6d 65 2c 20 5f 6f opt_filename, _o
82f0: 70 74 5f 6f 75 74 66 69 6c 65 2c 20 5f 6f 70 74 pt_outfile, _opt
8300: 5f 68 61 73 68 2c 20 5f 6f 70 74 5f 69 76 2c 20 _hash, _opt_iv,
8310: 5f 6f 70 74 5f 6b 65 79 2c 20 5f 6f 70 74 5f 6d _opt_key, _opt_m
8320: 61 63 2c 20 5f 6f 70 74 5f 70 61 64 64 69 6e 67 ac, _opt_padding
8330: 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d .};../*. *------
8340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
8380: 0a 20 2a 20 45 6e 63 72 79 70 74 4d 61 69 6e 20 . * EncryptMain
8390: 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d --. *. *.Perform
83a0: 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 encryption func
83b0: 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e 20 tion and return
83c0: 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 52 65 result.. *. * Re
83d0: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
83e0: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
83f0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
8400: 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 :. *.Sets result
8410: 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 or error messag
8420: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
8430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
8470: 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 tatic int Encryp
8480: 74 4d 61 69 6e 28 69 6e 74 20 74 79 70 65 2c 20 tMain(int type,
8490: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
84a0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
84b0: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
84c0: 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c 5f 4f v[]) {. Tcl_O
84d0: 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 20 3d 20 bj *cipherObj =
84e0: 4e 55 4c 4c 2c 20 2a 63 6d 64 4f 62 6a 20 3d 20 NULL, *cmdObj =
84f0: 4e 55 4c 4c 2c 20 2a 64 61 74 61 4f 62 6a 20 3d NULL, *dataObj =
8500: 20 4e 55 4c 4c 2c 20 2a 64 69 67 65 73 74 4f 62 NULL, *digestOb
8510: 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 j = NULL;. Tc
8520: 6c 5f 4f 62 6a 20 2a 69 6e 46 69 6c 65 4f 62 6a l_Obj *inFileObj
8530: 20 3d 20 4e 55 4c 4c 2c 20 2a 6f 75 74 46 69 6c = NULL, *outFil
8540: 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6b 65 eObj = NULL, *ke
8550: 79 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 69 76 yObj = NULL, *iv
8560: 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6d 61 63 Obj = NULL, *mac
8570: 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 Obj = NULL;.
8580: 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 68 61 6e const char *chan
8590: 6e 65 6c 20 3d 20 4e 55 4c 4c 2c 20 2a 6f 70 74 nel = NULL, *opt
85a0: 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 2c 20 73 ;. int res, s
85b0: 74 61 72 74 20 3d 20 31 2c 20 70 61 64 64 69 6e tart = 1, paddin
85c0: 67 20 3d 20 31 3b 0a 20 20 20 20 54 63 6c 5f 53 g = 1;. Tcl_S
85d0: 69 7a 65 20 66 6e 3b 0a 0a 20 20 20 20 64 70 72 ize fn;.. dpr
85e0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
85f0: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e . /* Clear in
8600: 74 65 72 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 terp result */.
8610: 20 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 Tcl_ResetResu
8620: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 lt(interp);..
8630: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 /* Validate arg
8640: 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 count */. if
8650: 20 28 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 (objc < 3 || ob
8660: 6a 63 20 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f jc > 12) {..Tcl_
8670: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
8680: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f erp, 1, objv, "?
8690: 2d 63 69 70 68 65 72 3f 20 6e 61 6d 65 20 3f 2d -cipher? name ?-
86a0: 64 69 67 65 73 74 20 6e 61 6d 65 3f 20 2d 6b 65 digest name? -ke
86b0: 79 20 6b 65 79 20 3f 2d 69 76 20 73 74 72 69 6e y key ?-iv strin
86c0: 67 3f 20 3f 2d 6d 61 63 20 6e 61 6d 65 3f 20 3f g? ?-mac name? ?
86d0: 2d 70 61 64 64 69 6e 67 20 62 6f 6f 6c 65 61 6e -padding boolean
86e0: 3f 20 5b 2d 63 68 61 6e 6e 65 6c 20 63 68 61 6e ? [-channel chan
86f0: 20 7c 20 2d 63 6f 6d 6d 61 6e 64 20 63 6d 64 4e | -command cmdN
8700: 61 6d 65 20 7c 20 2d 69 6e 66 69 6c 65 20 66 69 ame | -infile fi
8710: 6c 65 6e 61 6d 65 20 2d 6f 75 74 66 69 6c 65 20 lename -outfile
8720: 66 69 6c 65 6e 61 6d 65 20 7c 20 3f 2d 64 61 74 filename | ?-dat
8730: 61 3f 20 64 61 74 61 5d 22 29 3b 0a 09 72 65 74 a? data]");..ret
8740: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
8750: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 70 65 }.. /* Spe
8760: 63 69 61 6c 20 63 61 73 65 20 6f 66 20 66 69 72 cial case of fir
8770: 73 74 20 61 72 67 20 69 73 20 63 69 70 68 65 72 st arg is cipher
8780: 20 2a 2f 0a 20 20 20 20 6f 70 74 20 3d 20 54 63 */. opt = Tc
8790: 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 l_GetString(objv
87a0: 5b 73 74 61 72 74 5d 29 3b 0a 20 20 20 20 69 66 [start]);. if
87b0: 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 (opt[0] != '-')
87c0: 20 7b 0a 09 73 77 69 74 63 68 28 74 79 70 65 29 {..switch(type)
87d0: 20 7b 0a 09 63 61 73 65 20 54 59 50 45 5f 45 4e {..case TYPE_EN
87e0: 43 52 59 50 54 3a 0a 09 63 61 73 65 20 54 59 50 CRYPT:..case TYP
87f0: 45 5f 44 45 43 52 59 50 54 3a 0a 09 20 20 20 20 E_DECRYPT:..
8800: 63 69 70 68 65 72 4f 62 6a 20 3d 20 6f 62 6a 76 cipherObj = objv
8810: 5b 73 74 61 72 74 2b 2b 5d 3b 0a 09 20 20 20 20 [start++];..
8820: 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 20 7d 0a break;..}. }.
8830: 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f 70 74 69 . /* Get opti
8840: 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 6f 72 20 28 ons */. for (
8850: 69 6e 74 20 69 64 78 20 3d 20 73 74 61 72 74 3b int idx = start;
8860: 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 69 64 78 idx < objc; idx
8870: 2b 2b 29 20 7b 0a 09 2f 2a 20 53 70 65 63 69 61 ++) {../* Specia
8880: 6c 20 63 61 73 65 20 66 6f 72 20 77 68 65 6e 20 l case for when
8890: 6c 61 73 74 20 61 72 67 20 69 73 20 64 61 74 61 last arg is data
88a0: 20 2a 2f 0a 09 69 66 20 28 69 64 78 20 3d 3d 20 */..if (idx ==
88b0: 6f 62 6a 63 20 2d 20 31 29 20 7b 0a 09 6f 70 74 objc - 1) {..opt
88c0: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
88d0: 28 6f 62 6a 76 5b 69 64 78 5d 29 3b 0a 09 20 20 (objv[idx]);..
88e0: 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 if (opt[0] !=
88f0: 27 2d 27 20 26 26 20 64 61 74 61 4f 62 6a 20 3d '-' && dataObj =
8900: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 64 61 74 61 = NULL) {...data
8910: 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b Obj = objv[idx];
8920: 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d ...break;.. }
8930: 0a 09 7d 0a 0a 09 2f 2a 20 47 65 74 20 6f 70 74 ..}.../* Get opt
8940: 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 54 63 6c 5f ion */..if (Tcl_
8950: 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 GetIndexFromObj(
8960: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 64 78 interp, objv[idx
8970: 5d 2c 20 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 2c ], command_opts,
8980: 20 22 6f 70 74 69 6f 6e 22 2c 20 30 2c 20 26 66 "option", 0, &f
8990: 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a n) != TCL_OK) {.
89a0: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
89b0: 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 56 ERROR;..}.../* V
89c0: 61 6c 69 64 61 74 65 20 61 72 67 20 68 61 73 20 alidate arg has
89d0: 61 20 76 61 6c 75 65 20 2a 2f 0a 09 69 66 20 28 a value */..if (
89e0: 2b 2b 69 64 78 20 3e 3d 20 6f 62 6a 63 29 20 7b ++idx >= objc) {
89f0: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
8a00: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
8a10: 4e 6f 20 76 61 6c 75 65 20 66 6f 72 20 6f 70 74 No value for opt
8a20: 69 6f 6e 20 5c 22 22 2c 20 63 6f 6d 6d 61 6e 64 ion \"", command
8a30: 5f 6f 70 74 73 5b 66 6e 5d 2c 20 22 5c 22 22 2c _opts[fn], "\"",
8a40: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
8a50: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
8a60: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 09 73 77 69 74 OR;. }...swit
8a70: 63 68 28 66 6e 29 20 7b 0a 09 63 61 73 65 20 5f ch(fn) {..case _
8a80: 6f 70 74 5f 63 68 61 6e 3a 0a 09 63 61 73 65 20 opt_chan:..case
8a90: 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c 3a 0a 20 20 _opt_channel:.
8aa0: 20 20 09 20 20 20 20 47 45 54 5f 4f 50 54 5f 53 . GET_OPT_S
8ab0: 54 52 49 4e 47 28 6f 62 6a 76 5b 69 64 78 5d 2c TRING(objv[idx],
8ac0: 20 63 68 61 6e 6e 65 6c 2c 20 4e 55 4c 4c 29 3b channel, NULL);
8ad0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
8ae0: 73 65 20 5f 6f 70 74 5f 63 69 70 68 65 72 3a 0a se _opt_cipher:.
8af0: 09 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d . cipherObj =
8b00: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8b10: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8b20: 70 74 5f 63 6f 6d 6d 61 6e 64 3a 0a 09 20 20 20 pt_command:..
8b30: 20 63 6d 64 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 cmdObj = objv[i
8b40: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
8b50: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 64 61 74 61 ..case _opt_data
8b60: 3a 0a 09 20 20 20 20 64 61 74 61 4f 62 6a 20 3d :.. dataObj =
8b70: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8b80: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8b90: 70 74 5f 64 69 67 65 73 74 3a 0a 09 63 61 73 65 pt_digest:..case
8ba0: 20 5f 6f 70 74 5f 68 61 73 68 3a 0a 09 20 20 20 _opt_hash:..
8bb0: 20 64 69 67 65 73 74 4f 62 6a 20 3d 20 6f 62 6a digestObj = obj
8bc0: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8bd0: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 ak;..case _opt_i
8be0: 6e 66 69 6c 65 3a 0a 09 63 61 73 65 20 5f 6f 70 nfile:..case _op
8bf0: 74 5f 66 69 6c 65 6e 61 6d 65 3a 0a 09 20 20 20 t_filename:..
8c00: 20 69 6e 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a inFileObj = obj
8c10: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8c20: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6f ak;..case _opt_o
8c30: 75 74 66 69 6c 65 3a 0a 09 20 20 20 20 6f 75 74 utfile:.. out
8c40: 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 FileObj = objv[i
8c50: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
8c60: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 76 3a 0a ..case _opt_iv:.
8c70: 09 20 20 20 20 69 76 4f 62 6a 20 3d 20 6f 62 6a . ivObj = obj
8c80: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8c90: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6b ak;..case _opt_k
8ca0: 65 79 3a 0a 09 20 20 20 20 6b 65 79 4f 62 6a 20 ey:.. keyObj
8cb0: 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 = objv[idx];..
8cc0: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f break;..case _
8cd0: 6f 70 74 5f 6d 61 63 3a 0a 09 20 20 20 20 6d 61 opt_mac:.. ma
8ce0: 63 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d cObj = objv[idx]
8cf0: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 ;.. break;..c
8d00: 61 73 65 20 5f 6f 70 74 5f 70 61 64 64 69 6e 67 ase _opt_padding
8d10: 3a 0a 20 20 20 20 09 20 20 20 20 47 45 54 5f 4f :. . GET_O
8d20: 50 54 5f 42 4f 4f 4c 28 6f 62 6a 76 5b 69 64 78 PT_BOOL(objv[idx
8d30: 5d 2c 20 26 70 61 64 64 69 6e 67 29 3b 0a 09 20 ], &padding);..
8d40: 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 break;..}.
8d50: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b }.. /* Check
8d60: 20 66 6f 72 20 72 65 71 75 69 72 65 64 20 6f 70 for required op
8d70: 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 tions */. if
8d80: 28 63 69 70 68 65 72 4f 62 6a 20 3d 3d 20 4e 55 (cipherObj == NU
8d90: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e LL) {..Tcl_Appen
8da0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
8db0: 22 4e 6f 20 63 69 70 68 65 72 22 2c 20 28 63 68 "No cipher", (ch
8dc0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 ar *) NULL);.
8dd0: 20 7d 20 65 6c 73 65 20 69 66 20 28 6b 65 79 4f } else if (keyO
8de0: 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 bj == NULL) {..T
8df0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
8e00: 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6b 65 79 22 interp, "No key"
8e10: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
8e20: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
8e30: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
8e40: 2f 2a 20 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 /* Perform encry
8e50: 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6f ption function o
8e60: 6e 20 66 69 6c 65 2c 20 73 74 61 63 6b 65 64 20 n file, stacked
8e70: 63 68 61 6e 6e 65 6c 2c 20 75 73 69 6e 67 20 69 channel, using i
8e80: 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e 64 2c nstance command,
8e90: 20 6f 72 20 64 61 74 61 20 62 6c 6f 62 20 2a 2f or data blob */
8ea0: 0a 20 20 20 20 69 66 20 28 69 6e 46 69 6c 65 4f . if (inFileO
8eb0: 62 6a 20 21 3d 20 4e 55 4c 4c 20 26 26 20 6f 75 bj != NULL && ou
8ec0: 74 46 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c tFileObj != NULL
8ed0: 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 ) {..res = Encry
8ee0: 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 69 6e ptFileHandler(in
8ef0: 74 65 72 70 2c 20 74 79 70 65 2c 20 69 6e 46 69 terp, type, inFi
8f00: 6c 65 4f 62 6a 2c 20 6f 75 74 46 69 6c 65 4f 62 leObj, outFileOb
8f10: 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 69 j, cipherObj, di
8f20: 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c gestObj, keyObj,
8f30: 20 69 76 4f 62 6a 2c 20 70 61 64 64 69 6e 67 29 ivObj, padding)
8f40: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
8f50: 28 63 68 61 6e 6e 65 6c 20 21 3d 20 4e 55 4c 4c (channel != NULL
8f60: 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 ) {..res = Encry
8f70: 70 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 ptChannelHandler
8f80: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 (interp, type, c
8f90: 68 61 6e 6e 65 6c 2c 20 63 69 70 68 65 72 4f 62 hannel, cipherOb
8fa0: 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 j, digestObj, ke
8fb0: 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 yObj, ivObj, pad
8fc0: 64 69 6e 67 29 3b 0a 20 20 20 20 7d 20 65 6c 73 ding);. } els
8fd0: 65 20 69 66 20 28 63 6d 64 4f 62 6a 20 21 3d 20 e if (cmdObj !=
8fe0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
8ff0: 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 6e ncryptCommandHan
9000: 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 dler(interp, typ
9010: 65 2c 20 63 6d 64 4f 62 6a 2c 20 63 69 70 68 65 e, cmdObj, ciphe
9020: 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c rObj, digestObj,
9030: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 keyObj, ivObj,
9040: 70 61 64 64 69 6e 67 29 3b 0a 20 20 20 20 7d 20 padding);. }
9050: 65 6c 73 65 20 69 66 20 28 64 61 74 61 4f 62 6a else if (dataObj
9060: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 != NULL) {..res
9070: 20 3d 20 45 6e 63 72 79 70 74 44 61 74 61 48 61 = EncryptDataHa
9080: 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 ndler(interp, ty
9090: 70 65 2c 20 64 61 74 61 4f 62 6a 2c 20 63 69 70 pe, dataObj, cip
90a0: 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 herObj, digestOb
90b0: 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a j, keyObj, ivObj
90c0: 2c 20 70 61 64 64 69 6e 67 29 3b 0a 20 20 20 20 , padding);.
90d0: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 } else {..Tcl_Ap
90e0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
90f0: 70 2c 20 22 4e 6f 20 6f 70 65 72 61 74 69 6f 6e p, "No operation
9100: 20 73 70 65 63 69 66 69 65 64 3a 20 55 73 65 20 specified: Use
9110: 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 6f 6d 6d 61 -channel, -comma
9120: 6e 64 2c 20 2d 64 61 74 61 2c 20 6f 72 20 2d 69 nd, -data, or -i
9130: 6e 66 69 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 28 nfile option", (
9140: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
9150: 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b res = TCL_ERROR;
9160: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
9170: 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d n res;.}../*. *-
9180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91c0: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
91d0: 69 6f 6e 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a ion Commands --.
91e0: 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e *. *.Perform en
91f0: 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f cryption functio
9200: 6e 20 61 6e 64 20 72 65 74 75 72 6e 20 72 65 73 n and return res
9210: 75 6c 74 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ults. *. * Retur
9220: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
9230: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
9240: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
9250: 2a 09 43 6f 6d 6d 61 6e 64 20 64 65 70 65 6e 64 *.Command depend
9260: 65 6e 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ent. *. *-------
9270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
92b0: 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 .static int Encr
92c0: 79 70 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 yptObjCmd(Client
92d0: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
92e0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
92f0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 erp, int objc, T
9300: 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 cl_Obj *const ob
9310: 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 jv[]) {. (voi
9320: 64 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 d) clientData;.
9330: 20 20 20 72 65 74 75 72 6e 20 45 6e 63 72 79 70 return Encryp
9340: 74 4d 61 69 6e 28 54 59 50 45 5f 45 4e 43 52 59 tMain(TYPE_ENCRY
9350: 50 54 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 PT, interp, objc
9360: 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 , objv);.}..stat
9370: 69 63 20 69 6e 74 20 44 65 63 72 79 70 74 4f 62 ic int DecryptOb
9380: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
9390: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
93a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
93b0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
93c0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
93d0: 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c {. (void) cl
93e0: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 72 65 ientData;. re
93f0: 74 75 72 6e 20 45 6e 63 72 79 70 74 4d 61 69 6e turn EncryptMain
9400: 28 54 59 50 45 5f 44 45 43 52 59 50 54 2c 20 69 (TYPE_DECRYPT, i
9410: 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a nterp, objc, obj
9420: 76 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d v);.}../*. *----
9430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
9470: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 5f 49 6e *. * Encrypt_In
9480: 69 74 69 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 itialize --. *.
9490: 2a 09 43 72 65 61 74 65 20 6e 61 6d 65 73 70 61 *.Create namespa
94a0: 63 65 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 61 6e ce, commands, an
94b0: 64 20 72 65 67 69 73 74 65 72 20 70 61 63 6b 61 d register packa
94c0: 67 65 20 76 65 72 73 69 6f 6e 0a 20 2a 0a 20 2a ge version. *. *
94d0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
94e0: 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 _OK or TCL_ERROR
94f0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
9500: 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 cts:. *.Creates
9510: 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d commands. *. *--
9520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9560: 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 45 6e -. */.int Tls_En
9570: 63 72 79 70 74 43 6f 6d 6d 61 6e 64 73 28 54 63 cryptCommands(Tc
9580: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
9590: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 ) {. Tcl_Crea
95a0: 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 teObjCommand(int
95b0: 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 65 6e 63 erp, "::tls::enc
95c0: 72 79 70 74 22 2c 20 45 6e 63 72 79 70 74 4f 62 rypt", EncryptOb
95d0: 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 jCmd, (ClientDat
95e0: 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d a) NULL, (Tcl_Cm
95f0: 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e dDeleteProc *) N
9600: 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 ULL);. Tcl_Cr
9610: 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 eateObjCommand(i
9620: 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a 64 nterp, "::tls::d
9630: 65 63 72 79 70 74 22 2c 20 44 65 63 72 79 70 74 ecrypt", Decrypt
9640: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
9650: 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f ata) NULL, (Tcl_
9660: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
9670: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 NULL);. retu
9680: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a rn TCL_OK;.}..