0000: 2f 2a 0a 20 2a 20 45 6e 63 72 79 70 74 69 6f 6e /*. * Encryption
0010: 20 46 75 6e 63 74 69 6f 6e 73 20 4d 6f 64 75 6c Functions Modul
0020: 65 0a 20 2a 0a 20 2a 20 54 68 69 73 20 6d 6f 64 e. *. * This mod
0030: 75 6c 65 20 70 72 6f 76 69 64 65 73 20 63 6f 6d ule provides com
0040: 6d 61 6e 64 73 20 74 68 61 74 20 63 61 6e 20 62 mands that can b
0050: 65 20 75 73 65 64 20 74 6f 20 65 6e 63 72 79 70 e used to encryp
0060: 74 20 6f 72 20 64 65 63 72 79 70 74 20 64 61 74 t or decrypt dat
0070: 61 2e 0a 20 2a 0a 20 2a 20 43 6f 70 79 72 69 67 a.. *. * Copyrig
0080: 68 74 20 28 43 29 20 32 30 32 33 20 42 72 69 61 ht (C) 2023 Bria
0090: 6e 20 4f 27 48 61 67 61 6e 0a 20 2a 0a 20 2a 2f n O'Hagan. *. */
00a0: 0a 0a 23 69 6e 63 6c 75 64 65 20 22 74 6c 73 49 ..#include "tlsI
00b0: 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 nt.h".#include "
00c0: 74 63 6c 4f 70 74 73 2e 68 22 0a 23 69 6e 63 6c tclOpts.h".#incl
00d0: 75 64 65 20 3c 74 63 6c 2e 68 3e 0a 23 69 6e 63 ude <tcl.h>.#inc
00e0: 6c 75 64 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 lude <stdio.h>.#
00f0: 69 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e include <string.
0100: 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 6f 70 65 h>.#include <ope
0110: 6e 73 73 6c 2f 65 76 70 2e 68 3e 0a 23 69 66 20 nssl/evp.h>.#if
0120: 4f 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f OPENSSL_VERSION_
0130: 4e 55 4d 42 45 52 20 3e 3d 20 30 78 33 30 30 30 NUMBER >= 0x3000
0140: 30 30 30 30 4c 0a 23 69 6e 63 6c 75 64 65 20 3c 0000L.#include <
0150: 6f 70 65 6e 73 73 6c 2f 70 61 72 61 6d 73 2e 68 openssl/params.h
0160: 3e 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 4d 61 63 >.#endif../* Mac
0170: 72 6f 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 42 ros */.#define B
0180: 55 46 46 45 52 5f 53 49 5a 45 09 33 32 37 36 38 UFFER_SIZE.32768
0190: 0a 23 64 65 66 69 6e 65 20 43 48 41 4e 5f 45 4f .#define CHAN_EO
01a0: 46 09 30 78 31 30 0a 23 64 65 66 69 6e 65 20 52 F.0x10.#define R
01b0: 45 41 44 5f 44 45 4c 41 59 09 35 0a 0a 2f 2a 20 EAD_DELAY.5../*
01c0: 45 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 Encryption funct
01d0: 69 6f 6e 73 20 2a 2f 0a 23 64 65 66 69 6e 65 20 ions */.#define
01e0: 54 59 50 45 5f 4d 44 09 09 30 78 30 31 30 0a 23 TYPE_MD..0x010.#
01f0: 64 65 66 69 6e 65 20 54 59 50 45 5f 48 4d 41 43 define TYPE_HMAC
0200: 09 30 78 30 32 30 0a 23 64 65 66 69 6e 65 20 54 .0x020.#define T
0210: 59 50 45 5f 43 4d 41 43 09 30 78 30 34 30 0a 23 YPE_CMAC.0x040.#
0220: 64 65 66 69 6e 65 20 54 59 50 45 5f 4d 41 43 09 define TYPE_MAC.
0230: 30 78 30 38 30 0a 23 64 65 66 69 6e 65 20 54 59 0x080.#define TY
0240: 50 45 5f 45 4e 43 52 59 50 54 09 30 78 31 30 30 PE_ENCRYPT.0x100
0250: 0a 23 64 65 66 69 6e 65 20 54 59 50 45 5f 44 45 .#define TYPE_DE
0260: 43 52 59 50 54 09 30 78 32 30 30 0a 23 64 65 66 CRYPT.0x200.#def
0270: 69 6e 65 20 54 59 50 45 5f 53 49 47 4e 09 30 78 ine TYPE_SIGN.0x
0280: 34 30 30 0a 23 64 65 66 69 6e 65 20 54 59 50 45 400.#define TYPE
0290: 5f 56 45 52 49 46 59 09 30 78 38 30 30 0a 0a 2f _VERIFY.0x800../
02a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
02e0: 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 20 54 68 69 73 ***/../*. * This
02f0: 20 73 74 72 75 63 74 75 72 65 20 64 65 66 69 6e structure defin
0300: 65 73 20 74 68 65 20 70 65 72 2d 69 6e 73 74 61 es the per-insta
0310: 6e 63 65 20 73 74 61 74 65 20 6f 66 20 61 20 65 nce state of a e
0320: 6e 63 72 79 70 74 20 6f 70 65 72 61 74 69 6f 6e ncrypt operation
0330: 2e 0a 20 2a 2f 0a 74 79 70 65 64 65 66 20 73 74 .. */.typedef st
0340: 72 75 63 74 20 45 6e 63 72 79 70 74 53 74 61 74 ruct EncryptStat
0350: 65 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c e {..Tcl_Channel
0360: 20 73 65 6c 66 3b 09 2f 2a 20 54 68 69 73 20 73 self;./* This s
0370: 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 2a 2f ocket channel */
0380: 0a 09 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e ..Tcl_TimerToken
0390: 20 74 69 6d 65 72 3b 09 2f 2a 20 54 69 6d 65 72 timer;./* Timer
03a0: 20 66 6f 72 20 72 65 61 64 20 65 76 65 6e 74 73 for read events
03b0: 20 2a 2f 0a 0a 09 69 6e 74 20 66 6c 61 67 73 3b */...int flags;
03c0: 09 09 2f 2a 20 43 68 61 6e 20 63 6f 6e 66 69 67 ../* Chan config
03d0: 20 66 6c 61 67 73 20 2a 2f 0a 09 69 6e 74 20 77 flags */..int w
03e0: 61 74 63 68 4d 61 73 6b 3b 09 09 2f 2a 20 43 75 atchMask;../* Cu
03f0: 72 72 65 6e 74 20 57 61 74 63 68 50 72 6f 63 20 rrent WatchProc
0400: 6d 61 73 6b 20 2a 2f 0a 09 69 6e 74 20 6d 6f 64 mask */..int mod
0410: 65 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d e;../* Current m
0420: 6f 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 ode of parent ch
0430: 61 6e 6e 65 6c 20 2a 2f 0a 09 69 6e 74 20 74 79 annel */..int ty
0440: 70 65 3b 09 09 2f 2a 20 4f 70 65 72 61 74 69 6f pe;../* Operatio
0450: 6e 20 74 79 70 65 20 2a 2f 0a 0a 09 54 63 6c 5f n type */...Tcl_
0460: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 3b 09 Interp *interp;.
0470: 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 65 72 /* Current inter
0480: 70 72 65 74 65 72 20 2a 2f 0a 09 45 56 50 5f 43 preter */..EVP_C
0490: 49 50 48 45 52 5f 43 54 58 20 2a 63 74 78 3b 09 IPHER_CTX *ctx;.
04a0: 2f 2a 20 43 69 70 68 65 72 20 43 6f 6e 74 65 78 /* Cipher Contex
04b0: 74 20 2a 2f 0a 09 54 63 6c 5f 43 6f 6d 6d 61 6e t */..Tcl_Comman
04c0: 64 20 74 6f 6b 65 6e 3b 09 2f 2a 20 43 6f 6d 6d d token;./* Comm
04d0: 61 6e 64 20 74 6f 6b 65 6e 20 2a 2f 0a 7d 20 45 and token */.} E
04e0: 6e 63 72 79 70 74 53 74 61 74 65 3b 0a 0a 0a 2f ncryptState;.../
04f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
0540: 63 72 79 70 74 53 74 61 74 65 4e 65 77 20 2d 2d cryptStateNew --
0550: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
0560: 74 69 6f 6e 20 63 72 65 61 74 65 73 20 61 20 70 tion creates a p
0570: 65 72 2d 69 6e 73 74 61 6e 63 65 20 73 74 61 74 er-instance stat
0580: 65 20 64 61 74 61 20 73 74 72 75 63 74 75 72 65 e data structure
0590: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
05a0: 20 2a 09 53 74 61 74 65 20 73 74 72 75 63 74 75 *.State structu
05b0: 72 65 20 70 6f 69 6e 74 65 72 0a 20 2a 0a 20 2a re pointer. *. *
05c0: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
05d0: 2a 09 43 72 65 61 74 65 73 20 73 74 72 75 63 74 *.Creates struct
05e0: 75 72 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d ure. *. *-------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
0630: 0a 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 45 .EncryptState *E
0640: 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 28 54 ncryptStateNew(T
0650: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 cl_Interp *inter
0660: 70 2c 20 69 6e 74 20 74 79 70 65 29 20 7b 0a 20 p, int type) {.
0670: 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 EncryptState
0680: 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 *statePtr = (Enc
0690: 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6b 61 ryptState *) cka
06a0: 6c 6c 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 lloc((unsigned)
06b0: 73 69 7a 65 6f 66 28 45 6e 63 72 79 70 74 53 74 sizeof(EncryptSt
06c0: 61 74 65 29 29 3b 0a 0a 20 20 20 20 69 66 20 28 ate));.. if (
06d0: 73 74 61 74 65 50 74 72 20 21 3d 20 4e 55 4c 4c statePtr != NULL
06e0: 29 20 7b 0a 09 6d 65 6d 73 65 74 28 73 74 61 74 ) {..memset(stat
06f0: 65 50 74 72 2c 20 30 2c 20 73 69 7a 65 6f 66 28 ePtr, 0, sizeof(
0700: 45 6e 63 72 79 70 74 53 74 61 74 65 29 29 3b 0a EncryptState));.
0710: 09 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 09 .statePtr->self.
0720: 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 54 68 69 73 = NULL;../* This
0730: 20 73 6f 63 6b 65 74 20 63 68 61 6e 6e 65 6c 20 socket channel
0740: 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 */..statePtr->ti
0750: 6d 65 72 20 3d 20 4e 55 4c 4c 3b 09 09 2f 2a 20 mer = NULL;../*
0760: 54 69 6d 65 72 20 74 6f 20 66 6c 75 73 68 20 64 Timer to flush d
0770: 61 74 61 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 ata */..statePtr
0780: 2d 3e 66 6c 61 67 73 20 3d 20 30 3b 09 09 2f 2a ->flags = 0;../*
0790: 20 43 68 61 6e 20 63 6f 6e 66 69 67 20 66 6c 61 Chan config fla
07a0: 67 73 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d gs */..statePtr-
07b0: 3e 77 61 74 63 68 4d 61 73 6b 20 3d 20 30 3b 09 >watchMask = 0;.
07c0: 2f 2a 20 43 75 72 72 65 6e 74 20 57 61 74 63 68 /* Current Watch
07d0: 50 72 6f 63 20 6d 61 73 6b 20 2a 2f 0a 09 73 74 Proc mask */..st
07e0: 61 74 65 50 74 72 2d 3e 6d 6f 64 65 09 3d 20 30 atePtr->mode.= 0
07f0: 3b 09 09 2f 2a 20 43 75 72 72 65 6e 74 20 6d 6f ;../* Current mo
0800: 64 65 20 6f 66 20 70 61 72 65 6e 74 20 63 68 61 de of parent cha
0810: 6e 6e 65 6c 20 2a 2f 0a 09 73 74 61 74 65 50 74 nnel */..statePt
0820: 72 2d 3e 74 79 70 65 20 3d 20 74 79 70 65 3b 09 r->type = type;.
0830: 09 2f 2a 20 4f 70 65 72 61 74 69 6f 6e 20 74 79 ./* Operation ty
0840: 70 65 20 2a 2f 0a 09 73 74 61 74 65 50 74 72 2d pe */..statePtr-
0850: 3e 69 6e 74 65 72 70 20 3d 20 69 6e 74 65 72 70 >interp = interp
0860: 3b 09 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e 74 ;./* Current int
0870: 65 72 70 72 65 74 65 72 20 2a 2f 0a 09 73 74 61 erpreter */..sta
0880: 74 65 50 74 72 2d 3e 63 74 78 20 3d 20 4e 55 4c tePtr->ctx = NUL
0890: 4c 3b 09 09 2f 2a 20 43 69 70 68 65 72 20 43 6f L;../* Cipher Co
08a0: 6e 74 65 78 74 20 2a 2f 0a 09 73 74 61 74 65 50 ntext */..stateP
08b0: 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 4e 55 4c 4c tr->token = NULL
08c0: 3b 09 09 2f 2a 20 43 6f 6d 6d 61 6e 64 20 74 6f ;../* Command to
08d0: 6b 65 6e 20 2a 2f 0a 20 20 20 20 7d 0a 20 20 20 ken */. }.
08e0: 20 72 65 74 75 72 6e 20 73 74 61 74 65 50 74 72 return statePtr
08f0: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
0940: 0a 20 2a 20 45 6e 63 72 79 70 74 53 74 61 74 65 . * EncryptState
0950: 46 72 65 65 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 Free --. *. *.Th
0960: 69 73 20 66 75 6e 63 74 69 6f 6e 20 64 65 6c 65 is function dele
0970: 74 65 73 20 61 20 73 74 61 74 65 20 64 61 74 61 tes a state data
0980: 20 73 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a structure. *. *
0990: 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 Returns:. *.Not
09a0: 68 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 hing. *. * Side
09b0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 52 65 6d 6f effects:. *.Remo
09c0: 76 65 73 20 73 74 72 75 63 74 75 72 65 0a 20 2a ves structure. *
09d0: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
09e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
09f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0a10: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 76 6f 69 64 20 ------. */.void
0a20: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
0a30: 28 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 (EncryptState *s
0a40: 74 61 74 65 50 74 72 29 20 7b 0a 20 20 20 20 69 tatePtr) {. i
0a50: 66 20 28 73 74 61 74 65 50 74 72 20 3d 3d 20 28 f (statePtr == (
0a60: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
0a70: 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e 3b NULL) {..return;
0a80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 52 . }.. /* R
0a90: 65 6d 6f 76 65 20 70 65 6e 64 69 6e 67 20 74 69 emove pending ti
0aa0: 6d 65 72 20 2a 2f 0a 20 20 20 20 69 66 20 28 73 mer */. if (s
0ab0: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 21 tatePtr->timer !
0ac0: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
0ad0: 6e 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f n) NULL) {..Tcl_
0ae0: 44 65 6c 65 74 65 54 69 6d 65 72 48 61 6e 64 6c DeleteTimerHandl
0af0: 65 72 28 73 74 61 74 65 50 74 72 2d 3e 74 69 6d er(statePtr->tim
0b00: 65 72 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 er);. }..
0b10: 2f 2a 20 46 72 65 65 20 63 6f 6e 74 65 78 74 20 /* Free context
0b20: 73 74 72 75 63 74 75 72 65 73 20 2a 2f 0a 20 20 structures */.
0b30: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
0b40: 63 74 78 20 21 3d 20 28 45 56 50 5f 43 49 50 48 ctx != (EVP_CIPH
0b50: 45 52 5f 43 54 58 20 2a 29 20 4e 55 4c 4c 29 20 ER_CTX *) NULL)
0b60: 7b 0a 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 {..EVP_CIPHER_CT
0b70: 58 5f 66 72 65 65 28 73 74 61 74 65 50 74 72 2d X_free(statePtr-
0b80: 3e 63 74 78 29 3b 0a 20 20 20 20 7d 0a 20 20 20 >ctx);. }.
0b90: 20 63 6b 66 72 65 65 28 73 74 61 74 65 50 74 72 ckfree(statePtr
0ba0: 29 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a );.}../*********
0bb0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bc0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0bd0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0be0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a **********/../*.
0bf0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 -----. *. * Encr
0c40: 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 20 2d 2d yptInitialize --
0c50: 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 61 6c 69 7a . *. *.Initializ
0c60: 65 20 61 6e 20 65 6e 63 72 79 70 74 69 6f 6e 20 e an encryption
0c70: 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 2a 20 52 function. *. * R
0c80: 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f eturns:. *.TCL_O
0c90: 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 K if successful
0ca0: 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 66 6f 72 or TCL_ERROR for
0cb0: 20 66 61 69 6c 75 72 65 20 77 69 74 68 20 72 65 failure with re
0cc0: 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 6f 20 65 sult set. *.to e
0cd0: 72 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a rror message.. *
0ce0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
0cf0: 3a 0a 20 2a 09 4e 6f 20 72 65 73 75 6c 74 20 6f :. *.No result o
0d00: 72 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0a r error message.
0d10: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
0d60: 20 45 6e 63 72 79 70 74 49 6e 69 74 69 61 6c 69 EncryptInitiali
0d70: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 ze(Tcl_Interp *i
0d80: 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c nterp, int type,
0d90: 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 20 EVP_CIPHER_CTX
0da0: 2a 2a 63 74 78 2c 0a 09 54 63 6c 5f 4f 62 6a 20 **ctx,..Tcl_Obj
0db0: 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c 5f *cipherObj, Tcl_
0dc0: 4f 62 6a 20 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c Obj *keyObj, Tcl
0dd0: 5f 4f 62 6a 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 _Obj *ivObj) {.
0de0: 20 20 20 63 6f 6e 73 74 20 45 56 50 5f 43 49 50 const EVP_CIP
0df0: 48 45 52 20 2a 63 69 70 68 65 72 3b 0a 20 20 20 HER *cipher;.
0e00: 20 63 68 61 72 20 2a 63 69 70 68 65 72 4e 61 6d char *cipherNam
0e10: 65 20 3d 20 20 4e 55 4c 4c 2c 20 2a 6b 65 79 53 e = NULL, *keyS
0e20: 74 72 69 6e 67 20 3d 20 4e 55 4c 4c 2c 20 2a 69 tring = NULL, *i
0e30: 76 53 74 72 69 6e 67 20 3d 20 4e 55 4c 4c 3b 0a vString = NULL;.
0e40: 20 20 20 20 69 6e 74 20 63 69 70 68 65 72 5f 6c int cipher_l
0e50: 65 6e 20 3d 20 30 2c 20 6b 65 79 5f 6c 65 6e 20 en = 0, key_len
0e60: 3d 20 30 2c 20 69 76 5f 6c 65 6e 20 3d 20 30 2c = 0, iv_len = 0,
0e70: 20 72 65 73 2c 20 6d 61 78 3b 0a 20 20 20 20 75 res, max;. u
0e80: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6b 65 79 nsigned char key
0e90: 5b 45 56 50 5f 4d 41 58 5f 4b 45 59 5f 4c 45 4e [EVP_MAX_KEY_LEN
0ea0: 47 54 48 5d 2c 20 69 76 5b 45 56 50 5f 4d 41 58 GTH], iv[EVP_MAX
0eb0: 5f 49 56 5f 4c 45 4e 47 54 48 5d 3b 0a 0a 20 20 _IV_LENGTH];..
0ec0: 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 dprintf("Calle
0ed0: 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 d");.. /* Ini
0ee0: 74 20 62 75 66 66 65 72 73 20 2a 2f 0a 20 20 20 t buffers */.
0ef0: 20 6d 65 6d 73 65 74 28 6b 65 79 2c 20 30 2c 20 memset(key, 0,
0f00: 45 56 50 5f 4d 41 58 5f 4b 45 59 5f 4c 45 4e 47 EVP_MAX_KEY_LENG
0f10: 54 48 29 3b 0a 20 20 20 20 6d 65 6d 73 65 74 28 TH);. memset(
0f20: 69 76 2c 20 30 2c 20 45 56 50 5f 4d 41 58 5f 49 iv, 0, EVP_MAX_I
0f30: 56 5f 4c 45 4e 47 54 48 29 3b 0a 0a 20 20 20 20 V_LENGTH);..
0f40: 2f 2a 20 47 65 74 20 65 6e 63 72 79 70 74 69 6f /* Get encryptio
0f50: 6e 20 70 61 72 61 6d 65 74 65 72 73 20 2a 2f 0a n parameters */.
0f60: 20 20 20 20 69 66 20 28 63 69 70 68 65 72 4f 62 if (cipherOb
0f70: 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 63 69 j != NULL) {..ci
0f80: 70 68 65 72 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 pherName = Tcl_G
0f90: 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 etStringFromObj(
0fa0: 63 69 70 68 65 72 4f 62 6a 2c 20 26 63 69 70 68 cipherObj, &ciph
0fb0: 65 72 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 20 er_len);. }.
0fc0: 20 20 20 69 66 20 28 6b 65 79 4f 62 6a 20 21 3d if (keyObj !=
0fd0: 20 4e 55 4c 4c 29 20 7b 0a 09 6b 65 79 53 74 72 NULL) {..keyStr
0fe0: 69 6e 67 20 3d 20 54 63 6c 5f 47 65 74 42 79 74 ing = Tcl_GetByt
0ff0: 65 41 72 72 61 79 46 72 6f 6d 4f 62 6a 28 6b 65 eArrayFromObj(ke
1000: 79 4f 62 6a 2c 20 26 6b 65 79 5f 6c 65 6e 29 3b yObj, &key_len);
1010: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 69 . }. if (i
1020: 76 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a vObj != NULL) {.
1030: 09 69 76 53 74 72 69 6e 67 20 3d 20 54 63 6c 5f .ivString = Tcl_
1040: 47 65 74 42 79 74 65 41 72 72 61 79 46 72 6f 6d GetByteArrayFrom
1050: 4f 62 6a 28 69 76 4f 62 6a 2c 20 26 69 76 5f 6c Obj(ivObj, &iv_l
1060: 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 en);. }..
1070: 2f 2a 20 47 65 74 20 63 69 70 68 65 72 20 6e 61 /* Get cipher na
1080: 6d 65 20 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 me */.#if OPENSS
1090: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
10a0: 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 < 0x30000000L.
10b0: 20 20 20 63 69 70 68 65 72 20 3d 20 45 56 50 5f cipher = EVP_
10c0: 67 65 74 5f 63 69 70 68 65 72 62 79 6e 61 6d 65 get_cipherbyname
10d0: 28 63 69 70 68 65 72 4e 61 6d 65 29 3b 0a 23 65 (cipherName);.#e
10e0: 6c 73 65 0a 20 20 20 20 63 69 70 68 65 72 20 3d lse. cipher =
10f0: 20 45 56 50 5f 43 49 50 48 45 52 5f 66 65 74 63 EVP_CIPHER_fetc
1100: 68 28 4e 55 4c 4c 2c 20 63 69 70 68 65 72 4e 61 h(NULL, cipherNa
1110: 6d 65 2c 20 4e 55 4c 4c 29 3b 0a 23 65 6e 64 69 me, NULL);.#endi
1120: 66 0a 20 20 20 20 69 66 20 28 63 69 70 68 65 72 f. if (cipher
1130: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c == NULL) {..Tcl
1140: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e _AppendResult(in
1150: 74 65 72 70 2c 20 22 49 6e 76 61 6c 69 64 20 63 terp, "Invalid c
1160: 69 70 68 65 72 3a 20 5c 22 22 2c 20 63 69 70 68 ipher: \"", ciph
1170: 65 72 4e 61 6d 65 2c 20 22 5c 22 22 2c 20 4e 55 erName, "\"", NU
1180: 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c LL);..return TCL
1190: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
11a0: 20 20 20 69 66 20 28 6b 65 79 5f 6c 65 6e 20 3e if (key_len >
11b0: 20 30 29 20 7b 0a 23 69 66 20 4f 50 45 4e 53 53 0) {.#if OPENSS
11c0: 4c 5f 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 L_VERSION_NUMBER
11d0: 20 3c 20 30 78 33 30 30 30 30 30 30 30 4c 0a 09 < 0x30000000L..
11e0: 6d 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 max = EVP_CIPHER
11f0: 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 68 _key_length(ciph
1200: 65 72 29 3b 0a 23 65 6c 73 65 0a 09 6d 61 78 20 er);.#else..max
1210: 3d 20 45 56 50 5f 43 49 50 48 45 52 5f 67 65 74 = EVP_CIPHER_get
1220: 5f 6b 65 79 5f 6c 65 6e 67 74 68 28 63 69 70 68 _key_length(ciph
1230: 65 72 29 3b 0a 23 65 6e 64 69 66 0a 09 69 66 20 er);.#endif..if
1240: 28 6d 61 78 20 3d 3d 20 30 29 20 7b 0a 09 7d 20 (max == 0) {..}
1250: 65 6c 73 65 20 69 66 20 28 6b 65 79 5f 6c 65 6e else if (key_len
1260: 20 3c 3d 20 6d 61 78 29 20 7b 0a 09 20 20 20 20 <= max) {..
1270: 6d 65 6d 63 70 79 28 28 76 6f 69 64 20 2a 29 20 memcpy((void *)
1280: 6b 65 79 2c 20 28 63 6f 6e 73 74 20 76 6f 69 64 key, (const void
1290: 20 2a 29 20 6b 65 79 53 74 72 69 6e 67 2c 20 28 *) keyString, (
12a0: 73 69 7a 65 5f 74 29 20 6b 65 79 5f 6c 65 6e 29 size_t) key_len)
12b0: 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 ;..} else {..
12c0: 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c Tcl_SetObjResul
12d0: 74 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 t(interp, Tcl_Ob
12e0: 6a 50 72 69 6e 74 66 28 22 4b 65 79 20 74 6f 6f jPrintf("Key too
12f0: 20 6c 6f 6e 67 2e 20 4d 75 73 74 20 62 65 20 3c long. Must be <
1300: 3d 20 25 64 20 62 79 74 65 73 22 2c 20 6d 61 78 = %d bytes", max
1310: 29 29 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 ));.. return
1320: 54 43 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 TCL_ERROR;..}.
1330: 20 20 7d 0a 0a 20 20 20 20 69 66 20 28 69 76 5f }.. if (iv_
1340: 6c 65 6e 20 3e 20 30 29 20 7b 0a 23 69 66 20 4f len > 0) {.#if O
1350: 50 45 4e 53 53 4c 5f 56 45 52 53 49 4f 4e 5f 4e PENSSL_VERSION_N
1360: 55 4d 42 45 52 20 3c 20 30 78 33 30 30 30 30 30 UMBER < 0x300000
1370: 30 30 4c 0a 09 6d 61 78 20 3d 20 45 56 50 5f 43 00L..max = EVP_C
1380: 49 50 48 45 52 5f 69 76 5f 6c 65 6e 67 74 68 28 IPHER_iv_length(
1390: 63 69 70 68 65 72 29 3b 0a 23 65 6c 73 65 0a 09 cipher);.#else..
13a0: 6d 61 78 20 3d 20 45 56 50 5f 43 49 50 48 45 52 max = EVP_CIPHER
13b0: 5f 67 65 74 5f 69 76 5f 6c 65 6e 67 74 68 28 63 _get_iv_length(c
13c0: 69 70 68 65 72 29 3b 0a 23 65 6e 64 69 66 0a 09 ipher);.#endif..
13d0: 69 66 20 28 6d 61 78 20 3d 3d 20 30 29 20 7b 0a if (max == 0) {.
13e0: 09 7d 20 65 6c 73 65 20 69 66 20 28 69 76 5f 6c .} else if (iv_l
13f0: 65 6e 20 3c 3d 20 6d 61 78 29 20 7b 0a 09 20 20 en <= max) {..
1400: 20 20 6d 65 6d 63 70 79 28 28 76 6f 69 64 20 2a memcpy((void *
1410: 29 20 69 76 2c 20 28 63 6f 6e 73 74 20 76 6f 69 ) iv, (const voi
1420: 64 20 2a 29 20 69 76 53 74 72 69 6e 67 2c 20 28 d *) ivString, (
1430: 73 69 7a 65 5f 74 29 20 69 76 5f 6c 65 6e 29 3b size_t) iv_len);
1440: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
1450: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
1460: 28 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a (interp, Tcl_Obj
1470: 50 72 69 6e 74 66 28 22 49 56 20 74 6f 6f 20 6c Printf("IV too l
1480: 6f 6e 67 2e 20 4d 75 73 74 20 62 65 20 3c 3d 20 ong. Must be <=
1490: 25 64 20 62 79 74 65 73 22 2c 20 6d 61 78 29 29 %d bytes", max))
14a0: 3b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 ;.. return TC
14b0: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 20 20 20 20 L_ERROR;..}.
14c0: 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 61 74 65 }.. /* Create
14d0: 20 61 6e 64 20 69 6e 69 74 69 61 6c 69 7a 65 20 and initialize
14e0: 74 68 65 20 63 6f 6e 74 65 78 74 20 2a 2f 0a 20 the context */.
14f0: 20 20 20 69 66 28 28 2a 63 74 78 20 3d 20 45 56 if((*ctx = EV
1500: 50 5f 43 49 50 48 45 52 5f 43 54 58 5f 6e 65 77 P_CIPHER_CTX_new
1510: 28 29 29 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 ()) == NULL) {..
1520: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
1530: 28 69 6e 74 65 72 70 2c 20 22 4d 65 6d 6f 72 79 (interp, "Memory
1540: 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 65 72 72 6f allocation erro
1550: 72 22 2c 20 28 63 68 61 72 20 2a 29 20 4e 55 4c r", (char *) NUL
1560: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
1570: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
1580: 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 20 /* Initialize
1590: 74 68 65 20 6f 70 65 72 61 74 69 6f 6e 2e 20 4e the operation. N
15a0: 65 65 64 20 61 70 70 72 6f 70 72 69 61 74 65 20 eed appropriate
15b0: 6b 65 79 20 61 6e 64 20 69 76 20 73 69 7a 65 2e key and iv size.
15c0: 20 2a 2f 0a 23 69 66 20 4f 50 45 4e 53 53 4c 5f */.#if OPENSSL_
15d0: 56 45 52 53 49 4f 4e 5f 4e 55 4d 42 45 52 20 3c VERSION_NUMBER <
15e0: 20 30 78 33 30 30 30 30 30 30 30 4c 0a 20 20 20 0x30000000L.
15f0: 20 69 66 20 28 74 79 70 65 20 3d 3d 20 54 59 50 if (type == TYP
1600: 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a 09 72 65 E_ENCRYPT) {..re
1610: 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 70 74 49 s = EVP_EncryptI
1620: 6e 69 74 5f 65 78 28 2a 63 74 78 2c 20 63 69 70 nit_ex(*ctx, cip
1630: 68 65 72 2c 20 4e 55 4c 4c 2c 20 6b 65 79 2c 20 her, NULL, key,
1640: 69 76 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 iv);. } else
1650: 7b 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 65 63 {..res = EVP_Dec
1660: 72 79 70 74 49 6e 69 74 5f 65 78 28 2a 63 74 78 ryptInit_ex(*ctx
1670: 2c 20 63 69 70 68 65 72 2c 20 4e 55 4c 4c 2c 20 , cipher, NULL,
1680: 6b 65 79 2c 20 69 76 29 3b 0a 20 20 20 20 7d 0a key, iv);. }.
1690: 23 65 6c 73 65 0a 09 4f 53 53 4c 5f 50 41 52 41 #else..OSSL_PARA
16a0: 4d 20 70 61 72 61 6d 73 5b 32 5d 3b 0a 09 69 6e M params[2];..in
16b0: 74 20 69 6e 64 65 78 20 3d 20 30 3b 0a 0a 09 69 t index = 0;...i
16c0: 66 20 28 69 76 20 21 3d 20 4e 55 4c 4c 29 20 7b f (iv != NULL) {
16d0: 0a 09 20 20 20 20 70 61 72 61 6d 73 5b 69 6e 64 .. params[ind
16e0: 65 78 2b 2b 5d 20 3d 20 4f 53 53 4c 5f 50 41 52 ex++] = OSSL_PAR
16f0: 41 4d 5f 63 6f 6e 73 74 72 75 63 74 5f 6f 63 74 AM_construct_oct
1700: 65 74 5f 73 74 72 69 6e 67 28 4f 53 53 4c 5f 43 et_string(OSSL_C
1710: 49 50 48 45 52 5f 50 41 52 41 4d 5f 49 56 2c 20 IPHER_PARAM_IV,
1720: 28 76 6f 69 64 20 2a 29 20 69 76 2c 20 28 73 69 (void *) iv, (si
1730: 7a 65 5f 74 29 20 69 76 5f 6c 65 6e 29 3b 0a 09 ze_t) iv_len);..
1740: 7d 0a 09 70 61 72 61 6d 73 5b 69 6e 64 65 78 5d }..params[index]
1750: 20 3d 20 4f 53 53 4c 5f 50 41 52 41 4d 5f 63 6f = OSSL_PARAM_co
1760: 6e 73 74 72 75 63 74 5f 65 6e 64 28 29 3b 0a 0a nstruct_end();..
1770: 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d 20 if (type ==
1780: 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b 0a TYPE_ENCRYPT) {.
1790: 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 79 .res = EVP_Encry
17a0: 70 74 49 6e 69 74 5f 65 78 32 28 63 74 78 2c 20 ptInit_ex2(ctx,
17b0: 63 69 70 68 65 72 2c 20 6b 65 79 2c 20 69 76 2c cipher, key, iv,
17c0: 20 70 61 72 61 6d 73 29 3b 0a 20 20 20 20 7d 20 params);. }
17d0: 65 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 else {..res = EV
17e0: 50 5f 44 65 63 72 79 70 74 49 6e 69 74 5f 65 78 P_DecryptInit_ex
17f0: 32 28 63 74 78 2c 20 63 69 70 68 65 72 2c 20 6b 2(ctx, cipher, k
1800: 65 79 2c 20 69 76 2c 20 70 61 72 61 6d 73 29 3b ey, iv, params);
1810: 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a 0a 20 . }.#endif..
1820: 20 20 20 69 66 28 21 72 65 73 29 20 7b 0a 09 54 if(!res) {..T
1830: 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 cl_AppendResult(
1840: 69 6e 74 65 72 70 2c 20 22 49 6e 69 74 69 61 6c interp, "Initial
1850: 69 7a 65 20 66 61 69 6c 65 64 3a 20 22 2c 20 52 ize failed: ", R
1860: 45 41 53 4f 4e 28 29 2c 20 4e 55 4c 4c 29 3b 0a EASON(), NULL);.
1870: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
1880: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 R;. }. ret
1890: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
18a0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
18e0: 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
18f0: 63 72 79 70 74 55 70 64 61 74 65 20 2d 2d 0a 20 cryptUpdate --.
1900: 2a 0a 20 2a 09 55 70 64 61 74 65 20 61 6e 20 65 *. *.Update an e
1910: 6e 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 ncryption functi
1920: 6f 6e 20 77 69 74 68 20 64 61 74 61 0a 20 2a 0a on with data. *.
1930: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 31 * Returns:. *.1
1940: 20 69 66 20 73 75 63 63 65 73 73 66 75 6c 20 6f if successful o
1950: 72 20 30 20 66 6f 72 20 66 61 69 6c 75 72 65 0a r 0 for failure.
1960: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
1970: 74 73 3a 0a 20 2a 09 41 64 64 73 20 65 6e 63 72 ts:. *.Adds encr
1980: 79 70 74 65 64 20 64 61 74 61 20 74 6f 20 62 75 ypted data to bu
1990: 66 66 65 72 20 6f 72 20 73 65 74 73 20 72 65 73 ffer or sets res
19a0: 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 73 ult to error mes
19b0: 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d sage. *. *------
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 0a 20 2a -------------. *
1a00: 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 55 70 64 /.int EncryptUpd
1a10: 61 74 65 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a ate(Tcl_Interp *
1a20: 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 79 70 65 interp, int type
1a30: 2c 20 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 , EVP_CIPHER_CTX
1a40: 20 2a 63 74 78 2c 20 75 6e 73 69 67 6e 65 64 20 *ctx, unsigned
1a50: 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 2c 0a 09 char *out_buf,..
1a60: 69 6e 74 20 2a 6f 75 74 5f 6c 65 6e 2c 20 75 6e int *out_len, un
1a70: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 64 61 74 signed char *dat
1a80: 61 2c 20 69 6e 74 20 64 61 74 61 5f 6c 65 6e 29 a, int data_len)
1a90: 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 3b 0a {. int res;.
1aa0: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
1ab0: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
1ac0: 45 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 Encrypt/decrypt
1ad0: 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 66 20 28 data */. if (
1ae0: 74 79 70 65 20 3d 3d 20 54 59 50 45 5f 45 4e 43 type == TYPE_ENC
1af0: 52 59 50 54 29 20 7b 0a 09 72 65 73 20 3d 20 45 RYPT) {..res = E
1b00: 56 50 5f 45 6e 63 72 79 70 74 55 70 64 61 74 65 VP_EncryptUpdate
1b10: 28 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f (ctx, out_buf, o
1b20: 75 74 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 ut_len, data, da
1b30: 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 20 65 ta_len);. } e
1b40: 6c 73 65 20 7b 0a 09 72 65 73 20 3d 20 45 56 50 lse {..res = EVP
1b50: 5f 44 65 63 72 79 70 74 55 70 64 61 74 65 28 63 _DecryptUpdate(c
1b60: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 tx, out_buf, out
1b70: 5f 6c 65 6e 2c 20 64 61 74 61 2c 20 64 61 74 61 _len, data, data
1b80: 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 _len);. }..
1b90: 20 20 69 66 20 28 72 65 73 29 20 7b 0a 09 72 65 if (res) {..re
1ba0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
1bb0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 } else {..Tcl_A
1bc0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
1bd0: 72 70 2c 20 22 55 70 64 61 74 65 20 66 61 69 6c rp, "Update fail
1be0: 65 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c ed: ", REASON(),
1bf0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
1c00: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
1c10: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
1c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
1c60: 20 2a 20 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 * EncryptFinali
1c70: 7a 65 20 2d 2d 0a 20 2a 0a 20 2a 09 46 69 6e 61 ze --. *. *.Fina
1c80: 6c 69 7a 65 20 61 6e 20 65 6e 63 72 79 70 74 69 lize an encrypti
1c90: 6f 6e 20 66 75 6e 63 74 69 6f 6e 0a 20 2a 0a 20 on function. *.
1ca0: 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 * Returns:. *.TC
1cb0: 4c 5f 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 L_OK if successf
1cc0: 75 6c 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 ul or TCL_ERROR
1cd0: 66 6f 72 20 66 61 69 6c 75 72 65 20 77 69 74 68 for failure with
1ce0: 20 72 65 73 75 6c 74 20 73 65 74 0a 20 2a 09 74 result set. *.t
1cf0: 6f 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 2e o error message.
1d00: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
1d10: 63 74 73 3a 0a 20 2a 09 41 64 64 73 20 65 6e 63 cts:. *.Adds enc
1d20: 72 79 70 74 65 64 20 64 61 74 61 20 74 6f 20 62 rypted data to b
1d30: 75 66 66 65 72 20 6f 72 20 73 65 74 73 20 72 65 uffer or sets re
1d40: 73 75 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 sult to error me
1d50: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
1d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
1da0: 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 46 69 */.int EncryptFi
1db0: 6e 61 6c 69 7a 65 28 54 63 6c 5f 49 6e 74 65 72 nalize(Tcl_Inter
1dc0: 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 74 p *interp, int t
1dd0: 79 70 65 2c 20 45 56 50 5f 43 49 50 48 45 52 5f ype, EVP_CIPHER_
1de0: 43 54 58 20 2a 63 74 78 2c 20 75 6e 73 69 67 6e CTX *ctx, unsign
1df0: 65 64 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 ed char *out_buf
1e00: 2c 0a 09 69 6e 74 20 2a 6f 75 74 5f 6c 65 6e 29 ,..int *out_len)
1e10: 20 7b 0a 20 20 20 20 69 6e 74 20 72 65 73 3b 0a {. int res;.
1e20: 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 . dprintf("Ca
1e30: 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 lled");.. /*
1e40: 46 69 6e 61 6c 69 7a 65 20 64 61 74 61 20 2a 2f Finalize data */
1e50: 0a 20 20 20 20 69 66 20 28 74 79 70 65 20 3d 3d . if (type ==
1e60: 20 54 59 50 45 5f 45 4e 43 52 59 50 54 29 20 7b TYPE_ENCRYPT) {
1e70: 0a 09 72 65 73 20 3d 20 45 56 50 5f 45 6e 63 72 ..res = EVP_Encr
1e80: 79 70 74 46 69 6e 61 6c 5f 65 78 28 63 74 78 2c yptFinal_ex(ctx,
1e90: 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 out_buf, out_le
1ea0: 6e 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b n);. } else {
1eb0: 0a 09 72 65 73 20 3d 20 45 56 50 5f 44 65 63 72 ..res = EVP_Decr
1ec0: 79 70 74 46 69 6e 61 6c 5f 65 78 28 63 74 78 2c yptFinal_ex(ctx,
1ed0: 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 out_buf, out_le
1ee0: 6e 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 n);. }.. i
1ef0: 66 20 28 72 65 73 29 20 7b 0a 09 72 65 74 75 72 f (res) {..retur
1f00: 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 20 n TCL_OK;. }
1f10: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 else {..Tcl_Appe
1f20: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
1f30: 20 22 46 69 6e 61 6c 69 7a 65 20 66 61 69 6c 65 "Finalize faile
1f40: 64 3a 20 22 2c 20 52 45 41 53 4f 4e 28 29 2c 20 d: ", REASON(),
1f50: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
1f60: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
1f70: 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a }../************
1f80: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1f90: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1fa0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
1fb0: 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a 2d *******/../*. *-
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2000: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
2010: 42 6c 6f 63 6b 4d 6f 64 65 50 72 6f 63 20 2d 2d BlockModeProc --
2020: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
2030: 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 tion is invoked
2040: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
2050: 4f 20 6c 65 76 65 6c 0a 20 2a 09 74 6f 20 73 65 O level. *.to se
2060: 74 20 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 6e t blocking and n
2070: 6f 6e 62 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65 73 onblocking modes
2080: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
2090: 0a 20 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 . *.0 if success
20a0: 66 75 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 ful or POSIX err
20b0: 6f 72 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 or code if faile
20c0: 64 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 d.. *. * Side ef
20d0: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 74 fects:. *.Sets t
20e0: 68 65 20 64 65 76 69 63 65 20 69 6e 74 6f 20 62 he device into b
20f0: 6c 6f 63 6b 69 6e 67 20 6f 72 20 6e 6f 6e 62 6c locking or nonbl
2100: 6f 63 6b 69 6e 67 20 6d 6f 64 65 2e 0a 20 2a 09 ocking mode.. *.
2110: 43 61 6e 20 63 61 6c 6c 20 54 63 6c 5f 53 65 74 Can call Tcl_Set
2120: 43 68 61 6e 6e 65 6c 45 72 72 6f 72 2e 0a 20 2a ChannelError.. *
2130: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
2140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2170: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
2180: 63 20 69 6e 74 20 45 6e 63 72 79 70 74 42 6c 6f c int EncryptBlo
2190: 63 6b 4d 6f 64 65 50 72 6f 63 28 43 6c 69 65 6e ckModeProc(Clien
21a0: 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 tData clientData
21b0: 2c 20 69 6e 74 20 6d 6f 64 65 29 20 7b 0a 20 20 , int mode) {.
21c0: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a EncryptState *
21d0: 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 statePtr = (Encr
21e0: 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 yptState *) clie
21f0: 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 69 66 20 ntData;.. if
2200: 28 6d 6f 64 65 20 3d 3d 20 54 43 4c 5f 4d 4f 44 (mode == TCL_MOD
2210: 45 5f 4e 4f 4e 42 4c 4f 43 4b 49 4e 47 29 20 7b E_NONBLOCKING) {
2220: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2230: 73 20 7c 3d 20 54 4c 53 5f 54 43 4c 5f 41 53 59 s |= TLS_TCL_ASY
2240: 4e 43 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b NC;. } else {
2250: 0a 09 73 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 ..statePtr->flag
2260: 73 20 26 3d 20 7e 28 54 4c 53 5f 54 43 4c 5f 41 s &= ~(TLS_TCL_A
2270: 53 59 4e 43 29 3b 0a 20 20 20 20 7d 0a 20 20 20 SYNC);. }.
2280: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
2290: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
22a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
22d0: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
22e0: 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 20 2d 2d ryptCloseProc --
22f0: 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 75 6e 63 . *. *.This func
2300: 74 69 6f 6e 20 69 73 20 69 6e 76 6f 6b 65 64 20 tion is invoked
2310: 62 79 20 74 68 65 20 67 65 6e 65 72 69 63 20 49 by the generic I
2320: 4f 20 6c 65 76 65 6c 20 74 6f 20 70 65 72 66 6f O level to perfo
2330: 72 6d 0a 20 2a 09 63 68 61 6e 6e 65 6c 2d 74 79 rm. *.channel-ty
2340: 70 65 20 73 70 65 63 69 66 69 63 20 63 6c 65 61 pe specific clea
2350: 6e 75 70 20 77 68 65 6e 20 74 68 65 20 63 68 61 nup when the cha
2360: 6e 6e 65 6c 20 69 73 20 63 6c 6f 73 65 64 2e 20 nnel is closed.
2370: 41 6c 6c 0a 20 2a 09 71 75 65 75 65 64 20 6f 75 All. *.queued ou
2380: 74 70 75 74 20 69 73 20 66 6c 75 73 68 65 64 20 tput is flushed
2390: 70 72 69 6f 72 20 74 6f 20 63 61 6c 6c 69 6e 67 prior to calling
23a0: 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 0a this function..
23b0: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
23c0: 2a 09 30 20 69 66 20 73 75 63 63 65 73 73 66 75 *.0 if successfu
23d0: 6c 20 6f 72 20 50 4f 53 49 58 20 65 72 72 6f 72 l or POSIX error
23e0: 20 63 6f 64 65 20 69 66 20 66 61 69 6c 65 64 2e code if failed.
23f0: 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 . *. * Side effe
2400: 63 74 73 3a 0a 20 2a 09 44 65 6c 65 74 65 73 20 cts:. *.Deletes
2410: 73 74 6f 72 65 64 20 73 74 61 74 65 20 64 61 74 stored state dat
2420: 61 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d a.. *. *--------
2430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
2470: 69 6e 74 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 int EncryptClose
2480: 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 20 Proc(ClientData
2490: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
24a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 20 Interp *interp)
24b0: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
24c0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
24d0: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
24e0: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 clientData;..
24f0: 20 2f 2a 20 43 61 6e 63 65 6c 20 61 63 74 69 76 /* Cancel activ
2500: 65 20 74 69 6d 65 72 2c 20 69 66 20 61 6e 79 20 e timer, if any
2510: 2a 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 */. if (state
2520: 50 74 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 Ptr->timer != (T
2530: 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e cl_TimerToken) N
2540: 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 ULL) {..Tcl_Dele
2550: 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 teTimerHandler(s
2560: 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b tatePtr->timer);
2570: 0a 09 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 ..statePtr->time
2580: 72 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f r = (Tcl_TimerTo
2590: 6b 65 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d ken) NULL;. }
25a0: 0a 0a 20 20 20 20 2f 2a 20 4f 75 74 70 75 74 20 .. /* Output
25b0: 72 65 6d 61 69 6e 69 6e 67 20 64 61 74 61 2c 20 remaining data,
25c0: 69 66 20 61 6e 79 20 2a 2f 0a 20 20 20 20 69 66 if any */. if
25d0: 20 28 21 28 73 74 61 74 65 50 74 72 2d 3e 66 6c (!(statePtr->fl
25e0: 61 67 73 20 26 20 43 48 41 4e 5f 45 4f 46 29 29 ags & CHAN_EOF))
25f0: 20 7b 0a 09 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 {..Tcl_Channel
2600: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
2610: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
2620: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
2630: 09 69 6e 74 20 6f 75 74 5f 6c 65 6e 3b 0a 09 75 .int out_len;..u
2640: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6f 75 74 nsigned char out
2650: 5f 62 75 66 5b 45 56 50 5f 4d 41 58 5f 42 4c 4f _buf[EVP_MAX_BLO
2660: 43 4b 5f 4c 45 4e 47 54 48 5d 3b 0a 0a 09 2f 2a CK_LENGTH];.../*
2670: 20 46 69 6e 61 6c 69 7a 65 20 66 75 6e 63 74 69 Finalize functi
2680: 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e 63 72 79 on */..if (Encry
2690: 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 65 72 ptFinalize(inter
26a0: 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 79 70 p, statePtr->typ
26b0: 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 74 78 e, statePtr->ctx
26c0: 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f , out_buf, &out_
26d0: 6c 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 len) == TCL_OK)
26e0: 7b 0a 09 20 20 20 20 69 66 20 28 6f 75 74 5f 6c {.. if (out_l
26f0: 65 6e 20 3e 20 30 29 20 7b 0a 09 09 69 6e 74 20 en > 0) {...int
2700: 6c 65 6e 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 len = Tcl_WriteR
2710: 61 77 28 70 61 72 65 6e 74 2c 20 28 63 6f 6e 73 aw(parent, (cons
2720: 74 20 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 t char *) out_bu
2730: 66 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 09 69 f, out_len);...i
2740: 66 20 28 6c 65 6e 20 3c 20 30 29 20 7b 0a 09 09 f (len < 0) {...
2750: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 return Tcl_G
2760: 65 74 45 72 72 6e 6f 28 29 3b 0a 09 09 7d 0a 09 etErrno();...}..
2770: 20 20 20 20 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a }..} else {.
2780: 09 20 20 20 20 2f 2a 20 45 72 72 6f 72 20 2a 2f . /* Error */
2790: 0a 09 7d 0a 0a 09 73 74 61 74 65 50 74 72 2d 3e ..}...statePtr->
27a0: 66 6c 61 67 73 20 7c 3d 20 43 48 41 4e 5f 45 4f flags |= CHAN_EO
27b0: 46 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a F;. }.. /*
27c0: 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 20 Clean-up */.
27d0: 20 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 EncryptStateFre
27e0: 65 28 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 e(statePtr);.
27f0: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 2f 2a return 0;.}../*
2800: 0a 20 2a 20 53 61 6d 65 20 61 73 20 45 6e 63 72 . * Same as Encr
2810: 79 70 74 43 6c 6f 73 65 50 72 6f 63 20 62 75 74 yptCloseProc but
2820: 20 77 69 74 68 20 69 6e 64 69 76 69 64 75 61 6c with individual
2830: 20 72 65 61 64 20 61 6e 64 20 77 72 69 74 65 20 read and write
2840: 63 6c 6f 73 65 20 63 6f 6e 74 72 6f 6c 0a 20 2a close control. *
2850: 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 /.static int Enc
2860: 72 79 70 74 43 6c 6f 73 65 32 50 72 6f 63 28 43 ryptClose2Proc(C
2870: 6c 69 65 6e 74 44 61 74 61 20 69 6e 73 74 61 6e lientData instan
2880: 63 65 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 ceData, Tcl_Inte
2890: 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 rp *interp, int
28a0: 66 6c 61 67 73 29 20 7b 0a 20 20 20 20 69 66 20 flags) {. if
28b0: 28 28 66 6c 61 67 73 20 26 20 28 54 43 4c 5f 43 ((flags & (TCL_C
28c0: 4c 4f 53 45 5f 52 45 41 44 20 7c 20 54 43 4c 5f LOSE_READ | TCL_
28d0: 43 4c 4f 53 45 5f 57 52 49 54 45 29 29 20 3d 3d CLOSE_WRITE)) ==
28e0: 20 30 29 20 7b 0a 09 72 65 74 75 72 6e 20 45 6e 0) {..return En
28f0: 63 72 79 70 74 43 6c 6f 73 65 50 72 6f 63 28 69 cryptCloseProc(i
2900: 6e 73 74 61 6e 63 65 44 61 74 61 2c 20 69 6e 74 nstanceData, int
2910: 65 72 70 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 erp);. }.
2920: 72 65 74 75 72 6e 20 45 49 4e 56 41 4c 3b 0a 7d return EINVAL;.}
2930: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
2940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
2980: 0a 20 2a 20 45 6e 63 72 79 70 74 49 6e 70 75 74 . * EncryptInput
2990: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
29a0: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
29b0: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
29c0: 20 72 65 61 64 20 64 61 74 61 20 66 72 6f 6d 20 read data from
29d0: 74 72 61 6e 73 66 6f 72 6d 20 61 6e 64 0a 20 2a transform and. *
29e0: 09 70 6c 61 63 65 20 69 6e 20 62 75 66 2e 20 54 .place in buf. T
29f0: 72 61 6e 73 66 6f 72 6d 20 67 65 74 73 20 64 61 ransform gets da
2a00: 74 61 20 66 72 6f 6d 20 74 68 65 20 75 6e 64 65 ta from the unde
2a10: 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e 0a rlying channel..
2a20: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
2a30: 2a 09 54 6f 74 61 6c 20 62 79 74 65 73 20 72 65 *.Total bytes re
2a40: 61 64 20 6f 72 20 2d 31 20 66 6f 72 20 61 6e 20 ad or -1 for an
2a50: 65 72 72 6f 72 20 61 6c 6f 6e 67 20 77 69 74 68 error along with
2a60: 20 61 20 50 4f 53 49 58 20 65 72 72 6f 72 0a 20 a POSIX error.
2a70: 2a 09 63 6f 64 65 20 69 6e 20 65 72 72 6f 72 43 *.code in errorC
2a80: 6f 64 65 50 74 72 2e 20 55 73 65 20 45 41 47 41 odePtr. Use EAGA
2a90: 49 4e 20 66 6f 72 20 6e 6f 6e 62 6c 6f 63 6b 69 IN for nonblocki
2aa0: 6e 67 20 61 6e 64 20 6e 6f 20 64 61 74 61 2e 0a ng and no data..
2ab0: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
2ac0: 74 73 3a 0a 20 2a 09 52 65 61 64 20 64 61 74 61 ts:. *.Read data
2ad0: 20 66 72 6f 6d 20 74 72 61 6e 73 66 6f 72 6d 20 from transform
2ae0: 61 6e 64 20 77 72 69 74 65 20 74 6f 20 62 75 66 and write to buf
2af0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
2b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
2b40: 0a 69 6e 74 20 45 6e 63 72 79 70 74 49 6e 70 75 .int EncryptInpu
2b50: 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 61 tProc(ClientData
2b60: 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 68 61 clientData, cha
2b70: 72 20 2a 62 75 66 2c 20 69 6e 74 20 74 6f 52 65 r *buf, int toRe
2b80: 61 64 2c 20 69 6e 74 20 2a 65 72 72 6f 72 43 6f ad, int *errorCo
2b90: 64 65 50 74 72 29 20 7b 0a 20 20 20 20 45 6e 63 dePtr) {. Enc
2ba0: 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 ryptState *state
2bb0: 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 Ptr = (EncryptSt
2bc0: 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 ate *) clientDat
2bd0: 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e a;. Tcl_Chann
2be0: 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 69 el parent;. i
2bf0: 6e 74 20 72 65 61 64 2c 20 6f 75 74 5f 6c 65 6e nt read, out_len
2c00: 3b 0a 20 20 20 20 2a 65 72 72 6f 72 43 6f 64 65 ;. *errorCode
2c10: 50 74 72 20 3d 20 30 3b 0a 20 20 20 20 63 68 61 Ptr = 0;. cha
2c20: 72 20 2a 69 6e 5f 62 75 66 3b 0a 20 20 20 20 0a r *in_buf;. .
2c30: 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 /* Abort if
2c40: 6e 6f 74 68 69 6e 67 20 74 6f 20 70 72 6f 63 65 nothing to proce
2c50: 73 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 74 6f ss */. if (to
2c60: 52 65 61 64 20 3c 3d 20 30 20 7c 7c 20 73 74 61 Read <= 0 || sta
2c70: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 tePtr->self == (
2c80: 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c Tcl_Channel) NUL
2c90: 4c 29 20 7b 0a 09 72 65 74 75 72 6e 20 30 3b 0a L) {..return 0;.
2ca0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
2cb0: 74 20 62 79 74 65 73 20 66 72 6f 6d 20 75 6e 64 t bytes from und
2cc0: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 20 erlying channel
2cd0: 2a 2f 0a 20 20 20 20 69 6e 5f 62 75 66 20 3d 20 */. in_buf =
2ce0: 54 63 6c 5f 41 6c 6c 6f 63 28 74 6f 52 65 61 64 Tcl_Alloc(toRead
2cf0: 29 3b 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 );. parent =
2d00: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
2d10: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
2d20: 73 65 6c 66 29 3b 0a 20 20 20 20 72 65 61 64 20 self);. read
2d30: 3d 20 54 63 6c 5f 52 65 61 64 52 61 77 28 70 61 = Tcl_ReadRaw(pa
2d40: 72 65 6e 74 2c 20 69 6e 5f 62 75 66 2c 20 74 6f rent, in_buf, to
2d50: 52 65 61 64 29 3b 0a 0a 20 20 20 20 2f 2a 20 55 Read);.. /* U
2d60: 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a pdate function *
2d70: 2f 0a 20 20 20 20 69 66 20 28 72 65 61 64 20 3e /. if (read >
2d80: 20 30 29 20 7b 0a 09 2f 2a 20 48 61 76 65 20 64 0) {../* Have d
2d90: 61 74 61 20 2d 20 55 70 64 61 74 65 20 66 75 6e ata - Update fun
2da0: 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 45 6e ction */..if (En
2db0: 63 72 79 70 74 55 70 64 61 74 65 28 73 74 61 74 cryptUpdate(stat
2dc0: 65 50 74 72 2d 3e 69 6e 74 65 72 70 2c 20 73 74 ePtr->interp, st
2dd0: 61 74 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 atePtr->type, st
2de0: 61 74 65 50 74 72 2d 3e 63 74 78 2c 20 62 75 66 atePtr->ctx, buf
2df0: 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f 62 , &out_len, in_b
2e00: 75 66 2c 20 72 65 61 64 29 20 3d 3d 20 54 43 4c uf, read) == TCL
2e10: 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 2f 2a 20 49 _OK) {.. /* I
2e20: 66 20 68 61 76 65 20 64 61 74 61 2c 20 70 75 74 f have data, put
2e30: 20 69 6e 20 62 75 66 2c 20 6f 74 68 65 72 77 69 in buf, otherwi
2e40: 73 65 20 74 65 6c 6c 20 54 43 4c 20 74 6f 20 74 se tell TCL to t
2e50: 72 79 20 61 67 61 69 6e 20 2a 2f 0a 09 20 20 20 ry again */..
2e60: 20 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 30 if (out_len > 0
2e70: 29 20 7b 0a 09 09 72 65 61 64 20 3d 20 6f 75 74 ) {...read = out
2e80: 5f 6c 65 6e 3b 0a 09 20 20 20 20 7d 20 65 6c 73 _len;.. } els
2e90: 65 20 7b 0a 09 09 2a 65 72 72 6f 72 43 6f 64 65 e {...*errorCode
2ea0: 50 74 72 20 3d 20 45 41 47 41 49 4e 3b 0a 09 09 Ptr = EAGAIN;...
2eb0: 72 65 61 64 20 3d 20 2d 31 3b 0a 09 20 20 20 20 read = -1;..
2ec0: 7d 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 }..} else {..
2ed0: 20 54 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 Tcl_SetChannelE
2ee0: 72 72 6f 72 28 73 74 61 74 65 50 74 72 2d 3e 73 rror(statePtr->s
2ef0: 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a 50 72 69 6e elf, Tcl_ObjPrin
2f00: 74 66 28 22 55 70 64 61 74 65 20 66 61 69 6c 65 tf("Update faile
2f10: 64 3a 20 25 73 22 2c 20 52 45 41 53 4f 4e 28 29 d: %s", REASON()
2f20: 29 29 3b 0a 09 20 20 20 20 2a 65 72 72 6f 72 43 ));.. *errorC
2f30: 6f 64 65 50 74 72 20 3d 20 45 49 4e 56 41 4c 3b odePtr = EINVAL;
2f40: 0a 09 20 20 20 20 72 65 61 64 20 3d 20 30 3b 0a .. read = 0;.
2f50: 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 .}.. } else i
2f60: 66 20 28 72 65 61 64 20 3c 20 30 29 20 7b 0a 09 f (read < 0) {..
2f70: 2f 2a 20 45 72 72 6f 72 20 2a 2f 0a 09 2a 65 72 /* Error */..*er
2f80: 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 54 63 6c rorCodePtr = Tcl
2f90: 5f 47 65 74 45 72 72 6e 6f 28 29 3b 0a 0a 20 20 _GetErrno();..
2fa0: 20 20 7d 20 65 6c 73 65 20 69 66 20 28 21 28 73 } else if (!(s
2fb0: 74 61 74 65 50 74 72 2d 3e 66 6c 61 67 73 20 26 tatePtr->flags &
2fc0: 20 43 48 41 4e 5f 45 4f 46 29 29 20 7b 0a 09 2f CHAN_EOF)) {../
2fd0: 2a 20 45 4f 46 20 2d 20 46 69 6e 61 6c 69 7a 65 * EOF - Finalize
2fe0: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 70 75 function and pu
2ff0: 74 20 61 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 t any remaining
3000: 64 61 74 61 20 69 6e 20 62 75 66 20 2a 2f 0a 09 data in buf */..
3010: 69 66 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c if (EncryptFinal
3020: 69 7a 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e ize(statePtr->in
3030: 74 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e terp, statePtr->
3040: 74 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e type, statePtr->
3050: 63 74 78 2c 20 62 75 66 2c 20 26 6f 75 74 5f 6c ctx, buf, &out_l
3060: 65 6e 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b en) == TCL_OK) {
3070: 0a 09 20 20 20 20 72 65 61 64 20 3d 20 6f 75 74 .. read = out
3080: 5f 6c 65 6e 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a _len;..} else {.
3090: 09 20 20 20 20 54 63 6c 5f 53 65 74 43 68 61 6e . Tcl_SetChan
30a0: 6e 65 6c 45 72 72 6f 72 28 73 74 61 74 65 50 74 nelError(statePt
30b0: 72 2d 3e 73 65 6c 66 2c 20 54 63 6c 5f 4f 62 6a r->self, Tcl_Obj
30c0: 50 72 69 6e 74 66 28 22 46 69 6e 61 6c 69 7a 65 Printf("Finalize
30d0: 20 66 61 69 6c 65 64 3a 20 25 73 22 2c 20 52 45 failed: %s", RE
30e0: 41 53 4f 4e 28 29 29 29 3b 0a 09 20 20 20 20 2a ASON()));.. *
30f0: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
3100: 49 4e 56 41 4c 3b 0a 09 20 20 20 20 72 65 61 64 INVAL;.. read
3110: 20 3d 20 30 3b 0a 09 7d 0a 0a 09 73 74 61 74 65 = 0;..}...state
3120: 50 74 72 2d 3e 66 6c 61 67 73 20 7c 3d 20 43 48 Ptr->flags |= CH
3130: 41 4e 5f 45 4f 46 3b 0a 20 20 20 20 7d 0a 20 20 AN_EOF;. }.
3140: 20 20 54 63 6c 5f 46 72 65 65 28 69 6e 5f 62 75 Tcl_Free(in_bu
3150: 66 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 72 f);. return r
3160: 65 61 64 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d ead;.}../*. *---
3170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3180: 2d 2d 2d 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 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
31c0: 74 4f 75 74 70 75 74 50 72 6f 63 20 2d 2d 0a 20 tOutputProc --.
31d0: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
31e0: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 he generic IO sy
31f0: 73 74 65 6d 20 74 6f 20 77 72 69 74 65 20 64 61 stem to write da
3200: 74 61 20 69 6e 20 62 75 66 20 74 6f 20 74 72 61 ta in buf to tra
3210: 6e 73 66 6f 72 6d 2e 0a 20 2a 09 54 68 65 20 74 nsform.. *.The t
3220: 72 61 6e 73 66 6f 72 6d 20 77 72 69 74 65 73 20 ransform writes
3230: 74 68 65 20 72 65 73 75 6c 74 20 74 6f 20 74 68 the result to th
3240: 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 68 61 e underlying cha
3250: 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 nnel.. *. * Retu
3260: 72 6e 73 3a 0a 20 2a 09 54 6f 74 61 6c 20 62 79 rns:. *.Total by
3270: 74 65 73 20 77 72 69 74 74 65 6e 20 6f 72 20 2d tes written or -
3280: 31 20 66 6f 72 20 61 6e 20 65 72 72 6f 72 20 61 1 for an error a
3290: 6c 6f 6e 67 20 77 69 74 68 20 61 20 50 4f 53 49 long with a POSI
32a0: 58 20 65 72 72 6f 72 0a 20 2a 09 63 6f 64 65 20 X error. *.code
32b0: 69 6e 20 65 72 72 6f 72 43 6f 64 65 50 74 72 2e in errorCodePtr.
32c0: 20 55 73 65 20 45 41 47 41 49 4e 20 66 6f 72 20 Use EAGAIN for
32d0: 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 20 61 6e 64 20 nonblocking and
32e0: 63 61 6e 27 74 20 77 72 69 74 65 20 64 61 74 61 can't write data
32f0: 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 .. *. * Side eff
3300: 65 63 74 73 3a 0a 20 2a 09 47 65 74 20 64 61 74 ects:. *.Get dat
3310: 61 20 66 72 6f 6d 20 62 75 66 20 61 6e 64 20 75 a from buf and u
3320: 70 64 61 74 65 20 65 6e 63 72 79 70 74 69 6f 6e pdate encryption
3330: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
3340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
3380: 0a 20 69 6e 74 20 45 6e 63 72 79 70 74 4f 75 74 . int EncryptOut
3390: 70 75 74 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 putProc(ClientDa
33a0: 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 63 ta clientData, c
33b0: 6f 6e 73 74 20 63 68 61 72 20 2a 62 75 66 2c 20 onst char *buf,
33c0: 69 6e 74 20 74 6f 57 72 69 74 65 2c 20 69 6e 74 int toWrite, int
33d0: 20 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 29 20 *errorCodePtr)
33e0: 7b 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 {. EncryptSta
33f0: 74 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 te *statePtr = (
3400: 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 EncryptState *)
3410: 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 clientData;.
3420: 69 6e 74 20 77 72 69 74 65 20 3d 20 30 2c 20 6f int write = 0, o
3430: 75 74 5f 6c 65 6e 3b 0a 20 20 20 20 2a 65 72 72 ut_len;. *err
3440: 6f 72 43 6f 64 65 50 74 72 20 3d 20 30 3b 0a 20 orCodePtr = 0;.
3450: 20 20 20 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 char *out_buf
3460: 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 ;.. /* Abort
3470: 69 66 20 6e 6f 74 68 69 6e 67 20 74 6f 20 70 72 if nothing to pr
3480: 6f 63 65 73 73 20 2a 2f 0a 20 20 20 20 69 66 20 ocess */. if
3490: 28 74 6f 57 72 69 74 65 20 3c 3d 20 30 20 7c 7c (toWrite <= 0 ||
34a0: 20 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 statePtr->self
34b0: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
34c0: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
34d0: 20 30 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6f 0;. }.. o
34e0: 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 41 6c 6c ut_buf = Tcl_All
34f0: 6f 63 28 74 6f 57 72 69 74 65 2b 45 56 50 5f 4d oc(toWrite+EVP_M
3500: 41 58 5f 42 4c 4f 43 4b 5f 4c 45 4e 47 54 48 29 AX_BLOCK_LENGTH)
3510: 3b 0a 0a 20 20 20 20 2f 2a 20 55 70 64 61 74 65 ;.. /* Update
3520: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 function */.
3530: 20 69 66 20 28 45 6e 63 72 79 70 74 55 70 64 61 if (EncryptUpda
3540: 74 65 28 73 74 61 74 65 50 74 72 2d 3e 69 6e 74 te(statePtr->int
3550: 65 72 70 2c 20 73 74 61 74 65 50 74 72 2d 3e 74 erp, statePtr->t
3560: 79 70 65 2c 20 73 74 61 74 65 50 74 72 2d 3e 63 ype, statePtr->c
3570: 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 26 6f 75 tx, out_buf, &ou
3580: 74 5f 6c 65 6e 2c 20 62 75 66 2c 20 74 6f 57 72 t_len, buf, toWr
3590: 69 74 65 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 ite) == TCL_OK)
35a0: 7b 0a 09 2f 2a 20 49 66 20 68 61 76 65 20 64 61 {../* If have da
35b0: 74 61 2c 20 6f 75 74 70 75 74 20 69 74 2c 20 6f ta, output it, o
35c0: 74 68 65 72 77 69 73 65 20 74 65 6c 6c 20 54 43 therwise tell TC
35d0: 4c 20 74 6f 20 74 72 79 20 61 67 61 69 6e 20 2a L to try again *
35e0: 2f 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e /..if (out_len >
35f0: 20 30 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 43 0) {.. Tcl_C
3600: 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 20 3d 20 hannel parent =
3610: 54 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 Tcl_GetStackedCh
3620: 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e annel(statePtr->
3630: 73 65 6c 66 29 3b 0a 09 20 20 20 20 77 72 69 74 self);.. writ
3640: 65 20 3d 20 54 63 6c 5f 57 72 69 74 65 52 61 77 e = Tcl_WriteRaw
3650: 28 70 61 72 65 6e 74 2c 20 28 63 6f 6e 73 74 20 (parent, (const
3660: 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c char *) out_buf,
3670: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 20 20 20 20 out_len);..
3680: 77 72 69 74 65 20 3d 20 74 6f 57 72 69 74 65 3b write = toWrite;
3690: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
36a0: 2a 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 *errorCodePtr =
36b0: 45 41 47 41 49 4e 3b 0a 09 20 20 20 20 77 72 69 EAGAIN;.. wri
36c0: 74 65 20 3d 20 2d 31 3b 0a 09 7d 0a 0a 20 20 20 te = -1;..}..
36d0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 } else {..Tcl_S
36e0: 65 74 43 68 61 6e 6e 65 6c 45 72 72 6f 72 28 73 etChannelError(s
36f0: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 2c 20 54 tatePtr->self, T
3700: 63 6c 5f 4f 62 6a 50 72 69 6e 74 66 28 22 55 70 cl_ObjPrintf("Up
3710: 64 61 74 65 20 66 61 69 6c 65 64 3a 20 25 73 22 date failed: %s"
3720: 2c 20 52 45 41 53 4f 4e 28 29 29 29 3b 0a 09 2a , REASON()));..*
3730: 65 72 72 6f 72 43 6f 64 65 50 74 72 20 3d 20 45 errorCodePtr = E
3740: 49 4e 56 41 4c 3b 0a 09 77 72 69 74 65 20 3d 20 INVAL;..write =
3750: 30 3b 0a 20 20 20 20 7d 0a 20 20 20 20 54 63 6c 0;. }. Tcl
3760: 5f 46 72 65 65 28 6f 75 74 5f 62 75 66 29 3b 0a _Free(out_buf);.
3770: 20 20 20 20 72 65 74 75 72 6e 20 77 72 69 74 65 return write
3780: 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d ;.}../*. *------
3790: 2d 2d 2d 2d 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: 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 53 65 . *. * EncryptSe
37e0: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2d 2d 0a 20 tOptionProc --.
37f0: 2a 0a 20 2a 09 43 61 6c 6c 65 64 20 62 79 20 74 *. *.Called by t
3800: 68 65 20 67 65 6e 65 72 69 63 20 49 4f 20 73 79 he generic IO sy
3810: 73 74 65 6d 20 74 6f 20 73 65 74 20 63 68 61 6e stem to set chan
3820: 6e 65 6c 20 6f 70 74 69 6f 6e 20 6e 61 6d 65 20 nel option name
3830: 74 6f 20 76 61 6c 75 65 2e 0a 20 2a 0a 20 2a 20 to value.. *. *
3840: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
3850: 4f 4b 20 69 66 20 73 75 63 63 65 73 73 66 75 6c OK if successful
3860: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 20 69 66 or TCL_ERROR if
3870: 20 66 61 69 6c 65 64 20 61 6c 6f 6e 67 20 77 69 failed along wi
3880: 74 68 20 61 6e 20 65 72 72 6f 72 0a 20 2a 09 6d th an error. *.m
3890: 65 73 73 61 67 65 20 69 6e 20 69 6e 74 65 72 70 essage in interp
38a0: 20 61 6e 64 20 54 63 6c 5f 53 65 74 45 72 72 6e and Tcl_SetErrn
38b0: 6f 2e 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 o.. *. * Side ef
38c0: 66 65 63 74 73 3a 0a 20 2a 09 55 70 64 61 74 65 fects:. *.Update
38d0: 73 20 63 68 61 6e 6e 65 6c 20 6f 70 74 69 6f 6e s channel option
38e0: 20 74 6f 20 6e 65 77 20 76 61 6c 75 65 2e 0a 20 to new value..
38f0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
3900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3910: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3920: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3930: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
3940: 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 70 tatic int Encryp
3950: 74 53 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 43 tSetOptionProc(C
3960: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
3970: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
3980: 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 20 *interp, const
3990: 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d 65 char *optionName
39a0: 2c 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 6f ,..const char *o
39b0: 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a 20 20 ptionValue) {.
39c0: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 20 2a EncryptState *
39d0: 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e 63 72 statePtr = (Encr
39e0: 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c 69 65 yptState *) clie
39f0: 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 6c 5f ntData;. Tcl_
3a00: 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 3b 0a Channel parent;.
3a10: 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 53 65 Tcl_DriverSe
3a20: 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 73 65 74 tOptionProc *set
3a30: 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 20 20 OptionProc;..
3a40: 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e 6f 20 /* Abort if no
3a50: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 69 channel */. i
3a60: 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 65 6c f (statePtr->sel
3a70: 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 f == (Tcl_Channe
3a80: 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 l) NULL) {..retu
3a90: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
3aa0: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 6c 65 }.. /* Dele
3ab0: 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 6f 77 gate options dow
3ac0: 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 20 70 nstream */. p
3ad0: 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 53 arent = Tcl_GetS
3ae0: 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 74 tackedChannel(st
3af0: 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a 20 atePtr->self);.
3b00: 20 20 20 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 setOptionProc
3b10: 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 53 65 = Tcl_ChannelSe
3b20: 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 6c 5f tOptionProc(Tcl_
3b30: 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 GetChannelType(p
3b40: 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 66 20 arent));. if
3b50: 28 73 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 21 (setOptionProc !
3b60: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 = NULL) {..retur
3b70: 6e 20 28 2a 73 65 74 4f 70 74 69 6f 6e 50 72 6f n (*setOptionPro
3b80: 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 c)(Tcl_GetChanne
3b90: 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 70 61 lInstanceData(pa
3ba0: 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c 20 6f rent), interp, o
3bb0: 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 69 6f ptionName, optio
3bc0: 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d 20 65 nValue);. } e
3bd0: 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 65 74 45 72 lse {..Tcl_SetEr
3be0: 72 6e 6f 28 45 49 4e 56 41 4c 29 3b 0a 09 72 65 rno(EINVAL);..re
3bf0: 74 75 72 6e 20 54 63 6c 5f 42 61 64 43 68 61 6e turn Tcl_BadChan
3c00: 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 65 72 70 nelOption(interp
3c10: 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 4e 55 , optionName, NU
3c20: 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f 2a LL);. }.}../*
3c30: 0a 20 2a 2d 2d 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 0a 20 2a 0a 20 2a 20 ---------. *. *
3c80: 45 6e 63 72 79 70 74 47 65 74 4f 70 74 69 6f 6e EncryptGetOption
3c90: 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 61 Proc --. *. *.Ca
3ca0: 6c 6c 65 64 20 62 79 20 74 68 65 20 67 65 6e 65 lled by the gene
3cb0: 72 69 63 20 49 4f 20 73 79 73 74 65 6d 20 74 6f ric IO system to
3cc0: 20 67 65 74 20 63 68 61 6e 6e 65 6c 20 6f 70 74 get channel opt
3cd0: 69 6f 6e 20 6e 61 6d 65 27 73 20 76 61 6c 75 65 ion name's value
3ce0: 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a .. *. * Returns:
3cf0: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 69 66 20 73 75 . *.TCL_OK if su
3d00: 63 63 65 73 73 66 75 6c 20 6f 72 20 54 43 4c 5f ccessful or TCL_
3d10: 45 52 52 4f 52 20 69 66 20 66 61 69 6c 65 64 20 ERROR if failed
3d20: 61 6c 6f 6e 67 20 77 69 74 68 20 61 6e 20 65 72 along with an er
3d30: 72 6f 72 0a 20 2a 09 6d 65 73 73 61 67 65 20 69 ror. *.message i
3d40: 6e 20 69 6e 74 65 72 70 20 61 6e 64 20 54 63 6c n interp and Tcl
3d50: 5f 53 65 74 45 72 72 6e 6f 2e 0a 20 2a 0a 20 2a _SetErrno.. *. *
3d60: 20 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 Side effects:.
3d70: 2a 09 53 65 74 73 20 72 65 73 75 6c 74 20 74 6f *.Sets result to
3d80: 20 6f 70 74 69 6f 6e 27 73 20 76 61 6c 75 65 0a option's value.
3d90: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
3da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a -----------. */.
3de0: 73 74 61 74 69 63 20 69 6e 74 20 45 6e 63 72 79 static int Encry
3df0: 70 74 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 ptGetOptionProc(
3e00: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
3e10: 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 tData, Tcl_Inter
3e20: 70 20 2a 69 6e 74 65 72 70 2c 20 63 6f 6e 73 74 p *interp, const
3e30: 20 63 68 61 72 20 2a 6f 70 74 69 6f 6e 4e 61 6d char *optionNam
3e40: 65 2c 0a 09 54 63 6c 5f 44 53 74 72 69 6e 67 20 e,..Tcl_DString
3e50: 2a 6f 70 74 69 6f 6e 56 61 6c 75 65 29 20 7b 0a *optionValue) {.
3e60: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
3e70: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e *statePtr = (En
3e80: 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c cryptState *) cl
3e90: 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 63 ientData;. Tc
3ea0: 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e 74 l_Channel parent
3eb0: 3b 0a 20 20 20 20 54 63 6c 5f 44 72 69 76 65 72 ;. Tcl_Driver
3ec0: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 20 2a 67 GetOptionProc *g
3ed0: 65 74 4f 70 74 69 6f 6e 50 72 6f 63 3b 0a 0a 20 etOptionProc;..
3ee0: 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 20 6e /* Abort if n
3ef0: 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 o channel */.
3f00: 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e 73 if (statePtr->s
3f10: 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e elf == (Tcl_Chan
3f20: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 nel) NULL) {..re
3f30: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
3f40: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 65 }.. /* De
3f50: 6c 65 67 61 74 65 20 6f 70 74 69 6f 6e 73 20 64 legate options d
3f60: 6f 77 6e 73 74 72 65 61 6d 20 2a 2f 0a 20 20 20 ownstream */.
3f70: 20 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 parent = Tcl_Ge
3f80: 74 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 tStackedChannel(
3f90: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b statePtr->self);
3fa0: 0a 20 20 20 20 67 65 74 4f 70 74 69 6f 6e 50 72 . getOptionPr
3fb0: 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 6c oc = Tcl_Channel
3fc0: 47 65 74 4f 70 74 69 6f 6e 50 72 6f 63 28 54 63 GetOptionProc(Tc
3fd0: 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 l_GetChannelType
3fe0: 28 70 61 72 65 6e 74 29 29 3b 0a 20 20 20 20 69 (parent));. i
3ff0: 66 20 28 67 65 74 4f 70 74 69 6f 6e 50 72 6f 63 f (getOptionProc
4000: 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 != NULL) {..ret
4010: 75 72 6e 20 28 2a 67 65 74 4f 70 74 69 6f 6e 50 urn (*getOptionP
4020: 72 6f 63 29 28 54 63 6c 5f 47 65 74 43 68 61 6e roc)(Tcl_GetChan
4030: 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 28 nelInstanceData(
4040: 70 61 72 65 6e 74 29 2c 20 69 6e 74 65 72 70 2c parent), interp,
4050: 20 6f 70 74 69 6f 6e 4e 61 6d 65 2c 20 6f 70 74 optionName, opt
4060: 69 6f 6e 56 61 6c 75 65 29 3b 0a 20 20 20 20 7d ionValue);. }
4070: 20 65 6c 73 65 20 69 66 20 28 6f 70 74 69 6f 6e else if (option
4080: 4e 61 6d 65 20 3d 3d 20 28 63 68 61 72 2a 29 20 Name == (char*)
4090: 4e 55 4c 4c 29 20 7b 0a 09 2f 2a 20 52 65 71 75 NULL) {../* Requ
40a0: 65 73 74 20 69 73 20 71 75 65 72 79 20 66 6f 72 est is query for
40b0: 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 2c 20 74 68 all options, th
40c0: 69 73 20 69 73 20 6f 6b 2e 20 2a 2f 0a 09 72 65 is is ok. */..re
40d0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 20 20 turn TCL_OK;.
40e0: 20 7d 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 53 } else {..Tcl_S
40f0: 65 74 45 72 72 6e 6f 28 45 49 4e 56 41 4c 29 3b etErrno(EINVAL);
4100: 0a 09 72 65 74 75 72 6e 20 54 63 6c 5f 42 61 64 ..return Tcl_Bad
4110: 43 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e ChannelOption(in
4120: 74 65 72 70 2c 20 6f 70 74 69 6f 6e 4e 61 6d 65 terp, optionName
4130: 2c 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 0a 7d , NULL);. }.}
4140: 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ../*. *---------
4150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4190: 0a 20 2a 20 45 6e 63 72 79 70 74 54 69 6d 65 72 . * EncryptTimer
41a0: 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a Handler --. *. *
41b0: 09 43 61 6c 6c 65 64 20 62 79 20 74 68 65 20 6e .Called by the n
41c0: 6f 74 69 66 69 65 72 20 76 69 61 20 74 69 6d 65 otifier via time
41d0: 72 20 74 6f 20 66 6c 75 73 68 20 6f 75 74 20 70 r to flush out p
41e0: 65 6e 64 69 6e 67 20 69 6e 70 75 74 20 64 61 74 ending input dat
41f0: 61 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 a.. *. * Returns
4200: 3a 0a 20 2a 09 4e 6f 74 68 69 6e 67 0a 20 2a 0a :. *.Nothing. *.
4210: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
4220: 0a 20 2a 09 4d 61 79 20 63 61 6c 6c 20 54 63 6c . *.May call Tcl
4230: 5f 4e 6f 74 69 66 79 43 68 61 6e 6e 65 6c 0a 20 _NotifyChannel.
4240: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
4250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 ----------. */.s
4290: 74 61 74 69 63 20 76 6f 69 64 20 45 6e 63 72 79 tatic void Encry
42a0: 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 43 ptTimerHandler(C
42b0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
42c0: 44 61 74 61 29 20 7b 0a 20 20 20 20 45 6e 63 72 Data) {. Encr
42d0: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
42e0: 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 tr = (EncryptSta
42f0: 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 te *) clientData
4300: 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 ;.. /* Abort
4310: 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f if no channel */
4320: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
4330: 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f r->self == (Tcl_
4340: 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b Channel) NULL) {
4350: 0a 09 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a ..return;. }.
4360: 0a 20 20 20 20 2f 2a 20 43 6c 65 61 72 20 74 69 . /* Clear ti
4370: 6d 65 72 20 74 6f 6b 65 6e 20 2a 2f 0a 20 20 20 mer token */.
4380: 20 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 statePtr->timer
4390: 20 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b = (Tcl_TimerTok
43a0: 65 6e 29 20 4e 55 4c 4c 3b 0a 0a 20 20 20 20 2f en) NULL;.. /
43b0: 2a 20 46 69 72 65 20 65 76 65 6e 74 20 69 66 20 * Fire event if
43c0: 74 68 65 72 65 20 69 73 20 70 65 6e 64 69 6e 67 there is pending
43d0: 20 64 61 74 61 2c 20 73 6b 69 70 20 6f 74 68 65 data, skip othe
43e0: 72 77 69 73 65 20 2a 2f 0a 20 20 20 20 69 66 20 rwise */. if
43f0: 28 28 73 74 61 74 65 50 74 72 2d 3e 77 61 74 63 ((statePtr->watc
4400: 68 4d 61 73 6b 20 26 20 54 43 4c 5f 52 45 41 44 hMask & TCL_READ
4410: 41 42 4c 45 29 20 26 26 20 28 54 63 6c 5f 49 6e ABLE) && (Tcl_In
4420: 70 75 74 42 75 66 66 65 72 65 64 28 73 74 61 74 putBuffered(stat
4430: 65 50 74 72 2d 3e 73 65 6c 66 29 20 3e 20 30 29 ePtr->self) > 0)
4440: 29 20 7b 0a 09 54 63 6c 5f 4e 6f 74 69 66 79 43 ) {..Tcl_NotifyC
4450: 68 61 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d hannel(statePtr-
4460: 3e 73 65 6c 66 2c 20 54 43 4c 5f 52 45 41 44 41 >self, TCL_READA
4470: 42 4c 45 29 3b 0a 20 20 20 20 7d 0a 7d 0a 0a 2f BLE);. }.}../
4480: 2a 0a 20 2a 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 2d 2d 2d 2d ----------------
44b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
44c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a ----------. *. *
44d0: 20 45 6e 63 72 79 70 74 57 61 74 63 68 50 72 6f EncryptWatchPro
44e0: 63 20 2d 2d 0a 20 2a 0a 20 2a 09 49 6e 69 74 69 c --. *. *.Initi
44f0: 61 6c 69 7a 65 20 74 68 65 20 6e 6f 74 69 66 69 alize the notifi
4500: 65 72 20 74 6f 20 77 61 74 63 68 20 66 6f 72 20 er to watch for
4510: 65 76 65 6e 74 73 20 66 72 6f 6d 20 74 68 69 73 events from this
4520: 20 63 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 channel.. *. *
4530: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 Returns:. *.Noth
4540: 69 6e 67 20 28 63 61 6e 27 74 20 72 65 74 75 72 ing (can't retur
4550: 6e 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 73 n error messages
4560: 29 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 ). *. * Side eff
4570: 65 63 74 73 3a 0a 20 2a 09 43 6f 6e 66 69 67 75 ects:. *.Configu
4580: 72 65 20 6e 6f 74 69 66 69 65 72 20 73 6f 20 66 re notifier so f
4590: 75 74 75 72 65 20 65 76 65 6e 74 73 20 6f 6e 20 uture events on
45a0: 74 68 65 20 63 68 61 6e 6e 65 6c 20 77 69 6c 6c the channel will
45b0: 20 62 65 20 73 65 65 6e 20 62 79 20 54 63 6c 2e be seen by Tcl.
45c0: 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *. *----------
45d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
45f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f ------------. */
4610: 0a 76 6f 69 64 20 45 6e 63 72 79 70 74 57 61 74 .void EncryptWat
4620: 63 68 50 72 6f 63 28 43 6c 69 65 6e 74 44 61 74 chProc(ClientDat
4630: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e a clientData, in
4640: 74 20 6d 61 73 6b 29 20 7b 0a 20 20 20 20 45 6e t mask) {. En
4650: 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 cryptState *stat
4660: 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 53 ePtr = (EncryptS
4670: 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 tate *) clientDa
4680: 74 61 3b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e ta;. Tcl_Chan
4690: 6e 65 6c 20 70 61 72 65 6e 74 3b 0a 20 20 20 20 nel parent;.
46a0: 54 63 6c 5f 44 72 69 76 65 72 57 61 74 63 68 50 Tcl_DriverWatchP
46b0: 72 6f 63 20 2a 77 61 74 63 68 50 72 6f 63 3b 0a roc *watchProc;.
46c0: 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 20 69 66 . /* Abort if
46d0: 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 no channel */.
46e0: 20 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d if (statePtr-
46f0: 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c 5f 43 68 >self == (Tcl_Ch
4700: 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 annel) NULL) {..
4710: 72 65 74 75 72 6e 3b 0a 20 20 20 20 7d 0a 0a 20 return;. }..
4720: 20 20 20 2f 2a 20 53 74 6f 72 65 20 4f 52 2d 65 /* Store OR-e
4730: 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 d combination of
4740: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c 20 54 TCL_READABLE, T
4750: 43 4c 5f 57 52 49 54 41 42 4c 45 20 61 6e 64 20 CL_WRITABLE and
4760: 54 43 4c 5f 45 58 43 45 50 54 49 4f 4e 20 2a 2f TCL_EXCEPTION */
4770: 0a 20 20 20 20 73 74 61 74 65 50 74 72 2d 3e 77 . statePtr->w
4780: 61 74 63 68 4d 61 73 6b 20 3d 20 6d 61 73 6b 3b atchMask = mask;
4790: 0a 0a 20 20 20 20 2f 2a 20 50 72 6f 70 61 67 61 .. /* Propaga
47a0: 74 65 20 6d 61 73 6b 20 69 6e 66 6f 20 74 6f 20 te mask info to
47b0: 70 61 72 65 6e 74 20 63 68 61 6e 6e 65 6c 20 2a parent channel *
47c0: 2f 0a 20 20 20 20 70 61 72 65 6e 74 20 3d 20 54 /. parent = T
47d0: 63 6c 5f 47 65 74 53 74 61 63 6b 65 64 43 68 61 cl_GetStackedCha
47e0: 6e 6e 65 6c 28 73 74 61 74 65 50 74 72 2d 3e 73 nnel(statePtr->s
47f0: 65 6c 66 29 3b 0a 20 20 20 20 77 61 74 63 68 50 elf);. watchP
4800: 72 6f 63 20 3d 20 54 63 6c 5f 43 68 61 6e 6e 65 roc = Tcl_Channe
4810: 6c 57 61 74 63 68 50 72 6f 63 28 54 63 6c 5f 47 lWatchProc(Tcl_G
4820: 65 74 43 68 61 6e 6e 65 6c 54 79 70 65 28 70 61 etChannelType(pa
4830: 72 65 6e 74 29 29 3b 0a 20 20 20 20 77 61 74 63 rent));. watc
4840: 68 50 72 6f 63 28 54 63 6c 5f 47 65 74 43 68 61 hProc(Tcl_GetCha
4850: 6e 6e 65 6c 49 6e 73 74 61 6e 63 65 44 61 74 61 nnelInstanceData
4860: 28 70 61 72 65 6e 74 29 2c 20 6d 61 73 6b 29 3b (parent), mask);
4870: 0a 0a 20 20 20 20 2f 2a 20 52 65 6d 6f 76 65 20 .. /* Remove
4880: 70 65 6e 64 69 6e 67 20 74 69 6d 65 72 20 2a 2f pending timer */
4890: 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 74 . if (statePt
48a0: 72 2d 3e 74 69 6d 65 72 20 21 3d 20 28 54 63 6c r->timer != (Tcl
48b0: 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c _TimerToken) NUL
48c0: 4c 29 20 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 L) {..Tcl_Delete
48d0: 54 69 6d 65 72 48 61 6e 64 6c 65 72 28 73 74 61 TimerHandler(sta
48e0: 74 65 50 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 tePtr->timer);..
48f0: 73 74 61 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 statePtr->timer
4900: 3d 20 28 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 = (Tcl_TimerToke
4910: 6e 29 20 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 0a n) NULL;. }..
4920: 20 20 20 20 2f 2a 20 49 66 20 74 68 65 72 65 20 /* If there
4930: 69 73 20 64 61 74 61 20 70 65 6e 64 69 6e 67 2c is data pending,
4940: 20 73 65 74 20 6e 65 77 20 74 69 6d 65 72 20 74 set new timer t
4950: 6f 20 63 61 6c 6c 20 54 63 6c 5f 4e 6f 74 69 66 o call Tcl_Notif
4960: 79 43 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 yChannel */.
4970: 69 66 20 28 28 6d 61 73 6b 20 26 20 54 43 4c 5f if ((mask & TCL_
4980: 52 45 41 44 41 42 4c 45 29 20 26 26 20 28 54 63 READABLE) && (Tc
4990: 6c 5f 49 6e 70 75 74 42 75 66 66 65 72 65 64 28 l_InputBuffered(
49a0: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 20 statePtr->self)
49b0: 3e 20 30 29 29 20 7b 0a 09 73 74 61 74 65 50 74 > 0)) {..statePt
49c0: 72 2d 3e 74 69 6d 65 72 20 3d 20 54 63 6c 5f 43 r->timer = Tcl_C
49d0: 72 65 61 74 65 54 69 6d 65 72 48 61 6e 64 6c 65 reateTimerHandle
49e0: 72 28 52 45 41 44 5f 44 45 4c 41 59 2c 20 45 6e r(READ_DELAY, En
49f0: 63 72 79 70 74 54 69 6d 65 72 48 61 6e 64 6c 65 cryptTimerHandle
4a00: 72 2c 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20 r, (ClientData)
4a10: 73 74 61 74 65 50 74 72 29 3b 0a 20 20 20 20 7d statePtr);. }
4a20: 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d .}../*. *-------
4a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
4a70: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 47 65 74 *. * EncryptGet
4a80: 48 61 6e 64 6c 65 50 72 6f 63 20 2d 2d 0a 20 2a HandleProc --. *
4a90: 0a 20 2a 09 43 61 6c 6c 65 64 20 66 72 6f 6d 20 . *.Called from
4aa0: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 48 61 Tcl_GetChannelHa
4ab0: 6e 64 6c 65 20 74 6f 20 72 65 74 72 69 65 76 65 ndle to retrieve
4ac0: 20 4f 53 20 73 70 65 63 69 66 69 63 20 66 69 6c OS specific fil
4ad0: 65 20 68 61 6e 64 6c 65 0a 20 2a 09 66 72 6f 6d e handle. *.from
4ae0: 20 69 6e 73 69 64 65 20 74 68 69 73 20 63 68 61 inside this cha
4af0: 6e 6e 65 6c 2e 20 4e 6f 74 20 75 73 65 64 20 66 nnel. Not used f
4b00: 6f 72 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f or transformatio
4b10: 6e 73 3f 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e ns?. *. * Return
4b20: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 66 6f 72 s:. *.TCL_OK for
4b30: 20 73 75 63 63 65 73 73 20 6f 72 20 54 43 4c 5f success or TCL_
4b40: 45 52 52 4f 52 20 66 6f 72 20 65 72 72 6f 72 20 ERROR for error
4b50: 6f 72 20 69 66 20 6e 6f 74 20 73 75 70 70 6f 72 or if not suppor
4b60: 74 65 64 2e 20 49 66 0a 20 2a 09 64 69 72 65 63 ted. If. *.direc
4b70: 74 69 6f 6e 20 69 73 20 54 43 4c 5f 52 45 41 44 tion is TCL_READ
4b80: 41 42 4c 45 2c 20 73 65 74 73 20 68 61 6e 64 6c ABLE, sets handl
4b90: 65 50 74 72 20 74 6f 20 74 68 65 20 68 61 6e 64 ePtr to the hand
4ba0: 6c 65 20 75 73 65 64 20 66 6f 72 0a 20 2a 09 69 le used for. *.i
4bb0: 6e 70 75 74 2c 20 6f 72 20 69 66 20 54 43 4c 5f nput, or if TCL_
4bc0: 57 52 49 54 41 42 4c 45 20 73 65 74 73 20 74 6f WRITABLE sets to
4bd0: 20 74 68 65 20 68 61 6e 64 6c 65 20 75 73 65 64 the handle used
4be0: 20 66 6f 72 20 6f 75 74 70 75 74 2e 0a 20 2a 0a for output.. *.
4bf0: 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 3a * Side effects:
4c00: 0a 20 2a 09 4e 6f 6e 65 0a 20 2a 0a 20 2a 2d 2d . *.None. *. *--
4c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4c50: 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 ----. */.int Enc
4c60: 72 79 70 74 47 65 74 48 61 6e 64 6c 65 50 72 6f ryptGetHandlePro
4c70: 63 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 c(ClientData cli
4c80: 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 64 69 72 entData, int dir
4c90: 65 63 74 69 6f 6e 2c 20 43 6c 69 65 6e 74 44 61 ection, ClientDa
4ca0: 74 61 20 2a 68 61 6e 64 6c 65 50 74 72 29 20 7b ta *handlePtr) {
4cb0: 0a 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 . EncryptStat
4cc0: 65 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 e *statePtr = (E
4cd0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 ncryptState *) c
4ce0: 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 20 20 54 lientData;. T
4cf0: 63 6c 5f 43 68 61 6e 6e 65 6c 20 70 61 72 65 6e cl_Channel paren
4d00: 74 3b 0a 0a 20 20 20 20 2f 2a 20 41 62 6f 72 74 t;.. /* Abort
4d10: 20 69 66 20 6e 6f 20 63 68 61 6e 6e 65 6c 20 2a if no channel *
4d20: 2f 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 50 /. if (stateP
4d30: 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 6c tr->self == (Tcl
4d40: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
4d50: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
4d60: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
4d70: 70 61 72 65 6e 74 20 3d 20 54 63 6c 5f 47 65 74 parent = Tcl_Get
4d80: 53 74 61 63 6b 65 64 43 68 61 6e 6e 65 6c 28 73 StackedChannel(s
4d90: 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 29 3b 0a tatePtr->self);.
4da0: 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c 5f 47 return Tcl_G
4db0: 65 74 43 68 61 6e 6e 65 6c 48 61 6e 64 6c 65 28 etChannelHandle(
4dc0: 70 61 72 65 6e 74 2c 20 64 69 72 65 63 74 69 6f parent, directio
4dd0: 6e 2c 20 68 61 6e 64 6c 65 50 74 72 29 3b 0a 7d n, handlePtr);.}
4de0: 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a -------------. *
4e30: 0a 20 2a 20 45 6e 63 72 79 70 74 4e 6f 74 69 66 . * EncryptNotif
4e40: 79 50 72 6f 63 20 2d 2d 0a 20 2a 0a 20 2a 09 43 yProc --. *. *.C
4e50: 61 6c 6c 65 64 20 62 79 20 54 63 6c 20 74 6f 20 alled by Tcl to
4e60: 69 6e 66 6f 72 6d 20 75 73 20 6f 66 20 61 63 74 inform us of act
4e70: 69 76 69 74 79 20 6f 6e 20 74 68 65 20 75 6e 64 ivity on the und
4e80: 65 72 6c 79 69 6e 67 20 63 68 61 6e 6e 65 6c 2e erlying channel.
4e90: 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a . *. * Returns:.
4ea0: 20 2a 09 55 6e 63 68 61 6e 67 65 64 20 69 6e 74 *.Unchanged int
4eb0: 65 72 65 73 74 4d 61 73 6b 20 77 68 69 63 68 20 erestMask which
4ec0: 69 73 20 61 6e 20 4f 52 2d 65 64 20 63 6f 6d 62 is an OR-ed comb
4ed0: 69 6e 61 74 69 6f 6e 20 6f 66 20 54 43 4c 5f 52 ination of TCL_R
4ee0: 45 41 44 41 42 4c 45 20 6f 72 20 54 43 4c 5f 57 EADABLE or TCL_W
4ef0: 52 49 54 41 42 4c 45 0a 20 2a 0a 20 2a 20 53 69 RITABLE. *. * Si
4f00: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
4f10: 61 6e 63 65 6c 73 20 61 6e 79 20 70 65 6e 64 69 ancels any pendi
4f20: 6e 67 20 74 69 6d 65 72 2e 0a 20 2a 0a 20 2a 2d ng timer.. *. *-
4f30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
4f70: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
4f80: 63 72 79 70 74 4e 6f 74 69 66 79 50 72 6f 63 28 cryptNotifyProc(
4f90: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e ClientData clien
4fa0: 74 44 61 74 61 2c 20 69 6e 74 20 69 6e 74 65 72 tData, int inter
4fb0: 65 73 74 4d 61 73 6b 29 20 7b 0a 20 20 20 20 45 estMask) {. E
4fc0: 6e 63 72 79 70 74 53 74 61 74 65 20 2a 73 74 61 ncryptState *sta
4fd0: 74 65 50 74 72 20 3d 20 28 45 6e 63 72 79 70 74 tePtr = (Encrypt
4fe0: 53 74 61 74 65 20 2a 29 20 63 6c 69 65 6e 74 44 State *) clientD
4ff0: 61 74 61 3b 0a 0a 20 20 20 20 2f 2a 20 53 6b 69 ata;.. /* Ski
5000: 70 20 74 69 6d 65 72 20 65 76 65 6e 74 20 61 73 p timer event as
5010: 20 72 65 64 75 6e 64 61 6e 74 20 2a 2f 0a 20 20 redundant */.
5020: 20 20 69 66 20 28 73 74 61 74 65 50 74 72 2d 3e if (statePtr->
5030: 74 69 6d 65 72 20 21 3d 20 28 54 63 6c 5f 54 69 timer != (Tcl_Ti
5040: 6d 65 72 54 6f 6b 65 6e 29 20 4e 55 4c 4c 29 20 merToken) NULL)
5050: 7b 0a 09 54 63 6c 5f 44 65 6c 65 74 65 54 69 6d {..Tcl_DeleteTim
5060: 65 72 48 61 6e 64 6c 65 72 28 73 74 61 74 65 50 erHandler(stateP
5070: 74 72 2d 3e 74 69 6d 65 72 29 3b 0a 09 73 74 61 tr->timer);..sta
5080: 74 65 50 74 72 2d 3e 74 69 6d 65 72 20 3d 20 28 tePtr->timer = (
5090: 54 63 6c 5f 54 69 6d 65 72 54 6f 6b 65 6e 29 20 Tcl_TimerToken)
50a0: 4e 55 4c 4c 3b 0a 20 20 20 20 7d 0a 20 20 20 20 NULL;. }.
50b0: 72 65 74 75 72 6e 20 69 6e 74 65 72 65 73 74 4d return interestM
50c0: 61 73 6b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 0a 20 2a ask;.}../*. *. *
50d0: 20 43 68 61 6e 6e 65 6c 20 74 79 70 65 20 73 74 Channel type st
50e0: 72 75 63 74 75 72 65 20 64 65 66 69 6e 69 74 69 ructure definiti
50f0: 6f 6e 20 66 6f 72 20 65 6e 63 72 79 70 74 69 6f on for encryptio
5100: 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e n transformation
5110: 73 2e 0a 20 2a 0a 20 2a 2f 0a 73 74 61 74 69 63 s.. *. */.static
5120: 20 63 6f 6e 73 74 20 54 63 6c 5f 43 68 61 6e 6e const Tcl_Chann
5130: 65 6c 54 79 70 65 20 65 6e 63 72 79 70 74 43 68 elType encryptCh
5140: 61 6e 6e 65 6c 54 79 70 65 20 3d 20 7b 0a 20 20 annelType = {.
5150: 20 20 22 65 6e 63 72 79 70 74 69 6f 6e 22 2c 09 "encryption",.
5160: 09 2f 2a 20 54 79 70 65 20 6e 61 6d 65 20 2a 2f ./* Type name */
5170: 0a 20 20 20 20 54 43 4c 5f 43 48 41 4e 4e 45 4c . TCL_CHANNEL
5180: 5f 56 45 52 53 49 4f 4e 5f 35 2c 09 2f 2a 20 76 _VERSION_5,./* v
5190: 35 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 5 channel */.
51a0: 20 45 6e 63 72 79 70 74 43 6c 6f 73 65 50 72 6f EncryptClosePro
51b0: 63 2c 09 09 2f 2a 20 43 6c 6f 73 65 20 70 72 6f c,../* Close pro
51c0: 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 c */. Encrypt
51d0: 49 6e 70 75 74 50 72 6f 63 2c 09 09 2f 2a 20 49 InputProc,../* I
51e0: 6e 70 75 74 20 70 72 6f 63 20 2a 2f 0a 20 20 20 nput proc */.
51f0: 20 45 6e 63 72 79 70 74 4f 75 74 70 75 74 50 72 EncryptOutputPr
5200: 6f 63 2c 09 09 2f 2a 20 4f 75 74 70 75 74 20 70 oc,../* Output p
5210: 72 6f 63 20 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c roc */. NULL,
5220: 09 09 09 2f 2a 20 53 65 65 6b 20 70 72 6f 63 20 .../* Seek proc
5230: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 53 65 */. EncryptSe
5240: 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 tOptionProc,./*
5250: 53 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 Set option proc
5260: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 65 */. EncryptGe
5270: 74 4f 70 74 69 6f 6e 50 72 6f 63 2c 09 2f 2a 20 tOptionProc,./*
5280: 47 65 74 20 6f 70 74 69 6f 6e 20 70 72 6f 63 20 Get option proc
5290: 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 57 61 */. EncryptWa
52a0: 74 63 68 50 72 6f 63 2c 09 09 2f 2a 20 49 6e 69 tchProc,../* Ini
52b0: 74 69 61 6c 69 7a 65 20 6e 6f 74 69 66 69 65 72 tialize notifier
52c0: 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 47 */. EncryptG
52d0: 65 74 48 61 6e 64 6c 65 50 72 6f 63 2c 09 2f 2a etHandleProc,./*
52e0: 20 47 65 74 20 4f 53 20 68 61 6e 64 6c 65 73 20 Get OS handles
52f0: 6f 75 74 20 6f 66 20 63 68 61 6e 6e 65 6c 20 2a out of channel *
5300: 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 43 6c 6f /. EncryptClo
5310: 73 65 32 50 72 6f 63 2c 09 09 2f 2a 20 63 6c 6f se2Proc,../* clo
5320: 73 65 32 70 72 6f 63 20 2a 2f 0a 20 20 20 20 45 se2proc */. E
5330: 6e 63 72 79 70 74 42 6c 6f 63 6b 4d 6f 64 65 50 ncryptBlockModeP
5340: 72 6f 63 2c 09 2f 2a 20 53 65 74 20 62 6c 6f 63 roc,./* Set bloc
5350: 6b 69 6e 67 2f 6e 6f 6e 62 6c 6f 63 6b 69 6e 67 king/nonblocking
5360: 20 6d 6f 64 65 2a 2f 0a 20 20 20 20 4e 55 4c 4c mode*/. NULL
5370: 2c 09 09 09 2f 2a 20 46 6c 75 73 68 20 70 72 6f ,.../* Flush pro
5380: 63 20 2a 2f 0a 20 20 20 20 45 6e 63 72 79 70 74 c */. Encrypt
5390: 4e 6f 74 69 66 79 50 72 6f 63 2c 09 09 2f 2a 20 NotifyProc,../*
53a0: 48 61 6e 64 6c 69 6e 67 20 6f 66 20 65 76 65 6e Handling of even
53b0: 74 73 20 62 75 62 62 6c 69 6e 67 20 75 70 20 2a ts bubbling up *
53c0: 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f 2a /. NULL,.../*
53d0: 20 57 69 64 65 20 73 65 65 6b 20 70 72 6f 63 20 Wide seek proc
53e0: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 2c 09 09 09 2f */. NULL,.../
53f0: 2a 20 54 68 72 65 61 64 20 61 63 74 69 6f 6e 20 * Thread action
5400: 2a 2f 0a 20 20 20 20 4e 55 4c 4c 09 09 09 2f 2a */. NULL.../*
5410: 20 54 72 75 6e 63 61 74 65 20 2a 2f 0a 7d 3b 0a Truncate */.};.
5420: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a ------------. *.
5470: 20 2a 20 45 6e 63 72 79 70 74 43 68 61 6e 6e 65 * EncryptChanne
5480: 6c 48 61 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 lHandler --. *.
5490: 2a 09 43 72 65 61 74 65 20 61 20 73 74 61 63 6b *.Create a stack
54a0: 65 64 20 63 68 61 6e 6e 65 6c 20 66 6f 72 20 61 ed channel for a
54b0: 20 6d 65 73 73 61 67 65 20 65 6e 63 72 79 70 74 message encrypt
54c0: 69 6f 6e 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 ion transformati
54d0: 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e on.. *. * Return
54e0: 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 s:. *.TCL_OK or
54f0: 54 43 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 TCL_ERROR. *. *
5500: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a Side effects:. *
5510: 09 41 64 64 73 20 74 72 61 6e 73 66 6f 72 6d 20 .Adds transform
5520: 74 6f 20 63 68 61 6e 6e 65 6c 20 61 6e 64 20 73 to channel and s
5530: 65 74 73 20 72 65 73 75 6c 74 20 74 6f 20 63 68 ets result to ch
5540: 61 6e 6e 65 6c 20 69 64 20 6f 72 20 65 72 72 6f annel id or erro
5550: 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a 20 2a r message.. *. *
5560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
55a0: 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 73 74 61 74 69 ------. */.stati
55b0: 63 20 69 6e 74 20 45 6e 63 72 79 70 74 43 68 61 c int EncryptCha
55c0: 6e 6e 65 6c 48 61 6e 64 6c 65 72 28 54 63 6c 5f nnelHandler(Tcl_
55d0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
55e0: 69 6e 74 20 74 79 70 65 2c 20 63 6f 6e 73 74 20 int type, const
55f0: 63 68 61 72 20 2a 63 68 61 6e 6e 65 6c 2c 0a 09 char *channel,..
5600: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
5610: 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 bj, Tcl_Obj *dig
5620: 65 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 estObj, Tcl_Obj
5630: 2a 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a *keyObj, Tcl_Obj
5640: 20 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 69 *ivObj) {. i
5650: 6e 74 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 nt mode; /* OR-e
5660: 64 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 d combination of
5670: 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e TCL_READABLE an
5680: 64 20 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 2a d TCL_WRITABLE *
5690: 2f 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e 65 /. Tcl_Channe
56a0: 6c 20 63 68 61 6e 3b 0a 20 20 20 20 45 6e 63 72 l chan;. Encr
56b0: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
56c0: 74 72 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 tr;.. dprintf
56d0: 28 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 ("Called");..
56e0: 20 2f 2a 20 56 61 6c 69 64 61 74 65 20 61 72 67 /* Validate arg
56f0: 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 63 68 61 s */. if (cha
5700: 6e 6e 65 6c 20 3d 3d 20 28 63 6f 6e 73 74 20 63 nnel == (const c
5710: 68 61 72 20 2a 29 20 4e 55 4c 4c 29 20 7b 0a 09 har *) NULL) {..
5720: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 Tcl_AppendResult
5730: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 63 68 61 (interp, "No cha
5740: 6e 6e 65 6c 22 2c 20 28 63 68 61 72 20 2a 29 20 nnel", (char *)
5750: 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 NULL);..return T
5760: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a CL_ERROR;. }.
5770: 0a 20 20 20 20 2f 2a 20 47 65 74 20 63 68 61 6e . /* Get chan
5780: 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 20 63 68 nel Id */. ch
5790: 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 68 61 6e an = Tcl_GetChan
57a0: 6e 65 6c 28 69 6e 74 65 72 70 2c 20 63 68 61 6e nel(interp, chan
57b0: 6e 65 6c 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 nel, &mode);.
57c0: 20 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 if (chan == (Tc
57d0: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
57e0: 20 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 {..return TCL_E
57f0: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 RROR;. }..
5800: 20 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f /* Make sure to
5810: 20 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 operate on the
5820: 74 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 topmost channel
5830: 2a 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 */. chan = Tc
5840: 6c 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 l_GetTopChannel(
5850: 63 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 chan);.. /* C
5860: 6f 6e 66 69 67 75 72 65 20 63 68 61 6e 6e 65 6c onfigure channel
5870: 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 53 65 74 43 */. Tcl_SetC
5880: 68 61 6e 6e 65 6c 4f 70 74 69 6f 6e 28 69 6e 74 hannelOption(int
5890: 65 72 70 2c 20 63 68 61 6e 2c 20 22 2d 74 72 61 erp, chan, "-tra
58a0: 6e 73 6c 61 74 69 6f 6e 22 2c 20 22 62 69 6e 61 nslation", "bina
58b0: 72 79 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 72 ry");.. /* Cr
58c0: 65 61 74 65 20 73 74 61 74 65 20 64 61 74 61 20 eate state data
58d0: 73 74 72 75 63 74 75 72 65 20 2a 2f 0a 20 20 20 structure */.
58e0: 20 69 66 20 28 28 73 74 61 74 65 50 74 72 20 3d if ((statePtr =
58f0: 20 45 6e 63 72 79 70 74 53 74 61 74 65 4e 65 77 EncryptStateNew
5900: 28 69 6e 74 65 72 70 2c 20 74 79 70 65 29 29 20 (interp, type))
5910: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f == NULL) {..Tcl_
5920: 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 AppendResult(int
5930: 65 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c erp, "Memory all
5940: 6f 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 ocation error",
5950: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
5960: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5970: 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 74 61 R;. }. sta
5980: 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d 20 63 68 tePtr->self = ch
5990: 61 6e 3b 0a 20 20 20 20 73 74 61 74 65 50 74 72 an;. statePtr
59a0: 2d 3e 6d 6f 64 65 20 3d 20 6d 6f 64 65 3b 0a 0a ->mode = mode;..
59b0: 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a /* Initializ
59c0: 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 e function */.
59d0: 20 20 69 66 20 28 45 6e 63 72 79 70 74 49 6e 69 if (EncryptIni
59e0: 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 2c 20 tialize(interp,
59f0: 74 79 70 65 2c 20 26 73 74 61 74 65 50 74 72 2d type, &statePtr-
5a00: 3e 63 74 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c >ctx, cipherObj,
5a10: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 20 keyObj, ivObj)
5a20: 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 45 6e != TCL_OK) {..En
5a30: 63 72 79 70 74 53 74 61 74 65 46 72 65 65 28 73 cryptStateFree(s
5a40: 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 75 72 tatePtr);..retur
5a50: 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 n TCL_ERROR;.
5a60: 20 7d 0a 0a 20 20 20 20 2f 2a 20 53 74 61 63 6b }.. /* Stack
5a70: 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 channel */.
5a80: 73 74 61 74 65 50 74 72 2d 3e 73 65 6c 66 20 3d statePtr->self =
5a90: 20 54 63 6c 5f 53 74 61 63 6b 43 68 61 6e 6e 65 Tcl_StackChanne
5aa0: 6c 28 69 6e 74 65 72 70 2c 20 26 65 6e 63 72 79 l(interp, &encry
5ab0: 70 74 43 68 61 6e 6e 65 6c 54 79 70 65 2c 20 28 ptChannelType, (
5ac0: 43 6c 69 65 6e 74 44 61 74 61 29 20 73 74 61 74 ClientData) stat
5ad0: 65 50 74 72 2c 20 6d 6f 64 65 2c 20 63 68 61 6e ePtr, mode, chan
5ae0: 29 3b 0a 20 20 20 20 69 66 20 28 73 74 61 74 65 );. if (state
5af0: 50 74 72 2d 3e 73 65 6c 66 20 3d 3d 20 28 54 63 Ptr->self == (Tc
5b00: 6c 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 l_Channel) NULL)
5b10: 20 7b 0a 09 45 6e 63 72 79 70 74 53 74 61 74 65 {..EncryptState
5b20: 46 72 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a Free(statePtr);.
5b30: 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f .return TCL_ERRO
5b40: 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a R;. }.. /*
5b50: 20 53 65 74 20 72 65 73 75 6c 74 20 74 6f 20 63 Set result to c
5b60: 68 61 6e 6e 65 6c 20 49 64 20 2a 2f 0a 20 20 20 hannel Id */.
5b70: 20 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 Tcl_SetResult(i
5b80: 6e 74 65 72 70 2c 20 28 63 68 61 72 20 2a 29 20 nterp, (char *)
5b90: 54 63 6c 5f 47 65 74 43 68 61 6e 6e 65 6c 4e 61 Tcl_GetChannelNa
5ba0: 6d 65 28 63 68 61 6e 29 2c 20 54 43 4c 5f 56 4f me(chan), TCL_VO
5bb0: 4c 41 54 49 4c 45 29 3b 0a 20 20 20 20 72 65 74 LATILE);. ret
5bc0: 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f urn TCL_OK;.}../
5bd0: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
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 0a 20 2a 0a 20 2a ----------. *. *
5c20: 20 55 6e 73 74 61 63 6b 20 43 68 61 6e 6e 65 6c Unstack Channel
5c30: 20 2d 2d 0a 20 2a 0a 20 2a 09 54 68 69 73 20 66 --. *. *.This f
5c40: 75 6e 63 74 69 6f 6e 20 72 65 6d 6f 76 65 73 20 unction removes
5c50: 74 68 65 20 73 74 61 63 6b 65 64 20 63 68 61 6e the stacked chan
5c60: 6e 65 6c 20 66 72 6f 6d 20 74 68 65 20 74 6f 70 nel from the top
5c70: 20 6f 66 20 74 68 65 0a 20 2a 09 63 68 61 6e 6e of the. *.chann
5c80: 65 6c 20 73 74 61 63 6b 20 69 66 20 69 74 20 69 el stack if it i
5c90: 73 20 61 20 65 6e 63 72 79 70 74 69 6f 6e 20 63 s a encryption c
5ca0: 68 61 6e 6e 65 6c 2e 0a 20 2a 0a 20 2a 20 52 65 hannel.. *. * Re
5cb0: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
5cc0: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
5cd0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
5ce0: 3a 0a 20 2a 09 52 65 6d 6f 76 65 73 20 74 72 61 :. *.Removes tra
5cf0: 6e 73 66 6f 72 6d 20 66 72 6f 6d 20 63 68 61 6e nsform from chan
5d00: 6e 65 6c 20 6f 72 20 73 65 74 73 20 72 65 73 75 nel or sets resu
5d10: 6c 74 20 74 6f 20 65 72 72 6f 72 20 6d 65 73 73 lt to error mess
5d20: 61 67 65 2e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d age.. *. *------
5d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
5d70: 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 . */.static int
5d80: 45 6e 63 72 79 70 74 55 6e 73 74 61 63 6b 4f 62 EncryptUnstackOb
5d90: 6a 43 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 jCmd(ClientData
5da0: 63 6c 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f clientData, Tcl_
5db0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 Interp *interp,
5dc0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 int objc, Tcl_Ob
5dd0: 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 j *const objv[])
5de0: 20 7b 0a 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e {. Tcl_Chann
5df0: 65 6c 20 63 68 61 6e 3b 0a 20 20 20 20 69 6e 74 el chan;. int
5e00: 20 6d 6f 64 65 3b 20 2f 2a 20 4f 52 2d 65 64 20 mode; /* OR-ed
5e10: 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 54 combination of T
5e20: 43 4c 5f 52 45 41 44 41 42 4c 45 20 61 6e 64 20 CL_READABLE and
5e30: 54 43 4c 5f 57 52 49 54 41 42 4c 45 20 20 2a 2f TCL_WRITABLE */
5e40: 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 .. dprintf("C
5e50: 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a alled");.. /*
5e60: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f Validate arg co
5e70: 75 6e 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f unt */. if (o
5e80: 62 6a 63 20 21 3d 20 32 29 20 7b 0a 09 54 63 6c bjc != 2) {..Tcl
5e90: 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e _WrongNumArgs(in
5ea0: 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 terp, 1, objv, "
5eb0: 63 68 61 6e 6e 65 6c 49 64 22 29 3b 0a 09 72 65 channelId");..re
5ec0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a turn TCL_ERROR;.
5ed0: 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 }.. /* Ge
5ee0: 74 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 t channel */.
5ef0: 20 63 68 61 6e 20 3d 20 54 63 6c 5f 47 65 74 43 chan = Tcl_GetC
5f00: 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c 20 54 hannel(interp, T
5f10: 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f 6d cl_GetStringFrom
5f20: 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 4e 55 4c Obj(objv[1], NUL
5f30: 4c 29 2c 20 26 6d 6f 64 65 29 3b 0a 20 20 20 20 L), &mode);.
5f40: 69 66 20 28 63 68 61 6e 20 3d 3d 20 28 54 63 6c if (chan == (Tcl
5f50: 5f 43 68 61 6e 6e 65 6c 29 20 4e 55 4c 4c 29 20 _Channel) NULL)
5f60: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
5f70: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
5f80: 2f 2a 20 4d 61 6b 65 20 73 75 72 65 20 74 6f 20 /* Make sure to
5f90: 6f 70 65 72 61 74 65 20 6f 6e 20 74 68 65 20 74 operate on the t
5fa0: 6f 70 6d 6f 73 74 20 63 68 61 6e 6e 65 6c 20 2a opmost channel *
5fb0: 2f 0a 20 20 20 20 63 68 61 6e 20 3d 20 54 63 6c /. chan = Tcl
5fc0: 5f 47 65 74 54 6f 70 43 68 61 6e 6e 65 6c 28 63 _GetTopChannel(c
5fd0: 68 61 6e 29 3b 0a 0a 20 20 20 20 2f 2a 20 43 68 han);.. /* Ch
5fe0: 65 63 6b 20 69 66 20 65 6e 63 72 79 70 74 69 6f eck if encryptio
5ff0: 6e 20 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 n channel */.
6000: 20 69 66 20 28 54 63 6c 5f 47 65 74 43 68 61 6e if (Tcl_GetChan
6010: 6e 65 6c 54 79 70 65 28 63 68 61 6e 29 20 21 3d nelType(chan) !=
6020: 20 26 65 6e 63 72 79 70 74 43 68 61 6e 6e 65 6c &encryptChannel
6030: 54 79 70 65 29 20 7b 0a 09 54 63 6c 5f 41 70 70 Type) {..Tcl_App
6040: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
6050: 2c 20 22 62 61 64 20 63 68 61 6e 6e 65 6c 20 5c , "bad channel \
6060: 22 22 2c 20 54 63 6c 5f 47 65 74 43 68 61 6e 6e "", Tcl_GetChann
6070: 65 6c 4e 61 6d 65 28 63 68 61 6e 29 2c 0a 09 20 elName(chan),..
6080: 20 20 20 22 5c 22 3a 20 6e 6f 74 20 61 20 65 6e "\": not a en
6090: 63 72 79 70 74 69 6f 6e 20 63 68 61 6e 6e 65 6c cryption channel
60a0: 22 2c 20 4e 55 4c 4c 29 3b 0a 09 54 63 6c 5f 53 ", NULL);..Tcl_S
60b0: 65 74 45 72 72 6f 72 43 6f 64 65 28 69 6e 74 65 etErrorCode(inte
60c0: 72 70 2c 20 22 54 4c 53 22 2c 20 22 55 4e 53 54 rp, "TLS", "UNST
60d0: 41 43 4b 22 2c 20 22 43 48 41 4e 4e 45 4c 22 2c ACK", "CHANNEL",
60e0: 20 22 49 4e 56 41 4c 49 44 22 2c 20 28 63 68 61 "INVALID", (cha
60f0: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 r *) NULL);..ret
6100: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
6110: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 50 6f 70 }.. /* Pop
6120: 20 74 72 61 6e 73 66 6f 72 6d 20 66 72 6f 6d 20 transform from
6130: 63 68 61 6e 6e 65 6c 20 2a 2f 0a 20 20 20 20 72 channel */. r
6140: 65 74 75 72 6e 20 54 63 6c 5f 55 6e 73 74 61 63 eturn Tcl_Unstac
6150: 6b 43 68 61 6e 6e 65 6c 28 69 6e 74 65 72 70 2c kChannel(interp,
6160: 20 63 68 61 6e 29 3b 0a 20 20 20 20 09 63 6c 69 chan);. .cli
6170: 65 6e 74 44 61 74 61 20 3d 20 63 6c 69 65 6e 74 entData = client
6180: 44 61 74 61 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a Data;.}../******
6190: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
61a0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
61b0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
61c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a *************/..
61d0: 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6210: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 --------. *. * E
6220: 6e 63 72 79 70 74 49 6e 73 74 61 6e 63 65 4f 62 ncryptInstanceOb
6230: 6a 43 6d 64 20 2d 2d 0a 20 2a 0a 20 2a 09 48 61 jCmd --. *. *.Ha
6240: 6e 64 6c 65 72 20 66 6f 72 20 65 6e 63 72 79 70 ndler for encryp
6250: 74 2f 64 65 63 72 79 70 74 20 63 6f 6d 6d 61 6e t/decrypt comman
6260: 64 20 69 6e 73 74 61 6e 63 65 73 2e 20 55 73 65 d instances. Use
6270: 64 20 74 6f 20 75 70 64 61 74 65 0a 20 2a 09 61 d to update. *.a
6280: 6e 64 20 66 69 6e 61 6c 69 7a 65 20 64 61 74 61 nd finalize data
6290: 20 66 6f 72 20 65 6e 63 72 79 70 74 2f 64 65 63 for encrypt/dec
62a0: 72 79 70 74 20 66 75 6e 63 74 69 6f 6e 2e 0a 20 rypt function..
62b0: 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a *. * Returns:. *
62c0: 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 .TCL_OK or TCL_E
62d0: 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 RROR. *. * Side
62e0: 65 66 66 65 63 74 73 3a 0a 20 2a 09 41 64 64 73 effects:. *.Adds
62f0: 20 64 61 74 61 20 74 6f 20 65 6e 63 72 79 70 74 data to encrypt
6300: 2f 64 65 63 72 79 70 74 20 66 75 6e 63 74 69 6f /decrypt functio
6310: 6e 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d n. *. *---------
6320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 ----------. */.i
6360: 6e 74 20 45 6e 63 72 79 70 74 49 6e 73 74 61 6e nt EncryptInstan
6370: 63 65 4f 62 6a 43 6d 64 28 43 6c 69 65 6e 74 44 ceObjCmd(ClientD
6380: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 ata clientData,
6390: 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 Tcl_Interp *inte
63a0: 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54 63 rp, int objc, Tc
63b0: 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 74 20 6f 62 6a l_Obj *const obj
63c0: 76 5b 5d 29 20 7b 0a 20 20 20 20 45 6e 63 72 79 v[]) {. Encry
63d0: 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 74 ptState *statePt
63e0: 72 20 3d 20 28 45 6e 63 72 79 70 74 53 74 61 74 r = (EncryptStat
63f0: 65 20 2a 29 20 63 6c 69 65 6e 74 44 61 74 61 3b e *) clientData;
6400: 0a 20 20 20 20 69 6e 74 20 66 6e 2c 20 64 61 74 . int fn, dat
6410: 61 5f 6c 65 6e 20 3d 20 30 2c 20 6f 75 74 5f 6c a_len = 0, out_l
6420: 65 6e 3b 0a 20 20 20 20 63 68 61 72 20 2a 64 61 en;. char *da
6430: 74 61 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 54 ta = NULL;. T
6440: 63 6c 5f 4f 62 6a 20 2a 72 65 73 75 6c 74 4f 62 cl_Obj *resultOb
6450: 6a 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 20 j;. unsigned
6460: 63 68 61 72 20 2a 6f 75 74 5f 62 75 66 3b 0a 20 char *out_buf;.
6470: 20 20 20 73 74 61 74 69 63 20 63 6f 6e 73 74 20 static const
6480: 63 68 61 72 20 2a 69 6e 73 74 61 6e 63 65 5f 66 char *instance_f
6490: 6e 73 20 5b 5d 20 3d 20 7b 20 22 66 69 6e 61 6c ns [] = { "final
64a0: 69 7a 65 22 2c 20 22 75 70 64 61 74 65 22 2c 20 ize", "update",
64b0: 4e 55 4c 4c 20 7d 3b 0a 0a 20 20 20 20 64 70 72 NULL };.. dpr
64c0: 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b 0a intf("Called");.
64d0: 0a 20 20 20 20 2f 2a 20 56 61 6c 69 64 61 74 65 . /* Validate
64e0: 20 61 72 67 20 63 6f 75 6e 74 20 2a 2f 0a 20 20 arg count */.
64f0: 20 20 69 66 20 28 6f 62 6a 63 20 3c 20 32 20 7c if (objc < 2 |
6500: 7c 20 6f 62 6a 63 20 3e 20 33 29 20 7b 0a 09 54 | objc > 3) {..T
6510: 63 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 cl_WrongNumArgs(
6520: 69 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c interp, 1, objv,
6530: 20 22 66 75 6e 63 74 69 6f 6e 20 3f 64 61 74 61 "function ?data
6540: 3f 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c ?");..return TCL
6550: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
6560: 20 20 20 2f 2a 20 47 65 74 20 66 75 6e 63 74 69 /* Get functi
6570: 6f 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 54 63 on */. if (Tc
6580: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 l_GetIndexFromOb
6590: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 31 j(interp, objv[1
65a0: 5d 2c 20 69 6e 73 74 61 6e 63 65 5f 66 6e 73 2c ], instance_fns,
65b0: 20 22 66 75 6e 63 74 69 6f 6e 22 2c 20 30 2c 20 "function", 0,
65c0: 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 &fn) != TCL_OK)
65d0: 7b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 {..return TCL_ER
65e0: 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ROR;. }..
65f0: 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 74 6f 72 /* Allocate stor
6600: 61 67 65 20 66 6f 72 20 72 65 73 75 6c 74 2e 20 age for result.
6610: 53 69 7a 65 20 73 68 6f 75 6c 64 20 62 65 20 64 Size should be d
6620: 61 74 61 20 73 69 7a 65 20 2b 20 62 6c 6f 63 6b ata size + block
6630: 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 20 72 65 size. */. re
6640: 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f 4e 65 sultObj = Tcl_Ne
6650: 77 4f 62 6a 28 29 3b 0a 20 20 20 20 6f 75 74 5f wObj();. out_
6660: 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 buf = Tcl_SetByt
6670: 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 65 73 eArrayLength(res
6680: 75 6c 74 4f 62 6a 2c 20 64 61 74 61 5f 6c 65 6e ultObj, data_len
6690: 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f 4c +EVP_MAX_BLOCK_L
66a0: 45 4e 47 54 48 29 3b 0a 20 20 20 20 69 66 20 28 ENGTH);. if (
66b0: 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e 55 4c resultObj == NUL
66c0: 4c 20 7c 7c 20 6f 75 74 5f 62 75 66 20 3d 3d 20 L || out_buf ==
66d0: 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 70 NULL) {..Tcl_App
66e0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
66f0: 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f 63 61 , "Memory alloca
6700: 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 63 68 tion error", (ch
6710: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 54 63 ar *) NULL);..Tc
6720: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 l_DecrRefCount(r
6730: 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 72 65 74 75 esultObj);..retu
6740: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 rn TCL_ERROR;.
6750: 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 44 6f 20 66 }.. /* Do f
6760: 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 69 unction */. i
6770: 66 20 28 66 6e 29 20 7b 0a 09 2f 2a 20 47 65 74 f (fn) {../* Get
6780: 20 64 61 74 61 20 6f 72 20 72 65 74 75 72 6e 20 data or return
6790: 65 72 72 6f 72 20 69 66 20 6e 6f 6e 65 20 2a 2f error if none */
67a0: 0a 09 69 66 20 28 6f 62 6a 63 20 3d 3d 20 33 29 ..if (objc == 3)
67b0: 20 7b 0a 09 20 20 20 20 64 61 74 61 20 3d 20 54 {.. data = T
67c0: 63 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 cl_GetByteArrayF
67d0: 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 32 5d 2c 20 romObj(objv[2],
67e0: 26 64 61 74 61 5f 6c 65 6e 29 3b 0a 09 7d 20 65 &data_len);..} e
67f0: 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c 5f 57 lse {.. Tcl_W
6800: 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69 6e 74 65 rongNumArgs(inte
6810: 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20 22 75 70 rp, 1, objv, "up
6820: 64 61 74 65 20 64 61 74 61 22 29 3b 0a 09 20 20 date data");..
6830: 20 20 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 Tcl_DecrRefCou
6840: 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 nt(resultObj);..
6850: 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 return TCL_E
6860: 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a 20 55 70 RROR;..}.../* Up
6870: 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f date function */
6880: 0a 09 69 66 20 28 45 6e 63 72 79 70 74 55 70 64 ..if (EncryptUpd
6890: 61 74 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 ate(interp, stat
68a0: 65 50 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 ePtr->type, stat
68b0: 65 50 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 ePtr->ctx, out_b
68c0: 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 61 uf, &out_len, da
68d0: 74 61 2c 20 64 61 74 61 5f 6c 65 6e 29 20 3d 3d ta, data_len) ==
68e0: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 TCL_OK) {..
68f0: 6f 75 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 out_buf = Tcl_Se
6900: 74 42 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 tByteArrayLength
6910: 28 72 65 73 75 6c 74 4f 62 6a 2c 20 6f 75 74 5f (resultObj, out_
6920: 6c 65 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 len);.. Tcl_S
6930: 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 etObjResult(inte
6940: 72 70 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a rp, resultObj);.
6950: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 .} else {.. T
6960: 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 cl_DecrRefCount(
6970: 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 resultObj);..
6980: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f return TCL_ERRO
6990: 52 3b 0a 09 7d 0a 0a 20 20 20 20 7d 20 65 6c 73 R;..}.. } els
69a0: 65 20 7b 0a 09 2f 2a 20 46 69 6e 61 6c 69 7a 65 e {../* Finalize
69b0: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 09 69 66 function */..if
69c0: 20 28 45 6e 63 72 79 70 74 46 69 6e 61 6c 69 7a (EncryptFinaliz
69d0: 65 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 e(interp, stateP
69e0: 74 72 2d 3e 74 79 70 65 2c 20 73 74 61 74 65 50 tr->type, stateP
69f0: 74 72 2d 3e 63 74 78 2c 20 6f 75 74 5f 62 75 66 tr->ctx, out_buf
6a00: 2c 20 26 6f 75 74 5f 6c 65 6e 29 20 3d 3d 20 54 , &out_len) == T
6a10: 43 4c 5f 4f 4b 29 20 7b 0a 09 20 20 20 20 6f 75 CL_OK) {.. ou
6a20: 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 t_buf = Tcl_SetB
6a30: 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 yteArrayLength(r
6a40: 65 73 75 6c 74 4f 62 6a 2c 20 6f 75 74 5f 6c 65 esultObj, out_le
6a50: 6e 29 3b 0a 09 20 20 20 20 54 63 6c 5f 53 65 74 n);.. Tcl_Set
6a60: 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 ObjResult(interp
6a70: 2c 20 72 65 73 75 6c 74 4f 62 6a 29 3b 0a 09 7d , resultObj);..}
6a80: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 54 63 6c else {.. Tcl
6a90: 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 _DecrRefCount(re
6aa0: 73 75 6c 74 4f 62 6a 29 3b 0a 09 20 20 20 20 72 sultObj);.. r
6ab0: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b eturn TCL_ERROR;
6ac0: 0a 09 7d 0a 0a 09 2f 2a 20 43 6c 65 61 6e 2d 75 ..}.../* Clean-u
6ad0: 70 20 2a 2f 0a 09 54 63 6c 5f 44 65 6c 65 74 65 p */..Tcl_Delete
6ae0: 43 6f 6d 6d 61 6e 64 46 72 6f 6d 54 6f 6b 65 6e CommandFromToken
6af0: 28 69 6e 74 65 72 70 2c 20 73 74 61 74 65 50 74 (interp, statePt
6b00: 72 2d 3e 74 6f 6b 65 6e 29 3b 0a 20 20 20 20 7d r->token);. }
6b10: 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43 4c 5f . return TCL_
6b20: 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 20 2a 2d 2d 2d 2d OK;.}../*. *----
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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
6b70: 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 43 6f 6d *. * EncryptCom
6b80: 6d 61 6e 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 mandDeleteHandle
6b90: 72 20 2d 2d 0a 20 2a 0a 20 2a 09 20 43 61 6c 6c r --. *. *. Call
6ba0: 62 61 63 6b 20 74 6f 20 63 6c 65 61 6e 2d 75 70 back to clean-up
6bb0: 20 77 68 65 6e 20 65 6e 63 72 79 70 74 2f 64 65 when encrypt/de
6bc0: 63 72 79 70 74 20 63 6f 6d 6d 61 6e 64 20 69 73 crypt command is
6bd0: 20 64 65 6c 65 74 65 64 2e 0a 20 2a 0a 20 2a 20 deleted.. *. *
6be0: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 4e 6f 74 68 Returns:. *.Noth
6bf0: 69 6e 67 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 ing. *. * Side e
6c00: 66 66 65 63 74 73 3a 0a 20 2a 09 44 65 73 74 72 ffects:. *.Destr
6c10: 6f 79 73 20 73 74 61 74 65 20 69 6e 66 6f 20 73 oys state info s
6c20: 74 72 75 63 74 75 72 65 0a 20 2a 0a 20 2a 2d 2d tructure. *. *--
6c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6c70: 2d 0a 20 2a 2f 0a 76 6f 69 64 20 45 6e 63 72 79 -. */.void Encry
6c80: 70 74 43 6f 6d 6d 61 6e 64 44 65 6c 65 74 65 48 ptCommandDeleteH
6c90: 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 andler(ClientDat
6ca0: 61 20 63 6c 69 65 6e 74 44 61 74 61 29 20 7b 0a a clientData) {.
6cb0: 20 20 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 EncryptState
6cc0: 20 2a 73 74 61 74 65 50 74 72 20 3d 20 28 45 6e *statePtr = (En
6cd0: 63 72 79 70 74 53 74 61 74 65 20 2a 29 20 63 6c cryptState *) cl
6ce0: 69 65 6e 74 44 61 74 61 3b 0a 0a 20 20 20 20 2f ientData;.. /
6cf0: 2a 20 43 6c 65 61 6e 2d 75 70 20 2a 2f 0a 20 20 * Clean-up */.
6d00: 20 20 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 EncryptStateFr
6d10: 65 65 28 73 74 61 74 65 50 74 72 29 3b 0a 7d 0a ee(statePtr);.}.
6d20: 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 ---------. *. *
6d70: 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 EncryptCommandHa
6d80: 6e 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 20 ndler --. *. *.
6d90: 43 72 65 61 74 65 20 63 6f 6d 6d 61 6e 64 20 74 Create command t
6da0: 6f 20 61 64 64 20 64 61 74 61 20 74 6f 20 65 6e o add data to en
6db0: 63 72 79 70 74 2f 64 65 63 72 79 70 74 20 66 75 crypt/decrypt fu
6dc0: 6e 63 74 69 6f 6e 2e 0a 20 2a 0a 20 2a 20 52 65 nction.. *. * Re
6dd0: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
6de0: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
6df0: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
6e00: 3a 0a 20 2a 09 43 72 65 61 74 65 73 20 63 6f 6d :. *.Creates com
6e10: 6d 61 6e 64 20 6f 72 20 65 72 72 6f 72 20 6d 65 mand or error me
6e20: 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d 2d ssage. *. *-----
6e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
6e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
6e70: 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 70 74 43 6f */.int EncryptCo
6e80: 6d 6d 61 6e 64 48 61 6e 64 6c 65 72 28 54 63 6c mmandHandler(Tcl
6e90: 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c _Interp *interp,
6ea0: 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f 4f int type, Tcl_O
6eb0: 62 6a 20 2a 63 6d 64 4f 62 6a 2c 0a 09 54 63 6c bj *cmdObj,..Tcl
6ec0: 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a 2c _Obj *cipherObj,
6ed0: 20 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 73 74 Tcl_Obj *digest
6ee0: 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 Obj, Tcl_Obj *ke
6ef0: 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 yObj, Tcl_Obj *i
6f00: 76 4f 62 6a 29 20 7b 0a 20 20 20 20 45 6e 63 72 vObj) {. Encr
6f10: 79 70 74 53 74 61 74 65 20 2a 73 74 61 74 65 50 yptState *stateP
6f20: 74 72 3b 0a 20 20 20 20 63 68 61 72 20 2a 63 6d tr;. char *cm
6f30: 64 4e 61 6d 65 20 3d 20 54 63 6c 5f 47 65 74 53 dName = Tcl_GetS
6f40: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 63 6d 64 tringFromObj(cmd
6f50: 4f 62 6a 2c 20 4e 55 4c 4c 29 3b 0a 0a 20 20 20 Obj, NULL);..
6f60: 20 64 70 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 dprintf("Called
6f70: 22 29 3b 0a 0a 20 20 20 20 69 66 20 28 28 73 74 ");.. if ((st
6f80: 61 74 65 50 74 72 20 3d 20 45 6e 63 72 79 70 74 atePtr = Encrypt
6f90: 53 74 61 74 65 4e 65 77 28 69 6e 74 65 72 70 2c StateNew(interp,
6fa0: 20 74 79 70 65 29 29 20 3d 3d 20 4e 55 4c 4c 29 type)) == NULL)
6fb0: 20 7b 0a 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 {..Tcl_AppendRe
6fc0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4d 65 sult(interp, "Me
6fd0: 6d 6f 72 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 mory allocation
6fe0: 65 72 72 6f 72 22 2c 20 28 63 68 61 72 20 2a 29 error", (char *)
6ff0: 20 4e 55 4c 4c 29 3b 0a 09 72 65 74 75 72 6e 20 NULL);..return
7000: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d TCL_ERROR;. }
7010: 0a 0a 20 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c .. /* Initial
7020: 69 7a 65 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a ize function */.
7030: 20 20 20 20 69 66 20 28 45 6e 63 72 79 70 74 49 if (EncryptI
7040: 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74 65 72 70 nitialize(interp
7050: 2c 20 74 79 70 65 2c 20 26 73 74 61 74 65 50 74 , type, &statePt
7060: 72 2d 3e 63 74 78 2c 20 63 69 70 68 65 72 4f 62 r->ctx, cipherOb
7070: 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a j, keyObj, ivObj
7080: 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 ) != TCL_OK) {..
7090: 45 6e 63 72 79 70 74 53 74 61 74 65 46 72 65 65 EncryptStateFree
70a0: 28 73 74 61 74 65 50 74 72 29 3b 0a 09 72 65 74 (statePtr);..ret
70b0: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 urn TCL_ERROR;.
70c0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 72 65 }.. /* Cre
70d0: 61 74 65 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d ate instance com
70e0: 6d 61 6e 64 20 2a 2f 0a 20 20 20 20 73 74 61 74 mand */. stat
70f0: 65 50 74 72 2d 3e 74 6f 6b 65 6e 20 3d 20 54 63 ePtr->token = Tc
7100: 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 l_CreateObjComma
7110: 6e 64 28 69 6e 74 65 72 70 2c 20 63 6d 64 4e 61 nd(interp, cmdNa
7120: 6d 65 2c 20 45 6e 63 72 79 70 74 49 6e 73 74 61 me, EncryptInsta
7130: 6e 63 65 4f 62 6a 43 6d 64 2c 0a 09 28 43 6c 69 nceObjCmd,..(Cli
7140: 65 6e 74 44 61 74 61 29 20 73 74 61 74 65 50 74 entData) statePt
7150: 72 2c 20 45 6e 63 72 79 70 74 43 6f 6d 6d 61 6e r, EncryptComman
7160: 64 44 65 6c 65 74 65 48 61 6e 64 6c 65 72 29 3b dDeleteHandler);
7170: 0a 0a 20 20 20 20 2f 2a 20 52 65 74 75 72 6e 20 .. /* Return
7180: 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 2a 2f 0a command name */.
7190: 20 20 20 20 54 63 6c 5f 53 65 74 4f 62 6a 52 65 Tcl_SetObjRe
71a0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 63 6d 64 sult(interp, cmd
71b0: 4f 62 6a 29 3b 0a 20 20 20 20 72 65 74 75 72 6e Obj);. return
71c0: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 2a 2a TCL_OK;.}../***
71d0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
71e0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
71f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7200: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7210: 2f 0a 0a 2f 2a 0a 20 2a 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 -----------. *.
7260: 2a 20 45 6e 63 72 79 70 74 44 61 74 61 48 61 6e * EncryptDataHan
7270: 64 6c 65 72 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 dler --. *. *.Pe
7280: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
7290: 20 66 75 6e 63 74 69 6f 6e 20 6f 6e 20 61 20 62 function on a b
72a0: 6c 6f 63 6b 20 6f 66 20 64 61 74 61 20 61 6e 64 lock of data and
72b0: 20 72 65 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a return result..
72c0: 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 *. * Returns:.
72d0: 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f *.TCL_OK or TCL_
72e0: 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 ERROR. *. * Side
72f0: 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 effects:. *.Set
7300: 73 20 72 65 73 75 6c 74 20 6f 72 20 65 72 72 6f s result or erro
7310: 72 20 6d 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d r message. *. *-
7320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7360: 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e 63 72 79 --. */.int Encry
7370: 70 74 44 61 74 61 48 61 6e 64 6c 65 72 28 54 63 ptDataHandler(Tc
7380: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 l_Interp *interp
7390: 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 63 6c 5f , int type, Tcl_
73a0: 4f 62 6a 20 2a 64 61 74 61 4f 62 6a 2c 20 54 63 Obj *dataObj, Tc
73b0: 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f 62 6a l_Obj *cipherObj
73c0: 2c 0a 09 54 63 6c 5f 4f 62 6a 20 2a 64 69 67 65 ,..Tcl_Obj *dige
73d0: 73 74 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a stObj, Tcl_Obj *
73e0: 6b 65 79 4f 62 6a 2c 20 54 63 6c 5f 4f 62 6a 20 keyObj, Tcl_Obj
73f0: 2a 69 76 4f 62 6a 29 20 7b 0a 20 20 20 20 45 56 *ivObj) {. EV
7400: 50 5f 43 49 50 48 45 52 5f 43 54 58 20 2a 63 74 P_CIPHER_CTX *ct
7410: 78 20 3d 20 4e 55 4c 4c 3b 0a 20 20 20 20 69 6e x = NULL;. in
7420: 74 20 64 61 74 61 5f 6c 65 6e 20 3d 20 30 2c 20 t data_len = 0,
7430: 6f 75 74 5f 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e out_len = 0, len
7440: 20 3d 20 30 2c 20 72 65 73 20 3d 20 54 43 4c 5f = 0, res = TCL_
7450: 4f 4b 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 OK;. unsigned
7460: 20 63 68 61 72 20 2a 64 61 74 61 2c 20 2a 6f 75 char *data, *ou
7470: 74 5f 62 75 66 3b 0a 20 20 20 20 54 63 6c 5f 4f t_buf;. Tcl_O
7480: 62 6a 20 2a 72 65 73 75 6c 74 4f 62 6a 3b 0a 0a bj *resultObj;..
7490: 20 20 20 20 64 70 72 69 6e 74 66 28 22 43 61 6c dprintf("Cal
74a0: 6c 65 64 22 29 3b 0a 0a 20 20 20 20 2f 2a 20 47 led");.. /* G
74b0: 65 74 20 64 61 74 61 20 2a 2f 0a 20 20 20 20 69 et data */. i
74c0: 66 20 28 64 61 74 61 4f 62 6a 20 21 3d 20 4e 55 f (dataObj != NU
74d0: 4c 4c 29 20 7b 0a 09 64 61 74 61 20 3d 20 54 63 LL) {..data = Tc
74e0: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72 l_GetByteArrayFr
74f0: 6f 6d 4f 62 6a 28 64 61 74 61 4f 62 6a 2c 20 26 omObj(dataObj, &
7500: 64 61 74 61 5f 6c 65 6e 29 3b 0a 20 20 20 20 7d data_len);. }
7510: 20 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 else {..Tcl_App
7520: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
7530: 2c 20 22 4e 6f 20 64 61 74 61 22 2c 20 4e 55 4c , "No data", NUL
7540: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
7550: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
7560: 20 20 2f 2a 20 41 6c 6c 6f 63 61 74 65 20 73 74 /* Allocate st
7570: 6f 72 61 67 65 20 66 6f 72 20 72 65 73 75 6c 74 orage for result
7580: 2e 20 53 69 7a 65 20 73 68 6f 75 6c 64 20 62 65 . Size should be
7590: 20 64 61 74 61 20 73 69 7a 65 20 2b 20 62 6c 6f data size + blo
75a0: 63 6b 20 73 69 7a 65 2e 20 2a 2f 0a 20 20 20 20 ck size. */.
75b0: 72 65 73 75 6c 74 4f 62 6a 20 3d 20 54 63 6c 5f resultObj = Tcl_
75c0: 4e 65 77 4f 62 6a 28 29 3b 0a 20 20 20 20 6f 75 NewObj();. ou
75d0: 74 5f 62 75 66 20 3d 20 54 63 6c 5f 53 65 74 42 t_buf = Tcl_SetB
75e0: 79 74 65 41 72 72 61 79 4c 65 6e 67 74 68 28 72 yteArrayLength(r
75f0: 65 73 75 6c 74 4f 62 6a 2c 20 64 61 74 61 5f 6c esultObj, data_l
7600: 65 6e 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b en+EVP_MAX_BLOCK
7610: 5f 4c 45 4e 47 54 48 29 3b 0a 20 20 20 20 69 66 _LENGTH);. if
7620: 20 28 72 65 73 75 6c 74 4f 62 6a 20 3d 3d 20 4e (resultObj == N
7630: 55 4c 4c 20 7c 7c 20 6f 75 74 5f 62 75 66 20 3d ULL || out_buf =
7640: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
7650: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
7660: 72 70 2c 20 22 4d 65 6d 6f 72 79 20 61 6c 6c 6f rp, "Memory allo
7670: 63 61 74 69 6f 6e 20 65 72 72 6f 72 22 2c 20 28 cation error", (
7680: 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 char *) NULL);..
7690: 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 return TCL_ERROR
76a0: 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 ;. }.. /*
76b0: 50 65 72 66 6f 72 6d 20 6f 70 65 72 61 74 69 6f Perform operatio
76c0: 6e 20 2a 2f 0a 20 20 20 20 69 66 20 28 45 6e 63 n */. if (Enc
76d0: 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 ryptInitialize(i
76e0: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 63 74 nterp, type, &ct
76f0: 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 x, cipherObj, ke
7700: 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 20 21 3d 20 yObj, ivObj) !=
7710: 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e 63 72 79 TCL_OK ||..Encry
7720: 70 74 55 70 64 61 74 65 28 69 6e 74 65 72 70 2c ptUpdate(interp,
7730: 20 74 79 70 65 2c 20 63 74 78 2c 20 6f 75 74 5f type, ctx, out_
7740: 62 75 66 2c 20 26 6f 75 74 5f 6c 65 6e 2c 20 64 buf, &out_len, d
7750: 61 74 61 2c 20 64 61 74 61 5f 6c 65 6e 29 20 21 ata, data_len) !
7760: 3d 20 54 43 4c 5f 4f 4b 20 7c 7c 0a 09 45 6e 63 = TCL_OK ||..Enc
7770: 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 ryptFinalize(int
7780: 65 72 70 2c 20 74 79 70 65 2c 20 63 74 78 2c 20 erp, type, ctx,
7790: 6f 75 74 5f 62 75 66 2b 6f 75 74 5f 6c 65 6e 2c out_buf+out_len,
77a0: 20 26 6c 65 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b &len) != TCL_OK
77b0: 29 20 7b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 ) {..res = TCL_E
77c0: 52 52 4f 52 3b 0a 09 67 6f 74 6f 20 64 6f 6e 65 RROR;..goto done
77d0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6f 75 74 5f ;. }. out_
77e0: 6c 65 6e 20 2b 3d 20 6c 65 6e 3b 0a 0a 64 6f 6e len += len;..don
77f0: 65 3a 0a 20 20 20 20 2f 2a 20 53 65 74 20 6f 75 e:. /* Set ou
7800: 74 70 75 74 20 72 65 73 75 6c 74 20 2a 2f 0a 20 tput result */.
7810: 20 20 20 69 66 20 28 72 65 73 20 3d 3d 20 54 43 if (res == TC
7820: 4c 5f 4f 4b 29 20 7b 0a 09 6f 75 74 5f 62 75 66 L_OK) {..out_buf
7830: 20 3d 20 54 63 6c 5f 53 65 74 42 79 74 65 41 72 = Tcl_SetByteAr
7840: 72 61 79 4c 65 6e 67 74 68 28 72 65 73 75 6c 74 rayLength(result
7850: 4f 62 6a 2c 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 Obj, out_len);..
7860: 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 Tcl_SetObjResult
7870: 28 69 6e 74 65 72 70 2c 20 72 65 73 75 6c 74 4f (interp, resultO
7880: 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 bj);. } else
7890: 7b 0a 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f {..Tcl_DecrRefCo
78a0: 75 6e 74 28 72 65 73 75 6c 74 4f 62 6a 29 3b 0a unt(resultObj);.
78b0: 09 2f 2a 20 52 65 73 75 6c 74 20 69 73 20 65 72 ./* Result is er
78c0: 72 6f 72 20 6d 65 73 73 61 67 65 20 2a 2f 0a 20 ror message */.
78d0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 6c 65 }.. /* Cle
78e0: 61 6e 20 75 70 20 2a 2f 0a 20 20 20 20 69 66 20 an up */. if
78f0: 28 63 74 78 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a (ctx != NULL) {.
7900: 09 45 56 50 5f 43 49 50 48 45 52 5f 43 54 58 5f .EVP_CIPHER_CTX_
7910: 66 72 65 65 28 63 74 78 29 3b 0a 20 20 20 20 7d free(ctx);. }
7920: 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 3b . return res;
7930: 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .}../***********
7940: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7950: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7960: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
7970: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 0a 2f 2a 0a 20 2a ********/../*. *
7980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
79c0: 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 ---. *. * Encryp
79d0: 74 46 69 6c 65 48 61 6e 64 6c 65 72 20 2d 2d 0a tFileHandler --.
79e0: 20 2a 0a 20 2a 09 50 65 72 66 6f 72 6d 20 65 6e *. *.Perform en
79f0: 63 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f cryption functio
7a00: 6e 20 6f 6e 20 61 20 62 6c 6f 63 6b 20 6f 66 20 n on a block of
7a10: 64 61 74 61 20 61 6e 64 20 72 65 74 75 72 6e 20 data and return
7a20: 72 65 73 75 6c 74 2e 0a 20 2a 0a 20 2a 20 52 65 result.. *. * Re
7a30: 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f 4f 4b turns:. *.TCL_OK
7a40: 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a 20 2a or TCL_ERROR. *
7a50: 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 74 73 . * Side effects
7a60: 3a 0a 20 2a 09 45 6e 63 72 79 70 74 73 20 6f 72 :. *.Encrypts or
7a70: 20 64 65 63 72 79 70 74 73 20 69 6e 46 69 6c 65 decrypts inFile
7a80: 20 64 61 74 61 20 74 6f 20 6f 75 74 46 69 6c 65 data to outFile
7a90: 20 61 6e 64 20 73 65 74 73 20 72 65 73 75 6c 74 and sets result
7aa0: 20 74 6f 0a 20 2a 09 73 69 7a 65 20 6f 66 20 6f to. *.size of o
7ab0: 75 74 46 69 6c 65 2c 20 6f 72 20 61 6e 20 65 72 utFile, or an er
7ac0: 72 6f 72 20 6d 65 73 73 61 67 65 2e 0a 20 2a 0a ror message.. *.
7ad0: 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *--------------
7ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
7b10: 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 20 45 6e -----. */.int En
7b20: 63 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 cryptFileHandler
7b30: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 (Tcl_Interp *int
7b40: 65 72 70 2c 20 69 6e 74 20 74 79 70 65 2c 20 54 erp, int type, T
7b50: 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 6c 65 4f 62 cl_Obj *inFileOb
7b60: 6a 2c 20 54 63 6c 5f 4f 62 6a 20 2a 6f 75 74 46 j, Tcl_Obj *outF
7b70: 69 6c 65 4f 62 6a 2c 0a 09 54 63 6c 5f 4f 62 6a ileObj,..Tcl_Obj
7b80: 20 2a 63 69 70 68 65 72 4f 62 6a 2c 20 54 63 6c *cipherObj, Tcl
7b90: 5f 4f 62 6a 20 2a 64 69 67 65 73 74 4f 62 6a 2c _Obj *digestObj,
7ba0: 20 54 63 6c 5f 4f 62 6a 20 2a 6b 65 79 4f 62 6a Tcl_Obj *keyObj
7bb0: 2c 20 54 63 6c 5f 4f 62 6a 20 2a 69 76 4f 62 6a , Tcl_Obj *ivObj
7bc0: 29 20 7b 0a 20 20 20 20 45 56 50 5f 43 49 50 48 ) {. EVP_CIPH
7bd0: 45 52 5f 43 54 58 20 2a 63 74 78 20 3d 20 4e 55 ER_CTX *ctx = NU
7be0: 4c 4c 3b 0a 20 20 20 20 69 6e 74 20 74 6f 74 61 LL;. int tota
7bf0: 6c 20 3d 20 30 2c 20 72 65 73 2c 20 6f 75 74 5f l = 0, res, out_
7c00: 6c 65 6e 20 3d 20 30 2c 20 6c 65 6e 3b 0a 20 20 len = 0, len;.
7c10: 20 20 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 69 6e Tcl_Channel in
7c20: 20 3d 20 4e 55 4c 4c 2c 20 6f 75 74 20 3d 20 4e = NULL, out = N
7c30: 55 4c 4c 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 ULL;. unsigne
7c40: 64 20 63 68 61 72 20 69 6e 5f 62 75 66 5b 42 55 d char in_buf[BU
7c50: 46 46 45 52 5f 53 49 5a 45 5d 3b 0a 20 20 20 20 FFER_SIZE];.
7c60: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 6f 75 unsigned char ou
7c70: 74 5f 62 75 66 5b 42 55 46 46 45 52 5f 53 49 5a t_buf[BUFFER_SIZ
7c80: 45 2b 45 56 50 5f 4d 41 58 5f 42 4c 4f 43 4b 5f E+EVP_MAX_BLOCK_
7c90: 4c 45 4e 47 54 48 5d 3b 0a 0a 20 20 20 20 64 70 LENGTH];.. dp
7ca0: 72 69 6e 74 66 28 22 43 61 6c 6c 65 64 22 29 3b rintf("Called");
7cb0: 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 69 6e .. /* Open in
7cc0: 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 20 20 put file */.
7cd0: 69 66 20 28 28 69 6e 20 3d 20 54 63 6c 5f 46 53 if ((in = Tcl_FS
7ce0: 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e 65 6c 28 OpenFileChannel(
7cf0: 69 6e 74 65 72 70 2c 20 69 6e 46 69 6c 65 4f 62 interp, inFileOb
7d00: 6a 2c 20 22 72 62 22 2c 20 30 34 34 34 29 29 20 j, "rb", 0444))
7d10: 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 29 == (Tcl_Channel)
7d20: 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 74 75 72 6e NULL) {..return
7d30: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 20 20 TCL_ERROR;.
7d40: 7d 0a 0a 20 20 20 20 2f 2a 20 4f 70 65 6e 20 6f }.. /* Open o
7d50: 75 74 70 75 74 20 66 69 6c 65 20 2a 2f 0a 20 20 utput file */.
7d60: 20 20 69 66 20 28 28 6f 75 74 20 3d 20 54 63 6c if ((out = Tcl
7d70: 5f 46 53 4f 70 65 6e 46 69 6c 65 43 68 61 6e 6e _FSOpenFileChann
7d80: 65 6c 28 69 6e 74 65 72 70 2c 20 6f 75 74 46 69 el(interp, outFi
7d90: 6c 65 4f 62 6a 2c 20 22 77 62 22 2c 20 30 36 34 leObj, "wb", 064
7da0: 34 29 29 20 3d 3d 20 28 54 63 6c 5f 43 68 61 6e 4)) == (Tcl_Chan
7db0: 6e 65 6c 29 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 nel) NULL) {..Tc
7dc0: 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 l_Close(interp,
7dd0: 69 6e 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c in);..return TCL
7de0: 5f 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 _ERROR;. }..
7df0: 20 20 20 2f 2a 20 49 6e 69 74 69 61 6c 69 7a 65 /* Initialize
7e00: 20 6f 70 65 72 61 74 69 6f 6e 20 2a 2f 0a 20 20 operation */.
7e10: 20 20 69 66 20 28 28 72 65 73 20 3d 20 45 6e 63 if ((res = Enc
7e20: 72 79 70 74 49 6e 69 74 69 61 6c 69 7a 65 28 69 ryptInitialize(i
7e30: 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 26 63 74 nterp, type, &ct
7e40: 78 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 6b 65 x, cipherObj, ke
7e50: 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 29 20 21 3d yObj, ivObj)) !=
7e60: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 67 6f 74 6f TCL_OK) {..goto
7e70: 20 64 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 20 20 done;. }..
7e80: 20 20 2f 2a 20 52 65 61 64 20 66 69 6c 65 20 64 /* Read file d
7e90: 61 74 61 20 66 72 6f 6d 20 69 6e 46 69 6c 65 2c ata from inFile,
7ea0: 20 65 6e 63 72 79 70 74 2f 64 65 63 72 79 70 74 encrypt/decrypt
7eb0: 20 69 74 2c 20 74 68 65 6e 20 6f 75 74 70 75 74 it, then output
7ec0: 20 74 6f 20 6f 75 74 46 69 6c 65 20 2a 2f 0a 20 to outFile */.
7ed0: 20 20 20 77 68 69 6c 65 20 28 21 54 63 6c 5f 45 while (!Tcl_E
7ee0: 6f 66 28 69 6e 29 29 20 7b 0a 09 69 6e 74 20 72 of(in)) {..int r
7ef0: 65 61 64 20 3d 20 54 63 6c 5f 52 65 61 64 52 61 ead = Tcl_ReadRa
7f00: 77 28 69 6e 2c 20 28 63 68 61 72 20 2a 29 20 69 w(in, (char *) i
7f10: 6e 5f 62 75 66 2c 20 42 55 46 46 45 52 5f 53 49 n_buf, BUFFER_SI
7f20: 5a 45 29 3b 0a 09 69 66 20 28 72 65 61 64 20 3e ZE);..if (read >
7f30: 20 30 29 20 7b 0a 09 20 20 20 20 69 66 20 28 28 0) {.. if ((
7f40: 72 65 73 20 3d 20 45 6e 63 72 79 70 74 55 70 64 res = EncryptUpd
7f50: 61 74 65 28 69 6e 74 65 72 70 2c 20 74 79 70 65 ate(interp, type
7f60: 2c 20 63 74 78 2c 20 6f 75 74 5f 62 75 66 2c 20 , ctx, out_buf,
7f70: 26 6f 75 74 5f 6c 65 6e 2c 20 69 6e 5f 62 75 66 &out_len, in_buf
7f80: 2c 20 72 65 61 64 29 29 20 3d 3d 20 54 43 4c 5f , read)) == TCL_
7f90: 4f 4b 29 20 7b 0a 09 09 69 66 20 28 6f 75 74 5f OK) {...if (out_
7fa0: 6c 65 6e 20 3e 20 30 29 20 7b 0a 09 09 20 20 20 len > 0) {...
7fb0: 20 6c 65 6e 20 3d 20 54 63 6c 5f 57 72 69 74 65 len = Tcl_Write
7fc0: 52 61 77 28 6f 75 74 2c 20 28 63 6f 6e 73 74 20 Raw(out, (const
7fd0: 63 68 61 72 20 2a 29 20 6f 75 74 5f 62 75 66 2c char *) out_buf,
7fe0: 20 6f 75 74 5f 6c 65 6e 29 3b 0a 09 09 20 20 20 out_len);...
7ff0: 20 69 66 20 28 6c 65 6e 20 3e 3d 20 30 29 20 7b if (len >= 0) {
8000: 0a 09 09 09 74 6f 74 61 6c 20 2b 3d 20 6c 65 6e ....total += len
8010: 3b 0a 09 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;... } else {
8020: 0a 09 09 09 54 63 6c 5f 41 70 70 65 6e 64 52 65 ....Tcl_AppendRe
8030: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 57 72 sult(interp, "Wr
8040: 69 74 65 20 65 72 72 6f 72 3a 20 22 2c 20 54 63 ite error: ", Tc
8050: 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 63 6c 5f 47 l_ErrnoMsg(Tcl_G
8060: 65 74 45 72 72 6e 6f 28 29 29 2c 20 28 63 68 61 etErrno()), (cha
8070: 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 09 09 09 72 r *) NULL);....r
8080: 65 73 20 3d 20 54 43 4c 5f 45 52 52 4f 52 3b 0a es = TCL_ERROR;.
8090: 09 09 09 67 6f 74 6f 20 64 6f 6e 65 3b 0a 09 09 ...goto done;...
80a0: 20 20 20 20 7d 0a 09 09 7d 0a 09 20 20 20 20 7d }...}.. }
80b0: 20 65 6c 73 65 20 7b 0a 09 09 67 6f 74 6f 20 64 else {...goto d
80c0: 6f 6e 65 3b 0a 09 20 20 20 20 7d 0a 09 7d 20 65 one;.. }..} e
80d0: 6c 73 65 20 69 66 20 28 72 65 61 64 20 3c 20 30 lse if (read < 0
80e0: 29 20 7b 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 ) {.. Tcl_App
80f0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
8100: 2c 20 22 52 65 61 64 20 65 72 72 6f 72 3a 20 22 , "Read error: "
8110: 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 54 , Tcl_ErrnoMsg(T
8120: 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c 20 cl_GetErrno()),
8130: 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a (char *) NULL);.
8140: 09 20 20 20 20 72 65 73 20 3d 20 54 43 4c 5f 45 . res = TCL_E
8150: 52 52 4f 52 3b 0a 09 20 20 20 20 67 6f 74 6f 20 RROR;.. goto
8160: 64 6f 6e 65 3b 0a 09 7d 0a 20 20 20 20 7d 0a 0a done;..}. }..
8170: 20 20 20 20 2f 2a 20 46 69 6e 61 6c 69 7a 65 20 /* Finalize
8180: 64 61 74 61 20 61 6e 64 20 77 72 69 74 65 20 61 data and write a
8190: 6e 79 20 72 65 6d 61 69 6e 69 6e 67 20 64 61 74 ny remaining dat
81a0: 61 20 69 6e 20 62 6c 6f 63 6b 20 2a 2f 0a 20 20 a in block */.
81b0: 20 20 69 66 20 28 28 72 65 73 20 3d 20 45 6e 63 if ((res = Enc
81c0: 72 79 70 74 46 69 6e 61 6c 69 7a 65 28 69 6e 74 ryptFinalize(int
81d0: 65 72 70 2c 20 74 79 70 65 2c 20 63 74 78 2c 20 erp, type, ctx,
81e0: 6f 75 74 5f 62 75 66 2c 20 26 6f 75 74 5f 6c 65 out_buf, &out_le
81f0: 6e 29 29 20 3d 3d 20 54 43 4c 5f 4f 4b 29 20 7b n)) == TCL_OK) {
8200: 0a 09 69 66 20 28 6f 75 74 5f 6c 65 6e 20 3e 20 ..if (out_len >
8210: 30 29 20 7b 0a 09 20 20 20 20 6c 65 6e 20 3d 20 0) {.. len =
8220: 54 63 6c 5f 57 72 69 74 65 52 61 77 28 6f 75 74 Tcl_WriteRaw(out
8230: 2c 20 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 29 , (const char *)
8240: 20 6f 75 74 5f 62 75 66 2c 20 6f 75 74 5f 6c 65 out_buf, out_le
8250: 6e 29 3b 0a 09 20 20 20 20 69 66 20 28 6c 65 6e n);.. if (len
8260: 20 3e 3d 20 30 29 20 7b 0a 09 09 74 6f 74 61 6c >= 0) {...total
8270: 20 2b 3d 20 6c 65 6e 3b 0a 09 20 20 20 20 7d 20 += len;.. }
8280: 65 6c 73 65 20 7b 0a 09 09 54 63 6c 5f 41 70 70 else {...Tcl_App
8290: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 endResult(interp
82a0: 2c 20 22 57 72 69 74 65 20 65 72 72 6f 72 3a 20 , "Write error:
82b0: 22 2c 20 54 63 6c 5f 45 72 72 6e 6f 4d 73 67 28 ", Tcl_ErrnoMsg(
82c0: 54 63 6c 5f 47 65 74 45 72 72 6e 6f 28 29 29 2c Tcl_GetErrno()),
82d0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
82e0: 0a 09 09 72 65 73 20 3d 20 54 43 4c 5f 45 52 52 ...res = TCL_ERR
82f0: 4f 52 3b 0a 09 09 67 6f 74 6f 20 64 6f 6e 65 3b OR;...goto done;
8300: 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 54 63 6c 5f .. }..}..Tcl_
8310: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74 SetObjResult(int
8320: 65 72 70 2c 20 54 63 6c 5f 4e 65 77 49 6e 74 4f erp, Tcl_NewIntO
8330: 62 6a 28 74 6f 74 61 6c 29 29 3b 0a 20 20 20 20 bj(total));.
8340: 7d 20 65 6c 73 65 20 7b 0a 09 67 6f 74 6f 20 64 } else {..goto d
8350: 6f 6e 65 3b 0a 20 20 20 20 7d 0a 0a 64 6f 6e 65 one;. }..done
8360: 3a 0a 20 20 20 20 2f 2a 20 43 6c 65 61 6e 20 75 :. /* Clean u
8370: 70 20 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 20 p */. if (in
8380: 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f != NULL) {..Tcl_
8390: 43 6c 6f 73 65 28 69 6e 74 65 72 70 2c 20 69 6e Close(interp, in
83a0: 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 );. }. if
83b0: 28 6f 75 74 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a (out != NULL) {.
83c0: 09 54 63 6c 5f 43 6c 6f 73 65 28 69 6e 74 65 72 .Tcl_Close(inter
83d0: 70 2c 20 6f 75 74 29 3b 0a 20 20 20 20 7d 0a 20 p, out);. }.
83e0: 20 20 20 69 66 20 28 63 74 78 20 21 3d 20 4e 55 if (ctx != NU
83f0: 4c 4c 29 20 7b 0a 09 45 56 50 5f 43 49 50 48 45 LL) {..EVP_CIPHE
8400: 52 5f 43 54 58 5f 66 72 65 65 28 63 74 78 29 3b R_CTX_free(ctx);
8410: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 . }. retur
8420: 6e 20 72 65 73 3b 0a 7d 0a 0a 2f 2a 2a 2a 2a 2a n res;.}../*****
8430: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8440: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8450: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
8460: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a **************/.
8470: 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 63 68 .static const ch
8480: 61 72 20 2a 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 ar *command_opts
8490: 20 5b 5d 20 3d 20 7b 0a 20 20 20 20 22 2d 63 68 [] = {. "-ch
84a0: 61 6e 22 2c 20 22 2d 63 68 61 6e 6e 65 6c 22 2c an", "-channel",
84b0: 20 22 2d 63 69 70 68 65 72 22 2c 20 22 2d 63 6f "-cipher", "-co
84c0: 6d 6d 61 6e 64 22 2c 20 22 2d 64 61 74 61 22 2c mmand", "-data",
84d0: 20 22 2d 64 69 67 65 73 74 22 2c 20 22 2d 69 6e "-digest", "-in
84e0: 66 69 6c 65 22 2c 20 22 2d 66 69 6c 65 6e 61 6d file", "-filenam
84f0: 65 22 2c 0a 20 20 20 20 22 2d 6f 75 74 66 69 6c e",. "-outfil
8500: 65 22 2c 20 22 2d 68 61 73 68 22 2c 20 22 2d 69 e", "-hash", "-i
8510: 76 22 2c 20 22 2d 6b 65 79 22 2c 20 22 2d 6d 61 v", "-key", "-ma
8520: 63 22 2c 20 4e 55 4c 4c 7d 3b 0a 0a 65 6e 75 6d c", NULL};..enum
8530: 20 5f 63 6f 6d 6d 61 6e 64 5f 6f 70 74 73 20 7b _command_opts {
8540: 0a 20 20 20 20 5f 6f 70 74 5f 63 68 61 6e 2c 20 . _opt_chan,
8550: 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c 2c 20 5f 6f _opt_channel, _o
8560: 70 74 5f 63 69 70 68 65 72 2c 20 5f 6f 70 74 5f pt_cipher, _opt_
8570: 63 6f 6d 6d 61 6e 64 2c 20 5f 6f 70 74 5f 64 61 command, _opt_da
8580: 74 61 2c 20 5f 6f 70 74 5f 64 69 67 65 73 74 2c ta, _opt_digest,
8590: 20 5f 6f 70 74 5f 69 6e 66 69 6c 65 2c 0a 20 20 _opt_infile,.
85a0: 20 20 5f 6f 70 74 5f 66 69 6c 65 6e 61 6d 65 2c _opt_filename,
85b0: 20 5f 6f 70 74 5f 6f 75 74 66 69 6c 65 2c 20 5f _opt_outfile, _
85c0: 6f 70 74 5f 68 61 73 68 2c 20 5f 6f 70 74 5f 69 opt_hash, _opt_i
85d0: 76 2c 20 5f 6f 70 74 5f 6b 65 79 2c 20 5f 6f 70 v, _opt_key, _op
85e0: 74 5f 6d 61 63 0a 7d 3b 0a 0a 2f 2a 0a 20 2a 2d t_mac.};../*. *-
85f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8630: 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 72 79 70 74 --. *. * Encrypt
8640: 4d 61 69 6e 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 Main --. *. *.Pe
8650: 72 66 6f 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e rform encryption
8660: 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 72 65 function and re
8670: 74 75 72 6e 20 72 65 73 75 6c 74 2e 0a 20 2a 0a turn result.. *.
8680: 20 2a 20 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 * Returns:. *.T
8690: 43 4c 5f 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 CL_OK or TCL_ERR
86a0: 4f 52 0a 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 OR. *. * Side ef
86b0: 66 65 63 74 73 3a 0a 20 2a 09 53 65 74 73 20 72 fects:. *.Sets r
86c0: 65 73 75 6c 74 20 6f 72 20 65 72 72 6f 72 20 6d esult or error m
86d0: 65 73 73 61 67 65 0a 20 2a 0a 20 2a 2d 2d 2d 2d essage. *. *----
86e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
86f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8700: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
8710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
8720: 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 45 */.static int E
8730: 6e 63 72 79 70 74 4d 61 69 6e 28 69 6e 74 20 74 ncryptMain(int t
8740: 79 70 65 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 ype, Tcl_Interp
8750: 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a *interp, int obj
8760: 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e 73 c, Tcl_Obj *cons
8770: 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 20 t objv[]) {.
8780: 54 63 6c 5f 4f 62 6a 20 2a 63 69 70 68 65 72 4f Tcl_Obj *cipherO
8790: 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 63 6d 64 4f bj = NULL, *cmdO
87a0: 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 61 74 61 bj = NULL, *data
87b0: 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 64 69 67 Obj = NULL, *dig
87c0: 65 73 74 4f 62 6a 20 3d 20 4e 55 4c 4c 3b 0a 20 estObj = NULL;.
87d0: 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 69 6e 46 69 Tcl_Obj *inFi
87e0: 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c 2c 20 2a 6f leObj = NULL, *o
87f0: 75 74 46 69 6c 65 4f 62 6a 20 3d 20 4e 55 4c 4c utFileObj = NULL
8800: 2c 20 2a 6b 65 79 4f 62 6a 20 3d 20 4e 55 4c 4c , *keyObj = NULL
8810: 2c 20 2a 69 76 4f 62 6a 20 3d 20 4e 55 4c 4c 2c , *ivObj = NULL,
8820: 20 2a 6d 61 63 4f 62 6a 20 3d 20 4e 55 4c 4c 3b *macObj = NULL;
8830: 0a 20 20 20 20 63 6f 6e 73 74 20 63 68 61 72 20 . const char
8840: 2a 63 68 61 6e 6e 65 6c 20 3d 20 4e 55 4c 4c 2c *channel = NULL,
8850: 20 2a 6f 70 74 3b 0a 20 20 20 20 69 6e 74 20 72 *opt;. int r
8860: 65 73 2c 20 73 74 61 72 74 20 3d 20 31 2c 20 66 es, start = 1, f
8870: 6e 3b 0a 0a 20 20 20 20 64 70 72 69 6e 74 66 28 n;.. dprintf(
8880: 22 43 61 6c 6c 65 64 22 29 3b 0a 0a 20 20 20 20 "Called");..
8890: 2f 2a 20 43 6c 65 61 72 20 69 6e 74 65 72 70 20 /* Clear interp
88a0: 72 65 73 75 6c 74 20 2a 2f 0a 20 20 20 20 54 63 result */. Tc
88b0: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
88c0: 74 65 72 70 29 3b 0a 0a 20 20 20 20 2f 2a 20 56 terp);.. /* V
88d0: 61 6c 69 64 61 74 65 20 61 72 67 20 63 6f 75 6e alidate arg coun
88e0: 74 20 2a 2f 0a 20 20 20 20 69 66 20 28 6f 62 6a t */. if (obj
88f0: 63 20 3c 20 33 20 7c 7c 20 6f 62 6a 63 20 3e 20 c < 3 || objc >
8900: 31 32 29 20 7b 0a 09 54 63 6c 5f 57 72 6f 6e 67 12) {..Tcl_Wrong
8910: 4e 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 NumArgs(interp,
8920: 31 2c 20 6f 62 6a 76 2c 20 22 3f 2d 63 69 70 68 1, objv, "?-ciph
8930: 65 72 3f 20 6e 61 6d 65 20 3f 2d 64 69 67 65 73 er? name ?-diges
8940: 74 20 6e 61 6d 65 3f 20 2d 6b 65 79 20 6b 65 79 t name? -key key
8950: 20 3f 2d 69 76 20 73 74 72 69 6e 67 3f 20 3f 2d ?-iv string? ?-
8960: 6d 61 63 20 6e 61 6d 65 3f 20 5b 2d 63 68 61 6e mac name? [-chan
8970: 6e 65 6c 20 63 68 61 6e 20 7c 20 2d 63 6f 6d 6d nel chan | -comm
8980: 61 6e 64 20 63 6d 64 4e 61 6d 65 20 7c 20 2d 69 and cmdName | -i
8990: 6e 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 20 2d nfile filename -
89a0: 6f 75 74 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 outfile filename
89b0: 20 7c 20 3f 2d 64 61 74 61 3f 20 64 61 74 61 5d | ?-data? data]
89c0: 22 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f ");..return TCL_
89d0: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
89e0: 20 20 2f 2a 20 53 70 65 63 69 61 6c 20 63 61 73 /* Special cas
89f0: 65 20 6f 66 20 66 69 72 73 74 20 61 72 67 20 69 e of first arg i
8a00: 73 20 63 69 70 68 65 72 20 2a 2f 0a 20 20 20 20 s cipher */.
8a10: 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 opt = Tcl_GetStr
8a20: 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b ingFromObj(objv[
8a30: 73 74 61 72 74 5d 2c 20 4e 55 4c 4c 29 3b 0a 20 start], NULL);.
8a40: 20 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 3d if (opt[0] !=
8a50: 20 27 2d 27 29 20 7b 0a 09 73 77 69 74 63 68 28 '-') {..switch(
8a60: 74 79 70 65 29 20 7b 0a 09 63 61 73 65 20 54 59 type) {..case TY
8a70: 50 45 5f 45 4e 43 52 59 50 54 3a 0a 09 63 61 73 PE_ENCRYPT:..cas
8a80: 65 20 54 59 50 45 5f 44 45 43 52 59 50 54 3a 0a e TYPE_DECRYPT:.
8a90: 09 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d . cipherObj =
8aa0: 20 6f 62 6a 76 5b 73 74 61 72 74 2b 2b 5d 3b 0a objv[start++];.
8ab0: 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d 0a 20 . break;..}.
8ac0: 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 47 65 74 }.. /* Get
8ad0: 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 20 options */.
8ae0: 66 6f 72 20 28 69 6e 74 20 69 64 78 20 3d 20 73 for (int idx = s
8af0: 74 61 72 74 3b 20 69 64 78 20 3c 20 6f 62 6a 63 tart; idx < objc
8b00: 3b 20 69 64 78 2b 2b 29 20 7b 0a 09 2f 2a 20 53 ; idx++) {../* S
8b10: 70 65 63 69 61 6c 20 63 61 73 65 20 66 6f 72 20 pecial case for
8b20: 77 68 65 6e 20 6c 61 73 74 20 61 72 67 20 69 73 when last arg is
8b30: 20 64 61 74 61 20 2a 2f 0a 09 69 66 20 28 69 64 data */..if (id
8b40: 78 20 3d 3d 20 6f 62 6a 63 20 2d 20 31 29 20 7b x == objc - 1) {
8b50: 0a 09 6f 70 74 20 3d 20 54 63 6c 5f 47 65 74 53 ..opt = Tcl_GetS
8b60: 74 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a tringFromObj(obj
8b70: 76 5b 69 64 78 5d 2c 20 4e 55 4c 4c 29 3b 0a 09 v[idx], NULL);..
8b80: 20 20 20 20 69 66 20 28 6f 70 74 5b 30 5d 20 21 if (opt[0] !
8b90: 3d 20 27 2d 27 20 26 26 20 64 61 74 61 4f 62 6a = '-' && dataObj
8ba0: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 64 61 == NULL) {...da
8bb0: 74 61 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 taObj = objv[idx
8bc0: 5d 3b 0a 09 09 62 72 65 61 6b 3b 0a 09 20 20 20 ];...break;..
8bd0: 20 7d 0a 09 7d 0a 0a 09 2f 2a 20 47 65 74 20 6f }..}.../* Get o
8be0: 70 74 69 6f 6e 20 2a 2f 0a 09 69 66 20 28 54 63 ption */..if (Tc
8bf0: 6c 5f 47 65 74 49 6e 64 65 78 46 72 6f 6d 4f 62 l_GetIndexFromOb
8c00: 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 69 j(interp, objv[i
8c10: 64 78 5d 2c 20 63 6f 6d 6d 61 6e 64 5f 6f 70 74 dx], command_opt
8c20: 73 2c 20 22 6f 70 74 69 6f 6e 22 2c 20 30 2c 20 s, "option", 0,
8c30: 26 66 6e 29 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 &fn) != TCL_OK)
8c40: 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 54 43 {.. return TC
8c50: 4c 5f 45 52 52 4f 52 3b 0a 09 7d 0a 0a 09 2f 2a L_ERROR;..}.../*
8c60: 20 56 61 6c 69 64 61 74 65 20 61 72 67 20 68 61 Validate arg ha
8c70: 73 20 76 61 6c 75 65 20 2a 2f 0a 09 69 66 20 28 s value */..if (
8c80: 2b 2b 69 64 78 20 3e 3d 20 6f 62 6a 63 29 20 7b ++idx >= objc) {
8c90: 0a 09 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 .. Tcl_Append
8ca0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 Result(interp, "
8cb0: 4e 6f 20 76 61 6c 75 65 20 66 6f 72 20 6f 70 74 No value for opt
8cc0: 69 6f 6e 20 5c 22 22 2c 20 63 6f 6d 6d 61 6e 64 ion \"", command
8cd0: 5f 6f 70 74 73 5b 66 6e 5d 2c 20 22 5c 22 22 2c _opts[fn], "\"",
8ce0: 20 28 63 68 61 72 20 2a 29 20 4e 55 4c 4c 29 3b (char *) NULL);
8cf0: 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 ..return TCL_ERR
8d00: 4f 52 3b 0a 20 20 20 20 7d 0a 0a 09 73 77 69 74 OR;. }...swit
8d10: 63 68 28 66 6e 29 20 7b 0a 09 63 61 73 65 20 5f ch(fn) {..case _
8d20: 6f 70 74 5f 63 68 61 6e 3a 0a 09 63 61 73 65 20 opt_chan:..case
8d30: 5f 6f 70 74 5f 63 68 61 6e 6e 65 6c 3a 0a 20 20 _opt_channel:.
8d40: 20 20 09 20 20 20 20 47 45 54 5f 4f 50 54 5f 53 . GET_OPT_S
8d50: 54 52 49 4e 47 28 6f 62 6a 76 5b 69 64 78 5d 2c TRING(objv[idx],
8d60: 20 63 68 61 6e 6e 65 6c 2c 20 4e 55 4c 4c 29 3b channel, NULL);
8d70: 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 63 61 .. break;..ca
8d80: 73 65 20 5f 6f 70 74 5f 63 69 70 68 65 72 3a 0a se _opt_cipher:.
8d90: 09 20 20 20 20 63 69 70 68 65 72 4f 62 6a 20 3d . cipherObj =
8da0: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8db0: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8dc0: 70 74 5f 63 6f 6d 6d 61 6e 64 3a 0a 09 20 20 20 pt_command:..
8dd0: 20 63 6d 64 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 cmdObj = objv[i
8de0: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
8df0: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 64 61 74 61 ..case _opt_data
8e00: 3a 0a 09 20 20 20 20 64 61 74 61 4f 62 6a 20 3d :.. dataObj =
8e10: 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 20 objv[idx];..
8e20: 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f 6f break;..case _o
8e30: 70 74 5f 64 69 67 65 73 74 3a 0a 09 63 61 73 65 pt_digest:..case
8e40: 20 5f 6f 70 74 5f 68 61 73 68 3a 0a 09 20 20 20 _opt_hash:..
8e50: 20 64 69 67 65 73 74 4f 62 6a 20 3d 20 6f 62 6a digestObj = obj
8e60: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8e70: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 ak;..case _opt_i
8e80: 6e 66 69 6c 65 3a 0a 09 63 61 73 65 20 5f 6f 70 nfile:..case _op
8e90: 74 5f 66 69 6c 65 6e 61 6d 65 3a 0a 09 20 20 20 t_filename:..
8ea0: 20 69 6e 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a inFileObj = obj
8eb0: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8ec0: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6f ak;..case _opt_o
8ed0: 75 74 66 69 6c 65 3a 0a 09 20 20 20 20 6f 75 74 utfile:.. out
8ee0: 46 69 6c 65 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 FileObj = objv[i
8ef0: 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b dx];.. break;
8f00: 0a 09 63 61 73 65 20 5f 6f 70 74 5f 69 76 3a 0a ..case _opt_iv:.
8f10: 09 20 20 20 20 69 76 4f 62 6a 20 3d 20 6f 62 6a . ivObj = obj
8f20: 76 5b 69 64 78 5d 3b 0a 09 20 20 20 20 62 72 65 v[idx];.. bre
8f30: 61 6b 3b 0a 09 63 61 73 65 20 5f 6f 70 74 5f 6b ak;..case _opt_k
8f40: 65 79 3a 0a 09 20 20 20 20 6b 65 79 4f 62 6a 20 ey:.. keyObj
8f50: 3d 20 6f 62 6a 76 5b 69 64 78 5d 3b 0a 09 20 20 = objv[idx];..
8f60: 20 20 62 72 65 61 6b 3b 0a 09 63 61 73 65 20 5f break;..case _
8f70: 6f 70 74 5f 6d 61 63 3a 0a 09 20 20 20 20 6d 61 opt_mac:.. ma
8f80: 63 4f 62 6a 20 3d 20 6f 62 6a 76 5b 69 64 78 5d cObj = objv[idx]
8f90: 3b 0a 09 20 20 20 20 62 72 65 61 6b 3b 0a 09 7d ;.. break;..}
8fa0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 2f 2a 20 43 . }.. /* C
8fb0: 68 65 63 6b 20 66 6f 72 20 72 65 71 75 69 72 65 heck for require
8fc0: 64 20 6f 70 74 69 6f 6e 73 20 2a 2f 0a 20 20 20 d options */.
8fd0: 20 69 66 20 28 63 69 70 68 65 72 4f 62 6a 20 3d if (cipherObj =
8fe0: 3d 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 = NULL) {..Tcl_A
8ff0: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 ppendResult(inte
9000: 72 70 2c 20 22 4e 6f 20 63 69 70 68 65 72 22 2c rp, "No cipher",
9010: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c NULL);. } el
9020: 73 65 20 69 66 20 28 6b 65 79 4f 62 6a 20 3d 3d se if (keyObj ==
9030: 20 4e 55 4c 4c 29 20 7b 0a 09 54 63 6c 5f 41 70 NULL) {..Tcl_Ap
9040: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 pendResult(inter
9050: 70 2c 20 22 4e 6f 20 6b 65 79 22 2c 20 4e 55 4c p, "No key", NUL
9060: 4c 29 3b 0a 09 72 65 74 75 72 6e 20 54 43 4c 5f L);..return TCL_
9070: 45 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 0a 20 20 ERROR;. }..
9080: 20 20 2f 2a 20 50 65 72 66 6f 72 6d 20 65 6e 63 /* Perform enc
9090: 72 79 70 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e ryption function
90a0: 20 6f 6e 20 66 69 6c 65 2c 20 73 74 61 63 6b 65 on file, stacke
90b0: 64 20 63 68 61 6e 6e 65 6c 2c 20 75 73 69 6e 67 d channel, using
90c0: 20 69 6e 73 74 61 6e 63 65 20 63 6f 6d 6d 61 6e instance comman
90d0: 64 2c 20 6f 72 20 64 61 74 61 20 62 6c 6f 62 20 d, or data blob
90e0: 2a 2f 0a 20 20 20 20 69 66 20 28 69 6e 46 69 6c */. if (inFil
90f0: 65 4f 62 6a 20 21 3d 20 4e 55 4c 4c 20 26 26 20 eObj != NULL &&
9100: 6f 75 74 46 69 6c 65 4f 62 6a 20 21 3d 20 4e 55 outFileObj != NU
9110: 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 LL) {..res = Enc
9120: 72 79 70 74 46 69 6c 65 48 61 6e 64 6c 65 72 28 ryptFileHandler(
9130: 69 6e 74 65 72 70 2c 20 74 79 70 65 2c 20 69 6e interp, type, in
9140: 46 69 6c 65 4f 62 6a 2c 20 6f 75 74 46 69 6c 65 FileObj, outFile
9150: 4f 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 Obj, cipherObj,
9160: 64 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 digestObj, keyOb
9170: 6a 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d j, ivObj);. }
9180: 20 65 6c 73 65 20 69 66 20 28 63 68 61 6e 6e 65 else if (channe
9190: 6c 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 72 65 l != NULL) {..re
91a0: 73 20 3d 20 45 6e 63 72 79 70 74 43 68 61 6e 6e s = EncryptChann
91b0: 65 6c 48 61 6e 64 6c 65 72 28 69 6e 74 65 72 70 elHandler(interp
91c0: 2c 20 74 79 70 65 2c 20 63 68 61 6e 6e 65 6c 2c , type, channel,
91d0: 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 69 67 65 cipherObj, dige
91e0: 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a 2c 20 69 stObj, keyObj, i
91f0: 76 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 65 6c 73 vObj);. } els
9200: 65 20 69 66 20 28 63 6d 64 4f 62 6a 20 21 3d 20 e if (cmdObj !=
9210: 4e 55 4c 4c 29 20 7b 0a 09 72 65 73 20 3d 20 45 NULL) {..res = E
9220: 6e 63 72 79 70 74 43 6f 6d 6d 61 6e 64 48 61 6e ncryptCommandHan
9230: 64 6c 65 72 28 69 6e 74 65 72 70 2c 20 74 79 70 dler(interp, typ
9240: 65 2c 20 63 6d 64 4f 62 6a 2c 20 63 69 70 68 65 e, cmdObj, ciphe
9250: 72 4f 62 6a 2c 20 64 69 67 65 73 74 4f 62 6a 2c rObj, digestObj,
9260: 20 6b 65 79 4f 62 6a 2c 20 69 76 4f 62 6a 29 3b keyObj, ivObj);
9270: 0a 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 . } else if (
9280: 64 61 74 61 4f 62 6a 20 21 3d 20 4e 55 4c 4c 29 dataObj != NULL)
9290: 20 7b 0a 09 72 65 73 20 3d 20 45 6e 63 72 79 70 {..res = Encryp
92a0: 74 44 61 74 61 48 61 6e 64 6c 65 72 28 69 6e 74 tDataHandler(int
92b0: 65 72 70 2c 20 74 79 70 65 2c 20 64 61 74 61 4f erp, type, dataO
92c0: 62 6a 2c 20 63 69 70 68 65 72 4f 62 6a 2c 20 64 bj, cipherObj, d
92d0: 69 67 65 73 74 4f 62 6a 2c 20 6b 65 79 4f 62 6a igestObj, keyObj
92e0: 2c 20 69 76 4f 62 6a 29 3b 0a 20 20 20 20 7d 20 , ivObj);. }
92f0: 65 6c 73 65 20 7b 0a 09 54 63 6c 5f 41 70 70 65 else {..Tcl_Appe
9300: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c ndResult(interp,
9310: 20 22 4e 6f 20 6f 70 65 72 61 74 69 6f 6e 20 73 "No operation s
9320: 70 65 63 69 66 69 65 64 3a 20 55 73 65 20 2d 63 pecified: Use -c
9330: 68 61 6e 6e 65 6c 2c 20 2d 63 6f 6d 6d 61 6e 64 hannel, -command
9340: 2c 20 2d 64 61 74 61 2c 20 6f 72 20 2d 69 6e 66 , -data, or -inf
9350: 69 6c 65 20 6f 70 74 69 6f 6e 22 2c 20 4e 55 4c ile option", NUL
9360: 4c 29 3b 0a 09 72 65 73 20 3d 20 54 43 4c 5f 45 L);..res = TCL_E
9370: 52 52 4f 52 3b 0a 20 20 20 20 7d 0a 20 20 20 20 RROR;. }.
9380: 72 65 74 75 72 6e 20 72 65 73 3b 0a 7d 0a 0a 2f return res;.}../
9390: 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *------------
93a0: 2d 2d 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 0a 20 2a 0a 20 2a 20 45 6e -------. *. * En
93e0: 63 72 79 70 74 69 6f 6e 20 43 6f 6d 6d 61 6e 64 cryption Command
93f0: 73 20 2d 2d 0a 20 2a 0a 20 2a 09 50 65 72 66 6f s --. *. *.Perfo
9400: 72 6d 20 65 6e 63 72 79 70 74 69 6f 6e 20 66 75 rm encryption fu
9410: 6e 63 74 69 6f 6e 20 61 6e 64 20 72 65 74 75 72 nction and retur
9420: 6e 20 72 65 73 75 6c 74 73 0a 20 2a 0a 20 2a 20 n results. *. *
9430: 52 65 74 75 72 6e 73 3a 0a 20 2a 09 54 43 4c 5f Returns:. *.TCL_
9440: 4f 4b 20 6f 72 20 54 43 4c 5f 45 52 52 4f 52 0a OK or TCL_ERROR.
9450: 20 2a 0a 20 2a 20 53 69 64 65 20 65 66 66 65 63 *. * Side effec
9460: 74 73 3a 0a 20 2a 09 43 6f 6d 6d 61 6e 64 20 64 ts:. *.Command d
9470: 65 70 65 6e 64 65 6e 74 0a 20 2a 0a 20 2a 2d 2d ependent. *. *--
9480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 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 0a 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 -. */.static int
94d0: 20 45 6e 63 72 79 70 74 4f 62 6a 43 6d 64 28 43 EncryptObjCmd(C
94e0: 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 lientData client
94f0: 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65 72 70 Data, Tcl_Interp
9500: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 *interp, int ob
9510: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 63 6f 6e jc, Tcl_Obj *con
9520: 73 74 20 6f 62 6a 76 5b 5d 29 20 7b 0a 20 20 20 st objv[]) {.
9530: 20 72 65 74 75 72 6e 20 45 6e 63 72 79 70 74 4d return EncryptM
9540: 61 69 6e 28 54 59 50 45 5f 45 4e 43 52 59 50 54 ain(TYPE_ENCRYPT
9550: 2c 20 69 6e 74 65 72 70 2c 20 6f 62 6a 63 2c 20 , interp, objc,
9560: 6f 62 6a 76 29 3b 0a 7d 0a 0a 73 74 61 74 69 63 objv);.}..static
9570: 20 69 6e 74 20 44 65 63 72 79 70 74 4f 62 6a 43 int DecryptObjC
9580: 6d 64 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c md(ClientData cl
9590: 69 65 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e ientData, Tcl_In
95a0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e terp *interp, in
95b0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 t objc, Tcl_Obj
95c0: 2a 63 6f 6e 73 74 20 6f 62 6a 76 5b 5d 29 20 7b *const objv[]) {
95d0: 0a 20 20 20 20 72 65 74 75 72 6e 20 45 6e 63 72 . return Encr
95e0: 79 70 74 4d 61 69 6e 28 54 59 50 45 5f 44 45 43 yptMain(TYPE_DEC
95f0: 52 59 50 54 2c 20 69 6e 74 65 72 70 2c 20 6f 62 RYPT, interp, ob
9600: 6a 63 2c 20 6f 62 6a 76 29 3b 0a 7d 0a 0a 2f 2a jc, objv);.}../*
9610: 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *-------------
9620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9650: 2d 2d 2d 2d 2d 2d 0a 20 2a 0a 20 2a 20 45 6e 63 ------. *. * Enc
9660: 72 79 70 74 5f 49 6e 69 74 69 61 6c 69 7a 65 20 rypt_Initialize
9670: 2d 2d 0a 20 2a 0a 20 2a 09 43 72 65 61 74 65 20 --. *. *.Create
9680: 6e 61 6d 65 73 70 61 63 65 2c 20 63 6f 6d 6d 61 namespace, comma
9690: 6e 64 73 2c 20 61 6e 64 20 72 65 67 69 73 74 65 nds, and registe
96a0: 72 20 70 61 63 6b 61 67 65 20 76 65 72 73 69 6f r package versio
96b0: 6e 0a 20 2a 0a 20 2a 20 52 65 74 75 72 6e 73 3a n. *. * Returns:
96c0: 0a 20 2a 09 54 43 4c 5f 4f 4b 20 6f 72 20 54 43 . *.TCL_OK or TC
96d0: 4c 5f 45 52 52 4f 52 0a 20 2a 0a 20 2a 20 53 69 L_ERROR. *. * Si
96e0: 64 65 20 65 66 66 65 63 74 73 3a 0a 20 2a 09 43 de effects:. *.C
96f0: 72 65 61 74 65 73 20 63 6f 6d 6d 61 6e 64 73 0a reates commands.
9700: 20 2a 0a 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *. *-----------
9710: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9720: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
9740: 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 2a 2f 0a 69 6e 74 --------. */.int
9750: 20 54 6c 73 5f 45 6e 63 72 79 70 74 43 6f 6d 6d Tls_EncryptComm
9760: 61 6e 64 73 28 54 63 6c 5f 49 6e 74 65 72 70 20 ands(Tcl_Interp
9770: 2a 69 6e 74 65 72 70 29 20 7b 0a 20 20 20 20 54 *interp) {. T
9780: 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d cl_CreateObjComm
9790: 61 6e 64 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 and(interp, "tls
97a0: 3a 3a 65 6e 63 72 79 70 74 22 2c 20 45 6e 63 72 ::encrypt", Encr
97b0: 79 70 74 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 yptObjCmd, (Clie
97c0: 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 6c 5f ntData) 0, (Tcl_
97d0: 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 CmdDeleteProc *)
97e0: 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f NULL);. Tcl_
97f0: 43 72 65 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 CreateObjCommand
9800: 28 69 6e 74 65 72 70 2c 20 22 74 6c 73 3a 3a 64 (interp, "tls::d
9810: 65 63 72 79 70 74 22 2c 20 44 65 63 72 79 70 74 ecrypt", Decrypt
9820: 4f 62 6a 43 6d 64 2c 20 28 43 6c 69 65 6e 74 44 ObjCmd, (ClientD
9830: 61 74 61 29 20 30 2c 20 28 54 63 6c 5f 43 6d 64 ata) 0, (Tcl_Cmd
9840: 44 65 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 DeleteProc *) NU
9850: 4c 4c 29 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65 LL);. Tcl_Cre
9860: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e ateObjCommand(in
9870: 74 65 72 70 2c 20 22 74 6c 73 3a 3a 75 6e 73 74 terp, "tls::unst
9880: 61 63 6b 32 22 2c 20 45 6e 63 72 79 70 74 55 6e ack2", EncryptUn
9890: 73 74 61 63 6b 4f 62 6a 43 6d 64 2c 20 28 43 6c stackObjCmd, (Cl
98a0: 69 65 6e 74 44 61 74 61 29 20 30 2c 20 28 54 63 ientData) 0, (Tc
98b0: 6c 5f 43 6d 64 44 65 6c 65 74 65 50 72 6f 63 20 l_CmdDeleteProc
98c0: 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 *) NULL);. re
98d0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a turn TCL_OK;.}..