0000: 2f 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e /*. * Encryption
0010: 20 46 75 6e 63 74 69 6f 6e 73 20 4d 6f 64 75 6c Functions Modul
0020: 65 0a 20 2a 0a 20 2a 20 54 68 69 73 20 6d 6f 64 e. *. * This mod
0030: 75 6c 65 20 70 72 6f 76 69 64 65 73 20 63 6f 6d ule provides com
0040: 6d 61 6e 64 73 20 74 68 61 74 20 63 61 6e 20 62 mands that can b
0050: 65 20 75 73 65 64 20 74 6f 20 65 6e 63 72 79 70 e used to encryp
0060: 74 20 6f 72 20 64 65 63 72 79 70 74 20 64 61 74 t or decrypt dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 ude <tcl.h>.#inc
00e0: 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 lude <stdio.h>.#
00f0: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e include <string.
0100: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 h>.#include <ope
0110: 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 23 69 66 20 nssl/evp.h>.#if
0120: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
0130: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
0140: 30 30 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 0000L.#include <
0150: 6f 70 65 6e 73 73 6c 2f 70 61 72 61 6d 73 2e 68 openssl/params.h
0160: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 4d 61 63 >.#endif../* Mac
0170: 72 6f 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 42 ros */.#define B
0180: 55 46 46 45 52 5f 53 49 5a 45 09 33 32 37 36 38 UFFER_SIZE.32768
0190: 0a 23 64 65 66 69 6e 65 20 43 48 41 4e 5f 45 4f .#define CHAN_EO
01a0: 46 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 52 F.0x10.#define R
01b0: 45 41 44 5f 44 45 4c 41 59 09 35 0a 0a 2f 2a 20 EAD_DELAY.5../*
01c0: 45 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 Encryption funct
01d0: 69 6f 6e 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 ions */.#define
01e0: 54 59 50 45 5f 4d 44 09 09 30 78 30 31 30 0a 23 TYPE_MD..0x010.#
01f0: 64 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 define TYPE_HMAC
0200: 09 30 78 30 32 30 0a 23 64 65 66 69 6e 65 20 54 .0x020.#define T
0210: 59 50 45 5f 43 4d 41 43 09 30 78 30 34 30 0a 23 YPE_CMAC.0x040.#
0220: 64 65 66 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 define TYPE_MAC.
0230: 30 78 30 38 30 0a 23 64 65 66 69 6e 65 20 54 59 0x080.#define TY
0240: 50 45 5f 45 4e 43 52 59 50 54 09 30 78 31 30 30 PE_ENCRYPT.0x100
0250: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 44 45 .#define TYPE_DE
0260: 43 52 59 50 54 09 30 78 32 30 30 0a 23 64 65 66 CRYPT.0x200.#def
0270: 69 6e 65 20 54 59 50 45 5f 53 49 47 4e 09 30 78 ine TYPE_SIGN.0x
0280: 34 30 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 400.#define TYPE
0290: 5f 56 45 52 49 46 59 09 30 78 38 30 30 0a 0a 2f _VERIFY.0x800../
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 ***/../*. * This
02f0: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e structure defin
0300: 65 73 20 74 68 65 20 70 65 72 2d 69 6e 73 74 61 es the per-insta
0310: 6e 63 65 20 73 74 61 74 65 20 6f 66 20 61 20 65 nce state of a e
0320: 6e 63 72 79 70 74 20 6f 70 65 72 61 74 69 6f 6e ncrypt operation
0330: 2e 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 .. */.typedef st
0340: 72 75 63 74 20 45 6e 63 72 79 70 74 53 74 61 74 ruct EncryptStat
0350: 65 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c e {..Tcl_Channel
0360: 20 73 65 6c 66 3b 09 2f 2a 20 54 68 69 73 20 73 self;./* This s
0370: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f ocket channel */
0380: 0a 09 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e ..Tcl_TimerToken
0390: 20 74 69 6d 65 72 3b 09 2f 2a 20 54 69 6d 65 72 timer;./* Timer
03a0: 20 66 6f 72 20 72 65 61 64 20 65 76 65 6e 74 73 for read events
03b0: 20 2a 2f 0a 0a 09 69 6e 74 20 66 6c 61 67 73 3b */...int flags;
03c0: 09 09 2f 2a 20 43 68 61 6e 20 63 6f 6e 66 69 67 ../* Chan config
03d0: 20 66 6c 61 67 73 20 2a 2f 0a 09 69 6e 74 20 77 flags */..int w
03e0: 61 74 63 68 4d 61 73 6b 3b 09 09 2f 2a 20 43 75 atchMask;../* Cu
03f0: 72 72 65 6e 74 20 57 61 74 63 68 50 72 6f 63 20 rrent WatchProc
0400: 6d 61 73 6b 20 2a 2f 0a 09 69 6e 74 20 6d 6f 64 mask */..int mod
0410: 65 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d e;../* Current m
0420: 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 ode of parent ch
0430: 61 6e 6e 65 6c 20 2a 2f 0a 09 69 6e 74 20 74 79 annel */..int ty
0440: 70 65 3b 09 09 2f 2a 20 4f 70 65 72 61 74 69 6f pe;../* Operatio
0450: 6e 20 74 79 70 65 20 2a 2f 0a 0a 09 54 63 6c 5f n type */...Tcl_
0460: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 Interp *interp;.
0470: 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 /* Current inter
0480: 70 72 65 74 65 72 20 2a 2f 0a 09 45 56 50 5f 43 preter */..EVP_C
0490: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 3b 09 IPHER_CTX *ctx;.
04a0: 2f 2a 20 43 69 70 68 65 72 20 43 6f 6e 74 65 78 /* Cipher Contex
04b0: 74 20 2a 2f 0a 09 54 63 6c 5f 43 6f 6d 6d 61 6e t */..Tcl_Comman
04c0: 64 20 74 6f 6b 65 6e 3b 09 2f 2a 20 43 6f 6d 6d d token;./* Comm
04d0: 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a 7d 20 45 and token */.} E
04e0: 6e 63 72 79 70 74 53 74 61 74 65 3b 0a 0a 0a 2f ncryptState;.../
04f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
0540: 63 72 79 70 74 53 74 61 74 65 4e 65 77 20 2d 2d cryptStateNew --
0550: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
0560: 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 20 70 tion creates a p
0570: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
0580: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
0590: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
05a0: 20 2a 09 53 74 61 74 65 20 73 74 72 75 63 74 75 *.State structu
05b0: 72 65 20 70 6f 69 6e 74 65 72 0a 20 2a 0a 20 2a re pointer. *. *
05c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
05d0: 2a 09 43 72 65 61 74 65 73 20 73 74 72 75 63 74 *.Creates struct
05e0: 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ure. *. *-------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
0630: 0a 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 45 .EncryptState *E
0640: 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 54 ncryptStateNew(T
0650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0660: 70 2c 20 69 6e 74 20 74 79 70 65 29 20 7b 0a 20 p, int type) {.
0670: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
0680: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
0690: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6b 61 ryptState *) cka
06a0: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 lloc((unsigned)
06b0: 73 69 7a 65 6f 66 28 45 6e 63 72 79 70 74 53 74 sizeof(EncryptSt
06c0: 61 74 65 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 ate));.. if (
06d0: 73 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c statePtr != NULL
06e0: 29 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 ) {..memset(stat
06f0: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
0700: 45 6e 63 72 79 70 74 53 74 61 74 65 29 29 3b 0a EncryptState));.
0710: 09 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 .statePtr->self.
0720: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 = NULL;../* This
0730: 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 socket channel
0740: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
0750: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 mer = NULL;../*
0760: 54 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 Timer to flush d
0770: 61 74 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 ata */..statePtr
0780: 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a ->flags = 0;../*
0790: 20 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 Chan config fla
07a0: 67 73 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d gs */..statePtr-
07b0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 >watchMask = 0;.
07c0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
07d0: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 Proc mask */..st
07e0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 atePtr->mode.= 0
07f0: 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f ;../* Current mo
0800: 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 de of parent cha
0810: 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 nnel */..statePt
0820: 72 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 3b 09 r->type = type;.
0830: 09 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 74 79 ./* Operation ty
0840: 70 65 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d pe */..statePtr-
0850: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
0860: 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ;./* Current int
0870: 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 erpreter */..sta
0880: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
0890: 4c 3b 09 09 2f 2a 20 43 69 70 68 65 72 20 43 6f L;../* Cipher Co
08a0: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
08b0: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e 55 4c 4c tr->token = NULL
08c0: 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f ;../* Command to
08d0: 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a 20 20 20 ken */. }.
08e0: 20 72 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 return statePtr
08f0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0940: 0a 20 2a 20 45 6e 63 72 79 70 74 53 74 61 74 65 . * EncryptState
0950: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
0960: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 65 6c 65 is function dele
0970: 74 65 73 20 61 20 73 74 61 74 65 20 64 61 74 61 tes a state data
0980: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0990: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
09a0: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
09b0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
09c0: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
09d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0a20: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
0a30: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 (EncryptState *s
0a40: 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 69 tatePtr) {. i
0a50: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 28 f (statePtr == (
0a60: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
0a70: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
0a80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 . }.. /* R
0a90: 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 69 emove pending ti
0aa0: 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 mer */. if (s
0ab0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
0ac0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
0ad0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
0ae0: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
0af0: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
0b00: 65 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 er);. }..
0b10: 2f 2a 20 46 72 65 65 20 63 6f 6e 74 65 78 74 20 /* Free context
0b20: 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 20 structures */.
0b30: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0b40: 63 74 78 20 21 3d 20 28 45 56 50 5f 43 49 50 48 ctx != (EVP_CIPH
0b50: 45 52 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 ER_CTX *) NULL)
0b60: 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 {..EVP_CIPHER_CT
0b70: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
0b80: 3e 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 >ctx);. }.
0b90: 20 63 6b 66 72 65 65 28 73 74 61 74 65 50 74 72 ckfree(statePtr
0ba0: 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a );.}../*********
0bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
0bf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
0c40: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d yptInitialize --
0c50: 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a . *. *.Initializ
0c60: 65 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 e an encryption
0c70: 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 function. *. * R
0c80: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
0c90: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0ca0: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 or TCL_ERROR for
0cb0: 20 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 failure with re
0cc0: 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 sult set. *.to e
0cd0: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
0ce0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0cf0: 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f :. *.No result o
0d00: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
0d10: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
0d60: 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 EncryptInitiali
0d70: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ze(Tcl_Interp *i
0d80: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c nterp, int type,
0d90: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 EVP_CIPHER_CTX
0da0: 2a 2a 63 74 78 2c 0a 09 54 63 6c 5f 4f 62 6a 20 **ctx,..Tcl_Obj
0db0: 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f *cipherObj, Tcl_
0dc0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
0dd0: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 _Obj *ivObj) {.
0de0: 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 const EVP_CIP
0df0: 48 45 52 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 HER *cipher;.
0e00: 20 63 68 61 72 20 2a 6b 65 79 53 74 72 69 6e 67 char *keyString
0e10: 20 3d 20 4e 55 4c 4c 2c 20 2a 69 76 53 74 72 69 = NULL, *ivStri
0e20: 6e 67 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 ng = NULL;. i
0e30: 6e 74 20 63 69 70 68 65 72 5f 6c 65 6e 20 3d 20 nt cipher_len =
0e40: 30 2c 20 6b 65 79 5f 6c 65 6e 20 3d 20 30 2c 20 0, key_len = 0,
0e50: 69 76 5f 6c 65 6e 20 3d 20 30 2c 20 72 65 73 2c iv_len = 0, res,
0e60: 20 6d 61 78 3b 0a 20 20 20 20 75 6e 73 69 67 6e max;. unsign
0e70: 65 64 20 63 68 61 72 20 6b 65 79 5b 45 56 50 5f ed char key[EVP_
0e80: 4d 41 58 5f 4b 45 59 5f 4c 45 4e 47 54 48 5d 2c MAX_KEY_LENGTH],
0e90: 20 69 76 5b 45 56 50 5f 4d 41 58 5f 49 56 5f 4c iv[EVP_MAX_IV_L
0ea0: 45 4e 47 54 48 5d 3b 0a 0a 20 20 20 20 64 70 72 ENGTH];.. dpr
0eb0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
0ec0: 0a 20 20 20 20 2f 2a 20 49 6e 69 74 20 62 75 66 . /* Init buf
0ed0: 66 65 72 73 20 2a 2f 0a 20 20 20 20 6d 65 6d 73 fers */. mems
0ee0: 65 74 28 6b 65 79 2c 20 30 2c 20 45 56 50 5f 4d et(key, 0, EVP_M
0ef0: 41 58 5f 4b 45 59 5f 4c 45 4e 47 54 48 29 3b 0a AX_KEY_LENGTH);.
0f00: 20 20 20 20 6d 65 6d 73 65 74 28 69 76 2c 20 30 memset(iv, 0
0f10: 2c 20 45 56 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e , EVP_MAX_IV_LEN
0f20: 47 54 48 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 65 GTH);.. /* Ge
0f30: 74 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 20 20 t cipher */.
0f40: 63 69 70 68 65 72 20 3d 20 55 74 69 6c 5f 47 65 cipher = Util_Ge
0f50: 74 43 69 70 68 65 72 28 69 6e 74 65 72 70 2c 20 tCipher(interp,
0f60: 63 69 70 68 65 72 4f 62 6a 2c 20 31 29 3b 0a 20 cipherObj, 1);.
0f70: 20 20 20 69 66 20 28 63 69 70 68 65 72 20 3d 3d if (cipher ==
0f80: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
0f90: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
0fa0: 7d 0a 0a 20 20 20 20 2f 2a 20 20 47 65 74 20 6b }.. /* Get k
0fb0: 65 79 20 2d 20 4f 6e 6c 79 20 73 75 70 70 6f 72 ey - Only suppor
0fc0: 74 20 69 6e 74 65 72 6e 61 6c 6c 79 20 64 65 66 t internally def
0fd0: 69 6e 65 64 20 63 69 70 68 65 72 20 6c 65 6e 67 ined cipher leng
0fe0: 74 68 73 2e 0a 09 43 75 73 74 6f 6d 20 63 69 70 ths...Custom cip
0ff0: 68 65 72 73 20 63 61 6e 20 62 65 20 75 70 20 74 hers can be up t
1000: 6f 20 73 69 7a 65 5f 74 20 62 79 74 65 73 2e 20 o size_t bytes.
1010: 2a 2f 0a 20 20 20 20 6d 61 78 20 3d 20 45 56 50 */. max = EVP
1020: 5f 43 49 50 48 45 52 5f 6b 65 79 5f 6c 65 6e 67 _CIPHER_key_leng
1030: 74 68 28 63 69 70 68 65 72 29 3b 0a 20 20 20 20 th(cipher);.
1040: 6b 65 79 53 74 72 69 6e 67 20 3d 20 28 63 6f 6e keyString = (con
1050: 73 74 20 76 6f 69 64 20 2a 29 20 55 74 69 6c 5f st void *) Util_
1060: 47 65 74 4b 65 79 28 69 6e 74 65 72 70 2c 20 6b GetKey(interp, k
1070: 65 79 4f 62 6a 2c 20 26 6b 65 79 5f 6c 65 6e 2c eyObj, &key_len,
1080: 20 22 6b 65 79 22 2c 20 6d 61 78 2c 20 46 41 4c "key", max, FAL
1090: 53 45 29 3b 0a 20 20 20 20 69 66 20 28 6b 65 79 SE);. if (key
10a0: 53 74 72 69 6e 67 20 21 3d 20 4e 55 4c 4c 29 20 String != NULL)
10b0: 7b 0a 09 6d 65 6d 63 70 79 28 28 76 6f 69 64 20 {..memcpy((void
10c0: 2a 29 20 6b 65 79 2c 20 28 63 6f 6e 73 74 20 76 *) key, (const v
10d0: 6f 69 64 20 2a 29 20 6b 65 79 53 74 72 69 6e 67 oid *) keyString
10e0: 2c 20 28 73 69 7a 65 5f 74 29 20 6b 65 79 5f 6c , (size_t) key_l
10f0: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
1100: 69 66 20 28 6b 65 79 4f 62 6a 20 21 3d 20 4e 55 if (keyObj != NU
1110: 4c 4c 29 20 20 7b 0a 09 72 65 74 75 72 6e 20 54 LL) {..return T
1120: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
1130: 0a 20 20 20 20 2f 2a 20 20 47 65 74 20 49 56 20 . /* Get IV
1140: 2a 2f 0a 20 20 20 20 6d 61 78 20 3d 20 45 56 50 */. max = EVP
1150: 5f 43 49 50 48 45 52 5f 69 76 5f 6c 65 6e 67 74 _CIPHER_iv_lengt
1160: 68 28 63 69 70 68 65 72 29 3b 0a 20 20 20 20 69 h(cipher);. i
1170: 76 53 74 72 69 6e 67 20 3d 20 28 63 6f 6e 73 74 vString = (const
1180: 20 76 6f 69 64 20 2a 29 20 55 74 69 6c 5f 47 65 void *) Util_Ge
1190: 74 49 56 28 69 6e 74 65 72 70 2c 20 69 76 4f 62 tIV(interp, ivOb
11a0: 6a 2c 20 26 69 76 5f 6c 65 6e 2c 20 6d 61 78 2c j, &iv_len, max,
11b0: 20 46 41 4c 53 45 29 3b 0a 20 20 20 20 69 66 20 FALSE);. if
11c0: 28 69 76 53 74 72 69 6e 67 20 21 3d 20 4e 55 4c (ivString != NUL
11d0: 4c 29 20 7b 0a 09 6d 65 6d 63 70 79 28 28 76 6f L) {..memcpy((vo
11e0: 69 64 20 2a 29 20 69 76 2c 20 28 63 6f 6e 73 74 id *) iv, (const
11f0: 20 76 6f 69 64 20 2a 29 20 69 76 53 74 72 69 6e void *) ivStrin
1200: 67 2c 20 28 73 69 7a 65 5f 74 29 20 69 76 5f 6c g, (size_t) iv_l
1210: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
1220: 69 66 20 28 69 76 4f 62 6a 20 21 3d 20 4e 55 4c if (ivObj != NUL
1230: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c L) {..return TCL
1240: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
1250: 20 20 20 2f 2a 20 43 72 65 61 74 65 20 63 6f 6e /* Create con
1260: 74 65 78 74 20 2a 2f 0a 20 20 20 20 69 66 28 28 text */. if((
1270: 2a 63 74 78 20 3d 20 45 56 50 5f 43 49 50 48 45 *ctx = EVP_CIPHE
1280: 52 5f 43 54 58 5f 6e 65 77 28 29 29 20 3d 3d 20 R_CTX_new()) ==
1290: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
12a0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
12b0: 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 , "Memory alloca
12c0: 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 tion error", (ch
12d0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
12e0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
12f0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e }.. /* In
1300: 69 74 69 61 6c 69 7a 65 20 74 68 65 20 6f 70 65 itialize the ope
1310: 72 61 74 69 6f 6e 2e 20 4e 65 65 64 20 61 70 70 ration. Need app
1320: 72 6f 70 72 69 61 74 65 20 6b 65 79 20 61 6e 64 ropriate key and
1330: 20 69 76 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 iv size. */.
1340: 20 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 50 if (type == TYP
1350: 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 E_ENCRYPT) {..re
1360: 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 49 s = EVP_EncryptI
1370: 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 63 69 70 nit_ex(*ctx, cip
1380: 68 65 72 2c 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 her, NULL, key,
1390: 69 76 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 iv);. } else
13a0: 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 65 63 {..res = EVP_Dec
13b0: 72 79 70 74 49 6e 69 74 5f 65 78 28 2a 63 74 78 ryptInit_ex(*ctx
13c0: 2c 20 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 , cipher, NULL,
13d0: 6b 65 79 2c 20 69 76 29 3b 0a 20 20 20 20 7d 0a key, iv);. }.
13e0: 0a 20 20 20 20 69 66 28 21 72 65 73 29 20 7b 0a . if(!res) {.
13f0: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1400: 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 t(interp, "Initi
1410: 61 6c 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c alize failed: ",
1420: 20 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 REASON(), NULL)
1430: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
1440: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
1450: 2f 2a 20 45 72 61 73 65 20 62 75 66 66 65 72 73 /* Erase buffers
1460: 20 2a 2f 0a 20 20 20 20 6d 65 6d 73 65 74 28 6b */. memset(k
1470: 65 79 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f 4b ey, 0, EVP_MAX_K
1480: 45 59 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 EY_LENGTH);.
1490: 6d 65 6d 73 65 74 28 69 76 2c 20 30 2c 20 45 56 memset(iv, 0, EV
14a0: 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 29 P_MAX_IV_LENGTH)
14b0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c ;. return TCL
14c0: 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d _OK;.}../*. *---
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1510: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 55 70 . *. * EncryptUp
1520: 64 61 74 65 20 2d 2d 0a 20 2a 0a 20 2a 09 55 70 date --. *. *.Up
1530: 64 61 74 65 20 61 6e 20 65 6e 63 72 79 70 74 69 date an encrypti
1540: 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 on function with
1550: 20 64 61 74 61 0a 20 2a 0a 20 2a 20 52 65 74 75 data. *. * Retu
1560: 72 6e 73 3a 0a 20 2a 09 31 20 69 66 20 73 75 63 rns:. *.1 if suc
1570: 63 65 73 73 66 75 6c 20 6f 72 20 30 20 66 6f 72 cessful or 0 for
1580: 20 66 61 69 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 failure. *. * S
1590: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
15a0: 41 64 64 73 20 65 6e 63 72 79 70 74 65 64 20 64 Adds encrypted d
15b0: 61 74 61 20 74 6f 20 62 75 66 66 65 72 20 6f 72 ata to buffer or
15c0: 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 sets result to
15d0: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a error message. *
15e0: 0a 20 2a 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 2d 2d ----------------
1610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1620: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 ------. */.int E
1630: 6e 63 72 79 70 74 55 70 64 61 74 65 28 54 63 6c ncryptUpdate(Tcl
1640: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
1650: 20 69 6e 74 20 74 79 70 65 2c 20 45 56 50 5f 43 int type, EVP_C
1660: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 2c 20 IPHER_CTX *ctx,
1670: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 6f unsigned char *o
1680: 75 74 5f 62 75 66 2c 0a 09 69 6e 74 20 2a 6f 75 ut_buf,..int *ou
1690: 74 5f 6c 65 6e 2c 20 75 6e 73 69 67 6e 65 64 20 t_len, unsigned
16a0: 63 68 61 72 20 2a 64 61 74 61 2c 20 69 6e 74 20 char *data, int
16b0: 64 61 74 61 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 data_len) {.
16c0: 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 int res;.. dp
16d0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
16e0: 0a 0a 20 20 20 20 2f 2a 20 45 6e 63 72 79 70 74 .. /* Encrypt
16f0: 2f 64 65 63 72 79 70 74 20 64 61 74 61 20 2a 2f /decrypt data */
1700: 0a 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d . if (type ==
1710: 20 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b TYPE_ENCRYPT) {
1720: 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 ..res = EVP_Encr
1730: 79 70 74 55 70 64 61 74 65 28 63 74 78 2c 20 6f yptUpdate(ctx, o
1740: 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 6e 2c ut_buf, out_len,
1750: 20 64 61 74 61 2c 20 64 61 74 61 5f 6c 65 6e 29 data, data_len)
1760: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
1770: 72 65 73 20 3d 20 45 56 50 5f 44 65 63 72 79 70 res = EVP_Decryp
1780: 74 55 70 64 61 74 65 28 63 74 78 2c 20 6f 75 74 tUpdate(ctx, out
1790: 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 6e 2c 20 64 _buf, out_len, d
17a0: 61 74 61 2c 20 64 61 74 61 5f 6c 65 6e 29 3b 0a ata, data_len);.
17b0: 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 }.. if (r
17c0: 65 73 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 es) {..return TC
17d0: 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 L_OK;. } else
17e0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
17f0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 55 70 sult(interp, "Up
1800: 64 61 74 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 date failed: ",
1810: 52 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b REASON(), NULL);
1820: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
1830: 4f 52 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a OR;. }.}../*.
1840: 20 2a 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 2d 2d 2d ----------------
1870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1880: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
1890: 79 70 74 46 69 6e 61 6c 69 7a 65 20 2d 2d 0a 20 yptFinalize --.
18a0: 2a 0a 20 2a 09 46 69 6e 61 6c 69 7a 65 20 61 6e *. *.Finalize an
18b0: 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 encryption func
18c0: 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 tion. *. * Retur
18d0: 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 ns:. *.TCL_OK if
18e0: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 successful or T
18f0: 43 4c 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 CL_ERROR for fai
1900: 6c 75 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 lure with result
1910: 20 73 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 set. *.to error
1920: 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 message.. *. *
1930: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
1940: 09 41 64 64 73 20 65 6e 63 72 79 70 74 65 64 20 .Adds encrypted
1950: 64 61 74 61 20 74 6f 20 62 75 66 66 65 72 20 6f data to buffer o
1960: 72 20 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f r sets result to
1970: 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 error message.
1980: 2a 0a 20 2a 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 2d ----------------
19b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19c0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 -------. */.int
19d0: 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 EncryptFinalize(
19e0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
19f0: 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 45 56 rp, int type, EV
1a00: 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 P_CIPHER_CTX *ct
1a10: 78 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 x, unsigned char
1a20: 20 2a 6f 75 74 5f 62 75 66 2c 0a 09 69 6e 74 20 *out_buf,..int
1a30: 2a 6f 75 74 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 *out_len) {.
1a40: 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 int res;.. dp
1a50: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
1a60: 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a .. /* Finaliz
1a70: 65 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 e data */. if
1a80: 20 28 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 (type == TYPE_E
1a90: 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d NCRYPT) {..res =
1aa0: 20 45 56 50 5f 45 6e 63 72 79 70 74 46 69 6e 61 EVP_EncryptFina
1ab0: 6c 5f 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 l_ex(ctx, out_bu
1ac0: 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 f, out_len);.
1ad0: 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d } else {..res =
1ae0: 20 45 56 50 5f 44 65 63 72 79 70 74 46 69 6e 61 EVP_DecryptFina
1af0: 6c 5f 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 l_ex(ctx, out_bu
1b00: 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 f, out_len);.
1b10: 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 }.. if (res)
1b20: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f {..return TCL_O
1b30: 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a K;. } else {.
1b40: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1b50: 74 28 69 6e 74 65 72 70 2c 20 22 46 69 6e 61 6c t(interp, "Final
1b60: 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 ize failed: ", R
1b70: 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a EASON(), NULL);.
1b80: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
1b90: 52 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a R;. }.}../***
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 2a 2a 2a 2a 2a 2a 2a 2a ****************
1bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1be0: 2f 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
1c30: 2a 20 45 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f * EncryptBlockMo
1c40: 64 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 deProc --. *. *.
1c50: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
1c60: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 invoked by the
1c70: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c generic IO level
1c80: 0a 20 2a 09 74 6f 20 73 65 74 20 62 6c 6f 63 6b . *.to set block
1c90: 69 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b ing and nonblock
1ca0: 69 6e 67 20 6d 6f 64 65 73 2e 0a 20 2a 0a 20 2a ing modes.. *. *
1cb0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 Returns:. *.0 i
1cc0: 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 f successful or
1cd0: 50 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 POSIX error code
1ce0: 20 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 if failed.. *.
1cf0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
1d00: 20 2a 09 53 65 74 73 20 74 68 65 20 64 65 76 69 *.Sets the devi
1d10: 63 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 ce into blocking
1d20: 20 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 or nonblocking
1d30: 6d 6f 64 65 2e 0a 20 2a 09 43 61 6e 20 63 61 6c mode.. *.Can cal
1d40: 6c 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c l Tcl_SetChannel
1d50: 45 72 72 6f 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d Error.. *. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1da0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 */.static int E
1db0: 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 ncryptBlockModeP
1dc0: 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 roc(ClientData c
1dd0: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d lientData, int m
1de0: 6f 64 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 ode) {. Encry
1df0: 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ptState *statePt
1e00: 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 r = (EncryptStat
1e10: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
1e20: 0a 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 20 3d .. if (mode =
1e30: 3d 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c = TCL_MODE_NONBL
1e40: 4f 43 4b 49 4e 47 29 20 7b 0a 09 73 74 61 74 65 OCKING) {..state
1e50: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c Ptr->flags |= TL
1e60: 53 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a 20 20 20 S_TCL_ASYNC;.
1e70: 20 7d 20 65 6c 73 65 20 7b 0a 09 73 74 61 74 65 } else {..state
1e80: 50 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 Ptr->flags &= ~(
1e90: 54 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 3b 0a TLS_TCL_ASYNC);.
1ea0: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
1eb0: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 0;.}../*. *----
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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
1f00: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6c 6f *. * EncryptClo
1f10: 73 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 seProc --. *. *.
1f20: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 This function is
1f30: 20 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 invoked by the
1f40: 67 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c generic IO level
1f50: 20 74 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63 to perform. *.c
1f60: 68 61 6e 6e 65 6c 2d 74 79 70 65 20 73 70 65 63 hannel-type spec
1f70: 69 66 69 63 20 63 6c 65 61 6e 75 70 20 77 68 65 ific cleanup whe
1f80: 6e 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 69 73 n the channel is
1f90: 20 63 6c 6f 73 65 64 2e 20 41 6c 6c 0a 20 2a 09 closed. All. *.
1fa0: 71 75 65 75 65 64 20 6f 75 74 70 75 74 20 69 73 queued output is
1fb0: 20 66 6c 75 73 68 65 64 20 70 72 69 6f 72 20 74 flushed prior t
1fc0: 6f 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 66 o calling this f
1fd0: 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 unction.. *. * R
1fe0: 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 20 eturns:. *.0 if
1ff0: 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f successful or PO
2000: 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 SIX error code i
2010: 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 f failed.. *. *
2020: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
2030: 09 44 65 6c 65 74 65 73 20 73 74 6f 72 65 64 20 .Deletes stored
2040: 73 74 61 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 state data.. *.
2050: 2a 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 2d 2d 2d 2d ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2090: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
20a0: 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 28 43 6c ryptCloseProc(Cl
20b0: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
20c0: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
20d0: 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 45 *interp) {. E
20e0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 ncryptState *sta
20f0: 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 tePtr = (Encrypt
2100: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
2110: 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e ata;.. /* Can
2120: 63 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 72 cel active timer
2130: 2c 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 , if any */.
2140: 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 if (statePtr->ti
2150: 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 mer != (Tcl_Time
2160: 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a rToken) NULL) {.
2170: 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 .Tcl_DeleteTimer
2180: 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 Handler(statePtr
2190: 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 ->timer);..state
21a0: 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 Ptr->timer = (Tc
21b0: 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 l_TimerToken) NU
21c0: 4c 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f LL;. }.. /
21d0: 2a 20 4f 75 74 70 75 74 20 72 65 6d 61 69 6e 69 * Output remaini
21e0: 6e 67 20 64 61 74 61 2c 20 69 66 20 61 6e 79 20 ng data, if any
21f0: 2a 2f 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 */. if (!(sta
2200: 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 tePtr->flags & C
2210: 48 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 54 63 6c HAN_EOF)) {..Tcl
2220: 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 _Channel parent
2230: 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 = Tcl_GetStacked
2240: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
2250: 2d 3e 73 65 6c 66 29 3b 0a 09 69 6e 74 20 6f 75 ->self);..int ou
2260: 74 5f 6c 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 t_len;..unsigned
2270: 20 63 68 61 72 20 6f 75 74 5f 62 75 66 5b 45 56 char out_buf[EV
2280: 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 P_MAX_BLOCK_LENG
2290: 54 48 5d 3b 0a 0a 09 2f 2a 20 46 69 6e 61 6c 69 TH];.../* Finali
22a0: 7a 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 ze function */..
22b0: 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c if (EncryptFinal
22c0: 69 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 ize(interp, stat
22d0: 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 ePtr->type, stat
22e0: 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 ePtr->ctx, out_b
22f0: 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d uf, &out_len) ==
2300: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 TCL_OK) {..
2310: 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 if (out_len > 0)
2320: 20 7b 0a 09 09 69 6e 74 20 6c 65 6e 20 3d 20 54 {...int len = T
2330: 63 6c 5f 57 72 69 74 65 52 61 77 28 70 61 72 65 cl_WriteRaw(pare
2340: 6e 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 nt, (const char
2350: 2a 29 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f *) out_buf, out_
2360: 6c 65 6e 29 3b 0a 09 09 69 66 20 28 6c 65 6e 20 len);...if (len
2370: 3c 20 30 29 20 7b 0a 09 09 20 20 20 20 72 65 74 < 0) {... ret
2380: 75 72 6e 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f urn Tcl_GetErrno
2390: 28 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 ();...}.. }..
23a0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2f 2a } else {.. /*
23b0: 20 45 72 72 6f 72 20 2a 2f 0a 09 7d 0a 0a 09 73 Error */..}...s
23c0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c tatePtr->flags |
23d0: 3d 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 = CHAN_EOF;.
23e0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d }.. /* Clean-
23f0: 75 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 up */. Encryp
2400: 74 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 tStateFree(state
2410: 50 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Ptr);. return
2420: 20 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 6d 0;.}../*. * Sam
2430: 65 20 61 73 20 45 6e 63 72 79 70 74 43 6c 6f 73 e as EncryptClos
2440: 65 50 72 6f 63 20 62 75 74 20 77 69 74 68 20 69 eProc but with i
2450: 6e 64 69 76 69 64 75 61 6c 20 72 65 61 64 20 61 ndividual read a
2460: 6e 64 20 77 72 69 74 65 20 63 6c 6f 73 65 20 63 nd write close c
2470: 6f 6e 74 72 6f 6c 0a 20 2a 2f 0a 73 74 61 74 69 ontrol. */.stati
2480: 63 20 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f c int EncryptClo
2490: 73 65 32 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 se2Proc(ClientDa
24a0: 74 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c ta instanceData,
24b0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 Tcl_Interp *int
24c0: 65 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 20 erp, int flags)
24d0: 7b 0a 20 20 20 20 69 66 20 28 28 66 6c 61 67 73 {. if ((flags
24e0: 20 26 20 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 & (TCL_CLOSE_RE
24f0: 41 44 20 7c 20 54 43 4c 5f 43 4c 4f 53 45 5f 57 AD | TCL_CLOSE_W
2500: 52 49 54 45 29 29 20 3d 3d 20 30 29 20 7b 0a 09 RITE)) == 0) {..
2510: 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 43 6c return EncryptCl
2520: 6f 73 65 50 72 6f 63 28 69 6e 73 74 61 6e 63 65 oseProc(instance
2530: 44 61 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a 20 Data, interp);.
2540: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
2550: 45 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 2a EINVAL;.}../*. *
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 2d 2d ----------------
2590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
25a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
25b0: 72 79 70 74 49 6e 70 75 74 50 72 6f 63 20 2d 2d ryptInputProc --
25c0: 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 . *. *.Called by
25d0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
25e0: 73 79 73 74 65 6d 20 74 6f 20 72 65 61 64 20 64 system to read d
25f0: 61 74 61 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f ata from transfo
2600: 72 6d 20 61 6e 64 0a 20 2a 09 70 6c 61 63 65 20 rm and. *.place
2610: 69 6e 20 62 75 66 2e 20 54 72 61 6e 73 66 6f 72 in buf. Transfor
2620: 6d 20 67 65 74 73 20 64 61 74 61 20 66 72 6f 6d m gets data from
2630: 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 the underlying
2640: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 channel.. *. * R
2650: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c eturns:. *.Total
2660: 20 62 79 74 65 73 20 72 65 61 64 20 6f 72 20 2d bytes read or -
2670: 31 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 20 61 1 for an error a
2680: 6c 6f 6e 67 20 77 69 74 68 20 61 20 50 4f 53 49 long with a POSI
2690: 58 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 65 20 X error. *.code
26a0: 69 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2e in errorCodePtr.
26b0: 20 55 73 65 20 45 41 47 41 49 4e 20 66 6f 72 20 Use EAGAIN for
26c0: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 nonblocking and
26d0: 6e 6f 20 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 53 no data.. *. * S
26e0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
26f0: 52 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 74 Read data from t
2700: 72 61 6e 73 66 6f 72 6d 20 61 6e 64 20 77 72 69 ransform and wri
2710: 74 65 20 74 6f 20 62 75 66 0a 20 2a 0a 20 2a 2d te to buf. *. *-
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 2d 2d 2d ----------------
2750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2760: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
2770: 63 72 79 70 74 49 6e 70 75 74 50 72 6f 63 28 43 cryptInputProc(C
2780: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
2790: 44 61 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c Data, char *buf,
27a0: 20 69 6e 74 20 74 6f 52 65 61 64 2c 20 69 6e 74 int toRead, int
27b0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 *errorCodePtr)
27c0: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
27d0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
27e0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
27f0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
2800: 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 Tcl_Channel pare
2810: 6e 74 3b 0a 20 20 20 20 69 6e 74 20 72 65 61 64 nt;. int read
2820: 2c 20 6f 75 74 5f 6c 65 6e 3b 0a 20 20 20 20 2a , out_len;. *
2830: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 errorCodePtr = 0
2840: 3b 0a 20 20 20 20 63 68 61 72 20 2a 69 6e 5f 62 ;. char *in_b
2850: 75 66 3b 0a 20 20 20 20 0a 20 20 20 20 2f 2a 20 uf;. . /*
2860: 41 62 6f 72 74 20 69 66 20 6e 6f 74 68 69 6e 67 Abort if nothing
2870: 20 74 6f 20 70 72 6f 63 65 73 73 20 2a 2f 0a 20 to process */.
2880: 20 20 20 69 66 20 28 74 6f 52 65 61 64 20 3c 3d if (toRead <=
2890: 20 30 20 7c 7c 20 73 74 61 74 65 50 74 72 2d 3e 0 || statePtr->
28a0: 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 self == (Tcl_Cha
28b0: 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 nnel) NULL) {..r
28c0: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a eturn 0;. }..
28d0: 20 20 20 20 2f 2a 20 47 65 74 20 62 79 74 65 73 /* Get bytes
28e0: 20 66 72 6f 6d 20 75 6e 64 65 72 6c 79 69 6e 67 from underlying
28f0: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
2900: 69 6e 5f 62 75 66 20 3d 20 54 63 6c 5f 41 6c 6c in_buf = Tcl_All
2910: 6f 63 28 74 6f 52 65 61 64 29 3b 0a 20 20 20 20 oc(toRead);.
2920: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
2930: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
2940: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
2950: 20 20 20 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 read = Tcl_R
2960: 65 61 64 52 61 77 28 70 61 72 65 6e 74 2c 20 69 eadRaw(parent, i
2970: 6e 5f 62 75 66 2c 20 74 6f 52 65 61 64 29 3b 0a n_buf, toRead);.
2980: 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 20 66 . /* Update f
2990: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 unction */. i
29a0: 66 20 28 72 65 61 64 20 3e 20 30 29 20 7b 0a 09 f (read > 0) {..
29b0: 2f 2a 20 48 61 76 65 20 64 61 74 61 20 2d 20 55 /* Have data - U
29c0: 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a pdate function *
29d0: 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 55 70 /..if (EncryptUp
29e0: 64 61 74 65 28 73 74 61 74 65 50 74 72 2d 3e 69 date(statePtr->i
29f0: 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d nterp, statePtr-
2a00: 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d >type, statePtr-
2a10: 3e 63 74 78 2c 20 62 75 66 2c 20 26 6f 75 74 5f >ctx, buf, &out_
2a20: 6c 65 6e 2c 20 69 6e 5f 62 75 66 2c 20 72 65 61 len, in_buf, rea
2a30: 64 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a d) == TCL_OK) {.
2a40: 09 20 20 20 20 2f 2a 20 49 66 20 68 61 76 65 20 . /* If have
2a50: 64 61 74 61 2c 20 70 75 74 20 69 6e 20 62 75 66 data, put in buf
2a60: 2c 20 6f 74 68 65 72 77 69 73 65 20 74 65 6c 6c , otherwise tell
2a70: 20 54 43 4c 20 74 6f 20 74 72 79 20 61 67 61 69 TCL to try agai
2a80: 6e 20 2a 2f 0a 09 20 20 20 20 69 66 20 28 6f 75 n */.. if (ou
2a90: 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 72 t_len > 0) {...r
2aa0: 65 61 64 20 3d 20 6f 75 74 5f 6c 65 6e 3b 0a 09 ead = out_len;..
2ab0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 2a } else {...*
2ac0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
2ad0: 41 47 41 49 4e 3b 0a 09 09 72 65 61 64 20 3d 20 AGAIN;...read =
2ae0: 2d 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 6c -1;.. }..} el
2af0: 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 65 se {.. Tcl_Se
2b00: 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 74 tChannelError(st
2b10: 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 63 atePtr->self, Tc
2b20: 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 64 l_ObjPrintf("Upd
2b30: 61 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 2c ate failed: %s",
2b40: 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 REASON()));..
2b50: 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 *errorCodePtr
2b60: 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 = EINVAL;.. r
2b70: 65 61 64 20 3d 20 30 3b 0a 09 7d 0a 0a 20 20 20 ead = 0;..}..
2b80: 20 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 } else if (read
2b90: 20 3c 20 30 29 20 7b 0a 09 2f 2a 20 45 72 72 6f < 0) {../* Erro
2ba0: 72 20 2a 2f 0a 09 2a 65 72 72 6f 72 43 6f 64 65 r */..*errorCode
2bb0: 50 74 72 20 3d 20 54 63 6c 5f 47 65 74 45 72 72 Ptr = Tcl_GetErr
2bc0: 6e 6f 28 29 3b 0a 0a 20 20 20 20 7d 20 65 6c 73 no();.. } els
2bd0: 65 20 69 66 20 28 21 28 73 74 61 74 65 50 74 72 e if (!(statePtr
2be0: 2d 3e 66 6c 61 67 73 20 26 20 43 48 41 4e 5f 45 ->flags & CHAN_E
2bf0: 4f 46 29 29 20 7b 0a 09 2f 2a 20 45 4f 46 20 2d OF)) {../* EOF -
2c00: 20 46 69 6e 61 6c 69 7a 65 20 66 75 6e 63 74 69 Finalize functi
2c10: 6f 6e 20 61 6e 64 20 70 75 74 20 61 6e 79 20 72 on and put any r
2c20: 65 6d 61 69 6e 69 6e 67 20 64 61 74 61 20 69 6e emaining data in
2c30: 20 62 75 66 20 2a 2f 0a 09 69 66 20 28 45 6e 63 buf */..if (Enc
2c40: 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 73 74 61 ryptFinalize(sta
2c50: 74 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 tePtr->interp, s
2c60: 74 61 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 tatePtr->type, s
2c70: 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 62 75 tatePtr->ctx, bu
2c80: 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 f, &out_len) ==
2c90: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 72 TCL_OK) {.. r
2ca0: 65 61 64 20 3d 20 6f 75 74 5f 6c 65 6e 3b 0a 09 ead = out_len;..
2cb0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 } else {.. Tc
2cc0: 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f l_SetChannelErro
2cd0: 72 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 r(statePtr->self
2ce0: 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 , Tcl_ObjPrintf(
2cf0: 22 46 69 6e 61 6c 69 7a 65 20 66 61 69 6c 65 64 "Finalize failed
2d00: 3a 20 25 73 22 2c 20 52 45 41 53 4f 4e 28 29 29 : %s", REASON())
2d10: 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f );.. *errorCo
2d20: 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a dePtr = EINVAL;.
2d30: 09 20 20 20 20 72 65 61 64 20 3d 20 30 3b 0a 09 . read = 0;..
2d40: 7d 0a 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c }...statePtr->fl
2d50: 61 67 73 20 7c 3d 20 43 48 41 4e 5f 45 4f 46 3b ags |= CHAN_EOF;
2d60: 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 46 . }. Tcl_F
2d70: 72 65 65 28 69 6e 5f 62 75 66 29 3b 0a 20 20 20 ree(in_buf);.
2d80: 20 72 65 74 75 72 6e 20 72 65 61 64 3b 0a 7d 0a return read;.}.
2d90: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
2de0: 20 2a 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 * EncryptOutput
2df0: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
2e00: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
2e10: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
2e20: 20 77 72 69 74 65 20 64 61 74 61 20 69 6e 20 62 write data in b
2e30: 75 66 20 74 6f 20 74 72 61 6e 73 66 6f 72 6d 2e uf to transform.
2e40: 0a 20 2a 09 54 68 65 20 74 72 61 6e 73 66 6f 72 . *.The transfor
2e50: 6d 20 77 72 69 74 65 73 20 74 68 65 20 72 65 73 m writes the res
2e60: 75 6c 74 20 74 6f 20 74 68 65 20 75 6e 64 65 72 ult to the under
2e70: 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a 20 lying channel..
2e80: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
2e90: 09 54 6f 74 61 6c 20 62 79 74 65 73 20 77 72 69 .Total bytes wri
2ea0: 74 74 65 6e 20 6f 72 20 2d 31 20 66 6f 72 20 61 tten or -1 for a
2eb0: 6e 20 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 n error along wi
2ec0: 74 68 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 th a POSIX error
2ed0: 0a 20 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f . *.code in erro
2ee0: 72 43 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 rCodePtr. Use EA
2ef0: 47 41 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 GAIN for nonbloc
2f00: 6b 69 6e 67 20 61 6e 64 20 63 61 6e 27 74 20 77 king and can't w
2f10: 72 69 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 2a rite data.. *. *
2f20: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
2f30: 2a 09 47 65 74 20 64 61 74 61 20 66 72 6f 6d 20 *.Get data from
2f40: 62 75 66 20 61 6e 64 20 75 70 64 61 74 65 20 65 buf and update e
2f50: 6e 63 72 79 70 74 69 6f 6e 0a 20 2a 0a 20 2a 2d ncryption. *. *-
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 2d 2d 2d ----------------
2f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fa0: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 20 69 6e 74 20 45 -----. */. int E
2fb0: 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 6f 63 ncryptOutputProc
2fc0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
2fd0: 6e 74 44 61 74 61 2c 20 63 6f 6e 73 74 20 63 68 ntData, const ch
2fe0: 61 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 57 ar *buf, int toW
2ff0: 72 69 74 65 2c 20 69 6e 74 20 2a 65 72 72 6f 72 rite, int *error
3000: 43 6f 64 65 50 74 72 29 20 7b 0a 20 20 20 20 45 CodePtr) {. E
3010: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 ncryptState *sta
3020: 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 tePtr = (Encrypt
3030: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
3040: 61 74 61 3b 0a 20 20 20 20 69 6e 74 20 77 72 69 ata;. int wri
3050: 74 65 20 3d 20 30 2c 20 6f 75 74 5f 6c 65 6e 3b te = 0, out_len;
3060: 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 50 . *errorCodeP
3070: 74 72 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 72 tr = 0;. char
3080: 20 2a 6f 75 74 5f 62 75 66 3b 0a 0a 20 20 20 20 *out_buf;..
3090: 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 74 68 /* Abort if noth
30a0: 69 6e 67 20 74 6f 20 70 72 6f 63 65 73 73 20 2a ing to process *
30b0: 2f 0a 20 20 20 20 69 66 20 28 74 6f 57 72 69 74 /. if (toWrit
30c0: 65 20 3c 3d 20 30 20 7c 7c 20 73 74 61 74 65 50 e <= 0 || stateP
30d0: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
30e0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
30f0: 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a 20 20 20 {..return 0;.
3100: 20 7d 0a 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 }.. out_buf
3110: 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 74 6f 57 72 = Tcl_Alloc(toWr
3120: 69 74 65 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 ite+EVP_MAX_BLOC
3130: 4b 5f 4c 45 4e 47 54 48 29 3b 0a 0a 20 20 20 20 K_LENGTH);..
3140: 2f 2a 20 55 70 64 61 74 65 20 66 75 6e 63 74 69 /* Update functi
3150: 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 6e on */. if (En
3160: 63 72 79 70 74 55 70 64 61 74 65 28 73 74 61 74 cryptUpdate(stat
3170: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 ePtr->interp, st
3180: 61 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 atePtr->type, st
3190: 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 atePtr->ctx, out
31a0: 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 _buf, &out_len,
31b0: 62 75 66 2c 20 74 6f 57 72 69 74 65 29 20 3d 3d buf, toWrite) ==
31c0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 TCL_OK) {../* I
31d0: 66 20 68 61 76 65 20 64 61 74 61 2c 20 6f 75 74 f have data, out
31e0: 70 75 74 20 69 74 2c 20 6f 74 68 65 72 77 69 73 put it, otherwis
31f0: 65 20 74 65 6c 6c 20 54 43 4c 20 74 6f 20 74 72 e tell TCL to tr
3200: 79 20 61 67 61 69 6e 20 2a 2f 0a 09 69 66 20 28 y again */..if (
3210: 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 out_len > 0) {..
3220: 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 Tcl_Channel
3230: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
3240: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
3250: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
3260: 09 20 20 20 20 77 72 69 74 65 20 3d 20 54 63 6c . write = Tcl
3270: 5f 57 72 69 74 65 52 61 77 28 70 61 72 65 6e 74 _WriteRaw(parent
3280: 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 , (const char *)
3290: 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 out_buf, out_le
32a0: 6e 29 3b 0a 09 20 20 20 20 77 72 69 74 65 20 3d n);.. write =
32b0: 20 74 6f 57 72 69 74 65 3b 0a 09 7d 20 65 6c 73 toWrite;..} els
32c0: 65 20 7b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 e {.. *errorC
32d0: 6f 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b odePtr = EAGAIN;
32e0: 0a 09 20 20 20 20 77 72 69 74 65 20 3d 20 2d 31 .. write = -1
32f0: 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 ;..}.. } else
3300: 20 7b 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e {..Tcl_SetChann
3310: 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 elError(statePtr
3320: 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 ->self, Tcl_ObjP
3330: 72 69 6e 74 66 28 22 55 70 64 61 74 65 20 66 61 rintf("Update fa
3340: 69 6c 65 64 3a 20 25 73 22 2c 20 52 45 41 53 4f iled: %s", REASO
3350: 4e 28 29 29 29 3b 0a 09 2a 65 72 72 6f 72 43 6f N()));..*errorCo
3360: 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a dePtr = EINVAL;.
3370: 09 77 72 69 74 65 20 3d 20 30 3b 0a 20 20 20 20 .write = 0;.
3380: 7d 0a 20 20 20 20 54 63 6c 5f 46 72 65 65 28 6f }. Tcl_Free(o
3390: 75 74 5f 62 75 66 29 3b 0a 20 20 20 20 72 65 74 ut_buf);. ret
33a0: 75 72 6e 20 77 72 69 74 65 3b 0a 7d 0a 0a 2f 2a urn write;.}../*
33b0: 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
33f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
3400: 45 6e 63 72 79 70 74 53 65 74 4f 70 74 69 6f 6e EncryptSetOption
3410: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
3420: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
3430: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
3440: 20 73 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 74 set channel opt
3450: 69 6f 6e 20 6e 61 6d 65 20 74 6f 20 76 61 6c 75 ion name to valu
3460: 65 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 e.. *. * Returns
3470: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 :. *.TCL_OK if s
3480: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
3490: 5f 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 _ERROR if failed
34a0: 20 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e 20 65 along with an e
34b0: 72 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 65 20 rror. *.message
34c0: 69 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 54 63 in interp and Tc
34d0: 6c 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a 0a 20 l_SetErrno.. *.
34e0: 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a * Side effects:.
34f0: 20 2a 09 55 70 64 61 74 65 73 20 63 68 61 6e 6e *.Updates chann
3500: 65 6c 20 6f 70 74 69 6f 6e 20 74 6f 20 6e 65 77 el option to new
3510: 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d value.. *. *---
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 2d 2d 2d 2d 2d ----------------
3550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3560: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 ---. */.static i
3570: 6e 74 20 45 6e 63 72 79 70 74 53 65 74 4f 70 74 nt EncryptSetOpt
3580: 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 ionProc(ClientDa
3590: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
35a0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
35b0: 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f p, const char *o
35c0: 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 63 6f 6e 73 ptionName,..cons
35d0: 74 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 56 61 t char *optionVa
35e0: 6c 75 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 lue) {. Encry
35f0: 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ptState *statePt
3600: 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 r = (EncryptStat
3610: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
3620: 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c . Tcl_Channel
3630: 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 63 6c parent;. Tcl
3640: 5f 44 72 69 76 65 72 53 65 74 4f 70 74 69 6f 6e _DriverSetOption
3650: 50 72 6f 63 20 2a 73 65 74 4f 70 74 69 6f 6e 50 Proc *setOptionP
3660: 72 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f roc;.. /* Abo
3670: 72 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c rt if no channel
3680: 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 */. if (stat
3690: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 ePtr->self == (T
36a0: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
36b0: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
36c0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
36d0: 20 20 2f 2a 20 44 65 6c 65 67 61 74 65 20 6f 70 /* Delegate op
36e0: 74 69 6f 6e 73 20 64 6f 77 6e 73 74 72 65 61 6d tions downstream
36f0: 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d */. parent =
3700: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
3710: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
3720: 3e 73 65 6c 66 29 3b 0a 20 20 20 20 73 65 74 4f >self);. setO
3730: 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 6c 5f ptionProc = Tcl_
3740: 43 68 61 6e 6e 65 6c 53 65 74 4f 70 74 69 6f 6e ChannelSetOption
3750: 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e Proc(Tcl_GetChan
3760: 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 nelType(parent))
3770: 3b 0a 20 20 20 20 69 66 20 28 73 65 74 4f 70 74 ;. if (setOpt
3780: 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c 4c 29 ionProc != NULL)
3790: 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 73 65 74 {..return (*set
37a0: 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 6c 5f OptionProc)(Tcl_
37b0: 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 61 6e GetChannelInstan
37c0: 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 2c 20 ceData(parent),
37d0: 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 interp, optionNa
37e0: 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 65 29 me, optionValue)
37f0: 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 ;. } else {..
3800: 54 63 6c 5f 53 65 74 45 72 72 6e 6f 28 45 49 4e Tcl_SetErrno(EIN
3810: 56 41 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 63 VAL);..return Tc
3820: 6c 5f 42 61 64 43 68 61 6e 6e 65 6c 4f 70 74 69 l_BadChannelOpti
3830: 6f 6e 28 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f on(interp, optio
3840: 6e 4e 61 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 20 20 nName, NULL);.
3850: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d ----------------
3890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
38a0: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
38b0: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d GetOptionProc --
38c0: 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 . *. *.Called by
38d0: 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 the generic IO
38e0: 73 79 73 74 65 6d 20 74 6f 20 67 65 74 20 63 68 system to get ch
38f0: 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d annel option nam
3900: 65 27 73 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a e's value.. *. *
3910: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
3920: 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 _OK if successfu
3930: 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 l or TCL_ERROR i
3940: 66 20 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 f failed along w
3950: 69 74 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 ith an error. *.
3960: 6d 65 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 message in inter
3970: 70 20 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 p and Tcl_SetErr
3980: 6e 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 no.. *. * Side e
3990: 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 ffects:. *.Sets
39a0: 72 65 73 75 6c 74 20 74 6f 20 6f 70 74 69 6f 6e result to option
39b0: 27 73 20 76 61 6c 75 65 0a 20 2a 0a 20 2a 2d 2d 's value. *. *--
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 2d 2d 2d 2d ----------------
39f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3a00: 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 ----. */.static
3a10: 69 6e 74 20 45 6e 63 72 79 70 74 47 65 74 4f 70 int EncryptGetOp
3a20: 74 69 6f 6e 50 72 6f 63 28 43 6c 69 65 6e 74 44 tionProc(ClientD
3a30: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
3a40: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
3a50: 72 70 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a rp, const char *
3a60: 6f 70 74 69 6f 6e 4e 61 6d 65 2c 0a 09 54 63 6c optionName,..Tcl
3a70: 5f 44 53 74 72 69 6e 67 20 2a 6f 70 74 69 6f 6e _DString *option
3a80: 56 61 6c 75 65 29 20 7b 0a 20 20 20 20 45 6e 63 Value) {. Enc
3a90: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
3aa0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
3ab0: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
3ac0: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
3ad0: 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 54 el parent;. T
3ae0: 63 6c 5f 44 72 69 76 65 72 47 65 74 4f 70 74 69 cl_DriverGetOpti
3af0: 6f 6e 50 72 6f 63 20 2a 67 65 74 4f 70 74 69 6f onProc *getOptio
3b00: 6e 50 72 6f 63 3b 0a 0a 20 20 20 20 2f 2a 20 41 nProc;.. /* A
3b10: 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 6e 6e bort if no chann
3b20: 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 el */. if (st
3b30: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 atePtr->self ==
3b40: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
3b50: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 LL) {..return TC
3b60: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
3b70: 20 20 20 20 2f 2a 20 44 65 6c 65 67 61 74 65 20 /* Delegate
3b80: 6f 70 74 69 6f 6e 73 20 64 6f 77 6e 73 74 72 65 options downstre
3b90: 61 6d 20 2a 2f 0a 20 20 20 20 70 61 72 65 6e 74 am */. parent
3ba0: 20 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 = Tcl_GetStacke
3bb0: 64 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 dChannel(statePt
3bc0: 72 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 67 65 r->self);. ge
3bd0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 3d 20 54 63 tOptionProc = Tc
3be0: 6c 5f 43 68 61 6e 6e 65 6c 47 65 74 4f 70 74 69 l_ChannelGetOpti
3bf0: 6f 6e 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 onProc(Tcl_GetCh
3c00: 61 6e 6e 65 6c 54 79 70 65 28 70 61 72 65 6e 74 annelType(parent
3c10: 29 29 3b 0a 20 20 20 20 69 66 20 28 67 65 74 4f ));. if (getO
3c20: 70 74 69 6f 6e 50 72 6f 63 20 21 3d 20 4e 55 4c ptionProc != NUL
3c30: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 28 2a 67 L) {..return (*g
3c40: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 29 28 54 63 etOptionProc)(Tc
3c50: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 74 l_GetChannelInst
3c60: 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 29 anceData(parent)
3c70: 2c 20 69 6e 74 65 72 70 2c 20 6f 70 74 69 6f 6e , interp, option
3c80: 4e 61 6d 65 2c 20 6f 70 74 69 6f 6e 56 61 6c 75 Name, optionValu
3c90: 65 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 e);. } else i
3ca0: 66 20 28 6f 70 74 69 6f 6e 4e 61 6d 65 20 3d 3d f (optionName ==
3cb0: 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 20 7b (char*) NULL) {
3cc0: 0a 09 2f 2a 20 52 65 71 75 65 73 74 20 69 73 20 ../* Request is
3cd0: 71 75 65 72 79 20 66 6f 72 20 61 6c 6c 20 6f 70 query for all op
3ce0: 74 69 6f 6e 73 2c 20 74 68 69 73 20 69 73 20 6f tions, this is o
3cf0: 6b 2e 20 2a 2f 0a 09 72 65 74 75 72 6e 20 54 43 k. */..return TC
3d00: 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 L_OK;. } else
3d10: 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6e 6f {..Tcl_SetErrno
3d20: 28 45 49 4e 56 41 4c 29 3b 0a 09 72 65 74 75 72 (EINVAL);..retur
3d30: 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e 6e 65 6c n Tcl_BadChannel
3d40: 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 2c 20 6f Option(interp, o
3d50: 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 4c 4c 29 ptionName, NULL)
3d60: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a ;. }.}../*. *
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 2d 2d ----------------
3da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3db0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
3dc0: 72 79 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 ryptTimerHandler
3dd0: 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 --. *. *.Called
3de0: 20 62 79 20 74 68 65 20 6e 6f 74 69 66 69 65 72 by the notifier
3df0: 20 76 69 61 20 74 69 6d 65 72 20 74 6f 20 66 6c via timer to fl
3e00: 75 73 68 20 6f 75 74 20 70 65 6e 64 69 6e 67 20 ush out pending
3e10: 69 6e 70 75 74 20 64 61 74 61 2e 0a 20 2a 0a 20 input data.. *.
3e20: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f * Returns:. *.No
3e30: 74 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 thing. *. * Side
3e40: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4d 61 79 effects:. *.May
3e50: 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 79 call Tcl_Notify
3e60: 43 68 61 6e 6e 65 6c 0a 20 2a 0a 20 2a 2d 2d 2d Channel. *. *---
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 2d 2d 2d 2d 2d ----------------
3ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3eb0: 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 76 ---. */.static v
3ec0: 6f 69 64 20 45 6e 63 72 79 70 74 54 69 6d 65 72 oid EncryptTimer
3ed0: 48 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 Handler(ClientDa
3ee0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b ta clientData) {
3ef0: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
3f00: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
3f10: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
3f20: 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 lientData;..
3f30: 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 /* Abort if no c
3f40: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 hannel */. if
3f50: 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 (statePtr->self
3f60: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
3f70: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
3f80: 6e 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a n;. }.. /*
3f90: 20 43 6c 65 61 72 20 74 69 6d 65 72 20 74 6f 6b Clear timer tok
3fa0: 65 6e 20 2a 2f 0a 20 20 20 20 73 74 61 74 65 50 en */. stateP
3fb0: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c tr->timer = (Tcl
3fc0: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
3fd0: 4c 3b 0a 0a 20 20 20 20 2f 2a 20 46 69 72 65 20 L;.. /* Fire
3fe0: 65 76 65 6e 74 20 69 66 20 74 68 65 72 65 20 69 event if there i
3ff0: 73 20 70 65 6e 64 69 6e 67 20 64 61 74 61 2c 20 s pending data,
4000: 73 6b 69 70 20 6f 74 68 65 72 77 69 73 65 20 2a skip otherwise *
4010: 2f 0a 20 20 20 20 69 66 20 28 28 73 74 61 74 65 /. if ((state
4020: 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 6b 20 26 Ptr->watchMask &
4030: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 20 26 TCL_READABLE) &
4040: 26 20 28 54 63 6c 5f 49 6e 70 75 74 42 75 66 66 & (Tcl_InputBuff
4050: 65 72 65 64 28 73 74 61 74 65 50 74 72 2d 3e 73 ered(statePtr->s
4060: 65 6c 66 29 20 3e 20 30 29 29 20 7b 0a 09 54 63 elf) > 0)) {..Tc
4070: 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 28 l_NotifyChannel(
4080: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 statePtr->self,
4090: 54 43 4c 5f 52 45 41 44 41 42 4c 45 29 3b 0a 20 TCL_READABLE);.
40a0: 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d ----------------
40e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
40f0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
4100: 74 57 61 74 63 68 50 72 6f 63 20 2d 2d 0a 20 2a tWatchProc --. *
4110: 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a 65 20 74 . *.Initialize t
4120: 68 65 20 6e 6f 74 69 66 69 65 72 20 74 6f 20 77 he notifier to w
4130: 61 74 63 68 20 66 6f 72 20 65 76 65 6e 74 73 20 atch for events
4140: 66 72 6f 6d 20 74 68 69 73 20 63 68 61 6e 6e 65 from this channe
4150: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 l.. *. * Returns
4160: 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 20 28 63 61 :. *.Nothing (ca
4170: 6e 27 74 20 72 65 74 75 72 6e 20 65 72 72 6f 72 n't return error
4180: 20 6d 65 73 73 61 67 65 73 29 0a 20 2a 0a 20 2a messages). *. *
4190: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
41a0: 2a 09 43 6f 6e 66 69 67 75 72 65 20 6e 6f 74 69 *.Configure noti
41b0: 66 69 65 72 20 73 6f 20 66 75 74 75 72 65 20 65 fier so future e
41c0: 76 65 6e 74 73 20 6f 6e 20 74 68 65 20 63 68 61 vents on the cha
41d0: 6e 6e 65 6c 20 77 69 6c 6c 20 62 65 20 73 65 65 nnel will be see
41e0: 6e 20 62 79 20 54 63 6c 2e 0a 20 2a 0a 20 2a 2d n by Tcl.. *. *-
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 2d 2d 2d ----------------
4220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4230: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 45 -----. */.void E
4240: 6e 63 72 79 70 74 57 61 74 63 68 50 72 6f 63 28 ncryptWatchProc(
4250: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
4260: 74 44 61 74 61 2c 20 69 6e 74 20 6d 61 73 6b 29 tData, int mask)
4270: 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 {. EncryptSt
4280: 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 ate *statePtr =
4290: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 (EncryptState *)
42a0: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
42b0: 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 Tcl_Channel par
42c0: 65 6e 74 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 ent;. Tcl_Dri
42d0: 76 65 72 57 61 74 63 68 50 72 6f 63 20 2a 77 61 verWatchProc *wa
42e0: 74 63 68 50 72 6f 63 3b 0a 0a 20 20 20 20 2f 2a tchProc;.. /*
42f0: 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 63 68 61 Abort if no cha
4300: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 nnel */. if (
4310: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
4320: 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 = (Tcl_Channel)
4330: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
4340: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 . }.. /* S
4350: 74 6f 72 65 20 4f 52 2d 65 64 20 63 6f 6d 62 69 tore OR-ed combi
4360: 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 nation of TCL_RE
4370: 41 44 41 42 4c 45 2c 20 54 43 4c 5f 57 52 49 54 ADABLE, TCL_WRIT
4380: 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 45 58 43 ABLE and TCL_EXC
4390: 45 50 54 49 4f 4e 20 2a 2f 0a 20 20 20 20 73 74 EPTION */. st
43a0: 61 74 65 50 74 72 2d 3e 77 61 74 63 68 4d 61 73 atePtr->watchMas
43b0: 6b 20 3d 20 6d 61 73 6b 3b 0a 0a 20 20 20 20 2f k = mask;.. /
43c0: 2a 20 50 72 6f 70 61 67 61 74 65 20 6d 61 73 6b * Propagate mask
43d0: 20 69 6e 66 6f 20 74 6f 20 70 61 72 65 6e 74 20 info to parent
43e0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 70 channel */. p
43f0: 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 arent = Tcl_GetS
4400: 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 tackedChannel(st
4410: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 atePtr->self);.
4420: 20 20 20 77 61 74 63 68 50 72 6f 63 20 3d 20 54 watchProc = T
4430: 63 6c 5f 43 68 61 6e 6e 65 6c 57 61 74 63 68 50 cl_ChannelWatchP
4440: 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e roc(Tcl_GetChann
4450: 65 6c 54 79 70 65 28 70 61 72 65 6e 74 29 29 3b elType(parent));
4460: 0a 20 20 20 20 77 61 74 63 68 50 72 6f 63 28 54 . watchProc(T
4470: 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 49 6e 73 cl_GetChannelIns
4480: 74 61 6e 63 65 44 61 74 61 28 70 61 72 65 6e 74 tanceData(parent
4490: 29 2c 20 6d 61 73 6b 29 3b 0a 0a 20 20 20 20 2f ), mask);.. /
44a0: 2a 20 52 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 * Remove pending
44b0: 20 74 69 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 timer */. if
44c0: 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 (statePtr->time
44d0: 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 r != (Tcl_TimerT
44e0: 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 oken) NULL) {..T
44f0: 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 61 cl_DeleteTimerHa
4500: 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d 3e ndler(statePtr->
4510: 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 74 timer);..statePt
4520: 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f r->timer = (Tcl_
4530: 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c TimerToken) NULL
4540: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
4550: 49 66 20 74 68 65 72 65 20 69 73 20 64 61 74 61 If there is data
4560: 20 70 65 6e 64 69 6e 67 2c 20 73 65 74 20 6e 65 pending, set ne
4570: 77 20 74 69 6d 65 72 20 74 6f 20 63 61 6c 6c 20 w timer to call
4580: 54 63 6c 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 Tcl_NotifyChanne
4590: 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 28 6d 61 l */. if ((ma
45a0: 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 41 42 4c sk & TCL_READABL
45b0: 45 29 20 26 26 20 28 54 63 6c 5f 49 6e 70 75 74 E) && (Tcl_Input
45c0: 42 75 66 66 65 72 65 64 28 73 74 61 74 65 50 74 Buffered(statePt
45d0: 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 29 20 7b r->self) > 0)) {
45e0: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
45f0: 72 20 3d 20 54 63 6c 5f 43 72 65 61 74 65 54 69 r = Tcl_CreateTi
4600: 6d 65 72 48 61 6e 64 6c 65 72 28 52 45 41 44 5f merHandler(READ_
4610: 44 45 4c 41 59 2c 20 45 6e 63 72 79 70 74 54 69 DELAY, EncryptTi
4620: 6d 65 72 48 61 6e 64 6c 65 72 2c 20 28 43 6c 69 merHandler, (Cli
4630: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
4640: 72 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a r);. }.}../*.
4650: 20 2a 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: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4690: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
46a0: 6e 63 72 79 70 74 47 65 74 48 61 6e 64 6c 65 50 ncryptGetHandleP
46b0: 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 6c roc --. *. *.Cal
46c0: 6c 65 64 20 66 72 6f 6d 20 54 63 6c 5f 47 65 74 led from Tcl_Get
46d0: 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 20 74 6f ChannelHandle to
46e0: 20 72 65 74 72 69 65 76 65 20 4f 53 20 73 70 65 retrieve OS spe
46f0: 63 69 66 69 63 20 66 69 6c 65 20 68 61 6e 64 6c cific file handl
4700: 65 0a 20 2a 09 66 72 6f 6d 20 69 6e 73 69 64 65 e. *.from inside
4710: 20 74 68 69 73 20 63 68 61 6e 6e 65 6c 2e 20 4e this channel. N
4720: 6f 74 20 75 73 65 64 20 66 6f 72 20 74 72 61 6e ot used for tran
4730: 73 66 6f 72 6d 61 74 69 6f 6e 73 3f 0a 20 2a 0a sformations?. *.
4740: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
4750: 43 4c 5f 4f 4b 20 66 6f 72 20 73 75 63 63 65 73 CL_OK for succes
4760: 73 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 s or TCL_ERROR f
4770: 6f 72 20 65 72 72 6f 72 20 6f 72 20 69 66 20 6e or error or if n
4780: 6f 74 20 73 75 70 70 6f 72 74 65 64 2e 20 49 66 ot supported. If
4790: 0a 20 2a 09 64 69 72 65 63 74 69 6f 6e 20 69 73 . *.direction is
47a0: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 73 TCL_READABLE, s
47b0: 65 74 73 20 68 61 6e 64 6c 65 50 74 72 20 74 6f ets handlePtr to
47c0: 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 the handle used
47d0: 20 66 6f 72 0a 20 2a 09 69 6e 70 75 74 2c 20 6f for. *.input, o
47e0: 72 20 69 66 20 54 43 4c 5f 57 52 49 54 41 42 4c r if TCL_WRITABL
47f0: 45 20 73 65 74 73 20 74 6f 20 74 68 65 20 68 61 E sets to the ha
4800: 6e 64 6c 65 20 75 73 65 64 20 66 6f 72 20 6f 75 ndle used for ou
4810: 74 70 75 74 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 tput.. *. * Side
4820: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 4e 6f 6e effects:. *.Non
4830: 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d e. *. *---------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4880: 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 47 65 74 /.int EncryptGet
4890: 48 61 6e 64 6c 65 50 72 6f 63 28 43 6c 69 65 6e HandleProc(Clien
48a0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
48b0: 2c 20 69 6e 74 20 64 69 72 65 63 74 69 6f 6e 2c , int direction,
48c0: 20 43 6c 69 65 6e 74 44 61 74 61 20 2a 68 61 6e ClientData *han
48d0: 64 6c 65 50 74 72 29 20 7b 0a 20 20 20 20 45 6e dlePtr) {. En
48e0: 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 cryptState *stat
48f0: 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 ePtr = (EncryptS
4900: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
4910: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ta;. Tcl_Chan
4920: 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 0a 20 20 20 nel parent;..
4930: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 /* Abort if no
4940: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 channel */. i
4950: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c f (statePtr->sel
4960: 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 f == (Tcl_Channe
4970: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
4980: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
4990: 20 20 7d 0a 0a 20 20 20 20 70 61 72 65 6e 74 20 }.. parent
49a0: 3d 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 = Tcl_GetStacked
49b0: 43 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 Channel(statePtr
49c0: 2d 3e 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 74 ->self);. ret
49d0: 75 72 6e 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e urn Tcl_GetChann
49e0: 65 6c 48 61 6e 64 6c 65 28 70 61 72 65 6e 74 2c elHandle(parent,
49f0: 20 64 69 72 65 63 74 69 6f 6e 2c 20 68 61 6e 64 direction, hand
4a00: 6c 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a lePtr);.}../*. *
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 2d 2d ----------------
4a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a50: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
4a60: 72 79 70 74 4e 6f 74 69 66 79 50 72 6f 63 20 2d ryptNotifyProc -
4a70: 2d 0a 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 -. *. *.Called b
4a80: 79 20 54 63 6c 20 74 6f 20 69 6e 66 6f 72 6d 20 y Tcl to inform
4a90: 75 73 20 6f 66 20 61 63 74 69 76 69 74 79 20 6f us of activity o
4aa0: 6e 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 n the underlying
4ab0: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
4ac0: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 55 6e 63 68 Returns:. *.Unch
4ad0: 61 6e 67 65 64 20 69 6e 74 65 72 65 73 74 4d 61 anged interestMa
4ae0: 73 6b 20 77 68 69 63 68 20 69 73 20 61 6e 20 4f sk which is an O
4af0: 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e R-ed combination
4b00: 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 of TCL_READABLE
4b10: 20 6f 72 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 or TCL_WRITABLE
4b20: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
4b30: 63 74 73 3a 0a 20 2a 09 43 61 6e 63 65 6c 73 20 cts:. *.Cancels
4b40: 61 6e 79 20 70 65 6e 64 69 6e 67 20 74 69 6d 65 any pending time
4b50: 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d r.. *. *--------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
4ba0: 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 4e 6f */.int EncryptNo
4bb0: 74 69 66 79 50 72 6f 63 28 43 6c 69 65 6e 74 44 tifyProc(ClientD
4bc0: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
4bd0: 69 6e 74 20 69 6e 74 65 72 65 73 74 4d 61 73 6b int interestMask
4be0: 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 ) {. EncryptS
4bf0: 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d tate *statePtr =
4c00: 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a (EncryptState *
4c10: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 ) clientData;..
4c20: 20 20 20 2f 2a 20 53 6b 69 70 20 74 69 6d 65 72 /* Skip timer
4c30: 20 65 76 65 6e 74 20 61 73 20 72 65 64 75 6e 64 event as redund
4c40: 61 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 ant */. if (s
4c50: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
4c60: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
4c70: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
4c80: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
4c90: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
4ca0: 65 72 29 3b 0a 09 73 74 61 74 65 50 74 72 2d 3e er);..statePtr->
4cb0: 74 69 6d 65 72 20 3d 20 28 54 63 6c 5f 54 69 6d timer = (Tcl_Tim
4cc0: 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 erToken) NULL;.
4cd0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
4ce0: 69 6e 74 65 72 65 73 74 4d 61 73 6b 3b 0a 7d 0a interestMask;.}.
4cf0: 0a 2f 2a 0a 20 2a 0a 20 2a 20 43 68 61 6e 6e 65 ./*. *. * Channe
4d00: 6c 20 74 79 70 65 20 73 74 72 75 63 74 75 72 65 l type structure
4d10: 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 20 definition for
4d20: 65 6e 63 72 79 70 74 69 6f 6e 20 74 72 61 6e 73 encryption trans
4d30: 66 6f 72 6d 61 74 69 6f 6e 73 2e 0a 20 2a 0a 20 formations.. *.
4d40: 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 */.static const
4d50: 54 63 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 Tcl_ChannelType
4d60: 65 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 54 79 encryptChannelTy
4d70: 70 65 20 3d 20 7b 0a 20 20 20 20 22 65 6e 63 72 pe = {. "encr
4d80: 79 70 74 69 6f 6e 22 2c 09 09 2f 2a 20 54 79 70 yption",../* Typ
4d90: 65 20 6e 61 6d 65 20 2a 2f 0a 20 20 20 20 54 43 e name */. TC
4da0: 4c 5f 43 48 41 4e 4e 45 4c 5f 56 45 52 53 49 4f L_CHANNEL_VERSIO
4db0: 4e 5f 35 2c 09 2f 2a 20 76 35 20 63 68 61 6e 6e N_5,./* v5 chann
4dc0: 65 6c 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 el */. Encryp
4dd0: 74 43 6c 6f 73 65 50 72 6f 63 2c 09 09 2f 2a 20 tCloseProc,../*
4de0: 43 6c 6f 73 65 20 70 72 6f 63 20 2a 2f 0a 20 20 Close proc */.
4df0: 20 20 45 6e 63 72 79 70 74 49 6e 70 75 74 50 72 EncryptInputPr
4e00: 6f 63 2c 09 09 2f 2a 20 49 6e 70 75 74 20 70 72 oc,../* Input pr
4e10: 6f 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 oc */. Encryp
4e20: 74 4f 75 74 70 75 74 50 72 6f 63 2c 09 09 2f 2a tOutputProc,../*
4e30: 20 4f 75 74 70 75 74 20 70 72 6f 63 20 2a 2f 0a Output proc */.
4e40: 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 53 NULL,.../* S
4e50: 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 eek proc */.
4e60: 45 6e 63 72 79 70 74 53 65 74 4f 70 74 69 6f 6e EncryptSetOption
4e70: 50 72 6f 63 2c 09 2f 2a 20 53 65 74 20 6f 70 74 Proc,./* Set opt
4e80: 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 ion proc */.
4e90: 45 6e 63 72 79 70 74 47 65 74 4f 70 74 69 6f 6e EncryptGetOption
4ea0: 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 6f 70 74 Proc,./* Get opt
4eb0: 69 6f 6e 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 ion proc */.
4ec0: 45 6e 63 72 79 70 74 57 61 74 63 68 50 72 6f 63 EncryptWatchProc
4ed0: 2c 09 09 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 ,../* Initialize
4ee0: 20 6e 6f 74 69 66 69 65 72 20 2a 2f 0a 20 20 20 notifier */.
4ef0: 20 45 6e 63 72 79 70 74 47 65 74 48 61 6e 64 6c EncryptGetHandl
4f00: 65 50 72 6f 63 2c 09 2f 2a 20 47 65 74 20 4f 53 eProc,./* Get OS
4f10: 20 68 61 6e 64 6c 65 73 20 6f 75 74 20 6f 66 20 handles out of
4f20: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 45 channel */. E
4f30: 6e 63 72 79 70 74 43 6c 6f 73 65 32 50 72 6f 63 ncryptClose2Proc
4f40: 2c 09 09 2f 2a 20 63 6c 6f 73 65 32 70 72 6f 63 ,../* close2proc
4f50: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 42 */. EncryptB
4f60: 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 2c 09 2f 2a lockModeProc,./*
4f70: 20 53 65 74 20 62 6c 6f 63 6b 69 6e 67 2f 6e 6f Set blocking/no
4f80: 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 2a 2f nblocking mode*/
4f90: 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a 20 . NULL,.../*
4fa0: 46 6c 75 73 68 20 70 72 6f 63 20 2a 2f 0a 20 20 Flush proc */.
4fb0: 20 20 45 6e 63 72 79 70 74 4e 6f 74 69 66 79 50 EncryptNotifyP
4fc0: 72 6f 63 2c 09 09 2f 2a 20 48 61 6e 64 6c 69 6e roc,../* Handlin
4fd0: 67 20 6f 66 20 65 76 65 6e 74 73 20 62 75 62 62 g of events bubb
4fe0: 6c 69 6e 67 20 75 70 20 2a 2f 0a 20 20 20 20 4e ling up */. N
4ff0: 55 4c 4c 2c 09 09 09 2f 2a 20 57 69 64 65 20 73 ULL,.../* Wide s
5000: 65 65 6b 20 70 72 6f 63 20 2a 2f 0a 20 20 20 20 eek proc */.
5010: 4e 55 4c 4c 2c 09 09 09 2f 2a 20 54 68 72 65 61 NULL,.../* Threa
5020: 64 20 61 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 d action */.
5030: 4e 55 4c 4c 09 09 09 2f 2a 20 54 72 75 6e 63 61 NULL.../* Trunca
5040: 74 65 20 2a 2f 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d te */.};../*. *-
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 2d 2d 2d ----------------
5080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5090: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
50a0: 79 70 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 yptChannelHandle
50b0: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 r --. *. *.Creat
50c0: 65 20 61 20 73 74 61 63 6b 65 64 20 63 68 61 6e e a stacked chan
50d0: 6e 65 6c 20 66 6f 72 20 61 20 6d 65 73 73 61 67 nel for a messag
50e0: 65 20 65 6e 63 72 79 70 74 69 6f 6e 20 74 72 61 e encryption tra
50f0: 6e 73 66 6f 72 6d 61 74 69 6f 6e 2e 0a 20 2a 0a nsformation.. *.
5100: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
5110: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
5120: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
5130: 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 74 fects:. *.Adds t
5140: 72 61 6e 73 66 6f 72 6d 20 74 6f 20 63 68 61 6e ransform to chan
5150: 6e 65 6c 20 61 6e 64 20 73 65 74 73 20 72 65 73 nel and sets res
5160: 75 6c 74 20 74 6f 20 63 68 61 6e 6e 65 6c 20 69 ult to channel i
5170: 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 73 61 d or error messa
5180: 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ge.. *. *-------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
51c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
51d0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 */.static int E
51e0: 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 48 61 6e ncryptChannelHan
51f0: 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 dler(Tcl_Interp
5200: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 *interp, int typ
5210: 65 2c 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 e, const char *c
5220: 68 61 6e 6e 65 6c 2c 0a 09 54 63 6c 5f 4f 62 6a hannel,..Tcl_Obj
5230: 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c *cipherObj, Tcl
5240: 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c _Obj *digestObj,
5250: 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a Tcl_Obj *keyObj
5260: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a , Tcl_Obj *ivObj
5270: 29 20 7b 0a 20 20 20 20 69 6e 74 20 6d 6f 64 65 ) {. int mode
5280: 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 6f 6d 62 69 ; /* OR-ed combi
5290: 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 45 nation of TCL_RE
52a0: 41 44 41 42 4c 45 20 61 6e 64 20 54 43 4c 5f 57 ADABLE and TCL_W
52b0: 52 49 54 41 42 4c 45 20 2a 2f 0a 20 20 20 20 54 RITABLE */. T
52c0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b cl_Channel chan;
52d0: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
52e0: 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 20 e *statePtr;.
52f0: 20 28 76 6f 69 64 20 2a 29 20 64 69 67 65 73 74 (void *) digest
5300: 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 Obj;.. dprint
5310: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
5320: 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 /* Validate ar
5330: 67 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 68 gs */. if (ch
5340: 61 6e 6e 65 6c 20 3d 3d 20 28 63 6f 6e 73 74 20 annel == (const
5350: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a char *) NULL) {.
5360: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
5370: 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 63 68 t(interp, "No ch
5380: 61 6e 6e 65 6c 22 2c 20 28 63 68 61 72 20 2a 29 annel", (char *)
5390: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
53a0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
53b0: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 61 .. /* Get cha
53c0: 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 20 63 nnel Id */. c
53d0: 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 han = Tcl_GetCha
53e0: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 nnel(interp, cha
53f0: 6e 6e 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 nnel, &mode);.
5400: 20 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 if (chan == (T
5410: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
5420: 29 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ) {..return TCL_
5430: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5440: 20 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 /* Make sure t
5450: 6f 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 o operate on the
5460: 20 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c topmost channel
5470: 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 */. chan = T
5480: 63 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c cl_GetTopChannel
5490: 28 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 (chan);.. /*
54a0: 43 6f 6e 66 69 67 75 72 65 20 63 68 61 6e 6e 65 Configure channe
54b0: 6c 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 l */. Tcl_Set
54c0: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
54d0: 74 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 terp, chan, "-tr
54e0: 61 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e anslation", "bin
54f0: 61 72 79 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 ary");.. /* C
5500: 72 65 61 74 65 20 73 74 61 74 65 20 64 61 74 61 reate state data
5510: 20 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 structure */.
5520: 20 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 if ((statePtr
5530: 3d 20 45 6e 63 72 79 70 74 53 74 61 74 65 4e 65 = EncryptStateNe
5540: 77 28 69 6e 74 65 72 70 2c 20 74 79 70 65 29 29 w(interp, type))
5550: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
5560: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
5570: 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c terp, "Memory al
5580: 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c location error",
5590: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
55a0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
55b0: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 OR;. }. st
55c0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 63 atePtr->self = c
55d0: 68 61 6e 3b 0a 20 20 20 20 73 74 61 74 65 50 74 han;. statePt
55e0: 72 2d 3e 6d 6f 64 65 20 3d 20 6d 6f 64 65 3b 0a r->mode = mode;.
55f0: 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 . /* Initiali
5600: 7a 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 ze function */.
5610: 20 20 20 69 66 20 28 45 6e 63 72 79 70 74 49 6e if (EncryptIn
5620: 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c itialize(interp,
5630: 20 74 79 70 65 2c 20 26 73 74 61 74 65 50 74 72 type, &statePtr
5640: 2d 3e 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a ->ctx, cipherObj
5650: 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 , keyObj, ivObj)
5660: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 != TCL_OK) {..E
5670: 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 28 ncryptStateFree(
5680: 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 statePtr);..retu
5690: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
56a0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 61 63 }.. /* Stac
56b0: 6b 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 k channel */.
56c0: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 statePtr->self
56d0: 3d 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e = Tcl_StackChann
56e0: 65 6c 28 69 6e 74 65 72 70 2c 20 26 65 6e 63 72 el(interp, &encr
56f0: 79 70 74 43 68 61 6e 6e 65 6c 54 79 70 65 2c 20 yptChannelType,
5700: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 (ClientData) sta
5710: 74 65 50 74 72 2c 20 6d 6f 64 65 2c 20 63 68 61 tePtr, mode, cha
5720: 6e 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 n);. if (stat
5730: 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 ePtr->self == (T
5740: 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c cl_Channel) NULL
5750: 29 20 7b 0a 09 45 6e 63 72 79 70 74 53 74 61 74 ) {..EncryptStat
5760: 65 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b eFree(statePtr);
5770: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
5780: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f OR;. }.. /
5790: 2a 20 53 65 74 20 72 65 73 75 6c 74 20 74 6f 20 * Set result to
57a0: 63 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 channel Id */.
57b0: 20 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 Tcl_SetResult(
57c0: 69 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 interp, (char *)
57d0: 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e Tcl_GetChannelN
57e0: 61 6d 65 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 ame(chan), TCL_V
57f0: 4f 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 OLATILE);. re
5800: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..
5810: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
5820: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
5860: 2a 20 55 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 * Unstack Channe
5870: 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 l --. *. *.This
5880: 66 75 6e 63 74 69 6f 6e 20 72 65 6d 6f 76 65 73 function removes
5890: 20 74 68 65 20 73 74 61 63 6b 65 64 20 63 68 61 the stacked cha
58a0: 6e 6e 65 6c 20 66 72 6f 6d 20 74 68 65 20 74 6f nnel from the to
58b0: 70 20 6f 66 20 74 68 65 0a 20 2a 09 63 68 61 6e p of the. *.chan
58c0: 6e 65 6c 20 73 74 61 63 6b 20 69 66 20 69 74 20 nel stack if it
58d0: 69 73 20 61 20 65 6e 63 72 79 70 74 69 6f 6e 20 is a encryption
58e0: 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 channel.. *. * R
58f0: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
5900: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
5910: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
5920: 73 3a 0a 20 2a 09 52 65 6d 6f 76 65 73 20 74 72 s:. *.Removes tr
5930: 61 6e 73 66 6f 72 6d 20 66 72 6f 6d 20 63 68 61 ansform from cha
5940: 6e 6e 65 6c 20 6f 72 20 73 65 74 73 20 72 65 73 nnel or sets res
5950: 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 73 ult to error mes
5960: 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d sage.. *. *-----
5970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
59b0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
59c0: 20 45 6e 63 72 79 70 74 55 6e 73 74 61 63 6b 4f EncryptUnstackO
59d0: 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 bjCmd(ClientData
59e0: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c clientData, Tcl
59f0: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
5a00: 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f int objc, Tcl_O
5a10: 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d bj *const objv[]
5a20: 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ) {. Tcl_Chan
5a30: 6e 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 69 6e nel chan;. in
5a40: 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 t mode; /* OR-ed
5a50: 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 combination of
5a60: 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 TCL_READABLE and
5a70: 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 20 2a TCL_WRITABLE *
5a80: 2f 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 /. (void) cli
5a90: 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 64 70 entData;.. dp
5aa0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
5ab0: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
5ac0: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
5ad0: 20 20 20 69 66 20 28 6f 62 6a 63 20 21 3d 20 32 if (objc != 2
5ae0: 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 4e 75 ) {..Tcl_WrongNu
5af0: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
5b00: 20 6f 62 6a 76 2c 20 22 63 68 61 6e 6e 65 6c 49 objv, "channelI
5b10: 64 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c d");..return TCL
5b20: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5b30: 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 /* Get channe
5b40: 6c 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 l */. chan =
5b50: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 28 69 Tcl_GetChannel(i
5b60: 6e 74 65 72 70 2c 20 54 63 6c 5f 47 65 74 53 74 nterp, Tcl_GetSt
5b70: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 ringFromObj(objv
5b80: 5b 31 5d 2c 20 4e 55 4c 4c 29 2c 20 26 6d 6f 64 [1], NULL), &mod
5b90: 65 29 3b 0a 20 20 20 20 69 66 20 28 63 68 61 6e e);. if (chan
5ba0: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
5bb0: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
5bc0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5bd0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 4d 61 6b 65 20 }.. /* Make
5be0: 73 75 72 65 20 74 6f 20 6f 70 65 72 61 74 65 20 sure to operate
5bf0: 6f 6e 20 74 68 65 20 74 6f 70 6d 6f 73 74 20 63 on the topmost c
5c00: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 hannel */. ch
5c10: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 54 6f 70 43 an = Tcl_GetTopC
5c20: 68 61 6e 6e 65 6c 28 63 68 61 6e 29 3b 0a 0a 20 hannel(chan);..
5c30: 20 20 20 2f 2a 20 43 68 65 63 6b 20 69 66 20 65 /* Check if e
5c40: 6e 63 72 79 70 74 69 6f 6e 20 63 68 61 6e 6e 65 ncryption channe
5c50: 6c 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 6c l */. if (Tcl
5c60: 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 _GetChannelType(
5c70: 63 68 61 6e 29 20 21 3d 20 26 65 6e 63 72 79 70 chan) != &encryp
5c80: 74 43 68 61 6e 6e 65 6c 54 79 70 65 29 20 7b 0a tChannelType) {.
5c90: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
5ca0: 74 28 69 6e 74 65 72 70 2c 20 22 62 61 64 20 63 t(interp, "bad c
5cb0: 68 61 6e 6e 65 6c 20 5c 22 22 2c 20 54 63 6c 5f hannel \"", Tcl_
5cc0: 47 65 74 43 68 61 6e 6e 65 6c 4e 61 6d 65 28 63 GetChannelName(c
5cd0: 68 61 6e 29 2c 0a 09 20 20 20 20 22 5c 22 3a 20 han),.. "\":
5ce0: 6e 6f 74 20 61 20 65 6e 63 72 79 70 74 69 6f 6e not a encryption
5cf0: 20 63 68 61 6e 6e 65 6c 22 2c 20 4e 55 4c 4c 29 channel", NULL)
5d00: 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 43 ;..Tcl_SetErrorC
5d10: 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c 53 ode(interp, "TLS
5d20: 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c 20 22 43 ", "UNSTACK", "C
5d30: 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c 49 HANNEL", "INVALI
5d40: 44 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c D", (char *) NUL
5d50: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
5d60: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5d70: 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e 73 66 6f /* Pop transfo
5d80: 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c 20 rm from channel
5d90: 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 */. return Tc
5da0: 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 6c l_UnstackChannel
5db0: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 3b 0a (interp, chan);.
5dc0: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
5dd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5de0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5df0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
5e00: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
5e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5e50: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
5e60: 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 20 2d InstanceObjCmd -
5e70: 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 20 -. *. *.Handler
5e80: 66 6f 72 20 65 6e 63 72 79 70 74 2f 64 65 63 72 for encrypt/decr
5e90: 79 70 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 73 74 ypt command inst
5ea0: 61 6e 63 65 73 2e 20 55 73 65 64 20 74 6f 20 75 ances. Used to u
5eb0: 70 64 61 74 65 0a 20 2a 09 61 6e 64 20 66 69 6e pdate. *.and fin
5ec0: 61 6c 69 7a 65 20 64 61 74 61 20 66 6f 72 20 65 alize data for e
5ed0: 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 66 ncrypt/decrypt f
5ee0: 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 unction.. *. * R
5ef0: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
5f00: 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 K or TCL_ERROR.
5f10: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
5f20: 73 3a 0a 20 2a 09 41 64 64 73 20 64 61 74 61 20 s:. *.Adds data
5f30: 74 6f 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 to encrypt/decry
5f40: 70 74 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 pt function. *.
5f50: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
5f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5f90: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
5fa0: 72 79 70 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 ryptInstanceObjC
5fb0: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
5fc0: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
5fd0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
5fe0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
5ff0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
6000: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
6010: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
6020: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
6030: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 lientData;. i
6040: 6e 74 20 66 6e 2c 20 64 61 74 61 5f 6c 65 6e 20 nt fn, data_len
6050: 3d 20 30 2c 20 6f 75 74 5f 6c 65 6e 3b 0a 20 20 = 0, out_len;.
6060: 20 20 63 68 61 72 20 2a 64 61 74 61 20 3d 20 4e char *data = N
6070: 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f 4f 62 6a ULL;. Tcl_Obj
6080: 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 20 20 20 *resultObj;.
6090: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
60a0: 6f 75 74 5f 62 75 66 3b 0a 20 20 20 20 73 74 61 out_buf;. sta
60b0: 74 69 63 20 63 6f 6e 73 74 20 63 68 61 72 20 2a tic const char *
60c0: 69 6e 73 74 61 6e 63 65 5f 66 6e 73 20 5b 5d 20 instance_fns []
60d0: 3d 20 7b 20 22 66 69 6e 61 6c 69 7a 65 22 2c 20 = { "finalize",
60e0: 22 75 70 64 61 74 65 22 2c 20 4e 55 4c 4c 20 7d "update", NULL }
60f0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
6100: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
6110: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 * Validate arg c
6120: 6f 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 ount */. if (
6130: 6f 62 6a 63 20 3c 20 32 20 7c 7c 20 6f 62 6a 63 objc < 2 || objc
6140: 20 3e 20 33 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 3) {..Tcl_Wro
6150: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
6160: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 66 75 6e 63 , 1, objv, "func
6170: 74 69 6f 6e 20 3f 64 61 74 61 3f 22 29 3b 0a 09 tion ?data?");..
6180: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6190: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
61a0: 47 65 74 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a Get function */.
61b0: 20 20 20 20 69 66 20 28 54 63 6c 5f 47 65 74 49 if (Tcl_GetI
61c0: 6e 64 65 78 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 ndexFromObj(inte
61d0: 72 70 2c 20 6f 62 6a 76 5b 31 5d 2c 20 69 6e 73 rp, objv[1], ins
61e0: 74 61 6e 63 65 5f 66 6e 73 2c 20 22 66 75 6e 63 tance_fns, "func
61f0: 74 69 6f 6e 22 2c 20 30 2c 20 26 66 6e 29 20 21 tion", 0, &fn) !
6200: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 65 74 = TCL_OK) {..ret
6210: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6220: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 6c 6c }.. /* All
6230: 6f 63 61 74 65 20 73 74 6f 72 61 67 65 20 66 6f ocate storage fo
6240: 72 20 72 65 73 75 6c 74 2e 20 53 69 7a 65 20 73 r result. Size s
6250: 68 6f 75 6c 64 20 62 65 20 64 61 74 61 20 73 69 hould be data si
6260: 7a 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a 65 2e ze + block size.
6270: 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 4f 62 */. resultOb
6280: 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a 28 29 j = Tcl_NewObj()
6290: 3b 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 3d 20 ;. out_buf =
62a0: 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 Tcl_SetByteArray
62b0: 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a Length(resultObj
62c0: 2c 20 64 61 74 61 5f 6c 65 6e 2b 45 56 50 5f 4d , data_len+EVP_M
62d0: 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 AX_BLOCK_LENGTH)
62e0: 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 6c 74 ;. if (result
62f0: 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6f Obj == NULL || o
6300: 75 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c 29 20 ut_buf == NULL)
6310: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
6320: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d ult(interp, "Mem
6330: 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 ory allocation e
6340: 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 20 rror", (char *)
6350: 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 44 65 63 72 NULL);..Tcl_Decr
6360: 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f RefCount(resultO
6370: 62 6a 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c bj);..return TCL
6380: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6390: 20 20 20 2f 2a 20 44 6f 20 66 75 6e 63 74 69 6f /* Do functio
63a0: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 66 6e 29 n */. if (fn)
63b0: 20 7b 0a 09 2f 2a 20 47 65 74 20 64 61 74 61 20 {../* Get data
63c0: 6f 72 20 72 65 74 75 72 6e 20 65 72 72 6f 72 20 or return error
63d0: 69 66 20 6e 6f 6e 65 20 2a 2f 0a 09 69 66 20 28 if none */..if (
63e0: 6f 62 6a 63 20 3d 3d 20 33 29 20 7b 0a 09 20 20 objc == 3) {..
63f0: 20 20 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 data = Tcl_Get
6400: 42 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a ByteArrayFromObj
6410: 28 6f 62 6a 76 5b 32 5d 2c 20 26 64 61 74 61 5f (objv[2], &data_
6420: 6c 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a len);..} else {.
6430: 09 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e 75 . Tcl_WrongNu
6440: 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31 2c mArgs(interp, 1,
6450: 20 6f 62 6a 76 2c 20 22 75 70 64 61 74 65 20 64 objv, "update d
6460: 61 74 61 22 29 3b 0a 09 20 20 20 20 54 63 6c 5f ata");.. Tcl_
6470: 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 DecrRefCount(res
6480: 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 65 ultObj);.. re
6490: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
64a0: 09 7d 0a 0a 09 2f 2a 20 55 70 64 61 74 65 20 66 .}.../* Update f
64b0: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 unction */..if (
64c0: 45 6e 63 72 79 70 74 55 70 64 61 74 65 28 69 6e EncryptUpdate(in
64d0: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
64e0: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
64f0: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f ctx, out_buf, &o
6500: 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 ut_len, data, da
6510: 74 61 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f ta_len) == TCL_O
6520: 4b 29 20 7b 0a 09 20 20 20 20 6f 75 74 5f 62 75 K) {.. out_bu
6530: 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 f = Tcl_SetByteA
6540: 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c rrayLength(resul
6550: 74 4f 62 6a 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a tObj, out_len);.
6560: 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 . Tcl_SetObjR
6570: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 esult(interp, re
6580: 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d 20 65 6c 73 sultObj);..} els
6590: 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 e {.. Tcl_Dec
65a0: 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 rRefCount(result
65b0: 4f 62 6a 29 3b 0a 09 20 20 20 20 72 65 74 75 72 Obj);.. retur
65c0: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a n TCL_ERROR;..}.
65d0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 2f . } else {../
65e0: 2a 20 46 69 6e 61 6c 69 7a 65 20 66 75 6e 63 74 * Finalize funct
65f0: 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 ion */..if (Encr
6600: 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 yptFinalize(inte
6610: 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 79 rp, statePtr->ty
6620: 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 74 pe, statePtr->ct
6630: 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 x, out_buf, &out
6640: 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 _len) == TCL_OK)
6650: 20 7b 0a 09 20 20 20 20 6f 75 74 5f 62 75 66 20 {.. out_buf
6660: 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 = Tcl_SetByteArr
6670: 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f ayLength(resultO
6680: 62 6a 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 bj, out_len);..
6690: 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 Tcl_SetObjRes
66a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 73 75 ult(interp, resu
66b0: 6c 74 4f 62 6a 29 3b 0a 09 7d 20 65 6c 73 65 20 ltObj);..} else
66c0: 7b 0a 09 20 20 20 20 54 63 6c 5f 44 65 63 72 52 {.. Tcl_DecrR
66d0: 65 66 43 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 efCount(resultOb
66e0: 6a 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 j);.. return
66f0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 TCL_ERROR;..}...
6700: 2f 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 09 /* Clean-up */..
6710: 54 63 6c 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e Tcl_DeleteComman
6720: 64 46 72 6f 6d 54 6f 6b 65 6e 28 69 6e 74 65 72 dFromToken(inter
6730: 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b p, statePtr->tok
6740: 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 en);. }. r
6750: 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a eturn TCL_OK;.}.
6760: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
6770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
67a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
67b0: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 44 65 EncryptCommandDe
67c0: 6c 65 74 65 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 leteHandler --.
67d0: 2a 0a 20 2a 09 20 43 61 6c 6c 62 61 63 6b 20 74 *. *. Callback t
67e0: 6f 20 63 6c 65 61 6e 2d 75 70 20 77 68 65 6e 20 o clean-up when
67f0: 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 encrypt/decrypt
6800: 63 6f 6d 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 command is delet
6810: 65 64 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ed.. *. * Return
6820: 73 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a s:. *.Nothing. *
6830: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
6840: 3a 0a 20 2a 09 44 65 73 74 72 6f 79 73 20 73 74 :. *.Destroys st
6850: 61 74 65 20 69 6e 66 6f 20 73 74 72 75 63 74 75 ate info structu
6860: 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d re. *. *--------
6870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
68a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
68b0: 76 6f 69 64 20 45 6e 63 72 79 70 74 43 6f 6d 6d void EncryptComm
68c0: 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 andDeleteHandler
68d0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 (ClientData clie
68e0: 6e 74 44 61 74 61 29 20 7b 0a 20 20 20 20 45 6e ntData) {. En
68f0: 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 cryptState *stat
6900: 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 ePtr = (EncryptS
6910: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
6920: 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 ta;.. /* Clea
6930: 6e 2d 75 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 n-up */. Encr
6940: 79 70 74 53 74 61 74 65 46 72 65 65 28 73 74 61 yptStateFree(sta
6950: 74 65 50 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a tePtr);.}../*. *
6960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
69a0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
69b0: 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 20 tCommandHandler
69c0: 2d 2d 0a 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 --. *. *. Create
69d0: 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 61 64 64 20 command to add
69e0: 64 61 74 61 20 74 6f 20 65 6e 63 72 79 70 74 2f data to encrypt/
69f0: 64 65 63 72 79 70 74 20 66 75 6e 63 74 69 6f 6e decrypt function
6a00: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
6a10: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
6a20: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
6a30: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
6a40: 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 20 6f reates command o
6a50: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
6a60: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6aa0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
6ab0: 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 EncryptCommandH
6ac0: 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 andler(Tcl_Inter
6ad0: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 p *interp, int t
6ae0: 79 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d ype, Tcl_Obj *cm
6af0: 64 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a dObj,..Tcl_Obj *
6b00: 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f 4f cipherObj, Tcl_O
6b10: 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c 20 54 bj *digestObj, T
6b20: 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 cl_Obj *keyObj,
6b30: 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 Tcl_Obj *ivObj)
6b40: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
6b50: 74 65 20 2a 73 74 61 74 65 50 74 72 3b 0a 20 20 te *statePtr;.
6b60: 20 20 63 68 61 72 20 2a 63 6d 64 4e 61 6d 65 20 char *cmdName
6b70: 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 = Tcl_GetStringF
6b80: 72 6f 6d 4f 62 6a 28 63 6d 64 4f 62 6a 2c 20 4e romObj(cmdObj, N
6b90: 55 4c 4c 29 3b 0a 20 20 20 20 28 76 6f 69 64 20 ULL);. (void
6ba0: 2a 29 20 64 69 67 65 73 74 4f 62 6a 3b 0a 0a 20 *) digestObj;..
6bb0: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
6bc0: 65 64 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 ed");.. if ((
6bd0: 73 74 61 74 65 50 74 72 20 3d 20 45 6e 63 72 79 statePtr = Encry
6be0: 70 74 53 74 61 74 65 4e 65 77 28 69 6e 74 65 72 ptStateNew(inter
6bf0: 70 2c 20 74 79 70 65 29 29 20 3d 3d 20 4e 55 4c p, type)) == NUL
6c00: 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 L) {..Tcl_Append
6c10: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
6c20: 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f Memory allocatio
6c30: 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 n error", (char
6c40: 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 *) NULL);..retur
6c50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
6c60: 20 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 }.. /* Initi
6c70: 61 6c 69 7a 65 20 66 75 6e 63 74 69 6f 6e 20 2a alize function *
6c80: 2f 0a 20 20 20 20 69 66 20 28 45 6e 63 72 79 70 /. if (Encryp
6c90: 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 tInitialize(inte
6ca0: 72 70 2c 20 74 79 70 65 2c 20 26 73 74 61 74 65 rp, type, &state
6cb0: 50 74 72 2d 3e 63 74 78 2c 20 63 69 70 68 65 72 Ptr->ctx, cipher
6cc0: 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f Obj, keyObj, ivO
6cd0: 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b bj) != TCL_OK) {
6ce0: 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 ..EncryptStateFr
6cf0: 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 ee(statePtr);..r
6d00: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6d10: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
6d20: 72 65 61 74 65 20 69 6e 73 74 61 6e 63 65 20 63 reate instance c
6d30: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 20 20 73 74 ommand */. st
6d40: 61 74 65 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 atePtr->token =
6d50: 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d Tcl_CreateObjCom
6d60: 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 63 6d 64 mand(interp, cmd
6d70: 4e 61 6d 65 2c 20 45 6e 63 72 79 70 74 49 6e 73 Name, EncryptIns
6d80: 74 61 6e 63 65 4f 62 6a 43 6d 64 2c 0a 09 28 43 tanceObjCmd,..(C
6d90: 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 lientData) state
6da0: 50 74 72 2c 20 45 6e 63 72 79 70 74 43 6f 6d 6d Ptr, EncryptComm
6db0: 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 andDeleteHandler
6dc0: 29 3b 0a 0a 20 20 20 20 2f 2a 20 52 65 74 75 72 );.. /* Retur
6dd0: 6e 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a n command name *
6de0: 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a /. Tcl_SetObj
6df0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 63 Result(interp, c
6e00: 6d 64 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 mdObj);. retu
6e10: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
6e20: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6e30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6e40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6e50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6e60: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
6e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
6eb0: 0a 20 2a 20 45 6e 63 72 79 70 74 44 61 74 61 48 . * EncryptDataH
6ec0: 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 andler --. *. *.
6ed0: 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 Perform encrypti
6ee0: 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 on function on a
6ef0: 20 62 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 block of data a
6f00: 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 nd return result
6f10: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
6f20: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
6f30: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
6f40: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 de effects:. *.S
6f50: 65 74 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 ets result or er
6f60: 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 ror message. *.
6f70: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
6f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6fb0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
6fc0: 72 79 70 74 44 61 74 61 48 61 6e 64 6c 65 72 28 ryptDataHandler(
6fd0: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
6fe0: 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 63 rp, int type, Tc
6ff0: 6c 5f 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 l_Obj *dataObj,
7000: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
7010: 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 bj,..Tcl_Obj *di
7020: 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a gestObj, Tcl_Obj
7030: 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 *keyObj, Tcl_Ob
7040: 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 j *ivObj) {.
7050: 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a EVP_CIPHER_CTX *
7060: 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ctx = NULL;.
7070: 69 6e 74 20 64 61 74 61 5f 6c 65 6e 20 3d 20 30 int data_len = 0
7080: 2c 20 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c , out_len = 0, l
7090: 65 6e 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 en = 0, res = TC
70a0: 4c 5f 4f 4b 3b 0a 20 20 20 20 75 6e 73 69 67 6e L_OK;. unsign
70b0: 65 64 20 63 68 61 72 20 2a 64 61 74 61 2c 20 2a ed char *data, *
70c0: 6f 75 74 5f 62 75 66 3b 0a 20 20 20 20 54 63 6c out_buf;. Tcl
70d0: 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 3b _Obj *resultObj;
70e0: 0a 20 20 20 20 28 76 6f 69 64 20 2a 29 20 64 69 . (void *) di
70f0: 67 65 73 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 gestObj;.. dp
7100: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
7110: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 61 74 .. /* Get dat
7120: 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 64 61 74 a */. if (dat
7130: 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a aObj != NULL) {.
7140: 09 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 .data = Tcl_GetB
7150: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
7160: 64 61 74 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c dataObj, &data_l
7170: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
7180: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
7190: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
71a0: 64 61 74 61 22 2c 20 4e 55 4c 4c 29 3b 0a 09 72 data", NULL);..r
71b0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
71c0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 41 . }.. /* A
71d0: 6c 6c 6f 63 61 74 65 20 73 74 6f 72 61 67 65 20 llocate storage
71e0: 66 6f 72 20 72 65 73 75 6c 74 2e 20 53 69 7a 65 for result. Size
71f0: 20 73 68 6f 75 6c 64 20 62 65 20 64 61 74 61 20 should be data
7200: 73 69 7a 65 20 2b 20 62 6c 6f 63 6b 20 73 69 7a size + block siz
7210: 65 2e 20 2a 2f 0a 20 20 20 20 72 65 73 75 6c 74 e. */. result
7220: 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 4f 62 6a Obj = Tcl_NewObj
7230: 28 29 3b 0a 20 20 20 20 6f 75 74 5f 62 75 66 20 ();. out_buf
7240: 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 72 = Tcl_SetByteArr
7250: 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 4f ayLength(resultO
7260: 62 6a 2c 20 64 61 74 61 5f 6c 65 6e 2b 45 56 50 bj, data_len+EVP
7270: 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 _MAX_BLOCK_LENGT
7280: 48 29 3b 0a 20 20 20 20 69 66 20 28 72 65 73 75 H);. if (resu
7290: 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 20 7c 7c ltObj == NULL ||
72a0: 20 6f 75 74 5f 62 75 66 20 3d 3d 20 4e 55 4c 4c out_buf == NULL
72b0: 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 ) {..Tcl_AppendR
72c0: 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d esult(interp, "M
72d0: 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e emory allocation
72e0: 20 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a error", (char *
72f0: 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e ) NULL);..return
7300: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
7310: 7d 0a 0a 20 20 20 20 2f 2a 20 50 65 72 66 6f 72 }.. /* Perfor
7320: 6d 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 m operation */.
7330: 20 20 20 69 66 20 28 45 6e 63 72 79 70 74 49 6e if (EncryptIn
7340: 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c itialize(interp,
7350: 20 74 79 70 65 2c 20 26 63 74 78 2c 20 63 69 70 type, &ctx, cip
7360: 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 herObj, keyObj,
7370: 69 76 4f 62 6a 29 20 21 3d 20 54 43 4c 5f 4f 4b ivObj) != TCL_OK
7380: 20 7c 7c 0a 09 45 6e 63 72 79 70 74 55 70 64 61 ||..EncryptUpda
7390: 74 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c te(interp, type,
73a0: 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 ctx, out_buf, &
73b0: 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 out_len, data, d
73c0: 61 74 61 5f 6c 65 6e 29 20 21 3d 20 54 43 4c 5f ata_len) != TCL_
73d0: 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 46 69 OK ||..EncryptFi
73e0: 6e 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 nalize(interp, t
73f0: 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 ype, ctx, out_bu
7400: 66 2b 6f 75 74 5f 6c 65 6e 2c 20 26 6c 65 6e 29 f+out_len, &len)
7410: 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 72 != TCL_OK) {..r
7420: 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a es = TCL_ERROR;.
7430: 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 .goto done;.
7440: 7d 0a 20 20 20 20 6f 75 74 5f 6c 65 6e 20 2b 3d }. out_len +=
7450: 20 6c 65 6e 3b 0a 0a 64 6f 6e 65 3a 0a 20 20 20 len;..done:.
7460: 20 2f 2a 20 53 65 74 20 6f 75 74 70 75 74 20 72 /* Set output r
7470: 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 69 66 20 esult */. if
7480: 28 72 65 73 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 (res == TCL_OK)
7490: 7b 0a 09 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c {..out_buf = Tcl
74a0: 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e _SetByteArrayLen
74b0: 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 6f gth(resultObj, o
74c0: 75 74 5f 6c 65 6e 29 3b 0a 09 54 63 6c 5f 53 65 ut_len);..Tcl_Se
74d0: 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 tObjResult(inter
74e0: 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 p, resultObj);.
74f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c } else {..Tcl
7500: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 _DecrRefCount(re
7510: 73 75 6c 74 4f 62 6a 29 3b 0a 09 2f 2a 20 52 65 sultObj);../* Re
7520: 73 75 6c 74 20 69 73 20 65 72 72 6f 72 20 6d 65 sult is error me
7530: 73 73 61 67 65 20 2a 2f 0a 20 20 20 20 7d 0a 0a ssage */. }..
7540: 20 20 20 20 2f 2a 20 43 6c 65 61 6e 20 75 70 20 /* Clean up
7550: 2a 2f 0a 20 20 20 20 69 66 20 28 63 74 78 20 21 */. if (ctx !
7560: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 = NULL) {..EVP_C
7570: 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 63 IPHER_CTX_free(c
7580: 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 tx);. }. r
7590: 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a eturn res;.}../*
75a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
75b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
75c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
75d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
75e0: 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d **/../*. *------
75f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
7630: 0a 20 2a 20 45 6e 63 72 79 70 74 46 69 6c 65 48 . * EncryptFileH
7640: 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 andler --. *. *.
7650: 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 Perform encrypti
7660: 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 on function on a
7670: 20 62 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 block of data a
7680: 6e 64 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 nd return result
7690: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
76a0: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
76b0: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
76c0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 45 de effects:. *.E
76d0: 6e 63 72 79 70 74 73 20 6f 72 20 64 65 63 72 79 ncrypts or decry
76e0: 70 74 73 20 69 6e 46 69 6c 65 20 64 61 74 61 20 pts inFile data
76f0: 74 6f 20 6f 75 74 46 69 6c 65 20 61 6e 64 20 73 to outFile and s
7700: 65 74 73 20 72 65 73 75 6c 74 20 74 6f 0a 20 2a ets result to. *
7710: 09 73 69 7a 65 20 6f 66 20 6f 75 74 46 69 6c 65 .size of outFile
7720: 2c 20 6f 72 20 61 6e 20 65 72 72 6f 72 20 6d 65 , or an error me
7730: 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d ssage.. *. *----
7740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
7780: 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 46 */.int EncryptF
7790: 69 6c 65 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 ileHandler(Tcl_I
77a0: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
77b0: 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a nt type, Tcl_Obj
77c0: 20 2a 69 6e 46 69 6c 65 4f 62 6a 2c 20 54 63 6c *inFileObj, Tcl
77d0: 5f 4f 62 6a 20 2a 6f 75 74 46 69 6c 65 4f 62 6a _Obj *outFileObj
77e0: 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 ,..Tcl_Obj *ciph
77f0: 65 72 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a erObj, Tcl_Obj *
7800: 64 69 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f digestObj, Tcl_O
7810: 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f bj *keyObj, Tcl_
7820: 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 Obj *ivObj) {.
7830: 20 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 EVP_CIPHER_CTX
7840: 20 2a 63 74 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 *ctx = NULL;.
7850: 20 20 69 6e 74 20 74 6f 74 61 6c 20 3d 20 30 2c int total = 0,
7860: 20 72 65 73 2c 20 6f 75 74 5f 6c 65 6e 20 3d 20 res, out_len =
7870: 30 2c 20 6c 65 6e 3b 0a 20 20 20 20 54 63 6c 5f 0, len;. Tcl_
7880: 43 68 61 6e 6e 65 6c 20 69 6e 20 3d 20 4e 55 4c Channel in = NUL
7890: 4c 2c 20 6f 75 74 20 3d 20 4e 55 4c 4c 3b 0a 20 L, out = NULL;.
78a0: 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 unsigned char
78b0: 20 69 6e 5f 62 75 66 5b 42 55 46 46 45 52 5f 53 in_buf[BUFFER_S
78c0: 49 5a 45 5d 3b 0a 20 20 20 20 75 6e 73 69 67 6e IZE];. unsign
78d0: 65 64 20 63 68 61 72 20 6f 75 74 5f 62 75 66 5b ed char out_buf[
78e0: 42 55 46 46 45 52 5f 53 49 5a 45 2b 45 56 50 5f BUFFER_SIZE+EVP_
78f0: 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 MAX_BLOCK_LENGTH
7900: 5d 3b 0a 20 20 20 20 28 76 6f 69 64 20 2a 29 20 ];. (void *)
7910: 64 69 67 65 73 74 4f 62 6a 3b 0a 0a 20 20 20 20 digestObj;..
7920: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
7930: 29 3b 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 );.. /* Open
7940: 69 6e 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 input file */.
7950: 20 20 69 66 20 28 28 69 6e 20 3d 20 54 63 6c 5f if ((in = Tcl_
7960: 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 FSOpenFileChanne
7970: 6c 28 69 6e 74 65 72 70 2c 20 69 6e 46 69 6c 65 l(interp, inFile
7980: 4f 62 6a 2c 20 22 72 62 22 2c 20 30 34 34 34 29 Obj, "rb", 0444)
7990: 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 ) == (Tcl_Channe
79a0: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
79b0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
79c0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e }.. /* Open
79d0: 20 6f 75 74 70 75 74 20 66 69 6c 65 20 2a 2f 0a output file */.
79e0: 20 20 20 20 69 66 20 28 28 6f 75 74 20 3d 20 54 if ((out = T
79f0: 63 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 cl_FSOpenFileCha
7a00: 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6f 75 74 nnel(interp, out
7a10: 46 69 6c 65 4f 62 6a 2c 20 22 77 62 22 2c 20 30 FileObj, "wb", 0
7a20: 36 34 34 29 29 20 3d 3d 20 28 54 63 6c 5f 43 68 644)) == (Tcl_Ch
7a30: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
7a40: 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 Tcl_Close(interp
7a50: 2c 20 69 6e 29 3b 0a 09 72 65 74 75 72 6e 20 54 , in);..return T
7a60: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
7a70: 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 . /* Initiali
7a80: 7a 65 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a ze operation */.
7a90: 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 45 if ((res = E
7aa0: 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 ncryptInitialize
7ab0: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 (interp, type, &
7ac0: 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 ctx, cipherObj,
7ad0: 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 29 20 keyObj, ivObj))
7ae0: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f != TCL_OK) {..go
7af0: 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a to done;. }..
7b00: 20 20 20 20 2f 2a 20 52 65 61 64 20 66 69 6c 65 /* Read file
7b10: 20 64 61 74 61 20 66 72 6f 6d 20 69 6e 46 69 6c data from inFil
7b20: 65 2c 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 e, encrypt/decry
7b30: 70 74 20 69 74 2c 20 74 68 65 6e 20 6f 75 74 70 pt it, then outp
7b40: 75 74 20 74 6f 20 6f 75 74 46 69 6c 65 20 2a 2f ut to outFile */
7b50: 0a 20 20 20 20 77 68 69 6c 65 20 28 21 54 63 6c . while (!Tcl
7b60: 5f 45 6f 66 28 69 6e 29 29 20 7b 0a 09 69 6e 74 _Eof(in)) {..int
7b70: 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 65 61 64 read = Tcl_Read
7b80: 52 61 77 28 69 6e 2c 20 28 63 68 61 72 20 2a 29 Raw(in, (char *)
7b90: 20 69 6e 5f 62 75 66 2c 20 42 55 46 46 45 52 5f in_buf, BUFFER_
7ba0: 53 49 5a 45 29 3b 0a 09 69 66 20 28 72 65 61 64 SIZE);..if (read
7bb0: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 20 > 0) {.. if
7bc0: 28 28 72 65 73 20 3d 20 45 6e 63 72 79 70 74 55 ((res = EncryptU
7bd0: 70 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 79 pdate(interp, ty
7be0: 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 pe, ctx, out_buf
7bf0: 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f 62 , &out_len, in_b
7c00: 75 66 2c 20 72 65 61 64 29 29 20 3d 3d 20 54 43 uf, read)) == TC
7c10: 4c 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28 6f 75 L_OK) {...if (ou
7c20: 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 20 t_len > 0) {...
7c30: 20 20 20 6c 65 6e 20 3d 20 54 63 6c 5f 57 72 69 len = Tcl_Wri
7c40: 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e 73 teRaw(out, (cons
7c50: 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 t char *) out_bu
7c60: 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 09 20 f, out_len);...
7c70: 20 20 20 69 66 20 28 6c 65 6e 20 3e 3d 20 30 29 if (len >= 0)
7c80: 20 7b 0a 09 09 09 74 6f 74 61 6c 20 2b 3d 20 6c {....total += l
7c90: 65 6e 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 en;... } else
7ca0: 20 7b 0a 09 09 09 54 63 6c 5f 41 70 70 65 6e 64 {....Tcl_Append
7cb0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
7cc0: 57 72 69 74 65 20 65 72 72 6f 72 3a 20 22 2c 20 Write error: ",
7cd0: 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 6c Tcl_ErrnoMsg(Tcl
7ce0: 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 28 63 _GetErrno()), (c
7cf0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 har *) NULL);...
7d00: 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 .res = TCL_ERROR
7d10: 3b 0a 09 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a ;....goto done;.
7d20: 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 .. }...}..
7d30: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 67 6f 74 6f } else {...goto
7d40: 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d done;.. }..}
7d50: 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 20 3c else if (read <
7d60: 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 0) {.. Tcl_A
7d70: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7d80: 72 70 2c 20 22 52 65 61 64 20 65 72 72 6f 72 3a rp, "Read error:
7d90: 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 ", Tcl_ErrnoMsg
7da0: 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 (Tcl_GetErrno())
7db0: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
7dc0: 3b 0a 09 20 20 20 20 72 65 73 20 3d 20 54 43 4c ;.. res = TCL
7dd0: 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 67 6f 74 _ERROR;.. got
7de0: 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 20 20 20 20 7d o done;..}. }
7df0: 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a .. /* Finaliz
7e00: 65 20 64 61 74 61 20 61 6e 64 20 77 72 69 74 65 e data and write
7e10: 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 64 any remaining d
7e20: 61 74 61 20 69 6e 20 62 6c 6f 63 6b 20 2a 2f 0a ata in block */.
7e30: 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 45 if ((res = E
7e40: 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 ncryptFinalize(i
7e50: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 74 78 nterp, type, ctx
7e60: 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f , out_buf, &out_
7e70: 6c 65 6e 29 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 len)) == TCL_OK)
7e80: 20 7b 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 {..if (out_len
7e90: 3e 20 30 29 20 7b 0a 09 20 20 20 20 6c 65 6e 20 > 0) {.. len
7ea0: 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 6f = Tcl_WriteRaw(o
7eb0: 75 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 ut, (const char
7ec0: 2a 29 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f *) out_buf, out_
7ed0: 6c 65 6e 29 3b 0a 09 20 20 20 20 69 66 20 28 6c len);.. if (l
7ee0: 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 74 6f 74 en >= 0) {...tot
7ef0: 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 20 20 20 20 al += len;..
7f00: 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 6c 5f 41 } else {...Tcl_A
7f10: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7f20: 72 70 2c 20 22 57 72 69 74 65 20 65 72 72 6f 72 rp, "Write error
7f30: 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 : ", Tcl_ErrnoMs
7f40: 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 g(Tcl_GetErrno()
7f50: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ), (char *) NULL
7f60: 29 3b 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 );...res = TCL_E
7f70: 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e RROR;...goto don
7f80: 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 54 63 e;.. }..}..Tc
7f90: 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 l_SetObjResult(i
7fa0: 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e nterp, Tcl_NewIn
7fb0: 74 4f 62 6a 28 74 6f 74 61 6c 29 29 3b 0a 20 20 tObj(total));.
7fc0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 67 6f 74 6f } else {..goto
7fd0: 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 64 6f done;. }..do
7fe0: 6e 65 3a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e ne:. /* Clean
7ff0: 20 75 70 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 up */. if (i
8000: 6e 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 n != NULL) {..Tc
8010: 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 l_Close(interp,
8020: 69 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 in);. }. i
8030: 66 20 28 6f 75 74 20 21 3d 20 4e 55 4c 4c 29 20 f (out != NULL)
8040: 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 {..Tcl_Close(int
8050: 65 72 70 2c 20 6f 75 74 29 3b 0a 20 20 20 20 7d erp, out);. }
8060: 0a 20 20 20 20 69 66 20 28 63 74 78 20 21 3d 20 . if (ctx !=
8070: 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 50 NULL) {..EVP_CIP
8080: 48 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 HER_CTX_free(ctx
8090: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 );. }. ret
80a0: 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a urn res;.}../***
80b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
80c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
80d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
80e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
80f0: 2f 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 /..static const
8100: 63 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 5f 6f 70 char *command_op
8110: 74 73 20 5b 5d 20 3d 20 7b 0a 20 20 20 20 22 2d ts [] = {. "-
8120: 63 68 61 6e 22 2c 20 22 2d 63 68 61 6e 6e 65 6c chan", "-channel
8130: 22 2c 20 22 2d 63 69 70 68 65 72 22 2c 20 22 2d ", "-cipher", "-
8140: 63 6f 6d 6d 61 6e 64 22 2c 20 22 2d 64 61 74 61 command", "-data
8150: 22 2c 20 22 2d 64 69 67 65 73 74 22 2c 20 22 2d ", "-digest", "-
8160: 69 6e 66 69 6c 65 22 2c 20 22 2d 66 69 6c 65 6e infile", "-filen
8170: 61 6d 65 22 2c 0a 20 20 20 20 22 2d 6f 75 74 66 ame",. "-outf
8180: 69 6c 65 22 2c 20 22 2d 68 61 73 68 22 2c 20 22 ile", "-hash", "
8190: 2d 69 76 22 2c 20 22 2d 6b 65 79 22 2c 20 22 2d -iv", "-key", "-
81a0: 6d 61 63 22 2c 20 4e 55 4c 4c 7d 3b 0a 0a 65 6e mac", NULL};..en
81b0: 75 6d 20 5f 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 um _command_opts
81c0: 20 7b 0a 20 20 20 20 5f 6f 70 74 5f 63 68 61 6e {. _opt_chan
81d0: 2c 20 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c 2c 20 , _opt_channel,
81e0: 5f 6f 70 74 5f 63 69 70 68 65 72 2c 20 5f 6f 70 _opt_cipher, _op
81f0: 74 5f 63 6f 6d 6d 61 6e 64 2c 20 5f 6f 70 74 5f t_command, _opt_
8200: 64 61 74 61 2c 20 5f 6f 70 74 5f 64 69 67 65 73 data, _opt_diges
8210: 74 2c 20 5f 6f 70 74 5f 69 6e 66 69 6c 65 2c 0a t, _opt_infile,.
8220: 20 20 20 20 5f 6f 70 74 5f 66 69 6c 65 6e 61 6d _opt_filenam
8230: 65 2c 20 5f 6f 70 74 5f 6f 75 74 66 69 6c 65 2c e, _opt_outfile,
8240: 20 5f 6f 70 74 5f 68 61 73 68 2c 20 5f 6f 70 74 _opt_hash, _opt
8250: 5f 69 76 2c 20 5f 6f 70 74 5f 6b 65 79 2c 20 5f _iv, _opt_key, _
8260: 6f 70 74 5f 6d 61 63 0a 7d 3b 0a 0a 2f 2a 0a 20 opt_mac.};../*.
8270: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
8280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
82b0: 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 ----. *. * Encry
82c0: 70 74 4d 61 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 ptMain --. *. *.
82d0: 50 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 Perform encrypti
82e0: 6f 6e 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 on function and
82f0: 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 return result..
8300: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
8310: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
8320: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
8330: 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 effects:. *.Sets
8340: 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 6f 72 result or error
8350: 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d message. *. *--
8360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
83a0: 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
83b0: 20 45 6e 63 72 79 70 74 4d 61 69 6e 28 69 6e 74 EncryptMain(int
83c0: 20 74 79 70 65 2c 20 54 63 6c 5f 49 6e 74 65 72 type, Tcl_Inter
83d0: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f p *interp, int o
83e0: 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f bjc, Tcl_Obj *co
83f0: 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 nst objv[]) {.
8400: 20 20 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 Tcl_Obj *ciphe
8410: 72 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 63 6d rObj = NULL, *cm
8420: 64 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 61 dObj = NULL, *da
8430: 74 61 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 taObj = NULL, *d
8440: 69 67 65 73 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b igestObj = NULL;
8450: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e . Tcl_Obj *in
8460: 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 FileObj = NULL,
8470: 2a 6f 75 74 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 *outFileObj = NU
8480: 4c 4c 2c 20 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 LL, *keyObj = NU
8490: 4c 4c 2c 20 2a 69 76 4f 62 6a 20 3d 20 4e 55 4c LL, *ivObj = NUL
84a0: 4c 2c 20 2a 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c L, *macObj = NUL
84b0: 4c 3b 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 L;. const cha
84c0: 72 20 2a 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c r *channel = NUL
84d0: 4c 2c 20 2a 6f 70 74 3b 0a 20 20 20 20 69 6e 74 L, *opt;. int
84e0: 20 72 65 73 2c 20 73 74 61 72 74 20 3d 20 31 2c res, start = 1,
84f0: 20 66 6e 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 fn;.. dprint
8500: 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 f("Called");..
8510: 20 20 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 72 /* Clear inter
8520: 70 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 p result */.
8530: 54 63 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 Tcl_ResetResult(
8540: 69 6e 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f 2a interp);.. /*
8550: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
8560: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
8570: 62 6a 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 bjc < 3 || objc
8580: 3e 20 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f > 12) {..Tcl_Wro
8590: 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 ngNumArgs(interp
85a0: 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 63 69 , 1, objv, "?-ci
85b0: 70 68 65 72 3f 20 6e 61 6d 65 20 3f 2d 64 69 67 pher? name ?-dig
85c0: 65 73 74 20 6e 61 6d 65 3f 20 2d 6b 65 79 20 6b est name? -key k
85d0: 65 79 20 3f 2d 69 76 20 73 74 72 69 6e 67 3f 20 ey ?-iv string?
85e0: 3f 2d 6d 61 63 20 6e 61 6d 65 3f 20 5b 2d 63 68 ?-mac name? [-ch
85f0: 61 6e 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 63 6f annel chan | -co
8600: 6d 6d 61 6e 64 20 63 6d 64 4e 61 6d 65 20 7c 20 mmand cmdName |
8610: 2d 69 6e 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 -infile filename
8620: 20 2d 6f 75 74 66 69 6c 65 20 66 69 6c 65 6e 61 -outfile filena
8630: 6d 65 20 7c 20 3f 2d 64 61 74 61 3f 20 64 61 74 me | ?-data? dat
8640: 61 5d 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 a]");..return TC
8650: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
8660: 20 20 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 63 /* Special c
8670: 61 73 65 20 6f 66 20 66 69 72 73 74 20 61 72 67 ase of first arg
8680: 20 69 73 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 is cipher */.
8690: 20 20 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 opt = Tcl_GetS
86a0: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
86b0: 76 5b 73 74 61 72 74 5d 2c 20 4e 55 4c 4c 29 3b v[start], NULL);
86c0: 0a 20 20 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 . if (opt[0]
86d0: 21 3d 20 27 2d 27 29 20 7b 0a 09 73 77 69 74 63 != '-') {..switc
86e0: 68 28 74 79 70 65 29 20 7b 0a 09 63 61 73 65 20 h(type) {..case
86f0: 54 59 50 45 5f 45 4e 43 52 59 50 54 3a 0a 09 63 TYPE_ENCRYPT:..c
8700: 61 73 65 20 54 59 50 45 5f 44 45 43 52 59 50 54 ase TYPE_DECRYPT
8710: 3a 0a 09 20 20 20 20 63 69 70 68 65 72 4f 62 6a :.. cipherObj
8720: 20 3d 20 6f 62 6a 76 5b 73 74 61 72 74 2b 2b 5d = objv[start++]
8730: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d ;.. break;..}
8740: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 . }.. /* G
8750: 65 74 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 et options */.
8760: 20 20 66 6f 72 20 28 69 6e 74 20 69 64 78 20 3d for (int idx =
8770: 20 73 74 61 72 74 3b 20 69 64 78 20 3c 20 6f 62 start; idx < ob
8780: 6a 63 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 2f 2a jc; idx++) {../*
8790: 20 53 70 65 63 69 61 6c 20 63 61 73 65 20 66 6f Special case fo
87a0: 72 20 77 68 65 6e 20 6c 61 73 74 20 61 72 67 20 r when last arg
87b0: 69 73 20 64 61 74 61 20 2a 2f 0a 09 69 66 20 28 is data */..if (
87c0: 69 64 78 20 3d 3d 20 6f 62 6a 63 20 2d 20 31 29 idx == objc - 1)
87d0: 20 7b 0a 09 6f 70 74 20 3d 20 54 63 6c 5f 47 65 {..opt = Tcl_Ge
87e0: 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f tStringFromObj(o
87f0: 62 6a 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b bjv[idx], NULL);
8800: 0a 09 20 20 20 20 69 66 20 28 6f 70 74 5b 30 5d .. if (opt[0]
8810: 20 21 3d 20 27 2d 27 20 26 26 20 64 61 74 61 4f != '-' && dataO
8820: 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 bj == NULL) {...
8830: 64 61 74 61 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 dataObj = objv[i
8840: 64 78 5d 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 dx];...break;..
8850: 20 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 47 65 74 }..}.../* Get
8860: 20 6f 70 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 option */..if (
8870: 54 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d Tcl_GetIndexFrom
8880: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 Obj(interp, objv
8890: 5b 69 64 78 5d 2c 20 63 6f 6d 6d 61 6e 64 5f 6f [idx], command_o
88a0: 70 74 73 2c 20 22 6f 70 74 69 6f 6e 22 2c 20 30 pts, "option", 0
88b0: 2c 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b , &fn) != TCL_OK
88c0: 29 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ) {.. return
88d0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 TCL_ERROR;..}...
88e0: 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 /* Validate arg
88f0: 68 61 73 20 61 20 76 61 6c 75 65 20 2a 2f 0a 09 has a value */..
8900: 69 66 20 28 2b 2b 69 64 78 20 3e 3d 20 6f 62 6a if (++idx >= obj
8910: 63 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 c) {.. Tcl_Ap
8920: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
8930: 70 2c 20 22 4e 6f 20 76 61 6c 75 65 20 66 6f 72 p, "No value for
8940: 20 6f 70 74 69 6f 6e 20 5c 22 22 2c 20 63 6f 6d option \"", com
8950: 6d 61 6e 64 5f 6f 70 74 73 5b 66 6e 5d 2c 20 22 mand_opts[fn], "
8960: 5c 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 \"", (char *) NU
8970: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
8980: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 09 _ERROR;. }...
8990: 73 77 69 74 63 68 28 66 6e 29 20 7b 0a 09 63 61 switch(fn) {..ca
89a0: 73 65 20 5f 6f 70 74 5f 63 68 61 6e 3a 0a 09 63 se _opt_chan:..c
89b0: 61 73 65 20 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c ase _opt_channel
89c0: 3a 0a 20 20 20 20 09 20 20 20 20 47 45 54 5f 4f :. . GET_O
89d0: 50 54 5f 53 54 52 49 4e 47 28 6f 62 6a 76 5b 69 PT_STRING(objv[i
89e0: 64 78 5d 2c 20 63 68 61 6e 6e 65 6c 2c 20 4e 55 dx], channel, NU
89f0: 4c 4c 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b LL);.. break;
8a00: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 63 69 70 68 ..case _opt_ciph
8a10: 65 72 3a 0a 09 20 20 20 20 63 69 70 68 65 72 4f er:.. cipherO
8a20: 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a bj = objv[idx];.
8a30: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
8a40: 65 20 5f 6f 70 74 5f 63 6f 6d 6d 61 6e 64 3a 0a e _opt_command:.
8a50: 09 20 20 20 20 63 6d 64 4f 62 6a 20 3d 20 6f 62 . cmdObj = ob
8a60: 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 jv[idx];.. br
8a70: 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f eak;..case _opt_
8a80: 64 61 74 61 3a 0a 09 20 20 20 20 64 61 74 61 4f data:.. dataO
8a90: 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a bj = objv[idx];.
8aa0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
8ab0: 65 20 5f 6f 70 74 5f 64 69 67 65 73 74 3a 0a 09 e _opt_digest:..
8ac0: 63 61 73 65 20 5f 6f 70 74 5f 68 61 73 68 3a 0a case _opt_hash:.
8ad0: 09 20 20 20 20 64 69 67 65 73 74 4f 62 6a 20 3d . digestObj =
8ae0: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8af0: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8b00: 70 74 5f 69 6e 66 69 6c 65 3a 0a 09 63 61 73 65 pt_infile:..case
8b10: 20 5f 6f 70 74 5f 66 69 6c 65 6e 61 6d 65 3a 0a _opt_filename:.
8b20: 09 20 20 20 20 69 6e 46 69 6c 65 4f 62 6a 20 3d . inFileObj =
8b30: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8b40: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8b50: 70 74 5f 6f 75 74 66 69 6c 65 3a 0a 09 20 20 20 pt_outfile:..
8b60: 20 6f 75 74 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 outFileObj = ob
8b70: 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 jv[idx];.. br
8b80: 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f eak;..case _opt_
8b90: 69 76 3a 0a 09 20 20 20 20 69 76 4f 62 6a 20 3d iv:.. ivObj =
8ba0: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8bb0: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8bc0: 70 74 5f 6b 65 79 3a 0a 09 20 20 20 20 6b 65 79 pt_key:.. key
8bd0: 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b Obj = objv[idx];
8be0: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
8bf0: 73 65 20 5f 6f 70 74 5f 6d 61 63 3a 0a 09 20 20 se _opt_mac:..
8c00: 20 20 6d 61 63 4f 62 6a 20 3d 20 6f 62 6a 76 5b macObj = objv[
8c10: 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b idx];.. break
8c20: 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ;..}. }..
8c30: 2f 2a 20 43 68 65 63 6b 20 66 6f 72 20 72 65 71 /* Check for req
8c40: 75 69 72 65 64 20 6f 70 74 69 6f 6e 73 20 2a 2f uired options */
8c50: 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 4f . if (cipherO
8c60: 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 bj == NULL) {..T
8c70: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
8c80: 69 6e 74 65 72 70 2c 20 22 4e 6f 20 63 69 70 68 interp, "No ciph
8c90: 65 72 22 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 er", NULL);.
8ca0: 7d 20 65 6c 73 65 20 69 66 20 28 6b 65 79 4f 62 } else if (keyOb
8cb0: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 j == NULL) {..Tc
8cc0: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
8cd0: 6e 74 65 72 70 2c 20 22 4e 6f 20 6b 65 79 22 2c nterp, "No key",
8ce0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
8cf0: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
8d00: 0a 0a 20 20 20 20 2f 2a 20 50 65 72 66 6f 72 6d .. /* Perform
8d10: 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 encryption func
8d20: 74 69 6f 6e 20 6f 6e 20 66 69 6c 65 2c 20 73 74 tion on file, st
8d30: 61 63 6b 65 64 20 63 68 61 6e 6e 65 6c 2c 20 75 acked channel, u
8d40: 73 69 6e 67 20 69 6e 73 74 61 6e 63 65 20 63 6f sing instance co
8d50: 6d 6d 61 6e 64 2c 20 6f 72 20 64 61 74 61 20 62 mmand, or data b
8d60: 6c 6f 62 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 lob */. if (i
8d70: 6e 46 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c nFileObj != NULL
8d80: 20 26 26 20 6f 75 74 46 69 6c 65 4f 62 6a 20 21 && outFileObj !
8d90: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d = NULL) {..res =
8da0: 20 45 6e 63 72 79 70 74 46 69 6c 65 48 61 6e 64 EncryptFileHand
8db0: 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 65 ler(interp, type
8dc0: 2c 20 69 6e 46 69 6c 65 4f 62 6a 2c 20 6f 75 74 , inFileObj, out
8dd0: 46 69 6c 65 4f 62 6a 2c 20 63 69 70 68 65 72 4f FileObj, cipherO
8de0: 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 6b bj, digestObj, k
8df0: 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 3b 0a 20 eyObj, ivObj);.
8e00: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 68 } else if (ch
8e10: 61 6e 6e 65 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b annel != NULL) {
8e20: 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 70 74 43 ..res = EncryptC
8e30: 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 69 6e hannelHandler(in
8e40: 74 65 72 70 2c 20 74 79 70 65 2c 20 63 68 61 6e terp, type, chan
8e50: 6e 65 6c 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 nel, cipherObj,
8e60: 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 digestObj, keyOb
8e70: 6a 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d j, ivObj);. }
8e80: 20 65 6c 73 65 20 69 66 20 28 63 6d 64 4f 62 6a else if (cmdObj
8e90: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 != NULL) {..res
8ea0: 20 3d 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e = EncryptComman
8eb0: 64 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c dHandler(interp,
8ec0: 20 74 79 70 65 2c 20 63 6d 64 4f 62 6a 2c 20 63 type, cmdObj, c
8ed0: 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 ipherObj, digest
8ee0: 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f Obj, keyObj, ivO
8ef0: 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 bj);. } else
8f00: 69 66 20 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e if (dataObj != N
8f10: 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e ULL) {..res = En
8f20: 63 72 79 70 74 44 61 74 61 48 61 6e 64 6c 65 72 cryptDataHandler
8f30: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 64 (interp, type, d
8f40: 61 74 61 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 ataObj, cipherOb
8f50: 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 j, digestObj, ke
8f60: 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 yObj, ivObj);.
8f70: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f } else {..Tcl_
8f80: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
8f90: 65 72 70 2c 20 22 4e 6f 20 6f 70 65 72 61 74 69 erp, "No operati
8fa0: 6f 6e 20 73 70 65 63 69 66 69 65 64 3a 20 55 73 on specified: Us
8fb0: 65 20 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 6f 6d e -channel, -com
8fc0: 6d 61 6e 64 2c 20 2d 64 61 74 61 2c 20 6f 72 20 mand, -data, or
8fd0: 2d 69 6e 66 69 6c 65 20 6f 70 74 69 6f 6e 22 2c -infile option",
8fe0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 73 20 3d 20 54 NULL);..res = T
8ff0: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
9000: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b 0a return res;.
9010: 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d }../*. *--------
9020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
9060: 2a 20 45 6e 63 72 79 70 74 69 6f 6e 20 43 6f 6d * Encryption Com
9070: 6d 61 6e 64 73 20 2d 2d 0a 20 2a 0a 20 2a 09 50 mands --. *. *.P
9080: 65 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f erform encryptio
9090: 6e 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 72 n function and r
90a0: 65 74 75 72 6e 20 72 65 73 75 6c 74 73 0a 20 2a eturn results. *
90b0: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
90c0: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 TCL_OK or TCL_ER
90d0: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ROR. *. * Side e
90e0: 66 66 65 63 74 73 3a 0a 20 2a 09 43 6f 6d 6d 61 ffects:. *.Comma
90f0: 6e 64 20 64 65 70 65 6e 64 65 6e 74 0a 20 2a 0a nd dependent. *.
9100: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
9110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9140: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 63 -----. */.static
9150: 20 69 6e 74 20 45 6e 63 72 79 70 74 4f 62 6a 43 int EncryptObjC
9160: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
9170: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
9180: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
9190: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
91a0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
91b0: 0a 20 20 20 20 28 76 6f 69 64 29 20 63 6c 69 65 . (void) clie
91c0: 6e 74 44 61 74 61 3b 0a 20 20 20 20 72 65 74 75 ntData;. retu
91d0: 72 6e 20 45 6e 63 72 79 70 74 4d 61 69 6e 28 54 rn EncryptMain(T
91e0: 59 50 45 5f 45 4e 43 52 59 50 54 2c 20 69 6e 74 YPE_ENCRYPT, int
91f0: 65 72 70 2c 20 6f 62 6a 63 2c 20 6f 62 6a 76 29 erp, objc, objv)
9200: 3b 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 ;.}..static int
9210: 44 65 63 72 79 70 74 4f 62 6a 43 6d 64 28 43 6c DecryptObjCmd(Cl
9220: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
9230: 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ata, Tcl_Interp
9240: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
9250: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
9260: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
9270: 28 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 (void) clientDat
9280: 61 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 45 6e a;. return En
9290: 63 72 79 70 74 4d 61 69 6e 28 54 59 50 45 5f 44 cryptMain(TYPE_D
92a0: 45 43 52 59 50 54 2c 20 69 6e 74 65 72 70 2c 20 ECRYPT, interp,
92b0: 6f 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a objc, objv);.}..
92c0: 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /*. *-----------
92d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
92f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9300: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
9310: 6e 63 72 79 70 74 5f 49 6e 69 74 69 61 6c 69 7a ncrypt_Initializ
9320: 65 20 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 e --. *. *.Creat
9330: 65 20 6e 61 6d 65 73 70 61 63 65 2c 20 63 6f 6d e namespace, com
9340: 6d 61 6e 64 73 2c 20 61 6e 64 20 72 65 67 69 73 mands, and regis
9350: 74 65 72 20 70 61 63 6b 61 67 65 20 76 65 72 73 ter package vers
9360: 69 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ion. *. * Return
9370: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
9380: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
9390: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
93a0: 09 43 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 .Creates command
93b0: 73 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d s. *. *---------
93c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
93f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
9400: 6e 74 20 54 6c 73 5f 45 6e 63 72 79 70 74 43 6f nt Tls_EncryptCo
9410: 6d 6d 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 mmands(Tcl_Inter
9420: 70 20 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 p *interp) {.
9430: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
9440: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
9450: 6c 73 3a 3a 65 6e 63 72 79 70 74 22 2c 20 45 6e ls::encrypt", En
9460: 63 72 79 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c cryptObjCmd, (Cl
9470: 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 ientData) NULL,
9480: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
9490: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
94a0: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
94b0: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
94c0: 6c 73 3a 3a 64 65 63 72 79 70 74 22 2c 20 44 65 ls::decrypt", De
94d0: 63 72 79 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c cryptObjCmd, (Cl
94e0: 69 65 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 ientData) NULL,
94f0: 28 54 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 (Tcl_CmdDeletePr
9500: 6f 63 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 oc *) NULL);.
9510: 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f Tcl_CreateObjCo
9520: 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 mmand(interp, "t
9530: 6c 73 3a 3a 75 6e 73 74 61 63 6b 32 22 2c 20 45 ls::unstack2", E
9540: 6e 63 72 79 70 74 55 6e 73 74 61 63 6b 4f 62 6a ncryptUnstackObj
9550: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
9560: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
9570: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
9580: 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 LL);. return
9590: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a TCL_OK;.}..