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 63 69 70 68 65 72 4e 61 6d char *cipherNam
0e10: 65 20 3d 20 20 4e 55 4c 4c 2c 20 2a 6b 65 79 20 e = NULL, *key
0e20: 3d 20 4e 55 4c 4c 2c 20 2a 69 76 20 3d 20 4e 55 = NULL, *iv = NU
0e30: 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 63 69 70 68 LL;. int ciph
0e40: 65 72 5f 6c 65 6e 20 3d 20 30 2c 20 6b 65 79 5f er_len = 0, key_
0e50: 6c 65 6e 20 3d 20 30 2c 20 69 76 5f 6c 65 6e 20 len = 0, iv_len
0e60: 3d 20 30 2c 20 72 65 73 3b 0a 0a 20 20 20 20 64 = 0, res;.. d
0e70: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
0e80: 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 65 6e ;.. /* Get en
0e90: 63 72 79 70 74 69 6f 6e 20 70 61 72 61 6d 65 74 cryption paramet
0ea0: 65 72 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 ers */. if (c
0eb0: 69 70 68 65 72 4f 62 6a 20 21 3d 20 4e 55 4c 4c ipherObj != NULL
0ec0: 29 20 7b 0a 09 63 69 70 68 65 72 4e 61 6d 65 20 ) {..cipherName
0ed0: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
0ee0: 72 6f 6d 4f 62 6a 28 63 69 70 68 65 72 4f 62 6a romObj(cipherObj
0ef0: 2c 20 26 63 69 70 68 65 72 5f 6c 65 6e 29 3b 0a , &cipher_len);.
0f00: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 6b 65 }. if (ke
0f10: 79 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a yObj != NULL) {.
0f20: 09 6b 65 79 20 3d 20 54 63 6c 5f 47 65 74 53 74 .key = Tcl_GetSt
0f30: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6b 65 79 4f ringFromObj(keyO
0f40: 62 6a 2c 20 26 6b 65 79 5f 6c 65 6e 29 3b 0a 20 bj, &key_len);.
0f50: 20 20 20 7d 0a 20 20 20 20 69 66 20 28 69 76 4f }. if (ivO
0f60: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 69 bj != NULL) {..i
0f70: 76 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e v = Tcl_GetStrin
0f80: 67 46 72 6f 6d 4f 62 6a 28 69 76 4f 62 6a 2c 20 gFromObj(ivObj,
0f90: 26 69 76 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a &iv_len);. }.
0fa0: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 69 70 68 . /* Get ciph
0fb0: 65 72 20 6e 61 6d 65 20 2a 2f 0a 23 69 66 20 4f er name */.#if O
0fc0: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
0fd0: 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 UMBER < 0x300000
0fe0: 30 30 4c 0a 20 20 20 20 63 69 70 68 65 72 20 3d 00L. cipher =
0ff0: 20 45 56 50 5f 67 65 74 5f 63 69 70 68 65 72 62 EVP_get_cipherb
1000: 79 6e 61 6d 65 28 63 69 70 68 65 72 4e 61 6d 65 yname(cipherName
1010: 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 63 69 70 );.#else. cip
1020: 68 65 72 20 3d 20 45 56 50 5f 43 49 50 48 45 52 her = EVP_CIPHER
1030: 5f 66 65 74 63 68 28 4e 55 4c 4c 2c 20 63 69 70 _fetch(NULL, cip
1040: 68 65 72 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a herName, NULL);.
1050: 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20 28 63 #endif. if (c
1060: 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 20 7b ipher == NULL) {
1070: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
1080: 6c 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 lt(interp, "Inva
1090: 6c 69 64 20 63 69 70 68 65 72 3a 20 5c 22 22 2c lid cipher: \"",
10a0: 20 63 69 70 68 65 72 4e 61 6d 65 2c 20 22 5c 22 cipherName, "\"
10b0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 ", NULL);..retur
10c0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
10d0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 }.. /* Creat
10e0: 65 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 e and initialize
10f0: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a the context */.
1100: 20 20 20 20 69 66 28 28 2a 63 74 78 20 3d 20 45 if((*ctx = E
1110: 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f 6e 65 VP_CIPHER_CTX_ne
1120: 77 28 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a w()) == NULL) {.
1130: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1140: 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 t(interp, "Memor
1150: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 y allocation err
1160: 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 or", (char *) NU
1170: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
1180: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
1190: 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 /* Initialize
11a0: 20 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2e 20 the operation.
11b0: 4e 65 65 64 20 61 70 70 72 6f 70 72 69 61 74 65 Need appropriate
11c0: 20 6b 65 79 20 61 6e 64 20 69 76 20 73 69 7a 65 key and iv size
11d0: 2e 20 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c . */.#if OPENSSL
11e0: 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 _VERSION_NUMBER
11f0: 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 < 0x30000000L.
1200: 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 if (type == TY
1210: 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 PE_ENCRYPT) {..r
1220: 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 es = EVP_Encrypt
1230: 49 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 63 69 Init_ex(*ctx, ci
1240: 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 6b 65 79 2c pher, NULL, key,
1250: 20 69 76 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 iv);. } else
1260: 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 65 {..res = EVP_De
1270: 63 72 79 70 74 49 6e 69 74 5f 65 78 28 2a 63 74 cryptInit_ex(*ct
1280: 78 2c 20 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c x, cipher, NULL,
1290: 20 6b 65 79 2c 20 69 76 29 3b 0a 20 20 20 20 7d key, iv);. }
12a0: 0a 23 65 6c 73 65 0a 09 4f 53 53 4c 5f 50 41 52 .#else..OSSL_PAR
12b0: 41 4d 20 70 61 72 61 6d 73 5b 32 5d 3b 0a 09 69 AM params[2];..i
12c0: 6e 74 20 69 6e 64 65 78 20 3d 20 30 3b 0a 0a 09 nt index = 0;...
12d0: 69 66 20 28 69 76 20 21 3d 20 4e 55 4c 4c 29 20 if (iv != NULL)
12e0: 7b 0a 09 20 20 20 20 70 61 72 61 6d 73 5b 69 6e {.. params[in
12f0: 64 65 78 2b 2b 5d 20 3d 20 4f 53 53 4c 5f 50 41 dex++] = OSSL_PA
1300: 52 41 4d 5f 63 6f 6e 73 74 72 75 63 74 5f 6f 63 RAM_construct_oc
1310: 74 65 74 5f 73 74 72 69 6e 67 28 4f 53 53 4c 5f tet_string(OSSL_
1320: 43 49 50 48 45 52 5f 50 41 52 41 4d 5f 49 56 2c CIPHER_PARAM_IV,
1330: 20 28 76 6f 69 64 20 2a 29 20 69 76 2c 20 28 73 (void *) iv, (s
1340: 69 7a 65 5f 74 29 20 69 76 5f 6c 65 6e 29 3b 0a ize_t) iv_len);.
1350: 09 7d 0a 09 70 61 72 61 6d 73 5b 69 6e 64 65 78 .}..params[index
1360: 5d 20 3d 20 4f 53 53 4c 5f 50 41 52 41 4d 5f 63 ] = OSSL_PARAM_c
1370: 6f 6e 73 74 72 75 63 74 5f 65 6e 64 28 29 3b 0a onstruct_end();.
1380: 0a 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d . if (type ==
1390: 20 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b TYPE_ENCRYPT) {
13a0: 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 ..res = EVP_Encr
13b0: 79 70 74 49 6e 69 74 5f 65 78 32 28 63 74 78 2c yptInit_ex2(ctx,
13c0: 20 63 69 70 68 65 72 2c 20 6b 65 79 2c 20 69 76 cipher, key, iv
13d0: 2c 20 70 61 72 61 6d 73 29 3b 0a 20 20 20 20 7d , params);. }
13e0: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
13f0: 56 50 5f 44 65 63 72 79 70 74 49 6e 69 74 5f 65 VP_DecryptInit_e
1400: 78 32 28 63 74 78 2c 20 63 69 70 68 65 72 2c 20 x2(ctx, cipher,
1410: 6b 65 79 2c 20 69 76 2c 20 70 61 72 61 6d 73 29 key, iv, params)
1420: 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a ;. }.#endif..
1430: 20 20 20 20 69 66 28 21 72 65 73 29 20 7b 0a 09 if(!res) {..
1440: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1450: 28 69 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 61 (interp, "Initia
1460: 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 lize failed: ",
1470: 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b REASON(), NULL);
1480: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
1490: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
14a0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
14b0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
14c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
1500: 6e 63 72 79 70 74 55 70 64 61 74 65 20 2d 2d 0a ncryptUpdate --.
1510: 20 2a 0a 20 2a 09 55 70 64 61 74 65 20 61 6e 20 *. *.Update an
1520: 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 encryption funct
1530: 69 6f 6e 20 77 69 74 68 20 64 61 74 61 0a 20 2a ion with data. *
1540: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
1550: 31 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 1 if successful
1560: 6f 72 20 30 20 66 6f 72 20 66 61 69 6c 75 72 65 or 0 for failure
1570: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
1580: 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 65 6e 63 cts:. *.Adds enc
1590: 72 79 70 74 65 64 20 64 61 74 61 20 74 6f 20 62 rypted data to b
15a0: 75 66 66 65 72 20 6f 72 20 73 65 74 73 20 72 65 uffer or sets re
15b0: 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 sult to error me
15c0: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
15d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
15f0: 2d 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 0a 20 --------------.
1610: 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 55 70 */.int EncryptUp
1620: 64 61 74 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 date(Tcl_Interp
1630: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 *interp, int typ
1640: 65 2c 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 e, EVP_CIPHER_CT
1650: 58 20 2a 63 74 78 2c 20 75 6e 73 69 67 6e 65 64 X *ctx, unsigned
1660: 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 2c 0a char *out_buf,.
1670: 09 69 6e 74 20 2a 6f 75 74 5f 6c 65 6e 2c 20 75 .int *out_len, u
1680: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 64 61 nsigned char *da
1690: 74 61 2c 20 69 6e 74 20 64 61 74 61 5f 6c 65 6e ta, int data_len
16a0: 29 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 3b ) {. int res;
16b0: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
16c0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
16d0: 20 45 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 Encrypt/decrypt
16e0: 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 data */. if
16f0: 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e (type == TYPE_EN
1700: 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 CRYPT) {..res =
1710: 45 56 50 5f 45 6e 63 72 79 70 74 55 70 64 61 74 EVP_EncryptUpdat
1720: 65 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 e(ctx, out_buf,
1730: 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 out_len, data, d
1740: 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 ata_len);. }
1750: 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 else {..res = EV
1760: 50 5f 44 65 63 72 79 70 74 55 70 64 61 74 65 28 P_DecryptUpdate(
1770: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 ctx, out_buf, ou
1780: 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 74 t_len, data, dat
1790: 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 a_len);. }..
17a0: 20 20 20 69 66 20 28 72 65 73 29 20 7b 0a 09 72 if (res) {..r
17b0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 eturn TCL_OK;.
17c0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
17d0: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
17e0: 65 72 70 2c 20 22 55 70 64 61 74 65 20 66 61 69 erp, "Update fai
17f0: 6c 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 led: ", REASON()
1800: 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e , NULL);..return
1810: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
1820: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d }.}../*. *------
1830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
1870: 0a 20 2a 20 45 6e 63 72 79 70 74 46 69 6e 61 6c . * EncryptFinal
1880: 69 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 46 69 6e ize --. *. *.Fin
1890: 61 6c 69 7a 65 20 61 6e 20 65 6e 63 72 79 70 74 alize an encrypt
18a0: 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a ion function. *.
18b0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
18c0: 43 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 CL_OK if success
18d0: 66 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 ful or TCL_ERROR
18e0: 20 66 6f 72 20 66 61 69 6c 75 72 65 20 77 69 74 for failure wit
18f0: 68 20 72 65 73 75 6c 74 20 73 65 74 0a 20 2a 09 h result set. *.
1900: 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 to error message
1910: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
1920: 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 65 6e ects:. *.Adds en
1930: 63 72 79 70 74 65 64 20 64 61 74 61 20 74 6f 20 crypted data to
1940: 62 75 66 66 65 72 20 6f 72 20 73 65 74 73 20 72 buffer or sets r
1950: 65 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d esult to error m
1960: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d essage. *. *----
1970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
19b0: 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 46 */.int EncryptF
19c0: 69 6e 61 6c 69 7a 65 28 54 63 6c 5f 49 6e 74 65 inalize(Tcl_Inte
19d0: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
19e0: 74 79 70 65 2c 20 45 56 50 5f 43 49 50 48 45 52 type, EVP_CIPHER
19f0: 5f 43 54 58 20 2a 63 74 78 2c 20 75 6e 73 69 67 _CTX *ctx, unsig
1a00: 6e 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 ned char *out_bu
1a10: 66 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f 6c 65 6e f,..int *out_len
1a20: 29 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 3b ) {. int res;
1a30: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
1a40: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
1a50: 20 46 69 6e 61 6c 69 7a 65 20 64 61 74 61 20 2a Finalize data *
1a60: 2f 0a 20 20 20 20 69 66 20 28 74 79 70 65 20 3d /. if (type =
1a70: 3d 20 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 = TYPE_ENCRYPT)
1a80: 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 {..res = EVP_Enc
1a90: 72 79 70 74 46 69 6e 61 6c 5f 65 78 28 63 74 78 ryptFinal_ex(ctx
1aa0: 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c , out_buf, out_l
1ab0: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
1ac0: 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 65 63 {..res = EVP_Dec
1ad0: 72 79 70 74 46 69 6e 61 6c 5f 65 78 28 63 74 78 ryptFinal_ex(ctx
1ae0: 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c , out_buf, out_l
1af0: 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 en);. }..
1b00: 69 66 20 28 72 65 73 29 20 7b 0a 09 72 65 74 75 if (res) {..retu
1b10: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d rn TCL_OK;. }
1b20: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 else {..Tcl_App
1b30: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
1b40: 2c 20 22 46 69 6e 61 6c 69 7a 65 20 66 61 69 6c , "Finalize fail
1b50: 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c ed: ", REASON(),
1b60: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
1b70: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
1b80: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
1b90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1ba0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
1bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c10: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
1c20: 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d tBlockModeProc -
1c30: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e -. *. *.This fun
1c40: 63 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 ction is invoked
1c50: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 by the generic
1c60: 49 4f 20 6c 65 76 65 6c 0a 20 2a 09 74 6f 20 73 IO level. *.to s
1c70: 65 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 et blocking and
1c80: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 nonblocking mode
1c90: 73 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 s.. *. * Returns
1ca0: 3a 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 :. *.0 if succes
1cb0: 73 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 sful or POSIX er
1cc0: 72 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c ror code if fail
1cd0: 65 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ed.. *. * Side e
1ce0: 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 ffects:. *.Sets
1cf0: 74 68 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 the device into
1d00: 62 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 blocking or nonb
1d10: 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a locking mode.. *
1d20: 09 43 61 6e 20 63 61 6c 6c 20 54 63 6c 5f 53 65 .Can call Tcl_Se
1d30: 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 2e 0a 20 tChannelError..
1d40: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
1d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d80: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
1d90: 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 42 6c ic int EncryptBl
1da0: 6f 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 ockModeProc(Clie
1db0: 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 ntData clientDat
1dc0: 61 2c 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 a, int mode) {.
1dd0: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
1de0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
1df0: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 ryptState *) cli
1e00: 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 entData;.. if
1e10: 20 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f (mode == TCL_MO
1e20: 44 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 DE_NONBLOCKING)
1e30: 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 {..statePtr->fla
1e40: 67 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 gs |= TLS_TCL_AS
1e50: 59 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 YNC;. } else
1e60: 7b 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 {..statePtr->fla
1e70: 67 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f gs &= ~(TLS_TCL_
1e80: 41 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 ASYNC);. }.
1e90: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f return 0;.}../
1ea0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
1eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ee0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
1ef0: 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 20 2d cryptCloseProc -
1f00: 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e -. *. *.This fun
1f10: 63 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 ction is invoked
1f20: 20 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 by the generic
1f30: 49 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 IO level to perf
1f40: 6f 72 6d 0a 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 orm. *.channel-t
1f50: 79 70 65 20 73 70 65 63 69 66 69 63 20 63 6c 65 ype specific cle
1f60: 61 6e 75 70 20 77 68 65 6e 20 74 68 65 20 63 68 anup when the ch
1f70: 61 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 2e annel is closed.
1f80: 20 41 6c 6c 0a 20 2a 09 71 75 65 75 65 64 20 6f All. *.queued o
1f90: 75 74 70 75 74 20 69 73 20 66 6c 75 73 68 65 64 utput is flushed
1fa0: 20 70 72 69 6f 72 20 74 6f 20 63 61 6c 6c 69 6e prior to callin
1fb0: 67 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e g this function.
1fc0: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
1fd0: 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 66 *.0 if successf
1fe0: 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f ul or POSIX erro
1ff0: 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 r code if failed
2000: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
2010: 65 63 74 73 3a 0a 20 2a 09 44 65 6c 65 74 65 73 ects:. *.Deletes
2020: 20 73 74 6f 72 65 64 20 73 74 61 74 65 20 64 61 stored state da
2030: 74 61 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ta.. *. *-------
2040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
2080: 0a 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 .int EncryptClos
2090: 65 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 eProc(ClientData
20a0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
20b0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 _Interp *interp)
20c0: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
20d0: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
20e0: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
20f0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 clientData;..
2100: 20 20 2f 2a 20 43 61 6e 63 65 6c 20 61 63 74 69 /* Cancel acti
2110: 76 65 20 74 69 6d 65 72 2c 20 69 66 20 61 6e 79 ve timer, if any
2120: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
2130: 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 ePtr->timer != (
2140: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
2150: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c NULL) {..Tcl_Del
2160: 65 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 eteTimerHandler(
2170: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 statePtr->timer)
2180: 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d ;..statePtr->tim
2190: 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 er = (Tcl_TimerT
21a0: 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 oken) NULL;.
21b0: 7d 0a 0a 20 20 20 20 2f 2a 20 4f 75 74 70 75 74 }.. /* Output
21c0: 20 72 65 6d 61 69 6e 69 6e 67 20 64 61 74 61 2c remaining data,
21d0: 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 if any */. i
21e0: 66 20 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 f (!(statePtr->f
21f0: 6c 61 67 73 20 26 20 43 48 41 4e 5f 45 4f 46 29 lags & CHAN_EOF)
2200: 29 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c ) {..Tcl_Channel
2210: 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 parent = Tcl_Ge
2220: 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 tStackedChannel(
2230: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
2240: 0a 09 69 6e 74 20 6f 75 74 5f 6c 65 6e 3b 0a 09 ..int out_len;..
2250: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6f 75 unsigned char ou
2260: 74 5f 62 75 66 5b 45 56 50 5f 4d 41 58 5f 42 4c t_buf[EVP_MAX_BL
2270: 4f 43 4b 5f 4c 45 4e 47 54 48 5d 3b 0a 0a 09 2f OCK_LENGTH];.../
2280: 2a 20 46 69 6e 61 6c 69 7a 65 20 66 75 6e 63 74 * Finalize funct
2290: 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 ion */..if (Encr
22a0: 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 yptFinalize(inte
22b0: 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 79 rp, statePtr->ty
22c0: 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 74 pe, statePtr->ct
22d0: 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 x, out_buf, &out
22e0: 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 _len) == TCL_OK)
22f0: 20 7b 0a 09 20 20 20 20 69 66 20 28 6f 75 74 5f {.. if (out_
2300: 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 69 6e 74 len > 0) {...int
2310: 20 6c 65 6e 20 3d 20 54 63 6c 5f 57 72 69 74 65 len = Tcl_Write
2320: 52 61 77 28 70 61 72 65 6e 74 2c 20 28 63 6f 6e Raw(parent, (con
2330: 73 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 st char *) out_b
2340: 75 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 09 uf, out_len);...
2350: 69 66 20 28 6c 65 6e 20 3c 20 30 29 20 7b 0a 09 if (len < 0) {..
2360: 09 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f . return Tcl_
2370: 47 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 7d 0a GetErrno();...}.
2380: 09 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b . }..} else {
2390: 0a 09 20 20 20 20 2f 2a 20 45 72 72 6f 72 20 2a .. /* Error *
23a0: 2f 0a 09 7d 0a 0a 09 73 74 61 74 65 50 74 72 2d /..}...statePtr-
23b0: 3e 66 6c 61 67 73 20 7c 3d 20 43 48 41 4e 5f 45 >flags |= CHAN_E
23c0: 4f 46 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OF;. }.. /
23d0: 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 * Clean-up */.
23e0: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 EncryptStateFr
23f0: 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 ee(statePtr);.
2400: 20 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f return 0;.}../
2410: 2a 0a 20 2a 20 53 61 6d 65 20 61 73 20 45 6e 63 *. * Same as Enc
2420: 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 20 62 75 ryptCloseProc bu
2430: 74 20 77 69 74 68 20 69 6e 64 69 76 69 64 75 61 t with individua
2440: 6c 20 72 65 61 64 20 61 6e 64 20 77 72 69 74 65 l read and write
2450: 20 63 6c 6f 73 65 20 63 6f 6e 74 72 6f 6c 0a 20 close control.
2460: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
2470: 63 72 79 70 74 43 6c 6f 73 65 32 50 72 6f 63 28 cryptClose2Proc(
2480: 43 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 ClientData insta
2490: 6e 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 nceData, Tcl_Int
24a0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
24b0: 20 66 6c 61 67 73 29 20 7b 0a 20 20 20 20 69 66 flags) {. if
24c0: 20 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f ((flags & (TCL_
24d0: 43 4c 4f 53 45 5f 52 45 41 44 20 7c 20 54 43 4c CLOSE_READ | TCL
24e0: 5f 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d _CLOSE_WRITE)) =
24f0: 3d 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 45 = 0) {..return E
2500: 6e 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 28 ncryptCloseProc(
2510: 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e instanceData, in
2520: 74 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 terp);. }.
2530: 20 72 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a return EINVAL;.
2540: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
2550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2590: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 49 6e 70 75 *. * EncryptInpu
25a0: 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 tProc --. *. *.C
25b0: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e alled by the gen
25c0: 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 eric IO system t
25d0: 6f 20 72 65 61 64 20 64 61 74 61 20 66 72 6f 6d o read data from
25e0: 20 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 0a 20 transform and.
25f0: 2a 09 70 6c 61 63 65 20 69 6e 20 62 75 66 2e 20 *.place in buf.
2600: 54 72 61 6e 73 66 6f 72 6d 20 67 65 74 73 20 64 Transform gets d
2610: 61 74 61 20 66 72 6f 6d 20 74 68 65 20 75 6e 64 ata from the und
2620: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
2630: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
2640: 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 72 *.Total bytes r
2650: 65 61 64 20 6f 72 20 2d 31 20 66 6f 72 20 61 6e ead or -1 for an
2660: 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 74 error along wit
2670: 68 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 0a h a POSIX error.
2680: 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f 72 *.code in error
2690: 43 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 47 CodePtr. Use EAG
26a0: 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 6b AIN for nonblock
26b0: 69 6e 67 20 61 6e 64 20 6e 6f 20 64 61 74 61 2e ing and no data.
26c0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
26d0: 63 74 73 3a 0a 20 2a 09 52 65 61 64 20 64 61 74 cts:. *.Read dat
26e0: 61 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d a from transform
26f0: 20 61 6e 64 20 77 72 69 74 65 20 74 6f 20 62 75 and write to bu
2700: 66 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d f. *. *---------
2710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2750: 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 49 6e 70 /.int EncryptInp
2760: 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 utProc(ClientDat
2770: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 68 a clientData, ch
2780: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 52 ar *buf, int toR
2790: 65 61 64 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 ead, int *errorC
27a0: 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 20 45 6e odePtr) {. En
27b0: 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 cryptState *stat
27c0: 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 ePtr = (EncryptS
27d0: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
27e0: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ta;. Tcl_Chan
27f0: 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 nel parent;.
2800: 69 6e 74 20 72 65 61 64 2c 20 6f 75 74 5f 6c 65 int read, out_le
2810: 6e 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 n;. *errorCod
2820: 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 63 68 ePtr = 0;. ch
2830: 61 72 20 2a 69 6e 5f 62 75 66 3b 0a 20 20 20 20 ar *in_buf;.
2840: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
2850: 20 6e 6f 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 nothing to proc
2860: 65 73 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 ess */. if (t
2870: 6f 52 65 61 64 20 3c 3d 20 30 20 7c 7c 20 73 74 oRead <= 0 || st
2880: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 atePtr->self ==
2890: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
28a0: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b LL) {..return 0;
28b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
28c0: 65 74 20 62 79 74 65 73 20 66 72 6f 6d 20 75 6e et bytes from un
28d0: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
28e0: 20 2a 2f 0a 20 20 20 20 69 6e 5f 62 75 66 20 3d */. in_buf =
28f0: 20 54 63 6c 5f 41 6c 6c 6f 63 28 74 6f 52 65 61 Tcl_Alloc(toRea
2900: 64 29 3b 0a 20 20 20 20 70 61 72 65 6e 74 20 3d d);. parent =
2910: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
2920: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
2930: 3e 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 61 64 >self);. read
2940: 20 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 70 = Tcl_ReadRaw(p
2950: 61 72 65 6e 74 2c 20 69 6e 5f 62 75 66 2c 20 74 arent, in_buf, t
2960: 6f 52 65 61 64 29 3b 0a 0a 20 20 20 20 2f 2a 20 oRead);.. /*
2970: 55 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 Update function
2980: 2a 2f 0a 20 20 20 20 69 66 20 28 72 65 61 64 20 */. if (read
2990: 3e 20 30 29 20 7b 0a 09 2f 2a 20 48 61 76 65 20 > 0) {../* Have
29a0: 64 61 74 61 20 2d 20 55 70 64 61 74 65 20 66 75 data - Update fu
29b0: 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 nction */..if (E
29c0: 6e 63 72 79 70 74 55 70 64 61 74 65 28 73 74 61 ncryptUpdate(sta
29d0: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 tePtr->interp, s
29e0: 74 61 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 tatePtr->type, s
29f0: 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 62 75 tatePtr->ctx, bu
2a00: 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f f, &out_len, in_
2a10: 62 75 66 2c 20 72 65 61 64 29 20 3d 3d 20 54 43 buf, read) == TC
2a20: 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 2f 2a 20 L_OK) {.. /*
2a30: 49 66 20 68 61 76 65 20 64 61 74 61 2c 20 70 75 If have data, pu
2a40: 74 20 69 6e 20 62 75 66 2c 20 6f 74 68 65 72 77 t in buf, otherw
2a50: 69 73 65 20 74 65 6c 6c 20 54 43 4c 20 74 6f 20 ise tell TCL to
2a60: 74 72 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 try again */..
2a70: 20 20 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 if (out_len >
2a80: 30 29 20 7b 0a 09 09 72 65 61 64 20 3d 20 6f 75 0) {...read = ou
2a90: 74 5f 6c 65 6e 3b 0a 09 20 20 20 20 7d 20 65 6c t_len;.. } el
2aa0: 73 65 20 7b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 se {...*errorCod
2ab0: 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 ePtr = EAGAIN;..
2ac0: 09 72 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 .read = -1;..
2ad0: 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 }..} else {..
2ae0: 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c Tcl_SetChannel
2af0: 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e Error(statePtr->
2b00: 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 self, Tcl_ObjPri
2b10: 6e 74 66 28 22 55 70 64 61 74 65 20 66 61 69 6c ntf("Update fail
2b20: 65 64 3a 20 25 73 22 2c 20 52 45 41 53 4f 4e 28 ed: %s", REASON(
2b30: 29 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 )));.. *error
2b40: 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c CodePtr = EINVAL
2b50: 3b 0a 09 20 20 20 20 72 65 61 64 20 3d 20 30 3b ;.. read = 0;
2b60: 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 ..}.. } else
2b70: 69 66 20 28 72 65 61 64 20 3c 20 30 29 20 7b 0a if (read < 0) {.
2b80: 09 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a 09 2a 65 ./* Error */..*e
2b90: 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 rrorCodePtr = Tc
2ba0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 0a 20 l_GetErrno();..
2bb0: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 21 28 } else if (!(
2bc0: 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 statePtr->flags
2bd0: 26 20 43 48 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 & CHAN_EOF)) {..
2be0: 2f 2a 20 45 4f 46 20 2d 20 46 69 6e 61 6c 69 7a /* EOF - Finaliz
2bf0: 65 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 70 e function and p
2c00: 75 74 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 ut any remaining
2c10: 20 64 61 74 61 20 69 6e 20 62 75 66 20 2a 2f 0a data in buf */.
2c20: 09 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 .if (EncryptFina
2c30: 6c 69 7a 65 28 73 74 61 74 65 50 74 72 2d 3e 69 lize(statePtr->i
2c40: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
2c50: 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d >type, statePtr-
2c60: 3e 63 74 78 2c 20 62 75 66 2c 20 26 6f 75 74 5f >ctx, buf, &out_
2c70: 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 len) == TCL_OK)
2c80: 7b 0a 09 20 20 20 20 72 65 61 64 20 3d 20 6f 75 {.. read = ou
2c90: 74 5f 6c 65 6e 3b 0a 09 7d 20 65 6c 73 65 20 7b t_len;..} else {
2ca0: 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 .. Tcl_SetCha
2cb0: 6e 6e 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 nnelError(stateP
2cc0: 74 72 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 tr->self, Tcl_Ob
2cd0: 6a 50 72 69 6e 74 66 28 22 46 69 6e 61 6c 69 7a jPrintf("Finaliz
2ce0: 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 52 e failed: %s", R
2cf0: 45 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 20 20 EASON()));..
2d00: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2d10: 45 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 61 EINVAL;.. rea
2d20: 64 20 3d 20 30 3b 0a 09 7d 0a 0a 09 73 74 61 74 d = 0;..}...stat
2d30: 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 43 ePtr->flags |= C
2d40: 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d 0a 20 HAN_EOF;. }.
2d50: 20 20 20 54 63 6c 5f 46 72 65 65 28 69 6e 5f 62 Tcl_Free(in_b
2d60: 75 66 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 uf);. return
2d70: 72 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d read;.}../*. *--
2d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2dc0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 ----. *. * Encry
2dd0: 70 74 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a ptOutputProc --.
2de0: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
2df0: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 the generic IO s
2e00: 79 73 74 65 6d 20 74 6f 20 77 72 69 74 65 20 64 ystem to write d
2e10: 61 74 61 20 69 6e 20 62 75 66 20 74 6f 20 74 72 ata in buf to tr
2e20: 61 6e 73 66 6f 72 6d 2e 0a 20 2a 09 54 68 65 20 ansform.. *.The
2e30: 74 72 61 6e 73 66 6f 72 6d 20 77 72 69 74 65 73 transform writes
2e40: 20 74 68 65 20 72 65 73 75 6c 74 20 74 6f 20 74 the result to t
2e50: 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 he underlying ch
2e60: 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 annel.. *. * Ret
2e70: 75 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 62 urns:. *.Total b
2e80: 79 74 65 73 20 77 72 69 74 74 65 6e 20 6f 72 20 ytes written or
2e90: 2d 31 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 20 -1 for an error
2ea0: 61 6c 6f 6e 67 20 77 69 74 68 20 61 20 50 4f 53 along with a POS
2eb0: 49 58 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 65 IX error. *.code
2ec0: 20 69 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 72 in errorCodePtr
2ed0: 2e 20 55 73 65 20 45 41 47 41 49 4e 20 66 6f 72 . Use EAGAIN for
2ee0: 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 nonblocking and
2ef0: 20 63 61 6e 27 74 20 77 72 69 74 65 20 64 61 74 can't write dat
2f00: 61 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 a.. *. * Side ef
2f10: 66 65 63 74 73 3a 0a 20 2a 09 47 65 74 20 64 61 fects:. *.Get da
2f20: 74 61 20 66 72 6f 6d 20 62 75 66 20 61 6e 64 20 ta from buf and
2f30: 75 70 64 61 74 65 20 65 6e 63 72 79 70 74 69 6f update encryptio
2f40: 6e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d n. *. *---------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2f90: 2f 0a 20 69 6e 74 20 45 6e 63 72 79 70 74 4f 75 /. int EncryptOu
2fa0: 74 70 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 tputProc(ClientD
2fb0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
2fc0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 62 75 66 2c const char *buf,
2fd0: 20 69 6e 74 20 74 6f 57 72 69 74 65 2c 20 69 6e int toWrite, in
2fe0: 74 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 t *errorCodePtr)
2ff0: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
3000: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
3010: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
3020: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
3030: 20 69 6e 74 20 77 72 69 74 65 20 3d 20 30 2c 20 int write = 0,
3040: 6f 75 74 5f 6c 65 6e 3b 0a 20 20 20 20 2a 65 72 out_len;. *er
3050: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a rorCodePtr = 0;.
3060: 20 20 20 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 char *out_bu
3070: 66 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 f;.. /* Abort
3080: 20 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f 20 70 if nothing to p
3090: 72 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 69 66 rocess */. if
30a0: 20 28 74 6f 57 72 69 74 65 20 3c 3d 20 30 20 7c (toWrite <= 0 |
30b0: 7c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 | statePtr->self
30c0: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
30d0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
30e0: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
30f0: 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 41 6c out_buf = Tcl_Al
3100: 6c 6f 63 28 74 6f 57 72 69 74 65 2b 45 56 50 5f loc(toWrite+EVP_
3110: 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 MAX_BLOCK_LENGTH
3120: 29 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 );.. /* Updat
3130: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 e function */.
3140: 20 20 69 66 20 28 45 6e 63 72 79 70 74 55 70 64 if (EncryptUpd
3150: 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ate(statePtr->in
3160: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
3170: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
3180: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f ctx, out_buf, &o
3190: 75 74 5f 6c 65 6e 2c 20 62 75 66 2c 20 74 6f 57 ut_len, buf, toW
31a0: 72 69 74 65 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 rite) == TCL_OK)
31b0: 20 7b 0a 09 2f 2a 20 49 66 20 68 61 76 65 20 64 {../* If have d
31c0: 61 74 61 2c 20 6f 75 74 70 75 74 20 69 74 2c 20 ata, output it,
31d0: 6f 74 68 65 72 77 69 73 65 20 74 65 6c 6c 20 54 otherwise tell T
31e0: 43 4c 20 74 6f 20 74 72 79 20 61 67 61 69 6e 20 CL to try again
31f0: 2a 2f 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 */..if (out_len
3200: 3e 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f > 0) {.. Tcl_
3210: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d Channel parent =
3220: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
3230: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
3240: 3e 73 65 6c 66 29 3b 0a 09 20 20 20 20 77 72 69 >self);.. wri
3250: 74 65 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 te = Tcl_WriteRa
3260: 77 28 70 61 72 65 6e 74 2c 20 28 63 6f 6e 73 74 w(parent, (const
3270: 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 char *) out_buf
3280: 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 , out_len);..
3290: 20 77 72 69 74 65 20 3d 20 74 6f 57 72 69 74 65 write = toWrite
32a0: 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 ;..} else {..
32b0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d *errorCodePtr =
32c0: 20 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 EAGAIN;.. wr
32d0: 69 74 65 20 3d 20 2d 31 3b 0a 09 7d 0a 0a 20 20 ite = -1;..}..
32e0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
32f0: 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 SetChannelError(
3300: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 statePtr->self,
3310: 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 Tcl_ObjPrintf("U
3320: 70 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 73 pdate failed: %s
3330: 22 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 ", REASON()));..
3340: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
3350: 45 49 4e 56 41 4c 3b 0a 09 77 72 69 74 65 20 3d EINVAL;..write =
3360: 20 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 0;. }. Tc
3370: 6c 5f 46 72 65 65 28 6f 75 74 5f 62 75 66 29 3b l_Free(out_buf);
3380: 0a 20 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 . return writ
3390: 65 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d e;.}../*. *-----
33a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33e0: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 53 -. *. * EncryptS
33f0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a etOptionProc --.
3400: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
3410: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 the generic IO s
3420: 79 73 74 65 6d 20 74 6f 20 73 65 74 20 63 68 61 ystem to set cha
3430: 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 nnel option name
3440: 20 74 6f 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a to value.. *. *
3450: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
3460: 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 _OK if successfu
3470: 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 l or TCL_ERROR i
3480: 66 20 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 f failed along w
3490: 69 74 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 ith an error. *.
34a0: 6d 65 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 message in inter
34b0: 70 20 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 p and Tcl_SetErr
34c0: 6e 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 no.. *. * Side e
34d0: 66 66 65 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 ffects:. *.Updat
34e0: 65 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f es channel optio
34f0: 6e 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a n to new value..
3500: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3550: 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 static int Encry
3560: 70 74 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 ptSetOptionProc(
3570: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3580: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
3590: 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 p *interp, const
35a0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
35b0: 65 2c 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a e,..const char *
35c0: 6f 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 optionValue) {.
35d0: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
35e0: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
35f0: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 ryptState *) cli
3600: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c entData;. Tcl
3610: 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b _Channel parent;
3620: 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 53 . Tcl_DriverS
3630: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 etOptionProc *se
3640: 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 tOptionProc;..
3650: 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f /* Abort if no
3660: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
3670: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 if (statePtr->se
3680: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
3690: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
36a0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
36b0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c }.. /* Del
36c0: 65 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f egate options do
36d0: 77 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 wnstream */.
36e0: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
36f0: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
3700: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
3710: 20 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f setOptionPro
3720: 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 c = Tcl_ChannelS
3730: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c etOptionProc(Tcl
3740: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
3750: 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 parent));. if
3760: 20 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 (setOptionProc
3770: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 != NULL) {..retu
3780: 72 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50 72 rn (*setOptionPr
3790: 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e oc)(Tcl_GetChann
37a0: 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 elInstanceData(p
37b0: 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 arent), interp,
37c0: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 optionName, opti
37d0: 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 onValue);. }
37e0: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 65 74 45 else {..Tcl_SetE
37f0: 72 72 6e 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 72 rrno(EINVAL);..r
3800: 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 eturn Tcl_BadCha
3810: 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 nnelOption(inter
3820: 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e p, optionName, N
3830: 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f ULL);. }.}../
3840: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
3890: 20 45 6e 63 72 79 70 74 47 65 74 4f 70 74 69 6f EncryptGetOptio
38a0: 6e 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 nProc --. *. *.C
38b0: 61 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e alled by the gen
38c0: 65 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 eric IO system t
38d0: 6f 20 67 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 o get channel op
38e0: 74 69 6f 6e 20 6e 61 6d 65 27 73 20 76 61 6c 75 tion name's valu
38f0: 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 e.. *. * Returns
3900: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 :. *.TCL_OK if s
3910: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
3920: 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 _ERROR if failed
3930: 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e 20 65 along with an e
3940: 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 65 20 rror. *.message
3950: 69 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 54 63 in interp and Tc
3960: 6c 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a 0a 20 l_SetErrno.. *.
3970: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
3980: 20 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 *.Sets result t
3990: 6f 20 6f 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 o option's value
39a0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
39b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
39e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
39f0: 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 .static int Encr
3a00: 79 70 74 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 yptGetOptionProc
3a10: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
3a20: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ntData, Tcl_Inte
3a30: 72 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 rp *interp, cons
3a40: 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 t char *optionNa
3a50: 6d 65 2c 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 me,..Tcl_DString
3a60: 20 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b *optionValue) {
3a70: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
3a80: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
3a90: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
3aa0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 lientData;. T
3ab0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e cl_Channel paren
3ac0: 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 t;. Tcl_Drive
3ad0: 72 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a rGetOptionProc *
3ae0: 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a getOptionProc;..
3af0: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
3b00: 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 no channel */.
3b10: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
3b20: 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 self == (Tcl_Cha
3b30: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
3b40: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
3b50: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 . }.. /* D
3b60: 65 6c 65 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 elegate options
3b70: 64 6f 77 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 downstream */.
3b80: 20 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 parent = Tcl_G
3b90: 65 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c etStackedChannel
3ba0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
3bb0: 3b 0a 20 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 ;. getOptionP
3bc0: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
3bd0: 6c 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 lGetOptionProc(T
3be0: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 cl_GetChannelTyp
3bf0: 65 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 e(parent));.
3c00: 69 66 20 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f if (getOptionPro
3c10: 63 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 c != NULL) {..re
3c20: 74 75 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e turn (*getOption
3c30: 50 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 Proc)(Tcl_GetCha
3c40: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
3c50: 28 70 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 (parent), interp
3c60: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 , optionName, op
3c70: 74 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 tionValue);.
3c80: 7d 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f } else if (optio
3c90: 6e 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 nName == (char*)
3ca0: 20 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 52 65 71 NULL) {../* Req
3cb0: 75 65 73 74 20 69 73 20 71 75 65 72 79 20 66 6f uest is query fo
3cc0: 72 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 r all options, t
3cd0: 68 69 73 20 69 73 20 6f 6b 2e 20 2a 2f 0a 09 72 his is ok. */..r
3ce0: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 eturn TCL_OK;.
3cf0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
3d00: 53 65 74 45 72 72 6e 6f 28 45 49 4e 56 41 4c 29 SetErrno(EINVAL)
3d10: 3b 0a 09 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 ;..return Tcl_Ba
3d20: 64 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 dChannelOption(i
3d30: 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d nterp, optionNam
3d40: 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a e, NULL);. }.
3d50: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
3d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
3da0: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 54 69 6d 65 *. * EncryptTime
3db0: 72 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 rHandler --. *.
3dc0: 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 *.Called by the
3dd0: 6e 6f 74 69 66 69 65 72 20 76 69 61 20 74 69 6d notifier via tim
3de0: 65 72 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 20 er to flush out
3df0: 70 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 64 61 pending input da
3e00: 74 61 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ta.. *. * Return
3e10: 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a s:. *.Nothing. *
3e20: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
3e30: 3a 0a 20 2a 09 4d 61 79 20 63 61 6c 6c 20 54 63 :. *.May call Tc
3e40: 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 0a l_NotifyChannel.
3e50: 20 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3ea0: 73 74 61 74 69 63 20 76 6f 69 64 20 45 6e 63 72 static void Encr
3eb0: 79 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 yptTimerHandler(
3ec0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3ed0: 74 44 61 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 tData) {. Enc
3ee0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
3ef0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
3f00: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
3f10: 61 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 a;.. /* Abort
3f20: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a if no channel *
3f30: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
3f40: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
3f50: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
3f60: 7b 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d {..return;. }
3f70: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 .. /* Clear t
3f80: 69 6d 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 imer token */.
3f90: 20 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 statePtr->time
3fa0: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
3fb0: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 ken) NULL;..
3fc0: 2f 2a 20 46 69 72 65 20 65 76 65 6e 74 20 69 66 /* Fire event if
3fd0: 20 74 68 65 72 65 20 69 73 20 70 65 6e 64 69 6e there is pendin
3fe0: 67 20 64 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 g data, skip oth
3ff0: 65 72 77 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 erwise */. if
4000: 20 28 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 ((statePtr->wat
4010: 63 68 4d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 chMask & TCL_REA
4020: 44 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 DABLE) && (Tcl_I
4030: 6e 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 nputBuffered(sta
4040: 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 tePtr->self) > 0
4050: 29 29 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 )) {..Tcl_Notify
4060: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
4070: 2d 3e 73 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 ->self, TCL_READ
4080: 41 42 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a ABLE);. }.}..
4090: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
40a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
40e0: 2a 20 45 6e 63 72 79 70 74 57 61 74 63 68 50 72 * EncryptWatchPr
40f0: 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 oc --. *. *.Init
4100: 69 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 ialize the notif
4110: 69 65 72 20 74 6f 20 77 61 74 63 68 20 66 6f 72 ier to watch for
4120: 20 65 76 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 events from thi
4130: 73 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a s channel.. *. *
4140: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
4150: 68 69 6e 67 20 28 63 61 6e 27 74 20 72 65 74 75 hing (can't retu
4160: 72 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 rn error message
4170: 73 29 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 s). *. * Side ef
4180: 66 65 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 fects:. *.Config
4190: 75 72 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 ure notifier so
41a0: 66 75 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e future events on
41b0: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c the channel wil
41c0: 6c 20 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c l be seen by Tcl
41d0: 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d .. *. *---------
41e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
41f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4220: 2f 0a 76 6f 69 64 20 45 6e 63 72 79 70 74 57 61 /.void EncryptWa
4230: 74 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 tchProc(ClientDa
4240: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 ta clientData, i
4250: 6e 74 20 6d 61 73 6b 29 20 7b 0a 20 20 20 20 45 nt mask) {. E
4260: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 ncryptState *sta
4270: 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 tePtr = (Encrypt
4280: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
4290: 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 ata;. Tcl_Cha
42a0: 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 nnel parent;.
42b0: 20 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 68 Tcl_DriverWatch
42c0: 50 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 3b Proc *watchProc;
42d0: 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 .. /* Abort i
42e0: 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a f no channel */.
42f0: 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 if (statePtr
4300: 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 ->self == (Tcl_C
4310: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
4320: 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a .return;. }..
4330: 20 20 20 20 2f 2a 20 53 74 6f 72 65 20 4f 52 2d /* Store OR-
4340: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f ed combination o
4350: 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 f TCL_READABLE,
4360: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 TCL_WRITABLE and
4370: 20 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 20 2a TCL_EXCEPTION *
4380: 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e /. statePtr->
4390: 77 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b watchMask = mask
43a0: 3b 0a 0a 20 20 20 20 2f 2a 20 50 72 6f 70 61 67 ;.. /* Propag
43b0: 61 74 65 20 6d 61 73 6b 20 69 6e 66 6f 20 74 6f ate mask info to
43c0: 20 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 parent channel
43d0: 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 */. parent =
43e0: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
43f0: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
4400: 73 65 6c 66 29 3b 0a 20 20 20 20 77 61 74 63 68 self);. watch
4410: 50 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e Proc = Tcl_Chann
4420: 65 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f elWatchProc(Tcl_
4430: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 GetChannelType(p
4440: 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 74 arent));. wat
4450: 63 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 chProc(Tcl_GetCh
4460: 61 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 annelInstanceDat
4470: 61 28 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b 29 a(parent), mask)
4480: 3b 0a 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 ;.. /* Remove
4490: 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 20 2a pending timer *
44a0: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
44b0: 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 tr->timer != (Tc
44c0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
44d0: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 LL) {..Tcl_Delet
44e0: 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 eTimerHandler(st
44f0: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a atePtr->timer);.
4500: 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 .statePtr->timer
4510: 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b = (Tcl_TimerTok
4520: 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a en) NULL;. }.
4530: 0a 20 20 20 20 2f 2a 20 49 66 20 74 68 65 72 65 . /* If there
4540: 20 69 73 20 64 61 74 61 20 70 65 6e 64 69 6e 67 is data pending
4550: 2c 20 73 65 74 20 6e 65 77 20 74 69 6d 65 72 20 , set new timer
4560: 74 6f 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 to call Tcl_Noti
4570: 66 79 43 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 fyChannel */.
4580: 20 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c if ((mask & TCL
4590: 5f 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 54 _READABLE) && (T
45a0: 63 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 cl_InputBuffered
45b0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 (statePtr->self)
45c0: 20 3e 20 30 29 29 20 7b 0a 09 73 74 61 74 65 50 > 0)) {..stateP
45d0: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f tr->timer = Tcl_
45e0: 43 72 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c CreateTimerHandl
45f0: 65 72 28 52 45 41 44 5f 44 45 4c 41 59 2c 20 45 er(READ_DELAY, E
4600: 6e 63 72 79 70 74 54 69 6d 65 72 48 61 6e 64 6c ncryptTimerHandl
4610: 65 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 er, (ClientData)
4620: 20 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 statePtr);.
4630: 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d }.}../*. *------
4640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4680: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 47 65 . *. * EncryptGe
4690: 74 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 tHandleProc --.
46a0: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d *. *.Called from
46b0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 Tcl_GetChannelH
46c0: 61 6e 64 6c 65 20 74 6f 20 72 65 74 72 69 65 76 andle to retriev
46d0: 65 20 4f 53 20 73 70 65 63 69 66 69 63 20 66 69 e OS specific fi
46e0: 6c 65 20 68 61 6e 64 6c 65 0a 20 2a 09 66 72 6f le handle. *.fro
46f0: 6d 20 69 6e 73 69 64 65 20 74 68 69 73 20 63 68 m inside this ch
4700: 61 6e 6e 65 6c 2e 20 4e 6f 74 20 75 73 65 64 20 annel. Not used
4710: 66 6f 72 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 for transformati
4720: 6f 6e 73 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ons?. *. * Retur
4730: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 66 6f ns:. *.TCL_OK fo
4740: 72 20 73 75 63 63 65 73 73 20 6f 72 20 54 43 4c r success or TCL
4750: 5f 45 52 52 4f 52 20 66 6f 72 20 65 72 72 6f 72 _ERROR for error
4760: 20 6f 72 20 69 66 20 6e 6f 74 20 73 75 70 70 6f or if not suppo
4770: 72 74 65 64 2e 20 49 66 0a 20 2a 09 64 69 72 65 rted. If. *.dire
4780: 63 74 69 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 ction is TCL_REA
4790: 44 41 42 4c 45 2c 20 73 65 74 73 20 68 61 6e 64 DABLE, sets hand
47a0: 6c 65 50 74 72 20 74 6f 20 74 68 65 20 68 61 6e lePtr to the han
47b0: 64 6c 65 20 75 73 65 64 20 66 6f 72 0a 20 2a 09 dle used for. *.
47c0: 69 6e 70 75 74 2c 20 6f 72 20 69 66 20 54 43 4c input, or if TCL
47d0: 5f 57 52 49 54 41 42 4c 45 20 73 65 74 73 20 74 _WRITABLE sets t
47e0: 6f 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 o the handle use
47f0: 64 20 66 6f 72 20 6f 75 74 70 75 74 2e 0a 20 2a d for output.. *
4800: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
4810: 3a 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d :. *.None. *. *-
4820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4860: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
4870: 63 72 79 70 74 47 65 74 48 61 6e 64 6c 65 50 72 cryptGetHandlePr
4880: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
4890: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 64 69 ientData, int di
48a0: 72 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 rection, ClientD
48b0: 61 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 20 ata *handlePtr)
48c0: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
48d0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
48e0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
48f0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
4900: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 Tcl_Channel pare
4910: 6e 74 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 nt;.. /* Abor
4920: 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 t if no channel
4930: 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 */. if (state
4940: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
4950: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
4960: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
4970: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
4980: 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 parent = Tcl_Ge
4990: 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 tStackedChannel(
49a0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
49b0: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f . return Tcl_
49c0: 47 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 GetChannelHandle
49d0: 28 70 61 72 65 6e 74 2c 20 64 69 72 65 63 74 69 (parent, directi
49e0: 6f 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a on, handlePtr);.
49f0: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
4a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4a40: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 4e 6f 74 69 *. * EncryptNoti
4a50: 66 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 fyProc --. *. *.
4a60: 43 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f Called by Tcl to
4a70: 20 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 inform us of ac
4a80: 74 69 76 69 74 79 20 6f 6e 20 74 68 65 20 75 6e tivity on the un
4a90: 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c derlying channel
4aa0: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
4ab0: 0a 20 2a 09 55 6e 63 68 61 6e 67 65 64 20 69 6e . *.Unchanged in
4ac0: 74 65 72 65 73 74 4d 61 73 6b 20 77 68 69 63 68 terestMask which
4ad0: 20 69 73 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d is an OR-ed com
4ae0: 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f bination of TCL_
4af0: 52 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f READABLE or TCL_
4b00: 57 52 49 54 41 42 4c 45 0a 20 2a 0a 20 2a 20 53 WRITABLE. *. * S
4b10: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
4b20: 43 61 6e 63 65 6c 73 20 61 6e 79 20 70 65 6e 64 Cancels any pend
4b30: 69 6e 67 20 74 69 6d 65 72 2e 0a 20 2a 0a 20 2a ing timer.. *. *
4b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b80: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 ------. */.int E
4b90: 6e 63 72 79 70 74 4e 6f 74 69 66 79 50 72 6f 63 ncryptNotifyProc
4ba0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
4bb0: 6e 74 44 61 74 61 2c 20 69 6e 74 20 69 6e 74 65 ntData, int inte
4bc0: 72 65 73 74 4d 61 73 6b 29 20 7b 0a 20 20 20 20 restMask) {.
4bd0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 EncryptState *st
4be0: 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 atePtr = (Encryp
4bf0: 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 tState *) client
4c00: 44 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b Data;.. /* Sk
4c10: 69 70 20 74 69 6d 65 72 20 65 76 65 6e 74 20 61 ip timer event a
4c20: 73 20 72 65 64 75 6e 64 61 6e 74 20 2a 2f 0a 20 s redundant */.
4c30: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
4c40: 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 >timer != (Tcl_T
4c50: 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 imerToken) NULL)
4c60: 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 {..Tcl_DeleteTi
4c70: 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 merHandler(state
4c80: 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 Ptr->timer);..st
4c90: 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 atePtr->timer =
4ca0: 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 (Tcl_TimerToken)
4cb0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 NULL;. }.
4cc0: 20 72 65 74 75 72 6e 20 69 6e 74 65 72 65 73 74 return interest
4cd0: 4d 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 0a 20 Mask;.}../*. *.
4ce0: 2a 20 43 68 61 6e 6e 65 6c 20 74 79 70 65 20 73 * Channel type s
4cf0: 74 72 75 63 74 75 72 65 20 64 65 66 69 6e 69 74 tructure definit
4d00: 69 6f 6e 20 66 6f 72 20 65 6e 63 72 79 70 74 69 ion for encrypti
4d10: 6f 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f on transformatio
4d20: 6e 73 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 ns.. *. */.stati
4d30: 63 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e c const Tcl_Chan
4d40: 6e 65 6c 54 79 70 65 20 65 6e 63 72 79 70 74 43 nelType encryptC
4d50: 68 61 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 hannelType = {.
4d60: 20 20 20 22 65 6e 63 72 79 70 74 69 6f 6e 22 2c "encryption",
4d70: 09 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a ../* Type name *
4d80: 2f 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 /. TCL_CHANNE
4d90: 4c 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 L_VERSION_5,./*
4da0: 76 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 v5 channel */.
4db0: 20 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 50 72 EncryptClosePr
4dc0: 6f 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 oc,../* Close pr
4dd0: 6f 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 oc */. Encryp
4de0: 74 49 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 tInputProc,../*
4df0: 49 6e 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 Input proc */.
4e00: 20 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 50 EncryptOutputP
4e10: 72 6f 63 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 roc,../* Output
4e20: 70 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c proc */. NULL
4e30: 2c 09 09 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 ,.../* Seek proc
4e40: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 53 */. EncryptS
4e50: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a etOptionProc,./*
4e60: 20 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 Set option proc
4e70: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 */. EncryptG
4e80: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a etOptionProc,./*
4e90: 20 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 Get option proc
4ea0: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 57 */. EncryptW
4eb0: 61 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e atchProc,../* In
4ec0: 69 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 itialize notifie
4ed0: 72 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 r */. Encrypt
4ee0: 47 65 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 2f GetHandleProc,./
4ef0: 2a 20 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 * Get OS handles
4f00: 20 6f 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 out of channel
4f10: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 43 6c */. EncryptCl
4f20: 6f 73 65 32 50 72 6f 63 2c 09 09 2f 2a 20 63 6c ose2Proc,../* cl
4f30: 6f 73 65 32 70 72 6f 63 20 2a 2f 0a 20 20 20 20 ose2proc */.
4f40: 45 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 EncryptBlockMode
4f50: 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f Proc,./* Set blo
4f60: 63 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e cking/nonblockin
4f70: 67 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 4c g mode*/. NUL
4f80: 4c 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 L,.../* Flush pr
4f90: 6f 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 oc */. Encryp
4fa0: 74 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a tNotifyProc,../*
4fb0: 20 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 Handling of eve
4fc0: 6e 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20 nts bubbling up
4fd0: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
4fe0: 2a 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63 * Wide seek proc
4ff0: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 */. NULL,...
5000: 2f 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e /* Thread action
5010: 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f */. NULL.../
5020: 2a 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b * Truncate */.};
5030: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
5040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
5080: 0a 20 2a 20 45 6e 63 72 79 70 74 43 68 61 6e 6e . * EncryptChann
5090: 65 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a elHandler --. *.
50a0: 20 2a 09 43 72 65 61 74 65 20 61 20 73 74 61 63 *.Create a stac
50b0: 6b 65 64 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 ked channel for
50c0: 61 20 6d 65 73 73 61 67 65 20 65 6e 63 72 79 70 a message encryp
50d0: 74 69 6f 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 tion transformat
50e0: 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 ion.. *. * Retur
50f0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
5100: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
5110: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
5120: 2a 09 41 64 64 73 20 74 72 61 6e 73 66 6f 72 6d *.Adds transform
5130: 20 74 6f 20 63 68 61 6e 6e 65 6c 20 61 6e 64 20 to channel and
5140: 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 63 sets result to c
5150: 68 61 6e 6e 65 6c 20 69 64 20 6f 72 20 65 72 72 hannel id or err
5160: 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 or message.. *.
5170: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
5180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51b0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 -------. */.stat
51c0: 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 43 68 ic int EncryptCh
51d0: 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 54 63 6c annelHandler(Tcl
51e0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
51f0: 20 69 6e 74 20 74 79 70 65 2c 20 63 6f 6e 73 74 int type, const
5200: 20 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 2c 0a char *channel,.
5210: 09 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 .Tcl_Obj *cipher
5220: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 Obj, Tcl_Obj *di
5230: 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a gestObj, Tcl_Obj
5240: 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 *keyObj, Tcl_Ob
5250: 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 j *ivObj) {.
5260: 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d int mode; /* OR-
5270: 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f ed combination o
5280: 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 f TCL_READABLE a
5290: 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 nd TCL_WRITABLE
52a0: 2a 2f 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e */. Tcl_Chann
52b0: 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 45 6e 63 el chan;. Enc
52c0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
52d0: 50 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 Ptr;.. dprint
52e0: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
52f0: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
5300: 67 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 68 gs */. if (ch
5310: 61 6e 6e 65 6c 20 3d 3d 20 28 63 6f 6e 73 74 20 annel == (const
5320: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a char *) NULL) {.
5330: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5340: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5350: 20 47 65 74 20 63 68 61 6e 6e 65 6c 20 49 64 20 Get channel Id
5360: 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 */. chan = Tc
5370: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 6e 74 l_GetChannel(int
5380: 65 72 70 2c 20 63 68 61 6e 6e 65 6c 2c 20 26 6d erp, channel, &m
5390: 6f 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 ode);. if (ch
53a0: 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e an == (Tcl_Chann
53b0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 el) NULL) {..ret
53c0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
53d0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d 61 6b }.. /* Mak
53e0: 65 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 e sure to operat
53f0: 65 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 e on the topmost
5400: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5410: 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f chan = Tcl_GetTo
5420: 70 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a pChannel(chan);.
5430: 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 69 67 75 72 . /* Configur
5440: 65 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 e channel */.
5450: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 4f Tcl_SetChannelO
5460: 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 63 68 ption(interp, ch
5470: 61 6e 2c 20 22 2d 74 72 61 6e 73 6c 61 74 69 6f an, "-translatio
5480: 6e 22 2c 20 22 62 69 6e 61 72 79 22 29 3b 0a 0a n", "binary");..
5490: 20 20 20 20 2f 2a 20 43 72 65 61 74 65 20 73 74 /* Create st
54a0: 61 74 65 20 64 61 74 61 20 73 74 72 75 63 74 75 ate data structu
54b0: 72 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 73 re */. if ((s
54c0: 74 61 74 65 50 74 72 20 3d 20 45 6e 63 72 79 70 tatePtr = Encryp
54d0: 74 53 74 61 74 65 4e 65 77 28 69 6e 74 65 72 70 tStateNew(interp
54e0: 2c 20 74 79 70 65 29 29 20 3d 3d 20 4e 55 4c 4c , type)) == NULL
54f0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
5500: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d esult(interp, "M
5510: 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e emory allocation
5520: 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a error", (char *
5530: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
5540: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5550: 7d 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e }. statePtr->
5560: 73 65 6c 66 20 3d 20 63 68 61 6e 3b 0a 20 20 20 self = chan;.
5570: 20 73 74 61 74 65 50 74 72 2d 3e 6d 6f 64 65 20 statePtr->mode
5580: 3d 20 6d 6f 64 65 3b 0a 0a 20 20 20 20 2f 2a 20 = mode;.. /*
5590: 49 6e 69 74 69 61 6c 69 7a 65 20 66 75 6e 63 74 Initialize funct
55a0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 ion */. if (E
55b0: 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 ncryptInitialize
55c0: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 (interp, type, &
55d0: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 63 statePtr->ctx, c
55e0: 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a ipherObj, keyObj
55f0: 2c 20 69 76 4f 62 6a 29 20 21 3d 20 54 43 4c 5f , ivObj) != TCL_
5600: 4f 4b 29 20 7b 0a 09 45 6e 63 72 79 70 74 53 74 OK) {..EncryptSt
5610: 61 74 65 46 72 65 65 28 73 74 61 74 65 50 74 72 ateFree(statePtr
5620: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
5630: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
5640: 20 2f 2a 20 53 74 61 63 6b 20 63 68 61 6e 6e 65 /* Stack channe
5650: 6c 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 74 l */. statePt
5660: 72 2d 3e 73 65 6c 66 20 3d 20 54 63 6c 5f 53 74 r->self = Tcl_St
5670: 61 63 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 ackChannel(inter
5680: 70 2c 20 26 65 6e 63 72 79 70 74 43 68 61 6e 6e p, &encryptChann
5690: 65 6c 54 79 70 65 2c 20 28 43 6c 69 65 6e 74 44 elType, (ClientD
56a0: 61 74 61 29 20 73 74 61 74 65 50 74 72 2c 20 6d ata) statePtr, m
56b0: 6f 64 65 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 ode, chan);.
56c0: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 if (statePtr->se
56d0: 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e lf == (Tcl_Chann
56e0: 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 45 6e 63 el) NULL) {..Enc
56f0: 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 74 ryptStateFree(st
5700: 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 6e atePtr);..return
5710: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
5720: 7d 0a 0a 20 20 20 20 2f 2a 20 53 65 74 20 72 65 }.. /* Set re
5730: 73 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c 20 sult to channel
5740: 49 64 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 Id */. Tcl_Se
5750: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 tResult(interp,
5760: 28 63 68 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 (char *) Tcl_Get
5770: 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e ChannelName(chan
5780: 29 2c 20 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 ), TCL_VOLATILE)
5790: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
57a0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
57b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
57f0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 55 6e 73 74 61 63 ---. *. * Unstac
5800: 6b 20 43 68 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a k Channel --. *.
5810: 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f 6e *.This function
5820: 20 72 65 6d 6f 76 65 73 20 74 68 65 20 73 74 61 removes the sta
5830: 63 6b 65 64 20 63 68 61 6e 6e 65 6c 20 66 72 6f cked channel fro
5840: 6d 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 m the top of the
5850: 0a 20 2a 09 63 68 61 6e 6e 65 6c 20 73 74 61 63 . *.channel stac
5860: 6b 20 69 66 20 69 74 20 69 73 20 61 20 65 6e 63 k if it is a enc
5870: 72 79 70 74 69 6f 6e 20 63 68 61 6e 6e 65 6c 2e ryption channel.
5880: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
5890: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
58a0: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
58b0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 e effects:. *.Re
58c0: 6d 6f 76 65 73 20 74 72 61 6e 73 66 6f 72 6d 20 moves transform
58d0: 66 72 6f 6d 20 63 68 61 6e 6e 65 6c 20 6f 72 20 from channel or
58e0: 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 65 sets result to e
58f0: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
5900: 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
5930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 ---------. */.st
5950: 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 74 atic int Encrypt
5960: 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 28 43 6c UnstackObjCmd(Cl
5970: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
5980: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
5990: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
59a0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
59b0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
59c0: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e Tcl_Channel chan
59d0: 3b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 3b 20 ;. int mode;
59e0: 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 /* OR-ed combina
59f0: 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 tion of TCL_READ
5a00: 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 57 52 49 ABLE and TCL_WRI
5a10: 54 41 42 4c 45 20 20 2a 2f 0a 0a 20 20 20 20 64 TABLE */.. d
5a20: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
5a30: 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 ;.. /* Valida
5a40: 74 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a te arg count */.
5a50: 20 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 if (objc !=
5a60: 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 2) {..Tcl_WrongN
5a70: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 umArgs(interp, 1
5a80: 2c 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c , objv, "channel
5a90: 49 64 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 Id");..return TC
5aa0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
5ab0: 20 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e 6e /* Get chann
5ac0: 65 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d el */. chan =
5ad0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 Tcl_GetChannel(
5ae0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 interp, Tcl_GetS
5af0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
5b00: 76 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 26 6d 6f v[1], NULL), &mo
5b10: 64 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 de);. if (cha
5b20: 6e 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 n == (Tcl_Channe
5b30: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
5b40: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
5b50: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d 61 6b 65 }.. /* Make
5b60: 20 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 sure to operate
5b70: 20 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 on the topmost
5b80: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 channel */. c
5b90: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 han = Tcl_GetTop
5ba0: 43 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a Channel(chan);..
5bb0: 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 69 66 20 /* Check if
5bc0: 65 6e 63 72 79 70 74 69 6f 6e 20 63 68 61 6e 6e encryption chann
5bd0: 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 el */. if (Tc
5be0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
5bf0: 28 63 68 61 6e 29 20 21 3d 20 26 65 6e 63 72 79 (chan) != &encry
5c00: 70 74 43 68 61 6e 6e 65 6c 54 79 70 65 29 20 7b ptChannelType) {
5c10: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
5c20: 6c 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 lt(interp, "bad
5c30: 63 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c channel \"", Tcl
5c40: 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 _GetChannelName(
5c50: 63 68 61 6e 29 2c 0a 09 20 20 20 20 22 5c 22 3a chan),.. "\":
5c60: 20 6e 6f 74 20 61 20 65 6e 63 72 79 70 74 69 6f not a encryptio
5c70: 6e 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c n channel", NULL
5c80: 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 );..Tcl_SetError
5c90: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c Code(interp, "TL
5ca0: 53 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c 20 22 S", "UNSTACK", "
5cb0: 43 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c CHANNEL", "INVAL
5cc0: 49 44 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ID", (char *) NU
5cd0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
5ce0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5cf0: 20 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e 73 66 /* Pop transf
5d00: 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c orm from channel
5d10: 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 */. return T
5d20: 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 cl_UnstackChanne
5d30: 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 3b l(interp, chan);
5d40: 0a 20 20 20 20 09 63 6c 69 65 6e 74 44 61 74 61 . .clientData
5d50: 20 3d 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 7d = clientData;.}
5d60: 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ../*************
5d70: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5d80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5d90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5da0: 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d ******/../*. *--
5db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5df0: 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 49 -. *. * EncryptI
5e00: 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 20 2d 2d nstanceObjCmd --
5e10: 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 66 . *. *.Handler f
5e20: 6f 72 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 or encrypt/decry
5e30: 70 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 73 74 61 pt command insta
5e40: 6e 63 65 73 2e 20 55 73 65 64 20 74 6f 20 75 70 nces. Used to up
5e50: 64 61 74 65 0a 20 2a 09 61 6e 64 20 66 69 6e 61 date. *.and fina
5e60: 6c 69 7a 65 20 64 61 74 61 20 66 6f 72 20 65 6e lize data for en
5e70: 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 66 75 crypt/decrypt fu
5e80: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 nction.. *. * Re
5e90: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
5ea0: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
5eb0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
5ec0: 3a 0a 20 2a 09 41 64 64 73 20 64 61 74 61 20 74 :. *.Adds data t
5ed0: 6f 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 o encrypt/decryp
5ee0: 74 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a t function. *. *
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 2d 2d ----------------
5f30: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 ---. */.int Encr
5f40: 79 70 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d yptInstanceObjCm
5f50: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
5f60: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
5f70: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
5f80: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
5f90: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
5fa0: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
5fb0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e *statePtr = (En
5fc0: 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c cryptState *) cl
5fd0: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e ientData;. in
5fe0: 74 20 66 6e 2c 20 64 61 74 61 5f 6c 65 6e 20 3d t fn, data_len =
5ff0: 20 30 2c 20 6f 75 74 5f 6c 65 6e 3b 0a 20 20 20 0, out_len;.
6000: 20 63 68 61 72 20 2a 64 61 74 61 20 3d 20 4e 55 char *data = NU
6010: 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 LL;. Tcl_Obj
6020: 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 20 *resultObj;.
6030: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6f unsigned char *o
6040: 75 74 5f 62 75 66 3b 0a 20 20 20 20 73 74 61 74 ut_buf;. stat
6050: 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 69 ic const char *i
6060: 6e 73 74 61 6e 63 65 5f 66 6e 73 20 5b 5d 20 3d nstance_fns [] =
6070: 20 7b 20 22 66 69 6e 61 6c 69 7a 65 22 2c 20 22 { "finalize", "
6080: 75 70 64 61 74 65 22 2c 20 4e 55 4c 4c 20 7d 3b update", NULL };
6090: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
60a0: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
60b0: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
60c0: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
60d0: 62 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 20 bjc < 2 || objc
60e0: 3e 20 33 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e > 3) {..Tcl_Wron
60f0: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
6100: 20 31 2c 20 6f 62 6a 76 2c 20 22 66 75 6e 63 74 1, objv, "funct
6110: 69 6f 6e 20 3f 64 61 74 61 3f 22 29 3b 0a 09 72 ion ?data?");..r
6120: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6130: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
6140: 65 74 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 et function */.
6150: 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 6e if (Tcl_GetIn
6160: 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 dexFromObj(inter
6170: 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 69 6e 73 74 p, objv[1], inst
6180: 61 6e 63 65 5f 66 6e 73 2c 20 22 66 75 6e 63 74 ance_fns, "funct
6190: 69 6f 6e 22 2c 20 30 2c 20 26 66 6e 29 20 21 3d ion", 0, &fn) !=
61a0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 75 TCL_OK) {..retu
61b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
61c0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 6c 6c 6f }.. /* Allo
61d0: 63 61 74 65 20 73 74 6f 72 61 67 65 20 66 6f 72 cate storage for
61e0: 20 72 65 73 75 6c 74 2e 20 53 69 7a 65 20 73 68 result. Size sh
61f0: 6f 75 6c 64 20 62 65 20 64 61 74 61 20 73 69 7a ould be data siz
6200: 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a 65 2e 20 e + block size.
6210: 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 6a */. resultObj
6220: 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b = Tcl_NewObj();
6230: 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 54 . out_buf = T
6240: 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c cl_SetByteArrayL
6250: 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c ength(resultObj,
6260: 20 64 61 74 61 5f 6c 65 6e 2b 45 56 50 5f 4d 41 data_len+EVP_MA
6270: 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 3b X_BLOCK_LENGTH);
6280: 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 4f . if (resultO
6290: 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 bj == NULL || ou
62a0: 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b t_buf == NULL) {
62b0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
62c0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f lt(interp, "Memo
62d0: 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 ry allocation er
62e0: 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e ror", (char *) N
62f0: 55 4c 4c 29 3b 0a 09 54 63 6c 5f 44 65 63 72 52 ULL);..Tcl_DecrR
6300: 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 efCount(resultOb
6310: 6a 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f j);..return TCL_
6320: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
6330: 20 20 2f 2a 20 44 6f 20 66 75 6e 63 74 69 6f 6e /* Do function
6340: 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 6e 29 20 */. if (fn)
6350: 7b 0a 09 2f 2a 20 47 65 74 20 64 61 74 61 20 6f {../* Get data o
6360: 72 20 72 65 74 75 72 6e 20 65 72 72 6f 72 20 69 r return error i
6370: 66 20 6e 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 6f f none */..if (o
6380: 62 6a 63 20 3d 3d 20 33 29 20 7b 0a 09 20 20 20 bjc == 3) {..
6390: 20 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 data = Tcl_GetB
63a0: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
63b0: 6f 62 6a 76 5b 32 5d 2c 20 26 64 61 74 61 5f 6c objv[2], &data_l
63c0: 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 en);..} else {..
63d0: 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d Tcl_WrongNum
63e0: 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c 20 Args(interp, 1,
63f0: 6f 62 6a 76 2c 20 22 75 70 64 61 74 65 20 64 61 objv, "update da
6400: 74 61 22 29 3b 0a 09 20 20 20 20 54 63 6c 5f 44 ta");.. Tcl_D
6410: 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 ecrRefCount(resu
6420: 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 65 74 ltObj);.. ret
6430: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
6440: 7d 0a 0a 09 2f 2a 20 55 70 64 61 74 65 20 66 75 }.../* Update fu
6450: 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 nction */..if (E
6460: 6e 63 72 79 70 74 55 70 64 61 74 65 28 69 6e 74 ncryptUpdate(int
6470: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 erp, statePtr->t
6480: 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 ype, statePtr->c
6490: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 tx, out_buf, &ou
64a0: 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 74 t_len, data, dat
64b0: 61 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b a_len) == TCL_OK
64c0: 29 20 7b 0a 09 20 20 20 20 6f 75 74 5f 62 75 66 ) {.. out_buf
64d0: 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 = Tcl_SetByteAr
64e0: 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 rayLength(result
64f0: 4f 62 6a 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 Obj, out_len);..
6500: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
6510: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 sult(interp, res
6520: 75 6c 74 4f 62 6a 29 3b 0a 09 7d 20 65 6c 73 65 ultObj);..} else
6530: 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 {.. Tcl_Decr
6540: 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f RefCount(resultO
6550: 62 6a 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e bj);.. return
6560: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a TCL_ERROR;..}..
6570: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 2f 2a } else {../*
6580: 20 46 69 6e 61 6c 69 7a 65 20 66 75 6e 63 74 69 Finalize functi
6590: 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 on */..if (Encry
65a0: 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 ptFinalize(inter
65b0: 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 79 70 p, statePtr->typ
65c0: 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 e, statePtr->ctx
65d0: 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f , out_buf, &out_
65e0: 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 len) == TCL_OK)
65f0: 7b 0a 09 20 20 20 20 6f 75 74 5f 62 75 66 20 3d {.. out_buf =
6600: 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 Tcl_SetByteArra
6610: 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 yLength(resultOb
6620: 6a 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 j, out_len);..
6630: 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 Tcl_SetObjResu
6640: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c lt(interp, resul
6650: 74 4f 62 6a 29 3b 0a 09 7d 20 65 6c 73 65 20 7b tObj);..} else {
6660: 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 .. Tcl_DecrRe
6670: 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a fCount(resultObj
6680: 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 );.. return T
6690: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f CL_ERROR;..}.../
66a0: 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 09 54 * Clean-up */..T
66b0: 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 cl_DeleteCommand
66c0: 46 72 6f 6d 54 6f 6b 65 6e 28 69 6e 74 65 72 70 FromToken(interp
66d0: 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 , statePtr->toke
66e0: 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 n);. }. re
66f0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
6700: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
6710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6740: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
6750: 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 44 65 6c ncryptCommandDel
6760: 65 74 65 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a eteHandler --. *
6770: 0a 20 2a 09 20 43 61 6c 6c 62 61 63 6b 20 74 6f . *. Callback to
6780: 20 63 6c 65 61 6e 2d 75 70 20 77 68 65 6e 20 65 clean-up when e
6790: 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 63 ncrypt/decrypt c
67a0: 6f 6d 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 65 ommand is delete
67b0: 64 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 d.. *. * Returns
67c0: 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a :. *.Nothing. *.
67d0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
67e0: 0a 20 2a 09 44 65 73 74 72 6f 79 73 20 73 74 61 . *.Destroys sta
67f0: 74 65 20 69 6e 66 6f 20 73 74 72 75 63 74 75 72 te info structur
6800: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
6810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 ----------. */.v
6850: 6f 69 64 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 oid EncryptComma
6860: 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 28 ndDeleteHandler(
6870: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
6880: 74 44 61 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 tData) {. Enc
6890: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
68a0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
68b0: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
68c0: 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e a;.. /* Clean
68d0: 2d 75 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 -up */. Encry
68e0: 70 74 53 74 61 74 65 46 72 65 65 28 73 74 61 74 ptStateFree(stat
68f0: 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d ePtr);.}../*. *-
6900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6940: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
6950: 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 20 2d CommandHandler -
6960: 2d 0a 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 20 -. *. *. Create
6970: 63 6f 6d 6d 61 6e 64 20 74 6f 20 61 64 64 20 64 command to add d
6980: 61 74 61 20 74 6f 20 65 6e 63 72 79 70 74 2f 64 ata to encrypt/d
6990: 65 63 72 79 70 74 20 66 75 6e 63 74 69 6f 6e 2e ecrypt function.
69a0: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
69b0: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
69c0: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
69d0: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 e effects:. *.Cr
69e0: 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 20 6f 72 eates command or
69f0: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 error message.
6a00: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
6a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a40: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
6a50: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 EncryptCommandHa
6a60: 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 ndler(Tcl_Interp
6a70: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 *interp, int ty
6a80: 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 pe, Tcl_Obj *cmd
6a90: 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 63 Obj,..Tcl_Obj *c
6aa0: 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f 4f 62 ipherObj, Tcl_Ob
6ab0: 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c 20 54 63 j *digestObj, Tc
6ac0: 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 l_Obj *keyObj, T
6ad0: 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 7b cl_Obj *ivObj) {
6ae0: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
6af0: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
6b00: 20 63 68 61 72 20 2a 63 6d 64 4e 61 6d 65 20 3d char *cmdName =
6b10: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 Tcl_GetStringFr
6b20: 6f 6d 4f 62 6a 28 63 6d 64 4f 62 6a 2c 20 4e 55 omObj(cmdObj, NU
6b30: 4c 4c 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 LL);.. dprint
6b40: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
6b50: 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 if ((statePtr
6b60: 3d 20 45 6e 63 72 79 70 74 53 74 61 74 65 4e 65 = EncryptStateNe
6b70: 77 28 69 6e 74 65 72 70 2c 20 74 79 70 65 29 29 w(interp, type))
6b80: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
6b90: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
6ba0: 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c terp, "Memory al
6bb0: 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c location error",
6bc0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
6bd0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
6be0: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
6bf0: 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 66 75 6e * Initialize fun
6c00: 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 ction */. if
6c10: 28 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 (EncryptInitiali
6c20: 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c ze(interp, type,
6c30: 20 26 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c &statePtr->ctx,
6c40: 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f cipherObj, keyO
6c50: 62 6a 2c 20 69 76 4f 62 6a 29 20 21 3d 20 54 43 bj, ivObj) != TC
6c60: 4c 5f 4f 4b 29 20 7b 0a 09 45 6e 63 72 79 70 74 L_OK) {..Encrypt
6c70: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
6c80: 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c tr);..return TCL
6c90: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6ca0: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 69 6e 73 /* Create ins
6cb0: 74 61 6e 63 65 20 63 6f 6d 6d 61 6e 64 20 2a 2f tance command */
6cc0: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 74 . statePtr->t
6cd0: 6f 6b 65 6e 20 3d 20 54 63 6c 5f 43 72 65 61 74 oken = Tcl_Creat
6ce0: 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 eObjCommand(inte
6cf0: 72 70 2c 20 63 6d 64 4e 61 6d 65 2c 20 45 6e 63 rp, cmdName, Enc
6d00: 72 79 70 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 ryptInstanceObjC
6d10: 6d 64 2c 0a 09 28 43 6c 69 65 6e 74 44 61 74 61 md,..(ClientData
6d20: 29 20 73 74 61 74 65 50 74 72 2c 20 45 6e 63 72 ) statePtr, Encr
6d30: 79 70 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 65 yptCommandDelete
6d40: 48 61 6e 64 6c 65 72 29 3b 0a 0a 20 20 20 20 2f Handler);.. /
6d50: 2a 20 52 65 74 75 72 6e 20 63 6f 6d 6d 61 6e 64 * Return command
6d60: 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 63 6c name */. Tcl
6d70: 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e _SetObjResult(in
6d80: 74 65 72 70 2c 20 63 6d 64 4f 62 6a 29 3b 0a 20 terp, cmdObj);.
6d90: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
6da0: 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ;.}../**********
6db0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6dc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6dd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6de0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 *********/../*.
6df0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e30: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 ----. *. * Encry
6e40: 70 74 44 61 74 61 48 61 6e 64 6c 65 72 20 2d 2d ptDataHandler --
6e50: 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 . *. *.Perform e
6e60: 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 ncryption functi
6e70: 6f 6e 20 6f 6e 20 61 20 62 6c 6f 63 6b 20 6f 66 on on a block of
6e80: 20 64 61 74 61 20 61 6e 64 20 72 65 74 75 72 6e data and return
6e90: 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 52 result.. *. * R
6ea0: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
6eb0: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
6ec0: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
6ed0: 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 75 6c s:. *.Sets resul
6ee0: 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 t or error messa
6ef0: 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ge. *. *--------
6f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
6f40: 69 6e 74 20 45 6e 63 72 79 70 74 44 61 74 61 48 int EncryptDataH
6f50: 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 andler(Tcl_Inter
6f60: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 p *interp, int t
6f70: 79 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 61 ype, Tcl_Obj *da
6f80: 74 61 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a taObj, Tcl_Obj *
6f90: 63 69 70 68 65 72 4f 62 6a 2c 0a 09 54 63 6c 5f cipherObj,..Tcl_
6fa0: 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c 20 Obj *digestObj,
6fb0: 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c Tcl_Obj *keyObj,
6fc0: 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 Tcl_Obj *ivObj)
6fd0: 20 7b 0a 20 20 20 20 45 56 50 5f 43 49 50 48 45 {. EVP_CIPHE
6fe0: 52 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 4c R_CTX *ctx = NUL
6ff0: 4c 3b 0a 20 20 20 20 69 6e 74 20 64 61 74 61 5f L;. int data_
7000: 6c 65 6e 20 3d 20 30 2c 20 6f 75 74 5f 6c 65 6e len = 0, out_len
7010: 20 3d 20 30 2c 20 6c 65 6e 20 3d 20 30 2c 20 72 = 0, len = 0, r
7020: 65 73 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 es = TCL_OK;.
7030: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
7040: 64 61 74 61 2c 20 2a 6f 75 74 5f 62 75 66 3b 0a data, *out_buf;.
7050: 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 Tcl_Obj *res
7060: 75 6c 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 72 ultObj;.. dpr
7070: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
7080: 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 61 74 61 . /* Get data
7090: 20 2a 2f 0a 20 20 20 20 69 66 20 28 64 61 74 61 */. if (data
70a0: 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj != NULL) {..
70b0: 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 79 data = Tcl_GetBy
70c0: 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 64 teArrayFromObj(d
70d0: 61 74 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c 65 ataObj, &data_le
70e0: 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b n);. } else {
70f0: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
7100: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 64 lt(interp, "No d
7110: 61 74 61 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 ata", NULL);..re
7120: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7130: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 6c }.. /* Al
7140: 6c 6f 63 61 74 65 20 73 74 6f 72 61 67 65 20 66 locate storage f
7150: 6f 72 20 72 65 73 75 6c 74 2e 20 53 69 7a 65 20 or result. Size
7160: 73 68 6f 75 6c 64 20 62 65 20 64 61 74 61 20 73 should be data s
7170: 69 7a 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a 65 ize + block size
7180: 2e 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f . */. resultO
7190: 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 bj = Tcl_NewObj(
71a0: 29 3b 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 3d );. out_buf =
71b0: 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 Tcl_SetByteArra
71c0: 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 yLength(resultOb
71d0: 6a 2c 20 64 61 74 61 5f 6c 65 6e 2b 45 56 50 5f j, data_len+EVP_
71e0: 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 MAX_BLOCK_LENGTH
71f0: 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c );. if (resul
7200: 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 tObj == NULL ||
7210: 6f 75 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 out_buf == NULL)
7220: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
7230: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 sult(interp, "Me
7240: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
7250: 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 error", (char *)
7260: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
7270: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
7280: 0a 0a 20 20 20 20 2f 2a 20 50 65 72 66 6f 72 6d .. /* Perform
7290: 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 operation */.
72a0: 20 20 69 66 20 28 45 6e 63 72 79 70 74 49 6e 69 if (EncryptIni
72b0: 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 tialize(interp,
72c0: 74 79 70 65 2c 20 26 63 74 78 2c 20 63 69 70 68 type, &ctx, ciph
72d0: 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 erObj, keyObj, i
72e0: 76 4f 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 20 vObj) != TCL_OK
72f0: 7c 7c 0a 09 45 6e 63 72 79 70 74 55 70 64 61 74 ||..EncryptUpdat
7300: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
7310: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f ctx, out_buf, &o
7320: 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 ut_len, data, da
7330: 74 61 5f 6c 65 6e 29 20 21 3d 20 54 43 4c 5f 4f ta_len) != TCL_O
7340: 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 46 69 6e K ||..EncryptFin
7350: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 alize(interp, ty
7360: 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 pe, ctx, out_buf
7370: 2b 6f 75 74 5f 6c 65 6e 2c 20 26 6c 65 6e 29 20 +out_len, &len)
7380: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 != TCL_OK) {..re
7390: 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 s = TCL_ERROR;..
73a0: 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d goto done;. }
73b0: 0a 20 20 20 20 6f 75 74 5f 6c 65 6e 20 2b 3d 20 . out_len +=
73c0: 6c 65 6e 3b 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 len;..done:.
73d0: 2f 2a 20 53 65 74 20 6f 75 74 70 75 74 20 72 65 /* Set output re
73e0: 73 75 6c 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 sult */. if (
73f0: 72 65 73 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b res == TCL_OK) {
7400: 0a 09 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f ..out_buf = Tcl_
7410: 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 SetByteArrayLeng
7420: 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 6f 75 th(resultObj, ou
7430: 74 5f 6c 65 6e 29 3b 0a 09 54 63 6c 5f 53 65 74 t_len);..Tcl_Set
7440: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
7450: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 , resultObj);.
7460: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
7470: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 DecrRefCount(res
7480: 75 6c 74 4f 62 6a 29 3b 0a 09 2f 2a 20 52 65 73 ultObj);../* Res
7490: 75 6c 74 20 69 73 20 65 72 72 6f 72 20 6d 65 73 ult is error mes
74a0: 73 61 67 65 20 2a 2f 0a 20 20 20 20 7d 0a 0a 20 sage */. }..
74b0: 20 20 20 2f 2a 20 43 6c 65 61 6e 20 75 70 20 2a /* Clean up *
74c0: 2f 0a 20 20 20 20 69 66 20 28 63 74 78 20 21 3d /. if (ctx !=
74d0: 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 NULL) {..EVP_CI
74e0: 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 PHER_CTX_free(ct
74f0: 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 x);. }. re
7500: 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a turn res;.}../**
7510: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7520: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7530: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7540: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7550: 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d */../*. *-------
7560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
75a0: 20 2a 20 45 6e 63 72 79 70 74 46 69 6c 65 48 61 * EncryptFileHa
75b0: 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 ndler --. *. *.P
75c0: 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f erform encryptio
75d0: 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 n function on a
75e0: 62 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e block of data an
75f0: 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e d return result.
7600: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
7610: 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c *.TCL_OK or TCL
7620: 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 _ERROR. *. * Sid
7630: 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 45 6e e effects:. *.En
7640: 63 72 79 70 74 73 20 6f 72 20 64 65 63 72 79 70 crypts or decryp
7650: 74 73 20 69 6e 46 69 6c 65 20 64 61 74 61 20 74 ts inFile data t
7660: 6f 20 6f 75 74 46 69 6c 65 20 61 6e 64 20 73 65 o outFile and se
7670: 74 73 20 72 65 73 75 6c 74 20 74 6f 0a 20 2a 09 ts result to. *.
7680: 73 69 7a 65 20 6f 66 20 6f 75 74 46 69 6c 65 2c size of outFile,
7690: 20 6f 72 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 or an error mes
76a0: 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d sage.. *. *-----
76b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
76e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
76f0: 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 46 69 */.int EncryptFi
7700: 6c 65 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e leHandler(Tcl_In
7710: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
7720: 74 20 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 t type, Tcl_Obj
7730: 2a 69 6e 46 69 6c 65 4f 62 6a 2c 20 54 63 6c 5f *inFileObj, Tcl_
7740: 4f 62 6a 20 2a 6f 75 74 46 69 6c 65 4f 62 6a 2c Obj *outFileObj,
7750: 0a 09 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 ..Tcl_Obj *ciphe
7760: 72 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 rObj, Tcl_Obj *d
7770: 69 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 igestObj, Tcl_Ob
7780: 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f j *keyObj, Tcl_O
7790: 62 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 bj *ivObj) {.
77a0: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 EVP_CIPHER_CTX
77b0: 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 *ctx = NULL;.
77c0: 20 69 6e 74 20 74 6f 74 61 6c 20 3d 20 30 2c 20 int total = 0,
77d0: 72 65 73 2c 20 6f 75 74 5f 6c 65 6e 20 3d 20 30 res, out_len = 0
77e0: 2c 20 6c 65 6e 3b 0a 20 20 20 20 54 63 6c 5f 43 , len;. Tcl_C
77f0: 68 61 6e 6e 65 6c 20 69 6e 20 3d 20 4e 55 4c 4c hannel in = NULL
7800: 2c 20 6f 75 74 20 3d 20 4e 55 4c 4c 3b 0a 20 20 , out = NULL;.
7810: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
7820: 69 6e 5f 62 75 66 5b 42 55 46 46 45 52 5f 53 49 in_buf[BUFFER_SI
7830: 5a 45 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 ZE];. unsigne
7840: 64 20 63 68 61 72 20 6f 75 74 5f 62 75 66 5b 42 d char out_buf[B
7850: 55 46 46 45 52 5f 53 49 5a 45 2b 45 56 50 5f 4d UFFER_SIZE+EVP_M
7860: 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 5d AX_BLOCK_LENGTH]
7870: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
7880: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
7890: 2a 20 4f 70 65 6e 20 69 6e 70 75 74 20 66 69 6c * Open input fil
78a0: 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 69 6e e */. if ((in
78b0: 20 3d 20 54 63 6c 5f 46 53 4f 70 65 6e 46 69 6c = Tcl_FSOpenFil
78c0: 65 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c eChannel(interp,
78d0: 20 69 6e 46 69 6c 65 4f 62 6a 2c 20 22 72 62 22 inFileObj, "rb"
78e0: 2c 20 30 34 34 34 29 29 20 3d 3d 20 28 54 63 6c , 0444)) == (Tcl
78f0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
7900: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
7910: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
7920: 2f 2a 20 4f 70 65 6e 20 6f 75 74 70 75 74 20 66 /* Open output f
7930: 69 6c 65 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 ile */. if ((
7940: 6f 75 74 20 3d 20 54 63 6c 5f 46 53 4f 70 65 6e out = Tcl_FSOpen
7950: 46 69 6c 65 43 68 61 6e 6e 65 6c 28 69 6e 74 65 FileChannel(inte
7960: 72 70 2c 20 6f 75 74 46 69 6c 65 4f 62 6a 2c 20 rp, outFileObj,
7970: 22 77 62 22 2c 20 30 36 34 34 29 29 20 3d 3d 20 "wb", 0644)) ==
7980: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
7990: 4c 4c 29 20 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 LL) {..Tcl_Close
79a0: 28 69 6e 74 65 72 70 2c 20 69 6e 29 3b 0a 09 72 (interp, in);..r
79b0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
79c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 . }.. /* I
79d0: 6e 69 74 69 61 6c 69 7a 65 20 6f 70 65 72 61 74 nitialize operat
79e0: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 ion */. if ((
79f0: 72 65 73 20 3d 20 45 6e 63 72 79 70 74 49 6e 69 res = EncryptIni
7a00: 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 tialize(interp,
7a10: 74 79 70 65 2c 20 26 63 74 78 2c 20 63 69 70 68 type, &ctx, ciph
7a20: 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 erObj, keyObj, i
7a30: 76 4f 62 6a 29 29 20 21 3d 20 54 43 4c 5f 4f 4b vObj)) != TCL_OK
7a40: 29 20 7b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a ) {..goto done;.
7a50: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 65 }.. /* Re
7a60: 61 64 20 66 69 6c 65 20 64 61 74 61 20 66 72 6f ad file data fro
7a70: 6d 20 69 6e 46 69 6c 65 2c 20 65 6e 63 72 79 70 m inFile, encryp
7a80: 74 2f 64 65 63 72 79 70 74 20 69 74 2c 20 74 68 t/decrypt it, th
7a90: 65 6e 20 6f 75 74 70 75 74 20 74 6f 20 6f 75 74 en output to out
7aa0: 46 69 6c 65 20 2a 2f 0a 20 20 20 20 77 68 69 6c File */. whil
7ab0: 65 20 28 21 54 63 6c 5f 45 6f 66 28 69 6e 29 29 e (!Tcl_Eof(in))
7ac0: 20 7b 0a 09 69 6e 74 20 72 65 61 64 20 3d 20 54 {..int read = T
7ad0: 63 6c 5f 52 65 61 64 52 61 77 28 69 6e 2c 20 28 cl_ReadRaw(in, (
7ae0: 63 68 61 72 20 2a 29 20 69 6e 5f 62 75 66 2c 20 char *) in_buf,
7af0: 42 55 46 46 45 52 5f 53 49 5a 45 29 3b 0a 09 69 BUFFER_SIZE);..i
7b00: 66 20 28 72 65 61 64 20 3e 20 30 29 20 7b 0a 09 f (read > 0) {..
7b10: 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 45 if ((res = E
7b20: 6e 63 72 79 70 74 55 70 64 61 74 65 28 69 6e 74 ncryptUpdate(int
7b30: 65 72 70 2c 20 74 79 70 65 2c 20 63 74 78 2c 20 erp, type, ctx,
7b40: 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 out_buf, &out_le
7b50: 6e 2c 20 69 6e 5f 62 75 66 2c 20 72 65 61 64 29 n, in_buf, read)
7b60: 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) == TCL_OK) {..
7b70: 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 .if (out_len > 0
7b80: 29 20 7b 0a 09 09 20 20 20 20 6c 65 6e 20 3d 20 ) {... len =
7b90: 54 63 6c 5f 57 72 69 74 65 52 61 77 28 6f 75 74 Tcl_WriteRaw(out
7ba0: 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 , (const char *)
7bb0: 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 out_buf, out_le
7bc0: 6e 29 3b 0a 09 09 20 20 20 20 69 66 20 28 6c 65 n);... if (le
7bd0: 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 09 74 6f 74 n >= 0) {....tot
7be0: 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 09 20 20 20 al += len;...
7bf0: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 09 54 63 6c } else {....Tcl
7c00: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
7c10: 74 65 72 70 2c 20 22 57 72 69 74 65 20 65 72 72 terp, "Write err
7c20: 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f or: ", Tcl_Errno
7c30: 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f Msg(Tcl_GetErrno
7c40: 28 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ()), (char *) NU
7c50: 4c 4c 29 3b 0a 09 09 09 72 65 73 20 3d 20 54 43 LL);....res = TC
7c60: 4c 5f 45 52 52 4f 52 3b 0a 09 09 09 67 6f 74 6f L_ERROR;....goto
7c70: 20 64 6f 6e 65 3b 0a 09 09 20 20 20 20 7d 0a 09 done;... }..
7c80: 09 7d 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b .}.. } else {
7c90: 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 ...goto done;..
7ca0: 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 69 66 20 }..} else if
7cb0: 28 72 65 61 64 20 3c 20 30 29 20 7b 0a 09 20 20 (read < 0) {..
7cc0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 Tcl_AppendResu
7cd0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 52 65 61 64 lt(interp, "Read
7ce0: 20 65 72 72 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 error: ", Tcl_E
7cf0: 72 72 6e 6f 4d 73 67 28 54 63 6c 5f 47 65 74 45 rrnoMsg(Tcl_GetE
7d00: 72 72 6e 6f 28 29 29 2c 20 28 63 68 61 72 20 2a rrno()), (char *
7d10: 29 20 4e 55 4c 4c 29 3b 0a 09 20 20 20 20 72 65 ) NULL);.. re
7d20: 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 s = TCL_ERROR;..
7d30: 20 20 20 20 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 goto done;..
7d40: 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 }. }.. /*
7d50: 46 69 6e 61 6c 69 7a 65 20 64 61 74 61 20 61 6e Finalize data an
7d60: 64 20 77 72 69 74 65 20 61 6e 79 20 72 65 6d 61 d write any rema
7d70: 69 6e 69 6e 67 20 64 61 74 61 20 69 6e 20 62 6c ining data in bl
7d80: 6f 63 6b 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 ock */. if ((
7d90: 72 65 73 20 3d 20 45 6e 63 72 79 70 74 46 69 6e res = EncryptFin
7da0: 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 alize(interp, ty
7db0: 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 pe, ctx, out_buf
7dc0: 2c 20 26 6f 75 74 5f 6c 65 6e 29 29 20 3d 3d 20 , &out_len)) ==
7dd0: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 69 66 20 28 6f TCL_OK) {..if (o
7de0: 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 20 ut_len > 0) {..
7df0: 20 20 20 6c 65 6e 20 3d 20 54 63 6c 5f 57 72 69 len = Tcl_Wri
7e00: 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e 73 teRaw(out, (cons
7e10: 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 t char *) out_bu
7e20: 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 f, out_len);..
7e30: 20 20 69 66 20 28 6c 65 6e 20 3e 3d 20 30 29 20 if (len >= 0)
7e40: 7b 0a 09 09 74 6f 74 61 6c 20 2b 3d 20 6c 65 6e {...total += len
7e50: 3b 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.. } else {.
7e60: 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
7e70: 6c 74 28 69 6e 74 65 72 70 2c 20 22 57 72 69 74 lt(interp, "Writ
7e80: 65 20 65 72 72 6f 72 3a 20 22 2c 20 54 63 6c 5f e error: ", Tcl_
7e90: 45 72 72 6e 6f 4d 73 67 28 54 63 6c 5f 47 65 74 ErrnoMsg(Tcl_Get
7ea0: 45 72 72 6e 6f 28 29 29 2c 20 28 63 68 61 72 20 Errno()), (char
7eb0: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 72 65 73 20 *) NULL);...res
7ec0: 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 09 67 = TCL_ERROR;...g
7ed0: 6f 74 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d oto done;.. }
7ee0: 0a 09 7d 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 ..}..Tcl_SetObjR
7ef0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 54 63 esult(interp, Tc
7f00: 6c 5f 4e 65 77 49 6e 74 4f 62 6a 28 74 6f 74 61 l_NewIntObj(tota
7f10: 6c 29 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 l));. } else
7f20: 7b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 {..goto done;.
7f30: 20 20 7d 0a 0a 64 6f 6e 65 3a 0a 20 20 20 20 2f }..done:. /
7f40: 2a 20 43 6c 65 61 6e 20 75 70 20 2a 2f 0a 20 20 * Clean up */.
7f50: 20 20 69 66 20 28 69 6e 20 21 3d 20 4e 55 4c 4c if (in != NULL
7f60: 29 20 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 ) {..Tcl_Close(i
7f70: 6e 74 65 72 70 2c 20 69 6e 29 3b 0a 20 20 20 20 nterp, in);.
7f80: 7d 0a 20 20 20 20 69 66 20 28 6f 75 74 20 21 3d }. if (out !=
7f90: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 43 6c NULL) {..Tcl_Cl
7fa0: 6f 73 65 28 69 6e 74 65 72 70 2c 20 6f 75 74 29 ose(interp, out)
7fb0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 ;. }. if (
7fc0: 63 74 78 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ctx != NULL) {..
7fd0: 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f 66 EVP_CIPHER_CTX_f
7fe0: 72 65 65 28 63 74 78 29 3b 0a 20 20 20 20 7d 0a ree(ctx);. }.
7ff0: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a return res;.
8000: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
8010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8040: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
8050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8090: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
80a0: 4d 61 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 Main --. *. *.Pe
80b0: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
80c0: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 72 65 function and re
80d0: 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a 0a turn result.. *.
80e0: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
80f0: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
8100: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
8110: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 fects:. *.Sets r
8120: 65 73 75 6c 74 20 6f 72 20 65 72 72 6f 72 20 6d esult or error m
8130: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d essage. *. *----
8140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
8180: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 */.static int E
8190: 6e 63 72 79 70 74 4d 61 69 6e 28 69 6e 74 20 74 ncryptMain(int t
81a0: 79 70 65 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ype, Tcl_Interp
81b0: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
81c0: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
81d0: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
81e0: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
81f0: 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 63 6d 64 4f bj = NULL, *cmdO
8200: 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 61 74 61 bj = NULL, *data
8210: 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 69 67 Obj = NULL, *dig
8220: 65 73 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 estObj = NULL;.
8230: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 Tcl_Obj *inFi
8240: 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6f leObj = NULL, *o
8250: 75 74 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c utFileObj = NULL
8260: 2c 20 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c , *keyObj = NULL
8270: 2c 20 2a 69 76 4f 62 6a 20 3d 20 4e 55 4c 4c 2c , *ivObj = NULL,
8280: 20 2a 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c 4c 3b *macObj = NULL;
8290: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
82a0: 2a 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c *channel = NULL,
82b0: 20 2a 6f 70 74 3b 0a 20 20 20 20 69 6e 74 20 72 *opt;. int r
82c0: 65 73 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 es;.. dprintf
82d0: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
82e0: 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 72 70 /* Clear interp
82f0: 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 54 result */. T
8300: 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 cl_ResetResult(i
8310: 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f 2a 20 nterp);.. /*
8320: 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 Validate arg cou
8330: 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 nt */. if (ob
8340: 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 3e jc < 3 || objc >
8350: 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 12) {..Tcl_Wron
8360: 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c gNumArgs(interp,
8370: 20 31 2c 20 6f 62 6a 76 2c 20 22 2d 63 69 70 68 1, objv, "-ciph
8380: 65 72 20 6e 61 6d 65 20 3f 2d 64 69 67 65 73 74 er name ?-digest
8390: 20 6e 61 6d 65 3f 20 2d 6b 65 79 20 6b 65 79 20 name? -key key
83a0: 3f 2d 69 76 20 73 74 72 69 6e 67 3f 20 3f 2d 6d ?-iv string? ?-m
83b0: 61 63 20 6e 61 6d 65 3f 20 5b 2d 63 68 61 6e 6e ac name? [-chann
83c0: 65 6c 20 63 68 61 6e 20 7c 20 2d 63 6f 6d 6d 61 el chan | -comma
83d0: 6e 64 20 63 6d 64 4e 61 6d 65 20 7c 20 2d 69 6e nd cmdName | -in
83e0: 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 2d 6f file filename -o
83f0: 75 74 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 utfile filename
8400: 7c 20 2d 64 61 74 61 20 64 61 74 61 5d 22 29 3b | -data data]");
8410: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
8420: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
8430: 2a 20 47 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f * Get options */
8440: 0a 20 20 20 20 66 6f 72 20 28 69 6e 74 20 69 64 . for (int id
8450: 78 20 3d 20 31 3b 20 69 64 78 20 3c 20 6f 62 6a x = 1; idx < obj
8460: 63 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 6f 70 74 c; idx++) {..opt
8470: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 = Tcl_GetString
8480: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 64 78 FromObj(objv[idx
8490: 5d 2c 20 4e 55 4c 4c 29 3b 0a 0a 09 69 66 20 28 ], NULL);...if (
84a0: 6f 70 74 5b 30 5d 20 21 3d 20 27 2d 27 29 20 7b opt[0] != '-') {
84b0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a .. break;..}.
84c0: 0a 09 4f 50 54 53 54 52 28 22 2d 63 68 61 6e 22 ..OPTSTR("-chan"
84d0: 2c 20 63 68 61 6e 6e 65 6c 29 3b 0a 09 4f 50 54 , channel);..OPT
84e0: 53 54 52 28 22 2d 63 68 61 6e 6e 65 6c 22 2c 20 STR("-channel",
84f0: 63 68 61 6e 6e 65 6c 29 3b 0a 09 4f 50 54 4f 42 channel);..OPTOB
8500: 4a 28 22 2d 63 69 70 68 65 72 22 2c 20 63 69 70 J("-cipher", cip
8510: 68 65 72 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a herObj);..OPTOBJ
8520: 28 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 63 6d 64 ("-command", cmd
8530: 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a 28 22 2d Obj);..OPTOBJ("-
8540: 64 61 74 61 22 2c 20 64 61 74 61 4f 62 6a 29 3b data", dataObj);
8550: 0a 09 4f 50 54 4f 42 4a 28 22 2d 64 69 67 65 73 ..OPTOBJ("-diges
8560: 74 22 2c 20 64 69 67 65 73 74 4f 62 6a 29 3b 0a t", digestObj);.
8570: 09 4f 50 54 4f 42 4a 28 22 2d 69 6e 66 69 6c 65 .OPTOBJ("-infile
8580: 22 2c 20 69 6e 46 69 6c 65 4f 62 6a 29 3b 0a 09 ", inFileObj);..
8590: 4f 50 54 4f 42 4a 28 22 2d 6f 75 74 66 69 6c 65 OPTOBJ("-outfile
85a0: 22 2c 20 6f 75 74 46 69 6c 65 4f 62 6a 29 3b 0a ", outFileObj);.
85b0: 09 4f 50 54 4f 42 4a 28 22 2d 6b 65 79 22 2c 20 .OPTOBJ("-key",
85c0: 6b 65 79 4f 62 6a 29 3b 0a 09 4f 50 54 4f 42 4a keyObj);..OPTOBJ
85d0: 28 22 2d 69 76 22 2c 20 69 76 4f 62 6a 29 3b 0a ("-iv", ivObj);.
85e0: 09 4f 50 54 4f 42 4a 28 22 2d 6d 61 63 22 2c 20 .OPTOBJ("-mac",
85f0: 6d 61 63 4f 62 6a 29 3b 0a 0a 09 4f 50 54 42 41 macObj);...OPTBA
8600: 44 28 22 6f 70 74 69 6f 6e 22 2c 20 22 2d 63 68 D("option", "-ch
8610: 61 6e 2c 20 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 an, -channel, -c
8620: 69 70 68 65 72 2c 20 2d 63 6f 6d 6d 61 6e 64 2c ipher, -command,
8630: 20 2d 64 61 74 61 2c 20 2d 64 69 67 65 73 74 2c -data, -digest,
8640: 20 2d 69 6e 66 69 6c 65 2c 20 2d 6b 65 79 2c 20 -infile, -key,
8650: 2d 69 76 2c 20 2d 6d 61 63 2c 20 2d 6f 75 74 66 -iv, -mac, -outf
8660: 69 6c 65 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 ile");..return T
8670: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
8680: 0a 20 20 20 20 2f 2a 20 43 68 65 63 6b 20 66 6f . /* Check fo
8690: 72 20 72 65 71 75 69 72 65 64 20 6f 70 74 69 6f r required optio
86a0: 6e 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 69 ns */. if (ci
86b0: 70 68 65 72 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 pherObj == NULL)
86c0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
86d0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f sult(interp, "No
86e0: 20 63 69 70 68 65 72 22 2c 20 4e 55 4c 4c 29 3b cipher", NULL);
86f0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
8700: 6b 65 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 keyObj == NULL)
8710: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
8720: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
8730: 6b 65 79 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 65 key", NULL);..re
8740: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
8750: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 50 65 }.. /* Pe
8760: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
8770: 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 66 69 6c function on fil
8780: 65 2c 20 73 74 61 63 6b 65 64 20 63 68 61 6e 6e e, stacked chann
8790: 65 6c 2c 20 75 73 69 6e 67 20 69 6e 73 74 61 6e el, using instan
87a0: 63 65 20 63 6f 6d 6d 61 6e 64 2c 20 6f 72 20 64 ce command, or d
87b0: 61 74 61 20 62 6c 6f 62 20 2a 2f 0a 20 20 20 20 ata blob */.
87c0: 69 66 20 28 69 6e 46 69 6c 65 4f 62 6a 20 21 3d if (inFileObj !=
87d0: 20 4e 55 4c 4c 20 26 26 20 6f 75 74 46 69 6c 65 NULL && outFile
87e0: 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj != NULL) {..
87f0: 72 65 73 20 3d 20 45 6e 63 72 79 70 74 46 69 6c res = EncryptFil
8800: 65 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c eHandler(interp,
8810: 20 74 79 70 65 2c 20 69 6e 46 69 6c 65 4f 62 6a type, inFileObj
8820: 2c 20 6f 75 74 46 69 6c 65 4f 62 6a 2c 20 63 69 , outFileObj, ci
8830: 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f pherObj, digestO
8840: 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 bj, keyObj, ivOb
8850: 6a 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 j);. } else i
8860: 66 20 28 63 68 61 6e 6e 65 6c 20 21 3d 20 4e 55 f (channel != NU
8870: 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 LL) {..res = Enc
8880: 72 79 70 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c ryptChannelHandl
8890: 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c er(interp, type,
88a0: 20 63 68 61 6e 6e 65 6c 2c 20 63 69 70 68 65 72 channel, cipher
88b0: 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 Obj, digestObj,
88c0: 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 3b 0a keyObj, ivObj);.
88d0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 } else if (c
88e0: 6d 64 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b mdObj != NULL) {
88f0: 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 70 74 43 ..res = EncryptC
8900: 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 28 69 6e ommandHandler(in
8910: 74 65 72 70 2c 20 74 79 70 65 2c 20 63 6d 64 4f terp, type, cmdO
8920: 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 bj, cipherObj, d
8930: 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a igestObj, keyObj
8940: 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 , ivObj);. }
8950: 65 6c 73 65 20 69 66 20 28 64 61 74 61 4f 62 6a else if (dataObj
8960: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 != NULL) {..res
8970: 20 3d 20 45 6e 63 72 79 70 74 44 61 74 61 48 61 = EncryptDataHa
8980: 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 ndler(interp, ty
8990: 70 65 2c 20 64 61 74 61 4f 62 6a 2c 20 63 69 70 pe, dataObj, cip
89a0: 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 herObj, digestOb
89b0: 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a j, keyObj, ivObj
89c0: 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a );. } else {.
89d0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
89e0: 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6f 70 t(interp, "No op
89f0: 65 72 61 74 69 6f 6e 20 73 70 65 63 69 66 69 65 eration specifie
8a00: 64 3a 20 55 73 65 20 2d 63 68 61 6e 6e 65 6c 2c d: Use -channel,
8a10: 20 2d 63 6f 6d 6d 61 6e 64 2c 20 2d 64 61 74 61 -command, -data
8a20: 2c 20 2d 69 6e 66 69 6c 65 2c 20 6f 72 20 2d 6f , -infile, or -o
8a30: 75 74 66 69 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 utfile option",
8a40: 4e 55 4c 4c 29 3b 0a 09 72 65 73 20 3d 20 54 43 NULL);..res = TC
8a50: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 L_ERROR;. }.
8a60: 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d return res;.}
8a70: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
8a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
8ac0: 20 45 6e 63 72 79 70 74 69 6f 6e 20 43 6f 6d 6d Encryption Comm
8ad0: 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 ands --. *. *.Pe
8ae0: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
8af0: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 72 65 function and re
8b00: 74 75 72 6e 20 72 65 73 75 6c 74 73 0a 20 2a 0a turn results. *.
8b10: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
8b20: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
8b30: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
8b40: 66 65 63 74 73 3a 0a 20 2a 09 43 6f 6d 6d 61 6e fects:. *.Comman
8b50: 64 20 64 65 70 65 6e 64 65 6e 74 0a 20 2a 0a 20 d dependent. *.
8b60: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
8b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8ba0: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
8bb0: 69 6e 74 20 45 6e 63 72 79 70 74 4f 62 6a 43 6d int EncryptObjCm
8bc0: 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 d(ClientData cli
8bd0: 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 entData, Tcl_Int
8be0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
8bf0: 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a objc, Tcl_Obj *
8c00: 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a const objv[]) {.
8c10: 20 20 20 20 72 65 74 75 72 6e 20 45 6e 63 72 79 return Encry
8c20: 70 74 4d 61 69 6e 28 54 59 50 45 5f 45 4e 43 52 ptMain(TYPE_ENCR
8c30: 59 50 54 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a YPT, interp, obj
8c40: 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 c, objv);.}..sta
8c50: 74 69 63 20 69 6e 74 20 44 65 63 72 79 70 74 4f tic int DecryptO
8c60: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
8c70: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
8c80: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
8c90: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
8ca0: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
8cb0: 29 20 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 45 ) {. return E
8cc0: 6e 63 72 79 70 74 4d 61 69 6e 28 54 59 50 45 5f ncryptMain(TYPE_
8cd0: 44 45 43 52 59 50 54 2c 20 69 6e 74 65 72 70 2c DECRYPT, interp,
8ce0: 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a objc, objv);.}.
8cf0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
8d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
8d40: 45 6e 63 72 79 70 74 5f 49 6e 69 74 69 61 6c 69 Encrypt_Initiali
8d50: 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 ze --. *. *.Crea
8d60: 74 65 20 6e 61 6d 65 73 70 61 63 65 2c 20 63 6f te namespace, co
8d70: 6d 6d 61 6e 64 73 2c 20 61 6e 64 20 72 65 67 69 mmands, and regi
8d80: 73 74 65 72 20 70 61 63 6b 61 67 65 20 76 65 72 ster package ver
8d90: 73 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 sion. *. * Retur
8da0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 ns:. *.TCL_OK or
8db0: 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a TCL_ERROR. *. *
8dc0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
8dd0: 2a 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e *.Creates comman
8de0: 64 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d ds. *. *--------
8df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
8e30: 69 6e 74 20 54 6c 73 5f 45 6e 63 72 79 70 74 43 int Tls_EncryptC
8e40: 6f 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 ommands(Tcl_Inte
8e50: 72 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 rp *interp) {.
8e60: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 Tcl_CreateObjC
8e70: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 ommand(interp, "
8e80: 74 6c 73 3a 3a 65 6e 63 72 79 70 74 22 2c 20 45 tls::encrypt", E
8e90: 6e 63 72 79 70 74 4f 62 6a 43 6d 64 2c 20 28 43 ncryptObjCmd, (C
8ea0: 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 lientData) 0, (T
8eb0: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
8ec0: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 *) NULL);. T
8ed0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
8ee0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
8ef0: 3a 3a 64 65 63 72 79 70 74 22 2c 20 44 65 63 72 ::decrypt", Decr
8f00: 79 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 yptObjCmd, (Clie
8f10: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f ntData) 0, (Tcl_
8f20: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
8f30: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
8f40: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
8f50: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 75 (interp, "tls::u
8f60: 6e 73 74 61 63 6b 32 22 2c 20 45 6e 63 72 79 70 nstack2", Encryp
8f70: 74 55 6e 73 74 61 63 6b 4f 62 6a 43 6d 64 2c 20 tUnstackObjCmd,
8f80: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 30 2c 20 (ClientData) 0,
8f90: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
8fa0: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
8fb0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a return TCL_OK;.
8fc0: 7d 0a 0a }..