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 29 20 7b 0a 20 _Obj *ivObj) {.
0de0: 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 const EVP_CIP
0df0: 48 45 52 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 HER *cipher;.
0e00: 20 63 68 61 72 20 2a 6b 65 79 53 74 72 69 6e 67 char *keyString
0e10: 20 3d 20 4e 55 4c 4c 2c 20 2a 69 76 53 74 72 69 = NULL, *ivStri
0e20: 6e 67 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 ng = NULL;. T
0e30: 63 6c 5f 53 69 7a 65 20 6b 65 79 5f 6c 65 6e 20 cl_Size key_len
0e40: 3d 20 30 2c 20 69 76 5f 6c 65 6e 20 3d 20 30 3b = 0, iv_len = 0;
0e50: 0a 20 20 20 20 69 6e 74 20 72 65 73 2c 20 6d 61 . int res, ma
0e60: 78 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 x;. unsigned
0e70: 63 68 61 72 20 6b 65 79 5b 45 56 50 5f 4d 41 58 char key[EVP_MAX
0e80: 5f 4b 45 59 5f 4c 45 4e 47 54 48 5d 2c 20 69 76 _KEY_LENGTH], iv
0e90: 5b 45 56 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 [EVP_MAX_IV_LENG
0ea0: 54 48 5d 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 TH];.. dprint
0eb0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
0ec0: 20 20 2f 2a 20 49 6e 69 74 20 62 75 66 66 65 72 /* Init buffer
0ed0: 73 20 2a 2f 0a 20 20 20 20 6d 65 6d 73 65 74 28 s */. memset(
0ee0: 6b 65 79 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f key, 0, EVP_MAX_
0ef0: 4b 45 59 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 KEY_LENGTH);.
0f00: 20 6d 65 6d 73 65 74 28 69 76 2c 20 30 2c 20 45 memset(iv, 0, E
0f10: 56 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 VP_MAX_IV_LENGTH
0f20: 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 );.. /* Get c
0f30: 69 70 68 65 72 20 2a 2f 0a 20 20 20 20 63 69 70 ipher */. cip
0f40: 68 65 72 20 3d 20 55 74 69 6c 5f 47 65 74 43 69 her = Util_GetCi
0f50: 70 68 65 72 28 69 6e 74 65 72 70 2c 20 63 69 70 pher(interp, cip
0f60: 68 65 72 4f 62 6a 2c 20 31 29 3b 0a 20 20 20 20 herObj, 1);.
0f70: 69 66 20 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 if (cipher == NU
0f80: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
0f90: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
0fa0: 20 20 20 20 2f 2a 20 20 47 65 74 20 6b 65 79 20 /* Get key
0fb0: 2d 20 4f 6e 6c 79 20 73 75 70 70 6f 72 74 20 69 - Only support i
0fc0: 6e 74 65 72 6e 61 6c 6c 79 20 64 65 66 69 6e 65 nternally define
0fd0: 64 20 63 69 70 68 65 72 20 6c 65 6e 67 74 68 73 d cipher lengths
0fe0: 2e 0a 09 43 75 73 74 6f 6d 20 63 69 70 68 65 72 ...Custom cipher
0ff0: 73 20 63 61 6e 20 62 65 20 75 70 20 74 6f 20 73 s can be up to s
1000: 69 7a 65 5f 74 20 62 79 74 65 73 2e 20 2a 2f 0a ize_t bytes. */.
1010: 20 20 20 20 6d 61 78 20 3d 20 45 56 50 5f 43 49 max = EVP_CI
1020: 50 48 45 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 PHER_key_length(
1030: 63 69 70 68 65 72 29 3b 0a 20 20 20 20 6b 65 79 cipher);. key
1040: 53 74 72 69 6e 67 20 3d 20 28 63 6f 6e 73 74 20 String = (const
1050: 76 6f 69 64 20 2a 29 20 55 74 69 6c 5f 47 65 74 void *) Util_Get
1060: 4b 65 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4f Key(interp, keyO
1070: 62 6a 2c 20 26 6b 65 79 5f 6c 65 6e 2c 20 22 6b bj, &key_len, "k
1080: 65 79 22 2c 20 6d 61 78 2c 20 46 41 4c 53 45 29 ey", max, FALSE)
1090: 3b 0a 20 20 20 20 69 66 20 28 6b 65 79 53 74 72 ;. if (keyStr
10a0: 69 6e 67 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ing != NULL) {..
10b0: 6d 65 6d 63 70 79 28 28 76 6f 69 64 20 2a 29 20 memcpy((void *)
10c0: 6b 65 79 2c 20 28 63 6f 6e 73 74 20 76 6f 69 64 key, (const void
10d0: 20 2a 29 20 6b 65 79 53 74 72 69 6e 67 2c 20 28 *) keyString, (
10e0: 73 69 7a 65 5f 74 29 20 6b 65 79 5f 6c 65 6e 29 size_t) key_len)
10f0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
1100: 28 6b 65 79 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 (keyObj != NULL)
1110: 20 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f {..return TCL_
1120: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
1130: 20 20 2f 2a 20 20 47 65 74 20 49 56 20 2a 2f 0a /* Get IV */.
1140: 20 20 20 20 6d 61 78 20 3d 20 45 56 50 5f 43 49 max = EVP_CI
1150: 50 48 45 52 5f 69 76 5f 6c 65 6e 67 74 68 28 63 PHER_iv_length(c
1160: 69 70 68 65 72 29 3b 0a 20 20 20 20 69 76 53 74 ipher);. ivSt
1170: 72 69 6e 67 20 3d 20 28 63 6f 6e 73 74 20 76 6f ring = (const vo
1180: 69 64 20 2a 29 20 55 74 69 6c 5f 47 65 74 49 56 id *) Util_GetIV
1190: 28 69 6e 74 65 72 70 2c 20 69 76 4f 62 6a 2c 20 (interp, ivObj,
11a0: 26 69 76 5f 6c 65 6e 2c 20 6d 61 78 2c 20 46 41 &iv_len, max, FA
11b0: 4c 53 45 29 3b 0a 20 20 20 20 69 66 20 28 69 76 LSE);. if (iv
11c0: 53 74 72 69 6e 67 20 21 3d 20 4e 55 4c 4c 29 20 String != NULL)
11d0: 7b 0a 09 6d 65 6d 63 70 79 28 28 76 6f 69 64 20 {..memcpy((void
11e0: 2a 29 20 69 76 2c 20 28 63 6f 6e 73 74 20 76 6f *) iv, (const vo
11f0: 69 64 20 2a 29 20 69 76 53 74 72 69 6e 67 2c 20 id *) ivString,
1200: 28 73 69 7a 65 5f 74 29 20 69 76 5f 6c 65 6e 29 (size_t) iv_len)
1210: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
1220: 28 69 76 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 (ivObj != NULL)
1230: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
1240: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
1250: 2f 2a 20 43 72 65 61 74 65 20 63 6f 6e 74 65 78 /* Create contex
1260: 74 20 2a 2f 0a 20 20 20 20 69 66 28 28 2a 63 74 t */. if((*ct
1270: 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f 43 x = EVP_CIPHER_C
1280: 54 58 5f 6e 65 77 28 29 29 20 3d 3d 20 4e 55 4c TX_new()) == NUL
1290: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
12a0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
12b0: 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f Memory allocatio
12c0: 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 n error", (char
12d0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
12e0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
12f0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 }.. /* Initi
1300: 61 6c 69 7a 65 20 74 68 65 20 6f 70 65 72 61 74 alize the operat
1310: 69 6f 6e 2e 20 4e 65 65 64 20 61 70 70 72 6f 70 ion. Need approp
1320: 72 69 61 74 65 20 6b 65 79 20 61 6e 64 20 69 76 riate key and iv
1330: 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 20 69 66 size. */. if
1340: 20 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 (type == TYPE_E
1350: 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d NCRYPT) {..res =
1360: 20 45 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 EVP_EncryptInit
1370: 5f 65 78 28 2a 63 74 78 2c 20 63 69 70 68 65 72 _ex(*ctx, cipher
1380: 2c 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 , NULL, key, iv)
1390: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
13a0: 72 65 73 20 3d 20 45 56 50 5f 44 65 63 72 79 70 res = EVP_Decryp
13b0: 74 49 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 63 tInit_ex(*ctx, c
13c0: 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 6b 65 79 ipher, NULL, key
13d0: 2c 20 69 76 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 , iv);. }..
13e0: 20 20 69 66 28 21 72 65 73 29 20 7b 0a 09 54 63 if(!res) {..Tc
13f0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
1400: 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 61 6c 69 nterp, "Initiali
1410: 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 ze failed: ", GE
1420: 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 T_ERR_REASON(),
1430: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
1440: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
1450: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
1460: 20 45 72 61 73 65 20 62 75 66 66 65 72 73 20 2a Erase buffers *
1470: 2f 0a 20 20 20 20 6d 65 6d 73 65 74 28 6b 65 79 /. memset(key
1480: 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f 4b 45 59 , 0, EVP_MAX_KEY
1490: 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 6d 65 _LENGTH);. me
14a0: 6d 73 65 74 28 69 76 2c 20 30 2c 20 45 56 50 5f mset(iv, 0, EVP_
14b0: 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 29 3b 0a MAX_IV_LENGTH);.
14c0: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f return TCL_O
14d0: 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d K;.}../*. *-----
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1520: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 55 70 64 61 *. * EncryptUpda
1530: 74 65 20 2d 2d 0a 20 2a 0a 20 2a 09 55 70 64 61 te --. *. *.Upda
1540: 74 65 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e te an encryption
1550: 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 64 function with d
1560: 61 74 61 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ata. *. * Return
1570: 73 3a 0a 20 2a 09 31 20 69 66 20 73 75 63 63 65 s:. *.1 if succe
1580: 73 73 66 75 6c 20 6f 72 20 30 20 66 6f 72 20 66 ssful or 0 for f
1590: 61 69 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 69 64 ailure. *. * Sid
15a0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 e effects:. *.Ad
15b0: 64 73 20 65 6e 63 72 79 70 74 65 64 20 64 61 74 ds encrypted dat
15c0: 61 20 74 6f 20 62 75 66 66 65 72 20 6f 72 20 73 a to buffer or s
15d0: 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 ets result to er
15e0: 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 ror message. *.
15f0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
1600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1630: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
1640: 72 79 70 74 55 70 64 61 74 65 28 54 63 6c 5f 49 ryptUpdate(Tcl_I
1650: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
1660: 6e 74 20 74 79 70 65 2c 20 45 56 50 5f 43 49 50 nt type, EVP_CIP
1670: 48 45 52 5f 43 54 58 20 2a 63 74 78 2c 20 75 6e HER_CTX *ctx, un
1680: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6f 75 74 signed char *out
1690: 5f 62 75 66 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f _buf,..int *out_
16a0: 6c 65 6e 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 len, unsigned ch
16b0: 61 72 20 2a 64 61 74 61 2c 20 54 63 6c 5f 53 69 ar *data, Tcl_Si
16c0: 7a 65 20 64 61 74 61 5f 6c 65 6e 29 20 7b 0a 20 ze data_len) {.
16d0: 20 20 20 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 int res;..
16e0: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
16f0: 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 45 6e 63 72 ");.. /* Encr
1700: 79 70 74 2f 64 65 63 72 79 70 74 20 64 61 74 61 ypt/decrypt data
1710: 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 79 70 65 */. if (type
1720: 20 3d 3d 20 54 59 50 45 5f 45 4e 43 52 59 50 54 == TYPE_ENCRYPT
1730: 29 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 ) {..res = EVP_E
1740: 6e 63 72 79 70 74 55 70 64 61 74 65 28 63 74 78 ncryptUpdate(ctx
1750: 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c , out_buf, out_l
1760: 65 6e 2c 20 64 61 74 61 2c 20 28 69 6e 74 29 20 en, data, (int)
1770: 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d data_len);. }
1780: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
1790: 56 50 5f 44 65 63 72 79 70 74 55 70 64 61 74 65 VP_DecryptUpdate
17a0: 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f (ctx, out_buf, o
17b0: 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 28 69 ut_len, data, (i
17c0: 6e 74 29 20 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 nt) data_len);.
17d0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 }.. if (re
17e0: 73 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c s) {..return TCL
17f0: 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 _OK;. } else
1800: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
1810: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 55 70 64 ult(interp, "Upd
1820: 61 74 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 ate failed: ", G
1830: 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c ET_ERR_REASON(),
1840: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
1850: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
1860: 4f 52 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a OR;. }.}../*.
1870: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18b0: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
18c0: 79 70 74 46 69 6e 61 6c 69 7a 65 20 2d 2d 0a 20 yptFinalize --.
18d0: 2a 0a 20 2a 09 46 69 6e 61 6c 69 7a 65 20 61 6e *. *.Finalize an
18e0: 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 encryption func
18f0: 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 tion. *. * Retur
1900: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 ns:. *.TCL_OK if
1910: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 successful or T
1920: 43 4c 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 CL_ERROR for fai
1930: 6c 75 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 lure with result
1940: 20 73 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 set. *.to error
1950: 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 message.. *. *
1960: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
1970: 09 41 64 64 73 20 65 6e 63 72 79 70 74 65 64 20 .Adds encrypted
1980: 64 61 74 61 20 74 6f 20 62 75 66 66 65 72 20 6f data to buffer o
1990: 72 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f r sets result to
19a0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 error message.
19b0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
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 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
1a00: 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 EncryptFinalize(
1a10: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
1a20: 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 45 56 rp, int type, EV
1a30: 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 P_CIPHER_CTX *ct
1a40: 78 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 x, unsigned char
1a50: 20 2a 6f 75 74 5f 62 75 66 2c 0a 09 69 6e 74 20 *out_buf,..int
1a60: 2a 6f 75 74 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 *out_len) {.
1a70: 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 int res;.. dp
1a80: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
1a90: 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a .. /* Finaliz
1aa0: 65 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 e data */. if
1ab0: 20 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 (type == TYPE_E
1ac0: 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d NCRYPT) {..res =
1ad0: 20 45 56 50 5f 45 6e 63 72 79 70 74 46 69 6e 61 EVP_EncryptFina
1ae0: 6c 5f 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 l_ex(ctx, out_bu
1af0: 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 f, out_len);.
1b00: 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d } else {..res =
1b10: 20 45 56 50 5f 44 65 63 72 79 70 74 46 69 6e 61 EVP_DecryptFina
1b20: 6c 5f 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 l_ex(ctx, out_bu
1b30: 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 f, out_len);.
1b40: 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 }.. if (res)
1b50: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f {..return TCL_O
1b60: 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a K;. } else {.
1b70: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1b80: 74 28 69 6e 74 65 72 70 2c 20 22 46 69 6e 61 6c t(interp, "Final
1b90: 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 ize failed: ", G
1ba0: 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c ET_ERR_REASON(),
1bb0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
1bc0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
1bd0: 4f 52 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a OR;. }.}../**
1be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1bf0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1c00: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1c10: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1c20: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
1c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1c70: 20 2a 20 45 6e 63 72 79 70 74 42 6c 6f 63 6b 4d * EncryptBlockM
1c80: 6f 64 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a odeProc --. *. *
1c90: 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 .This function i
1ca0: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
1cb0: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
1cc0: 6c 0a 20 2a 09 74 6f 20 73 65 74 20 62 6c 6f 63 l. *.to set bloc
1cd0: 6b 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 king and nonbloc
1ce0: 6b 69 6e 67 20 6d 6f 64 65 73 2e 0a 20 2a 0a 20 king modes.. *.
1cf0: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 * Returns:. *.0
1d00: 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 if successful or
1d10: 20 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 POSIX error cod
1d20: 65 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a e if failed.. *.
1d30: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
1d40: 0a 20 2a 09 53 65 74 73 20 74 68 65 20 64 65 76 . *.Sets the dev
1d50: 69 63 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e ice into blockin
1d60: 67 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 g or nonblocking
1d70: 20 6d 6f 64 65 2e 0a 20 2a 09 43 61 6e 20 63 61 mode.. *.Can ca
1d80: 6c 6c 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 ll Tcl_SetChanne
1d90: 6c 45 72 72 6f 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d lError.. *. *---
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 2d 2d 2d 2d 2d 2d ----------------
1dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1de0: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
1df0: 45 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 EncryptBlockMode
1e00: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
1e10: 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 clientData, int
1e20: 6d 6f 64 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 mode) {. Encr
1e30: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
1e40: 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 tr = (EncryptSta
1e50: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
1e60: 3b 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 20 ;.. if (mode
1e70: 3d 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 == TCL_MODE_NONB
1e80: 4c 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 74 61 74 LOCKING) {..stat
1e90: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 ePtr->flags |= T
1ea0: 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a 20 20 LS_TCL_ASYNC;.
1eb0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 73 74 61 74 } else {..stat
1ec0: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e ePtr->flags &= ~
1ed0: 28 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 3b (TLS_TCL_ASYNC);
1ee0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
1ef0: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d n 0;.}../*. *---
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 2d 2d ----------------
1f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f40: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6c . *. * EncryptCl
1f50: 6f 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a oseProc --. *. *
1f60: 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 .This function i
1f70: 73 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 s invoked by the
1f80: 20 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 generic IO leve
1f90: 6c 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 l to perform. *.
1fa0: 63 68 61 6e 6e 65 6c 2d 74 79 70 65 20 73 70 65 channel-type spe
1fb0: 63 69 66 69 63 20 63 6c 65 61 6e 75 70 20 77 68 cific cleanup wh
1fc0: 65 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 69 en the channel i
1fd0: 73 20 63 6c 6f 73 65 64 2e 20 41 6c 6c 0a 20 2a s closed. All. *
1fe0: 09 71 75 65 75 65 64 20 6f 75 74 70 75 74 20 69 .queued output i
1ff0: 73 20 66 6c 75 73 68 65 64 20 70 72 69 6f 72 20 s flushed prior
2000: 74 6f 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 to calling this
2010: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
2020: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 Returns:. *.0 if
2030: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 successful or P
2040: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
2050: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
2060: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
2070: 2a 09 44 65 6c 65 74 65 73 20 73 74 6f 72 65 64 *.Deletes stored
2080: 20 73 74 61 74 65 20 64 61 74 61 2e 0a 20 2a 0a state data.. *.
2090: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
20a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
20d0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
20e0: 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 28 43 cryptCloseProc(C
20f0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
2100: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
2110: 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 *interp) {.
2120: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 EncryptState *st
2130: 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 atePtr = (Encryp
2140: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
2150: 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 Data;.. /* Ca
2160: 6e 63 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 ncel active time
2170: 72 2c 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 r, if any */.
2180: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 if (statePtr->t
2190: 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d imer != (Tcl_Tim
21a0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b erToken) NULL) {
21b0: 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 ..Tcl_DeleteTime
21c0: 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 rHandler(statePt
21d0: 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 r->timer);..stat
21e0: 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 ePtr->timer = (T
21f0: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
2200: 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ULL;. }..
2210: 2f 2a 20 4f 75 74 70 75 74 20 72 65 6d 61 69 6e /* Output remain
2220: 69 6e 67 20 64 61 74 61 2c 20 69 66 20 61 6e 79 ing data, if any
2230: 20 2a 2f 0a 20 20 20 20 69 66 20 28 21 28 73 74 */. if (!(st
2240: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 atePtr->flags &
2250: 43 48 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 54 63 CHAN_EOF)) {..Tc
2260: 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 l_Channel parent
2270: 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 = Tcl_GetStacke
2280: 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 dChannel(statePt
2290: 72 2d 3e 73 65 6c 66 29 3b 0a 09 69 6e 74 20 6f r->self);..int o
22a0: 75 74 5f 6c 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 ut_len;..unsigne
22b0: 64 20 63 68 61 72 20 6f 75 74 5f 62 75 66 5b 45 d char out_buf[E
22c0: 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e VP_MAX_BLOCK_LEN
22d0: 47 54 48 5d 3b 0a 0a 09 2f 2a 20 46 69 6e 61 6c GTH];.../* Final
22e0: 69 7a 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a ize function */.
22f0: 09 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 .if (EncryptFina
2300: 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 lize(interp, sta
2310: 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 tePtr->type, sta
2320: 74 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f tePtr->ctx, out_
2330: 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d buf, &out_len) =
2340: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 = TCL_OK) {..
2350: 20 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 if (out_len > 0
2360: 29 20 7b 0a 09 09 54 63 6c 5f 53 69 7a 65 20 6c ) {...Tcl_Size l
2370: 65 6e 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 en = Tcl_WriteRa
2380: 77 28 70 61 72 65 6e 74 2c 20 28 63 6f 6e 73 74 w(parent, (const
2390: 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 char *) out_buf
23a0: 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 , (Tcl_Size) out
23b0: 5f 6c 65 6e 29 3b 0a 09 09 69 66 20 28 6c 65 6e _len);...if (len
23c0: 20 3c 20 30 29 20 7b 0a 09 09 20 20 20 20 72 65 < 0) {... re
23d0: 74 75 72 6e 20 54 63 6c 5f 47 65 74 45 72 72 6e turn Tcl_GetErrn
23e0: 6f 28 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a o();...}.. }.
23f0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2f .} else {.. /
2400: 2a 20 45 72 72 6f 72 20 2a 2f 0a 09 7d 0a 0a 09 * Error */..}...
2410: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2420: 7c 3d 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 |= CHAN_EOF;.
2430: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e }.. /* Clean
2440: 2d 75 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 -up */. Encry
2450: 70 74 53 74 61 74 65 46 72 65 65 28 73 74 61 74 ptStateFree(stat
2460: 65 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 ePtr);. retur
2470: 6e 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 n 0;.}../*. * Sa
2480: 6d 65 20 61 73 20 45 6e 63 72 79 70 74 43 6c 6f me as EncryptClo
2490: 73 65 50 72 6f 63 20 62 75 74 20 77 69 74 68 20 seProc but with
24a0: 69 6e 64 69 76 69 64 75 61 6c 20 72 65 61 64 20 individual read
24b0: 61 6e 64 20 77 72 69 74 65 20 63 6c 6f 73 65 20 and write close
24c0: 63 6f 6e 74 72 6f 6c 0a 20 2a 2f 0a 73 74 61 74 control. */.stat
24d0: 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 43 6c ic int EncryptCl
24e0: 6f 73 65 32 50 72 6f 63 28 43 6c 69 65 6e 74 44 ose2Proc(ClientD
24f0: 61 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 ata instanceData
2500: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
2510: 74 65 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 terp, int flags)
2520: 20 7b 0a 20 20 20 20 69 66 20 28 28 66 6c 61 67 {. if ((flag
2530: 73 20 26 20 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 s & (TCL_CLOSE_R
2540: 45 41 44 20 7c 20 54 43 4c 5f 43 4c 4f 53 45 5f EAD | TCL_CLOSE_
2550: 57 52 49 54 45 29 29 20 3d 3d 20 30 29 20 7b 0a WRITE)) == 0) {.
2560: 09 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 43 .return EncryptC
2570: 6c 6f 73 65 50 72 6f 63 28 69 6e 73 74 61 6e 63 loseProc(instanc
2580: 65 44 61 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a eData, interp);.
2590: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
25a0: 20 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 EINVAL;.}../*.
25b0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
25c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25f0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
2600: 63 72 79 70 74 49 6e 70 75 74 50 72 6f 63 20 2d cryptInputProc -
2610: 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 -. *. *.Called b
2620: 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f y the generic IO
2630: 20 73 79 73 74 65 6d 20 74 6f 20 72 65 61 64 20 system to read
2640: 64 61 74 61 20 66 72 6f 6d 20 74 72 61 6e 73 66 data from transf
2650: 6f 72 6d 20 61 6e 64 0a 20 2a 09 70 6c 61 63 65 orm and. *.place
2660: 20 69 6e 20 62 75 66 2e 20 54 72 61 6e 73 66 6f in buf. Transfo
2670: 72 6d 20 67 65 74 73 20 64 61 74 61 20 66 72 6f rm gets data fro
2680: 6d 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 m the underlying
2690: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
26a0: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 Returns:. *.Tota
26b0: 6c 20 62 79 74 65 73 20 72 65 61 64 20 6f 72 20 l bytes read or
26c0: 2d 31 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 20 -1 for an error
26d0: 61 6c 6f 6e 67 20 77 69 74 68 20 61 20 50 4f 53 along with a POS
26e0: 49 58 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 65 IX error. *.code
26f0: 20 69 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 72 in errorCodePtr
2700: 2e 20 55 73 65 20 45 41 47 41 49 4e 20 66 6f 72 . Use EAGAIN for
2710: 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 nonblocking and
2720: 20 6e 6f 20 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 no data.. *. *
2730: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
2740: 09 52 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 .Read data from
2750: 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 20 77 72 transform and wr
2760: 69 74 65 20 74 6f 20 62 75 66 0a 20 2a 0a 20 2a ite to buf. *. *
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 2d 2d 2d ----------------
2790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
27b0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 ------. */.int E
27c0: 6e 63 72 79 70 74 49 6e 70 75 74 50 72 6f 63 28 ncryptInputProc(
27d0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
27e0: 74 44 61 74 61 2c 20 63 68 61 72 20 2a 62 75 66 tData, char *buf
27f0: 2c 20 69 6e 74 20 74 6f 52 65 61 64 2c 20 69 6e , int toRead, in
2800: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 t *errorCodePtr)
2810: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
2820: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
2830: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
2840: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
2850: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
2860: 65 6e 74 3b 0a 20 20 20 20 69 6e 74 20 6f 75 74 ent;. int out
2870: 5f 6c 65 6e 3b 0a 20 20 20 20 54 63 6c 5f 53 69 _len;. Tcl_Si
2880: 7a 65 20 72 65 61 64 3b 0a 20 20 20 20 2a 65 72 ze read;. *er
2890: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
28a0: 20 20 20 20 63 68 61 72 20 2a 69 6e 5f 62 75 66 char *in_buf
28b0: 3b 0a 20 20 20 20 0a 20 20 20 20 2f 2a 20 41 62 ;. . /* Ab
28c0: 6f 72 74 20 69 66 20 6e 6f 74 68 69 6e 67 20 74 ort if nothing t
28d0: 6f 20 70 72 6f 63 65 73 73 20 2a 2f 0a 20 20 20 o process */.
28e0: 20 69 66 20 28 74 6f 52 65 61 64 20 3c 3d 20 30 if (toRead <= 0
28f0: 20 7c 7c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 || statePtr->se
2900: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
2910: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
2920: 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 urn 0;. }..
2930: 20 20 2f 2a 20 47 65 74 20 62 79 74 65 73 20 66 /* Get bytes f
2940: 72 6f 6d 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 rom underlying c
2950: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 6e hannel */. in
2960: 5f 62 75 66 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 _buf = Tcl_Alloc
2970: 28 28 54 63 6c 5f 53 69 7a 65 29 20 74 6f 52 65 ((Tcl_Size) toRe
2980: 61 64 29 3b 0a 20 20 20 20 70 61 72 65 6e 74 20 ad);. parent
2990: 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 = Tcl_GetStacked
29a0: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
29b0: 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 61 ->self);. rea
29c0: 64 20 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 d = Tcl_ReadRaw(
29d0: 70 61 72 65 6e 74 2c 20 69 6e 5f 62 75 66 2c 20 parent, in_buf,
29e0: 28 54 63 6c 5f 53 69 7a 65 29 20 74 6f 52 65 61 (Tcl_Size) toRea
29f0: 64 29 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 d);.. /* Upda
2a00: 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 te function */.
2a10: 20 20 20 69 66 20 28 72 65 61 64 20 3e 20 30 29 if (read > 0)
2a20: 20 7b 0a 09 2f 2a 20 48 61 76 65 20 64 61 74 61 {../* Have data
2a30: 20 2d 20 55 70 64 61 74 65 20 66 75 6e 63 74 69 - Update functi
2a40: 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 on */..if (Encry
2a50: 70 74 55 70 64 61 74 65 28 73 74 61 74 65 50 74 ptUpdate(statePt
2a60: 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 65 r->interp, state
2a70: 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 Ptr->type, state
2a80: 50 74 72 2d 3e 63 74 78 2c 20 62 75 66 2c 20 26 Ptr->ctx, buf, &
2a90: 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f 62 75 66 2c out_len, in_buf,
2aa0: 20 72 65 61 64 29 20 3d 3d 20 54 43 4c 5f 4f 4b read) == TCL_OK
2ab0: 29 20 7b 0a 09 20 20 20 20 2f 2a 20 49 66 20 68 ) {.. /* If h
2ac0: 61 76 65 20 64 61 74 61 2c 20 70 75 74 20 69 6e ave data, put in
2ad0: 20 62 75 66 2c 20 6f 74 68 65 72 77 69 73 65 20 buf, otherwise
2ae0: 74 65 6c 6c 20 54 43 4c 20 74 6f 20 74 72 79 20 tell TCL to try
2af0: 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 20 69 66 again */.. if
2b00: 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b (out_len > 0) {
2b10: 0a 09 09 72 65 61 64 20 3d 20 28 54 63 6c 5f 53 ...read = (Tcl_S
2b20: 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 3b 0a 09 20 ize) out_len;..
2b30: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 2a 65 } else {...*e
2b40: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 41 rrorCodePtr = EA
2b50: 47 41 49 4e 3b 0a 09 09 72 65 61 64 20 3d 20 2d GAIN;...read = -
2b60: 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 1;.. }..} els
2b70: 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 e {.. Tcl_Set
2b80: 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 ChannelError(sta
2b90: 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c tePtr->self, Tcl
2ba0: 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 64 61 _ObjPrintf("Upda
2bb0: 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 te failed: %s",
2bc0: 47 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 GET_ERR_REASON()
2bd0: 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ));.. *errorC
2be0: 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b odePtr = EINVAL;
2bf0: 0a 09 20 20 20 20 72 65 61 64 20 3d 20 30 3b 0a .. read = 0;.
2c00: 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 .}.. } else i
2c10: 66 20 28 72 65 61 64 20 3c 20 30 29 20 7b 0a 09 f (read < 0) {..
2c20: 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a 09 2a 65 72 /* Error */..*er
2c30: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
2c40: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 0a 20 20 _GetErrno();..
2c50: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 21 28 73 } else if (!(s
2c60: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
2c70: 20 43 48 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 2f CHAN_EOF)) {../
2c80: 2a 20 45 4f 46 20 2d 20 46 69 6e 61 6c 69 7a 65 * EOF - Finalize
2c90: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 70 75 function and pu
2ca0: 74 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 t any remaining
2cb0: 64 61 74 61 20 69 6e 20 62 75 66 20 2a 2f 0a 09 data in buf */..
2cc0: 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c if (EncryptFinal
2cd0: 69 7a 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ize(statePtr->in
2ce0: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
2cf0: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
2d00: 63 74 78 2c 20 62 75 66 2c 20 26 6f 75 74 5f 6c ctx, buf, &out_l
2d10: 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b en) == TCL_OK) {
2d20: 0a 09 20 20 20 20 72 65 61 64 20 3d 20 28 54 63 .. read = (Tc
2d30: 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 3b l_Size) out_len;
2d40: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
2d50: 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 Tcl_SetChannelEr
2d60: 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 65 ror(statePtr->se
2d70: 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 lf, Tcl_ObjPrint
2d80: 66 28 22 46 69 6e 61 6c 69 7a 65 20 66 61 69 6c f("Finalize fail
2d90: 65 64 3a 20 25 73 22 2c 20 47 45 54 5f 45 52 52 ed: %s", GET_ERR
2da0: 5f 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 _REASON()));..
2db0: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
2dc0: 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 = EINVAL;.. r
2dd0: 65 61 64 20 3d 20 30 3b 0a 09 7d 0a 0a 09 73 74 ead = 0;..}...st
2de0: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
2df0: 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d CHAN_EOF;. }
2e00: 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 69 6e . Tcl_Free(in
2e10: 5f 62 75 66 29 3b 0a 20 20 20 20 72 65 74 75 72 _buf);. retur
2e20: 6e 20 28 69 6e 74 29 20 72 65 61 64 3b 0a 7d 0a n (int) read;.}.
2e30: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
2e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
2e80: 20 2a 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 * EncryptOutput
2e90: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
2ea0: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
2eb0: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
2ec0: 20 77 72 69 74 65 20 64 61 74 61 20 69 6e 20 62 write data in b
2ed0: 75 66 20 74 6f 20 74 72 61 6e 73 66 6f 72 6d 2e uf to transform.
2ee0: 0a 20 2a 09 54 68 65 20 74 72 61 6e 73 66 6f 72 . *.The transfor
2ef0: 6d 20 77 72 69 74 65 73 20 74 68 65 20 72 65 73 m writes the res
2f00: 75 6c 74 20 74 6f 20 74 68 65 20 75 6e 64 65 72 ult to the under
2f10: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 lying channel..
2f20: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
2f30: 09 54 6f 74 61 6c 20 62 79 74 65 73 20 77 72 69 .Total bytes wri
2f40: 74 74 65 6e 20 6f 72 20 2d 31 20 66 6f 72 20 61 tten or -1 for a
2f50: 6e 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 n error along wi
2f60: 74 68 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 th a POSIX error
2f70: 0a 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f . *.code in erro
2f80: 72 43 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 rCodePtr. Use EA
2f90: 47 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 GAIN for nonbloc
2fa0: 6b 69 6e 67 20 61 6e 64 20 63 61 6e 27 74 20 77 king and can't w
2fb0: 72 69 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 2a rite data.. *. *
2fc0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
2fd0: 2a 09 47 65 74 20 64 61 74 61 20 66 72 6f 6d 20 *.Get data from
2fe0: 62 75 66 20 61 6e 64 20 75 70 64 61 74 65 20 65 buf and update e
2ff0: 6e 63 72 79 70 74 69 6f 6e 0a 20 2a 0a 20 2a 2d ncryption. *. *-
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 20 69 6e 74 20 45 -----. */. int E
3050: 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 6f 63 ncryptOutputProc
3060: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
3070: 6e 74 44 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 ntData, const ch
3080: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 ar *buf, int toW
3090: 72 69 74 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 rite, int *error
30a0: 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 20 45 CodePtr) {. E
30b0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 ncryptState *sta
30c0: 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 tePtr = (Encrypt
30d0: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
30e0: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 72 69 ata;. int wri
30f0: 74 65 20 3d 20 30 2c 20 6f 75 74 5f 6c 65 6e 3b te = 0, out_len;
3100: 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3110: 74 72 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 72 tr = 0;. char
3120: 20 2a 6f 75 74 5f 62 75 66 3b 0a 0a 20 20 20 20 *out_buf;..
3130: 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 74 68 /* Abort if noth
3140: 69 6e 67 20 74 6f 20 70 72 6f 63 65 73 73 20 2a ing to process *
3150: 2f 0a 20 20 20 20 69 66 20 28 74 6f 57 72 69 74 /. if (toWrit
3160: 65 20 3c 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 e <= 0 || stateP
3170: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
3180: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
3190: 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 {..return 0;.
31a0: 20 7d 0a 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 }.. out_buf
31b0: 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 28 54 63 6c = Tcl_Alloc((Tcl
31c0: 5f 53 69 7a 65 29 20 74 6f 57 72 69 74 65 2b 45 _Size) toWrite+E
31d0: 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e VP_MAX_BLOCK_LEN
31e0: 47 54 48 29 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 GTH);.. /* Up
31f0: 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f date function */
3200: 0a 20 20 20 20 69 66 20 28 45 6e 63 72 79 70 74 . if (Encrypt
3210: 55 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2d Update(statePtr-
3220: 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 >interp, statePt
3230: 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 r->type, statePt
3240: 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c r->ctx, out_buf,
3250: 20 26 6f 75 74 5f 6c 65 6e 2c 20 62 75 66 2c 20 &out_len, buf,
3260: 28 54 63 6c 5f 53 69 7a 65 29 20 74 6f 57 72 69 (Tcl_Size) toWri
3270: 74 65 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b te) == TCL_OK) {
3280: 0a 09 2f 2a 20 49 66 20 68 61 76 65 20 64 61 74 ../* If have dat
3290: 61 2c 20 6f 75 74 70 75 74 20 69 74 2c 20 6f 74 a, output it, ot
32a0: 68 65 72 77 69 73 65 20 74 65 6c 6c 20 54 43 4c herwise tell TCL
32b0: 20 74 6f 20 74 72 79 20 61 67 61 69 6e 20 2a 2f to try again */
32c0: 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 ..if (out_len >
32d0: 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 43 68 0) {.. Tcl_Ch
32e0: 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d 20 54 annel parent = T
32f0: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
3300: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
3310: 65 6c 66 29 3b 0a 09 20 20 20 20 77 72 69 74 65 elf);.. write
3320: 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f 57 72 69 = (int) Tcl_Wri
3330: 74 65 52 61 77 28 70 61 72 65 6e 74 2c 20 28 63 teRaw(parent, (c
3340: 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 6f 75 74 onst char *) out
3350: 5f 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 _buf, (Tcl_Size)
3360: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 out_len);..
3370: 77 72 69 74 65 20 3d 20 74 6f 57 72 69 74 65 3b write = toWrite;
3380: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
3390: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
33a0: 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 EAGAIN;.. wri
33b0: 74 65 20 3d 20 2d 31 3b 0a 09 7d 0a 0a 20 20 20 te = -1;..}..
33c0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 } else {..Tcl_S
33d0: 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 etChannelError(s
33e0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 tatePtr->self, T
33f0: 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 cl_ObjPrintf("Up
3400: 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 date failed: %s"
3410: 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e , GET_ERR_REASON
3420: 28 29 29 29 3b 0a 09 2a 65 72 72 6f 72 43 6f 64 ()));..*errorCod
3430: 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 ePtr = EINVAL;..
3440: 77 72 69 74 65 20 3d 20 30 3b 0a 20 20 20 20 7d write = 0;. }
3450: 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 6f 75 . Tcl_Free(ou
3460: 74 5f 62 75 66 29 3b 0a 20 20 20 20 72 65 74 75 t_buf);. retu
3470: 72 6e 20 77 72 69 74 65 3b 0a 7d 0a 0a 2f 2a 0a rn write;.}../*.
3480: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
3490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
34c0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
34d0: 6e 63 72 79 70 74 53 65 74 4f 70 74 69 6f 6e 50 ncryptSetOptionP
34e0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c roc --. *. *.Cal
34f0: 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 72 led by the gener
3500: 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f 20 ic IO system to
3510: 73 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 set channel opti
3520: 6f 6e 20 6e 61 6d 65 20 74 6f 20 76 61 6c 75 65 on name to value
3530: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
3540: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 . *.TCL_OK if su
3550: 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f ccessful or TCL_
3560: 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 20 ERROR if failed
3570: 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e 20 65 72 along with an er
3580: 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 65 20 69 ror. *.message i
3590: 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 54 63 6c n interp and Tcl
35a0: 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a 0a 20 2a _SetErrno.. *. *
35b0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
35c0: 2a 09 55 70 64 61 74 65 73 20 63 68 61 6e 6e 65 *.Updates channe
35d0: 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 77 20 l option to new
35e0: 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d value.. *. *----
35f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3630: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e --. */.static in
3640: 74 20 45 6e 63 72 79 70 74 53 65 74 4f 70 74 69 t EncryptSetOpti
3650: 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 onProc(ClientDat
3660: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 a clientData, Tc
3670: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
3680: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f 70 , const char *op
3690: 74 69 6f 6e 4e 61 6d 65 2c 0a 09 63 6f 6e 73 74 tionName,..const
36a0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 61 6c char *optionVal
36b0: 75 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 ue) {. Encryp
36c0: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
36d0: 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 = (EncryptState
36e0: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
36f0: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
3700: 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f parent;. Tcl_
3710: 44 72 69 76 65 72 53 65 74 4f 70 74 69 6f 6e 50 DriverSetOptionP
3720: 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50 72 roc *setOptionPr
3730: 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 oc;.. /* Abor
3740: 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 t if no channel
3750: 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 */. if (state
3760: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
3770: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
3780: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
3790: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
37a0: 20 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 74 /* Delegate opt
37b0: 69 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d 20 ions downstream
37c0: 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 */. parent =
37d0: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
37e0: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
37f0: 73 65 6c 66 29 3b 0a 20 20 20 20 73 65 74 4f 70 self);. setOp
3800: 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f 43 tionProc = Tcl_C
3810: 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e 50 hannelSetOptionP
3820: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
3830: 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b elType(parent));
3840: 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 69 . if (setOpti
3850: 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 20 onProc != NULL)
3860: 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 4f {..return (*setO
3870: 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f 47 ptionProc)(Tcl_G
3880: 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 etChannelInstanc
3890: 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 69 eData(parent), i
38a0: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
38b0: 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 3b e, optionValue);
38c0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
38d0: 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e 56 cl_SetErrno(EINV
38e0: 41 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 6c AL);..return Tcl
38f0: 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f _BadChannelOptio
3900: 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e n(interp, option
3910: 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 Name, NULL);.
3920: 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d }.}../*. *-----
3930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3970: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 47 -. *. * EncryptG
3980: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a etOptionProc --.
3990: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
39a0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 the generic IO s
39b0: 79 73 74 65 6d 20 74 6f 20 67 65 74 20 63 68 61 ystem to get cha
39c0: 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 nnel option name
39d0: 27 73 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 's value.. *. *
39e0: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
39f0: 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c OK if successful
3a00: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 or TCL_ERROR if
3a10: 20 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 failed along wi
3a20: 74 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d th an error. *.m
3a30: 65 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 essage in interp
3a40: 20 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e and Tcl_SetErrn
3a50: 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 o.. *. * Side ef
3a60: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 fects:. *.Sets r
3a70: 65 73 75 6c 74 20 74 6f 20 6f 70 74 69 6f 6e 27 esult to option'
3a80: 73 20 76 61 6c 75 65 0a 20 2a 0a 20 2a 2d 2d 2d s value. *. *---
3a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3ad0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
3ae0: 6e 74 20 45 6e 63 72 79 70 74 47 65 74 4f 70 74 nt EncryptGetOpt
3af0: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
3b00: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
3b10: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
3b20: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f p, const char *o
3b30: 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 54 63 6c 5f ptionName,..Tcl_
3b40: 44 53 74 72 69 6e 67 20 2a 6f 70 74 69 6f 6e 56 DString *optionV
3b50: 61 6c 75 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 alue) {. Encr
3b60: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
3b70: 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 tr = (EncryptSta
3b80: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
3b90: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
3ba0: 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 l parent;. Tc
3bb0: 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 69 6f l_DriverGetOptio
3bc0: 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 6f 6e nProc *getOption
3bd0: 50 72 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 Proc;.. /* Ab
3be0: 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 ort if no channe
3bf0: 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 l */. if (sta
3c00: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 tePtr->self == (
3c10: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
3c20: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
3c30: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
3c40: 20 20 20 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f /* Delegate o
3c50: 70 74 69 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 ptions downstrea
3c60: 6d 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 m */. parent
3c70: 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 = Tcl_GetStacked
3c80: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
3c90: 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 67 65 74 ->self);. get
3ca0: 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c OptionProc = Tcl
3cb0: 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 6f _ChannelGetOptio
3cc0: 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 nProc(Tcl_GetCha
3cd0: 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 nnelType(parent)
3ce0: 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 4f 70 );. if (getOp
3cf0: 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c tionProc != NULL
3d00: 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 67 65 ) {..return (*ge
3d10: 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c tOptionProc)(Tcl
3d20: 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 _GetChannelInsta
3d30: 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c nceData(parent),
3d40: 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e interp, optionN
3d50: 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 ame, optionValue
3d60: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 );. } else if
3d70: 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d 20 (optionName ==
3d80: 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 20 7b 0a (char*) NULL) {.
3d90: 09 2f 2a 20 52 65 71 75 65 73 74 20 69 73 20 71 ./* Request is q
3da0: 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 74 uery for all opt
3db0: 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f 6b ions, this is ok
3dc0: 2e 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 4c . */..return TCL
3dd0: 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 _OK;. } else
3de0: 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 {..Tcl_SetErrno(
3df0: 45 49 4e 56 41 4c 29 3b 0a 09 72 65 74 75 72 6e EINVAL);..return
3e00: 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f Tcl_BadChannelO
3e10: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 ption(interp, op
3e20: 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b tionName, NULL);
3e30: 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d . }.}../*. *-
3e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e80: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
3e90: 79 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 20 yptTimerHandler
3ea0: 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 --. *. *.Called
3eb0: 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 20 by the notifier
3ec0: 76 69 61 20 74 69 6d 65 72 20 74 6f 20 66 6c 75 via timer to flu
3ed0: 73 68 20 6f 75 74 20 70 65 6e 64 69 6e 67 20 69 sh out pending i
3ee0: 6e 70 75 74 20 64 61 74 61 2e 0a 20 2a 0a 20 2a nput data.. *. *
3ef0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
3f00: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
3f10: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 20 effects:. *.May
3f20: 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 43 call Tcl_NotifyC
3f30: 68 61 6e 6e 65 6c 0a 20 2a 0a 20 2a 2d 2d 2d 2d hannel. *. *----
3f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3f80: 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 6f --. */.static vo
3f90: 69 64 20 45 6e 63 72 79 70 74 54 69 6d 65 72 48 id EncryptTimerH
3fa0: 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 andler(ClientDat
3fb0: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a a clientData) {.
3fc0: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
3fd0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e *statePtr = (En
3fe0: 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c cryptState *) cl
3ff0: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 2f ientData;.. /
4000: 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 * Abort if no ch
4010: 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 annel */. if
4020: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 (statePtr->self
4030: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
4040: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
4050: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
4060: 43 6c 65 61 72 20 74 69 6d 65 72 20 74 6f 6b 65 Clear timer toke
4070: 6e 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 n */. statePt
4080: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f r->timer = (Tcl_
4090: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
40a0: 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 72 65 20 65 ;.. /* Fire e
40b0: 76 65 6e 74 20 69 66 20 74 68 65 72 65 20 69 73 vent if there is
40c0: 20 70 65 6e 64 69 6e 67 20 64 61 74 61 2c 20 73 pending data, s
40d0: 6b 69 70 20 6f 74 68 65 72 77 69 73 65 20 2a 2f kip otherwise */
40e0: 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 65 50 . if ((stateP
40f0: 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 26 20 tr->watchMask &
4100: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 26 TCL_READABLE) &&
4110: 20 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 (Tcl_InputBuffe
4120: 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 65 red(statePtr->se
4130: 6c 66 29 20 3e 20 30 29 29 20 7b 0a 09 54 63 6c lf) > 0)) {..Tcl
4140: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 73 _NotifyChannel(s
4150: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 tatePtr->self, T
4160: 43 4c 5f 52 45 41 44 41 42 4c 45 29 3b 0a 20 20 CL_READABLE);.
4170: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d }.}../*. *----
4180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
41d0: 57 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a 0a WatchProc --. *.
41e0: 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 20 74 68 *.Initialize th
41f0: 65 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 61 e notifier to wa
4200: 74 63 68 20 66 6f 72 20 65 76 65 6e 74 73 20 66 tch for events f
4210: 72 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e 65 6c rom this channel
4220: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
4230: 0a 20 2a 09 4e 6f 74 68 69 6e 67 20 28 63 61 6e . *.Nothing (can
4240: 27 74 20 72 65 74 75 72 6e 20 65 72 72 6f 72 20 't return error
4250: 6d 65 73 73 61 67 65 73 29 0a 20 2a 0a 20 2a 20 messages). *. *
4260: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
4270: 09 43 6f 6e 66 69 67 75 72 65 20 6e 6f 74 69 66 .Configure notif
4280: 69 65 72 20 73 6f 20 66 75 74 75 72 65 20 65 76 ier so future ev
4290: 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 61 6e ents on the chan
42a0: 6e 65 6c 20 77 69 6c 6c 20 62 65 20 73 65 65 6e nel will be seen
42b0: 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d 2d by Tcl.. *. *--
42c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
42f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4300: 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 45 6e ----. */.void En
4310: 63 72 79 70 74 57 61 74 63 68 50 72 6f 63 28 43 cryptWatchProc(C
4320: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
4330: 44 61 74 61 2c 20 69 6e 74 20 6d 61 73 6b 29 20 Data, int mask)
4340: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
4350: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
4360: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
4370: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
4380: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 Tcl_Channel pare
4390: 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 nt;. Tcl_Driv
43a0: 65 72 57 61 74 63 68 50 72 6f 63 20 2a 77 61 74 erWatchProc *wat
43b0: 63 68 50 72 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 chProc;.. /*
43c0: 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 6e Abort if no chan
43d0: 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 nel */. if (s
43e0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d tatePtr->self ==
43f0: 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e (Tcl_Channel) N
4400: 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b 0a ULL) {..return;.
4410: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 }.. /* St
4420: 6f 72 65 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e ore OR-ed combin
4430: 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 ation of TCL_REA
4440: 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 41 DABLE, TCL_WRITA
4450: 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 58 43 45 BLE and TCL_EXCE
4460: 50 54 49 4f 4e 20 2a 2f 0a 20 20 20 20 73 74 61 PTION */. sta
4470: 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b tePtr->watchMask
4480: 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f 2a = mask;.. /*
4490: 20 50 72 6f 70 61 67 61 74 65 20 6d 61 73 6b 20 Propagate mask
44a0: 69 6e 66 6f 20 74 6f 20 70 61 72 65 6e 74 20 63 info to parent c
44b0: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 70 61 hannel */. pa
44c0: 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 rent = Tcl_GetSt
44d0: 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 ackedChannel(sta
44e0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 tePtr->self);.
44f0: 20 20 77 61 74 63 68 50 72 6f 63 20 3d 20 54 63 watchProc = Tc
4500: 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 72 l_ChannelWatchPr
4510: 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 oc(Tcl_GetChanne
4520: 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b 0a lType(parent));.
4530: 20 20 20 20 77 61 74 63 68 50 72 6f 63 28 54 63 watchProc(Tc
4540: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
4550: 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 anceData(parent)
4560: 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f 2a , mask);.. /*
4570: 20 52 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 Remove pending
4580: 74 69 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 timer */. if
4590: 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 (statePtr->timer
45a0: 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f != (Tcl_TimerTo
45b0: 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 ken) NULL) {..Tc
45c0: 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e l_DeleteTimerHan
45d0: 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 dler(statePtr->t
45e0: 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 imer);..statePtr
45f0: 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 ->timer = (Tcl_T
4600: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b imerToken) NULL;
4610: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 . }.. /* I
4620: 66 20 74 68 65 72 65 20 69 73 20 64 61 74 61 20 f there is data
4630: 70 65 6e 64 69 6e 67 2c 20 73 65 74 20 6e 65 77 pending, set new
4640: 20 74 69 6d 65 72 20 74 6f 20 63 61 6c 6c 20 54 timer to call T
4650: 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c cl_NotifyChannel
4660: 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 6d 61 73 */. if ((mas
4670: 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 k & TCL_READABLE
4680: 29 20 26 26 20 28 54 63 6c 5f 49 6e 70 75 74 42 ) && (Tcl_InputB
4690: 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 72 uffered(statePtr
46a0: 2d 3e 73 65 6c 66 29 20 3e 20 30 29 29 20 7b 0a ->self) > 0)) {.
46b0: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 .statePtr->timer
46c0: 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 6d = Tcl_CreateTim
46d0: 65 72 48 61 6e 64 6c 65 72 28 52 45 41 44 5f 44 erHandler(READ_D
46e0: 45 4c 41 59 2c 20 45 6e 63 72 79 70 74 54 69 6d ELAY, EncryptTim
46f0: 65 72 48 61 6e 64 6c 65 72 2c 20 28 43 6c 69 65 erHandler, (Clie
4700: 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 ntData) statePtr
4710: 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 );. }.}../*.
4720: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
4730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4760: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
4770: 63 72 79 70 74 47 65 74 48 61 6e 64 6c 65 50 72 cryptGetHandlePr
4780: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c oc --. *. *.Call
4790: 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 65 74 43 ed from Tcl_GetC
47a0: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 20 74 6f 20 hannelHandle to
47b0: 72 65 74 72 69 65 76 65 20 4f 53 20 73 70 65 63 retrieve OS spec
47c0: 69 66 69 63 20 66 69 6c 65 20 68 61 6e 64 6c 65 ific file handle
47d0: 0a 20 2a 09 66 72 6f 6d 20 69 6e 73 69 64 65 20 . *.from inside
47e0: 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 20 4e 6f this channel. No
47f0: 74 20 75 73 65 64 20 66 6f 72 20 74 72 61 6e 73 t used for trans
4800: 66 6f 72 6d 61 74 69 6f 6e 73 3f 0a 20 2a 0a 20 formations?. *.
4810: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
4820: 4c 5f 4f 4b 20 66 6f 72 20 73 75 63 63 65 73 73 L_OK for success
4830: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f or TCL_ERROR fo
4840: 72 20 65 72 72 6f 72 20 6f 72 20 69 66 20 6e 6f r error or if no
4850: 74 20 73 75 70 70 6f 72 74 65 64 2e 20 49 66 0a t supported. If.
4860: 20 2a 09 64 69 72 65 63 74 69 6f 6e 20 69 73 20 *.direction is
4870: 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 73 65 TCL_READABLE, se
4880: 74 73 20 68 61 6e 64 6c 65 50 74 72 20 74 6f 20 ts handlePtr to
4890: 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 20 the handle used
48a0: 66 6f 72 0a 20 2a 09 69 6e 70 75 74 2c 20 6f 72 for. *.input, or
48b0: 20 69 66 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 if TCL_WRITABLE
48c0: 20 73 65 74 73 20 74 6f 20 74 68 65 20 68 61 6e sets to the han
48d0: 64 6c 65 20 75 73 65 64 20 66 6f 72 20 6f 75 74 dle used for out
48e0: 70 75 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 put.. *. * Side
48f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e 65 effects:. *.None
4900: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
4910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
4950: 0a 69 6e 74 20 45 6e 63 72 79 70 74 47 65 74 48 .int EncryptGetH
4960: 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e 74 andleProc(Client
4970: 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c Data clientData,
4980: 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c 20 int direction,
4990: 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e 64 ClientData *hand
49a0: 6c 65 50 74 72 29 20 7b 0a 20 20 20 20 45 6e 63 lePtr) {. Enc
49b0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
49c0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
49d0: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
49e0: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
49f0: 65 6c 20 70 61 72 65 6e 74 3b 0a 0a 20 20 20 20 el parent;..
4a00: 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 /* Abort if no c
4a10: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 hannel */. if
4a20: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 (statePtr->self
4a30: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
4a40: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
4a50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
4a60: 20 7d 0a 0a 20 20 20 20 70 61 72 65 6e 74 20 3d }.. parent =
4a70: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
4a80: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
4a90: 3e 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 74 75 >self);. retu
4aa0: 72 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 rn Tcl_GetChanne
4ab0: 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 2c 20 lHandle(parent,
4ac0: 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 6c direction, handl
4ad0: 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d ePtr);.}../*. *-
4ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b20: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
4b30: 79 70 74 4e 6f 74 69 66 79 50 72 6f 63 20 2d 2d yptNotifyProc --
4b40: 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 . *. *.Called by
4b50: 20 54 63 6c 20 74 6f 20 69 6e 66 6f 72 6d 20 75 Tcl to inform u
4b60: 73 20 6f 66 20 61 63 74 69 76 69 74 79 20 6f 6e s of activity on
4b70: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
4b80: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 channel.. *. * R
4b90: 65 74 75 72 6e 73 3a 0a 20 2a 09 55 6e 63 68 61 eturns:. *.Uncha
4ba0: 6e 67 65 64 20 69 6e 74 65 72 65 73 74 4d 61 73 nged interestMas
4bb0: 6b 20 77 68 69 63 68 20 69 73 20 61 6e 20 4f 52 k which is an OR
4bc0: 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 -ed combination
4bd0: 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 of TCL_READABLE
4be0: 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 0a or TCL_WRITABLE.
4bf0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
4c00: 74 73 3a 0a 20 2a 09 43 61 6e 63 65 6c 73 20 61 ts:. *.Cancels a
4c10: 6e 79 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 ny pending timer
4c20: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
4c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4c70: 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 4e 6f 74 /.int EncryptNot
4c80: 69 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ifyProc(ClientDa
4c90: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 ta clientData, i
4ca0: 6e 74 20 69 6e 74 65 72 65 73 74 4d 61 73 6b 29 nt interestMask)
4cb0: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
4cc0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
4cd0: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
4ce0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
4cf0: 20 20 2f 2a 20 53 6b 69 70 20 74 69 6d 65 72 20 /* Skip timer
4d00: 65 76 65 6e 74 20 61 73 20 72 65 64 75 6e 64 61 event as redunda
4d10: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 nt */. if (st
4d20: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d atePtr->timer !=
4d30: 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e (Tcl_TimerToken
4d40: 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 ) NULL) {..Tcl_D
4d50: 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 eleteTimerHandle
4d60: 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 r(statePtr->time
4d70: 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 r);..statePtr->t
4d80: 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 imer = (Tcl_Time
4d90: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 rToken) NULL;.
4da0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 69 }. return i
4db0: 6e 74 65 72 65 73 74 4d 61 73 6b 3b 0a 7d 0a 0a nterestMask;.}..
4dc0: 2f 2a 0a 20 2a 0a 20 2a 20 43 68 61 6e 6e 65 6c /*. *. * Channel
4dd0: 20 74 79 70 65 20 73 74 72 75 63 74 75 72 65 20 type structure
4de0: 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 20 65 definition for e
4df0: 6e 63 72 79 70 74 69 6f 6e 20 74 72 61 6e 73 66 ncryption transf
4e00: 6f 72 6d 61 74 69 6f 6e 73 2e 0a 20 2a 0a 20 2a ormations.. *. *
4e10: 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 54 /.static const T
4e20: 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 65 cl_ChannelType e
4e30: 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 54 79 70 ncryptChannelTyp
4e40: 65 20 3d 20 7b 0a 20 20 20 20 22 65 6e 63 72 79 e = {. "encry
4e50: 70 74 69 6f 6e 22 2c 09 09 2f 2a 20 54 79 70 65 ption",../* Type
4e60: 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 4c name */. TCL
4e70: 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f 4e _CHANNEL_VERSION
4e80: 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e 65 _5,./* v5 channe
4e90: 6c 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 l */. Encrypt
4ea0: 43 6c 6f 73 65 50 72 6f 63 2c 09 09 2f 2a 20 43 CloseProc,../* C
4eb0: 6c 6f 73 65 20 70 72 6f 63 20 2a 2f 0a 20 20 20 lose proc */.
4ec0: 20 45 6e 63 72 79 70 74 49 6e 70 75 74 50 72 6f EncryptInputPro
4ed0: 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 70 72 6f c,../* Input pro
4ee0: 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 c */. Encrypt
4ef0: 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 OutputProc,../*
4f00: 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 Output proc */.
4f10: 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 65 NULL,.../* Se
4f20: 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 ek proc */. E
4f30: 6e 63 72 79 70 74 53 65 74 4f 70 74 69 6f 6e 50 ncryptSetOptionP
4f40: 72 6f 63 2c 09 2f 2a 20 53 65 74 20 6f 70 74 69 roc,./* Set opti
4f50: 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 on proc */. E
4f60: 6e 63 72 79 70 74 47 65 74 4f 70 74 69 6f 6e 50 ncryptGetOptionP
4f70: 72 6f 63 2c 09 2f 2a 20 47 65 74 20 6f 70 74 69 roc,./* Get opti
4f80: 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 on proc */. E
4f90: 6e 63 72 79 70 74 57 61 74 63 68 50 72 6f 63 2c ncryptWatchProc,
4fa0: 09 09 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 ../* Initialize
4fb0: 6e 6f 74 69 66 69 65 72 20 2a 2f 0a 20 20 20 20 notifier */.
4fc0: 45 6e 63 72 79 70 74 47 65 74 48 61 6e 64 6c 65 EncryptGetHandle
4fd0: 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 4f 53 20 Proc,./* Get OS
4fe0: 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 20 63 handles out of c
4ff0: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 45 6e hannel */. En
5000: 63 72 79 70 74 43 6c 6f 73 65 32 50 72 6f 63 2c cryptClose2Proc,
5010: 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 20 ../* close2proc
5020: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 42 6c */. EncryptBl
5030: 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 2f 2a 20 ockModeProc,./*
5040: 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f 6e Set blocking/non
5050: 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f 0a blocking mode*/.
5060: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 46 NULL,.../* F
5070: 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 20 lush proc */.
5080: 20 45 6e 63 72 79 70 74 4e 6f 74 69 66 79 50 72 EncryptNotifyPr
5090: 6f 63 2c 09 09 2f 2a 20 48 61 6e 64 6c 69 6e 67 oc,../* Handling
50a0: 20 6f 66 20 65 76 65 6e 74 73 20 62 75 62 62 6c of events bubbl
50b0: 69 6e 67 20 75 70 20 2a 2f 0a 20 20 20 20 4e 55 ing up */. NU
50c0: 4c 4c 2c 09 09 09 2f 2a 20 57 69 64 65 20 73 65 LL,.../* Wide se
50d0: 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e ek proc */. N
50e0: 55 4c 4c 2c 09 09 09 2f 2a 20 54 68 72 65 61 64 ULL,.../* Thread
50f0: 20 61 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 4e action */. N
5100: 55 4c 4c 09 09 09 2f 2a 20 54 72 75 6e 63 61 74 ULL.../* Truncat
5110: 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d e */.};../*. *--
5120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5160: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 ----. *. * Encry
5170: 70 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 ptChannelHandler
5180: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 --. *. *.Create
5190: 20 61 20 73 74 61 63 6b 65 64 20 63 68 61 6e 6e a stacked chann
51a0: 65 6c 20 66 6f 72 20 61 20 6d 65 73 73 61 67 65 el for a message
51b0: 20 65 6e 63 72 79 70 74 69 6f 6e 20 74 72 61 6e encryption tran
51c0: 73 66 6f 72 6d 61 74 69 6f 6e 2e 0a 20 2a 0a 20 sformation.. *.
51d0: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
51e0: 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f L_OK or TCL_ERRO
51f0: 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 R. *. * Side eff
5200: 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 74 72 ects:. *.Adds tr
5210: 61 6e 73 66 6f 72 6d 20 74 6f 20 63 68 61 6e 6e ansform to chann
5220: 65 6c 20 61 6e 64 20 73 65 74 73 20 72 65 73 75 el and sets resu
5230: 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c 20 69 64 lt to channel id
5240: 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 or error messag
5250: 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d e.. *. *--------
5260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
52a0: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
52b0: 63 72 79 70 74 43 68 61 6e 6e 65 6c 48 61 6e 64 cryptChannelHand
52c0: 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ler(Tcl_Interp *
52d0: 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 interp, int type
52e0: 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 68 , const char *ch
52f0: 61 6e 6e 65 6c 2c 0a 09 54 63 6c 5f 4f 62 6a 20 annel,..Tcl_Obj
5300: 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f *cipherObj, Tcl_
5310: 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c 20 Obj *digestObj,
5320: 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c Tcl_Obj *keyObj,
5330: 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 Tcl_Obj *ivObj)
5340: 20 7b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b {. int mode;
5350: 20 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e /* OR-ed combin
5360: 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 ation of TCL_REA
5370: 44 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 57 52 DABLE and TCL_WR
5380: 49 54 41 42 4c 45 20 2a 2f 0a 20 20 20 20 54 63 ITABLE */. Tc
5390: 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a l_Channel chan;.
53a0: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
53b0: 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 20 *statePtr;.
53c0: 28 76 6f 69 64 20 2a 29 20 64 69 67 65 73 74 4f (void *) digestO
53d0: 62 6a 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 bj;.. dprintf
53e0: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
53f0: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 /* Validate arg
5400: 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 68 61 s */. if (cha
5410: 6e 6e 65 6c 20 3d 3d 20 28 63 6f 6e 73 74 20 63 nnel == (const c
5420: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 har *) NULL) {..
5430: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
5440: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 63 68 61 (interp, "No cha
5450: 6e 6e 65 6c 22 2c 20 28 63 68 61 72 20 2a 29 20 nnel", (char *)
5460: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
5470: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
5480: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e . /* Get chan
5490: 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 20 63 68 nel Id */. ch
54a0: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
54b0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e nel(interp, chan
54c0: 6e 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 nel, &mode);.
54d0: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 if (chan == (Tc
54e0: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
54f0: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
5500: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
5510: 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f /* Make sure to
5520: 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 operate on the
5530: 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 topmost channel
5540: 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 */. chan = Tc
5550: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
5560: 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 chan);.. /* C
5570: 6f 6e 66 69 67 75 72 65 20 63 68 61 6e 6e 65 6c onfigure channel
5580: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 */. Tcl_SetC
5590: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
55a0: 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 erp, chan, "-tra
55b0: 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 nslation", "bina
55c0: 72 79 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 ry");.. /* Cr
55d0: 65 61 74 65 20 73 74 61 74 65 20 64 61 74 61 20 eate state data
55e0: 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 20 structure */.
55f0: 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 3d if ((statePtr =
5600: 20 45 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 EncryptStateNew
5610: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 29 29 20 (interp, type))
5620: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
5630: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
5640: 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c erp, "Memory all
5650: 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 ocation error",
5660: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
5670: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5680: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 R;. }. sta
5690: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 63 68 tePtr->self = ch
56a0: 61 6e 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 an;. statePtr
56b0: 2d 3e 6d 6f 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a ->mode = mode;..
56c0: 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a /* Initializ
56d0: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 e function */.
56e0: 20 20 69 66 20 28 45 6e 63 72 79 70 74 49 6e 69 if (EncryptIni
56f0: 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 tialize(interp,
5700: 74 79 70 65 2c 20 26 73 74 61 74 65 50 74 72 2d type, &statePtr-
5710: 3e 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c >ctx, cipherObj,
5720: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 20 keyObj, ivObj)
5730: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 6e != TCL_OK) {..En
5740: 63 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 cryptStateFree(s
5750: 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 tatePtr);..retur
5760: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5770: 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 61 63 6b }.. /* Stack
5780: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5790: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
57a0: 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 Tcl_StackChanne
57b0: 6c 28 69 6e 74 65 72 70 2c 20 26 65 6e 63 72 79 l(interp, &encry
57c0: 70 74 43 68 61 6e 6e 65 6c 54 79 70 65 2c 20 28 ptChannelType, (
57d0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
57e0: 65 50 74 72 2c 20 6d 6f 64 65 2c 20 63 68 61 6e ePtr, mode, chan
57f0: 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 );. if (state
5800: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
5810: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
5820: 20 7b 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 {..EncryptState
5830: 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a Free(statePtr);.
5840: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5850: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5860: 20 53 65 74 20 72 65 73 75 6c 74 20 74 6f 20 63 Set result to c
5870: 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 hannel Id */.
5880: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
5890: 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 nterp, (char *)
58a0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
58b0: 6d 65 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 4f me(chan), TCL_VO
58c0: 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 LATILE);. ret
58d0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
58e0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
58f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
5930: 20 55 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 6c Unstack Channel
5940: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 --. *. *.This f
5950: 75 6e 63 74 69 6f 6e 20 72 65 6d 6f 76 65 73 20 unction removes
5960: 74 68 65 20 73 74 61 63 6b 65 64 20 63 68 61 6e the stacked chan
5970: 6e 65 6c 20 66 72 6f 6d 20 74 68 65 20 74 6f 70 nel from the top
5980: 20 6f 66 20 74 68 65 0a 20 2a 09 63 68 61 6e 6e of the. *.chann
5990: 65 6c 20 73 74 61 63 6b 20 69 66 20 69 74 20 69 el stack if it i
59a0: 73 20 61 20 65 6e 63 72 79 70 74 69 6f 6e 20 63 s a encryption c
59b0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
59c0: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
59d0: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
59e0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
59f0: 3a 0a 20 2a 09 52 65 6d 6f 76 65 73 20 74 72 61 :. *.Removes tra
5a00: 6e 73 66 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e nsform from chan
5a10: 6e 65 6c 20 6f 72 20 73 65 74 73 20 72 65 73 75 nel or sets resu
5a20: 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 lt to error mess
5a30: 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d age.. *. *------
5a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5a80: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
5a90: 45 6e 63 72 79 70 74 55 6e 73 74 61 63 6b 4f 62 EncryptUnstackOb
5aa0: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
5ab0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
5ac0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
5ad0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
5ae0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
5af0: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e {. Tcl_Chann
5b00: 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 69 6e 74 el chan;. int
5b10: 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 mode; /* OR-ed
5b20: 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 combination of T
5b30: 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 CL_READABLE and
5b40: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 20 2a 2f TCL_WRITABLE */
5b50: 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 . (void) clie
5b60: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 72 ntData;.. dpr
5b70: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
5b80: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
5b90: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
5ba0: 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 29 if (objc != 2)
5bb0: 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d {..Tcl_WrongNum
5bc0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
5bd0: 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 49 64 objv, "channelId
5be0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
5bf0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5c00: 20 20 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 6c /* Get channel
5c10: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 */. chan = T
5c20: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e cl_GetChannel(in
5c30: 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 72 terp, Tcl_GetStr
5c40: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
5c50: 31 5d 2c 20 28 54 63 6c 5f 53 69 7a 65 20 2a 29 1], (Tcl_Size *)
5c60: 20 4e 55 4c 4c 29 2c 20 26 6d 6f 64 65 29 3b 0a NULL), &mode);.
5c70: 20 20 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 if (chan ==
5c80: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
5c90: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
5ca0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
5cb0: 20 20 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 /* Make sure
5cc0: 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 to operate on t
5cd0: 68 65 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e he topmost chann
5ce0: 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d el */. chan =
5cf0: 20 54 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e Tcl_GetTopChann
5d00: 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f el(chan);.. /
5d10: 2a 20 43 68 65 63 6b 20 69 66 20 65 6e 63 72 79 * Check if encry
5d20: 70 74 69 6f 6e 20 63 68 61 6e 6e 65 6c 20 2a 2f ption channel */
5d30: 0a 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 . if (Tcl_Get
5d40: 43 68 61 6e 6e 65 6c 54 79 70 65 28 63 68 61 6e ChannelType(chan
5d50: 29 20 21 3d 20 26 65 6e 63 72 79 70 74 43 68 61 ) != &encryptCha
5d60: 6e 6e 65 6c 54 79 70 65 29 20 7b 0a 09 54 63 6c nnelType) {..Tcl
5d70: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5d80: 74 65 72 70 2c 20 22 62 61 64 20 63 68 61 6e 6e terp, "bad chann
5d90: 65 6c 20 5c 22 22 2c 20 54 63 6c 5f 47 65 74 43 el \"", Tcl_GetC
5da0: 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 hannelName(chan)
5db0: 2c 0a 09 20 20 20 20 22 5c 22 3a 20 6e 6f 74 20 ,.. "\": not
5dc0: 61 20 65 6e 63 72 79 70 74 69 6f 6e 20 63 68 61 a encryption cha
5dd0: 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 3b 0a 09 54 nnel", NULL);..T
5de0: 63 6c 5f 53 65 74 45 72 72 6f 72 43 6f 64 65 28 cl_SetErrorCode(
5df0: 69 6e 74 65 72 70 2c 20 22 54 4c 53 22 2c 20 22 interp, "TLS", "
5e00: 55 4e 53 54 41 43 4b 22 2c 20 22 43 48 41 4e 4e UNSTACK", "CHANN
5e10: 45 4c 22 2c 20 22 49 4e 56 41 4c 49 44 22 2c 20 EL", "INVALID",
5e20: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
5e30: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5e40: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5e50: 20 50 6f 70 20 74 72 61 6e 73 66 6f 72 6d 20 66 Pop transform f
5e60: 72 6f 6d 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 rom channel */.
5e70: 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 55 6e return Tcl_Un
5e80: 73 74 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 stackChannel(int
5e90: 65 72 70 2c 20 63 68 61 6e 29 3b 0a 7d 0a 0a 2f erp, chan);.}../
5ea0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5eb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ec0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ed0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5ee0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d ***/../*. *-----
5ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
5f30: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 49 6e 73 74 *. * EncryptInst
5f40: 61 6e 63 65 4f 62 6a 43 6d 64 20 2d 2d 0a 20 2a anceObjCmd --. *
5f50: 0a 20 2a 09 48 61 6e 64 6c 65 72 20 66 6f 72 20 . *.Handler for
5f60: 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 encrypt/decrypt
5f70: 63 6f 6d 6d 61 6e 64 20 69 6e 73 74 61 6e 63 65 command instance
5f80: 73 2e 20 55 73 65 64 20 74 6f 20 75 70 64 61 74 s. Used to updat
5f90: 65 0a 20 2a 09 61 6e 64 20 66 69 6e 61 6c 69 7a e. *.and finaliz
5fa0: 65 20 64 61 74 61 20 66 6f 72 20 65 6e 63 72 79 e data for encry
5fb0: 70 74 2f 64 65 63 72 79 70 74 20 66 75 6e 63 74 pt/decrypt funct
5fc0: 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ion.. *. * Retur
5fd0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
5fe0: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
5ff0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
6000: 2a 09 41 64 64 73 20 64 61 74 61 20 74 6f 20 65 *.Adds data to e
6010: 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 66 ncrypt/decrypt f
6020: 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 2d 2d 2d unction. *. *---
6030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6070: 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 . */.int Encrypt
6080: 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 28 43 InstanceObjCmd(C
6090: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
60a0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
60b0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
60c0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
60d0: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
60e0: 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 EncryptState *s
60f0: 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 tatePtr = (Encry
6100: 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e ptState *) clien
6110: 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 66 tData;. int f
6120: 6e 2c 20 6f 75 74 5f 6c 65 6e 3b 0a 20 20 20 20 n, out_len;.
6130: 54 63 6c 5f 53 69 7a 65 20 64 61 74 61 5f 6c 65 Tcl_Size data_le
6140: 6e 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 72 20 n = 0;. char
6150: 2a 64 61 74 61 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *data = NULL;.
6160: 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c Tcl_Obj *resul
6170: 74 4f 62 6a 3b 0a 20 20 20 20 75 6e 73 69 67 6e tObj;. unsign
6180: 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 ed char *out_buf
6190: 3b 0a 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e ;. static con
61a0: 73 74 20 63 68 61 72 20 2a 69 6e 73 74 61 6e 63 st char *instanc
61b0: 65 5f 66 6e 73 20 5b 5d 20 3d 20 7b 20 22 66 69 e_fns [] = { "fi
61c0: 6e 61 6c 69 7a 65 22 2c 20 22 75 70 64 61 74 65 nalize", "update
61d0: 22 2c 20 4e 55 4c 4c 20 7d 3b 0a 0a 20 20 20 20 ", NULL };..
61e0: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
61f0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 );.. /* Valid
6200: 61 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f ate arg count */
6210: 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 . if (objc <
6220: 32 20 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 2 || objc > 3) {
6230: 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 ..Tcl_WrongNumAr
6240: 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 gs(interp, 1, ob
6250: 6a 76 2c 20 22 66 75 6e 63 74 69 6f 6e 20 3f 64 jv, "function ?d
6260: 61 74 61 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 ata?");..return
6270: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
6280: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 66 75 6e .. /* Get fun
6290: 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 ction */. if
62a0: 28 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f (Tcl_GetIndexFro
62b0: 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a mObj(interp, obj
62c0: 76 5b 31 5d 2c 20 69 6e 73 74 61 6e 63 65 5f 66 v[1], instance_f
62d0: 6e 73 2c 20 22 66 75 6e 63 74 69 6f 6e 22 2c 20 ns, "function",
62e0: 30 2c 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 0, &fn) != TCL_O
62f0: 4b 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c K) {..return TCL
6300: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6310: 20 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 /* Allocate s
6320: 74 6f 72 61 67 65 20 66 6f 72 20 72 65 73 75 6c torage for resul
6330: 74 2e 20 53 69 7a 65 20 73 68 6f 75 6c 64 20 62 t. Size should b
6340: 65 20 64 61 74 61 20 73 69 7a 65 20 2b 20 62 6c e data size + bl
6350: 6f 63 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 ock size. */.
6360: 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c resultObj = Tcl
6370: 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 6f _NewObj();. o
6380: 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 ut_buf = Tcl_Set
6390: 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 ByteArrayLength(
63a0: 72 65 73 75 6c 74 4f 62 6a 2c 20 64 61 74 61 5f resultObj, data_
63b0: 6c 65 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 len+EVP_MAX_BLOC
63c0: 4b 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 69 K_LENGTH);. i
63d0: 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 f (resultObj ==
63e0: 4e 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 66 20 NULL || out_buf
63f0: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
6400: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
6410: 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c erp, "Memory all
6420: 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 ocation error",
6430: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
6440: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e .Tcl_DecrRefCoun
6450: 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 72 t(resultObj);..r
6460: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6470: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 . }.. /* D
6480: 6f 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 o function */.
6490: 20 20 69 66 20 28 66 6e 29 20 7b 0a 09 2f 2a 20 if (fn) {../*
64a0: 47 65 74 20 64 61 74 61 20 6f 72 20 72 65 74 75 Get data or retu
64b0: 72 6e 20 65 72 72 6f 72 20 69 66 20 6e 6f 6e 65 rn error if none
64c0: 20 2a 2f 0a 09 69 66 20 28 6f 62 6a 63 20 3d 3d */..if (objc ==
64d0: 20 33 29 20 7b 0a 09 20 20 20 20 64 61 74 61 20 3) {.. data
64e0: 3d 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 = Tcl_GetByteArr
64f0: 61 79 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 ayFromObj(objv[2
6500: 5d 2c 20 26 64 61 74 61 5f 6c 65 6e 29 3b 0a 09 ], &data_len);..
6510: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 } else {.. Tc
6520: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 l_WrongNumArgs(i
6530: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 nterp, 1, objv,
6540: 22 75 70 64 61 74 65 20 64 61 74 61 22 29 3b 0a "update data");.
6550: 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 . Tcl_DecrRef
6560: 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 Count(resultObj)
6570: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
6580: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a L_ERROR;..}.../*
6590: 20 55 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e Update function
65a0: 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 */..if (Encrypt
65b0: 55 70 64 61 74 65 28 69 6e 74 65 72 70 2c 20 73 Update(interp, s
65c0: 74 61 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 tatePtr->type, s
65d0: 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 tatePtr->ctx, ou
65e0: 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c t_buf, &out_len,
65f0: 20 64 61 74 61 2c 20 64 61 74 61 5f 6c 65 6e 29 data, data_len)
6600: 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 == TCL_OK) {..
6610: 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c out_buf = Tcl
6620: 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e _SetByteArrayLen
6630: 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 28 gth(resultObj, (
6640: 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 Tcl_Size) out_le
6650: 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 n);.. Tcl_Set
6660: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
6670: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d , resultObj);..}
6680: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c else {.. Tcl
6690: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 _DecrRefCount(re
66a0: 73 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 sultObj);.. r
66b0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
66c0: 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 ..}.. } else
66d0: 7b 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 66 {../* Finalize f
66e0: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 unction */..if (
66f0: 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 EncryptFinalize(
6700: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
6710: 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 ->type, statePtr
6720: 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 ->ctx, out_buf,
6730: 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c &out_len) == TCL
6740: 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 6f 75 74 5f _OK) {.. out_
6750: 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 buf = Tcl_SetByt
6760: 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 eArrayLength(res
6770: 75 6c 74 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 7a ultObj, (Tcl_Siz
6780: 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 e) out_len);..
6790: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
67a0: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
67b0: 74 4f 62 6a 29 3b 0a 09 7d 20 65 6c 73 65 20 7b tObj);..} else {
67c0: 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 .. Tcl_DecrRe
67d0: 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a fCount(resultObj
67e0: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
67f0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f CL_ERROR;..}.../
6800: 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 09 54 * Clean-up */..T
6810: 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 cl_DeleteCommand
6820: 46 72 6f 6d 54 6f 6b 65 6e 28 69 6e 74 65 72 70 FromToken(interp
6830: 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 , statePtr->toke
6840: 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 n);. }. re
6850: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
6860: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
68b0: 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 44 65 6c ncryptCommandDel
68c0: 65 74 65 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a eteHandler --. *
68d0: 0a 20 2a 09 20 43 61 6c 6c 62 61 63 6b 20 74 6f . *. Callback to
68e0: 20 63 6c 65 61 6e 2d 75 70 20 77 68 65 6e 20 65 clean-up when e
68f0: 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 63 ncrypt/decrypt c
6900: 6f 6d 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 65 ommand is delete
6910: 64 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 d.. *. * Returns
6920: 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a :. *.Nothing. *.
6930: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
6940: 0a 20 2a 09 44 65 73 74 72 6f 79 73 20 73 74 61 . *.Destroys sta
6950: 74 65 20 69 6e 66 6f 20 73 74 72 75 63 74 75 72 te info structur
6960: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
6970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 ----------. */.v
69b0: 6f 69 64 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 oid EncryptComma
69c0: 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 28 ndDeleteHandler(
69d0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
69e0: 74 44 61 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 tData) {. Enc
69f0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
6a00: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
6a10: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
6a20: 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e a;.. /* Clean
6a30: 2d 75 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 -up */. Encry
6a40: 70 74 53 74 61 74 65 46 72 65 65 28 73 74 61 74 ptStateFree(stat
6a50: 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d ePtr);.}../*. *-
6a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6aa0: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
6ab0: 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 20 2d CommandHandler -
6ac0: 2d 0a 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 20 -. *. *. Create
6ad0: 63 6f 6d 6d 61 6e 64 20 74 6f 20 61 64 64 20 64 command to add d
6ae0: 61 74 61 20 74 6f 20 65 6e 63 72 79 70 74 2f 64 ata to encrypt/d
6af0: 65 63 72 79 70 74 20 66 75 6e 63 74 69 6f 6e 2e ecrypt function.
6b00: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
6b10: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
6b20: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
6b30: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 e effects:. *.Cr
6b40: 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 20 6f 72 eates command or
6b50: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 error message.
6b60: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
6b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ba0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
6bb0: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 EncryptCommandHa
6bc0: 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 ndler(Tcl_Interp
6bd0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 *interp, int ty
6be0: 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 pe, Tcl_Obj *cmd
6bf0: 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 63 Obj,..Tcl_Obj *c
6c00: 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f 4f 62 ipherObj, Tcl_Ob
6c10: 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c 20 54 63 j *digestObj, Tc
6c20: 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 l_Obj *keyObj, T
6c30: 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 7b cl_Obj *ivObj) {
6c40: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
6c50: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
6c60: 20 63 68 61 72 20 2a 63 6d 64 4e 61 6d 65 20 3d char *cmdName =
6c70: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
6c80: 6f 6d 4f 62 6a 28 63 6d 64 4f 62 6a 2c 20 28 54 omObj(cmdObj, (T
6c90: 63 6c 5f 53 69 7a 65 20 2a 29 20 4e 55 4c 4c 29 cl_Size *) NULL)
6ca0: 3b 0a 20 20 20 20 28 76 6f 69 64 20 2a 29 20 64 ;. (void *) d
6cb0: 69 67 65 73 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 igestObj;.. d
6cc0: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
6cd0: 3b 0a 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 ;.. if ((stat
6ce0: 65 50 74 72 20 3d 20 45 6e 63 72 79 70 74 53 74 ePtr = EncryptSt
6cf0: 61 74 65 4e 65 77 28 69 6e 74 65 72 70 2c 20 74 ateNew(interp, t
6d00: 79 70 65 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b ype)) == NULL) {
6d10: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
6d20: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f lt(interp, "Memo
6d30: 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 ry allocation er
6d40: 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e ror", (char *) N
6d50: 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 ULL);..return TC
6d60: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
6d70: 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a /* Initializ
6d80: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 e function */.
6d90: 20 20 69 66 20 28 45 6e 63 72 79 70 74 49 6e 69 if (EncryptIni
6da0: 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 tialize(interp,
6db0: 74 79 70 65 2c 20 26 73 74 61 74 65 50 74 72 2d type, &statePtr-
6dc0: 3e 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c >ctx, cipherObj,
6dd0: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 20 keyObj, ivObj)
6de0: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 6e != TCL_OK) {..En
6df0: 63 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 cryptStateFree(s
6e00: 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 tatePtr);..retur
6e10: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
6e20: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 }.. /* Creat
6e30: 65 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 e instance comma
6e40: 6e 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 nd */. stateP
6e50: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 6c 5f tr->token = Tcl_
6e60: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
6e70: 28 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 6d 65 (interp, cmdName
6e80: 2c 20 45 6e 63 72 79 70 74 49 6e 73 74 61 6e 63 , EncryptInstanc
6e90: 65 4f 62 6a 43 6d 64 2c 0a 09 28 43 6c 69 65 6e eObjCmd,..(Clien
6ea0: 74 44 61 74 61 29 20 73 74 61 74 65 50 74 72 2c tData) statePtr,
6eb0: 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 44 EncryptCommandD
6ec0: 65 6c 65 74 65 48 61 6e 64 6c 65 72 29 3b 0a 0a eleteHandler);..
6ed0: 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 63 6f /* Return co
6ee0: 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a 20 20 mmand name */.
6ef0: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
6f00: 6c 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 4f 62 lt(interp, cmdOb
6f10: 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 j);. return T
6f20: 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a CL_OK;.}../*****
6f30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6f60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a **************/.
6f70: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
6f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
6fc0: 45 6e 63 72 79 70 74 44 61 74 61 48 61 6e 64 6c EncryptDataHandl
6fd0: 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 er --. *. *.Perf
6fe0: 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 orm encryption f
6ff0: 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 6c 6f unction on a blo
7000: 63 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 20 72 ck of data and r
7010: 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a eturn result.. *
7020: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
7030: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 TCL_OK or TCL_ER
7040: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ROR. *. * Side e
7050: 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 ffects:. *.Sets
7060: 72 65 73 75 6c 74 20 6f 72 20 65 72 72 6f 72 20 result or error
7070: 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d message. *. *---
7080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
70c0: 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 . */.int Encrypt
70d0: 44 61 74 61 48 61 6e 64 6c 65 72 28 54 63 6c 5f DataHandler(Tcl_
70e0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
70f0: 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 4f 62 int type, Tcl_Ob
7100: 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 54 63 6c 5f j *dataObj, Tcl_
7110: 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c 0a Obj *cipherObj,.
7120: 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 .Tcl_Obj *digest
7130: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 Obj, Tcl_Obj *ke
7140: 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 yObj, Tcl_Obj *i
7150: 76 4f 62 6a 29 20 7b 0a 20 20 20 20 45 56 50 5f vObj) {. EVP_
7160: 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 CIPHER_CTX *ctx
7170: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 = NULL;. int
7180: 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e out_len = 0, len
7190: 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 4c 5f = 0, res = TCL_
71a0: 4f 4b 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 OK;. Tcl_Size
71b0: 20 64 61 74 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 data_len = 0;.
71c0: 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 unsigned char
71d0: 20 2a 64 61 74 61 2c 20 2a 6f 75 74 5f 62 75 66 *data, *out_buf
71e0: 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 ;. Tcl_Obj *r
71f0: 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 28 76 esultObj;. (v
7200: 6f 69 64 20 2a 29 20 64 69 67 65 73 74 4f 62 6a oid *) digestObj
7210: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
7220: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
7230: 2a 20 47 65 74 20 64 61 74 61 20 2a 2f 0a 20 20 * Get data */.
7240: 20 20 69 66 20 28 64 61 74 61 4f 62 6a 20 21 3d if (dataObj !=
7250: 20 4e 55 4c 4c 29 20 7b 0a 09 64 61 74 61 20 3d NULL) {..data =
7260: 20 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 Tcl_GetByteArra
7270: 79 46 72 6f 6d 4f 62 6a 28 64 61 74 61 4f 62 6a yFromObj(dataObj
7280: 2c 20 26 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 , &data_len);.
7290: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
72a0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
72b0: 65 72 70 2c 20 22 4e 6f 20 64 61 74 61 22 2c 20 erp, "No data",
72c0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
72d0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
72e0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
72f0: 20 41 6c 6c 6f 63 61 74 65 20 73 74 6f 72 61 67 Allocate storag
7300: 65 20 66 6f 72 20 72 65 73 75 6c 74 2e 20 53 69 e for result. Si
7310: 7a 65 20 73 68 6f 75 6c 64 20 62 65 20 64 61 74 ze should be dat
7320: 61 20 73 69 7a 65 20 2b 20 62 6c 6f 63 6b 20 73 a size + block s
7330: 69 7a 65 2e 20 2a 2f 0a 20 20 20 20 72 65 73 75 ize. */. resu
7340: 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f ltObj = Tcl_NewO
7350: 62 6a 28 29 3b 0a 20 20 20 20 6f 75 74 5f 62 75 bj();. out_bu
7360: 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 f = Tcl_SetByteA
7370: 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c rrayLength(resul
7380: 74 4f 62 6a 2c 20 64 61 74 61 5f 6c 65 6e 2b 45 tObj, data_len+E
7390: 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e VP_MAX_BLOCK_LEN
73a0: 47 54 48 29 3b 0a 20 20 20 20 69 66 20 28 72 65 GTH);. if (re
73b0: 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 20 sultObj == NULL
73c0: 7c 7c 20 6f 75 74 5f 62 75 66 20 3d 3d 20 4e 55 || out_buf == NU
73d0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e LL) {..Tcl_Appen
73e0: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
73f0: 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 "Memory allocati
7400: 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 on error", (char
7410: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 *) NULL);..retu
7420: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
7430: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 50 65 72 66 }.. /* Perf
7440: 6f 72 6d 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f orm operation */
7450: 0a 20 20 20 20 69 66 20 28 45 6e 63 72 79 70 74 . if (Encrypt
7460: 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 Initialize(inter
7470: 70 2c 20 74 79 70 65 2c 20 26 63 74 78 2c 20 63 p, type, &ctx, c
7480: 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a ipherObj, keyObj
7490: 2c 20 69 76 4f 62 6a 29 20 21 3d 20 54 43 4c 5f , ivObj) != TCL_
74a0: 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 55 70 OK ||..EncryptUp
74b0: 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 79 70 date(interp, typ
74c0: 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c e, ctx, out_buf,
74d0: 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c &out_len, data,
74e0: 20 64 61 74 61 5f 6c 65 6e 29 20 21 3d 20 54 43 data_len) != TC
74f0: 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 L_OK ||..Encrypt
7500: 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c Finalize(interp,
7510: 20 74 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f type, ctx, out_
7520: 62 75 66 2b 6f 75 74 5f 6c 65 6e 2c 20 26 6c 65 buf+out_len, &le
7530: 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a n) != TCL_OK) {.
7540: 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 .res = TCL_ERROR
7550: 3b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 ;..goto done;.
7560: 20 20 7d 0a 20 20 20 20 6f 75 74 5f 6c 65 6e 20 }. out_len
7570: 2b 3d 20 6c 65 6e 3b 0a 0a 64 6f 6e 65 3a 0a 20 += len;..done:.
7580: 20 20 20 2f 2a 20 53 65 74 20 6f 75 74 70 75 74 /* Set output
7590: 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 69 result */. i
75a0: 66 20 28 72 65 73 20 3d 3d 20 54 43 4c 5f 4f 4b f (res == TCL_OK
75b0: 29 20 7b 0a 09 6f 75 74 5f 62 75 66 20 3d 20 54 ) {..out_buf = T
75c0: 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c cl_SetByteArrayL
75d0: 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c ength(resultObj,
75e0: 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f (Tcl_Size) out_
75f0: 6c 65 6e 29 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 len);..Tcl_SetOb
7600: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
7610: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
7620: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 44 65 } else {..Tcl_De
7630: 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c crRefCount(resul
7640: 74 4f 62 6a 29 3b 0a 09 2f 2a 20 52 65 73 75 6c tObj);../* Resul
7650: 74 20 69 73 20 65 72 72 6f 72 20 6d 65 73 73 61 t is error messa
7660: 67 65 20 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 ge */. }..
7670: 20 2f 2a 20 43 6c 65 61 6e 20 75 70 20 2a 2f 0a /* Clean up */.
7680: 20 20 20 20 69 66 20 28 63 74 78 20 21 3d 20 4e if (ctx != N
7690: 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 50 48 ULL) {..EVP_CIPH
76a0: 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 ER_CTX_free(ctx)
76b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
76c0: 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a rn res;.}../****
76d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
76e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
76f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7700: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
7710: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
7720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
7760: 20 45 6e 63 72 79 70 74 46 69 6c 65 48 61 6e 64 EncryptFileHand
7770: 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 ler --. *. *.Per
7780: 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 form encryption
7790: 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 6c function on a bl
77a0: 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 20 ock of data and
77b0: 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 return result..
77c0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
77d0: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
77e0: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
77f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 45 6e 63 72 effects:. *.Encr
7800: 79 70 74 73 20 6f 72 20 64 65 63 72 79 70 74 73 ypts or decrypts
7810: 20 69 6e 46 69 6c 65 20 64 61 74 61 20 74 6f 20 inFile data to
7820: 6f 75 74 46 69 6c 65 20 61 6e 64 20 73 65 74 73 outFile and sets
7830: 20 72 65 73 75 6c 74 20 74 6f 0a 20 2a 09 73 69 result to. *.si
7840: 7a 65 20 6f 66 20 6f 75 74 46 69 6c 65 2c 20 6f ze of outFile, o
7850: 72 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 r an error messa
7860: 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ge.. *. *-------
7870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
78b0: 0a 69 6e 74 20 45 6e 63 72 79 70 74 46 69 6c 65 .int EncryptFile
78c0: 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 Handler(Tcl_Inte
78d0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
78e0: 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 type, Tcl_Obj *i
78f0: 6e 46 69 6c 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 nFileObj, Tcl_Ob
7900: 6a 20 2a 6f 75 74 46 69 6c 65 4f 62 6a 2c 0a 09 j *outFileObj,..
7910: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
7920: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 bj, Tcl_Obj *dig
7930: 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 estObj, Tcl_Obj
7940: 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a *keyObj, Tcl_Obj
7950: 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 45 *ivObj) {. E
7960: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 VP_CIPHER_CTX *c
7970: 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 tx = NULL;. i
7980: 6e 74 20 74 6f 74 61 6c 20 3d 20 30 2c 20 72 65 nt total = 0, re
7990: 73 2c 20 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 s, out_len = 0,
79a0: 6c 65 6e 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 len;. Tcl_Cha
79b0: 6e 6e 65 6c 20 69 6e 20 3d 20 4e 55 4c 4c 2c 20 nnel in = NULL,
79c0: 6f 75 74 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 out = NULL;.
79d0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 69 6e unsigned char in
79e0: 5f 62 75 66 5b 42 55 46 46 45 52 5f 53 49 5a 45 _buf[BUFFER_SIZE
79f0: 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 ];. unsigned
7a00: 63 68 61 72 20 6f 75 74 5f 62 75 66 5b 42 55 46 char out_buf[BUF
7a10: 46 45 52 5f 53 49 5a 45 2b 45 56 50 5f 4d 41 58 FER_SIZE+EVP_MAX
7a20: 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 5d 3b 0a _BLOCK_LENGTH];.
7a30: 20 20 20 20 28 76 6f 69 64 20 2a 29 20 64 69 67 (void *) dig
7a40: 65 73 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 72 estObj;.. dpr
7a50: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
7a60: 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 69 6e 70 . /* Open inp
7a70: 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 69 ut file */. i
7a80: 66 20 28 28 69 6e 20 3d 20 54 63 6c 5f 46 53 4f f ((in = Tcl_FSO
7a90: 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c 28 69 penFileChannel(i
7aa0: 6e 74 65 72 70 2c 20 69 6e 46 69 6c 65 4f 62 6a nterp, inFileObj
7ab0: 2c 20 22 72 62 22 2c 20 30 34 34 34 29 29 20 3d , "rb", 0444)) =
7ac0: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
7ad0: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 NULL) {..return
7ae0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
7af0: 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 6f 75 .. /* Open ou
7b00: 74 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 tput file */.
7b10: 20 69 66 20 28 28 6f 75 74 20 3d 20 54 63 6c 5f if ((out = Tcl_
7b20: 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 FSOpenFileChanne
7b30: 6c 28 69 6e 74 65 72 70 2c 20 6f 75 74 46 69 6c l(interp, outFil
7b40: 65 4f 62 6a 2c 20 22 77 62 22 2c 20 30 36 34 34 eObj, "wb", 0644
7b50: 29 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e )) == (Tcl_Chann
7b60: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c el) NULL) {..Tcl
7b70: 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 69 _Close(interp, i
7b80: 6e 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f n);..return TCL_
7b90: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
7ba0: 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 /* Initialize
7bb0: 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 20 operation */.
7bc0: 20 69 66 20 28 28 72 65 73 20 3d 20 45 6e 63 72 if ((res = Encr
7bd0: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e yptInitialize(in
7be0: 74 65 72 70 2c 20 74 79 70 65 2c 20 26 63 74 78 terp, type, &ctx
7bf0: 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 , cipherObj, key
7c00: 4f 62 6a 2c 20 69 76 4f 62 6a 29 29 20 21 3d 20 Obj, ivObj)) !=
7c10: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 TCL_OK) {..goto
7c20: 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 done;. }..
7c30: 20 2f 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 /* Read file da
7c40: 74 61 20 66 72 6f 6d 20 69 6e 46 69 6c 65 2c 20 ta from inFile,
7c50: 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 encrypt/decrypt
7c60: 69 74 2c 20 74 68 65 6e 20 6f 75 74 70 75 74 20 it, then output
7c70: 74 6f 20 6f 75 74 46 69 6c 65 20 2a 2f 0a 20 20 to outFile */.
7c80: 20 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f while (!Tcl_Eo
7c90: 66 28 69 6e 29 29 20 7b 0a 09 54 63 6c 5f 53 69 f(in)) {..Tcl_Si
7ca0: 7a 65 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 65 ze read = Tcl_Re
7cb0: 61 64 52 61 77 28 69 6e 2c 20 28 63 68 61 72 20 adRaw(in, (char
7cc0: 2a 29 20 69 6e 5f 62 75 66 2c 20 42 55 46 46 45 *) in_buf, BUFFE
7cd0: 52 5f 53 49 5a 45 29 3b 0a 09 69 66 20 28 72 65 R_SIZE);..if (re
7ce0: 61 64 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 ad > 0) {.. i
7cf0: 66 20 28 28 72 65 73 20 3d 20 45 6e 63 72 79 70 f ((res = Encryp
7d00: 74 55 70 64 61 74 65 28 69 6e 74 65 72 70 2c 20 tUpdate(interp,
7d10: 74 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 type, ctx, out_b
7d20: 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e uf, &out_len, in
7d30: 5f 62 75 66 2c 20 72 65 61 64 29 29 20 3d 3d 20 _buf, read)) ==
7d40: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28 TCL_OK) {...if (
7d50: 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 out_len > 0) {..
7d60: 09 20 20 20 20 6c 65 6e 20 3d 20 28 69 6e 74 29 . len = (int)
7d70: 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 6f 75 Tcl_WriteRaw(ou
7d80: 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a t, (const char *
7d90: 29 20 6f 75 74 5f 62 75 66 2c 20 28 54 63 6c 5f ) out_buf, (Tcl_
7da0: 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a Size) out_len);.
7db0: 09 09 20 20 20 20 69 66 20 28 6c 65 6e 20 3e 3d .. if (len >=
7dc0: 20 30 29 20 7b 0a 09 09 09 74 6f 74 61 6c 20 2b 0) {....total +
7dd0: 3d 20 6c 65 6e 3b 0a 09 09 20 20 20 20 7d 20 65 = len;... } e
7de0: 6c 73 65 20 7b 0a 09 09 09 54 63 6c 5f 41 70 70 lse {....Tcl_App
7df0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
7e00: 2c 20 22 57 72 69 74 65 20 65 72 72 6f 72 3a 20 , "Write error:
7e10: 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 ", Tcl_ErrnoMsg(
7e20: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c Tcl_GetErrno()),
7e30: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
7e40: 0a 09 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 ....res = TCL_ER
7e50: 52 4f 52 3b 0a 09 09 09 67 6f 74 6f 20 64 6f 6e ROR;....goto don
7e60: 65 3b 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 e;... }...}..
7e70: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 67 } else {...g
7e80: 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d oto done;.. }
7e90: 0a 09 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 ..} else if (rea
7ea0: 64 20 3c 20 30 29 20 7b 0a 09 20 20 20 20 54 63 d < 0) {.. Tc
7eb0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7ec0: 6e 74 65 72 70 2c 20 22 52 65 61 64 20 65 72 72 nterp, "Read err
7ed0: 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f or: ", Tcl_Errno
7ee0: 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f Msg(Tcl_GetErrno
7ef0: 28 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ()), (char *) NU
7f00: 4c 4c 29 3b 0a 09 20 20 20 20 72 65 73 20 3d 20 LL);.. res =
7f10: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 TCL_ERROR;..
7f20: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 20 20 goto done;..}.
7f30: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 }.. /* Fina
7f40: 6c 69 7a 65 20 64 61 74 61 20 61 6e 64 20 77 72 lize data and wr
7f50: 69 74 65 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e ite any remainin
7f60: 67 20 64 61 74 61 20 69 6e 20 62 6c 6f 63 6b 20 g data in block
7f70: 2a 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 */. if ((res
7f80: 3d 20 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a = EncryptFinaliz
7f90: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
7fa0: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f ctx, out_buf, &o
7fb0: 75 74 5f 6c 65 6e 29 29 20 3d 3d 20 54 43 4c 5f ut_len)) == TCL_
7fc0: 4f 4b 29 20 7b 0a 09 69 66 20 28 6f 75 74 5f 6c OK) {..if (out_l
7fd0: 65 6e 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 6c en > 0) {.. l
7fe0: 65 6e 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f 57 en = (int) Tcl_W
7ff0: 72 69 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f riteRaw(out, (co
8000: 6e 73 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f nst char *) out_
8010: 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 buf, (Tcl_Size)
8020: 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 69 out_len);.. i
8030: 66 20 28 6c 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 f (len >= 0) {..
8040: 09 74 6f 74 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 .total += len;..
8050: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 } else {...T
8060: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
8070: 69 6e 74 65 72 70 2c 20 22 57 72 69 74 65 20 65 interp, "Write e
8080: 72 72 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 rror: ", Tcl_Err
8090: 6e 6f 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 noMsg(Tcl_GetErr
80a0: 6e 6f 28 29 29 2c 20 28 63 68 61 72 20 2a 29 20 no()), (char *)
80b0: 4e 55 4c 4c 29 3b 0a 09 09 72 65 73 20 3d 20 54 NULL);...res = T
80c0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f CL_ERROR;...goto
80d0: 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d done;.. }..}
80e0: 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 ..Tcl_SetObjResu
80f0: 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e lt(interp, Tcl_N
8100: 65 77 49 6e 74 4f 62 6a 28 74 6f 74 61 6c 29 29 ewIntObj(total))
8110: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
8120: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d goto done;. }
8130: 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 43 ..done:. /* C
8140: 6c 65 61 6e 20 75 70 20 2a 2f 0a 20 20 20 20 69 lean up */. i
8150: 66 20 28 69 6e 20 21 3d 20 4e 55 4c 4c 29 20 7b f (in != NULL) {
8160: 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 ..Tcl_Close(inte
8170: 72 70 2c 20 69 6e 29 3b 0a 20 20 20 20 7d 0a 20 rp, in);. }.
8180: 20 20 20 69 66 20 28 6f 75 74 20 21 3d 20 4e 55 if (out != NU
8190: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 LL) {..Tcl_Close
81a0: 28 69 6e 74 65 72 70 2c 20 6f 75 74 29 3b 0a 20 (interp, out);.
81b0: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 63 74 78 }. if (ctx
81c0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 != NULL) {..EVP
81d0: 5f 43 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 _CIPHER_CTX_free
81e0: 28 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 (ctx);. }.
81f0: 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a return res;.}..
8200: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a /***************
8210: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8230: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8240: 2a 2a 2a 2a 2f 0a 0a 73 74 61 74 69 63 20 63 6f ****/..static co
8250: 6e 73 74 20 63 68 61 72 20 2a 63 6f 6d 6d 61 6e nst char *comman
8260: 64 5f 6f 70 74 73 20 5b 5d 20 3d 20 7b 0a 20 20 d_opts [] = {.
8270: 20 20 22 2d 63 68 61 6e 22 2c 20 22 2d 63 68 61 "-chan", "-cha
8280: 6e 6e 65 6c 22 2c 20 22 2d 63 69 70 68 65 72 22 nnel", "-cipher"
8290: 2c 20 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 22 2d , "-command", "-
82a0: 64 61 74 61 22 2c 20 22 2d 64 69 67 65 73 74 22 data", "-digest"
82b0: 2c 20 22 2d 69 6e 66 69 6c 65 22 2c 20 22 2d 66 , "-infile", "-f
82c0: 69 6c 65 6e 61 6d 65 22 2c 0a 20 20 20 20 22 2d ilename",. "-
82d0: 6f 75 74 66 69 6c 65 22 2c 20 22 2d 68 61 73 68 outfile", "-hash
82e0: 22 2c 20 22 2d 69 76 22 2c 20 22 2d 6b 65 79 22 ", "-iv", "-key"
82f0: 2c 20 22 2d 6d 61 63 22 2c 20 4e 55 4c 4c 7d 3b , "-mac", NULL};
8300: 0a 0a 65 6e 75 6d 20 5f 63 6f 6d 6d 61 6e 64 5f ..enum _command_
8310: 6f 70 74 73 20 7b 0a 20 20 20 20 5f 6f 70 74 5f opts {. _opt_
8320: 63 68 61 6e 2c 20 5f 6f 70 74 5f 63 68 61 6e 6e chan, _opt_chann
8330: 65 6c 2c 20 5f 6f 70 74 5f 63 69 70 68 65 72 2c el, _opt_cipher,
8340: 20 5f 6f 70 74 5f 63 6f 6d 6d 61 6e 64 2c 20 5f _opt_command, _
8350: 6f 70 74 5f 64 61 74 61 2c 20 5f 6f 70 74 5f 64 opt_data, _opt_d
8360: 69 67 65 73 74 2c 20 5f 6f 70 74 5f 69 6e 66 69 igest, _opt_infi
8370: 6c 65 2c 0a 20 20 20 20 5f 6f 70 74 5f 66 69 6c le,. _opt_fil
8380: 65 6e 61 6d 65 2c 20 5f 6f 70 74 5f 6f 75 74 66 ename, _opt_outf
8390: 69 6c 65 2c 20 5f 6f 70 74 5f 68 61 73 68 2c 20 ile, _opt_hash,
83a0: 5f 6f 70 74 5f 69 76 2c 20 5f 6f 70 74 5f 6b 65 _opt_iv, _opt_ke
83b0: 79 2c 20 5f 6f 70 74 5f 6d 61 63 0a 7d 3b 0a 0a y, _opt_mac.};..
83c0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
83d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8400: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
8410: 6e 63 72 79 70 74 4d 61 69 6e 20 2d 2d 0a 20 2a ncryptMain --. *
8420: 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e 63 72 . *.Perform encr
8430: 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 yption function
8440: 61 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c and return resul
8450: 74 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 t.. *. * Returns
8460: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 :. *.TCL_OK or T
8470: 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 CL_ERROR. *. * S
8480: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
8490: 53 65 74 73 20 72 65 73 75 6c 74 20 6f 72 20 65 Sets result or e
84a0: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a rror message. *.
84b0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
84c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
84f0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
8500: 20 69 6e 74 20 45 6e 63 72 79 70 74 4d 61 69 6e int EncryptMain
8510: 28 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 49 (int type, Tcl_I
8520: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
8530: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
8540: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 *const objv[])
8550: 7b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 {. Tcl_Obj *c
8560: 69 70 68 65 72 4f 62 6a 20 3d 20 4e 55 4c 4c 2c ipherObj = NULL,
8570: 20 2a 63 6d 64 4f 62 6a 20 3d 20 4e 55 4c 4c 2c *cmdObj = NULL,
8580: 20 2a 64 61 74 61 4f 62 6a 20 3d 20 4e 55 4c 4c *dataObj = NULL
8590: 2c 20 2a 64 69 67 65 73 74 4f 62 6a 20 3d 20 4e , *digestObj = N
85a0: 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a ULL;. Tcl_Obj
85b0: 20 2a 69 6e 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 *inFileObj = NU
85c0: 4c 4c 2c 20 2a 6f 75 74 46 69 6c 65 4f 62 6a 20 LL, *outFileObj
85d0: 3d 20 4e 55 4c 4c 2c 20 2a 6b 65 79 4f 62 6a 20 = NULL, *keyObj
85e0: 3d 20 4e 55 4c 4c 2c 20 2a 69 76 4f 62 6a 20 3d = NULL, *ivObj =
85f0: 20 4e 55 4c 4c 2c 20 2a 6d 61 63 4f 62 6a 20 3d NULL, *macObj =
8600: 20 4e 55 4c 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 NULL;. const
8610: 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 20 3d char *channel =
8620: 20 4e 55 4c 4c 2c 20 2a 6f 70 74 3b 0a 20 20 20 NULL, *opt;.
8630: 20 69 6e 74 20 72 65 73 2c 20 73 74 61 72 74 20 int res, start
8640: 3d 20 31 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a = 1;. Tcl_Siz
8650: 65 20 66 6e 3b 0a 0a 20 20 20 20 64 70 72 69 6e e fn;.. dprin
8660: 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 tf("Called");..
8670: 20 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 /* Clear inte
8680: 72 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 rp result */.
8690: 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 Tcl_ResetResult
86a0: 28 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f (interp);.. /
86b0: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 * Validate arg c
86c0: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ount */. if (
86d0: 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 objc < 3 || objc
86e0: 20 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 > 12) {..Tcl_Wr
86f0: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
8700: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 63 p, 1, objv, "?-c
8710: 69 70 68 65 72 3f 20 6e 61 6d 65 20 3f 2d 64 69 ipher? name ?-di
8720: 67 65 73 74 20 6e 61 6d 65 3f 20 2d 6b 65 79 20 gest name? -key
8730: 6b 65 79 20 3f 2d 69 76 20 73 74 72 69 6e 67 3f key ?-iv string?
8740: 20 3f 2d 6d 61 63 20 6e 61 6d 65 3f 20 5b 2d 63 ?-mac name? [-c
8750: 68 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 63 hannel chan | -c
8760: 6f 6d 6d 61 6e 64 20 63 6d 64 4e 61 6d 65 20 7c ommand cmdName |
8770: 20 2d 69 6e 66 69 6c 65 20 66 69 6c 65 6e 61 6d -infile filenam
8780: 65 20 2d 6f 75 74 66 69 6c 65 20 66 69 6c 65 6e e -outfile filen
8790: 61 6d 65 20 7c 20 3f 2d 64 61 74 61 3f 20 64 61 ame | ?-data? da
87a0: 74 61 5d 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 ta]");..return T
87b0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
87c0: 0a 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 . /* Special
87d0: 63 61 73 65 20 6f 66 20 66 69 72 73 74 20 61 72 case of first ar
87e0: 67 20 69 73 20 63 69 70 68 65 72 20 2a 2f 0a 20 g is cipher */.
87f0: 20 20 20 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 opt = Tcl_Get
8800: 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 StringFromObj(ob
8810: 6a 76 5b 73 74 61 72 74 5d 2c 20 28 54 63 6c 5f jv[start], (Tcl_
8820: 53 69 7a 65 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 Size *) NULL);.
8830: 20 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d if (opt[0] !=
8840: 20 27 2d 27 29 20 7b 0a 09 73 77 69 74 63 68 28 '-') {..switch(
8850: 74 79 70 65 29 20 7b 0a 09 63 61 73 65 20 54 59 type) {..case TY
8860: 50 45 5f 45 4e 43 52 59 50 54 3a 0a 09 63 61 73 PE_ENCRYPT:..cas
8870: 65 20 54 59 50 45 5f 44 45 43 52 59 50 54 3a 0a e TYPE_DECRYPT:.
8880: 09 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d . cipherObj =
8890: 20 6f 62 6a 76 5b 73 74 61 72 74 2b 2b 5d 3b 0a objv[start++];.
88a0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 . break;..}.
88b0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
88c0: 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 options */.
88d0: 66 6f 72 20 28 69 6e 74 20 69 64 78 20 3d 20 73 for (int idx = s
88e0: 74 61 72 74 3b 20 69 64 78 20 3c 20 6f 62 6a 63 tart; idx < objc
88f0: 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 2f 2a 20 53 ; idx++) {../* S
8900: 70 65 63 69 61 6c 20 63 61 73 65 20 66 6f 72 20 pecial case for
8910: 77 68 65 6e 20 6c 61 73 74 20 61 72 67 20 69 73 when last arg is
8920: 20 64 61 74 61 20 2a 2f 0a 09 69 66 20 28 69 64 data */..if (id
8930: 78 20 3d 3d 20 6f 62 6a 63 20 2d 20 31 29 20 7b x == objc - 1) {
8940: 0a 09 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 ..opt = Tcl_GetS
8950: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
8960: 76 5b 69 64 78 5d 2c 20 28 54 63 6c 5f 53 69 7a v[idx], (Tcl_Siz
8970: 65 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 e *) NULL);..
8980: 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 if (opt[0] != '
8990: 2d 27 20 26 26 20 64 61 74 61 4f 62 6a 20 3d 3d -' && dataObj ==
89a0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 64 61 74 61 4f NULL) {...dataO
89b0: 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a bj = objv[idx];.
89c0: 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 20 7d 0a ..break;.. }.
89d0: 09 7d 0a 0a 09 2f 2a 20 47 65 74 20 6f 70 74 69 .}.../* Get opti
89e0: 6f 6e 20 2a 2f 0a 09 69 66 20 28 54 63 6c 5f 47 on */..if (Tcl_G
89f0: 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 etIndexFromObj(i
8a00: 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 64 78 5d nterp, objv[idx]
8a10: 2c 20 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 2c 20 , command_opts,
8a20: 22 6f 70 74 69 6f 6e 22 2c 20 30 2c 20 26 66 6e "option", 0, &fn
8a30: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
8a40: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
8a50: 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 56 61 RROR;..}.../* Va
8a60: 6c 69 64 61 74 65 20 61 72 67 20 68 61 73 20 61 lidate arg has a
8a70: 20 76 61 6c 75 65 20 2a 2f 0a 09 69 66 20 28 2b value */..if (+
8a80: 2b 69 64 78 20 3e 3d 20 6f 62 6a 63 29 20 7b 0a +idx >= objc) {.
8a90: 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 . Tcl_AppendR
8aa0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e esult(interp, "N
8ab0: 6f 20 76 61 6c 75 65 20 66 6f 72 20 6f 70 74 69 o value for opti
8ac0: 6f 6e 20 5c 22 22 2c 20 63 6f 6d 6d 61 6e 64 5f on \"", command_
8ad0: 6f 70 74 73 5b 66 6e 5d 2c 20 22 5c 22 22 2c 20 opts[fn], "\"",
8ae0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
8af0: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
8b00: 52 3b 0a 20 20 20 20 7d 0a 0a 09 73 77 69 74 63 R;. }...switc
8b10: 68 28 66 6e 29 20 7b 0a 09 63 61 73 65 20 5f 6f h(fn) {..case _o
8b20: 70 74 5f 63 68 61 6e 3a 0a 09 63 61 73 65 20 5f pt_chan:..case _
8b30: 6f 70 74 5f 63 68 61 6e 6e 65 6c 3a 0a 20 20 20 opt_channel:.
8b40: 20 09 20 20 20 20 47 45 54 5f 4f 50 54 5f 53 54 . GET_OPT_ST
8b50: 52 49 4e 47 28 6f 62 6a 76 5b 69 64 78 5d 2c 20 RING(objv[idx],
8b60: 63 68 61 6e 6e 65 6c 2c 20 4e 55 4c 4c 29 3b 0a channel, NULL);.
8b70: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
8b80: 65 20 5f 6f 70 74 5f 63 69 70 68 65 72 3a 0a 09 e _opt_cipher:..
8b90: 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d 20 cipherObj =
8ba0: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8bb0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8bc0: 74 5f 63 6f 6d 6d 61 6e 64 3a 0a 09 20 20 20 20 t_command:..
8bd0: 63 6d 64 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 cmdObj = objv[id
8be0: 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a x];.. break;.
8bf0: 09 63 61 73 65 20 5f 6f 70 74 5f 64 61 74 61 3a .case _opt_data:
8c00: 0a 09 20 20 20 20 64 61 74 61 4f 62 6a 20 3d 20 .. dataObj =
8c10: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8c20: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8c30: 74 5f 64 69 67 65 73 74 3a 0a 09 63 61 73 65 20 t_digest:..case
8c40: 5f 6f 70 74 5f 68 61 73 68 3a 0a 09 20 20 20 20 _opt_hash:..
8c50: 64 69 67 65 73 74 4f 62 6a 20 3d 20 6f 62 6a 76 digestObj = objv
8c60: 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 [idx];.. brea
8c70: 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 6e k;..case _opt_in
8c80: 66 69 6c 65 3a 0a 09 63 61 73 65 20 5f 6f 70 74 file:..case _opt
8c90: 5f 66 69 6c 65 6e 61 6d 65 3a 0a 09 20 20 20 20 _filename:..
8ca0: 69 6e 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 inFileObj = objv
8cb0: 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 [idx];.. brea
8cc0: 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6f 75 k;..case _opt_ou
8cd0: 74 66 69 6c 65 3a 0a 09 20 20 20 20 6f 75 74 46 tfile:.. outF
8ce0: 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 ileObj = objv[id
8cf0: 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a x];.. break;.
8d00: 09 63 61 73 65 20 5f 6f 70 74 5f 69 76 3a 0a 09 .case _opt_iv:..
8d10: 20 20 20 20 69 76 4f 62 6a 20 3d 20 6f 62 6a 76 ivObj = objv
8d20: 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 [idx];.. brea
8d30: 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6b 65 k;..case _opt_ke
8d40: 79 3a 0a 09 20 20 20 20 6b 65 79 4f 62 6a 20 3d y:.. keyObj =
8d50: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8d60: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8d70: 70 74 5f 6d 61 63 3a 0a 09 20 20 20 20 6d 61 63 pt_mac:.. mac
8d80: 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b Obj = objv[idx];
8d90: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a .. break;..}.
8da0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 }.. /* Ch
8db0: 65 63 6b 20 66 6f 72 20 72 65 71 75 69 72 65 64 eck for required
8dc0: 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 options */.
8dd0: 69 66 20 28 63 69 70 68 65 72 4f 62 6a 20 3d 3d if (cipherObj ==
8de0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
8df0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
8e00: 70 2c 20 22 4e 6f 20 63 69 70 68 65 72 22 2c 20 p, "No cipher",
8e10: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
8e20: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6b } else if (k
8e30: 65 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b eyObj == NULL) {
8e40: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
8e50: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6b lt(interp, "No k
8e60: 65 79 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ey", (char *) NU
8e70: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
8e80: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
8e90: 20 20 20 2f 2a 20 50 65 72 66 6f 72 6d 20 65 6e /* Perform en
8ea0: 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f cryption functio
8eb0: 6e 20 6f 6e 20 66 69 6c 65 2c 20 73 74 61 63 6b n on file, stack
8ec0: 65 64 20 63 68 61 6e 6e 65 6c 2c 20 75 73 69 6e ed channel, usin
8ed0: 67 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 g instance comma
8ee0: 6e 64 2c 20 6f 72 20 64 61 74 61 20 62 6c 6f 62 nd, or data blob
8ef0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 46 69 */. if (inFi
8f00: 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 20 26 26 leObj != NULL &&
8f10: 20 6f 75 74 46 69 6c 65 4f 62 6a 20 21 3d 20 4e outFileObj != N
8f20: 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e ULL) {..res = En
8f30: 63 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 cryptFileHandler
8f40: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 69 (interp, type, i
8f50: 6e 46 69 6c 65 4f 62 6a 2c 20 6f 75 74 46 69 6c nFileObj, outFil
8f60: 65 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c eObj, cipherObj,
8f70: 20 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f digestObj, keyO
8f80: 62 6a 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 bj, ivObj);.
8f90: 7d 20 65 6c 73 65 20 69 66 20 28 63 68 61 6e 6e } else if (chann
8fa0: 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 el != NULL) {..r
8fb0: 65 73 20 3d 20 45 6e 63 72 79 70 74 43 68 61 6e es = EncryptChan
8fc0: 6e 65 6c 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 nelHandler(inter
8fd0: 70 2c 20 74 79 70 65 2c 20 63 68 61 6e 6e 65 6c p, type, channel
8fe0: 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 , cipherObj, dig
8ff0: 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 estObj, keyObj,
9000: 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c ivObj);. } el
9010: 73 65 20 69 66 20 28 63 6d 64 4f 62 6a 20 21 3d se if (cmdObj !=
9020: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 NULL) {..res =
9030: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 EncryptCommandHa
9040: 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 ndler(interp, ty
9050: 70 65 2c 20 63 6d 64 4f 62 6a 2c 20 63 69 70 68 pe, cmdObj, ciph
9060: 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a erObj, digestObj
9070: 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 , keyObj, ivObj)
9080: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 ;. } else if
9090: 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c (dataObj != NULL
90a0: 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 ) {..res = Encry
90b0: 70 74 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e ptDataHandler(in
90c0: 74 65 72 70 2c 20 74 79 70 65 2c 20 64 61 74 61 terp, type, data
90d0: 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 Obj, cipherObj,
90e0: 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 digestObj, keyOb
90f0: 6a 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d j, ivObj);. }
9100: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 else {..Tcl_App
9110: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
9120: 2c 20 22 4e 6f 20 6f 70 65 72 61 74 69 6f 6e 20 , "No operation
9130: 73 70 65 63 69 66 69 65 64 3a 20 55 73 65 20 2d specified: Use -
9140: 63 68 61 6e 6e 65 6c 2c 20 2d 63 6f 6d 6d 61 6e channel, -comman
9150: 64 2c 20 2d 64 61 74 61 2c 20 6f 72 20 2d 69 6e d, -data, or -in
9160: 66 69 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 28 63 file option", (c
9170: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
9180: 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a es = TCL_ERROR;.
9190: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
91a0: 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d res;.}../*. *--
91b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
91f0: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 -. *. * Encrypti
9200: 6f 6e 20 43 6f 6d 6d 61 6e 64 73 20 2d 2d 0a 20 on Commands --.
9210: 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e 63 *. *.Perform enc
9220: 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e ryption function
9230: 20 61 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 and return resu
9240: 6c 74 73 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e lts. *. * Return
9250: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
9260: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
9270: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
9280: 09 43 6f 6d 6d 61 6e 64 20 64 65 70 65 6e 64 65 .Command depende
9290: 6e 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d nt. *. *--------
92a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
92e0: 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 static int Encry
92f0: 70 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 ptObjCmd(ClientD
9300: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
9310: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
9320: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
9330: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
9340: 76 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 v[]) {. (void
9350: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 ) clientData;.
9360: 20 20 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 return Encrypt
9370: 4d 61 69 6e 28 54 59 50 45 5f 45 4e 43 52 59 50 Main(TYPE_ENCRYP
9380: 54 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c T, interp, objc,
9390: 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 objv);.}..stati
93a0: 63 20 69 6e 74 20 44 65 63 72 79 70 74 4f 62 6a c int DecryptObj
93b0: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
93c0: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 lientData, Tcl_I
93d0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
93e0: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
93f0: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 *const objv[])
9400: 7b 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 {. (void) cli
9410: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 72 65 74 entData;. ret
9420: 75 72 6e 20 45 6e 63 72 79 70 74 4d 61 69 6e 28 urn EncryptMain(
9430: 54 59 50 45 5f 44 45 43 52 59 50 54 2c 20 69 6e TYPE_DECRYPT, in
9440: 74 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 terp, objc, objv
9450: 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d );.}../*. *-----
9460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
94a0: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 5f 49 6e 69 *. * Encrypt_Ini
94b0: 74 69 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a tialize --. *. *
94c0: 09 43 72 65 61 74 65 20 6e 61 6d 65 73 70 61 63 .Create namespac
94d0: 65 2c 20 63 6f 6d 6d 61 6e 64 73 2c 20 61 6e 64 e, commands, and
94e0: 20 72 65 67 69 73 74 65 72 20 70 61 63 6b 61 67 register packag
94f0: 65 20 76 65 72 73 69 6f 6e 0a 20 2a 0a 20 2a 20 e version. *. *
9500: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
9510: 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a OK or TCL_ERROR.
9520: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
9530: 74 73 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 ts:. *.Creates c
9540: 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 2a 2d 2d 2d ommands. *. *---
9550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9590: 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 5f 45 6e 63 . */.int Tls_Enc
95a0: 72 79 70 74 43 6f 6d 6d 61 6e 64 73 28 54 63 6c ryptCommands(Tcl
95b0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
95c0: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 {. Tcl_Creat
95d0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
95e0: 72 70 2c 20 22 74 6c 73 3a 3a 65 6e 63 72 79 70 rp, "tls::encryp
95f0: 74 22 2c 20 45 6e 63 72 79 70 74 4f 62 6a 43 6d t", EncryptObjCm
9600: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
9610: 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 NULL, (Tcl_CmdDe
9620: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
9630: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
9640: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
9650: 72 70 2c 20 22 74 6c 73 3a 3a 64 65 63 72 79 70 rp, "tls::decryp
9660: 74 22 2c 20 44 65 63 72 79 70 74 4f 62 6a 43 6d t", DecryptObjCm
9670: 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 d, (ClientData)
9680: 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65 NULL, (Tcl_CmdDe
9690: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c leteProc *) NULL
96a0: 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 61 74 );. Tcl_Creat
96b0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
96c0: 72 70 2c 20 22 74 6c 73 3a 3a 75 6e 73 74 61 63 rp, "tls::unstac
96d0: 6b 32 22 2c 20 45 6e 63 72 79 70 74 55 6e 73 74 k2", EncryptUnst
96e0: 61 63 6b 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 ackObjCmd, (Clie
96f0: 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 ntData) NULL, (T
9700: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
9710: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 *) NULL);. r
9720: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
9730: 0a .