0000: 2f 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e /*. * Encryption
0010: 20 46 75 6e 63 74 69 6f 6e 73 20 4d 6f 64 75 6c Functions Modul
0020: 65 0a 20 2a 0a 20 2a 20 54 68 69 73 20 6d 6f 64 e. *. * This mod
0030: 75 6c 65 20 70 72 6f 76 69 64 65 73 20 63 6f 6d ule provides com
0040: 6d 61 6e 64 73 20 74 68 61 74 20 63 61 6e 20 62 mands that can b
0050: 65 20 75 73 65 64 20 74 6f 20 65 6e 63 72 79 70 e used to encryp
0060: 74 20 6f 72 20 64 65 63 72 79 70 74 20 64 61 74 t or decrypt dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 ude <tcl.h>.#inc
00e0: 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 lude <stdio.h>.#
00f0: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e include <string.
0100: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 h>.#include <ope
0110: 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 23 69 66 20 nssl/evp.h>.#if
0120: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
0130: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
0140: 30 30 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 0000L.#include <
0150: 6f 70 65 6e 73 73 6c 2f 70 61 72 61 6d 73 2e 68 openssl/params.h
0160: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 4d 61 63 >.#endif../* Mac
0170: 72 6f 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 42 ros */.#define B
0180: 55 46 46 45 52 5f 53 49 5a 45 09 33 32 37 36 38 UFFER_SIZE.32768
0190: 0a 23 64 65 66 69 6e 65 20 43 48 41 4e 5f 45 4f .#define CHAN_EO
01a0: 46 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 52 F.0x10.#define R
01b0: 45 41 44 5f 44 45 4c 41 59 09 35 0a 0a 2f 2a 20 EAD_DELAY.5../*
01c0: 45 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 Encryption funct
01d0: 69 6f 6e 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 ions */.#define
01e0: 54 59 50 45 5f 4d 44 09 09 30 78 30 31 30 0a 23 TYPE_MD..0x010.#
01f0: 64 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 define TYPE_HMAC
0200: 09 30 78 30 32 30 0a 23 64 65 66 69 6e 65 20 54 .0x020.#define T
0210: 59 50 45 5f 43 4d 41 43 09 30 78 30 34 30 0a 23 YPE_CMAC.0x040.#
0220: 64 65 66 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 define TYPE_MAC.
0230: 30 78 30 38 30 0a 23 64 65 66 69 6e 65 20 54 59 0x080.#define TY
0240: 50 45 5f 45 4e 43 52 59 50 54 09 30 78 31 30 30 PE_ENCRYPT.0x100
0250: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 44 45 .#define TYPE_DE
0260: 43 52 59 50 54 09 30 78 32 30 30 0a 23 64 65 66 CRYPT.0x200.#def
0270: 69 6e 65 20 54 59 50 45 5f 53 49 47 4e 09 30 78 ine TYPE_SIGN.0x
0280: 34 30 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 400.#define TYPE
0290: 5f 56 45 52 49 46 59 09 30 78 38 30 30 0a 0a 2f _VERIFY.0x800../
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 ***/../*. * This
02f0: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e structure defin
0300: 65 73 20 74 68 65 20 70 65 72 2d 69 6e 73 74 61 es the per-insta
0310: 6e 63 65 20 73 74 61 74 65 20 6f 66 20 61 20 65 nce state of a e
0320: 6e 63 72 79 70 74 20 6f 70 65 72 61 74 69 6f 6e ncrypt operation
0330: 2e 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 .. */.typedef st
0340: 72 75 63 74 20 45 6e 63 72 79 70 74 53 74 61 74 ruct EncryptStat
0350: 65 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c e {..Tcl_Channel
0360: 20 73 65 6c 66 3b 09 2f 2a 20 54 68 69 73 20 73 self;./* This s
0370: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f ocket channel */
0380: 0a 09 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e ..Tcl_TimerToken
0390: 20 74 69 6d 65 72 3b 09 2f 2a 20 54 69 6d 65 72 timer;./* Timer
03a0: 20 66 6f 72 20 72 65 61 64 20 65 76 65 6e 74 73 for read events
03b0: 20 2a 2f 0a 0a 09 69 6e 74 20 66 6c 61 67 73 3b */...int flags;
03c0: 09 09 2f 2a 20 43 68 61 6e 20 63 6f 6e 66 69 67 ../* Chan config
03d0: 20 66 6c 61 67 73 20 2a 2f 0a 09 69 6e 74 20 77 flags */..int w
03e0: 61 74 63 68 4d 61 73 6b 3b 09 09 2f 2a 20 43 75 atchMask;../* Cu
03f0: 72 72 65 6e 74 20 57 61 74 63 68 50 72 6f 63 20 rrent WatchProc
0400: 6d 61 73 6b 20 2a 2f 0a 09 69 6e 74 20 6d 6f 64 mask */..int mod
0410: 65 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d e;../* Current m
0420: 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 ode of parent ch
0430: 61 6e 6e 65 6c 20 2a 2f 0a 09 69 6e 74 20 74 79 annel */..int ty
0440: 70 65 3b 09 09 2f 2a 20 4f 70 65 72 61 74 69 6f pe;../* Operatio
0450: 6e 20 74 79 70 65 20 2a 2f 0a 0a 09 54 63 6c 5f n type */...Tcl_
0460: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 Interp *interp;.
0470: 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 /* Current inter
0480: 70 72 65 74 65 72 20 2a 2f 0a 09 45 56 50 5f 43 preter */..EVP_C
0490: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 3b 09 IPHER_CTX *ctx;.
04a0: 2f 2a 20 43 69 70 68 65 72 20 43 6f 6e 74 65 78 /* Cipher Contex
04b0: 74 20 2a 2f 0a 09 54 63 6c 5f 43 6f 6d 6d 61 6e t */..Tcl_Comman
04c0: 64 20 74 6f 6b 65 6e 3b 09 2f 2a 20 43 6f 6d 6d d token;./* Comm
04d0: 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a 7d 20 45 and token */.} E
04e0: 6e 63 72 79 70 74 53 74 61 74 65 3b 0a 0a 0a 2f ncryptState;.../
04f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
0540: 63 72 79 70 74 53 74 61 74 65 4e 65 77 20 2d 2d cryptStateNew --
0550: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
0560: 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 20 70 tion creates a p
0570: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
0580: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
0590: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
05a0: 20 2a 09 53 74 61 74 65 20 73 74 72 75 63 74 75 *.State structu
05b0: 72 65 20 70 6f 69 6e 74 65 72 0a 20 2a 0a 20 2a re pointer. *. *
05c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
05d0: 2a 09 43 72 65 61 74 65 73 20 73 74 72 75 63 74 *.Creates struct
05e0: 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ure. *. *-------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
0630: 0a 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 45 .EncryptState *E
0640: 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 54 ncryptStateNew(T
0650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0660: 70 2c 20 69 6e 74 20 74 79 70 65 29 20 7b 0a 20 p, int type) {.
0670: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
0680: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
0690: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6b 61 ryptState *) cka
06a0: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 lloc((unsigned)
06b0: 73 69 7a 65 6f 66 28 45 6e 63 72 79 70 74 53 74 sizeof(EncryptSt
06c0: 61 74 65 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 ate));.. if (
06d0: 73 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c statePtr != NULL
06e0: 29 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 ) {..memset(stat
06f0: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
0700: 45 6e 63 72 79 70 74 53 74 61 74 65 29 29 3b 0a EncryptState));.
0710: 09 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 .statePtr->self.
0720: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 = NULL;../* This
0730: 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 socket channel
0740: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
0750: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 mer = NULL;../*
0760: 54 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 Timer to flush d
0770: 61 74 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 ata */..statePtr
0780: 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a ->flags = 0;../*
0790: 20 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 Chan config fla
07a0: 67 73 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d gs */..statePtr-
07b0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 >watchMask = 0;.
07c0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
07d0: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 Proc mask */..st
07e0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 atePtr->mode.= 0
07f0: 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f ;../* Current mo
0800: 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 de of parent cha
0810: 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 nnel */..statePt
0820: 72 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 3b 09 r->type = type;.
0830: 09 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 74 79 ./* Operation ty
0840: 70 65 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d pe */..statePtr-
0850: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
0860: 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ;./* Current int
0870: 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 erpreter */..sta
0880: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
0890: 4c 3b 09 09 2f 2a 20 43 69 70 68 65 72 20 43 6f L;../* Cipher Co
08a0: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
08b0: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e 55 4c 4c tr->token = NULL
08c0: 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f ;../* Command to
08d0: 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a 20 20 20 ken */. }.
08e0: 20 72 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 return statePtr
08f0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0940: 0a 20 2a 20 45 6e 63 72 79 70 74 53 74 61 74 65 . * EncryptState
0950: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
0960: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 65 6c 65 is function dele
0970: 74 65 73 20 61 20 73 74 61 74 65 20 64 61 74 61 tes a state data
0980: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0990: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
09a0: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
09b0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
09c0: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
09d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0a20: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
0a30: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 (EncryptState *s
0a40: 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 69 tatePtr) {. i
0a50: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 28 f (statePtr == (
0a60: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
0a70: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
0a80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 . }.. /* R
0a90: 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 69 emove pending ti
0aa0: 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 mer */. if (s
0ab0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
0ac0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
0ad0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
0ae0: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
0af0: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
0b00: 65 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 er);. }..
0b10: 2f 2a 20 46 72 65 65 20 63 6f 6e 74 65 78 74 20 /* Free context
0b20: 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 20 structures */.
0b30: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0b40: 63 74 78 20 21 3d 20 28 45 56 50 5f 43 49 50 48 ctx != (EVP_CIPH
0b50: 45 52 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 ER_CTX *) NULL)
0b60: 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 {..EVP_CIPHER_CT
0b70: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
0b80: 3e 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 >ctx);. }.
0b90: 20 63 6b 66 72 65 65 28 73 74 61 74 65 50 74 72 ckfree(statePtr
0ba0: 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a );.}../*********
0bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
0bf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
0c40: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d yptInitialize --
0c50: 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a . *. *.Initializ
0c60: 65 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 e an encryption
0c70: 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 function. *. * R
0c80: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
0c90: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0ca0: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 or TCL_ERROR for
0cb0: 20 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 failure with re
0cc0: 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 sult set. *.to e
0cd0: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
0ce0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0cf0: 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f :. *.No result o
0d00: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
0d10: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
0d60: 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 EncryptInitiali
0d70: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ze(Tcl_Interp *i
0d80: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c nterp, int type,
0d90: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 EVP_CIPHER_CTX
0da0: 2a 2a 63 74 78 2c 0a 09 54 63 6c 5f 4f 62 6a 20 **ctx,..Tcl_Obj
0db0: 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f *cipherObj, Tcl_
0dc0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
0dd0: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 _Obj *ivObj, int
0de0: 20 70 61 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 padding) {.
0df0: 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 48 45 52 const EVP_CIPHER
0e00: 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 20 76 6f *cipher;. vo
0e10: 69 64 20 2a 6b 65 79 53 74 72 69 6e 67 20 3d 20 id *keyString =
0e20: 4e 55 4c 4c 2c 20 2a 69 76 53 74 72 69 6e 67 20 NULL, *ivString
0e30: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 63 6c 5f = NULL;. Tcl_
0e40: 53 69 7a 65 20 6b 65 79 5f 6c 65 6e 20 3d 20 30 Size key_len = 0
0e50: 2c 20 69 76 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 , iv_len = 0;.
0e60: 20 20 69 6e 74 20 72 65 73 2c 20 6d 61 78 3b 0a int res, max;.
0e70: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
0e80: 72 20 6b 65 79 5b 45 56 50 5f 4d 41 58 5f 4b 45 r key[EVP_MAX_KE
0e90: 59 5f 4c 45 4e 47 54 48 5d 2c 20 69 76 5b 45 56 Y_LENGTH], iv[EV
0ea0: 50 5f 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 5d P_MAX_IV_LENGTH]
0eb0: 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 ;.. dprintf("
0ec0: 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f Called");.. /
0ed0: 2a 20 49 6e 69 74 20 62 75 66 66 65 72 73 20 2a * Init buffers *
0ee0: 2f 0a 20 20 20 20 6d 65 6d 73 65 74 28 6b 65 79 /. memset(key
0ef0: 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f 4b 45 59 , 0, EVP_MAX_KEY
0f00: 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 6d 65 _LENGTH);. me
0f10: 6d 73 65 74 28 69 76 2c 20 30 2c 20 45 56 50 5f mset(iv, 0, EVP_
0f20: 4d 41 58 5f 49 56 5f 4c 45 4e 47 54 48 29 3b 0a MAX_IV_LENGTH);.
0f30: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 69 70 68 . /* Get ciph
0f40: 65 72 20 2a 2f 0a 20 20 20 20 63 69 70 68 65 72 er */. cipher
0f50: 20 3d 20 55 74 69 6c 5f 47 65 74 43 69 70 68 65 = Util_GetCiphe
0f60: 72 28 69 6e 74 65 72 70 2c 20 63 69 70 68 65 72 r(interp, cipher
0f70: 4f 62 6a 2c 20 31 29 3b 0a 20 20 20 20 69 66 20 Obj, 1);. if
0f80: 28 63 69 70 68 65 72 20 3d 3d 20 4e 55 4c 4c 29 (cipher == NULL)
0f90: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
0fa0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
0fb0: 20 2f 2a 20 20 47 65 74 20 6b 65 79 20 2d 20 4f /* Get key - O
0fc0: 6e 6c 79 20 73 75 70 70 6f 72 74 20 69 6e 74 65 nly support inte
0fd0: 72 6e 61 6c 6c 79 20 64 65 66 69 6e 65 64 20 63 rnally defined c
0fe0: 69 70 68 65 72 20 6c 65 6e 67 74 68 73 2e 0a 09 ipher lengths...
0ff0: 43 75 73 74 6f 6d 20 63 69 70 68 65 72 73 20 63 Custom ciphers c
1000: 61 6e 20 62 65 20 75 70 20 74 6f 20 73 69 7a 65 an be up to size
1010: 5f 74 20 62 79 74 65 73 2e 20 2a 2f 0a 20 20 20 _t bytes. */.
1020: 20 6d 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 max = EVP_CIPHE
1030: 52 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 R_key_length(cip
1040: 68 65 72 29 3b 0a 20 20 20 20 6b 65 79 53 74 72 her);. keyStr
1050: 69 6e 67 20 3d 20 55 74 69 6c 5f 47 65 74 4b 65 ing = Util_GetKe
1060: 79 28 69 6e 74 65 72 70 2c 20 6b 65 79 4f 62 6a y(interp, keyObj
1070: 2c 20 26 6b 65 79 5f 6c 65 6e 2c 20 22 6b 65 79 , &key_len, "key
1080: 22 2c 20 6d 61 78 2c 20 30 29 3b 0a 20 20 20 20 ", max, 0);.
1090: 69 66 20 28 6b 65 79 53 74 72 69 6e 67 20 21 3d if (keyString !=
10a0: 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d 63 70 79 NULL) {..memcpy
10b0: 28 28 76 6f 69 64 20 2a 29 20 6b 65 79 2c 20 6b ((void *) key, k
10c0: 65 79 53 74 72 69 6e 67 2c 20 28 73 69 7a 65 5f eyString, (size_
10d0: 74 29 20 6b 65 79 5f 6c 65 6e 29 3b 0a 20 20 20 t) key_len);.
10e0: 20 7d 20 65 6c 73 65 20 69 66 20 28 6b 65 79 4f } else if (keyO
10f0: 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 20 7b 0a 09 bj != NULL) {..
1100: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1110: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
1120: 20 47 65 74 20 49 56 20 2a 2f 0a 20 20 20 20 6d Get IV */. m
1130: 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 5f ax = EVP_CIPHER_
1140: 69 76 5f 6c 65 6e 67 74 68 28 63 69 70 68 65 72 iv_length(cipher
1150: 29 3b 0a 20 20 20 20 69 76 53 74 72 69 6e 67 20 );. ivString
1160: 3d 20 55 74 69 6c 5f 47 65 74 49 56 28 69 6e 74 = Util_GetIV(int
1170: 65 72 70 2c 20 69 76 4f 62 6a 2c 20 26 69 76 5f erp, ivObj, &iv_
1180: 6c 65 6e 2c 20 6d 61 78 2c 20 30 29 3b 0a 20 20 len, max, 0);.
1190: 20 20 69 66 20 28 69 76 53 74 72 69 6e 67 20 21 if (ivString !
11a0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 6d 65 6d 63 70 = NULL) {..memcp
11b0: 79 28 28 76 6f 69 64 20 2a 29 20 69 76 2c 20 69 y((void *) iv, i
11c0: 76 53 74 72 69 6e 67 2c 20 28 73 69 7a 65 5f 74 vString, (size_t
11d0: 29 20 69 76 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d ) iv_len);. }
11e0: 20 65 6c 73 65 20 69 66 20 28 69 76 4f 62 6a 20 else if (ivObj
11f0: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 != NULL) {..retu
1200: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
1210: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 }.. /* Crea
1220: 74 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 20 te context */.
1230: 20 20 69 66 28 28 2a 63 74 78 20 3d 20 45 56 50 if((*ctx = EVP
1240: 5f 43 49 50 48 45 52 5f 43 54 58 5f 6e 65 77 28 _CIPHER_CTX_new(
1250: 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 )) == NULL) {..T
1260: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1270: 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 interp, "Memory
1280: 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 allocation error
1290: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
12a0: 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 );..return TCL_E
12b0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
12c0: 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 74 /* Initialize t
12d0: 68 65 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a he operation */.
12e0: 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 if (type ==
12f0: 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a TYPE_ENCRYPT) {.
1300: 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 .res = EVP_Encry
1310: 70 74 49 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 ptInit_ex(*ctx,
1320: 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 4e 55 cipher, NULL, NU
1330: 4c 4c 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d LL, NULL);. }
1340: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
1350: 56 50 5f 44 65 63 72 79 70 74 49 6e 69 74 5f 65 VP_DecryptInit_e
1360: 78 28 2a 63 74 78 2c 20 63 69 70 68 65 72 2c 20 x(*ctx, cipher,
1370: 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c NULL, NULL, NULL
1380: 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 );. }.. if
1390: 28 21 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 (!res) {..Tcl_Ap
13a0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
13b0: 70 2c 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 66 p, "Initialize f
13c0: 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f 45 52 ailed: ", GET_ER
13d0: 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 68 61 R_REASON(), (cha
13e0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
13f0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
1400: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 54 75 72 }.. /* Tur
1410: 6e 20 6f 66 66 20 50 4b 43 53 23 37 20 70 61 64 n off PKCS#7 pad
1420: 64 69 6e 67 20 2a 2f 0a 20 20 20 20 69 66 20 28 ding */. if (
1430: 21 70 61 64 64 69 6e 67 29 20 7b 0a 09 45 56 50 !padding) {..EVP
1440: 5f 43 49 50 48 45 52 5f 43 54 58 5f 73 65 74 5f _CIPHER_CTX_set_
1450: 70 61 64 64 69 6e 67 28 2a 63 74 78 2c 20 70 61 padding(*ctx, pa
1460: 64 64 69 6e 67 29 3b 0a 20 20 20 20 7d 0a 0a 20 dding);. }..
1470: 20 20 20 2f 2a 20 53 65 74 20 6b 65 79 20 61 6e /* Set key an
1480: 64 20 49 56 20 2a 2f 0a 20 20 20 20 69 66 20 28 d IV */. if (
1490: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
14a0: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
14b0: 56 50 5f 45 6e 63 72 79 70 74 49 6e 69 74 5f 65 VP_EncryptInit_e
14c0: 78 28 2a 63 74 78 2c 20 4e 55 4c 4c 2c 20 4e 55 x(*ctx, NULL, NU
14d0: 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b 0a 20 20 LL, key, iv);.
14e0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 } else {..res
14f0: 3d 20 45 56 50 5f 44 65 63 72 79 70 74 49 6e 69 = EVP_DecryptIni
1500: 74 5f 65 78 28 2a 63 74 78 2c 20 4e 55 4c 4c 2c t_ex(*ctx, NULL,
1510: 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 69 76 29 3b NULL, key, iv);
1520: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 28 21 . }.. if(!
1530: 72 65 73 29 20 7b 0a 09 54 63 6c 5f 41 70 70 65 res) {..Tcl_Appe
1540: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1550: 20 22 53 65 74 20 6b 65 79 20 61 6e 64 20 49 56 "Set key and IV
1560: 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 5f failed: ", GET_
1570: 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 63 ERR_REASON(), (c
1580: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 har *) NULL);..r
1590: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
15a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 45 . }.. /* E
15b0: 72 61 73 65 20 62 75 66 66 65 72 73 20 2a 2f 0a rase buffers */.
15c0: 20 20 20 20 6d 65 6d 73 65 74 28 6b 65 79 2c 20 memset(key,
15d0: 30 2c 20 45 56 50 5f 4d 41 58 5f 4b 45 59 5f 4c 0, EVP_MAX_KEY_L
15e0: 45 4e 47 54 48 29 3b 0a 20 20 20 20 6d 65 6d 73 ENGTH);. mems
15f0: 65 74 28 69 76 2c 20 30 2c 20 45 56 50 5f 4d 41 et(iv, 0, EVP_MA
1600: 58 5f 49 56 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 X_IV_LENGTH);.
1610: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b return TCL_OK;
1620: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
1630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1670: 20 2a 20 45 6e 63 72 79 70 74 55 70 64 61 74 65 * EncryptUpdate
1680: 20 2d 2d 0a 20 2a 0a 20 2a 09 55 70 64 61 74 65 --. *. *.Update
1690: 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 an encryption f
16a0: 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 64 61 74 unction with dat
16b0: 61 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a a. *. * Returns:
16c0: 0a 20 2a 09 31 20 69 66 20 73 75 63 63 65 73 73 . *.1 if success
16d0: 66 75 6c 20 6f 72 20 30 20 66 6f 72 20 66 61 69 ful or 0 for fai
16e0: 6c 75 72 65 0a 20 2a 0a 20 2a 20 53 69 64 65 20 lure. *. * Side
16f0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 effects:. *.Adds
1700: 20 65 6e 63 72 79 70 74 65 64 20 64 61 74 61 20 encrypted data
1710: 74 6f 20 62 75 66 66 65 72 20 6f 72 20 73 65 74 to buffer or set
1720: 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f s result to erro
1730: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
1740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1780: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
1790: 70 74 55 70 64 61 74 65 28 54 63 6c 5f 49 6e 74 ptUpdate(Tcl_Int
17a0: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 erp *interp, int
17b0: 20 74 79 70 65 2c 20 45 56 50 5f 43 49 50 48 45 type, EVP_CIPHE
17c0: 52 5f 43 54 58 20 2a 63 74 78 2c 20 75 6e 73 69 R_CTX *ctx, unsi
17d0: 67 6e 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 gned char *out_b
17e0: 75 66 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f 6c 65 uf,..int *out_le
17f0: 6e 2c 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 n, unsigned char
1800: 20 2a 64 61 74 61 2c 20 54 63 6c 5f 53 69 7a 65 *data, Tcl_Size
1810: 20 64 61 74 61 5f 6c 65 6e 29 20 7b 0a 20 20 20 data_len) {.
1820: 20 69 6e 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 int res;.. d
1830: 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 printf("Called")
1840: 3b 0a 0a 20 20 20 20 2f 2a 20 45 6e 63 72 79 70 ;.. /* Encryp
1850: 74 2f 64 65 63 72 79 70 74 20 64 61 74 61 20 2a t/decrypt data *
1860: 2f 0a 20 20 20 20 69 66 20 28 74 79 70 65 20 3d /. if (type =
1870: 3d 20 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 = TYPE_ENCRYPT)
1880: 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 {..res = EVP_Enc
1890: 72 79 70 74 55 70 64 61 74 65 28 63 74 78 2c 20 ryptUpdate(ctx,
18a0: 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 6e out_buf, out_len
18b0: 2c 20 64 61 74 61 2c 20 28 69 6e 74 29 20 64 61 , data, (int) da
18c0: 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 ta_len);. } e
18d0: 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 lse {..res = EVP
18e0: 5f 44 65 63 72 79 70 74 55 70 64 61 74 65 28 63 _DecryptUpdate(c
18f0: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 tx, out_buf, out
1900: 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 28 69 6e 74 _len, data, (int
1910: 29 20 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 ) data_len);.
1920: 20 7d 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 }.. if (res)
1930: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f {..return TCL_O
1940: 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a K;. } else {.
1950: 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c .Tcl_AppendResul
1960: 74 28 69 6e 74 65 72 70 2c 20 22 55 70 64 61 74 t(interp, "Updat
1970: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 e failed: ", GET
1980: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
1990: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
19a0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
19b0: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 0a 20 2a ;. }.}../*. *
19c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1a00: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
1a10: 74 46 69 6e 61 6c 69 7a 65 20 2d 2d 0a 20 2a 0a tFinalize --. *.
1a20: 20 2a 09 46 69 6e 61 6c 69 7a 65 20 61 6e 20 65 *.Finalize an e
1a30: 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 ncryption functi
1a40: 6f 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 on. *. * Returns
1a50: 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 :. *.TCL_OK if s
1a60: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c uccessful or TCL
1a70: 5f 45 52 52 4f 52 20 66 6f 72 20 66 61 69 6c 75 _ERROR for failu
1a80: 72 65 20 77 69 74 68 20 72 65 73 75 6c 74 20 73 re with result s
1a90: 65 74 0a 20 2a 09 74 6f 20 65 72 72 6f 72 20 6d et. *.to error m
1aa0: 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a 20 53 69 essage.. *. * Si
1ab0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 de effects:. *.A
1ac0: 64 64 73 20 65 6e 63 72 79 70 74 65 64 20 64 61 dds encrypted da
1ad0: 74 61 20 74 6f 20 62 75 66 66 65 72 20 6f 72 20 ta to buffer or
1ae0: 73 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 65 sets result to e
1af0: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a rror message. *.
1b00: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
1b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1b40: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
1b50: 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 54 63 cryptFinalize(Tc
1b60: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
1b70: 2c 20 69 6e 74 20 74 79 70 65 2c 20 45 56 50 5f , int type, EVP_
1b80: 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 2c CIPHER_CTX *ctx,
1b90: 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a unsigned char *
1ba0: 6f 75 74 5f 62 75 66 2c 0a 09 69 6e 74 20 2a 6f out_buf,..int *o
1bb0: 75 74 5f 6c 65 6e 29 20 7b 0a 20 20 20 20 69 6e ut_len) {. in
1bc0: 74 20 72 65 73 3b 0a 0a 20 20 20 20 64 70 72 69 t res;.. dpri
1bd0: 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a ntf("Called");..
1be0: 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 /* Finalize
1bf0: 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 data */. if (
1c00: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
1c10: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
1c20: 56 50 5f 45 6e 63 72 79 70 74 46 69 6e 61 6c 5f VP_EncryptFinal_
1c30: 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c ex(ctx, out_buf,
1c40: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d out_len);. }
1c50: 20 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 else {..res = E
1c60: 56 50 5f 44 65 63 72 79 70 74 46 69 6e 61 6c 5f VP_DecryptFinal_
1c70: 65 78 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c ex(ctx, out_buf,
1c80: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d out_len);. }
1c90: 0a 0a 20 20 20 20 69 66 20 28 72 65 73 29 20 7b .. if (res) {
1ca0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b ..return TCL_OK;
1cb0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 . } else {..T
1cc0: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1cd0: 69 6e 74 65 72 70 2c 20 22 46 69 6e 61 6c 69 7a interp, "Finaliz
1ce0: 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 47 45 54 e failed: ", GET
1cf0: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 2c 20 28 _ERR_REASON(), (
1d00: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
1d10: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
1d20: 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a 2a 2a 2a ;. }.}../****
1d30: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d40: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d50: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1d60: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
1d70: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
1d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
1dc0: 20 45 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 EncryptBlockMod
1dd0: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 eProc --. *. *.T
1de0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
1df0: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
1e00: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 0a eneric IO level.
1e10: 20 2a 09 74 6f 20 73 65 74 20 62 6c 6f 63 6b 69 *.to set blocki
1e20: 6e 67 20 61 6e 64 20 6e 6f 6e 62 6c 6f 63 6b 69 ng and nonblocki
1e30: 6e 67 20 6d 6f 64 65 73 2e 0a 20 2a 0a 20 2a 20 ng modes.. *. *
1e40: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 Returns:. *.0 if
1e50: 20 73 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 successful or P
1e60: 4f 53 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 OSIX error code
1e70: 69 66 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a if failed.. *. *
1e80: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
1e90: 2a 09 53 65 74 73 20 74 68 65 20 64 65 76 69 63 *.Sets the devic
1ea0: 65 20 69 6e 74 6f 20 62 6c 6f 63 6b 69 6e 67 20 e into blocking
1eb0: 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d or nonblocking m
1ec0: 6f 64 65 2e 0a 20 2a 09 43 61 6e 20 63 61 6c 6c ode.. *.Can call
1ed0: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 Tcl_SetChannelE
1ee0: 72 72 6f 72 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d rror.. *. *-----
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1f30: 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e */.static int En
1f40: 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 72 cryptBlockModePr
1f50: 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c oc(ClientData cl
1f60: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 6f ientData, int mo
1f70: 64 65 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 70 de) {. Encryp
1f80: 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 tState *statePtr
1f90: 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 65 = (EncryptState
1fa0: 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a *) clientData;.
1fb0: 0a 20 20 20 20 69 66 20 28 6d 6f 64 65 20 3d 3d . if (mode ==
1fc0: 20 54 43 4c 5f 4d 4f 44 45 5f 4e 4f 4e 42 4c 4f TCL_MODE_NONBLO
1fd0: 43 4b 49 4e 47 29 20 7b 0a 09 73 74 61 74 65 50 CKING) {..stateP
1fe0: 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 54 4c 53 tr->flags |= TLS
1ff0: 5f 54 43 4c 5f 41 53 59 4e 43 3b 0a 20 20 20 20 _TCL_ASYNC;.
2000: 7d 20 65 6c 73 65 20 7b 0a 09 73 74 61 74 65 50 } else {..stateP
2010: 74 72 2d 3e 66 6c 61 67 73 20 26 3d 20 7e 28 54 tr->flags &= ~(T
2020: 4c 53 5f 54 43 4c 5f 41 53 59 4e 43 29 3b 0a 20 LS_TCL_ASYNC);.
2030: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
2040: 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 0;.}../*. *-----
2050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
2090: 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6c 6f 73 *. * EncryptClos
20a0: 65 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 54 eProc --. *. *.T
20b0: 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 his function is
20c0: 69 6e 76 6f 6b 65 64 20 62 79 20 74 68 65 20 67 invoked by the g
20d0: 65 6e 65 72 69 63 20 49 4f 20 6c 65 76 65 6c 20 eneric IO level
20e0: 74 6f 20 70 65 72 66 6f 72 6d 0a 20 2a 09 63 68 to perform. *.ch
20f0: 61 6e 6e 65 6c 2d 74 79 70 65 20 73 70 65 63 69 annel-type speci
2100: 66 69 63 20 63 6c 65 61 6e 75 70 20 77 68 65 6e fic cleanup when
2110: 20 74 68 65 20 63 68 61 6e 6e 65 6c 20 69 73 20 the channel is
2120: 63 6c 6f 73 65 64 2e 20 41 6c 6c 0a 20 2a 09 71 closed. All. *.q
2130: 75 65 75 65 64 20 6f 75 74 70 75 74 20 69 73 20 ueued output is
2140: 66 6c 75 73 68 65 64 20 70 72 69 6f 72 20 74 6f flushed prior to
2150: 20 63 61 6c 6c 69 6e 67 20 74 68 69 73 20 66 75 calling this fu
2160: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 nction.. *. * Re
2170: 74 75 72 6e 73 3a 0a 20 2a 09 30 20 69 66 20 73 turns:. *.0 if s
2180: 75 63 63 65 73 73 66 75 6c 20 6f 72 20 50 4f 53 uccessful or POS
2190: 49 58 20 65 72 72 6f 72 20 63 6f 64 65 20 69 66 IX error code if
21a0: 20 66 61 69 6c 65 64 2e 0a 20 2a 0a 20 2a 20 53 failed.. *. * S
21b0: 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 ide effects:. *.
21c0: 44 65 6c 65 74 65 73 20 73 74 6f 72 65 64 20 73 Deletes stored s
21d0: 74 61 74 65 20 64 61 74 61 2e 0a 20 2a 0a 20 2a tate data.. *. *
21e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
21f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2220: 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 ---. */.int Encr
2230: 79 70 74 43 6c 6f 73 65 50 72 6f 63 28 43 6c 69 yptCloseProc(Cli
2240: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
2250: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
2260: 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 45 6e interp) {. En
2270: 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 cryptState *stat
2280: 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 ePtr = (EncryptS
2290: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
22a0: 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 43 61 6e 63 ta;.. /* Canc
22b0: 65 6c 20 61 63 74 69 76 65 20 74 69 6d 65 72 2c el active timer,
22c0: 20 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 if any */. i
22d0: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d f (statePtr->tim
22e0: 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 6d 65 72 er != (Tcl_Timer
22f0: 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 Token) NULL) {..
2300: 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d 65 72 48 Tcl_DeleteTimerH
2310: 61 6e 64 6c 65 72 28 73 74 61 74 65 50 74 72 2d andler(statePtr-
2320: 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 74 65 50 >timer);..stateP
2330: 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 54 63 6c tr->timer = (Tcl
2340: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
2350: 4c 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a L;. }.. /*
2360: 20 4f 75 74 70 75 74 20 72 65 6d 61 69 6e 69 6e Output remainin
2370: 67 20 64 61 74 61 2c 20 69 66 20 61 6e 79 20 2a g data, if any *
2380: 2f 0a 20 20 20 20 69 66 20 28 21 28 73 74 61 74 /. if (!(stat
2390: 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 20 43 48 ePtr->flags & CH
23a0: 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 54 63 6c 5f AN_EOF)) {..Tcl_
23b0: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d Channel parent =
23c0: 20 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 Tcl_GetStackedC
23d0: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
23e0: 3e 73 65 6c 66 29 3b 0a 09 69 6e 74 20 6f 75 74 >self);..int out
23f0: 5f 6c 65 6e 3b 0a 09 75 6e 73 69 67 6e 65 64 20 _len;..unsigned
2400: 63 68 61 72 20 6f 75 74 5f 62 75 66 5b 45 56 50 char out_buf[EVP
2410: 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 _MAX_BLOCK_LENGT
2420: 48 5d 3b 0a 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a H];.../* Finaliz
2430: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 e function */..i
2440: 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 f (EncryptFinali
2450: 7a 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 ze(interp, state
2460: 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 Ptr->type, state
2470: 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 Ptr->ctx, out_bu
2480: 66 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 f, &out_len) ==
2490: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 69 TCL_OK) {.. i
24a0: 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 20 f (out_len > 0)
24b0: 7b 0a 09 09 54 63 6c 5f 53 69 7a 65 20 6c 65 6e {...Tcl_Size len
24c0: 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 = Tcl_WriteRaw(
24d0: 70 61 72 65 6e 74 2c 20 28 63 6f 6e 73 74 20 63 parent, (const c
24e0: 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 har *) out_buf,
24f0: 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c (Tcl_Size) out_l
2500: 65 6e 29 3b 0a 09 09 69 66 20 28 6c 65 6e 20 3c en);...if (len <
2510: 20 30 29 20 7b 0a 09 09 20 20 20 20 72 65 74 75 0) {... retu
2520: 72 6e 20 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 rn Tcl_GetErrno(
2530: 29 3b 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d );...}.. }..}
2540: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 2f 2a 20 else {.. /*
2550: 45 72 72 6f 72 20 2a 2f 0a 09 7d 0a 0a 09 73 74 Error */..}...st
2560: 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d atePtr->flags |=
2570: 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d CHAN_EOF;. }
2580: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 .. /* Clean-u
2590: 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 p */. Encrypt
25a0: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
25b0: 74 72 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 tr);. return
25c0: 30 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 20 53 61 6d 65 0;.}../*. * Same
25d0: 20 61 73 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 as EncryptClose
25e0: 50 72 6f 63 20 62 75 74 20 77 69 74 68 20 69 6e Proc but with in
25f0: 64 69 76 69 64 75 61 6c 20 72 65 61 64 20 61 6e dividual read an
2600: 64 20 77 72 69 74 65 20 63 6c 6f 73 65 20 63 6f d write close co
2610: 6e 74 72 6f 6c 0a 20 2a 2f 0a 73 74 61 74 69 63 ntrol. */.static
2620: 20 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 int EncryptClos
2630: 65 32 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 e2Proc(ClientDat
2640: 61 20 69 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 a instanceData,
2650: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
2660: 72 70 2c 20 69 6e 74 20 66 6c 61 67 73 29 20 7b rp, int flags) {
2670: 0a 20 20 20 20 69 66 20 28 28 66 6c 61 67 73 20 . if ((flags
2680: 26 20 28 54 43 4c 5f 43 4c 4f 53 45 5f 52 45 41 & (TCL_CLOSE_REA
2690: 44 20 7c 20 54 43 4c 5f 43 4c 4f 53 45 5f 57 52 D | TCL_CLOSE_WR
26a0: 49 54 45 29 29 20 3d 3d 20 30 29 20 7b 0a 09 72 ITE)) == 0) {..r
26b0: 65 74 75 72 6e 20 45 6e 63 72 79 70 74 43 6c 6f eturn EncryptClo
26c0: 73 65 50 72 6f 63 28 69 6e 73 74 61 6e 63 65 44 seProc(instanceD
26d0: 61 74 61 2c 20 69 6e 74 65 72 70 29 3b 0a 20 20 ata, interp);.
26e0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 45 }. return E
26f0: 49 4e 56 41 4c 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d INVAL;.}../*. *-
2700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2740: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
2750: 79 70 74 49 6e 70 75 74 50 72 6f 63 20 2d 2d 0a yptInputProc --.
2760: 20 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 *. *.Called by
2770: 74 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 the generic IO s
2780: 79 73 74 65 6d 20 74 6f 20 72 65 61 64 20 64 61 ystem to read da
2790: 74 61 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 ta from transfor
27a0: 6d 20 61 6e 64 0a 20 2a 09 70 6c 61 63 65 20 69 m and. *.place i
27b0: 6e 20 62 75 66 2e 20 54 72 61 6e 73 66 6f 72 6d n buf. Transform
27c0: 20 67 65 74 73 20 64 61 74 61 20 66 72 6f 6d 20 gets data from
27d0: 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 the underlying c
27e0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
27f0: 74 75 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 turns:. *.Total
2800: 62 79 74 65 73 20 72 65 61 64 20 6f 72 20 2d 31 bytes read or -1
2810: 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 20 61 6c for an error al
2820: 6f 6e 67 20 77 69 74 68 20 61 20 50 4f 53 49 58 ong with a POSIX
2830: 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 65 20 69 error. *.code i
2840: 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2e 20 n errorCodePtr.
2850: 55 73 65 20 45 41 47 41 49 4e 20 66 6f 72 20 6e Use EAGAIN for n
2860: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e onblocking and n
2870: 6f 20 64 61 74 61 2e 0a 20 2a 0a 20 2a 20 53 69 o data.. *. * Si
2880: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 de effects:. *.R
2890: 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 74 72 ead data from tr
28a0: 61 6e 73 66 6f 72 6d 20 61 6e 64 20 77 72 69 74 ansform and writ
28b0: 65 20 74 6f 20 62 75 66 0a 20 2a 0a 20 2a 2d 2d e to buf. *. *--
28c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2900: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
2910: 72 79 70 74 49 6e 70 75 74 50 72 6f 63 28 43 6c ryptInputProc(Cl
2920: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
2930: 61 74 61 2c 20 63 68 61 72 20 2a 62 75 66 2c 20 ata, char *buf,
2940: 69 6e 74 20 74 6f 52 65 61 64 2c 20 69 6e 74 20 int toRead, int
2950: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b *errorCodePtr) {
2960: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
2970: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
2980: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
2990: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 lientData;. T
29a0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e cl_Channel paren
29b0: 74 3b 0a 20 20 20 20 69 6e 74 20 6f 75 74 5f 6c t;. int out_l
29c0: 65 6e 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 en;. Tcl_Size
29d0: 20 72 65 61 64 3b 0a 20 20 20 20 2a 65 72 72 6f read;. *erro
29e0: 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 rCodePtr = 0;.
29f0: 20 20 63 68 61 72 20 2a 69 6e 5f 62 75 66 3b 0a char *in_buf;.
2a00: 20 20 20 20 0a 20 20 20 20 2f 2a 20 41 62 6f 72 . /* Abor
2a10: 74 20 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f 20 t if nothing to
2a20: 70 72 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 69 process */. i
2a30: 66 20 28 74 6f 52 65 61 64 20 3c 3d 20 30 20 7c f (toRead <= 0 |
2a40: 7c 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 | statePtr->self
2a50: 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c == (Tcl_Channel
2a60: 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 ) NULL) {..retur
2a70: 6e 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 n 0;. }..
2a80: 2f 2a 20 47 65 74 20 62 79 74 65 73 20 66 72 6f /* Get bytes fro
2a90: 6d 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 m underlying cha
2aa0: 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 6e 5f 62 nnel */. in_b
2ab0: 75 66 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 28 uf = Tcl_Alloc((
2ac0: 54 63 6c 5f 53 69 7a 65 29 20 74 6f 52 65 61 64 Tcl_Size) toRead
2ad0: 29 3b 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 );. parent =
2ae0: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
2af0: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
2b00: 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 61 64 20 self);. read
2b10: 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 70 61 = Tcl_ReadRaw(pa
2b20: 72 65 6e 74 2c 20 69 6e 5f 62 75 66 2c 20 28 54 rent, in_buf, (T
2b30: 63 6c 5f 53 69 7a 65 29 20 74 6f 52 65 61 64 29 cl_Size) toRead)
2b40: 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 ;.. /* Update
2b50: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
2b60: 20 69 66 20 28 72 65 61 64 20 3e 20 30 29 20 7b if (read > 0) {
2b70: 0a 09 2f 2a 20 48 61 76 65 20 64 61 74 61 20 2d ../* Have data -
2b80: 20 55 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e Update function
2b90: 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 */..if (Encrypt
2ba0: 55 70 64 61 74 65 28 73 74 61 74 65 50 74 72 2d Update(statePtr-
2bb0: 3e 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 >interp, statePt
2bc0: 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 r->type, statePt
2bd0: 72 2d 3e 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 r->ctx, (unsigne
2be0: 64 20 63 68 61 72 20 2a 29 20 62 75 66 2c 20 26 d char *) buf, &
2bf0: 6f 75 74 5f 6c 65 6e 2c 20 28 75 6e 73 69 67 6e out_len, (unsign
2c00: 65 64 20 63 68 61 72 20 2a 29 20 69 6e 5f 62 75 ed char *) in_bu
2c10: 66 2c 20 72 65 61 64 29 20 3d 3d 20 54 43 4c 5f f, read) == TCL_
2c20: 4f 4b 29 20 7b 0a 09 20 20 20 20 2f 2a 20 49 66 OK) {.. /* If
2c30: 20 68 61 76 65 20 64 61 74 61 2c 20 70 75 74 20 have data, put
2c40: 69 6e 20 62 75 66 2c 20 6f 74 68 65 72 77 69 73 in buf, otherwis
2c50: 65 20 74 65 6c 6c 20 54 43 4c 20 74 6f 20 74 72 e tell TCL to tr
2c60: 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 20 y again */..
2c70: 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 29 if (out_len > 0)
2c80: 20 7b 0a 09 09 72 65 61 64 20 3d 20 28 54 63 6c {...read = (Tcl
2c90: 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 3b 0a _Size) out_len;.
2ca0: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
2cb0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
2cc0: 45 41 47 41 49 4e 3b 0a 09 09 72 65 61 64 20 3d EAGAIN;...read =
2cd0: 20 2d 31 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 -1;.. }..} e
2ce0: 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 53 lse {.. Tcl_S
2cf0: 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 etChannelError(s
2d00: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 tatePtr->self, T
2d10: 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 cl_ObjPrintf("Up
2d20: 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 date failed: %s"
2d30: 2c 20 47 45 54 5f 45 52 52 5f 52 45 41 53 4f 4e , GET_ERR_REASON
2d40: 28 29 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f ()));.. *erro
2d50: 72 43 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 rCodePtr = EINVA
2d60: 4c 3b 0a 09 20 20 20 20 72 65 61 64 20 3d 20 30 L;.. read = 0
2d70: 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 ;..}.. } else
2d80: 20 69 66 20 28 72 65 61 64 20 3c 20 30 29 20 7b if (read < 0) {
2d90: 0a 09 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a 09 2a ../* Error */..*
2da0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 errorCodePtr = T
2db0: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 0a cl_GetErrno();..
2dc0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 21 } else if (!
2dd0: 28 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 (statePtr->flags
2de0: 20 26 20 43 48 41 4e 5f 45 4f 46 29 29 20 7b 0a & CHAN_EOF)) {.
2df0: 09 2f 2a 20 45 4f 46 20 2d 20 46 69 6e 61 6c 69 ./* EOF - Finali
2e00: 7a 65 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 ze function and
2e10: 70 75 74 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e put any remainin
2e20: 67 20 64 61 74 61 20 69 6e 20 62 75 66 20 2a 2f g data in buf */
2e30: 0a 09 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e ..if (EncryptFin
2e40: 61 6c 69 7a 65 28 73 74 61 74 65 50 74 72 2d 3e alize(statePtr->
2e50: 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 interp, statePtr
2e60: 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 ->type, statePtr
2e70: 2d 3e 63 74 78 2c 20 28 75 6e 73 69 67 6e 65 64 ->ctx, (unsigned
2e80: 20 63 68 61 72 20 2a 29 20 62 75 66 2c 20 26 6f char *) buf, &o
2e90: 75 74 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f ut_len) == TCL_O
2ea0: 4b 29 20 7b 0a 09 20 20 20 20 72 65 61 64 20 3d K) {.. read =
2eb0: 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f (Tcl_Size) out_
2ec0: 6c 65 6e 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 len;..} else {..
2ed0: 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e Tcl_SetChann
2ee0: 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 elError(statePtr
2ef0: 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 ->self, Tcl_ObjP
2f00: 72 69 6e 74 66 28 22 46 69 6e 61 6c 69 7a 65 20 rintf("Finalize
2f10: 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 47 45 54 failed: %s", GET
2f20: 5f 45 52 52 5f 52 45 41 53 4f 4e 28 29 29 29 3b _ERR_REASON()));
2f30: 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 .. *errorCode
2f40: 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b 0a 09 20 Ptr = EINVAL;..
2f50: 20 20 20 72 65 61 64 20 3d 20 30 3b 0a 09 7d 0a read = 0;..}.
2f60: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2f70: 73 20 7c 3d 20 43 48 41 4e 5f 45 4f 46 3b 0a 20 s |= CHAN_EOF;.
2f80: 20 20 20 7d 0a 20 20 20 20 54 63 6c 5f 46 72 65 }. Tcl_Fre
2f90: 65 28 69 6e 5f 62 75 66 29 3b 0a 20 20 20 20 72 e(in_buf);. r
2fa0: 65 74 75 72 6e 20 28 69 6e 74 29 20 72 65 61 64 eturn (int) read
2fb0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
2fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3000: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 4f 75 . *. * EncryptOu
3010: 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 tputProc --. *.
3020: 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 *.Called by the
3030: 67 65 6e 65 72 69 63 20 49 4f 20 73 79 73 74 65 generic IO syste
3040: 6d 20 74 6f 20 77 72 69 74 65 20 64 61 74 61 20 m to write data
3050: 69 6e 20 62 75 66 20 74 6f 20 74 72 61 6e 73 66 in buf to transf
3060: 6f 72 6d 2e 0a 20 2a 09 54 68 65 20 74 72 61 6e orm.. *.The tran
3070: 73 66 6f 72 6d 20 77 72 69 74 65 73 20 74 68 65 sform writes the
3080: 20 72 65 73 75 6c 74 20 74 6f 20 74 68 65 20 75 result to the u
3090: 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 nderlying channe
30a0: 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 l.. *. * Returns
30b0: 3a 0a 20 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 :. *.Total bytes
30c0: 20 77 72 69 74 74 65 6e 20 6f 72 20 2d 31 20 66 written or -1 f
30d0: 6f 72 20 61 6e 20 65 72 72 6f 72 20 61 6c 6f 6e or an error alon
30e0: 67 20 77 69 74 68 20 61 20 50 4f 53 49 58 20 65 g with a POSIX e
30f0: 72 72 6f 72 0a 20 2a 09 63 6f 64 65 20 69 6e 20 rror. *.code in
3100: 65 72 72 6f 72 43 6f 64 65 50 74 72 2e 20 55 73 errorCodePtr. Us
3110: 65 20 45 41 47 41 49 4e 20 66 6f 72 20 6e 6f 6e e EAGAIN for non
3120: 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 63 61 6e blocking and can
3130: 27 74 20 77 72 69 74 65 20 64 61 74 61 2e 0a 20 't write data..
3140: 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 *. * Side effect
3150: 73 3a 0a 20 2a 09 47 65 74 20 64 61 74 61 20 66 s:. *.Get data f
3160: 72 6f 6d 20 62 75 66 20 61 6e 64 20 75 70 64 61 rom buf and upda
3170: 74 65 20 65 6e 63 72 79 70 74 69 6f 6e 0a 20 2a te encryption. *
3180: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
31c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 20 69 ---------. */. i
31d0: 6e 74 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 nt EncryptOutput
31e0: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
31f0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 6f 6e 73 clientData, cons
3200: 74 20 63 68 61 72 20 2a 62 75 66 2c 20 69 6e 74 t char *buf, int
3210: 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 20 2a 65 toWrite, int *e
3220: 72 72 6f 72 43 6f 64 65 50 74 72 29 20 7b 0a 20 rrorCodePtr) {.
3230: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
3240: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
3250: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 ryptState *) cli
3260: 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 69 6e 74 entData;. int
3270: 20 77 72 69 74 65 20 3d 20 30 2c 20 6f 75 74 5f write = 0, out_
3280: 6c 65 6e 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 len;. *errorC
3290: 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 odePtr = 0;.
32a0: 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 3b 0a 0a char *out_buf;..
32b0: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
32c0: 6e 6f 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 65 nothing to proce
32d0: 73 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f ss */. if (to
32e0: 57 72 69 74 65 20 3c 3d 20 30 20 7c 7c 20 73 74 Write <= 0 || st
32f0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 atePtr->self ==
3300: 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 (Tcl_Channel) NU
3310: 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b LL) {..return 0;
3320: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6f 75 74 5f . }.. out_
3330: 62 75 66 20 3d 20 54 63 6c 5f 41 6c 6c 6f 63 28 buf = Tcl_Alloc(
3340: 28 54 63 6c 5f 53 69 7a 65 29 20 74 6f 57 72 69 (Tcl_Size) toWri
3350: 74 65 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b te+EVP_MAX_BLOCK
3360: 5f 4c 45 4e 47 54 48 29 3b 0a 0a 20 20 20 20 2f _LENGTH);.. /
3370: 2a 20 55 70 64 61 74 65 20 66 75 6e 63 74 69 6f * Update functio
3380: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 6e 63 n */. if (Enc
3390: 72 79 70 74 55 70 64 61 74 65 28 73 74 61 74 65 ryptUpdate(state
33a0: 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 61 Ptr->interp, sta
33b0: 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 tePtr->type, sta
33c0: 74 65 50 74 72 2d 3e 63 74 78 2c 20 28 75 6e 73 tePtr->ctx, (uns
33d0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6f 75 igned char *) ou
33e0: 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c t_buf, &out_len,
33f0: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 (unsigned char
3400: 2a 29 20 62 75 66 2c 20 28 54 63 6c 5f 53 69 7a *) buf, (Tcl_Siz
3410: 65 29 20 74 6f 57 72 69 74 65 29 20 3d 3d 20 54 e) toWrite) == T
3420: 43 4c 5f 4f 4b 29 20 7b 0a 09 2f 2a 20 49 66 20 CL_OK) {../* If
3430: 68 61 76 65 20 64 61 74 61 2c 20 6f 75 74 70 75 have data, outpu
3440: 74 20 69 74 2c 20 6f 74 68 65 72 77 69 73 65 20 t it, otherwise
3450: 74 65 6c 6c 20 54 43 4c 20 74 6f 20 74 72 79 20 tell TCL to try
3460: 61 67 61 69 6e 20 2a 2f 0a 09 69 66 20 28 6f 75 again */..if (ou
3470: 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 20 20 t_len > 0) {..
3480: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 Tcl_Channel pa
3490: 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 rent = Tcl_GetSt
34a0: 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 61 ackedChannel(sta
34b0: 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 09 20 tePtr->self);..
34c0: 20 20 20 77 72 69 74 65 20 3d 20 28 69 6e 74 29 write = (int)
34d0: 20 54 63 6c 5f 57 72 69 74 65 52 61 77 28 70 61 Tcl_WriteRaw(pa
34e0: 72 65 6e 74 2c 20 28 63 6f 6e 73 74 20 63 68 61 rent, (const cha
34f0: 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c 20 28 54 r *) out_buf, (T
3500: 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e cl_Size) out_len
3510: 29 3b 0a 09 20 20 20 20 77 72 69 74 65 20 3d 20 );.. write =
3520: 74 6f 57 72 69 74 65 3b 0a 09 7d 20 65 6c 73 65 toWrite;..} else
3530: 20 7b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 6f {.. *errorCo
3540: 64 65 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a dePtr = EAGAIN;.
3550: 09 20 20 20 20 77 72 69 74 65 20 3d 20 2d 31 3b . write = -1;
3560: 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 ..}.. } else
3570: 7b 0a 09 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 {..Tcl_SetChanne
3580: 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d lError(statePtr-
3590: 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 >self, Tcl_ObjPr
35a0: 69 6e 74 66 28 22 55 70 64 61 74 65 20 66 61 69 intf("Update fai
35b0: 6c 65 64 3a 20 25 73 22 2c 20 47 45 54 5f 45 52 led: %s", GET_ER
35c0: 52 5f 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 2a R_REASON()));..*
35d0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
35e0: 49 4e 56 41 4c 3b 0a 09 77 72 69 74 65 20 3d 20 INVAL;..write =
35f0: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 0;. }. Tcl
3600: 5f 46 72 65 65 28 6f 75 74 5f 62 75 66 29 3b 0a _Free(out_buf);.
3610: 20 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 65 return write
3620: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
3630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3670: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 53 65 . *. * EncryptSe
3680: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 tOptionProc --.
3690: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
36a0: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 he generic IO sy
36b0: 73 74 65 6d 20 74 6f 20 73 65 74 20 63 68 61 6e stem to set chan
36c0: 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 20 nel option name
36d0: 74 6f 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 to value.. *. *
36e0: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
36f0: 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c OK if successful
3700: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 or TCL_ERROR if
3710: 20 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 failed along wi
3720: 74 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d th an error. *.m
3730: 65 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 essage in interp
3740: 20 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e and Tcl_SetErrn
3750: 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 o.. *. * Side ef
3760: 66 65 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 65 fects:. *.Update
3770: 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e s channel option
3780: 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 to new value..
3790: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
37a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
37e0: 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 tatic int Encryp
37f0: 74 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 tSetOptionProc(C
3800: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
3810: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
3820: 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 *interp, const
3830: 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 char *optionName
3840: 2c 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f ,..const char *o
3850: 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 ptionValue) {.
3860: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a EncryptState *
3870: 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 statePtr = (Encr
3880: 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 yptState *) clie
3890: 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ntData;. Tcl_
38a0: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a Channel parent;.
38b0: 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 Tcl_DriverSe
38c0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 tOptionProc *set
38d0: 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 OptionProc;..
38e0: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 /* Abort if no
38f0: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 channel */. i
3900: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c f (statePtr->sel
3910: 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 f == (Tcl_Channe
3920: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
3930: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3940: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c 65 }.. /* Dele
3950: 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f 77 gate options dow
3960: 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 70 nstream */. p
3970: 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 arent = Tcl_GetS
3980: 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 tackedChannel(st
3990: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 atePtr->self);.
39a0: 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 setOptionProc
39b0: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 65 = Tcl_ChannelSe
39c0: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f tOptionProc(Tcl_
39d0: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 GetChannelType(p
39e0: 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 arent));. if
39f0: 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 (setOptionProc !
3a00: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
3a10: 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f n (*setOptionPro
3a20: 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 c)(Tcl_GetChanne
3a30: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 lInstanceData(pa
3a40: 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f rent), interp, o
3a50: 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f ptionName, optio
3a60: 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 nValue);. } e
3a70: 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 lse {..Tcl_SetEr
3a80: 72 6e 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 72 65 rno(EINVAL);..re
3a90: 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e turn Tcl_BadChan
3aa0: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
3ab0: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 , optionName, NU
3ac0: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a LL);. }.}../*
3ad0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
3ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
3b20: 45 6e 63 72 79 70 74 47 65 74 4f 70 74 69 6f 6e EncryptGetOption
3b30: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
3b40: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
3b50: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
3b60: 20 67 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 74 get channel opt
3b70: 69 6f 6e 20 6e 61 6d 65 27 73 20 76 61 6c 75 65 ion name's value
3b80: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
3b90: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 . *.TCL_OK if su
3ba0: 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f ccessful or TCL_
3bb0: 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 20 ERROR if failed
3bc0: 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e 20 65 72 along with an er
3bd0: 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 65 20 69 ror. *.message i
3be0: 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 54 63 6c n interp and Tcl
3bf0: 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a 0a 20 2a _SetErrno.. *. *
3c00: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3c10: 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f *.Sets result to
3c20: 20 6f 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 0a option's value.
3c30: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3c80: 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 static int Encry
3c90: 70 74 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 ptGetOptionProc(
3ca0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3cb0: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
3cc0: 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 p *interp, const
3cd0: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
3ce0: 65 2c 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 20 e,..Tcl_DString
3cf0: 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a *optionValue) {.
3d00: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
3d10: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e *statePtr = (En
3d20: 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c cryptState *) cl
3d30: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 ientData;. Tc
3d40: 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 l_Channel parent
3d50: 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 ;. Tcl_Driver
3d60: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 GetOptionProc *g
3d70: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 etOptionProc;..
3d80: 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e /* Abort if n
3d90: 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 o channel */.
3da0: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
3db0: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
3dc0: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
3dd0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3de0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 }.. /* De
3df0: 6c 65 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 legate options d
3e00: 6f 77 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 ownstream */.
3e10: 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 parent = Tcl_Ge
3e20: 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 tStackedChannel(
3e30: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
3e40: 0a 20 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 . getOptionPr
3e50: 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c oc = Tcl_Channel
3e60: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 GetOptionProc(Tc
3e70: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
3e80: 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 (parent));. i
3e90: 66 20 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 f (getOptionProc
3ea0: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 != NULL) {..ret
3eb0: 75 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 urn (*getOptionP
3ec0: 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e roc)(Tcl_GetChan
3ed0: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
3ee0: 70 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c parent), interp,
3ef0: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 optionName, opt
3f00: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d ionValue);. }
3f10: 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e else if (option
3f20: 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 Name == (char*)
3f30: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 52 65 71 75 NULL) {../* Requ
3f40: 65 73 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 est is query for
3f50: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 all options, th
3f60: 69 73 20 69 73 20 6f 6b 2e 20 2a 2f 0a 09 72 65 is is ok. */..re
3f70: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
3f80: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 } else {..Tcl_S
3f90: 65 74 45 72 72 6e 6f 28 45 49 4e 56 41 4c 29 3b etErrno(EINVAL);
3fa0: 0a 09 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 ..return Tcl_Bad
3fb0: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
3fc0: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
3fd0: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d , NULL);. }.}
3fe0: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
3ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4030: 0a 20 2a 20 45 6e 63 72 79 70 74 54 69 6d 65 72 . * EncryptTimer
4040: 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a Handler --. *. *
4050: 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e .Called by the n
4060: 6f 74 69 66 69 65 72 20 76 69 61 20 74 69 6d 65 otifier via time
4070: 72 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 20 70 r to flush out p
4080: 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 64 61 74 ending input dat
4090: 61 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 a.. *. * Returns
40a0: 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a :. *.Nothing. *.
40b0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
40c0: 0a 20 2a 09 4d 61 79 20 63 61 6c 6c 20 54 63 6c . *.May call Tcl
40d0: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 0a 20 _NotifyChannel.
40e0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
40f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
4130: 74 61 74 69 63 20 76 6f 69 64 20 45 6e 63 72 79 tatic void Encry
4140: 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 43 ptTimerHandler(C
4150: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
4160: 44 61 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 72 Data) {. Encr
4170: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
4180: 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 tr = (EncryptSta
4190: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
41a0: 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 ;.. /* Abort
41b0: 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f if no channel */
41c0: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
41d0: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
41e0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
41f0: 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a ..return;. }.
4200: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 69 . /* Clear ti
4210: 6d 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 20 mer token */.
4220: 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 statePtr->timer
4230: 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b = (Tcl_TimerTok
4240: 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f en) NULL;.. /
4250: 2a 20 46 69 72 65 20 65 76 65 6e 74 20 69 66 20 * Fire event if
4260: 74 68 65 72 65 20 69 73 20 70 65 6e 64 69 6e 67 there is pending
4270: 20 64 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 65 data, skip othe
4280: 72 77 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 20 rwise */. if
4290: 28 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 ((statePtr->watc
42a0: 68 4d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 hMask & TCL_READ
42b0: 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e ABLE) && (Tcl_In
42c0: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
42d0: 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 ePtr->self) > 0)
42e0: 29 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 43 ) {..Tcl_NotifyC
42f0: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
4300: 3e 73 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 41 >self, TCL_READA
4310: 42 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f BLE);. }.}../
4320: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
4370: 20 45 6e 63 72 79 70 74 57 61 74 63 68 50 72 6f EncryptWatchPro
4380: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 c --. *. *.Initi
4390: 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 alize the notifi
43a0: 65 72 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 er to watch for
43b0: 65 76 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 73 events from this
43c0: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
43d0: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 Returns:. *.Noth
43e0: 69 6e 67 20 28 63 61 6e 27 74 20 72 65 74 75 72 ing (can't retur
43f0: 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 n error messages
4400: 29 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 ). *. * Side eff
4410: 65 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 75 ects:. *.Configu
4420: 72 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 66 re notifier so f
4430: 75 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 uture events on
4440: 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c 6c the channel will
4450: 20 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e be seen by Tcl.
4460: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
4470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
44b0: 0a 76 6f 69 64 20 45 6e 63 72 79 70 74 57 61 74 .void EncryptWat
44c0: 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 chProc(ClientDat
44d0: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e a clientData, in
44e0: 74 20 6d 61 73 6b 29 20 7b 0a 20 20 20 20 45 6e t mask) {. En
44f0: 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 cryptState *stat
4500: 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 ePtr = (EncryptS
4510: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
4520: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ta;. Tcl_Chan
4530: 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 nel parent;.
4540: 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 68 50 Tcl_DriverWatchP
4550: 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a roc *watchProc;.
4560: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
4570: 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 no channel */.
4580: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
4590: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 >self == (Tcl_Ch
45a0: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
45b0: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 return;. }..
45c0: 20 20 20 2f 2a 20 53 74 6f 72 65 20 4f 52 2d 65 /* Store OR-e
45d0: 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 d combination of
45e0: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 TCL_READABLE, T
45f0: 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 20 CL_WRITABLE and
4600: 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 20 2a 2f TCL_EXCEPTION */
4610: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 . statePtr->w
4620: 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b atchMask = mask;
4630: 0a 0a 20 20 20 20 2f 2a 20 50 72 6f 70 61 67 61 .. /* Propaga
4640: 74 65 20 6d 61 73 6b 20 69 6e 66 6f 20 74 6f 20 te mask info to
4650: 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a parent channel *
4660: 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 /. parent = T
4670: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
4680: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
4690: 65 6c 66 29 3b 0a 20 20 20 20 77 61 74 63 68 50 elf);. watchP
46a0: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
46b0: 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 lWatchProc(Tcl_G
46c0: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 etChannelType(pa
46d0: 72 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 74 63 rent));. watc
46e0: 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 hProc(Tcl_GetCha
46f0: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
4700: 28 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b (parent), mask);
4710: 0a 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 .. /* Remove
4720: 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 20 2a 2f pending timer */
4730: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4740: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
4750: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
4760: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
4770: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
4780: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
4790: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
47a0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
47b0: 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a n) NULL;. }..
47c0: 20 20 20 20 2f 2a 20 49 66 20 74 68 65 72 65 20 /* If there
47d0: 69 73 20 64 61 74 61 20 70 65 6e 64 69 6e 67 2c is data pending,
47e0: 20 73 65 74 20 6e 65 77 20 74 69 6d 65 72 20 74 set new timer t
47f0: 6f 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 o call Tcl_Notif
4800: 79 43 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 yChannel */.
4810: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
4820: 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 54 63 READABLE) && (Tc
4830: 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 l_InputBuffered(
4840: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 statePtr->self)
4850: 3e 20 30 29 29 20 7b 0a 09 73 74 61 74 65 50 74 > 0)) {..statePt
4860: 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 r->timer = Tcl_C
4870: 72 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 reateTimerHandle
4880: 72 28 52 45 41 44 5f 44 45 4c 41 59 2c 20 45 6e r(READ_DELAY, En
4890: 63 72 79 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 cryptTimerHandle
48a0: 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 r, (ClientData)
48b0: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d statePtr);. }
48c0: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
48d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
48f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4910: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 47 65 74 *. * EncryptGet
4920: 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a HandleProc --. *
4930: 0a 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 . *.Called from
4940: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 Tcl_GetChannelHa
4950: 6e 64 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 ndle to retrieve
4960: 20 4f 53 20 73 70 65 63 69 66 69 63 20 66 69 6c OS specific fil
4970: 65 20 68 61 6e 64 6c 65 0a 20 2a 09 66 72 6f 6d e handle. *.from
4980: 20 69 6e 73 69 64 65 20 74 68 69 73 20 63 68 61 inside this cha
4990: 6e 6e 65 6c 2e 20 4e 6f 74 20 75 73 65 64 20 66 nnel. Not used f
49a0: 6f 72 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f or transformatio
49b0: 6e 73 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ns?. *. * Return
49c0: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 66 6f 72 s:. *.TCL_OK for
49d0: 20 73 75 63 63 65 73 73 20 6f 72 20 54 43 4c 5f success or TCL_
49e0: 45 52 52 4f 52 20 66 6f 72 20 65 72 72 6f 72 20 ERROR for error
49f0: 6f 72 20 69 66 20 6e 6f 74 20 73 75 70 70 6f 72 or if not suppor
4a00: 74 65 64 2e 20 49 66 0a 20 2a 09 64 69 72 65 63 ted. If. *.direc
4a10: 74 69 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 44 tion is TCL_READ
4a20: 41 42 4c 45 2c 20 73 65 74 73 20 68 61 6e 64 6c ABLE, sets handl
4a30: 65 50 74 72 20 74 6f 20 74 68 65 20 68 61 6e 64 ePtr to the hand
4a40: 6c 65 20 75 73 65 64 20 66 6f 72 0a 20 2a 09 69 le used for. *.i
4a50: 6e 70 75 74 2c 20 6f 72 20 69 66 20 54 43 4c 5f nput, or if TCL_
4a60: 57 52 49 54 41 42 4c 45 20 73 65 74 73 20 74 6f WRITABLE sets to
4a70: 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 the handle used
4a80: 20 66 6f 72 20 6f 75 74 70 75 74 2e 0a 20 2a 0a for output.. *.
4a90: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
4aa0: 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d . *.None. *. *--
4ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4af0: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
4b00: 72 79 70 74 47 65 74 48 61 6e 64 6c 65 50 72 6f ryptGetHandlePro
4b10: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 c(ClientData cli
4b20: 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 64 69 72 entData, int dir
4b30: 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 ection, ClientDa
4b40: 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 20 7b ta *handlePtr) {
4b50: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
4b60: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
4b70: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
4b80: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 lientData;. T
4b90: 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e cl_Channel paren
4ba0: 74 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 t;.. /* Abort
4bb0: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a if no channel *
4bc0: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
4bd0: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
4be0: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
4bf0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
4c00: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
4c10: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
4c20: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
4c30: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
4c40: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 return Tcl_G
4c50: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 etChannelHandle(
4c60: 70 61 72 65 6e 74 2c 20 64 69 72 65 63 74 69 6f parent, directio
4c70: 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d n, handlePtr);.}
4c80: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
4c90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4ca0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4cc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4cd0: 0a 20 2a 20 45 6e 63 72 79 70 74 4e 6f 74 69 66 . * EncryptNotif
4ce0: 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 yProc --. *. *.C
4cf0: 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f 20 alled by Tcl to
4d00: 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 inform us of act
4d10: 69 76 69 74 79 20 6f 6e 20 74 68 65 20 75 6e 64 ivity on the und
4d20: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
4d30: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
4d40: 20 2a 09 55 6e 63 68 61 6e 67 65 64 20 69 6e 74 *.Unchanged int
4d50: 65 72 65 73 74 4d 61 73 6b 20 77 68 69 63 68 20 erestMask which
4d60: 69 73 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 is an OR-ed comb
4d70: 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 ination of TCL_R
4d80: 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f 57 EADABLE or TCL_W
4d90: 52 49 54 41 42 4c 45 0a 20 2a 0a 20 2a 20 53 69 RITABLE. *. * Si
4da0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
4db0: 61 6e 63 65 6c 73 20 61 6e 79 20 70 65 6e 64 69 ancels any pendi
4dc0: 6e 67 20 74 69 6d 65 72 2e 0a 20 2a 0a 20 2a 2d ng timer.. *. *-
4dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e10: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
4e20: 63 72 79 70 74 4e 6f 74 69 66 79 50 72 6f 63 28 cryptNotifyProc(
4e30: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
4e40: 74 44 61 74 61 2c 20 69 6e 74 20 69 6e 74 65 72 tData, int inter
4e50: 65 73 74 4d 61 73 6b 29 20 7b 0a 20 20 20 20 45 estMask) {. E
4e60: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 ncryptState *sta
4e70: 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 tePtr = (Encrypt
4e80: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
4e90: 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 ata;.. /* Ski
4ea0: 70 20 74 69 6d 65 72 20 65 76 65 6e 74 20 61 73 p timer event as
4eb0: 20 72 65 64 75 6e 64 61 6e 74 20 2a 2f 0a 20 20 redundant */.
4ec0: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
4ed0: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
4ee0: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
4ef0: 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d {..Tcl_DeleteTim
4f00: 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 erHandler(stateP
4f10: 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 tr->timer);..sta
4f20: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 tePtr->timer = (
4f30: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
4f40: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
4f50: 72 65 74 75 72 6e 20 69 6e 74 65 72 65 73 74 4d return interestM
4f60: 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 0a 20 2a ask;.}../*. *. *
4f70: 20 43 68 61 6e 6e 65 6c 20 74 79 70 65 20 73 74 Channel type st
4f80: 72 75 63 74 75 72 65 20 64 65 66 69 6e 69 74 69 ructure definiti
4f90: 6f 6e 20 66 6f 72 20 65 6e 63 72 79 70 74 69 6f on for encryptio
4fa0: 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e n transformation
4fb0: 73 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 s.. *. */.static
4fc0: 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e const Tcl_Chann
4fd0: 65 6c 54 79 70 65 20 65 6e 63 72 79 70 74 43 68 elType encryptCh
4fe0: 61 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 annelType = {.
4ff0: 20 20 22 65 6e 63 72 79 70 74 69 6f 6e 22 2c 09 "encryption",.
5000: 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a 2f ./* Type name */
5010: 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 4c . TCL_CHANNEL
5020: 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 76 _VERSION_5,./* v
5030: 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 5 channel */.
5040: 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 50 72 6f EncryptClosePro
5050: 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f c,../* Close pro
5060: 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 c */. Encrypt
5070: 49 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 InputProc,../* I
5080: 6e 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 nput proc */.
5090: 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 EncryptOutputPr
50a0: 6f 63 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 oc,../* Output p
50b0: 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c roc */. NULL,
50c0: 09 09 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 .../* Seek proc
50d0: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 53 65 */. EncryptSe
50e0: 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 tOptionProc,./*
50f0: 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 Set option proc
5100: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 65 */. EncryptGe
5110: 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 tOptionProc,./*
5120: 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 Get option proc
5130: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 57 61 */. EncryptWa
5140: 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 tchProc,../* Ini
5150: 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 tialize notifier
5160: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 */. EncryptG
5170: 65 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 2f 2a etHandleProc,./*
5180: 20 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 Get OS handles
5190: 6f 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a out of channel *
51a0: 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 43 6c 6f /. EncryptClo
51b0: 73 65 32 50 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f se2Proc,../* clo
51c0: 73 65 32 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 se2proc */. E
51d0: 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 ncryptBlockModeP
51e0: 72 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f 63 roc,./* Set bloc
51f0: 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 king/nonblocking
5200: 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 4c 4c mode*/. NULL
5210: 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 6f ,.../* Flush pro
5220: 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 c */. Encrypt
5230: 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 NotifyProc,../*
5240: 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e Handling of even
5250: 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20 2a ts bubbling up *
5260: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a /. NULL,.../*
5270: 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63 20 Wide seek proc
5280: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
5290: 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e 20 * Thread action
52a0: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a */. NULL.../*
52b0: 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a Truncate */.};.
52c0: 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*. *----------
52d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
52f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
5310: 20 2a 20 45 6e 63 72 79 70 74 43 68 61 6e 6e 65 * EncryptChanne
5320: 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 lHandler --. *.
5330: 2a 09 43 72 65 61 74 65 20 61 20 73 74 61 63 6b *.Create a stack
5340: 65 64 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 ed channel for a
5350: 20 6d 65 73 73 61 67 65 20 65 6e 63 72 79 70 74 message encrypt
5360: 69 6f 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 ion transformati
5370: 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e on.. *. * Return
5380: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
5390: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
53a0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
53b0: 09 41 64 64 73 20 74 72 61 6e 73 66 6f 72 6d 20 .Adds transform
53c0: 74 6f 20 63 68 61 6e 6e 65 6c 20 61 6e 64 20 73 to channel and s
53d0: 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 63 68 ets result to ch
53e0: 61 6e 6e 65 6c 20 69 64 20 6f 72 20 65 72 72 6f annel id or erro
53f0: 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a r message.. *. *
5400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5440: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
5450: 63 20 69 6e 74 20 45 6e 63 72 79 70 74 43 68 61 c int EncryptCha
5460: 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 54 63 6c 5f nnelHandler(Tcl_
5470: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
5480: 69 6e 74 20 74 79 70 65 2c 20 63 6f 6e 73 74 20 int type, const
5490: 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 2c 0a 09 char *channel,..
54a0: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
54b0: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 bj, Tcl_Obj *dig
54c0: 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 estObj, Tcl_Obj
54d0: 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a *keyObj, Tcl_Obj
54e0: 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 70 61 64 *ivObj, int pad
54f0: 64 69 6e 67 29 20 7b 0a 20 20 20 20 69 6e 74 20 ding) {. int
5500: 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 63 mode; /* OR-ed c
5510: 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 ombination of TC
5520: 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 54 L_READABLE and T
5530: 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a 2f 0a 20 CL_WRITABLE */.
5540: 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 Tcl_Channel c
5550: 68 61 6e 3b 0a 20 20 20 20 45 6e 63 72 79 70 74 han;. Encrypt
5560: 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 72 3b State *statePtr;
5570: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
5580: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
5590: 20 56 61 6c 69 64 61 74 65 20 61 72 67 73 20 2a Validate args *
55a0: 2f 0a 20 20 20 20 69 66 20 28 63 68 61 6e 6e 65 /. if (channe
55b0: 6c 20 3d 3d 20 28 63 6f 6e 73 74 20 63 68 61 72 l == (const char
55c0: 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c *) NULL) {..Tcl
55d0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
55e0: 74 65 72 70 2c 20 22 4e 6f 20 63 68 61 6e 6e 65 terp, "No channe
55f0: 6c 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c l", (char *) NUL
5600: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
5610: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
5620: 20 20 2f 2a 20 47 65 74 20 63 68 61 6e 6e 65 6c /* Get channel
5630: 20 49 64 20 2a 2f 0a 20 20 20 20 63 68 61 6e 20 Id */. chan
5640: 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c = Tcl_GetChannel
5650: 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e 65 6c (interp, channel
5660: 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 69 66 , &mode);. if
5670: 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c 5f 43 (chan == (Tcl_C
5680: 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a hannel) NULL) {.
5690: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
56a0: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
56b0: 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 6f 70 Make sure to op
56c0: 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 6f 70 erate on the top
56d0: 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a most channel */.
56e0: 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 chan = Tcl_G
56f0: 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 68 61 etTopChannel(cha
5700: 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6f 6e 66 n);.. /* Conf
5710: 69 67 75 72 65 20 63 68 61 6e 6e 65 6c 20 2a 2f igure channel */
5720: 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e . Tcl_SetChan
5730: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
5740: 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 6e 73 6c , chan, "-transl
5750: 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 72 79 22 ation", "binary"
5760: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 );.. /* Creat
5770: 65 20 73 74 61 74 65 20 64 61 74 61 20 73 74 72 e state data str
5780: 75 63 74 75 72 65 20 2a 2f 0a 20 20 20 20 69 66 ucture */. if
5790: 20 28 28 73 74 61 74 65 50 74 72 20 3d 20 45 6e ((statePtr = En
57a0: 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 69 6e cryptStateNew(in
57b0: 74 65 72 70 2c 20 74 79 70 65 29 29 20 3d 3d 20 terp, type)) ==
57c0: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
57d0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
57e0: 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 , "Memory alloca
57f0: 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 tion error", (ch
5800: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 ar *) NULL);..re
5810: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5820: 20 20 20 20 7d 0a 20 20 20 20 73 74 61 74 65 50 }. stateP
5830: 74 72 2d 3e 73 65 6c 66 20 3d 20 63 68 61 6e 3b tr->self = chan;
5840: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 6d . statePtr->m
5850: 6f 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a 20 20 20 ode = mode;..
5860: 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 66 /* Initialize f
5870: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 unction */. i
5880: 66 20 28 45 6e 63 72 79 70 74 49 6e 69 74 69 61 f (EncryptInitia
5890: 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 70 lize(interp, typ
58a0: 65 2c 20 26 73 74 61 74 65 50 74 72 2d 3e 63 74 e, &statePtr->ct
58b0: 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 x, cipherObj, ke
58c0: 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 yObj, ivObj, pad
58d0: 64 69 6e 67 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 ding) != TCL_OK)
58e0: 20 7b 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 {..EncryptState
58f0: 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a Free(statePtr);.
5900: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5910: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5920: 20 53 74 61 63 6b 20 63 68 61 6e 6e 65 6c 20 2a Stack channel *
5930: 2f 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e /. statePtr->
5940: 73 65 6c 66 20 3d 20 54 63 6c 5f 53 74 61 63 6b self = Tcl_Stack
5950: 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 Channel(interp,
5960: 26 65 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c 54 &encryptChannelT
5970: 79 70 65 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 ype, (ClientData
5980: 29 20 73 74 61 74 65 50 74 72 2c 20 6d 6f 64 65 ) statePtr, mode
5990: 2c 20 63 68 61 6e 29 3b 0a 20 20 20 20 69 66 20 , chan);. if
59a0: 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 (statePtr->self
59b0: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
59c0: 20 4e 55 4c 4c 29 20 7b 0a 09 45 6e 63 72 79 70 NULL) {..Encryp
59d0: 74 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 tStateFree(state
59e0: 50 74 72 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 Ptr);..return TC
59f0: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
5a00: 20 20 20 20 2f 2a 20 53 65 74 20 72 65 73 75 6c /* Set resul
5a10: 74 20 74 6f 20 63 68 61 6e 6e 65 6c 20 49 64 20 t to channel Id
5a20: 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 52 65 */. Tcl_SetRe
5a30: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 28 63 68 sult(interp, (ch
5a40: 61 72 20 2a 29 20 54 63 6c 5f 47 65 74 43 68 61 ar *) Tcl_GetCha
5a50: 6e 6e 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 20 nnelName(chan),
5a60: 54 43 4c 5f 56 4f 4c 41 54 49 4c 45 29 3b 0a 20 TCL_VOLATILE);.
5a70: 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b return TCL_OK
5a80: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
5a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5aa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ab0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5ad0: 0a 20 2a 0a 20 2a 20 55 6e 73 74 61 63 6b 20 43 . *. * Unstack C
5ae0: 68 61 6e 6e 65 6c 20 2d 2d 0a 20 2a 0a 20 2a 09 hannel --. *. *.
5af0: 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 This function re
5b00: 6d 6f 76 65 73 20 74 68 65 20 73 74 61 63 6b 65 moves the stacke
5b10: 64 20 63 68 61 6e 6e 65 6c 20 66 72 6f 6d 20 74 d channel from t
5b20: 68 65 20 74 6f 70 20 6f 66 20 74 68 65 0a 20 2a he top of the. *
5b30: 09 63 68 61 6e 6e 65 6c 20 73 74 61 63 6b 20 69 .channel stack i
5b40: 66 20 69 74 20 69 73 20 61 20 65 6e 63 72 79 70 f it is a encryp
5b50: 74 69 6f 6e 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a tion channel.. *
5b60: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
5b70: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 TCL_OK or TCL_ER
5b80: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ROR. *. * Side e
5b90: 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f 76 ffects:. *.Remov
5ba0: 65 73 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 6f es transform fro
5bb0: 6d 20 63 68 61 6e 6e 65 6c 20 6f 72 20 73 65 74 m channel or set
5bc0: 73 20 72 65 73 75 6c 74 20 74 6f 20 65 72 72 6f s result to erro
5bd0: 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a r message.. *. *
5be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5c20: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
5c30: 63 20 69 6e 74 20 45 6e 63 72 79 70 74 55 6e 73 c int EncryptUns
5c40: 74 61 63 6b 4f 62 6a 43 6d 64 28 43 6c 69 65 6e tackObjCmd(Clien
5c50: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
5c60: 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e , Tcl_Interp *in
5c70: 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 terp, int objc,
5c80: 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f Tcl_Obj *const o
5c90: 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 6c bjv[]) {. Tcl
5ca0: 5f 43 68 61 6e 6e 65 6c 20 63 68 61 6e 3b 0a 20 _Channel chan;.
5cb0: 20 20 20 69 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 int mode; /*
5cc0: 4f 52 2d 65 64 20 63 6f 6d 62 69 6e 61 74 69 6f OR-ed combinatio
5cd0: 6e 20 6f 66 20 54 43 4c 5f 52 45 41 44 41 42 4c n of TCL_READABL
5ce0: 45 20 61 6e 64 20 54 43 4c 5f 57 52 49 54 41 42 E and TCL_WRITAB
5cf0: 4c 45 20 20 2a 2f 0a 20 20 20 20 28 76 6f 69 64 LE */. (void
5d00: 29 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 ) clientData;..
5d10: 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c dprintf("Call
5d20: 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 61 ed");.. /* Va
5d30: 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e 74 lidate arg count
5d40: 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a 63 */. if (objc
5d50: 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c 5f 57 72 != 2) {..Tcl_Wr
5d60: 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 ongNumArgs(inter
5d70: 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 63 68 61 p, 1, objv, "cha
5d80: 6e 6e 65 6c 49 64 22 29 3b 0a 09 72 65 74 75 72 nnelId");..retur
5d90: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5da0: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 }.. /* Get c
5db0: 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 63 68 hannel */. ch
5dc0: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
5dd0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f nel(interp, Tcl_
5de0: 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 GetString(objv[1
5df0: 5d 29 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 ]), &mode);.
5e00: 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c if (chan == (Tcl
5e10: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
5e20: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
5e30: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
5e40: 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 /* Make sure to
5e50: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
5e60: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 2a opmost channel *
5e70: 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c /. chan = Tcl
5e80: 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 _GetTopChannel(c
5e90: 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 68 han);.. /* Ch
5ea0: 65 63 6b 20 69 66 20 65 6e 63 72 79 70 74 69 6f eck if encryptio
5eb0: 6e 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 n channel */.
5ec0: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e if (Tcl_GetChan
5ed0: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d nelType(chan) !=
5ee0: 20 26 65 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c &encryptChannel
5ef0: 54 79 70 65 29 20 7b 0a 09 54 63 6c 5f 41 70 70 Type) {..Tcl_App
5f00: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
5f10: 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c , "bad channel \
5f20: 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e "", Tcl_GetChann
5f30: 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 20 elName(chan),..
5f40: 20 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 65 6e "\": not a en
5f50: 63 72 79 70 74 69 6f 6e 20 63 68 61 6e 6e 65 6c cryption channel
5f60: 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ", (char *) NULL
5f70: 29 3b 0a 09 54 63 6c 5f 53 65 74 45 72 72 6f 72 );..Tcl_SetError
5f80: 43 6f 64 65 28 69 6e 74 65 72 70 2c 20 22 54 4c Code(interp, "TL
5f90: 53 22 2c 20 22 55 4e 53 54 41 43 4b 22 2c 20 22 S", "UNSTACK", "
5fa0: 43 48 41 4e 4e 45 4c 22 2c 20 22 49 4e 56 41 4c CHANNEL", "INVAL
5fb0: 49 44 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ID", (char *) NU
5fc0: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
5fd0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
5fe0: 20 20 20 2f 2a 20 50 6f 70 20 74 72 61 6e 73 66 /* Pop transf
5ff0: 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e 6e 65 6c orm from channel
6000: 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e 20 54 */. return T
6010: 63 6c 5f 55 6e 73 74 61 63 6b 43 68 61 6e 6e 65 cl_UnstackChanne
6020: 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 29 3b l(interp, chan);
6030: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
6040: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6050: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6060: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
6070: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
6080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
60c0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
60d0: 74 49 6e 73 74 61 6e 63 65 4f 62 6a 43 6d 64 20 tInstanceObjCmd
60e0: 2d 2d 0a 20 2a 0a 20 2a 09 48 61 6e 64 6c 65 72 --. *. *.Handler
60f0: 20 66 6f 72 20 65 6e 63 72 79 70 74 2f 64 65 63 for encrypt/dec
6100: 72 79 70 74 20 63 6f 6d 6d 61 6e 64 20 69 6e 73 rypt command ins
6110: 74 61 6e 63 65 73 2e 20 55 73 65 64 20 74 6f 20 tances. Used to
6120: 75 70 64 61 74 65 0a 20 2a 09 61 6e 64 20 66 69 update. *.and fi
6130: 6e 61 6c 69 7a 65 20 64 61 74 61 20 66 6f 72 20 nalize data for
6140: 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 encrypt/decrypt
6150: 66 75 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 function.. *. *
6160: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
6170: 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a OK or TCL_ERROR.
6180: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
6190: 74 73 3a 0a 20 2a 09 41 64 64 73 20 64 61 74 61 ts:. *.Adds data
61a0: 20 74 6f 20 65 6e 63 72 79 70 74 2f 64 65 63 72 to encrypt/decr
61b0: 79 70 74 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a ypt function. *.
61c0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
61d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
61f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6200: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
6210: 63 72 79 70 74 49 6e 73 74 61 6e 63 65 4f 62 6a cryptInstanceObj
6220: 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 Cmd(ClientData c
6230: 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 lientData, Tcl_I
6240: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 nterp *interp, i
6250: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a nt objc, Tcl_Obj
6260: 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 *const objv[])
6270: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
6280: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
6290: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
62a0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
62b0: 69 6e 74 20 66 6e 2c 20 6f 75 74 5f 6c 65 6e 3b int fn, out_len;
62c0: 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 64 61 . Tcl_Size da
62d0: 74 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 20 20 ta_len = 0;.
62e0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 64 unsigned char *d
62f0: 61 74 61 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 ata = NULL;.
6300: 54 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f Tcl_Obj *resultO
6310: 62 6a 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 bj;. unsigned
6320: 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 3b 0a char *out_buf;.
6330: 20 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 static const
6340: 20 63 68 61 72 20 2a 69 6e 73 74 61 6e 63 65 5f char *instance_
6350: 66 6e 73 20 5b 5d 20 3d 20 7b 20 22 66 69 6e 61 fns [] = { "fina
6360: 6c 69 7a 65 22 2c 20 22 75 70 64 61 74 65 22 2c lize", "update",
6370: 20 4e 55 4c 4c 20 7d 3b 0a 0a 20 20 20 20 64 70 NULL };.. dp
6380: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
6390: 0a 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 .. /* Validat
63a0: 65 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 e arg count */.
63b0: 20 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 if (objc < 2
63c0: 7c 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 || objc > 3) {..
63d0: 54 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 Tcl_WrongNumArgs
63e0: 28 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 (interp, 1, objv
63f0: 2c 20 22 66 75 6e 63 74 69 6f 6e 20 3f 64 61 74 , "function ?dat
6400: 61 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 a?");..return TC
6410: 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a L_ERROR;. }..
6420: 20 20 20 20 2f 2a 20 47 65 74 20 66 75 6e 63 74 /* Get funct
6430: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 ion */. if (T
6440: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f cl_GetIndexFromO
6450: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
6460: 31 5d 2c 20 69 6e 73 74 61 6e 63 65 5f 66 6e 73 1], instance_fns
6470: 2c 20 22 66 75 6e 63 74 69 6f 6e 22 2c 20 30 2c , "function", 0,
6480: 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 &fn) != TCL_OK)
6490: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
64a0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
64b0: 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 74 6f /* Allocate sto
64c0: 72 61 67 65 20 66 6f 72 20 72 65 73 75 6c 74 2e rage for result.
64d0: 20 53 69 7a 65 20 73 68 6f 75 6c 64 20 62 65 20 Size should be
64e0: 64 61 74 61 20 73 69 7a 65 20 2b 20 62 6c 6f 63 data size + bloc
64f0: 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 20 72 k size. */. r
6500: 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e esultObj = Tcl_N
6510: 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 6f 75 74 ewObj();. out
6520: 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 _buf = Tcl_SetBy
6530: 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 teArrayLength(re
6540: 73 75 6c 74 4f 62 6a 2c 20 64 61 74 61 5f 6c 65 sultObj, data_le
6550: 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f n+EVP_MAX_BLOCK_
6560: 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 69 66 20 LENGTH);. if
6570: 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 (resultObj == NU
6580: 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 66 20 3d 3d LL || out_buf ==
6590: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
65a0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
65b0: 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 p, "Memory alloc
65c0: 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 ation error", (c
65d0: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 har *) NULL);..T
65e0: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
65f0: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 72 65 74 resultObj);..ret
6600: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6610: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 6f 20 }.. /* Do
6620: 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 function */.
6630: 69 66 20 28 66 6e 29 20 7b 0a 09 2f 2a 20 47 65 if (fn) {../* Ge
6640: 74 20 64 61 74 61 20 6f 72 20 72 65 74 75 72 6e t data or return
6650: 20 65 72 72 6f 72 20 69 66 20 6e 6f 6e 65 20 2a error if none *
6660: 2f 0a 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 33 /..if (objc == 3
6670: 29 20 7b 0a 09 20 20 20 20 64 61 74 61 20 3d 20 ) {.. data =
6680: 54 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 Tcl_GetByteArray
6690: 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c FromObj(objv[2],
66a0: 20 26 64 61 74 61 5f 6c 65 6e 29 3b 0a 09 7d 20 &data_len);..}
66b0: 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f else {.. Tcl_
66c0: 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 WrongNumArgs(int
66d0: 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 75 erp, 1, objv, "u
66e0: 70 64 61 74 65 20 64 61 74 61 22 29 3b 0a 09 20 pdate data");..
66f0: 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f Tcl_DecrRefCo
6700: 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a unt(resultObj);.
6710: 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6720: 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 55 ERROR;..}.../* U
6730: 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a pdate function *
6740: 2f 0a 09 69 66 20 28 45 6e 63 72 79 70 74 55 70 /..if (EncryptUp
6750: 64 61 74 65 28 69 6e 74 65 72 70 2c 20 73 74 61 date(interp, sta
6760: 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 tePtr->type, sta
6770: 74 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f tePtr->ctx, out_
6780: 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 buf, &out_len, d
6790: 61 74 61 2c 20 64 61 74 61 5f 6c 65 6e 29 20 3d ata, data_len) =
67a0: 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 = TCL_OK) {..
67b0: 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 out_buf = Tcl_S
67c0: 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 etByteArrayLengt
67d0: 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 28 54 63 h(resultObj, (Tc
67e0: 6c 5f 53 69 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 l_Size) out_len)
67f0: 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 ;.. Tcl_SetOb
6800: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
6810: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d 20 65 resultObj);..} e
6820: 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 44 lse {.. Tcl_D
6830: 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 ecrRefCount(resu
6840: 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 65 74 ltObj);.. ret
6850: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 urn TCL_ERROR;..
6860: 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a }.. } else {.
6870: 09 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 66 75 6e ./* Finalize fun
6880: 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e ction */..if (En
6890: 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e cryptFinalize(in
68a0: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
68b0: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
68c0: 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f ctx, out_buf, &o
68d0: 75 74 5f 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f ut_len) == TCL_O
68e0: 4b 29 20 7b 0a 09 20 20 20 20 6f 75 74 5f 62 75 K) {.. out_bu
68f0: 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 f = Tcl_SetByteA
6900: 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c rrayLength(resul
6910: 74 4f 62 6a 2c 20 28 54 63 6c 5f 53 69 7a 65 29 tObj, (Tcl_Size)
6920: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 out_len);..
6930: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
6940: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
6950: 62 6a 29 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 bj);..} else {..
6960: 20 20 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 Tcl_DecrRefC
6970: 6f 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b ount(resultObj);
6980: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c .. return TCL
6990: 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 _ERROR;..}.../*
69a0: 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 09 54 63 6c Clean-up */..Tcl
69b0: 5f 44 65 6c 65 74 65 43 6f 6d 6d 61 6e 64 46 72 _DeleteCommandFr
69c0: 6f 6d 54 6f 6b 65 6e 28 69 6e 74 65 72 70 2c 20 omToken(interp,
69d0: 73 74 61 74 65 50 74 72 2d 3e 74 6f 6b 65 6e 29 statePtr->token)
69e0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
69f0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a rn TCL_OK;.}../*
6a00: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
6a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6a40: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
6a50: 72 79 70 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 ryptCommandDelet
6a60: 65 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 eHandler --. *.
6a70: 2a 09 20 43 61 6c 6c 62 61 63 6b 20 74 6f 20 63 *. Callback to c
6a80: 6c 65 61 6e 2d 75 70 20 77 68 65 6e 20 65 6e 63 lean-up when enc
6a90: 72 79 70 74 2f 64 65 63 72 79 70 74 20 63 6f 6d rypt/decrypt com
6aa0: 6d 61 6e 64 20 69 73 20 64 65 6c 65 74 65 64 2e mand is deleted.
6ab0: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
6ac0: 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a 20 2a *.Nothing. *. *
6ad0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
6ae0: 2a 09 44 65 73 74 72 6f 79 73 20 73 74 61 74 65 *.Destroys state
6af0: 20 69 6e 66 6f 20 73 74 72 75 63 74 75 72 65 0a info structure.
6b00: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
6b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b40: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 --------. */.voi
6b50: 64 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 d EncryptCommand
6b60: 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 28 43 6c DeleteHandler(Cl
6b70: 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 ientData clientD
6b80: 61 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 ata) {. Encry
6b90: 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ptState *statePt
6ba0: 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 r = (EncryptStat
6bb0: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
6bc0: 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 2d 75 .. /* Clean-u
6bd0: 70 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 p */. Encrypt
6be0: 53 74 61 74 65 46 72 65 65 28 73 74 61 74 65 50 StateFree(stateP
6bf0: 74 72 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d tr);.}../*. *---
6c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c40: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6f . *. * EncryptCo
6c50: 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 20 2d 2d 0a mmandHandler --.
6c60: 20 2a 0a 20 2a 09 20 43 72 65 61 74 65 20 63 6f *. *. Create co
6c70: 6d 6d 61 6e 64 20 74 6f 20 61 64 64 20 64 61 74 mmand to add dat
6c80: 61 20 74 6f 20 65 6e 63 72 79 70 74 2f 64 65 63 a to encrypt/dec
6c90: 72 79 70 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 rypt function..
6ca0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
6cb0: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
6cc0: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
6cd0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 effects:. *.Crea
6ce0: 74 65 73 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 65 tes command or e
6cf0: 72 72 6f 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a rror message. *.
6d00: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
6d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d40: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
6d50: 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 6e 64 cryptCommandHand
6d60: 6c 65 72 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ler(Tcl_Interp *
6d70: 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 interp, int type
6d80: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6d 64 4f 62 , Tcl_Obj *cmdOb
6d90: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 j, Tcl_Obj *ciph
6da0: 65 72 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a 20 erObj,..Tcl_Obj
6db0: 2a 64 69 67 65 73 74 4f 62 6a 2c 20 54 63 6c 5f *digestObj, Tcl_
6dc0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
6dd0: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 _Obj *ivObj, int
6de0: 20 70 61 64 64 69 6e 67 29 20 7b 0a 20 20 20 20 padding) {.
6df0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 EncryptState *st
6e00: 61 74 65 50 74 72 3b 0a 20 20 20 20 63 68 61 72 atePtr;. char
6e10: 20 2a 63 6d 64 4e 61 6d 65 20 3d 20 54 63 6c 5f *cmdName = Tcl_
6e20: 47 65 74 53 74 72 69 6e 67 28 63 6d 64 4f 62 6a GetString(cmdObj
6e30: 29 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 );.. dprintf(
6e40: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
6e50: 69 66 20 28 28 73 74 61 74 65 50 74 72 20 3d 20 if ((statePtr =
6e60: 45 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 EncryptStateNew(
6e70: 69 6e 74 65 72 70 2c 20 74 79 70 65 29 29 20 3d interp, type)) =
6e80: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
6e90: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
6ea0: 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f rp, "Memory allo
6eb0: 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 cation error", (
6ec0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
6ed0: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
6ee0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
6ef0: 49 6e 69 74 69 61 6c 69 7a 65 20 66 75 6e 63 74 Initialize funct
6f00: 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 ion */. if (E
6f10: 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 ncryptInitialize
6f20: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 (interp, type, &
6f30: 73 74 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 63 statePtr->ctx, c
6f40: 69 70 68 65 72 4f 62 6a 2c 20 6b 65 79 4f 62 6a ipherObj, keyObj
6f50: 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 69 6e 67 , ivObj, padding
6f60: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
6f70: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
6f80: 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 (statePtr);..ret
6f90: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6fa0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 }.. /* Cre
6fb0: 61 74 65 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d ate instance com
6fc0: 6d 61 6e 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 mand */. stat
6fd0: 65 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 ePtr->token = Tc
6fe0: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
6ff0: 6e 64 28 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 nd(interp, cmdNa
7000: 6d 65 2c 20 45 6e 63 72 79 70 74 49 6e 73 74 61 me, EncryptInsta
7010: 6e 63 65 4f 62 6a 43 6d 64 2c 0a 09 28 43 6c 69 nceObjCmd,..(Cli
7020: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
7030: 72 2c 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e r, EncryptComman
7040: 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 29 3b dDeleteHandler);
7050: 0a 0a 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 .. /* Return
7060: 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a command name */.
7070: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
7080: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 sult(interp, cmd
7090: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
70a0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a TCL_OK;.}../***
70b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
70c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
70d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
70e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
70f0: 2f 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d /../*. *--------
7100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7130: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
7140: 2a 20 45 6e 63 72 79 70 74 44 61 74 61 48 61 6e * EncryptDataHan
7150: 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 dler --. *. *.Pe
7160: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
7170: 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 function on a b
7180: 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 lock of data and
7190: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a return result..
71a0: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
71b0: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
71c0: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
71d0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
71e0: 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 6f s result or erro
71f0: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
7200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7240: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
7250: 70 74 44 61 74 61 48 61 6e 64 6c 65 72 28 54 63 ptDataHandler(Tc
7260: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7270: 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f , int type, Tcl_
7280: 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 54 63 Obj *dataObj, Tc
7290: 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a l_Obj *cipherObj
72a0: 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 ,..Tcl_Obj *dige
72b0: 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a stObj, Tcl_Obj *
72c0: 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 keyObj, Tcl_Obj
72d0: 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 70 61 64 64 *ivObj, int padd
72e0: 69 6e 67 29 20 7b 0a 20 20 20 20 45 56 50 5f 43 ing) {. EVP_C
72f0: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 3d IPHER_CTX *ctx =
7300: 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 6f NULL;. int o
7310: 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e 20 ut_len = 0, len
7320: 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 4c 5f 4f = 0, res = TCL_O
7330: 4b 3b 0a 20 20 20 20 54 63 6c 5f 53 69 7a 65 20 K;. Tcl_Size
7340: 64 61 74 61 5f 6c 65 6e 20 3d 20 30 3b 0a 20 20 data_len = 0;.
7350: 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 unsigned char
7360: 2a 64 61 74 61 2c 20 2a 6f 75 74 5f 62 75 66 3b *data, *out_buf;
7370: 0a 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 72 65 . Tcl_Obj *re
7380: 73 75 6c 74 4f 62 6a 3b 0a 0a 20 20 20 20 64 70 sultObj;.. dp
7390: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
73a0: 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 64 61 74 .. /* Get dat
73b0: 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 64 61 74 a */. if (dat
73c0: 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a aObj != NULL) {.
73d0: 09 64 61 74 61 20 3d 20 54 63 6c 5f 47 65 74 42 .data = Tcl_GetB
73e0: 79 74 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 yteArrayFromObj(
73f0: 64 61 74 61 4f 62 6a 2c 20 26 64 61 74 61 5f 6c dataObj, &data_l
7400: 65 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 en);. } else
7410: 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 {..Tcl_AppendRes
7420: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 ult(interp, "No
7430: 64 61 74 61 22 2c 20 28 63 68 61 72 20 2a 29 20 data", (char *)
7440: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
7450: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
7460: 0a 20 20 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 . /* Allocate
7470: 20 73 74 6f 72 61 67 65 20 66 6f 72 20 72 65 73 storage for res
7480: 75 6c 74 2e 20 53 69 7a 65 20 73 68 6f 75 6c 64 ult. Size should
7490: 20 62 65 20 64 61 74 61 20 73 69 7a 65 20 2b 20 be data size +
74a0: 62 6c 6f 63 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 block size. */.
74b0: 20 20 20 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 resultObj = T
74c0: 63 6c 5f 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 cl_NewObj();.
74d0: 20 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 out_buf = Tcl_S
74e0: 65 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 etByteArrayLengt
74f0: 68 28 72 65 73 75 6c 74 4f 62 6a 2c 20 64 61 74 h(resultObj, dat
7500: 61 5f 6c 65 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c a_len+EVP_MAX_BL
7510: 4f 43 4b 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 OCK_LENGTH);.
7520: 20 69 66 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d if (resultObj =
7530: 3d 20 4e 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 = NULL || out_bu
7540: 66 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 f == NULL) {..Tc
7550: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 l_AppendResult(i
7560: 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 nterp, "Memory a
7570: 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 llocation error"
7580: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
7590: 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 ;..return TCL_ER
75a0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
75b0: 2f 2a 20 50 65 72 66 6f 72 6d 20 6f 70 65 72 61 /* Perform opera
75c0: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 tion */. if (
75d0: 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 7a EncryptInitializ
75e0: 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 e(interp, type,
75f0: 26 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c &ctx, cipherObj,
7600: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 keyObj, ivObj,
7610: 70 61 64 64 69 6e 67 29 20 21 3d 20 54 43 4c 5f padding) != TCL_
7620: 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 55 70 OK ||..EncryptUp
7630: 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 79 70 date(interp, typ
7640: 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c e, ctx, out_buf,
7650: 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c &out_len, data,
7660: 20 64 61 74 61 5f 6c 65 6e 29 20 21 3d 20 54 43 data_len) != TC
7670: 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 70 74 L_OK ||..Encrypt
7680: 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c Finalize(interp,
7690: 20 74 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f type, ctx, out_
76a0: 62 75 66 2b 6f 75 74 5f 6c 65 6e 2c 20 26 6c 65 buf+out_len, &le
76b0: 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a n) != TCL_OK) {.
76c0: 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 .res = TCL_ERROR
76d0: 3b 0a 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 20 20 ;..goto done;.
76e0: 20 20 7d 0a 20 20 20 20 6f 75 74 5f 6c 65 6e 20 }. out_len
76f0: 2b 3d 20 6c 65 6e 3b 0a 0a 64 6f 6e 65 3a 0a 20 += len;..done:.
7700: 20 20 20 2f 2a 20 53 65 74 20 6f 75 74 70 75 74 /* Set output
7710: 20 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 69 result */. i
7720: 66 20 28 72 65 73 20 3d 3d 20 54 43 4c 5f 4f 4b f (res == TCL_OK
7730: 29 20 7b 0a 09 6f 75 74 5f 62 75 66 20 3d 20 54 ) {..out_buf = T
7740: 63 6c 5f 53 65 74 42 79 74 65 41 72 72 61 79 4c cl_SetByteArrayL
7750: 65 6e 67 74 68 28 72 65 73 75 6c 74 4f 62 6a 2c ength(resultObj,
7760: 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 74 5f (Tcl_Size) out_
7770: 6c 65 6e 29 3b 0a 09 54 63 6c 5f 53 65 74 4f 62 len);..Tcl_SetOb
7780: 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 jResult(interp,
7790: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 20 20 20 20 resultObj);.
77a0: 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 44 65 } else {..Tcl_De
77b0: 63 72 52 65 66 43 6f 75 6e 74 28 72 65 73 75 6c crRefCount(resul
77c0: 74 4f 62 6a 29 3b 0a 09 2f 2a 20 52 65 73 75 6c tObj);../* Resul
77d0: 74 20 69 73 20 65 72 72 6f 72 20 6d 65 73 73 61 t is error messa
77e0: 67 65 20 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 ge */. }..
77f0: 20 2f 2a 20 43 6c 65 61 6e 20 75 70 20 2a 2f 0a /* Clean up */.
7800: 20 20 20 20 69 66 20 28 63 74 78 20 21 3d 20 4e if (ctx != N
7810: 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 50 48 ULL) {..EVP_CIPH
7820: 45 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 ER_CTX_free(ctx)
7830: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 ;. }. retu
7840: 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a rn res;.}../****
7850: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7860: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7870: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7880: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f ***************/
7890: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
78a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
78d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
78e0: 20 45 6e 63 72 79 70 74 46 69 6c 65 48 61 6e 64 EncryptFileHand
78f0: 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 ler --. *. *.Per
7900: 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 form encryption
7910: 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 6c function on a bl
7920: 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 20 ock of data and
7930: 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 return result..
7940: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
7950: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
7960: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
7970: 65 66 66 65 63 74 73 3a 0a 20 2a 09 45 6e 63 72 effects:. *.Encr
7980: 79 70 74 73 20 6f 72 20 64 65 63 72 79 70 74 73 ypts or decrypts
7990: 20 69 6e 46 69 6c 65 20 64 61 74 61 20 74 6f 20 inFile data to
79a0: 6f 75 74 46 69 6c 65 20 61 6e 64 20 73 65 74 73 outFile and sets
79b0: 20 72 65 73 75 6c 74 20 74 6f 0a 20 2a 09 73 69 result to. *.si
79c0: 7a 65 20 6f 66 20 6f 75 74 46 69 6c 65 2c 20 6f ze of outFile, o
79d0: 72 20 61 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 r an error messa
79e0: 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ge.. *. *-------
79f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
7a30: 0a 69 6e 74 20 45 6e 63 72 79 70 74 46 69 6c 65 .int EncryptFile
7a40: 48 61 6e 64 6c 65 72 28 54 63 6c 5f 49 6e 74 65 Handler(Tcl_Inte
7a50: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
7a60: 74 79 70 65 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 type, Tcl_Obj *i
7a70: 6e 46 69 6c 65 4f 62 6a 2c 20 54 63 6c 5f 4f 62 nFileObj, Tcl_Ob
7a80: 6a 20 2a 6f 75 74 46 69 6c 65 4f 62 6a 2c 0a 09 j *outFileObj,..
7a90: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
7aa0: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 bj, Tcl_Obj *dig
7ab0: 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 estObj, Tcl_Obj
7ac0: 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a *keyObj, Tcl_Obj
7ad0: 20 2a 69 76 4f 62 6a 2c 20 69 6e 74 20 70 61 64 *ivObj, int pad
7ae0: 64 69 6e 67 29 20 7b 0a 20 20 20 20 45 56 50 5f ding) {. EVP_
7af0: 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 20 CIPHER_CTX *ctx
7b00: 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 = NULL;. int
7b10: 74 6f 74 61 6c 20 3d 20 30 2c 20 72 65 73 2c 20 total = 0, res,
7b20: 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e out_len = 0, len
7b30: 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 ;. Tcl_Channe
7b40: 6c 20 69 6e 20 3d 20 4e 55 4c 4c 2c 20 6f 75 74 l in = NULL, out
7b50: 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 75 6e 73 = NULL;. uns
7b60: 69 67 6e 65 64 20 63 68 61 72 20 69 6e 5f 62 75 igned char in_bu
7b70: 66 5b 42 55 46 46 45 52 5f 53 49 5a 45 5d 3b 0a f[BUFFER_SIZE];.
7b80: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 63 68 61 unsigned cha
7b90: 72 20 6f 75 74 5f 62 75 66 5b 42 55 46 46 45 52 r out_buf[BUFFER
7ba0: 5f 53 49 5a 45 2b 45 56 50 5f 4d 41 58 5f 42 4c _SIZE+EVP_MAX_BL
7bb0: 4f 43 4b 5f 4c 45 4e 47 54 48 5d 3b 0a 0a 20 20 OCK_LENGTH];..
7bc0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
7bd0: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 d");.. /* Ope
7be0: 6e 20 69 6e 70 75 74 20 66 69 6c 65 20 2a 2f 0a n input file */.
7bf0: 20 20 20 20 69 66 20 28 28 69 6e 20 3d 20 54 63 if ((in = Tc
7c00: 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e l_FSOpenFileChan
7c10: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 69 6e 46 69 nel(interp, inFi
7c20: 6c 65 4f 62 6a 2c 20 22 72 62 22 2c 20 30 34 34 leObj, "rb", 044
7c30: 34 29 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 4)) == (Tcl_Chan
7c40: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
7c50: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
7c60: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 4f 70 }.. /* Op
7c70: 65 6e 20 6f 75 74 70 75 74 20 66 69 6c 65 20 2a en output file *
7c80: 2f 0a 20 20 20 20 69 66 20 28 28 6f 75 74 20 3d /. if ((out =
7c90: 20 54 63 6c 5f 46 53 4f 70 65 6e 46 69 6c 65 43 Tcl_FSOpenFileC
7ca0: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 6f hannel(interp, o
7cb0: 75 74 46 69 6c 65 4f 62 6a 2c 20 22 77 62 22 2c utFileObj, "wb",
7cc0: 20 30 36 34 34 29 29 20 3d 3d 20 28 54 63 6c 5f 0644)) == (Tcl_
7cd0: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
7ce0: 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 ..Tcl_Close(inte
7cf0: 72 70 2c 20 69 6e 29 3b 0a 09 72 65 74 75 72 6e rp, in);..return
7d00: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
7d10: 7d 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 }.. /* Initia
7d20: 6c 69 7a 65 20 6f 70 65 72 61 74 69 6f 6e 20 2a lize operation *
7d30: 2f 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d /. if ((res =
7d40: 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 EncryptInitiali
7d50: 7a 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c ze(interp, type,
7d60: 20 26 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a &ctx, cipherObj
7d70: 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c , keyObj, ivObj,
7d80: 20 70 61 64 64 69 6e 67 29 29 20 21 3d 20 54 43 padding)) != TC
7d90: 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f 20 64 6f L_OK) {..goto do
7da0: 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f ne;. }.. /
7db0: 2a 20 52 65 61 64 20 66 69 6c 65 20 64 61 74 61 * Read file data
7dc0: 20 66 72 6f 6d 20 69 6e 46 69 6c 65 2c 20 65 6e from inFile, en
7dd0: 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 69 74 crypt/decrypt it
7de0: 2c 20 74 68 65 6e 20 6f 75 74 70 75 74 20 74 6f , then output to
7df0: 20 6f 75 74 46 69 6c 65 20 2a 2f 0a 20 20 20 20 outFile */.
7e00: 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 6f 66 28 while (!Tcl_Eof(
7e10: 69 6e 29 29 20 7b 0a 09 54 63 6c 5f 53 69 7a 65 in)) {..Tcl_Size
7e20: 20 72 65 61 64 20 3d 20 54 63 6c 5f 52 65 61 64 read = Tcl_Read
7e30: 52 61 77 28 69 6e 2c 20 28 63 68 61 72 20 2a 29 Raw(in, (char *)
7e40: 20 69 6e 5f 62 75 66 2c 20 42 55 46 46 45 52 5f in_buf, BUFFER_
7e50: 53 49 5a 45 29 3b 0a 09 69 66 20 28 72 65 61 64 SIZE);..if (read
7e60: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 69 66 20 > 0) {.. if
7e70: 28 28 72 65 73 20 3d 20 45 6e 63 72 79 70 74 55 ((res = EncryptU
7e80: 70 64 61 74 65 28 69 6e 74 65 72 70 2c 20 74 79 pdate(interp, ty
7e90: 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 pe, ctx, out_buf
7ea0: 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f 62 , &out_len, in_b
7eb0: 75 66 2c 20 72 65 61 64 29 29 20 3d 3d 20 54 43 uf, read)) == TC
7ec0: 4c 5f 4f 4b 29 20 7b 0a 09 09 69 66 20 28 6f 75 L_OK) {...if (ou
7ed0: 74 5f 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 20 t_len > 0) {...
7ee0: 20 20 20 6c 65 6e 20 3d 20 28 69 6e 74 29 20 54 len = (int) T
7ef0: 63 6c 5f 57 72 69 74 65 52 61 77 28 6f 75 74 2c cl_WriteRaw(out,
7f00: 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 20 (const char *)
7f10: 6f 75 74 5f 62 75 66 2c 20 28 54 63 6c 5f 53 69 out_buf, (Tcl_Si
7f20: 7a 65 29 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 09 ze) out_len);...
7f30: 20 20 20 20 69 66 20 28 6c 65 6e 20 3e 3d 20 30 if (len >= 0
7f40: 29 20 7b 0a 09 09 09 74 6f 74 61 6c 20 2b 3d 20 ) {....total +=
7f50: 6c 65 6e 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 len;... } els
7f60: 65 20 7b 0a 09 09 09 54 63 6c 5f 41 70 70 65 6e e {....Tcl_Appen
7f70: 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 dResult(interp,
7f80: 22 57 72 69 74 65 20 65 72 72 6f 72 3a 20 22 2c "Write error: ",
7f90: 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 Tcl_ErrnoMsg(Tc
7fa0: 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 28 l_GetErrno()), (
7fb0: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
7fc0: 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f ..res = TCL_ERRO
7fd0: 52 3b 0a 09 09 09 67 6f 74 6f 20 64 6f 6e 65 3b R;....goto done;
7fe0: 0a 09 09 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 ... }...}..
7ff0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 67 6f 74 } else {...got
8000: 6f 20 64 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 o done;.. }..
8010: 7d 20 65 6c 73 65 20 69 66 20 28 72 65 61 64 20 } else if (read
8020: 3c 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f < 0) {.. Tcl_
8030: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
8040: 65 72 70 2c 20 22 52 65 61 64 20 65 72 72 6f 72 erp, "Read error
8050: 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 : ", Tcl_ErrnoMs
8060: 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 g(Tcl_GetErrno()
8070: 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c ), (char *) NULL
8080: 29 3b 0a 09 20 20 20 20 72 65 73 20 3d 20 54 43 );.. res = TC
8090: 4c 5f 45 52 52 4f 52 3b 0a 09 20 20 20 20 67 6f L_ERROR;.. go
80a0: 74 6f 20 64 6f 6e 65 3b 0a 09 7d 0a 20 20 20 20 to done;..}.
80b0: 7d 0a 0a 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 }.. /* Finali
80c0: 7a 65 20 64 61 74 61 20 61 6e 64 20 77 72 69 74 ze data and writ
80d0: 65 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 e any remaining
80e0: 64 61 74 61 20 69 6e 20 62 6c 6f 63 6b 20 2a 2f data in block */
80f0: 0a 20 20 20 20 69 66 20 28 28 72 65 73 20 3d 20 . if ((res =
8100: 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 EncryptFinalize(
8110: 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 63 74 interp, type, ct
8120: 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 x, out_buf, &out
8130: 5f 6c 65 6e 29 29 20 3d 3d 20 54 43 4c 5f 4f 4b _len)) == TCL_OK
8140: 29 20 7b 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e ) {..if (out_len
8150: 20 3e 20 30 29 20 7b 0a 09 20 20 20 20 6c 65 6e > 0) {.. len
8160: 20 3d 20 28 69 6e 74 29 20 54 63 6c 5f 57 72 69 = (int) Tcl_Wri
8170: 74 65 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e 73 teRaw(out, (cons
8180: 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 t char *) out_bu
8190: 66 2c 20 28 54 63 6c 5f 53 69 7a 65 29 20 6f 75 f, (Tcl_Size) ou
81a0: 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 69 66 20 t_len);.. if
81b0: 28 6c 65 6e 20 3e 3d 20 30 29 20 7b 0a 09 09 74 (len >= 0) {...t
81c0: 6f 74 61 6c 20 2b 3d 20 6c 65 6e 3b 0a 09 20 20 otal += len;..
81d0: 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 54 63 6c } else {...Tcl
81e0: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
81f0: 74 65 72 70 2c 20 22 57 72 69 74 65 20 65 72 72 terp, "Write err
8200: 6f 72 3a 20 22 2c 20 54 63 6c 5f 45 72 72 6e 6f or: ", Tcl_Errno
8210: 4d 73 67 28 54 63 6c 5f 47 65 74 45 72 72 6e 6f Msg(Tcl_GetErrno
8220: 28 29 29 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ()), (char *) NU
8230: 4c 4c 29 3b 0a 09 09 72 65 73 20 3d 20 54 43 4c LL);...res = TCL
8240: 5f 45 52 52 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 _ERROR;...goto d
8250: 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 one;.. }..}..
8260: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
8270: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 (interp, Tcl_New
8280: 49 6e 74 4f 62 6a 28 74 6f 74 61 6c 29 29 3b 0a IntObj(total));.
8290: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 67 6f } else {..go
82a0: 74 6f 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a to done;. }..
82b0: 64 6f 6e 65 3a 0a 20 20 20 20 2f 2a 20 43 6c 65 done:. /* Cle
82c0: 61 6e 20 75 70 20 2a 2f 0a 20 20 20 20 69 66 20 an up */. if
82d0: 28 69 6e 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 (in != NULL) {..
82e0: 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 Tcl_Close(interp
82f0: 2c 20 69 6e 29 3b 0a 20 20 20 20 7d 0a 20 20 20 , in);. }.
8300: 20 69 66 20 28 6f 75 74 20 21 3d 20 4e 55 4c 4c if (out != NULL
8310: 29 20 7b 0a 09 54 63 6c 5f 43 6c 6f 73 65 28 69 ) {..Tcl_Close(i
8320: 6e 74 65 72 70 2c 20 6f 75 74 29 3b 0a 20 20 20 nterp, out);.
8330: 20 7d 0a 20 20 20 20 69 66 20 28 63 74 78 20 21 }. if (ctx !
8340: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 = NULL) {..EVP_C
8350: 49 50 48 45 52 5f 43 54 58 5f 66 72 65 65 28 63 IPHER_CTX_free(c
8360: 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 tx);. }. r
8370: 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a eturn res;.}../*
8380: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8390: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
83a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
83b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
83c0: 2a 2a 2f 0a 0a 73 74 61 74 69 63 20 63 6f 6e 73 **/..static cons
83d0: 74 20 63 68 61 72 20 2a 63 6f 6d 6d 61 6e 64 5f t char *command_
83e0: 6f 70 74 73 20 5b 5d 20 3d 20 7b 0a 20 20 20 20 opts [] = {.
83f0: 22 2d 63 68 61 6e 22 2c 20 22 2d 63 68 61 6e 6e "-chan", "-chann
8400: 65 6c 22 2c 20 22 2d 63 69 70 68 65 72 22 2c 20 el", "-cipher",
8410: 22 2d 63 6f 6d 6d 61 6e 64 22 2c 20 22 2d 64 61 "-command", "-da
8420: 74 61 22 2c 20 22 2d 64 69 67 65 73 74 22 2c 20 ta", "-digest",
8430: 22 2d 69 6e 66 69 6c 65 22 2c 20 22 2d 66 69 6c "-infile", "-fil
8440: 65 6e 61 6d 65 22 2c 0a 20 20 20 20 22 2d 6f 75 ename",. "-ou
8450: 74 66 69 6c 65 22 2c 20 22 2d 68 61 73 68 22 2c tfile", "-hash",
8460: 20 22 2d 69 76 22 2c 20 22 2d 6b 65 79 22 2c 20 "-iv", "-key",
8470: 22 2d 6d 61 63 22 2c 20 22 2d 70 61 64 64 69 6e "-mac", "-paddin
8480: 67 22 2c 20 4e 55 4c 4c 7d 3b 0a 0a 65 6e 75 6d g", NULL};..enum
8490: 20 5f 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 20 7b _command_opts {
84a0: 0a 20 20 20 20 5f 6f 70 74 5f 63 68 61 6e 2c 20 . _opt_chan,
84b0: 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c 2c 20 5f 6f _opt_channel, _o
84c0: 70 74 5f 63 69 70 68 65 72 2c 20 5f 6f 70 74 5f pt_cipher, _opt_
84d0: 63 6f 6d 6d 61 6e 64 2c 20 5f 6f 70 74 5f 64 61 command, _opt_da
84e0: 74 61 2c 20 5f 6f 70 74 5f 64 69 67 65 73 74 2c ta, _opt_digest,
84f0: 20 5f 6f 70 74 5f 69 6e 66 69 6c 65 2c 0a 20 20 _opt_infile,.
8500: 20 20 5f 6f 70 74 5f 66 69 6c 65 6e 61 6d 65 2c _opt_filename,
8510: 20 5f 6f 70 74 5f 6f 75 74 66 69 6c 65 2c 20 5f _opt_outfile, _
8520: 6f 70 74 5f 68 61 73 68 2c 20 5f 6f 70 74 5f 69 opt_hash, _opt_i
8530: 76 2c 20 5f 6f 70 74 5f 6b 65 79 2c 20 5f 6f 70 v, _opt_key, _op
8540: 74 5f 6d 61 63 2c 20 5f 6f 70 74 5f 70 61 64 64 t_mac, _opt_padd
8550: 69 6e 67 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d 2d 2d ing.};../*. *---
8560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
85a0: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 4d 61 . *. * EncryptMa
85b0: 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 in --. *. *.Perf
85c0: 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 orm encryption f
85d0: 75 6e 63 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 unction and retu
85e0: 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a rn result.. *. *
85f0: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c Returns:. *.TCL
8600: 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 _OK or TCL_ERROR
8610: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
8620: 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 65 73 cts:. *.Sets res
8630: 75 6c 74 20 6f 72 20 65 72 72 6f 72 20 6d 65 73 ult or error mes
8640: 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d sage. *. *------
8650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
8690: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 /.static int Enc
86a0: 72 79 70 74 4d 61 69 6e 28 69 6e 74 20 74 79 70 ryptMain(int typ
86b0: 65 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 e, Tcl_Interp *i
86c0: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c nterp, int objc,
86d0: 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 Tcl_Obj *const
86e0: 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 54 63 objv[]) {. Tc
86f0: 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a l_Obj *cipherObj
8700: 20 3d 20 4e 55 4c 4c 2c 20 2a 63 6d 64 4f 62 6a = NULL, *cmdObj
8710: 20 3d 20 4e 55 4c 4c 2c 20 2a 64 61 74 61 4f 62 = NULL, *dataOb
8720: 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 69 67 65 73 j = NULL, *diges
8730: 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 tObj = NULL;.
8740: 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 6c 65 Tcl_Obj *inFile
8750: 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6f 75 74 Obj = NULL, *out
8760: 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 FileObj = NULL,
8770: 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 *keyObj = NULL,
8780: 2a 69 76 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a *ivObj = NULL, *
8790: 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 macObj = NULL;.
87a0: 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 const char *c
87b0: 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c 20 2a hannel = NULL, *
87c0: 6f 70 74 3b 0a 20 20 20 20 69 6e 74 20 72 65 73 opt;. int res
87d0: 2c 20 73 74 61 72 74 20 3d 20 31 2c 20 70 61 64 , start = 1, pad
87e0: 64 69 6e 67 20 3d 20 31 3b 0a 20 20 20 20 54 63 ding = 1;. Tc
87f0: 6c 5f 53 69 7a 65 20 66 6e 3b 0a 0a 20 20 20 20 l_Size fn;..
8800: 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 dprintf("Called"
8810: 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 );.. /* Clear
8820: 20 69 6e 74 65 72 70 20 72 65 73 75 6c 74 20 2a interp result *
8830: 2f 0a 20 20 20 20 54 63 6c 5f 52 65 73 65 74 52 /. Tcl_ResetR
8840: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 3b 0a 0a esult(interp);..
8850: 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 /* Validate
8860: 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 20 arg count */.
8870: 20 69 66 20 28 6f 62 6a 63 20 3c 20 33 20 7c 7c if (objc < 3 ||
8880: 20 6f 62 6a 63 20 3e 20 31 32 29 20 7b 0a 09 54 objc > 12) {..T
8890: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
88a0: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
88b0: 20 22 3f 2d 63 69 70 68 65 72 3f 20 6e 61 6d 65 "?-cipher? name
88c0: 20 3f 2d 64 69 67 65 73 74 20 6e 61 6d 65 3f 20 ?-digest name?
88d0: 2d 6b 65 79 20 6b 65 79 20 3f 2d 69 76 20 73 74 -key key ?-iv st
88e0: 72 69 6e 67 3f 20 3f 2d 6d 61 63 20 6e 61 6d 65 ring? ?-mac name
88f0: 3f 20 3f 2d 70 61 64 64 69 6e 67 20 62 6f 6f 6c ? ?-padding bool
8900: 65 61 6e 3f 20 5b 2d 63 68 61 6e 6e 65 6c 20 63 ean? [-channel c
8910: 68 61 6e 20 7c 20 2d 63 6f 6d 6d 61 6e 64 20 63 han | -command c
8920: 6d 64 4e 61 6d 65 20 7c 20 2d 69 6e 66 69 6c 65 mdName | -infile
8930: 20 66 69 6c 65 6e 61 6d 65 20 2d 6f 75 74 66 69 filename -outfi
8940: 6c 65 20 66 69 6c 65 6e 61 6d 65 20 7c 20 3f 2d le filename | ?-
8950: 64 61 74 61 3f 20 64 61 74 61 5d 22 29 3b 0a 09 data? data]");..
8960: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
8970: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
8980: 53 70 65 63 69 61 6c 20 63 61 73 65 20 6f 66 20 Special case of
8990: 66 69 72 73 74 20 61 72 67 20 69 73 20 63 69 70 first arg is cip
89a0: 68 65 72 20 2a 2f 0a 20 20 20 20 6f 70 74 20 3d her */. opt =
89b0: 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f Tcl_GetString(o
89c0: 62 6a 76 5b 73 74 61 72 74 5d 29 3b 0a 20 20 20 bjv[start]);.
89d0: 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d 20 27 if (opt[0] != '
89e0: 2d 27 29 20 7b 0a 09 73 77 69 74 63 68 28 74 79 -') {..switch(ty
89f0: 70 65 29 20 7b 0a 09 63 61 73 65 20 54 59 50 45 pe) {..case TYPE
8a00: 5f 45 4e 43 52 59 50 54 3a 0a 09 63 61 73 65 20 _ENCRYPT:..case
8a10: 54 59 50 45 5f 44 45 43 52 59 50 54 3a 0a 09 20 TYPE_DECRYPT:..
8a20: 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d 20 6f cipherObj = o
8a30: 62 6a 76 5b 73 74 61 72 74 2b 2b 5d 3b 0a 09 20 bjv[start++];..
8a40: 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 20 20 break;..}.
8a50: 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 20 6f }.. /* Get o
8a60: 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 66 6f ptions */. fo
8a70: 72 20 28 69 6e 74 20 69 64 78 20 3d 20 73 74 61 r (int idx = sta
8a80: 72 74 3b 20 69 64 78 20 3c 20 6f 62 6a 63 3b 20 rt; idx < objc;
8a90: 69 64 78 2b 2b 29 20 7b 0a 09 2f 2a 20 53 70 65 idx++) {../* Spe
8aa0: 63 69 61 6c 20 63 61 73 65 20 66 6f 72 20 77 68 cial case for wh
8ab0: 65 6e 20 6c 61 73 74 20 61 72 67 20 69 73 20 64 en last arg is d
8ac0: 61 74 61 20 2a 2f 0a 09 69 66 20 28 69 64 78 20 ata */..if (idx
8ad0: 3d 3d 20 6f 62 6a 63 20 2d 20 31 29 20 7b 0a 09 == objc - 1) {..
8ae0: 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 opt = Tcl_GetStr
8af0: 69 6e 67 28 6f 62 6a 76 5b 69 64 78 5d 29 3b 0a ing(objv[idx]);.
8b00: 09 20 20 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 . if (opt[0]
8b10: 21 3d 20 27 2d 27 20 26 26 20 64 61 74 61 4f 62 != '-' && dataOb
8b20: 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 64 j == NULL) {...d
8b30: 61 74 61 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 ataObj = objv[id
8b40: 78 5d 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 x];...break;..
8b50: 20 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 47 65 74 20 }..}.../* Get
8b60: 6f 70 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 54 option */..if (T
8b70: 63 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f cl_GetIndexFromO
8b80: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b bj(interp, objv[
8b90: 69 64 78 5d 2c 20 63 6f 6d 6d 61 6e 64 5f 6f 70 idx], command_op
8ba0: 74 73 2c 20 22 6f 70 74 69 6f 6e 22 2c 20 30 2c ts, "option", 0,
8bb0: 20 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 &fn) != TCL_OK)
8bc0: 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 {.. return T
8bd0: 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f CL_ERROR;..}.../
8be0: 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 68 * Validate arg h
8bf0: 61 73 20 61 20 76 61 6c 75 65 20 2a 2f 0a 09 69 as a value */..i
8c00: 66 20 28 2b 2b 69 64 78 20 3e 3d 20 6f 62 6a 63 f (++idx >= objc
8c10: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 ) {.. Tcl_App
8c20: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8c30: 2c 20 22 4e 6f 20 76 61 6c 75 65 20 66 6f 72 20 , "No value for
8c40: 6f 70 74 69 6f 6e 20 5c 22 22 2c 20 63 6f 6d 6d option \"", comm
8c50: 61 6e 64 5f 6f 70 74 73 5b 66 6e 5d 2c 20 22 5c and_opts[fn], "\
8c60: 22 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c "", (char *) NUL
8c70: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
8c80: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 09 73 ERROR;. }...s
8c90: 77 69 74 63 68 28 66 6e 29 20 7b 0a 09 63 61 73 witch(fn) {..cas
8ca0: 65 20 5f 6f 70 74 5f 63 68 61 6e 3a 0a 09 63 61 e _opt_chan:..ca
8cb0: 73 65 20 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c 3a se _opt_channel:
8cc0: 0a 20 20 20 20 09 20 20 20 20 47 45 54 5f 4f 50 . . GET_OP
8cd0: 54 5f 53 54 52 49 4e 47 28 6f 62 6a 76 5b 69 64 T_STRING(objv[id
8ce0: 78 5d 2c 20 63 68 61 6e 6e 65 6c 2c 20 4e 55 4c x], channel, NUL
8cf0: 4c 29 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a L);.. break;.
8d00: 09 63 61 73 65 20 5f 6f 70 74 5f 63 69 70 68 65 .case _opt_ciphe
8d10: 72 3a 0a 09 20 20 20 20 63 69 70 68 65 72 4f 62 r:.. cipherOb
8d20: 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 j = objv[idx];..
8d30: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 break;..case
8d40: 20 5f 6f 70 74 5f 63 6f 6d 6d 61 6e 64 3a 0a 09 _opt_command:..
8d50: 20 20 20 20 63 6d 64 4f 62 6a 20 3d 20 6f 62 6a cmdObj = obj
8d60: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8d70: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 64 ak;..case _opt_d
8d80: 61 74 61 3a 0a 09 20 20 20 20 64 61 74 61 4f 62 ata:.. dataOb
8d90: 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 j = objv[idx];..
8da0: 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 break;..case
8db0: 20 5f 6f 70 74 5f 64 69 67 65 73 74 3a 0a 09 63 _opt_digest:..c
8dc0: 61 73 65 20 5f 6f 70 74 5f 68 61 73 68 3a 0a 09 ase _opt_hash:..
8dd0: 20 20 20 20 64 69 67 65 73 74 4f 62 6a 20 3d 20 digestObj =
8de0: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8df0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8e00: 74 5f 69 6e 66 69 6c 65 3a 0a 09 63 61 73 65 20 t_infile:..case
8e10: 5f 6f 70 74 5f 66 69 6c 65 6e 61 6d 65 3a 0a 09 _opt_filename:..
8e20: 20 20 20 20 69 6e 46 69 6c 65 4f 62 6a 20 3d 20 inFileObj =
8e30: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8e40: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8e50: 74 5f 6f 75 74 66 69 6c 65 3a 0a 09 20 20 20 20 t_outfile:..
8e60: 6f 75 74 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a outFileObj = obj
8e70: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8e80: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 ak;..case _opt_i
8e90: 76 3a 0a 09 20 20 20 20 69 76 4f 62 6a 20 3d 20 v:.. ivObj =
8ea0: 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 objv[idx];..
8eb0: 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 break;..case _op
8ec0: 74 5f 6b 65 79 3a 0a 09 20 20 20 20 6b 65 79 4f t_key:.. keyO
8ed0: 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a bj = objv[idx];.
8ee0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 . break;..cas
8ef0: 65 20 5f 6f 70 74 5f 6d 61 63 3a 0a 09 20 20 20 e _opt_mac:..
8f00: 20 6d 61 63 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 macObj = objv[i
8f10: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
8f20: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 70 61 64 64 ..case _opt_padd
8f30: 69 6e 67 3a 0a 20 20 20 20 09 20 20 20 20 47 45 ing:. . GE
8f40: 54 5f 4f 50 54 5f 42 4f 4f 4c 28 6f 62 6a 76 5b T_OPT_BOOL(objv[
8f50: 69 64 78 5d 2c 20 26 70 61 64 64 69 6e 67 29 3b idx], &padding);
8f60: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a .. break;..}.
8f70: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 68 }.. /* Ch
8f80: 65 63 6b 20 66 6f 72 20 72 65 71 75 69 72 65 64 eck for required
8f90: 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 options */.
8fa0: 69 66 20 28 63 69 70 68 65 72 4f 62 6a 20 3d 3d if (cipherObj ==
8fb0: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
8fc0: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
8fd0: 70 2c 20 22 4e 6f 20 63 69 70 68 65 72 22 2c 20 p, "No cipher",
8fe0: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
8ff0: 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 6b } else if (k
9000: 65 79 4f 62 6a 20 3d 3d 20 4e 55 4c 4c 29 20 7b eyObj == NULL) {
9010: 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 ..Tcl_AppendResu
9020: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 6b lt(interp, "No k
9030: 65 79 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 ey", (char *) NU
9040: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
9050: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
9060: 20 20 20 2f 2a 20 50 65 72 66 6f 72 6d 20 65 6e /* Perform en
9070: 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f cryption functio
9080: 6e 20 6f 6e 20 66 69 6c 65 2c 20 73 74 61 63 6b n on file, stack
9090: 65 64 20 63 68 61 6e 6e 65 6c 2c 20 75 73 69 6e ed channel, usin
90a0: 67 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 g instance comma
90b0: 6e 64 2c 20 6f 72 20 64 61 74 61 20 62 6c 6f 62 nd, or data blob
90c0: 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 46 69 */. if (inFi
90d0: 6c 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 20 26 26 leObj != NULL &&
90e0: 20 6f 75 74 46 69 6c 65 4f 62 6a 20 21 3d 20 4e outFileObj != N
90f0: 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e ULL) {..res = En
9100: 63 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 cryptFileHandler
9110: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 69 (interp, type, i
9120: 6e 46 69 6c 65 4f 62 6a 2c 20 6f 75 74 46 69 6c nFileObj, outFil
9130: 65 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c eObj, cipherObj,
9140: 20 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f digestObj, keyO
9150: 62 6a 2c 20 69 76 4f 62 6a 2c 20 70 61 64 64 69 bj, ivObj, paddi
9160: 6e 67 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ng);. } else
9170: 69 66 20 28 63 68 61 6e 6e 65 6c 20 21 3d 20 4e if (channel != N
9180: 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e ULL) {..res = En
9190: 63 72 79 70 74 43 68 61 6e 6e 65 6c 48 61 6e 64 cryptChannelHand
91a0: 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 65 ler(interp, type
91b0: 2c 20 63 68 61 6e 6e 65 6c 2c 20 63 69 70 68 65 , channel, ciphe
91c0: 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c rObj, digestObj,
91d0: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 2c 20 keyObj, ivObj,
91e0: 70 61 64 64 69 6e 67 29 3b 0a 20 20 20 20 7d 20 padding);. }
91f0: 65 6c 73 65 20 69 66 20 28 63 6d 64 4f 62 6a 20 else if (cmdObj
9200: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 != NULL) {..res
9210: 3d 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 = EncryptCommand
9220: 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 Handler(interp,
9230: 74 79 70 65 2c 20 63 6d 64 4f 62 6a 2c 20 63 69 type, cmdObj, ci
9240: 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f pherObj, digestO
9250: 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 bj, keyObj, ivOb
9260: 6a 2c 20 70 61 64 64 69 6e 67 29 3b 0a 20 20 20 j, padding);.
9270: 20 7d 20 65 6c 73 65 20 69 66 20 28 64 61 74 61 } else if (data
9280: 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 Obj != NULL) {..
9290: 72 65 73 20 3d 20 45 6e 63 72 79 70 74 44 61 74 res = EncryptDat
92a0: 61 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 2c aHandler(interp,
92b0: 20 74 79 70 65 2c 20 64 61 74 61 4f 62 6a 2c 20 type, dataObj,
92c0: 63 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 73 cipherObj, diges
92d0: 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 tObj, keyObj, iv
92e0: 4f 62 6a 2c 20 70 61 64 64 69 6e 67 29 3b 0a 20 Obj, padding);.
92f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c } else {..Tcl
9300: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
9310: 74 65 72 70 2c 20 22 4e 6f 20 6f 70 65 72 61 74 terp, "No operat
9320: 69 6f 6e 20 73 70 65 63 69 66 69 65 64 3a 20 55 ion specified: U
9330: 73 65 20 2d 63 68 61 6e 6e 65 6c 2c 20 2d 63 6f se -channel, -co
9340: 6d 6d 61 6e 64 2c 20 2d 64 61 74 61 2c 20 6f 72 mmand, -data, or
9350: 20 2d 69 6e 66 69 6c 65 20 6f 70 74 69 6f 6e 22 -infile option"
9360: 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 , (char *) NULL)
9370: 3b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 ;..res = TCL_ERR
9380: 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 OR;. }. re
9390: 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 0a turn res;.}../*.
93a0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
93b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
93f0: 79 70 74 69 6f 6e 20 43 6f 6d 6d 61 6e 64 73 20 yption Commands
9400: 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d --. *. *.Perform
9410: 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 encryption func
9420: 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 6e 20 tion and return
9430: 72 65 73 75 6c 74 73 0a 20 2a 0a 20 2a 20 52 65 results. *. * Re
9440: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
9450: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
9460: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
9470: 3a 0a 20 2a 09 43 6f 6d 6d 61 6e 64 20 64 65 70 :. *.Command dep
9480: 65 6e 64 65 6e 74 0a 20 2a 0a 20 2a 2d 2d 2d 2d endent. *. *----
9490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
94c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
94d0: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 */.static int E
94e0: 6e 63 72 79 70 74 4f 62 6a 43 6d 64 28 43 6c 69 ncryptObjCmd(Cli
94f0: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
9500: 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a ta, Tcl_Interp *
9510: 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 interp, int objc
9520: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 , Tcl_Obj *const
9530: 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 28 objv[]) {. (
9540: 76 6f 69 64 29 20 63 6c 69 65 6e 74 44 61 74 61 void) clientData
9550: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 45 6e 63 ;. return Enc
9560: 72 79 70 74 4d 61 69 6e 28 54 59 50 45 5f 45 4e ryptMain(TYPE_EN
9570: 43 52 59 50 54 2c 20 69 6e 74 65 72 70 2c 20 6f CRYPT, interp, o
9580: 62 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 bjc, objv);.}..s
9590: 74 61 74 69 63 20 69 6e 74 20 44 65 63 72 79 70 tatic int Decryp
95a0: 74 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 tObjCmd(ClientDa
95b0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 ta clientData, T
95c0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
95d0: 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c p, int objc, Tcl
95e0: 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 _Obj *const objv
95f0: 5b 5d 29 20 7b 0a 20 20 20 20 28 76 6f 69 64 29 []) {. (void)
9600: 20 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 clientData;.
9610: 20 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 4d return EncryptM
9620: 61 69 6e 28 54 59 50 45 5f 44 45 43 52 59 50 54 ain(TYPE_DECRYPT
9630: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
9640: 6f 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d objv);.}../*. *-
9650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9690: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
96a0: 5f 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d 0a 20 _Initialize --.
96b0: 2a 0a 20 2a 09 43 72 65 61 74 65 20 6e 61 6d 65 *. *.Create name
96c0: 73 70 61 63 65 2c 20 63 6f 6d 6d 61 6e 64 73 2c space, commands,
96d0: 20 61 6e 64 20 72 65 67 69 73 74 65 72 20 70 61 and register pa
96e0: 63 6b 61 67 65 20 76 65 72 73 69 6f 6e 0a 20 2a ckage version. *
96f0: 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 . * Returns:. *.
9700: 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 TCL_OK or TCL_ER
9710: 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ROR. *. * Side e
9720: 66 66 65 63 74 73 3a 0a 20 2a 09 43 72 65 61 74 ffects:. *.Creat
9730: 65 73 20 63 6f 6d 6d 61 6e 64 73 0a 20 2a 0a 20 es commands. *.
9740: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
9750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9780: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 54 6c 73 ----. */.int Tls
9790: 5f 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 73 _EncryptCommands
97a0: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
97b0: 65 72 70 29 20 7b 0a 20 20 20 20 54 63 6c 5f 43 erp) {. Tcl_C
97c0: 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 reateObjCommand(
97d0: 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 3a 3a interp, "::tls::
97e0: 65 6e 63 72 79 70 74 22 2c 20 45 6e 63 72 79 70 encrypt", Encryp
97f0: 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 tObjCmd, (Client
9800: 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 63 6c Data) NULL, (Tcl
9810: 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a _CmdDeleteProc *
9820: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c ) NULL);. Tcl
9830: 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e _CreateObjComman
9840: 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 6c 73 d(interp, "::tls
9850: 3a 3a 64 65 63 72 79 70 74 22 2c 20 44 65 63 72 ::decrypt", Decr
9860: 79 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 yptObjCmd, (Clie
9870: 6e 74 44 61 74 61 29 20 4e 55 4c 4c 2c 20 28 54 ntData) NULL, (T
9880: 63 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 cl_CmdDeleteProc
9890: 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 *) NULL);. T
98a0: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
98b0: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 3a 3a 74 and(interp, "::t
98c0: 6c 73 3a 3a 75 6e 73 74 61 63 6b 32 22 2c 20 45 ls::unstack2", E
98d0: 6e 63 72 79 70 74 55 6e 73 74 61 63 6b 4f 62 6a ncryptUnstackObj
98e0: 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 Cmd, (ClientData
98f0: 29 20 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 ) NULL, (Tcl_Cmd
9900: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
9910: 4c 4c 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 LL);. return
9920: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a TCL_OK;.}..